1: PACKAGE BODY PSA_FA_INVOICE_DISTRIBUTIONS AS
2: /* $Header: PSAFATAB.pls 120.5.12010000.2 2009/04/17 05:33:44 gnrajago 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.5.12010000.2 2009/04/17 05:33:44 gnrajago 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.5.12010000.2 2009/04/17 05:33:44 gnrajago 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,
32: l_dist_line_num ap_invoice_distributions_all.distribution_line_number%type;
33:
34: TYPE var_cur IS REF CURSOR;
35: inv_dist_cur VAR_CUR;
36: -- ========================= FND LOG ===========================
37: l_full_path VARCHAR2(100) := g_path || 'update_assets_tracking_flag';
38: -- ========================= FND LOG ===========================
39:
40: BEGIN
34: TYPE var_cur IS REF CURSOR;
35: inv_dist_cur VAR_CUR;
36: -- ========================= FND LOG ===========================
37: l_full_path VARCHAR2(100) := g_path || 'update_assets_tracking_flag';
38: -- ========================= FND LOG ===========================
39:
40: BEGIN
41: l_from_gl_date := to_date(substr(p_from_gl_date,1,10),'YYYY/MM/DD');
42: l_to_gl_date := to_date(substr(p_to_gl_date,1,10) ,'YYYY/MM/DD');
65: END IF;
66:
67: p_inv_dist := p_inv_dist||' AND '||p_where_clause||' ORDER BY invoice_id';
68:
69: -- ========================= FND LOG ===========================
70: psa_utils.debug_other_string(g_state_level,
71: l_full_path,
72: 'Select statement used for fetching invoice distributions');
73: psa_utils.debug_other_string(g_state_level,l_full_path,p_inv_dist);
70: psa_utils.debug_other_string(g_state_level,
71: l_full_path,
72: 'Select statement used for fetching invoice distributions');
73: psa_utils.debug_other_string(g_state_level,l_full_path,p_inv_dist);
74: -- ========================= FND LOG ===========================
75:
76: PRINT_HEADER_INFO (l_from_gl_date, l_to_gl_date, p_from_account, p_to_account);
77:
78: IF p_from_gl_date IS NOT NULL THEN