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 ---[H[J[2J[HIBY137PR 1412 printed Dec 13, 2024@02:33:24 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 ;
