Routine: DGCOL

Package	Total	Call Graph
VA Fileman	3	^DIC YN^DICN ^DIE
Registration	1	EN^DGRPD

Package	Total	Caller Graph
Registration	1	DG COLLATERAL PATIENT

Entry Points

External References

Name	Field # of Occurrence
EN^DGRPD	EN+1
^DIC	1+1
YN^DICN	ASK, H
^DIE	EN+3, ED

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: 1+0
Function Call: WRITE	Prompt: !!,"COLLATERAL VETERAN SPONSOR NAME IS UNSPECIFIED!!",*7 Line Location: EN+3
Function Call: WRITE	Prompt: !!,"APPLICANT ADDRESS DATA",?45,"SPONSOR ADDRESS DATA",!,"----------------------",?45,"--------------------" Line Location: EN+4
Function Call: WRITE	Prompt: !,$P(AD(I),"^",1),?45,$P(AD(I),"^",2) Line Location: EN+5
Function Call: WRITE	Prompt: !!,"Phone: ",$S($P(DGPHON,"^",1)]"":$P(DGPHON,"^",1),1:"UNKNOWN"),?45,"Phone: ",$S($P(DGPHON,"^",2)]"":$P(DGPHON,"^",2),1:"UNKNOWN") Line Location: EN+7
Function Call: WRITE	Prompt: !!,"SPONSOR: ",$P(^DPT(DGCOLV,0),"^",1),", ",$E($P(^(0),"^",9),1,3),"-",$E($P(^(0),"^",9),4,5),"-",$E($P(^(0),"^",9),6,10) Line Location: EN+8
Function Call: WRITE	Prompt: !!,"DO YOU WISH TO EDIT COLLATERAL INFORMATION" Line Location: ASK+0
Function Call: WRITE	Prompt: !,"ENTER 'Y'ES OR 'N'O" Line Location: ASK+0
Function Call: WRITE	Prompt: !!,"SHOULD COLLATERAL PATIENT ADDRESS DATA BE SAME AS SPONSOR'S" Line Location: H+0
Function Call: WRITE	Prompt: !!,"Y - To stuff in sponsor's address data.",!,"N - To edit collateral address data",!,"^ - To QUIT." Line Location: H+1
Function Call: WRITE	Prompt: !!,"Sponsor address data entered..." Line Location: ED+1
Function Call: WRITE	Prompt: !!,*7,"Patient is a veteran and therefore should not be classified utilizing this",!,"option. If this veteran has Other Entitled Eligibilities please insure that " Line Location: VET+0
Function Call: WRITE	Prompt: !,"the appropriate APPOINTMENT TYPE is selected at the time you make the",!,"appointment." Line Location: VET+1
Function Call: WRITE	Prompt: !!,*7,"Patient already has an eligibility code or period of service on file and",!,"therefore should not be classified using this option. If this veteran",!,"has Other Entitled Eligibilities, please insure that the" Line Location: ECPS+0
Function Call: WRITE	Prompt: " appropriate",!,"APPOINTMENT TYPE is selected at the time you make the appointment." Line Location: ECPS+1
Routine Call	DIE Line Location: EN+3 ED
Routine Call	DIC Line Location: 1+1

Name	Line Occurrences (* Changed, ! Killed)
^DIC(21 - [#21]	EN+1
^DIC(5 - [#5]	AD+3
^DIC(8 - [#8]	EN+1
^DPT - [#2]	1+2, EN+1, EN+3, EN+4, EN+6, EN+8, ED+1*

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ASK, H, H+1, Q!
AD	Q!
AD(	EN+5, AD+3*
C	EN+4, EN+5, AD+1*, AD+3, Q!
D	AD+1, AD+2, AD+3, Q!
DA	EN+3, ED, Q!
DFN	1!, 1+2*, EN, EN+1, EN+3, EN+4, EN+6, ED, ED+1, Q
DGAD	EN+4*, EN+5, Q!
DGAD1	EN+4*, EN+5, ED+1, Q!
DGADD	ED+1*, Q!
DGADED	H*, ED, Q!
DGCOLV	EN+3, EN+4, EN+6, EN+8, Q!
DGDIR	1, 1+1, 1+2, EN*, Q!
DGELG	EN+1*!, ECPS!
DGNOCOL	EN+3*, Q!
DGPHON	EN+6*, EN+7, ED+1, Q!
DGPS	EN+1*!, ECPS!
DGRPOUT	EN+2!
DGVET	1+2*, EN, Q!
DIC	1*, Q!
DIC("DR"	1*
DIC(0	1*
DIE	EN+3, ED, Q!
DLAYGO	1+1*!
DR	EN+3, ED, Q!
I	EN+5, AD, AD+1, AD+2, AD+3, Q!
I1	Q!
P	EN+5*, AD+3, Q!
X	EN+5*, AD, AD+1, AD+3, Q!
Y	1+1, 1+2, EN+3, ED, Q!*

Customize PDF page

Package: Registration

Routine: DGCOL

Information

Source Information

Call Graph

Call Graph Total: 4

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

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
1	EN+2, Q
AD	EN+5
ASK	ASK
ECPS	EN+1
ED	H
EN	EN+3
H	H+1
Q	1+1, 1+2, EN, EN+3, ASK, H+1, ED, ED+1, VET+1
VET	EN