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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: DGMTSC31

Package: Registration

Routine: DGMTSC31


Information

DGMTSC31 ;ALB/RMO,ERC - Means Test Screen Deductible Expenses Cont. ; 13 MAR 92

Source Information

Source file <DGMTSC31.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;Entry point for dependent children
Q
SET ;Set variables for selectable dependent children ;DGMTP also calls
SETQ
DIS ;Display dependent children with employment income
CHILD ;Display employment income and expenses for a dependent child
CHK ;Check if child has income available to the veteran and his/her own
EDT ;Edit dependent child expenses

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Enter: R to REDISPLAY information on dependent children"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !?8,"1-",DGDEP," to edit information for the child listed after that number"
  • Line Location: EN+3
Function Call: READ
  • Formatting: !
  • Prompt: "Enter CHOICE: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!?8,"Post-secondary education expenses are not applicable for this child."
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !!?8,"Child's",?24,"Employment",?36,"Post-secondary"
  • Line Location: DIS+2
Function Call: WRITE
  • Prompt: !?8,"First Name",?24,"Income",?36,"Education Expenses"
  • Line Location: DIS+3
Function Call: WRITE
  • Prompt: !?8,"------------",?24,"----------",?36,"------------------"
  • Line Location: DIS+4
Function Call: WRITE
  • Prompt: !?4,DGLP,".",?8,$E($P($$NAME^DGMTU1(+DGREL("C",DGCNT)),",",2),1,12)
  • Line Location: CHILD+3
Function Call: WRITE
  • Prompt: ?24,$J($$AMT^DGMTSCU1($P(DGIN0,"^",14)),10)
  • Line Location: CHILD+4
Function Call: WRITE
  • Prompt: ?44,$J($S(($P(DGIN0,"^",14)-$P(DGMTPAR,"^",17))>0:$$AMT^DGMTSCU1($P(DGIN1,"^",3)),1:"N/A"),10)
  • Line Location: CHILD+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGMT(408.21 - [#408.21] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call