Routine: PSGOEC

Information

PSGOEC ;BIR/CML3-CANCEL ORDERS ;29-May-2012 14:29;PLS

Call Graph

Call Graph Total: 29

Package	Total	Call Graph
Inpatient Medications	18	^PSGAL5 $$ENPDN^PSGMI (AC,ASET)^PSGOEC DCOR^PSGOECS ABORT^PSGOEE (ENCAM,ENCOM,ENUMK)^PSGOEM ENCTM^PSGOEM1 ENCV^PSGSETU (ENL,ENPOS)^PSGVDS ENLBL^PSIVOPT D1^PSIVOPT2 HL^PSIVORA LOG^PSIVORAL ORPARM^PSIVOREN ENHE^PSJADT0 CMPLX^PSJCOM1 $$LOCK^PSJOEA $$ENNOO^PSJUTL5
VA Fileman	7	NOW^%DTC ^DIC YN^DICN ^DIE ^DIK EN^DIQ1 ^DIR
IHS Changes To Pharmacy	1	$$INPTCOM^APSPFUNC
Kernel	1	$$FMTE^XLFDT
Pharmacy Data Management	1	$$LS^PSSLOCK
Registration	1	PAUSE^VALM1

Caller Graph

Caller Graph Total: 8

Package	Total	Caller Graph
Inpatient Medications	8	PSGOE1 PSGOEC PSGOECA PSGOECS PSIVOPT2 PSIVORC PSIVSPDC PSJOE

Entry Points

Name	Comments	DBIA/ICR reference
PNDRNA(ORDER)	; Ask Discontinue Pending Renewal only, or both Pending Renew and Renewed Order ; Perform this action only for pending renewals
ENA	; all orders
SOC	;
PNDRN(PSJDCTYP,ORDER)	; Perform Discontinue action for Pending order only or both Pending and Renewed ; Perform this action only for pending renewals
ENCA	;
RS	; ; naked ref below is from variable ND1, ^PS(53.1,PSGDA,4)
PNDRNOK(ORDER)	; Execute DC Pending Renew if ; 1) Renewal order is pending/non-verified, and ; 2) Original order is not DC'd or Expired
ENO(PSGP,PSGORD)	; single order
NC	;
AC	;
ASET	;
DONE	;
T	;
REQPROV()	;
NSET	;
OUT	;
D1

External References

Name	Field # of Occurrence
NOW^%DTC	ENCA+1, SOC+5, D1+1
$$INPTCOM^APSPFUNC	SOC+2
^DIC	REQPROV+14
YN^DICN	ENA+2, ENO+7, T+1
^DIE	D1+2, AC+3, NC+4
^DIK	NC+5
EN^DIQ1	REQPROV+6, REQPROV+9
^DIR	PNDRNA+16
^PSGAL5	ENA+8, ENO+10, AC+1, AC+3
$$ENPDN^PSGMI	PNDRNA+7
AC^PSGOEC	SOC+17
ASET^PSGOEC	SOC+17
DCOR^PSGOECS	AC+5, NC+6
ABORT^PSGOEE	SOC+2, SOC+4
ENCAM^PSGOEM	ENA+2
ENCOM^PSGOEM	ENO+7
ENUMK^PSGOEM	ENA+6, ENO+10
ENCTM^PSGOEM1	T+1
ENCV^PSGSETU	ENA+1
ENL^PSGVDS	AC+4, NC+4
ENPOS^PSGVDS	AC+2, NC+2
ENLBL^PSIVOPT	D1+3
D1^PSIVOPT2	SOC+15
HL^PSIVORA	SOC+16
LOG^PSIVORAL	SOC+16
ORPARM^PSIVOREN	D1+4
ENHE^PSJADT0	ENCA+5
CMPLX^PSJCOM1	ENO+6
$$LOCK^PSJOEA	SOC+10
$$ENNOO^PSJUTL5	ENCA+3, SOC+2
$$LS^PSSLOCK	SOC+13
PAUSE^VALM1	ENCA+4, ENO+1
$$FMTE^XLFDT	PNDRNA+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Do you want to ",$S(CF:"discontinue",1:"mark for discontinuation")," all of this patient's orders" Line Location: ENA+2
Function Call: WRITE	Prompt: !!,"...a few moments, please..." Line Location: ENA+7
Function Call: WRITE	Prompt: "." Line Location: ENA+8
Function Call: WRITE	Prompt: "." Line Location: ENA+9
Function Call: WRITE	Prompt: " . . . DONE!" Line Location: ENA+10
Function Call: WRITE	Prompt: " . . . DONE!" Line Location: ENCA+8
Function Call: WRITE	Prompt: !,"This order has already been DISCONTINUED." Line Location: ENO+1
Function Call: WRITE	Prompt: !!,"This order is part of a complex order and CANNOT be marked for discontinuation." Line Location: ENO+4
Function Call: WRITE	Prompt: !!,"This order is part of a complex order. If you discontinue this order the",!,"following orders will be discontinued too (unless the stop date has already",!,"been reached)." Line Location: ENO+6
Function Call: WRITE	Prompt: !!,"Do you want to ",$S(PSJCOM:"discontinue this series of complex orders",CF:"discontinue this order",1:"mark this order for discontinuation") Line Location: ENO+7
Function Call: WRITE	Prompt: !!,"THIS ORDER HAS" Line Location: ENO+9
Function Call: WRITE	Prompt: "..." Line Location: ENO+10
Function Call: WRITE	Prompt: " . . . DONE!" Line Location: ENO+10
Function Call: WRITE	Prompt: !!,"...one moment, please..." Line Location: SOC+1
Function Call: WRITE	Prompt: $S(PSJCOM:"...ORDER ",1:"...ORDERS "),$S(CF:"DISCONTINUED!",1:"MARKED!") Line Location: OUT+1
Function Call: WRITE	Prompt: !!,"Is this due to the patient being transferred" Line Location: T+1
Function Call: WRITE	Prompt: !!?5,DRG_" "_DO Line Location: PNDRNA+9
Function Call: WRITE	Prompt: !?5,"This order has a pending status. If this pending order" Line Location: PNDRNA+10
Function Call: WRITE	Prompt: !?5,"is discontinued, the original order may still be active." Line Location: PNDRNA+11
Routine Call	DIE Line Location: D1+2 AC+3 NC+4
Routine Call	DIC Line Location: REQPROV+14
Routine Call	DIR Line Location: PNDRNA+16

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]	ENA+4, ENA+9, ENCA+2, ENCA+7, ENO+2, ENO+3, ENO+9, SOC+1, SOC+11, NSET+1 , NC+1, NC+3, NC+4, PNDRNA+4, PNDRNA+7, PNDRNA+8, PNDRN+7, PNDRNOK+4, PNDRNOK+6
^PS(55 - [#55]	ENA+3, ENA+8, ENCA+1, ENCA+6, ENO+3, ENO+9, SOC+1, SOC+12, SOC+14, SOC+15 , SOC+16, D1+1, D1+2, ASET+1, AC+1, AC+3, AC+4*, AC+5, REQPROV+4, PNDRNA+5 , PNDRNOK+5

Label References

Name	Line Occurrences
$$PNDRNA	ENO+5
$$PNDRNOK	ENO+5
$$REQPROV	ENCA+3, SOC+4
AC	ENCA+6, SOC+7
ASET	ENCA+5, SOC+7
DONE	ENA+5, ENA+10, ENCA+3, ENCA+8, ENO+5, ENO+11, SOC+2, SOC+4
ENCA	ENA+3
NC	ENCA+7, SOC+8, SOC+11
NSET	ENCA+7, SOC+8, SOC+11
PNDRN	ENO+5
RS	ENA+8, ENA+9, ENO+10
SOC	ENO+9, PNDRN+4, PNDRN+5, PNDRN+8

Naked Globals

Name	Field # of Occurrence
^(0	NC+3
^(2	AC+3*
^(4	ENO+2, ENO+9, RS+2*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ENA+2, ENA+3, ENA+6, ENCA+1, ENO+7, ENO+8, ENO+9, ENO+10, SOC+5, D1~ , D1+1, T+1*, T+2
CF	ENA+1, ENA+2, ENCA+7, ENO+2*, ENO+4, ENO+7, SOC+1, SOC+2, SOC+4, SOC+7 , SOC+8, OUT+1, DONE+1!, AC+1, AC+2, AC+3, NC+1, NC+2, NC+3
COMFLG	SOC+9~, SOC+12, SOC+13, SOC+14
DA	ENO+10!, SOC+5!, D1~, D1+2, DONE+1!, AC+1!, AC+3!, AC+4!, NC+4!, NC+5! , REQPROV+6, REQPROV+7!, REQPROV+9, REQPROV+10!
DA(1	ENO+10, SOC+5, D1+2, AC+1, AC+3, AC+4
>> DFN	SOC+13, SOC+15, SOC+16, D1+1, D1+2, D1+3, REQPROV+4
DIC	REQPROV+2!, REQPROV+6, REQPROV+7!, REQPROV+9, REQPROV+11!*, REQPROV+14!
DIC("A"	REQPROV+13*
DIC("B"	REQPROV+12*
DIC("S"	REQPROV+14*
DIC(0	REQPROV+11*
DIE	D1~, D1+2, DONE+1!, ASET+1, NSET+1*
>> DIK	NC+5*
DIQ	REQPROV+6, REQPROV+7!, REQPROV+9, REQPROV+10!
DIQ(0	REQPROV+6, REQPROV+9
>> DIR("A"	PNDRNA+12*
>> DIR("L"	PNDRNA+14, PNDRNA+15, PNDRNA+16*
>> DIR(0	PNDRNA+13*
DIU	D1~
>> DO	PNDRNA+7*, PNDRNA+9
DP	DONE+1!
DR	D1+2, DONE+1!, ASET+1, NSET+1, REQPROV+6, REQPROV+7!, REQPROV+9*, REQPROV+10!
>> DRG	PNDRNA+7*, PNDRNA+9
DT	REQPROV+8
DTOUT	REQPROV+2!, REQPROV+15
DUOUT	REQPROV+2!, REQPROV+15
DUZ	ENO+2, D1+3, AC+1, AC+4, NC+1, NC+4
>> INCOM	SOC+2*
ND	ENA+1~*, ENA+3, ENA+8
ND1	ENA+1~*, ENA+4, ENA+9
>> ND2	PNDRNA+8*
ND5310	PNDRN+7~*, PNDRN+8
NDP2	PNDRNA+6~, PNDRNA+7*
NSTOP	D1~, D1+1*, D1+2
O	SOC+11~, SOC+12~, SOC+14~*
>> ON	SOC+15*
>> ON55	SOC+15*, SOC+16, D1+1, D1+2, D1+3
OO	SOC+12~, SOC+13, SOC+14~, SOC+15, SOC+17
ORDER	PNDRNA~, PNDRNA+2, PNDRNA+4, PNDRNA+7, PNDRNA+8, PNDRN~, PNDRN+2, PNDRNOK~, PNDRNOK+4
ORETURN	DONE+1!
ORIFN	DONE+1!, AC+3!, AC+5, NC+4!, NC+6
ORIGORD	PNDRNA+4~, PNDRNA+5, PNDRNOK+4~, PNDRNOK+5
ORIGSTOP	PNDRNA+4~, PNDRNA+5, PNDRNOK+4~, PNDRNOK+5
>> P("NAT"	SOC+16*
>> P(17	D1+1*
>> P(3	SOC+15, SOC+16
PROVIDER	REQPROV+3~, REQPROV+4*, REQPROV+5, REQPROV+6, REQPROV+8, REQPROV+9, REQPROV+10
PROVNAME	REQPROV+3~, REQPROV+4, REQPROV+10, REQPROV+12
PSGAL	DONE+1!
PSGAL("C"	ENA+7, ENO+10, AC+1, AC+3
>> PSGALO	ENCA+5, D1+3
PSGALR	ENCA+5, SOC+5, DONE+1!
>> PSGCANFL	OUT+1*
>> PSGCF	ENA+3*
PSGDA	ENA+3, ENA+4, ENA+8, ENA+9, DONE+1!
>> PSGDT	ENA+8, ENCA+1, ENCA+6, SOC+5, ASET+1, NSET+1, AC+1, AC+2, AC+4, NC+1 , NC+2, NC+4, PNDRNA+4, PNDRNOK+4
>> PSGEDIT	ASET+1, NSET+1, AC+4, NC+4
>> PSGOP	ENCA+5*
PSGORD	ENCA+6, ENCA+7, ENCA+8!, ENO~, ENO+2, ENO+3, ENO+5, ENO+6, ENO+9, ENO+10 , SOC+1, SOC+5, SOC+7, SOC+8, SOC+10, SOC+11, SOC+12, SOC+13, SOC+17~, AC+1 , AC+2, AC+3, AC+4, AC+5, NC+1, NC+2, NC+3, NC+4, NC+5, PNDRN+2~* , PNDRN+3, PNDRN+7, PNDRN+8~*, PNDRNOK+3, PNDRNOK+6
>> PSGORIFN	NC+3*, NC+6
PSGP	ENA+3, ENA+4, ENA+8, ENA+9, ENCA+1, ENCA+2, ENCA+5, ENCA+6, ENCA+7, ENO~ , ENO+3, ENO+6, ENO+9, ENO+10, SOC+1, SOC+5, SOC+10, ASET+1, AC+1, AC+3 , AC+4, AC+5, PNDRNA+5, PNDRNOK+5
>> PSGPOSA	AC+2, NC+2
>> PSGPOSD	AC+2, NC+2
>> PSGSTAT	ENO+1, NC+3*, NC+4, NC+5
>> PSGTOL	AC+4, NC+4
>> PSGTOO	AC+4, NC+4
>> PSGUOW	D1+3, AC+4, NC+4
>> PSIVAC	D1+3
>> PSIVACT	D1+2*
>> PSIVALCK	SOC+15*
>> PSIVALT	SOC+15*
>> PSIVREA	SOC+15*
>> PSJCOM	ENO+3*, ENO+4, ENO+6, ENO+7, SOC+6, SOC+9, SOC+10, SOC+11, SOC+12, SOC+14 , OUT+1
PSJDCPRV	REQPROV+2!, REQPROV+15*
PSJDCTYP	ENO+5~, SOC+2, SOC+4, DONE+1!, REQPROV+1, PNDRN~, PNDRN+4, PNDRN+5, PNDRN+8*!
>> PSJIVORF	D1+4
>> PSJNOO	ENCA+3, SOC+2, SOC+16, PNDRN+6
PSJORD	SOC+11, SOC+16~, SOC+17~*, ASET+1, NSET+1
>> PSJSYSL	AC+4, NC+4
>> PSJSYSO	AC+2, NC+2
>> PSJSYSP0	ENA+1, ENCA+5, ENCA+7, ENO+2
>> PSJSYSU	ENA+3, ENA+7, ENO+10, SOC+5, AC+3
>> PSJSYSW0	D1+3
>> Q1	ENCA+1*
>> Q2	ENCA+1, ENCA+2
RESULT	REQPROV+3~, REQPROV+15, REQPROV+16
RSB	REQPROV+3~
RSB(200	REQPROV+8, REQPROV+10
>> SCH	PNDRNA+8*
SD	ENCA+6*, DONE+1!
ST	DONE+1!
>> START	PNDRNA+8*
STP	D1~, D1+1*, D1+2
T	ENA+3, ENA+8, SOC+5, DONE+1!, ASET+1, NSET+1, T+2
U	ENA+1, ENCA+2, ENCA+5, ENCA+7, ENO+2, ENO+9, SOC+1, SOC+15, SOC+16, D1+1 , D1+2, D1+3, ASET+1, NSET+1, AC+1, AC+3, AC+4, AC+5, NC+1, NC+3 , NC+4, RS+2, PNDRNOK+6
UCF	DONE+1!
>> VALMBCK	ENO+8*
>> X	D1+3*
>> XQUIT	ENA+1
Y	DONE+1!, REQPROV+2!, REQPROV+15, PNDRNA+18*, PNDRNA+19

Customize PDF page

Package: Inpatient Medications

Routine: PSGOEC

Information

Source Information

Call Graph

Call Graph Total: 29

Caller Graph

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: