DGMTP3 ;ALB/RMO - Print Means Test 10-10F Cont. ;7 APR 1992 11:00 am
;;5.3;Registration;;Aug 13, 1993
;
EXP ;Entry point to print deductible expenses
N DGCET,DGEMT
W $$UL^DGMTSCU1(DGUL,DGLNE1),!!?59,"D. Deductible Expenses"
W $$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"),"^"))
W $$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. "
W $S('$P(DGVIR0,"^",5)&('$P(DGVIR0,"^",8)):"NOT APPLICABLE",1:$$AMT^DGMTSCU1($P(DGIN1("V"),"^",2)))
W $$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))
S DGPGE=1 D FT^DGMTP ;end of first page for form
;
D HD^DGMTP W !?1,"4. Was employment income reported for a child in item C7",?63,"| FOR VA USE ONLY",?88,"| 5. Enter child's income exclusion"
W !?6,$S('$P(DGVIR0,"^",8):"NOT APPLICABLE",1:$$YN^DGMTSCU1($D(DGDCS))),?63,"|",?88,"| ",$$AMT^DGMTSCU1($P(DGMTPAR,"^",17))
W $$UL^DGMTSCU1(DGUL,DGLNE1),!?20,"6. List each child for whom employment income was reported in item C7."
W $$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"
W !?30,"| income from",?45,"| item D(5)",?63,"| (if ""0"", skip (E)",?88,"| post-secondary",?109,"| employment income"
W !?30,"| item C7",?45,"|",?63,"| and enter ""0"" in (F))",?88,"| education expenses",?109,"|"
W !?6," (A)",?30,"| (B)",?45,"| (C)",?63,"| (D)",?88,"| (E)",?109,"| (F)"
I '$D(DGDCS) W $$UL^DGMTSCU1(DGUL,DGLNE1),!?6,"NOT APPLICABLE",?30,"|",?45,"|",?63,"|",?88,"|",?109,"|"
I $D(DGDCS) S (DGLP,DGCET,DGEMT)=0 F S DGLP=$O(DGDCS(DGLP)) Q:'DGLP S DGCNT=DGDCS(DGLP) D CHILD
;
W $$UL^DGMTSCU1(DGUL,DGLNE1),!!?37,"TO BE COMPLETED BY VA (VETERANS AFFAIRS)"
W $$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)
W $$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)
W $$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)
W $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"10. Total Deductible Expenses (Add Items D1, D2, D3 and D9)",?109,"|",$J($$AMT^DGMTSCU1(DGDET),18)
W $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"11. Attributable Income (Subtract Item D10 from C11)",?109,"|",$J($$AMT^DGMTSCU1(DGINT-DGDET),18)
Q
;
CHILD ;Print employment income and expenses for a dependent child
N DGCE,DGEX,DGIN0,DGIN1
S DGIN0=$G(^DGMT(408.21,+$G(DGINC("C",DGCNT)),0)),DGIN1=$G(^(1))
S DGEX=$P(DGIN0,"^",14)-$P(DGMTPAR,"^",17) S:DGEX>0 DGCE=DGEX-$P(DGIN1,"^",3)
S DGEMT=DGEMT+$P(DGIN0,"^",14) S:$G(DGCE)>0 DGCET=DGCET+DGCE
W $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,$$NAME^DGMTU1(+$G(DGREL("C",DGCNT)))
W ?30,"|",$J($$AMT^DGMTSCU1($P(DGIN0,"^",14)),12)
W ?45,"|",$J($$AMT^DGMTSCU1($P(DGMTPAR,"^",17)),15)
W ?63,"|",$J($S(DGEX>0:$$AMT^DGMTSCU1(DGEX),1:0),22)
W ?88,"|",$J($S(DGEX>0:$$AMT^DGMTSCU1($P(DGIN1,"^",3)),1:"NOT APPLICABLE"),19)
W ?109,"|",$J($S($G(DGCE)>0:$$AMT^DGMTSCU1(DGCE),1:0),18)
CHILDQ Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGMTP3 3661 printed Apr 09, 2024@21:56:43 Page 2
DGMTP3 ;ALB/RMO - Print Means Test 10-10F Cont. ;7 APR 1992 11:00 am
+1 ;;5.3;Registration;;Aug 13, 1993
+2 ;
EXP ;Entry point to print deductible expenses
+1 NEW DGCET,DGEMT
+2 WRITE $$UL^DGMTSCU1(DGUL,DGLNE1),!!?59,"D. Deductible Expenses"
+3 WRITE $$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($PIECE(DGIN1("V"),"^"))
+4 WRITE $$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. "
+5 WRITE $SELECT('$PIECE(DGVIR0,"^",5)&('$PIECE(DGVIR0,"^",8)):"NOT APPLICABLE",1:$$AMT^DGMTSCU1($PIECE(DGIN1("V"),"^",2)))
+6 WRITE $$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($PIECE(DGIN1("V"),"^",3))
+7 ;end of first page for form
SET DGPGE=1
DO FT^DGMTP
+8 ;
+9 DO HD^DGMTP
WRITE !?1,"4. Was employment income reported for a child in item C7",?63,"| FOR VA USE ONLY",?88,"| 5. Enter child's income exclusion"
+10 WRITE !?6,$SELECT('$PIECE(DGVIR0,"^",8):"NOT APPLICABLE",1:$$YN^DGMTSCU1($DATA(DGDCS))),?63,"|",?88,"| ",$$AMT^DGMTSCU1($PIECE(DGMTPAR,"^",17))
+11 WRITE $$UL^DGMTSCU1(DGUL,DGLNE1),!?20,"6. List each child for whom employment income was reported in item C7."
+12 WRITE $$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"
+13 WRITE !?30,"| income from",?45,"| item D(5)",?63,"| (if ""0"", skip (E)",?88,"| post-secondary",?109,"| employment income"
+14 WRITE !?30,"| item C7",?45,"|",?63,"| and enter ""0"" in (F))",?88,"| education expenses",?109,"|"
+15 WRITE !?6," (A)",?30,"| (B)",?45,"| (C)",?63,"| (D)",?88,"| (E)",?109,"| (F)"
+16 IF '$DATA(DGDCS)
WRITE $$UL^DGMTSCU1(DGUL,DGLNE1),!?6,"NOT APPLICABLE",?30,"|",?45,"|",?63,"|",?88,"|",?109,"|"
+17 IF $DATA(DGDCS)
SET (DGLP,DGCET,DGEMT)=0
FOR
SET DGLP=$ORDER(DGDCS(DGLP))
if 'DGLP
QUIT
SET DGCNT=DGDCS(DGLP)
DO CHILD
+18 ;
+19 WRITE $$UL^DGMTSCU1(DGUL,DGLNE1),!!?37,"TO BE COMPLETED BY VA (VETERANS AFFAIRS)"
+20 WRITE $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"7. Child's Reported Employment Income (Item D6(B) above)",?109,"|",$JUSTIFY($SELECT($DATA(DGDCS):$$AMT^DGMTSCU1(DGEMT),1:"NOT APPLICABLE"),18)
+21 WRITE $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"8. Child's Countable Employment Income (Item D6(F) above)",?109,"|",$JUSTIFY($SELECT($DATA(DGDCS):$$AMT^DGMTSCU1(DGCET),1:"NOT APPLICABLE"),18)
+22 WRITE $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"9. Child's Employment Income Exclusion (Subtract Item D8 from Item D7))",?109,"|",$JUSTIFY($SELECT($DATA(DGDCS):$$AMT^DGMTSCU1(DGEMT-DGCET),1:"NOT APPLICABLE"),18)
+23 WRITE $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"10. Total Deductible Expenses (Add Items D1, D2, D3 and D9)",?109,"|",$JUSTIFY($$AMT^DGMTSCU1(DGDET),18)
+24 WRITE $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"11. Attributable Income (Subtract Item D10 from C11)",?109,"|",$JUSTIFY($$AMT^DGMTSCU1(DGINT-DGDET),18)
+25 QUIT
+26 ;
CHILD ;Print employment income and expenses for a dependent child
+1 NEW DGCE,DGEX,DGIN0,DGIN1
+2 SET DGIN0=$GET(^DGMT(408.21,+$GET(DGINC("C",DGCNT)),0))
SET DGIN1=$GET(^(1))
+3 SET DGEX=$PIECE(DGIN0,"^",14)-$PIECE(DGMTPAR,"^",17)
if DGEX>0
SET DGCE=DGEX-$PIECE(DGIN1,"^",3)
+4 SET DGEMT=DGEMT+$PIECE(DGIN0,"^",14)
if $GET(DGCE)>0
SET DGCET=DGCET+DGCE
+5 WRITE $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,$$NAME^DGMTU1(+$GET(DGREL("C",DGCNT)))
+6 WRITE ?30,"|",$JUSTIFY($$AMT^DGMTSCU1($PIECE(DGIN0,"^",14)),12)
+7 WRITE ?45,"|",$JUSTIFY($$AMT^DGMTSCU1($PIECE(DGMTPAR,"^",17)),15)
+8 WRITE ?63,"|",$JUSTIFY($SELECT(DGEX>0:$$AMT^DGMTSCU1(DGEX),1:0),22)
+9 WRITE ?88,"|",$JUSTIFY($SELECT(DGEX>0:$$AMT^DGMTSCU1($PIECE(DGIN1,"^",3)),1:"NOT APPLICABLE"),19)
+10 WRITE ?109,"|",$JUSTIFY($SELECT($GET(DGCE)>0:$$AMT^DGMTSCU1(DGCE),1:0),18)
CHILDQ QUIT
