[Home] [Help]
29: is
30:
31: i_method_name varchar2(2000) := 'ecx_inbound.updatedom';
32:
33: p_node xmlDOM.DOMNode;
34: l_text_node xmldom.DOMNode;
35:
36: begin
37: if (l_procedureEnabled) then
30:
31: i_method_name varchar2(2000) := 'ecx_inbound.updatedom';
32:
33: p_node xmlDOM.DOMNode;
34: l_text_node xmldom.DOMNode;
35:
36: begin
37: if (l_procedureEnabled) then
38: ecx_debug.push(i_method_name);
44: if ecx_utils.g_target(j).map_attribute_id is not null
45: then
46: p_node := ecx_utils.g_node_tbl(ecx_utils.g_target(j).attribute_id);
47:
48: if (xmlDOM.getNodeType(p_node) = 2)
49: then
50: l_text_node := p_node;
51: else
52: l_text_node := xmldom.getFirstChild(p_node);
48: if (xmlDOM.getNodeType(p_node) = 2)
49: then
50: l_text_node := p_node;
51: else
52: l_text_node := xmldom.getFirstChild(p_node);
53: end if;
54:
55: -- Update the DOM only if the node and its value are not null
56: if not (xmldom.isnull(l_text_node))
52: l_text_node := xmldom.getFirstChild(p_node);
53: end if;
54:
55: -- Update the DOM only if the node and its value are not null
56: if not (xmldom.isnull(l_text_node))
57: then
58: if (ecx_utils.g_target(j).value is not null)
59: then
60: xmlDOM.setNodeValue(l_text_node,ecx_utils.g_target(j).value);
56: if not (xmldom.isnull(l_text_node))
57: then
58: if (ecx_utils.g_target(j).value is not null)
59: then
60: xmlDOM.setNodeValue(l_text_node,ecx_utils.g_target(j).value);
61: end if;
62: if(l_statementEnabled) then
63: ecx_debug.log(l_statement,'updating dom node', xmlDOM.getNodeValue(l_text_node),
64: i_method_name);
59: then
60: xmlDOM.setNodeValue(l_text_node,ecx_utils.g_target(j).value);
61: end if;
62: if(l_statementEnabled) then
63: ecx_debug.log(l_statement,'updating dom node', xmlDOM.getNodeValue(l_text_node),
64: i_method_name);
65: ecx_debug.log(l_statement, 'with value', ecx_utils.g_target(j).value,i_method_name);
66: end if;
67: end if;
660: END start_level;
661:
662:
663: function get_node_id (
664: p_node IN xmldom.DOMNode,
665: p_node_name IN Varchar2,
666: p_parent_node_id IN pls_integer,
667: p_parent_node_pos IN pls_integer,
668: p_occur IN pls_integer,
676: p_cond_node Varchar2(200);
677: p_cond_node_type pls_integer;
678: l_value Varchar2(4000) := null;
679:
680: l_node_list xmldom.DOMNodeList;
681: l_text_node xmldom.DOMNode;
682: l_tmp_node xmldom.DOMNode;
683: l_element xmldom.DOMElement;
684: l_node_parent_map_id pls_integer;
677: p_cond_node_type pls_integer;
678: l_value Varchar2(4000) := null;
679:
680: l_node_list xmldom.DOMNodeList;
681: l_text_node xmldom.DOMNode;
682: l_tmp_node xmldom.DOMNode;
683: l_element xmldom.DOMElement;
684: l_node_parent_map_id pls_integer;
685: x_parent_node_map_id pls_integer;
678: l_value Varchar2(4000) := null;
679:
680: l_node_list xmldom.DOMNodeList;
681: l_text_node xmldom.DOMNode;
682: l_tmp_node xmldom.DOMNode;
683: l_element xmldom.DOMElement;
684: l_node_parent_map_id pls_integer;
685: x_parent_node_map_id pls_integer;
686: i_parent_node_pos pls_integer;
679:
680: l_node_list xmldom.DOMNodeList;
681: l_text_node xmldom.DOMNode;
682: l_tmp_node xmldom.DOMNode;
683: l_element xmldom.DOMElement;
684: l_node_parent_map_id pls_integer;
685: x_parent_node_map_id pls_integer;
686: i_parent_node_pos pls_integer;
687:
730: end if;
731: -- need to get the value for the condition node
732: -- only if we haven't get it.
733: if (l_value is null) then
734: l_element := xmldom.makeElement(p_node);
735: if (p_cond_node_type = 1) then
736: l_node_list := xmldom.getElementsByTagName(l_element, p_cond_node);
737: l_tmp_node := xmldom.item(l_node_list, 0);
738: l_text_node := xmldom.getFirstChild(l_tmp_node);
732: -- only if we haven't get it.
733: if (l_value is null) then
734: l_element := xmldom.makeElement(p_node);
735: if (p_cond_node_type = 1) then
736: l_node_list := xmldom.getElementsByTagName(l_element, p_cond_node);
737: l_tmp_node := xmldom.item(l_node_list, 0);
738: l_text_node := xmldom.getFirstChild(l_tmp_node);
739: l_value := xmldom.getNodeValue(l_text_node);
740:
733: if (l_value is null) then
734: l_element := xmldom.makeElement(p_node);
735: if (p_cond_node_type = 1) then
736: l_node_list := xmldom.getElementsByTagName(l_element, p_cond_node);
737: l_tmp_node := xmldom.item(l_node_list, 0);
738: l_text_node := xmldom.getFirstChild(l_tmp_node);
739: l_value := xmldom.getNodeValue(l_text_node);
740:
741: elsif (p_cond_node_type = 2) then
734: l_element := xmldom.makeElement(p_node);
735: if (p_cond_node_type = 1) then
736: l_node_list := xmldom.getElementsByTagName(l_element, p_cond_node);
737: l_tmp_node := xmldom.item(l_node_list, 0);
738: l_text_node := xmldom.getFirstChild(l_tmp_node);
739: l_value := xmldom.getNodeValue(l_text_node);
740:
741: elsif (p_cond_node_type = 2) then
742: l_value := xmldom.getAttribute(l_element, p_cond_node);
735: if (p_cond_node_type = 1) then
736: l_node_list := xmldom.getElementsByTagName(l_element, p_cond_node);
737: l_tmp_node := xmldom.item(l_node_list, 0);
738: l_text_node := xmldom.getFirstChild(l_tmp_node);
739: l_value := xmldom.getNodeValue(l_text_node);
740:
741: elsif (p_cond_node_type = 2) then
742: l_value := xmldom.getAttribute(l_element, p_cond_node);
743: end if;
738: l_text_node := xmldom.getFirstChild(l_tmp_node);
739: l_value := xmldom.getNodeValue(l_text_node);
740:
741: elsif (p_cond_node_type = 2) then
742: l_value := xmldom.getAttribute(l_element, p_cond_node);
743: end if;
744: end if;
745:
746: if(l_statementEnabled) then
822:
823:
824: procedure process_node (
825: p_int_col_pos IN pls_integer,
826: p_node IN OUT NOCOPY xmldom.DOMNode,
827: p_is_attribute IN Boolean) IS
828:
829:
830: i_method_name varchar2(2000) := 'ecx_inbound.process_node';
833: l_cat_id pls_integer;
834: l_return_status Varchar2(1);
835: l_msg_count pls_integer;
836: l_msg_data Varchar2(2000);
837: l_text_node xmldom.DOMNode;
838:
839: BEGIN
840: if (l_procedureEnabled) then
841: ecx_debug.push(i_method_name);
843:
844: if (p_is_attribute) then
845: l_text_node := p_node;
846: else
847: l_text_node := xmldom.getFirstChild(p_node);
848: end if;
849:
850: if not (xmldom.isnull(l_text_node))
851: then
846: else
847: l_text_node := xmldom.getFirstChild(p_node);
848: end if;
849:
850: if not (xmldom.isnull(l_text_node))
851: then
852: l_value := xmldom.getNodeValue(l_text_node);
853: if(l_statementEnabled) then
854: ecx_debug.log(l_statement, 'p_int_col_pos', p_int_col_pos,i_method_name);
848: end if;
849:
850: if not (xmldom.isnull(l_text_node))
851: then
852: l_value := xmldom.getNodeValue(l_text_node);
853: if(l_statementEnabled) then
854: ecx_debug.log(l_statement, 'p_int_col_pos', p_int_col_pos,i_method_name);
855: ecx_debug.log(l_statement, 'node value', l_value,i_method_name);
856: end if;
904: ecx_debug.log(l_statement, 'node value', l_value,i_method_name);
905: end if;
906: -- update the DOM only if the valus is not null
907: if (l_value is not null) then
908: xmldom.setNodeValue (l_text_node, l_value);
909: end if;
910: end if;
911: end if;
912:
965: END process_node;
966:
967:
968: procedure process_attributes (
969: p_node IN OUT NOCOPY xmldom.DOMNode,
970: p_node_id IN pls_integer,
971: p_occur IN pls_integer,
972: p_node_pos IN pls_integer,
973: x_parent_node_map_id IN OUT NOCOPY pls_integer) IS
975:
976: i_method_name varchar2(2000) := 'ecx_inbound.process_attributes';
977:
978: l_attr_node_name Varchar2(80);
979: l_attr_nodemap xmldom.DOMNamedNodeMap;
980: l_num_of_attr pls_integer;
981: l_attr_node_id pls_integer;
982: l_int_col_pos pls_integer;
983: l_attr_node xmldom.DOMNode;
979: l_attr_nodemap xmldom.DOMNamedNodeMap;
980: l_num_of_attr pls_integer;
981: l_attr_node_id pls_integer;
982: l_int_col_pos pls_integer;
983: l_attr_node xmldom.DOMNode;
984: l_attr_node_pos pls_integer;
985: i pls_integer := 1;
986:
987: BEGIN
994: ecx_debug.log(l_statement, 'p_occur', p_occur,i_method_name);
995: ecx_debug.log(l_statement, 'p_node_pos', p_node_pos,i_method_name);
996: ecx_debug.log(l_statement, 'x_parent_node_map_id', x_parent_node_map_id,i_method_name);
997: end if;
998: l_attr_nodemap := xmldom.getAttributes(p_node);
999:
1000: l_num_of_attr := xmldom.getLength(l_attr_nodemap);
1001: if(l_statementEnabled) then
1002: ecx_debug.log(l_statement,'num_of_attributes', l_num_of_attr,i_method_name);
996: ecx_debug.log(l_statement, 'x_parent_node_map_id', x_parent_node_map_id,i_method_name);
997: end if;
998: l_attr_nodemap := xmldom.getAttributes(p_node);
999:
1000: l_num_of_attr := xmldom.getLength(l_attr_nodemap);
1001: if(l_statementEnabled) then
1002: ecx_debug.log(l_statement,'num_of_attributes', l_num_of_attr,i_method_name);
1003: end if;
1004:
1006: if(l_statementEnabled) then
1007: ecx_debug.log(l_statement, 'i', i,i_method_name);
1008: end if;
1009: l_int_col_pos := 0;
1010: l_attr_node := xmldom.item(l_attr_nodemap, i-1);
1011: l_attr_node_name := xmldom.getNodeName(l_attr_node);
1012: if(l_statementEnabled) then
1013: ecx_debug.log(l_statement, 'l_attr_node_name', l_attr_node_name,i_method_name);
1014: end if;
1007: ecx_debug.log(l_statement, 'i', i,i_method_name);
1008: end if;
1009: l_int_col_pos := 0;
1010: l_attr_node := xmldom.item(l_attr_nodemap, i-1);
1011: l_attr_node_name := xmldom.getNodeName(l_attr_node);
1012: if(l_statementEnabled) then
1013: ecx_debug.log(l_statement, 'l_attr_node_name', l_attr_node_name,i_method_name);
1014: end if;
1015:
1058: END process_attributes;
1059:
1060:
1061: procedure get_root_info (
1062: p_doc IN xmldom.DOMDocument,
1063: p_map_id IN pls_integer,
1064: x_root_node_id OUT NOCOPY pls_integer,
1065: x_root_node OUT NOCOPY xmldom.DOMNode) IS
1066:
1061: procedure get_root_info (
1062: p_doc IN xmldom.DOMDocument,
1063: p_map_id IN pls_integer,
1064: x_root_node_id OUT NOCOPY pls_integer,
1065: x_root_node OUT NOCOPY xmldom.DOMNode) IS
1066:
1067: i_method_name varchar2(2000) := 'ecx_inbound.get_root_info';
1068:
1069: cursor get_root_elmt (
1076: and em.map_id = eo.map_id
1077: and em.object_id_source = eo.object_id;
1078:
1079: l_root_elmt_name Varchar2(80);
1080: l_node_list xmldom.DOMNodeList;
1081: l_root_node xmldom.DOMNode;
1082: no_map_root EXCEPTION;
1083:
1084: BEGIN
1077: and em.object_id_source = eo.object_id;
1078:
1079: l_root_elmt_name Varchar2(80);
1080: l_node_list xmldom.DOMNodeList;
1081: l_root_node xmldom.DOMNode;
1082: no_map_root EXCEPTION;
1083:
1084: BEGIN
1085: if (l_procedureEnabled) then
1097: else
1098: close get_root_elmt;
1099: end if;
1100:
1101: l_node_list := xmldom.getElementsByTagName (p_doc, l_root_elmt_name);
1102: x_root_node := xmldom.item (l_node_list, 0);
1103: if (l_procedureEnabled) then
1104: ecx_debug.pop(i_method_name);
1105: end if;
1098: close get_root_elmt;
1099: end if;
1100:
1101: l_node_list := xmldom.getElementsByTagName (p_doc, l_root_elmt_name);
1102: x_root_node := xmldom.item (l_node_list, 0);
1103: if (l_procedureEnabled) then
1104: ecx_debug.pop(i_method_name);
1105: end if;
1106:
1250: end if;
1251:
1252: -- Parser from the CLOB
1253: xmlparser.parseCLOB(ecx_utils.g_inb_parser, i_xmldoc);
1254: ecx_utils.g_xmldoc := xmlDOM.makeNode(xmlparser.getDocument(ecx_utils.g_inb_parser));
1255: dbms_lob.trim(i_xmldoc, 0);
1256: xmlDOM.writetoCLOB(ecx_utils.g_xmldoc,i_xmldoc);
1257: if(l_statementEnabled) then
1258: ecx_debug.log(l_statement,'inbound clob after parsing',dbms_lob.getLength(i_xmldoc),i_method_name);
1252: -- Parser from the CLOB
1253: xmlparser.parseCLOB(ecx_utils.g_inb_parser, i_xmldoc);
1254: ecx_utils.g_xmldoc := xmlDOM.makeNode(xmlparser.getDocument(ecx_utils.g_inb_parser));
1255: dbms_lob.trim(i_xmldoc, 0);
1256: xmlDOM.writetoCLOB(ecx_utils.g_xmldoc,i_xmldoc);
1257: if(l_statementEnabled) then
1258: ecx_debug.log(l_statement,'inbound clob after parsing',dbms_lob.getLength(i_xmldoc),i_method_name);
1259: ecx_debug.log(l_statement,'Clob Data is ',i_xmldoc,i_method_name);
1260: end if;
1282: ** So, this procedure needs to process the last level at the end.
1283: **/
1284:
1285: procedure process_xml_doc (
1286: p_doc IN xmldom.DOMDocument,
1287: p_map_id IN pls_integer,
1288: p_snd_tp_id IN pls_integer,
1289: p_rec_tp_id IN pls_integer,
1290: x_xmlclob OUT NOCOPY clob,
1292: ) is
1293:
1294: i_method_name varchar2(2000) := 'ecx_inbound.process_xml_doc';
1295:
1296: l_root_node xmldom.DOMNode;
1297: l_root_element xmldom.DOMElement;
1298: l_node_list xmldom.DOMNodeList;
1299: l_num_of_nodes pls_integer;
1300: node_info_stack node_info_tbl;
1293:
1294: i_method_name varchar2(2000) := 'ecx_inbound.process_xml_doc';
1295:
1296: l_root_node xmldom.DOMNode;
1297: l_root_element xmldom.DOMElement;
1298: l_node_list xmldom.DOMNodeList;
1299: l_num_of_nodes pls_integer;
1300: node_info_stack node_info_tbl;
1301: l_node xmldom.DOMNode;
1294: i_method_name varchar2(2000) := 'ecx_inbound.process_xml_doc';
1295:
1296: l_root_node xmldom.DOMNode;
1297: l_root_element xmldom.DOMElement;
1298: l_node_list xmldom.DOMNodeList;
1299: l_num_of_nodes pls_integer;
1300: node_info_stack node_info_tbl;
1301: l_node xmldom.DOMNode;
1302: l_node_name Varchar2(200);
1297: l_root_element xmldom.DOMElement;
1298: l_node_list xmldom.DOMNodeList;
1299: l_num_of_nodes pls_integer;
1300: node_info_stack node_info_tbl;
1301: l_node xmldom.DOMNode;
1302: l_node_name Varchar2(200);
1303: l_parent_node_map_id pls_integer ;
1304: l_node_id pls_integer := -1;
1305: l_node_pos pls_integer;
1303: l_parent_node_map_id pls_integer ;
1304: l_node_id pls_integer := -1;
1305: l_node_pos pls_integer;
1306: l_col_pos pls_integer;
1307: l_children xmldom.DOMNodeList;
1308: l_num_of_child pls_integer;
1309: l_tmp_num_child pls_integer;
1310: l_child xmldom.DOMNode;
1311: l_child_node_type pls_integer;
1306: l_col_pos pls_integer;
1307: l_children xmldom.DOMNodeList;
1308: l_num_of_child pls_integer;
1309: l_tmp_num_child pls_integer;
1310: l_child xmldom.DOMNode;
1311: l_child_node_type pls_integer;
1312: l_stack_indx pls_integer := 1;
1313: l_next_pos pls_integer;
1314: l_attributes xmldom.DOMNamedNodeMap;
1310: l_child xmldom.DOMNode;
1311: l_child_node_type pls_integer;
1312: l_stack_indx pls_integer := 1;
1313: l_next_pos pls_integer;
1314: l_attributes xmldom.DOMNamedNodeMap;
1315: l_num_of_attr pls_integer;
1316: i pls_integer;
1317: i_root_name varchar2(200);
1318:
1341: ecx_actions.execute_stage_data(20,0,'T');
1342:
1343: get_root_info (p_doc, p_map_id, node_info_stack(l_stack_indx).parent_node_id,
1344: l_root_node);
1345: l_root_element := xmldom.makeElement(l_root_node);
1346: -- if necessary initialize the printing
1347: if (not (ecx_utils.dom_printing) AND (ecx_utils.structure_printing))
1348: then
1349: structurePrintingSetup(i_root_name);
1362: node_info_stack(l_stack_indx).siblings := 0;
1363:
1364: /* Start of changes for Bug 4587719. Processing for the root node sepeartely */
1365: l_node := l_root_node;
1366: l_node_name := xmldom.getNodeName(l_node);
1367:
1368: if(l_statementEnabled) then
1369: ecx_debug.log(l_statement,'l_node_name', l_node_name,i_method_name);
1370: ecx_debug.log(l_statement, 'l_stack_indx', l_stack_indx,i_method_name);
1412: l_parent_node_map_id);
1413: end if;
1414:
1415: if(l_statementEnabled) then
1416: ecx_debug.log(l_statement,'Getting Child Nodes for :',xmldom.getNodeName(l_node),i_method_name);
1417: end if;
1418: l_children := xmldom.getChildNodes(l_node);
1419: l_num_of_child := xmldom.getLength (l_children);
1420: l_tmp_num_child := l_num_of_child;
1414:
1415: if(l_statementEnabled) then
1416: ecx_debug.log(l_statement,'Getting Child Nodes for :',xmldom.getNodeName(l_node),i_method_name);
1417: end if;
1418: l_children := xmldom.getChildNodes(l_node);
1419: l_num_of_child := xmldom.getLength (l_children);
1420: l_tmp_num_child := l_num_of_child;
1421: for i in 0..l_tmp_num_child - 1 loop
1422: l_child := xmldom.item (l_children, i);
1415: if(l_statementEnabled) then
1416: ecx_debug.log(l_statement,'Getting Child Nodes for :',xmldom.getNodeName(l_node),i_method_name);
1417: end if;
1418: l_children := xmldom.getChildNodes(l_node);
1419: l_num_of_child := xmldom.getLength (l_children);
1420: l_tmp_num_child := l_num_of_child;
1421: for i in 0..l_tmp_num_child - 1 loop
1422: l_child := xmldom.item (l_children, i);
1423: l_child_node_type := xmldom.getNodeType(l_child);
1418: l_children := xmldom.getChildNodes(l_node);
1419: l_num_of_child := xmldom.getLength (l_children);
1420: l_tmp_num_child := l_num_of_child;
1421: for i in 0..l_tmp_num_child - 1 loop
1422: l_child := xmldom.item (l_children, i);
1423: l_child_node_type := xmldom.getNodeType(l_child);
1424: if (l_child_node_type <> 1 and l_child_node_type <> 2) then
1425: l_num_of_child := l_num_of_child - 1;
1426: end if;
1419: l_num_of_child := xmldom.getLength (l_children);
1420: l_tmp_num_child := l_num_of_child;
1421: for i in 0..l_tmp_num_child - 1 loop
1422: l_child := xmldom.item (l_children, i);
1423: l_child_node_type := xmldom.getNodeType(l_child);
1424: if (l_child_node_type <> 1 and l_child_node_type <> 2) then
1425: l_num_of_child := l_num_of_child - 1;
1426: end if;
1427: end loop;
1451: end if;
1452:
1453: /* End of changes for Bug 4587719. Processing for the root node sepeartely */
1454:
1455: l_node_list := xmldom.getElementsByTagName (l_root_element, '*');
1456: l_num_of_nodes := xmldom.getLength (l_node_list);
1457:
1458: for i in 0..l_num_of_nodes-1 loop
1459: l_node := xmldom.item(l_node_list, i);
1452:
1453: /* End of changes for Bug 4587719. Processing for the root node sepeartely */
1454:
1455: l_node_list := xmldom.getElementsByTagName (l_root_element, '*');
1456: l_num_of_nodes := xmldom.getLength (l_node_list);
1457:
1458: for i in 0..l_num_of_nodes-1 loop
1459: l_node := xmldom.item(l_node_list, i);
1460: l_node_name := xmldom.getNodeName(l_node);
1455: l_node_list := xmldom.getElementsByTagName (l_root_element, '*');
1456: l_num_of_nodes := xmldom.getLength (l_node_list);
1457:
1458: for i in 0..l_num_of_nodes-1 loop
1459: l_node := xmldom.item(l_node_list, i);
1460: l_node_name := xmldom.getNodeName(l_node);
1461:
1462: if(l_statementEnabled) then
1463: ecx_debug.log(l_statement,'l_node_name', l_node_name,i_method_name);
1456: l_num_of_nodes := xmldom.getLength (l_node_list);
1457:
1458: for i in 0..l_num_of_nodes-1 loop
1459: l_node := xmldom.item(l_node_list, i);
1460: l_node_name := xmldom.getNodeName(l_node);
1461:
1462: if(l_statementEnabled) then
1463: ecx_debug.log(l_statement,'l_node_name', l_node_name,i_method_name);
1464: ecx_debug.log(l_statement, 'l_stack_indx', l_stack_indx,i_method_name);
1515: end if;
1516:
1517: --if (ecx_utils.g_source(l_node_pos).leaf_node = 0) then
1518: if(l_statementEnabled) then
1519: ecx_debug.log(l_statement,'Getting Child Nodes for :',xmldom.getNodeName(l_node),i_method_name);
1520: end if;
1521: l_children := xmldom.getChildNodes(l_node);
1522: l_num_of_child := xmldom.getLength (l_children);
1523: l_tmp_num_child := l_num_of_child;
1517: --if (ecx_utils.g_source(l_node_pos).leaf_node = 0) then
1518: if(l_statementEnabled) then
1519: ecx_debug.log(l_statement,'Getting Child Nodes for :',xmldom.getNodeName(l_node),i_method_name);
1520: end if;
1521: l_children := xmldom.getChildNodes(l_node);
1522: l_num_of_child := xmldom.getLength (l_children);
1523: l_tmp_num_child := l_num_of_child;
1524: for i in 0..l_tmp_num_child - 1 loop
1525: l_child := xmldom.item (l_children, i);
1518: if(l_statementEnabled) then
1519: ecx_debug.log(l_statement,'Getting Child Nodes for :',xmldom.getNodeName(l_node),i_method_name);
1520: end if;
1521: l_children := xmldom.getChildNodes(l_node);
1522: l_num_of_child := xmldom.getLength (l_children);
1523: l_tmp_num_child := l_num_of_child;
1524: for i in 0..l_tmp_num_child - 1 loop
1525: l_child := xmldom.item (l_children, i);
1526: l_child_node_type := xmldom.getNodeType(l_child);
1521: l_children := xmldom.getChildNodes(l_node);
1522: l_num_of_child := xmldom.getLength (l_children);
1523: l_tmp_num_child := l_num_of_child;
1524: for i in 0..l_tmp_num_child - 1 loop
1525: l_child := xmldom.item (l_children, i);
1526: l_child_node_type := xmldom.getNodeType(l_child);
1527: if (l_child_node_type <> 1 and l_child_node_type <> 2) then
1528: l_num_of_child := l_num_of_child - 1;
1529: end if;
1522: l_num_of_child := xmldom.getLength (l_children);
1523: l_tmp_num_child := l_num_of_child;
1524: for i in 0..l_tmp_num_child - 1 loop
1525: l_child := xmldom.item (l_children, i);
1526: l_child_node_type := xmldom.getNodeType(l_child);
1527: if (l_child_node_type <> 1 and l_child_node_type <> 2) then
1528: l_num_of_child := l_num_of_child - 1;
1529: end if;
1530: end loop;
1537: process_node (l_node_pos, l_node, False);
1538: end if;
1539: --end if;
1540: else
1541: l_children := xmldom.getChildNodes(l_node);
1542: l_num_of_child := xmldom.getLength (l_children);
1543: l_tmp_num_child := l_num_of_child;
1544: if(l_statementEnabled) then
1545: ecx_debug.log(l_statement, 'num of child', l_num_of_child,i_method_name);
1538: end if;
1539: --end if;
1540: else
1541: l_children := xmldom.getChildNodes(l_node);
1542: l_num_of_child := xmldom.getLength (l_children);
1543: l_tmp_num_child := l_num_of_child;
1544: if(l_statementEnabled) then
1545: ecx_debug.log(l_statement, 'num of child', l_num_of_child,i_method_name);
1546: end if;
1545: ecx_debug.log(l_statement, 'num of child', l_num_of_child,i_method_name);
1546: end if;
1547: /*
1548: if (l_num_of_child = 1) then
1549: l_child := xmldom.item (l_children, 0);
1550: l_child_node_type := xmldom.getNodeType(l_child);
1551: if (l_child_node_type = 3) then
1552: l_num_of_child := 0;
1553: end if;
1546: end if;
1547: /*
1548: if (l_num_of_child = 1) then
1549: l_child := xmldom.item (l_children, 0);
1550: l_child_node_type := xmldom.getNodeType(l_child);
1551: if (l_child_node_type = 3) then
1552: l_num_of_child := 0;
1553: end if;
1554: end if;
1553: end if;
1554: end if;
1555: */
1556: for i in 0..l_tmp_num_child - 1 loop
1557: l_child := xmldom.item (l_children, i);
1558: l_child_node_type := xmldom.getNodeType(l_child);
1559: if (l_child_node_type <> 1 and l_child_node_type <> 2) then
1560: l_num_of_child := l_num_of_child - 1;
1561: end if;
1554: end if;
1555: */
1556: for i in 0..l_tmp_num_child - 1 loop
1557: l_child := xmldom.item (l_children, i);
1558: l_child_node_type := xmldom.getNodeType(l_child);
1559: if (l_child_node_type <> 1 and l_child_node_type <> 2) then
1560: l_num_of_child := l_num_of_child - 1;
1561: end if;
1562: end loop;
1599: ecx_print_local.xmlPopall(i_xmlclob);
1600: ecx_util_api.parseXML(ecx_utils.g_inb_parser,
1601: x_xmlclob, x_parseXML, ecx_utils.g_xmldoc);
1602: else
1603: ecx_utils.g_xmldoc := xmlDom.makeNode(p_doc);
1604: end if;
1605: -- At this point g_xmldoc should have the correct dcument
1606:
1607: -- Execute the Stage 30 for Level 0