Routine: DGRUUTL1

Package	Total	Call Graph
VA Fileman	4	C^%DTC ^DIC $$GET1^DIQ ^DIR
Registration	3	ENMFU^DGRUDYN $$ENGET^DGRUGMFU IN5^VADPT
Health Level Seven	1	$$HLDATE^HLFNC

Package	Total	Caller Graph
Registration	13	DGRUADT DGRUADT0 DGRUADT2 DGRUGA01 DGRUGA02 DGRUGA03 DGRUGA08 DGRUGA11 DGRUGA12 DGRUGA13 DGRUGA21 DGRUGA22 DGRUGMFU

Name	Comments	DBIA/ICR reference
QUIT
EN	;Process each division for routing
SKIP1	;
RD2
FLLTCM(DFN)	;
GETDIV(X)	;GET DIVISION FOR SPECIFIED WARD
DOCTOR(X)	;DETERMINE IF NEW PERSON A PHYSICIAN ;added 1/12/2000
CALCDT(DFN,DGMIEN)	;CALCULATE FUTURE DISCHARGE DATE
IN1(DFN)	;CREATE IN1 SEGMENT
ENTS	;USED TO REVIEW HL7 MESSAGES FOR TROUBLE SHOOTING
RBTRAN(DGRBIEN,DGRBNAM)	;
LOCEX
WARDTRAN(DGWIEN,DGWNAM)	;
CKADMIT(DFN)	;CHECH IF INTEGRATED SITE FOR ORIGINAL ADMIT DATE
PRIOR(DA)	;
LOCTRAN(DGPV1)	;TRANSLATE WARD AND ROOM-BED
NEXT(DA)	;

Name	Field # of Occurrence
C^%DTC	CALCDT+4
ENMFU^DGRUDYN	EN+4
$$ENGET^DGRUGMFU	EN+3
^DIC	ENTS+2
$$GET1^DIQ	LOCTRAN+37, WARDTRAN+3, RBTRAN+3, DOCTOR+2, CALCDT+3, GETDIV+4, CKADMIT+6, CKADMIT+8
^DIR	RD2
$$HLDATE^HLFNC	IN1+3, CALCDT+4
IN5^VADPT	LOCTRAN+34, IN1+2

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"The 'DGRU RAI EVENTS' entry in file 771 missing!" Line Location: ENTS+3
Function Call: WRITE	Prompt: !,^(ZZ,0) Line Location: PRIOR+4
Function Call: WRITE	Prompt: "...At the Top.." Line Location: PRIOR+5
Function Call: WRITE	Prompt: !,^(ZZ,0) Line Location: NEXT+4
Function Call: WRITE	Prompt: "...Bottomed out.." Line Location: NEXT+5
Routine Call	DIC Line Location: ENTS+2
Routine Call	DIR Line Location: RD2

