ADGEVNT ; IHS/ADC/PDW/ENM - IHS/ADT EVENT DRIVER ; [ 03/25/1999 11:48 AM ]
Source file <ADGEVNT.m>
Package | Total | Call Graph |
---|---|---|
IHS Changes To ADT | 5 | (ADMDS,AMA,DEATH,ICU,READM,TI,TO)^ADGBULL1 ($$DSRV,APCDALV,APCDALVR,APCDCVDT,APCDVDLT)^ADGCALLS EN^ADGCRB0 EN^ADGLOC0 ^ADGREADM |
VA Fileman | 4 | ^%DT ^DIC ^DIE ^DIK |
IHS VA Utilities | 1 | ($$VAL,$$VALI)^XBDIQ1 |
Name | Comments | DBIA/ICR reference |
---|---|---|
A | ; -- driver
|
|
TS() | ; -- specialty ien
|
|
ON(N) | ; -- returns 1 if bulletin turned on
|
|
N3() | ; -- discharge node
|
|
NBCHK | ; -- checks newborn admit date against date of birth
|
|
A6() | ; -- admitting service changed (1=yes,0=no)
|
|
BULL | ; -- check if bulletins turned on and call subrtns to send them
|
|
A3 | ; -- admission movement with discharge pointer
|
|
AS | ; -- a sheet and locator
|
|
VH() | ; -- v hospitalization ien
|
|
1 | ; -- admissions
|
|
3 | ; -- discharges
|
|
2 | ; -- transfers
|
|
5 | ; -- check-out lodger
|
|
4 | ; -- check-in lodger
|
|
VI() | ; -- visit ien
|
|
6 | ; -- specialty
|
|
IC | ; -- incomplete chart
|
|
ID() | ; -- inverse date
|
|
TF() | ; -- transfer facility
|
Name | Field # of Occurrence |
---|---|
^%DT | 3+1 |
ADMDS^ADGBULL1 | BULL+11 |
AMA^ADGBULL1 | BULL+22 |
DEATH^ADGBULL1 | BULL+23 |
ICU^ADGBULL1 | BULL+16 |
READM^ADGBULL1 | BULL+10 |
TI^ADGBULL1 | BULL+5 |
TO^ADGBULL1 | BULL+21 |
$$DSRV^ADGCALLS | 6+3, 6+4, A3+5 |
APCDALV^ADGCALLS | 1+2 |
APCDALVR^ADGCALLS | 3+2, 3+8, 6+4, A3+1, A3+7 |
APCDCVDT^ADGCALLS | 1+4 |
APCDVDLT^ADGCALLS | 1+3 |
EN^ADGCRB0 | AS+1 |
EN^ADGLOC0 | AS+2 |
^ADGREADM | BULL+9 |
^DIC | IC+5, IC+11 |
^DIE | IC+15 |
^DIK | 3+3 |
$$VAL^XBDIQ1 | BULL+4, BULL+16, BULL+19 |
$$VALI^XBDIQ1 | ON+1 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^AUPNVINP - [#9000010.02] | Classic Fileman Calls |
^ADGIC - [#9009013] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ADGIC - [#9009013] | IC+2, IC+6, IC+7*, IC+8, IC+10, IC+15 |
^ADGIC(0 | IC+3, IC+5 |
^AGPATCH( | 3+1* |
^AUPNVINP - [#9000010.02] | 6+3 |
^AUPNVINP("AD" | VH+1 |
^AUPNVSIT("AA" | VI+1 |
^DG(43 - [#43] | IC+1 |
^DGPM - [#405] | 6+1, IC+12, ID+1, N3+1, NBCHK+4 |
^DGPM("APHY" | TS+1 |
^DGPM("ATS" | IC+13 |
^DIC(45.7 - [#45.7] | NBCHK+2 |
^DPT - [#2] | 3+1, NBCHK+5 |
^TMP("DGPM" | A3+4, A6+1 |
Name | Line Occurrences |
---|---|
$$A6 | A3+3 |
$$ID | VI+1 |
$$N3 | A3+1, A3+7 |
$$ON | BULL+3, BULL+8, BULL+15, BULL+21, BULL+22, BULL+23 |
$$TF | 3+7 |
$$TS | A3+4, A6+1, NBCHK+3 |
$$VH | 3+3, 6+3, A3+1 |
$$VI | VH+1 |
@( | A+2 |
A3 | 1+5 |
AS | 1+2, 1+6 |
BULL | 1+2, 1+6, 3+2, 3+9, 2+1 |
IC | 3+2 |
NBCHK | 1+1, 6+2 |
Name | Field # of Occurrence |
---|---|
^( | IC+13 |
^("P" | A6+1 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ADTYP | BULL+4~*, BULL+5 |
>> APCDALVR | 3+8, A3+6 |
>> APCDALVR("APCDDSCH" | 3+4* |
>> APCDALVR("APCDTADS" | A3+4* |
>> APCDALVR("APCDTAT" | A3+2* |
>> APCDALVR("APCDTDCS" | 6+4*, A3+5* |
>> APCDALVR("APCDTDT" | 3+5* |
>> APCDALVR("APCDTTT" | 3+7* |
C | IC+12~*, IC+13 |
DA | 3+3*!, IC+8* |
DA(1 | IC+8* |
>> DFN | 3+1, IC+2, IC+4, IC+6, IC+7, IC+8, IC+9, IC+10, IC+13, IC+15 , AS+1, AS+2, VI+1 |
DGDT | BULL+9~* |
DGPMA | A+1, 1+1, 1+3, 1+4, 1+5, 3+3, 3+4, 3+5, 3+6, 6+2 , A3+1~*, A3+2, A3+7~*, IC+8, IC+12, TF+1, NBCHK+5, NBCHK+6, BULL+4, BULL+9 , BULL+16, BULL+19 |
DGPMCA | A+1~*, 6+1, ID+1, N3+1 |
>> DGPMDA | AS+1, AS+2, TS+1, NBCHK+3 |
DGPMP | A+1, 1+2, 1+4, 3+2, 3+4, 3+5, 3+6, A3+1~*, A3+2, A3+7~* |
>> DGPMT | A+2, NBCHK+3, BULL+1, BULL+13, BULL+18 |
DGRE | BULL+8!, BULL+9, BULL+10, BULL+11 |
DIC | IC+4*, IC+9*, IC+14, IC+15! |
DIC(0 | IC+4*, IC+9* |
DIE | IC+14*, IC+15! |
DIK | 3+3*! |
>> DLAYGO | IC+4*, IC+9* |
DOB | NBCHK+1~, NBCHK+5*, NBCHK+6 |
DR | IC+14*, IC+15! |
DUZ(2 | 3+1 |
I | IC+12~*, IC+13 |
N | IC+12~*, ON~, ON+1 |
T | IC+12~, IC+13* |
U | A+1, 1+5, 3+5, 3+6, 6+1, 6+3, A3+2, A3+4, IC+1, IC+8 , IC+12, N3+1, TF+1, A6+1, NBCHK+4, NBCHK+5, BULL+4, BULL+16, BULL+19 |
X | 3+1~*, IC+4*, IC+8*, TF+1~*, NBCHK+1~, NBCHK+2*, NBCHK+4, BULL+19~*, BULL+20, BULL+21 , BULL+22 |
Y | 3+1~, NBCHK+3*, NBCHK+4 |