Routine: DGRPD1

Package	Total	Call Graph
Kernel	2	^%ZIS $$FMTE^XLFDT
Registration	2	$$GET^DGENCDA (KVAR,OAD)^VADPT
VA Fileman	2	$$GET1^DIQ ^DIR

Package	Total	Caller Graph
Registration	1	DGRPD

Entry Points

Name	Comments	DBIA/ICR reference
OKLINE(DGLINE)	;DOES PAUSE/HEADER IF $Y EXCEEDS DGLINE
CATDIS	;
EC	;display emergency contact information
HDR

External References

Name	Field # of Occurrence
^%ZIS	HDR
$$GET^DGENCDA	CATDIS+4
$$GET1^DIQ	EC+25, EC+31
^DIR	OKLINE+7
KVAR^VADPT	EC+38
OAD^VADPT	EC+3, EC+4
$$FMTE^XLFDT	CATDIS+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Emergency Contact Information:" Line Location: EC+6
Function Call: WRITE	Prompt: !?5,"E-Cont.: ",DGEC1(9) Line Location: EC+8
Function Call: WRITE	Prompt: ?40,"E2-Cont.: ",DGEC2(9) Line Location: EC+9
Function Call: WRITE	Prompt: !,"Relationship: ",DGEC1(10) Line Location: EC+10
Function Call: WRITE	Prompt: ?36,"Relationship: ",DGEC2(10) Line Location: EC+11
Function Call: WRITE	Prompt: !?14,DGEC1(1) Line Location: EC+13
Function Call: WRITE	Prompt: ! Line Location: EC+14
Function Call: WRITE	Prompt: ?50,DGEC2(1) Line Location: EC+15
Function Call: WRITE	Prompt: !?14,DGEC1(2) Line Location: EC+16
Function Call: WRITE	Prompt: ! Line Location: EC+17
Function Call: WRITE	Prompt: ?50,DGEC2(2) Line Location: EC+18
Function Call: WRITE	Prompt: !?14,DGEC1(3) Line Location: EC+19
Function Call: WRITE	Prompt: ! Line Location: EC+20
Function Call: WRITE	Prompt: ?50,DGEC2(3) Line Location: EC+21
Function Call: WRITE	Prompt: !?14,DGEC1(4) Line Location: EC+24
Function Call: WRITE	Prompt: ", "_$$GET1^DIQ(5,+DGEC1(5),1) Line Location: EC+25
Function Call: WRITE	Prompt: " ",$P(DGEC1(11),"^",2) Line Location: EC+26
Function Call: WRITE	Prompt: ! Line Location: EC+29
Function Call: WRITE	Prompt: ?50,DGEC2(4) Line Location: EC+30
Function Call: WRITE	Prompt: ", "_$$GET1^DIQ(5,+DGEC2(5),1) Line Location: EC+31
Function Call: WRITE	Prompt: " ",$P(DGEC2(11),"^",2) Line Location: EC+32
Function Call: WRITE	Prompt: !,?7,"Phone: ",$S(DGEC1(8)]"":DGEC1(8),1:"UNSPECIFIED") Line Location: EC+34
Function Call: WRITE	Prompt: ?43,"Phone: ",$S(DGEC2(8)]"":DGEC2(8),1:"UNSPECIFIED") Line Location: EC+35
Function Call: WRITE	Prompt: !?2,"Work Phone: ",$S($P(^DPT(DFN,.33),U,11)]"":$P(^DPT(DFN,.33),U,11),1:"UNSPECIFIED") Line Location: EC+36
Function Call: WRITE	Prompt: ?38,"Work Phone: ",$S($P(^DPT(DFN,.331),U,11)]"":$P(^DPT(DFN,.331),U,11),1:"UNSPECIFIED") Line Location: EC+37
Function Call: WRITE	Prompt: @IOF,!,$P(VADM(1),"^",1),?40,$P(VADM(2),"^",2),?65,$P(VADM(3),"^",2) Line Location: HDR+2
Function Call: WRITE	Prompt: !,X,!?15,"COORDINATING MASTER OF RECORD: ",DGCMOR,! Line Location: HDR+2
Routine Call	DIR Line Location: OKLINE+7
Routine Call	%ZIS Line Location: HDR

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DFN	EC+2, EC+36, EC+37, CATDIS+3, CATDIS+4
DGCDIS	CATDIS+2~, CATDIS+4
DGCDIS("REVDTE"	CATDIS+5, CATDIS+6
>> DGCMOR	HDR+2
DGEC1	EC+1~
DGEC1(1	EC+13, EC+14
DGEC1(10	EC+10
DGEC1(11	EC+26
DGEC1(2	EC+16, EC+17
DGEC1(3	EC+19, EC+20
DGEC1(4	EC+23, EC+24, EC+29
DGEC1(5	EC+25
DGEC1(8	EC+34
DGEC1(9	EC+5, EC+8
DGEC2	EC+1~
DGEC2(1	EC+14, EC+15
DGEC2(10	EC+11
DGEC2(11	EC+32
DGEC2(2	EC+17, EC+18
DGEC2(3	EC+20, EC+21
DGEC2(4	EC+28, EC+30
DGEC2(5	EC+31
DGEC2(8	EC+35
DGEC2(9	EC+9, EC+11, EC+35, EC+37
DGLINE	OKLINE~, OKLINE+6, OKLINE+7*, OKLINE+8
>> DGRPOUT	OKLINE+7*
DIR	OKLINE+7~
DIR(0	OKLINE+7*
IOF	HDR, HDR+2
IOP	HDR*!
IOST	OKLINE+6
U	EC+36, EC+37
>> VADM(1	HDR+2
>> VADM(2	HDR+2
>> VADM(3	HDR+2
>> VAOA("A"	EC+3, EC+4
>> VAROOT	EC+3, EC+4
X	HDR+2*, OKLINE+5~
Y	OKLINE+5~, OKLINE+7

Customize PDF page

Package: Registration

Routine: DGRPD1

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: