Routine: PSIV

Information

PSIV ;BIR/PR,MLM - MISC UTILITIES ;3/19/99 9:45 AM

Source file <PSIV.m>

Name	Comments	DBIA/ICR reference
ENGETP	;Enter here to select patient.
GETP1	;
ENYN	;Enter here for yes/no responses. This is a general reader that I have
ENQ	;Enter here to read X. This is the general reader that I have	ICR #2155 Status: Active Usage: Private
VAR
PAT
KILL
ENADM	;Edit administration schedules. ; reference to ^PS(51.1 is supported by DBIA #2177
ENOW
ENC	;Get unit of measure for drug selected.
ENCHS	;Needs PSIVBR (Branch point)
OE
ENCHS1	;
SELSO	;SELECT ORDER USING "SO" OPTION
SELNUM	;SELECT ORDERS WITH NUMBERS
OV	;
GTON(X)	;
OV1	;
ENU	;Get IV additive strength. Called from templates.
Q	;

Name	Line Occurrences
Function Call: READ	Variable: QUX Timeout: DTIME Line Location: ENQ+2
Function Call: WRITE	Prompt: !!,$P(X,"^")," " Line Location: ENQ+2
Function Call: WRITE	Prompt: QUD,"// " Condition for execution: QUD]"" Line Location: ENQ+2
Function Call: WRITE	Prompt: QUX="^" Condition for execution: '$T $C(7) S:'$T Line Location: ENQ+2
Function Call: WRITE	Prompt: " ??" Line Location: ENQ+3
Function Call: WRITE	Prompt: " ",QUX1 Line Location: ENQ+5
Function Call: WRITE	Prompt: $S($P(X,"^",2)=QUX:" "_QUX,1:"")_$P(QUD,QUX,2,99) Line Location: VAR+0
Function Call: WRITE	Prompt: $C(7)," ???" Line Location: PAT+1
Function Call: WRITE	Prompt: !!,?30,"NO ORDERS FOUND",! Line Location: ENCHS1+11
Function Call: WRITE	Prompt: @IOF Line Location: ENCHS1+11

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^PS(51.1 - [#51.1]	Classic Fileman Calls