Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: DGMTP2

Package: Registration

Routine: DGMTP2


Information

DGMTP2 ;ALB/RMO - Print Means Test 10-10F Cont. ;7 APR 1992 11:00 am

Source Information

Source file <DGMTP2.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;Entry point to print income and net worth
Q
INC ;Print income
INCFLD(DGIN,DGPCE) ;Print income fields
NET ;Print net worth
NETFLD(DGIN,DGPCE) ;Print net worth fields

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!!?5,"C. Previous Calendar Year Gross Income for "
  • Line Location: INC+2
Function Call: WRITE
  • Prompt: Y," (including amounts deducted for taxes, insurance, Medicare, etc.)"
  • Line Location: INC+2
Function Call: WRITE
  • Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?10,"Type of Income",?50,"| Veteran",?72,"| Spouse",?93,"| Children",?109,"| Total"
  • Line Location: INC+3
Function Call: WRITE
  • Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"1. Social Security (Not SSI)"
  • Line Location: INC+4
Function Call: WRITE
  • Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"2. U.S. Civil Service"
  • Line Location: INC+5
Function Call: WRITE
  • Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"3. U.S. Railroad Retirement"
  • Line Location: INC+6
Function Call: WRITE
  • Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"4. Military Retirement"
  • Line Location: INC+7
Function Call: WRITE
  • Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"5. Unemployment Compensation"
  • Line Location: INC+8
Function Call: WRITE
  • Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"6. Other Retirement (Company, state, local, etc.)"
  • Line Location: INC+9
Function Call: WRITE
  • Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"7. Total Income from Employment",?50,"|",?72,"|",?93,"|",?109,"|",!?4,"(Wages, salary, earnings, tips)"
  • Line Location: INC+10
Function Call: WRITE
  • Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"8. Interest, Dividend, or Annuity Income"
  • Line Location: INC+11
Function Call: WRITE
  • Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"9. Workers Compensation or Black Lung Benefits"
  • Line Location: INC+12
Function Call: WRITE
  • Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"10. All Other Income"
  • Line Location: INC+13
Function Call: WRITE
  • Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"11. Total Income",?50,"|",?109,"|",$J($$AMT^DGMTSCU1(DGINT),18)
  • Line Location: INC+14
Function Call: WRITE
  • Prompt: ?50,"|",$J($$AMT^DGMTSCU1($P(DGIN("V"),"^",DGPCE)),19)
  • Line Location: INCFLD+2
Function Call: WRITE
  • Prompt: ?72,"|"
  • Line Location: INCFLD+3
Function Call: WRITE
  • Prompt: $J($$AMT^DGMTSCU1($P(DGIN("S"),"^",DGPCE)),18)
  • Condition for execution: $D(DGIN("S"))
  • Line Location: INCFLD+3
Function Call: WRITE
  • Prompt: ?93,"|"
  • Line Location: INCFLD+4
Function Call: WRITE
  • Prompt: $J($$AMT^DGMTSCU1($P(DGIN("C"),"^",DGPCE)),13)
  • Condition for execution: $D(DGIN("C"))
  • Line Location: INCFLD+4
Function Call: WRITE
  • Prompt: ?109,"|",$J($$AMT^DGMTSCU1(DGTOT),18)
  • Line Location: INCFLD+6
Function Call: WRITE
  • Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!!?37,"E. Previous Calendar Year Net Worth"
  • Line Location: NET+1
Function Call: WRITE
  • Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?10,"Type of Asset",?63,"| Veteran",?88,"| Spouse",?109,"| Total"
  • Line Location: NET+2
Function Call: WRITE
  • Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"1. Cash, Amounts in Bank Accounts (Include IRA's)"
  • Line Location: NET+3
Function Call: WRITE
  • Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"2. Stocks and Bonds"
  • Line Location: NET+4
Function Call: WRITE
  • Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"3. Real Property (Not including your primary residence)",?63,"|",?88,"|",?109,"|",!?4,"(market value of property minus incumbrances)"
  • Line Location: NET+5
Function Call: WRITE
  • Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"4. Other Property or Assets not Shown Elsewhere"
  • Line Location: NET+6
Function Call: WRITE
  • Prompt: $$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)"
  • Line Location: NET+7
Function Call: WRITE
  • Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"6. Net Worth (Line E1 + E2 + E3 + E4 minus line E5)",?63,"|",?109,"|",$J($$AMT^DGMTSCU1(DGNWT),18)
  • Line Location: NET+8
Function Call: WRITE
  • Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!!?1,"7. TOTAL (Add items D(11) and E(6))",?63,"|",?109,"|",$J($$AMT^DGMTSCU1(DGINT-DGDET+DGNWT),18)
  • Line Location: NET+10
Function Call: WRITE
  • Prompt: ?63,"|",$J($$AMT^DGMTSCU1($P(DGIN("V"),"^",DGPCE)),22)
  • Line Location: NETFLD+2
Function Call: WRITE
  • Prompt: ?88,"|"
  • Line Location: NETFLD+3
Function Call: WRITE
  • Prompt: $J($$AMT^DGMTSCU1($P(DGIN("S"),"^",DGPCE)),19)
  • Condition for execution: $D(DGIN("S"))
  • Line Location: NETFLD+3
Function Call: WRITE
  • Prompt: ?109,"|",$J($$AMT^DGMTSCU1(DGTOT),18)
  • Line Location: NETFLD+5
Info |  Source |  Entry Points |  Interaction Calls