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 |