Routine: PSJOE

Package	Total	Call Graph
Inpatient Medications	33	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 ($$ISCLOZ,PSJFILE)^PSJCLOZ (,RESTORE)^PSJHVARS EN^PSJLIFN EN^PSJLIORD REQDT^PSJLIVMD GETUD^PSJLMGUD INIT^PSJLMUDE ($$HIDDEN,$$OINAME)^PSJLMUTL SETOC^PSJNEWOC (DONE,LOCKERR)^PSJOE OLDCOM^PSJOE0 SELECT^PSJOEA ^PSJP
Kernel	2	HOME^%ZIS $$PATCH^XPDUTL
List Manager	2	EN^VALM (FULL,PAUSE)^VALM1
Mental Health	1	INPSND^YSCLTST5
Order Entry Results Reporting	1	EN1^ORCFLAG
Pharmacy Data Management	1	($$L,$$LS,UL,UNL)^PSSLOCK
Registration	1	INP^VADPT
Scheduling	1	$$SDIMO^SDAMA203
VA FileMan	1	^DIR

Package	Total	Caller Graph
Inpatient Medications	37	PSGOE PSGOE1 PSGOE9 PSGOE91 PSGOE92 PSGOEF1 PSGOETO PSGOEV PSGVBW PSGVBW0 PSIVEDRG PSIVEDT PSIVEDT1 PSIVORE PSIVVW1 PSJ LM DC PSJ LM EDIT NEW PSJ LM FLAG PSJ LM HOLD PSJ LM NEW CM ORDER PSJ LM NEW ORDER PSJ LM NEW SELECT ORDER PSJ LM SELECT ORDER PSJ OE PSJCLOR PSJCLOR4 PSJLIACT PSJLIFN PSJLIFNI PSJOCDC PSJOE PSJOE0 PSJOE1 PSJU LM ACTIVITY LOG PSJU LM COPY PSJU LM EDIT PSJU LM RENEW
Kernel	1	^ORD(101

Name	Comments	DBIA/ICR reference
EN	; Start Inpatient LM OE
DONE	; ; -- RTC 198753 - correct typo - r PSJALGSV w PSJAGYSV
HK	; Housekeeping (a nice COBOL term)
SELECT	; Select order from list
DISACTIO(DFN,PSJORD,PSJPNV)
SETOC	;
EDIT(PSGP,PSGORD,PROMPT)	;
RENEW(PSGP,PSGORD)	;
GTSTATUS(DFN,ON)
DC(DFN,PSJORD)	; DC IV, UD, or pending orders.
HOLD(DFN,PSJORD)	; Change order's status from ACTIVE<->HOLD
COPY(PSGP,PSGORD)
UPDATE
FINISH	;
LOG(DFN,PSGORD)	;
NEWSEL	;
HOLDHDR	; Freeze header text while processing order actions
LOCKERR	;
FLAG(DFN,PSJORD)	;Flag order through CPRS entry point.
COMPLEX(DFN,ON)	;
CLOZSND	; SEND CLOZAPINE OVERRIDE MESSAGE AND ORDER TO HINES DB ; START NCC REMEDIATION >> 327*RJS

External References

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),$P(PSJLK,U,2) Line Location: EN+7
Function Call: WRITE	Prompt: !,"This order is being edited by another terminal.",! Line Location: DISACTIO+18
Function Call: WRITE	Prompt: !!,"Cannot process an Out-patient Unit Dose order for ",$P($G(^DPT(+PSGP,0)),U) Line Location: DISACTIO+30
Function Call: WRITE	Prompt: !!,"Invalid schedule, can't finish this order" Line Location: DISACTIO+33
Function Call: WRITE	Prompt: !,"This order may not be edited." Line Location: EDIT+6
Function Call: WRITE	Prompt: !,"This order may not be edited." Line Location: EDIT+7
Function Call: WRITE	Prompt: !!,"This order is already marked for renewal!" Line Location: RENEW+11
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 a clozapine order." Line Location: COPY+3
Function Call: WRITE	Prompt: !!,"You cannot copy the order at this time" Line Location: COPY+4
Function Call: WRITE	Prompt: !!,"You cannot copy this "_$S($G(PSGSTAT)]"":PSGSTAT,1:"PENDING IV")_" order." Line Location: COPY+5
Function Call: WRITE	Prompt: !!,"You cannot copy the order at this time" Line Location: COPY+7
Function Call: WRITE	Prompt: !!,"Nurse verified orders with a priority of DONE may not be Copied." Line Location: COPY+12
Function Call: WRITE	Prompt: IOSC Line Location: NEWSEL+5
Function Call: WRITE	Prompt: @IOSTBM Line Location: NEWSEL+5
Function Call: WRITE	Prompt: @IOSTBM Line Location: NEWSEL+5
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	%ZIS Line Location: EN+25
Routine Call	DIR Line Location: DISACTIO+18 LOCKERR+1
Routine Call	VALM Line Location: EN+8 EN+13 EN+16 DISACTIO+37

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	DISACTIO+30
^PS(53.1 - [#53.1]	DISACTIO+17, DISACTIO+20, DISACTIO+21, DISACTIO+29, DISACTIO+38, DISACTIO+42, GTSTATUS+1, FLAG+2, COMPLEX+2
^PS(53.45 - [#53.45]	EN+4, DONE+3
^PS(55 - [#55]	DISACTIO+16, DISACTIO+39, RENEW+11, GTSTATUS+2, GTSTATUS+3, COPY+3, COPY+12, FLAG+2, COMPLEX+2
^TMP("PSJ"	EN+6!, EN+15, EN+28!
^TMP("PSJCOM"	SELECT+2!, NEWSEL+1!
^TMP("PSJCOM2"	SELECT+2!, NEWSEL+1!
^TMP("PSJDAOC"	DONE+2!, SELECT+2!, SETOC+4!, NEWSEL+1!, NEWSEL+25!
^TMP("PSJON"	EN+28!, SELECT+8, NEWSEL+12
^TMP("PSJPRO"	EN+28!, SELECT+4, NEWSEL+8
^TMP("PSODAOC"	DONE+2!, SELECT+2!, DISACTIO+46!, SETOC+2, SETOC+4!, NEWSEL+1!, NEWSEL+23, NEWSEL+25!
^TMP($J	DONE+2!

Label References

Name	Line Occurrences
$$GTSTATUS	EDIT+6, DC+2
@(	DISACTIO+34, EDIT+10
DISACTIO	SELECT+12, NEWSEL+17
DONE	EN+3
HK	EN+5
HOLDHDR	EDIT+10, RENEW+10, DC+1, HOLD+1
SETOC	DISACTIO+43, DISACTIO+44

Naked Globals

Name	Field # of Occurrence
^(4	RENEW+11, COPY+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Inpatient Medications

Routine: PSJOE

Information

Source Information

Call Graph

Call Graph Total: 43

Caller Graph

Caller Graph Total: 38

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: