Routine: DGRUASIH

Package	Total	Call Graph
VA Fileman	5	(C,NOW)^%DTC ^DIC FILE^DICN ^DIE ^DIK
Health Level Seven	2	INIT^HLFNC2 GENERATE^HLMA
Registration	2	EN^DGRUGA03 IN5^VADPT

Package

Total

Call Graph

VA Fileman

(C,NOW)^%DTC ^DIC FILE^DICN ^DIE ^DIK

Health Level Seven

INIT^HLFNC2 GENERATE^HLMA

Registration

EN^DGRUGA03 IN5^VADPT

Package	Total	Caller Graph
Registration	4	DGRU ASIH BACKGROUND JOB DGRUADT DGRUADT0 DGRUADT2

Package

Total

Caller Graph

Registration

DGRU ASIH BACKGROUND JOB DGRUADT DGRUADT0 DGRUADT2

Entry Points

Name	Comments	DBIA/ICR reference
EN	;Main Entry Point
SENDMSG(DGARRAY)	;TRANSMIT HL7 MESSAGE
CHANGDT(DFN,DGODT,DGNDT)	;CHANGE TO ASIH DATE/TIME
DELASIH(DFN,DGASIHDT)	;DELETE ASIH EPISODE
ADDRDT(DFN,DGASIHDT)	;ADD RETURN DATE FROM ASIH
MQUIT
BLDA03(DFN,DGEVDT,DGPMDT)	;BUILD A03 DISCHARGE MESSAGE
ADDASIH(DFN,DGASIHDT)	;ADD AN ASIH FOR A PATIENT
BLDQ
UPSTAT(DFN,DGIEN,DGSTAT)	;

Name	Field # of Occurrence
C^%DTC	EN+11
NOW^%DTC	EN+5
EN^DGRUGA03	BLDA03+8
^DIC	ADDASIH+5
FILE^DICN	ADDASIH+4
^DIE	UPSTAT+4, ADDRDT+5, CHANGDT+3
^DIK	DELASIH+4
INIT^HLFNC2	BLDA03+3
GENERATE^HLMA	SENDMSG+4
IN5^VADPT	BLDA03+6

Name	Line Occurrences (* Changed, ! Killed)
^DGRU(46.14	EN+2, EN+7, EN+8, EN+9, EN+10, ADDASIH+3, ADDRDT+3, DELASIH+3, CHANGDT+2

Name	Line Occurrences
$$BLDA03	EN+13
$$SENDMSG	BLDA03+17
BLDQ	BLDA03+4, BLDA03+9, BLDA03+13
UPSTAT	EN+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN+5
DA	UPSTAT+4, ADDRDT+2~, ADDRDT+3, DELASIH+2~, DELASIH+3, CHANGDT+1~, CHANGDT+2
DA(1	UPSTAT+4, ADDASIH+5, ADDRDT+5, DELASIH+3, CHANGDT+2*
DFN	EN+4~, EN+8*, EN+9, EN+10, EN+13, EN+14, UPSTAT~, UPSTAT+4, BLDA03~, BLDA03+8 , ADDASIH~, ADDASIH+3, ADDASIH+4, ADDASIH+5, ADDRDT~, ADDRDT+3, ADDRDT+5, DELASIH~, DELASIH+3, DELASIH+4 , CHANGDT~, CHANGDT+2, CHANGDT+3
DGARRAY	SENDMSG~, SENDMSG+2
DGASIH	BLDA03+8~*
DGASIHDT	EN+4~, EN+10*, EN+11, EN+12, ADDASIH~, ADDASIH+5, ADDRDT~, DELASIH~, DELASIH+3
DGCDT	EN+4~, EN+5*, EN+7
DGDT	EN+4~, EN+6, EN+7, EN+8, EN+9
DGEVDT	EN+11*, EN+13, BLDA03~
DGIEN	EN+4~, EN+9*, EN+10, EN+14, UPSTAT~, UPSTAT+4
>> DGMIEN	BLDA03+6*, BLDA03+8
DGNDT	CHANGDT~
DGODT	CHANGDT~, CHANGDT+2
DGPMDT	EN+12*, EN+13, BLDA03~, BLDA03+6
>> DGREF	BLDA03+1*, BLDA03+2, BLDA03+16, BLDA03+17
>> DGRSLT	EN+13*
DGSTAT	UPSTAT~, ADDASIH+2~, ADDRDT+2~
>> DGTEMP	BLDA03+16
>> DGTEMP(	BLDA03+13, BLDA03+14
>> DGTEMP(0	BLDA03+9
DIC	UPSTAT+4, ADDASIH+2~, ADDASIH+4, ADDASIH+5, ADDRDT+4~, ADDRDT+5, DELASIH+2~
DIC("DR"	ADDASIH+5*
DIC(0	ADDASIH+4, ADDASIH+5
DIE	UPSTAT+4, ADDRDT+4~, ADDRDT+5, CHANGDT+1~, CHANGDT+3*
DIK	DELASIH+2~, DELASIH+4*
DINUM	ADDASIH+2~, ADDASIH+4*
DR	UPSTAT+4, ADDASIH+2~, ADDRDT+4~, ADDRDT+5, CHANGDT+1~, CHANGDT+3*
HERR	SENDMSG+5!
>> HL	BLDA03+3
>> HL(""	BLDA03+4
HLA	SENDMSG+1~, SENDMSG+5!
HLA("HLS"	SENDMSG+2*, SENDMSG+3
HLRST	SENDMSG+1~, SENDMSG+4, SENDMSG+6
I	BLDA03+12~, BLDA03+13, BLDA03+14
>> RESULT	BLDA03+4, BLDA03+9, BLDA03+13, BLDA03+14, BLDA03+17, BLDA03+18*, BLDQ
>> VAIP("D"	BLDA03+6*
>> VAIP(1	BLDA03+6
X	EN+11, ADDASIH+2~, ADDASIH+4, ADDASIH+5
>> X1	EN+11*
>> X2	EN+11*

Customize PDF page

Package: Registration

Routine: DGRUASIH

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: