PSIVCAL ;BIR/RGY,PR-CALCULATES START AND STOP DATES ;12 Mar 99 / 12:42 PM
Source file <PSIVCAL.m>
Package | Total | Call Graph |
---|---|---|
Inpatient Medications | 10 | $$ENSD^PSGNE3 ^PSIVSET $$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,NOW)^%DTC |
Kernel | 1 | ($$FMADD,$$FMDIFF)^XLFDT |
Name | Comments | DBIA/ICR reference |
---|---|---|
GETMIN(LIM,DFN,PSJORD,DAYS) | ; Return the duration of the IV Limit in minutes (includes IV Limits in volume and doses format)
|
|
END | ;
|
|
GETLIM(DFN,PSJORD) | ; Convert IV Limits to minutes (only if in 'time' form).
|
|
ENAD | ;Will get last admin. time for order (needs dfn and on)
|
|
P | ||
T6 | ||
AH | ||
CHK | ||
T2 | ||
DOSES(DDLX,PRAY) | ; Find stop date when 'doses' are sent as an IV Limit
|
|
Q | ;
|
|
QAD | ;
|
|
ENT | ;NEEDS PSIVTYPE (P(4))
|
|
TIME | ||
DDLIM(PSIVDUR,STPDT) | ; Day Dose Limit
|
|
MDNGHT(Y) | ||
ENSTOP | ; WILL CALCULATE STOP DATE FOR ORDER
|
Name | Field # of Occurrence |
---|---|
^%DT | T2+2, Q+1 |
C^%DTC | T2+1, TIME, QAD+2, AH, DDLIM+4 |
NOW^%DTC | ENAD+4 |
$$ENSD^PSGNE3 | ENT+12, ENT+13, ENAD+3 |
^PSIVSET | ENSTOP+3 |
$$GETMIN^PSIVUTL1 | GETMIN+1 |
ENP3^PSIVWL | AH |
ENP4^PSIVWL | P |
ENT^PSIVWL | P+1 |
$$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+8 |
$$FMADD^XLFDT | ENSTOP+34, TIME+3, MDNGHT+1, DOSES+6, DOSES+9, DOSES+13 |
$$FMDIFF^XLFDT | ENSTOP+34, DDLIM+6 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD("DD" | ENT+7 |
^PS(50.7 - [#50.7] | ENSTOP+36, ENSTOP+37 |
^PS(52.6 - [#52.6] | ENSTOP+33 |
^PS(53.1 - [#53.1] | ENSTOP+16, ENSTOP+29 |
^PS(53.46 - [#53.46] | ENSTOP+32 |
^PS(55 - [#55] | ENSTOP+20, ENSTOP+30, ENSTOP+31, ENAD+3 |
^PS(59.5 - [#59.5] | T2 |
^PS(59.6 - [#59.6] | ENT+10 |
^SC - [#44] | ENSTOP+32 |
Name | Line Occurrences |
---|---|
$$DOSES | DDLIM+5 |
$$GETLIM | ENSTOP+24 |
$$GETMIN | ENSTOP+24 |
$$MDNGHT | ENT+7 |
AH | ENAD+5 |
CHK | ENT+8, P |
DDLIM | ENSTOP+36, ENSTOP+37, ENSTOP+38 |
END | ENSTOP+15 |
P | ENAD+5 |
Q | ENT+3, ENT+4, ENT+7, ENT+12, ENT+13, T6+1 |
QAD | ENAD+4 |
T2 | ENT+6 |
Name | Field # of Occurrence |
---|---|
^( | ENSTOP+20 |
^(0 | T2, ENSTOP+33 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | ENAD+4 |
>> %DT | T2+2*, Q+1* |
A | ENSTOP+16~, ENSTOP+27~, ENSTOP+28*, ENSTOP+29*, ENSTOP+30*, ENSTOP+31*, ENSTOP+32* |
ADMS | DOSES+10~ |
ADMS( | DOSES+11*, DOSES+12, DOSES+13, DOSES+14, DOSES+15, DOSES+16 |
ADX | ENSTOP+2~, ENSTOP+35*, ENSTOP+36 |
B | ENSTOP+27~, ENSTOP+32* |
>> CD | P*, AH* |
DAY | DOSES+10~*, DOSES+13*, DOSES+14 |
DAYS | GETMIN~, GETMIN+1 |
DDLX | ENSTOP+2~, ENSTOP+36*, ENSTOP+37*, ENSTOP+38*, DDLIM+2, DDLIM+3, DDLIM+4, DDLIM+5, DOSES~, DOSES+1 , DOSES+2*, DOSES+9, DOSES+12, DOSES+15 |
DFN | ENT+2, ENSTOP+6, ENSTOP+10, ENSTOP+15, ENSTOP+17, ENSTOP+20, ENSTOP+21, ENSTOP+24, ENAD+3, GETLIM~ , GETMIN~, GETMIN+1, DOSES+6 |
DOSAR | DOSES+5~, DOSES+17 |
DOSAR( | DOSES+9*, DOSES+14*, DOSES+17 |
DOSAR("" | DOSES+17 |
DOSAR(1 | DOSES+8* |
>> DRG( | ENSTOP+35, ENSTOP+36 |
>> DRG("AD" | ENSTOP+33, ENSTOP+35, ENSTOP+37 |
DRGT | ENSTOP+2~, ENSTOP+35*, ENSTOP+36 |
>> DRGTMP | ENSTOP+35, ENSTOP+37 |
>> DRGTN | ENSTOP+35, ENSTOP+37 |
>> DSTMP | DOSES+8*, DOSES+9*, DOSES+10, DOSES+14* |
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+9* |
>> II | DOSES+11* |
>> IJ | DOSES+12*, DOSES+14 |
LAST | DOSES+5~*, DOSES+10~*, DOSES+12*, DOSES+13*, DOSES+15*, DOSES+16*, DOSES+17*, DOSES+18 |
>> LASTD | DDLIM+5*, DDLIM+6, DDLIM+7 |
LIM | ENSTOP+24~, GETLIM+3*, GETLIM+5*, GETLIM+6, GETMIN~, GETMIN+1*, GETMIN+2 |
LIMDAY | ENSTOP+2~, ENSTOP+24 |
MINS | ENSTOP+24~*, ENSTOP+25 |
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+10~, DOSES+12*, DOSES+13*, DOSES+14, DOSES+15*, DOSES+16* |
OD | QAD+2*, QAD+3, QAD+4!, P*, AH* |
OD1 | QAD+2*, QAD+4!, AH* |
OIX | ENSTOP+2~, ENSTOP+36*, ENSTOP+37*, DOSES+4, DOSES+6 |
>> ON | ENSTOP+6, ENSTOP+9, ENSTOP+10, ENSTOP+15, ENSTOP+16, ENSTOP+17, ENSTOP+24 |
>> P | DDLIM+5 |
>> P("APPT" | ENT+3 |
>> P("IVRM" | ENT+5 |
>> P("LIMIT" | TIME+2! |
>> 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+24, ENSTOP+38, 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+39, END+3*, QAD+4, DDLIM+4 , DDLIM+6, DDLIM+8* |
>> P(23 | ENSTOP+4, ENSTOP+15, ENAD+4 |
>> P(3 | END+1*, END+2*, END+3*, DDLIM+4*, DDLIM+7*, DDLIM+8* |
>> 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+36, ENSTOP+37, ENSTOP+38, ENSTOP+39, DDLIM+1~ |
P4 | ENAD+1~, ENAD+4*, ENAD+5 |
PRAY | DOSES~ |
PRAY(11 | DOSES+3, DOSES+9, DOSES+10, DOSES+11 |
PRAY(15 | DOSES+3*, DOSES+9 |
PRAY(2 | DOSES+4, DOSES+6, DOSES+8 |
PRAY(9 | DOSES+5, DOSES+6 |
PSGCNT | ENT+9, T6, Q+4!, CHK+1* |
>> PSGDT | ENT+11*, ENT+12, ENT+13, ENSTOP+7, DOSES+6 |
>> PSGP | ENSTOP+30, ENSTOP+31 |
>> 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+26*, ENSTOP+33*, ENSTOP+34*, ENSTOP+36, ENSTOP+37, ENSTOP+38, ENSTOP+40*, TIME , TIME+2, TIME+3 |
PSIMIN | ENSTOP+2~*, ENSTOP+17*, ENSTOP+25*, ENSTOP+40, TIME+1, TIME+2, TIME+3, 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+24*, ENSTOP+38, TIME+2! |
PSIVMI | QAD+4! |
>> PSIVMIN | P+1*, AH* |
PSIVNOW | ENAD+4*, QAD+4!, P, AH |
PSIVSD | QAD+2*, QAD+3, QAD+4!, P*, P+1*, AH* |
>> PSIVSITE | ENSTOP+3, ENSTOP+18, ENSTOP+23, TIME, TIME+4, DDLIM+4 |
>> PSIVSN | ENT+5*, T2 |
PSIVSTRT | Q+4!, ENSTOP+5*, ENSTOP+7*, ENSTOP+11*, ENSTOP+15, ENSTOP+34, TIME, TIME+3, 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+27~, ENSTOP+32* |
PSJDAY | ENSTOP+16~, ENSTOP+26*, ENSTOP+32* |
PSJDNM | ENSTOP+16~ |
PSJORD | ENT+3, Q+3, ENSTOP+28, ENSTOP+29, ENSTOP+30, ENSTOP+31, 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 |
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+8*, DOSES+6 |
>> STRING | DOSES+6* |
TMP9 | DOSES+5~*, DOSES+7 |
U | ENT+4, ENT+10, ENSTOP+15, ENSTOP+33, ENAD+2, ENAD+3 |
>> VAIN(4 | ENT+10 |
WALL | ENSTOP+2~*, ENSTOP+22*, ENSTOP+34 |
>> 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+33*, ENSTOP+39*, TIME*, TIME+3* , TIME+4*, END+1, ENAD+4, QAD+2*, QAD+3, QAD+4*, P*, AH*, DDLIM+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* |
Z | ENSTOP+19~, ENSTOP+20*, ENSTOP+21 |