PSOCLPRE.m

PSOCLPRE ;BHAM ISC/RTR-Environment check routine for Patch 15

 ;;7.0;OUTPATIENT PHARMACY;**15**;DEC 1997

 ;

 N X

 S X=$T(REF^ORMBLDPS) I $G(X)'["CLINIC" W !,"The latest version of Patch OR*3.0*38 must be installed first!",! S XPDQUIT=2

 Q

PSOCLPRE  ;BHAM ISC/RTR-Environment check routine for Patch 15

 +1       ;;7.0;OUTPATIENT PHARMACY;**15**;DEC 1997

 +2       ;

 +3        NEW X

 +4        SET X=$TEXT(REF^ORMBLDPS)

           IF $GET(X)'["CLINIC"

               WRITE !,"The latest version of Patch OR*3.0*38 must be installed first!",!

               SET XPDQUIT=2

 +5        QUIT