Routine: PSGOEE

Information

PSGOEE ;BIR/CML-EDIT ACTIVE OR NON VERIFIED ORDERS ;DEC 07, 2022@14:30

Package	Total	Call Graph
Inpatient Medications	32	(NEWNVAL,NEWUDAL)^PSGAL5 ($$ENDD,$$ENDTC2,$$ENNPN)^PSGMI ^PSGNE3 $$ENACTION^PSGOE1 ($$DDOK,$$OIOK,CHKDRG)^PSGOE2 $$DIFFIND^PSGOE42 ENOR^PSGOECS (ENF,ENNOU,ENSFE)^PSGOEE0 EN2^PSGOEEW ^PSGOETO CHK^PSGOEV EN^PSGPEN $$ASKDISP^PSGSICH1 OVRDISP^PSGSICH2 ENDDC^PSGSICHK ENL^PSGVDS EDIT^PSJADM ($$DIFFSI,$$GETSI,FILESI)^PSJBCMA5 ($$ISCLOZ,CLOZ,PROVCHK,PSJFILE,TDD)^PSJCLOZ UPD^PSJCOM NEW^PSJCOM1 EN1^PSJHL2 $$GETDUR^PSJLIVMD GETUD^PSJLMGUD INIT^PSJLMUDE $$DD53P45^PSJMISC SETOC^PSJNEWOC IN^PSJOCDS ($$CHKPDCL,$$PDACT)^PSJPDCLA PDORD^PSJPDCLU EFDACT^PSJUTL $$ENNOO^PSJUTL5
VA FileMan	4	NOW^%DTC %XY^%RCR ^DIE $$GET1^DIQ
List Manager	2	EN^VALM (FULL,PAUSE)^VALM1
Pharmacy Data Management	2	CHKSI^PSSDDUT3 UNL^PSSLOCK
Mental Health	1	INPSND^YSCLTST5

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: 13

Package	Total	Caller Graph
Inpatient Medications	12	PSGOE1 PSGOEC PSGOEE0 PSGOEF PSGOER PSJ LM IV AC/EDIT PSJCLOR2 PSJCOMR PSJI LM EDIT PSJLMGUD PSJOE PSJOE1
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
531	; edit orders in 53.1
ENF	; Entry point
ACT	; Perform Edit
ACT1	; Continue editing
EDIT	; Edit
EDLOOP	; Continue prompting for fields to edit.
OC	;Perform OC (only when OI or Dosage was edited) & dosing check
CHKDD	;*** Check inactive Dispense drug within the order.
CKDT	; Check if new start/stop dates should be calculated.
NEW3	;
NEW	;
UPD	;
OUT	;
DONE	;
DONE1	;
K1	;
ABORT	; Display no change message and pause.
GTSTATUS	; Determine status of new order and set LM title.
ASKOVR(Y,PSJOVRON,PSJSTARI)
FIELDS	;
31	;;101^PSGOE8;PSGOPD;PSGPD;101;1
32	;;109^PSGOE8;PSGODO;PSGDO;109;PSGODO]""
33	;;10^PSGOE81;PSGOSD;PSGSD;10;0
34	;;3^PSGOE8;PSGOMR;PSGMR;3;1
35	;;25^PSGOE81;PSGOFD;PSGFD;25;0
36	;;7^PSGOE8;PSGOST;PSGST;7;0
37	;;5^PSGOE82;PSGOSM;PSGSM;5;0
38	;;26^PSGOE8;PSGOSCH;PSGSCH;26;1
39	;;39^PSGOE81;PSGOAT;PSGAT;39;0
310	;;1^PSGOE82;PSGOPR;PSGPR;1;1
311	;;8^PSGOE81;PSGOSI;PSGSI;8;0
312	;;2^PSGOE82;;;2;0
313	;;40^PSGOE82;;;40;0
314	;;132^PSGOE41;PSGOIND;PSGIND;132;0
315	;;50^PSGOE82;P("CLINO");P("CLIN");113;0
316	;;51^PSGOE82;P("APPTO");P("APPT");126;0
51	;;101^PSGOE9;PSGOPD;PSGPD;101;1
52	;;109^PSGOE9;PSGODO;PSGDO;109;PSGODO]""
53	;;10^PSGOE91;PSGOSD;PSGSD;10;1
54	;;3^PSGOE9;PSGOMR;PSGMR;3;1
55	;;34^PSGOE91;PSGOFD;PSGFD;34;1
56	;;7^PSGOE9;PSGOST;PSGST;7;0
57	;;5^PSGOE92;PSGOSM;PSGSM;5;0
58	;;26^PSGOE9;PSGOSCH;PSGSCH;26;1
59	;;41^PSGOE91;PSGOAT;PSGAT;41;0
510	;;1^PSGOE92;PSGOPR;PSGPR;1;1
511	;;8^PSGOE91;PSGOSI;PSGSI;8;0
512	;;2^PSGOE92;;;2;0
513	;;15^PSGOE92;;;15;0
514	;;132^PSGOE41;PSGOIND;PSGIND;132;0
515	;;50^PSGOE82;P("CLINO");P("CLIN");130;0
516	;;51^PSGOE82;P("APPTO");P("APPT");131;0

