[Home] [Help]
63: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level) THEN
64: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'fun.plsql.fun_bal_pkg.truncate_tables', 'begin');
65: END IF;
66:
67: DELETE FROM fun_bal_results_gt;
68: DELETE FROM fun_bal_errors_gt;
69: DELETE FROM fun_bal_le_bsv_map_gt;
70: DELETE FROM fun_bal_inter_int_gt;
71: DELETE FROM fun_bal_intra_int_gt;
74: like to make sure the calling program does not see the rows that gets deleted, therefore truncate is not used.
75: In addition, the truncate operation might not be able to delete the rows that the calling program has not commited yet,
76: which could result in that we think the rows got deleted but they still exist.
77: cur_hdl := dbms_sql.open_cursor;
78: dbms_sql.parse(cur_hdl, 'TRUNCATE TABLE ' || g_fun_schema || '.FUN_BAL_RESULTS_GT', dbms_sql.native);
79: dbms_sql.parse(cur_hdl, 'TRUNCATE TABLE ' || g_fun_schema || '.FUN_BAL_ERRORS_GT', dbms_sql.native);
80: dbms_sql.parse(cur_hdl, 'TRUNCATE TABLE ' || g_fun_schema || '.FUN_BAL_LE_BSV_MAP_GT', dbms_sql.native);
81: dbms_sql.parse(cur_hdl, 'TRUNCATE TABLE ' || g_fun_schema || '.FUN_BAL_INTER_INT_GT', dbms_sql.native);
82: dbms_sql.parse(cur_hdl, 'TRUNCATE TABLE ' || g_fun_schema || '.FUN_BAL_INTRA_INT_GT', dbms_sql.native);
507: SELECT * FROM fun_bal_headers_gt;
508: INSERT INTO fun_bal_lines_t
509: SELECT * FROM fun_bal_lines_gt;
510: INSERT INTO fun_bal_results_t
511: SELECT * FROM fun_bal_results_gt;
512: INSERT INTO fun_bal_errors_t
513: SELECT * FROM fun_bal_errors_gt;
514: */
515: COMMIT;
661: SELECT * FROM fun_bal_headers_gt;
662: CURSOR l_lines_cursor IS
663: SELECT * FROM fun_bal_lines_gt;
664: CURSOR l_results_cursor IS
665: SELECT * FROM fun_bal_results_gt;
666: CURSOR l_errors_cursor IS
667: SELECT * FROM fun_bal_errors_gt;
668: BEGIN
669: l_return_val := FND_API.G_RET_STS_SUCCESS;
671: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level) THEN
672: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'fun.plsql.fun_bal_pkg.do_finalize.begin', 'begin');
673: END IF;
674:
675: -- Insert lines generated for Intercompany balancing from FUN_BAL_LINES_GT to FUN_BAL_RESULTS_GT
676: INSERT INTO fun_bal_results_gt results(group_id, bal_seg_val, entered_amt_dr,
677: entered_amt_cr, entered_currency_code, exchange_date, exchange_rate, exchange_rate_type,
678: accounted_amt_dr, accounted_amt_cr, ccid, balancing_type)
679: SELECT lines.group_id, lines.bal_seg_val, lines.entered_amt_dr,
672: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'fun.plsql.fun_bal_pkg.do_finalize.begin', 'begin');
673: END IF;
674:
675: -- Insert lines generated for Intercompany balancing from FUN_BAL_LINES_GT to FUN_BAL_RESULTS_GT
676: INSERT INTO fun_bal_results_gt results(group_id, bal_seg_val, entered_amt_dr,
677: entered_amt_cr, entered_currency_code, exchange_date, exchange_rate, exchange_rate_type,
678: accounted_amt_dr, accounted_amt_cr, ccid, balancing_type)
679: SELECT lines.group_id, lines.bal_seg_val, lines.entered_amt_dr,
680: lines.entered_amt_cr, lines.entered_currency_code, lines.exchange_date, lines.exchange_rate,
684: WHERE lines.generated = 'Y';
685:
686: -- Bug 3167894
687: --Bug: 12887806, 13590695
688: UPDATE fun_bal_results_gt results
689: SET entered_amt_dr = DECODE(entered_amt_dr, NULL, DECODE(accounted_amt_dr, NULL, entered_amt_dr, 0), entered_amt_dr),
690: entered_amt_cr = DECODE(entered_amt_cr, NULL, DECODE(accounted_amt_cr, NULL, entered_amt_cr, 0), entered_amt_cr),
691: accounted_amt_dr = DECODE(accounted_amt_dr, NULL, DECODE(entered_amt_dr, NULL, accounted_amt_dr, 0), accounted_amt_dr),
692: accounted_amt_cr = DECODE(accounted_amt_cr, NULL, DECODE(entered_amt_cr, NULL, accounted_amt_cr, 0), accounted_amt_cr),
3520: CLOSE l_intra_int_cursor;
3521: ins_t_tables_intra_2_auto(l_intra_int_tab, l_intra_int_count);
3522: END IF;
3523:
3524: -- Insert intracompany balancing lines into the FUN_BAL_RESULTS_GT table.
3525: -- These resulting lines would be directly inserted into the results table
3526: -- 'C' normally means that a credit line should be created, but when run in detail
3527: -- mode, it could mean a debit line.
3528: INSERT INTO fun_bal_results_gt lines(group_id, bal_seg_val, entered_amt_dr,
3524: -- Insert intracompany balancing lines into the FUN_BAL_RESULTS_GT table.
3525: -- These resulting lines would be directly inserted into the results table
3526: -- 'C' normally means that a credit line should be created, but when run in detail
3527: -- mode, it could mean a debit line.
3528: INSERT INTO fun_bal_results_gt lines(group_id, bal_seg_val, entered_amt_dr,
3529: entered_amt_cr, entered_currency_code, exchange_date, exchange_rate, exchange_rate_type,
3530: accounted_amt_dr, accounted_amt_cr, ccid, dr_bsv, cr_bsv, acct_type, le_id, template_id, balancing_type)
3531: SELECT intra_lines.group_id,
3532: DECODE(intra_lines.intracompany_mode,
3729: results.acct_type, get_ccid_concat_disp(results.ccid, headers.chart_of_accounts_id,
3730: DECODE(results.acct_type, 'C', results.cr_bsv, results.dr_bsv),
3731: DECODE(results.acct_type, 'C', results.dr_bsv, results.cr_bsv),
3732: headers.bal_seg_column_number, headers.intercompany_column_number)
3733: FROM fun_bal_headers_gt headers, fun_bal_results_gt results, gl_code_combinations cc
3734: WHERE headers.group_id = results.group_id
3735: AND headers.status = 'OK'
3736: AND results.ccid = cc.code_combination_id(+)
3737: AND (results.ccid < 0
3757: 'FUN_INTRA_CC_NOT_CREATED',
3758: 'FUN_INTRA_CC_NOT_ACTIVE'));
3759:
3760:
3761: DELETE FROM fun_bal_results_gt results
3762: WHERE EXISTS (SELECT group_id
3763: FROM fun_bal_headers_gt headers
3764: WHERE headers.status = 'ERROR'
3765: AND results.group_id = headers.group_id);