PSJMISC ;BIR/MV - MISC. SUB-ROUTINES ;03 Aug 98 / 8:42 AM
Source file <PSJMISC.m>
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
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|