Name	Field # of Occurrence
NOW^%DTC	PSGOEE+9
%XY^%RCR	UPD+66
^DIE	NEW+15, UPD+33, UPD+58, UPD+63, DONE1+12
$$GET1^DIQ	UPD+63, UPD+64, UPD+65, DONE1+2
NEWNVAL^PSGAL5	NEW+2, UPD+8, UPD+39, UPD+42, UPD+64
NEWUDAL^PSGAL5	NEW+3, UPD+9, UPD+40, UPD+43, UPD+65
$$ENDD^PSGMI	EDLOOP+8, CKDT+6
$$ENDTC2^PSGMI	EDLOOP+8, CKDT+6
$$ENNPN^PSGMI	EDLOOP+8
^PSGNE3	CKDT+5
$$ENACTION^PSGOE1	NEW+20, UPD+71
$$DDOK^PSGOE2	ABORT+2
$$OIOK^PSGOE2	ABORT+3
CHKDRG^PSGOE2	CHKDD+1
$$DIFFIND^PSGOE42	UPD+11
ENOR^PSGOECS	NEW+7
ENF^PSGOEE0	DONE+1
ENNOU^PSGOEE0	EDLOOP+3
ENSFE^PSGOEE0	ENF+9, ACT1+2, OUT+1
EN2^PSGOEEW	ENF+1, ACT+8
^PSGOETO	NEW+10
CHK^PSGOEV	EDLOOP+9
EN^PSGPEN	NEW+19
$$ASKDISP^PSGSICH1	ASKOVR+5
OVRDISP^PSGSICH2	ASKOVR+5
ENDDC^PSGSICHK	OC+10
ENL^PSGVDS	UPD+72
EDIT^PSJADM	UPD+74
$$DIFFSI^PSJBCMA5	UPD+5
$$GETSI^PSJBCMA5	NEW+13
FILESI^PSJBCMA5	NEW+1, NEW+13, UPD+20, UPD+31, UPD+68
$$ISCLOZ^PSJCLOZ	ACT+4, OC+4, DONE1+3
CLOZ^PSJCLOZ	OC+7
PROVCHK^PSJCLOZ	ACT+6
PSJFILE^PSJCLOZ	DONE1+14
TDD^PSJCLOZ	OC+6
UPD^PSJCOM	UPD+4
NEW^PSJCOM1	NEW+5
EN1^PSJHL2	UPD+33, UPD+70
$$GETDUR^PSJLIVMD	NEW+15
GETUD^PSJLMGUD	ENF+9, ACT1+2, OUT+1
INIT^PSJLMUDE	OUT+1
$$DD53P45^PSJMISC	OC+8
SETOC^PSJNEWOC	NEW+18
IN^PSJOCDS	OC+11
$$CHKPDCL^PSJPDCLA	UPD+49
$$PDACT^PSJPDCLA	UPD+48
PDORD^PSJPDCLU	UPD+54
EFDACT^PSJUTL	CKDT+10
$$ENNOO^PSJUTL5	EDLOOP+16
CHKSI^PSSDDUT3	UPD+29
UNL^PSSLOCK	ACT1+2, NEW+7, NEW+19
EN^VALM	EDLOOP+10
FULL^VALM1	EDIT+2, OC+3, ABORT+1, ASKOVR+5
PAUSE^VALM1	ACT+7, EDLOOP+12, ABORT+4
INPSND^YSCLTST5	DONE1+14

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+12
Function Call: WRITE	Prompt: !,"...discontinuing original order..." Line Location: NEW+4
Function Call: WRITE	Prompt: !!,"...updating order..." Line Location: UPD+3
Function Call: WRITE	Prompt: "." Line Location: UPD+33
Function Call: WRITE	Prompt: "." Line Location: UPD+58
Function Call: WRITE	Prompt: "." Line Location: UPD+63
Function Call: WRITE	Prompt: "." Line Location: UPD+66
Function Call: WRITE	Prompt: !,"...updating OE/RR..." Line Location: UPD+70
Function Call: WRITE	Prompt: !!,$C(7),"No changes made to this order." Line Location: ABORT+4
Routine Call	DIE Line Location: NEW+15 UPD+33 UPD+58 UPD+63 DONE1+12
Routine Call	VALM Line Location: EDLOOP+10

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PS(53.1 - [#53.1]	Classic Fileman Calls, GET1^DIQ
55.06	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(53.1 - [#53.1]	NEW+2, NEW+5, NEW+12*, NEW+14, UPD+4, UPD+6, UPD+37, DONE+1, DONE1+17
^PS(53.45 - [#53.45]	NEW+1, UPD+13, UPD+15, UPD+19, UPD+30*, UPD+68, DONE1+18!
^PS(55 - [#55]	NEW+3, NEW+11, UPD+6, UPD+13, UPD+15, UPD+16, UPD+21, UPD+22, UPD+29, UPD+37 , UPD+51, UPD+52, UPD+55*, DONE1+16
^PS(58.7 - [#58.7]	UPD+48
^SC - [#44]	UPD+39, UPD+40
^TMP("PSGSI"	UPD+19!*, UPD+30, UPD+34!
^TMP("PSJCOM"	DONE1+6, DONE1+7
^TMP("PSODAOC"	NEW+17*
^TMP($J	DONE1+6!, DONE1+8!, DONE1+9, DONE1+10!, DONE1+11

Label References

Name	Line Occurrences
@(	EDIT+6
ABORT	OUT+1
ACT	PSGOEE+9
ACT1	ENF+7
ASKOVR	EDIT+1
CHKDD	EDLOOP+7
CKDT	EDLOOP+5, EDLOOP+7
DONE1	ENF+8, ACT1+1
EDIT	EDLOOP+2
EDLOOP	ENF+2, ACT+8
GTSTATUS	EDLOOP+7
K1	EDLOOP+17
NEW	ENF+4, ACT+10
OC	EDLOOP+14
OUT	ENF+2, ACT+8
UPD	ENF+6, ACT+12

Naked Globals

Name	Field # of Occurrence
^(	UPD+70
^(2	UPD+70, DONE1+18!
^(2.1	UPD+70
^(5	DONE1+18!
^(6	DONE1+18!

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PSGOEE+9
>> %X	UPD+66*
>> %Y	UPD+66*
ANQX	ACT+1~, ACT+3, ACT+7, OC+4~, OC+6, OC+7*
BACK	K1+1!
CLOZFLG	ACT+4~, ACT+5, OC+4~, OC+5, OC+6, DONE1+3~*, DONE1+4
DA	NEW+15!, UPD+3!, UPD+24~, UPD+33, UPD+58, UPD+63, UPD+72, DONE1+5~, DONE1+20!
DA(1	UPD+33, UPD+58, DONE1+5*
>> DFN	NEW+1, NEW+3, NEW+13, UPD+5, UPD+6, UPD+9, UPD+11, UPD+20, UPD+29, UPD+31 , UPD+40, UPD+43, UPD+65, UPD+68, DONE1+2, DONE1+3, DONE1+5, DONE1+6, DONE1+8, DONE1+9 , DONE1+10, DONE1+11, DONE1+14
DIE	NEW+15!, UPD+24~, UPD+33, UPD+58, UPD+63, DONE1+5~*, DONE1+20!
DIR	DONE1+20!
DP	DONE1+20!
DR	EDLOOP+3, NEW+15!, UPD+18, UPD+24~, UPD+25, UPD+28, UPD+33, UPD+58, UPD+63, DONE1+5~* , DONE1+7, DONE1+9, DONE1+11*, DONE1+20!
DRG	DONE1+20!
DUR	NEW+15~*
DUZ	EDLOOP+8, UPD+72
F1	EDIT+6*, K1+1!
F2	K1+1!
I	UPD+46~, UPD+47, UPD+48
I3	ASKOVR+1~, ASKOVR+4*
II	UPD+18~, ASKOVR+1~, ASKOVR+4
INDCHNG	UPD+11~*, UPD+60, UPD+63, UPD+64, UPD+65
>> J	UPD+48*
>> LIMIT	EDIT+4*
MSG	EDIT+5*, K1+1!
ND	UPD+70*, DONE1+20!
ND0	DONE1+20!
ND1	UPD+70*, DONE1+20!
ND2	UPD+70*, DONE1+20!
ND2P1	UPD+70*, DONE1+20!
OLCLN	UPD+36~, UPD+37*, UPD+38, UPD+39, UPD+40, UPD+41, UPD+42, UPD+43, UPD+45, UPD+49
ORD	UPD+24~
ORIFN	UPD+70*, DONE1+20!
OSTA	UPD+50~, UPD+51*, UPD+55
>> P("APPT"	UPD+41
>> P("CLIN"	UPD+38, UPD+45
>> P("CLINO"	UPD+45
>> P("OPI"	UPD+25
PDTYP	UPD+50~, UPD+53*
>> PSBSTR	CKDT+4
>> PSGACT	NEW+20*
PSGAL	DONE1+20!
PSGALEF	DONE1+20!
PSGAT	CKDT+2, NEW+9, DONE1+20!
>> PSGCANFL	ACT+13, OUT+1
>> PSGDEF	EDIT+4*, EDIT+6
>> PSGDFLG	ABORT+2*
>> PSGDI	ABORT+2*
PSGDN	DONE1+13~*
PSGDO	EDLOOP+9, DONE1+21!
PSGDRG	OC+6, OC+7, DONE1+3~, DONE1+4, DONE1+13
>> PSGDT	PSGOEE+9*, EDLOOP+8, UPD+72
>> PSGEBN	EDLOOP+8*
PSGEDIT	NEW+7*!
>> PSGEDT	DONE1+2
PSGEFN	PSGOEE+9!, DONE1+20!, K1+1!
PSGEFN(	ASKOVR+4
>> PSGETDD	OC+7
PSGF2	K1+1!
PSGFD	EDLOOP+9, CKDT+4, CKDT+5, CKDT+6*, CKDT+7, NEW+9, DONE1+19!
PSGFDN	CKDT+6*, DONE1+20!
PSGHSM	DONE1+20!
PSGIND	UPD+11, DONE1+21!
>> PSGLIN	EDLOOP+8*
PSGMR	EDLOOP+9, DONE1+20!
PSGMRN	DONE1+20!
>> PSGNEFD	CKDT+5, CKDT+6, NEW+9
>> PSGNESD	CKDT+6, NEW+9*
PSGNEWDT	CKDT+4, CKDT+6*, OUT+1!, K1+1!
PSGODO	K1+1!
>> PSGOEAV	ENF+7, ACT1+2, EDLOOP+18, NEW+8, NEW+14, NEW+16, NEW+19
PSGOEE	EDIT+4, EDIT+5, EDIT+6, EDLOOP+2, NEW+9, UPD+2, DONE1+20!
PSGOEEF	PSGOEE+9!, ENF+9, ACT1+2, DONE1+20!, ABORT+5!
PSGOEEF(	EDIT+3*
PSGOEEF(10	CKDT+8*
PSGOEEF(25	CKDT+7*
PSGOEEG	EDIT+6, DONE1+20!
PSGOEEND	K1+1!
PSGOEENO	ENF+3, ENF+4~, ENF+6~, ACT+9, ACT+10~, ACT+12~, ACT+13, EDLOOP+3, EDLOOP+5, EDLOOP+6 , EDLOOP+13, EDLOOP+14, EDLOOP+16, OC+9, UPD+17~, UPD+72, DONE1+21!
PSGOEER	ACT+2!, EDIT+3, EDIT+4, EDIT+5, EDIT+6, EDLOOP+13, EDLOOP+14, K1+1!
PSGOEEWF	UPD+66, UPD+67*, DONE1+20!, ABORT+2, ABORT+3
>> PSGOEF	ACT+13, DONE+1, DONE1+19
PSGOEOS	NEW+10!
>> PSGOEPR	NEW+9*
PSGOES	CKDT+5~*, NEW+19
PSGOFD	CKDT+4, CKDT+5*, CKDT+7, K1+1!
PSGOFDN	K1+1!
PSGOIND	K1+1!
PSGOMR	K1+1!
PSGOMRN	K1+1!
>> PSGOORD	NEW+10*, NEW+11, NEW+12, NEW+13
PSGOPD	K1+1!
PSGOPDN	K1+1!
PSGOPR	ACT+6, K1+1!
PSGOPRN	K1+1!
>> PSGORD	PSGOEE+9, ENF+9, ACT+4, ACT1+2, EDIT+1, OC+4, OC+11, NEW+1, NEW+2, NEW+3 , NEW+5, NEW+7, NEW+10, NEW+11, NEW+12, NEW+13, NEW+14, NEW+15, NEW+17, NEW+18 , NEW+19, NEW+20, UPD+4, UPD+5, UPD+6, UPD+8, UPD+9, UPD+11, UPD+13, UPD+15 , UPD+16, UPD+20, UPD+23, UPD+37, UPD+39, UPD+40, UPD+42, UPD+43, UPD+45, UPD+51 , UPD+52, UPD+53, UPD+55, UPD+58, UPD+61, UPD+63, UPD+64, UPD+65, UPD+67, UPD+70 , UPD+71, UPD+72*, OUT+1, DONE+1, DONE1+2, DONE1+3, DONE1+5, DONE1+6, DONE1+7, DONE1+10 , DONE1+11, DONE1+16, DONE1+17
PSGOROE1	EDLOOP+2*, DONE1+20!
PSGORQF	EDLOOP+15, OC+2!, OC+5, OC+6, OC+7, OC+8*, OC+11
PSGOSCH	CKDT+4, K1+1!
PSGOSD	CKDT+4, CKDT+8, K1+1!
PSGOSDN	K1+1!
PSGOSI	K1+1!
PSGOSM	K1+1!
PSGOST	CKDT+4, K1+1!
PSGOSTN	K1+1!
>> PSGP	ENF+9, ACT+4, ACT1+2, OC+4, OC+7, OC+10, NEW+7, NEW+11, NEW+15, NEW+19 , NEW+20, UPD+13, UPD+15, UPD+16, UPD+33, UPD+37, UPD+51, UPD+52, UPD+53, UPD+55 , UPD+58, UPD+70, UPD+71, UPD+72, OUT+1, DONE1+16, ASKOVR+5
PSGPD	NEW+9, DONE1+20!
PSGPDN	NEW+9, DONE1+20!
PSGPDNX	EDLOOP+5, EDLOOP+10!, CKDT+4
PSGPDRG	EDLOOP+9, NEW+9*, K1+1!
PSGPDRGN	NEW+9*, K1+1!
>> PSGPFLG	ABORT+3*
PSGPR	NEW+9, DONE1+20!
>> PSGPRIO	GTSTATUS+2
PSGPRN	DONE1+20!
>> PSGS0XT	EDLOOP+11
>> PSGS0Y	EDLOOP+11, CKDT+2, NEW+9
PSGSCH	EDLOOP+9, CKDT+4, DONE+1, DONE1+19!
PSGSD	EDLOOP+9, CKDT+4, CKDT+6*, CKDT+8, NEW+9, DONE1+19!
PSGSDEDT	ACT+1~, CKDT+1
PSGSDN	CKDT+6*, DONE1+20!
PSGSI	UPD+18*, UPD+29, DONE1+20!
PSGSIF	UPD+17~, UPD+18*, UPD+25, UPD+28
PSGSM	DONE1+20!
PSGST	EDLOOP+9, EDLOOP+11, CKDT+4, DONE1+19!
>> PSGSTAT	GTSTATUS+1*, GTSTATUS+2
PSGSTN	DONE1+20!
PSGTOL	UPD+72*, DONE1+20!
PSGTOO	UPD+72*, DONE1+20!
PSGUOW	UPD+72*, DONE1+20!
PSJACEPT	ENF+2!, ACT+8, EDLOOP+2, EDLOOP+10!, EDLOOP+12, EDLOOP+17*, EDLOOP+18
PSJALGY1	ACT+1~, EDIT+3*, OC+9
PSJALLGY	OC+1~
PSJAP	UPD+46~, UPD+47*, UPD+49
PSJCHILD	UPD+21~, UPD+22*, UPD+23, UPD+25, UPD+27, UPD+29, UPD+31, UPD+33
>> PSJCOM	NEW+5, UPD+4, UPD+19, UPD+21, UPD+22
PSJCOMSI	UPD+19!
PSJDD	OC+1~, OC+8*, OC+10, OC+11
>> PSJDSVFY	EDLOOP+14*
PSJF12	UPD+14~, UPD+15, UPD+16
PSJFSI	NEW+1~*, NEW+13
PSJHLDFN	UPD+50~, UPD+53*
PSJNOO	EDLOOP+1!, EDLOOP+15, EDLOOP+16, EDLOOP+17
PSJOEORD	UPD+21~*, UPD+22
>> PSJOP	ACT+5
PSJORD	ENF+9, NEW+20, UPD+63, UPD+64, UPD+65, UPD+68, DONE1+8, DONE1+9, ASKOVR+2, ASKOVR+3~* , ASKOVR+5
PSJOVRON	ASKOVR~, ASKOVR+2*, ASKOVR+3
PSJPDO	UPD+46~, UPD+47*
>> PSJRNFLG	ABORT+4
>> PSJSTAR	ASKOVR+4
PSJSTARI	EDIT+1, ASKOVR~, ASKOVR+1, ASKOVR+4*, ASKOVR+5
>> PSJSYSL	UPD+72
>> PSJSYSP	NEW+1, UPD+13, UPD+15, UPD+19, UPD+30, UPD+66, UPD+68, DONE1+18
>> PSJSYSP0	GTSTATUS+1
>> PSJSYSU	NEW+19
PSJX12	UPD+14~, UPD+15*
>> Q	EDIT+3, UPD+66
>> Q1	EDIT+3*
RXO	UPD+50~, UPD+53*
SIARRAY	NEW+1~, NEW+2, NEW+3, UPD+6~, UPD+7, UPD+8, UPD+9
TMP	UPD+17~*
U	EDLOOP+8, EDLOOP+9, OC+6, CKDT+6, UPD+63, UPD+64, UPD+65, DONE1+4, GTSTATUS+1
>> VALM("TITLE"	GTSTATUS+2*
VALMBCK	EDLOOP+2, EDLOOP+3, EDLOOP+10!, EDLOOP+18, UPD+71
VALMSG	EDLOOP+4!, EDLOOP+7*
X	EDIT+3, UPD+28~, UPD+29, DONE1+16*
XREF	DONE1+20!
Y	EDIT+1, EDIT+3, EDLOOP+2, ASKOVR~, ASKOVR+1
YY	ASKOVR+1~*, ASKOVR+2, ASKOVR+4

Marked Items

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

Customize PDF page

Package: Inpatient Medications