function transform_via_xsl(p_data              in clob,
                           p_interface_id      in varchar2,
                           p_service_class_seq number) return clob is
  l_data_doc     dbms_xmldom.domdocument;
  l_xsl_doc      dbms_xmldom.domdocument;
  l_file         clob := empty_clob;
  l_xsl_pro      dbms_xslprocessor.processor;
  l_xsl          dbms_xslprocessor.stylesheet;
  l_xsl_out_file xmltype;
begin
  select xsl_out_ctl_file
    into l_xsl_out_file
    from xxif_etlrequests
   where if_id = p_interface_id
     and seq = p_service_class_seq;
  l_xsl_doc := dbms_xmldom.newdomdocument(l_xsl_out_file);
  dbms_lob.createtemporary(l_file, true);
  l_data_doc := dbms_xmldom.newdomdocument(p_data);
  l_xsl      := dbms_xslprocessor.newstylesheet(l_xsl_doc, null);
  l_xsl_pro  := dbms_xslprocessor.newprocessor;
  dbms_xslprocessor.processxsl(l_xsl_pro, l_xsl, l_data_doc, l_file);
  dbms_xslprocessor.freestylesheet(l_xsl);
  dbms_xslprocessor.freeprocessor(l_xsl_pro);
  return l_file;
end transform_via_xsl;