Routine: DGMTARR

Information

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

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:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

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

Customize PDF page

Package: Registration