Routine: DG1010P7

Package	Total	Call Graph
Registration	4	($$DATENP,$$DISP,$$POINT,$$UNK)^DG1010P0 (FOOTER,HEADER)^DG1010P2 CLEANUP^DG1010P7 ^DG1010S1

Package	Total	Caller Graph
Registration	3	DG1010P2 DG1010P6 DG1010P7

Entry Points

Name	Comments	DBIA/ICR reference
PAGE4	;
CLEANUP	;
WARNING	;
PARTVII
REPLACE	;

External References

Name	Field # of Occurrence
$$DATENP^DG1010P0	PARTVII+6, PARTVII+11, PAGE4+5, PAGE4+7
$$DISP^DG1010P0	PARTVII+6, PARTVII+7, PARTVII+8, PARTVII+11, PAGE4+7
$$POINT^DG1010P0	PARTVII+6, PARTVII+11, PAGE4+5
$$UNK^DG1010P0	PARTVII+6, PARTVII+11
FOOTER^DG1010P2	PARTVII+15, PAGE4+21
HEADER^DG1010P2	PARTVII+17
CLEANUP^DG1010P7	PARTVII+16, PAGE4+22
^DG1010S1	PAGE4+23

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?48,"PART VII - INELIGIBLE/MISSING DATA",!,DGLUND Line Location: PARTVII+1
Function Call: WRITE	Prompt: !,"1. INELIGIBLE DATE",?32,"\| ","2. TWX SOURCE",?66,"\| ","3. TWX CITY",?98,"\| ","4. TWX STATE" Line Location: PARTVII+4
Function Call: WRITE	Prompt: !?5,$$DATENP^DG1010P0(DGP(.15),2,0,DGBLANK),?32,"\| ",?39,$$UNK^DG1010P0(DGSOURCE,0,DGBLANK),?66,"\| ",?72,$$DISP^DG1010P0(DGP("INE"),3,0,DGBLANK),?98,"\| ",?105,$$POINT^DG1010P0(DGP("INE"),4,5,1,0,DGBLANK),?131,$C(13),DGLUND Line Location: PARTVII+6
Function Call: WRITE	Prompt: !,"5. REASON: ",$$DISP^DG1010P0(DGP(.3),7,0,DGBLANK),!,DGLUND Line Location: PARTVII+7
Function Call: WRITE	Prompt: !,"6. VACO DECISION: ",$$DISP^DG1010P0(DGP("INE"),6,0,DGBLANK),!,DGLUND Line Location: PARTVII+8
Function Call: WRITE	Prompt: !,"7. MISSING DATE",?32,"\| ","8. TWX SOURCE",?66,"\| ","9. TWX CITY",?98,"\| ","10. TWX STATE" Line Location: PARTVII+10
Function Call: WRITE	Prompt: !?5,$$DATENP^DG1010P0(DGP(.15),3,0,DGBLANK),?32,"\| ",?39,$$UNK^DG1010P0(DGSOURCE,0,DGBLANK),?66,"\| ",?72,$$DISP^DG1010P0(DGP("INE"),8,0,DGBLANK),?98,"\| ",?105,$$POINT^DG1010P0(DGP("INE"),9,5,1,0,DGBLANK),?131,$C(13),DGLUND Line Location: PARTVII+11
Function Call: WRITE	Prompt: !,"11. REASON: " Line Location: PARTVII+12
Function Call: WRITE	Prompt: ?13,^(I,0) Line Location: PARTVII+13
Function Call: WRITE	Prompt: ?131,$C(13),DGLUND Line Location: PARTVII+14
Function Call: WRITE	Prompt: !,$P(($T(REPLACE+1)),";;",2),!,DGLDOUBL Line Location: PAGE4+1
Function Call: WRITE	Prompt: !,"1. ELIGIBILITY STATUS",?53,"\| ","2. STATUS DATE",?88,"\| ","3. STATUS ENTERED BY" Line Location: PAGE4+3
Function Call: WRITE	Prompt: !?4,DGSOURCE,?53,"\| ",?59,$$DATENP^DG1010P0(DGP(.361),2),?88,"\| ",?94,$$POINT^DG1010P0(DGP(.361),6,"^VA(200,"),?131,$C(13),DGLUND Line Location: PAGE4+5
Function Call: WRITE	Prompt: !,"4. VERIFICATION METHOD",?53,"\| ","5. SERVICE VERIFICATION DATE" Line Location: PAGE4+6
Function Call: WRITE	Prompt: !?4,$E($$DISP^DG1010P0(DGP(.361),5),1,48),?53,"\| ",?59,$$DATENP^DG1010P0(DGP(.32),2) Line Location: PAGE4+7
Function Call: WRITE	Prompt: Condition for execution: (J=1)&(I'>0) ?94,"UNANSWERED" Q:I'>0 Line Location: PAGE4+10
Function Call: WRITE	Prompt: !,?53,"\| ",?88,"\| " Condition for execution: (I'>0) ! S X=$G(^(I,0)) W:(I'=1) Line Location: PAGE4+10
Function Call: WRITE	Prompt: ?94,$P($G(^DIC(31,+X,0)),U,1) Line Location: PAGE4+10
Function Call: WRITE	Prompt: ?131,$C(13),DGLUND,! Line Location: PAGE4+11
Function Call: WRITE	Prompt: !,$P($T(WARNING+I),";;",2) Line Location: PAGE4+12
Function Call: WRITE	Prompt: !,DGLUND Line Location: PAGE4+13
Function Call: WRITE	Prompt: !,"SIGNATURE OF APPLICANT OR APPLICANT'S REPRESENTATIVE",?88,"\| ","DATE" Line Location: PAGE4+14
Function Call: WRITE	Prompt: !,?88,"\| " Line Location: PAGE4+15
Function Call: WRITE	Prompt: !,$E(DGLUND,1,88),"\|",$E(DGLUND,90,132) Line Location: PAGE4+16
Function Call: WRITE	Prompt: !?8,"FOR VA USE ONLY",?32,"\| ","VA FACILITY NUMBER",?65,"\| ","ADMISSION DATE",?93,"\| ","AUTHORITY FOR ADMISSION OR TREATMENT" Line Location: PAGE4+17
Function Call: WRITE	Prompt: !,?32,"\| ",?65,"\| ",?93,"\| " Line Location: PAGE4+18
Function Call: WRITE	Prompt: !,?32,"\| ",?42,$P(DGSITE,U,3),?65,"\| ",?93,"\| " Line Location: PAGE4+19
Function Call: WRITE	Prompt: !,?32,"\| ",?65,"\| ",?93,"\| " Line Location: PAGE4+20

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BL	CLEANUP+1!
>> DFN	PARTVII+3, PARTVII+13
DGAP	CLEANUP+1!
DGBLANK	PARTVII, PARTVII+6, PARTVII+7, PARTVII+8, PARTVII+11, PAGE4+2, CLEANUP+1!
DGCHECK	PARTVII+2!
DGCLK	CLEANUP+1!
DGCT	PARTVII+2!
DGD	CLEANUP+1!
DGDEF	PARTVII+2!
DGDEP	PARTVII+2!
DGDEPINC	PARTVII+2!
DGDMAX	CLEANUP+1!
DGDPC	CLEANUP+1!
DGDREL	PARTVII+2!
DGGTOT	PARTVII+2!
DGI	CLEANUP+1!
DGINC	PARTVII+2!
DGINR	PARTVII+2!
DGISDT	PARTVII+2!
DGL2	CLEANUP+1!
DGLDASH	CLEANUP+1!
DGLDOUBL	PAGE4+1, CLEANUP+1!
DGLUND	PARTVII+1, PARTVII+6, PARTVII+7, PARTVII+8, PARTVII+11, PARTVII+14, PAGE4+5, PAGE4+11, PAGE4+13, PAGE4+16 , CLEANUP+1!
DGNA	CLEANUP+1!
DGNAM	CLEANUP+1!
DGNODE	PARTVII+2!
DGNOTMAR	CLEANUP+1!
DGP	PARTVII+2!, CLEANUP+1!
DGP(	PARTVII+3*, PARTVII+6, PARTVII+7, PARTVII+11, PAGE4+4, PAGE4+5, PAGE4+7
DGP("INE"	PARTVII+5, PARTVII+6, PARTVII+8, PARTVII+9, PARTVII+11
DGPAGE	CLEANUP+1!
DGPCE	PARTVII+2!
DGRDOB	PARTVII+2!
DGREL	PARTVII+2!
DGRNAM	PARTVII+2!
DGRSEX	PARTVII+2!
DGRSSN	PARTVII+2!
DGSITE	PAGE4+19, CLEANUP+1!
DGSOURCE	PARTVII+5, PARTVII+6, PARTVII+9, PARTVII+11, PAGE4+4*, PAGE4+5, CLEANUP+1!
DGSP	PARTVII+2!
DGSPACES	CLEANUP+1!
DGSPOINC	PARTVII+2!
DGSS	CLEANUP+1!
>> DGSTOP	PARTVII+16, PAGE4+22
DGTOT	PARTVII+2!
DGTOTINC	PARTVII+2!
DGTYPE	PARTVII+2!
DGUNK	CLEANUP+1!
DGVETINC	PARTVII+2!
F	PARTVII+2!
>> FREE	PAGE4+23
>> I	PARTVII+3, PARTVII+13, PAGE4+12, PAGE4+15, PAGE4+18, PAGE4+20
INCTEXT	PARTVII+2!
N	CLEANUP+1!
NA	CLEANUP+1!
P	CLEANUP+1!
P2	CLEANUP+1!
ROOT	CLEANUP+1!
U	PARTVII+5, PARTVII+9, PAGE4+4, PAGE4+19
WARNING	CLEANUP+1!
>> X	PARTVII+5, PARTVII+9, PAGE4+4*

Customize PDF page

Package: Registration

Routine: DG1010P7

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Marked Items