Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSIVCAL

Package: Inpatient Medications

Routine: PSIVCAL


Information

PSIVCAL ;BIR/RGY,PR-CALCULATES START AND STOP DATES ;12 Mar 99 / 12:42 PM

Source Information

Source file <PSIVCAL.m>

Call Graph

Call Graph Total: 13

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  

Caller Graph

Caller Graph Total: 12

Package Total Caller Graph
Inpatient Medications 12 PSIVEDRG  PSIVEDT1  PSIVOD  PSIVOPT1  PSIVORC1  PSIVORC2  PSIVORFB  PSIVUTL1  
PSJLIFN  PSJLIFNI  PSJLIUTL  PSJLIVMD  

Entry Points

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

External References

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

Global Variables Directly Accessed

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

Label References

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

Naked Globals

Name Field # of Occurrence
^( ENSTOP+20
^(0 T2, ENSTOP+33

Local Variables

Legend:

>> 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All