SDAM1 ;MJK/ALB - Appt Mgt (Patient);Apr 23 1999
Source file <SDAM1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| INIT | ; -- get init pat appt data
; input: DFN := ifn of pat ; output: ^TMP("SDAM" := appt array |
|
| BLD | ; -- scan apts
|
|
| BLD1 | ; -- build array
|
|
| BLD1Q | ||
| ANC() | ; -- set ancillary info
|
|
| SET(X) | ;
|
|
| CHK(DFN,SDT,SDCL,SDATA,SDAMLIST,SDSTAT,SDDA) | ; -- does appt meet criteria
; input: DFN := ifn of pat. ; SDT := appt d/t ; SDCL := ifn of clinic ; SDATA := 0th node of pat appt entry ; SDAMLIST := list definition ; SDSTAT := appt status data from $$STATUS call ; SDDA := ifn for ^SC(clinic,"S",date,1,ifn) {optional} ; output: [returned] := meets criteria for list [0 - no | 1 - yes ] |
|
| CHKQ | ||
| STATUS(DFN,SDT,SDCL,SDATA,SDDA) | ; -- return appt status
; input: DFN := ifn of pat. ; SDT := appt d/t ; SDCL := ifn of clinic ; SDATA := 0th node of pat appt entry ; SDDA := ifn for ^SC(clinic,"S",date,1,ifn) {optional} ; output: [returned] := appt status ifn ^ status name ^ print status ^ ; check in d/t ^ check out d/t ^ adm mvt ifn |
|
| STATUSQ | ||
| LOWER(X) | ; convert to lowercase ; same as LOWER^VALM1 ; here for speed
|
|
| TIME(X) | ; -- format time only := hr:min
|
| Name | Field # of Occurrence |
|---|---|
| C^%DTC | INIT+4, INIT+5 |
| $$GET1^DIQ | STATUS+19 |
| LIST^SDAM | INIT+7 |
| INIT^SDAM10 | BLD+2 |
| LARGE^SDAM10 | BLD+6 |
| NUL^SDAM10 | BLD+6 |
| $$FIND^SDAM2 | STATUS+13 |
| $$COLLAT^SDUTL2 | BLD1+7 |
| $$ELSTAT^SDUTL2 | BLD1+6 |
| $$MHCLIN^SDUTL2 | BLD1+7 |
| $$NEWGAF^SDUTL2 | BLD1+8 |
| ADM^VADPT2 | STATUS+26 |
| CHGCAP^VALM | INIT+6 |
| FLDCTRL^VALM10 | BLD1+24 |
| $$FMTE^XLFDT | BLD1+15 |
| FileNo | Call Tags |
|---|---|
| ^SCE - [#409.68] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD(2.98 | STATUS+22 |
| ^DG(43 - [#43] | INIT+3, STATUS+27, STATUS+34 |
| ^DGPM - [#405] | STATUS+27 |
| ^DIC(42 - [#42] | STATUS+27 |
| ^DPT - [#2] | BLD+4, STATUS+16 |
| ^GMR(123 - [#123] | BLD+5 |
| ^SC - [#44] | BLD+4, BLD+5, STATUS+14, STATUS+22, STATUS+39 |
| ^SCE - [#409.68] | STATUS+18, STATUS+39, STATUS+41, STATUS+48, STATUS+55 |
| ^SD(409.63 - [#409.63] | STATUSQ |
| ^TMP("SDAM" | BLD+7*, SET+1*, SET+2* |
| ^TMP("SDAMIDX" | BLD1+25* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AC | BLD+1~, BLD1+13 |
| AW | BLD+1~, BLD1+13 |
| BL | BLD+1~, BLD1+13, BLD1+14, BLD1+15, BLD1+17, BLD1+19, BLD1+20, BLD1+22 |
| C | ANC+1~, ANC+2*, ANC+3*, STATUS+10~, STATUS+30*, STATUS+32*, STATUS+37, STATUS+40, STATUS+42, STATUS+43 , LOWER+1~, LOWER+3* |
| CC | BLD+1~, BLD1+17 |
| CN | BLD+1~, BLD+5* |
| CNPAT | BLD+1~, BLD+5* |
| CNSTLNK | BLD+1~, BLD+4!, BLD+5*, BLD1+17! |
| CSTAT | BLD+1~, BLD+5*, BLD1+16*, BLD1+17! |
| CW | BLD+1~, BLD1+17 |
| DFN | BLD+1~, BLD+3*, BLD+4, BLD+5, BLD1+2, BLD1+3, BLD1+6, BLD1+8, BLD1+24, BLD1+25 , CHK~, STATUS~, STATUS+13, STATUS+16 |
| DT | INIT+4, INIT+5, BLD1+21, STATUS+30, STATUS+32, STATUS+44 |
| I | ANC+1~, ANC+3*, LOWER+1~, LOWER+3* |
| >> IOINHI | BLD1+24 |
| >> IOINORM | BLD1+24 |
| NC | BLD+1~, BLD1+14 |
| NW | BLD+1~, BLD1+14 |
| P | STATUS+10~, STATUS+37*, STATUS+38, STATUS+39*, STATUS+40*, STATUS+41*, STATUS+42*, STATUS+44*, STATUS+45*, STATUS+50* , STATUS+51*, STATUS+52*, STATUS+53*, STATUS+55*, STATUS+56*, STATUSQ |
| S | STATUS+10~, STATUS+22*, STATUS+23*, STATUS+27*, STATUS+30*, STATUS+32, STATUS+34*, STATUS+37, STATUS+39, STATUS+40 , STATUS+42, STATUS+43, STATUS+44, STATUS+45, STATUS+46, STATUS+47, STATUS+54*, STATUS+57*, STATUSQ |
| SC | BLD+1~, BLD1+19, BLD1+20 |
| >> SDACNT | BLD1+10*, BLD1+11, BLD1+12, BLD1+13, BLD1+25, SET+2 |
| >> SDAMBOLD( | BLD1+24 |
| SDAMDD | BLD+1~ |
| SDAMLIST | BLD1+3, CHK~, CHK+12, CHK+13 |
| SDAMLIST( | CHK+11 |
| SDAMLIST("SCR" | CHKQ |
| SDATA | BLD+4*, BLD1+2, BLD1+3, BLD1+7, ANC+3, CHK~, STATUS~, STATUS+22, STATUS+34, STATUS+39 |
| >> SDBEG | INIT+4*, BLD+4 |
| SDCL | BLD+1~, BLD+4*, BLD+5, BLD1+2, BLD1+3, BLD1+7, BLD1+24, BLD1+25, CHK~, STATUS~ , STATUS+13, STATUS+14, STATUS+22, STATUS+39 |
| SDDA | BLD1+2, BLD1+25, CHK~, STATUS~, STATUS+13*, STATUS+14 |
| SDELIG | BLD1+1~, BLD1+6*, BLD1+7 |
| >> SDEND | INIT+5*, BLD+4, BLD1+12* |
| >> SDFN | BLD+3 |
| >> SDGAF | BLD1+8* |
| >> SDGAFREQ | BLD1+5*, BLD1+9*, BLD1+13 |
| >> SDGAFST | BLD1+8*, BLD1+9 |
| SDIEN | STATUS+10~, STATUS+19* |
| SDLARGE | BLD+1~, BLD+6, BLD1+12* |
| SDMAX | BLD+1~, BLD1+12 |
| SDNAME | BLD+1~, BLD+4*, BLD1+14 |
| >> SDPRD | INIT+3*, INIT+4 |
| SDSCE | STATUS+10~, STATUS+16*, STATUS+17, STATUS+18, STATUS+19, STATUS+23, STATUS+41, STATUS+48, STATUS+55 |
| SDSTAT | BLD1+1~, BLD1+2*, BLD1+3, BLD1+18, BLD1+21, CHK~, CHK+11, CHK+13 |
| SDT | BLD+1~, BLD+4*, BLD+5, BLD1+2, BLD1+3, BLD1+12, BLD1+15, BLD1+24, BLD1+25, CHK~ , STATUS~, STATUS+13, STATUS+14, STATUS+16, STATUS+26, STATUS+30, STATUS+32, STATUS+34, STATUS+44 |
| SDX | BLD1+1~ |
| STATUS | STATUS+10~, STATUS+19*, STATUS+49, STATUS+52, STATUS+54, STATUS+55, STATUS+57 |
| SW | BLD+1~, BLD1+19, BLD1+20 |
| TC | BLD+1~, BLD1+22 |
| TW | BLD+1~, BLD1+20, BLD1+22 |
| U | INIT+3, BLD+4, BLD+5, BLD+7, BLD1+7, BLD1+25, ANC+3, CHK+12, CHK+13, STATUS+16 , STATUS+18, STATUS+22, STATUS+27, STATUS+34, STATUS+39, STATUS+41, STATUS+50, STATUS+53, STATUS+55 |
| VADMVT | STATUS+10~, STATUS+27, STATUSQ |
| VAINDT | STATUS+10~, STATUS+26* |
| >> VALMCNT | BLD+7, BLD1+24, BLD1+25, SET+1*, SET+2 |
| >> VALMWD | BLD1+10, BLD1+13, BLD1+14, BLD1+15, BLD1+17, BLD1+19, BLD1+22 |
| X | INIT+3*, INIT+4, INIT+5, INIT+7*, BLD1+1~, BLD1+10*, BLD1+13*, BLD1+14*, BLD1+15*, BLD1+17* , BLD1+19*, BLD1+20*, BLD1+22*, BLD1+23, SET~, SET+1, LOWER~, LOWER+2, TIME~, TIME+1 |
| >> X1 | INIT+4*, INIT+5* |
| >> X2 | INIT+4*, INIT+5* |
| XC | BLD+1~, BLD1+15 |
| XW | BLD+1~, BLD1+15 |
| Y | BLD1+1~, BLD1+18*, BLD1+19, BLD1+20, ANC+1~, ANC+2*, ANC+3*, ANC+4*, ANC+5, CHK+10* , CHK+11*, CHK+12*, CHK+13*, CHKQ*, CHKQ+1, STATUS+10~, STATUS+14*, STATUS+18*, STATUS+30, STATUS+50 , STATUS+51, STATUS+53, STATUS+56, STATUSQ, LOWER+1~, LOWER+2*, LOWER+3*, LOWER+4 |
| Y1 | BLD1+1~, BLD1+21*, BLD1+22 |