PRC51112.m

PRC51112 ;VMP/TJH - PRE & POST INSTALL INDEX CLEAN-UP FOR *112; 09/13/2007

 ;;5.1;IFCAP;**112**;Oct 20, 2000;Build 2

 ;

TOP ; No entry at top

 Q

 ;

PRE ; Pre-install segment

 ; remove the UNQ, UNQ1 and UNQ3 xref definitions from the Data Dictionary

 ; and Kill the existing index entries.

 D BMES^XPDUTL("Removing old 'UNQ' cross reference.......")

 D DELIX^DDMOD(420.14,.01,"UNQ","K")

 D DELIX^DDMOD(420.14,2,"UNQ1","K",)

 D DELIX^DDMOD(420.14,3,"UNQ3","K",)

 ; if there are any 'dangling' entries in the index, remove them too

 N PRC D

 . Q:'$D(^PRCD(420.14,"UNQ"))

 . S PRC=""

 . F  S PRC=$O(^PRCD(420.14,"UNQ",PRC)) Q:PRC=""  K ^PRCD(420.14,"UNQ",PRC)

 D BMES^XPDUTL("Removal complete.")

 D MES^XPDUTL("Installing new cross reference definition.")

XPRE Q  ; end of Pre-install processing

 ;

 ;

POST ; Post-install segment

 ; re-index file 420.14 using the New Style "UNQ" xref

 D BMES^XPDUTL("New 'UNQ' definition installed.")

 D MES^XPDUTL("Re-indexing.....")

 S DIK="^PRCD(420.14,",DIK(1)=".01^UNQ"

 D ENALL^DIK

 D BMES^XPDUTL("New 'UNQ' cross reference complete.")

XPOST Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRC51112   1111     printed  Apr 09, 2024@21:03:18                                                                                                                                                                                                    Page 2

PRC51112  ;VMP/TJH - PRE & POST INSTALL INDEX CLEAN-UP FOR *112; 09/13/2007

 +1       ;;5.1;IFCAP;**112**;Oct 20, 2000;Build 2

 +2       ;

TOP       ; No entry at top

 +1        QUIT 

 +2       ;

PRE       ; Pre-install segment

 +1       ; remove the UNQ, UNQ1 and UNQ3 xref definitions from the Data Dictionary

 +2       ; and Kill the existing index entries.

 +3        DO BMES^XPDUTL("Removing old 'UNQ' cross reference.......")

 +4        DO DELIX^DDMOD(420.14,.01,"UNQ","K")

 +5        DO DELIX^DDMOD(420.14,2,"UNQ1","K",)

 +6        DO DELIX^DDMOD(420.14,3,"UNQ3","K",)

 +7       ; if there are any 'dangling' entries in the index, remove them too

 +8        NEW PRC

           Begin DoDot:1

 +9            if '$DATA(^PRCD(420.14,"UNQ"))

                   QUIT 

 +10           SET PRC=""

 +11           FOR 

                   SET PRC=$ORDER(^PRCD(420.14,"UNQ",PRC))

                   if PRC=""

                       QUIT 

                   KILL ^PRCD(420.14,"UNQ",PRC)

           End DoDot:1

 +12       DO BMES^XPDUTL("Removal complete.")

 +13       DO MES^XPDUTL("Installing new cross reference definition.")

XPRE      ; end of Pre-install processing

           QUIT 

 +1       ;

 +2       ;

POST      ; Post-install segment

 +1       ; re-index file 420.14 using the New Style "UNQ" xref

 +2        DO BMES^XPDUTL("New 'UNQ' definition installed.")

 +3        DO MES^XPDUTL("Re-indexing.....")

 +4        SET DIK="^PRCD(420.14,"

           SET DIK(1)=".01^UNQ"

 +5        DO ENALL^DIK

 +6        DO BMES^XPDUTL("New 'UNQ' cross reference complete.")

XPOST      QUIT