DG53463.m

DG53463 ;ALB/RMM - Mail Group Utility ; 2/03/03

 ;;5.3;Registration;**463**;Aug 13, 1993

 ;

 ; This post-install routine will add the user who is performing the

 ; install of Patch DG*5.3*463 to the MT INCONSISTENCIES Mail Group

 ;

EN ; Get the IEN of the mail group distributed in this patch

 N DGENDA,DATA,ERR

 S DGENDA(1)=$O(^XMB(3.8,"B","MT INCONSISTENCIES",""))

 ;

 ; Quit if the user has already been added to the mail group

 Q:$D(^XMB(3.8,DGENDA(1),1,"B",DUZ))

 ;

 ; Add the user to the MT INCONSISTENCIES Mail Group

 S DATA(.01)=DUZ

 I $$ADD^DGENDBS(3.81,.DGENDA,.DATA,.ERR)

 ;

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DG53463   607     printed  Apr 09, 2024@21:58:14                                                                                                                                                                                                      Page 2

DG53463   ;ALB/RMM - Mail Group Utility ; 2/03/03

 +1       ;;5.3;Registration;**463**;Aug 13, 1993

 +2       ;

 +3       ; This post-install routine will add the user who is performing the

 +4       ; install of Patch DG*5.3*463 to the MT INCONSISTENCIES Mail Group

 +5       ;

EN        ; Get the IEN of the mail group distributed in this patch

 +1        NEW DGENDA,DATA,ERR

 +2        SET DGENDA(1)=$ORDER(^XMB(3.8,"B","MT INCONSISTENCIES",""))

 +3       ;

 +4       ; Quit if the user has already been added to the mail group

 +5        if $DATA(^XMB(3.8,DGENDA(1),1,"B",DUZ))

               QUIT 

 +6       ;

 +7       ; Add the user to the MT INCONSISTENCIES Mail Group

 +8        SET DATA(.01)=DUZ

 +9        IF $$ADD^DGENDBS(3.81,.DGENDA,.DATA,.ERR)

 +10      ;

 +11       QUIT