Routine: PSJLIVMD

Package	Total	Call Graph
Inpatient Medications	10	($$ENDTC,$$ENNPN)^PSGMI (ENSTOP,ENT)^PSIVCAL ($$CODES,GTOT)^PSIVUTL ($$DINFLIV,$$OINF)^PSJDIN ($$PROVIDER,$$STARTDT,$$STOPDT,$$TYPE,FLDNO,LONG,REQDT,WRTDRG,WTPC)^PSJLIUTL (EN,ORDCHK)^PSJLIVFD $$GETDUR^PSJLIVMD ($$LASTREN,$$LASTRNBY)^PSJLMPRI SETTMP^PSJLMPRU $$BCMALG^PSJUTL2
Registration	2	$$SETSTR^VALM1 CNTRL^VALM10

Package	Total	Caller Graph
Inpatient Medications	22	PSGNE3 PSGOE81 PSGOEE PSGOEF PSGOER0 PSGOEV PSGVW PSIVCAL PSIVORC PSIVORFA PSIVORFB PSIVORV2 PSJCOM PSJCOMV PSJHL7 PSJLIACT PSJLIUTL PSJLIVFD PSJLIVMD PSJLMUDE PSJOE PSJOEA

Name	Comments	DBIA/ICR reference
GETDUR(PAT,ORD,PKG,RAW)	; ; PAT= Patient DFN ; ORD= Order # ; PKG= 5(UD), "IV"(IV), "P"(Pending)
PENDING(PNDON)	;
STOP	;
CUMDOSES	;
REQDT(ORDER)	;Get requested date if it is a pending order
REMARK	;
SCH	;
SOL	;
QTY	;
PC	;
IVROOM	;
LASTFL	;
CLRDSPL	;
FMTDUR(DURCODE)	;
EN	; Build LM template to display IV order.
AD	;
MR	;
START	;
RSTART	;
OFFSET	; IHS/MSC/PB - 2/13/13 added line tag below to add the Beyond Use Days to the edit screen
ENTRY	;
DUR	;
ADM	;
OI	;
DSPLYDT(PSJLN,PSGRDT,PSGRDTN,TXT,PSJFSH,PSJRDBEG,PSJRDLEN)	;
DURMIN(DCOD)	;
INS	;
PROVIDER	;
INFRATE	;
OPI	;

External References

Name	Field # of Occurrence
$$ENDTC^PSGMI	RSTART+2, RSTART+6, RSTART+7, RSTART+9, STOP+9, LASTFL+2, ENTRY+3
$$ENNPN^PSGMI	ENTRY+6
ENSTOP^PSIVCAL	START+5
ENT^PSIVCAL	START+5
$$CODES^PSIVUTL	ENTRY+7, ENTRY+8
GTOT^PSIVUTL	EN+1
$$DINFLIV^PSJDIN	AD+6
$$OINF^PSJDIN	OI+2
$$PROVIDER^PSJLIUTL	PROVIDER+2
$$STARTDT^PSJLIUTL	START+8
$$STOPDT^PSJLIUTL	STOP+4
$$TYPE^PSJLIUTL	AD+5
FLDNO^PSJLIUTL	AD+2, SOL+1, START+7, INFRATE+1, MR+1, STOP+2, SCH+1, ADM+1, PROVIDER+1, OI+1 , OPI+1, REMARK+2, OFFSET+2
LONG^PSJLIUTL	INFRATE+3, SCH+3, ADM+4, INS+3, REMARK+4
REQDT^PSJLIUTL	REQDT+2
WRTDRG^PSJLIUTL	AD+12, SOL+7
WTPC^PSJLIUTL	PC+2
EN^PSJLIVFD	EN+3
ORDCHK^PSJLIVFD	ENTRY+9
$$GETDUR^PSJLIVMD	DUR+3
$$LASTREN^PSJLMPRI	RSTART+1, RSTART+9
$$LASTRNBY^PSJLMPRI	ENTRY+5
SETTMP^PSJLMPRU	AD+9, SOL+6, START+9, RSTART+10, STOP+5, STOP+11, LASTFL+3, QTY+2, CUMDOSES+2, OI+3 , INS+4, OPI+3, REMARK+1, REMARK+5, OFFSET+7, IVROOM+3, ENTRY+4, ENTRY+6
$$BCMALG^PSJUTL2	STOP+7
$$SETSTR^VALM1	AD+4, AD+5, AD+7, SOL+4, START+8, INFRATE+2, RSTART+2, RSTART+9, MR+2, STOP+4 , STOP+8, SCH+2, LASTFL+1, ADM+2, QTY+1, PROVIDER+2, CUMDOSES+1, OI+2, INS+2, OPI+2 , PC+2, REMARK+3, OFFSET+5, IVROOM+2, ENTRY+1, ENTRY+3, ENTRY+6, DSPLYDT+8, DUR+5
CNTRL^VALM10	AD+8, CLRDSPL+6

Name	Line Occurrences (* Changed, ! Killed)
^PS(53.1 - [#53.1]	OFFSET+4, GETDUR+6, GETDUR+9, PENDING+1, PENDING+2
^PS(55 - [#55]	GETDUR+12, GETDUR+13, GETDUR+14, GETDUR+16
^TMP("PSJI"	EN+4!, ENTRY+10*

Name	Line Occurrences
$$FMTDUR	GETDUR+15, GETDUR+22, PENDING+4, PENDING+5
CLRDSPL	AD+10
DSPLYDT	RSTART+8, STOP+10
DUR	SOL+8
PENDING	GETDUR+8, GETDUR+11
REQDT	START+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACT	GETDUR+4~
ACTND	GETDUR+13~*, GETDUR+14
BAD	FMTDUR+1~, FMTDUR+4, FMTDUR+7*, FMTDUR+9
CHR	DURMIN+1~*
DCOD	DURMIN~, DURMIN+1, DURMIN+2
>> DFN	EN+2, RSTART+1, RSTART+9, STOP+1, STOP+8, ENTRY+5
DMIN	DURMIN+1~, DURMIN+2*, DURMIN+3
DNUM	FMTDUR+1~, FMTDUR+4*, FMTDUR+7, FMTDUR+9
>> DRG	AD+6
DUNIT	FMTDUR+1~, FMTDUR+4, FMTDUR+5, FMTDUR+6, FMTDUR+7*, FMTDUR+9
DUR	GETDUR+4~, GETDUR+6, GETDUR+7, GETDUR+8, GETDUR+15, GETDUR+17, GETDUR+18, GETDUR+22, GETDUR+23, PENDING+3 , PENDING+4, PENDING+5, DURMIN+1~*, DURMIN+2
DURCODE	FMTDUR~, FMTDUR+4
DUROUT	DUR+1~, DUR+3*, DUR+6
F25	GETDUR+4~, GETDUR+17*, GETDUR+18
>> I	DURMIN+1*
>> IOBOFF	CLRDSPL+4, CLRDSPL+6
>> IOINORM	CLRDSPL+6
>> IORVOFF	AD+8
>> IORVON	AD+8
IVLIMIT	GETDUR+4!, GETDUR+15, GETDUR+18, PENDING+4*, DUR+1~, DUR+4!
LABEL	DUR+1~, DUR+4*, DUR+5
ND	GETDUR+4~, GETDUR+6, PENDING+1, PENDING+2
ND0	GETDUR+4~, GETDUR+9, GETDUR+16
ND2	GETDUR+4~, GETDUR+12*
ND25	GETDUR+4~, GETDUR+18, PENDING+2, PENDING+3, PENDING+5
NOECH	ADM+3~
OLDORD	GETDUR+4~, GETDUR+6, GETDUR+9, GETDUR+10, GETDUR+11, GETDUR+12, GETDUR+14, GETDUR+16*, GETDUR+17
>> ON	START+3, START+6, RSTART+1, RSTART+9, OFFSET+4, ENTRY+5, ENTRY+7
ORD	GETDUR~, GETDUR+4*, GETDUR+6, GETDUR+8, GETDUR+9, GETDUR+12, GETDUR+13, GETDUR+14, GETDUR+16, PENDING+1 , PENDING+2
ORDER	REQDT~, REQDT+2
>> P("CLRK"	ENTRY+2
>> P("CUM"	CUMDOSES+1
>> P("INS"	INS+3
>> P("IVRM"	IVROOM+2
>> P("LF"	LASTFL+2
>> P("LFA"	QTY+1
>> P("LIMIT"	GETDUR+15
>> P("LOG"	ENTRY+3
>> P("MR"	MR+3
>> P("OFFSET"	OFFSET+4*, OFFSET+5
>> P("OPI"	OPI+2
>> P("OT"	EN+3, START+2
>> P("OVRIDE"	GETDUR+7
>> P("PD"	OI+2
>> P("PON"	EN+7, AD+4, ENTRY+8, ENTRY+9
>> P("PRY"	ENTRY+8
>> P("REM"	REMARK+4
>> P("SYRS"	SOL+3, SOL+4, SOL+5
>> P(11	ADM+4
>> P(17	AD+4, ENTRY+7
>> P(2	EN+7*, RSTART+5, RSTART+7
>> P(3	EN+7*, START+4, STOP+9, STOP+11
>> P(4	EN+1, EN+7*, START+2
>> P(7	SCH+3
>> P(8	INFRATE+3
>> P(9	SCH+3
PAT	GETDUR~, GETDUR+12, GETDUR+13, GETDUR+14, GETDUR+16, PENDING+2
PKG	GETDUR~, GETDUR+5, GETDUR+6, GETDUR+9, GETDUR+12, GETDUR+16
PNDON	PENDING~
>> PSGACT	FMTDUR+8*
PSGLRN	ENTRY+5*, ENTRY+6!
PSGNDT	RSTART+1~
>> PSGP	EN+2, STOP+1, STOP+7, DUR+3
PSGRDT	DSPLYDT~
PSGRDTN	DSPLYDT~, DSPLYDT+8
>> PSGRDTX	RSTART+3, RSTART+7
>> PSGRDTX(	RSTART+5, RSTART+6, STOP+9, STOP+11
PSGRFD	START+1~, STOP+10
PSGRFDN	START+1~, STOP+9*, STOP+10
PSGRNDT	RSTART+1, RSTART+2, RSTART+9~*
PSGRSD	START+1~, RSTART+3~, RSTART+4, RSTART+6, RSTART+7*, RSTART+8
PSGRSDN	START+1~, RSTART+3~, RSTART+4, RSTART+6, RSTART+7*, RSTART+8
>> PSIV531	EN+7
PSIVAC	START+3~*
PSJBADD	STOP+4, FMTDUR+3!, FMTDUR+5, FMTDUR+8, FMTDUR+9
PSJBCMA	STOP+7~*, STOP+8, STOP+11
PSJFSH	DSPLYDT~
>> PSJL	AD+2, AD+3, AD+4, AD+5, AD+7, AD+9, SOL+1, SOL+2, SOL+4, SOL+5* , SOL+6, START+8, START+9, INFRATE+1, INFRATE+2, RSTART+2, RSTART+9, RSTART+10, MR+1, MR+2* , MR+3, STOP+4, STOP+5, STOP+6, STOP+8, STOP+11, SCH+1, SCH+2, LASTFL+1, LASTFL+2 , LASTFL+3, ADM+1, ADM+2, QTY+1, QTY+2, PROVIDER+1, PROVIDER+2, CUMDOSES+1, CUMDOSES+2, OI+1* , OI+2, OI+3, INS+1, INS+2, INS+4, OPI+1, OPI+2, OPI+3, PC+1, PC+2* , REMARK+2, REMARK+3, REMARK+5, OFFSET+2, OFFSET+5, OFFSET+7, IVROOM+1, IVROOM+2, IVROOM+3, ENTRY+1* , ENTRY+2, ENTRY+3, ENTRY+4, ENTRY+5, ENTRY+6, DSPLYDT+8, DUR+2, DUR+5, DUR+6
>> PSJLMX	AD+10, AD+12*, RSTART+8, STOP+10, CLRDSPL+6
PSJLN	EN+6*, ENTRY+10, DSPLYDT~
>> PSJORD	RSTART+5, RSTART+6, STOP+7, STOP+9, STOP+11, ENTRY+5, DUR+2, DUR+3
PSJRDBEG	DSPLYDT~, DSPLYDT+7*, DSPLYDT+8
PSJRDLEN	DSPLYDT~, DSPLYDT+7*, DSPLYDT+8
PSJRQB	RSTART+3~, RSTART+4, RSTART+5, RSTART+8
PSJRQL	RSTART+3~, RSTART+4, RSTART+5, RSTART+8
>> PSJSTAR	EN+2*
PSJVD	AD+6~*, AD+7, AD+8!
PSJX	CLRDSPL+5~, CLRDSPL+6*
RAW	GETDUR~, GETDUR+15, GETDUR+22, PENDING+4, PENDING+5
RSDLABL	RSTART+3~, RSTART+4, RSTART+6, RSTART+8
>> SCHMSG	SCH+3
TXT	DSPLYDT~, DSPLYDT+8
U	RSTART+7, MR+3, OI+2, IVROOM+2, ENTRY+2, GETDUR+9, GETDUR+12, GETDUR+16, GETDUR+18, PENDING+2 , PENDING+3, PENDING+5
>> UL80	EN+5*
>> VALM("TITLE"	ENTRY+7, ENTRY+8
>> VALMCNT	ENTRY+10*
VALMEVL	AD+1~*

Customize PDF page

Package: Inpatient Medications

Routine: PSJLIVMD

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 22

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: