source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XU8P360.m@ 1141

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

initial load of WorldVistAEHR

File size: 311 bytes
RevLine 
[613]1XU8P360 ;OIFOO/SO- RE-INDEX "AUSER" XREF;10:46 AM 13 May 2005
2 ;;8.0;KERNEL;*360*;Jul 10, 1995
3 D MES^XPDUTL("Begin re-indexing ""AUSER"" cross reference...")
4 K ^VA(200,"AUSER")
5 N DIK,DA
6 S DIK="^VA(200,"
7 S DIK(1)=".01^AUSER"
8 D ENALL^DIK
9 D MES^XPDUTL("Finished re-indexing ""AUSER"" cross reference.")
10 Q
Note: See TracBrowser for help on using the repository browser.