Routine: GMTS23IN

GMTS23IN ;SLC/PKR - Init for patch GMTS*2.7*23 ; 11/25/97

 ;;2.7;Health Summary;**23**;Oct 20, 1995

 ;======================================================================

CDHN ;Change default header names in Health Summary Types.

 D BMES^XPDUTL("Changing defaulted header names to the new defaults.")

 N CDHN,FDA,IENS,IND,JND,MSG

 S IND=0

 F  S IND=$O(^GMT(142,IND)) Q:+IND'>0  D

 . S JND=0

 . F  S JND=$O(^GMT(142,IND,1,JND)) Q:+JND'>0  D

 .. S CDHN=$P(^GMT(142,IND,1,JND,0),U,5)

 .. I CDHN="Clinical Maintenance" D

 ... S IENS=JND_","_IND_","

 ... S FDA(142.01,IENS,5)="Reminder Maintenance"

 ... D FILE^DIE("KE","FDA","MSG")

 .. I CDHN="Clinical Reminders" D

 ... S IENS=JND_","_IND_","

 ... S FDA(142.01,IENS,5)="Reminders Due"

 ... D FILE^DIE("KE","FDA","MSG")

 ;======================================================================

POST ;Post init for GMTS*2.7*23

 ;Change the default header names to the new ones in existing Health

 ;Summaries.

 D CDHN

 ;Reload the Ad Hoc Health Summary

 N INCLUDE

 I XPDQUES("POSADHOC") S INCLUDE=1

 E  S INCLUDE=0

 D BMES^XPDUTL("Reloading the Ad Hoc Health Summary")

 I INCLUDE D BMES^XPDUTL("Disabled components will be included")

 I 'INCLUDE D BMES^XPDUTL("Disabled components will not be included")

 D ENPOST^GMTSLOAD

 ;======================================================================

RENCRC ;Rename the CLINICAL REMINDERS COMPONENTS.

 N FDA,IND,MSG

 D BMES^XPDUTL("Renaming PCE CLINICAL REMINDERS Health Summary Component")

 S IND=$O(^GMT(142.1,"B","PCE CLINICAL MAINTENANCE",""))

 I $L(IND)>0 D

 . S FDA(142.1,IND_",",.01)="CLINICAL REMINDERS MAINTENANCE"

 . D FILE^DIE("KE","FDA","MSG")

 S IND=$O(^GMT(142.1,"B","PCE CLINICAL REMINDERS",""))

 I $L(IND)>0 D

 . S FDA(142.1,IND_",",.01)="CLINICAL REMINDERS DUE"

 . D FILE^DIE("KE","FDA","MSG")

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMTS23IN   1881     printed  Mar 13, 2025@21:01:33                                                                                                                                                                                                    Page 2

GMTS23IN  ;SLC/PKR - Init for patch GMTS*2.7*23 ; 11/25/97

 +1       ;;2.7;Health Summary;**23**;Oct 20, 1995

 +2       ;

 +3       ;======================================================================

CDHN      ;Change default header names in Health Summary Types.

 +1        DO BMES^XPDUTL("Changing defaulted header names to the new defaults.")

 +2        NEW CDHN,FDA,IENS,IND,JND,MSG

 +3        SET IND=0

 +4        FOR

               SET IND=$ORDER(^GMT(142,IND))

               if +IND'>0

                   QUIT

               Begin DoDot:1

 +5                SET JND=0

 +6                FOR

                       SET JND=$ORDER(^GMT(142,IND,1,JND))

                       if +JND'>0

                           QUIT

                       Begin DoDot:2

 +7                        SET CDHN=$PIECE(^GMT(142,IND,1,JND,0),U,5)

 +8                        IF CDHN="Clinical Maintenance"

                               Begin DoDot:3

 +9                                SET IENS=JND_","_IND_","

 +10                               SET FDA(142.01,IENS,5)="Reminder Maintenance"

 +11                               DO FILE^DIE("KE","FDA","MSG")

                               End DoDot:3

 +12                       IF CDHN="Clinical Reminders"

                               Begin DoDot:3

 +13                               SET IENS=JND_","_IND_","

 +14                               SET FDA(142.01,IENS,5)="Reminders Due"

 +15                               DO FILE^DIE("KE","FDA","MSG")

                               End DoDot:3

                       End DoDot:2

               End DoDot:1

 +16       QUIT

 +17      ;

 +18      ;======================================================================

POST      ;Post init for GMTS*2.7*23

 +1       ;Change the default header names to the new ones in existing Health

 +2       ;Summaries.

 +3        DO CDHN

 +4       ;

 +5       ;Reload the Ad Hoc Health Summary

 +6        NEW INCLUDE

 +7        IF XPDQUES("POSADHOC")

               SET INCLUDE=1

 +8       IF '$TEST

               SET INCLUDE=0

 +9        DO BMES^XPDUTL("Reloading the Ad Hoc Health Summary")

 +10       IF INCLUDE

               DO BMES^XPDUTL("Disabled components will be included")

 +11       IF 'INCLUDE

               DO BMES^XPDUTL("Disabled components will not be included")

 +12       DO ENPOST^GMTSLOAD

 +13       QUIT

 +14      ;

 +15      ;======================================================================

RENCRC    ;Rename the CLINICAL REMINDERS COMPONENTS.

 +1        NEW FDA,IND,MSG

 +2        DO BMES^XPDUTL("Renaming PCE CLINICAL REMINDERS Health Summary Component")

 +3        SET IND=$ORDER(^GMT(142.1,"B","PCE CLINICAL MAINTENANCE",""))

 +4        IF $LENGTH(IND)>0

               Begin DoDot:1

 +5                SET FDA(142.1,IND_",",.01)="CLINICAL REMINDERS MAINTENANCE"

 +6                DO FILE^DIE("KE","FDA","MSG")

               End DoDot:1

 +7       ;

 +8        SET IND=$ORDER(^GMT(142.1,"B","PCE CLINICAL REMINDERS",""))

 +9        IF $LENGTH(IND)>0

               Begin DoDot:1

 +10               SET FDA(142.1,IND_",",.01)="CLINICAL REMINDERS DUE"

 +11               DO FILE^DIE("KE","FDA","MSG")

               End DoDot:1

 +12       QUIT

 +13      ;

GMTS23IN.m