[Home] [Help]
218: print_budget_stats;
219: print_end_report;
220:
221: ELSIF p_balance_type = 'E' THEN
222: /*Reset all failure result codes in IGC_CBC_JE_LINES*/
223: UPDATE igc_cbc_je_lines
224: SET mig_result_code = NULL,
225: mig_request_id = NULL
226: WHERE set_of_books_id = g_sob_id
219: print_end_report;
220:
221: ELSIF p_balance_type = 'E' THEN
222: /*Reset all failure result codes in IGC_CBC_JE_LINES*/
223: UPDATE igc_cbc_je_lines
224: SET mig_result_code = NULL,
225: mig_request_id = NULL
226: WHERE set_of_books_id = g_sob_id
227: AND substr(mig_result_code, 0, 1) = 'F'
267:
268: CURSOR c_cbc_line IS
269: SELECT DISTINCT reference_1, effective_date, je_category, cbc_je_batch_id,
270: decode(je_category, 'Provisional', '1', 'Confirmed', '2', 'Budget', '3', 'Requisitions', '1', 'Purchases', '2', '99') seq
271: FROM igc_cbc_je_lines
272: WHERE mig_result_code IS NULL
273: AND mig_request_id IS NULL
274: AND period_year = p_fiscal_year
275: AND set_of_books_id = g_sob_id
343: IF (g_debug_mode = 'Y') THEN
344: Put_Debug_Msg(l_full_path, 'Funds Check Result Code for CC Header ID ' || l_cbc_line.reference_1 || ': ' || x_batch_result_code);
345: END IF;
346:
347: /*Update Result Codes in igc_cbc_je_lines for Exception reporting and to ensure CP rerun does not cause issues*/
348:
349: /*Update Request ID of the CBC Upgrade Concurrent program*/
350:
351: UPDATE igc_cbc_je_lines
347: /*Update Result Codes in igc_cbc_je_lines for Exception reporting and to ensure CP rerun does not cause issues*/
348:
349: /*Update Request ID of the CBC Upgrade Concurrent program*/
350:
351: UPDATE igc_cbc_je_lines
352: SET mig_request_id = FND_GLOBAL.CONC_REQUEST_ID
353: WHERE reference_1 = l_cbc_line.reference_1
354: AND je_category = l_cbc_line.je_category
355: AND effective_date = l_cbc_line.effective_date
354: AND je_category = l_cbc_line.je_category
355: AND effective_date = l_cbc_line.effective_date
356: AND cbc_je_batch_id = l_cbc_line.cbc_je_batch_id;
357:
358: /*Update CBC result Codes into IGC_CBC_JE_LINES from IGC_CC_INTERFACE to print Exception Report*/
359:
360: UPDATE igc_cbc_je_lines ijl
361: SET (mig_result_code) = (SELECT cbc_result_code
362: FROM igc_cc_interface ict
356: AND cbc_je_batch_id = l_cbc_line.cbc_je_batch_id;
357:
358: /*Update CBC result Codes into IGC_CBC_JE_LINES from IGC_CC_INTERFACE to print Exception Report*/
359:
360: UPDATE igc_cbc_je_lines ijl
361: SET (mig_result_code) = (SELECT cbc_result_code
362: FROM igc_cc_interface ict
363: WHERE ijl.reference_1 = ict.cc_header_id
364: AND ijl.effective_date = ict.cc_transaction_date
418: icj.description,
419: icj.posted_date,
420: DECODE(icj.je_source,'Contract Commitment','CC','Project Accounting','PA','Requisitions','REQ','Purchasing','PO','INV'),
421: icj.currency_code
422: FROM igc_cbc_je_lines icj, gl_code_combinations gcc
423: WHERE icj.set_of_books_id = g_sob_id
424: AND icj.reference_1 = p_cc_header_id
425: AND icj.je_category = p_category_name
426: AND icj.effective_date = p_transaction_date
1532:
1533: CURSOR c_cbc_source is
1534: SELECT Distinct
1535: je_source
1536: FROM IGC_CBC_JE_LINES cbl
1537: WHERE set_of_books_id = g_sob_id
1538: AND cbl.period_year = p_fiscal_year
1539: AND mig_request_id is null
1540: AND actual_flag = 'B'
1567: ,'R11i MIGRATION - '||cbc_je_batch_id||' - '||cbc_je_line_num reference5
1568: ,'R11i MIGRATION - '||cbc_je_batch_id||' - '||cbc_je_line_num reference6
1569: ,igc.cbc_je_batch_id reference21
1570: ,igc.cbc_je_line_num reference22
1571: FROM igc_cbc_je_lines igc,
1572: gl_budget_assignments asg,
1573: GL_BUDORG_BC_OPTIONS boc,
1574: GL_BUDGET_VERSIONS BV ,
1575: gl_budgets bud,
1614: INTO l_dummy
1615: FROM DUAL
1616: WHERE EXISTS
1617: (SELECT 1
1618: FROM igc_cbc_je_lines igc
1619: where budget_version_id is NOT null
1620: AND igc.actual_flag = 'B'
1621: AND igc.DETAIL_SUMMARY_CODE = 'D'
1622: AND igc.period_year = p_fiscal_year
1778: ELSE
1779: COMMIT;
1780: l_request_status := check_request(l_request_id_bud);
1781: IF (g_debug_mode = 'Y') THEN
1782: Put_Debug_Msg(l_full_path, 'Updating igc_cbc_je_lines.. start');
1783: END IF;
1784: UPDATE igc_cbc_je_lines cbc
1785: SET mig_result_code = 'P00'
1786: ,mig_request_id = l_request_id_current
1780: l_request_status := check_request(l_request_id_bud);
1781: IF (g_debug_mode = 'Y') THEN
1782: Put_Debug_Msg(l_full_path, 'Updating igc_cbc_je_lines.. start');
1783: END IF;
1784: UPDATE igc_cbc_je_lines cbc
1785: SET mig_result_code = 'P00'
1786: ,mig_request_id = l_request_id_current
1787: WHERE set_of_books_id = g_sob_id
1788: AND period_year = p_fiscal_year
1803: AND l.reference_2 = to_char(cbc.cbc_je_line_num)
1804: );
1805:
1806: IF (g_debug_mode = 'Y') THEN
1807: Put_Debug_Msg(l_full_path, 'Updating igc_cbc_je_lines.. complete');
1808: END IF;
1809:
1810: COMMIT;
1811: END IF;
1978: INTO l_dummy
1979: FROM DUAL
1980: WHERE EXISTS
1981: (SELECT 1
1982: FROM igc_cbc_je_lines igc
1983: where budget_version_id is NOT null
1984: AND igc.actual_flag = 'E'
1985: AND igc.DETAIL_SUMMARY_CODE = 'D'
1986: AND igc.period_year = p_fin_year
2109: SUM(decode(mig_request_id,fnd_global.CONC_REQUEST_ID,
2110: decode(substr(mig_result_code,1,1),'P',1,0)
2111: ,0)) migrated_count,
2112: SUM(decode(substr(mig_result_code,1,1),'P',0,1)) pending_count
2113: FROM igc_cbc_je_lines
2114: WHERE period_year = p_fiscal_year
2115: AND set_of_books_id = g_sob_id
2116: AND actual_flag = 'E'
2117: AND DETAIL_SUMMARY_CODE = 'D'
2133: PROCEDURE print_enc_exceptions(p_fiscal_year IN NUMBER) IS
2134: CURSOR c_fail IS
2135: SELECT b.name,to_char(l.cbc_je_line_num) cbc_je_line_num,
2136: gl.meaning
2137: FROM igc_cbc_je_lines l,igc_cbc_je_batches b,
2138: gl_lookups gl
2139: WHERE b.cbc_je_batch_id = l.cbc_je_batch_id
2140: AND gl.lookup_type LIKE 'FUNDS_CHECK_RESULT_CODE'
2141: AND l.mig_result_code like 'F%'