- BMXE01 ; IHS/OIT/FJE - ENVIRONMENT CHECK FOR BMX 4.0 ; 03 Jun 2010 9:39 AM
- ;;4.0;BMX;;JUN 28, 2010
- ;
- S $P(LINE,"*",81)=""
- S XPDNOQUE="NO QUE" ;NO QUEUING ALLOWED
- S XPDABORT=0
- I '$G(DUZ) W !,"DUZ UNDEFINED OR 0." S XPX="DUZ" D SORRY Q
- ;
- I '$L($G(DUZ(0))) W !,"DUZ(0) UNDEFINED OR NULL." S XPX="DUZ" D SORRY Q
- ;
- D HOME^%ZIS,DT^DICRW
- S X=$P($G(^VA(200,DUZ,0)),U)
- I $G(X)="" W !,$$C^XBFUNC("Who are you????") S XPX="DUZ" D SORRY Q
- W !,$$C^XBFUNC("Hello, "_$P(X,",",2)_" "_$P(X,","))
- W !!,$$C^XBFUNC("Checking Environment for Install of Version "_$P($T(+2),";",3)_" of "_$P($T(+2),";",4)_".")
- ;
- S X=$G(^DD("VERSION"))
- W !!,$$C^XBFUNC("Need at least FileMan 22.....FileMan "_X_" Present")
- I X<22 S XPX="FM" D SORRY Q
- ;
- S X=$G(^DIC(9.4,$O(^DIC(9.4,"C","XU",0)),"VERSION"))
- W !!,$$C^XBFUNC("Need at least Kernel 8.0.....Kernel "_X_" Present")
- I X<8.0 S XPX="KERNEL" D SORRY Q
- ;
- DNS ; MAKE SURE THERE IS A VALID DNS IP ADDRESS (OR A NULL VALUE) IN THE KERNEL SYSTEM PARAMETERS FILE
- N DNS,POP,%
- W !!,$$C^XBFUNC("Checking Kernel system parameters. This may take 1 minute...")
- S DNS=$G(^XTV(8989.3,1,"DNS"))
- I DNS="" G DNS1
- I DNS="161.223.91.184" D DNSERR Q
- D CALL^%ZISTCP(DNS,53) I POP D CLOSE^%ZISTCP,DNSERR Q
- DNS1 D CLOSE^%ZISTCP
- W !,$$C^XBFUNC("Kernel system parameters validated")
- ;
- ENVOK ; If this is just an environ check, end here.
- W !!,$$C^XBFUNC("ENVIRONMENT OK.")
- ;
- ; The following line prevents the "Disable Options..." and "Move
- ; Routines..." questions from being asked during the install.
- I $G(XPDENV)=1 S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
- I $G(XPDENV)=1 D ;Updates BMX Version file
- .S X="2",DIC="^BMXAPPL(",DLAYGO=90093.2,DIC(0)="E" K DD,D0 D FILE^DICN
- .S DA=+Y
- .S:+DA DIE="^BMXAPPL(",DR=".02///0;.03////"_DT D ^DIE
- .K DIE,DA
- Q
- ;
- DNSERR W !,$$C^XBFUNC("The DNS IP address in the KERNEL SYSTEM PARAMETERS file is invalid!!!")
- W !,$$C^XBFUNC("You must enter a valid IP in the DNS IP field (or null) before ")
- W !,$$C^XBFUNC("installing this package")
- ;
- SORRY ;
- K DIFQ
- S XPDABORT=1
- W *7,!!!,$$C^XBFUNC("Sorry....something is wrong with your environment")
- W !,$$C^XBFUNC("Aborting BMX Version 4.0 Install!")
- W !,$$C^XBFUNC("Correct error and reinstall otherwise")
- W !,$$C^XBFUNC("please print/capture this screen and notify")
- W !,$$C^XBFUNC("the Help Desk at 888-830-7280")
- W !!,LINE
- D BMES^XPDUTL("Sorry....something is wrong with your environment")
- D BMES^XPDUTL("Enviroment ERROR "_$G(XPX))
- D BMES^XPDUTL("Aborting BMX Patch 1 install!")
- D BMES^XPDUTL("Correct error and reinstall otherwise")
- D BMES^XPDUTL("please print/capture this screen and notify")
- D BMES^XPDUTL("the Help Desk at 888-830-7280")
- Q
- ;
- BMXE01 ; IHS/OIT/FJE - ENVIRONMENT CHECK FOR BMX 4.0 ; 03 Jun 2010 9:39 AM
- +1 ;;4.0;BMX;;JUN 28, 2010
- +2 ;
- +3 SET $PIECE(LINE,"*",81)=""
- +4 ;NO QUEUING ALLOWED
- SET XPDNOQUE="NO QUE"
- +5 SET XPDABORT=0
- +6 IF '$GET(DUZ)
- WRITE !,"DUZ UNDEFINED OR 0."
- SET XPX="DUZ"
- DO SORRY
- QUIT
- +7 ;
- +8 IF '$LENGTH($GET(DUZ(0)))
- WRITE !,"DUZ(0) UNDEFINED OR NULL."
- SET XPX="DUZ"
- DO SORRY
- QUIT
- +9 ;
- +10 DO HOME^%ZIS
- DO DT^DICRW
- +11 SET X=$PIECE($GET(^VA(200,DUZ,0)),U)
- +12 IF $GET(X)=""
- WRITE !,$$C^XBFUNC("Who are you????")
- SET XPX="DUZ"
- DO SORRY
- QUIT
- +13 WRITE !,$$C^XBFUNC("Hello, "_$PIECE(X,",",2)_" "_$PIECE(X,","))
- +14 WRITE !!,$$C^XBFUNC("Checking Environment for Install of Version "_$PIECE($TEXT(+2),";",3)_" of "_$PIECE($TEXT(+2),";",4)_".")
- +15 ;
- +16 SET X=$GET(^DD("VERSION"))
- +17 WRITE !!,$$C^XBFUNC("Need at least FileMan 22.....FileMan "_X_" Present")
- +18 IF X<22
- SET XPX="FM"
- DO SORRY
- QUIT
- +19 ;
- +20 SET X=$GET(^DIC(9.4,$ORDER(^DIC(9.4,"C","XU",0)),"VERSION"))
- +21 WRITE !!,$$C^XBFUNC("Need at least Kernel 8.0.....Kernel "_X_" Present")
- +22 IF X<8.0
- SET XPX="KERNEL"
- DO SORRY
- QUIT
- +23 ;
- DNS ; MAKE SURE THERE IS A VALID DNS IP ADDRESS (OR A NULL VALUE) IN THE KERNEL SYSTEM PARAMETERS FILE
- +1 NEW DNS,POP,%
- +2 WRITE !!,$$C^XBFUNC("Checking Kernel system parameters. This may take 1 minute...")
- +3 SET DNS=$GET(^XTV(8989.3,1,"DNS"))
- +4 IF DNS=""
- GOTO DNS1
- +5 IF DNS="161.223.91.184"
- DO DNSERR
- QUIT
- +6 DO CALL^%ZISTCP(DNS,53)
- IF POP
- DO CLOSE^%ZISTCP
- DO DNSERR
- QUIT
- DNS1 DO CLOSE^%ZISTCP
- +1 WRITE !,$$C^XBFUNC("Kernel system parameters validated")
- +2 ;
- ENVOK ; If this is just an environ check, end here.
- +1 WRITE !!,$$C^XBFUNC("ENVIRONMENT OK.")
- +2 ;
- +3 ; The following line prevents the "Disable Options..." and "Move
- +4 ; Routines..." questions from being asked during the install.
- +5 IF $GET(XPDENV)=1
- SET (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
- +6 ;Updates BMX Version file
- IF $GET(XPDENV)=1
- Begin DoDot:1
- +7 SET X="2"
- SET DIC="^BMXAPPL("
- SET DLAYGO=90093.2
- SET DIC(0)="E"
- KILL DD,D0
- DO FILE^DICN
- +8 SET DA=+Y
- +9 IF +DA
- SET DIE="^BMXAPPL("
- SET DR=".02///0;.03////"_DT
- DO ^DIE
- +10 KILL DIE,DA
- End DoDot:1
- +11 QUIT
- +12 ;
- DNSERR WRITE !,$$C^XBFUNC("The DNS IP address in the KERNEL SYSTEM PARAMETERS file is invalid!!!")
- +1 WRITE !,$$C^XBFUNC("You must enter a valid IP in the DNS IP field (or null) before ")
- +2 WRITE !,$$C^XBFUNC("installing this package")
- +3 ;
- SORRY ;
- +1 KILL DIFQ
- +2 SET XPDABORT=1
- +3 WRITE *7,!!!,$$C^XBFUNC("Sorry....something is wrong with your environment")
- +4 WRITE !,$$C^XBFUNC("Aborting BMX Version 4.0 Install!")
- +5 WRITE !,$$C^XBFUNC("Correct error and reinstall otherwise")
- +6 WRITE !,$$C^XBFUNC("please print/capture this screen and notify")
- +7 WRITE !,$$C^XBFUNC("the Help Desk at 888-830-7280")
- +8 WRITE !!,LINE
- +9 DO BMES^XPDUTL("Sorry....something is wrong with your environment")
- +10 DO BMES^XPDUTL("Enviroment ERROR "_$GET(XPX))
- +11 DO BMES^XPDUTL("Aborting BMX Patch 1 install!")
- +12 DO BMES^XPDUTL("Correct error and reinstall otherwise")
- +13 DO BMES^XPDUTL("please print/capture this screen and notify")
- +14 DO BMES^XPDUTL("the Help Desk at 888-830-7280")
- +15 QUIT
- +16 ;
