Routine: ADGBULL1

Package	Total	Caller Graph
IHS Changes To ADT	1	ADGEVNT

Entry Points

Name	Comments	DBIA/ICR reference
LDSCH()	; -- find last discharge date
DEATH	;EP; -- bulletin for inpatient death
IDATE(X)	; >> inverse date
AMA	;EP; -- bulletin for ama discharges
LDX()	; -- find last adm dx
READM	;EP; -- bulletin for readmissions
SRV(X)	; -- hospital srv name for movement
LDSC()	; -- find last discharge
TO	;EP; -- bulletin for transfers out to other facility
ADMDS	;EP; -- bulletin for admit after day surgery
TI	;EP; -- bulletin for transfers in to facility
LSRV()	; >> find last time srv was transferred
GEN	; -- set general data
ICU	;EP; -- bulletin for ICU transfers

Name	Field # of Occurrence
^%DT	GEN+4, ICU+7
DD^%DT	ADMDS+7
$$VAL^XBDIQ1	GEN+3, ICU+4, ICU+5, TI+3, TI+4, TO+3, TO+4, TO+5, AMA+3, AMA+4 , DEATH+3, DEATH+4, DEATH+5, READM+4, ADMDS+5, SRV+4, LDSCH+1, LDX+2
ENP^XBDIQ1	ADMDS+4
^XMB	ICU+8, TI+6, TO+7, AMA+6, DEATH+7, READM+9, ADMDS+10

Name	Line Occurrences (* Changed, ! Killed)
^ADGDS - [#9009012]	ADMDS+8
^AUPNPAT - [#9000001]	GEN+2, ICU+3
^DGPM - [#405]	LDX+1
^DGPM("APHY"	SRV+2
^DGPM("ATID3"	LDSC+2
^DGPM("ATID6"	LSRV+2
^DPT - [#2]	GEN+1, ICU+2

Name	Line Occurrences
$$IDATE	LSRV+1, LDSC+1
$$LDSC	READM+8, LDSCH+1, LDX+1
$$LDSCH	READM+5
$$LDX	READM+6
$$LSRV	SRV+3
$$SRV	ICU+6, TI+5, TO+6, AMA+5, DEATH+6, READM+7, READM+8, ADMDS+6
GEN	TI+2, TO+2, AMA+2, DEATH+2, READM+2, ADMDS+2

Name	Field # of Occurrence
>> %DT	GEN+4, ICU+7
ADG	ADMDS+4~
>> DFN	GEN+1, GEN+2, ICU+2, ICU+3, ADMDS+8, LSRV+2, LDSC+2
>> DGDS	ADMDS+7
>> DGDSA	ADMDS+8
>> DGOPT("QA1"	READM+3, ADMDS+3
>> DGPMA	LSRV+1, LDSC+1
>> DGPMCA	GEN+3, ICU+5, TI+4, TO+5, AMA+4, DEATH+5, READM+4, ADMDS+5, LSRV+3
>> DGPMDA	ICU+4, ICU+6, TI+3, TI+5, TO+3, TO+4, TO+6, AMA+3, AMA+5, DEATH+3 , DEATH+4, DEATH+6, READM+7, ADMDS+4, ADMDS+6
>> DGRE	ADMDS+9
DUZ(2	GEN+2, ICU+3
U	GEN+1, GEN+2, ICU+2, ICU+3, READM+3, ADMDS+3, ADMDS+8, LDX+1
X	GEN+4, ICU+7, SRV~, SRV+2, LSRV+1~, LSRV+2, LSRV+3, LSRV+4, LDSC+1~, LDSC+2* , LDSC+3, IDATE~, IDATE+1
>> XMB	ICU+1, TI+1, TO+1, AMA+1, DEATH+1, READM+1, ADMDS+1*
>> XMB(1	GEN+1, ICU+2
>> XMB(2	GEN+2, ICU+3
>> XMB(3	GEN+3, ICU+4
>> XMB(4	ICU+5, TI+3, TO+3, AMA+3, DEATH+3, READM+3, ADMDS+3*
>> XMB(5	ICU+6, TI+4, TO+4, AMA+4, DEATH+4, READM+4, ADMDS+5*
>> XMB(6	TI+5, TO+5, AMA+5, DEATH+5, READM+5, ADMDS+7
>> XMB(7	TO+6, DEATH+6, READM+6, ADMDS+8
>> XMB(8	READM+7, ADMDS+9
>> XMB(9	READM+8, ADMDS+6
>> XMDT	GEN+4, ICU+7
Y	GEN+4, ICU+7, ADMDS+7, SRV+1~, SRV+2, SRV+3, SRV+4, SRV+5, LSRV+1~, LSRV+2 , LDSC+1~, LDSC+2, LDX+1~*, LDX+2