Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PRC51112

PRC51112.m

Go to the documentation of this file.
  1. PRC51112 ;VMP/TJH - PRE & POST INSTALL INDEX CLEAN-UP FOR *112; 09/13/2007
  1. ;;5.1;IFCAP;**112**;Oct 20, 2000;Build 2
  1. ;
  1. TOP ; No entry at top
  1. Q
  1. ;
  1. PRE ; Pre-install segment
  1. ; remove the UNQ, UNQ1 and UNQ3 xref definitions from the Data Dictionary
  1. ; and Kill the existing index entries.
  1. D BMES^XPDUTL("Removing old 'UNQ' cross reference.......")
  1. D DELIX^DDMOD(420.14,.01,"UNQ","K")
  1. D DELIX^DDMOD(420.14,2,"UNQ1","K",)
  1. D DELIX^DDMOD(420.14,3,"UNQ3","K",)
  1. ; if there are any 'dangling' entries in the index, remove them too
  1. N PRC D
  1. . Q:'$D(^PRCD(420.14,"UNQ"))
  1. . S PRC=""
  1. . F S PRC=$O(^PRCD(420.14,"UNQ",PRC)) Q:PRC="" K ^PRCD(420.14,"UNQ",PRC)
  1. D BMES^XPDUTL("Removal complete.")
  1. D MES^XPDUTL("Installing new cross reference definition.")
  1. XPRE Q ; end of Pre-install processing
  1. ;
  1. ;
  1. POST ; Post-install segment
  1. ; re-index file 420.14 using the New Style "UNQ" xref
  1. D BMES^XPDUTL("New 'UNQ' definition installed.")
  1. D MES^XPDUTL("Re-indexing.....")
  1. S DIK="^PRCD(420.14,",DIK(1)=".01^UNQ"
  1. D ENALL^DIK
  1. D BMES^XPDUTL("New 'UNQ' cross reference complete.")
  1. XPOST Q