325: my_clob clob;
326: my_ent_type varchar2(50) := wf_entity_mgr.get_entity_type(p_event_name);
327: found boolean := FALSE;
328:
329: l_doc xmldom.DOMDocument;
330: l_root xmldom.DOMNode;
331: l_node xmldom.DOMNode;
332:
333: cursor attribute_data is
326: my_ent_type varchar2(50) := wf_entity_mgr.get_entity_type(p_event_name);
327: found boolean := FALSE;
328:
329: l_doc xmldom.DOMDocument;
330: l_root xmldom.DOMNode;
331: l_node xmldom.DOMNode;
332:
333: cursor attribute_data is
334: select attribute_name aname,
327: found boolean := FALSE;
328:
329: l_doc xmldom.DOMDocument;
330: l_root xmldom.DOMNode;
331: l_node xmldom.DOMNode;
332:
333: cursor attribute_data is
334: select attribute_name aname,
335: attribute_value avalue
338: and entity_key_value = upper(p_event_key)
339: and attribute_name <> 'CACHE_CHANGED';
340:
341: begin
342: l_doc := xmldom.newDOMDocument;
343: l_root := xmldom.makeNode(l_doc);
344: l_root := wf_event_xml.newtag(l_doc, l_root, my_ent_type);
345:
346: for atts in attribute_data loop
339: and attribute_name <> 'CACHE_CHANGED';
340:
341: begin
342: l_doc := xmldom.newDOMDocument;
343: l_root := xmldom.makeNode(l_doc);
344: l_root := wf_event_xml.newtag(l_doc, l_root, my_ent_type);
345:
346: for atts in attribute_data loop
347: l_node := wf_event_xml.newtag(l_doc, l_root, atts.aname, atts.avalue);
349: end loop;
350:
351: if (found) then
352: dbms_lob.createtemporary(my_clob, FALSE);
353: xmldom.writeToClob(l_root, my_clob);
354: return my_clob;
355: else
356: return null;
357: end if;