PSIVOCDS ;BIR/MV - PROCESS DOSING ORDER CHECKS FOR IV ; Jun 06, 2007@15:37
Source file <PSIVOCDS.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| IN(PSJBASE) | ;
 | 
|
| IV | ;Setup input data for Continuous IV (admixture, hyperal)
 | 
|
| IVPB | ;Setup input data for Schedule IV
 | 
|
| SINGLE | ;Set fields needed for Single Dose type
 ; Can't get FDB to return correct data for Continuous Infusion /w Single dose so all Continuous will be sent in as Maintenance.  | 
|
| COMMON | ;Set common data for all IV types
 | 
|
| BASIC | ;Set basic data for non schedule IVs
 | 
|
| FREEDOSE | ;Set data for free text dose
 | 
|
| ONEAD(PSJRT) | ;Setup data for 'Continuous Infusion' IV type
 | 
|
| CONTIV | ;Set data needed for continuous IV with multiple drugs
 | 
|
| ISONEAD() | ;Return 1 if there's only one additive
 | 
|
| ISALLBAG() | ;Return 1 if not additive not in all bags
 | 
|
| ISNOADD() | ;Return 1 if there's no additives
 | 
|
| PREMIX | ;The route is always set to "Continuous Infusion" & the FREQUENCY must set to 1
 | 
|
| SDACI() | ;Return Single Dose Amount for ad for 'CONTINUOUS INFUSION' FDB Route (Not classed at "VT" or "TN")
 | 
|
| CLASS(PSJDD) | ;Check if the Drug contains "VT" & "TN" classes
 | 
|
| IVFREQ() | ;Return the frequency for an continuous IV
 ; Hours needed to run a bag is defined as: Total Volume / Infusion rate ; # of bags needed for a day is defined as: 24 / Hours need to run a bag ; PSJFREQ is either in Q#H or N for # of admin per day  | 
|
| ADJSDA(PSJTOTV,PSJINFRT,PSJSDA,PSJNOTE) | ;Adjust SDA
 | 
|
| UND24HRS | ;Calculate freq for order <24 hrs
 | 
|
| BOTTLE(PSJTOTBG,PSJBOT) | ;Set freq to either specified bottle or # needed for the duration/24hrs of the order
 | 
|
| DURATION() | ;
 | 
|
| FDBRT(PSJDD,PSJRT) | ;Check if the ordered route can be admin by FDB for this drug
 | 
|
| TOUPPER(ROUTES) | ||
| RTESCRN(PSJRT) | ; Screen routes for none "VT or "TN"
 | 
|
| LITER(PSJVOLP8) | ; Convert the unit from ML to L for premix contains potassium
 ; PSJ*5*252 (6/29/11) - No longer need to convert "ML" to "L" for this drug now that FDB handles both units. ; FDB only accept Liter for this type for drug ; PSJVOLP8 - Either = volume or the infusion rate  |