PSJ5P220 ; SMT - Disable PSJU SPEED FINISH/VERIFY protocols ; 2/27/09 2:04pm
;;5.0;INPATIENT PHARMACY;**220**;FEB 2009;Build 5
Q
;
START ;Manual disable PSJU SPEED FINISH/VERIFY Protocols.
N PRIEN
S PRIEN=$O(^ORD(101,"B","PSJU LM SPEED FINISH",0))
I $D(^ORD(101,PRIEN,0)) S $P(^ORD(101,PRIEN,0),"^",3)="SPEED FINISH OUT OF ORDER PSJ*5*220"
S PRIEN=$O(^ORD(101,"B","PSJU LM SPEED VERIFY",0))
I $D(^ORD(101,PRIEN,0)) S $P(^ORD(101,PRIEN,0),"^",3)="SPEED VERIFY OUT OF ORDER PSJ*5*220"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSJ5P220 505 printed Dec 13, 2024@02:05:59 Page 2
PSJ5P220 ; SMT - Disable PSJU SPEED FINISH/VERIFY protocols ; 2/27/09 2:04pm
+1 ;;5.0;INPATIENT PHARMACY;**220**;FEB 2009;Build 5
+2 QUIT
+3 ;
START ;Manual disable PSJU SPEED FINISH/VERIFY Protocols.
+1 NEW PRIEN
+2 SET PRIEN=$ORDER(^ORD(101,"B","PSJU LM SPEED FINISH",0))
+3 IF $DATA(^ORD(101,PRIEN,0))
SET $PIECE(^ORD(101,PRIEN,0),"^",3)="SPEED FINISH OUT OF ORDER PSJ*5*220"
+4 SET PRIEN=$ORDER(^ORD(101,"B","PSJU LM SPEED VERIFY",0))
+5 IF $DATA(^ORD(101,PRIEN,0))
SET $PIECE(^ORD(101,PRIEN,0),"^",3)="SPEED VERIFY OUT OF ORDER PSJ*5*220"
+6 QUIT
