AQALDG50 ; IHS/ORDC/LJF - AUTOLINK ADT OCC CONT. ;
Source file <AQALDG50.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
DSSRV(X) | ; >> find day surgery service
|
|
IDATE(X) | ; >> inverse date
|
|
IVDTP(X) | ; >> convert inverse date to readable date
|
|
RICU | ;EP >> get extra data for return to icu
|
|
READM | ;EP >> get extra data for readmissions
|
|
WDP(X) | ; >> ward name
|
|
SRV(X) | ; >> hospital service ifn for movement
|
|
DSCH | ;EP >> get extra data for discharges
|
|
TI | ;EP >> get extra data for transfer in
|
|
DSADM | ;EP >> get extra data for admit after day surgery
|
|
SRVP(X) | ; >> hospital service name
|
|
ICU | ;EP >> get extra data for icu transfers
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ADGDS - [#9009012] | DSADM+2 |
^ADGDS("APID" | DSADM+1 |
^DD(405 | TI+1, DSCH+3 |
^DGPM - [#405] | READM+1, READM+5, ICU+1, ICU+3, RICU+2, DSCH+1, SRV+2 |
^DGPM("APHY" | SRV+1 |
^DGPM("APMV" | ICU+1 |
^DGPM("ATID3" | READM+1 |
^DIC(42 - [#42] | WDP+1 |
^DIC(45.7 - [#45.7] | SRV+3, DSSRV+1 |
^DIC(49 - [#49] | SRVP+1, DSSRV+1 |
Name | Line Occurrences |
---|---|
$$DSSRV | DSADM+4 |
$$IDATE | IVDTP+1 |
$$SRV | SRVP+1 |
$$SRVP | READM+4 |
$$WDP | ICU+2 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> AQALCA | READM+2*, READM+5 |
>> AQALDC | READM+2*, READM+3 |
>> AQALEV | DSCH+2 |
>> AQALST | READM+1, DSADM+1, ICU+1, RICU+1 |
>> AQALX | READM+1*, READM+2, READM+4, DSADM+1*, DSADM+2*, DSADM+3, DSADM+4, DSADM+5, ICU+1*, ICU+2 , DSSRV+1 |
>> AQALXTR(1 | TI+2*, READM+3*, DSADM+3*, ICU+2*, RICU+1*, DSCH+1* |
>> AQALXTR(2 | READM+4*, DSADM+4*, ICU+3*, RICU+2*, DSCH+4* |
>> AQALXTR(3 | READM+5*, DSADM+5* |
>> AQALXTR(4 | READM+6*, DSADM+6* |
>> C | TI+1*, DSCH+3* |
>> DFN | READM+1, DSADM+1, DSADM+2, ICU+1 |
>> DGPMA | TI+1, READM+6, DSADM+6, DSCH+3 |
>> DGPMCA | ICU+1, ICU+3, RICU+2, DSCH+1 |
U | TI+1, READM+2, READM+4, READM+5, READM+6, DSADM+5, DSADM+6, ICU+3, RICU+2, DSCH+1 , DSCH+3, SRV+2, SRV+3, SRVP+1, WDP+1, DSSRV+1 |
X | ICU+1*, SRV~, SRV+1, SRVP~, SRVP+1, WDP~, WDP+1, IVDTP~, IVDTP+1, IDATE~ , IDATE+1, DSSRV~ |
Y | TI+1*, TI+2, DSCH+3*, DSCH+4, SRV+1~*, SRV+2*, SRV+3*, SRV+4 |