Routine: PSXOPUTL

Information

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

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

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