Routine: PSXOPUTL

Information

PSXOPUTL ;BIR/HTW-Utility for Hold/Can ;[ 04/08/97 2:06 PM ]

Package	Total	Caller Graph
Outpatient Pharmacy	4	PSODSPL PSOORNE3 PSOORUT1 PSOPMP1
CMOP	1	PSXOPUTL

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	;

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

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

Name	Field # of Occurrence
^(0	PSXOPUTL+12

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