114: X_GROUP_GUID in raw,
115: X_MEMBER_GUID in raw
116: ) return varchar2 is
117: buf varchar2(32000);
118: l_doc xmldom.DOMDocument;
119: l_element xmldom.DOMElement;
120: l_root xmldom.DOMNode;
121: l_node xmldom.DOMNode;
122: l_header xmldom.DOMNode;
115: X_MEMBER_GUID in raw
116: ) return varchar2 is
117: buf varchar2(32000);
118: l_doc xmldom.DOMDocument;
119: l_element xmldom.DOMElement;
120: l_root xmldom.DOMNode;
121: l_node xmldom.DOMNode;
122: l_header xmldom.DOMNode;
123:
116: ) return varchar2 is
117: buf varchar2(32000);
118: l_doc xmldom.DOMDocument;
119: l_element xmldom.DOMElement;
120: l_root xmldom.DOMNode;
121: l_node xmldom.DOMNode;
122: l_header xmldom.DOMNode;
123:
124: begin
117: buf varchar2(32000);
118: l_doc xmldom.DOMDocument;
119: l_element xmldom.DOMElement;
120: l_root xmldom.DOMNode;
121: l_node xmldom.DOMNode;
122: l_header xmldom.DOMNode;
123:
124: begin
125: -- select DISPLAY_NAME, DESCRIPTION
118: l_doc xmldom.DOMDocument;
119: l_element xmldom.DOMElement;
120: l_root xmldom.DOMNode;
121: l_node xmldom.DOMNode;
122: l_header xmldom.DOMNode;
123:
124: begin
125: -- select DISPLAY_NAME, DESCRIPTION
126: -- into l_display_name, l_description
127: -- from wf_agent_groups
128: -- where group_guid = x_guid
129: -- and member_guid = x_member_guid;
130:
131: l_doc := xmldom.newDOMDocument;
132: l_root := xmldom.makeNode(l_doc);
133: l_root := wf_event_xml.newtag (l_doc, l_root, wf_event_xml.masterTagName);
134: l_header := wf_event_xml.newtag(l_doc, l_root, m_table_name);
135: l_node := wf_event_xml.newtag(l_doc, l_header, wf_event_xml.versionTagName,
128: -- where group_guid = x_guid
129: -- and member_guid = x_member_guid;
130:
131: l_doc := xmldom.newDOMDocument;
132: l_root := xmldom.makeNode(l_doc);
133: l_root := wf_event_xml.newtag (l_doc, l_root, wf_event_xml.masterTagName);
134: l_header := wf_event_xml.newtag(l_doc, l_root, m_table_name);
135: l_node := wf_event_xml.newtag(l_doc, l_header, wf_event_xml.versionTagName,
136: m_package_version);
138: rawtohex(x_GROUP_GUID));
139: l_node := wf_event_xml.newtag(l_doc, l_header, 'MEMBER_GUID',
140: rawtohex(x_MEMBER_GUID));
141:
142: xmldom.writeToBuffer(l_root, buf);
143: return buf;
144:
145: null;
146: exception
154: X_GROUP_GUID in varchar2,
155: X_MEMBER_GUID in varchar2
156: ) return varchar2 is
157: buf varchar2(32000);
158: l_doc xmldom.DOMDocument;
159: l_element xmldom.DOMElement;
160: l_root xmldom.DOMNode;
161: l_node xmldom.DOMNode;
162: l_header xmldom.DOMNode;
155: X_MEMBER_GUID in varchar2
156: ) return varchar2 is
157: buf varchar2(32000);
158: l_doc xmldom.DOMDocument;
159: l_element xmldom.DOMElement;
160: l_root xmldom.DOMNode;
161: l_node xmldom.DOMNode;
162: l_header xmldom.DOMNode;
163:
156: ) return varchar2 is
157: buf varchar2(32000);
158: l_doc xmldom.DOMDocument;
159: l_element xmldom.DOMElement;
160: l_root xmldom.DOMNode;
161: l_node xmldom.DOMNode;
162: l_header xmldom.DOMNode;
163:
164: begin
157: buf varchar2(32000);
158: l_doc xmldom.DOMDocument;
159: l_element xmldom.DOMElement;
160: l_root xmldom.DOMNode;
161: l_node xmldom.DOMNode;
162: l_header xmldom.DOMNode;
163:
164: begin
165: -- select DISPLAY_NAME, DESCRIPTION
158: l_doc xmldom.DOMDocument;
159: l_element xmldom.DOMElement;
160: l_root xmldom.DOMNode;
161: l_node xmldom.DOMNode;
162: l_header xmldom.DOMNode;
163:
164: begin
165: -- select DISPLAY_NAME, DESCRIPTION
166: -- into l_display_name, l_description
167: -- from wf_agent_groups
168: -- where group_guid = x_guid
169: -- and member_guid = x_member_guid;
170:
171: l_doc := xmldom.newDOMDocument;
172: l_root := xmldom.makeNode(l_doc);
173: l_root := wf_event_xml.newtag (l_doc, l_root, wf_event_xml.masterTagName);
174: l_header := wf_event_xml.newtag(l_doc, l_root, m_table_name);
175: l_node := wf_event_xml.newtag(l_doc, l_header, wf_event_xml.versionTagName,
168: -- where group_guid = x_guid
169: -- and member_guid = x_member_guid;
170:
171: l_doc := xmldom.newDOMDocument;
172: l_root := xmldom.makeNode(l_doc);
173: l_root := wf_event_xml.newtag (l_doc, l_root, wf_event_xml.masterTagName);
174: l_header := wf_event_xml.newtag(l_doc, l_root, m_table_name);
175: l_node := wf_event_xml.newtag(l_doc, l_header, wf_event_xml.versionTagName,
176: m_package_version);
178: x_GROUP_GUID);
179: l_node := wf_event_xml.newtag(l_doc, l_header, 'MEMBER_NAME',
180: x_MEMBER_GUID);
181:
182: xmldom.writeToBuffer(l_root, buf);
183: return buf;
184:
185: null;
186: exception
198: l_version varchar2(80);
199: l_message varchar2(32000);
200:
201: l_node_name varchar2(255);
202: l_node xmldom.DOMNode;
203: l_child xmldom.DOMNode;
204: l_value varchar2(32000);
205: l_length integer;
206: l_node_list xmldom.DOMNodeList;
199: l_message varchar2(32000);
200:
201: l_node_name varchar2(255);
202: l_node xmldom.DOMNode;
203: l_child xmldom.DOMNode;
204: l_value varchar2(32000);
205: l_length integer;
206: l_node_list xmldom.DOMNodeList;
207:
202: l_node xmldom.DOMNode;
203: l_child xmldom.DOMNode;
204: l_value varchar2(32000);
205: l_length integer;
206: l_node_list xmldom.DOMNodeList;
207:
208: begin
209: l_message := x_message;
210: l_message := WF_EVENT_SYNCHRONIZE_PKG.SetGUID(l_message); -- update #NEW
211: l_message := WF_EVENT_SYNCHRONIZE_PKG.SetSYSTEMGUID(l_message); -- update #LOCAL
212: l_message := WF_EVENT_SYNCHRONIZE_PKG.SetSID(l_message); -- update #SID
213:
214: l_node_list := wf_event_xml.findTable(l_message, m_table_name);
215: l_length := xmldom.getLength(l_node_list);
216:
217: -- loop through elements that we received.
218: for i in 0..l_length-1 loop
219: l_node := xmldom.item(l_node_list, i);
215: l_length := xmldom.getLength(l_node_list);
216:
217: -- loop through elements that we received.
218: for i in 0..l_length-1 loop
219: l_node := xmldom.item(l_node_list, i);
220: l_node_name := xmldom.getNodeName(l_node);
221: if xmldom.hasChildNodes(l_node) then
222: l_child := xmldom.GetFirstChild(l_node);
223: l_value := xmldom.getNodevalue(l_child);
216:
217: -- loop through elements that we received.
218: for i in 0..l_length-1 loop
219: l_node := xmldom.item(l_node_list, i);
220: l_node_name := xmldom.getNodeName(l_node);
221: if xmldom.hasChildNodes(l_node) then
222: l_child := xmldom.GetFirstChild(l_node);
223: l_value := xmldom.getNodevalue(l_child);
224: else
217: -- loop through elements that we received.
218: for i in 0..l_length-1 loop
219: l_node := xmldom.item(l_node_list, i);
220: l_node_name := xmldom.getNodeName(l_node);
221: if xmldom.hasChildNodes(l_node) then
222: l_child := xmldom.GetFirstChild(l_node);
223: l_value := xmldom.getNodevalue(l_child);
224: else
225: l_value := NULL;
218: for i in 0..l_length-1 loop
219: l_node := xmldom.item(l_node_list, i);
220: l_node_name := xmldom.getNodeName(l_node);
221: if xmldom.hasChildNodes(l_node) then
222: l_child := xmldom.GetFirstChild(l_node);
223: l_value := xmldom.getNodevalue(l_child);
224: else
225: l_value := NULL;
226: end if;
219: l_node := xmldom.item(l_node_list, i);
220: l_node_name := xmldom.getNodeName(l_node);
221: if xmldom.hasChildNodes(l_node) then
222: l_child := xmldom.GetFirstChild(l_node);
223: l_value := xmldom.getNodevalue(l_child);
224: else
225: l_value := NULL;
226: end if;
227: