BMX40PR4.m

BMX40PR4 ;GDIT/HS/BEE - BMX 4.0 Patch 4 PRE-INSTALL ROUTINE ; 8 Feb 2013 9:53 AM

 ;;4.0;BMX;**4**;JUN 28, 2010;Build 4

 ;

 ;PRE-INSTALL ROUTINE FOR BMX 4.0 Patch 4

 ;

 Q

 ;

PRE ; Pre-install

 NEW DA,DIK

 S DIK="^BMXADO(",DA=0

 F  S DA=$O(^BMXADO(DA)) Q:'DA  D ^DIK

 Q

BMX40PR4  ;GDIT/HS/BEE - BMX 4.0 Patch 4 PRE-INSTALL ROUTINE ; 8 Feb 2013 9:53 AM

 +1       ;;4.0;BMX;**4**;JUN 28, 2010;Build 4

 +2       ;

 +3       ;PRE-INSTALL ROUTINE FOR BMX 4.0 Patch 4

 +4       ;

 +5        QUIT 

 +6       ;

PRE       ; Pre-install

 +1        NEW DA,DIK

 +2        SET DIK="^BMXADO("

           SET DA=0

 +3        FOR 

               SET DA=$ORDER(^BMXADO(DA))

               IF 'DA

                   QUIT 

               DO ^DIK

 +4        QUIT