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