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

XU8P360.m

Go to the documentation of this file.

XU8P360 ;OIFOO/SO- RE-INDEX "AUSER" XREF;10:46 AM  13 May 2005

 ;;8.0;KERNEL;*360*;Jul 10, 1995

 D MES^XPDUTL("Begin re-indexing ""AUSER"" cross reference...")

 K ^VA(200,"AUSER")

 N DIK,DA

 S DIK="^VA(200,"

 S DIK(1)=".01^AUSER"

 D ENALL^DIK

 D MES^XPDUTL("Finished re-indexing ""AUSER"" cross reference.")

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P360   321     printed  Apr 09, 2024@21:09:07                                                                                                                                                                                                      Page 2

XU8P360   ;OIFOO/SO- RE-INDEX "AUSER" XREF;10:46 AM  13 May 2005

 +1       ;;8.0;KERNEL;*360*;Jul 10, 1995

 +2        DO MES^XPDUTL("Begin re-indexing ""AUSER"" cross reference...")

 +3        KILL ^VA(200,"AUSER")

 +4        NEW DIK,DA

 +5        SET DIK="^VA(200,"

 +6        SET DIK(1)=".01^AUSER"

 +7        DO ENALL^DIK

 +8        DO MES^XPDUTL("Finished re-indexing ""AUSER"" cross reference.")

 +9        QUIT