Routine: PSGOEF

Information

PSGOEF ;BIR/CML3-FINISH ORDERS ENTERED THROUGH OE/RR ;14 May 98 / 2:17 PM

Source Information

Source file <PSGOEF.m>

Call Graph

Call Graph Total: 29

Package	Total	Call Graph
Inpatient Medications	21	($$ENDD,$$ENDTC)^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 (ENOS,NSSCONT)^PSGS0 $$DSTART^PSJDCU DOSECHK^PSJDOSE ($$DURMIN,$$GETDUR,REQDT)^PSJLIVMD GETUD^PSJLMGUD $$LASTREN^PSJLMPRI INIT^PSJLMUDE $$OINAME^PSJLMUTL $$ENPC^PSJUTL $$ENNOO^PSJUTL5
Registration	3	(EN,REFRESH)^VALM (FULL,PAUSE)^VALM1 RE^VALM4
Kernel	2	ENDR^%ZISS $$FMADD^XLFDT
VA Fileman	2	NOW^%DTC ^DIR
Pharmacy Data Management	1	DOSE^PSSORPH

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
Inpatient Medications	4	PSGOE1 PSGOEF PSJOE PSJOEA

Entry Points

Name	Comments	DBIA/ICR reference
37	;;5^PSGOE82;PSGOSM;PSGSM;5;0
39	;;39^PSGOE81;PSGOAT;PSGAT;39;0
FINISH	; ; force display of second screen if CPRS order checks exist
33	;;10^PSGOE81;PSGOSD;PSGSD;10;0
32	;;109^PSGOE8;PSGODO;PSGDO;109;PSGODO]""
31	;;101^PSGOE8;PSGOPD;PSGPD;101;1
310	;;1^PSGOE82;PSGOPR;PSGPR;1;1
35	;;25^PSGOE81;PSGOFD;PSGFD;25;0
36	;;7^PSGOE8;PSGOST;PSGST;7;0
ACCEPT	;
34	;;3^PSGOE8;PSGOMR;PSGMR;3;1
START	;
AH	;
38	;;26^PSGOE8;PSGOSCH;PSGSCH;26;1
DONE	;
ABORTACC	; Abort Accept process.
BYPASS	;
312	;;2^PSGOE82;;;2;0
313	;;40^PSGOE82;;;40;0
311	;;8^PSGOE81;PSGOSI;PSGSI;8;0

External References

Name	Field # of Occurrence
NOW^%DTC	START+2
ENDR^%ZISS	FINISH+29
^DIR	FINISH+42, FINISH+53, FINISH+71, FINISH+83, FINISH+85, FINISH+90
$$ENDD^PSGMI	START+41, START+42
$$ENDTC^PSGMI	START+41, START+42
$$ENSD^PSGNE3	START+28
ENFD^PSGNE3	START+37
GTST^PSGOE6	START+19, FINISH+72
$$GTNEDFD^PSGOE7	START+26
ABORT^PSGOEE	ABORTACC+2
DONE1^PSGOEE	ACCEPT+4
NEW3^PSGOEE	ACCEPT+3
ENSFE^PSGOEE0	ABORTACC+2
^PSGOEF	ABORTACC+2
$$ENIVUD^PSGOEF1	FINISH+44
ENDRG^PSGOEF1	FINISH+67
UPD^PSGOEF1	ACCEPT+3
OVERLAP^PSGOEF2	FINISH+31
OC531^PSGOESF	FINISH+68
EN^PSGORS0	START+4
ENOS^PSGS0	FINISH+46
NSSCONT^PSGS0	FINISH+56
$$DSTART^PSJDCU	START+33
DOSECHK^PSJDOSE	FINISH+77
$$DURMIN^PSJLIVMD	START+40
$$GETDUR^PSJLIVMD	START+39
REQDT^PSJLIVMD	START+31
GETUD^PSJLMGUD	ABORTACC+2
$$LASTREN^PSJLMPRI	START+39
INIT^PSJLMUDE	ABORTACC+2
$$OINAME^PSJLMUTL	START+3
$$ENPC^PSJUTL	FINISH+55
$$ENNOO^PSJUTL5	FINISH+93
DOSE^PSSORPH	START+8
EN^VALM	FINISH+81
REFRESH^VALM	FINISH+62
FULL^VALM1	FINISH+28
PAUSE^VALM1	FINISH+27
RE^VALM4	FINISH+27, FINISH+70
$$FMADD^XLFDT	START+40

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+33
Function Call: WRITE	Prompt: !,"The highlighted admin times for these portions of this complex order overlap.",!! Line Location: FINISH+34
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+37
Function Call: WRITE	Prompt: $S($P(X1,"^",4)=1:IORVON,1:""),$P(X1,"^",3),IORVOFF Line Location: FINISH+38
Function Call: WRITE	Prompt: ! Line Location: FINISH+39
Function Call: WRITE	Prompt: $S($G(PSJOVR("CONJ",X))="A":"AND",$G(PSJOVR("CONJ",X))="T":"THEN",1:""),! Line Location: FINISH+40
Function Call: WRITE	Prompt: !,"Please ensure the schedules and administration times are appropriate.",! Line Location: FINISH+41
Function Call: WRITE	Prompt: ! Line Location: FINISH+42
Function Call: WRITE	Prompt: $C(7),!!,"PLEASE NOTE: This order's admin times (",PSGAT,")" Line Location: FINISH+50
Function Call: WRITE	Prompt: ! Line Location: FINISH+53
Function Call: WRITE	Prompt: $C(7),!!,"PLEASE NOTE: This order must have" Line Location: FINISH+61
Function Call: WRITE	Prompt: ! Condition for execution: $L(Y)+$X>78 Line Location: FINISH+61
Function Call: WRITE	Prompt: Y," " Line Location: FINISH+61
Function Call: WRITE	Prompt: ! Line Location: FINISH+63
Function Call: WRITE	Prompt: ! Line Location: FINISH+66
Function Call: WRITE	Prompt: !! Line Location: FINISH+71
Function Call: WRITE	Prompt: $C(7),!!,"ACCEPTING THIS ORDER WILL CHANGE THE STATUS TO ACTIVE." Line Location: FINISH+88
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	VALM Line Location: FINISH+81
Routine Call	DIR Line Location: FINISH+42 FINISH+53 FINISH+71 FINISH+83 FINISH+85 FINISH+90
Routine Call	VALM Line Location: FINISH+62

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(53.1 - [#53.1]	START+1, START+3, START+4, START+5, START+7, START+11, START+20, START+21, START+24, START+30 , START+33, START+36, START+38, FINISH+6, FINISH+25, FINISH+45, FINISH+47, FINISH+54, FINISH+55, FINISH+74 , FINISH+87
^PS(53.45 - [#53.45]	START+17, START+43, START+45!, FINISH+57
^PS(55 - [#55]	START+22, START+23, START+36, START+38*
^PSDRUG - [#50]	START+44
^PSDRUG("ASP"	START+44
^TMP("PSJATOVR"	FINISH+35, FINISH+36, FINISH+43!

Name	Line Occurrences
32	FINISH+65
38	FINISH+64, FINISH+66
39	FINISH+63
@(	FINISH+63, FINISH+64, FINISH+65, FINISH+66
ABORTACC	FINISH+67, FINISH+86, FINISH+91, ACCEPT+2
DONE	FINISH+62, FINISH+64, FINISH+65, ACCEPT+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	START+2
CHK	FINISH+55, FINISH+61, FINISH+63, FINISH+64, FINISH+66, FINISH+67, DONE+1!
DA	DONE+1!
>> DFN	START+22, START+23, START+33, START+36, START+38, START+39
DIE	DONE+1!
DIR	FINISH+32~, FINISH+53!, FINISH+71!, FINISH+83!, FINISH+85!, FINISH+90!
DIR("?"	FINISH+89, FINISH+90
DIR("A"	FINISH+42, FINISH+53, FINISH+83, FINISH+85, FINISH+89*
DIR(0	FINISH+42, FINISH+53, FINISH+71, FINISH+83, FINISH+85, FINISH+89
DR	DONE+1!
DRG	START+43~, START+44*, START+45, DONE+1!
DRGCNT	START+43~, START+44, START+45
DUR	START+39~*, START+40
DURMIN	START+40~*
>> F1	FINISH+63, FINISH+64, FINISH+65, FINISH+66
>> IOINHI	FINISH+29
>> IOINORM	FINISH+29
>> IORVOFF	FINISH+37, FINISH+38
>> IORVON	FINISH+37, FINISH+38
MSG	FINISH+63, FINISH+64, FINISH+65, FINISH+66, FINISH+71, DONE+1!
NSFF	FINISH+2~*, FINISH+46!
>> PS(	START+45*
>> PSGAT	START+5, FINISH+47, FINISH+49, FINISH+50, FINISH+59, FINISH+84
>> PSGCANFL	ACCEPT+3, BYPASS+1
>> PSGDO	START+3*, FINISH+79, FINISH+80
>> PSGDT	START+2*
>> PSGEB	START+18
PSGEFN	START+2!
>> PSGFD	START+37, START+40, START+41, FINISH+5, ABORTACC+2
>> PSGFDN	START+41*
PSGFDX	START+2!
>> PSGLI	START+25, START+28, START+37, START+42
>> PSGLIN	START+42*
>> PSGNEDFD	START+26, START+27
>> PSGNEFD	START+37, FINISH+5, ABORTACC+2
>> PSGNESD	START+28, START+33, ABORTACC+2
PSGNSTAT	FINISH+50*, DONE+1!
>> PSGODO	FINISH+79, FINISH+80
>> PSGOEA	START+36, START+38
PSGOEAO	START+35~, START+36*, START+38
>> PSGOEAV	FINISH+92*
>> PSGOEE	FINISH+62, FINISH+63, FINISH+64, FINISH+65, FINISH+66*
PSGOEEF	START+2!, START+18, FINISH+63, FINISH+64, FINISH+65, FINISH+66, ABORTACC+2!
PSGOEEF(	START+18, FINISH+63, FINISH+64, FINISH+65, FINISH+66*
PSGOEEF(109	FINISH+79*
PSGOEEF(26	FINISH+82*
PSGOEEF(39	FINISH+84*
>> PSGOEEG	START+2*
>> PSGOEENO	FINISH+75, FINISH+80, FINISH+93, ACCEPT+3
>> PSGOEF	START+2*, ACCEPT+3
PSGOEF39	FINISH+2~, FINISH+59*, FINISH+62
>> PSGOEFF	FINISH+57, FINISH+58, FINISH+59, FINISH+60, FINISH+61, FINISH+62*, FINISH+64, FINISH+65, FINISH+67, FINISH+68 , FINISH+70, FINISH+72
PSGOES	START+2!*, FINISH+46~, ACCEPT+3!
>> PSGOFD	START+41*
PSGONF	START+2!
>> PSGOPR	START+18
>> PSGORD	START+1, START+3, START+4, START+5, START+7, START+11, START+19, START+20, START+21, START+30 , START+31, START+33, START+36, START+37, START+38, START+39, FINISH+3, FINISH+4, FINISH+5, FINISH+6 , FINISH+25, FINISH+44, FINISH+45, FINISH+47, FINISH+49, FINISH+54, FINISH+55, FINISH+72, FINISH+74, FINISH+87 , ABORTACC+2
>> PSGORQF	FINISH+70
>> PSGOSCH	FINISH+45, FINISH+46, FINISH+48, FINISH+49, FINISH+52, FINISH+56, FINISH+57
>> PSGP	ABORTACC+2
>> PSGPD	START+3*, START+26, START+44, FINISH+67
>> PSGPDN	START+3*
>> PSGPDRG	START+3*
>> PSGPDRGN	START+3*
PSGRDTX	START+2!, FINISH+3!
PSGRDTX(	START+37, FINISH+3, FINISH+4, FINISH+5
PSGRNSD	START+39~*, START+40
PSGRSD	START+33!, ACCEPT+3!
PSGRSDN	ACCEPT+3!
>> PSGS0XT	FINISH+45, FINISH+54, FINISH+56, FINISH+59, FINISH+84
PSGS0Y	START+5, START+20, START+28, FINISH+46~, FINISH+47, FINISH+49, FINISH+51, FINISH+84
PSGSCH	START+4, START+28, FINISH+46~
>> PSGSD	START+20, START+22, START+23, START+24, START+25, START+28, START+33, START+41, FINISH+4, ABORTACC+2*
>> PSGSDN	START+41*
>> PSGSI	FINISH+55*
>> PSGST	START+27, FINISH+72, FINISH+84
>> PSGSTAT	FINISH+75*
PSGWALLO	START+35~, START+36*, START+38
PSJACEPT	FINISH+74!, FINISH+82!, FINISH+84!, FINISH+86, FINISH+91, FINISH+93, ACCEPT+1, ACCEPT+2
>> PSJCOI	START+3
PSJCOM	FINISH+6~*, FINISH+22, FINISH+23, FINISH+30
PSJCT1	FINISH+21, FINISH+22, FINISH+23, FINISH+30, ABORTACC+1!
PSJCT1A	FINISH+22, FINISH+23, ABORTACC+1!
PSJDOSE	START+6~, START+12, START+13, START+15, START+16, FINISH+76~
PSJDOX	START+6~, START+8, START+9, FINISH+76~
PSJDOX(	START+14, START+15, START+16, START+17
PSJDOX(1	START+9, START+10
PSJDSFLG	FINISH+76~, FINISH+78
>> PSJLMFIN	FINISH+73*
>> PSJLMP2	FINISH+74*
>> PSJLMX	FINISH+26
>> PSJNOO	FINISH+93*
PSJNSS	FINISH+2!, FINISH+48!, FINISH+56!, FINISH+82!
PSJOVR	DONE+2!, ABORTACC+1!
PSJOVR("CONJ"	FINISH+40
PSJOVRLP	FINISH+31, ABORTACC+1!
PSJPIECE	START+6~, START+10*, START+12, START+13, START+15, START+16
>> PSJPROT	FINISH+44
>> PSJRNF	FINISH+87, FINISH+91, FINISH+92
>> PSJSYSP	START+17, START+43, START+45, FINISH+55, FINISH+57
>> PSJSYSP0	FINISH+75
>> PSJTUD	START+3, FINISH+44, FINISH+46, FINISH+56
PSJUNIT	START+6~, START+13*, START+16
PSJX	START+6~, START+14, START+17, START+21~, START+22, START+23, START+24
>> Q	FINISH+61*
Q1	DONE+1!
Q2	DONE+1!
U	START+3, START+4, START+10, START+12, START+13, START+15, START+16, START+17, START+20, START+21 , START+22, START+23, START+24, START+27, START+30, START+33, START+36, START+38, START+41, START+42 , START+44, START+45, FINISH+55, FINISH+75
>> VALMBCK	ACCEPT+1, ABORTACC+2
>> VALMBG	FINISH+27, FINISH+69
>> VALMSG	FINISH+78, FINISH+80
X	START+4, START+5, START+6~, START+7, START+8, START+11, START+12, START+13, START+14, START+15 , START+16, START+17, START+18, START+33, START+44, FINISH+29, FINISH+32~, FINISH+35, FINISH+36, FINISH+37 , FINISH+40, FINISH+46, FINISH+47, FINISH+58, FINISH+59, FINISH+60*, FINISH+61
X1	FINISH+32~, FINISH+35, FINISH+36, FINISH+37, FINISH+38
>> Y	START+18, FINISH+61, FINISH+63, FINISH+64, FINISH+65, FINISH+66, FINISH+90*, FINISH+91, FINISH+92
>> ZZND	FINISH+54

Customize PDF page

Package: Inpatient Medications

Routine: PSGOEF

Information

Source Information

Call Graph

Call Graph Total: 29

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
$T(32	FINISH+65
$T(38	FINISH+64, FINISH+66
$T(39	FINISH+63
$T(@(3)	START+18