PSJPRE4I.m

PSJPRE4I ; B'ham ISC/CML3 - PRE-INIT ;9/4/91  21:53

 ;;3.2;;**28**

 ;

 I $G(^PS(59.7,1,20))<3.2 W *7,!!,"Inpatient Medications version 3.2 must be installed before you can install",!,"this patch." K DIFQ

 Q

PSJPRE4I  ; B'ham ISC/CML3 - PRE-INIT ;9/4/91  21:53

 +1       ;;3.2;;**28**

 +2       ;

 +3        IF $GET(^PS(59.7,1,20))<3.2

               WRITE *7,!!,"Inpatient Medications version 3.2 must be installed before you can install",!,"this patch."

               KILL DIFQ

 +4        QUIT