Routine: DGMTP3

Package	Total	Call Graph
Registration	3	(FT,HD)^DGMTP ($$AMT,$$UL,$$YN)^DGMTSCU1 $$NAME^DGMTU1

Package	Total	Caller Graph
Registration	1	DGMTP2

Entry Points

Name	Comments	DBIA/ICR reference
CHILDQ
EXP	;Entry point to print deductible expenses
CHILD	;Print employment income and expenses for a dependent child

External References

Name	Field # of Occurrence
FT^DGMTP	EXP+7
HD^DGMTP	EXP+9
$$AMT^DGMTSCU1	EXP+3, EXP+5, EXP+6, EXP+10, EXP+20, EXP+21, EXP+22, EXP+23, EXP+24, CHILD+6 , CHILD+7, CHILD+8, CHILD+9, CHILD+10
$$UL^DGMTSCU1	EXP+2, EXP+3, EXP+4, EXP+6, EXP+11, EXP+12, EXP+16, EXP+19, EXP+20, EXP+21 , EXP+22, EXP+23, EXP+24, CHILD+5
$$YN^DGMTSCU1	EXP+10
$$NAME^DGMTU1	CHILD+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!!?59,"D. Deductible Expenses" Line Location: EXP+2
Function Call: WRITE	Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"1. List medical expenses ACTUALLY paid by you during the previous calendar year",!?4,"(include Medicare and other health insurance expenses). ",$$AMT^DGMTSCU1($P(DGIN1("V"),"^")) Line Location: EXP+3
Function Call: WRITE	Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"2. List amounts paid by you during the previous calendar year for funeral and burial expenses",!?4,"of a deceased spouse or child. " Line Location: EXP+4
Function Call: WRITE	Prompt: $S('$P(DGVIR0,"^",5)&('$P(DGVIR0,"^",8)):"NOT APPLICABLE",1:$$AMT^DGMTSCU1($P(DGIN1("V"),"^",2))) Line Location: EXP+5
Function Call: WRITE	Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"3. List amounts paid by you during the previous calendar year for YOUR educational expenses.",!?4,"(Do NOT show spouse's or children's payments) ",$$AMT^DGMTSCU1($P(DGIN1("V"),"^",3)) Line Location: EXP+6
Function Call: WRITE	Prompt: !?1,"4. Was employment income reported for a child in item C7",?63,"\| FOR VA USE ONLY",?88,"\| 5. Enter child's income exclusion" Line Location: EXP+9
Function Call: WRITE	Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?20,"6. List each child for whom employment income was reported in item C7." Line Location: EXP+11
Function Call: WRITE	Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?6,"Child's Name",?30,"\| Employment",?45,"\| Exclusion from",?63,"\| Subtract (C) from (B)",?88,"\| Child's",?109,"\| Child's countable" Line Location: EXP+12
Function Call: WRITE	Prompt: !?30,"\| income from",?45,"\| item D(5)",?63,"\| (if ""0"", skip (E)",?88,"\| post-secondary",?109,"\| employment income" Line Location: EXP+13
Function Call: WRITE	Prompt: !?30,"\| item C7",?45,"\|",?63,"\| and enter ""0"" in (F))",?88,"\| education expenses",?109,"\|" Line Location: EXP+14
Function Call: WRITE	Prompt: !?6," (A)",?30,"\| (B)",?45,"\| (C)",?63,"\| (D)",?88,"\| (E)",?109,"\| (F)" Line Location: EXP+15
Function Call: WRITE	Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?6,"NOT APPLICABLE",?30,"\|",?45,"\|",?63,"\|",?88,"\|",?109,"\|" Line Location: EXP+16
Function Call: WRITE	Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!!?37,"TO BE COMPLETED BY VA (VETERANS AFFAIRS)" Line Location: EXP+19
Function Call: WRITE	Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"7. Child's Reported Employment Income (Item D6(B) above)",?109,"\|",$J($S($D(DGDCS):$$AMT^DGMTSCU1(DGEMT),1:"NOT APPLICABLE"),18) Line Location: EXP+20
Function Call: WRITE	Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"8. Child's Countable Employment Income (Item D6(F) above)",?109,"\|",$J($S($D(DGDCS):$$AMT^DGMTSCU1(DGCET),1:"NOT APPLICABLE"),18) Line Location: EXP+21
Function Call: WRITE	Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"9. Child's Employment Income Exclusion (Subtract Item D8 from Item D7))",?109,"\|",$J($S($D(DGDCS):$$AMT^DGMTSCU1(DGEMT-DGCET),1:"NOT APPLICABLE"),18) Line Location: EXP+22
Function Call: WRITE	Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"10. Total Deductible Expenses (Add Items D1, D2, D3 and D9)",?109,"\|",$J($$AMT^DGMTSCU1(DGDET),18) Line Location: EXP+23
Function Call: WRITE	Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"11. Attributable Income (Subtract Item D10 from C11)",?109,"\|",$J($$AMT^DGMTSCU1(DGINT-DGDET),18) Line Location: EXP+24
Function Call: WRITE	Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,$$NAME^DGMTU1(+$G(DGREL("C",DGCNT))) Line Location: CHILD+5
Function Call: WRITE	Prompt: ?30,"\|",$J($$AMT^DGMTSCU1($P(DGIN0,"^",14)),12) Line Location: CHILD+6
Function Call: WRITE	Prompt: ?45,"\|",$J($$AMT^DGMTSCU1($P(DGMTPAR,"^",17)),15) Line Location: CHILD+7
Function Call: WRITE	Prompt: ?63,"\|",$J($S(DGEX>0:$$AMT^DGMTSCU1(DGEX),1:0),22) Line Location: CHILD+8
Function Call: WRITE	Prompt: ?88,"\|",$J($S(DGEX>0:$$AMT^DGMTSCU1($P(DGIN1,"^",3)),1:"NOT APPLICABLE"),19) Line Location: CHILD+9
Function Call: WRITE	Prompt: ?109,"\|",$J($S($G(DGCE)>0:$$AMT^DGMTSCU1(DGCE),1:0),18) Line Location: CHILD+10

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DGCE	CHILD+1~, CHILD+3*, CHILD+4, CHILD+10
DGCET	EXP+1~, EXP+17, EXP+21, EXP+22, CHILD+4
>> DGCNT	EXP+17*, CHILD+2, CHILD+5
>> DGDCS	EXP+10, EXP+16, EXP+17, EXP+20, EXP+21, EXP+22
>> DGDCS(	EXP+17
>> DGDET	EXP+23, EXP+24
DGEMT	EXP+1~, EXP+17, EXP+20, EXP+22, CHILD+4
DGEX	CHILD+1~, CHILD+3*, CHILD+8, CHILD+9
DGIN0	CHILD+1~, CHILD+2*, CHILD+3, CHILD+4, CHILD+6
DGIN1	CHILD+1~, CHILD+2*, CHILD+3, CHILD+9
DGIN1("V"	EXP+3, EXP+5, EXP+6
>> DGINC("C"	CHILD+2
>> DGINT	EXP+24
>> DGLNE1	EXP+2, EXP+3, EXP+4, EXP+6, EXP+11, EXP+12, EXP+16, EXP+19, EXP+20, EXP+21 , EXP+22, EXP+23, EXP+24, CHILD+5
>> DGLP	EXP+17*
>> DGMTPAR	EXP+10, CHILD+3, CHILD+7
>> DGPGE	EXP+7*
>> DGREL("C"	CHILD+5
>> DGUL	EXP+2, EXP+3, EXP+4, EXP+6, EXP+11, EXP+12, EXP+16, EXP+19, EXP+20, EXP+21 , EXP+22, EXP+23, EXP+24, CHILD+5
>> DGVIR0	EXP+5, EXP+10

Customize PDF page

Package: Registration

Routine: DGMTP3

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

Naked Globals

Local Variables

Legend: