source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRC51112.m@ 1078

Last change on this file since 1078 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1PRC51112 ;VMP/TJH - PRE & POST INSTALL INDEX CLEAN-UP FOR *112; 09/13/2007
2 ;;5.1;IFCAP;**112**;Oct 20, 2000;Build 2
3 ;
4TOP ; No entry at top
5 Q
6 ;
7PRE ; 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.")
21XPRE Q ; end of Pre-install processing
22 ;
23 ;
24POST ; 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.")
31XPOST Q
Note: See TracBrowser for help on using the repository browser.