Routine: PSOCMOPA

Package	Total	Call Graph
Outpatient Pharmacy	2	(D1,S,SUS1)^PSOCMOP (Q1,QLBL)^PSORXL
VA Fileman	1	^DIR

Package

Total

Call Graph

Outpatient Pharmacy

(D1,S,SUS1)^PSOCMOP (Q1,QLBL)^PSORXL

VA Fileman

^DIR

Package	Total	Caller Graph
Outpatient Pharmacy	12	PSOCAN PSOCAN2 PSOCMOP PSOCMOPC PSODISP1 PSODRDUP PSOHLD PSOHLDC PSOHLEXP PSOMAUEX PSOORUTL PSORENW
IHS Changes To Pharmacy	1	APSPHLD

Package

Total

Caller Graph

Outpatient Pharmacy

PSOCAN PSOCAN2 PSOCMOP PSOCMOPC PSODISP1 PSODRDUP PSOHLD PSOHLDC
PSOHLEXP PSOMAUEX PSOORUTL PSORENW

IHS Changes To Pharmacy

APSPHLD

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

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":" DISCONTINUED",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

Name	Line Occurrences (* Changed, ! Killed)
^PS(52.5 - [#52.5]	PSOCMOPA+18
^PSRX - [#52]	PSOCMOPA+13, PSOCMOPA+14, PSOCMOPA+15, EN1+4, CMOP+1, CMOP+2
^PSX(550.2 - [#550.2]	PSOCMOPA+16

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
PSOCMOPA	EN1+1, EN+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BATCH	PSOCMOPA+11~, PSOCMOPA+15*, PSOCMOPA+16, PSOCMOPA+19!
BIEN	PSOCMOPA+11~, PSOCMOPA+16*, PSOCMOPA+19!
CMOP	KILL+1!, QS+4!, QS+5!, EN+3!, EN+5!
CMOP(	PSOCMOPA+17*, EN1+2, EN1+5, EN1+6, EN+4
CMOP("52.5"	PSOCMOPA+18*
CMOP("L"	PSOCMOPA+13*, PSOCMOPA+17, EN1+2, EN1+5, EN1+6, EN+4
CMOP("S"	PSOCMOPA+18*, EN+3
DA	PSOCMOPA+13, PSOCMOPA+14, PSOCMOPA+15, PSOCMOPA+18, 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
DTOUT	KILL+1!, DIR+4, DIRX!
DUOUT	KILL+1!, QS+3, DIR+4, DIRX!
FDT	UNHOLD~*, EN1+6
ION	QS+5
>> PPL	QS+5, QS+6
PSOCMOP	PSOCMOPA+12!, PSOCMOPA+17*
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*
PSXZ	CMOP+1*, CMOP+2, CMOP+3!
>> REL	EN1+2
>> RX	EN1+3
>> RXLTOP	QS+5, QS+6
>> RXN	CMOP+1, CMOP+2
>> STA	DUPCAN
TDT	PSOCMOPA+11~, PSOCMOPA+16*, PSOCMOPA+17, PSOCMOPA+19!
U	CMOP+2, MW1+4
X	PSOCMOPA+11~, PSOCMOPA+13, PSOCMOPA+14, PSOCMOPA+15, PSOCMOPA+18*, PSOCMOPA+19!, KILL+1!, MW1+4, MWX!, DIR+4
>> XFLAG	EN1, MSG+3*
XFROM	UNHOLD, REINS, EN1+3, EN1+4, KILL+1!
XN	PSOCMOPA+11~, PSOCMOPA+15*, PSOCMOPA+17, PSOCMOPA+19!
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: Outpatient Pharmacy

Routine: PSOCMOPA

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 13

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

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