Routine: PSJOEA

Information

PSJOEA ;BIR/MLM-INPATIENT ORDER ENTRY ;12 June 2019 09:31:53

Package	Total	Call Graph
Inpatient Medications	17	$$ENACTION^PSGOE1 ENSFE^PSGOEE0 START^PSGOEF (CRA,ENGNA)^PSGOETO ORSET^PSGOETO1 VF^PSIVORC2 GT531^PSIVORFA NEW55^PSIVORFB ENIV^PSJAC CMPLX2^PSJCOM1 EN1^PSJHL2 EN^PSJLIFN REQDT^PSJLIVMD GETUD^PSJLMGUD $$OINAME^PSJLMUTL $$LOCK^PSJOEA CHK^PSJOEA1
List Manager	2	EN^VALM PAUSE^VALM1
VA FileMan	2	IX^DIK ^DIR
Kernel	1	$$PATCH^XPDUTL
Pharmacy Data Management	1	($$LS,UNL)^PSSLOCK
Scheduling	1	$$SDIMO^SDAMA203

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 7

Package	Total	Caller Graph
Inpatient Medications	7	PSGOEC PSGOECS PSGVBW0 PSIVOPT PSJOE PSJOEA PSJOEA2

Entry Points

Name	Comments	DBIA/ICR reference
LOCK(DFN,PSJORD)	; Check if the order is locked
SELECT	;
DISACTIO(DFN,PSJORD,PSJPNV)
ACTLOG(PSGORDP,DFN,PSGORD)
UD	;
IV	;
DONE	; Clean up

External References

Name	Field # of Occurrence
IX^DIK	IV+6
^DIR	DISACTIO+13
$$ENACTION^PSGOE1	DISACTIO+14, DISACTIO+33
ENSFE^PSGOEE0	DISACTIO+29, DISACTIO+33
START^PSGOEF	DISACTIO+29
CRA^PSGOETO	UD+5
ENGNA^PSGOETO	UD+1
ORSET^PSGOETO1	DISACTIO+35
VF^PSIVORC2	DISACTIO+19
GT531^PSIVORFA	DISACTIO+19
NEW55^PSIVORFB	IV+2
ENIV^PSJAC	DISACTIO+7
CMPLX2^PSJCOM1	UD+8
EN1^PSJHL2	UD+2, IV+5
EN^PSJLIFN	DISACTIO+31
REQDT^PSJLIVMD	DISACTIO+27
GETUD^PSJLMGUD	DISACTIO+8, DISACTIO+33
$$OINAME^PSJLMUTL	DISACTIO+10
$$LOCK^PSJOEA	SELECT+2
CHK^PSJOEA1	SELECT+7
$$LS^PSSLOCK	LOCK+2
UNL^PSSLOCK	SELECT+11, SELECT+15
$$SDIMO^SDAMA203	DISACTIO+24
EN^VALM	DISACTIO+33
PAUSE^VALM1	DISACTIO+25, DISACTIO+28
$$PATCH^XPDUTL	DISACTIO+24

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This order is being edited by another terminal.",! Line Location: DISACTIO+13
Function Call: WRITE	Prompt: !!,"Invalid schedule, can't finish this order" Line Location: DISACTIO+28
Routine Call	DIR Line Location: DISACTIO+13
Routine Call	VALM Line Location: DISACTIO+33

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	DISACTIO+25
^PS(53.1 - [#53.1]	LOCK+2, SELECT+3, SELECT+9, SELECT+10, DISACTIO+12, DISACTIO+15, DISACTIO+16, DISACTIO+22, DISACTIO+35, ACTLOG+4 , ACTLOG+5, UD+2, UD+7!, IV+1, IV+5, IV+7!
^PS(55 - [#55]	ACTLOG+6, ACTLOG+7, UD+2, UD+4, UD+5, UD+6, IV+5*
^TMP("PSJCOM"	SELECT+7, UD+1, UD+2, IV+3, IV+4*, IV+5
^TMP("PSJCOM2"	UD+1, UD+2, IV+3, IV+4*, IV+5
^TMP("PSJCVFY"	SELECT+13, SELECT+14, SELECT+15!
^TMP("PSJINTER"	DISACTIO+30!

Label References

Name	Line Occurrences
@(	DISACTIO+29
DISACTIO	SELECT+5
DONE	SELECT+16

Naked Globals

Name	Field # of Occurrence
^(	ACTLOG+6
^(0	ACTLOG+6, UD+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	UD+1~, UD+2, IV+6!*
DA(1	IV+6*
DFN	LOCK~, LOCK+2, SELECT+8, DISACTIO~, DISACTIO+7, DISACTIO+8, DISACTIO+15, DISACTIO+24, DISACTIO+31, ACTLOG~ , ACTLOG+6, ACTLOG+7, IV+5, IV+6
DIE	UD+1~
DIK	IV+6!*
DIR	DISACTIO+13!
DIR(0	DISACTIO+13*
DR	UD+1~
ND2	UD+3~, UD+5*
ND2P1	UD+3~, UD+6*
O	SELECT+1~, SELECT+5*
>> ON	SELECT+4*, SELECT+5
ON55	DISACTIO+4~, IV+1!*, IV+2, IV+3, IV+4, IV+5, IV+6
>> P("NAT"	IV+5*
>> P("PON"	DISACTIO+18*
>> PSGACT	DISACTIO+14, DISACTIO+33
PSGAL531	ACTLOG+3~, ACTLOG+5*, ACTLOG+7
PSGCOMP	SELECT+6!
PSGFDX	DISACTIO+4~
PSGFLG	SELECT+6!
PSGNEFD	UD+3~, UD+5*
PSGNESD	UD+3~, UD+5*
>> PSGOEAV	DISACTIO+9*, DISACTIO+35
>> PSGOEEF	DISACTIO+33*
PSGOENG	DISACTIO+11!, DISACTIO+12, DISACTIO+13
>> PSGOES	DISACTIO+35
PSGORD	SELECT+4, DISACTIO+29, DISACTIO+35, ACTLOG~, ACTLOG+6, ACTLOG+7
PSGORDP	ACTLOG~, ACTLOG+4, ACTLOG+5
PSGP	SELECT+2, SELECT+5, SELECT+8, SELECT+11, SELECT+15, DISACTIO+4~, DISACTIO+7, DISACTIO+14, DISACTIO+15, DISACTIO+19 , DISACTIO+25, DISACTIO+29, DISACTIO+31, DISACTIO+33, UD+2, UD+4, UD+5, UD+6, UD+8, IV+5
PSGPD	DISACTIO+10*, DONE+1!
PSGPDN	DISACTIO+10*, DONE+1!
PSGPDRG	UD+3~, UD+4*
>> PSGPRF	DISACTIO+11
>> PSGPXN	UD+8
PSGRFD	DISACTIO+26~
PSGRFDN	DISACTIO+26~
>> PSGRMVT	UD+6*
PSGRSD	DISACTIO+26~
PSGRSDN	DISACTIO+26~
PSGSCH	DISACTIO+28, DONE+1!
PSGSDX	DISACTIO+4~
PSGST	UD+3~, UD+4*
PSGX	ACTLOG+3~, ACTLOG+4*, ACTLOG+5
PSGXDA	ACTLOG+3~, ACTLOG+6*, ACTLOG+7
PSIVACT	IV+6*, DONE+1!
PSIVFLG	DISACTIO+18*, DISACTIO+32!
PSJAPPT	DISACTIO+4~, DISACTIO+22*
PSJCLIN	SELECT+1~, DISACTIO+6, DISACTIO+22, DISACTIO+23, DISACTIO+24, DISACTIO+25
PSJCMPDA	UD+1~*, UD+2, UD+4, UD+5, UD+6, UD+8
>> PSJCOI	DISACTIO+10
PSJIDX	SELECT+14~*, SELECT+15!
PSJIVFLG	DISACTIO+4~, DISACTIO+16, DISACTIO+25, DISACTIO+31
PSJLM	DISACTIO+29~*
PSJLYN	DISACTIO+31*!
PSJMAI	DISACTIO+31!
PSJNOO	UD+2*, DONE+1!
PSJO	LOCK+2~, SELECT+3~, SELECT+4, SELECT+5, SELECT+9~, SELECT+10, SELECT+11, SELECT+13~, SELECT+14, SELECT+15 , UD+1, UD+2, UD+7, IV+1, IV+3, IV+4, IV+5, IV+7
PSJORD	LOCK~, LOCK+2, SELECT+2, SELECT+3, SELECT+9, DISACTIO~, DISACTIO+5, DISACTIO+8, DISACTIO+12, DISACTIO+14 , DISACTIO+15, DISACTIO+16, DISACTIO+18, DISACTIO+19, DISACTIO+22, DISACTIO+27, DISACTIO+29, DISACTIO+31, DISACTIO+33, UD+7 , UD+8, IV+7
PSJOVR	DISACTIO+30!
>> PSJPDD	DISACTIO+23
PSJPNV	SELECT+5, DISACTIO~
PSJPREX	UD+7!, UD+8*
>> PSJSYSP0	DISACTIO+9
>> PSJSYSU	DISACTIO+9
>> PSJTUD	DISACTIO+10, DISACTIO+21, DISACTIO+29
PSJXX1	DISACTIO+4~, DISACTIO+15, DISACTIO+16, DISACTIO+17, DISACTIO+20, DISACTIO+21*, DISACTIO+23, DISACTIO+28, DISACTIO+29, DISACTIO+31
Q	LOCK+1~, LOCK+2, LOCK+3, ACTLOG+3~, ACTLOG+6*
QQ	ACTLOG+3~, ACTLOG+6*
U	DISACTIO+15, DISACTIO+16, DISACTIO+17, DISACTIO+20, DISACTIO+21, DISACTIO+23, DISACTIO+25, DISACTIO+28, DISACTIO+29, DISACTIO+31 , ACTLOG+6, UD+2, IV+4, IV+5
VAIP	DISACTIO+22~
>> Y	SELECT+2, DISACTIO+16

Customize PDF page

Package: Inpatient Medications

Routine: PSJOEA

Information

Source Information

Call Graph

Call Graph Total: 24

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: