DBA Data[Home] [Help]

APPS.WF_EVENT_XML dependencies on XMLDOM

Line 5: return xmldom.DOMNodeList is

1: package body WF_EVENT_XML as
2: /* $Header: wfevxmlb.pls 120.1 2005/07/02 03:48:18 appldev ship $ */
3: -----------------------------------------------------------------------------
4: function findTable(x_message in varchar2, p_tablename in varchar2)
5: return xmldom.DOMNodeList is
6: l_parser xmlparser.parser;
7: l_doc xmldom.DOMDocument;
8: l_node_name varchar2(255);
9: l_node_list xmldom.DOMNodeList;

Line 7: l_doc xmldom.DOMDocument;

3: -----------------------------------------------------------------------------
4: function findTable(x_message in varchar2, p_tablename in varchar2)
5: return xmldom.DOMNodeList is
6: l_parser xmlparser.parser;
7: l_doc xmldom.DOMDocument;
8: l_node_name varchar2(255);
9: l_node_list xmldom.DOMNodeList;
10: l_doc_node xmldom.DOMNode;
11: l_length integer;

Line 9: l_node_list xmldom.DOMNodeList;

5: return xmldom.DOMNodeList is
6: l_parser xmlparser.parser;
7: l_doc xmldom.DOMDocument;
8: l_node_name varchar2(255);
9: l_node_list xmldom.DOMNodeList;
10: l_doc_node xmldom.DOMNode;
11: l_length integer;
12: begin
13:

Line 10: l_doc_node xmldom.DOMNode;

6: l_parser xmlparser.parser;
7: l_doc xmldom.DOMDocument;
8: l_node_name varchar2(255);
9: l_node_list xmldom.DOMNodeList;
10: l_doc_node xmldom.DOMNode;
11: l_length integer;
12: begin
13:
14: l_parser := xmlparser.newParser;

Line 26: l_node_list := xmldom.getElementsByTagName(l_doc,

22:
23: /*
24: ** Find The master node
25: */
26: l_node_list := xmldom.getElementsByTagName(l_doc,
27: wf_event_xml.masterTagName);
28: l_length := xmldom.getLength(l_node_list);
29: if l_length = 0 then
30: Wf_Core.Token('REASON', 'Could not find XML base node ' ||

Line 28: l_length := xmldom.getLength(l_node_list);

24: ** Find The master node
25: */
26: l_node_list := xmldom.getElementsByTagName(l_doc,
27: wf_event_xml.masterTagName);
28: l_length := xmldom.getLength(l_node_list);
29: if l_length = 0 then
30: Wf_Core.Token('REASON', 'Could not find XML base node ' ||
31: wf_event_xml.masterTagName);
32: Wf_Core.Raise('WFSQL_INTERNAL');

Line 36: l_doc_node := xmldom.item(l_node_list, 0);

32: Wf_Core.Raise('WFSQL_INTERNAL');
33: end if;
34:
35: -- There should never be more than one on the list, so we want the first.
36: l_doc_node := xmldom.item(l_node_list, 0);
37: l_node_name := xmldom.getNodeName(l_doc_node);
38: if l_node_name <> wf_event_xml.masterTagName then
39: Wf_Core.Token('REASON', 'Could not find XML base node in list' ||
40: wf_event_xml.masterTagName);

Line 37: l_node_name := xmldom.getNodeName(l_doc_node);

33: end if;
34:
35: -- There should never be more than one on the list, so we want the first.
36: l_doc_node := xmldom.item(l_node_list, 0);
37: l_node_name := xmldom.getNodeName(l_doc_node);
38: if l_node_name <> wf_event_xml.masterTagName then
39: Wf_Core.Token('REASON', 'Could not find XML base node in list' ||
40: wf_event_xml.masterTagName);
41: Wf_Core.Raise('WFSQL_INTERNAL');

Line 47: l_node_list := xmldom.getElementsByTagName(xmldom.makeElement(l_doc_node),

43:
44: /*
45: ** Find the table node
46: */
47: l_node_list := xmldom.getElementsByTagName(xmldom.makeElement(l_doc_node),
48: p_tablename);
49: l_length := xmldom.getLength(l_node_list);
50: if l_length = 0 then
51: Wf_Core.Token('REASON', 'Could not find XML table node ' ||

Line 49: l_length := xmldom.getLength(l_node_list);

45: ** Find the table node
46: */
47: l_node_list := xmldom.getElementsByTagName(xmldom.makeElement(l_doc_node),
48: p_tablename);
49: l_length := xmldom.getLength(l_node_list);
50: if l_length = 0 then
51: Wf_Core.Token('REASON', 'Could not find XML table node ' ||
52: p_tablename);
53: Wf_Core.Raise('WFSQL_INTERNAL');

Line 57: l_doc_node := xmldom.item(l_node_list, 0);

53: Wf_Core.Raise('WFSQL_INTERNAL');
54: end if;
55:
56: -- There should never be more than one on the list, so we want the first.
57: l_doc_node := xmldom.item(l_node_list, 0);
58: l_node_name := xmldom.getNodeName(l_doc_node);
59: if l_node_name <> p_tablename then
60: Wf_Core.Token('REASON', 'Could not find XML table node in list' ||
61: p_tablename);

Line 58: l_node_name := xmldom.getNodeName(l_doc_node);

54: end if;
55:
56: -- There should never be more than one on the list, so we want the first.
57: l_doc_node := xmldom.item(l_node_list, 0);
58: l_node_name := xmldom.getNodeName(l_doc_node);
59: if l_node_name <> p_tablename then
60: Wf_Core.Token('REASON', 'Could not find XML table node in list' ||
61: p_tablename);
62: Wf_Core.Raise('WFSQL_INTERNAL');

Line 65: l_node_list := xmldom.getChildNodes(l_doc_node);

61: p_tablename);
62: Wf_Core.Raise('WFSQL_INTERNAL');
63: end if;
64:
65: l_node_list := xmldom.getChildNodes(l_doc_node);
66:
67: return l_node_list;
68: exception
69: when others then

Line 75: function newTag (p_doc in xmldom.DOMDocument,

71: raise;
72:
73: end findTable;
74:
75: function newTag (p_doc in xmldom.DOMDocument,
76: p_node in xmldom.DOMNode,
77: p_tag in varchar2,
78: p_data in varchar2 default NULL) return xmldom.DOMNode is
79: l_element xmldom.DOMElement;

Line 76: p_node in xmldom.DOMNode,

72:
73: end findTable;
74:
75: function newTag (p_doc in xmldom.DOMDocument,
76: p_node in xmldom.DOMNode,
77: p_tag in varchar2,
78: p_data in varchar2 default NULL) return xmldom.DOMNode is
79: l_element xmldom.DOMElement;
80: l_node xmldom.DOMNode;

Line 78: p_data in varchar2 default NULL) return xmldom.DOMNode is

74:
75: function newTag (p_doc in xmldom.DOMDocument,
76: p_node in xmldom.DOMNode,
77: p_tag in varchar2,
78: p_data in varchar2 default NULL) return xmldom.DOMNode is
79: l_element xmldom.DOMElement;
80: l_node xmldom.DOMNode;
81: l_text xmldom.DOMText;
82: l_text_node xmldom.DOMNode;

Line 79: l_element xmldom.DOMElement;

75: function newTag (p_doc in xmldom.DOMDocument,
76: p_node in xmldom.DOMNode,
77: p_tag in varchar2,
78: p_data in varchar2 default NULL) return xmldom.DOMNode is
79: l_element xmldom.DOMElement;
80: l_node xmldom.DOMNode;
81: l_text xmldom.DOMText;
82: l_text_node xmldom.DOMNode;
83:

Line 80: l_node xmldom.DOMNode;

76: p_node in xmldom.DOMNode,
77: p_tag in varchar2,
78: p_data in varchar2 default NULL) return xmldom.DOMNode is
79: l_element xmldom.DOMElement;
80: l_node xmldom.DOMNode;
81: l_text xmldom.DOMText;
82: l_text_node xmldom.DOMNode;
83:
84: begin

Line 81: l_text xmldom.DOMText;

77: p_tag in varchar2,
78: p_data in varchar2 default NULL) return xmldom.DOMNode is
79: l_element xmldom.DOMElement;
80: l_node xmldom.DOMNode;
81: l_text xmldom.DOMText;
82: l_text_node xmldom.DOMNode;
83:
84: begin
85:

Line 82: l_text_node xmldom.DOMNode;

78: p_data in varchar2 default NULL) return xmldom.DOMNode is
79: l_element xmldom.DOMElement;
80: l_node xmldom.DOMNode;
81: l_text xmldom.DOMText;
82: l_text_node xmldom.DOMNode;
83:
84: begin
85:
86: -- Create an instance of the node

Line 87: l_element := xmldom.createElement(p_doc, p_tag);

83:
84: begin
85:
86: -- Create an instance of the node
87: l_element := xmldom.createElement(p_doc, p_tag);
88: l_node := xmldom.makeNode(l_element);
89:
90: if p_data is not null then
91: -- Append the data to the node

Line 88: l_node := xmldom.makeNode(l_element);

84: begin
85:
86: -- Create an instance of the node
87: l_element := xmldom.createElement(p_doc, p_tag);
88: l_node := xmldom.makeNode(l_element);
89:
90: if p_data is not null then
91: -- Append the data to the node
92: l_text := xmldom.createTextNode(p_doc, p_data);

Line 92: l_text := xmldom.createTextNode(p_doc, p_data);

88: l_node := xmldom.makeNode(l_element);
89:
90: if p_data is not null then
91: -- Append the data to the node
92: l_text := xmldom.createTextNode(p_doc, p_data);
93: l_text_node := xmldom.makeNode(l_text);
94: l_text_node := xmldom.appendChild(l_node, l_text_node);
95: end if;
96:

Line 93: l_text_node := xmldom.makeNode(l_text);

89:
90: if p_data is not null then
91: -- Append the data to the node
92: l_text := xmldom.createTextNode(p_doc, p_data);
93: l_text_node := xmldom.makeNode(l_text);
94: l_text_node := xmldom.appendChild(l_node, l_text_node);
95: end if;
96:
97: -- Append the new TAG node to the parent.

Line 94: l_text_node := xmldom.appendChild(l_node, l_text_node);

90: if p_data is not null then
91: -- Append the data to the node
92: l_text := xmldom.createTextNode(p_doc, p_data);
93: l_text_node := xmldom.makeNode(l_text);
94: l_text_node := xmldom.appendChild(l_node, l_text_node);
95: end if;
96:
97: -- Append the new TAG node to the parent.
98: l_node := xmldom.appendChild(p_node, l_node);

Line 98: l_node := xmldom.appendChild(p_node, l_node);

94: l_text_node := xmldom.appendChild(l_node, l_text_node);
95: end if;
96:
97: -- Append the new TAG node to the parent.
98: l_node := xmldom.appendChild(p_node, l_node);
99:
100: return l_node;
101:
102: exception

Line 103: when xmldom.INDEX_SIZE_ERR then

99:
100: return l_node;
101:
102: exception
103: when xmldom.INDEX_SIZE_ERR then
104: wf_core.context('WF_EVENT_XML', 'NewTag', p_tag);
105: raise;
106:
107: when xmldom.DOMSTRING_SIZE_ERR then

Line 107: when xmldom.DOMSTRING_SIZE_ERR then

103: when xmldom.INDEX_SIZE_ERR then
104: wf_core.context('WF_EVENT_XML', 'NewTag', p_tag);
105: raise;
106:
107: when xmldom.DOMSTRING_SIZE_ERR then
108: wf_core.context('WF_EVENT_XML', 'NewTag', p_tag);
109: raise;
110:
111: when xmldom.HIERARCHY_REQUEST_ERR then

Line 111: when xmldom.HIERARCHY_REQUEST_ERR then

107: when xmldom.DOMSTRING_SIZE_ERR then
108: wf_core.context('WF_EVENT_XML', 'NewTag', p_tag);
109: raise;
110:
111: when xmldom.HIERARCHY_REQUEST_ERR then
112: wf_core.context('WF_EVENT_XML', 'NewTag', p_tag);
113: raise;
114:
115: when xmldom.WRONG_DOCUMENT_ERR then

Line 115: when xmldom.WRONG_DOCUMENT_ERR then

111: when xmldom.HIERARCHY_REQUEST_ERR then
112: wf_core.context('WF_EVENT_XML', 'NewTag', p_tag);
113: raise;
114:
115: when xmldom.WRONG_DOCUMENT_ERR then
116: wf_core.context('WF_EVENT_XML', 'NewTag', p_tag);
117: raise;
118:
119: when xmldom.INVALID_CHARACTER_ERR then

Line 119: when xmldom.INVALID_CHARACTER_ERR then

115: when xmldom.WRONG_DOCUMENT_ERR then
116: wf_core.context('WF_EVENT_XML', 'NewTag', p_tag);
117: raise;
118:
119: when xmldom.INVALID_CHARACTER_ERR then
120: wf_core.context('WF_EVENT_XML', 'NewTag', p_tag);
121: raise;
122:
123: when xmldom.NO_DATA_ALLOWED_ERR then

Line 123: when xmldom.NO_DATA_ALLOWED_ERR then

119: when xmldom.INVALID_CHARACTER_ERR then
120: wf_core.context('WF_EVENT_XML', 'NewTag', p_tag);
121: raise;
122:
123: when xmldom.NO_DATA_ALLOWED_ERR then
124: wf_core.context('WF_EVENT_XML', 'NewTag', p_tag);
125: raise;
126:
127: when xmldom.NO_MODIFICATION_ALLOWED_ERR then

Line 127: when xmldom.NO_MODIFICATION_ALLOWED_ERR then

123: when xmldom.NO_DATA_ALLOWED_ERR then
124: wf_core.context('WF_EVENT_XML', 'NewTag', p_tag);
125: raise;
126:
127: when xmldom.NO_MODIFICATION_ALLOWED_ERR then
128: wf_core.context('WF_EVENT_XML', 'NewTag', p_tag);
129: raise;
130:
131: when xmldom.NOT_FOUND_ERR then

Line 131: when xmldom.NOT_FOUND_ERR then

127: when xmldom.NO_MODIFICATION_ALLOWED_ERR then
128: wf_core.context('WF_EVENT_XML', 'NewTag', p_tag);
129: raise;
130:
131: when xmldom.NOT_FOUND_ERR then
132: wf_core.context('WF_EVENT_XML', 'NewTag', p_tag);
133: raise;
134:
135: when xmldom.NOT_SUPPORTED_ERR then

Line 135: when xmldom.NOT_SUPPORTED_ERR then

131: when xmldom.NOT_FOUND_ERR then
132: wf_core.context('WF_EVENT_XML', 'NewTag', p_tag);
133: raise;
134:
135: when xmldom.NOT_SUPPORTED_ERR then
136: wf_core.context('WF_EVENT_XML', 'NewTag', p_tag);
137: raise;
138:
139: when xmldom.INUSE_ATTRIBUTE_ERR then

Line 139: when xmldom.INUSE_ATTRIBUTE_ERR then

135: when xmldom.NOT_SUPPORTED_ERR then
136: wf_core.context('WF_EVENT_XML', 'NewTag', p_tag);
137: raise;
138:
139: when xmldom.INUSE_ATTRIBUTE_ERR then
140: wf_core.context('WF_EVENT_XML', 'NewTag', p_tag);
141: raise;
142:
143: end newTag;

Line 146: procedure printElements(doc xmldom.DOMDocument) is

142:
143: end newTag;
144:
145: -- For debugging only.
146: procedure printElements(doc xmldom.DOMDocument) is
147: nl xmldom.DOMNodeList;
148: len number;
149: n xmldom.DOMNode;
150: begin

Line 147: nl xmldom.DOMNodeList;

143: end newTag;
144:
145: -- For debugging only.
146: procedure printElements(doc xmldom.DOMDocument) is
147: nl xmldom.DOMNodeList;
148: len number;
149: n xmldom.DOMNode;
150: begin
151: -- get all elements

Line 149: n xmldom.DOMNode;

145: -- For debugging only.
146: procedure printElements(doc xmldom.DOMDocument) is
147: nl xmldom.DOMNodeList;
148: len number;
149: n xmldom.DOMNode;
150: begin
151: -- get all elements
152: nl := xmldom.getElementsByTagName(doc, '*');
153: len := xmldom.getLength(nl);

Line 152: nl := xmldom.getElementsByTagName(doc, '*');

148: len number;
149: n xmldom.DOMNode;
150: begin
151: -- get all elements
152: nl := xmldom.getElementsByTagName(doc, '*');
153: len := xmldom.getLength(nl);
154:
155: -- loop through elements
156: -- ### uncomment this for debug purpose

Line 153: len := xmldom.getLength(nl);

149: n xmldom.DOMNode;
150: begin
151: -- get all elements
152: nl := xmldom.getElementsByTagName(doc, '*');
153: len := xmldom.getLength(nl);
154:
155: -- loop through elements
156: -- ### uncomment this for debug purpose
157: -- dbms_output.put('[');

Line 159: -- n := xmldom.item(nl, i);

155: -- loop through elements
156: -- ### uncomment this for debug purpose
157: -- dbms_output.put('[');
158: -- for i in 0..len-1 loop
159: -- n := xmldom.item(nl, i);
160: -- dbms_output.put(xmldom.getNodeName(n) || ', ');
161: -- end loop;
162: -- dbms_output.put_line(']');
163: end printElements;

Line 160: -- dbms_output.put(xmldom.getNodeName(n) || ', ');

156: -- ### uncomment this for debug purpose
157: -- dbms_output.put('[');
158: -- for i in 0..len-1 loop
159: -- n := xmldom.item(nl, i);
160: -- dbms_output.put(xmldom.getNodeName(n) || ', ');
161: -- end loop;
162: -- dbms_output.put_line(']');
163: end printElements;
164: