MAIL GROUP REMOTE MEMBER AND DESCRIPTION    ICR (7086)

Accounts Receivable needs a ONE-TIME ONLY Integration
Agreement to allow manuipulation of the data in a mail group entry to add an
Outlook mailing list as a remote member and update the mail group's
description to warn users not to send PII/PHI to this mail group.  Since no
utility exists to add a remote member to or edit the description of an entry
in the mail group file, the following access is requested:

1. The ability to add a remote member to a mail group. This would be done
once, in the Post-Install routine RCP349.

2. The ability to edit the description of a mail group to add text warning
users not to send PII/PHI to this mail group.

The following code would be used to accomplish both tasks:

N FDA,IEN,I,WPDATA
D BMES^XPDUTL("Add Outlook email group to RCDPE PAYMENTS EXCEPTIONS mail
group")
S IEN=$$FIND1^DIC(3.8,,"X","RCDPE PAYMENTS EXCEPTIONS")
I 'IEN D  Q
. D BMES^XPDUTL("Warning: Could not find RCDPE PAYMENTS EXCEPTIONS mail
group. Addresses not added.")
; IA TBD
S FDA(3.812,"?+"_I_","_IEN_",",.01)="DNSpayerinquiry@DNS"
D UPDATE^DIE(,"FDA")
; Update mail group description to warn against sending PII/PHI
S WPDATA(1,0)="*** DO NOT SEND PII/PHI! This Mail Group sends to an Outlook
email address and"
S WPDATA(2,0)="should not be used to send data containing PII/PHI ***"
D WP^DIE(3.8,IEN_",",3,"A","WPDATA")