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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: ANRVRP7

Package: Visual Impairment Service Team

Routine: ANRVRP7


Information

ANRVRP7 ;BIRM/LDT - VIST ROSTER PRINTOUT ; 27 Apr 98 / 9:20 AM

Source Information

Source file <ANRVRP7.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 3 NOW^%DTC  ^DIC  ^DIR  
Registration 1 (2,DEM,KVA,KVAR)^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: 1

Package Total Caller Graph
Visual Impairment Service Team 1 ANRV VIST ROSTER PRINT  

Entry Points

Name Comments DBIA/ICR reference
EN1 ;Entry point for Roster Printout.
DEQ ;Entry point when queued.
QUIT
SETTMP ;Set TMP global
HDR ;Report header
REPORT ;Print Report
SEL
ASKPT
QUIT2
HELPSEL ;
ANRVLP ;Set ANRVLP for all patients who are not inactive for AMIS

External References

Name Field # of Occurrence
NOW^%DTC DEQ+4
^%ZIS EN1+4
^%ZISC QUIT+1
^%ZTLOAD EN1+6
^DIC ASKPT
^DIR HDR+1, SEL+1
2^VADPT DEQ+2
DEM^VADPT ASKPT+1
KVA^VADPT QUIT
KVAR^VADPT QUIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!,"VIST ROSTER PRINTOUT",!!
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !!,"The right margin for this report is 132.",!
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!!"
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !,"NO DATA TO PRINT!"
  • Line Location: DEQ+5
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y!($E(IOST)="C")
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,HDR,?73,"Printed ",HDT,?100,"Page ",PG,!!,"NAME",?27,"SSN",?47,"VIST ELIGIBLE",?73,"PERIOD OF",?93,"VIST ELIGIBILITY"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !?73,"SERVICE",!,LN
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,ANRV(1),?27,ANRV(2),?47,$S(ANRV(3)="001":"YES (001)",ANRV(3)="002":"NO - REVIEWED FOR BRC",ANRV(3)="003":"NO - OTHER (003)",ANRV(3)="NO":"NO - NOT LEGALLY BLIN",1:""),?73,ANRV(4),?93,ANRV(5)
  • Line Location: REPORT+3
Function Call: WRITE
  • Prompt: !!,"Do you want the report to list:",!?3,"(A)ll patients, or",!?3,"(S)elect patients",!!
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL+4
Function Call: WRITE
  • Prompt: !?5,"Patient died "_$P($P(VADM(6),"^",2),"@")_"."
  • Line Location: ASKPT+1
Function Call: WRITE
  • Prompt: !!,"Enter ""A"" to select all patients from the VIST ROSTER file.",!?6,"""S"" to select only specific patients.",!?6,"""^"" or <return> to halt."
  • Line Location: HELPSEL+1
Routine Call
  • DIC
  • Line Location:
    • ASKPT
Routine Call
  • DIR
  • Line Location:
    • HDR+1
    • SEL+1
Routine Call
  • %ZIS
  • Line Location:
    • EN1+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ANRV(2040 - [#2040] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ANRV(2040 - [#2040] DEQ+2, SETTMP+1, ASKPT+1, ANRVLP+1
^DD("DD" DEQ+4
^TMP("ANRV" DEQ+1!, DEQ+5, QUIT!, SETTMP+1*, REPORT+1, REPORT+2

Label References

Name Line Occurrences
ANRVLP SEL+2
ASKPT ASKPT+1, ASKPT+2
HDR DEQ+4, REPORT+1, REPORT+3
QUIT EN1+2, EN1+4, EN1+6, DEQ+5
QUIT2 SEL+3
REPORT DEQ+6
SEL EN1+2
SETTMP DEQ+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DEQ+4, QUIT!, QUIT2!
%H QUIT!
%I QUIT!
%T QUIT!
%Y QUIT!
%ZIS EN1+4!*
%ZIS("B" EN1+4*
ANRV QUIT!
ANRV( REPORT+2*
ANRV(1 REPORT+3
ANRV(2 REPORT+3
ANRV(3 REPORT+3
ANRV(4 REPORT+3
ANRV(5 REPORT+3
ANRVLP EN1+1!, EN1+2, EN1+5, QUIT!
ANRVLP( DEQ+2, ASKPT+2*, ANRVLP+1*
ANRVP DEQ+2*, QUIT!, SETTMP+1, ASKPT+1*, ASKPT+2
DFN DEQ+2*, QUIT!, ASKPT+1*
DIC ASKPT*!, QUIT2!
DIC("S" ASKPT*
DIC(0 ASKPT*
DIR HDR+1!, SEL+1!
DIR("?" SEL+1*
DIR("A" SEL+1*
DIR(0 HDR+1*, SEL+1*
HDR DEQ+3*, QUIT!, HDR+2
HDT DEQ+4*, QUIT!, HDR+2
IO EN1+7
IO("Q" EN1+5!
IOF EN1+1, QUIT+1, HDR+2
IOP EN1+4!
IOSL REPORT+1, REPORT+3
IOST QUIT+1, HDR+1, HDR+2
JJ QUIT!, ANRVLP+1*
LN DEQ+4*, QUIT!, HDR+3
NAME QUIT!, REPORT+1*, REPORT+2
PG DEQ+4*, QUIT!, HDR+1, HDR+2*
POP EN1+4, QUIT!
QFLG DEQ+4*, QUIT!, HDR+1*, REPORT+1, REPORT+3
SEL EN1+2, EN1+5, QUIT!, SEL+2*, SEL+3*, QUIT2
U DEQ+2, SETTMP+1, REPORT+2, ASKPT+1, ANRVLP+1
>> VADM(1 SETTMP+1
>> VADM(2 SETTMP+1
>> VADM(6 SETTMP+1, ASKPT+1
>> VAEL(2 SETTMP+1
X QUIT!, QUIT2!
XX QUIT!, REPORT+2*
Y DEQ+4*, QUIT!, HDR+1, SEL+2, ASKPT, ASKPT+1, QUIT2!
>> ZTDESC EN1+5*
>> ZTQUEUED QUIT+1
>> ZTREQ QUIT+1*
>> ZTRTN EN1+5*
>> ZTSAVE("ANRVLP(" EN1+5*
>> ZTSAVE("SEL" EN1+5*
ZTSK EN1+6!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All