Routine: PSJMIV

Package	Total	Call Graph
Inpatient Medications	10	($$ENDTC,$$ENPDN)^PSGMI EN^PSGS0 GT531^PSIVORFA GT55^PSIVORFB NAME^PSIVUTL $$ONE^PSJBCMA SI^PSJMPEND (,HDR)^PSJMPRTU NAMENEED^PSJMUTL ENIV^PSJPL0
Kernel	1	$$FMADD^XLFDT

Package

Total

Call Graph

($$ENDTC,$$ENPDN)^PSGMI EN^PSGS0 GT531^PSIVORFA GT55^PSIVORFB NAME^PSIVUTL $$ONE^PSJBCMA SI^PSJMPEND (,HDR)^PSJMPRTU
NAMENEED^PSJMUTL ENIV^PSJPL0

Kernel

$$FMADD^XLFDT

Package	Total	Caller Graph
Inpatient Medications	2	PSJMEDS PSJMPRT

Package

Total

Caller Graph

Inpatient Medications

PSJMEDS PSJMPRT

Entry Points

Name	Comments	DBIA/ICR reference
G	;*** Goto W to set ^TMP when selected by WARD/WARD GROUP
P	;*** Set ^TMP when select by patient
SCHEDULE	;*** Calculate admin times for IV that has schedule defined.
IVTMP	;*** Set IV ^TMP.
INTERVAL	;*** Calculate admin time by schedule interval.
PRTIV	;
IV	;*** Process IV order based on schedule and interval
START	;*** Read IV orders
PRT	;*** Print IV orders for Med Due Worksheet.
W	;
ADSOL	;

External References

Name	Field # of Occurrence
$$ENDTC^PSGMI	PRT+5
$$ENPDN^PSGMI	IVTMP+1
EN^PSGS0	SCHEDULE+1
GT531^PSIVORFA	PRT+4
GT55^PSIVORFB	IV+1, PRT+2
NAME^PSIVUTL	PRTIV+6, PRTIV+8
$$ONE^PSJBCMA	IV+5
SI^PSJMPEND	PRT+4
^PSJMPRTU	PRT+13, ADSOL+1
HDR^PSJMPRTU	PRT+14, ADSOL+1
NAMENEED^PSJMUTL	PRT+9
ENIV^PSJPL0	SCHEDULE+3
$$FMADD^XLFDT	INTERVAL+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: to Line Location: G+0
Function Call: WRITE	Prompt: !,PSJPRT(1),?39,$E(P("LOG"),1,5)," \| ",$E(P(2),1,5),$E(P(2),9,15)," \| ",P(3) Line Location: PRTIV+1
Function Call: WRITE	Prompt: !,PSJPRT(1),?39,$E(P("LOG"),1,5)," \| " Line Location: PRTIV+2
Function Call: WRITE	Prompt: "P E N D I N G" Line Location: PRTIV+3
Function Call: WRITE	Prompt: $E(P(2),1,5),$E(P(2),9,15)," \| ",P(3) Line Location: PRTIV+4
Function Call: WRITE	Prompt: NAME(Y) Line Location: PRTIV+6
Function Call: WRITE	Prompt: " in" Line Location: PRTIV+7
Function Call: WRITE	Prompt: NAME(Y) Line Location: PRTIV+8
Function Call: WRITE	Prompt: !?39,$P(P("MR"),U,2)," ",P(9)," ",P(8) Line Location: PRTIV+10
Function Call: WRITE	Prompt: !?39 Line Location: PRTIV+13
Function Call: WRITE	Prompt: !?39 Condition for execution: ($L(Y1)+$X)>79 Line Location: PRTIV+13
Function Call: WRITE	Prompt: Y1_" " Line Location: PRTIV+13
Function Call: WRITE	Prompt: !?39,"RN/LPN Init: ________" Line Location: PRTIV+14
Function Call: WRITE	Prompt: ! Line Location: PRTIV+15
Function Call: WRITE	Prompt: !?39,"* CONTINUE ON NEXT PAGE *" Line Location: ADSOL+1
Function Call: WRITE	Prompt: !,$G(PSJPRT(+I)),?39 Line Location: ADSOL+4

