PSSENV.m

PSSENV ;BIR/WRT-Option Delete environment check routine ; 09/09/97 15:15

 ;;1.0;PHARMACY DATA MANAGEMENT;;9/30/97

 ; ENVIRONMENTAL CHECK ROUTINE-OPTION DELETE

START I '$D(^PS(59.7,1,49.99)) S XPDQUIT=1 Q

 I $D(^PS(59.7,1,49.99)),$P(^PS(59.7,1,49.99),"^",1)<7.0 S XPDQUIT=1 Q

PSSENV    ;BIR/WRT-Option Delete environment check routine ; 09/09/97 15:15

 +1       ;;1.0;PHARMACY DATA MANAGEMENT;;9/30/97

 +2       ; ENVIRONMENTAL CHECK ROUTINE-OPTION DELETE

START      IF '$DATA(^PS(59.7,1,49.99))

               SET XPDQUIT=1

               QUIT 

 +1        IF $DATA(^PS(59.7,1,49.99))

               IF $PIECE(^PS(59.7,1,49.99),"^",1)<7.0

                   SET XPDQUIT=1

                   QUIT