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 |