PSIVUTL1 ;BIR/MLM-IV UTILITIES ; 2/2/09 9:17am
Source file <PSIVUTL1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
DRGSC(Y,PSJSCT) | ; Called to set DIC("S") when selecting orderable item.
|
|
IVDRGSC(Y) | ; Set DIC("S") for IV additive/solution selection.
; Naked reference below refers to full reference in Y, which is either ^PS(52.6, or ^PS(52.7 |
|
ENU(Y) | ;Get IV additive strength.
|
|
CODES(X,Y) | ; Get name from code.
|
|
GTPCI(Y) | ; Set up "work" area for provider comments.
|
|
WDTE(Y) | ; Format and print date.
|
|
GTOT(DFN,ON) | ; Get order type for display.
|
|
PIV(ON) | ; Display IV orders.
|
|
SOL | ;
|
|
PIVAD | ; Print IV Additives.
|
|
PIV1 | ; Print Sched type, start/stop dates, and status.
|
|
59 | ; Validate the Infusion rate entered using IV Quick order code.
|
|
WRTDRG(X,L) | ||
NAME(X,L,NAME,AD) | ||
CNVTOM(RATE,TVOL) | ; Convert volume to minutes
; Input: ; RATE - Infusion Rate ; TVOL - Volume being infused, EX: m100 (100 Milliliters) or l5 (5 Liters) ; Output: ; MINS - Minutes required to infuse volume |
|
GETMIN(LIM,DFN,PSJORD,DAYS) | ;
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^PS(53.45 - [#53.45] | Classic Fileman Calls |