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

TIU157PS.m

Go to the documentation of this file.
  1. TIU157PS ; SLC/JMH - Patch 157 post-install routine ; [11/18/04 10:36am]
  1. ;;1.0;TEXT INTEGRATION UTILITIES;**157**;Jun 20, 1997
  1. REINDEX ;reindex the new "AC" index on file 8925.7
  1. N TIUD0
  1. S TIUD0=0
  1. I $O(^TIU(8925.7,"AC","")) Q
  1. F S TIUD0=$O(^TIU(8925.7,TIUD0)) Q:'TIUD0 D
  1. . N TIUDOC S TIUDOC=+$G(^TIU(8925.7,TIUD0,0)) Q:'TIUDOC
  1. . Q:'+$G(^TIU(8925,TIUDOC,0))
  1. . N TIUDT S TIUDT=$P($G(^TIU(8925.7,TIUD0,0)),U,4) Q:TIUDT
  1. . S ^TIU(8925.7,"AC",$P($G(^TIU(8925,TIUDOC,12)),U),$G(TIUDOC))=""
  1. Q