250: function GENERATE (
251: X_GUID in raw
252: ) return varchar2 is
253: buf varchar2(32000);
254: l_doc xmldom.DOMDocument;
255: l_element xmldom.DOMElement;
256: l_root xmldom.DOMNode;
257: l_node xmldom.DOMNode;
258: l_header xmldom.DOMNode;
251: X_GUID in raw
252: ) return varchar2 is
253: buf varchar2(32000);
254: l_doc xmldom.DOMDocument;
255: l_element xmldom.DOMElement;
256: l_root xmldom.DOMNode;
257: l_node xmldom.DOMNode;
258: l_header xmldom.DOMNode;
259:
252: ) return varchar2 is
253: buf varchar2(32000);
254: l_doc xmldom.DOMDocument;
255: l_element xmldom.DOMElement;
256: l_root xmldom.DOMNode;
257: l_node xmldom.DOMNode;
258: l_header xmldom.DOMNode;
259:
260: l_name varchar2(80);
253: buf varchar2(32000);
254: l_doc xmldom.DOMDocument;
255: l_element xmldom.DOMElement;
256: l_root xmldom.DOMNode;
257: l_node xmldom.DOMNode;
258: l_header xmldom.DOMNode;
259:
260: l_name varchar2(80);
261: l_system_guid raw(16);
254: l_doc xmldom.DOMDocument;
255: l_element xmldom.DOMElement;
256: l_root xmldom.DOMNode;
257: l_node xmldom.DOMNode;
258: l_header xmldom.DOMNode;
259:
260: l_name varchar2(80);
261: l_system_guid raw(16);
262: l_protocol varchar2(30);
279: l_type,l_javaqhandler
280: from wf_agents
281: where guid = x_guid;
282:
283: l_doc := xmldom.newDOMDocument;
284: l_root := xmldom.makeNode(l_doc);
285: l_root := wf_event_xml.newtag(l_doc, l_root, wf_event_xml.masterTagName);
286: l_header := wf_event_xml.newtag(l_doc, l_root, m_table_name);
287:
280: from wf_agents
281: where guid = x_guid;
282:
283: l_doc := xmldom.newDOMDocument;
284: l_root := xmldom.makeNode(l_doc);
285: l_root := wf_event_xml.newtag(l_doc, l_root, wf_event_xml.masterTagName);
286: l_header := wf_event_xml.newtag(l_doc, l_root, m_table_name);
287:
288: l_node := wf_event_xml.newtag(l_doc, l_header, wf_event_xml.versionTagName,
316: l_description);
317: l_node := wf_event_xml.newtag(l_doc, l_header, 'TYPE',
318: l_type);
319:
320: xmldom.writeToBuffer(l_root, buf);
321:
322: return buf;
323: exception
324: when others then
344: l_message varchar2(32000);
345: l_type varchar2(8);
346:
347: l_node_name varchar2(255);
348: l_node xmldom.DOMNode;
349: l_child xmldom.DOMNode;
350: l_value varchar2(32000);
351: l_length integer;
352: l_node_list xmldom.DOMNodeList;
345: l_type varchar2(8);
346:
347: l_node_name varchar2(255);
348: l_node xmldom.DOMNode;
349: l_child xmldom.DOMNode;
350: l_value varchar2(32000);
351: l_length integer;
352: l_node_list xmldom.DOMNodeList;
353:
348: l_node xmldom.DOMNode;
349: l_child xmldom.DOMNode;
350: l_value varchar2(32000);
351: l_length integer;
352: l_node_list xmldom.DOMNodeList;
353:
354: l_agent_guid varchar2(32);
355: l_javaqhandler varchar2(240);
356:
369: l_message := WF_EVENT_SYNCHRONIZE_PKG.SetSYSTEMGUID(l_message); -- update #LOCAL
370: l_message := WF_EVENT_SYNCHRONIZE_PKG.SetSID(l_message); -- update #SID
371:
372: l_node_list := wf_event_xml.findTable(l_message, m_table_name);
373: l_length := xmldom.getLength(l_node_list);
374:
375: -- loop through elements that we received.
376: for i in 0..l_length-1 loop
377: l_node := xmldom.item(l_node_list, i);
373: l_length := xmldom.getLength(l_node_list);
374:
375: -- loop through elements that we received.
376: for i in 0..l_length-1 loop
377: l_node := xmldom.item(l_node_list, i);
378: l_node_name := xmldom.getNodeName(l_node);
379: if xmldom.hasChildNodes(l_node) then
380: l_child := xmldom.GetFirstChild(l_node);
381: l_value := xmldom.getNodevalue(l_child);
374:
375: -- loop through elements that we received.
376: for i in 0..l_length-1 loop
377: l_node := xmldom.item(l_node_list, i);
378: l_node_name := xmldom.getNodeName(l_node);
379: if xmldom.hasChildNodes(l_node) then
380: l_child := xmldom.GetFirstChild(l_node);
381: l_value := xmldom.getNodevalue(l_child);
382: else
375: -- loop through elements that we received.
376: for i in 0..l_length-1 loop
377: l_node := xmldom.item(l_node_list, i);
378: l_node_name := xmldom.getNodeName(l_node);
379: if xmldom.hasChildNodes(l_node) then
380: l_child := xmldom.GetFirstChild(l_node);
381: l_value := xmldom.getNodevalue(l_child);
382: else
383: l_value := NULL;
376: for i in 0..l_length-1 loop
377: l_node := xmldom.item(l_node_list, i);
378: l_node_name := xmldom.getNodeName(l_node);
379: if xmldom.hasChildNodes(l_node) then
380: l_child := xmldom.GetFirstChild(l_node);
381: l_value := xmldom.getNodevalue(l_child);
382: else
383: l_value := NULL;
384: end if;
377: l_node := xmldom.item(l_node_list, i);
378: l_node_name := xmldom.getNodeName(l_node);
379: if xmldom.hasChildNodes(l_node) then
380: l_child := xmldom.GetFirstChild(l_node);
381: l_value := xmldom.getNodevalue(l_child);
382: else
383: l_value := NULL;
384: end if;
385: