Routine: PSIVHYPR

Information

PSIVHYPR ;BIR/PR-REPRINT LABELS ;26 FEB 97 / 3:20 PM

Name	Comments	DBIA/ICR reference
SSWARD	;Get patient SS# and ward location
START
Q
RE	;I PSIV1 S:P(15)>2880!('P(15)) P(15)=2880 S P(16)=P16+PSIV1#(1440/P(15)+.5\1) S:'P(16) P(16)=1440/P(15)+.5\1
SOL
MEDRT	;Find Medication Route
INF
HAZ(TYP)	; Printing hazardous to handle/dispose warnings *364 ; TYP=1 ADDITIVES \| TYPE=2 SOLUTIONS
PRNTL
PMR	; Print Med Route on label
TVOL	;
SOL1
HYP	;
SETP
MESS	;PSJ5184 -make MESS a local array so all messages display for all additives.
BARCODE
PSIVHYP	;

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SSWARD+22
Function Call: WRITE	Prompt: ! Line Location: START+2
Function Call: WRITE	Prompt: ! Line Location: PRNTL+4
Function Call: WRITE	Prompt: $E(X,1,PSIVRM) Line Location: PRNTL+8
Function Call: WRITE	Prompt: ! Line Location: PRNTL+10
Function Call: WRITE	Prompt: ! Line Location: PMR+5
Function Call: WRITE	Prompt: $E(X,1,PSIVRM) Line Location: PMR+10
Function Call: WRITE	Prompt: ! Line Location: PMR+12
Function Call: WRITE	Prompt: @IOBARON Line Location: BARCODE+2
Function Call: WRITE	Prompt: PSJBCID Line Location: BARCODE+3
Function Call: WRITE	Prompt: @IOBAROFF Line Location: BARCODE+4
Function Call: WRITE	Prompt: ! Line Location: BARCODE+5
Function Call: WRITE	Prompt: PSJBCID Line Location: BARCODE+8