source: BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXE01.m@ 747

Last change on this file since 747 was 645, checked in by Sam Habiel, 15 years ago

Initial Import of BMX.net code

File size: 1.9 KB
Line 
1BMXE01 ; IHS/OIT/FJE - ENVIRONMENT CHECK FOR BMX 2.0 ;
2 ;;2.1;BMX;;Jul 26, 2009
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 q
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 I $G(XPDENV)=1 D ;Updates BMX Version file
36 .S X="2",DIC="^BMXAPPL(",DLAYGO=90093.2,DIC(0)="E" K DD,D0 D FILE^DICN
37 .S DA=+Y
38 .S:+DA DIE="^BMXAPPL(",DR=".02///0;.03////"_DT D ^DIE
39 .K DIE,DA
40 Q
41SORRY ;
42 K DIFQ
43 S XPDABORT=1
44 W *7,!!!,"Sorry....something is wrong with your environment"
45 W !,"Aborting BMX Version 2.0 Install!"
46 W !,"Correct error and reinstall otherwise"
47 W !,"please print/capture this screen and notify"
48 W !,"technical support."
49 W !!,LINE
50 D BMES^XPDUTL("Sorry....something is wrong with your environment")
51 D BMES^XPDUTL("Enviroment ERROR "_$G(XPX))
52 D BMES^XPDUTL("Aborting BMX 2.0 install!")
53 D BMES^XPDUTL("Correct error and reinstall otherwise")
54 D BMES^XPDUTL("please print/capture this screen and notify")
55 D BMES^XPDUTL("technical support.")
56 Q
57 ;
Note: See TracBrowser for help on using the repository browser.