440: function GENERATE (
441: X_GUID in raw
442: ) return varchar2 is
443: buf varchar2(32000);
444: l_doc xmldom.DOMDocument;
445: l_element xmldom.DOMElement;
446: l_root xmldom.DOMNode;
447: l_node xmldom.DOMNode;
448: l_header xmldom.DOMNode;
441: X_GUID in raw
442: ) return varchar2 is
443: buf varchar2(32000);
444: l_doc xmldom.DOMDocument;
445: l_element xmldom.DOMElement;
446: l_root xmldom.DOMNode;
447: l_node xmldom.DOMNode;
448: l_header xmldom.DOMNode;
449:
442: ) return varchar2 is
443: buf varchar2(32000);
444: l_doc xmldom.DOMDocument;
445: l_element xmldom.DOMElement;
446: l_root xmldom.DOMNode;
447: l_node xmldom.DOMNode;
448: l_header xmldom.DOMNode;
449:
450: l_NAME varchar2(240);
443: buf varchar2(32000);
444: l_doc xmldom.DOMDocument;
445: l_element xmldom.DOMElement;
446: l_root xmldom.DOMNode;
447: l_node xmldom.DOMNode;
448: l_header xmldom.DOMNode;
449:
450: l_NAME varchar2(240);
451: l_type varchar2(8);
444: l_doc xmldom.DOMDocument;
445: l_element xmldom.DOMElement;
446: l_root xmldom.DOMNode;
447: l_node xmldom.DOMNode;
448: l_header xmldom.DOMNode;
449:
450: l_NAME varchar2(240);
451: l_type varchar2(8);
452: l_status varchar2(8);
468: l_licensed_flag,l_javagenerate, l_irep_annotation
469: from wf_events_vl
470: where guid = x_guid;
471:
472: l_doc := xmldom.newDOMDocument;
473: l_root := xmldom.makeNode(l_doc);
474: l_root := wf_event_xml.newtag (l_doc, l_root, wf_event_xml.masterTagName);
475: l_header := wf_event_xml.newtag(l_doc, l_root, m_table_name);
476: l_node := wf_event_xml.newtag(l_doc, l_header, wf_event_xml.versionTagName,
469: from wf_events_vl
470: where guid = x_guid;
471:
472: l_doc := xmldom.newDOMDocument;
473: l_root := xmldom.makeNode(l_doc);
474: l_root := wf_event_xml.newtag (l_doc, l_root, wf_event_xml.masterTagName);
475: l_header := wf_event_xml.newtag(l_doc, l_root, m_table_name);
476: l_node := wf_event_xml.newtag(l_doc, l_header, wf_event_xml.versionTagName,
477: m_package_version);
524:
525: -- l_node := wf_event_xml.newCDATATag(l_doc, l_header, 'IREP_ANNOTATION', l_irep_annotation);
526: l_node := wf_event_xml.newtag(l_doc, l_header, 'IREP_ANNOTATION', l_irep_annotation);
527:
528: xmldom.writeToBuffer(l_root, buf);
529:
530: return buf;
531: exception
532: when others then
551: l_customization_level varchar2(1) := 'L';
552: l_licensed_flag varchar2(1) := 'Y';
553:
554: l_node_name varchar2(255);
555: l_node xmldom.DOMNode;
556: l_child xmldom.DOMNode;
557: l_value varchar2(32000);
558: l_length integer;
559: l_node_list xmldom.DOMNodeList;
552: l_licensed_flag varchar2(1) := 'Y';
553:
554: l_node_name varchar2(255);
555: l_node xmldom.DOMNode;
556: l_child xmldom.DOMNode;
557: l_value varchar2(32000);
558: l_length integer;
559: l_node_list xmldom.DOMNodeList;
560: l_javagenerate varchar2(240);
555: l_node xmldom.DOMNode;
556: l_child xmldom.DOMNode;
557: l_value varchar2(32000);
558: l_length integer;
559: l_node_list xmldom.DOMNodeList;
560: l_javagenerate varchar2(240);
561: l_irep_annotation varchar2(2000);
562: begin
563:
566: l_message := WF_EVENT_SYNCHRONIZE_PKG.SetSYSTEMGUID(l_message); -- update #LOCAL
567: l_message := WF_EVENT_SYNCHRONIZE_PKG.SetSID(l_message); -- update #SID
568:
569: l_node_list := wf_event_xml.findTable(l_message, m_table_name);
570: l_length := xmldom.getLength(l_node_list);
571:
572: -- loop through elements that we received.
573: for i in 0..l_length-1 loop
574: l_node := xmldom.item(l_node_list, i);
570: l_length := xmldom.getLength(l_node_list);
571:
572: -- loop through elements that we received.
573: for i in 0..l_length-1 loop
574: l_node := xmldom.item(l_node_list, i);
575: l_node_name := xmldom.getNodeName(l_node);
576: if xmldom.hasChildNodes(l_node) then
577: l_child := xmldom.GetFirstChild(l_node);
578: l_value := xmldom.getNodevalue(l_child);
571:
572: -- loop through elements that we received.
573: for i in 0..l_length-1 loop
574: l_node := xmldom.item(l_node_list, i);
575: l_node_name := xmldom.getNodeName(l_node);
576: if xmldom.hasChildNodes(l_node) then
577: l_child := xmldom.GetFirstChild(l_node);
578: l_value := xmldom.getNodevalue(l_child);
579: else
572: -- loop through elements that we received.
573: for i in 0..l_length-1 loop
574: l_node := xmldom.item(l_node_list, i);
575: l_node_name := xmldom.getNodeName(l_node);
576: if xmldom.hasChildNodes(l_node) then
577: l_child := xmldom.GetFirstChild(l_node);
578: l_value := xmldom.getNodevalue(l_child);
579: else
580: l_value := NULL;
573: for i in 0..l_length-1 loop
574: l_node := xmldom.item(l_node_list, i);
575: l_node_name := xmldom.getNodeName(l_node);
576: if xmldom.hasChildNodes(l_node) then
577: l_child := xmldom.GetFirstChild(l_node);
578: l_value := xmldom.getNodevalue(l_child);
579: else
580: l_value := NULL;
581: end if;
574: l_node := xmldom.item(l_node_list, i);
575: l_node_name := xmldom.getNodeName(l_node);
576: if xmldom.hasChildNodes(l_node) then
577: l_child := xmldom.GetFirstChild(l_node);
578: l_value := xmldom.getNodevalue(l_child);
579: else
580: l_value := NULL;
581: end if;
582: