Routine: PSGOEE

Package	Total	Call Graph
Inpatient Medications	18	($$ENDD,$$ENDTC,$$ENNPN)^PSGMI ^PSGNE3 $$ENACTION^PSGOE1 ($$DDOK,$$OIOK,CHKDRG)^PSGOE2 ENOR^PSGOECS (ENF,ENNOU,ENSFE)^PSGOEE0 EN2^PSGOEEW ^PSGOETO CHK^PSGOEV EN^PSGPEN ENL^PSGVDS UPD^PSJCOM NEW^PSJCOM1 EN1^PSJHL2 $$GETDUR^PSJLIVMD GETUD^PSJLMGUD INIT^PSJLMUDE $$ENNOO^PSJUTL5
VA Fileman	3	NOW^%DTC %XY^%RCR ^DIE
IHS Omnicell Pyxis Interface	2	EDIT^BOPCP2 ^BOPSD
Registration	2	EN^VALM (FULL,PAUSE)^VALM1
Kernel	1	$$PATCH^XPDUTL
Pharmacy Data Management	1	UNL^PSSLOCK

Package	Total	Caller Graph
Inpatient Medications	9	PSGOE1 PSGOEC PSGOEE0 PSGOEF PSGOER PSJCOMR PSJLMGUD PSJOE PSJOE1

Entry Points

Name	Comments	DBIA/ICR reference
DONE1	;
313	;;40^PSGOE82;;;40;0
ACT1	;I 'PSGOEAV,PSJSYSL>1 S $P(@($S(PSGORD["U":"^PS(55,"_PSGP_",5,",1:"^PS(53.1,")_+PSGORD_",7)"),"^",1,2)=PSGDT_"^"_$E("D",PSGOEENO)_"E",PSGTOL=2,PSGUOW=DUZ,PSGTOO=PSGORD'["U"+1,DA=+PSGORD D ENL^PSGVDS
311	;;8^PSGOE81;PSGOSI;PSGSI;8;0
310	;;1^PSGOE82;PSGOPR;PSGPR;1;1
K1	;
DONE	;
CHKDD	;*** Check inactive Dispense drug within the order.
ACT	;
NEW	;
52	;;109^PSGOE9;PSGODO;PSGDO;109;PSGODO]""
53	;;10^PSGOE91;PSGOSD;PSGSD;10;1
FIELDS	;
312	;;2^PSGOE82;;;2;0
OUT	;
ENF	;
UPD	;
EDLOOP	; Continue prompting for fields to edit.
CKDT	; Check if new start/stop dates should be calculated.
510	;;1^PSGOE92;PSGOPR;PSGPR;1;1
GTSTATUS	; Determine status of new order and set LM title.
51	;;101^PSGOE9;PSGOPD;PSGPD;101;1
39	;;39^PSGOE81;PSGOAT;PSGAT;39;0
38	;;26^PSGOE8;PSGOSCH;PSGSCH;26;1
59	;;41^PSGOE91;PSGOAT;PSGAT;41;0
58	;;26^PSGOE9;PSGOSCH;PSGSCH;26;1
55	;;34^PSGOE91;PSGOFD;PSGFD;34;1
EDIT	;
32	;;109^PSGOE8;PSGODO;PSGDO;109;PSGODO]""
31	;;101^PSGOE8;PSGOPD;PSGPD;101;1
56	;;7^PSGOE9;PSGOST;PSGST;7;0
37	;;5^PSGOE82;PSGOSM;PSGSM;5;0
36	;;7^PSGOE8;PSGOST;PSGST;7;0
35	;;25^PSGOE81;PSGOFD;PSGFD;25;0
34	;;3^PSGOE8;PSGOMR;PSGMR;3;1
33	;;10^PSGOE81;PSGOSD;PSGSD;10;0
ABORT	; Display no change message and pause.
531	; edit orders in 53.1
54	;;3^PSGOE9;PSGOMR;PSGMR;3;1
511	;;8^PSGOE91;PSGOSI;PSGSI;8;0
NEW3	;
513	;;15^PSGOE92;;;15;0
512	;;2^PSGOE92;;;2;0
CALLBOP	;
57	;;5^PSGOE92;PSGOSM;PSGSM;5;0

External References

Name	Field # of Occurrence
NOW^%DTC	PSGOEE+8
%XY^%RCR	UPD+15
EDIT^BOPCP2	CALLBOP+2
^BOPSD	CALLBOP+3
^DIE	NEW+11, UPD+13, UPD+14
$$ENDD^PSGMI	EDLOOP+7, CKDT+3
$$ENDTC^PSGMI	EDLOOP+7, CKDT+3
$$ENNPN^PSGMI	EDLOOP+7
^PSGNE3	CKDT+3
$$ENACTION^PSGOE1	NEW+13, UPD+19
$$DDOK^PSGOE2	ABORT+1
$$OIOK^PSGOE2	ABORT+2
CHKDRG^PSGOE2	CHKDD+1
ENOR^PSGOECS	NEW+4
ENF^PSGOEE0	DONE+1
ENNOU^PSGOEE0	EDLOOP+2
ENSFE^PSGOEE0	ENF+9, ACT1+2, OUT+1
EN2^PSGOEEW	ENF+1, ACT+1
^PSGOETO	NEW+7
CHK^PSGOEV	EDLOOP+8
EN^PSGPEN	NEW+12
ENL^PSGVDS	UPD+20
UPD^PSJCOM	UPD+2
NEW^PSJCOM1	NEW+2
EN1^PSJHL2	UPD+13, UPD+18
$$GETDUR^PSJLIVMD	NEW+11
GETUD^PSJLMGUD	ENF+9, ACT1+2, OUT+1
INIT^PSJLMUDE	OUT+1
$$ENNOO^PSJUTL5	EDLOOP+12
UNL^PSSLOCK	ACT1+2, NEW+4, NEW+12
EN^VALM	EDLOOP+9
FULL^VALM1	EDIT+1
PAUSE^VALM1	EDLOOP+11, ABORT+3
$$PATCH^XPDUTL	CALLBOP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This is a 'DAY OF THE WEEK' schedule and MUST have admin times." Line Location: EDLOOP+11
Function Call: WRITE	Prompt: !,"...discontinuing original order..." Line Location: NEW+1
Function Call: WRITE	Prompt: !!,"...updating order..." Line Location: UPD+1
Function Call: WRITE	Prompt: "." Line Location: UPD+13
Function Call: WRITE	Prompt: "." Line Location: UPD+14
Function Call: WRITE	Prompt: "." Line Location: UPD+15
Function Call: WRITE	Prompt: !,"...updating OE/RR..." Line Location: UPD+18
Function Call: WRITE	Prompt: !!,$C(7),"No changes made to this order." Line Location: ABORT+3
Routine Call	VALM Line Location: EDLOOP+9
Routine Call	DIE Line Location: NEW+11 UPD+13 UPD+14

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PS(53.1 - [#53.1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(53.1 - [#53.1]	NEW+2, NEW+9*, NEW+10, UPD+2, DONE+1, DONE1+2
^PS(53.45 - [#53.45]	UPD+4, UPD+6, DONE1+3!
^PS(55 - [#55]	NEW+8, UPD+4, UPD+6, UPD+7, UPD+10, UPD+11, DONE1+1

Label References

Name	Line Occurrences
@(	EDIT+4
ABORT	OUT+1
ACT	PSGOEE+8
ACT1	ENF+7
CALLBOP	UPD+21
CHKDD	EDLOOP+6
CKDT	EDLOOP+4, EDLOOP+6
DONE1	ENF+8, ACT1+1
EDIT	EDLOOP+1
EDLOOP	ENF+2, ACT+1
GTSTATUS	EDLOOP+6
K1	EDLOOP+13
NEW	ENF+4, ACT+3
OUT	ENF+2, ACT+1
UPD	ENF+6, ACT+5

Naked Globals

Name	Field # of Occurrence
^(	UPD+18
^(2	UPD+18, DONE1+3!

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PSGOEE+8
>> %X	UPD+15*
>> %Y	UPD+15*
BACK	K1+1!
DA	NEW+11!, UPD+1!, UPD+12~, UPD+13, UPD+14, UPD+20, DONE1+5!
DA(1	UPD+13, UPD+14
DIE	NEW+11!, UPD+12~, UPD+13, UPD+14*, DONE1+5!
DIR	DONE1+5!
DP	DONE1+5!
DR	EDLOOP+2, NEW+11!, UPD+9, UPD+12~, UPD+13, UPD+14, DONE1+5!
DRG	DONE1+5!
DUR	NEW+11~*
DUZ	EDLOOP+7, UPD+20
F1	EDIT+4*, K1+1!
F2	K1+1!
II	UPD+9~*
>> LIMIT	EDIT+3*
MSG	EDIT+4*, K1+1!
ND	UPD+18*, DONE1+5!
ND0	DONE1+5!
ND1	UPD+18*, DONE1+5!
ND2	UPD+18*, DONE1+5!
ORD	UPD+12~
ORIFN	UPD+18*, DONE1+5!
>> P("OPI"	UPD+12
>> PSGACT	NEW+13*
PSGAL	DONE1+5!
PSGALEF	DONE1+5!
PSGAT	CKDT+1, NEW+6, DONE1+5!
>> PSGCANFL	ACT+6, OUT+1
>> PSGDEF	EDIT+3*, EDIT+4
>> PSGDFLG	ABORT+1*
>> PSGDI	ABORT+1*
PSGDO	EDLOOP+8, DONE1+6!
>> PSGDT	PSGOEE+8*, EDLOOP+7, UPD+20
>> PSGEBN	EDLOOP+7*
PSGEDIT	NEW+4*!
PSGEFN	PSGOEE+8!, DONE1+5!, K1+1!
PSGF2	K1+1!
PSGFD	EDLOOP+8, CKDT+2, CKDT+3*, CKDT+4, NEW+6, DONE1+4!
PSGFDN	CKDT+3*, DONE1+5!
PSGHSM	DONE1+5!
>> PSGLIN	EDLOOP+7*
PSGMR	EDLOOP+8, DONE1+5!
PSGMRN	DONE1+5!
>> PSGNEFD	CKDT+3, NEW+6*
>> PSGNESD	CKDT+3, NEW+6*
PSGNEWDT	CKDT+2, CKDT+3*, OUT+1!, K1+1!
PSGODO	K1+1!
>> PSGOEAV	ENF+7, ACT1+2, EDLOOP+14, NEW+5, NEW+10, NEW+12
PSGOEE	EDIT+3, EDIT+4, NEW+6*, DONE1+5!
PSGOEEF	PSGOEE+8!, ENF+9, ACT1+2, DONE1+5!, K1+1!, ABORT+3!
PSGOEEF(	EDIT+2*
PSGOEEF(10	CKDT+5*
PSGOEEF(25	CKDT+4*
PSGOEEG	EDIT+4, DONE1+5!
PSGOEEND	K1+1!
PSGOEENO	ENF+3, ENF+4~, ENF+6~, ACT+2, ACT+3~, ACT+5~, ACT+6, EDLOOP+2, EDLOOP+4, EDLOOP+5 , EDLOOP+12, UPD+8~*, UPD+20, DONE1+6!
PSGOEER	EDIT+2, EDIT+3, EDIT+4, K1+1!
PSGOEEWF	UPD+15, UPD+16*, DONE1+5!, ABORT+1, ABORT+2
>> PSGOEF	ACT+6, DONE+1, DONE1+4
PSGOEOS	NEW+7!
>> PSGOEPR	NEW+6*
PSGOES	CKDT+3~*, NEW+12
PSGOFD	CKDT+2, CKDT+3*, CKDT+4, K1+1!
PSGOFDN	K1+1!
PSGOHSM	K1+1!
PSGOMR	K1+1!
PSGOMRN	K1+1!
>> PSGOORD	NEW+7*, NEW+8, NEW+9
PSGOPD	K1+1!
PSGOPDN	K1+1!
PSGOPR	K1+1!
PSGOPRN	K1+1!
>> PSGORD	PSGOEE+8, ENF+9, ACT1+2, NEW+2, NEW+4, NEW+7, NEW+8, NEW+9, NEW+10, NEW+11 , NEW+12, NEW+13, UPD+2, UPD+4, UPD+6, UPD+7, UPD+12, UPD+14, UPD+16, UPD+18 , UPD+19, UPD+20*, OUT+1, DONE+1, DONE1+1, DONE1+2
PSGOROE1	DONE1+5!
PSGOSCH	CKDT+2, K1+1!
PSGOSD	CKDT+2, CKDT+5, K1+1!
PSGOSDN	K1+1!
PSGOSI	K1+1!
PSGOSM	K1+1!
PSGOST	CKDT+2, K1+1!
PSGOSTN	K1+1!
>> PSGP	ENF+9, ACT1+2, NEW+4, NEW+8, NEW+11, NEW+12, NEW+13, UPD+4, UPD+6, UPD+7 , UPD+13, UPD+14, UPD+18, UPD+19, UPD+20, OUT+1, DONE1+1
PSGPD	NEW+6, DONE1+5!
PSGPDN	NEW+6, DONE1+5!
PSGPDNX	EDLOOP+4, EDLOOP+9!, CKDT+2
PSGPDRG	EDLOOP+8, NEW+6*, K1+1!
PSGPDRGN	NEW+6*, K1+1!
>> PSGPFLG	ABORT+2*
PSGPR	NEW+6, DONE1+5!
>> PSGPRIO	GTSTATUS+2
PSGPRN	DONE1+5!
>> PSGS0XT	EDLOOP+10
>> PSGS0Y	EDLOOP+10, CKDT+1, NEW+6
PSGSCH	EDLOOP+8, CKDT+2, DONE+1, DONE1+4!
PSGSD	EDLOOP+8, CKDT+2, CKDT+3*, CKDT+5, NEW+6, DONE1+4!
PSGSDN	CKDT+3*, DONE1+5!
PSGSI	UPD+9*, UPD+12, DONE1+5!
PSGSIF	UPD+8~, UPD+9*, UPD+12
PSGSM	DONE1+5!
PSGST	EDLOOP+8, EDLOOP+10, CKDT+2, DONE1+4!
>> PSGSTAT	GTSTATUS+1*, GTSTATUS+2
PSGSTN	DONE1+5!
PSGTOL	UPD+20*, DONE1+5!
PSGTOO	UPD+20*, DONE1+5!
PSGUOW	UPD+20*, DONE1+5!
PSJACEPT	ENF+2!, ACT+1, EDLOOP+9!, EDLOOP+11, EDLOOP+13, EDLOOP+14
PSJCHILD	UPD+10~, UPD+11*, UPD+12, UPD+13
>> PSJCOM	NEW+2, UPD+2, UPD+10, UPD+11
PSJCOMSI	UPD+10!
PSJF12	UPD+5~, UPD+6, UPD+7
>> PSJNOO	EDLOOP+12*, EDLOOP+13
PSJOEORD	UPD+10~*, UPD+11
>> PSJORD	ENF+9, NEW+13
>> PSJSYSL	UPD+20
>> PSJSYSP	UPD+4, UPD+6, UPD+15, DONE1+3
>> PSJSYSP0	GTSTATUS+1
>> PSJSYSU	NEW+12
PSJX12	UPD+5~, UPD+6*
>> Q	EDIT+2, UPD+15
>> Q1	EDIT+2*
TMP	UPD+8~*
U	EDLOOP+7, EDLOOP+8, CKDT+3, GTSTATUS+1
>> VALM("TITLE"	GTSTATUS+2*
VALMBCK	EDLOOP+2, EDLOOP+9!, EDLOOP+14, UPD+19*
VALMSG	EDLOOP+3!, EDLOOP+6*
>> X	EDIT+2, DONE1+1
XREF	DONE1+5!
>> Y	EDIT+2, EDLOOP+1

Marked Items

Name	Field # of Occurrence
$T(@(3)	EDIT+2

Customize PDF page

Package: Inpatient Medications

Routine: PSGOEE

Information

Source Information

Call Graph

Call Graph Total: 27

Caller Graph

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items