Routine: PSIVCSED

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Information

PSIVCSED ;BIR/PR-EDIT DRUG COST AND BROADCAST ;04 OCT 94 / 9:42 AM

Source Information

Source file <PSIVCSED.m>

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
VA FileMan	2	^DIC ^DIE
Inpatient Medications	1	^PSIVHLP1
MailMan	1	^XMD

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

Package	Total	Caller Graph
Kernel	1	^DIC(19
Pharmacy Data Management	1	PSSJI EDIT DRUG COST

Entry Points

Name	Comments	DBIA/ICR reference
R1	;Get the file, the drug, and edit the cost.
MAIL	;Send mail to holders of PSJI MGR key if drug cost was changed.
K	;

External References

Name	Field # of Occurrence
^DIC	R1+2
^DIE	R1+2
^PSIVHLP1	R1+1
^XMD	MAIL+3

Interaction Calls

Name	Line Occurrences
Function Call: READ	Formatting: !! Prompt: "Indicate if drug is an ADDITIVE (enter A) or a SOLUTION (enter S): " Variable: FI Timeout: DTIME Line Location: R1+1
Routine Call	DIC Line Location: R1+2
Routine Call	DIE Line Location: R1+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(	R1+2
^VA(200 - [#200]	MAIL+1
^XUSEC("PSJI MGR"	MAIL+2
^XUSEC("XUPROG"	MAIL+2

Label References

Name	Line Occurrences
K	R1+1, R1+2
R1	R1+1, R1+2, K+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
C1	R1+2*, MAIL+1, K+1!
C2	R1+2*, MAIL+1, K+1!
D	K+1!
D0	K+1!
D1	K+1!
DA	R1+2*, K+1!
DI	K+1!
DIC	R1+2*, K+1!
DIC(0	R1+2*
DIE	R1+2*, K+1!
DQ	K+1!
DR	R1+2*, K+1!
DRUG	R1+2*, MAIL+1, K+1!
DTIME	R1+1
DUZ	MAIL+1
DZ	K+1!
FI	R1+1, R1+2, MAIL+1, K+1!
>> HELP	R1+1*
I	K+1!
MESS	K+1!
MESS(1	MAIL+1*
PDUZ	MAIL+2*, K+1!
U	R1+2, MAIL+1
X	K+1!
XCNP	K+1!
XMDUZ	MAIL+1*, K+1!
XMSUB	MAIL+1*, K+1!
XMTEXT	MAIL+1*, K+1!
XMY	MAIL+2!, MAIL+3, K+1!
XMY(	MAIL+2*
XMZ	K+1!
Y	R1+2, K+1!
Z	K+1!