[Home] [Help]
31: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level) THEN
32: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'fun.plsql.fun_bal_pkg.truncate_tables', 'begin');
33: END IF;
34:
35: DELETE FROM fun_bal_results_gt;
36: DELETE FROM fun_bal_errors_gt;
37: DELETE FROM fun_bal_le_bsv_map_gt;
38: DELETE FROM fun_bal_inter_int_gt;
39: DELETE FROM fun_bal_intra_int_gt;
42: like to make sure the calling program does not see the rows that gets deleted, therefore truncate is not used.
43: In addition, the truncate operation might not be able to delete the rows that the calling program has not commited yet,
44: which could result in that we think the rows got deleted but they still exist.
45: cur_hdl := dbms_sql.open_cursor;
46: dbms_sql.parse(cur_hdl, 'TRUNCATE TABLE ' || g_fun_schema || '.FUN_BAL_RESULTS_GT', dbms_sql.native);
47: dbms_sql.parse(cur_hdl, 'TRUNCATE TABLE ' || g_fun_schema || '.FUN_BAL_ERRORS_GT', dbms_sql.native);
48: dbms_sql.parse(cur_hdl, 'TRUNCATE TABLE ' || g_fun_schema || '.FUN_BAL_LE_BSV_MAP_GT', dbms_sql.native);
49: dbms_sql.parse(cur_hdl, 'TRUNCATE TABLE ' || g_fun_schema || '.FUN_BAL_INTER_INT_GT', dbms_sql.native);
50: dbms_sql.parse(cur_hdl, 'TRUNCATE TABLE ' || g_fun_schema || '.FUN_BAL_INTRA_INT_GT', dbms_sql.native);
455: SELECT * FROM fun_bal_headers_gt;
456: INSERT INTO fun_bal_lines_t
457: SELECT * FROM fun_bal_lines_gt;
458: INSERT INTO fun_bal_results_t
459: SELECT * FROM fun_bal_results_gt;
460: INSERT INTO fun_bal_errors_t
461: SELECT * FROM fun_bal_errors_gt;
462: */
463: COMMIT;
595: SELECT * FROM fun_bal_headers_gt;
596: CURSOR l_lines_cursor IS
597: SELECT * FROM fun_bal_lines_gt;
598: CURSOR l_results_cursor IS
599: SELECT * FROM fun_bal_results_gt;
600: CURSOR l_errors_cursor IS
601: SELECT * FROM fun_bal_errors_gt;
602: BEGIN
603: l_return_val := FND_API.G_RET_STS_SUCCESS;
605: IF (FND_LOG.LEVEL_PROCEDURE >= g_debug_level) THEN
606: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'fun.plsql.fun_bal_pkg.do_finalize.begin', 'begin');
607: END IF;
608:
609: -- Insert lines generated for Intercompany balancing from FUN_BAL_LINES_GT to FUN_BAL_RESULTS_GT
610: INSERT INTO fun_bal_results_gt results(group_id, bal_seg_val, entered_amt_dr,
611: entered_amt_cr, entered_currency_code, exchange_date, exchange_rate, exchange_rate_type,
612: accounted_amt_dr, accounted_amt_cr, ccid, balancing_type)
613: SELECT lines.group_id, lines.bal_seg_val, lines.entered_amt_dr,
606: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'fun.plsql.fun_bal_pkg.do_finalize.begin', 'begin');
607: END IF;
608:
609: -- Insert lines generated for Intercompany balancing from FUN_BAL_LINES_GT to FUN_BAL_RESULTS_GT
610: INSERT INTO fun_bal_results_gt results(group_id, bal_seg_val, entered_amt_dr,
611: entered_amt_cr, entered_currency_code, exchange_date, exchange_rate, exchange_rate_type,
612: accounted_amt_dr, accounted_amt_cr, ccid, balancing_type)
613: SELECT lines.group_id, lines.bal_seg_val, lines.entered_amt_dr,
614: lines.entered_amt_cr, lines.entered_currency_code, lines.exchange_date, lines.exchange_rate,
617: FROM fun_bal_lines_gt lines
618: WHERE lines.generated = 'Y';
619:
620: -- Bug 3167894
621: UPDATE fun_bal_results_gt results
622: SET entered_amt_dr = DECODE(entered_amt_dr, NULL, DECODE(accounted_amt_dr, NULL, entered_amt_dr, 0), entered_amt_dr),
623: entered_amt_cr = DECODE(entered_amt_cr, NULL, DECODE(accounted_amt_cr, NULL, entered_amt_cr, 0), entered_amt_cr),
624: accounted_amt_dr = DECODE(accounted_amt_dr, NULL, DECODE(entered_amt_dr, NULL, accounted_amt_dr, 0), accounted_amt_dr),
625: accounted_amt_cr = DECODE(accounted_amt_cr, NULL, DECODE(entered_amt_cr, NULL, accounted_amt_cr, 0), accounted_amt_cr);
2550: CLOSE l_intra_int_cursor;
2551: ins_t_tables_intra_2_auto(l_intra_int_tab, l_intra_int_count);
2552: END IF;
2553:
2554: -- Insert intracompany balancing lines into the FUN_BAL_RESULTS_GT table.
2555: -- These resulting lines would be directly inserted into the results table
2556: -- 'C' normally means that a credit line should be created, but when run in detail
2557: -- mode, it could mean a debit line.
2558: INSERT INTO fun_bal_results_gt lines(group_id, bal_seg_val, entered_amt_dr,
2554: -- Insert intracompany balancing lines into the FUN_BAL_RESULTS_GT table.
2555: -- These resulting lines would be directly inserted into the results table
2556: -- 'C' normally means that a credit line should be created, but when run in detail
2557: -- mode, it could mean a debit line.
2558: INSERT INTO fun_bal_results_gt lines(group_id, bal_seg_val, entered_amt_dr,
2559: entered_amt_cr, entered_currency_code, exchange_date, exchange_rate, exchange_rate_type,
2560: accounted_amt_dr, accounted_amt_cr, ccid, dr_bsv, cr_bsv, acct_type, le_id, template_id, balancing_type)
2561: SELECT intra_lines.group_id,
2562: DECODE(intra_lines.intracompany_mode,
2759: results.acct_type, get_ccid_concat_disp(results.ccid, headers.chart_of_accounts_id,
2760: DECODE(results.acct_type, 'C', results.cr_bsv, results.dr_bsv),
2761: DECODE(results.acct_type, 'C', results.dr_bsv, results.cr_bsv),
2762: headers.bal_seg_column_number, headers.intercompany_column_number)
2763: FROM fun_bal_headers_gt headers, fun_bal_results_gt results, gl_code_combinations cc
2764: WHERE headers.group_id = results.group_id
2765: AND headers.status = 'OK'
2766: AND results.ccid = cc.code_combination_id(+)
2767: AND (results.ccid < 0
2786: 'FUN_INTRA_CC_NOT_CREATED',
2787: 'FUN_INTRA_CC_NOT_ACTIVE'));
2788:
2789:
2790: DELETE FROM fun_bal_results_gt results
2791: WHERE EXISTS (SELECT group_id
2792: FROM fun_bal_headers_gt headers
2793: WHERE headers.status = 'ERROR'
2794: AND results.group_id = headers.group_id);