Routine: PSGOECS

Package	Total	Call Graph
Inpatient Medications	13	^PSGAL5 ($$PNDRNA,$$REQPROV,AC,ASET,DONE,NC,NSET)^PSGOEC ENWO^PSGON (ENL,ENPOS)^PSGVDS (,SPDCIV)^PSIVSPDC $$CODES^PSIVUTL CMPLX^PSJCOM1 EN1^PSJHL2 INIT^PSJLMHED DSPLORDV^PSJLMUT1 $$DRUGNAME^PSJLMUTL $$LOCK^PSJOEA $$ENNOO^PSJUTL5
VA Fileman	3	NOW^%DTC YN^DICN ^DIE
IHS Changes To Pharmacy	1	$$INPTCOM^APSPFUNC
Pharmacy Data Management	1	($$LS,UNL)^PSSLOCK
Registration	1	FULL^VALM1

Package	Total	Caller Graph
Inpatient Medications	4	PSGOE0 PSGOEC PSGOEE PSIVSPDC

Entry Points

Name	Comments	DBIA/ICR reference
RESET	;
AC	; discontinue active order
EN	; enter here
NM	;
CHKCOM	;Check to see if order is part of complex order series.
NC2	; Called from PNDRN to discontinue both pending renewal and original order
NC	; discontinue non-verifed order
AM	;
DCOR	; Create DC order/update stop date in OE/RR.
EN1	;
ENOR	;
DONE	;
ENOR2	;Check to see if order being DC'd is a Pending Renewal and is being DC'd due to edit.
DCCOM	;DC pending/non-verified complex order
PNDRN(PSJDCTYP)	; Discontinue both pending renewal and original order

External References

