Routine: DGMTP1

Package	Total	Call Graph
Registration	3	EN^DGMTP2 ($$AMT,$$UL,$$YN)^DGMTSCU1 ($$NAME,$$SSN)^DGMTU1

Package	Total	Caller Graph
Registration	1	DGMTP

Entry Points

Name	Comments	DBIA/ICR reference
CHILDQ
MAR	;Print marital status
DEP	;Print dependent children
Q
EN	;Entry point to print demograpic, marital status and dependents
DEM	;Print demographic portion of form
CHILD	;Print data collected for a dependent child

External References

Name	Field # of Occurrence
EN^DGMTP2	EN+1
$$AMT^DGMTSCU1	MAR+6
$$UL^DGMTSCU1	MAR+1, DEP+1, DEP+5, DEP+9, CHILD+3
$$YN^DGMTSCU1	MAR+4, MAR+5, DEP+4, CHILD+4, CHILD+5, CHILD+6, CHILD+7, CHILD+8
$$NAME^DGMTU1	DEM+3, CHILD+3
$$SSN^DGMTU1	DEM+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,?116,"VA FORM 10-10F",!,DGLNE,!,"DEPARTMENT OF VETERANS AFFAIRS",?111,"FINANCIAL WORKSHEET",!,DGLNE Line Location: DEM+1
Function Call: WRITE	Prompt: !?30,"THE LAW PROVIDES SEVERE PENALTIES FOR WILLFUL SUBMISSION OF FALSE INFORMATION",!?39,"SEE PAGE 3 FOR PRIVACY ACT AND PAPERWORK REDUCTION ACT INFORMATION",!,DGLNE Line Location: DEM+2
Function Call: WRITE	Prompt: !?1,"Applicant's Name: ",$$NAME^DGMTU1(DGVPRI),?72,"\| Social Security Number: ",$$SSN^DGMTU1(DGVPRI) Line Location: DEM+3
Function Call: WRITE	Prompt: !,DGLNE,!!?61,"A. Marital Status",$$UL^DGMTSCU1(DGUL,DGLNE1) Line Location: MAR+1
Function Call: WRITE	Prompt: !?1,"1. Were you married last calendar year.",?41,"\| 2. Did you live with your spouse",?78,"\| 3. If you did not live with your spouse, show the" Line Location: MAR+2
Function Call: WRITE	Prompt: !?4,"(If ""NO"", go to Section B).",?41,"\| last calendar year. (If ""YES"", go",?78,"\| amount you contributed to your spouse's support" Line Location: MAR+3
Function Call: WRITE	Prompt: !?6,$$YN^DGMTSCU1($P(DGVIR0,"^",5)) Line Location: MAR+4
Function Call: WRITE	Prompt: ?41,"\| to Section B). ",$S($P(DGVIR0,"^",5)=0:"NOT APPLICABLE",1:$$YN^DGMTSCU1($P(DGVIR0,"^",6))) Line Location: MAR+5
Function Call: WRITE	Prompt: ?78,"\| last calendar year ",$S($P(DGVIR0,"^",5)=0!($P(DGVIR0,"^",6)):"NOT APPLICABLE",1:$$AMT^DGMTSCU1($P(DGVIR0,"^",7))) Line Location: MAR+6
Function Call: WRITE	Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!!?60,"B. Dependent Children",$$UL^DGMTSCU1(DGUL,DGLNE1) Line Location: DEP+1
Function Call: WRITE	Prompt: !?2,"During last calendar year, did you have any UNMARRIED children or stepchildren who are under the age of 18 or between the ages" Line Location: DEP+2
Function Call: WRITE	Prompt: !?2,"of 18 and 23 and attending school? OR did you have any unmarried children over the age of 17 who became permanently incapable" Line Location: DEP+3
Function Call: WRITE	Prompt: !?2,"of self-support before reaching the age of 18? ",$$YN^DGMTSCU1($P(DGVIR0,"^",8))," (If ""NO"", go to Section C)" Line Location: DEP+4
Function Call: WRITE	Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?6,"Child's Name",?30,"\| Permanently",?50,"\| Did the child",?72,"\| Did you contribute",?93,"\| Did the",?109,"\| Was the child's" Line Location: DEP+5
Function Call: WRITE	Prompt: !?30,"\| incapable of",?50,"\| live with you",?72,"\| to the child's",?93,"\| child have",?109,"\| income available" Line Location: DEP+6
Function Call: WRITE	Prompt: !?30,"\| self-support",?50,"\|",?72,"\| support?",?93,"\| any income?",?109,"\| to you?" Line Location: DEP+7
Function Call: WRITE	Prompt: !?6," (1)",?30,"\| (2)",?50,"\| (3)",?72,"\| (4)",?93,"\| (5)",?109,"\| (6)" Line Location: DEP+8
Function Call: WRITE	Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?6,"NOT APPLICABLE",?30,"\|",?50,"\|",?72,"\|",?93,"\|",?109,"\|" Line Location: DEP+9
Function Call: WRITE	Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,$$NAME^DGMTU1(+DGREL("C",DGCNT)) Line Location: CHILD+3
Function Call: WRITE	Prompt: ?30,"\| ",$$YN^DGMTSCU1($P(DGIR0,"^",9)) Line Location: CHILD+4
Function Call: WRITE	Prompt: ?50,"\| ",$$YN^DGMTSCU1($P(DGIR0,"^",6)) Line Location: CHILD+5
Function Call: WRITE	Prompt: ?72,"\| ",$S($P(DGIR0,"^",6):"NOT APPLICABLE",1:$$YN^DGMTSCU1($P(DGIR0,"^",10))) Line Location: CHILD+6
Function Call: WRITE	Prompt: ?93,"\| ",$$YN^DGMTSCU1($P(DGIR0,"^",11)) Line Location: CHILD+7
Function Call: WRITE	Prompt: ?109,"\| ",$S($P(DGIR0,"^",11)=0:"NOT APPLICABLE",1:$$YN^DGMTSCU1($P(DGIR0,"^",12))) Line Location: CHILD+8

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DGCNT	DEP+10*, CHILD+2, CHILD+3
>> DGINR("C"	CHILD+2
DGIR0	CHILD+1~, CHILD+2*, CHILD+4, CHILD+5, CHILD+6, CHILD+7, CHILD+8
>> DGLNE	DEM+1, DEM+2, MAR+1
>> DGLNE1	MAR+1, DEP+1, DEP+5, DEP+9, CHILD+3
>> DGREL("C"	DEP+10, CHILD+3
>> DGUL	MAR+1, DEP+1, DEP+5, DEP+9, CHILD+3
>> DGVIR0	MAR+4, MAR+5, MAR+6, DEP+4, DEP+9, DEP+10
>> DGVPRI	DEM+3
IOF	DEM+1

Customize PDF page

Package: Registration

Routine: DGMTP1

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: