Routine: PSJOREN

Information

PSJOREN ;BIR/CML3-INTERFACE FOR INPATIENT PHARMACY AND OE/RR ;07 AUG 97 / 3:21 PM

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Inpatient Medications	9	^PSGAL5 ^PSGOE6 ^PSGOE7 ^PSGOES ^PSGOETO STOREINT^PSGSICH1 LOG^PSIVORAL EN1^PSJHL2 $$DATE^PSJUTL2
VA FileMan	1	^DIC

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 3

Package	Total	Caller Graph
Inpatient Medications	3	PSGOER PSIVOPT2 PSJHL2

Entry Points

Name	Comments	DBIA/ICR reference
ENTRY	;
GO	; get orders
DONE	;
OUT	;
PS	;
ENBKOUT(DFN,ON)	; Undo Renew.
ENUDTX(DFN,ON,RES)	; Set up ORTX( Array for UD orders.

External References

Name	Field # of Occurrence
^DIC	PS+2
^PSGAL5	ENBKOUT+16
^PSGOE6	GO+2
^PSGOE7	GO+2
^PSGOES	GO+2
^PSGOETO	GO+2
STOREINT^PSGSICH1	ENUDTX+1
LOG^PSIVORAL	ENBKOUT+11
EN1^PSJHL2	ENBKOUT+17
$$DATE^PSJUTL2	ENBKOUT+8, ENBKOUT+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"THIS PATIENT HAS NOT BEEN ADMITTED.",!,"(Any non-IV orders entered will be discontinued by the pharmacist...)" Line Location: ENTRY+2
Function Call: WRITE	Prompt: $C(7),!!,"The selected PROVIDER is NOT qualified to write MEDICATION orders. You must",!,"select a valid provider to be able to continue with Inpatient Medications." Line Location: PS+1
Function Call: WRITE	Prompt: ! Line Location: PS+2
Function Call: WRITE	Prompt: $C(7)," (Required.)" Line Location: PS+2
Routine Call	DIC Line Location: PS+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	ENTRY+2
^ORD(100.98 - [#100.98]	GO+1
^PS(50.3 - [#50.3]	ENUDTX+5
^PS(51.2 - [#51.2]	GO+1, ENUDTX+6
^PS(53.1 - [#53.1]	ENBKOUT+4, ENUDTX+4
^PS(53.3 - [#53.3]	ENBKOUT+10
^PS(55 - [#55]	ENBKOUT+7, ENBKOUT+8, ENBKOUT+9, ENBKOUT+13, ENBKOUT+14, ENBKOUT+15, ENUDTX+3, ENUDTX+7*
^TMP("PSJINTER"	ENUDTX+9!
^TMP($J	ENUDTX+9!

Naked Globals

Name	Field # of Occurrence
^(	ENUDTX+3, ENUDTX+4
^(0	ENBKOUT+8, ENBKOUT+9, ENBKOUT+13, ENBKOUT+15
^(2	ENBKOUT+9*, ENUDTX+3, ENUDTX+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	ENBKOUT+2~, ENBKOUT+15*
DA(1	ENBKOUT+15*
DFN	ENBKOUT~, ENBKOUT+7, ENBKOUT+8, ENBKOUT+9, ENBKOUT+13, ENBKOUT+14, ENBKOUT+15, ENBKOUT+17, ENUDTX~, ENUDTX+3 , ENUDTX+7
DIC	PS+2!*, PS+3!
DIC("A"	PS+2*
DIC("S"	PS+2*
DIC(0	PS+2*
DO	ENUDTX+2~
>> DTOUT	PS+2
>> DUOUT	PS+2
MRN	ENUDTX+2~
ND0	ENUDTX+2~, ENUDTX+3, ENUDTX+4, ENUDTX+6
ND2	ENUDTX+2~, ENUDTX+3, ENUDTX+4, ENUDTX+6
NDP1	ENUDTX+2~, ENUDTX+3, ENUDTX+4, ENUDTX+5, ENUDTX+6
ON	ENBKOUT~, ENBKOUT+1, ENBKOUT+4, ENUDTX~, ENUDTX+3, ENUDTX+4, ENUDTX+7
ON55	ENBKOUT+2~, ENBKOUT+10*
ORTX	ENUDTX+2!
ORTX(	ENUDTX+3, ENUDTX+4
ORTX(1	ENUDTX+5*
ORTX(2	ENUDTX+6*
>> ORVP	ENTRY+2
PD	ENUDTX+2~
PSGAL	ENBKOUT+2~
PSGAL("C"	ENBKOUT+15*
>> PSGOEAV	GO+1*
>> PSGOEDMR	GO+1*
PSGOEE	ENTRY+1!, GO+2!
>> PSGOEORF	GO+1*
>> PSGOEOS	GO+2*
>> PSGOEPR	GO+1*
PSGOES	ENTRY+1!
PSIVACT	ENBKOUT+2~, ENBKOUT+10*
PSIVAL	ENBKOUT+2~, ENBKOUT+3, ENBKOUT+10
PSIVALT	ENBKOUT+2~, ENBKOUT+10*
PSIVREA	ENBKOUT+2~, ENBKOUT+10*
>> PSJHLMTN	ENBKOUT+3, ENBKOUT+17*
PSJNOW	ENBKOUT+8~, ENBKOUT+9, ENBKOUT+14~, ENBKOUT+15
PSJOC	ENBKOUT+2~, ENBKOUT+3*, ENBKOUT+17
PSJOC2	ENBKOUT+2~, ENBKOUT+3*, ENBKOUT+17
PSJOLD	ENBKOUT+2~, ENBKOUT+5*, ENBKOUT+6, ENBKOUT+7, ENBKOUT+8, ENBKOUT+9, ENBKOUT+10, ENBKOUT+12, ENBKOUT+13, ENBKOUT+14 , ENBKOUT+15, ENBKOUT+17
>> PSJORPF	PS+3*
>> PSJORPV	GO+1, PS+3*
>> PSJORPVN	PS+3*
>> PSJORTOU	GO+1*
PSJOSTOP	ENBKOUT+8~, ENBKOUT+9, ENBKOUT+14~, ENBKOUT+15
PSJRES	ENBKOUT+2~, ENBKOUT+5*
PSJSTAT	ENBKOUT+8~, ENBKOUT+9, ENBKOUT+13~, ENBKOUT+15
PSJUNDC	ENBKOUT+2~, ENBKOUT+10*
>> PSOC	ENBKOUT+3, ENBKOUT+10, ENBKOUT+17*
RES	ENUDTX~, ENUDTX+5
SCH	ENUDTX+2~
ST	ENUDTX+2~
U	ENBKOUT+5, ENBKOUT+9, ENBKOUT+10, ENBKOUT+15, ENUDTX+5, ENUDTX+6
>> X	GO+2, ENBKOUT+4, ENBKOUT+5, ENUDTX+3, ENUDTX+4
>> Y	GO+2, PS+2, PS+3, ENUDTX+3, ENUDTX+4
>> Y(0	PS+3

Customize PDF page

Package: Inpatient Medications