42: ,retcode OUT NOCOPY NUMBER
43: ,p_business_group_id varchar2
44: , p_reporting_year number) is
45:
46: qryCtx DBMS_XMLGEN.ctxHandle;
47: l_result CLOB;
48: -- Commented for bug#11736960
49: --l_query varchar2(10000);
50: l_report_date date;
251: Commneted for bug#11736960 ends */
252:
253: -- Added for bug#12570805
254: FND_FILE.PUT_LINE(FND_FILE.LOG,l_query3);
255: qryCtx := dbms_xmlgen.newContext (l_query3);
256:
257: l_xml_string := '';
258: FND_FILE.PUT_LINE(FND_FILE.LOG,l_xml_string);
259: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_xml_string);
262: FND_FILE.PUT_LINE(FND_FILE.LOG,l_xml_string);
263: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_xml_string);
264:
265: --Load 5 records at a time
266: DBMS_XMLGEN.setMaxRows(qryCtx, 5);
267: LOOP
268: --save the XML into the CLOB field
269: l_result := DBMS_XMLGEN.getXML(qryCtx);
270: l_xml_string := substr( l_result, instr(l_result,'
265: --Load 5 records at a time
266: DBMS_XMLGEN.setMaxRows(qryCtx, 5);
267: LOOP
268: --save the XML into the CLOB field
269: l_result := DBMS_XMLGEN.getXML(qryCtx);
270: l_xml_string := substr( l_result, instr(l_result,'
271: --insert into tab_clob values (to_char(l_xml_string));
272: EXIT WHEN DBMS_XMLGEN.getNumRowsProcessed(qryCtx) = 0;
273: FND_FILE.PUT_LINE(FND_FILE.LOG,l_xml_string);
268: --save the XML into the CLOB field
269: l_result := DBMS_XMLGEN.getXML(qryCtx);
270: l_xml_string := substr( l_result, instr(l_result,'
271: --insert into tab_clob values (to_char(l_xml_string));
272: EXIT WHEN DBMS_XMLGEN.getNumRowsProcessed(qryCtx) = 0;
273: FND_FILE.PUT_LINE(FND_FILE.LOG,l_xml_string);
274: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_xml_string);
275:
276: END LOOP;
276: END LOOP;
277:
278: -- Added for bug#12570805
279: FND_FILE.PUT_LINE(FND_FILE.LOG,l_query4);
280: qryCtx := dbms_xmlgen.newContext (l_query4);
281:
282: --Load 5 records at a time
283: DBMS_XMLGEN.setMaxRows(qryCtx, 5);
284: LOOP
279: FND_FILE.PUT_LINE(FND_FILE.LOG,l_query4);
280: qryCtx := dbms_xmlgen.newContext (l_query4);
281:
282: --Load 5 records at a time
283: DBMS_XMLGEN.setMaxRows(qryCtx, 5);
284: LOOP
285: --save the XML into the CLOB field
286: l_result := DBMS_XMLGEN.getXML(qryCtx);
287: l_xml_string := substr( l_result, instr(l_result,'
282: --Load 5 records at a time
283: DBMS_XMLGEN.setMaxRows(qryCtx, 5);
284: LOOP
285: --save the XML into the CLOB field
286: l_result := DBMS_XMLGEN.getXML(qryCtx);
287: l_xml_string := substr( l_result, instr(l_result,'
288: --insert into tab_clob values (to_char(l_xml_string));
289: EXIT WHEN DBMS_XMLGEN.getNumRowsProcessed(qryCtx) = 0;
290: FND_FILE.PUT_LINE(FND_FILE.LOG,l_xml_string);
285: --save the XML into the CLOB field
286: l_result := DBMS_XMLGEN.getXML(qryCtx);
287: l_xml_string := substr( l_result, instr(l_result,'
288: --insert into tab_clob values (to_char(l_xml_string));
289: EXIT WHEN DBMS_XMLGEN.getNumRowsProcessed(qryCtx) = 0;
290: FND_FILE.PUT_LINE(FND_FILE.LOG,l_xml_string);
291: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_xml_string);
292:
293: END LOOP;
296: FND_FILE.PUT_LINE(FND_FILE.LOG,l_query1);
297: --FND_FILE.PUT_LINE(FND_FILE.LOG,l_query);
298:
299: -- Added for bug#11736960
300: qryCtx := dbms_xmlgen.newContext (l_query1);
301: --qryCtx := dbms_xmlgen.newContext (l_query);
302:
303: --Load 5 records at a time
304: DBMS_XMLGEN.setMaxRows(qryCtx, 5);
297: --FND_FILE.PUT_LINE(FND_FILE.LOG,l_query);
298:
299: -- Added for bug#11736960
300: qryCtx := dbms_xmlgen.newContext (l_query1);
301: --qryCtx := dbms_xmlgen.newContext (l_query);
302:
303: --Load 5 records at a time
304: DBMS_XMLGEN.setMaxRows(qryCtx, 5);
305: LOOP
300: qryCtx := dbms_xmlgen.newContext (l_query1);
301: --qryCtx := dbms_xmlgen.newContext (l_query);
302:
303: --Load 5 records at a time
304: DBMS_XMLGEN.setMaxRows(qryCtx, 5);
305: LOOP
306: --save the XML into the CLOB field
307: l_result := DBMS_XMLGEN.getXML(qryCtx);
308: l_xml_string := substr( l_result, instr(l_result,'
303: --Load 5 records at a time
304: DBMS_XMLGEN.setMaxRows(qryCtx, 5);
305: LOOP
306: --save the XML into the CLOB field
307: l_result := DBMS_XMLGEN.getXML(qryCtx);
308: l_xml_string := substr( l_result, instr(l_result,'
309: --insert into tab_clob values (to_char(l_xml_string));
310: EXIT WHEN DBMS_XMLGEN.getNumRowsProcessed(qryCtx) = 0;
311: FND_FILE.PUT_LINE(FND_FILE.LOG,l_xml_string);
306: --save the XML into the CLOB field
307: l_result := DBMS_XMLGEN.getXML(qryCtx);
308: l_xml_string := substr( l_result, instr(l_result,'
309: --insert into tab_clob values (to_char(l_xml_string));
310: EXIT WHEN DBMS_XMLGEN.getNumRowsProcessed(qryCtx) = 0;
311: FND_FILE.PUT_LINE(FND_FILE.LOG,l_xml_string);
312: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_xml_string);
313:
314: END LOOP;
315:
316: -- Added for bug#11736960
317: FND_FILE.PUT_LINE(FND_FILE.LOG,l_query2);
318:
319: qryCtx := dbms_xmlgen.newContext (l_query2);
320:
321: --Load 5 records at a time
322: DBMS_XMLGEN.setMaxRows(qryCtx, 5);
323: LOOP
318:
319: qryCtx := dbms_xmlgen.newContext (l_query2);
320:
321: --Load 5 records at a time
322: DBMS_XMLGEN.setMaxRows(qryCtx, 5);
323: LOOP
324: --save the XML into the CLOB field
325: l_result := DBMS_XMLGEN.getXML(qryCtx);
326: l_xml_string := substr( l_result, instr(l_result,'
321: --Load 5 records at a time
322: DBMS_XMLGEN.setMaxRows(qryCtx, 5);
323: LOOP
324: --save the XML into the CLOB field
325: l_result := DBMS_XMLGEN.getXML(qryCtx);
326: l_xml_string := substr( l_result, instr(l_result,'
327: --insert into tab_clob values (to_char(l_xml_string));
328: EXIT WHEN DBMS_XMLGEN.getNumRowsProcessed(qryCtx) = 0;
329: FND_FILE.PUT_LINE(FND_FILE.LOG,l_xml_string);
324: --save the XML into the CLOB field
325: l_result := DBMS_XMLGEN.getXML(qryCtx);
326: l_xml_string := substr( l_result, instr(l_result,'
327: --insert into tab_clob values (to_char(l_xml_string));
328: EXIT WHEN DBMS_XMLGEN.getNumRowsProcessed(qryCtx) = 0;
329: FND_FILE.PUT_LINE(FND_FILE.LOG,l_xml_string);
330: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_xml_string);
331:
332: END LOOP;