- BEDD2ENV ;GDIT/HS/BEE-BEDD VERSION 2.0 ENV CHECK ROUTINE ; 08 Nov 2011 12:00 PM
- ;;2.0;BEDD DASHBOARD;;Jun 04, 2014;Build 13
- ;
- NEW VERSION,X
- ;
- ;Add code to check for Ensemble version greater or equal to 2012
- S VERSION=$$VERSION^%ZOSV
- I VERSION<2012 D BMES^XPDUTL("Ensemble 2012 or later is required!") S XPDQUIT=2 Q
- ;
- ;Check for AMER*3.0*6
- I '$$INSTALLD("AMER*3.0*6") D FIX(2)
- ;
- I $T(XML^BEDD2XML)="" D BMES^XPDUTL("The BEDD XML build bedd0200.xml must first be installed!") S XPDQUIT=2 Q
- ;
- Q
- INSTALLD(BEDDSTAL) ;EP - Determine if patch BEDDSTAL was installed, where
- ; BEDDSTAL is the name of the INSTALL. E.g "AG*6.0*11".
- ;
- NEW BEDDY,INST
- ;
- S BEDDY=$O(^XPD(9.7,"B",BEDDSTAL,""))
- S INST=$S(BEDDY>0:1,1:0)
- D IMES(BEDDSTAL,INST)
- Q INST
- ;
- IMES(BEDDSTAL,Y) ;Display message to screen
- D MES^XPDUTL($$CJ^XLFSTR("Patch """_BEDDSTAL_""" is"_$S(Y<1:" *NOT*",1:"")_" installed.",IOM))
- Q
- ;
- FIX(X) ;
- KILL DIFQ
- I X=3 S XPDQUIT=2 Q
- S XPDQUIT=X
- W *7,!,$$CJ^XLFSTR("This patch must be installed prior to the installation of BEDD V2.0",IOM)
- Q
- BEDD2ENV ;GDIT/HS/BEE-BEDD VERSION 2.0 ENV CHECK ROUTINE ; 08 Nov 2011 12:00 PM
- +1 ;;2.0;BEDD DASHBOARD;;Jun 04, 2014;Build 13
- +2 ;
- +3 NEW VERSION,X
- +4 ;
- +5 ;Add code to check for Ensemble version greater or equal to 2012
- +6 SET VERSION=$$VERSION^%ZOSV
- +7 IF VERSION<2012
- DO BMES^XPDUTL("Ensemble 2012 or later is required!")
- SET XPDQUIT=2
- QUIT
- +8 ;
- +9 ;Check for AMER*3.0*6
- +10 IF '$$INSTALLD("AMER*3.0*6")
- DO FIX(2)
- +11 ;
- +12 IF $TEXT(XML^BEDD2XML)=""
- DO BMES^XPDUTL("The BEDD XML build bedd0200.xml must first be installed!")
- SET XPDQUIT=2
- QUIT
- +13 ;
- +14 QUIT
- INSTALLD(BEDDSTAL) ;EP - Determine if patch BEDDSTAL was installed, where
- +1 ; BEDDSTAL is the name of the INSTALL. E.g "AG*6.0*11".
- +2 ;
- +3 NEW BEDDY,INST
- +4 ;
- +5 SET BEDDY=$ORDER(^XPD(9.7,"B",BEDDSTAL,""))
- +6 SET INST=$SELECT(BEDDY>0:1,1:0)
- +7 DO IMES(BEDDSTAL,INST)
- +8 QUIT INST
- +9 ;
- IMES(BEDDSTAL,Y) ;Display message to screen
- +1 DO MES^XPDUTL($$CJ^XLFSTR("Patch """_BEDDSTAL_""" is"_$SELECT(Y<1:" *NOT*",1:"")_" installed.",IOM))
- +2 QUIT
- +3 ;
- FIX(X) ;
- +1 KILL DIFQ
- +2 IF X=3
- SET XPDQUIT=2
- QUIT
- +3 SET XPDQUIT=X
- +4 WRITE *7,!,$$CJ^XLFSTR("This patch must be installed prior to the installation of BEDD V2.0",IOM)
- +5 QUIT