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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMVXENV 534 printed Dec 13, 2024@02:00:18 Page 2
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
