- DGMTP2 ;ALB/RMO - Print Means Test 10-10F Cont. ;7 APR 1992 11:00 am
- ;;5.3;Registration;;Aug 13, 1993
- ;
- EN ;Entry point to print income and net worth
- ;Also calls DGMTP3 to print deductible expenses and
- ;DGMTP4 to print the signature block and special notes
- D INC,EXP^DGMTP3,NET,EN^DGMTP4
- Q Q
- ;
- INC ;Print income
- N Y
- W $$UL^DGMTSCU1(DGUL,DGLNE1),!!?5,"C. Previous Calendar Year Gross Income for " S Y=$$LYR^DGMTSCU1(DGMTDT) X ^DD("DD") W Y," (including amounts deducted for taxes, insurance, Medicare, etc.)"
- W $$UL^DGMTSCU1(DGUL,DGLNE1),!?10,"Type of Income",?50,"| Veteran",?72,"| Spouse",?93,"| Children",?109,"| Total"
- W $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"1. Social Security (Not SSI)" D INCFLD(.DGIN0,8)
- W $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"2. U.S. Civil Service" D INCFLD(.DGIN0,9)
- W $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"3. U.S. Railroad Retirement" D INCFLD(.DGIN0,10)
- W $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"4. Military Retirement" D INCFLD(.DGIN0,11)
- W $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"5. Unemployment Compensation" D INCFLD(.DGIN0,12)
- W $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"6. Other Retirement (Company, state, local, etc.)" D INCFLD(.DGIN0,13)
- W $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"7. Total Income from Employment",?50,"|",?72,"|",?93,"|",?109,"|",!?4,"(Wages, salary, earnings, tips)" D INCFLD(.DGIN0,14)
- W $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"8. Interest, Dividend, or Annuity Income" D INCFLD(.DGIN0,15)
- W $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"9. Workers Compensation or Black Lung Benefits" D INCFLD(.DGIN0,16)
- W $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"10. All Other Income" D INCFLD(.DGIN0,17)
- W $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"11. Total Income",?50,"|",?109,"|",$J($$AMT^DGMTSCU1(DGINT),18)
- Q
- INCFLD(DGIN,DGPCE) ;Print income fields
- N DGTOT,I
- W ?50,"|",$J($$AMT^DGMTSCU1($P(DGIN("V"),"^",DGPCE)),19)
- W ?72,"|" W:$D(DGIN("S")) $J($$AMT^DGMTSCU1($P(DGIN("S"),"^",DGPCE)),18)
- W ?93,"|" W:$D(DGIN("C")) $J($$AMT^DGMTSCU1($P(DGIN("C"),"^",DGPCE)),13)
- S DGTOT=0,I="" F S I=$O(DGIN(I)) Q:I="" S DGTOT=DGTOT+$P(DGIN(I),"^",DGPCE)
- W ?109,"|",$J($$AMT^DGMTSCU1(DGTOT),18)
- Q
- ;
- NET ;Print net worth
- W $$UL^DGMTSCU1(DGUL,DGLNE1),!!?37,"E. Previous Calendar Year Net Worth"
- W $$UL^DGMTSCU1(DGUL,DGLNE1),!?10,"Type of Asset",?63,"| Veteran",?88,"| Spouse",?109,"| Total"
- W $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"1. Cash, Amounts in Bank Accounts (Include IRA's)" D NETFLD(.DGIN2,1)
- W $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"2. Stocks and Bonds" D NETFLD(.DGIN2,2)
- W $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"3. Real Property (Not including your primary residence)",?63,"|",?88,"|",?109,"|",!?4,"(market value of property minus incumbrances)" D NETFLD(.DGIN2,3)
- W $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"4. Other Property or Assets not Shown Elsewhere" D NETFLD(.DGIN2,4)
- W $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"5. Debts (Include any debts that will reduce the value",?63,"|",?88,"|",?109,"|",!?4,"of property listed in E4)(Cannot exceed E4)" D NETFLD(.DGIN2,5)
- I DGMTYPT=1 W $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"6. Net Worth (Line E1 + E2 + E3 + E4 minus line E5)",?63,"|",?109,"|",$J($$AMT^DGMTSCU1(DGNWT),18)
- I DGMTYPT=2 W $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"6. Net Worth (Line E1 + E2 + E3 + E4 minus line E5)",?63,"|",?109,"|",$S('$$ASKNW^DGMTCOU:$J("NOT APPLICABLE",18),1:$J($$AMT^DGMTSCU1(DGNWT),18))
- W $$UL^DGMTSCU1(DGUL,DGLNE1),!!?1,"7. TOTAL (Add items D(11) and E(6))",?63,"|",?109,"|",$J($$AMT^DGMTSCU1(DGINT-DGDET+DGNWT),18)
- Q
- ;
- NETFLD(DGIN,DGPCE) ;Print net worth fields
- N DGTOT,I
- W ?63,"|",$J($$AMT^DGMTSCU1($P(DGIN("V"),"^",DGPCE)),22)
- W ?88,"|" W:$D(DGIN("S")) $J($$AMT^DGMTSCU1($P(DGIN("S"),"^",DGPCE)),19)
- S DGTOT=0,I="" F S I=$O(DGIN(I)) Q:I="" S DGTOT=DGTOT+$P(DGIN(I),"^",DGPCE)
- I DGMTYPT=1 W ?109,"|",$J($$AMT^DGMTSCU1(DGTOT),18)
- I DGMTYPT=2 W ?109,"|",$S('$$ASKNW^DGMTCOU:$J("NOT APPLICABLE",18),1:$J($$AMT^DGMTSCU1(DGTOT),18))
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGMTP2 3900 printed Feb 19, 2025@00:11:12 Page 2
- DGMTP2 ;ALB/RMO - Print Means Test 10-10F Cont. ;7 APR 1992 11:00 am
- +1 ;;5.3;Registration;;Aug 13, 1993
- +2 ;
- EN ;Entry point to print income and net worth
- +1 ;Also calls DGMTP3 to print deductible expenses and
- +2 ;DGMTP4 to print the signature block and special notes
- +3 DO INC
- DO EXP^DGMTP3
- DO NET
- DO EN^DGMTP4
- Q QUIT
- +1 ;
- INC ;Print income
- +1 NEW Y
- +2 WRITE $$UL^DGMTSCU1(DGUL,DGLNE1),!!?5,"C. Previous Calendar Year Gross Income for "
- SET Y=$$LYR^DGMTSCU1(DGMTDT)
- XECUTE ^DD("DD")
- WRITE Y," (including amounts deducted for taxes, insurance, Medicare, etc.)"
- +3 WRITE $$UL^DGMTSCU1(DGUL,DGLNE1),!?10,"Type of Income",?50,"| Veteran",?72,"| Spouse",?93,"| Children",?109,"| Total"
- +4 WRITE $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"1. Social Security (Not SSI)"
- DO INCFLD(.DGIN0,8)
- +5 WRITE $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"2. U.S. Civil Service"
- DO INCFLD(.DGIN0,9)
- +6 WRITE $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"3. U.S. Railroad Retirement"
- DO INCFLD(.DGIN0,10)
- +7 WRITE $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"4. Military Retirement"
- DO INCFLD(.DGIN0,11)
- +8 WRITE $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"5. Unemployment Compensation"
- DO INCFLD(.DGIN0,12)
- +9 WRITE $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"6. Other Retirement (Company, state, local, etc.)"
- DO INCFLD(.DGIN0,13)
- +10 WRITE $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"7. Total Income from Employment",?50,"|",?72,"|",?93,"|",?109,"|",!?4,"(Wages, salary, earnings, tips)"
- DO INCFLD(.DGIN0,14)
- +11 WRITE $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"8. Interest, Dividend, or Annuity Income"
- DO INCFLD(.DGIN0,15)
- +12 WRITE $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"9. Workers Compensation or Black Lung Benefits"
- DO INCFLD(.DGIN0,16)
- +13 WRITE $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"10. All Other Income"
- DO INCFLD(.DGIN0,17)
- +14 WRITE $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"11. Total Income",?50,"|",?109,"|",$JUSTIFY($$AMT^DGMTSCU1(DGINT),18)
- +15 QUIT
- INCFLD(DGIN,DGPCE) ;Print income fields
- +1 NEW DGTOT,I
- +2 WRITE ?50,"|",$JUSTIFY($$AMT^DGMTSCU1($PIECE(DGIN("V"),"^",DGPCE)),19)
- +3 WRITE ?72,"|"
- if $DATA(DGIN("S"))
- WRITE $JUSTIFY($$AMT^DGMTSCU1($PIECE(DGIN("S"),"^",DGPCE)),18)
- +4 WRITE ?93,"|"
- if $DATA(DGIN("C"))
- WRITE $JUSTIFY($$AMT^DGMTSCU1($PIECE(DGIN("C"),"^",DGPCE)),13)
- +5 SET DGTOT=0
- SET I=""
- FOR
- SET I=$ORDER(DGIN(I))
- if I=""
- QUIT
- SET DGTOT=DGTOT+$PIECE(DGIN(I),"^",DGPCE)
- +6 WRITE ?109,"|",$JUSTIFY($$AMT^DGMTSCU1(DGTOT),18)
- +7 QUIT
- +8 ;
- NET ;Print net worth
- +1 WRITE $$UL^DGMTSCU1(DGUL,DGLNE1),!!?37,"E. Previous Calendar Year Net Worth"
- +2 WRITE $$UL^DGMTSCU1(DGUL,DGLNE1),!?10,"Type of Asset",?63,"| Veteran",?88,"| Spouse",?109,"| Total"
- +3 WRITE $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"1. Cash, Amounts in Bank Accounts (Include IRA's)"
- DO NETFLD(.DGIN2,1)
- +4 WRITE $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"2. Stocks and Bonds"
- DO NETFLD(.DGIN2,2)
- +5 WRITE $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"3. Real Property (Not including your primary residence)",?63,"|",?88,"|",?109,"|",!?4,"(market value of property minus incumbrances)"
- DO NETFLD(.DGIN2,3)
- +6 WRITE $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"4. Other Property or Assets not Shown Elsewhere"
- DO NETFLD(.DGIN2,4)
- +7 WRITE $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"5. Debts (Include any debts that will reduce the value",?63,"|",?88,"|",?109,"|",!?4,"of property listed in E4)(Cannot exceed E4)"
- DO NETFLD(.DGIN2,5)
- +8 IF DGMTYPT=1
- WRITE $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"6. Net Worth (Line E1 + E2 + E3 + E4 minus line E5)",?63,"|",?109,"|",$JUSTIFY($$AMT^DGMTSCU1(DGNWT),18)
- +9 IF DGMTYPT=2
- WRITE $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"6. Net Worth (Line E1 + E2 + E3 + E4 minus line E5)",?63,"|",?109,"|",$SELECT('$$ASKNW^DGMTCOU:$J("NOT APPLICABLE",18),1:$JUSTIFY($$AMT^DGMTSCU1(DGNWT),18))
- +10 WRITE $$UL^DGMTSCU1(DGUL,DGLNE1),!!?1,"7. TOTAL (Add items D(11) and E(6))",?63,"|",?109,"|",$JUSTIFY($$AMT^DGMTSCU1(DGINT-DGDET+DGNWT),18)
- +11 QUIT
- +12 ;
- NETFLD(DGIN,DGPCE) ;Print net worth fields
- +1 NEW DGTOT,I
- +2 WRITE ?63,"|",$JUSTIFY($$AMT^DGMTSCU1($PIECE(DGIN("V"),"^",DGPCE)),22)
- +3 WRITE ?88,"|"
- if $DATA(DGIN("S"))
- WRITE $JUSTIFY($$AMT^DGMTSCU1($PIECE(DGIN("S"),"^",DGPCE)),19)
- +4 SET DGTOT=0
- SET I=""
- FOR
- SET I=$ORDER(DGIN(I))
- if I=""
- QUIT
- SET DGTOT=DGTOT+$PIECE(DGIN(I),"^",DGPCE)
- +5 IF DGMTYPT=1
- WRITE ?109,"|",$JUSTIFY($$AMT^DGMTSCU1(DGTOT),18)
- +6 IF DGMTYPT=2
- WRITE ?109,"|",$SELECT('$$ASKNW^DGMTCOU:$J("NOT APPLICABLE",18),1:$JUSTIFY($$AMT^DGMTSCU1(DGTOT),18))
- +7 QUIT