BEDD2P03.m

BEDD2P03 ;GDIT/HS/BEE-BEDD VERSION 2.0 Patch 3 ENV/PST ROUTINE ; 08 Nov 2011  12:00 PM

 ;;2.0;BEDD DASHBOARD;**3**;Jun 04, 2014;Build 12

 ;

 NEW VERSION,X

 ;

 ;Check for AMER*3.0*9

 I '$$INSTALLD("AMER*3.0*10") D BMES^XPDUTL("Version 3.0 Patch 10 of AMER is required!") S XPDQUIT=2 Q

 ;

 ;Check for BEDD*2.0*1

 I '$$INSTALLD("BEDD*2.0*2") D BMES^XPDUTL("Version 2.0 Patch 2 of BEDD is required!") S XPDQUIT=2 Q

 ;

 ;Check for the XML build

 I $T(XML^BEDD2X03)="" D BMES^XPDUTL("The BEDD XML build bedd0200.03.xml must first be installed!") S XPDQUIT=2 Q

 ;

 Q

 ;

ENT ;Post install entry point

 ;

 NEW SC

 ;

 ;Force recompile of project

 D $SYSTEM.OBJ.CompileProject("bedd0200","k-u")

 D $SYSTEM.OBJ.CompileProject("bedd0200p1","k-u")

 D $SYSTEM.OBJ.CompileProject("bedd0200p2","k-u")

 D $SYSTEM.OBJ.CompileProject("bedd0200p3","k-u")

 D $SYSTEM.OBJ.CompileList("csp/bedd/BEDD*.csp","k-u")

 ;

 Q

 ;

INSTALLD(BEDDSTAL) ;EP - Determine if patch BEDDSTAL was installed, where

 ;BEDDSTAL is the name of the INSTALL.  E.g "AMER*3.0*10"

 ;

 NEW DIC,X,Y,D

 S X=$P(BEDDSTAL,"*",1)

 S DIC="^DIC(9.4,",DIC(0)="FM",D="C"

 D IX^DIC

 I Y<1 Q 0

 S DIC=DIC_+Y_",22,",X=$P(BEDDSTAL,"*",2)

 D ^DIC

 I Y<1 Q 0

 S DIC=DIC_+Y_",""PAH"",",X=$P(BEDDSTAL,"*",3)

 D ^DIC

 Q $S(Y<1:0,1:1)

BEDD2P03  ;GDIT/HS/BEE-BEDD VERSION 2.0 Patch 3 ENV/PST ROUTINE ; 08 Nov 2011  12:00 PM

 +1       ;;2.0;BEDD DASHBOARD;**3**;Jun 04, 2014;Build 12

 +2       ;

 +3        NEW VERSION,X

 +4       ;

 +5       ;Check for AMER*3.0*9

 +6        IF '$$INSTALLD("AMER*3.0*10")

               DO BMES^XPDUTL("Version 3.0 Patch 10 of AMER is required!")

               SET XPDQUIT=2

               QUIT 

 +7       ;

 +8       ;Check for BEDD*2.0*1

 +9        IF '$$INSTALLD("BEDD*2.0*2")

               DO BMES^XPDUTL("Version 2.0 Patch 2 of BEDD is required!")

               SET XPDQUIT=2

               QUIT 

 +10      ;

 +11      ;Check for the XML build

 +12       IF $TEXT(XML^BEDD2X03)=""

               DO BMES^XPDUTL("The BEDD XML build bedd0200.03.xml must first be installed!")

               SET XPDQUIT=2

               QUIT 

 +13      ;

 +14       QUIT 

 +15      ;

ENT       ;Post install entry point

 +1       ;

 +2        NEW SC

 +3       ;

 +4       ;Force recompile of project

 +5        DO $SYSTEM.OBJ.CompileProject("bedd0200","k-u")

 +6        DO $SYSTEM.OBJ.CompileProject("bedd0200p1","k-u")

 +7        DO $SYSTEM.OBJ.CompileProject("bedd0200p2","k-u")

 +8        DO $SYSTEM.OBJ.CompileProject("bedd0200p3","k-u")

 +9        DO $SYSTEM.OBJ.CompileList("csp/bedd/BEDD*.csp","k-u")

 +10      ;

 +11       QUIT 

 +12      ;

INSTALLD(BEDDSTAL) ;EP - Determine if patch BEDDSTAL was installed, where

 +1       ;BEDDSTAL is the name of the INSTALL.  E.g "AMER*3.0*10"

 +2       ;

 +3        NEW DIC,X,Y,D

 +4        SET X=$PIECE(BEDDSTAL,"*",1)

 +5        SET DIC="^DIC(9.4,"

           SET DIC(0)="FM"

           SET D="C"

 +6        DO IX^DIC

 +7        IF Y<1

               QUIT 0

 +8        SET DIC=DIC_+Y_",22,"

           SET X=$PIECE(BEDDSTAL,"*",2)

 +9        DO ^DIC

 +10       IF Y<1

               QUIT 0

 +11       SET DIC=DIC_+Y_",""PAH"","

           SET X=$PIECE(BEDDSTAL,"*",3)

 +12       DO ^DIC

 +13       QUIT $SELECT(Y<1:0,1:1)