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

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

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

Customize PDF page

Package: Inpatient Medications

Routine: PSIVCAL

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 12

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: