Routine: DG1010P5

Package	Total	Call Graph
Registration	2	($$DISP,$$POINT,$$UNK)^DG1010P0 Q11PTV^DG1010PX

Package	Total	Caller Graph
Registration	2	DG1010P4 DGRPTP1

Entry Points

Name	Comments	DBIA/ICR reference
SCCOND	;
ELIG(X)	; ; Ext Val of Elig
YN2(N,P)	; ; Ext Val of YES/NO given node & piece.
PARTV	;
GI
INSINFO	;

External References

Name	Field # of Occurrence
$$DISP^DG1010P0	SCCOND+2, SCCOND+11, SCCOND+12
$$POINT^DG1010P0	PARTV+2, GI+5, SCCOND+12
$$UNK^DG1010P0	ELIG+6
Q11PTV^DG1010PX	SCCOND+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?50,"PART V - ELIGIBILITY STATUS DATA",!,DGLUND Line Location: PARTV+1
Function Call: WRITE	Prompt: !,"1. PATIENT TYPE: ",$$POINT^DG1010P0(DGP("TYPE"),1,"^DG(391,"),!,DGLUND Line Location: PARTV+2
Function Call: WRITE	Prompt: !,"2. IS NEED FOR MEDICAL CARE RELATED TO AN",?44,"\| ","3. IS THE NEED FOR MEDICAL CARE RELATED",?89,"\| ","4. IS PATIENT ELIGIBLE FOR MEDICAID:" Line Location: PARTV+3
Function Call: WRITE	Prompt: !," ON THE JOB INJURY: ",$$YN2(DGP("DIS2"),1),?44,"\| ",?50,"TO AN ACCIDENT: ",$$YN2(DGP("DIS2"),4),?89,"\| ",?95,$$YN2(DGP(.38),1),?131,$C(13),DGLUND Line Location: PARTV+4
Function Call: WRITE	Prompt: !,"5A. DOES PATIENT HAVE HEALTH INSURANCE",?44,"\| ","5B. IF YES, COVERAGE PROVIDED BY:" Line Location: PARTV+5
Function Call: WRITE	Prompt: !?4,"COVERAGE: ",$$YN2(DGP(.31),11),?44,"\| ",?50 Line Location: PARTV+6
Function Call: WRITE	Prompt: "NOT APPLICABLE" Line Location: PARTV+7
Function Call: WRITE	Prompt: "NO ACTIVE (UNEXPIRED) INSURANCE ON FILE FOR THIS APPLICANT" Line Location: INSINFO+8
Function Call: WRITE	Prompt: DGVT_$S((DGVT'="")&((DGSP_DGOT)'=""):" & ",1:"")_DGSP_$S((DGOT'="")&((DGVT_DGSP)'=""):" & ",1:"")_DGOT Line Location: INSINFO+9
Function Call: WRITE	Prompt: ?131,$C(13),DGLUND Line Location: GI+0
Function Call: WRITE	Prompt: !,"6. DOES VETERAN HAVE GI",?31,"\| ","7. PRIMARY ELIGIBILITY CODE",?65,"\| ","8. OTHER ELIGIBILITY CODE",?98,"\| ","9. PERIOD OF SERVICE" Line Location: GI+1
Function Call: WRITE	Prompt: !?4,"INSURANCE: ",$$YN2(DGP(.362),17),?31,"\| ",?36,$$ELIG($P(DGP(.36),U,1)),?65,"\| ",?70 Line Location: GI+2
Function Call: WRITE	Prompt: $$ELIG(DGOTHER),?98,"\| ",?103,$$POINT^DG1010P0(DGP(.32),3,21,1,0,1) Line Location: GI+5
Function Call: WRITE	Prompt: ?131,$C(13),DGLUND Line Location: GI+10
Function Call: WRITE	Prompt: ?59,$P(^(E,0),U,1)," (",$P(^(0),U,2),"%)" Line Location: SCCOND+5
Function Call: WRITE	Prompt: !,?59,$P(^(E,0),U,1)," (",$P(^(0),U,2),"%)" Line Location: SCCOND+6
Function Call: WRITE	Prompt: !,"10. SERVICE CONNECTED CONDITIONS: "_$S((DGSC="NA"):"NOT APPLICABLE: NOT A SERVICE-CONNECTED APPLICANT",1:"UNANSWERED"),! Line Location: SCCOND+15
Function Call: WRITE	Prompt: ?131,$C(13),DGLUND Line Location: SCCOND+16

Name	Line Occurrences (* Changed, ! Killed)
^DIC(8 - [#8]	ELIG+6
^DPT - [#2]	INSINFO+2, INSINFO+3, GI+3, GI+7, SCCOND+2, SCCOND+5, SCCOND+6, SCCOND+10

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DFN	INSINFO+2, INSINFO+3, GI+3, GI+7, SCCOND+2, SCCOND+5, SCCOND+6, SCCOND+10
>> DFN1	INSINFO+4
>> DGD	GI+7*, GI+9
>> DGE	GI+3, GI+4, ELIG+5*
DGFL	SCCOND+9, SCCOND+13, SCCOND+14!
>> DGI	INSINFO+3*, INSINFO+4, INSINFO+5, INSINFO+6, INSINFO+7
>> DGINS	INSINFO+2*, INSINFO+3
>> DGLUND	PARTV+1, PARTV+2, PARTV+4, GI, GI+10, SCCOND+16
>> DGOT	INSINFO+1, INSINFO+7, INSINFO+8, INSINFO+9
>> DGOTHER	GI+3, GI+5, GI+6, GI+7, GI+8
>> DGP(	PARTV+4, PARTV+6, GI+2, GI+5, SCCOND+2, SCCOND+10*, SCCOND+11, SCCOND+12
>> DGP("DIS2"	PARTV+4
>> DGP("TYPE"	PARTV+2
>> DGSC	SCCOND+2*, SCCOND+3, SCCOND+7, SCCOND+15
>> DGSP	INSINFO+1, INSINFO+6, INSINFO+8, INSINFO+9
>> DGUNK	GI+6, GI+8
>> DGVT	INSINFO+1, INSINFO+5, INSINFO+8, INSINFO+9
>> DGX	GI+4*, GI+8
>> E	SCCOND+5, SCCOND+6, SCCOND+10*
N	YN2~, YN2+5
P	YN2~, YN2+5
U	INSINFO+4, INSINFO+5, INSINFO+6, INSINFO+7, GI+2, SCCOND+2, SCCOND+5, SCCOND+6, ELIG+6
X	PARTV+7, YN2+5*, YN2+6, ELIG~, ELIG+5, ELIG+6

Customize PDF page

Package: Registration

Routine: DG1010P5

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: