Routine: PSJORUT2

Information

PSJORUT2 ;BIR/MLM-MISC. PROCEDURE CALLS FOR OE/RR 3.0 (CONT.) ;03 Aug 98 / 8:42 AM

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
Inpatient Medications	1	ENDDIV^PSJORUTL
National Drug File	1	($$DCLASS,$$VAGN)^PSNAPIS
VA FileMan	1	NOW^%DTC

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: 10

Package	Total	Caller Graph
Order Entry Results Reporting	6	OCXOZ0A OCXOZ0C ORBCMA32 ORCACT03 ORCDPSIV ORWDPS33
Outpatient Pharmacy	3	PSODDPR4 PSODDPR8 PSOORDRG
Inpatient Medications	1	PSJOEEW

Entry Points

Name	Comments	DBIA/ICR reference
ENVAC(PN)	; Find VA CLASS of VA Product Name
ENVAGN(PN)	; Return VA Generic Name for specified VA Product Name.
ENVOL(PN,ARRAY)	;	ICR #2402 Status: Active Usage: Private
ENVOL2(PN,ARRAY)	;Only for Med Button IV orders.	ICR #4074 Status: Active Usage: Private
SENVOL(PN,PSJ)	;Return array listing volume (base only) and volume units for the specified additive or solution.
ENREF(PRX)	; Return number of refills remaining.
ENCHK(DFN,PSJINX)		ICR #2376 Status: Active Usage: Private
UD	;*** Get the dispense drugs for the Unit Dose orders.
PIV	;*** Get the dispense drugs for the Pending IV orders.
IV	;*** Get the dispense drugs for the IV orders.
NEWIV	;*** Get the dispense drugs for the newly entered IV order.
DDRUG	;*** Set PSJ(DDRUG NAME) arrays.	ICR #2376 Status: Active Usage: Private
PRCHK(PSJ)	; Check if authorized to write med orders.
ENNG(PSJDPT,PSJNUM)		ICR #2402 Status: Active Usage: Private

External References

Name	Field # of Occurrence
NOW^%DTC	ENCHK+10, PRCHK+2
ENDDIV^PSJORUTL	UD+4
$$DCLASS^PSNAPIS	ENVAC+5
$$VAGN^PSNAPIS	ENVAGN+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	ENVAC+5, ENVAGN+5
^PS(50.605 - [#50.605]	ENVAC+8
^PS(52.6 - [#52.6]	ENVOL+4, ENVOL+5, ENVOL2+4, ENVOL2+5, SENVOL+9, UD+4, PIV+2, IV+2, NEWIV+3
^PS(52.7 - [#52.7]	ENVOL+6, ENVOL+7, ENVOL2+6, ENVOL2+7, SENVOL+10, PIV+3, IV+3, NEWIV+4
^PS(53.1 - [#53.1]	ENCHK+12, ENCHK+13, UD+4, PIV+1, PIV+2, PIV+3
^PS(53.45 - [#53.45]	UD+6
^PS(55 - [#55]	ENCHK+11, ENCHK+15, IV+1, IV+2, IV+3, ENNG+2, ENNG+3
^PSDRUG - [#50]	DDRUG+1
^PSDRUG("ASP"	UD+8
^PSNDF(	ENVAC+8, ENVAGN+8
^PSRX - [#52]	ENREF+4, ENREF+5, ENREF+6
^TMP($J	DDRUG+6, DDRUG+7
^VA(200 - [#200]	PRCHK+2

Label References

Name	Line Occurrences
DDRUG	UD+4, UD+5, UD+6, UD+9, PIV+2, PIV+3, IV+2, IV+3, NEWIV+3, NEWIV+4
IV	ENCHK+15
NEWIV	ENCHK+16
PIV	ENCHK+13
UD	ENCHK+11, ENCHK+14

Naked Globals

Name	Field # of Occurrence
^(0	ENVOL+5, ENVOL+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ENCHK+10, PRCHK+1~, PRCHK+2
ADD	ENVOL+4~, ENVOL+5, ENVOL2+4~, ENVOL2+5
ARRAY	ENVOL~, ENVOL+1, ENVOL+8, ENVOL2~, ENVOL2+1, ENVOL2+8
ARRAY(	ENVOL+5, ENVOL+7, ENVOL2+5, ENVOL2+7
BDT	ENCHK+9~, ENCHK+10*, ENCHK+15, UD+5, UD+6, UD+9
CNT	ENREF+4~, ENREF+6*
>> COD	UD+3, UD+5, UD+6, UD+9, PIV+2, PIV+3, IV+2, IV+3, NEWIV+3, NEWIV+4 , DDRUG+6, DDRUG+7
COUNT	ENREF+4~, ENREF+6, ENREF+7
DDRUG	ENCHK+9~, UD+1, UD+4, UD+5, UD+6, UD+8, UD+9, PIV+2, PIV+3, IV+2 , IV+3, NEWIV+3, NEWIV+4*, DDRUG+1, DDRUG+3, DDRUG+4, DDRUG+6
DDRUG(	DDRUG+6
DDRUG0	ENCHK+9~, DDRUG+1*, DDRUG+6, DDRUG+7
DDRUGND	ENCHK+9~, DDRUG+1*, DDRUG+6, DDRUG+7
DFN	ENCHK~, ENCHK+11, ENCHK+12, ENCHK+15, IV+1, IV+2, IV+3
>> DRGOC(	NEWIV+3, NEWIV+4
>> DRGOC(0	NEWIV+2
DT	ENVOL+5, ENVOL+7, ENVOL2+5, ENVOL2+7
EDT	ENCHK+9~, ENCHK+10*
F	ENVOL+2~, ENVOL2+2~, ENCHK+9~, ENCHK+11, ENCHK+12, UD+1, UD+2, UD+5, UD+7, UD+9
GDP	ENVAC+7~, ENVAC+8, ENVAGN+5~, ENVAGN+7~*, ENVAGN+8, ENVAGN+9
INACT	ENVOL+2~, ENVOL+5, ENVOL+7, ENVOL2+2~, ENVOL2+5, ENVOL2+7
IPOROP	DDRUG+4~, DDRUG+5, DDRUG+6
IVFL	ENVOL+2~, ENVOL+5, ENVOL+7
OI	UD+7~*, UD+8
ON	ENCHK+9~, ENCHK+11, ENCHK+12, ENCHK+13, ENCHK+15, UD+1, UD+2, UD+3, UD+4, UD+5 , UD+7, UD+9, PIV+1, PIV+2, PIV+3, IV+1, IV+2, IV+3, NEWIV+1~, NEWIV+2 , NEWIV+3, NEWIV+4
ON1	ENCHK+9~, UD+5, UD+6, PIV+2, PIV+3, IV+2, IV+3
>> ON55	NEWIV+3
PN	ENVAC~, ENVAC+5, ENVAC+7, ENVAGN~, ENVAGN+5, ENVAGN+7, ENVOL~, ENVOL+1, ENVOL+4, ENVOL+6 , ENVOL2~, ENVOL2+1, ENVOL2+4, ENVOL2+6, SENVOL~, SENVOL+7, SENVOL+9, SENVOL+10
PNP	ENVAC+7~, ENVAC+8, ENVAGN+7~
PRX	ENREF~, ENREF+4*, ENREF+5, ENREF+6
>> PSGOCHK	UD+6
>> PSIVOCON	ENCHK+16
PSIVX	NEWIV+1~, NEWIV+3, NEWIV+4
PSJ	SENVOL~, SENVOL+5, SENVOL+7, SENVOL+8*, PRCHK~, PRCHK+2, PRCHK+3
PSJ(	SENVOL+9, SENVOL+10
PSJC	ENVAC+5~, ENVAC+8, ENVAC+9
PSJDPT	ENNG~, ENNG+2, ENNG+3
PSJINX	ENCHK~, DDRUG+2*, DDRUG+6, DDRUG+7
PSJNUM	ENNG~, ENNG+2, ENNG+3
PSJORIEN	ENCHK+9~, UD+1, UD+6, PIV+1, IV+1, NEWIV+2*, DDRUG+6, DDRUG+7
PSJPD	UD+3~, UD+4*
>> PSJSYSP	UD+6
PST	ENCHK+9~, ENCHK+12*
SOL	ENVOL+6~, ENVOL+7, ENVOL2+6~, ENVOL2+7
U	ENVAC+8, ENVAC+9, ENVAGN+5, ENVAGN+8, ENVAGN+9, ENVOL+5, ENVOL2+5, SENVOL+9, SENVOL+10, UD+1 , UD+2, UD+5, UD+6, UD+9, PIV+1, PIV+2, PIV+3, IV+1, IV+2, IV+3 , NEWIV+3, NEWIV+4, DDRUG+6, DDRUG+7
WBDT	ENCHK+9~, ENCHK+10, ENCHK+11, ENCHK+15*
X	ENVAC+5~, ENVAC+8, ENVAC+9, ENVAGN+5~, ENVAGN+8, ENVAGN+9, ENVOL+2~, ENVOL+4, ENVOL2+2~, ENVOL2+4 , SENVOL+5~, ENREF+4~, ENREF+7, ENREF+8, ENCHK+9~, PIV+1, PIV+2, PIV+3, IV+1~, IV+2* , IV+3, PRCHK+1~, PRCHK+2
X(	ENVOL+5, ENVOL2+5, SENVOL+9
X(1	ENVOL+3, ENVOL2+3, SENVOL+6*, SENVOL+10
X(10	ENVOL+3, ENVOL2+3, SENVOL+6*
X(11	ENVOL+3, ENVOL2+3, SENVOL+6*
X(12	ENVOL+3, ENVOL2+3, SENVOL+6*
X(13	ENVOL+3, ENVOL2+3, SENVOL+6*
X(14	ENVOL+3, ENVOL2+3, SENVOL+6*
X(2	ENVOL+3, ENVOL2+3, SENVOL+6*
X(3	ENVOL+3, ENVOL2+3, SENVOL+6*
X(4	ENVOL+3, ENVOL2+3, SENVOL+6*
X(5	ENVOL+3, ENVOL2+3, SENVOL+6*
X(6	ENVOL+3, ENVOL2+3, SENVOL+6*
X(7	ENVOL+3, ENVOL2+3, SENVOL+6*
X(8	ENVOL+3, ENVOL2+3, SENVOL+6*
X(9	ENVOL+3, ENVOL2+3, SENVOL+6*
X1	ENVAC+5~, ENVAGN+5~
X2	ENVAC+5~, ENVAGN+5~
XX	ENVOL+2~, ENVOL+4, ENVOL+5, ENVOL+6, ENVOL+7, ENVOL+8, ENVOL2+2~, ENVOL2+4, ENVOL2+5, ENVOL2+6* , ENVOL2+7*, ENVOL2+8

Customize PDF page

Package: Inpatient Medications