Routine: PSIVRQ1

Package	Total	Call Graph
Inpatient Medications	4	ENGETP^PSIV ^PSIVHLP1 ^PSIVHLP2 K^PSIVRQ
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	^DIC YN^DICN ^DIR

Package	Total	Caller Graph
Inpatient Medications	1	PSIVRQ

Entry Points

Name	Comments	DBIA/ICR reference
VADC	;Va drug class codes
PQ	;Ask for patient data for drug cost report but not if 'TYPE' selected
PAT	;Ask patient for patient cost report
D	;Select drug
I3	;Select ward for ward cost report
CAT	;Category of drugs
QUEUE	;Queue logic
P	;Select provider for provider report
HI	;High low cost
T	;Type
NQ	;No queue so run report

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: QUEUE+1
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED" Line Location: QUEUE+1
Function Call: READ	Prompt: "Select PROVIDER (or enter ^ALL): " Formatting: !! Timeout: DTIME Variable: X Line Location: P+1
Function Call: WRITE	Prompt: Condition for execution: '$T $C(7) Q:'$T!("^"[X) Line Location: P+1
Function Call: WRITE	Prompt: $P("^ALL",X,2) Line Location: P+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: D+1
Function Call: WRITE	Prompt: $P(Y,X,2) Line Location: D+2
Function Call: WRITE	Prompt: $P(Y,X,2) Line Location: D+3
Function Call: WRITE	Prompt: !!,"Should this report include patient data" Line Location: PQ+2
Function Call: READ	Timeout: DTIME Line Location: I3+1
Function Call: WRITE	Prompt: !! Line Location: I3+1
Function Call: WRITE	Prompt: Condition for execution: '$T $C(7) Q:'$T!("^"[X) Line Location: I3+1
Function Call: WRITE	Prompt: $P("^ALL",X,2) Line Location: I3+1
Function Call: WRITE	Prompt: $P("^OUTPATIENT",X,2) Line Location: I3+2
Function Call: WRITE	Prompt: ! Line Location: CAT+1
Function Call: WRITE	Prompt: ! Line Location: VADC+1
Function Call: WRITE	Prompt: $C(7),!,"LOWER COST BOUND MUST BE LESS THAN UPPER COST BOUND!" Line Location: HI+4
Routine Call	DIC Line Location: P+2 D+6 I3+4 CAT+1 VADC+1
Routine Call	DIR Line Location: HI+1 HI+3 T+1
Routine Call	%ZIS Line Location: QUEUE+1

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.605 - [#50.605]	VADC+1

Name	Field # of Occurrence
>> %	PQ+2*, PQ+3
%ZIS	QUEUE+1!*
%ZIS("B"	QUEUE+1*
DA	T+1!
>> DFN	PAT+1
DIC	P+2!, D+6, I3+4!, CAT+1, VADC+1*
DIC("S"	P+2*
DIC(0	P+2, D+6, I3+4, CAT+1, VADC+1*
DIR	HI+1!, HI+5!, T+1!
DIR("?"	HI+1*
DIR("A"	HI+1, HI+3, T+1*
DIR(0	HI+1, T+1
>> DIRUT	HI+1, HI+3
DTIME	P+1, D+1, I3+1
>> G	QUEUE+4*
>> HELP	P+2, D+5, PQ+2, I3+3
>> I1	P+1, P+2
>> I10	D+2, D+3, D+4, D+6, CAT+1, VADC+1
>> I11	I3+1, I3+2, I3+4*
>> I2	D+2, D+3, D+4, D+7
>> I3	I3+1, I3+2, I3+4*
>> I5	PAT+1*
>> I6	QUEUE+3*
>> I9	P+1, P+2
IO("DOC"	QUEUE+3
IO("Q"	QUEUE+1!, QUEUE+2, QUEUE+5!
ION	QUEUE+3
IOP	QUEUE+1!
>> LCO	D+2, HI+5*
>> POP	QUEUE+1
PQ	D+3!, PQ+2, PQ+3*!
>> PSIVDCR	PSIVRQ1+5, QUEUE+2, QUEUE+3, NQ+1, D+1, D+2, D+3
>> PSIVPAT	PSIVRQ1+5, QUEUE+2, QUEUE+3, NQ+1
>> PSIVPCR	PSIVRQ1+5, QUEUE+2, QUEUE+3, NQ+1
>> PSIVPR	QUEUE+1
>> PSIVWCR	PSIVRQ1+5, QUEUE+2, QUEUE+3, NQ+1
>> Q	PQ+2*
U	D+6, D+7, I3+4, CAT+1, VADC+1
>> UCO	D+2, HI+2*, HI+4
>> X	PSIVRQ1+5, PSIVRQ1+6, P+1, P+2, D+1, D+2, D+3, D+4, D+5, D+6 , PQ+3, PAT+1, I3+1, I3+2, I3+3, HI+2, HI+4, HI+5*, T+1
>> Y	P+2, D+2, D+3, D+4, D+6, D+7, I3+4, CAT+1, VADC+1, HI+1 , HI+2, HI+3, HI+5, T+1, T+2*
>> Y(0	D+3, D+7
>> ZTDESC	QUEUE+3*
ZTDTH	QUEUE+3!
>> ZTIO	QUEUE+3*
>> ZTRTN	QUEUE+2*
ZTSAVE	QUEUE+3!
ZTSAVE(	QUEUE+4*
ZTSK	QUEUE+3!, QUEUE+5