1: PACKAGE BODY AP_AUTOSELECT_PKG AS
2: /* $Header: appbselb.pls 120.53.12010000.10 2009/02/19 13:11:05 udhenuko ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AP_AUTOSELECT_PKG';
5: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
1: PACKAGE BODY AP_AUTOSELECT_PKG AS
2: /* $Header: appbselb.pls 120.53.12010000.10 2009/02/19 13:11:05 udhenuko ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AP_AUTOSELECT_PKG';
5: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
6: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
7: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
8: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
16: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
17: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
18: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
19: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
20: G_MODULE_NAME CONSTANT VARCHAR2(80) := 'AP.PLSQL.AP_AUTOSELECT_PKG';
21:
22:
23: --Bug6459578
24:
4126: --4676790, since this code runs as a concurrent request the calling
4127: --code should update the status.
4128:
4129:
4130: l_current_calling_sequence := 'ap_autoselect_pkg.recalculate';
4131: l_debug_info:= 'delete interest invoices';
4132:
4133:
4134: delete from ap_selected_invoices_all
4569: l_return_status varchar2(1);
4570:
4571: begin
4572:
4573: l_current_calling_sequence := 'ap_autoselect_pkg.cancel_batch';
4574:
4575: select checkrun_name
4576: into l_checkrun_name
4577: from ap_inv_selection_criteria_all
4669: l_debug_info varchar2(200);
4670:
4671: begin
4672:
4673: l_current_calling_sequence := 'ap_autoselect_pkg.selection_criteria_report';
4674: l_debug_info:= 'select from ap_inv_selection_criteria_all';
4675:
4676: fnd_file.put_line(fnd_file.output, '
4677:
4787:
4788:
4789:
4790:
4791: END AP_AUTOSELECT_PKG;