Name	Field # of Occurrence
NOW^%DTC	EN1+2
$$INPTCOM^APSPFUNC	EN1+7
YN^DICN	CHKCOM+9
^DIE	AC+9, NC2+3, ENOR2+3
^PSGAL5	AM+1, AC+8
$$PNDRNA^PSGOEC	NC+1
$$REQPROV^PSGOEC	EN1+9
AC^PSGOEC	ENOR+2
ASET^PSGOEC	ENOR+2
DONE^PSGOEC	ENOR+1, ENOR+3
NC^PSGOEC	ENOR+1
NSET^PSGOEC	ENOR+1
ENWO^PSGON	EN1+1
ENL^PSGVDS	AC+13, NC2+7
ENPOS^PSGVDS	AM+2, NM+2
^PSIVSPDC	EN+3
SPDCIV^PSIVSPDC	EN1+33, CHKCOM+16
$$CODES^PSIVUTL	AC+5
CMPLX^PSJCOM1	CHKCOM+8
EN1^PSJHL2	AC+12, NC2+6, DCOR+4, ENOR2+3
INIT^PSJLMHED	RESET+1, RESET+2
DSPLORDV^PSJLMUT1	EN1+22, EN1+27, CHKCOM+4
$$DRUGNAME^PSJLMUTL	AC+3, AC+5, AC+6, NC2+1, EN1+21, EN1+26, CHKCOM+7
$$LOCK^PSJOEA	DCCOM+1
$$ENNOO^PSJUTL5	EN1+5
$$LS^PSSLOCK	EN1+20, CHKCOM+12, PNDRN+6
UNL^PSSLOCK	NC2+8, EN1+35, CHKCOM+17
FULL^VALM1	EN+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"...marking ",$P(X,U),"..." Line Location: AM+1
Function Call: WRITE	Prompt: "." Line Location: AM+1
Function Call: WRITE	Prompt: "." Line Location: AM+1
Function Call: WRITE	Prompt: !,"...marking ",$P(X,U),"..." Line Location: NM+1
Function Call: WRITE	Prompt: "." Line Location: NM+1
Function Call: WRITE	Prompt: !,$P($$DRUGNAME^PSJLMUTL(DFN,PSGORD),U,1),!,"NO ACTION WAS TAKEN ON DONE ORDER",!,$C(7) Line Location: AC+3
Function Call: WRITE	Prompt: !,$P($$DRUGNAME^PSJLMUTL(DFN,PSGORD),U,1),!,"NO ACTION WAS TAKEN ON "_$$CODES^PSIVUTL(XX,55.06,28)_" ORDER",!,$C(7) Line Location: AC+5
Function Call: WRITE	Prompt: !,"...discontinuing ",$P(X,U),"...",! Line Location: AC+8
Function Call: WRITE	Prompt: !,"...discontinuing ",$P(X,U),"...",! Line Location: NC2+3
Function Call: WRITE	Prompt: ! Line Location: EN1+10
Function Call: WRITE	Prompt: ! Line Location: EN1+22
Function Call: WRITE	Prompt: !,"NO ACTION WAS TAKEN",!,$C(7) Line Location: EN1+22
Function Call: WRITE	Prompt: !,$P($$DRUGNAME^PSJLMUTL(DFN,PSGORD),"^",1),!,"NO ACTION WAS TAKEN",!,$C(7) Line Location: EN1+26
Function Call: WRITE	Prompt: ! Line Location: EN1+27
Function Call: WRITE	Prompt: !,"NO ACTION WAS TAKEN",!,$C(7) Line Location: EN1+27
Function Call: WRITE	Prompt: ! Line Location: CHKCOM+4
Function Call: WRITE	Prompt: !,$P($$DRUGNAME^PSJLMUTL(PSGP,PSGORD),"^",1) Line Location: CHKCOM+7
Function Call: WRITE	Prompt: !!,"Do you want to discontinue this series of complex orders" Line Location: CHKCOM+9
Function Call: WRITE	Prompt: !,"Order # ",PSGOECS2," could not be discontinued.",!,$C(7) Line Location: DCCOM+1
Routine Call	DIE Line Location: AC+9 NC2+3 ENOR2+3

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]	NM+1, NC+1, NC2+1, NC2+2, NC2+7, ENOR2+1, ENOR2+2, ENOR2+3, CHKCOM+1, CHKCOM+2 , DCCOM+3, PNDRN+4
^PS(55 - [#55]	AM+1, AC+2, AC+4, AC+9, AC+13*, ENOR2+1, ENOR2+2, CHKCOM+1, CHKCOM+2, CHKCOM+11 , CHKCOM+14
^TMP("PSJON"	EN1+4, EN1+18

Label References

Name	Line Occurrences
@(	PNDRN+7
AC	EN1+31, CHKCOM+15
AM	AC+7
CHKCOM	EN1+25
DCCOM	EN1+19
DONE	RESET+1
EN1	EN1+5, EN1+9
ENOR2	ENOR+1
NC	EN1+32, DCCOM+3
NC2	PNDRN+2
NM	NC2+2
PNDRN	NC+1
RESET	EN1+1

Naked Globals

Name	Field # of Occurrence
^(2	AC+9*
^(4	NC2+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN1+2, CHKCOM+9*, CHKCOM+10
>> CF	ENOR+1*, ENOR+2
COMFLG	EN1+13~, EN1+25, CHKCOM+1, CHKCOM+10, CHKCOM+11, CHKCOM+12*, CHKCOM+13
DA	AM+1, NM+1, AC+1!, AC+2, AC+4, AC+9, AC+12, AC+13, NC2+1!, NC2+2 , NC2+7, DONE+1!, ENOR+1!, ENOR2+2!
DA(1	AC+1, AC+12, ENOR+2, ENOR2+2
>> DFN	AC+3, AC+5, NC2+8, EN1+20, EN1+21, EN1+26, EN1+35, CHKCOM+12, CHKCOM+17, DCCOM+1 , PNDRN+6
DIE	AC+9, NC2+3, DONE+1!, ENOR2+2*
DP	AC+9*, DONE+1!
DR	AC+9, NC2+3, DONE+1!, ENOR2+2!*
DUZ	AM+1, NM+1, AC+13, NC2+2, NC2+7
>> EXITLOOP	EN1+13, EN1+15, EN1+17
INCOM	AC+11, NC2+5, EN+1~, EN+2, EN1+7, DCOR+3
ND5310	PNDRN+4~*, PNDRN+5
O	CHKCOM+11~, CHKCOM+14~
>> ON	EN1+18, EN1+23, EN1+24, EN1+28, EN1+29, CHKCOM+5, CHKCOM+6, CHKCOM+16
OO	CHKCOM+11~, CHKCOM+12, CHKCOM+14~, CHKCOM+15, CHKCOM+16
ORETURN	DONE+1!
ORIFN	DONE+1!
ORNATR	DONE+1!
PSGAL	DONE+1!
PSGAL("C"	AM+1, AC+8
PSGALR	AC+9, DONE+1!, ENOR+1
>> PSGDT	AM+1, AM+2, NM+1, NM+2, AC+9, AC+13, NC2+7, EN1+2*
>> PSGEDIT	ENOR+1*, ENOR2+1
PSGLMT	EN1+1*, DONE+1!
PSGODDD	EN1+3, EN1+14, DONE+1!
PSGODDD(	EN1+3, EN1+16
PSGOECS	EN1+3, EN1+14, EN1+16, DONE+1!
PSGOECS1	EN1+3, EN1+15, EN1+16, DONE+1!
PSGOECS2	EN1+3, EN1+4, EN1+16, EN1+17, EN1+18, DONE+1!, DCCOM+1
>> PSGONC	EN1+1*
PSGONW	EN1+1*, DONE+1!
PSGORD	AM+2, NM+2, AC+1, AC+3, AC+5, AC+6, AC+12, NC+1, NC2+1, NC2+6 , NC2+7, NC2+8, EN1+4, EN1+18, EN1+19, EN1+20, EN1+21, EN1+22, EN1+26, EN1+27 , EN1+31, EN1+32, EN1+33, EN1+35, RESET+1, DONE+1!, DCOR+1, DCOR+4, ENOR+1, ENOR2+1 , ENOR2+2, ENOR2+3, CHKCOM+1, CHKCOM+2, CHKCOM+4, CHKCOM+7, CHKCOM+8, CHKCOM+12, CHKCOM+15~, CHKCOM+16~ , CHKCOM+17, DCCOM+1, DCCOM+2, DCCOM+3, PNDRN+1, PNDRN+4, PNDRN+5~, PNDRN+6, PNDRN+7, PNDRN+8*
PSGORD1	DCCOM+2~*, DCCOM+3
>> PSGP	AM+1, AC+1, AC+2, AC+4, AC+6, AC+9, AC+12, AC+13, NC2+1, NC2+6 , EN1+22, EN1+27, DCOR+4, ENOR+2, ENOR2+1, ENOR2+2, ENOR2+3, CHKCOM+1, CHKCOM+2, CHKCOM+4 , CHKCOM+7, CHKCOM+8
PSGPOSA	AM+2, NM+2, DONE+1!
PSGPOSD	AM+2, NM+2, DONE+1!
>> PSGSD	ENOR2+1, ENOR2+2
PSGTOL	AC+13, NC2+7, DONE+1!
PSGTOO	AC+13, NC2+7, DONE+1!
PSGUOW	AC+13, NC2+7, DONE+1!
PSJCOM	EN1+13~, EN1+30, CHKCOM+1, CHKCOM+3, CHKCOM+8, CHKCOM+11, CHKCOM+14
PSJDCTYP	NC+1, NC2+8, PNDRN~, PNDRN+2, PNDRN+5*, PNDRN+6!
>> PSJIVPRF	EN+3
PSJLINE	EN1+22~, EN1+27~, CHKCOM+4~*
>> PSJNOO	EN1+5*, PNDRN+3
PSJO	DCCOM+3~*
>> PSJOC(	EN1+23, EN1+24, EN1+28, EN1+29, CHKCOM+5, CHKCOM+6
>> PSJOCNT	EN1+1
PSJSTAT	CHKCOM+2~*, CHKCOM+3
>> PSJSYSL	AC+13, NC2+7
>> PSJSYSO	AM+2, NM+2
>> PSJSYSP0	AC+7, NC2+2
>> PSJSYSU	AC+8, AC+9, NC2+3
PSJTX	AC+10~, AC+11, NC2+4~, NC2+5, NC2+6, DCOR+2~, DCOR+3*, DCOR+4
>> PSOC	DCOR+1*, DCOR+4
>> T	ENOR+1*
TMPORD	PNDRN+1~*, PNDRN+8
U	AM+1, NM+1, AC+3, AC+4, AC+5, AC+8, NC+1, NC2+3, ENOR2+1, ENOR2+2 , ENOR2+3, CHKCOM+1
>> VALMBCK	RESET+2*
>> VALMBK	RESET+1*
X	AM+1, NM+1, AC+2, AC+3, AC+6, AC+8, NC2+1, NC2+3, EN1+1!, EN1+23 , EN1+24, EN1+28, EN1+29, EN1+36, CHKCOM+5*, CHKCOM+6
XX	AC+4~*, AC+5

Customize PDF page

Package: Inpatient Medications

Routine: PSGOECS

Information

Source Information

Call Graph

Call Graph Total: 19

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: