191: WHEN bad_input_period THEN
192: IF (l_debug = 1) THEN
193: inv_trx_util_pub.TRACE(' Accounting Period is open. Please check the cut-off date ' || l_cut_off_date);
194: END IF;
195: RAISE fnd_api.g_exc_error;
196:
197: WHEN OTHERS THEN
198: IF (l_debug = 1) THEN
199: inv_trx_util_pub.TRACE(' Exception in open period check: ' || SQLERRM);
197: WHEN OTHERS THEN
198: IF (l_debug = 1) THEN
199: inv_trx_util_pub.TRACE(' Exception in open period check: ' || SQLERRM);
200: END IF;
201: RAISE fnd_api.g_exc_unexpected_error;
202: END;
203:
204:
205:
345: IF DBMS_SQL.IS_OPEN(cursor_name) THEN
346: DBMS_SQL.CLOSE_CURSOR(cursor_name);
347: END IF;
348:
349: RAISE fnd_api.g_exc_error;
350: END;
351:
352:
353:
492: IF DBMS_SQL.IS_OPEN(cursor_name) THEN
493: DBMS_SQL.CLOSE_CURSOR(cursor_name);
494: END IF;
495:
496: RAISE fnd_api.g_exc_error;
497: END;
498:
499:
500:
639: IF DBMS_SQL.IS_OPEN(cursor_name) THEN
640: DBMS_SQL.CLOSE_CURSOR(cursor_name);
641: END IF;
642:
643: RAISE fnd_api.g_exc_error;
644: END;
645:
646:
647:
786: IF DBMS_SQL.IS_OPEN(cursor_name) THEN
787: DBMS_SQL.CLOSE_CURSOR(cursor_name);
788: END IF;
789:
790: RAISE fnd_api.g_exc_error;
791: END;
792:
793:
794:
951: IF DBMS_SQL.IS_OPEN(cursor_name) THEN
952: DBMS_SQL.CLOSE_CURSOR(cursor_name);
953: END IF;
954:
955: RAISE fnd_api.g_exc_error;
956: END;
957:
958: --return sucess
959: l_ret_msg := fnd_concurrent.set_completion_status('NORMAL', 'NORMAL');
963: inv_trx_util_pub.TRACE('High Volume Transactions Purge completed sucessfully');
964:
965: EXCEPTION
966:
967: WHEN fnd_api.g_exc_error THEN
968: error := SQLERRM;
969: IF (l_debug = 1) THEN
970: inv_trx_util_pub.TRACE('The error is '|| error, 'INVHVPG', 9);
971: END IF;
991: END IF;
992:
993: l_ret_msg := fnd_concurrent.set_completion_status('ERROR', 'ERROR');
994: x_retcode := retcode_error;
995: x_errbuf := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
996:
997: WHEN fnd_api.g_exc_unexpected_error THEN
998: error := SQLERRM;
999: IF (l_debug = 1) THEN
993: l_ret_msg := fnd_concurrent.set_completion_status('ERROR', 'ERROR');
994: x_retcode := retcode_error;
995: x_errbuf := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
996:
997: WHEN fnd_api.g_exc_unexpected_error THEN
998: error := SQLERRM;
999: IF (l_debug = 1) THEN
1000: inv_trx_util_pub.TRACE('The error is '|| error, 'INVHVPG', 9);
1001: END IF;
1021: END IF;
1022:
1023: l_ret_msg := fnd_concurrent.set_completion_status('ERROR', 'ERROR');
1024: x_retcode := retcode_error;
1025: x_errbuf := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
1026:
1027: WHEN OTHERS THEN
1028: error := SQLERRM;
1029: IF (l_debug = 1) THEN
1051: END IF;
1052:
1053: l_ret_msg := fnd_concurrent.set_completion_status('ERROR', 'ERROR');
1054: x_retcode := retcode_error;
1055: x_errbuf := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
1056:
1057: END Txn_Purge;
1058:
1059: END INV_HV_TXN_PURGE;