Routine: PSGOEF

Package	Total	Call Graph
Inpatient Medications	26	($$ENDD,$$ENDTC,$$ENDTC2)^PSGMI ($$ENSD,ENFD)^PSGNE3 GTST^PSGOE6 $$GTNEDFD^PSGOE7 (ABORT,DONE1,NEW3)^PSGOEE ENSFE^PSGOEE0 ^PSGOEF ($$ENIVUD,ENDRG,UPD)^PSGOEF1 OVERLAP^PSGOEF2 OC531^PSGOESF EN^PSGORS0 ($$ODD,$$PRNOK,ENOS,NSSCONT)^PSGS0 ($$ISCLOZ,CLOZ,CLOZPAT,COMPLEX1)^PSJCLOZ $$DSTART^PSJDCU DOSECHK^PSJDOSE ($$DURMIN,$$GETDUR,REQDT)^PSJLIVMD GETUD^PSJLMGUD $$LASTREN^PSJLMPRI INIT^PSJLMUDE $$OINAME^PSJLMUTL $$DD53P45^PSJMISC $$CHKSCHD^PSJMISC2 IN^PSJOCDS OC^PSJOE1 $$ENPC^PSJUTL $$ENNOO^PSJUTL5
VA FileMan	4	(C,NOW)^%DTC FIND^DIC $$GET1^DIQ ^DIR
List Manager	3	(EN,REFRESH)^VALM FULL^VALM1 RE^VALM4
Kernel	2	ENDR^%ZISS ($$FMADD,$$NOW)^XLFDT
Pharmacy Data Management	1	DOSE^PSSORPH

