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: PSJMISC

Package: Inpatient Medications

Routine: PSJMISC


Information

PSJMISC ;BIR/MV - MISC. SUB-ROUTINES ;03 Aug 98 / 8:42 AM

Source Information

Source file <PSJMISC.m>

Entry Points

Name Comments DBIA/ICR reference
GCN(PSJDD) ;Return GCNSEQNO for a dispense drug
GTVUID(PSJDD) ;Return the VUID for a dispense drug
VAGEN(PSJDD) ;Return the VA GENERIC name
GENVUID(PSJVUID) ;Return the VA GENERIC name
CLASS(PSJDD) ;Return the VA CLASS
PREMIX(X) ;Check if the solution is flag as a Pre-mix
IVDDRG(PSIVAS,PSJIEN) ;Return corresponding dispense drug IEN for ad/sol
WRITE(X,DIWL,DIWR) ;Start a new line before writing
MYWRITE(X,DIWL,DIWR) ;Continue writing on the same line
COMPARE(DRG,TMPDRG,PSJNPRMX) ;
DN(X) ;
OI(X) ;
LINE(PSJLINE,PSJLEN) ;Display a line
DD53P45() ;Return the zero node of the first dispense drug found in 53.45
RETQUIT() ;
PAUSE(PSJFIRST,PSJLAST) ;
PAUSE1() ;Allow "^"
ONCALL(PSJSCH,PSJSTYPE) ;
; PSJSCH = Admin Schedule
; PSJSTYPE = schedule type (optional)
; Returns 0 = Not an "ON CALL" schedule.
; 1 = For schedule ="ON CALL" or schedule type = "OC".
TMPDRG(DFN,ON,TMPDRG) ;Set TMPDRG array from the order in 55
TMPDRG1(DFN,ON,TMPDRG) ;Set TMPDRG array from the order in 53.1
INFRATE(DFN,ON,PSJIR,PSJDTYP) ;Check if the infusion rate has changed
ADDD(PSJOI) ;Return the best dispense drug IEN for giving OI from the additive file
SOLDD(PSJOI,PSJVOL) ;Return the best dispense drug IEN for giving OI from the solution file

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?DIWL,^UTILITY($J,"W",DIWL,PSJCNT,0)
  • Line Location: MYWRITE+5
Function Call: WRITE
  • Prompt: X
  • Line Location: LINE+4
Info |  Source |  Entry Points |  Interaction Calls