- 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 ---[H[J[2J[HPRC51112 1111 printed Feb 18, 2025@23:26:01 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