[645] | 1 | BMXE01 ; IHS/OIT/FJE - ENVIRONMENT CHECK FOR BMX 2.0 ;
|
---|
[1209] | 2 | ;;2.31;BMX;;Jul 25, 2011
|
---|
[645] | 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
|
---|
| 29 | ENVOK ; 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
|
---|
| 41 | SORRY ;
|
---|
| 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 | ;
|
---|