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 Dec 13, 2024@01:59:38 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
