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

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

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

FileMan Files Accessed Via FileMan Db Call

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