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
Print Page as PDF
Routine: DGMTARR

Package: Registration

Routine: DGMTARR


Information

DGMTARR ;ALB/GRR/PHH - PRINT ROUTINES FOR MEANS TEST VERIFICATION; JAN 21, 1999

Source Information

Source file <DGMTARR.m>

Entry Points

Name Comments DBIA/ICR reference
ENSDA ;ENTRY FOR REPORT OF VETERANS WITH SPECIFIC INCOME DOLLAR AMOUNT
RPTSDA ;ENTRY POINT FROM XUTMDEVQ
RPTSDAQ ;EXIT POINT FOR SPECIFIC INCOME REPORT
DATRAN() ;ASK DATE RANGE
DOLRAN(DGLOW,DGHIGH) ;ASK DOLLAR RANGE
HED ;PRINT HEADER
NOFF ;SKIP FORM FEED
ENLTT ;CREATE AND PRINT VETERANS WITH INCOME LESS THAN THRESHOLD
RPTLTT ;BUILD AND PRINT LESS THAN THRESHOLD REPORT. ENTRY POINT FROM XUTMDEVQ
RPTLTTQ ;EXIT POINT FOR LESS THAN THRESHOLD REPORT
DFORM(DGSDAT,DGTDAT,DGLDOL,DGHDOL) ;
HED2 ;
NOFF2 ;SKIP FORM FEED
GETVV() ;GET VISN AND VAMC

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Veterans with Income of a Specified Dollar Amount"
  • Line Location: ENSDA+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RPTSDA+11
Function Call: WRITE
  • Prompt: !,"NO MATCHING PATIENTS FOUND!",@IOF
  • Line Location: RPTSDA+13
Function Call: WRITE
  • Prompt: !
  • Line Location: RPTSDA+15
Function Call: WRITE
  • Prompt: !
  • Line Location: RPTSDA+21
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HED+1
Function Call: WRITE
  • Prompt: !,?25,"VETERANS WITH INCOME - $",DGPLDOL," - $",DGPHDOL
  • Line Location: NOFF+2
Function Call: WRITE
  • Prompt: !,?20,"DETAILED REPORT ",DGPSDAT," - ",DGPTDAT
  • Line Location: NOFF+3
Function Call: WRITE
  • Prompt: !,?26,"DATE PRINTED - ",DGPDG
  • Line Location: NOFF+4
Function Call: WRITE
  • Prompt: !!,"VISN: ",DGPVISN," - VAMC: ",DGPVAMC," (",DGPVASN,")"
  • Line Location: NOFF+5
Function Call: WRITE
  • Prompt: !!,"NAME",?32,"SSN",?45,"$ AMOUNT",?60,"MT COMPLETED",!
  • Line Location: NOFF+6
Function Call: WRITE
  • Prompt: !!,"Veterans with Income Less than MT Threshold"
  • Line Location: ENLTT+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RPTLTT+13
Function Call: WRITE
  • Prompt: !,"NO MATCHING PATIENTS FOUND!",@IOF
  • Line Location: RPTLTT+15
Function Call: WRITE
  • Prompt: !
  • Line Location: RPTLTT+17
Function Call: WRITE
  • Prompt: !
  • Line Location: RPTLTT+24
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HED2+1
Function Call: WRITE
  • Prompt: !,?12,"VETERANS WITH INCOME - $",DGPLDOL," - $",DGPHDOL," LESS THAN MT THRESHOLD"
  • Line Location: NOFF2+2
Function Call: WRITE
  • Prompt: !,?20,"DETAILED REPORT ",DGPSDAT," - ",DGPTDAT
  • Line Location: NOFF2+3
Function Call: WRITE
  • Prompt: !,?26,"DATE PRINTED - ",DGPDG
  • Line Location: NOFF2+4
Function Call: WRITE
  • Prompt: !!,"VISN: ",DGPVISN," - VAMC: ",DGPVAMC," (",DGPVASN,")"
  • Line Location: NOFF2+5
Function Call: WRITE
  • Prompt: !!,?47,"INCOME"
  • Line Location: NOFF2+6
Function Call: WRITE
  • Prompt: !,"NAME",?32,"SSN",?47,"$ AMT.",?55,"THRESHOLD",?65,"MT COMPLETED"
  • Line Location: NOFF2+7
Info |  Source |  Entry Points |  Interaction Calls