Name	Line Occurrences (* Changed, ! Killed)
^PS(55 - [#55]	START+2
^TMP($J	P+1, W+1, W+2, W+3

Name	Line Occurrences
@(	IVTMP+2
ADSOL	PRTIV+6, PRTIV+7, PRTIV+8
INTERVAL	IV+8
IV	START+2
IVTMP	INTERVAL+4, SCHEDULE+4
PRTIV	PRT+15
SCHEDULE	IV+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADM	IV+1!, INTERVAL+3*
>> ADMIN	IVTMP+2*
>> DFN	IV+1, PRT+1, PRT+4
DRG	IVTMP+1*, P+1, W+1, W+2, W+3, PRT+1~
DRG("AD"	IVTMP+1, PRT+11, PRTIV+6
DRG("SOL"	IVTMP+1, PRT+11, PRTIV+7, PRTIV+8
>> I	INTERVAL+3, ADSOL+4, ADSOL+5
MN	INTERVAL+1~, SCHEDULE+2*
>> NAME	PRTIV+6, PRTIV+8
>> NAME(	PRTIV+6, PRTIV+8
ND	INTERVAL+1~, SCHEDULE+2*
ND1	INTERVAL+1~, SCHEDULE+2*
NEED	PRT+8~, PRT+9
>> ON	START+1, START+2, IV+5, INTERVAL+4*, IVTMP+1, P+1, W+1, W+2, W+3, PRT+4 , PRTIV+9
ON55	IV+1~, PRT+1~
P	START+1~, PRT+1~
P(	PRT+5*
P("LOG"	PRTIV+2, ADSOL+2
P("MR"	IV+4, PRTIV+10
P("OPI"	PRT+4*, PRT+7, PRT+10
P(11	SCHEDULE+2
P(15	IV+8, INTERVAL+3
P(17	IV+2
P(2	IV+3, IV+5, INTERVAL+3, SCHEDULE+2, PRTIV+4, ADSOL+2
P(3	IV+5, INTERVAL+3, SCHEDULE+2, PRTIV+4, ADSOL+2
P(4	SCHEDULE+2, PRT+10, PRTIV+12
P(8	PRTIV+10
P(9	IV+5, IV+6, IV+7, SCHEDULE+1, SCHEDULE+2, PRTIV+10
PLSD	INTERVAL+1~, SCHEDULE+2*
>> PPN	P+1, W+1, W+2, W+3
>> PSGEXPDT	START+2*
PSGMAR	INTERVAL+2!, SCHEDULE+1!
PSGMAR(	INTERVAL+3*, IVTMP+2
>> PSGOES	SCHEDULE+1*
>> PSGON	IV+8*
>> PSGP	START+2, IV+1, IV+5, P+1, W+1, W+2, W+3, PRT+1
PSGPLC	INTERVAL+1~, SCHEDULE+1, SCHEDULE+2
>> PSGPLF	IV+3, INTERVAL+3
>> PSGPLS	START+2, INTERVAL+3
>> PSGRBADM	W+1, W+2, W+3
>> PSGS0XT	SCHEDULE+1
>> PSGSS	IVTMP+2
>> PSGWN	W+1, W+2, W+3
>> PSJADT	IVTMP+2*, P+1, W+1, W+2, W+3
>> PSJASTR	PRTIV+9*
>> PSJATME	IVTMP+2*, P+1, W+1, W+2, W+3
PSJLABEL	IV+1~, PRT+1~
>> PSJLN	PRT+14, PRTIV+16, ADSOL+1, ADSOL+3
>> PSJNEED	PRT+8, PRT+9, PRT+12, PRT+14, PRTIV+16, ADSOL+3
>> PSJONETM	PRT+6*, PRT+12, PRTIV+11
>> PSJPPID	P+1, W+1, W+2, W+3
>> PSJPRB	P+1, W+1, W+2, W+3
>> PSJPRT(	ADSOL+4, ADSOL+5!
>> PSJPRT(1	PRTIV+2, ADSOL+2, ADSOL+4
>> PSJPWDN	P+1
>> PSJSI	PRT+4, PRT+7*, PRTIV+13
>> PSJSTOP	PRT+14
>> PSJTOTLN	PRT+14, ADSOL+1
>> PST	START+2, IV+4
>> QST	IV+5, IV+6, P+1, W+1, W+2, W+3, PRT+2, PRT+4, PRT+6, PRTIV+3
ST	INTERVAL+1~, SCHEDULE+2*
T	INTERVAL+1~, SCHEDULE+1*, SCHEDULE+2
>> TM	W+1, W+2, W+3
TS	INTERVAL+1~, SCHEDULE+2*
U	IV+4, IVTMP+1, P+1, W+1, W+2, W+3, PRTIV+10
X	IV+1~, IV+4, SCHEDULE+1, IVTMP+1, PRT+5, PRT+9, PRT+10, PRT+11, PRT+12, PRTIV+5~ , PRTIV+6, PRTIV+8*, ADSOL+1~
>> XTYPE	IV+4, IV+6
Y	PRTIV+5~, PRTIV+6, PRTIV+8, PRTIV+13*
>> Y1	PRTIV+13*

Customize PDF page

Package: Inpatient Medications

Routine: PSJMIV

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: