1: PACKAGE BODY PSA_FA_MASS_ADDITIONS AS
2: /* $Header: PSAFAUCB.pls 120.4.12020000.3 2013/02/12 07:11:06 yanasing 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_MASS_ADDITIONS AS
2: /* $Header: PSAFAUCB.pls 120.4.12020000.3 2013/02/12 07:11:06 yanasing 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: PSAFAUCB.pls 120.4.12020000.3 2013/02/12 07:11:06 yanasing 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.PSAFAUCB.PSA_FA_MASS_ADDITIONS.';
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.PSAFAUCB.PSA_FA_MASS_ADDITIONS.';
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.PSAFAUCB.PSA_FA_MASS_ADDITIONS.';
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.PSAFAUCB.PSA_FA_MASS_ADDITIONS.';
12: --===========================FND_LOG.END=======================================
13:
14: PROCEDURE update_asset_type
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.PSAFAUCB.PSA_FA_MASS_ADDITIONS.';
12: --===========================FND_LOG.END=======================================
13:
14: PROCEDURE update_asset_type
15: (err_buf OUT NOCOPY VARCHAR2,
16: ret_code OUT NOCOPY VARCHAR2,
29: l_mass_addition_id NUMBER;
30:
31: TYPE var_cur IS REF CURSOR;
32: mass_add_cur VAR_CUR;
33: -- ========================= FND LOG ===========================
34: l_full_path VARCHAR2(100) := g_path || 'update_asset_type';
35: -- ========================= FND LOG ===========================
36:
37: BEGIN
31: TYPE var_cur IS REF CURSOR;
32: mass_add_cur VAR_CUR;
33: -- ========================= FND LOG ===========================
34: l_full_path VARCHAR2(100) := g_path || 'update_asset_type';
35: -- ========================= FND LOG ===========================
36:
37: BEGIN
38: PRINT_HEADER_INFO (p_asset_book, p_capital_acct_from, p_capital_acct_to, p_cip_acct_from, p_cip_acct_to);
39:
48: ' AND book_type_code = :p_asset_book';
49:
50: p_mass_add_capital_stmt := p_mass_add_query || ' AND ' || p_where_clause;
51:
52: -- ========================= FND LOG ===========================
53: psa_utils.debug_other_string(g_state_level,
54: l_full_path,
55: 'Select statement used for fetching mass additions (Capitalized)');
56: psa_utils.debug_other_string(g_state_level,l_full_path,p_mass_add_capital_stmt);
53: psa_utils.debug_other_string(g_state_level,
54: l_full_path,
55: 'Select statement used for fetching mass additions (Capitalized)');
56: psa_utils.debug_other_string(g_state_level,l_full_path,p_mass_add_capital_stmt);
57: -- ========================= FND LOG ===========================
58:
59: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Updating asset type for mass additions (Capitalized)');
60: PRINT_REPORT_HEADER;
61:
82: p_mass_add_cip_stmt := p_mass_add_query || ' AND ' || p_where_clause;
83:
84: FND_FILE.NEW_LINE (FND_FILE.LOG, 1);
85: FND_FILE.NEW_LINE (FND_FILE.OUTPUT, 1);
86: -- ========================= FND LOG ===========================
87: psa_utils.debug_other_string(g_state_level,
88: l_full_path,
89: 'Select statement used for fetching mass additions (CIP)');
90: psa_utils.debug_other_string(g_state_level,l_full_path, p_mass_add_cip_stmt);
87: psa_utils.debug_other_string(g_state_level,
88: l_full_path,
89: 'Select statement used for fetching mass additions (CIP)');
90: psa_utils.debug_other_string(g_state_level,l_full_path, p_mass_add_cip_stmt);
91: -- ========================= FND LOG ===========================
92:
93: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,
94: 'Updating asset type for mass additions (CIP)');
95: PRINT_REPORT_HEADER;