PSIVHYPR ;BIR/PR-REPRINT LABELS ;26 FEB 97 / 3:20 PM
Source file <PSIVHYPR.m>
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 | ;PSJ*5*184 -make MESS a local array so all messages display for all additives.
|
|
BARCODE | ||
PSIVHYP | ;
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|