1: PACKAGE BODY PSA_FA_INVOICE_DISTRIBUTIONS AS
2: /* $Header: PSAFATAB.pls 120.4.12000000.2 2007/07/31 15:26:39 nisgupta ship $ */
3:
4: --===========================FND_LOG.START=====================================
5: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
6: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
8: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
1: PACKAGE BODY PSA_FA_INVOICE_DISTRIBUTIONS AS
2: /* $Header: PSAFATAB.pls 120.4.12000000.2 2007/07/31 15:26:39 nisgupta ship $ */
3:
4: --===========================FND_LOG.START=====================================
5: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
6: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
8: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
2: /* $Header: PSAFATAB.pls 120.4.12000000.2 2007/07/31 15:26:39 nisgupta ship $ */
3:
4: --===========================FND_LOG.START=====================================
5: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
6: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
8: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
10: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
3:
4: --===========================FND_LOG.START=====================================
5: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
6: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
8: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
10: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
11: g_path VARCHAR2(50) := 'PSA.PLSQL.PSAFATAB.PSA_FA_INVOICE_DISTRIBUTIONS.';
4: --===========================FND_LOG.START=====================================
5: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
6: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
8: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
10: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
11: g_path VARCHAR2(50) := 'PSA.PLSQL.PSAFATAB.PSA_FA_INVOICE_DISTRIBUTIONS.';
12: --===========================FND_LOG.END=======================================
5: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
6: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
8: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
10: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
11: g_path VARCHAR2(50) := 'PSA.PLSQL.PSAFATAB.PSA_FA_INVOICE_DISTRIBUTIONS.';
12: --===========================FND_LOG.END=======================================
13:
6: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
8: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
10: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
11: g_path VARCHAR2(50) := 'PSA.PLSQL.PSAFATAB.PSA_FA_INVOICE_DISTRIBUTIONS.';
12: --===========================FND_LOG.END=======================================
13:
14: PROCEDURE update_assets_tracking_flag
8: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
10: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
11: g_path VARCHAR2(50) := 'PSA.PLSQL.PSAFATAB.PSA_FA_INVOICE_DISTRIBUTIONS.';
12: --===========================FND_LOG.END=======================================
13:
14: PROCEDURE update_assets_tracking_flag
15: (err_buf OUT NOCOPY VARCHAR2,
16: ret_code OUT NOCOPY VARCHAR2,
30: l_dist_line_num ap_invoice_distributions_all.distribution_line_number%type;
31:
32: TYPE var_cur IS REF CURSOR;
33: inv_dist_cur VAR_CUR;
34: -- ========================= FND LOG ===========================
35: l_full_path VARCHAR2(100) := g_path || 'update_assets_tracking_flag';
36: -- ========================= FND LOG ===========================
37:
38: BEGIN
32: TYPE var_cur IS REF CURSOR;
33: inv_dist_cur VAR_CUR;
34: -- ========================= FND LOG ===========================
35: l_full_path VARCHAR2(100) := g_path || 'update_assets_tracking_flag';
36: -- ========================= FND LOG ===========================
37:
38: BEGIN
39: p_where_clause := fa_rx_flex_pkg.flex_sql
40: (101, 'GL#', p_chart_of_accounts, 'CC', 'WHERE', 'ALL','BETWEEN', p_from_account, p_to_account);
60: END IF;
61:
62: p_inv_dist := p_inv_dist||' AND '||p_where_clause||' ORDER BY invoice_id';
63:
64: -- ========================= FND LOG ===========================
65: psa_utils.debug_other_string(g_state_level,
66: l_full_path,
67: 'Select statement used for fetching invoice distributions');
68: psa_utils.debug_other_string(g_state_level,l_full_path,p_inv_dist);
65: psa_utils.debug_other_string(g_state_level,
66: l_full_path,
67: 'Select statement used for fetching invoice distributions');
68: psa_utils.debug_other_string(g_state_level,l_full_path,p_inv_dist);
69: -- ========================= FND LOG ===========================
70:
71: PRINT_HEADER_INFO (p_from_gl_date, p_to_gl_date, p_from_account, p_to_account);
72:
73: IF p_from_gl_date IS NOT NULL THEN