Routine: PSIVLABL

Information

PSIVLABL ;BIR/PR - PRINT OUT LABELS ; 8/19/09 3:00pm

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
HAZ(TYP)	; Printing hazardous to handle/dispose warnings *364 ; TYP=1 ADDITIVES \| TYPE=2 SOLUTIONS
P
PMR	; Print Med Route on label ;
SOL1
MESS	;PSJ5184 -make MESS a local array so all messages display for all additives.
CONVER	;Expand dose to date.dose and set in X
BARCODE

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DEM+21
Function Call: WRITE	Prompt: ! Line Location: START+3
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