Routine: DGMTP2

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

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

>>	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*

Customize PDF page

Package: Registration

Routine: DGMTP2

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

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