Print Page as PDF
Mailgroup Updates ICR (3240)

Mailgroup Updates    ICR (3240)

Name Value
NUMBER 3240
IA # 3240
FILE NUMBER 3.812
GLOBAL ROOT XMB(3.8,
DATE CREATED 2000/11/01
CUSTODIAL PACKAGE MAILMAN
CUSTODIAL ISC San Francisco
USAGE Private
TYPE File
DBIC APPROVAL STATUS APPROVED
NAME Mailgroup Updates
GENERAL DESCRIPTION 
In order to meet the FDA requirements to track the
usage of the medical device known as "Vista Imaging" (the IMAGING package) VA
maintains a Vista mailman mail server.  The server processes monthly site
usage parameters and critical event driven alerts. The 2 issues: 1) We create
and populate a local mail group, "MAG SERVER", into which we add the local
installer and our own, "G.IMAGING DEVELOPMENT TEAM@DNS         ", remote
member.  We also, as cleanup, remove a formerly installed remote member which
failed often as a result of mail scripts not always having our development
domain in place, "G.MAG SERVER@LAVC.DNS            ".  2) Also, for clarity
and because remotes may not have access to the resolved DUZ of local
recipient's we place the entire recipient list in the text of the message so
when coordinating efforts to resolve critical events, the contacts are most
assuredly identified.
GLOBAL REFERENCE
GLOBAL REFERENCE FIELD NUMBER
XMB(3.8,D0,1,
FIELD NUMBER ACCESS FIELD NAME LOCATION
.01 Both R/W w/Fileman MEMBER 0;1
XMB(3.8,D0,6,
FIELD NUMBER ACCESS FIELD NAME LOCATION
.01 Both R/W w/Fileman REMOTE MEMBER 0;.01
XMB(3.8,D0,5,
FIELD NUMBER ACCESS FIELD NAME LOCATION
.01 Both R/W w/Fileman MEMBER GROUP NAME 0;.01
STATUS Active
DURATION Till Otherwise Agreed
ID XMB(3.8,
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE ISC SUBSCRIBING DETAILS
IMAGING Washington/Silver Spring 
1)     for Mail group lookup:
S MAGA="MAG SERVER" ; Mail group name
S MAGDATA=$$FIND1^DIC(3.8,"","MX",MAGA,"","","ERR")
Then:
. ;Add G.MAG SERVER @ development site as remote recipient
. S MAGM="G.IMAGING DEVELOPMENT TEAM@DNS         "
. I $$FIND1^DIC(3.812,","_MAGDATA_",","MX",MAGM,"","","ERR") D
. . S MAGE(3.812,"+1,"_MAGDATA_",",.01)=MAGM
. . D UPDATE^DIE("E","MAGE")
. ;Remove development domain mailgroup reference
. S MAGX=$E("G.MAG SERVER@LAVC.DNS            ",1,30)
. S IEN=$$FIND1^DIC(3.812,","_MAGDATA_",","MX",MAGX,"","","ERR")
. I +IEN>0 D
. . K MAGE
. . S MAGE(3.812,IEN_","_MAGDATA_",",.01)="@"
. . D UPDATE^DIE("E","MAGE")

2)
D GETS^DIQ(3.8,IEN_",","2*;11*;12*","","ARRAY")