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

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 HOME^%ZIS  ($$NS,PARENT)^XUAF4  EN^XUTMDEVQ  
VA FileMan 3 DD^%DT  DT^DICRW  ^DIR  
Registration 1 DEM^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Registration 2 DG MEANS TEST INC < THRESH RPT  DG MEANS TEST SPEC INCOME RPT  

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

External References

Name Field # of Occurrence
DD^%DT RPTSDA+16, RPTLTT+19, DFORM+1, DFORM+2, DFORM+3
HOME^%ZIS ENSDA+10, ENLTT+10
DT^DICRW DATRAN+2, DFORM+1
^DIR RPTSDA+18, DATRAN+3, DATRAN+6, DOLRAN+2, DOLRAN+5, RPTLTT+21
DEM^VADPT RPTSDA+9, RPTLTT+11
$$NS^XUAF4 GETVV+3
PARENT^XUAF4 GETVV+5
EN^XUTMDEVQ ENSDA+9, ENLTT+9

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
Routine Call
  • DIR
  • Line Location:
    • RPTSDA+18
    • DATRAN+3
    • DATRAN+6
    • DOLRAN+2
    • DOLRAN+5
    • RPTLTT+21
Routine Call
  • %ZIS
  • Line Location:
    • ENSDA+10
    • ENLTT+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGMT(408.31 - [#408.31] RPTSDA+4, RPTSDA+5, RPTLTT+4, RPTLTT+5
^TMP($J RPTSDA+3!, RPTSDA+10*, RPTSDA+13, RPTSDA+14, RPTSDA+15, RPTSDA+16, RPTSDAQ+1!, RPTLTT+3!, RPTLTT+12*, RPTLTT+15
RPTLTT+16, RPTLTT+18, RPTLTT+19, RPTLTTQ+1!

Label References

Name Line Occurrences
$$DATRAN ENSDA+6, ENLTT+6
$$DOLRAN ENSDA+4, ENLTT+4
$$GETVV NOFF+1, NOFF2+1
DFORM RPTSDA+2, RPTLTT+2
HED RPTSDA+19
HED2 RPTLTT+22
NOFF RPTSDA+12
NOFF2 RPTLTT+14
RPTLTTQ RPTLTT+15
RPTSDAQ RPTSDA+13

Naked Globals

Name Field # of Occurrence
^( RPTSDA+16, RPTLTT+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN ENSDA+1~, RPTSDA+1~, RPTSDA+9*, RPTSDA+10, RPTSDA+15*, RPTSDA+16, RPTLTT+1~, RPTLTT+11*, RPTLTT+12, RPTLTT+18*
RPTLTT+19
DGDAT RPTSDA+1~, RPTSDA+4*, RPTSDA+10, RPTLTT+1~, RPTLTT+4*, RPTLTT+12, RPTLTT+19*
DGDIFF RPTLTT+1~, RPTLTT+9*, RPTLTT+10
DGFDAT DATRAN+1~, DATRAN+5*, DATRAN+6, DATRAN+9
DGFDOL ENSDA+1~, ENSDA+5*, RPTSDA+2, RPTSDA+8, ENLTT+5*, RPTLTT+2, RPTLTT+10, RPTLTTQ+1!
DGHDOL DOLRAN+1~, DOLRAN+7*, DOLRAN+8, ENLTT+1~, RPTLTT+1~, DFORM~, DFORM+5
DGHIGH ENSDA+1~, ENSDA+3*, ENSDA+4, DOLRAN~, DOLRAN+2, DOLRAN+5, ENLTT+1~, ENLTT+3*, ENLTT+4
DGIEN RPTSDA+1~, RPTSDA+4*, RPTSDA+5, RPTLTT+1~, RPTLTT+4*, RPTLTT+5
DGINC RPTSDA+1~, RPTSDA+6*, RPTSDA+8, RPTSDA+10, RPTSDA+14*, RPTSDA+15, RPTSDA+16, RPTSDA+20, RPTLTT+1~, RPTLTT+6*
RPTLTT+8, RPTLTT+9, RPTLTT+12, RPTLTT+17*, RPTLTT+18*, RPTLTT+19, RPTLTT+23
DGLDOL DOLRAN+1~, DOLRAN+4*, DOLRAN+5, DOLRAN+8, ENLTT+1~, RPTLTT+1~, DFORM~, DFORM+4
DGLOW ENSDA+1~, ENSDA+3*, ENSDA+4, DOLRAN~, DOLRAN+2, ENLTT+1~, ENLTT+3*, ENLTT+4
DGMT0 RPTSDA+1~, RPTSDA+5*, RPTSDA+6, RPTSDA+7, RPTSDA+9, RPTLTT+1~, RPTLTT+5*, RPTLTT+6, RPTLTT+7, RPTLTT+11
DGMTDATE RPTSDA+1~, RPTSDA+16*
DGNAME RPTSDA+1~, RPTSDA+9*, RPTSDA+10, RPTSDA+15*, RPTSDA+16, RPTSDA+20, RPTLTT+1~, RPTLTT+11*, RPTLTT+12, RPTLTT+18*
RPTLTT+19, RPTLTT+23
DGPDG RPTSDA+1~, NOFF+4, RPTLTT+1~, DFORM+1*, NOFF2+4
DGPHDOL RPTSDA+1~, NOFF+2, RPTLTT+1~, DFORM+5*, NOFF2+2
DGPLDOL RPTSDA+1~, NOFF+2, RPTLTT+1~, DFORM+4*, NOFF2+2
DGPMDT RPTSDA+1~, RPTSDA+16*, RPTSDA+20, RPTLTT+1~, RPTLTT+19*, RPTLTT+23
DGPSDAT RPTSDA+1~, NOFF+3, RPTLTT+1~, DFORM+2*, NOFF2+3
DGPTDAT RPTSDA+1~, NOFF+3, RPTLTT+1~, DFORM+3*, NOFF2+3
DGPVAMC RPTSDA+1~, NOFF+1*, NOFF+5, RPTLTT+1~, NOFF2+1*, NOFF2+5
DGPVASN RPTSDA+1~, NOFF+1*, NOFF+5, RPTLTT+1~, NOFF2+1*, NOFF2+5
DGPVISN RPTSDA+1~, NOFF+1*, NOFF+5, RPTLTT+1~, NOFF2+1*, NOFF2+5
DGSDAT ENSDA+1~, ENSDA+7*, RPTSDA+2, RPTSDA+4, RPTSDAQ+1!, ENLTT+1~, ENLTT+7*, RPTLTT+2, RPTLTT+4, DFORM~
, DFORM+2
DGTDAT ENSDA+1~, ENSDA+7*, RPTSDA+2, RPTSDA+4, RPTSDAQ+1!, DATRAN+1~, DATRAN+8*, DATRAN+9, ENLTT+1~, ENLTT+7*
RPTLTT+2, RPTLTT+4, DFORM~, DFORM+3
DGTDOL ENSDA+1~, ENSDA+5*, RPTSDA+2, RPTSDA+8, ENLTT+5*, RPTLTT+2, RPTLTT+10, RPTLTTQ+1!
DGTHR RPTLTT+1~, RPTLTT+6*, RPTLTT+8, RPTLTT+9, RPTLTT+12, RPTLTT+16*, RPTLTT+18, RPTLTT+19, RPTLTT+23
DGVAMCNA GETVV+1~, GETVV+4*
DGVAMCSN GETVV+1~, GETVV+4*
DGVISN GETVV+1~, GETVV+5
DGVISN("P" GETVV+5
DIR RPTSDA+18!, DATRAN+3!, DATRAN+6!, DOLRAN+2!, DOLRAN+5!, RPTLTT+21!
DIR("A" DATRAN+3*, DATRAN+6*, DOLRAN+2*, DOLRAN+5*
DIR(0 RPTSDA+18*, DATRAN+3*, DATRAN+6*, DOLRAN+2*, DOLRAN+5*, RPTLTT+21*
>> DIROUT DATRAN+4, DATRAN+7, DOLRAN+3, DOLRAN+6
>> DIRUT DATRAN+4, DATRAN+7, DOLRAN+3, DOLRAN+6
DT DATRAN+3, DATRAN+6, DFORM+1
>> DTOUT RPTSDA+14, RPTSDA+15, RPTSDA+17, RPTSDA+18, DATRAN+4, DATRAN+7, DOLRAN+3, DOLRAN+6, RPTLTT+16, RPTLTT+18
RPTLTT+20, RPTLTT+21
>> DUOUT RPTSDA+14, RPTSDA+15, RPTSDA+17, RPTSDA+18, DATRAN+4, DATRAN+7, DOLRAN+3, DOLRAN+6, RPTLTT+16, RPTLTT+18
RPTLTT+20, RPTLTT+21
>> DUZ(2 GETVV+2, GETVV+3, GETVV+5
IOF RPTSDA+11, RPTSDA+13, HED+1, RPTLTT+13, RPTLTT+15, HED2+1
IOSL RPTSDA+17, RPTLTT+20
IOST RPTSDA+11, RPTSDA+18, RPTLTT+13, RPTLTT+21
>> J GETVV+5*
SEX ENSDA+1~, RPTSDA+1~, RPTLTT+1~
SSN RPTSDA+1~, RPTSDA+9*, RPTSDA+10, RPTSDA+16*, RPTSDA+20, RPTLTT+1~, RPTLTT+11*, RPTLTT+12, RPTLTT+19*, RPTLTT+23
VA RPTSDA+1~, RPTLTTQ+1!
VADM RPTSDA+1~, RPTLTT+1~
VADM(1 RPTSDA+9, RPTLTT+11
VADM(2 RPTSDA+9, RPTLTT+11
VADM(6 RPTSDA+9, RPTLTT+11
VAERR RPTSDA+1~, RPTLTTQ+1!
>> X ENSDA+8*, ENLTT+8*
Y ENSDA+4*, ENSDA+5, ENSDA+6*, ENSDA+7, RPTSDA+1~, RPTSDA+16*, RPTSDAQ+1!, DATRAN+5, DATRAN+8, DOLRAN+1~
, DOLRAN+4, DOLRAN+7, NOFF+1*, ENLTT+4*, ENLTT+5, ENLTT+6*, ENLTT+7, RPTLTT+19*, RPTLTTQ+1!, DFORM+1*
, DFORM+2*, DFORM+3*, NOFF2+1*
Z GETVV+1~, GETVV+3*, GETVV+4, GETVV+5*, GETVV+6
>> ZTSAVE ENSDA+9, ENLTT+9
>> ZTSAVE( ENSDA+8*, ENLTT+8*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All