Routine: PSIVAOR

Information

PSIVAOR ;BIR/PR-BUILD ACT/DC ORDER RPT BY WD/DRUG ;24 JAN 94 / 11:18 AM

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Inpatient Medications	5	ENIVKV^PSGSETU ^PSIVAOR1 ^PSIVHLP2 DTS^PSIVRQ ENIV^PSJAC
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA FileMan	3	NOW^%DTC ^DIC WAIT^DICD

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

Package	Total	Caller Graph
Inpatient Medications	2	PSIVAOR1 PSJI AOR
Kernel	1	^DIC(19

Entry Points

Name	Comments	DBIA/ICR reference
SW	;
WARD	;Select ward
DRUG	;Select drug
QUEUE	;Ask to queue report
ENQ1	;Entry from first queue or fall through
AIV	;Active orders
ADC	;Discontinued orders
Q2	;Do second queue
1	;1 w 1 d
2	;1 w all d
3	;All w all d
4	;1 d all w
B	;;Build TMP
ENQ2	;Entry second queue
H	;
K	;

External References

Name	Field # of Occurrence
NOW^%DTC	ENQ1+2, AIV+1, ADC+1, ENQ2+2
^%ZIS	QUEUE+1, Q2+2
^%ZISC	QUEUE+8, K+3
^%ZTLOAD	QUEUE+8, Q2+2
^DIC	WARD+4, DRUG+4
WAIT^DICD	ENQ1+1
ENIVKV^PSGSETU	K+2
^PSIVAOR1	ENQ2+3
^PSIVHLP2	WARD+3, DRUG+3
DTS^PSIVRQ	SW+1
ENIV^PSJAC	AIV+1, ADC+1

Interaction Calls

Name	Line Occurrences
Function Call: READ	Formatting: !! Prompt: "Select Ward (or enter ^ALL or ^OUTPATIENT): " Variable: X Timeout: DTIME Line Location: WARD+1
Function Call: WRITE	Prompt: $P("^ALL",X,2) Line Location: WARD+1
Function Call: WRITE	Prompt: $P("^OUTPATIENT",X,2) Line Location: WARD+2
Function Call: READ	Formatting: ! Prompt: "Select DRUG (or enter ^ALL): " Variable: X Timeout: DTIME Line Location: DRUG+1
Function Call: WRITE	Prompt: $P(Y,X,2) Line Location: DRUG+2
Function Call: WRITE	Prompt: !,"No Device selected or report run." Line Location: QUEUE+1
Function Call: WRITE	Prompt: !,"No data" Line Location: ENQ2+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: H+1
Function Call: WRITE	Prompt: TYPE,"Order Report by Ward/Drug For: ",I11,!,USER Line Location: H+1
Function Call: WRITE	Prompt: !,"Date range: ",RANGE Condition for execution: XREF="ADC" Line Location: H+1
Function Call: WRITE	Prompt: ?70,"PAGE: ",PG,!!,"IV ROOM/WARD/NAME/ORDER",?35,"STOP DATE",?60,"PROVIDER",! Line Location: H+1
Function Call: WRITE	Prompt: ?70,"PAGE: ",PG,!!,"IV ROOM/WARD/NAME/ORDER",?35,"STOP DATE",?60,"PROVIDER",! Line Location: H+1
Routine Call	DIC Line Location: WARD+4 DRUG+4
Routine Call	%ZIS Line Location: QUEUE+1 Q2+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	ENQ2+1, ENQ2+2
^DIC(42 - [#42]	1+1, 2+1, 3+1, 4+1
^PS(55 - [#55]	ENQ1+2, AIV+1, ADC+1, 1+1, 4+1
^TMP("PSJ"	ENQ1+2!, B+1*, ENQ2+2, K+2!
^VA(200 - [#200]	ENQ2+2

Label References

Name	Line Occurrences
@(	ENQ1+2, AIV+1, ADC+1
B	1+1, 2+1, 3+1, 4+1
DRUG	WARD+1, WARD+2, DRUG+3, DRUG+4, DRUG+5
ENQ2	Q2+1
H	ENQ2+2, ENQ2+3
K	SW+1, WARD+1, DRUG+1, QUEUE+1, QUEUE+8, Q2+2, ENQ2+2, ENQ2+3
Q2	ENQ1+3
QUEUE	DRUG+2
WARD	WARD+3, WARD+4

Naked Globals

Name	Field # of Occurrence
^(	1+1, 4+1
^(0	AIV+1, ADC+1, 1+1, 3+1, 4+1
^(2	AIV+1, ADC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ENQ1+2, AIV+1, ENQ2+2
%T	K+2!
%ZIS	QUEUE+1!, Q2+2
%ZIS("B"	QUEUE+1*
D	K+2!
DAT	ENQ1+2*, AIV+1, ADC+1, K+2!
DFN	AIV+1, ADC+1, 1+1, 4+1, B+1, K+2!
DIC	WARD+4, DRUG+4, K+2!
DIC(0	WARD+4, DRUG+4
DTIME	WARD+1, DRUG+1
DUZ	ENQ2+2
FI	DRUG+4*, 1+1, 4+1, K+2!
G	QUEUE+7, AIV+1, ADC+1*, 1+1, 2+1, 3+1, 4+1, K+2!
>> HELP	WARD+3, DRUG+3
I	H+1*, K+2!
I10	DRUG+2, DRUG+5, ENQ2+2, K+2!
I11	WARD+1, WARD+2, WARD+4, ENQ2+2, H+1, K+2!
I2	DRUG+2, DRUG+5, ENQ1+2, 1+1, 4+1, K+2!
I3	WARD+1, WARD+2, WARD+4*, ENQ1+2, 1+1, 2+1, K+2!
I6	QUEUE+4*, ENQ1+1, Q2+1, Q2+2, K+2!
I7	SW+1, ENQ1+2, ENQ2+1, K+2!
I8	SW+1, ENQ1+2, ENQ2+1, K+2!
IO	ENQ2+2
IO("DOC"	QUEUE+4
IO("Q"	QUEUE+1!, QUEUE+2, QUEUE+3!
IOF	H+1, K+1
ION	QUEUE+4
IOP	QUEUE+1!, Q2+2*
IOST	K+1
IV	AIV+1, ADC+1, B+1, K+2!
>> JJ	Q2+1*
NA	1+1, 4+1, K+2!
ON	AIV+1, ADC+1, 1+1, 4+1, B+1, K+2!
P2	K+2!
P3	K+2!
P4	AIV+1, ADC+1, B+1, K+2!
P5	K+2!
P6	K+2!
PAT	K+2!
PG	ENQ2+2, H+1, K+2!
>> POP	QUEUE+1
>> PSIVDCF	AIV+1
>> PSIVPR	QUEUE+1
PSIVQ	ENQ1+2*, K+2!
>> RANGE	ENQ2+1*, H+1
S	ENQ1+2*, AIV+1, ADC+1, K+2!
STSRPT	SW+1*!
TYPE	ENQ2+2*, H+1, K+2!
U	WARD+4, DRUG+2, DRUG+5, AIV+1, ADC+1, 1+1, 2+1, 3+1, 4+1, B+1 , ENQ2+2
USER	ENQ2+2*, H+1, K+2!
>> VADM(1	B+1
>> VADM(2	B+1
VAERR	K+2!
>> VAIN(5	B+1
W42	1+1, 2+1, 3+1, 4+1, B+1, K+2!
WD	K+2!
>> X	WARD+1, WARD+2, WARD+3, DRUG+1, DRUG+2, DRUG+3, DRUG+4
XREF	SW+1, ENQ1+2, AIV+1, ADC+1, ENQ2+1, ENQ2+2, H+1, K+2!
>> Y	WARD+4, DRUG+2, DRUG+4, DRUG+5, ENQ2+1, ENQ2+2*
>> Y(0	WARD+4, DRUG+5
Z	K+2!
>> ZTDESC	QUEUE+6, Q2+1
ZTDTH	QUEUE+5!, Q2+1*
>> ZTIO	QUEUE+4, Q2+1
>> ZTQUEUED	K+3
>> ZTREQ	K+3*
>> ZTRTN	QUEUE+6, Q2+1
ZTSAVE	QUEUE+5!
ZTSAVE(	QUEUE+7, Q2+1
ZTSK	QUEUE+5!, QUEUE+8, K+2!

Customize PDF page

Package: Inpatient Medications