32 lines
1.1 KiB
Mathematica
32 lines
1.1 KiB
Mathematica
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
|