Routine: PSXOPUTL

Package	Total	Call Graph
CMOP	2	(D1,S,SUS1)^PSXNEW ^PSXOPUTL
Outpatient Pharmacy	1	(Q1,QLBL)^PSORXL
VA FileMan	1	^DIR

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

Package	Total	Caller Graph
Outpatient Pharmacy	4	PSODSPL PSOORNE3 PSOORUT1 PSOPMP1
CMOP	1	PSXOPUTL
Virtual Patient Record	1	VPRSDAP

Entry Points

Name	Comments	DBIA/ICR reference
UNHOLD
REINS
EN1
KILL
QS
HLD
EN	; Called from PSORXDL,HLD+4^PSOHLD, PSOCAN ; if in suspense and "loading" no delete
MSG
CMOP	;
DUPCAN
MW(PSODIR)	;
MW1
MWX
DIR	;
DIRX

External References

Name	Field # of Occurrence
^DIR	QS+2, DIR+3
Q1^PSORXL	QS+6
QLBL^PSORXL	QS+5
D1^PSXNEW	KILL, QS+5
S^PSXNEW	EN1+5, EN1+6, QS+4
SUS1^PSXNEW	EN1
^PSXOPUTL	EN+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,RX_" REINSTATED -- ",! Line Location: EN1+3
Function Call: WRITE	Prompt: !!,$P(^PSRX(DA,0),"^")_" Removed from Hold Status",!! Line Location: EN1+4
Function Call: WRITE	Prompt: !! Line Location: QS+0
Function Call: WRITE	Prompt: !!,"A CMOP Rx cannot be"_$S($G(PSOFROM)="HOLD":" placed on HOLD",$G(PSOFROM)="CANCEL":" CANCELLED",1:" DELETED") Line Location: MSG+0
Function Call: WRITE	Prompt: $S($G(PSOFROM)="DELETE":" while in",1:" during") Line Location: MSG+1
Function Call: WRITE	Prompt: $S($G(PSOFROM)="DELETE":" transmission status!",1:" transmission! ")_" Try later.",!! Line Location: MSG+2
Function Call: WRITE	Prompt: !,"Cannot jump to another field ..",! Line Location: MW1+4
Routine Call	DIR Line Location: QS+2 DIR+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(52.5 - [#52.5]	PSXOPUTL+13
^PSRX - [#52]	PSXOPUTL+10, PSXOPUTL+11, PSXOPUTL+12, EN1+4, CMOP+1, CMOP+2

Label References

Name	Line Occurrences
DIR	MW+4, MW1+3
DIRX	DIR+2, DIR+4
EN	DUPCAN
EN1	UNHOLD
KILL	EN1, EN1+2, EN1+5, EN1+6, QS+3
MSG	EN+3, EN+4
MW1	MW1+4
MWX	MW+4, MW+5, MW1, MW1+3
PSXOPUTL	EN1+1
QS	EN1+7

Naked Globals

Name	Field # of Occurrence
^(0	PSXOPUTL+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	PSXOPUTL+10, PSXOPUTL+11, PSXOPUTL+12, PSXOPUTL+13, EN1+4, QS+5, QS+6, EN+2, DUPCAN~*, DIR+3!
DIC	MW+1!, DIR+3!
DIE	DIR+3!
DIR	KILL+1!, QS+2!, MW+1!, DIR+3!
DIR("?"	QS+1*
DIR("A"	QS*
DIR("B"	QS+2, MW+3, MW1+2*
DIR(0	QS+2, MW+2, MW1+1*, DIR+2
DIROUT	DIR+4, DIRX!
DIRUT	KILL+1!, QS+3, DIRX!
>> DNM	DUPCAN
DT	EN1+6, EN1+7
DTOUT	KILL+1!, DIR+4, DIRX!
DUOUT	KILL+1!, QS+3, DIR+4, DIRX!
FDT	UNHOLD~*, EN1+6, EN1+7
ION	QS+5
>> PPL	QS+5, QS+6
PSODIR	MW~
PSODIR("DFLG"	MW+4, MW+5, MW1+3, DIR+4
PSODIR("FIELD"	MW+4, DIR+1*
PSODIR("MAIL/WINDOW"	MW+6*, MW1
PSODIR("METHO	D OF PICK-UP" , MW1+5*
PSOFROM	HLD~, EN+4, MSG, MSG+1, MSG+2, DUPCAN~
>> PSOLAP	QS+5
>> PSOPAR	QS, QS+1, QS+2, MW1
>> PSORX("FILL D	ATE" , UNHOLD
>> PSORX("MAIL/WINDOW"	MW+3, MW+6*
>> PSORX("METHOD	OF PICK-UP" , MW1+2, MW1+5*
>> PSOSD(	DUPCAN
PSOX	DIRX!
>> PSX(	CMOP+2*
>> PSXDFLAG	MSG+3*
>> PSXEDREL	EN1+2
>> PSXFLAG	EN1
PSXFROM	UNHOLD, REINS, EN1+3, EN1+4, KILL+1!
PSXZ	KILL+1!, QS+4!, QS+5!, EN+3!, EN+5!, CMOP+1*, CMOP+2, CMOP+3!
PSXZ(	PSXOPUTL+12*, EN1+2, EN1+5, EN1+6, EN1+7, EN+4
PSXZ("L"	PSXOPUTL+10*, EN1+2, EN1+5, EN1+6, EN1+7, EN+4
PSXZ("S"	PSXOPUTL+13*, EN+3
>> RX	EN1+3
>> RXN	CMOP+1, CMOP+2
U	CMOP+2, MW1+4
X	PSXOPUTL+9~, PSXOPUTL+10, PSXOPUTL+11, PSXOPUTL+12, PSXOPUTL+13*, PSXOPUTL+14!, KILL+1!, MW1+4, MWX!, DIR+4
Y	KILL+1!, QS+4, QS+5, QS+6, MW+6, MW1+5, MWX!, DIR+4
Y(0	MW+5, MW+6

Customize PDF page

Package: CMOP

Routine: PSXOPUTL

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: