APPS.CZ_XML dependencies on XMLDOM

Line 46: g_DOC xmldom.DOMDocument;

42:
43:
44: -------------- JDR DOC BUILDER/XML Parsing part -----------------
45:
46: g_DOC xmldom.DOMDocument;
47: g_JRADDOC jdr_docbuilder.Document;
48: g_PARSER xmlparser.parser;
49: g_Null_Xml_Node xmldom.DOMNode;
50:

Line 49: g_Null_Xml_Node xmldom.DOMNode;

45:
46: g_DOC xmldom.DOMDocument;
47: g_JRADDOC jdr_docbuilder.Document;
48: g_PARSER xmlparser.parser;
49: g_Null_Xml_Node xmldom.DOMNode;
50:
51: g_MSG_COUNT NUMBER := 0;
52: g_MSG_DATA VARCHAR2(32000);
53: g_RETURN_STATUS VARCHAR2(10);

Line 235: PROCEDURE remove_TopLevel_Attributes(p_node xmldom.DOMNode) IS

231: -- remove common attributes in case when we attach template
232: -- starting with DOM node p_node
233: -- Parameters : p_node - identifies DOM node of subtree's root
234: --
235: PROCEDURE remove_TopLevel_Attributes(p_node xmldom.DOMNode) IS
236: l_root_elem xmldom.DOMElement;
237: BEGIN
238: l_root_elem := xmldom.makeElement(p_node);
239: FOR i IN g_toplevel_attr_tbl.FIRST .. g_toplevel_attr_tbl.LAST

Line 236: l_root_elem xmldom.DOMElement;

232: -- starting with DOM node p_node
233: -- Parameters : p_node - identifies DOM node of subtree's root
234: --
235: PROCEDURE remove_TopLevel_Attributes(p_node xmldom.DOMNode) IS
236: l_root_elem xmldom.DOMElement;
237: BEGIN
238: l_root_elem := xmldom.makeElement(p_node);
239: FOR i IN g_toplevel_attr_tbl.FIRST .. g_toplevel_attr_tbl.LAST
240: LOOP

Line 238: l_root_elem := xmldom.makeElement(p_node);

234: --
235: PROCEDURE remove_TopLevel_Attributes(p_node xmldom.DOMNode) IS
236: l_root_elem xmldom.DOMElement;
237: BEGIN
238: l_root_elem := xmldom.makeElement(p_node);
239: FOR i IN g_toplevel_attr_tbl.FIRST .. g_toplevel_attr_tbl.LAST
240: LOOP
241: BEGIN
242: xmldom.removeAttribute(l_root_elem, g_toplevel_attr_tbl(i));

Line 242: xmldom.removeAttribute(l_root_elem, g_toplevel_attr_tbl(i));

238: l_root_elem := xmldom.makeElement(p_node);
239: FOR i IN g_toplevel_attr_tbl.FIRST .. g_toplevel_attr_tbl.LAST
240: LOOP
241: BEGIN
242: xmldom.removeAttribute(l_root_elem, g_toplevel_attr_tbl(i));
243: EXCEPTION
244: WHEN OTHERS THEN
245: NULL;
246: END;

Line 256: FUNCTION get_Attributes(p_node IN xmldom.DOMNode)

252: -- get attributes of a given DOM node
253: -- Parameters : p_node - DOM node
254: -- Return : array of attributes in format of attributes_tbl_type array
255: --
256: FUNCTION get_Attributes(p_node IN xmldom.DOMNode)
257: RETURN attributes_tbl_type IS
258:
259: l_attr_tbl attributes_tbl_type;
260: l_node_map_tbl xmldom.DOMNamedNodeMap;

Line 260: l_node_map_tbl xmldom.DOMNamedNodeMap;

256: FUNCTION get_Attributes(p_node IN xmldom.DOMNode)
257: RETURN attributes_tbl_type IS
258:
259: l_attr_tbl attributes_tbl_type;
260: l_node_map_tbl xmldom.DOMNamedNodeMap;
261: l_node_attr xmldom.DOMNode;
262: l_index NUMBER;
263: l_length NUMBER;
264:

Line 261: l_node_attr xmldom.DOMNode;

257: RETURN attributes_tbl_type IS
258:
259: l_attr_tbl attributes_tbl_type;
260: l_node_map_tbl xmldom.DOMNamedNodeMap;
261: l_node_attr xmldom.DOMNode;
262: l_index NUMBER;
263: l_length NUMBER;
264:
265: BEGIN

Line 266: l_node_map_tbl := xmldom.getAttributes(p_node);

262: l_index NUMBER;
263: l_length NUMBER;
264:
265: BEGIN
266: l_node_map_tbl := xmldom.getAttributes(p_node);
267: IF (xmldom.isNull(l_node_map_tbl) = FALSE) THEN
268: l_length := xmldom.getLength(l_node_map_tbl);
269: --
270: -- loop through attributes

Line 267: IF (xmldom.isNull(l_node_map_tbl) = FALSE) THEN

263: l_length NUMBER;
264:
265: BEGIN
266: l_node_map_tbl := xmldom.getAttributes(p_node);
267: IF (xmldom.isNull(l_node_map_tbl) = FALSE) THEN
268: l_length := xmldom.getLength(l_node_map_tbl);
269: --
270: -- loop through attributes
271: --

Line 268: l_length := xmldom.getLength(l_node_map_tbl);

264:
265: BEGIN
266: l_node_map_tbl := xmldom.getAttributes(p_node);
267: IF (xmldom.isNull(l_node_map_tbl) = FALSE) THEN
268: l_length := xmldom.getLength(l_node_map_tbl);
269: --
270: -- loop through attributes
271: --
272: l_index := 1;

Line 275: l_node_attr := xmldom.item(l_node_map_tbl, i);

271: --
272: l_index := 1;
273: FOR i IN 0 .. l_length - 1
274: LOOP
275: l_node_attr := xmldom.item(l_node_map_tbl, i);
276: l_attr_tbl(l_index).NAME := xmldom.getNodeName(l_node_attr);
277: l_attr_tbl(l_index).VALUE := xmldom.getNodeValue(l_node_attr);
278: l_index := l_index + 1;
279: END LOOP;

Line 276: l_attr_tbl(l_index).NAME := xmldom.getNodeName(l_node_attr);

272: l_index := 1;
273: FOR i IN 0 .. l_length - 1
274: LOOP
275: l_node_attr := xmldom.item(l_node_map_tbl, i);
276: l_attr_tbl(l_index).NAME := xmldom.getNodeName(l_node_attr);
277: l_attr_tbl(l_index).VALUE := xmldom.getNodeValue(l_node_attr);
278: l_index := l_index + 1;
279: END LOOP;
280: END IF;

Line 277: l_attr_tbl(l_index).VALUE := xmldom.getNodeValue(l_node_attr);

273: FOR i IN 0 .. l_length - 1
274: LOOP
275: l_node_attr := xmldom.item(l_node_map_tbl, i);
276: l_attr_tbl(l_index).NAME := xmldom.getNodeName(l_node_attr);
277: l_attr_tbl(l_index).VALUE := xmldom.getNodeValue(l_node_attr);
278: l_index := l_index + 1;
279: END LOOP;
280: END IF;
281: RETURN l_attr_tbl;

Line 294: PROCEDURE set_Attributes(p_node xmldom.DOMNode,

290: -- Parameters : p_node - DOM node
291: -- p_jraddoc_node - JRAD doc builder element
292: -- Notes : it is not used in UI Generation/UI Refresh process directly
293: --
294: PROCEDURE set_Attributes(p_node xmldom.DOMNode,
295: p_jraddoc_node jdr_docbuilder.Element) IS
296:
297: l_attr_tbl attributes_tbl_type;
298:

Line 318: PROCEDURE set_Attribute(p_dom_element xmldom.DOMElement,

314: -- Parameters : p_dom_element - DOM Element which identifies DOM node
315: -- p_attribute_name - attribute name
316: -- p_attribute_value - attribute value
317: --
318: PROCEDURE set_Attribute(p_dom_element xmldom.DOMElement,
319: p_attribute_name IN VARCHAR2,
320: p_attribute_value IN VARCHAR2) IS
321:
322: BEGIN

Line 323: xmldom.setAttribute(p_dom_element, p_attribute_name, p_attribute_value);

319: p_attribute_name IN VARCHAR2,
320: p_attribute_value IN VARCHAR2) IS
321:
322: BEGIN
323: xmldom.setAttribute(p_dom_element, p_attribute_name, p_attribute_value);
324: END set_Attribute;
325:
326: --
327: -- set CZ Attributes for a given DOM node

Line 332: PROCEDURE set_Attribute(p_dom_node xmldom.DOMNode,

328: -- Parameters : p_dom_element - DOM Element which identifies DOM node
329: -- p_attribute_name - attribute name
330: -- p_attribute_value - attribute value
331: --
332: PROCEDURE set_Attribute(p_dom_node xmldom.DOMNode,
333: p_attribute_name IN VARCHAR2,
334: p_attribute_value IN VARCHAR2) IS
335:
336: BEGIN

Line 337: xmldom.setAttribute(xmldom.makeElement(p_dom_node), p_attribute_name, p_attribute_value);

333: p_attribute_name IN VARCHAR2,
334: p_attribute_value IN VARCHAR2) IS
335:
336: BEGIN
337: xmldom.setAttribute(xmldom.makeElement(p_dom_node), p_attribute_name, p_attribute_value);
338: END set_Attribute;
339:
340:
341: --

Line 444: PROCEDURE traverse_DOM_Tree(p_nodeList xmldom.DOMNodeList,

440: -- p_nodeList - list of DOM nodes of the current level in DOM tree
441: -- p_groupingTag - identifies XML grouping tag
442: -- p_parent - identifes parent JRAD docbuilder element
443: --
444: PROCEDURE traverse_DOM_Tree(p_nodeList xmldom.DOMNodeList,
445: p_groupingTag VARCHAR2,
446: p_parent jdr_docbuilder.Element) IS
447:
448: l_next_level_tbl xmldom.DOMNodeList;

Line 448: l_next_level_tbl xmldom.DOMNodeList;

444: PROCEDURE traverse_DOM_Tree(p_nodeList xmldom.DOMNodeList,
445: p_groupingTag VARCHAR2,
446: p_parent jdr_docbuilder.Element) IS
447:
448: l_next_level_tbl xmldom.DOMNodeList;
449: l_node xmldom.DOMNode;
450: l_parent_xml_node xmldom.DOMNode;
451: l_attr_tbl attributes_tbl_type;
452: l_child jdr_docbuilder.Element;

Line 449: l_node xmldom.DOMNode;

445: p_groupingTag VARCHAR2,
446: p_parent jdr_docbuilder.Element) IS
447:
448: l_next_level_tbl xmldom.DOMNodeList;
449: l_node xmldom.DOMNode;
450: l_parent_xml_node xmldom.DOMNode;
451: l_attr_tbl attributes_tbl_type;
452: l_child jdr_docbuilder.Element;
453: l_tag_name VARCHAR2(255);

Line 450: l_parent_xml_node xmldom.DOMNode;

446: p_parent jdr_docbuilder.Element) IS
447:
448: l_next_level_tbl xmldom.DOMNodeList;
449: l_node xmldom.DOMNode;
450: l_parent_xml_node xmldom.DOMNode;
451: l_attr_tbl attributes_tbl_type;
452: l_child jdr_docbuilder.Element;
453: l_tag_name VARCHAR2(255);
454: l_parent_tag_name VARCHAR2(255);

Line 468: l_length := xmldom.getLength(p_nodeList);

464: --
465: -- now we have a DOM tree of the target JRAD document
466: -- and we need to populate JRAD tables by using jdr_docbuilder API
467: --
468: l_length := xmldom.getLength(p_nodeList);
469:
470: FOR i IN 0 .. l_length - 1
471: LOOP
472: l_node := xmldom.item(p_nodeList, i);

Line 472: l_node := xmldom.item(p_nodeList, i);

468: l_length := xmldom.getLength(p_nodeList);
469:
470: FOR i IN 0 .. l_length - 1
471: LOOP
472: l_node := xmldom.item(p_nodeList, i);
473:
474: l_tag_name := xmldom.getNodeName(l_node);
475:
476: l_parent_xml_node := xmldom.getParentNode(l_node);

Line 474: l_tag_name := xmldom.getNodeName(l_node);

470: FOR i IN 0 .. l_length - 1
471: LOOP
472: l_node := xmldom.item(p_nodeList, i);
473:
474: l_tag_name := xmldom.getNodeName(l_node);
475:
476: l_parent_xml_node := xmldom.getParentNode(l_node);
477:
478: IF NOT(xmldom.isNull(l_parent_xml_node)) THEN

Line 476: l_parent_xml_node := xmldom.getParentNode(l_node);

472: l_node := xmldom.item(p_nodeList, i);
473:
474: l_tag_name := xmldom.getNodeName(l_node);
475:
476: l_parent_xml_node := xmldom.getParentNode(l_node);
477:
478: IF NOT(xmldom.isNull(l_parent_xml_node)) THEN
479: l_parent_tag_name := xmldom.getNodeName(l_parent_xml_node);
480: END IF;

Line 478: IF NOT(xmldom.isNull(l_parent_xml_node)) THEN

474: l_tag_name := xmldom.getNodeName(l_node);
475:
476: l_parent_xml_node := xmldom.getParentNode(l_node);
477:
478: IF NOT(xmldom.isNull(l_parent_xml_node)) THEN
479: l_parent_tag_name := xmldom.getNodeName(l_parent_xml_node);
480: END IF;
481:
482: l_grouping_tag := '';

Line 479: l_parent_tag_name := xmldom.getNodeName(l_parent_xml_node);

475:
476: l_parent_xml_node := xmldom.getParentNode(l_node);
477:
478: IF NOT(xmldom.isNull(l_parent_xml_node)) THEN
479: l_parent_tag_name := xmldom.getNodeName(l_parent_xml_node);
480: END IF;
481:
482: l_grouping_tag := '';
483:

Line 565: l_next_level_tbl := xmldom.getChildNodes(l_node);

561:
562: NULL;
563: END IF; -- end of IF p_groupingTag IS NOT NULL THEN
564:
565: l_next_level_tbl := xmldom.getChildNodes(l_node);
566: IF NOT(xmldom.isNull(l_next_level_tbl)) AND
567: xmldom.getLENGTH(l_next_level_tbl) <> 0 THEN
568:
569: IF l_st IS NULL THEN

Line 566: IF NOT(xmldom.isNull(l_next_level_tbl)) AND

562: NULL;
563: END IF; -- end of IF p_groupingTag IS NOT NULL THEN
564:
565: l_next_level_tbl := xmldom.getChildNodes(l_node);
566: IF NOT(xmldom.isNull(l_next_level_tbl)) AND
567: xmldom.getLENGTH(l_next_level_tbl) <> 0 THEN
568:
569: IF l_st IS NULL THEN
570: traverse_DOM_Tree(l_next_level_tbl,

Line 567: xmldom.getLENGTH(l_next_level_tbl) <> 0 THEN

563: END IF; -- end of IF p_groupingTag IS NOT NULL THEN
564:
565: l_next_level_tbl := xmldom.getChildNodes(l_node);
566: IF NOT(xmldom.isNull(l_next_level_tbl)) AND
567: xmldom.getLENGTH(l_next_level_tbl) <> 0 THEN
568:
569: IF l_st IS NULL THEN
570: traverse_DOM_Tree(l_next_level_tbl,
571: l_grouping_tag,

Line 605: PROCEDURE convert_DOM_to_JRAD(p_doc xmldom.DOMDocument,

601: -- Parameters : p_jrad_doc_name - specifies full JRAD name of
602: -- document that will be created from DOM tree
603: -- which is identified by global DOM Document variable g_DOC
604: --
605: PROCEDURE convert_DOM_to_JRAD(p_doc xmldom.DOMDocument,
606: p_jrad_doc_name IN VARCHAR2) IS
607:
608: l_dom_root_node xmldom.DOMNode;
609: l_topLevel jdr_docbuilder.Element;

Line 608: l_dom_root_node xmldom.DOMNode;

604: --
605: PROCEDURE convert_DOM_to_JRAD(p_doc xmldom.DOMDocument,
606: p_jrad_doc_name IN VARCHAR2) IS
607:
608: l_dom_root_node xmldom.DOMNode;
609: l_topLevel jdr_docbuilder.Element;
610: l_status PLS_INTEGER;
611: l_lang VARCHAR2(255);
612: BEGIN

Line 624: l_dom_root_node := xmldom.makeNode(xmldom.getDocumentElement(g_DOC));

620:
621: --
622: -- get Document's root node
623: --
624: l_dom_root_node := xmldom.makeNode(xmldom.getDocumentElement(g_DOC));
625:
626: --
627: -- remove top level xml attributes - jdrdocbuilder always adds these attributes
628: -- so we don't need to have a duplicates

Line 641: l_topLevel := createElement(xmldom.getNodeName(l_dom_root_node));

637:
638: --
639: -- create root element of the target JRAD document
640: --
641: l_topLevel := createElement(xmldom.getNodeName(l_dom_root_node));
642:
643: --
644: -- set top level attributes
645: --

Line 657: traverse_DOM_Tree(xmldom.getChildNodes(l_dom_root_node),

653: --
654: -- modify the source DOM tree and create the target JRAD document
655: -- traverse_DOM_Tree() is recursive procedure
656: --
657: traverse_DOM_Tree(xmldom.getChildNodes(l_dom_root_node),
658: '',
659: l_topLevel);
660:
661: --

Line 671: PROCEDURE Save_Document(p_xml_doc xmldom.DOMDocument,

667:
668: --
669: -- save JRAD document
670: --
671: PROCEDURE Save_Document(p_xml_doc xmldom.DOMDocument,
672: p_doc_name IN VARCHAR2) IS
673: BEGIN
674:
675: convert_DOM_to_JRAD(p_doc => p_xml_doc, p_jrad_doc_name => p_doc_name);

Line 722: FUNCTION get_Attribute_Value(p_node IN xmldom.DOMNode,

718: -- p_node - DOM node
719: -- p_attr_name - attribute name
720: -- Return : attribute value as VARCHAR2 string
721: --
722: FUNCTION get_Attribute_Value(p_node IN xmldom.DOMNode,
723: p_attr_name IN VARCHAR2) RETURN VARCHAR2 IS
724:
725: l_node_map_tbl xmldom.DOMNamedNodeMap;
726: l_node_attr xmldom.DOMNode;

Line 725: l_node_map_tbl xmldom.DOMNamedNodeMap;

721: --
722: FUNCTION get_Attribute_Value(p_node IN xmldom.DOMNode,
723: p_attr_name IN VARCHAR2) RETURN VARCHAR2 IS
724:
725: l_node_map_tbl xmldom.DOMNamedNodeMap;
726: l_node_attr xmldom.DOMNode;
727: l_attr_value VARCHAR2(32000);
728: l_length NUMBER;
729:

Line 726: l_node_attr xmldom.DOMNode;

722: FUNCTION get_Attribute_Value(p_node IN xmldom.DOMNode,
723: p_attr_name IN VARCHAR2) RETURN VARCHAR2 IS
724:
725: l_node_map_tbl xmldom.DOMNamedNodeMap;
726: l_node_attr xmldom.DOMNode;
727: l_attr_value VARCHAR2(32000);
728: l_length NUMBER;
729:
730: BEGIN

Line 731: IF xmldom.IsNull(p_node) THEN

727: l_attr_value VARCHAR2(32000);
728: l_length NUMBER;
729:
730: BEGIN
731: IF xmldom.IsNull(p_node) THEN
732: RETURN NULL;
733: END IF;
734: l_node_map_tbl := xmldom.getAttributes(p_node);
735:

Line 734: l_node_map_tbl := xmldom.getAttributes(p_node);

730: BEGIN
731: IF xmldom.IsNull(p_node) THEN
732: RETURN NULL;
733: END IF;
734: l_node_map_tbl := xmldom.getAttributes(p_node);
735:
736: IF (xmldom.isNull(l_node_map_tbl) = FALSE) THEN
737: l_length := xmldom.getLength(l_node_map_tbl);
738: --

Line 736: IF (xmldom.isNull(l_node_map_tbl) = FALSE) THEN

732: RETURN NULL;
733: END IF;
734: l_node_map_tbl := xmldom.getAttributes(p_node);
735:
736: IF (xmldom.isNull(l_node_map_tbl) = FALSE) THEN
737: l_length := xmldom.getLength(l_node_map_tbl);
738: --
739: -- loop through attributes
740: --

Line 737: l_length := xmldom.getLength(l_node_map_tbl);

733: END IF;
734: l_node_map_tbl := xmldom.getAttributes(p_node);
735:
736: IF (xmldom.isNull(l_node_map_tbl) = FALSE) THEN
737: l_length := xmldom.getLength(l_node_map_tbl);
738: --
739: -- loop through attributes
740: --
741: FOR i IN 0 .. l_length - 1

Line 743: l_node_attr := xmldom.item(l_node_map_tbl, i);

739: -- loop through attributes
740: --
741: FOR i IN 0 .. l_length - 1
742: LOOP
743: l_node_attr := xmldom.item(l_node_map_tbl, i);
744:
745: IF xmldom.getNodeName(l_node_attr) = p_attr_name THEN
746: l_attr_value := xmldom.getNodeValue(l_node_attr);
747: RETURN l_attr_value;

Line 745: IF xmldom.getNodeName(l_node_attr) = p_attr_name THEN

741: FOR i IN 0 .. l_length - 1
742: LOOP
743: l_node_attr := xmldom.item(l_node_map_tbl, i);
744:
745: IF xmldom.getNodeName(l_node_attr) = p_attr_name THEN
746: l_attr_value := xmldom.getNodeValue(l_node_attr);
747: RETURN l_attr_value;
748: END IF;
749: END LOOP;

Line 746: l_attr_value := xmldom.getNodeValue(l_node_attr);

742: LOOP
743: l_node_attr := xmldom.item(l_node_map_tbl, i);
744:
745: IF xmldom.getNodeName(l_node_attr) = p_attr_name THEN
746: l_attr_value := xmldom.getNodeValue(l_node_attr);
747: RETURN l_attr_value;
748: END IF;
749: END LOOP;
750: END IF;

Line 757: FUNCTION find_XML_Node_By_Attribute(p_subtree_doc xmldom.DOMDocument,

753:
754: --
755: -- find DOM node by persistent_node_id
756: --
757: FUNCTION find_XML_Node_By_Attribute(p_subtree_doc xmldom.DOMDocument,
758: p_attribute_name IN VARCHAR2,
759: p_attribute_value IN VARCHAR2,
760: p_in_user_attributes IN VARCHAR2 DEFAULT NULL)
761: RETURN xmldom.DOMNode IS

Line 761: RETURN xmldom.DOMNode IS

757: FUNCTION find_XML_Node_By_Attribute(p_subtree_doc xmldom.DOMDocument,
758: p_attribute_name IN VARCHAR2,
759: p_attribute_value IN VARCHAR2,
760: p_in_user_attributes IN VARCHAR2 DEFAULT NULL)
761: RETURN xmldom.DOMNode IS
762:
763: l_node xmldom.DOMNode;
764: l_nodeslist xmldom.DOMNodeList;
765: l_empty_xml_node xmldom.DOMNode;

Line 763: l_node xmldom.DOMNode;

759: p_attribute_value IN VARCHAR2,
760: p_in_user_attributes IN VARCHAR2 DEFAULT NULL)
761: RETURN xmldom.DOMNode IS
762:
763: l_node xmldom.DOMNode;
764: l_nodeslist xmldom.DOMNodeList;
765: l_empty_xml_node xmldom.DOMNode;
766: l_length NUMBER;
767: l_attribute_value VARCHAR2(32000);

Line 764: l_nodeslist xmldom.DOMNodeList;

760: p_in_user_attributes IN VARCHAR2 DEFAULT NULL)
761: RETURN xmldom.DOMNode IS
762:
763: l_node xmldom.DOMNode;
764: l_nodeslist xmldom.DOMNodeList;
765: l_empty_xml_node xmldom.DOMNode;
766: l_length NUMBER;
767: l_attribute_value VARCHAR2(32000);
768:

Line 765: l_empty_xml_node xmldom.DOMNode;

761: RETURN xmldom.DOMNode IS
762:
763: l_node xmldom.DOMNode;
764: l_nodeslist xmldom.DOMNodeList;
765: l_empty_xml_node xmldom.DOMNode;
766: l_length NUMBER;
767: l_attribute_value VARCHAR2(32000);
768:
769: BEGIN

Line 774: l_nodeslist := xmldom.getElementsByTagName(p_subtree_doc, '*');

770: --
771: -- here we don't need to know about hierachy of nodes
772: -- so we just need to get list of all nodes of XML subtree
773: --
774: l_nodeslist := xmldom.getElementsByTagName(p_subtree_doc, '*');
775: l_length := xmldom.getLength(l_nodeslist);
776:
777: l_node := xmldom.makeNode(xmldom.getDocumentElement(p_subtree_doc));
778:

Line 775: l_length := xmldom.getLength(l_nodeslist);

771: -- here we don't need to know about hierachy of nodes
772: -- so we just need to get list of all nodes of XML subtree
773: --
774: l_nodeslist := xmldom.getElementsByTagName(p_subtree_doc, '*');
775: l_length := xmldom.getLength(l_nodeslist);
776:
777: l_node := xmldom.makeNode(xmldom.getDocumentElement(p_subtree_doc));
778:
779: l_attribute_value := get_Attribute_Value(l_node, p_attribute_name);

Line 777: l_node := xmldom.makeNode(xmldom.getDocumentElement(p_subtree_doc));

773: --
774: l_nodeslist := xmldom.getElementsByTagName(p_subtree_doc, '*');
775: l_length := xmldom.getLength(l_nodeslist);
776:
777: l_node := xmldom.makeNode(xmldom.getDocumentElement(p_subtree_doc));
778:
779: l_attribute_value := get_Attribute_Value(l_node, p_attribute_name);
780:
781: IF p_in_user_attributes='1' THEN

Line 797: l_node := xmldom.item(l_nodeslist, i);

793: -- scan subtree and substitute macros "%" to real values
794: --
795: FOR i IN 0 .. l_length - 1
796: LOOP
797: l_node := xmldom.item(l_nodeslist, i);
798:
799: IF p_in_user_attributes='1' THEN
800: l_attribute_value := get_Attribute_Value(l_node, G_USER_ATTRIBUTE4_NAME);
801: l_attribute_value := get_User_Attribute(l_attribute_value, p_attribute_name);

Line 820: RETURN xmldom.DOMDocument IS

816: -- Parameters :
817: -- p_doc_full_name - full JRAD name of the document
818: --
819: FUNCTION parse_JRAD_Document(p_doc_full_name IN VARCHAR2)
820: RETURN xmldom.DOMDocument IS
821:
822: l_buffer VARCHAR2(32000);
823: l_lob_loc CLOB;
824: l_amount BINARY_INTEGER;

Line 826: l_xmldoc xmldom.DOMDocument;

822: l_buffer VARCHAR2(32000);
823: l_lob_loc CLOB;
824: l_amount BINARY_INTEGER;
825: l_position INTEGER := 1;
826: l_xmldoc xmldom.DOMDocument;
827: l_exportfinished BOOLEAN;
828:
829: BEGIN
830:

Line 884: l_xmldoc xmldom.DOMDocument;

880: (p_doc_full_name IN VARCHAR2,
881: p_remove_bad_attributes IN BOOLEAN,
882: x_bad_attributes_detected OUT NOCOPY BOOLEAN) IS
883:
884: l_xmldoc xmldom.DOMDocument;
885: l_node xmldom.DOMNode;
886: l_nodeslist xmldom.DOMNodeList;
887: l_empty_xml_node xmldom.DOMNode;
888: l_length NUMBER;

Line 885: l_node xmldom.DOMNode;

881: p_remove_bad_attributes IN BOOLEAN,
882: x_bad_attributes_detected OUT NOCOPY BOOLEAN) IS
883:
884: l_xmldoc xmldom.DOMDocument;
885: l_node xmldom.DOMNode;
886: l_nodeslist xmldom.DOMNodeList;
887: l_empty_xml_node xmldom.DOMNode;
888: l_length NUMBER;
889: l_attribute_value VARCHAR2(32000);

Line 886: l_nodeslist xmldom.DOMNodeList;

882: x_bad_attributes_detected OUT NOCOPY BOOLEAN) IS
883:
884: l_xmldoc xmldom.DOMDocument;
885: l_node xmldom.DOMNode;
886: l_nodeslist xmldom.DOMNodeList;
887: l_empty_xml_node xmldom.DOMNode;
888: l_length NUMBER;
889: l_attribute_value VARCHAR2(32000);
890:

Line 887: l_empty_xml_node xmldom.DOMNode;

883:
884: l_xmldoc xmldom.DOMDocument;
885: l_node xmldom.DOMNode;
886: l_nodeslist xmldom.DOMNodeList;
887: l_empty_xml_node xmldom.DOMNode;
888: l_length NUMBER;
889: l_attribute_value VARCHAR2(32000);
890:
891: BEGIN

Line 897: IF xmldom.IsNull(l_xmldoc) THEN

893: x_bad_attributes_detected := FALSE;
894:
895: l_xmldoc := parse_JRAD_Document(p_doc_full_name);
896:
897: IF xmldom.IsNull(l_xmldoc) THEN
898: RETURN;
899: END IF;
900:
901: l_node := xmldom.makeNode(xmldom.getDocumentElement(l_xmldoc));

Line 901: l_node := xmldom.makeNode(xmldom.getDocumentElement(l_xmldoc));

897: IF xmldom.IsNull(l_xmldoc) THEN
898: RETURN;
899: END IF;
900:
901: l_node := xmldom.makeNode(xmldom.getDocumentElement(l_xmldoc));
902: l_nodeslist := xmldom.getElementsByTagName(l_xmldoc, '*');
903: l_length := xmldom.getLength(l_nodeslist);
904:
905: IF NOT(xmldom.IsNull(l_node)) THEN

Line 902: l_nodeslist := xmldom.getElementsByTagName(l_xmldoc, '*');

898: RETURN;
899: END IF;
900:
901: l_node := xmldom.makeNode(xmldom.getDocumentElement(l_xmldoc));
902: l_nodeslist := xmldom.getElementsByTagName(l_xmldoc, '*');
903: l_length := xmldom.getLength(l_nodeslist);
904:
905: IF NOT(xmldom.IsNull(l_node)) THEN
906: l_attribute_value := get_Attribute_Value(l_node, 'xmlns');

Line 903: l_length := xmldom.getLength(l_nodeslist);

899: END IF;
900:
901: l_node := xmldom.makeNode(xmldom.getDocumentElement(l_xmldoc));
902: l_nodeslist := xmldom.getElementsByTagName(l_xmldoc, '*');
903: l_length := xmldom.getLength(l_nodeslist);
904:
905: IF NOT(xmldom.IsNull(l_node)) THEN
906: l_attribute_value := get_Attribute_Value(l_node, 'xmlns');
907: IF NVL(l_attribute_value,'x')='x' THEN

Line 905: IF NOT(xmldom.IsNull(l_node)) THEN

901: l_node := xmldom.makeNode(xmldom.getDocumentElement(l_xmldoc));
902: l_nodeslist := xmldom.getElementsByTagName(l_xmldoc, '*');
903: l_length := xmldom.getLength(l_nodeslist);
904:
905: IF NOT(xmldom.IsNull(l_node)) THEN
906: l_attribute_value := get_Attribute_Value(l_node, 'xmlns');
907: IF NVL(l_attribute_value,'x')='x' THEN
908: x_bad_attributes_detected := TRUE;
909: IF p_remove_bad_attributes=FALSE THEN

Line 917: l_node := xmldom.item(l_nodeslist, i);

913: END IF;
914:
915: FOR i IN 0 .. l_length - 1
916: LOOP
917: l_node := xmldom.item(l_nodeslist, i);
918: IF NOT(xmldom.IsNull(l_node)) THEN
919: l_attribute_value := get_Attribute_Value(l_node, 'xmlns');
920: IF NVL(l_attribute_value,'x')='x' THEN
921: x_bad_attributes_detected := TRUE;

Line 918: IF NOT(xmldom.IsNull(l_node)) THEN

914:
915: FOR i IN 0 .. l_length - 1
916: LOOP
917: l_node := xmldom.item(l_nodeslist, i);
918: IF NOT(xmldom.IsNull(l_node)) THEN
919: l_attribute_value := get_Attribute_Value(l_node, 'xmlns');
920: IF NVL(l_attribute_value,'x')='x' THEN
921: x_bad_attributes_detected := TRUE;
922: IF p_remove_bad_attributes THEN

Line 923: xmldom.removeAttribute(xmldom.makeElement(l_node),'xmlns');

919: l_attribute_value := get_Attribute_Value(l_node, 'xmlns');
920: IF NVL(l_attribute_value,'x')='x' THEN
921: x_bad_attributes_detected := TRUE;
922: IF p_remove_bad_attributes THEN
923: xmldom.removeAttribute(xmldom.makeElement(l_node),'xmlns');
924: ELSE
925: RETURN;
926: END IF;
927: END IF;

Line 936: xmldom.freeDocument(l_xmldoc);

932: Save_Document(p_xml_doc => l_xmldoc,
933: p_doc_name => p_doc_full_name);
934: END IF;
935:
936: xmldom.freeDocument(l_xmldoc);
937:
938: END handle_Doc_Bad_Attributes;
939:
940: PROCEDURE handle_Bad_Element_Ids

Line 945: l_xmldoc xmldom.DOMDocument;

941: (p_doc_full_name IN VARCHAR2,
942: p_ui_def_id IN NUMBER,
943: p_ui_page_id IN NUMBER) IS
944:
945: l_xmldoc xmldom.DOMDocument;
946: l_node xmldom.DOMNode;
947: l_nodeslist xmldom.DOMNodeList;
948: l_empty_xml_node xmldom.DOMNode;
949: l_length NUMBER;

Line 946: l_node xmldom.DOMNode;

942: p_ui_def_id IN NUMBER,
943: p_ui_page_id IN NUMBER) IS
944:
945: l_xmldoc xmldom.DOMDocument;
946: l_node xmldom.DOMNode;
947: l_nodeslist xmldom.DOMNodeList;
948: l_empty_xml_node xmldom.DOMNode;
949: l_length NUMBER;
950:

Line 947: l_nodeslist xmldom.DOMNodeList;

943: p_ui_page_id IN NUMBER) IS
944:
945: l_xmldoc xmldom.DOMDocument;
946: l_node xmldom.DOMNode;
947: l_nodeslist xmldom.DOMNodeList;
948: l_empty_xml_node xmldom.DOMNode;
949: l_length NUMBER;
950:
951: l_attribute_value VARCHAR2(32000);

Line 948: l_empty_xml_node xmldom.DOMNode;

944:
945: l_xmldoc xmldom.DOMDocument;
946: l_node xmldom.DOMNode;
947: l_nodeslist xmldom.DOMNodeList;
948: l_empty_xml_node xmldom.DOMNode;
949: l_length NUMBER;
950:
951: l_attribute_value VARCHAR2(32000);
952: l_user_attribute3_value VARCHAR2(32000);

Line 960: IF xmldom.IsNull(l_xmldoc) THEN

956: BEGIN
957:
958: l_xmldoc := parse_JRAD_Document(p_doc_full_name);
959:
960: IF xmldom.IsNull(l_xmldoc) THEN
961: RETURN;
962: END IF;
963:
964: l_node := xmldom.makeNode(xmldom.getDocumentElement(l_xmldoc));

Line 964: l_node := xmldom.makeNode(xmldom.getDocumentElement(l_xmldoc));

960: IF xmldom.IsNull(l_xmldoc) THEN
961: RETURN;
962: END IF;
963:
964: l_node := xmldom.makeNode(xmldom.getDocumentElement(l_xmldoc));
965: l_nodeslist := xmldom.getElementsByTagName(l_xmldoc, '*');
966: l_length := xmldom.getLength(l_nodeslist);
967:
968: IF NOT(xmldom.IsNull(l_node)) THEN

Line 965: l_nodeslist := xmldom.getElementsByTagName(l_xmldoc, '*');

961: RETURN;
962: END IF;
963:
964: l_node := xmldom.makeNode(xmldom.getDocumentElement(l_xmldoc));
965: l_nodeslist := xmldom.getElementsByTagName(l_xmldoc, '*');
966: l_length := xmldom.getLength(l_nodeslist);
967:
968: IF NOT(xmldom.IsNull(l_node)) THEN
969: l_attribute_value := get_Attribute_Value(l_node, G_ID_ATTRIBUTE);

Line 966: l_length := xmldom.getLength(l_nodeslist);

962: END IF;
963:
964: l_node := xmldom.makeNode(xmldom.getDocumentElement(l_xmldoc));
965: l_nodeslist := xmldom.getElementsByTagName(l_xmldoc, '*');
966: l_length := xmldom.getLength(l_nodeslist);
967:
968: IF NOT(xmldom.IsNull(l_node)) THEN
969: l_attribute_value := get_Attribute_Value(l_node, G_ID_ATTRIBUTE);
970: IF l_attribute_value IS NOT NULL AND l_attribute_value<>G_NULL_VALUE THEN

Line 968: IF NOT(xmldom.IsNull(l_node)) THEN

964: l_node := xmldom.makeNode(xmldom.getDocumentElement(l_xmldoc));
965: l_nodeslist := xmldom.getElementsByTagName(l_xmldoc, '*');
966: l_length := xmldom.getLength(l_nodeslist);
967:
968: IF NOT(xmldom.IsNull(l_node)) THEN
969: l_attribute_value := get_Attribute_Value(l_node, G_ID_ATTRIBUTE);
970: IF l_attribute_value IS NOT NULL AND l_attribute_value<>G_NULL_VALUE THEN
971: set_Attribute(l_node,
972: G_ID_ATTRIBUTE,

Line 979: l_node := xmldom.item(l_nodeslist, i);

975: END IF;
976:
977: FOR i IN 0 .. l_length - 1
978: LOOP
979: l_node := xmldom.item(l_nodeslist, i);
980: IF NOT(xmldom.IsNull(l_node)) THEN
981:
982: l_attribute_value := get_Attribute_Value(l_node, G_ID_ATTRIBUTE);
983:

Line 980: IF NOT(xmldom.IsNull(l_node)) THEN

976:
977: FOR i IN 0 .. l_length - 1
978: LOOP
979: l_node := xmldom.item(l_nodeslist, i);
980: IF NOT(xmldom.IsNull(l_node)) THEN
981:
982: l_attribute_value := get_Attribute_Value(l_node, G_ID_ATTRIBUTE);
983:
984: IF l_attribute_value IS NOT NULL AND l_attribute_value<>G_NULL_VALUE THEN

Line 990: IF xmldom.getNodeName(l_node)='ui:case' THEN

986: G_ID_ATTRIBUTE,
987: REPLACE(REPLACE(l_attribute_value,'_czt','_czn'),'_czc','_czn'));
988: END IF;
989:
990: IF xmldom.getNodeName(l_node)='ui:case' THEN
991: l_case_node_name := get_Attribute_Value(l_node, 'name');
992: IF l_case_node_name IS NOT NULL THEN
993: set_Attribute(l_node,
994: 'name',

Line 999: IF xmldom.getNodeName(l_node)='oa:switcher' THEN

995: REPLACE(REPLACE(l_case_node_name,'_czt','_czn'),'_czc','_czn'));
996: END IF;
997: END IF;
998:
999: IF xmldom.getNodeName(l_node)='oa:switcher' THEN
1000:
1001: l_user_attribute3_value := get_Attribute_Value(l_node, G_USER_ATTRIBUTE3_NAME);
1002:
1003: l_switcher_casename := get_User_Attribute(l_user_attribute3_value ,'switcherDefaultCaseName');

Line 1023: xmldom.freeDocument(l_xmldoc);

1019:
1020: Save_Document(p_xml_doc => l_xmldoc,
1021: p_doc_name => p_doc_full_name);
1022:
1023: xmldom.freeDocument(l_xmldoc);
1024:
1025: END handle_Bad_Element_Ids;
1026:
1027: PROCEDURE detect_Doc_Bad_Attributes

Line 1031: l_xmldoc xmldom.DOMDocument;

1027: PROCEDURE detect_Doc_Bad_Attributes
1028: (p_doc_full_name IN VARCHAR2,
1029: x_bad_attributes_detected OUT NOCOPY BOOLEAN) IS
1030:
1031: l_xmldoc xmldom.DOMDocument;
1032: l_node xmldom.DOMNode;
1033: l_nodeslist xmldom.DOMNodeList;
1034: l_empty_xml_node xmldom.DOMNode;
1035: l_length NUMBER;

Line 1032: l_node xmldom.DOMNode;

1028: (p_doc_full_name IN VARCHAR2,
1029: x_bad_attributes_detected OUT NOCOPY BOOLEAN) IS
1030:
1031: l_xmldoc xmldom.DOMDocument;
1032: l_node xmldom.DOMNode;
1033: l_nodeslist xmldom.DOMNodeList;
1034: l_empty_xml_node xmldom.DOMNode;
1035: l_length NUMBER;
1036: l_attribute_value VARCHAR2(32000);

Line 1033: l_nodeslist xmldom.DOMNodeList;

1029: x_bad_attributes_detected OUT NOCOPY BOOLEAN) IS
1030:
1031: l_xmldoc xmldom.DOMDocument;
1032: l_node xmldom.DOMNode;
1033: l_nodeslist xmldom.DOMNodeList;
1034: l_empty_xml_node xmldom.DOMNode;
1035: l_length NUMBER;
1036: l_attribute_value VARCHAR2(32000);
1037:

Line 1034: l_empty_xml_node xmldom.DOMNode;

1030:
1031: l_xmldoc xmldom.DOMDocument;
1032: l_node xmldom.DOMNode;
1033: l_nodeslist xmldom.DOMNodeList;
1034: l_empty_xml_node xmldom.DOMNode;
1035: l_length NUMBER;
1036: l_attribute_value VARCHAR2(32000);
1037:
1038: BEGIN

Line 1310: l_xmldoc xmldom.DOMDocument;

1306: END remove_Bad_Attributes_in_TMPLS;
1307:
1308: PROCEDURE Test_UI_Pages(p_ui_def_id IN NUMBER) IS
1309:
1310: l_xmldoc xmldom.DOMDocument;
1311: l_node xmldom.DOMNode;
1312:
1313: BEGIN
1314: Open_Parser();

Line 1311: l_node xmldom.DOMNode;

1307:
1308: PROCEDURE Test_UI_Pages(p_ui_def_id IN NUMBER) IS
1309:
1310: l_xmldoc xmldom.DOMDocument;
1311: l_node xmldom.DOMNode;
1312:
1313: BEGIN
1314: Open_Parser();
1315:

Line 1322: xmldom.freeDocument(l_xmldoc);

1318: BEGIN
1319: l_xmldoc := parse_JRAD_Document(i.jrad_doc);
1320: Save_Document(p_xml_doc => l_xmldoc,
1321: p_doc_name => i.jrad_doc||'_TEST');
1322: xmldom.freeDocument(l_xmldoc);
1323: ROLLBACK;
1324: EXCEPTION
1325: WHEN OTHERS THEN
1326: --DBMS_OUTPUT.PUT_LINE('Fatal Error for : UI ui_def_id='||TO_CHAR(i.jrad_doc)||

Line 1362: PROCEDURE restore_Elements_Hierarchy(p_xml_doc xmldom.DOMDocument,

1358: END replace_Bad_Element_Ids;
1359:
1360:
1361:
1362: PROCEDURE restore_Elements_Hierarchy(p_xml_doc xmldom.DOMDocument,
1363: p_ui_def_id NUMBER,
1364: p_page_id NUMBER,
1365: p_element_id VARCHAR2
1366:

Line 1369: l_xml_node xmldom.DOMNode;

1365: p_element_id VARCHAR2
1366:
1367: ) IS
1368:
1369: l_xml_node xmldom.DOMNode;
1370: l_element_path VARCHAR2(32000);
1371:
1372: PROCEDURE reconstruct_Parent_Elements(p_xml_node xmldom.DOMNode) IS
1373:

Line 1372: PROCEDURE reconstruct_Parent_Elements(p_xml_node xmldom.DOMNode) IS

1368:
1369: l_xml_node xmldom.DOMNode;
1370: l_element_path VARCHAR2(32000);
1371:
1372: PROCEDURE reconstruct_Parent_Elements(p_xml_node xmldom.DOMNode) IS
1373:
1374: l_parent_node xmldom.DOMNode;
1375: l_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
1376: l_user_attribute4_value VARCHAR2(32000);

Line 1374: l_parent_node xmldom.DOMNode;

1370: l_element_path VARCHAR2(32000);
1371:
1372: PROCEDURE reconstruct_Parent_Elements(p_xml_node xmldom.DOMNode) IS
1373:
1374: l_parent_node xmldom.DOMNode;
1375: l_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
1376: l_user_attribute4_value VARCHAR2(32000);
1377: l_node_name VARCHAR2(32000);
1378:

Line 1381: IF xmldom.isNull(p_xml_node) THEN

1377: l_node_name VARCHAR2(32000);
1378:
1379: BEGIN
1380:
1381: IF xmldom.isNull(p_xml_node) THEN
1382: RETURN;
1383: END IF;
1384: l_parent_node := xmldom.getParentNode(p_xml_node);
1385: l_element_id := get_Attribute_Value(l_parent_node, G_ID_ATTRIBUTE);

Line 1384: l_parent_node := xmldom.getParentNode(p_xml_node);

1380:
1381: IF xmldom.isNull(p_xml_node) THEN
1382: RETURN;
1383: END IF;
1384: l_parent_node := xmldom.getParentNode(p_xml_node);
1385: l_element_id := get_Attribute_Value(l_parent_node, G_ID_ATTRIBUTE);
1386:
1387: IF l_element_id IS NOT NULL AND l_element_id<>G_NULL_VALUE AND xmldom.getNodeName(l_parent_node)<>'#document'THEN
1388:

Line 1387: IF l_element_id IS NOT NULL AND l_element_id<>G_NULL_VALUE AND xmldom.getNodeName(l_parent_node)<>'#document'THEN

1383: END IF;
1384: l_parent_node := xmldom.getParentNode(p_xml_node);
1385: l_element_id := get_Attribute_Value(l_parent_node, G_ID_ATTRIBUTE);
1386:
1387: IF l_element_id IS NOT NULL AND l_element_id<>G_NULL_VALUE AND xmldom.getNodeName(l_parent_node)<>'#document'THEN
1388:
1389: FOR n IN(SELECT element_id FROM CZ_UI_PAGE_ELEMENTS
1390: WHERE ui_def_id=p_ui_def_id AND
1391: page_id=p_page_id AND

Line 1404: IF NOT(xmldom.IsNull(p_xml_node)) THEN

1400: END LOOP;
1401:
1402: END IF;
1403:
1404: IF NOT(xmldom.IsNull(p_xml_node)) THEN
1405: IF NOT(xmldom.IsNull(l_parent_node)) THEN
1406: reconstruct_Parent_Elements(l_parent_node);
1407: END IF;
1408: END IF;

Line 1405: IF NOT(xmldom.IsNull(l_parent_node)) THEN

1401:
1402: END IF;
1403:
1404: IF NOT(xmldom.IsNull(p_xml_node)) THEN
1405: IF NOT(xmldom.IsNull(l_parent_node)) THEN
1406: reconstruct_Parent_Elements(l_parent_node);
1407: END IF;
1408: END IF;
1409:

Line 1416: IF NOT(xmldom.IsNull(l_xml_node)) THEN

1412: BEGIN
1413:
1414: l_xml_node := find_XML_Node_By_Attribute(p_xml_doc, G_ID_ATTRIBUTE, p_element_id);
1415:
1416: IF NOT(xmldom.IsNull(l_xml_node)) THEN
1417: reconstruct_Parent_Elements(l_xml_node);
1418: ELSE
1419: UPDATE CZ_UI_PAGE_ELEMENTS
1420: SET deleted_flag='1'

Line 1435: l_xmldoc xmldom.DOMDocument;

1431:
1432: PROCEDURE restore_Parent_Elements
1433: (p_ui_def_id IN NUMBER) IS
1434:
1435: l_xmldoc xmldom.DOMDocument;
1436:
1437: BEGIN
1438:
1439: FOR i IN(SELECT page_id, jrad_doc FROM CZ_UI_PAGES

Line 1463: xmldom.freeDocument(l_xmldoc);

1459: LOOP
1460: restore_Elements_Hierarchy(l_xmldoc, p_ui_def_id, i.page_id, j.element_id);
1461: END LOOP;
1462:
1463: xmldom.freeDocument(l_xmldoc);
1464:
1465: END LOOP;
1466:
1467: END restore_Parent_Elements;

Line 1524: PROCEDURE replace_UI_Rule_Ids(p_xml_node xmldom.DOMNode, p_replaced_flag OUT NOCOPY BOOLEAN) IS

1520: x_msg_data := 'Fatal error in CZ_XML.restore_Parent_Elements() : '||SQLERRM;
1521: Close_Parser();
1522: END restore_Parent_Elements;
1523:
1524: PROCEDURE replace_UI_Rule_Ids(p_xml_node xmldom.DOMNode, p_replaced_flag OUT NOCOPY BOOLEAN) IS
1525: l_attribute_value VARCHAR2(32000);
1526: l_user_attribute3_value VARCHAR2(32000);
1527: BEGIN
1528: p_replaced_flag := FALSE;

Line 1584: l_xmldoc xmldom.DOMDocument;

1580: PROCEDURE restore_UI_Rule_ids
1581: (p_ui_def_id IN NUMBER,
1582: p_template_id IN NUMBER) IS
1583:
1584: l_xmldoc xmldom.DOMDocument;
1585: l_node xmldom.DOMNode;
1586: l_nodeslist xmldom.DOMNodeList;
1587: l_empty_xml_node xmldom.DOMNode;
1588: l_length NUMBER;

Line 1585: l_node xmldom.DOMNode;

1581: (p_ui_def_id IN NUMBER,
1582: p_template_id IN NUMBER) IS
1583:
1584: l_xmldoc xmldom.DOMDocument;
1585: l_node xmldom.DOMNode;
1586: l_nodeslist xmldom.DOMNodeList;
1587: l_empty_xml_node xmldom.DOMNode;
1588: l_length NUMBER;
1589: l_save_doc BOOLEAN;

Line 1586: l_nodeslist xmldom.DOMNodeList;

1582: p_template_id IN NUMBER) IS
1583:
1584: l_xmldoc xmldom.DOMDocument;
1585: l_node xmldom.DOMNode;
1586: l_nodeslist xmldom.DOMNodeList;
1587: l_empty_xml_node xmldom.DOMNode;
1588: l_length NUMBER;
1589: l_save_doc BOOLEAN;
1590: l_replaced BOOLEAN;

Line 1587: l_empty_xml_node xmldom.DOMNode;

1583:
1584: l_xmldoc xmldom.DOMDocument;
1585: l_node xmldom.DOMNode;
1586: l_nodeslist xmldom.DOMNodeList;
1587: l_empty_xml_node xmldom.DOMNode;
1588: l_length NUMBER;
1589: l_save_doc BOOLEAN;
1590: l_replaced BOOLEAN;
1591:

Line 1599: l_nodeslist := xmldom.getElementsByTagName(l_xmldoc, '*');

1595: WHERE template_id=p_template_id AND ui_def_id IN(0,1) AND seeded_flag='0' AND deleted_flag='0')
1596: LOOP
1597: l_xmldoc := parse_JRAD_Document(i.jrad_doc);
1598:
1599: l_nodeslist := xmldom.getElementsByTagName(l_xmldoc, '*');
1600: l_length := xmldom.getLength(l_nodeslist);
1601:
1602: l_node := xmldom.makeNode(xmldom.getDocumentElement(l_xmldoc));
1603:

Line 1600: l_length := xmldom.getLength(l_nodeslist);

1596: LOOP
1597: l_xmldoc := parse_JRAD_Document(i.jrad_doc);
1598:
1599: l_nodeslist := xmldom.getElementsByTagName(l_xmldoc, '*');
1600: l_length := xmldom.getLength(l_nodeslist);
1601:
1602: l_node := xmldom.makeNode(xmldom.getDocumentElement(l_xmldoc));
1603:
1604: l_save_doc := FALSE;

Line 1602: l_node := xmldom.makeNode(xmldom.getDocumentElement(l_xmldoc));

1598:
1599: l_nodeslist := xmldom.getElementsByTagName(l_xmldoc, '*');
1600: l_length := xmldom.getLength(l_nodeslist);
1601:
1602: l_node := xmldom.makeNode(xmldom.getDocumentElement(l_xmldoc));
1603:
1604: l_save_doc := FALSE;
1605:
1606: replace_UI_Rule_Ids(l_node, l_replaced);

Line 1617: l_node := xmldom.item(l_nodeslist, i);

1613: -- scan subtree and substitute macros "%" to real values
1614: --
1615: FOR i IN 0 .. l_length - 1
1616: LOOP
1617: l_node := xmldom.item(l_nodeslist, i);
1618: replace_UI_Rule_Ids(l_node, l_replaced);
1619: IF l_replaced THEN
1620: l_save_doc := TRUE;
1621: END IF;

Line 1629: xmldom.freeDocument(l_xmldoc);

1625: Save_Document(p_xml_doc => l_xmldoc,
1626: p_doc_name => i.jrad_doc);
1627: END IF;
1628:
1629: xmldom.freeDocument(l_xmldoc);
1630:
1631: END LOOP;
1632:
1633: ELSE -- UIs

Line 1640: IF NOT(xmldom.isNull(l_xmldoc)) THEN

1636: LOOP
1637:
1638: l_xmldoc := parse_JRAD_Document(i.jrad_doc);
1639:
1640: IF NOT(xmldom.isNull(l_xmldoc)) THEN
1641:
1642: l_nodeslist := xmldom.getElementsByTagName(l_xmldoc, '*');
1643: l_length := xmldom.getLength(l_nodeslist);
1644:

Line 1642: l_nodeslist := xmldom.getElementsByTagName(l_xmldoc, '*');

1638: l_xmldoc := parse_JRAD_Document(i.jrad_doc);
1639:
1640: IF NOT(xmldom.isNull(l_xmldoc)) THEN
1641:
1642: l_nodeslist := xmldom.getElementsByTagName(l_xmldoc, '*');
1643: l_length := xmldom.getLength(l_nodeslist);
1644:
1645: l_node := xmldom.makeNode(xmldom.getDocumentElement(l_xmldoc));
1646:

Line 1643: l_length := xmldom.getLength(l_nodeslist);

1639:
1640: IF NOT(xmldom.isNull(l_xmldoc)) THEN
1641:
1642: l_nodeslist := xmldom.getElementsByTagName(l_xmldoc, '*');
1643: l_length := xmldom.getLength(l_nodeslist);
1644:
1645: l_node := xmldom.makeNode(xmldom.getDocumentElement(l_xmldoc));
1646:
1647: l_save_doc := FALSE;

Line 1645: l_node := xmldom.makeNode(xmldom.getDocumentElement(l_xmldoc));

1641:
1642: l_nodeslist := xmldom.getElementsByTagName(l_xmldoc, '*');
1643: l_length := xmldom.getLength(l_nodeslist);
1644:
1645: l_node := xmldom.makeNode(xmldom.getDocumentElement(l_xmldoc));
1646:
1647: l_save_doc := FALSE;
1648:
1649: replace_UI_Rule_Ids(l_node, l_replaced);

Line 1660: l_node := xmldom.item(l_nodeslist, i);

1656: -- scan subtree and substitute macros "%" to real values
1657: --
1658: FOR i IN 0 .. l_length - 1
1659: LOOP
1660: l_node := xmldom.item(l_nodeslist, i);
1661: replace_UI_Rule_Ids(l_node,l_replaced);
1662:
1663: IF l_replaced THEN
1664: l_save_doc := TRUE;

Line 1673: xmldom.freeDocument(l_xmldoc);

1669: Save_Document(p_xml_doc => l_xmldoc,
1670: p_doc_name => i.jrad_doc);
1671: END IF;
1672: END IF;
1673: xmldom.freeDocument(l_xmldoc);
1674: END LOOP;
1675: END IF;
1676: END restore_UI_Rule_ids;
1677:

Line 1700: Close_Parser(); --release all XMLDOM objects

1696: restore_UI_Rule_ids(p_ui_def_id => i.ui_def_id, p_template_id => NULL);
1697: EXCEPTION
1698: WHEN OTHERS THEN
1699: IF SQLCODE=-29532 THEN
1700: Close_Parser(); --release all XMLDOM objects
1701: Open_Parser();
1702: --DBMS_OUTPUT.PUT_LINE('UI Rules for UI '||i.ui_def_id||' can not be restored (XMP Parser problem) : '||SQLERRM);
1703: ELSE
1704: --DBMS_OUTPUT.PUT_LINE('UI Rules for UI '||i.ui_def_id||' can not be restored : '||SQLERRM);

Line 1820: l_xmldoc xmldom.DOMDocument;

1816: x_msg_data OUT NOCOPY VARCHAR2) IS
1817:
1818: l_error_message VARCHAR2(32000);
1819: l_error BOOLEAN;
1820: l_xmldoc xmldom.DOMDocument;
1821: l_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
1822: l_xml_node xmldom.DOMNode;
1823: l_nodeslist xmldom.DOMNodeList;
1824: l_empty_xml_node xmldom.DOMNode;

Line 1822: l_xml_node xmldom.DOMNode;

1818: l_error_message VARCHAR2(32000);
1819: l_error BOOLEAN;
1820: l_xmldoc xmldom.DOMDocument;
1821: l_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
1822: l_xml_node xmldom.DOMNode;
1823: l_nodeslist xmldom.DOMNodeList;
1824: l_empty_xml_node xmldom.DOMNode;
1825: l_length NUMBER;
1826: l_attribute_value VARCHAR2(32000);

Line 1823: l_nodeslist xmldom.DOMNodeList;

1819: l_error BOOLEAN;
1820: l_xmldoc xmldom.DOMDocument;
1821: l_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
1822: l_xml_node xmldom.DOMNode;
1823: l_nodeslist xmldom.DOMNodeList;
1824: l_empty_xml_node xmldom.DOMNode;
1825: l_length NUMBER;
1826: l_attribute_value VARCHAR2(32000);
1827: l_id_attribute_value VARCHAR2(32000);

Line 1824: l_empty_xml_node xmldom.DOMNode;

1820: l_xmldoc xmldom.DOMDocument;
1821: l_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
1822: l_xml_node xmldom.DOMNode;
1823: l_nodeslist xmldom.DOMNodeList;
1824: l_empty_xml_node xmldom.DOMNode;
1825: l_length NUMBER;
1826: l_attribute_value VARCHAR2(32000);
1827: l_id_attribute_value VARCHAR2(32000);
1828: l_ui_elements_tbl ui_tbl_type;

Line 1834: FUNCTION find_Parent_UI_Element(p_xml_node xmldom.DOMNode) RETURN VARCHAR2 IS

1830: l_parent_element_id CZ_UI_PAGE_ELEMENTS.parent_element_id%TYPE;
1831: l_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE;
1832: l_ui_def_id NUMBER;
1833:
1834: FUNCTION find_Parent_UI_Element(p_xml_node xmldom.DOMNode) RETURN VARCHAR2 IS
1835:
1836: l_ui_element CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
1837:
1838: PROCEDURE get_Parent_XML(p_check_xml_node xmldom.DOMNode) IS

Line 1838: PROCEDURE get_Parent_XML(p_check_xml_node xmldom.DOMNode) IS

1834: FUNCTION find_Parent_UI_Element(p_xml_node xmldom.DOMNode) RETURN VARCHAR2 IS
1835:
1836: l_ui_element CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
1837:
1838: PROCEDURE get_Parent_XML(p_check_xml_node xmldom.DOMNode) IS
1839:
1840: l_parent_xml_node xmldom.DOMNode;
1841: l_id_attr_value VARCHAR2(32000);
1842:

Line 1840: l_parent_xml_node xmldom.DOMNode;

1836: l_ui_element CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
1837:
1838: PROCEDURE get_Parent_XML(p_check_xml_node xmldom.DOMNode) IS
1839:
1840: l_parent_xml_node xmldom.DOMNode;
1841: l_id_attr_value VARCHAR2(32000);
1842:
1843: BEGIN
1844:

Line 1855: l_parent_xml_node := xmldom.getParentNode(p_check_xml_node);

1851: RETURN;
1852: END IF;
1853: END IF;
1854:
1855: l_parent_xml_node := xmldom.getParentNode(p_check_xml_node);
1856:
1857:
1858: IF NOT(xmldom.isNull(l_parent_xml_node)) THEN
1859:

Line 1858: IF NOT(xmldom.isNull(l_parent_xml_node)) THEN

1854:
1855: l_parent_xml_node := xmldom.getParentNode(p_check_xml_node);
1856:
1857:
1858: IF NOT(xmldom.isNull(l_parent_xml_node)) THEN
1859:
1860: l_id_attr_value := get_Attribute_Value(l_parent_xml_node , G_ID_ATTRIBUTE);
1861:
1862:

Line 1918: IF xmldom.IsNull(l_xmldoc) THEN

1914: BEGIN
1915: jdr_docbuilder.REFRESH;
1916: l_xmldoc := parse_JRAD_Document(j.jrad_doc);
1917:
1918: IF xmldom.IsNull(l_xmldoc) THEN
1919: EXIT;
1920: END IF;
1921:
1922: l_nodeslist := xmldom.getElementsByTagName(l_xmldoc, '*');

Line 1922: l_nodeslist := xmldom.getElementsByTagName(l_xmldoc, '*');

1918: IF xmldom.IsNull(l_xmldoc) THEN
1919: EXIT;
1920: END IF;
1921:
1922: l_nodeslist := xmldom.getElementsByTagName(l_xmldoc, '*');
1923: l_length := xmldom.getLength(l_nodeslist);
1924:
1925: FOR ixml IN 0 .. l_length - 1
1926: LOOP

Line 1923: l_length := xmldom.getLength(l_nodeslist);

1919: EXIT;
1920: END IF;
1921:
1922: l_nodeslist := xmldom.getElementsByTagName(l_xmldoc, '*');
1923: l_length := xmldom.getLength(l_nodeslist);
1924:
1925: FOR ixml IN 0 .. l_length - 1
1926: LOOP
1927: l_xml_node := xmldom.item(l_nodeslist, ixml);

Line 1927: l_xml_node := xmldom.item(l_nodeslist, ixml);

1923: l_length := xmldom.getLength(l_nodeslist);
1924:
1925: FOR ixml IN 0 .. l_length - 1
1926: LOOP
1927: l_xml_node := xmldom.item(l_nodeslist, ixml);
1928:
1929: l_attribute_value := get_Attribute_Value(l_xml_node, 'extends');
1930:
1931: IF l_attribute_value IS NOT NULL AND l_attribute_value <> G_NULL_VALUE THEN

Line 2028: xmldom.freeDocument(l_xmldoc);

2024: l_error :=CZ_UTILS.REPORT(l_error_message, 1, 'czueupg.sql', 13000);
2025: END IF;
2026: END;
2027:
2028: xmldom.freeDocument(l_xmldoc);
2029:
2030: END;
2031:
2032: END LOOP;