Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: PSO7P302

PSO7P302.m

Go to the documentation of this file.

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

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

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"

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSO7P302   331     printed  Nov 22, 2024@17:33:45                                                                                                                                                                                                     Page 2

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