- DGEN408T ;ALB/SCK - IVMB SEED THE HEC WITH MPI POST INSTALL ; 5/1/02 12:58pm
- ;;5.3;Registration;**408**;Aug 13,1993
- Q
- ;
- 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
- ;
- Q
- ;
- 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)
- ;
- Q
- ;
- 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)
- ;
- Q
- --- 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