Routine: DG1010P6

Package	Total	Call Graph
Registration	6	($$DATENP,$$POINT)^DG1010P0 (FOOTER,HEADER)^DG1010P2 (CLEANUP,PARTVII)^DG1010P7 ($$AMT,$$LYR)^DGMTSCU1 ALL^DGMTU21 TOT^DGRP9

Package	Total	Caller Graph
Registration	1	DG1010PX

Entry Points

External References

Name	Field # of Occurrence
$$DATENP^DG1010P0	SETVAR+8
$$POINT^DG1010P0	SPOUSE
FOOTER^DG1010P2	PARTVI
HEADER^DG1010P2	PARTVI+2
CLEANUP^DG1010P7	PARTVI+1
PARTVII^DG1010P7	LOOP+5
$$AMT^DGMTSCU1	LOOP+2, LOOP+3
$$LYR^DGMTSCU1	PARTVI+5
ALL^DGMTU21	PARTVI+6
TOT^DGRP9	PARTVI+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?41,"PART VI - INCOME SCREENING DATA OR ANNUAL INCOME",!,$C(13),DGLUND Line Location: PARTVI+9
Function Call: WRITE	Prompt: !,"1A. CURRENT MARITAL STATUS: ",$$POINT^DG1010P0(DGP(0),5,11) Line Location: SPOUSE+0
Function Call: WRITE	Prompt: ?56,"\| ","1B. DATE OF MARRIAGE: ",$G(DGEFFDT),!,?56,"\|",?131,$C(13),DGLUND Line Location: SPOUSE+1
Function Call: WRITE	Prompt: !,"2A. WAS PATIENT MARRIED OR SEPARATED AT THE END OF LAST CALENDAR YEAR?: ",$S((X=1):"YES",(X=0):"NO",1:"UNANSWERED"),!,DGLUND Line Location: SPOUSE+3
Function Call: WRITE	Prompt: !,"2B. NAME OF SPOUSE",?36,"\| ","2C. SEX OF SPOUSE",?56,"\| ","2D. SPOUSE'S SOCIAL SECURITY NO",?97,"\| ","2E. SPOUSE'S DATE OF BIRTH" Line Location: SPOUSE+4
Function Call: WRITE	Prompt: !?4,DGRNAM,?36,"\| ",?42,DGRSEX,?56,"\| ",?62,DGRSSN,?97,"\| ",?103,DGRDOB Line Location: SPOUSE+5
Function Call: WRITE	Prompt: ?131,$C(13),DGLUND Line Location: SPOUSE+6
Function Call: WRITE	Prompt: !!,?60,"3. DEPENDENTS",?131,$C(13),DGLUND,!,?32,"\| ",?56,"\| ",?71,"\| ",?90,"\| ",?114,"\|" Line Location: DEP+0
Function Call: WRITE	Prompt: !?5,"A. NAME",?32,"\| ","B. SOCIAL SECURITY NO",?56,"\| ","C. SEX",?71,"\| ","D. DATE OF BIRTH",?90,"\| ","E. RELATIONSHIP",?114,"\| ","F. DEPENDENT AS" Line Location: DEP+1
Function Call: WRITE	Prompt: !?32,"\| ",?56,"\| ",?71,"\| ",?90,"\| ",?114,"\| "," OF (DATE)",?131,$C(13),DGLUND Line Location: DEP+2
Function Call: WRITE	Prompt: ?131,$C(13),DGLUND Line Location: DEP+13
Function Call: WRITE	Prompt: !!,?40,"4. PREVIOUS CALENDAR YEAR (",($E(DGISDT,1,3)+1700),") INCOME INFORMATION",!,$C(13),DGLUND Line Location: INC+0
Function Call: WRITE	Prompt: !?49,"\| ",?86,"AMOUNT",?131,"",$C(13),X," ",$E(DGLUND,51,132) Line Location: INC+1
Function Call: WRITE	Prompt: !?5,"CHECK ALL APPLICABLE BOXES",?49,"\| ",?69,"\| ",?89,"\| ",?109,"\| " Line Location: INC+2
Function Call: WRITE	Prompt: !,?49,"\| ",?54,"VETERAN",?69,"\| ",?75,"SPOUSE",?89,"\| ",?94,"DEPENDENTS",?109,"\| ",?118,"TOTAL",?131,$C(13),DGLUND Line Location: INC+3
Function Call: WRITE	Prompt: !?109,"\| ",!,?11,"11. TOTAL INCOME",?109,"\| ",$J($$AMT^DGMTSCU1(DGGTOT),15),?131,$C(13),DGLUND Line Location: LOOP+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	SETVAR+6
^DG(408.11 - [#408.11]	DEP+9
^DGMT(408.22 - [#408.22]	SPOUSE+2
^DGPR(408.12 - [#408.12]	DEP+8, SETVAR+8
^DPT - [#2]	PARTVI+10

Label References

Name	Line Occurrences
GETINC	LOOP+1
SETVAR	PARTVI+16, DEP+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DFN	PARTVI+6, PARTVI+10
>> DFN1	PARTVI+4
>> DGCHECK	LOOP+2, GETINC+1, GETINC+6
>> DGCT	DEP+4*, DEP+5, DEP+6, DEP+8, DEP+10
>> DGDEF	PARTVI+14, DEP+5, SETVAR+2, SETVAR+3
>> DGDEP	DEP+3
>> DGDEPINC	LOOP+2, GETINC+2, GETINC+5
DGE	PARTVI+3!
DGEFFDT	SPOUSE+1, DEP+10, LOOP+4!, SETVAR+8*
>> DGGTOT	INC+4, LOOP+3, GETINC+6
>> DGINC	PARTVI+8
>> DGINR("V"	SPOUSE+2
DGINS	PARTVI+3!
>> DGISDT	PARTVI+5*, INC
>> DGLUND	PARTVI+9, SPOUSE+1, SPOUSE+3, SPOUSE+6, DEP, DEP+2, DEP+13, INC, INC+1, INC+3 , LOOP+2, LOOP+3
>> DGNODE	SETVAR+3*, SETVAR+4, SETVAR+5, SETVAR+6, SETVAR+7
DGOT	PARTVI+3!
DGOTHER	PARTVI+3!
>> DGP(0	PARTVI+10*, SPOUSE
>> DGPCE	LOOP*, GETINC+3, GETINC+4, GETINC+5
DGPR	PARTVI+15, DEP+6, LOOP+4!, SETVAR+8
>> DGRDOB	PARTVI+12, SPOUSE+5, DEP+10, SETVAR+1, SETVAR+6*
>> DGREL	DEP+9*, DEP+10
>> DGREL("D"	DEP+4, DEP+5, DEP+6, DEP+8
>> DGREL("S"	PARTVI+7, PARTVI+14, PARTVI+15
>> DGRNAM	PARTVI+12, SPOUSE+5, DEP+10, SETVAR+1, SETVAR+4*
>> DGRSEX	PARTVI+12, SPOUSE+5, DEP+10, SETVAR+1, SETVAR+5*
>> DGRSSN	PARTVI+12, SPOUSE+5, DEP+10, SETVAR+1, SETVAR+7*
DGSC	PARTVI+3!
DGSP	PARTVI+3!, PARTVI+7*, PARTVI+11
>> DGSPOINC	LOOP+2, GETINC+2, GETINC+4
>> DGSTOP	PARTVI+1
>> DGTOT("D"	GETINC+5
>> DGTOT("S"	GETINC+4
>> DGTOT("V"	GETINC+3
>> DGTOTINC	LOOP+2, GETINC+2, GETINC+3, GETINC+4, GETINC+5, GETINC+6
>> DGVETINC	LOOP+2, GETINC+2, GETINC+3
DGVT	PARTVI+3!
>> DGX	PARTVI+4*, PARTVI+5, PARTVI+6
DGXX	PARTVI+3!
E	PARTVI+3!
>> I	LOOP*
U	SPOUSE+2, DEP+8, DEP+9, LOOP, GETINC+3, GETINC+4, GETINC+5, SETVAR+3
>> X	SPOUSE+2, SPOUSE+3, DEP+8, DEP+9, INC+1, SETVAR+4, SETVAR+5, SETVAR+7*
>> Y	SETVAR+6*

Customize PDF page

Package: Registration

Routine: DG1010P6

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

Name	Comments	DBIA/ICR reference
INCTEXT	;
GETINC	;
DEP
PARTVI
SPOUSE
SETVAR	;
LOOP
INC