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 |