Plsql XML Special Character conversion

---special character conversions

function Process_xml (old_xml in varchar2) return VARCHAR2 as

New_xml VARCHAR2 (1000);

Begin

Select Replace (old_xml, ' < ', ' &lt; ') to new_xml from dual;

Select Replace (new_xml, ' > ', ' &gt; ') to new_xml from dual;

Select Replace (new_xml, ' & ', ' &amp; ') to new_xml from dual;

Select Replace (New_xml, "', ' &apos; ') to new_xml from dual;

Select Replace (new_xml, ' "', ' &quot; ') into New_xml from dual;

SELECT regexp_replace (New_xml, ' ^ (\w) *| ( \w) *$ ', ')

Into New_xml

from dual;

return new_xml;

exception

When others then

Return ' error! ';

End Process_xml;

Plsql XML Special Character conversion