Routine: PSIVREC

Information

PSIVREC ;BIR/CCH,PR-RECOMPILE IV STATS ;16 DEC 97 / 1:40 PM

Source file <PSIVREC.m>

Package	Total	Caller Graph
Inpatient Medications	1	PSIVRQ

Name	Comments	DBIA/ICR reference
LOOKUP
QUE
FIX
ENQ	; done as background job to fix correct cost in stats file 50.8
DONE
FOUND
REC
FNDRG

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Line Location: REC+0
Function Call: WRITE	Prompt: !,"Enter Name of Drug to be recompiled" Line Location: REC+0
Function Call: WRITE	Prompt: DONE Condition for execution: '$T $C(7) G:'$T!("^"[STR) Line Location: REC+0
Function Call: WRITE	Prompt: ! Line Location: REC+1
Function Call: WRITE	Prompt: !,NM Line Location: LOOKUP+0
Function Call: WRITE	Prompt: !!,NM_" NOT FOUND" Line Location: LOOKUP+1
Function Call: WRITE	Prompt: !,$P(Y(0),"^")_" in the "_$S(DIC[52.6:"Additive",1:"Solution")_" File" Line Location: FOUND+0
Routine Call	DIC Line Location: LOOKUP LOOKUP+1

FileNo	Call Tags
^PS(52.6 - [#52.6]	Classic Fileman Calls
^PS(52.7 - [#52.7]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^PS(	FIX
^PS(50.8 - [#50.8]	ENQ+1, FNDRG, FIX*

Name	Field # of Occurrence
%DT	DONE!
ADDSTR	REC+1, DONE!, FOUND+1, FNDRG
C	DONE!
COST	DONE!, FIX*
D	DONE!, FNDRG, FNDRG+1, FIX
DA	DONE!, FIX*
DAT	DONE!, ENQ+1*, FNDRG, FIX
DATA	DONE!
DIC	LOOKUP!, LOOKUP+1!, FOUND, FOUND+1, FOUND+3!
DIC("W"	LOOKUP, LOOKUP+1
DIC(0	LOOKUP*
DTIME	REC
FLE	DONE!, FNDRG, FNDRG+1, FIX
G	QUE+1*, DONE!
HELP	REC*, DONE!
I7	DONE!, ENQ+1
I8	DONE!, ENQ+1
IV	DONE!, ENQ+1*, FNDRG, FIX
NM	REC+1*, DONE!, LOOKUP, LOOKUP+1
PCE	DONE!, FNDRG, FNDRG+1
SOLSTR	REC+1, DONE!, FOUND+2, FNDRG+1
STR	REC*, REC+1, DONE!
X	DONE!, LOOKUP, LOOKUP+1
Y	DONE!, LOOKUP+1, FOUND+1, FOUND+2
Y(0	FOUND
Z	REC+1*, DONE!
>> ZTDESC	QUE*
>> ZTDTH	QUE*
>> ZTIO	QUE*
>> ZTQUEUED	ENQ+2
>> ZTREQ	ENQ+2*
>> ZTRTN	QUE*
>> ZTSAVE(	QUE+1*
ZTSK	QUE+2, DONE!