Routine: DGEN408T

DGEN408T ;ALB/SCK - IVMB SEED THE HEC WITH MPI POST INSTALL ; 5/1/02 12:58pm

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

EN ; Main entry point to populate the IVMB HEC MPI NOTIFICATION mail

 ; group.  This routine is run as the post-install routine to patch

 ; DG*5.3*408

 N X,Y,DIR,DIRUT,DUOUT,MGIEN,DIC

 W !!,?11,"*** SETUP MEMBERS OF HEC MPI NOTIFICATION MAIL GROUP ***",!!

 S DIC=3.8

 S DIC(0)="MZ"

 S X="IVMB HEC MPI NOTIFICATION"

 D ^DIC K DIC

 I '(+Y>0) D  Q

 . W !!?5,*7,"Apparently the IVMB HEC MPI NOTIFICATION mail group was not"

 . W !?5,"created or set up correctly by the DG*5.3*408 patch installation."

 . W !?5,"You will need to either create this mail group, or contact Cutomer"

 . W !?5,"Service for assistance."

 S MGIEN=+Y

 D LOCAL(MGIEN)

W !

 S DIR(0)="YAO",DIR("B")="NO"

 S DIR("A")="Do you wish to enter any remote members? "

 S DIR("?",1)="Enter 'Yes' to add remote members to the mail group"

 S DIR("?")="Enter 'No' or Press the ENTER key to quit"

 D ^DIR K DIR

 Q:'Y!($D(DIRUT))!($D(DUOUT))

W !

 D REMOTE

LOCAL(MGIEN) ; Add local members to mail group

 N I,ABORT,XMY

 F I=1:1 Q:$G(ABORT)  D

 . S DIR(0)="POA^200:EMZ"

 . S DIR("A")="Select member to add to mail group: "

 . S DIR("?",1)="Select a member to add to the IVMB HEC MPI NOTIFICATION mail group"

 . S DIR("?")="as a local member."

 . D ^DIR K DIR

 . I $D(DIRUT)!($D(DUOUT)) S ABORT=1 Q

 . S XMY(+Y)=""

. ;

 . S DIR(0)="YA",DIR("B")="NO"

 . S DIR("A")="Add another member? "

 . S DIR("?")="'Yes' to add another local member, 'No' for no more entries"

 . D ^DIR K DIR

 . Q:$D(DIRUT)!($D(DUOUT))

 . S:'Y ABORT=1

 I $$MG^XMBGRP(MGIEN,"","","",.XMY,"",0)

REMOTE ; Add remote members to mail group

 N I,ABORT,ZFDA,CNT,ZMSG,I1

 S CNT=2

 F I=1:1 Q:$G(ABORT)  D

 . S DIR(0)="FOA"

 . S DIR("A")="Enter a remote address: "

 . S DIR("?",1)="Enter a remote address (name@domain) or local device (D.device) or"

 . S DIR("?",2)="local server (S.device).  This is free text, validated remote address"

 . S DIR("?")="or local device or server"

 . D ^DIR K DIR

 . I $D(DIRUT)!($D(DUOUT)) S ABORT=1 Q

 . S ZFDA(3.812,"+"_CNT_",?1,",.01)=Y

 . S CNT=CNT+1

. ;

 . S DIR(0)="YA",DIR("B")="NO"

 . S DIR("A")="Add another remote member? "

 . S DIR("?")="'Yes' to add another remote member, 'No' for no more entries."

 . D ^DIR K DIR

 . Q:$D(DIRUT)!($D(DUOUT))

 . S:'Y ABORT=1

 S ZFDA(3.8,"?1,",.01)="IVMB HEC MPI NOTIFICATION"

 D UPDATE^DIE("","ZFDA","","ZMSG")

 I $D(ZMSG) D

 . S I=0

 . F  S I=$O(ZMSG("DIERR",I)) Q:'I  D

 . . W !!?3,"Error: "_ZMSG("DIERR",I)

 . . S I1=0

 . . F  S I1=$O(ZMSG("DIERR",I,"TEXT",I1)) Q:'I1  D

 . . . W !?3,ZMSG("DIERR",I,"TEXT",I1)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGEN408T   2778     printed  Feb 19, 2025@00:08:17                                                                                                                                                                                                    Page 2

DGEN408T  ;ALB/SCK - IVMB SEED THE HEC WITH MPI POST INSTALL ; 5/1/02 12:58pm

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

 +2        QUIT

 +3       ;

EN        ; Main entry point to populate the IVMB HEC MPI NOTIFICATION mail

 +1       ; group.  This routine is run as the post-install routine to patch

 +2       ; DG*5.3*408

 +3       ;

 +4        NEW X,Y,DIR,DIRUT,DUOUT,MGIEN,DIC

 +5       ;

 +6        WRITE !!,?11,"*** SETUP MEMBERS OF HEC MPI NOTIFICATION MAIL GROUP ***",!!

 +7        SET DIC=3.8

 +8        SET DIC(0)="MZ"

 +9        SET X="IVMB HEC MPI NOTIFICATION"

 +10       DO ^DIC

           KILL DIC

 +11       IF '(+Y>0)

               Begin DoDot:1

 +12               WRITE !!?5,*7,"Apparently the IVMB HEC MPI NOTIFICATION mail group was not"

 +13               WRITE !?5,"created or set up correctly by the DG*5.3*408 patch installation."

 +14               WRITE !?5,"You will need to either create this mail group, or contact Cutomer"

 +15               WRITE !?5,"Service for assistance."

               End DoDot:1

               QUIT

 +16      ;

 +17       SET MGIEN=+Y

 +18      ;

 +19       DO LOCAL(MGIEN)

 +20      ;

 +21       WRITE !

 +22       SET DIR(0)="YAO"

           SET DIR("B")="NO"

 +23       SET DIR("A")="Do you wish to enter any remote members? "

 +24       SET DIR("?",1)="Enter 'Yes' to add remote members to the mail group"

 +25       SET DIR("?")="Enter 'No' or Press the ENTER key to quit"

 +26       DO ^DIR

           KILL DIR

 +27       if 'Y!($DATA(DIRUT))!($DATA(DUOUT))

               QUIT

 +28       WRITE !

 +29      ;

 +30       DO REMOTE

 +31      ;

 +32       QUIT

 +33      ;

LOCAL(MGIEN) ; Add local members to mail group

 +1        NEW I,ABORT,XMY

 +2       ;

 +3        FOR I=1:1

               if $GET(ABORT)

                   QUIT

               Begin DoDot:1

 +4                SET DIR(0)="POA^200:EMZ"

 +5                SET DIR("A")="Select member to add to mail group: "

 +6                SET DIR("?",1)="Select a member to add to the IVMB HEC MPI NOTIFICATION mail group"

 +7                SET DIR("?")="as a local member."

 +8                DO ^DIR

                   KILL DIR

 +9                IF $DATA(DIRUT)!($DATA(DUOUT))

                       SET ABORT=1

                       QUIT

 +10               SET XMY(+Y)=""

 +11      ;

 +12               SET DIR(0)="YA"

                   SET DIR("B")="NO"

 +13               SET DIR("A")="Add another member? "

 +14               SET DIR("?")="'Yes' to add another local member, 'No' for no more entries"

 +15               DO ^DIR

                   KILL DIR

 +16               if $DATA(DIRUT)!($DATA(DUOUT))

                       QUIT

 +17               if 'Y

                       SET ABORT=1

               End DoDot:1

 +18      ;

 +19       IF $$MG^XMBGRP(MGIEN,"","","",.XMY,"",0)

 +20      ;

 +21       QUIT

 +22      ;

REMOTE    ; Add remote members to mail group

 +1        NEW I,ABORT,ZFDA,CNT,ZMSG,I1

 +2       ;

 +3        SET CNT=2

 +4        FOR I=1:1

               if $GET(ABORT)

                   QUIT

               Begin DoDot:1

 +5                SET DIR(0)="FOA"

 +6                SET DIR("A")="Enter a remote address: "

 +7                SET DIR("?",1)="Enter a remote address (name@domain) or local device (D.device) or"

 +8                SET DIR("?",2)="local server (S.device).  This is free text, validated remote address"

 +9                SET DIR("?")="or local device or server"

 +10               DO ^DIR

                   KILL DIR

 +11               IF $DATA(DIRUT)!($DATA(DUOUT))

                       SET ABORT=1

                       QUIT

 +12               SET ZFDA(3.812,"+"_CNT_",?1,",.01)=Y

 +13               SET CNT=CNT+1

 +14      ;

 +15               SET DIR(0)="YA"

                   SET DIR("B")="NO"

 +16               SET DIR("A")="Add another remote member? "

 +17               SET DIR("?")="'Yes' to add another remote member, 'No' for no more entries."

 +18               DO ^DIR

                   KILL DIR

 +19               if $DATA(DIRUT)!($DATA(DUOUT))

                       QUIT

 +20               if 'Y

                       SET ABORT=1

               End DoDot:1

 +21       SET ZFDA(3.8,"?1,",.01)="IVMB HEC MPI NOTIFICATION"

 +22       DO UPDATE^DIE("","ZFDA","","ZMSG")

 +23      ;

 +24       IF $DATA(ZMSG)

               Begin DoDot:1

 +25               SET I=0

 +26               FOR

                       SET I=$ORDER(ZMSG("DIERR",I))

                       if 'I

                           QUIT

                       Begin DoDot:2

 +27                       WRITE !!?3,"Error: "_ZMSG("DIERR",I)

 +28                       SET I1=0

 +29                       FOR

                               SET I1=$ORDER(ZMSG("DIERR",I,"TEXT",I1))

                               if 'I1

                                   QUIT

                               Begin DoDot:3

 +30                               WRITE !?3,ZMSG("DIERR",I,"TEXT",I1)

                               End DoDot:3

                       End DoDot:2

               End DoDot:1

 +31      ;

 +32       QUIT

DGEN408T.m