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