Routine: PSJOEA

Information

PSJOEA ;BIR/MLM-INPATIENT ORDER ENTRY ;23 Jun 98 / 1:46 PM

Call Graph

Call Graph Total: 24

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
Registration	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

Package	Total	Caller Graph
Inpatient Medications	7	PSGOEC PSGOECS PSGVBW0 PSIVOPT PSJOE PSJOEA PSJOEA2
Barcode Medication Administration	1	PSBIHS6

Entry Points

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

External References

Name	Field # of Occurrence
IX^DIK	IV+6
^DIR	DISACTIO+13
$$ENACTION^PSGOE1	DISACTIO+14, DISACTIO+32
ENSFE^PSGOEE0	DISACTIO+29, DISACTIO+32
START^PSGOEF	DISACTIO+29
CRA^PSGOETO	UD+5
ENGNA^PSGOETO	UD+1
ORSET^PSGOETO1	DISACTIO+36
VF^PSIVORC2	DISACTIO+19
GT531^PSIVORFA	DISACTIO+19
NEW55^PSIVORFB	IV+2
ENIV^PSJAC	DISACTIO+7
CMPLX2^PSJCOM1	UD+7
EN1^PSJHL2	UD+2, IV+5
EN^PSJLIFN	DISACTIO+30
REQDT^PSJLIVMD	DISACTIO+27
GETUD^PSJLMGUD	DISACTIO+8, DISACTIO+32
$$OINAME^PSJLMUTL	DISACTIO+10
$$LOCK^PSJOEA	SELECT+2
CHK^PSJOEA1	SELECT+6
$$LS^PSSLOCK	LOCK+2
UNL^PSSLOCK	SELECT+9
$$SDIMO^SDAMA203	DISACTIO+24
EN^VALM	DISACTIO+32
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	VALM Line Location: DISACTIO+32
Routine Call	DIR Line Location: DISACTIO+13

Global Variables Directly Accessed

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

Label References

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

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+7, DISACTIO~, DISACTIO+7, DISACTIO+8, DISACTIO+15, DISACTIO+24, DISACTIO+30, 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*
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+32
PSGAL531	ACTLOG+3~, ACTLOG+5*, ACTLOG+7
PSGFDX	DISACTIO+4~
PSGNEFD	UD+3~, UD+5*
PSGNESD	UD+3~, UD+5*
>> PSGOEAV	DISACTIO+9*, DISACTIO+36
>> PSGOEEF	DISACTIO+32*
PSGOENG	DISACTIO+11!, DISACTIO+12, DISACTIO+13
>> PSGOES	DISACTIO+36
PSGORD	SELECT+4, DISACTIO+29, DISACTIO+36, ACTLOG~, ACTLOG+6, ACTLOG+7
PSGORDP	ACTLOG~, ACTLOG+4, ACTLOG+5
PSGP	SELECT+2, SELECT+5, SELECT+7, SELECT+9, DISACTIO+4~, DISACTIO+7, DISACTIO+14, DISACTIO+15, DISACTIO+19, DISACTIO+25 , DISACTIO+29, DISACTIO+30, DISACTIO+32, UD+2, UD+4, UD+5, UD+7, IV+5
PSGPD	DISACTIO+10*, DONE+1!
PSGPDN	DISACTIO+10*, DONE+1!
PSGPDRG	UD+3~, UD+4*
>> PSGPRF	DISACTIO+11
>> PSGPXN	UD+7
PSGRFD	DISACTIO+26~
PSGRFDN	DISACTIO+26~
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+31!
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+7
>> PSJCOI	DISACTIO+10
PSJIVFLG	DISACTIO+4~, DISACTIO+16, DISACTIO+25, DISACTIO+30
PSJLM	DISACTIO+29~*
PSJLYN	DISACTIO+30*!
PSJMAI	DISACTIO+30!
PSJNOO	UD+2*, DONE+1!
PSJO	LOCK+2~, SELECT+3~, SELECT+4, SELECT+5, SELECT+8~*, SELECT+9, UD+1, UD+2, UD+6, IV+1 , IV+3, IV+4, IV+5, IV+7
PSJORD	LOCK~, LOCK+2, SELECT+2, SELECT+3, SELECT+8, DISACTIO~, DISACTIO+5, DISACTIO+8, DISACTIO+12, DISACTIO+14 , DISACTIO+15, DISACTIO+16, DISACTIO+18, DISACTIO+19, DISACTIO+22, DISACTIO+27, DISACTIO+29, DISACTIO+30, DISACTIO+32, UD+6 , UD+7, IV+7
>> PSJPDD	DISACTIO+23
PSJPNV	SELECT+5, DISACTIO~
PSJPREX	UD+6!, UD+7*
>> 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+30
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+30 , ACTLOG+6, UD+2, IV+4, IV+5
VAIP	DISACTIO+22~
>> Y	SELECT+2, SELECT+9, DISACTIO+16

Customize PDF page

Package: Inpatient Medications

Routine: PSJOEA

Information

Source Information

Call Graph

Call Graph Total: 24

Caller Graph

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: