GMTSP30 ;SLC/RMP - GMTS*2.7*30 Post Install ; 04/19/1999
;;2.7;Health Summary;**30**;Apr 19, 1999
Q
PST ; Post Install Health Summary v 2.7, Pathc 30
EN N DA,X,Y S X=" Reindexing Health Summary Type file, #142"
W:'$D(XPDNM) !!,X D:$D(XPDNM) BMES^XPDUTL(X)
N DA,DIC,DIK S DA=$O(^GMT(142,"!"),-1),(DIC,DIK)="^GMT(142,"
F S DA=$O(^GMT(142,DA)) Q:DA="" K:$L(DA)&(+DA=0) ^GMT(142,DA)
S DA=0 F S DA=$O(^GMT(142,DA)) Q:+DA=0 D IX1^DIK W "."
S X=" " W:'$D(XPDNM) ! D:$D(XPDNM) MES^XPDUTL(X)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMTSP30 523 printed Nov 22, 2024@17:08:57 Page 2
GMTSP30 ;SLC/RMP - GMTS*2.7*30 Post Install ; 04/19/1999
+1 ;;2.7;Health Summary;**30**;Apr 19, 1999
+2 QUIT
PST ; Post Install Health Summary v 2.7, Pathc 30
EN NEW DA,X,Y
SET X=" Reindexing Health Summary Type file, #142"
+1 if '$DATA(XPDNM)
WRITE !!,X
if $DATA(XPDNM)
DO BMES^XPDUTL(X)
+2 NEW DA,DIC,DIK
SET DA=$ORDER(^GMT(142,"!"),-1)
SET (DIC,DIK)="^GMT(142,"
+3 FOR
SET DA=$ORDER(^GMT(142,DA))
if DA=""
QUIT
if $LENGTH(DA)&(+DA=0)
KILL ^GMT(142,DA)
+4 SET DA=0
FOR
SET DA=$ORDER(^GMT(142,DA))
if +DA=0
QUIT
DO IX1^DIK
WRITE "."
+5 SET X=" "
if '$DATA(XPDNM)
WRITE !
if $DATA(XPDNM)
DO MES^XPDUTL(X)
+6 QUIT
