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: DGMTP1

Package: Registration

Routine: DGMTP1


Information

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

Source Information

Source file <DGMTP1.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Registration 3 EN^DGMTP2  ($$AMT,$$UL,$$YN)^DGMTSCU1  ($$NAME,$$SSN)^DGMTU1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGMTP  

Entry Points

Name Comments DBIA/ICR reference
CHILDQ
MAR ;Print marital status
DEP ;Print dependent children
Q
EN ;Entry point to print demograpic, marital status and dependents
DEM ;Print demographic portion of form
CHILD ;Print data collected for a dependent child

External References

Name Field # of Occurrence
EN^DGMTP2 EN+1
$$AMT^DGMTSCU1 MAR+6
$$UL^DGMTSCU1 MAR+1, DEP+1, DEP+5, DEP+9, CHILD+3
$$YN^DGMTSCU1 MAR+4, MAR+5, DEP+4, CHILD+4, CHILD+5, CHILD+6, CHILD+7, CHILD+8
$$NAME^DGMTU1 DEM+3, CHILD+3
$$SSN^DGMTU1 DEM+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,?116,"VA FORM 10-10F",!,DGLNE,!,"DEPARTMENT OF VETERANS AFFAIRS",?111,"FINANCIAL WORKSHEET",!,DGLNE
  • Line Location: DEM+1
Function Call: WRITE
  • Prompt: !?30,"THE LAW PROVIDES SEVERE PENALTIES FOR WILLFUL SUBMISSION OF FALSE INFORMATION",!?39,"SEE PAGE 3 FOR PRIVACY ACT AND PAPERWORK REDUCTION ACT INFORMATION",!,DGLNE
  • Line Location: DEM+2
Function Call: WRITE
  • Prompt: !?1,"Applicant's Name: ",$$NAME^DGMTU1(DGVPRI),?72,"| Social Security Number: ",$$SSN^DGMTU1(DGVPRI)
  • Line Location: DEM+3
Function Call: WRITE
  • Prompt: !,DGLNE,!!?61,"A. Marital Status",$$UL^DGMTSCU1(DGUL,DGLNE1)
  • Line Location: MAR+1
Function Call: WRITE
  • Prompt: !?1,"1. Were you married last calendar year.",?41,"| 2. Did you live with your spouse",?78,"| 3. If you did not live with your spouse, show the"
  • Line Location: MAR+2
Function Call: WRITE
  • Prompt: !?4,"(If ""NO"", go to Section B).",?41,"| last calendar year. (If ""YES"", go",?78,"| amount you contributed to your spouse's support"
  • Line Location: MAR+3
Function Call: WRITE
  • Prompt: !?6,$$YN^DGMTSCU1($P(DGVIR0,"^",5))
  • Line Location: MAR+4
Function Call: WRITE
  • Prompt: ?41,"| to Section B). ",$S($P(DGVIR0,"^",5)=0:"NOT APPLICABLE",1:$$YN^DGMTSCU1($P(DGVIR0,"^",6)))
  • Line Location: MAR+5
Function Call: WRITE
  • Prompt: ?78,"| last calendar year ",$S($P(DGVIR0,"^",5)=0!($P(DGVIR0,"^",6)):"NOT APPLICABLE",1:$$AMT^DGMTSCU1($P(DGVIR0,"^",7)))
  • Line Location: MAR+6
Function Call: WRITE
  • Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!!?60,"B. Dependent Children",$$UL^DGMTSCU1(DGUL,DGLNE1)
  • Line Location: DEP+1
Function Call: WRITE
  • Prompt: !?2,"During last calendar year, did you have any UNMARRIED children or stepchildren who are under the age of 18 or between the ages"
  • Line Location: DEP+2
Function Call: WRITE
  • Prompt: !?2,"of 18 and 23 and attending school? OR did you have any unmarried children over the age of 17 who became permanently incapable"
  • Line Location: DEP+3
Function Call: WRITE
  • Prompt: !?2,"of self-support before reaching the age of 18? ",$$YN^DGMTSCU1($P(DGVIR0,"^",8))," (If ""NO"", go to Section C)"
  • Line Location: DEP+4
Function Call: WRITE
  • Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?6,"Child's Name",?30,"| Permanently",?50,"| Did the child",?72,"| Did you contribute",?93,"| Did the",?109,"| Was the child's"
  • Line Location: DEP+5
Function Call: WRITE
  • Prompt: !?30,"| incapable of",?50,"| live with you",?72,"| to the child's",?93,"| child have",?109,"| income available"
  • Line Location: DEP+6
Function Call: WRITE
  • Prompt: !?30,"| self-support",?50,"|",?72,"| support?",?93,"| any income?",?109,"| to you?"
  • Line Location: DEP+7
Function Call: WRITE
  • Prompt: !?6," (1)",?30,"| (2)",?50,"| (3)",?72,"| (4)",?93,"| (5)",?109,"| (6)"
  • Line Location: DEP+8
Function Call: WRITE
  • Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?6,"NOT APPLICABLE",?30,"|",?50,"|",?72,"|",?93,"|",?109,"|"
  • Line Location: DEP+9
Function Call: WRITE
  • Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,$$NAME^DGMTU1(+DGREL("C",DGCNT))
  • Line Location: CHILD+3
Function Call: WRITE
  • Prompt: ?30,"| ",$$YN^DGMTSCU1($P(DGIR0,"^",9))
  • Line Location: CHILD+4
Function Call: WRITE
  • Prompt: ?50,"| ",$$YN^DGMTSCU1($P(DGIR0,"^",6))
  • Line Location: CHILD+5
Function Call: WRITE
  • Prompt: ?72,"| ",$S($P(DGIR0,"^",6):"NOT APPLICABLE",1:$$YN^DGMTSCU1($P(DGIR0,"^",10)))
  • Line Location: CHILD+6
Function Call: WRITE
  • Prompt: ?93,"| ",$$YN^DGMTSCU1($P(DGIR0,"^",11))
  • Line Location: CHILD+7
Function Call: WRITE
  • Prompt: ?109,"| ",$S($P(DGIR0,"^",11)=0:"NOT APPLICABLE",1:$$YN^DGMTSCU1($P(DGIR0,"^",12)))
  • Line Location: CHILD+8

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
CHILD DEP+10
DEM EN+1
DEP EN+1
MAR EN+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DGCNT DEP+10*, CHILD+2, CHILD+3
>> DGINR("C" CHILD+2
DGIR0 CHILD+1~, CHILD+2*, CHILD+4, CHILD+5, CHILD+6, CHILD+7, CHILD+8
>> DGLNE DEM+1, DEM+2, MAR+1
>> DGLNE1 MAR+1, DEP+1, DEP+5, DEP+9, CHILD+3
>> DGREL("C" DEP+10, CHILD+3
>> DGUL MAR+1, DEP+1, DEP+5, DEP+9, CHILD+3
>> DGVIR0 MAR+4, MAR+5, MAR+6, DEP+4, DEP+9, DEP+10
>> DGVPRI DEM+3
IOF DEM+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All