©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
SDAMOL1 ;ALB/CAW - Retroactive Appointment List (con't);4/15/92 ; 2/16/07 2:59pm
Source file <SDAMOL1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TMP(SDENCDT,SDMADE) | ; -- Check to see if ^TMP("SDRL",$J,Encounter Date/Time)
; exists ; input - SDENCDT := encounter date/time ; SDMADE := date encounter made |
|
| NEXTDT(X1) | ; -- get next date
|
|
| DIV() | ; -- valid division for report ?
|
|
| SCAN | ; -- api to invoke scan
|
|
| MAINQ | ; -- exit logic
|
|
| CLINIC() | ; -- valid clinic for report ?
|
|
| CB(SDOE,SDOE0,SDSTOP) | ; -- main callback
|
|
| CBQ | ||
| SETQ | ||
| SET | ;^TMP("SDRAL",$J,Division,Stop Code,Visit Date,Patient)
|
|
| MAIN | ; main sort, by division
|
|
| SCANQ | ||
| APPT(SDCL,SDPAT,SDVSTDT) | ; Return 'Date Appt Made' field.
; If user selected specific Clinic or Stop Code then SDAPI has been called in line tag MAIN+nnn above. |
|
| STOP() | ; -- valid stop code for report ?
|
| Name | Field # of Occurrence |
|---|---|
| C^%DTC | NEXTDT+2 |
| $$S^%ZTLOAD | SCAN+3, CB+5 |
| $$CLOSEOUT^SCDXFU04 | MAIN+7 |
| $$SDAPI^SDAMA301 | MAIN+19, APPT+10 |
| $$APPT^SDAMOL1 | CB+27 |
| BLD^SDAMOLP | MAIN+24 |
| $$SDAPIERR^SDAMUTDT | MAIN+21, APPT+12 |
| ACTIVE^SDQ | SCAN+7, SCAN+11 |
| CLOSE^SDQ | SCAN+13 |
| DATE^SDQ | SCAN+9 |
| INDEX^SDQ | SCAN+8 |
| OPEN^SDQ | SCAN+6 |
| SCAN^SDQ | SCAN+12 |
| SCANCB^SDQ | SCAN+10 |
| OUT^SDUTL | MAIN+21, APPT+12 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNVSIT - [#9000010] | CB+28 |
| ^DIC(40.7 - [#40.7] | MAIN+17, CB+30 |
| ^SC - [#44] | CB+29, CB+49 |
| ^SCE - [#409.68] | CB+22 |
| ^TMP("SDRAL" | MAIN+2!, MAINQ+5!, CB+7!, SET+2* |
| ^TMP("SDRL" | MAIN+2!, MAIN+8*, SET+2, TMP+7, TMP+8 |
| ^TMP($J | MAIN+11!, MAINQ+5!, APPT+2, APPT+5!, APPT+13 |
| Name | Line Occurrences |
|---|---|
| $$CLINIC | CB+53 |
| $$DIV | CB+52 |
| $$NEXTDT | MAIN+6 |
| $$STOP | CB+54 |
| $$TMP | CB+40 |
| CBQ | CB+5, CB+34, CB+37, CB+40, CB+43, CB+46, CB+49, CB+52, CB+53, CB+54 |
| MAINQ | MAIN+20 |
| SCAN | MAIN+23 |
| SCANQ | SCAN+3 |
| SET | CB+56 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| SDAD | MAINQ+1! |
| SDAPPT | MAINQ+2! |
| SDARRAY | MAIN+11~, MAIN+19, APPT+5~, APPT+10 |
| SDARRAY("FLDS" | MAIN+19*, APPT+10* |
| SDARRAY("MAX" | APPT+9* |
| SDARRAY(1 | MAIN+12*, APPT+6* |
| SDARRAY(13 | MAIN+15*, MAIN+18* |
| SDARRAY(2 | MAIN+13*, APPT+7* |
| SDARRAY(4 | APPT+8* |
| SDASH | MAINQ+2! |
| SDATA | MAINQ+1! |
| >> SDBEG | MAIN+5, MAIN+12, SCAN+9 |
| SDCB | SCAN+4~, SCAN+5*, SCAN+10 |
| SDCL | CB+1~, CB+14*, CB+27, CB+29, CB+49, CLINIC+1, APPT~, APPT+2, APPT+7, APPT+13 |
| SDCLC | MAINQ+2! |
| SDCLIN | MAINQ+1! |
| SDCLINIC | MAINQ+2! |
| SDCLK | MAINQ+1!, CB+2~, CB+23*, SET+2 |
| SDCLNM | MAINQ+1!, CB+2~, CB+29*, SET+2 |
| SDCN | MAINQ+1! |
| SDCNT | MAINQ+1! |
| SDCODT | CB+2~, CB+17*, CB+43 |
| SDCSC | MAINQ+2! |
| SDDATE | MAINQ+2! |
| SDDFN | MAINQ+1! |
| SDDIV | MAINQ+2!, CB+1~, CB+20*, SET+2, DIV+1 |
| SDDV | MAINQ+1! |
| SDENCDT | TMP~, TMP+7, TMP+8 |
| >> SDEND | MAIN+6, MAIN+12, SCAN+9 |
| SDERR | MAIN+11~, MAIN+21*, APPT+5~, APPT+12* |
| SDEXT | CB+1~, CB+19*, CB+27 |
| SDFLEN | MAINQ+2! |
| SDFLG | MAINQ+2! |
| SDFST | MAINQ+3! |
| SDMADE | TMP~, TMP+8 |
| >> SDNPDB | MAIN+7 |
| SDOE | CB~, CB+10, CB+22 |
| SDOE0 | CB~, CB+11, CB+12, CB+13, CB+14, CB+15, CB+16, CB+17, CB+18, CB+19 , CB+20, CB+21, CB+40 |
| SDOEP | CB+1~, CB+16*, CB+34 |
| SDOEU | CB+1~, CB+22*, CB+23, CB+24 |
| SDORG | CB+1~, CB+18*, CB+27, CB+31 |
| SDPAGE | MAINQ+3! |
| SDPAT | MAINQ+3!, CB+1~, CB+12*, CB+27, SET+2, APPT~, APPT+2, APPT+8, APPT+13 |
| SDQID | SCAN+4~, SCAN+6, SCAN+7, SCAN+8, SCAN+9, SCAN+10, SCAN+11, SCAN+12, SCAN+13 |
| SDRESULT | MAIN+11~, MAIN+19*, MAIN+20, APPT+5~, APPT+10*, APPT+11 |
| SDROU | MAINQ+3! |
| SDSC | MAINQ+1!, CB+1~, CB+13*, CB+30, STOP+1 |
| SDSEC | MAINQ+3! |
| SDSLEN | MAINQ+3! |
| SDSTATUS | CB+2~, CB+21*, CB+46 |
| SDSTOP | MAINQ+3!, CB~, CB+6* |
| SDSTPC | MAINQ+3! |
| SDSTPCDE | MAINQ+3!, CB+2~, CB+30*, SET+2 |
| SDTMP | MAIN+1~, MAIN+5*, MAIN+6*, MAIN+7, MAIN+8, MAINQ+4! |
| SDTMP1 | MAIN+1~, MAIN+15*, MAIN+16*, MAIN+17 |
| SDTMP2 | MAIN+1~, MAIN+17*, MAIN+18 |
| SDTRANS | MAINQ+4! |
| SDTYPE | MAINQ+4!, CB+2~, CB+31*, SET+2 |
| SDVDT | MAINQ+4! |
| SDVISIT | MAINQ+4!, CB+1~, CB+10*, SET+2 |
| SDVSIT | CB+2~, CB+15*, CB+28 |
| SDVST | MAINQ+4! |
| SDVSTDT | MAINQ+4!, CB+1~, CB+11*, CB+27, SET+2, APPT~, APPT+2, APPT+6, APPT+13 |
| SDWHEN | MAINQ+4!, CB+2~, CB+24*, CB+27*, CB+28*, CB+37, CB+40, SET+2 |
| SDX | MAIN+1~, MAIN+7*, MAIN+8 |
| SDY | MAINQ+4! |
| U | MAIN+7, CB+12, CB+13, CB+14, CB+15, CB+16, CB+17, CB+18, CB+19, CB+20 , CB+21, CB+24, CB+28, CB+29, CB+30, CB+49, SET+2, APPT+2, APPT+13 |
| VA | MAINQ+5! |
| VAERR | MAINQ+5! |
| >> VAUTC | MAIN+10, MAIN+13, CLINIC+1, APPT+2 |
| >> VAUTC( | CLINIC+1 |
| >> VAUTD | DIV+1 |
| >> VAUTD( | DIV+1 |
| >> VAUTS | MAIN+10, MAIN+14, STOP+1, APPT+2 |
| >> VAUTS( | MAIN+16, STOP+1 |
| X | MAINQ+5!, NEXTDT+3 |
| X1 | NEXTDT~ |
| X2 | NEXTDT+1~, NEXTDT+2* |
| >> ZTSTOP | SCAN+3*, CB+6* |