Routine: PSOCMOPA

Information

PSOCMOPA ;BIR/HTW-Utility for Hold/Can/Park ;Feb 07, 2019@06:29:42

Name	Comments	DBIA/ICR reference
UNHOLD
UNPARK
REINS
EN1
KILL
QS
HLD
EN	; Called from PSORXDL,HLD+4^PSOHLD, PSOCAN, PSOPRK ; if in suspense and "loading" no delete
MSG
CMOP	;
DUPCAN
MW(PSODIR)	;
MW0
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: !!,$P(^PSRX(DA,0),"^")_" Removed from Park Status",!! Line Location: EN1+5
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",$G(PSOFROM)="PARK":" PARKED",1:" DELETED") Line Location: MSG+2
Function Call: WRITE	Prompt: $S($G(PSOFROM)="DELETE":" while in",1:" during") Line Location: MSG+3
Function Call: WRITE	Prompt: $S($G(PSOFROM)="DELETE":" transmission status!",1:" transmission! ")_" Try later.",!! Line Location: MSG+4
Function Call: WRITE	Prompt: !,"Cannot jump to another field ..",! Line Location: MW1+4