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

GMTSP30.m

Go to the documentation of this file.
  1. GMTSP30 ;SLC/RMP - GMTS*2.7*30 Post Install ; 04/19/1999
  1. ;;2.7;Health Summary;**30**;Apr 19, 1999
  1. Q
  1. PST ; Post Install Health Summary v 2.7, Pathc 30
  1. EN N DA,X,Y S X=" Reindexing Health Summary Type file, #142"
  1. W:'$D(XPDNM) !!,X D:$D(XPDNM) BMES^XPDUTL(X)
  1. N DA,DIC,DIK S DA=$O(^GMT(142,"!"),-1),(DIC,DIK)="^GMT(142,"
  1. F S DA=$O(^GMT(142,DA)) Q:DA="" K:$L(DA)&(+DA=0) ^GMT(142,DA)
  1. S DA=0 F S DA=$O(^GMT(142,DA)) Q:+DA=0 D IX1^DIK W "."
  1. S X=" " W:'$D(XPDNM) ! D:$D(XPDNM) MES^XPDUTL(X)
  1. Q