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