Routine: PSGOESF

Package	Total	Call Graph
Inpatient Medications	11	($$ENMRN,$$ENPDN)^PSGMI ENWALL^PSGNE3 DATE^PSGOER0 HMSG^PSGOERS EN^PSGOEV SET^PSGON ^PSGPER1 ENDDC^PSGSICHK ($$DRUGNAME,$$HIDDEN)^PSJLMUTL $$DD53P45^PSJMISC IN^PSJOCDS
VA FileMan	3	NOW^%DTC ^DIE ^DIR
List Manager	1	(FULL,PAUSE)^VALM1
Pharmacy Data Management	1	($$LS,UNL)^PSSLOCK

Package	Total	Caller Graph
Inpatient Medications	3	PSGOE0 PSGOEF PSJU LM SPEED FINISH
Kernel	1	^ORD(101

Entry Points

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

External References

Name	Field # of Occurrence
NOW^%DTC	OC531+4
^DIE	ENCHK+22
^DIR	EN+16, DONE+1
$$ENMRN^PSGMI	ENCHK+15
$$ENPDN^PSGMI	ENCHK+15
ENWALL^PSGNE3	ENCHK+9
DATE^PSGOER0	ENCHK+7
HMSG^PSGOERS	ENCHK+3
EN^PSGOEV	ENCHK+26
SET^PSGON	ENCHK+2
^PSGPER1	DONE+2
ENDDC^PSGSICHK	OC531+17
$$DRUGNAME^PSJLMUTL	ENCHK+11, ENCHK+18, ENCHK+23
$$HIDDEN^PSJLMUTL	EN+1
$$DD53P45^PSJMISC	OC531+15
IN^PSJOCDS	OC531+23
$$LS^PSSLOCK	ENCHK+11
UNL^PSSLOCK	ENCHK+27
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+18
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+22
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+15, ENCHK+16, ENCHK+18, ENCHK+21*, ENCHK+24, UPDATE+2 , UPDATE+3, UPDATE+4, OC531+10, OC531+11, OC531+22
^PS(53.45 - [#53.45]	UPDATE+1!, UPDATE+3, UPDATE+5, UPDATE+6*
^PS(55 - [#55]	ENCHK+7, ENCHK+22
^PSDRUG - [#50]	OC531+12
^TMP("PSJ"	EN+5, EN+6, EN+7, EN+8
^TMP("PSJON"	ENCHK+3, ENCHK+5, ENCHK+10

Label References

Name	Line Occurrences
DONE	EN+16, ENCHK+4
EN	EN+18, ENCHK+3
OC531	ENCHK+17
UPDATE	ENCHK+25

Naked Globals

Name	Field # of Occurrence
^(	ENCHK+3
^("I"	OC531+12
^(2	ENCHK+21, ENCHK+22, OC531+12
^(6	ENCHK+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	OC531+3~, OC531+4
CODE	EN+3~, EN+5*, EN+6, EN+7, EN+8, EN+9, EN+11
>> D	ENCHK+3*
DA	ENCHK+5, ENCHK+22!
DA(1	ENCHK+5, ENCHK+22
DIE	ENCHK+22!*
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+22!*
DRG	EN+3~, EN+7*, EN+8
>> F	ENCHK+3*
INTERVEN	OC531+3~, OC531+5*
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+10*, OC531+11
PSGDO	ENCHK+15*, DONE+3!
PSGDT	OC531+3~, OC531+4*, OC531+12
>> PSGFD	ENCHK+9, ENCHK+21
PSGFOK	ENCHK+4, ENCHK+8!
PSGFOK(1	ENCHK+8
>> PSGLMT	EN+4*
PSGMR	OC531+22~*
>> PSGMRN	ENCHK+15*
>> 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+18, OC531+19
PSGOERS	ENCHK+3, ENCHK+10, DONE+3!
>> PSGOERS1	ENCHK+3, ENCHK+10
PSGOERS2	ENCHK+3, ENCHK+10, ENCHK+11, ENCHK+18, ENCHK+23, 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+15, ENCHK+16, ENCHK+18, ENCHK+21, ENCHK+23 , ENCHK+24, ENCHK+26, ENCHK+27, DONE+3!, UPDATE+2, UPDATE+3, UPDATE+4, OC531+10, OC531+11, OC531+22 , OC531+23
PSGORQF	ENCHK+18, OC531+17!, OC531+23
>> PSGOSD	ENCHK+3*
>> PSGP	ENCHK+5, ENCHK+7, ENCHK+9, ENCHK+11, ENCHK+18, ENCHK+22, ENCHK+23, ENCHK+27, OC531+17
PSGPDRGN	ENCHK+15*, DONE+3!
>> PSGPXN	DONE+2
PSGRLAST	EN+9, EN+12, EN+14, DONE+3!
PSGSCH	ENCHK+16*, DONE+3!
>> PSGSD	ENCHK+9, ENCHK+21, ENCHK+22
PSGSFD	EN+3~, ENCHK+5*, ENCHK+7
PSGSI	ENCHK+16*, DONE+3!
>> PSGST	ENCHK+15*
>> PSGWLL	ENCHK+7*
PSJALLGY	OC531+3~
PSJALLGY(	OC531+14*
PSJALLGY(0	OC531+16
PSJDD	OC531+3~, OC531+11, OC531+12, OC531+14, OC531+15, OC531+16*, OC531+17, OC531+23
PSJDDI	OC531+3~
PSJIREQ	OC531+3~, OC531+5*
PSJJDRUG	UPDATE+4*, UPDATE+5, UPDATE+6!
PSJOCDS	OC531+3~
>> PSJOCNT	EN+4
PSJPDRG	OC531+3~
PSJRXREQ	OC531+3~, OC531+5*
PSJSPEED	ENCHK+1*, DONE+3!, OC531+9, OC531+15, OC531+19
>> PSJSYSP	UPDATE+1, UPDATE+3, UPDATE+5, UPDATE+6
>> PSJSYSP0	ENCHK+4
>> PSJSYSW0	ENCHK+7, ENCHK+9
PSJX	OC531+3~, OC531+12*, OC531+13
>> Q	ENCHK+2*
ST	EN+3~, EN+6*, EN+7, EN+8
U	EN+15, EN+17, ENCHK+5, ENCHK+6, ENCHK+15, ENCHK+16, ENCHK+21, ENCHK+22, OC531+12, OC531+22
>> VALMBCK	EN+1*
X	EN+16!, EN+17, ENCHK+2, ENCHK+4, ENCHK+15, ENCHK+21, ENCHK+22, OC531+5
>> X1	ENCHK+2*
Y	EN+17, EN+18, ENCHK+2, ENCHK+3, DONE+3!, OC531+5*

Customize PDF page

Package: Inpatient Medications

Routine: PSGOESF

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: