Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DGEN408T

DGEN408T.m

Go to the documentation of this file.
  1. DGEN408T ;ALB/SCK - IVMB SEED THE HEC WITH MPI POST INSTALL ; 5/1/02 12:58pm
  1. ;;5.3;Registration;**408**;Aug 13,1993
  1. Q
  1. ;
  1. 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
  1. ; DG*5.3*408
  1. ;
  1. N X,Y,DIR,DIRUT,DUOUT,MGIEN,DIC
  1. ;
  1. W !!,?11,"*** SETUP MEMBERS OF HEC MPI NOTIFICATION MAIL GROUP ***",!!
  1. S DIC=3.8
  1. S DIC(0)="MZ"
  1. S X="IVMB HEC MPI NOTIFICATION"
  1. D ^DIC K DIC
  1. I '(+Y>0) D Q
  1. . W !!?5,*7,"Apparently the IVMB HEC MPI NOTIFICATION mail group was not"
  1. . W !?5,"created or set up correctly by the DG*5.3*408 patch installation."
  1. . W !?5,"You will need to either create this mail group, or contact Cutomer"
  1. . W !?5,"Service for assistance."
  1. ;
  1. S MGIEN=+Y
  1. ;
  1. D LOCAL(MGIEN)
  1. ;
  1. W !
  1. S DIR(0)="YAO",DIR("B")="NO"
  1. S DIR("A")="Do you wish to enter any remote members? "
  1. S DIR("?",1)="Enter 'Yes' to add remote members to the mail group"
  1. S DIR("?")="Enter 'No' or Press the ENTER key to quit"
  1. D ^DIR K DIR
  1. Q:'Y!($D(DIRUT))!($D(DUOUT))
  1. W !
  1. ;
  1. D REMOTE
  1. ;
  1. Q
  1. ;
  1. LOCAL(MGIEN) ; Add local members to mail group
  1. N I,ABORT,XMY
  1. ;
  1. F I=1:1 Q:$G(ABORT) D
  1. . S DIR(0)="POA^200:EMZ"
  1. . S DIR("A")="Select member to add to mail group: "
  1. . S DIR("?",1)="Select a member to add to the IVMB HEC MPI NOTIFICATION mail group"
  1. . S DIR("?")="as a local member."
  1. . D ^DIR K DIR
  1. . I $D(DIRUT)!($D(DUOUT)) S ABORT=1 Q
  1. . S XMY(+Y)=""
  1. . ;
  1. . S DIR(0)="YA",DIR("B")="NO"
  1. . S DIR("A")="Add another member? "
  1. . S DIR("?")="'Yes' to add another local member, 'No' for no more entries"
  1. . D ^DIR K DIR
  1. . Q:$D(DIRUT)!($D(DUOUT))
  1. . S:'Y ABORT=1
  1. ;
  1. I $$MG^XMBGRP(MGIEN,"","","",.XMY,"",0)
  1. ;
  1. Q
  1. ;
  1. REMOTE ; Add remote members to mail group
  1. N I,ABORT,ZFDA,CNT,ZMSG,I1
  1. ;
  1. S CNT=2
  1. F I=1:1 Q:$G(ABORT) D
  1. . S DIR(0)="FOA"
  1. . S DIR("A")="Enter a remote address: "
  1. . S DIR("?",1)="Enter a remote address (name@domain) or local device (D.device) or"
  1. . S DIR("?",2)="local server (S.device). This is free text, validated remote address"
  1. . S DIR("?")="or local device or server"
  1. . D ^DIR K DIR
  1. . I $D(DIRUT)!($D(DUOUT)) S ABORT=1 Q
  1. . S ZFDA(3.812,"+"_CNT_",?1,",.01)=Y
  1. . S CNT=CNT+1
  1. . ;
  1. . S DIR(0)="YA",DIR("B")="NO"
  1. . S DIR("A")="Add another remote member? "
  1. . S DIR("?")="'Yes' to add another remote member, 'No' for no more entries."
  1. . D ^DIR K DIR
  1. . Q:$D(DIRUT)!($D(DUOUT))
  1. . S:'Y ABORT=1
  1. S ZFDA(3.8,"?1,",.01)="IVMB HEC MPI NOTIFICATION"
  1. D UPDATE^DIE("","ZFDA","","ZMSG")
  1. ;
  1. I $D(ZMSG) D
  1. . S I=0
  1. . F S I=$O(ZMSG("DIERR",I)) Q:'I D
  1. . . W !!?3,"Error: "_ZMSG("DIERR",I)
  1. . . S I1=0
  1. . . F S I1=$O(ZMSG("DIERR",I,"TEXT",I1)) Q:'I1 D
  1. . . . W !?3,ZMSG("DIERR",I,"TEXT",I1)
  1. ;
  1. Q