133: function GENERATE (
134: X_GUID in raw
135: ) return varchar2 is
136: buf varchar2(32000);
137: l_doc xmldom.DOMDocument;
138: l_element xmldom.DOMElement;
139: l_root xmldom.DOMNode;
140: l_node xmldom.DOMNode;
141: l_header xmldom.DOMNode;
134: X_GUID in raw
135: ) return varchar2 is
136: buf varchar2(32000);
137: l_doc xmldom.DOMDocument;
138: l_element xmldom.DOMElement;
139: l_root xmldom.DOMNode;
140: l_node xmldom.DOMNode;
141: l_header xmldom.DOMNode;
142: l_name varchar2(80);
135: ) return varchar2 is
136: buf varchar2(32000);
137: l_doc xmldom.DOMDocument;
138: l_element xmldom.DOMElement;
139: l_root xmldom.DOMNode;
140: l_node xmldom.DOMNode;
141: l_header xmldom.DOMNode;
142: l_name varchar2(80);
143: l_master_guid raw(16);
136: buf varchar2(32000);
137: l_doc xmldom.DOMDocument;
138: l_element xmldom.DOMElement;
139: l_root xmldom.DOMNode;
140: l_node xmldom.DOMNode;
141: l_header xmldom.DOMNode;
142: l_name varchar2(80);
143: l_master_guid raw(16);
144: l_display_name varchar2(80);
137: l_doc xmldom.DOMDocument;
138: l_element xmldom.DOMElement;
139: l_root xmldom.DOMNode;
140: l_node xmldom.DOMNode;
141: l_header xmldom.DOMNode;
142: l_name varchar2(80);
143: l_master_guid raw(16);
144: l_display_name varchar2(80);
145: l_description varchar2(240);
149: into l_name, l_master_guid, l_display_name, l_description
150: from wf_systems
151: where guid = x_guid;
152:
153: l_doc := xmldom.newDOMDocument;
154: l_root := xmldom.makeNode(l_doc);
155: l_root := wf_event_xml.newtag (l_doc, l_root, wf_event_xml.masterTagName);
156: l_header := wf_event_xml.newtag(l_doc, l_root, m_table_name);
157: l_node := wf_event_xml.newtag(l_doc, l_header, wf_event_xml.versionTagName,
150: from wf_systems
151: where guid = x_guid;
152:
153: l_doc := xmldom.newDOMDocument;
154: l_root := xmldom.makeNode(l_doc);
155: l_root := wf_event_xml.newtag (l_doc, l_root, wf_event_xml.masterTagName);
156: l_header := wf_event_xml.newtag(l_doc, l_root, m_table_name);
157: l_node := wf_event_xml.newtag(l_doc, l_header, wf_event_xml.versionTagName,
158: m_package_version);
164: l_node := wf_event_xml.newtag(l_doc, l_header, 'DISPLAY_NAME',
165: l_display_name);
166: l_node := wf_event_xml.newtag(l_doc, l_header, 'DESCRIPTION', l_description);
167:
168: xmldom.writeToBuffer(l_root, buf);
169:
170: return buf;
171: exception
172: when others then
185: l_version varchar2(80);
186: l_message varchar2(32000);
187:
188: l_node_name varchar2(255);
189: l_node xmldom.DOMNode;
190: l_child xmldom.DOMNode;
191: l_value varchar2(32000);
192: l_length integer;
193: l_node_list xmldom.DOMNodeList;
186: l_message varchar2(32000);
187:
188: l_node_name varchar2(255);
189: l_node xmldom.DOMNode;
190: l_child xmldom.DOMNode;
191: l_value varchar2(32000);
192: l_length integer;
193: l_node_list xmldom.DOMNodeList;
194: begin
189: l_node xmldom.DOMNode;
190: l_child xmldom.DOMNode;
191: l_value varchar2(32000);
192: l_length integer;
193: l_node_list xmldom.DOMNodeList;
194: begin
195:
196: l_message := x_message;
197: l_message := WF_EVENT_SYNCHRONIZE_PKG.SetGUID(l_message); -- update #NEW
198: l_message := WF_EVENT_SYNCHRONIZE_PKG.SetSYSTEMGUID(l_message); -- update #LOCAL
199: l_message := WF_EVENT_SYNCHRONIZE_PKG.SetSID(l_message); -- update #SID
200:
201: l_node_list := wf_event_xml.findTable(l_message, m_table_name);
202: l_length := xmldom.getLength(l_node_list);
203:
204: -- loop through elements that we received.
205: for i in 0..l_length-1 loop
206: l_node := xmldom.item(l_node_list, i);
202: l_length := xmldom.getLength(l_node_list);
203:
204: -- loop through elements that we received.
205: for i in 0..l_length-1 loop
206: l_node := xmldom.item(l_node_list, i);
207: l_node_name := xmldom.getNodeName(l_node);
208: if xmldom.hasChildNodes(l_node) then
209: l_child := xmldom.GetFirstChild(l_node);
210: l_value := xmldom.getNodevalue(l_child);
203:
204: -- loop through elements that we received.
205: for i in 0..l_length-1 loop
206: l_node := xmldom.item(l_node_list, i);
207: l_node_name := xmldom.getNodeName(l_node);
208: if xmldom.hasChildNodes(l_node) then
209: l_child := xmldom.GetFirstChild(l_node);
210: l_value := xmldom.getNodevalue(l_child);
211: else
204: -- loop through elements that we received.
205: for i in 0..l_length-1 loop
206: l_node := xmldom.item(l_node_list, i);
207: l_node_name := xmldom.getNodeName(l_node);
208: if xmldom.hasChildNodes(l_node) then
209: l_child := xmldom.GetFirstChild(l_node);
210: l_value := xmldom.getNodevalue(l_child);
211: else
212: l_value := NULL;
205: for i in 0..l_length-1 loop
206: l_node := xmldom.item(l_node_list, i);
207: l_node_name := xmldom.getNodeName(l_node);
208: if xmldom.hasChildNodes(l_node) then
209: l_child := xmldom.GetFirstChild(l_node);
210: l_value := xmldom.getNodevalue(l_child);
211: else
212: l_value := NULL;
213: end if;
206: l_node := xmldom.item(l_node_list, i);
207: l_node_name := xmldom.getNodeName(l_node);
208: if xmldom.hasChildNodes(l_node) then
209: l_child := xmldom.GetFirstChild(l_node);
210: l_value := xmldom.getNodevalue(l_child);
211: else
212: l_value := NULL;
213: end if;
214: