CREATE OR REPLACE PROCEDURE sys.sp_fga_handler(
     object_schema   IN  VARCHAR2  DEFAULT NULL
    ,object_name     IN  VARCHAR2  DEFAULT NULL
    ,policy_name     IN  VARCHAR2  DEFAULT NULL

)
/*
|| Procedure:   SYS.SP_FGA_HANDLER 
|| Purpose:     Default "handler" package for Fine-Grained Auditing (FGA)
|| Version:     10.2.0.1.0          
*/
IS
    CRLF            CHAR(2) := CHR(10) || CHR(13);
    audited_object  VARCHAR2(256);
    auditing_policy VARCHAR2(256);
BEGIN
    audited_object  := UPPER(object_schema) || '.' || UPPER(object_name);
    auditing_policy := UPPER(object_schema) || '.' || UPPER(policy_name);

    UTL_MAIL.SEND(
         sender => 'oradba@us.fujitsu.com'
        ,recipients => 'oradba@us.fujitsu.com'
        ,cc => NULL
        ,bcc =>  NULL
        ,subject => 'Severe FGA Violation Detected For Object ' || audited_object
        ,message => 'A severe fine grained auditing (FGA) condition has been detected for: ' || CRLF || CRLF
        || audited_object || CRLF || CRLF
        || 'This audit was detected by policy ' || auditing_policy  
        || ' and can be reviewed in DBA_FGA_AUDIT_TRAIL.'
        ,mime_type => 'text/plain; charset=us-ascii'
        ,priority => 1
    );

END;