| 1 | PRC51112 ;VMP/TJH - PRE & POST INSTALL INDEX CLEAN-UP FOR *112; 09/13/2007
|
|---|
| 2 | ;;5.1;IFCAP;**112**;Oct 20, 2000;Build 2
|
|---|
| 3 | ;
|
|---|
| 4 | TOP ; No entry at top
|
|---|
| 5 | Q
|
|---|
| 6 | ;
|
|---|
| 7 | PRE ; Pre-install segment
|
|---|
| 8 | ; remove the UNQ, UNQ1 and UNQ3 xref definitions from the Data Dictionary
|
|---|
| 9 | ; and Kill the existing index entries.
|
|---|
| 10 | D BMES^XPDUTL("Removing old 'UNQ' cross reference.......")
|
|---|
| 11 | D DELIX^DDMOD(420.14,.01,"UNQ","K")
|
|---|
| 12 | D DELIX^DDMOD(420.14,2,"UNQ1","K",)
|
|---|
| 13 | D DELIX^DDMOD(420.14,3,"UNQ3","K",)
|
|---|
| 14 | ; if there are any 'dangling' entries in the index, remove them too
|
|---|
| 15 | N PRC D
|
|---|
| 16 | . Q:'$D(^PRCD(420.14,"UNQ"))
|
|---|
| 17 | . S PRC=""
|
|---|
| 18 | . F S PRC=$O(^PRCD(420.14,"UNQ",PRC)) Q:PRC="" K ^PRCD(420.14,"UNQ",PRC)
|
|---|
| 19 | D BMES^XPDUTL("Removal complete.")
|
|---|
| 20 | D MES^XPDUTL("Installing new cross reference definition.")
|
|---|
| 21 | XPRE Q ; end of Pre-install processing
|
|---|
| 22 | ;
|
|---|
| 23 | ;
|
|---|
| 24 | POST ; Post-install segment
|
|---|
| 25 | ; re-index file 420.14 using the New Style "UNQ" xref
|
|---|
| 26 | D BMES^XPDUTL("New 'UNQ' definition installed.")
|
|---|
| 27 | D MES^XPDUTL("Re-indexing.....")
|
|---|
| 28 | S DIK="^PRCD(420.14,",DIK(1)=".01^UNQ"
|
|---|
| 29 | D ENALL^DIK
|
|---|
| 30 | D BMES^XPDUTL("New 'UNQ' cross reference complete.")
|
|---|
| 31 | XPOST Q
|
|---|
