BEDD2P01.m

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

 ;;2.0;BEDD DASHBOARD;**1**;Jun 04, 2014;Build 22

 ;

 NEW VERSION,X

 ;

 ;Check for AMER*3.0*8

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

 ;

 ;Check for the XML build

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

 ;

 Q

 ;

ENT ;Post install entry point

 ;

 NEW SC,EXEC

 ;Rebuild the new index

 S EXEC="S SC=##class(BEDD.EDSYSTEM).%BuildIndices()" X EXEC

 ;

 ;Force recompile of project

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

 D $SYSTEM.OBJ.CompileProject("bedd0200p1","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*8"

 ;

 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)

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

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

 +2       ;

 +3        NEW VERSION,X

 +4       ;

 +5       ;Check for AMER*3.0*8

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

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

               SET XPDQUIT=2

               QUIT 

 +7       ;

 +8       ;Check for the XML build

 +9        IF $TEXT(XML^BEDD2X01)=""

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

               SET XPDQUIT=2

               QUIT 

 +10      ;

 +11       QUIT 

 +12      ;

ENT       ;Post install entry point

 +1       ;

 +2        NEW SC,EXEC

 +3       ;Rebuild the new index

 +4        SET EXEC="S SC=##class(BEDD.EDSYSTEM).%BuildIndices()"

           XECUTE EXEC

 +5       ;

 +6       ;Force recompile of project

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

 +8        DO $SYSTEM.OBJ.CompileProject("bedd0200p1","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*8"

 +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)