GMTSP30.m

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 ---GMTSP30   523     printed  Mar 13, 2025@21:03:38                                                                                                                                                                                                      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