169: trace(l_proc || ' Eligible records not found for Archiving for date range provided... ');
170: end if;
171:
172: close c_get_total_eligible_recs;
173: raise fnd_api.g_exc_error;
174: --return;
175: elsif l_total_record_count > 0 then
176: if (l_debug = 1) then
177: trace(l_proc || ' l_total_record_count => '|| nvl(l_total_record_count, -99));
381:
382: x_retcode := 0;
383: x_errbuf := 'Success';
384: exception
385: when fnd_api.g_exc_error then
386: if (l_debug = 1) then
387: trace(l_proc || ' fnd_api.g_exc_error :' || sqlcode);
388: trace(l_proc || ' fnd_api.g_exc_error :' || substr(sqlerrm, 1, 100));
389: end if;
383: x_errbuf := 'Success';
384: exception
385: when fnd_api.g_exc_error then
386: if (l_debug = 1) then
387: trace(l_proc || ' fnd_api.g_exc_error :' || sqlcode);
388: trace(l_proc || ' fnd_api.g_exc_error :' || substr(sqlerrm, 1, 100));
389: end if;
390:
391: if c_get_total_eligible_recs%ISOPEN then
384: exception
385: when fnd_api.g_exc_error then
386: if (l_debug = 1) then
387: trace(l_proc || ' fnd_api.g_exc_error :' || sqlcode);
388: trace(l_proc || ' fnd_api.g_exc_error :' || substr(sqlerrm, 1, 100));
389: end if;
390:
391: if c_get_total_eligible_recs%ISOPEN then
392: close c_get_total_eligible_recs;
510: if l_max_date < l_min_date then
511: if (l_debug = 1) then
512: trace(l_proc || 'To date cannot be less than From date');
513: end if;
514: raise fnd_api.g_exc_error;
515: end if;
516:
517: -- @@@ Insert section.
518: -- @@@ Insert records from the wms_dispatched_tasks_history into wms_dispatched_tasks_arch
1133:
1134: x_retcode := 0;
1135: x_errbuf := 'Success';
1136: exception
1137: when fnd_api.g_exc_error then
1138: if (l_debug = 1) then
1139: trace(l_proc || ' fnd_api.g_exc_error :' || sqlcode);
1140: trace(l_proc || ' fnd_api.g_exc_error :' || substr(sqlerrm, 1, 100));
1141: end if;
1135: x_errbuf := 'Success';
1136: exception
1137: when fnd_api.g_exc_error then
1138: if (l_debug = 1) then
1139: trace(l_proc || ' fnd_api.g_exc_error :' || sqlcode);
1140: trace(l_proc || ' fnd_api.g_exc_error :' || substr(sqlerrm, 1, 100));
1141: end if;
1142:
1143: rollback to archiving_task_savepoint;
1136: exception
1137: when fnd_api.g_exc_error then
1138: if (l_debug = 1) then
1139: trace(l_proc || ' fnd_api.g_exc_error :' || sqlcode);
1140: trace(l_proc || ' fnd_api.g_exc_error :' || substr(sqlerrm, 1, 100));
1141: end if;
1142:
1143: rollback to archiving_task_savepoint;
1144: x_retcode := 2;
1277: if (l_max_date < l_min_date) then
1278: if (l_debug = 1) then
1279: trace(l_proc || 'To date cannot be less than From date', 9);
1280: end if;
1281: raise fnd_api.g_exc_error;
1282: end if;
1283:
1284: if (l_debug = 1) then
1285: trace(l_proc || ' After validating date...');
1303: trace(l_proc || ' Eligible records not found for Unarchiving for date range provided... ');
1304: end if;
1305:
1306: close c_get_total_eligible_recs;
1307: raise fnd_api.g_exc_error;
1308: --return;
1309: elsif l_total_record_count > 0 then
1310: if (l_debug = 1) then
1311: trace(l_proc || ' l_total_record_count => '|| nvl(l_total_record_count, -99));
1683:
1684: x_retcode := 0;
1685: x_errbuf := 'Success';
1686: exception
1687: when fnd_api.g_exc_error then
1688: if (l_debug = 1) then
1689: trace(l_proc || ' fnd_api.g_exc_error :' || sqlcode);
1690: trace(l_proc || ' fnd_api.g_exc_error :' || substr(sqlerrm, 1, 100));
1691: end if;
1685: x_errbuf := 'Success';
1686: exception
1687: when fnd_api.g_exc_error then
1688: if (l_debug = 1) then
1689: trace(l_proc || ' fnd_api.g_exc_error :' || sqlcode);
1690: trace(l_proc || ' fnd_api.g_exc_error :' || substr(sqlerrm, 1, 100));
1691: end if;
1692:
1693: if c_get_total_eligible_recs%ISOPEN then
1686: exception
1687: when fnd_api.g_exc_error then
1688: if (l_debug = 1) then
1689: trace(l_proc || ' fnd_api.g_exc_error :' || sqlcode);
1690: trace(l_proc || ' fnd_api.g_exc_error :' || substr(sqlerrm, 1, 100));
1691: end if;
1692:
1693: if c_get_total_eligible_recs%ISOPEN then
1694: close c_get_total_eligible_recs;
1822: if (l_max_date < l_min_date) then
1823: if (l_debug = 1) then
1824: trace(l_proc || 'To date cannot be less than From date', 9);
1825: end if;
1826: raise fnd_api.g_exc_error;
1827: end if;
1828:
1829: -- @@@ Insert section.
1830: -- @@@ Insert records from the wms_dispatched_tasks_arch into wms_dispatched_tasks_history
2233:
2234: x_retcode := 0;
2235: x_errbuf := 'Success';
2236: exception
2237: when fnd_api.g_exc_error then
2238: if (l_debug = 1) then
2239: trace(l_proc || ' fnd_api.g_exc_error :' || sqlcode);
2240: trace(l_proc || ' fnd_api.g_exc_error :' || substr(sqlerrm, 1, 100));
2241: end if;
2235: x_errbuf := 'Success';
2236: exception
2237: when fnd_api.g_exc_error then
2238: if (l_debug = 1) then
2239: trace(l_proc || ' fnd_api.g_exc_error :' || sqlcode);
2240: trace(l_proc || ' fnd_api.g_exc_error :' || substr(sqlerrm, 1, 100));
2241: end if;
2242:
2243: rollback to unarch_task_worker_savepoint;
2236: exception
2237: when fnd_api.g_exc_error then
2238: if (l_debug = 1) then
2239: trace(l_proc || ' fnd_api.g_exc_error :' || sqlcode);
2240: trace(l_proc || ' fnd_api.g_exc_error :' || substr(sqlerrm, 1, 100));
2241: end if;
2242:
2243: rollback to unarch_task_worker_savepoint;
2244: