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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DGMTP3

Package: Registration

Routine: DGMTP3


Information

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

Source Information

Source file <DGMTP3.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Registration 3 (FT,HD)^DGMTP  ($$AMT,$$UL,$$YN)^DGMTSCU1  $$NAME^DGMTU1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGMTP2  

Entry Points

Name Comments DBIA/ICR reference
CHILDQ
EXP ;Entry point to print deductible expenses
CHILD ;Print employment income and expenses for a dependent child

External References

Name Field # of Occurrence
FT^DGMTP EXP+7
HD^DGMTP EXP+9
$$AMT^DGMTSCU1 EXP+3, EXP+5, EXP+6, EXP+10, EXP+20, EXP+21, EXP+22, EXP+23, EXP+24, CHILD+6
, CHILD+7, CHILD+8, CHILD+9, CHILD+10
$$UL^DGMTSCU1 EXP+2, EXP+3, EXP+4, EXP+6, EXP+11, EXP+12, EXP+16, EXP+19, EXP+20, EXP+21
, EXP+22, EXP+23, EXP+24, CHILD+5
$$YN^DGMTSCU1 EXP+10
$$NAME^DGMTU1 CHILD+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!!?59,"D. Deductible Expenses"
  • Line Location: EXP+2
Function Call: WRITE
  • Prompt: $$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"),"^"))
  • Line Location: EXP+3
Function Call: WRITE
  • Prompt: $$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. "
  • Line Location: EXP+4
Function Call: WRITE
  • Prompt: $S('$P(DGVIR0,"^",5)&('$P(DGVIR0,"^",8)):"NOT APPLICABLE",1:$$AMT^DGMTSCU1($P(DGIN1("V"),"^",2)))
  • Line Location: EXP+5
Function Call: WRITE
  • Prompt: $$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))
  • Line Location: EXP+6
Function Call: WRITE
  • Prompt: !?1,"4. Was employment income reported for a child in item C7",?63,"| FOR VA USE ONLY",?88,"| 5. Enter child's income exclusion"
  • Line Location: EXP+9
Function Call: WRITE
  • Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?20,"6. List each child for whom employment income was reported in item C7."
  • Line Location: EXP+11
Function Call: WRITE
  • Prompt: $$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"
  • Line Location: EXP+12
Function Call: WRITE
  • Prompt: !?30,"| income from",?45,"| item D(5)",?63,"| (if ""0"", skip (E)",?88,"| post-secondary",?109,"| employment income"
  • Line Location: EXP+13
Function Call: WRITE
  • Prompt: !?30,"| item C7",?45,"|",?63,"| and enter ""0"" in (F))",?88,"| education expenses",?109,"|"
  • Line Location: EXP+14
Function Call: WRITE
  • Prompt: !?6," (A)",?30,"| (B)",?45,"| (C)",?63,"| (D)",?88,"| (E)",?109,"| (F)"
  • Line Location: EXP+15
Function Call: WRITE
  • Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?6,"NOT APPLICABLE",?30,"|",?45,"|",?63,"|",?88,"|",?109,"|"
  • Line Location: EXP+16
Function Call: WRITE
  • Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!!?37,"TO BE COMPLETED BY VA (VETERANS AFFAIRS)"
  • Line Location: EXP+19
Function Call: WRITE
  • Prompt: $$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)
  • Line Location: EXP+20
Function Call: WRITE
  • Prompt: $$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)
  • Line Location: EXP+21
Function Call: WRITE
  • Prompt: $$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)
  • Line Location: EXP+22
Function Call: WRITE
  • Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"10. Total Deductible Expenses (Add Items D1, D2, D3 and D9)",?109,"|",$J($$AMT^DGMTSCU1(DGDET),18)
  • Line Location: EXP+23
Function Call: WRITE
  • Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"11. Attributable Income (Subtract Item D10 from C11)",?109,"|",$J($$AMT^DGMTSCU1(DGINT-DGDET),18)
  • Line Location: EXP+24
Function Call: WRITE
  • Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,$$NAME^DGMTU1(+$G(DGREL("C",DGCNT)))
  • Line Location: CHILD+5
Function Call: WRITE
  • Prompt: ?30,"|",$J($$AMT^DGMTSCU1($P(DGIN0,"^",14)),12)
  • Line Location: CHILD+6
Function Call: WRITE
  • Prompt: ?45,"|",$J($$AMT^DGMTSCU1($P(DGMTPAR,"^",17)),15)
  • Line Location: CHILD+7
Function Call: WRITE
  • Prompt: ?63,"|",$J($S(DGEX>0:$$AMT^DGMTSCU1(DGEX),1:0),22)
  • Line Location: CHILD+8
Function Call: WRITE
  • Prompt: ?88,"|",$J($S(DGEX>0:$$AMT^DGMTSCU1($P(DGIN1,"^",3)),1:"NOT APPLICABLE"),19)
  • Line Location: CHILD+9
Function Call: WRITE
  • Prompt: ?109,"|",$J($S($G(DGCE)>0:$$AMT^DGMTSCU1(DGCE),1:0),18)
  • Line Location: CHILD+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGMT(408.21 - [#408.21] CHILD+2

Label References

Name Line Occurrences
CHILD EXP+17

Naked Globals

Name Field # of Occurrence
^(1 CHILD+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DGCE CHILD+1~, CHILD+3*, CHILD+4, CHILD+10
DGCET EXP+1~, EXP+17*, EXP+21, EXP+22, CHILD+4*
>> DGCNT EXP+17*, CHILD+2, CHILD+5
>> DGDCS EXP+10, EXP+16, EXP+17, EXP+20, EXP+21, EXP+22
>> DGDCS( EXP+17
>> DGDET EXP+23, EXP+24
DGEMT EXP+1~, EXP+17*, EXP+20, EXP+22, CHILD+4*
DGEX CHILD+1~, CHILD+3*, CHILD+8, CHILD+9
DGIN0 CHILD+1~, CHILD+2*, CHILD+3, CHILD+4, CHILD+6
DGIN1 CHILD+1~, CHILD+2*, CHILD+3, CHILD+9
DGIN1("V" EXP+3, EXP+5, EXP+6
>> DGINC("C" CHILD+2
>> DGINT EXP+24
>> DGLNE1 EXP+2, EXP+3, EXP+4, EXP+6, EXP+11, EXP+12, EXP+16, EXP+19, EXP+20, EXP+21
, EXP+22, EXP+23, EXP+24, CHILD+5
>> DGLP EXP+17*
>> DGMTPAR EXP+10, CHILD+3, CHILD+7
>> DGPGE EXP+7*
>> DGREL("C" CHILD+5
>> DGUL EXP+2, EXP+3, EXP+4, EXP+6, EXP+11, EXP+12, EXP+16, EXP+19, EXP+20, EXP+21
, EXP+22, EXP+23, EXP+24, CHILD+5
>> DGVIR0 EXP+5, EXP+10
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All