PSJ5P220.m

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 ---PSJ5P220   505     printed  Mar 13, 2025@21:10:52                                                                                                                                                                                                     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