source: FOIAVistA/trunk/r/GEN_MED_OTHER-GMV/GMVXENV.m@ 1608

Last change on this file since 1608 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 520 bytes
Line 
1GMVXENV ;HOIFO/YH-ENVIRONMENT CHECK FOR VITALS ;2/6/02 10:57
2 ;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002
3 ;
4 ; This routine uses the following IAs:
5 ; #10141 - ^XPDUTL calls (supported)
6 ;
7EN1 ; environment check for the vitals package
8 N GMRV
9 S GMRV=+$$VERSION^XPDUTL("GMRV")
10 I (GMRV>0)&(GMRV<4) D
11 . 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.")
12 . S XPDQUIT=2
13 . Q
14 Q
Note: See TracBrowser for help on using the repository browser.