Routine: ANRVRP8

Information

ANRVRP8 ;BIRM/LDT - VIST ROSTER OUTPATIENT APPOINTMENTS ; 17 Feb 98 / 2:26 PM

Call Graph

Call Graph Total: 8

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

Package	Total	Caller Graph
Visual Impairment Service Team	1	ANRV OUTPATIENT APPT. LIST

Entry Points

Name	Comments	DBIA/ICR reference
EN1	;Entry point for Roster Outpatient Appointment.
BDT
EDT
DEV
DEQ	;Entry point when queued.
QUIT
SETTMP	;Set TMP global
HDR	;Report header
REPORT	;Print Report
SEL1
SEL2
ASKPT	;Ask for selected patients.
QUIT2
SETLP	;Set ANRVLP for all patients who are not inactive for AMIS
HELPSEL	;
HELP2	;

External References

Name	Field # of Occurrence
^%DT	BDT, EDT, SETTMP+5
NOW^%DTC	DEQ+4
^%ZIS	DEV
^%ZISC	QUIT+1
^%ZTLOAD	DEV+2
^DIC	ASKPT+2
^DIR	HDR+1, SEL1+1, SEL2+1
9^VADPT	DEQ+2
KVA^VADPT	QUIT
KVAR^VADPT	QUIT

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!,"OUTPATIENT APPOINTMENT LIST",!!,"The right margin for this report is 132.",!! Line Location: EN1+1
Function Call: WRITE	Prompt: ! Line Location: BDT+0
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!!" Line Location: DEV+0
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," FROM " Line Location: HDR+2
Function Call: WRITE	Prompt: Y," TO " Line Location: HDR+2
Function Call: WRITE	Prompt: Y," TO " Line Location: HDR+2
Function Call: WRITE	Prompt: !,"NAME",?32,"SSN",?45,"LAST ANNUAL REVIEW",?65,"STATUS",?81,"APPT. DATE/TIME",?100,"CLINIC",!,LN Line Location: HDR+3
Function Call: WRITE	Prompt: !!,"Do you want to sort by (P)atient or (D)ate/time of appointment?",! Line Location: SEL1+0
Function Call: WRITE	Prompt: !!,"Do you want to list outpatient appointments for:",!?7,"(A)ll patients, or",!?7,"(S)elect patients.",! Line Location: SEL2+0
Function Call: WRITE	Prompt: ! Line Location: ASKPT+1
Function Call: WRITE	Prompt: !!,"Enter:",!?7,"""P"" to sort outpatient appointments by patient in alphabetic order.",!?7,"""D"" to sort outpatient appointments by date/time of clinic appointment.",!?7,"""^"" or <return> to halt." Line Location: HELPSEL+1
Function Call: WRITE	Prompt: !!,"Enter:",!?7,"""A"" to list ALL patients from the VIST ROSTER file with",!?11,"outpatient appointments.",!?7,"""S"" to select only specific patients.",!?7,"""^"" or <return> to halt." Line Location: HELP2+1
Routine Call	DIC Line Location: ASKPT+2
Routine Call	DIR Line Location: HDR+1 SEL1+1 SEL2+1
Routine Call	%ZIS Line Location: DEV

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+3, SETTMP+6, SETLP+1
^DD("DD"	DEQ+4, SETTMP+3, SETTMP+6, HDR+2
^TMP("ANRV"	DEQ+1!, DEQ+5, SETTMP+2, SETTMP+3, SETTMP+4, SETTMP+5, SETTMP+6, SETTMP+7, REPORT+1, REPORT+2 , REPORT+4, REPORT+5, REPORT+7, REPORT+8, REPORT+10, REPORT+11
^UTILITY("VASD"	SETTMP+1, SETTMP+4, SETTMP+5, SETTMP+7

Label References

Name	Line Occurrences
ASKPT	ASKPT+3
HDR	DEQ+4, REPORT+1, REPORT+7
QUIT	EN1+2, BDT, EDT, EDT+1, DEV, DEV+2, DEQ+5
QUIT2	SEL1+2
REPORT	DEQ+6
SEL1	EN1+2
SEL2	EDT+1
SETLP	SEL2+2
SETTMP	DEQ+2

Naked Globals

Name	Field # of Occurrence
^(0	SETTMP+3, SETTMP+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DEQ+4, QUIT!, QUIT2!
%DT	BDT!, EDT!, SETTMP+5*
%DT("A"	BDT, EDT
%DT(0	EDT*
%H	QUIT!
%I	QUIT!
%T	QUIT!
%Y	QUIT!
%ZIS	DEV!*
%ZIS("B"	DEV*
ANRV	QUIT!
ANRV(	REPORT+2, REPORT+8
ANRV(1	REPORT+3, REPORT+9
ANRV(2	REPORT+3, REPORT+9
ANRV(3	REPORT+3, REPORT+9
ANRV(4	REPORT+3, REPORT+9
ANRVAP	QUIT!
ANRVAP(	REPORT+5, REPORT+11
ANRVAP(1	REPORT+6, REPORT+12
ANRVAP(2	REPORT+6, REPORT+12
ANRVLP	EDT+1, DEV+1, QUIT!
ANRVLP(	DEQ+2, ASKPT+3, SETLP+1
ANRVP	DEQ+2*, QUIT!, SETTMP+3, SETTMP+6
APP	QUIT!, SETTMP+4, SETTMP+5, SETTMP+7, REPORT+7*, REPORT+8, REPORT+10, REPORT+11
BDT	BDT*, EDT, DEQ+2, QUIT!, HDR+2
DFN	DEQ+2*, QUIT!
DIC	ASKPT+2*!
DIC("S"	ASKPT+2*
DIC(0	ASKPT+2*
DIR	HDR+1!, SEL1+1!, SEL2+1!
DIR("?"	SEL1+1, SEL2+1
DIR("A"	SEL1+1, SEL2+1
DIR(0	HDR+1, SEL1+1, SEL2+1*
EDT	EDT*, DEQ+2, QUIT!, HDR+2
>> G	DEV+1*
HDR	DEQ+3*, QUIT!, HDR+2
HDT	DEQ+4*, QUIT!
IO	DEV+3
IO("Q"	DEV+1!
IOF	EN1+1, QUIT+1, HDR+2
IOP	DEV!
IOSL	REPORT+1, REPORT+7
IOST	QUIT+1, HDR+1, HDR+2
JJ	QUIT!, SETLP+1*
LN	DEQ+4*, QUIT!, HDR+3
NAME	QUIT!, REPORT+1, REPORT+2, REPORT+4, REPORT+5, REPORT+7, REPORT+8, REPORT+10, REPORT+11
NN	QUIT!, REPORT+4, REPORT+5, REPORT+10, REPORT+11
PG	DEQ+4, QUIT!, HDR+1, HDR+2
POP	DEV, QUIT!
QFLG	DEQ+4, QUIT!, HDR+1, REPORT+1, REPORT+7
RVDT	QUIT!, SETTMP+3, SETTMP+6
SEL	EN1+2, QUIT!, SETTMP+2, SETTMP+5, REPORT+1, REPORT+7, SEL1+2*
SUB1	QUIT!, SETTMP+2, SETTMP+3, SETTMP+4, SETTMP+5, SETTMP+6, SETTMP+7
SUB2	QUIT!, SETTMP+5*, SETTMP+6, SETTMP+7
U	DEQ+2, SETTMP+2, SETTMP+3, SETTMP+5, SETTMP+6, REPORT+2, REPORT+5, REPORT+8, REPORT+11, SETLP+1
>> VADM(1	SETTMP+2, SETTMP+5
>> VADM(2	SETTMP+2, SETTMP+5
>> VASD("F"	DEQ+2*
>> VASD("T"	DEQ+2*
X	QUIT!, SETTMP+5*, QUIT2!
XX	QUIT!, REPORT+2, REPORT+8
XXX	QUIT!, REPORT+5, REPORT+11
Y	BDT, EDT, DEQ+4, QUIT!, SETTMP+3, SETTMP+5, SETTMP+6, HDR+1, HDR+2, SEL1+2 , SEL2+2, ASKPT+2, ASKPT+3, QUIT2!
>> ZTDESC	DEV+1*
>> ZTQUEUED	QUIT+1
>> ZTREQ	QUIT+1*
>> ZTRTN	DEV+1*
>> ZTSAVE(	DEV+1*
>> ZTSAVE("ANRVLP("	DEV+1*
ZTSK	DEV+2!

Customize PDF page

Package: Visual Impairment Service Team