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

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

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

 +2       ;

 +3       ; This routine uses the following IAs:

 +4       ; #10141 - ^XPDUTL calls          (supported)

 +5       ;

EN1       ; environment check for the vitals package

 +1        NEW GMRV

 +2        SET GMRV=+$$VERSION^XPDUTL("GMRV")

 +3        IF (GMRV>0)&(GMRV<4)

               Begin DoDot:1

 +4                DO 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.")

 +5                SET XPDQUIT=2

 +6                QUIT 

               End DoDot:1

 +7        QUIT