PSJAPIDS ;BIR/MV - API TO PROCESS DOSING ORDER CHECKS FOR IV ;6 Jun 07 / 3:37 PM
Source file <PSJAPIDS.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DOSE(PSJBASE,DFN,PSJIV) | ;
|
|
| CHKDS() | ;Check if dosing check should be performed
|
|
| SETDRG | ;
|
|
| SETAD(PSJOI,PSJOINM,PSJFLG) | ;Check if additive is active then set the DRG array
|
|
| SETSOL(PSJOI,PSJOINM,PSJFLG) | ;Check if solution is active then set then DRG array
|
|
| SETENH(PSJFLG,PSJOI) | ;Reset PSJFLG to 0 only if GCN message is needed for the dosing check
|
|
| ENHFLG | ;Set the enhance flag so dosing error message won't display if enhance OC already displayed.
|
|
| DURATION(PSJDUR,PSJSCH) | ;Figure out date dose limit send by CPRS for intermittent IV
|
|
| DOW(PSJSCH) | ;Check if Schedule is a date of week
|
|
| PING() | ;Return -1 if the system is down.
|
