Routine: ADGEVNT

Information

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

Package	Total	Caller Graph
Registration	1	DG IHS MOVEMENT EVENT

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	Line Occurrences
Function Call: WRITE	Prompt: !!,*7,"NEWBORN ADMIT DATE DOES NOT MATCH DATE OF BIRTH" Line Location: NBCHK+7
Function Call: WRITE	Prompt: !,"PLEASE FIX INCORRECT DATE!" Line Location: NBCHK+8
Routine Call	DIE Line Location: IC+15
Routine Call	DIC Line Location: IC+5 IC+11

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	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