1232: l_result XMLType;
1233: l_erecID NUMBER(22);
1234: --This holds the query context.
1235: qryCtx DBMS_XMLGEN.ctxHandle;
1236: l_srcDoc dbms_xmldom.DOMDocument;
1237: l_srcDocEle dbms_xmldom.DOMELEMENT;
1238: l_parentRootNode DBMS_XMLDOM.DOMNODE;
1239: l_sigHDRDoc DBMS_XMLDOM.DOMDOCUMENT;
1240: l_childRootNode DBMS_XMLDOM.DOMNODE;
1233: l_erecID NUMBER(22);
1234: --This holds the query context.
1235: qryCtx DBMS_XMLGEN.ctxHandle;
1236: l_srcDoc dbms_xmldom.DOMDocument;
1237: l_srcDocEle dbms_xmldom.DOMELEMENT;
1238: l_parentRootNode DBMS_XMLDOM.DOMNODE;
1239: l_sigHDRDoc DBMS_XMLDOM.DOMDOCUMENT;
1240: l_childRootNode DBMS_XMLDOM.DOMNODE;
1241: l_sigHDRDocEle dbms_xmldom.DOMELEMENT;
1234: --This holds the query context.
1235: qryCtx DBMS_XMLGEN.ctxHandle;
1236: l_srcDoc dbms_xmldom.DOMDocument;
1237: l_srcDocEle dbms_xmldom.DOMELEMENT;
1238: l_parentRootNode DBMS_XMLDOM.DOMNODE;
1239: l_sigHDRDoc DBMS_XMLDOM.DOMDOCUMENT;
1240: l_childRootNode DBMS_XMLDOM.DOMNODE;
1241: l_sigHDRDocEle dbms_xmldom.DOMELEMENT;
1242: l_childNodeList dbms_xmldom.DOMNodeList;
1235: qryCtx DBMS_XMLGEN.ctxHandle;
1236: l_srcDoc dbms_xmldom.DOMDocument;
1237: l_srcDocEle dbms_xmldom.DOMELEMENT;
1238: l_parentRootNode DBMS_XMLDOM.DOMNODE;
1239: l_sigHDRDoc DBMS_XMLDOM.DOMDOCUMENT;
1240: l_childRootNode DBMS_XMLDOM.DOMNODE;
1241: l_sigHDRDocEle dbms_xmldom.DOMELEMENT;
1242: l_childNodeList dbms_xmldom.DOMNodeList;
1243: l_childNode dbms_xmldom.DOMNode;
1236: l_srcDoc dbms_xmldom.DOMDocument;
1237: l_srcDocEle dbms_xmldom.DOMELEMENT;
1238: l_parentRootNode DBMS_XMLDOM.DOMNODE;
1239: l_sigHDRDoc DBMS_XMLDOM.DOMDOCUMENT;
1240: l_childRootNode DBMS_XMLDOM.DOMNODE;
1241: l_sigHDRDocEle dbms_xmldom.DOMELEMENT;
1242: l_childNodeList dbms_xmldom.DOMNodeList;
1243: l_childNode dbms_xmldom.DOMNode;
1244: l_nodeListDel dbms_xmldom.DOMNodeList;
1237: l_srcDocEle dbms_xmldom.DOMELEMENT;
1238: l_parentRootNode DBMS_XMLDOM.DOMNODE;
1239: l_sigHDRDoc DBMS_XMLDOM.DOMDOCUMENT;
1240: l_childRootNode DBMS_XMLDOM.DOMNODE;
1241: l_sigHDRDocEle dbms_xmldom.DOMELEMENT;
1242: l_childNodeList dbms_xmldom.DOMNodeList;
1243: l_childNode dbms_xmldom.DOMNode;
1244: l_nodeListDel dbms_xmldom.DOMNodeList;
1245: l_tmpnode dbms_xmldom.DOMNode;
1238: l_parentRootNode DBMS_XMLDOM.DOMNODE;
1239: l_sigHDRDoc DBMS_XMLDOM.DOMDOCUMENT;
1240: l_childRootNode DBMS_XMLDOM.DOMNODE;
1241: l_sigHDRDocEle dbms_xmldom.DOMELEMENT;
1242: l_childNodeList dbms_xmldom.DOMNodeList;
1243: l_childNode dbms_xmldom.DOMNode;
1244: l_nodeListDel dbms_xmldom.DOMNodeList;
1245: l_tmpnode dbms_xmldom.DOMNode;
1246: l_esigNode dbms_xmldom.DOMNode;
1239: l_sigHDRDoc DBMS_XMLDOM.DOMDOCUMENT;
1240: l_childRootNode DBMS_XMLDOM.DOMNODE;
1241: l_sigHDRDocEle dbms_xmldom.DOMELEMENT;
1242: l_childNodeList dbms_xmldom.DOMNodeList;
1243: l_childNode dbms_xmldom.DOMNode;
1244: l_nodeListDel dbms_xmldom.DOMNodeList;
1245: l_tmpnode dbms_xmldom.DOMNode;
1246: l_esigNode dbms_xmldom.DOMNode;
1247: l_ehdrNode dbms_xmldom.DOMNode;
1240: l_childRootNode DBMS_XMLDOM.DOMNODE;
1241: l_sigHDRDocEle dbms_xmldom.DOMELEMENT;
1242: l_childNodeList dbms_xmldom.DOMNodeList;
1243: l_childNode dbms_xmldom.DOMNode;
1244: l_nodeListDel dbms_xmldom.DOMNodeList;
1245: l_tmpnode dbms_xmldom.DOMNode;
1246: l_esigNode dbms_xmldom.DOMNode;
1247: l_ehdrNode dbms_xmldom.DOMNode;
1248: l_eleNodeList dbms_xmldom.DOMNodeList;
1241: l_sigHDRDocEle dbms_xmldom.DOMELEMENT;
1242: l_childNodeList dbms_xmldom.DOMNodeList;
1243: l_childNode dbms_xmldom.DOMNode;
1244: l_nodeListDel dbms_xmldom.DOMNodeList;
1245: l_tmpnode dbms_xmldom.DOMNode;
1246: l_esigNode dbms_xmldom.DOMNode;
1247: l_ehdrNode dbms_xmldom.DOMNode;
1248: l_eleNodeList dbms_xmldom.DOMNodeList;
1249: l_eleNode dbms_xmldom.DOMNode;
1242: l_childNodeList dbms_xmldom.DOMNodeList;
1243: l_childNode dbms_xmldom.DOMNode;
1244: l_nodeListDel dbms_xmldom.DOMNodeList;
1245: l_tmpnode dbms_xmldom.DOMNode;
1246: l_esigNode dbms_xmldom.DOMNode;
1247: l_ehdrNode dbms_xmldom.DOMNode;
1248: l_eleNodeList dbms_xmldom.DOMNodeList;
1249: l_eleNode dbms_xmldom.DOMNode;
1250: esigHdrFinalXML XMLType;
1243: l_childNode dbms_xmldom.DOMNode;
1244: l_nodeListDel dbms_xmldom.DOMNodeList;
1245: l_tmpnode dbms_xmldom.DOMNode;
1246: l_esigNode dbms_xmldom.DOMNode;
1247: l_ehdrNode dbms_xmldom.DOMNode;
1248: l_eleNodeList dbms_xmldom.DOMNodeList;
1249: l_eleNode dbms_xmldom.DOMNode;
1250: esigHdrFinalXML XMLType;
1251: l_debug_level number(2):=6;
1244: l_nodeListDel dbms_xmldom.DOMNodeList;
1245: l_tmpnode dbms_xmldom.DOMNode;
1246: l_esigNode dbms_xmldom.DOMNode;
1247: l_ehdrNode dbms_xmldom.DOMNode;
1248: l_eleNodeList dbms_xmldom.DOMNodeList;
1249: l_eleNode dbms_xmldom.DOMNode;
1250: esigHdrFinalXML XMLType;
1251: l_debug_level number(2):=6;
1252: l_error_code pls_integer;
1245: l_tmpnode dbms_xmldom.DOMNode;
1246: l_esigNode dbms_xmldom.DOMNode;
1247: l_ehdrNode dbms_xmldom.DOMNode;
1248: l_eleNodeList dbms_xmldom.DOMNodeList;
1249: l_eleNode dbms_xmldom.DOMNode;
1250: esigHdrFinalXML XMLType;
1251: l_debug_level number(2):=6;
1252: l_error_code pls_integer;
1253: l_log_file varchar2(2000);
1274:
1275: -- construct the XML Type object
1276: l_result := xmltype(l_xml);
1277:
1278: l_srcDoc := dbms_xmldom.newDOMDocument(l_result);
1279: l_srcDocEle := dbms_xmldom.getDocumentElement(l_srcDoc);
1280: l_parentRootNode := DBMS_XMLDOM.makeNode(l_srcDocEle);
1281: l_eleNodeList := dbms_xmldom.getElementsByTagName(l_srcDocEle,'InstrErecID');
1282: For i in 0..dbms_xmldom.getLength(l_eleNodeList)-1 LOOP
1275: -- construct the XML Type object
1276: l_result := xmltype(l_xml);
1277:
1278: l_srcDoc := dbms_xmldom.newDOMDocument(l_result);
1279: l_srcDocEle := dbms_xmldom.getDocumentElement(l_srcDoc);
1280: l_parentRootNode := DBMS_XMLDOM.makeNode(l_srcDocEle);
1281: l_eleNodeList := dbms_xmldom.getElementsByTagName(l_srcDocEle,'InstrErecID');
1282: For i in 0..dbms_xmldom.getLength(l_eleNodeList)-1 LOOP
1283: l_eleNode := dbms_xmldom.item(l_eleNodeList, i);
1276: l_result := xmltype(l_xml);
1277:
1278: l_srcDoc := dbms_xmldom.newDOMDocument(l_result);
1279: l_srcDocEle := dbms_xmldom.getDocumentElement(l_srcDoc);
1280: l_parentRootNode := DBMS_XMLDOM.makeNode(l_srcDocEle);
1281: l_eleNodeList := dbms_xmldom.getElementsByTagName(l_srcDocEle,'InstrErecID');
1282: For i in 0..dbms_xmldom.getLength(l_eleNodeList)-1 LOOP
1283: l_eleNode := dbms_xmldom.item(l_eleNodeList, i);
1284: -- import Erec Header node and signature node
1277:
1278: l_srcDoc := dbms_xmldom.newDOMDocument(l_result);
1279: l_srcDocEle := dbms_xmldom.getDocumentElement(l_srcDoc);
1280: l_parentRootNode := DBMS_XMLDOM.makeNode(l_srcDocEle);
1281: l_eleNodeList := dbms_xmldom.getElementsByTagName(l_srcDocEle,'InstrErecID');
1282: For i in 0..dbms_xmldom.getLength(l_eleNodeList)-1 LOOP
1283: l_eleNode := dbms_xmldom.item(l_eleNodeList, i);
1284: -- import Erec Header node and signature node
1285: l_erecID := TO_NUMBER(DBMS_XMLDOM.getNodeValue(DBMS_XMLDOM.getFirstChild(l_eleNode)));
1278: l_srcDoc := dbms_xmldom.newDOMDocument(l_result);
1279: l_srcDocEle := dbms_xmldom.getDocumentElement(l_srcDoc);
1280: l_parentRootNode := DBMS_XMLDOM.makeNode(l_srcDocEle);
1281: l_eleNodeList := dbms_xmldom.getElementsByTagName(l_srcDocEle,'InstrErecID');
1282: For i in 0..dbms_xmldom.getLength(l_eleNodeList)-1 LOOP
1283: l_eleNode := dbms_xmldom.item(l_eleNodeList, i);
1284: -- import Erec Header node and signature node
1285: l_erecID := TO_NUMBER(DBMS_XMLDOM.getNodeValue(DBMS_XMLDOM.getFirstChild(l_eleNode)));
1286: EDR_PSIG.GET_EVENT_XML(P_EVENT_NAME =>null,
1279: l_srcDocEle := dbms_xmldom.getDocumentElement(l_srcDoc);
1280: l_parentRootNode := DBMS_XMLDOM.makeNode(l_srcDocEle);
1281: l_eleNodeList := dbms_xmldom.getElementsByTagName(l_srcDocEle,'InstrErecID');
1282: For i in 0..dbms_xmldom.getLength(l_eleNodeList)-1 LOOP
1283: l_eleNode := dbms_xmldom.item(l_eleNodeList, i);
1284: -- import Erec Header node and signature node
1285: l_erecID := TO_NUMBER(DBMS_XMLDOM.getNodeValue(DBMS_XMLDOM.getFirstChild(l_eleNode)));
1286: EDR_PSIG.GET_EVENT_XML(P_EVENT_NAME =>null,
1287: P_EVENT_KEY => null,
1281: l_eleNodeList := dbms_xmldom.getElementsByTagName(l_srcDocEle,'InstrErecID');
1282: For i in 0..dbms_xmldom.getLength(l_eleNodeList)-1 LOOP
1283: l_eleNode := dbms_xmldom.item(l_eleNodeList, i);
1284: -- import Erec Header node and signature node
1285: l_erecID := TO_NUMBER(DBMS_XMLDOM.getNodeValue(DBMS_XMLDOM.getFirstChild(l_eleNode)));
1286: EDR_PSIG.GET_EVENT_XML(P_EVENT_NAME =>null,
1287: P_EVENT_KEY => null,
1288: P_ERECORD_ID => l_erecID,
1289: P_GET_ERECORD_XML =>'F',
1295: esigHdrFinalXML := xmltype(l_final_xml);
1296:
1297:
1298: -- construct ESIG HDR Node
1299: l_sigHDRDoc := DBMS_XMLDOM.newDOMDocument(esigHdrFinalXML);
1300: -- make the Header Noe
1301: l_sigHDRDocEle := DBMS_XMLDOM.getDocumentElement(l_sigHDRDoc);
1302: l_childRootNode := DBMS_XMLDOM.makeNode(l_sigHDRDocEle);
1303:
1297:
1298: -- construct ESIG HDR Node
1299: l_sigHDRDoc := DBMS_XMLDOM.newDOMDocument(esigHdrFinalXML);
1300: -- make the Header Noe
1301: l_sigHDRDocEle := DBMS_XMLDOM.getDocumentElement(l_sigHDRDoc);
1302: l_childRootNode := DBMS_XMLDOM.makeNode(l_sigHDRDocEle);
1303:
1304: -- get the Heder Details node
1305: l_childNodeList := dbms_xmldom.getElementsByTagName(l_sigHDRDocEle,'ERECORD_HEADER_DETAILS');
1298: -- construct ESIG HDR Node
1299: l_sigHDRDoc := DBMS_XMLDOM.newDOMDocument(esigHdrFinalXML);
1300: -- make the Header Noe
1301: l_sigHDRDocEle := DBMS_XMLDOM.getDocumentElement(l_sigHDRDoc);
1302: l_childRootNode := DBMS_XMLDOM.makeNode(l_sigHDRDocEle);
1303:
1304: -- get the Heder Details node
1305: l_childNodeList := dbms_xmldom.getElementsByTagName(l_sigHDRDocEle,'ERECORD_HEADER_DETAILS');
1306: l_ehdrNode := dbms_xmldom.item(l_childNodeList, 0);
1301: l_sigHDRDocEle := DBMS_XMLDOM.getDocumentElement(l_sigHDRDoc);
1302: l_childRootNode := DBMS_XMLDOM.makeNode(l_sigHDRDocEle);
1303:
1304: -- get the Heder Details node
1305: l_childNodeList := dbms_xmldom.getElementsByTagName(l_sigHDRDocEle,'ERECORD_HEADER_DETAILS');
1306: l_ehdrNode := dbms_xmldom.item(l_childNodeList, 0);
1307: -- get the Node to be deleted
1308: l_nodeListDel := dbms_xmldom.getElementsByTagName(l_sigHDRDocEle,'DOC_PARAM_DETAILS');
1309: For i in 0..dbms_xmldom.getLength(l_nodeListDel)-1 LOOP
1302: l_childRootNode := DBMS_XMLDOM.makeNode(l_sigHDRDocEle);
1303:
1304: -- get the Heder Details node
1305: l_childNodeList := dbms_xmldom.getElementsByTagName(l_sigHDRDocEle,'ERECORD_HEADER_DETAILS');
1306: l_ehdrNode := dbms_xmldom.item(l_childNodeList, 0);
1307: -- get the Node to be deleted
1308: l_nodeListDel := dbms_xmldom.getElementsByTagName(l_sigHDRDocEle,'DOC_PARAM_DETAILS');
1309: For i in 0..dbms_xmldom.getLength(l_nodeListDel)-1 LOOP
1310: l_tmpnode := dbms_xmldom.item(l_nodeListDel, i);
1304: -- get the Heder Details node
1305: l_childNodeList := dbms_xmldom.getElementsByTagName(l_sigHDRDocEle,'ERECORD_HEADER_DETAILS');
1306: l_ehdrNode := dbms_xmldom.item(l_childNodeList, 0);
1307: -- get the Node to be deleted
1308: l_nodeListDel := dbms_xmldom.getElementsByTagName(l_sigHDRDocEle,'DOC_PARAM_DETAILS');
1309: For i in 0..dbms_xmldom.getLength(l_nodeListDel)-1 LOOP
1310: l_tmpnode := dbms_xmldom.item(l_nodeListDel, i);
1311: l_childNode := dbms_xmldom.removeChild(l_ehdrNode,l_tmpnode);
1312: END LOOP;
1305: l_childNodeList := dbms_xmldom.getElementsByTagName(l_sigHDRDocEle,'ERECORD_HEADER_DETAILS');
1306: l_ehdrNode := dbms_xmldom.item(l_childNodeList, 0);
1307: -- get the Node to be deleted
1308: l_nodeListDel := dbms_xmldom.getElementsByTagName(l_sigHDRDocEle,'DOC_PARAM_DETAILS');
1309: For i in 0..dbms_xmldom.getLength(l_nodeListDel)-1 LOOP
1310: l_tmpnode := dbms_xmldom.item(l_nodeListDel, i);
1311: l_childNode := dbms_xmldom.removeChild(l_ehdrNode,l_tmpnode);
1312: END LOOP;
1313:
1306: l_ehdrNode := dbms_xmldom.item(l_childNodeList, 0);
1307: -- get the Node to be deleted
1308: l_nodeListDel := dbms_xmldom.getElementsByTagName(l_sigHDRDocEle,'DOC_PARAM_DETAILS');
1309: For i in 0..dbms_xmldom.getLength(l_nodeListDel)-1 LOOP
1310: l_tmpnode := dbms_xmldom.item(l_nodeListDel, i);
1311: l_childNode := dbms_xmldom.removeChild(l_ehdrNode,l_tmpnode);
1312: END LOOP;
1313:
1314: -- get the Signature Details node
1307: -- get the Node to be deleted
1308: l_nodeListDel := dbms_xmldom.getElementsByTagName(l_sigHDRDocEle,'DOC_PARAM_DETAILS');
1309: For i in 0..dbms_xmldom.getLength(l_nodeListDel)-1 LOOP
1310: l_tmpnode := dbms_xmldom.item(l_nodeListDel, i);
1311: l_childNode := dbms_xmldom.removeChild(l_ehdrNode,l_tmpnode);
1312: END LOOP;
1313:
1314: -- get the Signature Details node
1315: l_childNodeList := dbms_xmldom.getElementsByTagName(l_sigHDRDocEle,'ERECORD_SIGNATURE_DETAILS');
1311: l_childNode := dbms_xmldom.removeChild(l_ehdrNode,l_tmpnode);
1312: END LOOP;
1313:
1314: -- get the Signature Details node
1315: l_childNodeList := dbms_xmldom.getElementsByTagName(l_sigHDRDocEle,'ERECORD_SIGNATURE_DETAILS');
1316: l_esigNode := dbms_xmldom.item(l_childNodeList, 0);
1317: -- get the Node to be deleted
1318: l_nodeListDel := dbms_xmldom.getElementsByTagName(l_sigHDRDocEle,'SIGNATURE_PARAMS');
1319: For i in 0..dbms_xmldom.getLength(l_nodeListDel)-1 LOOP
1312: END LOOP;
1313:
1314: -- get the Signature Details node
1315: l_childNodeList := dbms_xmldom.getElementsByTagName(l_sigHDRDocEle,'ERECORD_SIGNATURE_DETAILS');
1316: l_esigNode := dbms_xmldom.item(l_childNodeList, 0);
1317: -- get the Node to be deleted
1318: l_nodeListDel := dbms_xmldom.getElementsByTagName(l_sigHDRDocEle,'SIGNATURE_PARAMS');
1319: For i in 0..dbms_xmldom.getLength(l_nodeListDel)-1 LOOP
1320: l_tmpnode := dbms_xmldom.item(l_nodeListDel, i);
1314: -- get the Signature Details node
1315: l_childNodeList := dbms_xmldom.getElementsByTagName(l_sigHDRDocEle,'ERECORD_SIGNATURE_DETAILS');
1316: l_esigNode := dbms_xmldom.item(l_childNodeList, 0);
1317: -- get the Node to be deleted
1318: l_nodeListDel := dbms_xmldom.getElementsByTagName(l_sigHDRDocEle,'SIGNATURE_PARAMS');
1319: For i in 0..dbms_xmldom.getLength(l_nodeListDel)-1 LOOP
1320: l_tmpnode := dbms_xmldom.item(l_nodeListDel, i);
1321: l_childNode := dbms_xmldom.removeChild(l_esigNode,l_tmpnode);
1322: END LOOP;
1315: l_childNodeList := dbms_xmldom.getElementsByTagName(l_sigHDRDocEle,'ERECORD_SIGNATURE_DETAILS');
1316: l_esigNode := dbms_xmldom.item(l_childNodeList, 0);
1317: -- get the Node to be deleted
1318: l_nodeListDel := dbms_xmldom.getElementsByTagName(l_sigHDRDocEle,'SIGNATURE_PARAMS');
1319: For i in 0..dbms_xmldom.getLength(l_nodeListDel)-1 LOOP
1320: l_tmpnode := dbms_xmldom.item(l_nodeListDel, i);
1321: l_childNode := dbms_xmldom.removeChild(l_esigNode,l_tmpnode);
1322: END LOOP;
1323: -- append Signature node into Header node
1316: l_esigNode := dbms_xmldom.item(l_childNodeList, 0);
1317: -- get the Node to be deleted
1318: l_nodeListDel := dbms_xmldom.getElementsByTagName(l_sigHDRDocEle,'SIGNATURE_PARAMS');
1319: For i in 0..dbms_xmldom.getLength(l_nodeListDel)-1 LOOP
1320: l_tmpnode := dbms_xmldom.item(l_nodeListDel, i);
1321: l_childNode := dbms_xmldom.removeChild(l_esigNode,l_tmpnode);
1322: END LOOP;
1323: -- append Signature node into Header node
1324: if (dbms_xmldom.isNull(l_esigNode) = false) THEN
1317: -- get the Node to be deleted
1318: l_nodeListDel := dbms_xmldom.getElementsByTagName(l_sigHDRDocEle,'SIGNATURE_PARAMS');
1319: For i in 0..dbms_xmldom.getLength(l_nodeListDel)-1 LOOP
1320: l_tmpnode := dbms_xmldom.item(l_nodeListDel, i);
1321: l_childNode := dbms_xmldom.removeChild(l_esigNode,l_tmpnode);
1322: END LOOP;
1323: -- append Signature node into Header node
1324: if (dbms_xmldom.isNull(l_esigNode) = false) THEN
1325: l_tmpnode := dbms_xmldom.appendChild(l_ehdrNode,l_esigNode);
1320: l_tmpnode := dbms_xmldom.item(l_nodeListDel, i);
1321: l_childNode := dbms_xmldom.removeChild(l_esigNode,l_tmpnode);
1322: END LOOP;
1323: -- append Signature node into Header node
1324: if (dbms_xmldom.isNull(l_esigNode) = false) THEN
1325: l_tmpnode := dbms_xmldom.appendChild(l_ehdrNode,l_esigNode);
1326: END IF;
1327:
1328: -- import the Hdr node in Source Document
1321: l_childNode := dbms_xmldom.removeChild(l_esigNode,l_tmpnode);
1322: END LOOP;
1323: -- append Signature node into Header node
1324: if (dbms_xmldom.isNull(l_esigNode) = false) THEN
1325: l_tmpnode := dbms_xmldom.appendChild(l_ehdrNode,l_esigNode);
1326: END IF;
1327:
1328: -- import the Hdr node in Source Document
1329: l_childRootNode := dbms_xmldom.importNode(l_srcDoc,l_childRootNode,TRUE);
1325: l_tmpnode := dbms_xmldom.appendChild(l_ehdrNode,l_esigNode);
1326: END IF;
1327:
1328: -- import the Hdr node in Source Document
1329: l_childRootNode := dbms_xmldom.importNode(l_srcDoc,l_childRootNode,TRUE);
1330: -- append the HDR node in Source XML
1331: l_parentRootNode := dbms_xmldom.appendChild(dbms_xmldom.getParentNode(l_eleNode),l_childRootNode);
1332: if (dbms_xmldom.isNull(l_sigHDRDoc) = false) THEN
1333: dbms_xmldom.freeDocument(l_sigHDRDoc);
1327:
1328: -- import the Hdr node in Source Document
1329: l_childRootNode := dbms_xmldom.importNode(l_srcDoc,l_childRootNode,TRUE);
1330: -- append the HDR node in Source XML
1331: l_parentRootNode := dbms_xmldom.appendChild(dbms_xmldom.getParentNode(l_eleNode),l_childRootNode);
1332: if (dbms_xmldom.isNull(l_sigHDRDoc) = false) THEN
1333: dbms_xmldom.freeDocument(l_sigHDRDoc);
1334: End IF;
1335: END LOOP;
1328: -- import the Hdr node in Source Document
1329: l_childRootNode := dbms_xmldom.importNode(l_srcDoc,l_childRootNode,TRUE);
1330: -- append the HDR node in Source XML
1331: l_parentRootNode := dbms_xmldom.appendChild(dbms_xmldom.getParentNode(l_eleNode),l_childRootNode);
1332: if (dbms_xmldom.isNull(l_sigHDRDoc) = false) THEN
1333: dbms_xmldom.freeDocument(l_sigHDRDoc);
1334: End IF;
1335: END LOOP;
1336:
1329: l_childRootNode := dbms_xmldom.importNode(l_srcDoc,l_childRootNode,TRUE);
1330: -- append the HDR node in Source XML
1331: l_parentRootNode := dbms_xmldom.appendChild(dbms_xmldom.getParentNode(l_eleNode),l_childRootNode);
1332: if (dbms_xmldom.isNull(l_sigHDRDoc) = false) THEN
1333: dbms_xmldom.freeDocument(l_sigHDRDoc);
1334: End IF;
1335: END LOOP;
1336:
1337: X_FINAL_XML := l_result.extract('//INSTRUCTION_SET');
1334: End IF;
1335: END LOOP;
1336:
1337: X_FINAL_XML := l_result.extract('//INSTRUCTION_SET');
1338: if (dbms_xmldom.isNull(l_srcDoc) = false) THEN
1339: dbms_xmldom.freeDocument(l_srcDoc);
1340: End IF;
1341: EXCEPTION
1342: when DB_TO_XML_ERROR then
1335: END LOOP;
1336:
1337: X_FINAL_XML := l_result.extract('//INSTRUCTION_SET');
1338: if (dbms_xmldom.isNull(l_srcDoc) = false) THEN
1339: dbms_xmldom.freeDocument(l_srcDoc);
1340: End IF;
1341: EXCEPTION
1342: when DB_TO_XML_ERROR then
1343: FND_MESSAGE.SET_NAME('GMO','GMO_VALIDATE_XML_GEN_ERR');