Routine: PSGOESF

Call Graph Total: 13

Package	Total	Call Graph
Inpatient Medications	9	($$ENMRN,$$ENPDN)^PSGMI ENWALL^PSGNE3 DATE^PSGOER0 HMSG^PSGOERS EN^PSGOEV SET^PSGON ^PSGPER1 (ENDDC,IVSOL)^PSGSICHK ($$DRUGNAME,$$HIDDEN)^PSJLMUTL
VA Fileman	2	^DIE ^DIR
Pharmacy Data Management	1	($$LS,UNL)^PSSLOCK
Registration	1	(FULL,PAUSE)^VALM1

Package

Total

Call Graph

($$ENMRN,$$ENPDN)^PSGMI ENWALL^PSGNE3 DATE^PSGOER0 HMSG^PSGOERS EN^PSGOEV SET^PSGON ^PSGPER1 (ENDDC,IVSOL)^PSGSICHK
($$DRUGNAME,$$HIDDEN)^PSJLMUTL

VA Fileman

^DIE ^DIR

Pharmacy Data Management

($$LS,UNL)^PSSLOCK

Registration

(FULL,PAUSE)^VALM1

Package	Total	Caller Graph
Inpatient Medications	2	PSGOE0 PSGOEF

Package

Total

Caller Graph

Inpatient Medications

PSGOE0 PSGOEF

Name	Comments	DBIA/ICR reference
EN	;
HELP
UPDATE
DONE	; Kill and exit.
ENCHK	;
OC531	;* Order checks for Speed finish and regular finish

External References

Name	Field # of Occurrence
^DIE	ENCHK+20
^DIR	EN+16, DONE+1
$$ENMRN^PSGMI	ENCHK+17
$$ENPDN^PSGMI	ENCHK+17
ENWALL^PSGNE3	ENCHK+9
DATE^PSGOER0	ENCHK+7
HMSG^PSGOERS	ENCHK+3
EN^PSGOEV	ENCHK+24
SET^PSGON	ENCHK+2
^PSGPER1	DONE+2
ENDDC^PSGSICHK	OC531+3
IVSOL^PSGSICHK	OC531+5
$$DRUGNAME^PSJLMUTL	ENCHK+11, ENCHK+16, ENCHK+21
$$HIDDEN^PSJLMUTL	EN+1
$$LS^PSSLOCK	ENCHK+11
UNL^PSSLOCK	ENCHK+25
FULL^VALM1	EN+4
PAUSE^VALM1	EN+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"There are no orders which can be Speed Finished at this time.",!,"Only PENDING RENEWALS can be Speed Finished." Line Location: EN+13
Function Call: WRITE	Prompt: $C(7),!!,"??" Line Location: EN+18
Function Call: WRITE	Prompt: ! Line Location: ENCHK+7
Function Call: WRITE	Prompt: $C(7),!,"...order",$E("s",$L(PSGODDD(1),",")>2)," NOT finished..." Line Location: ENCHK+8
Function Call: WRITE	Prompt: !," ",PSGOERS2,". ",$P($$DRUGNAME^PSJLMUTL(PSGP,PSGORD),"^")," ",$P($G(^PS(53.1,+PSGORD,.2)),"^",2),!,"...No action taken on this order...",! Line Location: ENCHK+11
Function Call: WRITE	Prompt: !!," ",PSGOERS2,". ",$P($$DRUGNAME^PSJLMUTL(PSGP,PSGORD),"^")," ",$P($G(^PS(53.1,+PSGORD,.2)),"^",2),!,"...No action taken on this order...",! Line Location: ENCHK+16
Function Call: WRITE	Prompt: !!," Select the orders to be speed finished. Only orders listed under the PENDING",!,"RENEWALS heading are selectable. The start and stop date/times specified will" Line Location: HELP+1
Function Call: WRITE	Prompt: !,"be used for all orders selected to be finished using this function.",! Line Location: HELP+2
Routine Call	DIE Line Location: ENCHK+20
Routine Call	DIR Line Location: EN+16 DONE+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(53.1 - [#53.1]	ENCHK+3, ENCHK+5, ENCHK+6, ENCHK+11, ENCHK+16, ENCHK+17, ENCHK+18, ENCHK+19*, ENCHK+22, UPDATE+2 , UPDATE+3, UPDATE+4, OC531+3, OC531+5
^PS(53.45 - [#53.45]	UPDATE+1!, UPDATE+3, UPDATE+5, UPDATE+6*
^PS(55 - [#55]	ENCHK+7, ENCHK+20
^TMP("PSJ"	EN+5, EN+6, EN+7, EN+8
^TMP("PSJON"	ENCHK+3, ENCHK+5, ENCHK+10
^TMP($J	OC531+4!

Name	Line Occurrences
DONE	EN+16, ENCHK+4
EN	EN+18, ENCHK+3
OC531	ENCHK+15
UPDATE	ENCHK+23

Name	Field # of Occurrence
^(	ENCHK+3
^(2	ENCHK+19, ENCHK+20
^(6	ENCHK+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CODE	EN+3~, EN+5*, EN+6, EN+7, EN+8, EN+9, EN+11
>> D	ENCHK+3*
DA	ENCHK+5, ENCHK+20!
DA(1	ENCHK+5, ENCHK+20
DIE	ENCHK+20!*
DIR	EN+15~, EN+16!, DONE+1!
DIR("?"	EN+15*
DIR("??"	EN+15*
DIR("A"	EN+15*
DIR(0	EN+15, DONE+1
>> DIRUT	EN+16
DR	ENCHK+20!*
DRG	EN+3~, EN+7*, EN+8
>> F	ENCHK+3*
INTERVEN	OC531+1~, OC531+2*
L1	EN+15~, EN+17
L2	EN+15~*
LOOP	UPDATE+1~, UPDATE+2*, UPDATE+3, UPDATE+4, UPDATE+5, UPDATE+6
NF	DONE+3!
ON	EN+3~, EN+8*
PENDCT	EN+3~, EN+4, EN+11, EN+12
>> PSGDDI	OC531+5*
PSGDO	ENCHK+17*, DONE+3!
>> PSGFD	ENCHK+9, ENCHK+19
PSGFOK	ENCHK+4, ENCHK+8!
PSGFOK(1	ENCHK+8
>> PSGLMT	EN+4*
>> PSGMRN	ENCHK+17*
>> PSGNEDFD	ENCHK+9
PSGODDD	ENCHK+2!*, ENCHK+3, ENCHK+10, DONE+3!
PSGODDD(	ENCHK+3, ENCHK+10
PSGODDD(1	ENCHK+2*, ENCHK+5, ENCHK+8
>> PSGOEE	ENCHK+7*
>> PSGOEFF	ENCHK+10*, ENCHK+16
PSGOERS	ENCHK+3, ENCHK+10, DONE+3!
>> PSGOERS1	ENCHK+3, ENCHK+10
PSGOERS2	ENCHK+3, ENCHK+10, ENCHK+11, ENCHK+16, ENCHK+21, DONE+3!
>> PSGOFD	ENCHK+5*
PSGONF	EN+3~, EN+4, EN+8, EN+9, EN+14*, EN+15, EN+17
PSGONF2	EN+3~, EN+4, EN+9, EN+12*, EN+13, EN+14
PSGORD	ENCHK+5, ENCHK+6, ENCHK+7, ENCHK+10*, ENCHK+11, ENCHK+16, ENCHK+17, ENCHK+18, ENCHK+19, ENCHK+21 , ENCHK+22, ENCHK+24, ENCHK+25, DONE+3!, UPDATE+2, UPDATE+3, UPDATE+4, OC531+3, OC531+5
PSGORQF	ENCHK+16, OC531+3!, OC531+4!
>> PSGOSD	ENCHK+3*
>> PSGP	ENCHK+5, ENCHK+7, ENCHK+9, ENCHK+11, ENCHK+16, ENCHK+20, ENCHK+21, ENCHK+25, OC531+3
PSGPDRGN	ENCHK+17*, DONE+3!
>> PSGPXN	DONE+2
PSGRLAST	EN+9, EN+12, EN+14, DONE+3!
PSGSCH	ENCHK+18*, DONE+3!
>> PSGSD	ENCHK+9, ENCHK+19, ENCHK+20
PSGSFD	EN+3~, ENCHK+5*, ENCHK+7
PSGSI	ENCHK+18*, DONE+3!
>> PSGST	ENCHK+17*
>> PSGWLL	ENCHK+7*
>> PSJDD	OC531+5*
PSJDDI	OC531+1~
PSJIREQ	OC531+1~, OC531+2*
PSJJDRUG	UPDATE+4*, UPDATE+5, UPDATE+6!
>> PSJOCNT	EN+4
PSJPDRG	OC531+1~, OC531+5!
PSJRXREQ	OC531+1~, OC531+2*
PSJSPEED	ENCHK+1*, DONE+3!
>> PSJSYSP	UPDATE+1, UPDATE+3, UPDATE+5, UPDATE+6
>> PSJSYSP0	ENCHK+4
>> PSJSYSW0	ENCHK+7, ENCHK+9
>> Q	ENCHK+2*
ST	EN+3~, EN+6*, EN+7, EN+8
U	EN+15, EN+17, ENCHK+5, ENCHK+6, ENCHK+17, ENCHK+18, ENCHK+19, ENCHK+20
>> VALMBCK	EN+1*
X	EN+16!, EN+17, ENCHK+2, ENCHK+4, ENCHK+17, ENCHK+19, ENCHK+20, OC531+2
>> X1	ENCHK+2*
Y	EN+17, EN+18, ENCHK+2, ENCHK+3, DONE+3!, OC531+2*

Customize PDF page

Package: Inpatient Medications

Routine: PSGOESF

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: