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
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 311 bytes |
Line | |
---|---|
1 | XU8P360 ;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.