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