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

XU8P706.m

Go to the documentation of this file.
  1. XU8P706 ;OAK_BP/BDT - POST ROUTINE 706 REINDEX THE LOC1 X-REF; 2/07/19
  1. ;;8.0;KERNEL;**706**;Jul 10, 1995;Build 2
  1. ;;Per VHA Directive 6402, this routine should not be modified.
  1. ;
  1. Q
  1. ;
  1. PRE ; Delete x-ref
  1. I $G(^DD(4,720,1,1,0))="4^LOC1^MUMPS" D DELIX^DDMOD(4,720,1,"K")
  1. Q
  1. ;
  1. POST ; Re-index the LOC nodes
  1. D DEL,BUILD
  1. Q
  1. DEL ;
  1. N DIK
  1. S DIK="^DIC(4,"
  1. S DIK(1)=720
  1. D ENALL2^DIK
  1. Q
  1. BUILD ;
  1. N DIK
  1. S DIK="^DIC(4,"
  1. S DIK(1)=720
  1. D ENALL^DIK
  1. Q