VistA-WorldVistAEHR/r/OUTPATIENT_PHARMACY-PSO-APS.../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
initial load of WorldVistAEHR 2009-11-29 13:37:14 -05:00			`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 OR3.038 must be installed first!",! S XPDQUIT=2`
			`Q`