Routine: DGRUADT

Information

DGRUADT ;ALB/SCK - MAIN DRIVER FOR RAI/MDS ADT MESSAGING; 7-8-99 ; 29 Aug 2006 9:07 AM

Source Information

Source file <DGRUADT.m>

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Registration	8	(CN40,MV1238,MV4,MV40,MV41)^DGRUADT0 BLDMSG^DGRUADT1 EDITADT^DGRUADT2 (DELASIH,UPSTAT)^DGRUASIH $$CHKWARD^DGRUUTL $$GETDIV^DGRUUTL1 (IN5,INP)^VADPT $$SEND^VAFHUTL
Health Level Seven	1	KILL^HLTRANS
Kernel	1	^%ZTLOAD
VA Fileman	1	$$GET1^DIQ

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Registration	1	DGRUADT2

Entry Points

Name	Comments	DBIA/ICR reference
MOVETYPE(NODE)	;
EN	; Main entry point for generating an HL7 ADT message to the COTS system ; The message builder is tasked off to taskManager to build and transmit ; the ADT message to the vendor. ; Input: ; DGPMP - 0 node of the primary movement BEFORE the ADT action ; DGPMA - 0 node of the primary movement AFTER the ADT action ; DFN - Ien of the patient in the PATIENT File (#2) ; DGPMDA - Ien of the movement ; DGQUIET - Flag to suppress read/writes if set ; DGADT - Data array for processing ADT events ; DGTRACE - Debugging parameter ; DGPDIV - Division for prior Ward ; DGCDIV - Division for current Ward ; DGINTEG - Integration Database flag ; 0 - Not Integrated Site ; 1 - Integrated, Single Database ; 2 - Integrated, Multiple Databases ; DGPMVI - Array where results from call to IN5^VADPT returned
INIT	;
EXIT	;
EVENT	;
SETVAR(NODE)	;
EVENTQ

External References

Name	Field # of Occurrence
^%ZTLOAD	EN+36
CN40^DGRUADT0	EVENT+82
MV1238^DGRUADT0	EVENT+42
MV4^DGRUADT0	EVENT+67
MV40^DGRUADT0	EVENT+53
MV41^DGRUADT0	EVENT+35, EVENT+56
BLDMSG^DGRUADT1	EVENT+21, EVENT+27, EVENT+45, EVENT+60, EVENT+65, EVENT+85, EVENT+105, EVENT+111, EVENT+136, EVENT+137 , EVENT+139, EVENT+143, EVENT+146
EDITADT^DGRUADT2	EVENT+71
DELASIH^DGRUASIH	EVENT+140
UPSTAT^DGRUASIH	EVENT+108
$$CHKWARD^DGRUUTL	EVENT+19, EVENT+26, EVENT+44, EVENT+59, EVENT+64, EVENT+83, EVENT+100, EVENT+110, EVENT+134, EVENT+142 , EVENT+145
$$GETDIV^DGRUUTL1	EVENT+125, EVENT+128
$$GET1^DIQ	EVENT+99, EVENT+131
KILL^HLTRANS	EXIT+2
IN5^VADPT	EVENT+39, EVENT+91, EVENT+119
INP^VADPT	EVENT+17
$$SEND^VAFHUTL	EN+22

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Executing HL7 ADT Messaging (RAI/MDS)" Line Location: EN+27
Function Call: WRITE	Prompt: !,"Unable to determine wards for transfer cancellation" Line Location: EVENT+122

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DGPM - [#405]	GET1^DIQ
^DG(43 - [#43]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGPM("APRD"	EVENT+97, EVENT+98
^DGPM("APTT3"	EVENT+101
^DGRU(46.14	EVENT+107
^TMP("DGRUADT1"	EN+28
^TMP("HLS"	EXIT+3!
^UTILITY("DGPM"	EN+24

Label References

Name	Line Occurrences
$$MOVETYPE	EVENT+32, EVENT+50, EVENT+76
EVENT	INIT+1
EVENTQ	EVENT+9, EVENT+71, EVENT+74
EXIT	EN+29, INIT+1
INIT	EN+30
SETVAR	EVENT+10, EVENT+75

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DFN	EVENT+21, EVENT+27, EVENT+35, EVENT+42, EVENT+45, EVENT+53, EVENT+56, EVENT+60, EVENT+65, EVENT+67 , EVENT+82, EVENT+85, EVENT+97, EVENT+98, EVENT+101, EVENT+105, EVENT+107, EVENT+108, EVENT+111, EVENT+136 , EVENT+137, EVENT+139, EVENT+140, EVENT+143, EVENT+146
DGADMSN	EVENT+1~, SETVAR+1*
DGASIH	EVENT+42~, EVENT+94~, EVENT+104*
>> DGCDIV	EVENT+128*, EVENT+135
DGEVENT	EVENT+1~, EVENT+24, EVENT+30, EVENT+48, EVENT+79, EVENT+88, EVENT+114
DGIEN	EVENT+106~, EVENT+107*, EVENT+108
>> DGINTEG	EVENT+131*, EVENT+135
DGLDDAT	EVENT+101~*, EVENT+102, EVENT+103!
DGMOVE	EVENT+1~, EVENT+32, EVENT+35, EVENT+50, EVENT+53, EVENT+56, EVENT+58, EVENT+63, EVENT+67, EVENT+76* , EVENT+82, EVENT+140
>> DGNOW	EVENT+102
DGOIEN	EVENT+95~, EVENT+98*, EVENT+99, EVENT+105
DGOMDT	EVENT+95~, EVENT+96, EVENT+97, EVENT+98
DGOWARD	EVENT+95~, EVENT+99*, EVENT+100, EVENT+105
>> DGPDIV	EVENT+125*, EVENT+135
>> DGPMA	EVENT+4, EVENT+9, EVENT+10, EVENT+16, EVENT+21, EVENT+26, EVENT+27, EVENT+32, EVENT+45, EVENT+50 , EVENT+59, EVENT+60, EVENT+64, EVENT+65, EVENT+67, EVENT+71, EVENT+74
>> DGPMAN	EVENT+42, EVENT+94, EVENT+96, EVENT+102, EVENT+107
>> DGPMDA	EVENT+21, EVENT+27, EVENT+45, EVENT+60, EVENT+65, EVENT+85, EVENT+111, EVENT+136, EVENT+137, EVENT+139 , EVENT+143, EVENT+146
>> DGPMP	EVENT+4, EVENT+9, EVENT+71, EVENT+74, EVENT+75, EVENT+76, EVENT+83, EVENT+85, EVENT+105, EVENT+111 , EVENT+117, EVENT+136, EVENT+137, EVENT+139, EVENT+143, EVENT+146
>> DGPMVI(5	EVENT+19, EVENT+21
>> DGQUIET	EN+26
DGSTAT	EVENT+106~*, EVENT+108
DGTRACE	EN+19~, EN+28*, EN+29, EVENT+20, EVENT+25, EVENT+31, EVENT+49, EVENT+80, EVENT+89, EVENT+115
DGTYPE	EVENT+1~, EVENT+14, EVENT+24, EVENT+30, EVENT+48, EVENT+79, EVENT+88, EVENT+114, SETVAR+1*
DGWARD	EVENT+93~, EVENT+109, EVENT+110, EVENT+111
DGWARDA	EVENT+116~, EVENT+120*, EVENT+121, EVENT+128, EVENT+134, EVENT+137, EVENT+142, EVENT+145
DGWARDP	EVENT+116~, EVENT+117*, EVENT+121, EVENT+125, EVENT+134, EVENT+136, EVENT+139, EVENT+142, EVENT+143, EVENT+145 , EVENT+146
NODE	SETVAR~, SETVAR+1, MOVETYPE~, MOVETYPE+2
TYPE	MOVETYPE+1~, MOVETYPE+2*, MOVETYPE+3
VAFH	EN+19~, EN+24*
VAFHDT	EVENT+1~, EVENT+140, SETVAR+1*
VAIN	EVENT+15~
VAINDT	EVENT+15~, EVENT+16*
VAIP	EVENT+1~, EVENT+38~, EVENT+116~, EVENT+118~
VAIP("D"	EVENT+38, EVENT+90, EVENT+118*
VAIP("M"	EVENT+90, EVENT+118
VAIP(14	EVENT+93
VAIP(17	EVENT+44, EVENT+45
VAIP(5	EVENT+109, EVENT+120
X	EN+32~, EN+34*
ZTDESC	EN+32~, EN+33*
ZTDTH	EN+32~, EN+35*
ZTIO	EN+32~, EN+35*
ZTQUEUED	EN+32~, EXIT+1
ZTREQ	EN+32~, EXIT+1*
ZTRTN	EN+32~, EN+33*
ZTSAVE	EN+32~
ZTSAVE(	EN+34*

Customize PDF page

Package: Registration

Routine: DGRUADT

Call Graph Total: 11

Caller Graph Total: 1