GMTSP32 ;SLC/KER - GMTS*2.7*32 Post Install ; 08/26/1999
;;2.7;Health Summary;**32**;Apr 19, 1999
Q
PST ; Post Install Health Summary v 2.7, Patch 32
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)&('$L($G(^GMT(142,DA)))) ^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[HGMTSP32 545 printed Dec 13, 2024@01:58:51 Page 2
GMTSP32 ;SLC/KER - GMTS*2.7*32 Post Install ; 08/26/1999
+1 ;;2.7;Health Summary;**32**;Apr 19, 1999
+2 QUIT
PST ; Post Install Health Summary v 2.7, Patch 32
+1 NEW DA,X,Y
SET X=" Reindexing Health Summary Type file, #142"
+2 if '$DATA(XPDNM)
WRITE !!,X
if $DATA(XPDNM)
DO BMES^XPDUTL(X)
+3 NEW DA,DIC,DIK
SET DA=$ORDER(^GMT(142,"!"),-1)
SET (DIC,DIK)="^GMT(142,"
+4 FOR
SET DA=$ORDER(^GMT(142,DA))
if DA=""
QUIT
if $LENGTH(DA)&(+DA=0)&('$LENGTH($GET(^GMT(142,DA))))
KILL ^GMT(142,DA)
+5 SET DA=0
FOR
SET DA=$ORDER(^GMT(142,DA))
if +DA=0
QUIT
DO IX1^DIK
WRITE "."
+6 SET X=" "
if '$DATA(XPDNM)
WRITE !
if $DATA(XPDNM)
DO MES^XPDUTL(X)
+7 QUIT
