source: BMXNET_RPMS_dotNET_UTILITIES-BMX/branch/BMX41000/routines/BMXE01.m@ 1396

Last change on this file since 1396 was 1147, checked in by Sam Habiel, 14 years ago

Mumps Routines 4 BMX4

File size: 1.8 KB
Line 
1BMXE01 ; IHS/OIT/FJE - ENVIRONMENT CHECK FOR BMX 2.0 ; 4/6/11 4:20pm
2 ;;4.1000;BMX;;Apr 17, 2011;Build 13
3 ;
4 S $P(LINE,"*",81)=""
5 S XPDNOQUE="NO QUE" ;NO QUEUING ALLOWED
6 S XPDABORT=0
7 I '$G(DUZ) W !,"DUZ UNDEFINED OR 0." S XPX="DUZ" D SORRY Q
8 ;
9 I '$L($G(DUZ(0))) W !,"DUZ(0) UNDEFINED OR NULL." S XPX="DUZ" D SORRY Q
10 ;
11 D HOME^%ZIS,DT^DICRW
12 S X=$P($G(^VA(200,DUZ,0)),U)
13 I $G(X)="" W !,"Who are you????" S XPX="DUZ" D SORRY Q
14 W !,"Hello, "_$P(X,",",2)_" "_$P(X,",")
15 W !!,"Checking Environment for Install of Version "_$P($T(+2),";",3)_" of "_$P($T(+2),";",4)_"."
16 ;
17 S X=$G(^DD("VERSION"))
18 W !!,"Need at least FileMan 22.....FileMan "_X_" Present"
19 I X<22 S XPX="FM" D SORRY Q
20 ;
21 S X=$G(^DIC(9.4,$O(^DIC(9.4,"C","XU",0)),"VERSION"))
22 W !!,"Need at least Kernel 8.0.....Kernel "_X_" Present"
23 I +X<8 S XPX="KERNEL" D SORRY Q
24 ;
25 S X=$G(^DIC(9.4,$O(^DIC(9.4,"C","XB",0)),"VERSION"))
26 W !!,"Need at least XB/ZIB 3.....XB/ZIB "_X_" Present"
27 I +X<2 S XPX="XB" D SORRY Q
28 ;
29ENVOK ; If this is just an environ check, end here.
30 W !!,"ENVIRONMENT OK."
31 ;
32 ; The following line prevents the "Disable Options..." and "Move
33 ; Routines..." questions from being asked during the install.
34 I $G(XPDENV)=1 S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
35 QUIT
36SORRY ;
37 K DIFQ
38 S XPDABORT=1
39 W *7,!!!,"Sorry....something is wrong with your environment"
40 W !,"Aborting BMX Version 4.0 Install!"
41 W !,"Correct error and reinstall otherwise"
42 W !,"please print/capture this screen and notify"
43 W !,"technical support."
44 W !!,LINE
45 D BMES^XPDUTL("Sorry....something is wrong with your environment")
46 D BMES^XPDUTL("Enviroment ERROR "_$G(XPX))
47 D BMES^XPDUTL("Aborting BMX 4 install!")
48 D BMES^XPDUTL("Correct error and reinstall otherwise")
49 D BMES^XPDUTL("please print/capture this screen and notify")
50 D BMES^XPDUTL("technical support.")
51 QUIT
52 ;
Note: See TracBrowser for help on using the repository browser.