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")
Q
;
;======================================================================
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
Q
;
;======================================================================
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")
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMTS23IN 1881 printed Dec 13, 2024@01:56:55 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 ;
