Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: PSIVHYPR

Package: Inpatient Medications

Routine: PSIVHYPR


Information

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

Source Information

Source file <PSIVHYPR.m>

Entry Points

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 ;

Interaction Calls

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
Info |  Source |  Entry Points |  Interaction Calls