GMVXENV.m

GMVXENV ;HOIFO/YH-ENVIRONMENT CHECK FOR VITALS ;2/6/02  10:57

 ;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002

 ;

 ; This routine uses the following IAs:

 ; #10141 - ^XPDUTL calls          (supported)

 ;

EN1 ; environment check for the vitals package

 N GMRV

 S GMRV=+$$VERSION^XPDUTL("GMRV")

 I (GMRV>0)&(GMRV<4) D

 . D MES^XPDUTL("VITALS/MEASUREMENTS VERSION 5 CAN ONLY BE INSTALLED OVER VERSION 4 OR AS A VIRGIN INSTALL. YOU HAVE VERSION "_GMRV_" INSTALLED IN THIS ACCOUNT. INSTALLATION ABORTED.")

 . S XPDQUIT=2

 . Q

 Q