Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Registration 4 $$ASKNW^DGMTCOU  EXP^DGMTP3  EN^DGMTP4  ($$AMT,$$LYR,$$UL)^DGMTSCU1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGMTP1  

Entry Points

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

External References

Name Field # of Occurrence
$$ASKNW^DGMTCOU NET+9, NETFLD+6
EXP^DGMTP3 EN+3
EN^DGMTP4 EN+3
$$AMT^DGMTSCU1 INC+14, INCFLD+2, INCFLD+3, INCFLD+4, INCFLD+6, NET+8, NET+9, NET+10, NETFLD+2, NETFLD+3
, NETFLD+5, NETFLD+6
$$LYR^DGMTSCU1 INC+2
$$UL^DGMTSCU1 INC+2, INC+3, INC+4, INC+5, INC+6, INC+7, INC+8, INC+9, INC+10, INC+11
, INC+12, INC+13, INC+14, NET+1, NET+2, NET+3, NET+4, NET+5, NET+6, NET+7
, NET+8, NET+9, NET+10

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" INC+2

Label References

Name Line Occurrences
INC EN+3
INCFLD INC+4, INC+5, INC+6, INC+7, INC+8, INC+9, INC+10, INC+11, INC+12, INC+13
NET EN+3
NETFLD NET+3, NET+4, NET+5, NET+6, NET+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DGDET NET+10
DGIN INCFLD~, NETFLD~
DGIN( INCFLD+5, NETFLD+4
DGIN("C" INCFLD+4
DGIN("S" INCFLD+3, NETFLD+3
DGIN("V" INCFLD+2, NETFLD+2
>> DGIN0 INC+4, INC+5, INC+6, INC+7, INC+8, INC+9, INC+10, INC+11, INC+12, INC+13
>> DGIN2 NET+3, NET+4, NET+5, NET+6, NET+7
>> DGINT INC+14, NET+10
>> DGLNE1 INC+2, INC+3, INC+4, INC+5, INC+6, INC+7, INC+8, INC+9, INC+10, INC+11
, INC+12, INC+13, INC+14, NET+1, NET+2, NET+3, NET+4, NET+5, NET+6, NET+7
, NET+8, NET+9, NET+10
>> DGMTDT INC+2
>> DGMTYPT NET+8, NET+9, NETFLD+5, NETFLD+6
>> DGNWT NET+8, NET+9, NET+10
DGPCE INCFLD~, INCFLD+2, INCFLD+3, INCFLD+4, INCFLD+5, NETFLD~, NETFLD+2, NETFLD+3, NETFLD+4
DGTOT INCFLD+1~, INCFLD+5*, INCFLD+6, NETFLD+1~, NETFLD+4*, NETFLD+5, NETFLD+6
>> DGUL INC+2, INC+3, INC+4, INC+5, INC+6, INC+7, INC+8, INC+9, INC+10, INC+11
, INC+12, INC+13, INC+14, NET+1, NET+2, NET+3, NET+4, NET+5, NET+6, NET+7
, NET+8, NET+9, NET+10
I INCFLD+1~, INCFLD+5*, NETFLD+1~, NETFLD+4*
Y INC+1~, INC+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All