Routine: PSIVLABR

Information

PSIVLABR ;BIR/PR-REPRINT LABELS ;30 May 2001 12:36 PM

Name	Comments	DBIA/ICR reference
DEM	;Get demographics and see if label is example only
SETP
ENX	;Print example label
START
Q
RE	;
SOL
MEDRT	;Find Medication Route
INF
P
PMR	; Print Med Route on label
SOL1
MESS	;PSJ5184 -make MESS a local array so all messages display for all additives.
HAZ(TYP)	; Printing hazardous to handle/dispose warnings *364 ; TYP=1 ADDITIVES \| TYPE=2 SOLUTIONS
CONVER	;Expand dose to date.dose and set in X
BARCODE

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DEM+24
Function Call: WRITE	Prompt: ! Line Location: START+2
Function Call: WRITE	Prompt: ! Line Location: P+4
Function Call: WRITE	Prompt: $E(X,1,PSIVRM) Line Location: P+8
Function Call: WRITE	Prompt: ! Line Location: P+10
Function Call: WRITE	Prompt: ! Line Location: PMR+6
Function Call: WRITE	Prompt: $E(X,1,PSIVRM) Line Location: PMR+11
Function Call: WRITE	Prompt: ! Line Location: PMR+13
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