[Home] [Help]
1: PACKAGE BODY AP_FUNDS_CONTROL_PKG AS
2: /* $Header: aprfundb.pls 120.58 2011/10/21 12:00:21 rseeta ship $ */
3:
4: -- Logging Infra
5: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
10: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
11: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
12: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
13: G_MODULE_NAME CONSTANT VARCHAR2(50) := 'AP.PLSQL.AP_FUNDS_CONTROL_PKG.';
14: G_LEVEL_LOG_DISABLED CONSTANT NUMBER := 99;
15: --1-STATEMENT, 2-PROCEDURE, 3-EVENT, 4-EXCEPTION, 5-ERROR, 6-UNEXPECTED
16:
17: g_log_level NUMBER;
187: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
188: l_procedure_name, l_log_msg);
189: END IF;
190:
191: l_curr_calling_sequence := 'AP_FUNDS_CONTROL_PKG.'||'<-'||p_calling_sequence;
192:
193: SELECT org_id
194: INTO l_org_id
195: FROM ap_invoices_all
406: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
407:
408: BEGIN
409:
410: l_curr_calling_sequence := 'AP_FUNDS_CONTROL_PKG.'||
411: '<-'||p_calling_sequence;
412:
413: /*-----------------------------------------------------------------+
414: | Step 1 - Set the override mode for funds reserve |
540: BEGIN
541:
542: -- Update the calling sequence --
543:
544: l_curr_calling_sequence := 'AP_FUNDS_CONTROL_PKG.'||l_procedure_name||
545: '<-'||p_calling_sequence;
546:
547: /*----------------------------------------------------------------+
548: | Retrieving system parameters for fundschecker |
976: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
977:
978:
979: BEGIN
980: l_curr_calling_sequence := 'AP_FUNDS_CONTROL_PKG.'||l_debug_loc||
981: '<-'||p_calling_sequence;
982:
983: -- Logging Infra: Procedure level
984: IF (G_LEVEL_PROCEDURE >= g_log_level ) THEN
1780:
1781: BEGIN
1782:
1783: -- Update the calling sequence --
1784: l_curr_calling_sequence := 'AP_FUNDS_CONTROL_PKG.'||l_debug_loc||
1785: '<-'||p_calling_sequence;
1786:
1787:
1788: /*-----------------------------------------------------------------+
1986: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
1987: l_procedure_name, l_log_msg);
1988: END IF;
1989:
1990: l_curr_calling_sequence := 'AP_FUNDS_CONTROL_PKG.'||l_debug_loc||
1991: '<-'||p_calling_sequence;
1992:
1993: -----------------------------------------------------------------------
1994: -- new_qty_variance = (inv_qty - po_qty)*po_price - qty_variance --
2393: BEGIN
2394:
2395: -- Update the calling sequence --
2396:
2397: l_curr_calling_sequence := 'AP_FUNDS_CONTROL_PKG.'||l_debug_loc||
2398: '<-'||p_calling_sequence;
2399:
2400: -- Logging Infra: Procedure level
2401: IF (G_LEVEL_PROCEDURE >= g_log_level ) THEN
2876: BEGIN
2877:
2878: -- Update the calling sequence --
2879:
2880: l_curr_calling_sequence := 'AP_FUNDS_CONTROL_PKG.'||l_debug_loc||
2881: '<-'||p_calling_sequence;
2882:
2883: -- Logging Infra: Procedure level
2884: IF (G_LEVEL_PROCEDURE >= g_log_level ) THEN
3567: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3568: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3569: END IF;
3570:
3571: ap_funds_control_pkg.funds_check(
3572: p_invoice_id => p_invoice_id,
3573: p_inv_line_num => p_invoice_line_number,
3574: p_dist_line_num => p_dist_line_num,
3575: p_return_message_name => l_return_message_name,
3607: IF NOT g_log_enabled THEN
3608: g_log_level := G_LEVEL_LOG_DISABLED;
3609: END IF;
3610:
3611: END AP_FUNDS_CONTROL_PKG;
3612:
3613: