PSIVCAL ;BIR/RGY,PR-CALCULATES START AND STOP DATES ; 11/20/19 11:03am
Source file <PSIVCAL.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
ENT | ;NEEDS PSIVTYPE (P(4))
|
|
T6 | ||
T2 | ||
Q | ;
|
|
CHK | ||
ENSTOP | ; WILL CALCULATE STOP DATE FOR ORDER
|
|
TIME | ||
END | ;
|
|
ENAD | ;Will get last admin. time for order (needs dfn and on)
|
|
QAD | ;
|
|
P | ||
AH | ||
MDNGHT(Y) | ||
DDLIM(PSIVDUR,STPDT) | ; Day Dose Limit
|
|
GETLIM(DFN,PSJORD) | ; Convert IV Limits to minutes (only if in 'time' form).
|
|
GETMIN(LIM,DFN,PSJORD,DAYS) | ; Return the duration of the IV Limit in minutes (includes IV Limits in volume and doses format)
|
|
DOSES(DDLX,PRAY) | ; Find stop date when 'doses' are sent as an IV Limit
|
|
MWFD(SCH,LAST) | ;*229 Add to calc which days in DOW
|