set serveroutput on;
declare

ctx dbms_xmlgen.ctxhandle;
result clob;
begin

-- criar um novo contexto para a consulta SQL
ctx := dbms_xmlgen.newContext('select M.FUNCIONARIO.NOME AS NOME,M.ESPECIALIDADE 				     ,M.UTI.NUMERO_UTI as UTI
 				from MEDICO_TB M');
-- personalizar a tag de entidade
DBMS_XMLGEN.setRowTag(ctx,'Medico');
-- gerar um valor CLOB como resultado
result := dbms_xmlgen.getXML(ctx);
-- dar saída do resultado
dbms_output.put_line(result);
-- fechar o contexto
dbms_xmlgen.closeContext(ctx);
end;