Routine: PSJOE

Call Graph

Call Graph Total: 42

Package	Total	Call Graph
Inpatient Medications	31	ENQL^PSGLW ^PSGOD ($$ENACTION,H)^PSGOE1 ENO^PSGOEC (ABORT,ACT,ENF)^PSGOEE ENSFE^PSGOEE0 (FINISH,START)^PSGOEF ENLM^PSGOEL ^PSGOER ^PSGOERI ORSET^PSGOETO1 (ENASR,ENCHK)^PSGON ^PSGPER ^PSGPER1 (ENCV,ENIVKV)^PSGSETU COPY^PSIVOD H^PSIVOPT VF^PSIVORC2 ^PSIVXU (,ENIV,WP)^PSJAC (,RESTORE)^PSJHVARS EN^PSJLIFN EN^PSJLIORD REQDT^PSJLIVMD GETUD^PSJLMGUD INIT^PSJLMUDE ($$HIDDEN,$$OINAME)^PSJLMUTL (DONE,LOCKERR)^PSJOE OLDCOM^PSJOE0 SELECT^PSJOEA ^PSJP
Registration	3	INP^VADPT EN^VALM (FULL,PAUSE)^VALM1
IHS Changes To Pharmacy	2	SETPTCX^APSPFUNC ($$OI,OI)^APSPMULT
Kernel	2	HOME^%ZIS $$PATCH^XPDUTL
Order Entry Results Reporting	1	EN1^ORCFLAG
Pharmacy Data Management	1	($$L,$$LS,UL,UNL)^PSSLOCK
Scheduling	1	$$SDIMO^SDAMA203
VA Fileman	1	^DIR

Package	Total	Caller Graph
Inpatient Medications	20	PSGOE PSGOE1 PSGOE9 PSGOE91 PSGOE92 PSGOEF1 PSGOETO PSGVBW PSGVBW0 PSIVEDRG PSIVEDT PSIVEDT1 PSIVORE PSIVVW1 PSJ OE PSJLIACT PSJLIFN PSJLIFNI PSJOE PSJOE0

Package

Total

Caller Graph

Inpatient Medications

PSGOE  PSGOE1  PSGOE9  PSGOE91  PSGOE92  PSGOEF1  PSGOETO  PSGVBW
PSGVBW0  PSIVEDRG  PSIVEDT  PSIVEDT1  PSIVORE  PSIVVW1  PSJ OE  PSJLIACT
PSJLIFN  PSJLIFNI  PSJOE  PSJOE0

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Start Inpatient LM OE ; Modified - IHS/MSC/JDS - 11/20/2010 - Line RENEW+3
HOLDHDR	; Freeze header text while processing order actions
FINISH	;
RENEW(PSGP,PSGORD)	;
LOCKERR	;
COPY(PSGP,PSGORD)	; Copy an order (does not discontinue original order)
FLAG(DFN,PSJORD)	;Flag order through CPRS entry point.
UPDATE	; Refresh array, actions, & display.
DC(DFN,PSJORD)	; DC IV, UD, or pending orders.
LOG(DFN,PSGORD)	;
HK	; Housekeeping (a nice COBOL term)
EDIT(PSGP,PSGORD,PROMPT)	;
GTSTATUS(DFN,ON)	;
DONE	;
DISACTIO(DFN,PSJORD,PSJPNV)	; Display UD order and allow actions. ; DFN - Patient IEN ; PSJORD - Order #_location Code (P:53.1,V:55.01,U:55.06) ; PSJPNV - Invoked from Pending/NV option; (gets different hidden menu)
HOLD(DFN,PSJORD)	; Change order's status from ACTIVE<->HOLD
COMPLEX(DFN,ON)	;
NEWSEL	;
SELECT	; Select order from list

External References

Name	Field # of Occurrence
HOME^%ZIS	EN+25
SETPTCX^APSPFUNC	EN+6
$$OI^APSPMULT	RENEW+3, COPY+7
OI^APSPMULT	COPY+7
^DIR	DISACTIO+13, LOCKERR+1
EN1^ORCFLAG	FLAG+4
ENQL^PSGLW	HK+3
^PSGOD	COPY+12
$$ENACTION^PSGOE1	DISACTIO+14, DISACTIO+31, HOLD+4, COPY+15
H^PSGOE1	HOLD+3
ENO^PSGOEC	DC+3
ABORT^PSGOEE	EDIT+3
ACT^PSGOEE	EDIT+5
ENF^PSGOEE	EDIT+4
ENSFE^PSGOEE0	DISACTIO+28, DISACTIO+31
FINISH^PSGOEF	FINISH+1
START^PSGOEF	DISACTIO+28
ENLM^PSGOEL	LOG+1
^PSGOER	RENEW+4
^PSGOERI	RENEW+5
ORSET^PSGOETO1	DISACTIO+36
ENASR^PSGON	SELECT+2
ENCHK^PSGON	NEWSEL+4
^PSGPER	EN+26
^PSGPER1	DONE+5
ENCV^PSGSETU	EN+2, EN+27
ENIVKV^PSGSETU	DONE+5
COPY^PSIVOD	COPY+5
H^PSIVOPT	HOLD+2
VF^PSIVORC2	DISACTIO+19
^PSIVXU	EN+2, EN+27
^PSJAC	EN+5
ENIV^PSJAC	DISACTIO+6
WP^PSJAC	HK+3
^PSJHVARS	COPY+8
RESTORE^PSJHVARS	COPY+17
EN^PSJLIFN	DISACTIO+29
EN^PSJLIORD	DISACTIO+6
REQDT^PSJLIVMD	DISACTIO+26
GETUD^PSJLMGUD	DISACTIO+7, DISACTIO+31, HOLD+4, UPDATE+1
INIT^PSJLMUDE	HOLD+4, UPDATE+1
$$HIDDEN^PSJLMUTL	COPY+6
$$OINAME^PSJLMUTL	DISACTIO+9
DONE^PSJOE	EN+4
LOCKERR^PSJOE	EN+4
OLDCOM^PSJOE0	DISACTIO+5
SELECT^PSJOEA	SELECT+5, NEWSEL+6
^PSJP	EN+5
$$L^PSSLOCK	EN+8
$$LS^PSSLOCK	SELECT+6, NEWSEL+8
UL^PSSLOCK	EN+5
UNL^PSSLOCK	SELECT+10, DISACTIO+37, NEWSEL+12, NEWSEL+13
$$SDIMO^SDAMA203	DISACTIO+23
INP^VADPT	HK+3
EN^VALM	EN+9, EN+14, EN+17, DISACTIO+31
FULL^VALM1	COPY+12, LOG+1
PAUSE^VALM1	DISACTIO+24, DISACTIO+27, EDIT+1, EDIT+2, RENEW+2, RENEW+3, DC+2, COPY+1, COPY+2, COPY+4 , COPY+7, COPY+9, FINISH+1, LOG+1, FLAG+5
$$PATCH^XPDUTL	DISACTIO+23

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),$P(PSJLK,U,2) Line Location: EN+8
Function Call: WRITE	Prompt: !,"This order is being edited by another terminal.",! Line Location: DISACTIO+13
Function Call: WRITE	Prompt: !!,"Cannot process an Out-patient Unit Dose order for ",$P($G(^DPT(+PSGP,0)),U) Line Location: DISACTIO+24
Function Call: WRITE	Prompt: !!,"Invalid schedule, can't finish this order" Line Location: DISACTIO+27
Function Call: WRITE	Prompt: !,"This order may not be edited." Line Location: EDIT+1
Function Call: WRITE	Prompt: !,"This order may not be edited." Line Location: EDIT+2
Function Call: WRITE	Prompt: !!,"This order is already marked for renewal!" Line Location: RENEW+2
Function Call: WRITE	Prompt: !!,"Sorry, this drug is not currently available in this facility" Line Location: RENEW+3
Function Call: WRITE	Prompt: !,$S(X="R":"This order has a pending renewal and cannot be DISCONTINUED.",1:"This order has already been DISCONTINUED.") Line Location: DC+2
Function Call: WRITE	Prompt: !!,"You cannot copy the order at this time" Line Location: COPY+1
Function Call: WRITE	Prompt: !!,"You cannot copy this "_$S($G(PSGSTAT)]"":PSGSTAT,1:"PENDING IV")_" order." Line Location: COPY+2
Function Call: WRITE	Prompt: !!,"You cannot copy the order at this time" Line Location: COPY+4
Function Call: WRITE	Prompt: !!,"Sorry, this drug is not currently available in this facility" Line Location: COPY+7
Function Call: WRITE	Prompt: !!,"Nurse verified orders with a priority of DONE may not be Copied." Line Location: COPY+9
Function Call: WRITE	Prompt: IOSC Line Location: HOLDHDR+1
Function Call: WRITE	Prompt: @IOSTBM Line Location: HOLDHDR+1
Function Call: WRITE	Prompt: @IOSTBM Line Location: HOLDHDR+1
Function Call: WRITE	Prompt: !!,$C(7),"You are entering or editing an Inpatient Medication order in another session.",!,"Only one order entry/edit session is allowed for a user at a time.",!! Line Location: LOCKERR+1
Routine Call	VALM Line Location: EN+9 EN+14 EN+17 DISACTIO+31
Routine Call	%ZIS Line Location: EN+25
Routine Call	DIR Line Location: DISACTIO+13 LOCKERR+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	DISACTIO+24
^PS(53.1 - [#53.1]	DISACTIO+12, DISACTIO+15, DISACTIO+16, DISACTIO+23, DISACTIO+32, DISACTIO+36, GTSTATUS+1, FLAG+2, COMPLEX+2
^PS(53.45 - [#53.45]	EN+4, DONE+1
^PS(55 - [#55]	DISACTIO+11, DISACTIO+33, RENEW+2, RENEW+3, GTSTATUS+2, GTSTATUS+3, COPY+7, COPY+9, FLAG+2, COMPLEX+2
^TMP("PSJ"	EN+7!, EN+16, EN+28!
^TMP("PSJCOM"	SELECT+1!, NEWSEL+1!
^TMP("PSJCOM2"	SELECT+1!, NEWSEL+1!
^TMP("PSJON"	EN+28!, SELECT+5, NEWSEL+6
^TMP("PSJPRO"	EN+28!, SELECT+2, NEWSEL+3

Name	Line Occurrences
$$GTSTATUS	EDIT+1, DC+2
@(	DISACTIO+28, EDIT+3
DISACTIO	SELECT+9, NEWSEL+11
DONE	EN+3
HK	EN+5
HOLDHDR	EDIT+3, RENEW+1, DC+1, HOLD+1

Name	Field # of Occurrence
^(4	RENEW+2, COPY+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AC	DONE+1!
ACTION	DONE+1!
>> APPT	DISACTIO+23*
>> CLINIC	DISACTIO+23*
COM	COMPLEX+1~, COMPLEX+3*
D1	DONE+1!
D2	DONE+1!
DA	DONE+2!
DFN	EN+5, EN+23~, EN+26, HK+2~, HK+5, DISACTIO~, DISACTIO+5, DISACTIO+6, DISACTIO+7, DISACTIO+15 , DISACTIO+23, DISACTIO+29, GTSTATUS~, GTSTATUS+2, GTSTATUS+3, DC~, DC+2, DC+3, HOLD~, HOLD+2 , HOLD+3, HOLD+4, COPY+7, UPDATE+1, LOG~, LOG+1, FLAG~, FLAG+2, COMPLEX~, COMPLEX+2
DIR	DISACTIO+13!, LOCKERR+1~
DIR(0	DISACTIO+13, LOCKERR+1
DIU	DONE+4!
DRG	DONE+2!
DRGI	DONE+4!
FLAG	DONE+4!
FQC	DONE+4!
IO	EN+25~
>> IOBM	HOLDHDR+1*
ION	EN+25~
>> IORC	HOLDHDR+1
IOS	EN+25~
>> IOSC	HOLDHDR+1
IOSL	HOLDHDR+1
>> IOSTBM	HOLDHDR+1
>> IOTM	HOLDHDR+1*
MI	DONE+1!
N	DONE+1!
ND2	DONE+4!
NDP2	COMPLEX+1~, COMPLEX+2*, COMPLEX+3
NE	DONE+2!
NODE0	FLAG+1~, FLAG+2*, FLAG+3
NXTPT	EN+10~, EN+18, EN+19, EN+20
OI	RENEW+3~, COPY+7~
ON	DONE+1!, SELECT+9, DISACTIO+19~, GTSTATUS~, GTSTATUS+1, GTSTATUS+2, GTSTATUS+3, UPDATE+1, NEWSEL+10, NEWSEL+11 , NEWSEL+13, COMPLEX~, COMPLEX+2
ON55	DISACTIO+4~
ORIFN	FLAG+1~, FLAG+3*, FLAG+4
>> P("PON"	DISACTIO+18*
>> P(17	HOLD+2
>> P(3	HOLD+2
P3	DONE+1!
PNOW	DONE+1!
PRI	DONE+4!
PROMPT	EDIT~, EDIT+3
>> PSGACT	DISACTIO+14, DISACTIO+31, EDIT+2, HOLD+4, COPY+15
PSGCANFL	DONE+2!
PSGCF	DONE+2!
PSGCOPY	COPY+1, COPY+11*, COPY+14!
PSGFDX	DISACTIO+4~
PSGLMT	SELECT+1~, SELECT+2, NEWSEL+1~, NEWSEL+3
PSGNEDFD	DONE+2!, EDIT+3*
PSGNEF	EN+4*, DONE+2!
PSGNEFD	DONE+2!
PSGNEPR	DONE+2!
PSGNESD	DONE+2!
PSGODDD	SELECT+1~, NEWSEL+1~
PSGODDD(	SELECT+4, SELECT+5, NEWSEL+5, NEWSEL+6
PSGODDD(0	NEWSEL+4
PSGOE	DONE+4!
PSGOEA	DONE+2!
PSGOEAV	EN+4, DONE+2!, DISACTIO+8, DISACTIO+35, DISACTIO+36, COPY+10
PSGOEDMR	DONE+4!
>> PSGOEEF	DISACTIO+31*
PSGOENG	DISACTIO+10!, DISACTIO+11, DISACTIO+12, DISACTIO+13*
PSGOEORF	DONE+3!
PSGOEPR	DONE+4!
>> PSGOES	DISACTIO+36
PSGOL	DONE+2!
PSGON	DONE+2!
>> PSGONC	SELECT+2, NEWSEL+3
PSGOP	EN+4, DONE+2!, HK+1, HK+2, HK+5
PSGORD	DONE+2!, SELECT+8, DISACTIO+28, DISACTIO+36, EDIT~, EDIT+1, EDIT+4, RENEW~, RENEW+2, RENEW+3 , COPY~, COPY+2, COPY+3, COPY+5, COPY+7, COPY+9, COPY+15, LOG~, LOG+1, NEWSEL+9*
PSGOS	DONE+2!
PSGP	EN+5, EN+6, EN+8, EN+22, EN+23~, EN+26, HK+1, HK+4, HK+5, SELECT+6 , SELECT+9, SELECT+10, DISACTIO+4~, DISACTIO+6, DISACTIO+11, DISACTIO+14, DISACTIO+15, DISACTIO+24, DISACTIO+28, DISACTIO+29 , DISACTIO+31, DISACTIO+33, DISACTIO+37, EDIT~, EDIT+1, RENEW~, RENEW+2, RENEW+3, COPY~, COPY+5 , COPY+7, COPY+9, COPY+15, NEWSEL+8, NEWSEL+11, NEWSEL+12, NEWSEL+13
>> PSGPD	DISACTIO+9*
>> PSGPDN	DISACTIO+9*
>> PSGPRF	DISACTIO+10
PSGPRI	DONE+4!
>> PSGPTMP	EN+5*
PSGPTS	DONE+4!
>> PSGPXN	EN+4, EN+22, DONE+5, COPY+16, COPY+17*
PSGPXPT	EN+22*!, EN+26
PSGRDTX	EN+11!, SELECT+1~, NEWSEL+1~
PSGRFD	DISACTIO+25~
PSGRFDN	DISACTIO+25~
>> PSGRRF	RENEW+4
PSGRSD	DISACTIO+25~
PSGRSDN	DISACTIO+25~
PSGS0XT	DONE+2!
PSGS0Y	DONE+2!
>> PSGSCH	DISACTIO+27
PSGSDN	DONE+4!
PSGSDX	DISACTIO+4~
>> PSGSTAT	COPY+2
PSGTMPXN	COPY+16~*, COPY+17
PSGTOL	DONE+4!
PSGTOO	DONE+4!
PSGUOW	DONE+4!
PSGVBY	EN+4!
PSIVAT	DONE+1!
>> PSIVCOPY	COPY+4
PSIVFLG	DISACTIO+18*, DISACTIO+30!
PSIVLN	DONE+1!
PSIVREA	DONE+3!
PSIVSTR	DONE+1!
PSJACNWP	HK+2~
PSJACOK	EN+4*, DONE+2!
PSJACPF	HK+2~, HK+3*
>> PSJCOI	DISACTIO+9
>> PSJCOM	EN+22
PSJCT	DONE+3!
PSJIVFLG	DISACTIO+4~, DISACTIO+16, DISACTIO+22, DISACTIO+24, DISACTIO+29
PSJIVOF	DONE+4!
PSJIVORF	DONE+2!
PSJIVPCL	DONE+2!
PSJLK	EN+2~, EN+5, EN+8*
PSJLM	DONE+3!, SELECT+4, SELECT+12!, DISACTIO+28~, NEWSEL+5*, NEWSEL+16!
PSJLMCON	EN+2~, EN+5, EN+12, EN+14, EN+16, EN+17*
PSJLMFIN	SELECT+1~, NEWSEL+1~
PSJLMPRO	EN+9!, EN+14, EN+16, EN+17, EN+28!
PSJLMQT	SELECT+1~, NEWSEL+1~
PSJLYN	DISACTIO+29*!
PSJMAI	DISACTIO+29!
PSJNEWOE	EN+2~, EN+12, EN+14, EN+15, EN+18, EN+20*
PSJNOL	NEWSEL+13!
PSJOCNT	DONE+4!
PSJOE	DONE+2!
PSJOECNT	DONE+2!
PSJOEPF	DONE+2!
>> PSJOL	EN+4, EN+13, EN+21*
PSJON	DONE+4!
PSJOPC	DONE+3!
PSJORD	DONE+2!, SELECT+5, SELECT+6, SELECT+7, SELECT+9, SELECT+10, DISACTIO~, DISACTIO+5, DISACTIO+6, DISACTIO+7 , DISACTIO+11, DISACTIO+12, DISACTIO+14, DISACTIO+15, DISACTIO+16, DISACTIO+18, DISACTIO+19, DISACTIO+23, DISACTIO+26, DISACTIO+28 , DISACTIO+29, DISACTIO+31, DISACTIO+32, DISACTIO+33, DISACTIO+37, DC~, DC+2, DC+3, HOLD~, HOLD+2 , HOLD+3, HOLD+4, NEWSEL+6, NEWSEL+7, NEWSEL+8, NEWSEL+10, NEWSEL+11, NEWSEL+12, NEWSEL+13, FLAG~ , FLAG+2
PSJORL	DONE+3!
PSJORPCL	DONE+3!
PSJORQF	DONE+4!
PSJORTOI	DONE+3!
PSJORTOU	DONE+4!
PSJORVP	DONE+4!
>> PSJPDD	DISACTIO+24
PSJPDXP	EN+24*, EN+26!
PSJPNV	DISACTIO~, NEWSEL+11
PSJPR	EN+4!
PSJPROT	EN+2~, EN+5*
PSJPWD	HK+2~, HK+3*
PSJPXDP	EN+23~
>> PSJSEL	SELECT+4, SELECT+5, NEWSEL+5, NEWSEL+6
>> PSJSEL1	SELECT+4, SELECT+5, NEWSEL+5, NEWSEL+6
PSJSYSL	HK+2~, HK+3
>> PSJSYSP	EN+4, DONE+1
>> PSJSYSP0	DISACTIO+8, DISACTIO+35, COPY+10
>> PSJSYSU	DISACTIO+8, DISACTIO+35, RENEW+2, COPY+10
PSJSYSW	HK+2~
PSJSYSW0	EN+22, EN+24, EN+25, EN+26, HK+2~
>> PSJTUD	DISACTIO+9, DISACTIO+21, DISACTIO+28
PSJUDPRF	SELECT+1~, NEWSEL+1~
PSJXX1	DISACTIO+4~, DISACTIO+15, DISACTIO+16, DISACTIO+17, DISACTIO+20, DISACTIO+21*, DISACTIO+22, DISACTIO+27, DISACTIO+28, DISACTIO+29
RCT	DONE+2!
RF	DONE+3!
ST	DONE+2!
U	EN+8, EN+22, EN+24, EN+25, EN+26, DISACTIO+15, DISACTIO+16, DISACTIO+17, DISACTIO+20, DISACTIO+21 , DISACTIO+22, DISACTIO+24, DISACTIO+27, DISACTIO+28, DISACTIO+29, RENEW+2, GTSTATUS+1, GTSTATUS+2, GTSTATUS+3, COPY+9 , COPY+10
VAERR	HK+2~
VAIN	HK+2~
VAIN(4	HK+3
VAIP	DISACTIO+23~
>> VALM("TM"	HOLDHDR+1
>> VALMBCK	EN+15, SELECT+11, RENEW+2, RENEW+3, DC+4, HOLD+4, COPY+13, UPDATE+1, LOG+1, NEWSEL+15*
VALMEVL	EN+2~
>> VALMQUIT	SELECT+3, NEWSEL+4
WD	DONE+2!
WSCHADM	DONE+3!
>> X	HK+5, SELECT+3, DC+2, NEWSEL+2*
>> XQORNOD(0	NEWSEL+2
XQORS	EN+2~
XQUIT	EN+3!
XREF	DONE+2!
>> Y	SELECT+4, SELECT+5, SELECT+10, DISACTIO+16, EDIT+3, NEWSEL+8, NEWSEL+14
Z	DONE+2!

Customize PDF page

Package: Inpatient Medications

Routine: PSJOE

Information

Source Information

Call Graph

Call Graph Total: 42

Caller Graph

Caller Graph Total: 20

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items