PSIVCAL ;BIR/RGY,PR-CALCULATES START AND STOP DATES ; 11/20/19 11:03am
Source file <PSIVCAL.m>
Package | Total | Call Graph |
---|---|---|
Inpatient Medications | 11 | $$ENSD^PSGNE3 ^PSIVSET $$DOW^PSIVUTL $$GETMIN^PSIVUTL1 (ENP3,ENP4,ENT)^PSIVWL $$ONE^PSJBCMA $$ENOSD^PSJDCU ($$DURMIN,$$GETDUR,REQDT)^PSJLIVMD $$LASTREN^PSJLMPRI $$ENQ^PSJORP2 ($$DATE,$$DATE2)^PSJUTL2 |
VA FileMan | 2 | ^%DT (C,DW,NOW)^%DTC |
Kernel | 1 | ($$FMADD,$$FMDIFF)^XLFDT |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
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
|
Name | Field # of Occurrence |
---|---|
^%DT | T2+2, Q+1 |
C^%DTC | T2+1, TIME, QAD+2, AH, DDLIM+4 |
DW^%DTC | MWFD+4 |
NOW^%DTC | ENAD+4 |
$$ENSD^PSGNE3 | ENT+12, ENT+13, ENAD+3 |
^PSIVSET | ENSTOP+3 |
$$DOW^PSIVUTL | MWFD+3 |
$$GETMIN^PSIVUTL1 | GETMIN+1 |
ENP3^PSIVWL | AH |
ENP4^PSIVWL | P |
ENT^PSIVWL | P+1, DOSES+10 |
$$ONE^PSJBCMA | ENSTOP+21 |
$$ENOSD^PSJDCU | ENSTOP+15 |
$$DURMIN^PSJLIVMD | ENSTOP+17 |
$$GETDUR^PSJLIVMD | ENSTOP+17 |
REQDT^PSJLIVMD | Q+3, END+2 |
$$LASTREN^PSJLMPRI | ENSTOP+6, ENSTOP+10 |
$$ENQ^PSJORP2 | DOSES+6 |
$$DATE^PSJUTL2 | ENT+11, ENAD+2 |
$$DATE2^PSJUTL2 | ENT+3, ENSTOP+7, END+3, DDLIM+7, DDLIM+9 |
$$FMADD^XLFDT | ENSTOP+37, TIME+4, MDNGHT+1, DOSES+6, DOSES+11, DOSES+16, MWFD+4 |
$$FMDIFF^XLFDT | ENT+3, ENSTOP+37, DDLIM+6 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD("DD" | ENT+7 |
^PS(50.7 - [#50.7] | ENSTOP+39, ENSTOP+40 |
^PS(52.6 - [#52.6] | ENSTOP+36 |
^PS(53.1 - [#53.1] | ENSTOP+16, ENSTOP+31 |
^PS(53.46 - [#53.46] | ENSTOP+35 |
^PS(55 - [#55] | ENSTOP+20, ENSTOP+32, ENSTOP+33, ENAD+3 |
^PS(59.5 - [#59.5] | T2 |
^PS(59.6 - [#59.6] | ENT+10 |
^SC - [#44] | ENSTOP+35 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | ENAD+4 |
>> %DT | T2+2*, Q+1* |
A | ENSTOP+16~, ENSTOP+29~, ENSTOP+30*, ENSTOP+31*, ENSTOP+32*, ENSTOP+33*, ENSTOP+34*, ENSTOP+35* |
ADMS | DOSES+12~ |
ADMS( | DOSES+13*, DOSES+15, DOSES+16, DOSES+17, DOSES+18, DOSES+19 |
ADX | ENSTOP+2~, ENSTOP+38*, ENSTOP+39 |
B | ENSTOP+29~, ENSTOP+35* |
>> CD | P*, AH* |
DAY | DOSES+12~*, DOSES+15, DOSES+16*, DOSES+17 |
DAYS | GETMIN~, GETMIN+1 |
DDLX | ENSTOP+2~, ENSTOP+39*, ENSTOP+40*, ENSTOP+41*, DDLIM+2, DDLIM+3, DDLIM+4, DDLIM+5, DOSES~, DOSES+1 , DOSES+2*, DOSES+10, DOSES+11, DOSES+15, DOSES+18 |
DFN | ENT+2, ENSTOP+6, ENSTOP+10, ENSTOP+15, ENSTOP+17, ENSTOP+20, ENSTOP+21, ENSTOP+26, ENAD+3, GETLIM~ , GETMIN~, GETMIN+1, DOSES+6 |
DOSAR | DOSES+5~, DOSES+20 |
DOSAR( | DOSES+11*, DOSES+17*, DOSES+20 |
DOSAR("" | DOSES+20 |
DOSAR(1 | DOSES+8*, DOSES+10* |
>> DRG( | ENSTOP+38, ENSTOP+39 |
>> DRG("AD" | ENSTOP+36, ENSTOP+38, ENSTOP+40 |
DRGT | ENSTOP+2~, ENSTOP+38*, ENSTOP+39 |
>> DRGTMP | ENSTOP+38, ENSTOP+40 |
>> DRGTN | ENSTOP+38, ENSTOP+40 |
>> DSTMP | DOSES+8*, DOSES+11*, DOSES+12, DOSES+17* |
DT | T2+1, P, P+1, AH |
DUR | ENSTOP+16~, ENSTOP+17* |
DURMIN | ENSTOP+16~, ENSTOP+17* |
F | GETLIM+1~, GETLIM+2*, GETLIM+3, GETLIM+4 |
FIRST | DOSES+5~, DOSES+6*, DOSES+8* |
>> I | T6*, T6+1, DOSES+11*, MWFD+4* |
>> II | DOSES+13* |
>> IJ | DOSES+15*, DOSES+17 |
LAST | DOSES+5~*, DOSES+12~*, DOSES+15*, DOSES+16*, DOSES+18*, DOSES+19*, DOSES+20*, DOSES+21, MWFD~, MWFD+4 |
LASTD | DDLIM+1~, DDLIM+5*, DDLIM+6, DDLIM+7, DDLIM+9 |
LIM | ENSTOP+26~, GETLIM+3*, GETLIM+5*, GETLIM+6, GETMIN~, GETMIN+1*, GETMIN+2 |
LIMDAY | ENSTOP+2~, ENSTOP+26 |
MINS | ENSTOP+26~*, ENSTOP+27 |
MULT | GETLIM+5~* |
NAT | ENT+10*, ENT+12, T6+1, Q+4! |
>> ND0 | GETLIM+4* |
ND2P5 | GETLIM+1~, GETLIM+3* |
NEWDAYS | DDLIM+1~, DDLIM+6*, DDLIM+7 |
NEWDUR | DDLIM+1~, DDLIM+6* |
NXT | DOSES+12~, DOSES+15*, DOSES+16*, DOSES+17, DOSES+18*, DOSES+19* |
OD | QAD+2*, QAD+3, QAD+4!, P*, AH* |
OD1 | QAD+2*, QAD+4!, AH* |
OIX | ENSTOP+2~, ENSTOP+39*, ENSTOP+40*, DOSES+4, DOSES+6 |
>> ON | ENSTOP+6, ENSTOP+9, ENSTOP+10, ENSTOP+15, ENSTOP+16, ENSTOP+17, ENSTOP+25, ENSTOP+26 |
>> P | DDLIM+5 |
>> P("APPT" | ENT+3 |
>> P("IVRM" | ENT+5 |
>> P("LIMIT" | TIME+2!, TIME+5 |
>> P("LOG" | ENT+4, ENT+8, ENT+12, ENT+13, T2+1, ENAD+3 |
>> P("OLDON" | ENT+2, ENAD+3 |
>> P("OVRIDE" | ENSTOP+16, ENSTOP+26, ENSTOP+41, TIME+2* |
>> P(11 | ENT+7, ENT+8, ENT+12, ENT+13, ENSTOP+15, ENAD+3, ENAD+4, P*, P+1 |
>> P(15 | ENAD+4, ENAD+5, AH |
>> P(2 | ENT+1, ENT+2*, Q+2*, Q+3*, ENSTOP+3, ENSTOP+5, ENSTOP+42, END+3*, QAD+4, DDLIM+4 , DDLIM+6, DDLIM+9* |
>> P(23 | ENSTOP+4, ENSTOP+15, ENAD+4 |
>> P(3 | END+1*, END+2*, END+3*, DDLIM+4*, DDLIM+7*, DDLIM+9* |
>> P(4 | ENT+5, ENSTOP+5, ENSTOP+9, ENAD+4 |
>> P(5 | ENT+6, ENSTOP+15, ENAD+4 |
>> P(9 | ENT+12, ENT+13, ENSTOP+15, ENAD+3, DDLIM+5, DOSES+7* |
P2 | ENT+2~* |
P3 | ENSTOP+2~*, ENSTOP+39, ENSTOP+40, ENSTOP+41, ENSTOP+42, DDLIM+1~ |
P4 | ENAD+1~, ENAD+4*, ENAD+5 |
PRAY | DOSES~ |
PRAY(11 | DOSES+3, DOSES+6, DOSES+10, DOSES+11, DOSES+12, DOSES+13 |
PRAY(15 | DOSES+3*, DOSES+10, DOSES+11 |
PRAY(2 | DOSES+4, DOSES+6, DOSES+8, DOSES+10 |
PRAY(9 | DOSES+5, DOSES+6, DOSES+16 |
PSGCNT | ENT+9, T6, Q+4!, CHK+1* |
>> PSGDT | ENT+3, ENT+11*, ENT+12, ENT+13, ENSTOP+7, DOSES+6 |
>> PSGP | ENSTOP+32, ENSTOP+33 |
>> PSGRDTX( | Q+3, END+2 |
PSGSA | QAD+1*, QAD+2, QAD+4!, P*, P+1, P+2, AH, AH+1 |
PSIDAY | ENSTOP+2~*, ENSTOP+23*, ENSTOP+28*, ENSTOP+36*, ENSTOP+37*, ENSTOP+39, ENSTOP+40, ENSTOP+41, ENSTOP+43*, TIME , TIME+2, TIME+4 |
PSIMIN | ENSTOP+2~*, ENSTOP+17*, ENSTOP+27*, ENSTOP+43, TIME+1, TIME+2, TIME+4 |
PSIV | ENT+6~, ENT+8, T6+1, T2 |
>> PSIVAC | ENT+6, ENT+7, ENT+8, T6+1, T2+1, ENAD+3 |
>> PSIVADM | ENAD+2*, ENAD+3*, QAD+4*, AH* |
>> PSIVCAL | ENSTOP+15* |
PSIVDUR | DDLIM~, DDLIM+3, DDLIM+4*, DDLIM+7* |
PSIVLIM | ENSTOP+25*, ENSTOP+26*, ENSTOP+41, TIME+2! |
>> PSIVLIMT | ENSTOP+25, ENSTOP+26 |
PSIVMI | QAD+4! |
PSIVMIN | P+1*, AH*, DOSES+10~* |
PSIVNOW | ENAD+4*, QAD+4!, P, AH |
PSIVSD | QAD+2*, QAD+3, QAD+4!, P*, P+1*, AH*, DOSES+10~* |
>> PSIVSITE | ENSTOP+3, ENSTOP+18, ENSTOP+23, TIME, TIME+5, DDLIM+4 |
>> PSIVSN | ENT+5*, T2 |
PSIVSTRT | Q+4!, ENSTOP+5*, ENSTOP+7*, ENSTOP+11*, ENSTOP+15, ENSTOP+37, TIME, TIME+4, DDLIM+4 |
PSIVTOM | T2*!, T2+1! |
PSIVTYPE | ENT+5*, ENT+6, Q+4!, ENSTOP+4*, ENSTOP+5*, ENSTOP+15, ENSTOP+23, DDLIM+5 |
PSIVX | ENAD+1~, ENAD+4*, QAD+4 |
PSIVY | ENAD+1~, ENAD+4*, QAD+4 |
PSJCLIN | ENSTOP+29~, ENSTOP+35* |
PSJDAY | ENSTOP+16~, ENSTOP+28*, ENSTOP+35* |
PSJDNM | ENSTOP+16~ |
PSJORD | ENT+3, Q+3, ENSTOP+30, ENSTOP+31, ENSTOP+32, ENSTOP+33, END+2, GETLIM~, GETLIM+2, GETLIM+4 , GETMIN~, GETMIN+1 |
PSJPROV | ENSTOP+16~ |
>> PSJREN | ENT+1, ENSTOP+5, ENSTOP+9 |
>> PSJSYSW0 | ENT+4, ENSTOP+15, ENAD+2 |
PX | ENT+8*, ENT+9, T6, T6+1, Q+4! |
RDT | ENSTOP+6~*, ENSTOP+7, ENSTOP+10~*, ENSTOP+11 |
SCH | MWFD~, MWFD+3, MWFD+4 |
START | ENT+3*, ENT+4*, ENT+5*, ENT+7*, ENT+8*, ENT+12*, ENT+13*, T6+1*, T2*, T2+1* , T2+2, Q+1*, Q+2, Q+3*, Q+4! |
>> STOP | ENSTOP+5* |
STPDT | DDLIM~, DDLIM+2, DDLIM+3*, DDLIM+9*, DOSES+6 |
>> STRING | DOSES+6* |
TMP9 | DOSES+5~*, DOSES+7 |
U | ENT+4, ENT+10, ENSTOP+15, ENSTOP+36, ENAD+2, ENAD+3 |
>> VAIN(4 | ENT+10 |
WALL | ENSTOP+2~*, ENSTOP+22*, ENSTOP+37 |
X | ENT+8*, ENT+12, ENT+13, T6, T6+1, T2*, T2+1, T2+2*, Q+1*, CHK* , CHK+1, ENSTOP+5*, ENSTOP+15*, ENSTOP+20, ENSTOP+21*, ENSTOP+22, ENSTOP+36*, ENSTOP+42*, TIME*, TIME+4* , TIME+5*, END+1, ENAD+4, QAD+2*, QAD+3, QAD+4*, P*, AH*, DDLIM+4*, DOSES+10~ , MWFD+2~, MWFD+4* |
X1 | ENT+8*, ENT+9*, ENT+12, T6*, T6+1*, T2+1*, Q+4!, TIME*, QAD+2*, AH* , DDLIM+4* |
X2 | ENT+8*, ENT+9*, ENT+13, T6*, T6+1*, T2+1*, Q+4!, TIME*, QAD+2*, AH* , DDLIM+4* |
Y | ENT+7*, ENT+8, T2+1*, Q+1, CHK*, CHK+1*, ENSTOP+19*, ENSTOP+20*, ENSTOP+21, ENAD+4* , QAD+2, QAD+3*, QAD+4*, P+1*, P+2*, AH+1*, MDNGHT~, MDNGHT+1*, DOSES+10, MWFD+2~ , MWFD+4*, MWFD+5 |
Z | ENSTOP+19~, ENSTOP+20*, ENSTOP+21 |