FileNo	Call Tags
^DGPM - [#405]	GET1^DIQ
^DIC(42 - [#42]	GET1^DIQ
^DIC(7 - [#7]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DGPM - [#405]	FLLTCM+26
^DGPM("APTT1"	CKADMIT+4, CKADMIT+5, FLLTCM+9, FLLTCM+15, FLLTCM+17
^DGPM("APTT2"	FLLTCM+6, FLLTCM+21, FLLTCM+25
^DGPM("ATID2"	CALCDT+2
^DGRU(46.12	WARDTRAN+2
^DGRU(46.13	RBTRAN+2
^DPT - [#2]	FLLTCM+6
^HL(772 - [#772]	PRIOR+1, PRIOR+2, PRIOR+4, NEXT+1, NEXT+2, NEXT+4
^HLMA - [#773]	PRIOR+3, NEXT+3
^HLMA("B"	PRIOR+2, NEXT+2

Name	Line Occurrences
$$RBTRAN	SKIP1+2, SKIP1+4
$$WARDTRAN	SKIP1+1, SKIP1+3
LOCEX	LOCTRAN+5
NEXT	RD2+2
PRIOR	ENTS+5, RD2+1
QUIT	FLLTCM+4, FLLTCM+6, FLLTCM+12, FLLTCM+16, FLLTCM+24, FLLTCM+26
RD2	RD2+1, RD2+2

Name	Field # of Occurrence
^(	PRIOR+4, NEXT+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	ENTS+1~, ENTS+4, ENTS+5, RD2+1, RD2+2, PRIOR~, PRIOR+1, PRIOR+2, PRIOR+4, PRIOR+5* , NEXT~, NEXT+1, NEXT+2, NEXT+4, NEXT+5
DFN	IN1~, CALCDT~, CALCDT+2, CKADMIT~, CKADMIT+4, CKADMIT+5, FLLTCM~, FLLTCM+4, FLLTCM+6, FLLTCM+9 , FLLTCM+15, FLLTCM+17, FLLTCM+21, FLLTCM+25
DGADT	IN1+1~, IN1+3*, IN1+5
>> DGARRAY	LOCTRAN+5
DGASIH	CKADMIT+1~, CKADMIT+6*, CKADMIT+7
DGB	LOCTRAN+1~, LOCTRAN+3*, LOCTRAN+45, LOCTRAN+49, SKIP1+2
>> DGBS	LOCTRAN+14
>> DGCI	WARDTRAN+2, WARDTRAN+3, RBTRAN+2, RBTRAN+3
DGCRB	LOCTRAN+1~, LOCTRAN+9, LOCTRAN+13, LOCTRAN+17, LOCTRAN+22, LOCTRAN+25, LOCTRAN+28, LOCTRAN+31, LOCTRAN+36, LOCTRAN+41 , LOCTRAN+45, LOCTRAN+49, LOCTRAN+54, LOCTRAN+57, LOCTRAN+60, LOCTRAN+64, LOCTRAN+67, LOCTRAN+70, SKIP1+2
DGCW	LOCTRAN+1~, LOCTRAN+8, LOCTRAN+12, LOCTRAN+15, LOCTRAN+17, LOCTRAN+21, LOCTRAN+24, LOCTRAN+27, LOCTRAN+30, LOCTRAN+35* , LOCTRAN+40, LOCTRAN+44, LOCTRAN+48, LOCTRAN+53, LOCTRAN+56, LOCTRAN+59, LOCTRAN+63, LOCTRAN+66, LOCTRAN+69*, SKIP1+1
DGDIV	EN+1~, EN+3*, EN+4
DGDT	CALCDT+1~, CALCDT+4*
DGETYPE	LOCTRAN+5~*, LOCTRAN+7, LOCTRAN+11, LOCTRAN+19, LOCTRAN+33, LOCTRAN+39, LOCTRAN+43, LOCTRAN+47, LOCTRAN+51, LOCTRAN+61
DGHDT	CALCDT+1~, CALCDT+4*, CALCDT+5
>> DGHMID	PRIOR+2, NEXT+2
DGI	LOCTRAN+1~
DGINTEG	CKADMIT+1~
DGLASTA	FLLTCM+2~, FLLTCM+9*, FLLTCM+12, FLLTCM+15, FLLTCM+20
DGLASTT	FLLTCM+2~, FLLTCM+20*, FLLTCM+21
DGLOC	LOCTRAN+1~, LOCTRAN+2*, LOCTRAN+3, SKIP1+5
DGLTCA	FLLTCM+2~, FLLTCM+15*, FLLTCM+16, FLLTCM+17
DGLTCIEN	FLLTCM+2~, FLLTCM+17*, FLLTCM+24, FLLTCM+26
>> DGMESS	PRIOR+2, PRIOR+3, NEXT+2, NEXT+3
DGMIEN	LOCTRAN+37~*!, LOCTRAN+68, LOCTRAN+69, LOCTRAN+70, CALCDT~, CALCDT+2
>> DGMOVE	LOCTRAN+29
DGNDT	CKADMIT+1~, CKADMIT+2, CKADMIT+8, CKADMIT+9
>> DGNLOC	SKIP1+5*, SKIP1+6
>> DGNPLOC	SKIP1+5*, SKIP1+6
>> DGNPRB	SKIP1+4*, SKIP1+5
>> DGNPW	SKIP1+3*, SKIP1+5
>> DGNRB	SKIP1+2*, SKIP1+5
>> DGNW	SKIP1+1*, SKIP1+5
DGOIEN	CALCDT+1~, CALCDT+2*, CALCDT+3
DGOLDD	CALCDT+1~, CALCDT+3*, CALCDT+4
DGPB	LOCTRAN+1~, LOCTRAN+4, LOCTRAN+8, LOCTRAN+16, LOCTRAN+45, LOCTRAN+49*, SKIP1+4
>> DGPCN	DOCTOR+2*, DOCTOR+3
DGPL	LOCTRAN+1~
>> DGPLOC	LOCTRAN+2*, LOCTRAN+4
>> DGPM0	LOCTRAN+44, LOCTRAN+45, LOCTRAN+48, LOCTRAN+49
>> DGPMA	LOCTRAN+8, LOCTRAN+9, LOCTRAN+12, LOCTRAN+13, LOCTRAN+55, LOCTRAN+56, LOCTRAN+57, LOCTRAN+59, LOCTRAN+60
>> DGPMAN	LOCTRAN+23, LOCTRAN+24, LOCTRAN+25, LOCTRAN+58, LOCTRAN+59, LOCTRAN+60
DGPMDA	CKADMIT+1~, CKADMIT+5*, CKADMIT+6, CKADMIT+8
>> DGPMVI(5	LOCTRAN+12, LOCTRAN+26, LOCTRAN+27, LOCTRAN+40, LOCTRAN+52, LOCTRAN+53, LOCTRAN+65, LOCTRAN+66
>> DGPMVI(6	LOCTRAN+13, LOCTRAN+15, LOCTRAN+28, LOCTRAN+41, LOCTRAN+54, LOCTRAN+65, LOCTRAN+67
DGPR	LOCTRAN+1~, LOCTRAN+4, LOCTRAN+8, LOCTRAN+16, LOCTRAN+45, LOCTRAN+49*, SKIP1+4
DGPRB	LOCTRAN+1~, LOCTRAN+9, LOCTRAN+13, LOCTRAN+17, LOCTRAN+22, LOCTRAN+25, LOCTRAN+28, LOCTRAN+31, LOCTRAN+36, LOCTRAN+37* , LOCTRAN+41, LOCTRAN+45, LOCTRAN+49, LOCTRAN+54, LOCTRAN+57, LOCTRAN+60, LOCTRAN+64, LOCTRAN+67, LOCTRAN+70*, SKIP1+4
>> DGPRBN	LOCTRAN+15*, LOCTRAN+16
DGPV1	LOCTRAN~, LOCTRAN+2, SKIP1+6*, LOCEX
DGPW	LOCTRAN+1~, LOCTRAN+8, LOCTRAN+12, LOCTRAN+15, LOCTRAN+17, LOCTRAN+21, LOCTRAN+24, LOCTRAN+27, LOCTRAN+30, LOCTRAN+35* , LOCTRAN+40, LOCTRAN+44, LOCTRAN+48, LOCTRAN+53, LOCTRAN+56, LOCTRAN+59, LOCTRAN+63, LOCTRAN+66, LOCTRAN+69*, SKIP1+3
>> DGPWN	LOCTRAN+4, LOCTRAN+8, LOCTRAN+15, LOCTRAN+44, LOCTRAN+48*, SKIP1+3
DGQ	CKADMIT+1~, CKADMIT+3, CKADMIT+4, CKADMIT+8
DGR	LOCTRAN+1~, LOCTRAN+3*, LOCTRAN+45, LOCTRAN+49, SKIP1+2
>> DGRB	RBTRAN+3*, RBTRAN+4
DGRBIEN	RBTRAN~, RBTRAN+1, RBTRAN+2
DGRBNAM	RBTRAN~, RBTRAN+1, RBTRAN+2
DGRDIV	EN+1~
DGREC	IN1+1~, IN1+4, IN1+5, IN1+6
>> DGRU(17	LOCTRAN+30, LOCTRAN+31
DGTIEN	FLLTCM+2~, FLLTCM+3, FLLTCM+6, FLLTCM+21, FLLTCM+24, FLLTCM+25, FLLTCM+26, QUIT
>> DGTNW	WARDTRAN+3*, WARDTRAN+4
DGW	LOCTRAN+1~, LOCTRAN+3*, LOCTRAN+15, LOCTRAN+44, LOCTRAN+48, SKIP1+1
DGWIEN	WARDTRAN~, WARDTRAN+1, WARDTRAN+2
DGWNAM	WARDTRAN~, WARDTRAN+1, WARDTRAN+2
>> DGXFR0	LOCTRAN+20, LOCTRAN+21, LOCTRAN+22
DGZDT	CKADMIT+1~, CKADMIT+2, CKADMIT+4, CKADMIT+5
DIC	ENTS+2~*
DIC(0	ENTS+2*
DIR	RD2!
DIR("A"	RD2*
DIR(0	RD2*
>> HL("ECH"	LOCTRAN+3, LOCTRAN+4, SKIP1+5
>> HL("FS"	LOCTRAN+2, LOCTRAN+5, SKIP1+6, IN1+4, IN1+5
HLL	EN+2!
>> HLQ	WARDTRAN+1, RBTRAN+1
>> TRSNODE	LOCTRAN+62, LOCTRAN+63, LOCTRAN+64
>> VAFH(2	LOCTRAN+68, LOCTRAN+69, LOCTRAN+70
VAIP	LOCTRAN+34~, IN1+1~
VAIP(13	IN1+3
VAIP(15	LOCTRAN+35, LOCTRAN+37
VAIP(5	LOCTRAN+35
VAIP(6	LOCTRAN+36
X	DOCTOR~, DOCTOR+2, CALCDT+4, ENTS+1~, ENTS+2, RD2+1, RD2+2, GETDIV~, GETDIV+3, GETDIV+4 , GETDIV+5
>> X1	CALCDT+4*
>> X2	CALCDT+4*
Y	ENTS+2~, ENTS+3
>> Z	CALCDT+2*
ZX	ENTS+1~, ENTS+2*, PRIOR+1, NEXT+1
ZZ	ENTS+1~, PRIOR+4, NEXT+4

Customize PDF page

Package: Registration

Routine: DGRUUTL1

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 13

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: