; Update the SUPPRESS NEW DUP EMAIL field on record in file #15.1
; Called from REMOTE PROCEDURE - XDR UPD EMAIL FLAG
; XDRSLT = OUTPUT results.
; set to 0 if update was successful, -1^ERRMSG if error
; XDRFL = 'FILE TO BE CHECKED' field value in file 15.1, defaults to PATIENT file.
; XDRVAL = 0 or 1 (value to set into field)