PSO7P302.m

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

PSO7P302  ; SMT - Disable PSO SPEED RENEW protocol ; 3/18/08 7:53am

 +1       ;;7.0;OUTPATIENT PHARMACY;;MARCH 2008;Build 8

 +2        QUIT 

 +3       ;

START     ;Manuall disable PSO SPEED RENEW Protocol.

 +1        NEW PRIEN

 +2        SET PRIEN=$ORDER(^ORD(101,"B","PSO SPEED RENEW",0))

 +3        IF $DATA(^ORD(101,PRIEN,0))

               SET $PIECE(^ORD(101,PRIEN,0),"^",3)="TEMPORARILY OUT OF USE via PSO*7*302"

 +4        QUIT