AQALDG5 ; IHS/ORDC/LJF - AUTOLINK ADT OCCURRENCES ;
Source file <AQALDG5.m>
Package | Total | Call Graph |
---|---|---|
Quality Assurance | 4 | (DSADM,DSCH,ICU,READM,RICU,TI)^AQALDG50 ^AQALDG51 ^AQALDG53 ^AQALKILL |
VA Fileman | 2 | ^%DTC EN^DIQ1 |
Name | Comments | DBIA/ICR reference |
---|---|---|
ICU(X) | ; >> see if ward is an ICU
|
|
LINKEND | ||
DSRV() | ; >> find disch srv
|
|
IDATE(X) | ; >> inverse date
|
|
LINK() | ; >> find if link turned on
|
|
TYP() | ; >> find type of movemnt for last movemnt
|
|
LSRV() | ; >> find last time srv was transferred
|
|
SRV(X) | ; >> hospital srv ifn for movement
|
|
1 | ; >> admission events
; find admit type & srv; check if transfer in |
|
3 | ;>> discharge events
|
|
2 | ; >> ward transfer events
; check for icu transfer |
|
DWD() | ; >> find disch ward
|
|
ICU1() | ; >> was last ward ICU?
|
|
TIME() | ; >> check time limit against dates
|
FileNo | Call Tags |
---|---|
^AQAGP - [#9002166.4] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ADGDS("APID" | 1+18 |
^AQAGP - [#9002166.4] | LINK+2, LINK+9, LINK+10, TIME+3 |
^AQAOC("AE" | AQALDG5+16 |
^DGPM - [#405] | AQALDG5+15, 2+6, SRV+4, ICU1+3, TYP+3, DSRV+1, DSRV+4, DWD+1, DWD+3, DWD+6 |
^DGPM("APHY" | SRV+2 |
^DGPM("APMV" | 2+4, 2+11, ICU1+2, TYP+2 |
^DGPM("APTT2" | 2+12 |
^DGPM("ATID2" | DWD+2, DWD+4 |
^DGPM("ATID3" | 1+12 |
^DGPM("ATID6" | LSRV+2, DSRV+2 |
^DIC(42 - [#42] | ICU+1 |
^DIC(45.7 - [#45.7] | SRV+5, DSRV+4 |
^UTILITY("DIQ1" | 1+2!, 1+4, 3+2!, 3+4, LINK+3!, LINK+6, LINK+7 |
Name | Line Occurrences |
---|---|
$$DSRV | 3+10 |
$$DWD | 3+10 |
$$ICU | 2+2, ICU1+4 |
$$ICU1 | 2+11 |
$$IDATE | 1+11, 2+3, 2+6, 2+10, 2+12, TIME+4, LSRV+1, DWD+1, DWD+3 |
$$LINK | 1+7, 1+14, 1+20, 2+7, 2+14, 3+11 |
$$LSRV | SRV+3 |
$$SRV | 1+7, 1+14, 1+20, 2+5, 2+14 |
$$TIME | LINK+11 |
$$TYP | 2+4, ICU1+1 |
@( | AQALDG5+14, AQALDG5+16 |
LINKEND | LINK+2, LINK+6, LINK+7, LINK+8 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> AQALCUR | 1+11*, 1+13, 1+19 |
>> AQALEV | 1+7*, 1+14*, 1+20*, 2+5*, 2+14*, 3+7*, 3+8, LINK+4, LINK+6, LINK+7 , TIME+2 |
>> AQALF | 1+3*, 1+4, 3+3*, 3+4, LINK+3*, LINK+6, LINK+7 |
>> AQALIVDT | 1+11*, 1+12, 1+18 |
AQALNUM | TIME+1~, TIME+3*, TIME+5 |
AQALON | LINK+1~*, LINK+12*, LINKEND |
>> AQALST | 1+12*, 1+13, 1+18*, 1+19, 2+3*, 2+4*, 2+6*, 2+10*, 2+11*, 2+12* , 2+13, TIME+4, ICU1+2, TYP+2 |
>> AQALSV | 1+7*, 1+14*, 1+20*, 2+5*, 2+14*, 3+10*, LINK+8, LINK+9 |
>> AQALSVI | 1+7*, 1+14*, 1+20*, 2+5*, 2+14*, 3+9*, LINK+10, TIME+3 |
AQALVST | AQALDG5+15*!, AQALDG5+16 |
>> AQALWD | 3+10* |
>> AQALX | 1+4*, 1+6, 3+4*, 3+7, 3+9, LINK+8*, LINK+9*, LINK+10, TIME+3 |
AQALYES | TIME+1~*, TIME+5*, TIME+6 |
DA | 1+3*, 1+4, 3+3*, 3+4, LINK+1~, LINK+3* |
>> DFN | AQALDG5+9, AQALDG5+16, 1+12, 1+18, 2+4, 2+11, 2+12, LSRV+2, ICU1+2, TYP+2 , DSRV+2, DWD+2, DWD+4 |
>> DGPMA | AQALDG5+10, AQALDG5+13, AQALDG5+16, 1+3, 1+11, 2+2, 2+3, 2+10, 2+13, 3+3 , TIME+4, LSRV+1 |
>> DGPMCA | AQALDG5+13*, AQALDG5+15, 1+7, 1+14, 1+20, 2+4, 2+6, 2+11, LSRV+3, ICU1+2 , TYP+2, DSRV+1, DSRV+3, DWD+1, DWD+3, DWD+5 |
>> DGPMDA | AQALDG5+9, 2+5, 2+14 |
>> DGPMP | AQALDG5+13, AQALDG5+14 |
>> DGPMT | AQALDG5+10, AQALDG5+12, AQALDG5+14, AQALDG5+16 |
DIC | 1+3*, 3+3*, LINK+1~, LINK+3* |
DR | 1+3*, 3+3*, LINK+1~, LINK+4* |
DUZ(2 | AQALDG5+10, LINK+2, LINK+3, LINK+6, LINK+7, LINK+9, LINK+10, TIME+3 |
>> I | LINK+4* |
U | AQALDG5+13, AQALDG5+15, 1+3, 2+2, 3+3, LINK+10, TIME+3, SRV+4, SRV+5, ICU+1 , ICU1+3, TYP+3, DSRV+1, DSRV+4, DWD+1, DWD+6 |
X | 2+2*, TIME+5, SRV~, SRV+2, LSRV+1~, LSRV+2*, LSRV+3*, LSRV+4, ICU~, ICU+1 , ICU1+1~, ICU1+2*, ICU1+3*, ICU1+4, TYP+1~, TYP+2*, TYP+3, DSRV+1~, DSRV+2*, DSRV+3* , DSRV+4, DWD+1~, DWD+2*, DWD+3, DWD+4, DWD+5, IDATE~, IDATE+1 |
>> X1 | TIME+4* |
>> X2 | TIME+4* |
Y | SRV+1~, SRV+2*, SRV+3*, SRV+4*, SRV+5*, SRV+6, LSRV+1~*, LSRV+2, ICU1+1~, ICU1+4* , ICU1+5, TYP+1~, TYP+3*, TYP+4, DSRV+1~*, DSRV+2, DWD+1~*, DWD+2 |
Z | DWD+1~, DWD+3*, DWD+4*, DWD+5*, DWD+6 |