DBA Data[Home] [Help]

APPS.AMS_IMPORT_XML_PVT dependencies on XMLDOM

Line 74: p_node IN OUT NOCOPY xmldom.DOMNode,

70: NULL;
71: END write_debug;
72:
73: PROCEDURE Filter_XML_Helper (
74: p_node IN OUT NOCOPY xmldom.DOMNode,
75: p_mapping IN xml_source_column_set_type,
76: p_source_col_name IN VARCHAR2
77: );
78:

Line 94: -- p_node IN xmldom.DOMNode,

90: x_msg_data OUT NOCOPY VARCHAR2
91: );
92:
93: --PROCEDURE Store_XML_Elements_Helper (
94: -- p_node IN xmldom.DOMNode,
95: -- p_source_fields IN xml_source_column_set_type,
96: -- p_target_fields IN xml_target_column_set_type,
97: -- p_col_name IN VARCHAR2,
98: -- p_xml_doc_id IN NUMBER,

Line 104: p_node IN xmldom.DOMNode,

100: -- x_order_num IN OUT NUMBER
101: --);
102:
103: PROCEDURE Store_XML_Elements_Helper (
104: p_node IN xmldom.DOMNode,
105: p_source_fields IN xml_source_column_set_type,
106: p_target_fields IN xml_target_column_set_type,
107: p_col_name IN VARCHAR2,
108: p_xml_doc_id IN NUMBER,

Line 111: p_result_node IN OUT NOCOPY xmldom.DOMNode,

107: p_col_name IN VARCHAR2,
108: p_xml_doc_id IN NUMBER,
109: p_commit IN VARCHAR2 := FND_API.G_FALSE,
110: x_order_num IN OUT NOCOPY NUMBER,
111: p_result_node IN OUT NOCOPY xmldom.DOMNode,
112: p_column_name IN OUT NOCOPY VARCHAR2,
113: p_value IN OUT NOCOPY VARCHAR2,
114: p_result_doc IN OUT NOCOPY xmldom.DOMDocument
115: );

Line 114: p_result_doc IN OUT NOCOPY xmldom.DOMDocument

110: x_order_num IN OUT NOCOPY NUMBER,
111: p_result_node IN OUT NOCOPY xmldom.DOMNode,
112: p_column_name IN OUT NOCOPY VARCHAR2,
113: p_value IN OUT NOCOPY VARCHAR2,
114: p_result_doc IN OUT NOCOPY xmldom.DOMDocument
115: );
116:
117: FUNCTION Store_XML_Attributes (
118: p_node IN xmldom.DOMNode,

Line 118: p_node IN xmldom.DOMNode,

114: p_result_doc IN OUT NOCOPY xmldom.DOMDocument
115: );
116:
117: FUNCTION Store_XML_Attributes (
118: p_node IN xmldom.DOMNode,
119: p_order_init IN NUMBER,
120: p_xml_doc_id IN NUMBER,
121: p_commit IN VARCHAR2 := FND_API.G_FALSE
122: ) RETURN NUMBER;

Line 888: l_xml_doc xmldom.DOMDocument;

884: l_xml_doc_clob CLOB;
885: l_xml_doc_result_clob CLOB;
886:
887: l_parser xmlparser.Parser;
888: l_xml_doc xmldom.DOMDocument;
889: l_dom_root xmldom.DOMNode;
890: l_dom_actual_root xmldom.DOMNode;
891:
892: CURSOR c_import_source_fields (p_import_list_header_id NUMBER) IS

Line 889: l_dom_root xmldom.DOMNode;

885: l_xml_doc_result_clob CLOB;
886:
887: l_parser xmlparser.Parser;
888: l_xml_doc xmldom.DOMDocument;
889: l_dom_root xmldom.DOMNode;
890: l_dom_actual_root xmldom.DOMNode;
891:
892: CURSOR c_import_source_fields (p_import_list_header_id NUMBER) IS
893: SELECT A.SOURCE_COLUMN_NAME

Line 890: l_dom_actual_root xmldom.DOMNode;

886:
887: l_parser xmlparser.Parser;
888: l_xml_doc xmldom.DOMDocument;
889: l_dom_root xmldom.DOMNode;
890: l_dom_actual_root xmldom.DOMNode;
891:
892: CURSOR c_import_source_fields (p_import_list_header_id NUMBER) IS
893: SELECT A.SOURCE_COLUMN_NAME
894: FROM ams_list_src_fields A, ams_imp_list_headers_all b

Line 945: l_dom_root := xmldom.makeNode(l_xml_doc);

941: xmlparser.parseClob (l_parser, l_xml_doc_clob);
942: l_xml_doc := xmlparser.getDocument(l_parser);
943:
944: -- virtual root
945: l_dom_root := xmldom.makeNode(l_xml_doc);
946:
947: --actual root
948: l_dom_actual_root := xmldom.item (xmldom.getChildNodes(l_dom_root), 1);
949:

Line 948: l_dom_actual_root := xmldom.item (xmldom.getChildNodes(l_dom_root), 1);

944: -- virtual root
945: l_dom_root := xmldom.makeNode(l_xml_doc);
946:
947: --actual root
948: l_dom_actual_root := xmldom.item (xmldom.getChildNodes(l_dom_root), 1);
949:
950: l_actual_root_name := xmldom.getNodeName(l_dom_actual_root);
951:
952: Filter_XML_Helper (

Line 950: l_actual_root_name := xmldom.getNodeName(l_dom_actual_root);

946:
947: --actual root
948: l_dom_actual_root := xmldom.item (xmldom.getChildNodes(l_dom_root), 1);
949:
950: l_actual_root_name := xmldom.getNodeName(l_dom_actual_root);
951:
952: Filter_XML_Helper (
953: p_node => l_dom_actual_root,
954: p_mapping => l_mapping_source_fields,

Line 963: xmldom.writeToClob(l_dom_actual_root, l_result_xml_content);

959: FROM AMS_IMP_DOCUMENTS
960: WHERE IMPORT_LIST_HEADER_ID = p_import_list_header_id
961: FOR UPDATE;
962:
963: xmldom.writeToClob(l_dom_actual_root, l_result_xml_content);
964: --commit;
965: xmlparser.freeParser (l_parser);
966: END IF;
967: CLOSE c_xml_doc_content;

Line 984: p_node IN OUT NOCOPY xmldom.DOMNode,

980: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
981: END Filter_XML;
982:
983: PROCEDURE Filter_XML_Helper (
984: p_node IN OUT NOCOPY xmldom.DOMNode,
985: p_mapping IN xml_source_column_set_type,
986: p_source_col_name IN VARCHAR2
987: )
988: IS

Line 989: l_child_list xmldom.DOMNodeList;

985: p_mapping IN xml_source_column_set_type,
986: p_source_col_name IN VARCHAR2
987: )
988: IS
989: l_child_list xmldom.DOMNodeList;
990: l_num_children NUMBER;
991: l_child_node xmldom.DOMNode;
992: l_grand_child_node xmldom.DOMNode;
993: l_cur_source_col_name VARCHAR2(2000);

Line 991: l_child_node xmldom.DOMNode;

987: )
988: IS
989: l_child_list xmldom.DOMNodeList;
990: l_num_children NUMBER;
991: l_child_node xmldom.DOMNode;
992: l_grand_child_node xmldom.DOMNode;
993: l_cur_source_col_name VARCHAR2(2000);
994: l_num_child_offset NUMBER;
995:

Line 992: l_grand_child_node xmldom.DOMNode;

988: IS
989: l_child_list xmldom.DOMNodeList;
990: l_num_children NUMBER;
991: l_child_node xmldom.DOMNode;
992: l_grand_child_node xmldom.DOMNode;
993: l_cur_source_col_name VARCHAR2(2000);
994: l_num_child_offset NUMBER;
995:
996: l_temp VARCHAR2(4000);

Line 999: l_child_list := xmldom.getChildNodes(p_node);

995:
996: l_temp VARCHAR2(4000);
997: l_temp1 VARCHAR2(4000);
998: BEGIN
999: l_child_list := xmldom.getChildNodes(p_node);
1000: l_num_children := xmldom.getLength (l_child_list);
1001:
1002: FOR i IN 0 .. l_num_children -1
1003: LOOP

Line 1000: l_num_children := xmldom.getLength (l_child_list);

996: l_temp VARCHAR2(4000);
997: l_temp1 VARCHAR2(4000);
998: BEGIN
999: l_child_list := xmldom.getChildNodes(p_node);
1000: l_num_children := xmldom.getLength (l_child_list);
1001:
1002: FOR i IN 0 .. l_num_children -1
1003: LOOP
1004:

Line 1005: l_child_node := xmldom.item(l_child_list, i);

1001:
1002: FOR i IN 0 .. l_num_children -1
1003: LOOP
1004:
1005: l_child_node := xmldom.item(l_child_list, i);
1006:
1007: IF p_source_col_name IS NULL THEN
1008: l_cur_source_col_name := '(' || xmldom.getNodeName(l_child_node) || ')';
1009: ELSE

Line 1008: l_cur_source_col_name := '(' || xmldom.getNodeName(l_child_node) || ')';

1004:
1005: l_child_node := xmldom.item(l_child_list, i);
1006:
1007: IF p_source_col_name IS NULL THEN
1008: l_cur_source_col_name := '(' || xmldom.getNodeName(l_child_node) || ')';
1009: ELSE
1010: l_cur_source_col_name := p_source_col_name || '.(' || xmldom.getNodeName(l_child_node) || ')';
1011: END IF;
1012:

Line 1010: l_cur_source_col_name := p_source_col_name || '.(' || xmldom.getNodeName(l_child_node) || ')';

1006:
1007: IF p_source_col_name IS NULL THEN
1008: l_cur_source_col_name := '(' || xmldom.getNodeName(l_child_node) || ')';
1009: ELSE
1010: l_cur_source_col_name := p_source_col_name || '.(' || xmldom.getNodeName(l_child_node) || ')';
1011: END IF;
1012:
1013: l_grand_child_node := xmldom.getFirstChild(l_child_node);
1014: IF xmldom.hasChildNodes(l_child_node)

Line 1013: l_grand_child_node := xmldom.getFirstChild(l_child_node);

1009: ELSE
1010: l_cur_source_col_name := p_source_col_name || '.(' || xmldom.getNodeName(l_child_node) || ')';
1011: END IF;
1012:
1013: l_grand_child_node := xmldom.getFirstChild(l_child_node);
1014: IF xmldom.hasChildNodes(l_child_node)
1015: AND ( xmldom.getLength (xmldom.getChildNodes(l_child_node)) <> 1
1016: OR UPPER(RTRIM(LTRIM(xmldom.getNodeName (l_grand_child_node)))) <> '#TEXT')
1017: THEN

Line 1014: IF xmldom.hasChildNodes(l_child_node)

1010: l_cur_source_col_name := p_source_col_name || '.(' || xmldom.getNodeName(l_child_node) || ')';
1011: END IF;
1012:
1013: l_grand_child_node := xmldom.getFirstChild(l_child_node);
1014: IF xmldom.hasChildNodes(l_child_node)
1015: AND ( xmldom.getLength (xmldom.getChildNodes(l_child_node)) <> 1
1016: OR UPPER(RTRIM(LTRIM(xmldom.getNodeName (l_grand_child_node)))) <> '#TEXT')
1017: THEN
1018:

Line 1015: AND ( xmldom.getLength (xmldom.getChildNodes(l_child_node)) <> 1

1011: END IF;
1012:
1013: l_grand_child_node := xmldom.getFirstChild(l_child_node);
1014: IF xmldom.hasChildNodes(l_child_node)
1015: AND ( xmldom.getLength (xmldom.getChildNodes(l_child_node)) <> 1
1016: OR UPPER(RTRIM(LTRIM(xmldom.getNodeName (l_grand_child_node)))) <> '#TEXT')
1017: THEN
1018:
1019: Filter_XML_Helper (

Line 1016: OR UPPER(RTRIM(LTRIM(xmldom.getNodeName (l_grand_child_node)))) <> '#TEXT')

1012:
1013: l_grand_child_node := xmldom.getFirstChild(l_child_node);
1014: IF xmldom.hasChildNodes(l_child_node)
1015: AND ( xmldom.getLength (xmldom.getChildNodes(l_child_node)) <> 1
1016: OR UPPER(RTRIM(LTRIM(xmldom.getNodeName (l_grand_child_node)))) <> '#TEXT')
1017: THEN
1018:
1019: Filter_XML_Helper (
1020: p_node => l_child_node,

Line 1026: IF xmldom.getLength (xmldom.getChildNodes(l_child_node)) = 1

1022: p_source_col_name => l_cur_source_col_name
1023: );
1024: ELSE
1025: -- one grand child
1026: IF xmldom.getLength (xmldom.getChildNodes(l_child_node)) = 1
1027: -- grand child is leaf
1028: AND UPPER(RTRIM(LTRIM(xmldom.getNodeName (l_grand_child_node)))) = '#TEXT'
1029: AND NOT Is_In_Mapping ( --leaf not in mapping
1030: p_item => l_cur_source_col_name,

Line 1028: AND UPPER(RTRIM(LTRIM(xmldom.getNodeName (l_grand_child_node)))) = '#TEXT'

1024: ELSE
1025: -- one grand child
1026: IF xmldom.getLength (xmldom.getChildNodes(l_child_node)) = 1
1027: -- grand child is leaf
1028: AND UPPER(RTRIM(LTRIM(xmldom.getNodeName (l_grand_child_node)))) = '#TEXT'
1029: AND NOT Is_In_Mapping ( --leaf not in mapping
1030: p_item => l_cur_source_col_name,
1031: p_mapping => p_mapping
1032: ) THEN

Line 1033: p_node := xmldom.removeChild(l_child_node, l_grand_child_node);

1029: AND NOT Is_In_Mapping ( --leaf not in mapping
1030: p_item => l_cur_source_col_name,
1031: p_mapping => p_mapping
1032: ) THEN
1033: p_node := xmldom.removeChild(l_child_node, l_grand_child_node);
1034: END IF;
1035: END IF;
1036:
1037: END LOOP;

Line 1095: l_xml_doc xmldom.DOMDocument;

1091: l_mapping_source_fields xml_source_column_set_type;
1092: l_mapping_target_fields xml_target_column_set_type;
1093:
1094: l_parser xmlparser.Parser;
1095: l_xml_doc xmldom.DOMDocument;
1096: l_dom_root xmldom.DOMNode;
1097: l_dom_actual_root xmldom.DOMNode;
1098:
1099: CURSOR c_import_mapping_fields (p_import_list_header_id NUMBER) IS

Line 1096: l_dom_root xmldom.DOMNode;

1092: l_mapping_target_fields xml_target_column_set_type;
1093:
1094: l_parser xmlparser.Parser;
1095: l_xml_doc xmldom.DOMDocument;
1096: l_dom_root xmldom.DOMNode;
1097: l_dom_actual_root xmldom.DOMNode;
1098:
1099: CURSOR c_import_mapping_fields (p_import_list_header_id NUMBER) IS
1100: SELECT A.SOURCE_COLUMN_NAME, A.FIELD_COLUMN_NAME

Line 1097: l_dom_actual_root xmldom.DOMNode;

1093:
1094: l_parser xmlparser.Parser;
1095: l_xml_doc xmldom.DOMDocument;
1096: l_dom_root xmldom.DOMNode;
1097: l_dom_actual_root xmldom.DOMNode;
1098:
1099: CURSOR c_import_mapping_fields (p_import_list_header_id NUMBER) IS
1100: SELECT A.SOURCE_COLUMN_NAME, A.FIELD_COLUMN_NAME
1101: FROM ams_list_src_fields A, ams_imp_list_headers_all b

Line 1118: l_result_xml_node xmldom.DOMNode;

1114: l_xml_content CLOB;
1115: l_temp VARCHAR2(4000);
1116:
1117: l_result_xml_content CLOB;
1118: l_result_xml_node xmldom.DOMNode;
1119: l_col VARCHAR2(2000);
1120: l_value VARCHAR2(2000);
1121:
1122: --l_clone_node xmldom.DOMNode;

Line 1122: --l_clone_node xmldom.DOMNode;

1118: l_result_xml_node xmldom.DOMNode;
1119: l_col VARCHAR2(2000);
1120: l_value VARCHAR2(2000);
1121:
1122: --l_clone_node xmldom.DOMNode;
1123: l_temp_doc xmldom.DOMDocument;
1124: l_temp_element xmldom.DOMElement;
1125:
1126: l_actual_root_name VARCHAR2(2000);

Line 1123: l_temp_doc xmldom.DOMDocument;

1119: l_col VARCHAR2(2000);
1120: l_value VARCHAR2(2000);
1121:
1122: --l_clone_node xmldom.DOMNode;
1123: l_temp_doc xmldom.DOMDocument;
1124: l_temp_element xmldom.DOMElement;
1125:
1126: l_actual_root_name VARCHAR2(2000);
1127:

Line 1124: l_temp_element xmldom.DOMElement;

1120: l_value VARCHAR2(2000);
1121:
1122: --l_clone_node xmldom.DOMNode;
1123: l_temp_doc xmldom.DOMDocument;
1124: l_temp_element xmldom.DOMElement;
1125:
1126: l_actual_root_name VARCHAR2(2000);
1127:
1128: BEGIN

Line 1153: l_dom_root := xmldom.makeNode(l_xml_doc);

1149:
1150: l_xml_doc := xmlparser.getDocument(l_parser);
1151:
1152: -- virtual root
1153: l_dom_root := xmldom.makeNode(l_xml_doc);
1154:
1155: --l_temp := ' Store_XML_Elements 05-01:' || xmldom.getNodeName (l_dom_root);
1156:
1157: --actual root

Line 1155: --l_temp := ' Store_XML_Elements 05-01:' || xmldom.getNodeName (l_dom_root);

1151:
1152: -- virtual root
1153: l_dom_root := xmldom.makeNode(l_xml_doc);
1154:
1155: --l_temp := ' Store_XML_Elements 05-01:' || xmldom.getNodeName (l_dom_root);
1156:
1157: --actual root
1158: IF xmldom.getLength (xmldom.getChildNodes(l_dom_root)) = 1 THEN
1159: l_dom_actual_root := xmldom.item (xmldom.getChildNodes(l_dom_root), 0);

Line 1158: IF xmldom.getLength (xmldom.getChildNodes(l_dom_root)) = 1 THEN

1154:
1155: --l_temp := ' Store_XML_Elements 05-01:' || xmldom.getNodeName (l_dom_root);
1156:
1157: --actual root
1158: IF xmldom.getLength (xmldom.getChildNodes(l_dom_root)) = 1 THEN
1159: l_dom_actual_root := xmldom.item (xmldom.getChildNodes(l_dom_root), 0);
1160: ELSE
1161: l_dom_actual_root := xmldom.item (xmldom.getChildNodes(l_dom_root), 1);
1162: END IF;

Line 1159: l_dom_actual_root := xmldom.item (xmldom.getChildNodes(l_dom_root), 0);

1155: --l_temp := ' Store_XML_Elements 05-01:' || xmldom.getNodeName (l_dom_root);
1156:
1157: --actual root
1158: IF xmldom.getLength (xmldom.getChildNodes(l_dom_root)) = 1 THEN
1159: l_dom_actual_root := xmldom.item (xmldom.getChildNodes(l_dom_root), 0);
1160: ELSE
1161: l_dom_actual_root := xmldom.item (xmldom.getChildNodes(l_dom_root), 1);
1162: END IF;
1163:

Line 1161: l_dom_actual_root := xmldom.item (xmldom.getChildNodes(l_dom_root), 1);

1157: --actual root
1158: IF xmldom.getLength (xmldom.getChildNodes(l_dom_root)) = 1 THEN
1159: l_dom_actual_root := xmldom.item (xmldom.getChildNodes(l_dom_root), 0);
1160: ELSE
1161: l_dom_actual_root := xmldom.item (xmldom.getChildNodes(l_dom_root), 1);
1162: END IF;
1163:
1164: --l_temp := ' Store_XML_Elements 06:' || xmldom.getNodeName (l_dom_actual_root);
1165: l_order_num := G_ORDER_INITIAL_START_NUMBER;

Line 1164: --l_temp := ' Store_XML_Elements 06:' || xmldom.getNodeName (l_dom_actual_root);

1160: ELSE
1161: l_dom_actual_root := xmldom.item (xmldom.getChildNodes(l_dom_root), 1);
1162: END IF;
1163:
1164: --l_temp := ' Store_XML_Elements 06:' || xmldom.getNodeName (l_dom_actual_root);
1165: l_order_num := G_ORDER_INITIAL_START_NUMBER;
1166:
1167: l_temp_doc := xmldom.newDOMDocument;
1168:

Line 1167: l_temp_doc := xmldom.newDOMDocument;

1163:
1164: --l_temp := ' Store_XML_Elements 06:' || xmldom.getNodeName (l_dom_actual_root);
1165: l_order_num := G_ORDER_INITIAL_START_NUMBER;
1166:
1167: l_temp_doc := xmldom.newDOMDocument;
1168:
1169: l_actual_root_name := xmldom.getNodeName (l_dom_actual_root);
1170: l_temp_element := xmldom.createElement(l_temp_doc, l_actual_root_name);
1171: l_result_xml_node := xmldom.makeNode(l_temp_element);

Line 1169: l_actual_root_name := xmldom.getNodeName (l_dom_actual_root);

1165: l_order_num := G_ORDER_INITIAL_START_NUMBER;
1166:
1167: l_temp_doc := xmldom.newDOMDocument;
1168:
1169: l_actual_root_name := xmldom.getNodeName (l_dom_actual_root);
1170: l_temp_element := xmldom.createElement(l_temp_doc, l_actual_root_name);
1171: l_result_xml_node := xmldom.makeNode(l_temp_element);
1172:
1173: Store_XML_Elements_Helper (

Line 1170: l_temp_element := xmldom.createElement(l_temp_doc, l_actual_root_name);

1166:
1167: l_temp_doc := xmldom.newDOMDocument;
1168:
1169: l_actual_root_name := xmldom.getNodeName (l_dom_actual_root);
1170: l_temp_element := xmldom.createElement(l_temp_doc, l_actual_root_name);
1171: l_result_xml_node := xmldom.makeNode(l_temp_element);
1172:
1173: Store_XML_Elements_Helper (
1174: p_node => l_dom_actual_root,

Line 1171: l_result_xml_node := xmldom.makeNode(l_temp_element);

1167: l_temp_doc := xmldom.newDOMDocument;
1168:
1169: l_actual_root_name := xmldom.getNodeName (l_dom_actual_root);
1170: l_temp_element := xmldom.createElement(l_temp_doc, l_actual_root_name);
1171: l_result_xml_node := xmldom.makeNode(l_temp_element);
1172:
1173: Store_XML_Elements_Helper (
1174: p_node => l_dom_actual_root,
1175: p_source_fields => l_mapping_source_fields,

Line 1192: xmldom.writeToClob (l_result_xml_node, l_result_xml_content);

1188: FROM AMS_IMP_DOCUMENTS
1189: WHERE IMPORT_LIST_HEADER_ID = p_imp_list_header_id
1190: FOR UPDATE;
1191:
1192: xmldom.writeToClob (l_result_xml_node, l_result_xml_content);
1193: --commit;
1194: IF FND_API.to_boolean(p_commit) THEN
1195: COMMIT;
1196: END IF;

Line 1197: xmldom.freeDocument(l_temp_doc);

1193: --commit;
1194: IF FND_API.to_boolean(p_commit) THEN
1195: COMMIT;
1196: END IF;
1197: xmldom.freeDocument(l_temp_doc);
1198: ELSE
1199: x_return_status := FND_API.G_RET_STS_ERROR;
1200: x_msg_data := 'No XML data found';
1201: RAISE FND_API.G_EXC_ERROR;

Line 1219: p_node IN xmldom.DOMNode,

1215: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1216: END Store_XML_Elements;
1217:
1218: PROCEDURE Store_XML_Elements_Helper (
1219: p_node IN xmldom.DOMNode,
1220: p_source_fields IN xml_source_column_set_type,
1221: p_target_fields IN xml_target_column_set_type,
1222: p_col_name IN VARCHAR2,
1223: p_xml_doc_id IN NUMBER,

Line 1226: p_result_node IN OUT NOCOPY xmldom.DOMNode,

1222: p_col_name IN VARCHAR2,
1223: p_xml_doc_id IN NUMBER,
1224: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1225: x_order_num IN OUT NOCOPY NUMBER,
1226: p_result_node IN OUT NOCOPY xmldom.DOMNode,
1227: p_column_name IN OUT NOCOPY VARCHAR2,
1228: p_value IN OUT NOCOPY VARCHAR2,
1229: p_result_doc IN OUT NOCOPY xmldom.DOMDocument
1230: )

Line 1229: p_result_doc IN OUT NOCOPY xmldom.DOMDocument

1225: x_order_num IN OUT NOCOPY NUMBER,
1226: p_result_node IN OUT NOCOPY xmldom.DOMNode,
1227: p_column_name IN OUT NOCOPY VARCHAR2,
1228: p_value IN OUT NOCOPY VARCHAR2,
1229: p_result_doc IN OUT NOCOPY xmldom.DOMDocument
1230: )
1231: IS
1232: l_xml_element_rec AMS_IMP_XML_ELEMENTS%ROWTYPE;
1233: l_col_name VARCHAR2(2000);

Line 1235: l_child_list xmldom.DOMNodeList;

1231: IS
1232: l_xml_element_rec AMS_IMP_XML_ELEMENTS%ROWTYPE;
1233: l_col_name VARCHAR2(2000);
1234: l_cur_col_name VARCHAR2(2000);
1235: l_child_list xmldom.DOMNodeList;
1236: l_num_children NUMBER;
1237: l_child_node xmldom.DOMNode;
1238: l_now DATE := SYSDATE;
1239: l_in_mapping_flag BOOLEAN := FALSE;

Line 1237: l_child_node xmldom.DOMNode;

1233: l_col_name VARCHAR2(2000);
1234: l_cur_col_name VARCHAR2(2000);
1235: l_child_list xmldom.DOMNodeList;
1236: l_num_children NUMBER;
1237: l_child_node xmldom.DOMNode;
1238: l_now DATE := SYSDATE;
1239: l_in_mapping_flag BOOLEAN := FALSE;
1240: l_curr_element xmldom.DOMElement;
1241: l_col VARCHAR2(2000);

Line 1240: l_curr_element xmldom.DOMElement;

1236: l_num_children NUMBER;
1237: l_child_node xmldom.DOMNode;
1238: l_now DATE := SYSDATE;
1239: l_in_mapping_flag BOOLEAN := FALSE;
1240: l_curr_element xmldom.DOMElement;
1241: l_col VARCHAR2(2000);
1242: l_value VARCHAR2(2000);
1243: l_child_element xmldom.DOMElement;
1244: l_child_dom_node xmldom.DOMNode;

Line 1243: l_child_element xmldom.DOMElement;

1239: l_in_mapping_flag BOOLEAN := FALSE;
1240: l_curr_element xmldom.DOMElement;
1241: l_col VARCHAR2(2000);
1242: l_value VARCHAR2(2000);
1243: l_child_element xmldom.DOMElement;
1244: l_child_dom_node xmldom.DOMNode;
1245: --l_dom_doc xmldom.DOMDocument := xmldom.makeDocument (p_node); --commented for bug4961953
1246:
1247: l_dummy_node xmldom.DOMNode;

Line 1244: l_child_dom_node xmldom.DOMNode;

1240: l_curr_element xmldom.DOMElement;
1241: l_col VARCHAR2(2000);
1242: l_value VARCHAR2(2000);
1243: l_child_element xmldom.DOMElement;
1244: l_child_dom_node xmldom.DOMNode;
1245: --l_dom_doc xmldom.DOMDocument := xmldom.makeDocument (p_node); --commented for bug4961953
1246:
1247: l_dummy_node xmldom.DOMNode;
1248:

Line 1245: --l_dom_doc xmldom.DOMDocument := xmldom.makeDocument (p_node); --commented for bug4961953

1241: l_col VARCHAR2(2000);
1242: l_value VARCHAR2(2000);
1243: l_child_element xmldom.DOMElement;
1244: l_child_dom_node xmldom.DOMNode;
1245: --l_dom_doc xmldom.DOMDocument := xmldom.makeDocument (p_node); --commented for bug4961953
1246:
1247: l_dummy_node xmldom.DOMNode;
1248:
1249: l_msg VARCHAR2(2000);

Line 1247: l_dummy_node xmldom.DOMNode;

1243: l_child_element xmldom.DOMElement;
1244: l_child_dom_node xmldom.DOMNode;
1245: --l_dom_doc xmldom.DOMDocument := xmldom.makeDocument (p_node); --commented for bug4961953
1246:
1247: l_dummy_node xmldom.DOMNode;
1248:
1249: l_msg VARCHAR2(2000);
1250: l_temp VARCHAR2(2000);
1251: l_temp1 VARCHAR2(2000);

Line 1252: --l_clone_node xmldom.DOMNode;

1248:
1249: l_msg VARCHAR2(2000);
1250: l_temp VARCHAR2(2000);
1251: l_temp1 VARCHAR2(2000);
1252: --l_clone_node xmldom.DOMNode;
1253: l_child_doc xmldom.DOMDocument;
1254:
1255: l_text_data xmldom.DOMText;
1256: --createTextNode(doc DOMDocument, data IN VARCHAR2) RETURN DOMText

Line 1253: l_child_doc xmldom.DOMDocument;

1249: l_msg VARCHAR2(2000);
1250: l_temp VARCHAR2(2000);
1251: l_temp1 VARCHAR2(2000);
1252: --l_clone_node xmldom.DOMNode;
1253: l_child_doc xmldom.DOMDocument;
1254:
1255: l_text_data xmldom.DOMText;
1256: --createTextNode(doc DOMDocument, data IN VARCHAR2) RETURN DOMText
1257: BEGIN

Line 1255: l_text_data xmldom.DOMText;

1251: l_temp1 VARCHAR2(2000);
1252: --l_clone_node xmldom.DOMNode;
1253: l_child_doc xmldom.DOMDocument;
1254:
1255: l_text_data xmldom.DOMText;
1256: --createTextNode(doc DOMDocument, data IN VARCHAR2) RETURN DOMText
1257: BEGIN
1258:
1259: --l_temp := ' TEST01::';

Line 1264: l_cur_col_name := '(' || xmldom.getNodeName (p_node) || ')';

1260: l_xml_element_rec.DATA_TYPE := G_DATA_TYPE_TAG;
1261: l_xml_element_rec.IMP_XML_DOCUMENT_ID := p_xml_doc_id;
1262: l_xml_element_rec.ORDER_INITIAL := x_order_num;
1263: IF p_col_name IS NULL THEN
1264: l_cur_col_name := '(' || xmldom.getNodeName (p_node) || ')';
1265: ELSE
1266: l_cur_col_name := p_col_name || '.(' || xmldom.getNodeName (p_node) || ')';
1267: END IF;
1268:

Line 1266: l_cur_col_name := p_col_name || '.(' || xmldom.getNodeName (p_node) || ')';

1262: l_xml_element_rec.ORDER_INITIAL := x_order_num;
1263: IF p_col_name IS NULL THEN
1264: l_cur_col_name := '(' || xmldom.getNodeName (p_node) || ')';
1265: ELSE
1266: l_cur_col_name := p_col_name || '.(' || xmldom.getNodeName (p_node) || ')';
1267: END IF;
1268:
1269: --l_temp := l_temp || ' TEST02::';
1270: l_col_name := Get_Col_name (

Line 1277: l_xml_element_rec.COLUMN_NAME := xmldom.getNodeName (p_node);

1273: p_col_name => l_cur_col_name
1274: );
1275: --l_temp := l_temp || ' l_col_name::' || l_col_name;
1276: IF l_col_name IS NULL THEN --not in mapping
1277: l_xml_element_rec.COLUMN_NAME := xmldom.getNodeName (p_node);
1278: ELSE -- in mapping
1279: l_in_mapping_flag := TRUE;
1280: l_xml_element_rec.COLUMN_NAME := l_col_name;
1281: END IF;

Line 1286: l_child_list := xmldom.getChildNodes(p_node);

1282:
1283: --l_temp := l_temp || ' l_xml_element_rec.COLUMN_NAME::'
1284: -- || l_xml_element_rec.COLUMN_NAME;
1285:
1286: l_child_list := xmldom.getChildNodes(p_node);
1287: l_num_children := xmldom.getLength (l_child_list);
1288:
1289: IF l_num_children <> 1
1290: OR UPPER(RTRIM(LTRIM(xmldom.getNodeName (xmldom.item(l_child_list, 0))))) <> '#TEXT' THEN

Line 1287: l_num_children := xmldom.getLength (l_child_list);

1283: --l_temp := l_temp || ' l_xml_element_rec.COLUMN_NAME::'
1284: -- || l_xml_element_rec.COLUMN_NAME;
1285:
1286: l_child_list := xmldom.getChildNodes(p_node);
1287: l_num_children := xmldom.getLength (l_child_list);
1288:
1289: IF l_num_children <> 1
1290: OR UPPER(RTRIM(LTRIM(xmldom.getNodeName (xmldom.item(l_child_list, 0))))) <> '#TEXT' THEN
1291: FOR i IN 0 .. l_num_children -1

Line 1290: OR UPPER(RTRIM(LTRIM(xmldom.getNodeName (xmldom.item(l_child_list, 0))))) <> '#TEXT' THEN

1286: l_child_list := xmldom.getChildNodes(p_node);
1287: l_num_children := xmldom.getLength (l_child_list);
1288:
1289: IF l_num_children <> 1
1290: OR UPPER(RTRIM(LTRIM(xmldom.getNodeName (xmldom.item(l_child_list, 0))))) <> '#TEXT' THEN
1291: FOR i IN 0 .. l_num_children -1
1292: LOOP
1293: l_child_node := xmldom.item(l_child_list, i);
1294: x_order_num := x_order_num + 1;

Line 1293: l_child_node := xmldom.item(l_child_list, i);

1289: IF l_num_children <> 1
1290: OR UPPER(RTRIM(LTRIM(xmldom.getNodeName (xmldom.item(l_child_list, 0))))) <> '#TEXT' THEN
1291: FOR i IN 0 .. l_num_children -1
1292: LOOP
1293: l_child_node := xmldom.item(l_child_list, i);
1294: x_order_num := x_order_num + 1;
1295:
1296: l_col := l_cur_col_name || '.(' || xmldom.getNodeName (l_child_node) || ')';
1297:

Line 1296: l_col := l_cur_col_name || '.(' || xmldom.getNodeName (l_child_node) || ')';

1292: LOOP
1293: l_child_node := xmldom.item(l_child_list, i);
1294: x_order_num := x_order_num + 1;
1295:
1296: l_col := l_cur_col_name || '.(' || xmldom.getNodeName (l_child_node) || ')';
1297:
1298: l_col := Get_Col_name (
1299: p_source_fields => p_source_fields,
1300: p_target_fields => p_target_fields,

Line 1304: l_col := xmldom.getNodeName (l_child_node);

1300: p_target_fields => p_target_fields,
1301: p_col_name => l_col
1302: );
1303: IF l_col IS NULL THEN
1304: l_col := xmldom.getNodeName (l_child_node);
1305: END IF;
1306:
1307: --l_clone_node := xmldom.cloneNode (l_child_node, FALSE);
1308: --l_child_doc := xmldom.newDOMDocument;

Line 1307: --l_clone_node := xmldom.cloneNode (l_child_node, FALSE);

1303: IF l_col IS NULL THEN
1304: l_col := xmldom.getNodeName (l_child_node);
1305: END IF;
1306:
1307: --l_clone_node := xmldom.cloneNode (l_child_node, FALSE);
1308: --l_child_doc := xmldom.newDOMDocument;
1309: l_child_element := xmldom.createElement(p_result_doc, l_col);
1310:
1311: --l_temp := xmldom.getTagName (l_child_element);

Line 1308: --l_child_doc := xmldom.newDOMDocument;

1304: l_col := xmldom.getNodeName (l_child_node);
1305: END IF;
1306:
1307: --l_clone_node := xmldom.cloneNode (l_child_node, FALSE);
1308: --l_child_doc := xmldom.newDOMDocument;
1309: l_child_element := xmldom.createElement(p_result_doc, l_col);
1310:
1311: --l_temp := xmldom.getTagName (l_child_element);
1312:

Line 1309: l_child_element := xmldom.createElement(p_result_doc, l_col);

1305: END IF;
1306:
1307: --l_clone_node := xmldom.cloneNode (l_child_node, FALSE);
1308: --l_child_doc := xmldom.newDOMDocument;
1309: l_child_element := xmldom.createElement(p_result_doc, l_col);
1310:
1311: --l_temp := xmldom.getTagName (l_child_element);
1312:
1313: l_child_dom_node := xmldom.makeNode(l_child_element);

Line 1311: --l_temp := xmldom.getTagName (l_child_element);

1307: --l_clone_node := xmldom.cloneNode (l_child_node, FALSE);
1308: --l_child_doc := xmldom.newDOMDocument;
1309: l_child_element := xmldom.createElement(p_result_doc, l_col);
1310:
1311: --l_temp := xmldom.getTagName (l_child_element);
1312:
1313: l_child_dom_node := xmldom.makeNode(l_child_element);
1314:
1315: --l_temp := xmldom.getNodeName(l_child_dom_node);

Line 1313: l_child_dom_node := xmldom.makeNode(l_child_element);

1309: l_child_element := xmldom.createElement(p_result_doc, l_col);
1310:
1311: --l_temp := xmldom.getTagName (l_child_element);
1312:
1313: l_child_dom_node := xmldom.makeNode(l_child_element);
1314:
1315: --l_temp := xmldom.getNodeName(l_child_dom_node);
1316: --l_temp := 'hui 30::::name::' || l_temp;
1317:

Line 1315: --l_temp := xmldom.getNodeName(l_child_dom_node);

1311: --l_temp := xmldom.getTagName (l_child_element);
1312:
1313: l_child_dom_node := xmldom.makeNode(l_child_element);
1314:
1315: --l_temp := xmldom.getNodeName(l_child_dom_node);
1316: --l_temp := 'hui 30::::name::' || l_temp;
1317:
1318:
1319: Store_XML_Elements_Helper (

Line 1333: l_text_data := xmldom.createTextNode(p_result_doc, l_value);

1329: p_result_doc => p_result_doc
1330: );
1331:
1332: IF l_value IS NOT NULL THEN
1333: l_text_data := xmldom.createTextNode(p_result_doc, l_value);
1334: l_dummy_node := xmldom.appendChild (l_child_dom_node, xmldom.makeNode(l_text_data));
1335: END IF;
1336:
1337: --l_dummy_node := xmldom.appendChild (l_child_dom_node, xmldom.makeNode(l_text_data));

Line 1334: l_dummy_node := xmldom.appendChild (l_child_dom_node, xmldom.makeNode(l_text_data));

1330: );
1331:
1332: IF l_value IS NOT NULL THEN
1333: l_text_data := xmldom.createTextNode(p_result_doc, l_value);
1334: l_dummy_node := xmldom.appendChild (l_child_dom_node, xmldom.makeNode(l_text_data));
1335: END IF;
1336:
1337: --l_dummy_node := xmldom.appendChild (l_child_dom_node, xmldom.makeNode(l_text_data));
1338:

Line 1337: --l_dummy_node := xmldom.appendChild (l_child_dom_node, xmldom.makeNode(l_text_data));

1333: l_text_data := xmldom.createTextNode(p_result_doc, l_value);
1334: l_dummy_node := xmldom.appendChild (l_child_dom_node, xmldom.makeNode(l_text_data));
1335: END IF;
1336:
1337: --l_dummy_node := xmldom.appendChild (l_child_dom_node, xmldom.makeNode(l_text_data));
1338:
1339:
1340: l_dummy_node := xmldom.appendChild (p_result_node, l_child_dom_node);
1341:

Line 1340: l_dummy_node := xmldom.appendChild (p_result_node, l_child_dom_node);

1336:
1337: --l_dummy_node := xmldom.appendChild (l_child_dom_node, xmldom.makeNode(l_text_data));
1338:
1339:
1340: l_dummy_node := xmldom.appendChild (p_result_node, l_child_dom_node);
1341:
1342: --xmldom.freeDocument (l_child_doc);
1343:
1344: END LOOP;

Line 1342: --xmldom.freeDocument (l_child_doc);

1338:
1339:
1340: l_dummy_node := xmldom.appendChild (p_result_node, l_child_dom_node);
1341:
1342: --xmldom.freeDocument (l_child_doc);
1343:
1344: END LOOP;
1345: END IF;
1346: x_order_num := x_order_num + 1;

Line 1350: AND UPPER(RTRIM(LTRIM(xmldom.getNodeName (xmldom.item(l_child_list, 0))))) = '#TEXT' THEN

1346: x_order_num := x_order_num + 1;
1347: l_xml_element_rec.ORDER_FINAL := x_order_num;
1348:
1349: IF l_num_children = 1
1350: AND UPPER(RTRIM(LTRIM(xmldom.getNodeName (xmldom.item(l_child_list, 0))))) = '#TEXT' THEN
1351: l_xml_element_rec.DATA_TYPE := G_DATA_TYPE_DATA;
1352: IF l_in_mapping_flag THEN
1353: l_xml_element_rec.DATA := RTRIM(LTRIM(xmldom.getNodeValue(xmldom.item(l_child_list, 0))));
1354: ELSE

Line 1353: l_xml_element_rec.DATA := RTRIM(LTRIM(xmldom.getNodeValue(xmldom.item(l_child_list, 0))));

1349: IF l_num_children = 1
1350: AND UPPER(RTRIM(LTRIM(xmldom.getNodeName (xmldom.item(l_child_list, 0))))) = '#TEXT' THEN
1351: l_xml_element_rec.DATA_TYPE := G_DATA_TYPE_DATA;
1352: IF l_in_mapping_flag THEN
1353: l_xml_element_rec.DATA := RTRIM(LTRIM(xmldom.getNodeValue(xmldom.item(l_child_list, 0))));
1354: ELSE
1355: l_xml_element_rec.DATA := '';
1356: END IF;
1357: ELSIF l_num_children = 0 THEN

Line 1364: IF xmldom.getNodeType (p_node) = xmldom.TEXT_NODE THEN

1360: l_xml_element_rec.DATA_TYPE := G_DATA_TYPE_TAG;
1361: END IF;
1362:
1363: /****
1364: IF xmldom.getNodeType (p_node) = xmldom.TEXT_NODE THEN
1365: l_xml_element_rec.DATA_TYPE := G_DATA_TYPE_DATA;
1366: ELSE
1367: l_xml_element_rec.DATA_TYPE := G_DATA_TYPE_TAG;
1368: END IF;

Line 1427: p_node IN xmldom.DOMNode,

1423: RAISE;
1424: END Store_XML_Elements_Helper;
1425:
1426: FUNCTION Store_XML_Attributes (
1427: p_node IN xmldom.DOMNode,
1428: p_order_init IN NUMBER,
1429: p_xml_doc_id IN NUMBER,
1430: p_commit IN VARCHAR2 := FND_API.G_FALSE
1431: ) RETURN NUMBER

Line 1436: --l_element xmldom.DOMElement;

1432: IS
1433: l_xml_attribute_rec AMS_IMP_XML_ATTRIBUTES%ROWTYPE;
1434: l_num_attr NUMBER := 0;
1435: l_att_seq NUMBER := 1;
1436: --l_element xmldom.DOMElement;
1437: l_attr_map xmldom.DOMNamedNodeMap;
1438: l_node xmldom.DOMNode;
1439: l_now DATE := SYSDATE;
1440:

Line 1437: l_attr_map xmldom.DOMNamedNodeMap;

1433: l_xml_attribute_rec AMS_IMP_XML_ATTRIBUTES%ROWTYPE;
1434: l_num_attr NUMBER := 0;
1435: l_att_seq NUMBER := 1;
1436: --l_element xmldom.DOMElement;
1437: l_attr_map xmldom.DOMNamedNodeMap;
1438: l_node xmldom.DOMNode;
1439: l_now DATE := SYSDATE;
1440:
1441: BEGIN

Line 1438: l_node xmldom.DOMNode;

1434: l_num_attr NUMBER := 0;
1435: l_att_seq NUMBER := 1;
1436: --l_element xmldom.DOMElement;
1437: l_attr_map xmldom.DOMNamedNodeMap;
1438: l_node xmldom.DOMNode;
1439: l_now DATE := SYSDATE;
1440:
1441: BEGIN
1442: l_attr_map := xmldom.getAttributes (p_node);

Line 1442: l_attr_map := xmldom.getAttributes (p_node);

1438: l_node xmldom.DOMNode;
1439: l_now DATE := SYSDATE;
1440:
1441: BEGIN
1442: l_attr_map := xmldom.getAttributes (p_node);
1443: IF NOT xmldom.isNull(l_attr_map) THEN
1444: l_num_attr := xmldom.getLength(l_attr_map);
1445: FOR i IN 0 .. l_num_attr - 1
1446: LOOP

Line 1443: IF NOT xmldom.isNull(l_attr_map) THEN

1439: l_now DATE := SYSDATE;
1440:
1441: BEGIN
1442: l_attr_map := xmldom.getAttributes (p_node);
1443: IF NOT xmldom.isNull(l_attr_map) THEN
1444: l_num_attr := xmldom.getLength(l_attr_map);
1445: FOR i IN 0 .. l_num_attr - 1
1446: LOOP
1447: l_node := xmldom.item (l_attr_map, i);

Line 1444: l_num_attr := xmldom.getLength(l_attr_map);

1440:
1441: BEGIN
1442: l_attr_map := xmldom.getAttributes (p_node);
1443: IF NOT xmldom.isNull(l_attr_map) THEN
1444: l_num_attr := xmldom.getLength(l_attr_map);
1445: FOR i IN 0 .. l_num_attr - 1
1446: LOOP
1447: l_node := xmldom.item (l_attr_map, i);
1448: l_xml_attribute_rec.ATT_NAME := xmldom.getNodeName (l_node);

Line 1447: l_node := xmldom.item (l_attr_map, i);

1443: IF NOT xmldom.isNull(l_attr_map) THEN
1444: l_num_attr := xmldom.getLength(l_attr_map);
1445: FOR i IN 0 .. l_num_attr - 1
1446: LOOP
1447: l_node := xmldom.item (l_attr_map, i);
1448: l_xml_attribute_rec.ATT_NAME := xmldom.getNodeName (l_node);
1449: l_xml_attribute_rec.ATT_VALUE := xmldom.getNodeValue (l_node);
1450: l_xml_attribute_rec.ATT_SEQ := i + 1;
1451:

Line 1448: l_xml_attribute_rec.ATT_NAME := xmldom.getNodeName (l_node);

1444: l_num_attr := xmldom.getLength(l_attr_map);
1445: FOR i IN 0 .. l_num_attr - 1
1446: LOOP
1447: l_node := xmldom.item (l_attr_map, i);
1448: l_xml_attribute_rec.ATT_NAME := xmldom.getNodeName (l_node);
1449: l_xml_attribute_rec.ATT_VALUE := xmldom.getNodeValue (l_node);
1450: l_xml_attribute_rec.ATT_SEQ := i + 1;
1451:
1452: INSERT INTO AMS_IMP_XML_ATTRIBUTES (

Line 1449: l_xml_attribute_rec.ATT_VALUE := xmldom.getNodeValue (l_node);

1445: FOR i IN 0 .. l_num_attr - 1
1446: LOOP
1447: l_node := xmldom.item (l_attr_map, i);
1448: l_xml_attribute_rec.ATT_NAME := xmldom.getNodeName (l_node);
1449: l_xml_attribute_rec.ATT_VALUE := xmldom.getNodeValue (l_node);
1450: l_xml_attribute_rec.ATT_SEQ := i + 1;
1451:
1452: INSERT INTO AMS_IMP_XML_ATTRIBUTES (
1453: IMP_XML_ATTRIBUTE_ID,