Routine: PSGOEVS

Call Graph

Package	Total	Call Graph
Inpatient Medications	6	($$ENDTC,$$ENNPN)^PSGMI $$ENACTION^PSGOE1 EN^PSGOEV ENWO^PSGON GETUD^PSJLMGUD $$DRUGNAME^PSJLMUTL
VA Fileman	2	NOW^%DTC ^DIR
Pharmacy Data Management	1	($$LS,UNL)^PSSLOCK
Registration	1	FULL^VALM1

Package	Total	Caller Graph
Inpatient Medications	1	PSGOE0

Name	Comments	DBIA/ICR reference
EN	;
DRUGN()
CHKCOM()	; Check if this order is a complex order
FROMOERR()
NOTREN	;
RENEWED()	; was it created by a renew?
VERIFY(PSJSPEED)	;
NAME(PSJRB)
EN2
DONE	;
ACTIONS()
VMSG	;
CHKIV()	; check if this order is an IV
CHKVER()	; check if already verified

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,"THIS FUNCTION NOT AVAILABLE TO WARD STAFF." Line Location: EN+1
Function Call: WRITE	Prompt: !!,"Speed verify is not available for IVs." Line Location: EN+2
Function Call: WRITE	Prompt: !,"Note: Only orders created by a RENEW can be speed verified." Line Location: EN+3
Function Call: WRITE	Prompt: !,"NO ACTION TAKEN ON ORDER",! Line Location: VERIFY+1
Function Call: WRITE	Prompt: !," Order ",PSGOEVS2," is an IV order.",! Line Location: CHKIV+2
Function Call: WRITE	Prompt: !," Order ",PSGOEVS2," is part of a complex order series, No change made.",! Line Location: CHKCOM+2
Function Call: WRITE	Prompt: !," Order ",PSGOEVS2," is part of a complex order series, No change made.",! Line Location: CHKCOM+4
Function Call: WRITE	Prompt: !!," ",PSGOEVS2,". ",PSJRB,!," was verified by ",N," on " Line Location: VMSG+3
Function Call: WRITE	Prompt: $$ENDTC^PSGMI(PSGOD),"." Line Location: VMSG+4
Function Call: WRITE	Prompt: !," was not created from a renew, No change made!" Line Location: NOTREN+1
Function Call: WRITE	Prompt: !,PSGOEVS2,". CAN'T BE VERIFIED FOR SOME REASON! ",PSGACT Line Location: ACTIONS+3
Routine Call	DIR Line Location: DONE+3

Name	Line Occurrences (* Changed, ! Killed)
^PS(53.1 - [#53.1]	RENEWED+8, RENEWED+11, CHKCOM+3, FROMOERR+1
^PS(55 - [#55]	RENEWED+3, RENEWED+6, CHKVER+1, CHKCOM+3, VMSG+1
^TMP("PSJON"	EN2+3

Name	Field # of Occurrence
^(4	CHKVER+1

Name	Field # of Occurrence
%	EN2, DONE+1!
DA	DONE+1!
DIR	DONE+3~
DIR(0	DONE+3*
N	DONE+1!, CHKVER+1, VMSG+1, VMSG+3
>> PSGACT	ACTIONS+3
PSGAL	DONE+1!
>> PSGDT	EN2*
PSGID	DONE+1!
PSGLMT	EN2+1*, DONE+1!
PSGOD	DONE+1!, CHKVER+1*, VMSG+4
PSGODDD	EN2+2, DONE+1!
PSGODDD(	EN2+2
PSGOEVS	EN2+2*, DONE+1!
PSGOEVS1	EN2+2*, DONE+1!
PSGOEVS2	EN2+2*, EN2+3, DONE+1!, RENEWED+5, RENEWED+10, CHKIV+2, CHKCOM+2, CHKCOM+4, VMSG+3, ACTIONS+3
>> PSGONV	EN2*, EN2+1
PSGONW	EN2+1*, DONE+2!
PSGORD	EN2+3*, DONE+2!, RENEWED+2, RENEWED+3, RENEWED+6, RENEWED+7, RENEWED+8, RENEWED+11, VERIFY+1, VERIFY+2 , VERIFY+3, CHKVER+1, CHKIV+1, CHKCOM+2, CHKCOM+3, VMSG+1, DRUGN, ACTIONS+2, FROMOERR+1
>> PSGP	RENEWED+3, RENEWED+6, VERIFY+1, VERIFY+2, VERIFY+3, CHKVER+1, CHKCOM+3, VMSG+1, DRUGN, ACTIONS+2
PSJCOM	EN2+7~, CHKCOM+1, CHKCOM+2, CHKCOM+3*, CHKCOM+4, CHKCOM+5
>> PSJOCNT	EN+2, EN2
PSJRB	EN2+1, DONE+2!, RENEWED+3, RENEWED+4, RENEWED+5, RENEWED+8, RENEWED+9, RENEWED+10, VMSG+1, VMSG+2* , VMSG+3, NAME~, NAME+1, NAME+2, NAME+3
PSJRENEW	DONE+2!, RENEWED+1, RENEWED+12, NOTREN+2
PSJSPEED	EN2*, EN2+10, DONE+2!, VERIFY~
>> PSJSYSU	EN+1, CHKVER+1
U	CHKCOM+3
X	EN2+1!