363:
364: END IF;
365:
366: COMMIT;
367: fnd_file.put_line(FND_FILE.LOG,'Purging Pricing Engine Requests completed successfully');
368: err_buff := 'Purging Pricing Engine Requests completed successfully';
369: retcode := 0;
370:
371:
371:
372: EXCEPTION
373: WHEN NO_DATA_FOUND THEN
374: retcode := 1;
375: --fnd_file.put_line(FND_FILE.LOG,substr(sqlerrm,1,300));
376: --fnd_file.put_line(FND_FILE.LOG,sqlcode);
377: --err_buff := substr(sqlerrm,1,240);
378: fnd_file.put_line(FND_FILE.LOG,'No Data Found - 0 Records Deleted');
379: err_buff := 'No Data Found - 0 Records Deleted';
372: EXCEPTION
373: WHEN NO_DATA_FOUND THEN
374: retcode := 1;
375: --fnd_file.put_line(FND_FILE.LOG,substr(sqlerrm,1,300));
376: --fnd_file.put_line(FND_FILE.LOG,sqlcode);
377: --err_buff := substr(sqlerrm,1,240);
378: fnd_file.put_line(FND_FILE.LOG,'No Data Found - 0 Records Deleted');
379: err_buff := 'No Data Found - 0 Records Deleted';
380:
374: retcode := 1;
375: --fnd_file.put_line(FND_FILE.LOG,substr(sqlerrm,1,300));
376: --fnd_file.put_line(FND_FILE.LOG,sqlcode);
377: --err_buff := substr(sqlerrm,1,240);
378: fnd_file.put_line(FND_FILE.LOG,'No Data Found - 0 Records Deleted');
379: err_buff := 'No Data Found - 0 Records Deleted';
380:
381: WHEN OTHERS THEN
382: retcode := 2;
379: err_buff := 'No Data Found - 0 Records Deleted';
380:
381: WHEN OTHERS THEN
382: retcode := 2;
383: fnd_file.put_line(FND_FILE.LOG,substr(sqlerrm,1,300));
384: fnd_file.put_line(FND_FILE.LOG,sqlcode);
385: err_buff := substr(sqlerrm,1,240);
386: RAISE;
387:
380:
381: WHEN OTHERS THEN
382: retcode := 2;
383: fnd_file.put_line(FND_FILE.LOG,substr(sqlerrm,1,300));
384: fnd_file.put_line(FND_FILE.LOG,sqlcode);
385: err_buff := substr(sqlerrm,1,240);
386: RAISE;
387:
388: END Purge;