10 lines
322 B
Mathematica
10 lines
322 B
Mathematica
PSO7P302 ; SMT - Disable PSO SPEED RENEW protocol ; 3/18/08 7:53am
|
|
;;7.0;OUTPATIENT PHARMACY;;MARCH 2008;Build 8
|
|
Q
|
|
;
|
|
START ;Manuall disable PSO SPEED RENEW Protocol.
|
|
N PRIEN
|
|
S PRIEN=$O(^ORD(101,"B","PSO SPEED RENEW",0))
|
|
I $D(^ORD(101,PRIEN,0)) S $P(^ORD(101,PRIEN,0),"^",3)="TEMPORARILY OUT OF USE via PSO*7*302"
|
|
Q
|