| GENERAL DESCRIPTION |
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")
|