IBY137PR.m

IBY137PR ;ALB/TMP - IB*2*137 PRE-INSTALL ;23-AUG-00

 ;;2.0;INTEGRATED BILLING;**137**;21-MAR-94

 ;

 N DIE,DR,DIK,DA,IBX,DA,IBXREF,Z

 D BMES^XPDUTL("Pre-Installation Updates")

 ;I $O(^IBA(364.3,0)) G OVER ; Already installed once - skip some parts

 D BMES^XPDUTL("Delete xrefs and output formatter data that will be updated during install")

 S DA(1)=399.0222,DA=.02,DIK="^DD(399.0222," D ^DIK

 ;

 S DA=265,DR="3///@",DIE="^IBA(364.7," D ^DIE

 S DIK="^IBA(364.7,",DA=505 D ^DIK

 D DELIX^DDMOD(399,9,2)

 S IBX="   >> ^DD(399,9) cross reference #2 deleted." D MES^XPDUTL(IBX)

 D DELIX^DDMOD(399,151,3)

 S IBX="   >> ^DD(399,151) cross reference #3 deleted." D MES^XPDUTL(IBX)

 D DELIX^DDMOD(399,201,1)

 S IBX="   >> ^DD(399,201) cross reference #1 deleted." D MES^XPDUTL(IBX)

 D DELIX^DDMOD(399,210,1)

 S IBX="   >> ^DD(399,210) cross reference #1 deleted." D MES^XPDUTL(IBX)

 D DELIX^DDMOD(399.042,.04,1)

 S IBX="   >> ^DD(399.042,.04) cross reference #1 deleted." D MES^XPDUTL(IBX)

 K ^DD(399,151,21),^DD(399,152,21)

 I $G(^IBA(364.6,745,0))'="",$P(^(0),U,9)'=31 S $P(^(0),U,9)=31

 ;

 S IBXREF=0

 F  S IBXREF=$O(^DD(399,6,1,IBXREF)) Q:'IBXREF  D DELIX^DDMOD(399,6,IBXREF)

 D DELIX^DDMOD(399,3,3) ; Deletes trigger of field 6

 S IBX="   >> All ^DD(399,6) cross references deleted." D MES^XPDUTL(IBX)

 ;

OVER ; Start here for a reinstall

 D BMES^XPDUTL("Pre-install complete")

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBY137PR   1412     printed  Apr 09, 2024@21:29:02                                                                                                                                                                                                    Page 2

IBY137PR  ;ALB/TMP - IB*2*137 PRE-INSTALL ;23-AUG-00

 +1       ;;2.0;INTEGRATED BILLING;**137**;21-MAR-94

 +2       ;

 +3        NEW DIE,DR,DIK,DA,IBX,DA,IBXREF,Z

 +4        DO BMES^XPDUTL("Pre-Installation Updates")

 +5       ;I $O(^IBA(364.3,0)) G OVER ; Already installed once - skip some parts

 +6        DO BMES^XPDUTL("Delete xrefs and output formatter data that will be updated during install")

 +7        SET DA(1)=399.0222

           SET DA=.02

           SET DIK="^DD(399.0222,"

           DO ^DIK

 +8       ;

 +9        SET DA=265

           SET DR="3///@"

           SET DIE="^IBA(364.7,"

           DO ^DIE

 +10       SET DIK="^IBA(364.7,"

           SET DA=505

           DO ^DIK

 +11       DO DELIX^DDMOD(399,9,2)

 +12       SET IBX="   >> ^DD(399,9) cross reference #2 deleted."

           DO MES^XPDUTL(IBX)

 +13       DO DELIX^DDMOD(399,151,3)

 +14       SET IBX="   >> ^DD(399,151) cross reference #3 deleted."

           DO MES^XPDUTL(IBX)

 +15       DO DELIX^DDMOD(399,201,1)

 +16       SET IBX="   >> ^DD(399,201) cross reference #1 deleted."

           DO MES^XPDUTL(IBX)

 +17       DO DELIX^DDMOD(399,210,1)

 +18       SET IBX="   >> ^DD(399,210) cross reference #1 deleted."

           DO MES^XPDUTL(IBX)

 +19       DO DELIX^DDMOD(399.042,.04,1)

 +20       SET IBX="   >> ^DD(399.042,.04) cross reference #1 deleted."

           DO MES^XPDUTL(IBX)

 +21       KILL ^DD(399,151,21),^DD(399,152,21)

 +22       IF $GET(^IBA(364.6,745,0))'=""

               IF $PIECE(^(0),U,9)'=31

                   SET $PIECE(^(0),U,9)=31

 +23      ;

 +24       SET IBXREF=0

 +25       FOR 

               SET IBXREF=$ORDER(^DD(399,6,1,IBXREF))

               if 'IBXREF

                   QUIT 

               DO DELIX^DDMOD(399,6,IBXREF)

 +26      ; Deletes trigger of field 6

           DO DELIX^DDMOD(399,3,3)

 +27       SET IBX="   >> All ^DD(399,6) cross references deleted."

           DO MES^XPDUTL(IBX)

 +28      ;

OVER      ; Start here for a reinstall

 +1        DO BMES^XPDUTL("Pre-install complete")

 +2        QUIT 

 +3       ;