Package	Total	Caller Graph
Inpatient Medications	6	PSGOE1 PSGOEF PSJ LM BYPASS PSJ LM FINISH PSJOE PSJOEA
Kernel	1	^ORD(101

Name	Comments	DBIA/ICR reference
START	;
ZZ
FINISH	; ; force display of second screen if CPRS order checks exist
ACCEPT	;
BYPASS	;
DONE	;
ABORTACC	; Abort Accept process.
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
AH	;

Name	Field # of Occurrence
C^%DTC	FINISH+124
NOW^%DTC	START+2
ENDR^%ZISS	FINISH+38
FIND^DIC	FINISH+76
$$GET1^DIQ	ZZ+18, FINISH+74
^DIR	FINISH+36, FINISH+51, FINISH+66, FINISH+82, FINISH+99, FINISH+112, FINISH+114, FINISH+120, FINISH+132, FINISH+138
$$ENDD^PSGMI	ZZ+16, ZZ+17, FINISH+125
$$ENDTC^PSGMI	ZZ+17, FINISH+125
$$ENDTC2^PSGMI	ZZ+16
$$ENSD^PSGNE3	ZZ
ENFD^PSGNE3	ZZ+11
GTST^PSGOE6	START+21, FINISH+100
$$GTNEDFD^PSGOE7	START+28
ABORT^PSGOEE	ABORTACC+4
DONE1^PSGOEE	ACCEPT+18
NEW3^PSGOEE	ACCEPT+6
ENSFE^PSGOEE0	ABORTACC+4
^PSGOEF	ABORTACC+4
$$ENIVUD^PSGOEF1	FINISH+53
ENDRG^PSGOEF1	FINISH+95
UPD^PSGOEF1	ACCEPT+6
OVERLAP^PSGOEF2	FINISH+40
OC531^PSGOESF	FINISH+96
EN^PSGORS0	START+6
$$ODD^PSGS0	FINISH+128
$$PRNOK^PSGS0	FINISH+129
ENOS^PSGS0	FINISH+59
NSSCONT^PSGS0	FINISH+69
$$ISCLOZ^PSJCLOZ	START+3, FINISH+32
CLOZ^PSJCLOZ	FINISH+35
CLOZPAT^PSJCLOZ	START+4, FINISH+122
COMPLEX1^PSJCLOZ	ZZ+2
$$DSTART^PSJDCU	ZZ+7
DOSECHK^PSJDOSE	FINISH+105
$$DURMIN^PSJLIVMD	ZZ+14
$$GETDUR^PSJLIVMD	ZZ+13
REQDT^PSJLIVMD	ZZ+5
GETUD^PSJLMGUD	ABORTACC+4
$$LASTREN^PSJLMPRI	ZZ+13
INIT^PSJLMUDE	FINISH+90, ABORTACC+4
$$OINAME^PSJLMUTL	START+5
$$DD53P45^PSJMISC	FINISH+143
$$CHKSCHD^PSJMISC2	FINISH+56
IN^PSJOCDS	FINISH+144
OC^PSJOE1	FINISH+141
$$ENPC^PSJUTL	FINISH+68
$$ENNOO^PSJUTL5	FINISH+146
DOSE^PSSORPH	START+10
EN^VALM	FINISH+110
REFRESH^VALM	FINISH+88
FULL^VALM1	FINISH+30
RE^VALM4	FINISH+98
$$FMADD^XLFDT	ZZ+14
$$NOW^XLFDT	ACCEPT+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!?3,"Cannot find this pending order (#",+PSGORD,")." Line Location: START+1
Function Call: WRITE	Prompt: !!,"WARNING" Line Location: FINISH+42
Function Call: WRITE	Prompt: !,"The highlighted admin times for these portions of this complex order overlap.",!! Line Location: FINISH+43
Function Call: WRITE	Prompt: $S($P(X1,"^",4)=1:IORVON,1:""),"Part "_X,IORVOFF," has a schedule of "_$P(X1,"^",2)_" and admin time(s) of " Line Location: FINISH+46
Function Call: WRITE	Prompt: $S($P(X1,"^",4)=1:IORVON,1:""),$P(X1,"^",3),IORVOFF Line Location: FINISH+47
Function Call: WRITE	Prompt: ! Line Location: FINISH+48
Function Call: WRITE	Prompt: $S($G(PSJOVR("CONJ",X))="A":"AND",$G(PSJOVR("CONJ",X))="T":"THEN",1:""),! Line Location: FINISH+49
Function Call: WRITE	Prompt: !,"Please ensure the schedules and administration times are appropriate.",! Line Location: FINISH+50
Function Call: WRITE	Prompt: ! Line Location: FINISH+51
Function Call: WRITE	Prompt: $C(7),!!,"PLEASE NOTE: This order's admin times (",PSGAT,")" Line Location: FINISH+63
Function Call: WRITE	Prompt: ! Line Location: FINISH+66
Function Call: WRITE	Prompt: $C(7),!!,"INVALID STOP DATE" Condition for execution: PSJRMABT Line Location: FINISH+82
Function Call: WRITE	Prompt: ! Line Location: FINISH+82
Function Call: WRITE	Prompt: $C(7),!!,"PLEASE NOTE: This order must have" Line Location: FINISH+87
Function Call: WRITE	Prompt: ! Condition for execution: $L(Y)+$X>78 Line Location: FINISH+87
Function Call: WRITE	Prompt: Y," " Line Location: FINISH+87
Function Call: WRITE	Prompt: ! Line Location: FINISH+89
Function Call: WRITE	Prompt: ! Line Location: FINISH+94
Function Call: WRITE	Prompt: !! Line Location: FINISH+99
Function Call: WRITE	Prompt: $C(7),!!,"ACCEPTING THIS ORDER WILL CHANGE THE STATUS TO ACTIVE." Line Location: FINISH+136
Function Call: WRITE	Prompt: !!?2,"Answer 'YES' to accept this order as a NON-VERIFIED UNIT DOSE order. Answer",!,"'NO' to edit this order now. Enter '^' to BYPASS this order, leaving it as",!,"a PENDING INPATIENT order." Line Location: AH+1
Routine Call	DIC Line Location: FINISH+76
Routine Call	DIR Line Location: FINISH+36 FINISH+51 FINISH+66 FINISH+82 FINISH+99 FINISH+112 FINISH+114 FINISH+120 FINISH+132 FINISH+138
Routine Call	VALM Line Location: FINISH+110
Routine Call	VALM Line Location: FINISH+88

FileNo	Call Tags
^PS(50.7 - [#50.7]	GET1^DIQ
^PS(51.1 - [#51.1]	FIND^DIC
53.4502	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^PS(53.1 - [#53.1]	START+1, START+5, START+6, START+7, START+9, START+13, START+22, START+23, START+26, ZZ+4 , ZZ+7, ZZ+10, ZZ+12, FINISH+11, FINISH+56, FINISH+58, FINISH+60, FINISH+67, FINISH+68, FINISH+102 , FINISH+135, ACCEPT+11
^PS(53.45 - [#53.45]	START+19, ZZ+20!, FINISH+70
^PS(55 - [#55]	START+24, START+25, ZZ+10, ZZ+12*, ACCEPT+12, ACCEPT+13
^PSDRUG - [#50]	ZZ+19
^PSDRUG("ASP"	ZZ+19
^TMP("PSJATOVR"	FINISH+44, FINISH+45, FINISH+52!
^TMP("PSJCOM"	FINISH+121*
^TMP("PSODAOC"	ACCEPT+8, ABORTACC+3!

Name	Line Occurrences
32	FINISH+93
35	FINISH+81
38	FINISH+92, FINISH+94
39	FINISH+89
@(	FINISH+81, FINISH+89, FINISH+92, FINISH+93, FINISH+94
ABORTACC	FINISH+77, FINISH+95, FINISH+117, FINISH+134, FINISH+139, ACCEPT+3
DONE	FINISH+56, FINISH+88, FINISH+92, FINISH+93, ACCEPT+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	START+2
>> ANQX	FINISH+33, FINISH+35*, FINISH+36
CHK	FINISH+68, FINISH+81, FINISH+87, FINISH+89, FINISH+92, FINISH+94, FINISH+95, FINISH+120, DONE+1!
CLOZFLG	START+3~, START+4, ZZ+2, FINISH+32~, FINISH+33, FINISH+34, FINISH+119
>> CLOZPAT	START+4, FINISH+123
DA	ACCEPT+9~, DONE+1!
>> DFN	START+24, START+25, ZZ+7, ZZ+10, ZZ+12, ZZ+13, ACCEPT+12, ACCEPT+13
DIE	DONE+1!
DIR	FINISH+36!, FINISH+41~, FINISH+66!, FINISH+82!, FINISH+99!, FINISH+112!, FINISH+114!, FINISH+120!, FINISH+132!, FINISH+138!
DIR("?"	FINISH+137, FINISH+138
DIR("A"	FINISH+51, FINISH+66, FINISH+82, FINISH+112, FINISH+114, FINISH+120, FINISH+132, FINISH+137
DIR(0	FINISH+36, FINISH+51, FINISH+66, FINISH+82, FINISH+99, FINISH+112, FINISH+114, FINISH+120, FINISH+132, FINISH+137
>> DIRUT	FINISH+120
DR	DONE+1!
DRG	ZZ+18~, ZZ+19*, ZZ+20, DONE+1!
DRGCNT	ZZ+18~, ZZ+19, ZZ+20
DUR	ZZ+13~*, ZZ+14
DURMIN	ZZ+14~*
>> F1	FINISH+81, FINISH+89, FINISH+92, FINISH+93, FINISH+94*
>> IOINHI	FINISH+38
>> IOINORM	FINISH+38
>> IORVOFF	FINISH+46, FINISH+47
>> IORVON	FINISH+46, FINISH+47
MSG	FINISH+81, FINISH+89, FINISH+92, FINISH+93, FINISH+94*, FINISH+99, DONE+1!
NSFF	FINISH+2~*, FINISH+59!
OCCDT	ACCEPT+9~, ACCEPT+10*
ORL	ACCEPT+9~
ORN	ACCEPT+9~, ACCEPT+11, ACCEPT+12, ACCEPT+13*, ACCEPT+14
>> PS(	ZZ+20*
>> PSGAT	START+7, FINISH+60, FINISH+62, FINISH+63, FINISH+72, FINISH+113, FINISH+127
>> PSGCANFL	ACCEPT+6, BYPASS+1
>> PSGCLZ	FINISH+118
>> PSGDO	START+5*, FINISH+107, FINISH+108
PSGDRG	FINISH+34~*, FINISH+35
>> PSGDT	START+2*
PSGDUR	FINISH+77, ABORTACC+2!
>> PSGEB	START+20
PSGEDTOI	FINISH+2~!, FINISH+141, FINISH+142, DONE+1!
PSGEFN	START+2!
>> PSGFD	ZZ+11, ZZ+14, ZZ+16, FINISH+8, FINISH+10, FINISH+80, FINISH+124, FINISH+125, ABORTACC+4
>> PSGFDN	ZZ+16, FINISH+80, FINISH+125*
PSGFDX	START+2!
>> PSGLI	START+27, ZZ, ZZ+11, ZZ+17
>> PSGLIN	ZZ+17*
>> PSGNEDFD	START+28, START+29
>> PSGNEFD	ZZ+11, FINISH+10, ABORTACC+4
>> PSGNESD	ZZ, ZZ+7, ABORTACC+4
PSGNSTAT	FINISH+63*, DONE+1!
>> PSGODO	FINISH+107, FINISH+108
>> PSGOEA	ZZ+10, ZZ+12
PSGOEAO	ZZ+9~, ZZ+10*, ZZ+12
>> PSGOEAV	FINISH+140*
>> PSGOEE	FINISH+81, FINISH+88, FINISH+89, FINISH+90, FINISH+92, FINISH+93, FINISH+94
PSGOEEF	START+2!, START+20, FINISH+81, FINISH+89, FINISH+92, FINISH+93, FINISH+94*, ABORTACC+4!
PSGOEEF(	START+20, FINISH+81, FINISH+89, FINISH+92, FINISH+93, FINISH+94
PSGOEEF(109	FINISH+107*
PSGOEEF(26	FINISH+111, ACCEPT+5
PSGOEEF(39	FINISH+113*
>> PSGOEEG	START+2*
>> PSGOEENO	FINISH+103, FINISH+108, FINISH+145, FINISH+146, ACCEPT+5, ACCEPT+6
PSGOEER	FINISH+2!, FINISH+142, DONE+1!
>> PSGOEF	START+2*, ACCEPT+6
PSGOEF39	FINISH+2~, FINISH+72, FINISH+79, FINISH+88
>> PSGOEFF	FINISH+70, FINISH+71, FINISH+72, FINISH+79, FINISH+86, FINISH+87, FINISH+88, FINISH+92, FINISH+93, FINISH+95 , FINISH+96, FINISH+98, FINISH+100
PSGOES	START+2!*, FINISH+59~, ACCEPT+6!
>> PSGOFD	ZZ+16*
PSGONF	START+2!
>> PSGOPR	START+20
>> PSGORD	START+1, START+3, START+5, START+6, START+7, START+9, START+13, START+21, START+22, START+23 , ZZ+4, ZZ+5, ZZ+7, ZZ+10, ZZ+11, ZZ+12, ZZ+13, FINISH+4, FINISH+7, FINISH+8 , FINISH+9, FINISH+10, FINISH+11, FINISH+32, FINISH+53, FINISH+56, FINISH+58, FINISH+60, FINISH+62, FINISH+67 , FINISH+68, FINISH+90, FINISH+100, FINISH+102, FINISH+121, FINISH+135, FINISH+144, ACCEPT+10, ACCEPT+11, ACCEPT+12 , ACCEPT+13, ABORTACC+4
>> PSGORQF	FINISH+56, FINISH+98, FINISH+117, FINISH+120, FINISH+142, FINISH+145
>> PSGOSCH	FINISH+55, FINISH+58, FINISH+59, FINISH+61, FINISH+62, FINISH+65, FINISH+69, FINISH+70
>> PSGP	FINISH+35, FINISH+90, ABORTACC+4
>> PSGPD	START+5*, START+28, ZZ+19, FINISH+95
>> PSGPDN	START+5*
>> PSGPDRG	START+5*, FINISH+74
>> PSGPDRGN	START+5*
PSGRDTX	START+2!, FINISH+4!, FINISH+118
PSGRDTX(	ZZ+11, FINISH+4, FINISH+7, FINISH+8, FINISH+9, FINISH+10
PSGRF	FINISH+74*, FINISH+77, FINISH+79, ABORTACC+2!
PSGRMV	FINISH+77, ABORTACC+2!
PSGRMVT	FINISH+90, ABORTACC+2!
PSGRNSD	ZZ+13~*, ZZ+14
PSGRSD	ZZ+7!, ACCEPT+6!
PSGRSDN	ACCEPT+6!
>> PSGS0XT	FINISH+58, FINISH+67, FINISH+69, FINISH+72, FINISH+113, FINISH+128
PSGS0Y	START+7, START+22, ZZ, FINISH+59~, FINISH+60, FINISH+62, FINISH+64, FINISH+113
PSGSCH	START+6, ZZ, FINISH+57, FINISH+59~, FINISH+76, FINISH+129, ACCEPT+5
>> PSGSD	START+22, START+24, START+25, START+26, START+27, ZZ, ZZ+7, ZZ+16, FINISH+7, FINISH+9 , FINISH+123, ABORTACC+4*
>> PSGSDN	ZZ+16*
>> PSGSI	FINISH+68*
>> PSGST	START+29, FINISH+78, FINISH+100, FINISH+113, FINISH+127
>> PSGSTAT	FINISH+33, FINISH+103*
PSGTMPST	FINISH+78~*, FINISH+79, FINISH+80
PSGUDFIN	ACCEPT+1~*
PSGWALLO	ZZ+9~, ZZ+10*, ZZ+12
PSJACEPT	FINISH+102!, FINISH+111!, FINISH+113!, FINISH+117, FINISH+131!, FINISH+134, FINISH+139, FINISH+145, FINISH+146*, ACCEPT+2 , ACCEPT+3
>> PSJAGYSV	ACCEPT+15*
>> PSJCOI	START+5
PSJCOM	FINISH+11~*, FINISH+27, FINISH+28, FINISH+39
PSJCT1	FINISH+26, FINISH+27, FINISH+28, FINISH+39, ABORTACC+3!
PSJCT1A	FINISH+27, FINISH+28, ABORTACC+3!
PSJDAOC	ACCEPT+9~, ACCEPT+10*
PSJDD	FINISH+143~*, FINISH+144
PSJDOSE	START+8~, START+14, START+15, START+17, START+18, FINISH+104~
PSJDOX	START+8~, START+10, START+11, FINISH+104~
PSJDOX(	START+16, START+17, START+18, START+19
PSJDOX(1	START+11, START+12
PSJDSFLG	FINISH+104~, FINISH+106
>> PSJLMFIN	FINISH+101*
>> PSJLMP2	FINISH+102*
>> PSJNOO	FINISH+146, ACCEPT+5
PSJNSS	FINISH+2!, FINISH+61!, FINISH+69!, FINISH+111!
>> PSJOCDSC("CX"	FINISH+7, FINISH+8
PSJOLDNM	FINISH+3~, FINISH+56
PSJOLDNM("NEW_SCHD"	FINISH+57, FINISH+59, FINISH+65, ACCEPT+5
PSJOLDNM("ORD_SCHD"	FINISH+55*
PSJOVR	DONE+2!, ABORTACC+3!
PSJOVR("CONJ"	FINISH+49
PSJOVRLP	FINISH+40, ABORTACC+3!
PSJPIECE	START+8~, START+12*, START+14, START+15, START+17, START+18
>> PSJPROT	FINISH+53
PSJRMABT	FINISH+3~, FINISH+77, FINISH+81, FINISH+82
>> PSJRNF	FINISH+135, FINISH+139, FINISH+140
>> PSJSYSP	START+19, ZZ+18, ZZ+20, FINISH+68, FINISH+70
>> PSJSYSP0	FINISH+103
>> PSJTUD	START+5, FINISH+53, FINISH+59, FINISH+69
PSJUNIT	START+8~, START+15*, START+18
PSJX	START+8~, START+16, START+19, START+23~, START+24, START+25, START+26
>> PSOSAND	FINISH+121*
>> Q	FINISH+87*
Q1	DONE+1!
Q2	DONE+1!
RET	ACCEPT+9~
SCHARR	FINISH+76~
SCHARR("DILIST"	FINISH+77, FINISH+78
U	START+5, START+6, START+12, START+14, START+15, START+17, START+18, START+19, START+22, START+23 , START+24, START+25, START+26, START+29, ZZ+4, ZZ+7, ZZ+10, ZZ+12, ZZ+16, ZZ+17 , ZZ+19, ZZ+20, FINISH+7, FINISH+8, FINISH+34, FINISH+56, FINISH+68, FINISH+103, ACCEPT+11, ACCEPT+12 , ACCEPT+13
>> VALMBCK	FINISH+56, ACCEPT+2, ABORTACC+4*
>> VALMBG	FINISH+97*
>> VALMSG	FINISH+106, FINISH+108
X	START+6, START+7, START+8~, START+9, START+10, START+13, START+14, START+15, START+16, START+17 , START+18, START+19, START+20, ZZ+7, ZZ+19, FINISH+38, FINISH+41~, FINISH+44, FINISH+45, FINISH+46 , FINISH+49, FINISH+59, FINISH+60, FINISH+71, FINISH+72, FINISH+79, FINISH+86, FINISH+87, FINISH+121, FINISH+124 , FINISH+125
X1	FINISH+41~, FINISH+44, FINISH+45, FINISH+46, FINISH+47, FINISH+123*
>> X2	FINISH+123*
>> Y	START+20, FINISH+81, FINISH+87, FINISH+89, FINISH+92, FINISH+93, FINISH+94, FINISH+138, FINISH+139, FINISH+140
Z	ACCEPT+9~
ZZND	FINISH+2!, FINISH+67, FINISH+130, DONE+1!

Customize PDF page

Package: Inpatient Medications

Routine: PSGOEF

Information

Source Information

Call Graph

Call Graph Total: 36

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
$T(32	FINISH+93
$T(35	FINISH+81
$T(38	FINISH+92, FINISH+94
$T(39	FINISH+89
$T(@(3)	START+20