1256: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1257: 'Selecting FACTS Transactions.....') ;
1258: END IF;
1259: BEGIN
1260: vl_main_cursor := DBMS_SQL.OPEN_CURSOR ;
1261: EXCEPTION
1262: WHEN OTHERS THEN
1263: vp_retcode := sqlcode ;
1264: vp_errbuf := sqlerrm ;
1347: 'Main Select: '||vl_main_select);
1348: END IF;
1349:
1350: BEGIN
1351: dbms_sql.parse(vl_main_cursor, vl_main_select, DBMS_SQL.V7) ;
1352: EXCEPTION
1353: WHEN OTHERS THEN
1354: vp_retcode := sqlcode ;
1355: vp_errbuf := sqlerrm ;
1353: WHEN OTHERS THEN
1354: vp_retcode := sqlcode ;
1355: vp_errbuf := sqlerrm ;
1356: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
1357: l_module_name||'.dbms_sql_parse', vp_errbuf) ;
1358: RETURN;
1359: END ;
1360:
1361: -- Bind the variables
1358: RETURN;
1359: END ;
1360:
1361: -- Bind the variables
1362: dbms_sql.bind_variable(vl_main_cursor,':actual_flag', 'A');
1363: dbms_sql.bind_variable(vl_main_cursor,':treasury_symbol', vp_treasury_symbol);
1364: dbms_sql.bind_variable(vl_main_cursor,':set_of_books_id', vp_set_of_books_id);
1365: --dbms_sql.bind_variable(vl_main_cursor,':report_fiscal_yr', vp_report_fiscal_yr);
1366: dbms_sql.bind_variable(vl_main_cursor,':currency_code', vp_currency_code);
1359: END ;
1360:
1361: -- Bind the variables
1362: dbms_sql.bind_variable(vl_main_cursor,':actual_flag', 'A');
1363: dbms_sql.bind_variable(vl_main_cursor,':treasury_symbol', vp_treasury_symbol);
1364: dbms_sql.bind_variable(vl_main_cursor,':set_of_books_id', vp_set_of_books_id);
1365: --dbms_sql.bind_variable(vl_main_cursor,':report_fiscal_yr', vp_report_fiscal_yr);
1366: dbms_sql.bind_variable(vl_main_cursor,':currency_code', vp_currency_code);
1367: dbms_sql.bind_variable(vl_main_cursor,':e_period_name', v_period_name); -- added bug5065974
1360:
1361: -- Bind the variables
1362: dbms_sql.bind_variable(vl_main_cursor,':actual_flag', 'A');
1363: dbms_sql.bind_variable(vl_main_cursor,':treasury_symbol', vp_treasury_symbol);
1364: dbms_sql.bind_variable(vl_main_cursor,':set_of_books_id', vp_set_of_books_id);
1365: --dbms_sql.bind_variable(vl_main_cursor,':report_fiscal_yr', vp_report_fiscal_yr);
1366: dbms_sql.bind_variable(vl_main_cursor,':currency_code', vp_currency_code);
1367: dbms_sql.bind_variable(vl_main_cursor,':e_period_name', v_period_name); -- added bug5065974
1368: dbms_sql.bind_variable(vl_main_cursor,':b_period_name', v_begin_period_name); -- added bug5065974
1361: -- Bind the variables
1362: dbms_sql.bind_variable(vl_main_cursor,':actual_flag', 'A');
1363: dbms_sql.bind_variable(vl_main_cursor,':treasury_symbol', vp_treasury_symbol);
1364: dbms_sql.bind_variable(vl_main_cursor,':set_of_books_id', vp_set_of_books_id);
1365: --dbms_sql.bind_variable(vl_main_cursor,':report_fiscal_yr', vp_report_fiscal_yr);
1366: dbms_sql.bind_variable(vl_main_cursor,':currency_code', vp_currency_code);
1367: dbms_sql.bind_variable(vl_main_cursor,':e_period_name', v_period_name); -- added bug5065974
1368: dbms_sql.bind_variable(vl_main_cursor,':b_period_name', v_begin_period_name); -- added bug5065974
1369:
1362: dbms_sql.bind_variable(vl_main_cursor,':actual_flag', 'A');
1363: dbms_sql.bind_variable(vl_main_cursor,':treasury_symbol', vp_treasury_symbol);
1364: dbms_sql.bind_variable(vl_main_cursor,':set_of_books_id', vp_set_of_books_id);
1365: --dbms_sql.bind_variable(vl_main_cursor,':report_fiscal_yr', vp_report_fiscal_yr);
1366: dbms_sql.bind_variable(vl_main_cursor,':currency_code', vp_currency_code);
1367: dbms_sql.bind_variable(vl_main_cursor,':e_period_name', v_period_name); -- added bug5065974
1368: dbms_sql.bind_variable(vl_main_cursor,':b_period_name', v_begin_period_name); -- added bug5065974
1369:
1370: dbms_sql.define_column(vl_main_cursor, 1, vl_acct_num, 25);
1363: dbms_sql.bind_variable(vl_main_cursor,':treasury_symbol', vp_treasury_symbol);
1364: dbms_sql.bind_variable(vl_main_cursor,':set_of_books_id', vp_set_of_books_id);
1365: --dbms_sql.bind_variable(vl_main_cursor,':report_fiscal_yr', vp_report_fiscal_yr);
1366: dbms_sql.bind_variable(vl_main_cursor,':currency_code', vp_currency_code);
1367: dbms_sql.bind_variable(vl_main_cursor,':e_period_name', v_period_name); -- added bug5065974
1368: dbms_sql.bind_variable(vl_main_cursor,':b_period_name', v_begin_period_name); -- added bug5065974
1369:
1370: dbms_sql.define_column(vl_main_cursor, 1, vl_acct_num, 25);
1371: dbms_sql.define_column(vl_main_cursor, 2, vl_fund_value, 25);
1364: dbms_sql.bind_variable(vl_main_cursor,':set_of_books_id', vp_set_of_books_id);
1365: --dbms_sql.bind_variable(vl_main_cursor,':report_fiscal_yr', vp_report_fiscal_yr);
1366: dbms_sql.bind_variable(vl_main_cursor,':currency_code', vp_currency_code);
1367: dbms_sql.bind_variable(vl_main_cursor,':e_period_name', v_period_name); -- added bug5065974
1368: dbms_sql.bind_variable(vl_main_cursor,':b_period_name', v_begin_period_name); -- added bug5065974
1369:
1370: dbms_sql.define_column(vl_main_cursor, 1, vl_acct_num, 25);
1371: dbms_sql.define_column(vl_main_cursor, 2, vl_fund_value, 25);
1372: dbms_sql.define_column(vl_main_cursor, 3, v_fiscal_yr, 25);
1366: dbms_sql.bind_variable(vl_main_cursor,':currency_code', vp_currency_code);
1367: dbms_sql.bind_variable(vl_main_cursor,':e_period_name', v_period_name); -- added bug5065974
1368: dbms_sql.bind_variable(vl_main_cursor,':b_period_name', v_begin_period_name); -- added bug5065974
1369:
1370: dbms_sql.define_column(vl_main_cursor, 1, vl_acct_num, 25);
1371: dbms_sql.define_column(vl_main_cursor, 2, vl_fund_value, 25);
1372: dbms_sql.define_column(vl_main_cursor, 3, v_fiscal_yr, 25);
1373: -- dbms_sql.bind_variable(vl_main_cursor,':report_fiscal_yr', vp_report_fiscal_yr); -- removed bug 5065974
1374: IF v_cohort_seg_name IS NOT NULL THEN
1367: dbms_sql.bind_variable(vl_main_cursor,':e_period_name', v_period_name); -- added bug5065974
1368: dbms_sql.bind_variable(vl_main_cursor,':b_period_name', v_begin_period_name); -- added bug5065974
1369:
1370: dbms_sql.define_column(vl_main_cursor, 1, vl_acct_num, 25);
1371: dbms_sql.define_column(vl_main_cursor, 2, vl_fund_value, 25);
1372: dbms_sql.define_column(vl_main_cursor, 3, v_fiscal_yr, 25);
1373: -- dbms_sql.bind_variable(vl_main_cursor,':report_fiscal_yr', vp_report_fiscal_yr); -- removed bug 5065974
1374: IF v_cohort_seg_name IS NOT NULL THEN
1375: dbms_sql.define_column(vl_main_cursor, 4, vl_cohort_yr, 25);
1368: dbms_sql.bind_variable(vl_main_cursor,':b_period_name', v_begin_period_name); -- added bug5065974
1369:
1370: dbms_sql.define_column(vl_main_cursor, 1, vl_acct_num, 25);
1371: dbms_sql.define_column(vl_main_cursor, 2, vl_fund_value, 25);
1372: dbms_sql.define_column(vl_main_cursor, 3, v_fiscal_yr, 25);
1373: -- dbms_sql.bind_variable(vl_main_cursor,':report_fiscal_yr', vp_report_fiscal_yr); -- removed bug 5065974
1374: IF v_cohort_seg_name IS NOT NULL THEN
1375: dbms_sql.define_column(vl_main_cursor, 4, vl_cohort_yr, 25);
1376: dbms_sql.define_column(vl_main_cursor, 5, vb_amount); -- 5065974
1369:
1370: dbms_sql.define_column(vl_main_cursor, 1, vl_acct_num, 25);
1371: dbms_sql.define_column(vl_main_cursor, 2, vl_fund_value, 25);
1372: dbms_sql.define_column(vl_main_cursor, 3, v_fiscal_yr, 25);
1373: -- dbms_sql.bind_variable(vl_main_cursor,':report_fiscal_yr', vp_report_fiscal_yr); -- removed bug 5065974
1374: IF v_cohort_seg_name IS NOT NULL THEN
1375: dbms_sql.define_column(vl_main_cursor, 4, vl_cohort_yr, 25);
1376: dbms_sql.define_column(vl_main_cursor, 5, vb_amount); -- 5065974
1377: dbms_sql.define_column(vl_main_cursor, 6, ve_amount); -- 5065974
1371: dbms_sql.define_column(vl_main_cursor, 2, vl_fund_value, 25);
1372: dbms_sql.define_column(vl_main_cursor, 3, v_fiscal_yr, 25);
1373: -- dbms_sql.bind_variable(vl_main_cursor,':report_fiscal_yr', vp_report_fiscal_yr); -- removed bug 5065974
1374: IF v_cohort_seg_name IS NOT NULL THEN
1375: dbms_sql.define_column(vl_main_cursor, 4, vl_cohort_yr, 25);
1376: dbms_sql.define_column(vl_main_cursor, 5, vb_amount); -- 5065974
1377: dbms_sql.define_column(vl_main_cursor, 6, ve_amount); -- 5065974
1378: else
1379: dbms_sql.define_column(vl_main_cursor, 4, vb_amount); -- 5065974
1372: dbms_sql.define_column(vl_main_cursor, 3, v_fiscal_yr, 25);
1373: -- dbms_sql.bind_variable(vl_main_cursor,':report_fiscal_yr', vp_report_fiscal_yr); -- removed bug 5065974
1374: IF v_cohort_seg_name IS NOT NULL THEN
1375: dbms_sql.define_column(vl_main_cursor, 4, vl_cohort_yr, 25);
1376: dbms_sql.define_column(vl_main_cursor, 5, vb_amount); -- 5065974
1377: dbms_sql.define_column(vl_main_cursor, 6, ve_amount); -- 5065974
1378: else
1379: dbms_sql.define_column(vl_main_cursor, 4, vb_amount); -- 5065974
1380: dbms_sql.define_column(vl_main_cursor, 5, ve_amount); -- 5065974
1373: -- dbms_sql.bind_variable(vl_main_cursor,':report_fiscal_yr', vp_report_fiscal_yr); -- removed bug 5065974
1374: IF v_cohort_seg_name IS NOT NULL THEN
1375: dbms_sql.define_column(vl_main_cursor, 4, vl_cohort_yr, 25);
1376: dbms_sql.define_column(vl_main_cursor, 5, vb_amount); -- 5065974
1377: dbms_sql.define_column(vl_main_cursor, 6, ve_amount); -- 5065974
1378: else
1379: dbms_sql.define_column(vl_main_cursor, 4, vb_amount); -- 5065974
1380: dbms_sql.define_column(vl_main_cursor, 5, ve_amount); -- 5065974
1381: End if;
1375: dbms_sql.define_column(vl_main_cursor, 4, vl_cohort_yr, 25);
1376: dbms_sql.define_column(vl_main_cursor, 5, vb_amount); -- 5065974
1377: dbms_sql.define_column(vl_main_cursor, 6, ve_amount); -- 5065974
1378: else
1379: dbms_sql.define_column(vl_main_cursor, 4, vb_amount); -- 5065974
1380: dbms_sql.define_column(vl_main_cursor, 5, ve_amount); -- 5065974
1381: End if;
1382:
1383:
1376: dbms_sql.define_column(vl_main_cursor, 5, vb_amount); -- 5065974
1377: dbms_sql.define_column(vl_main_cursor, 6, ve_amount); -- 5065974
1378: else
1379: dbms_sql.define_column(vl_main_cursor, 4, vb_amount); -- 5065974
1380: dbms_sql.define_column(vl_main_cursor, 5, ve_amount); -- 5065974
1381: End if;
1382:
1383:
1384: BEGIN
1381: End if;
1382:
1383:
1384: BEGIN
1385: vl_exec_ret := dbms_sql.execute(vl_main_cursor);
1386: EXCEPTION
1387: WHEN OTHERS THEN
1388: vp_retcode := sqlcode ;
1389: VP_ERRBUF := sqlerrm ;
1387: WHEN OTHERS THEN
1388: vp_retcode := sqlcode ;
1389: VP_ERRBUF := sqlerrm ;
1390: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
1391: l_module_name||'.dbms_sql_parse', vp_errbuf) ;
1392: RETURN;
1393: END ;
1394:
1395: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1431:
1432: v_catb_program_value := NULL;
1433: v_prn_program_value := NULL;
1434:
1435: vl_main_fetch := dbms_sql.fetch_rows(vl_main_cursor) ;
1436:
1437: IF (vl_main_fetch = 0) THEN
1438: IF ( vl_row_count = 0) THEN
1439: -- No Rows to process for FACTS II Report !!
1456: -- Increase the counter for number of records
1457: vl_row_count := vl_row_count + 1 ;
1458:
1459: -- Fetch the Records into Variables
1460: dbms_sql.column_value(vl_main_cursor, 1, vl_acct_num);
1461: dbms_sql.column_value(vl_main_cursor, 2, vl_fund_value);
1462: dbms_sql.column_value(vl_main_cursor, 3, v_fiscal_yr);
1463:
1464: IF v_cohort_seg_name IS NOT NULL THEN
1457: vl_row_count := vl_row_count + 1 ;
1458:
1459: -- Fetch the Records into Variables
1460: dbms_sql.column_value(vl_main_cursor, 1, vl_acct_num);
1461: dbms_sql.column_value(vl_main_cursor, 2, vl_fund_value);
1462: dbms_sql.column_value(vl_main_cursor, 3, v_fiscal_yr);
1463:
1464: IF v_cohort_seg_name IS NOT NULL THEN
1465: dbms_sql.column_value(vl_main_cursor, 4, vl_cohort_yr);
1458:
1459: -- Fetch the Records into Variables
1460: dbms_sql.column_value(vl_main_cursor, 1, vl_acct_num);
1461: dbms_sql.column_value(vl_main_cursor, 2, vl_fund_value);
1462: dbms_sql.column_value(vl_main_cursor, 3, v_fiscal_yr);
1463:
1464: IF v_cohort_seg_name IS NOT NULL THEN
1465: dbms_sql.column_value(vl_main_cursor, 4, vl_cohort_yr);
1466: dbms_sql.column_value(vl_main_cursor, 5, vb_amount);
1461: dbms_sql.column_value(vl_main_cursor, 2, vl_fund_value);
1462: dbms_sql.column_value(vl_main_cursor, 3, v_fiscal_yr);
1463:
1464: IF v_cohort_seg_name IS NOT NULL THEN
1465: dbms_sql.column_value(vl_main_cursor, 4, vl_cohort_yr);
1466: dbms_sql.column_value(vl_main_cursor, 5, vb_amount);
1467: dbms_sql.column_value(vl_main_cursor, 6, ve_amount);
1468: else
1469: dbms_sql.column_value(vl_main_cursor, 4, vb_amount);
1462: dbms_sql.column_value(vl_main_cursor, 3, v_fiscal_yr);
1463:
1464: IF v_cohort_seg_name IS NOT NULL THEN
1465: dbms_sql.column_value(vl_main_cursor, 4, vl_cohort_yr);
1466: dbms_sql.column_value(vl_main_cursor, 5, vb_amount);
1467: dbms_sql.column_value(vl_main_cursor, 6, ve_amount);
1468: else
1469: dbms_sql.column_value(vl_main_cursor, 4, vb_amount);
1470: dbms_sql.column_value(vl_main_cursor, 5, ve_amount);
1463:
1464: IF v_cohort_seg_name IS NOT NULL THEN
1465: dbms_sql.column_value(vl_main_cursor, 4, vl_cohort_yr);
1466: dbms_sql.column_value(vl_main_cursor, 5, vb_amount);
1467: dbms_sql.column_value(vl_main_cursor, 6, ve_amount);
1468: else
1469: dbms_sql.column_value(vl_main_cursor, 4, vb_amount);
1470: dbms_sql.column_value(vl_main_cursor, 5, ve_amount);
1471: END IF;
1465: dbms_sql.column_value(vl_main_cursor, 4, vl_cohort_yr);
1466: dbms_sql.column_value(vl_main_cursor, 5, vb_amount);
1467: dbms_sql.column_value(vl_main_cursor, 6, ve_amount);
1468: else
1469: dbms_sql.column_value(vl_main_cursor, 4, vb_amount);
1470: dbms_sql.column_value(vl_main_cursor, 5, ve_amount);
1471: END IF;
1472:
1473: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1466: dbms_sql.column_value(vl_main_cursor, 5, vb_amount);
1467: dbms_sql.column_value(vl_main_cursor, 6, ve_amount);
1468: else
1469: dbms_sql.column_value(vl_main_cursor, 4, vb_amount);
1470: dbms_sql.column_value(vl_main_cursor, 5, ve_amount);
1471: END IF;
1472:
1473: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1474: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1866: -- derived from Budget Execution tables and store them in a
1867: -- cursor. Then roll them up and insert the summarized record
1868: -- into the temp table.
1869: BEGIN
1870: vl_legis_cursor := DBMS_SQL.OPEN_CURSOR ;
1871: EXCEPTION
1872: WHEN OTHERS THEN
1873: vp_retcode := sqlcode ;
1874: VP_ERRBUF := sqlerrm ;
1994: vl_legis_select) ;
1995: END IF;
1996:
1997: BEGIN
1998: dbms_sql.parse(vl_legis_cursor,vl_legis_select,DBMS_SQL.V7);
1999: EXCEPTION
2000: WHEN OTHERS THEN
2001: vp_retcode := sqlcode ;
2002: vp_errbuf := sqlerrm ;
2000: WHEN OTHERS THEN
2001: vp_retcode := sqlcode ;
2002: vp_errbuf := sqlerrm ;
2003: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
2004: l_module_name||'.dbms_sql_parse_vl_legis_cursor',
2005: vp_errbuf) ;
2006: RETURN ;
2007: END ;
2008:
2007: END ;
2008:
2009:
2010: -- Bind the variables
2011: dbms_sql.bind_variable(vl_legis_cursor,':je_status', 'P');
2012: dbms_sql.bind_variable(vl_legis_cursor,':set_of_books_id',
2013: vp_set_of_books_id);
2014: dbms_sql.bind_variable(vl_legis_cursor,':acct_num',
2015: vl_acct_num);
2008:
2009:
2010: -- Bind the variables
2011: dbms_sql.bind_variable(vl_legis_cursor,':je_status', 'P');
2012: dbms_sql.bind_variable(vl_legis_cursor,':set_of_books_id',
2013: vp_set_of_books_id);
2014: dbms_sql.bind_variable(vl_legis_cursor,':acct_num',
2015: vl_acct_num);
2016: dbms_sql.bind_variable(vl_legis_cursor,':fund_value',
2010: -- Bind the variables
2011: dbms_sql.bind_variable(vl_legis_cursor,':je_status', 'P');
2012: dbms_sql.bind_variable(vl_legis_cursor,':set_of_books_id',
2013: vp_set_of_books_id);
2014: dbms_sql.bind_variable(vl_legis_cursor,':acct_num',
2015: vl_acct_num);
2016: dbms_sql.bind_variable(vl_legis_cursor,':fund_value',
2017: vl_fund_value);
2018: dbms_sql.bind_variable(vl_legis_cursor,':fiscal_yr', v_fiscal_yr);
2012: dbms_sql.bind_variable(vl_legis_cursor,':set_of_books_id',
2013: vp_set_of_books_id);
2014: dbms_sql.bind_variable(vl_legis_cursor,':acct_num',
2015: vl_acct_num);
2016: dbms_sql.bind_variable(vl_legis_cursor,':fund_value',
2017: vl_fund_value);
2018: dbms_sql.bind_variable(vl_legis_cursor,':fiscal_yr', v_fiscal_yr);
2019: dbms_sql.bind_variable(vl_legis_cursor,':currency_code',
2020: vp_currency_code);
2014: dbms_sql.bind_variable(vl_legis_cursor,':acct_num',
2015: vl_acct_num);
2016: dbms_sql.bind_variable(vl_legis_cursor,':fund_value',
2017: vl_fund_value);
2018: dbms_sql.bind_variable(vl_legis_cursor,':fiscal_yr', v_fiscal_yr);
2019: dbms_sql.bind_variable(vl_legis_cursor,':currency_code',
2020: vp_currency_code);
2021: dbms_sql.bind_variable(vl_legis_cursor,':begin_period_num',
2022: v_begin_period_num);
2015: vl_acct_num);
2016: dbms_sql.bind_variable(vl_legis_cursor,':fund_value',
2017: vl_fund_value);
2018: dbms_sql.bind_variable(vl_legis_cursor,':fiscal_yr', v_fiscal_yr);
2019: dbms_sql.bind_variable(vl_legis_cursor,':currency_code',
2020: vp_currency_code);
2021: dbms_sql.bind_variable(vl_legis_cursor,':begin_period_num',
2022: v_begin_period_num);
2023: dbms_sql.bind_variable(vl_legis_cursor,':period_num', v_period_num);
2017: vl_fund_value);
2018: dbms_sql.bind_variable(vl_legis_cursor,':fiscal_yr', v_fiscal_yr);
2019: dbms_sql.bind_variable(vl_legis_cursor,':currency_code',
2020: vp_currency_code);
2021: dbms_sql.bind_variable(vl_legis_cursor,':begin_period_num',
2022: v_begin_period_num);
2023: dbms_sql.bind_variable(vl_legis_cursor,':period_num', v_period_num);
2024: dbms_sql.bind_variable(vl_legis_cursor,':report_fiscal_yr',
2025: vp_report_fiscal_yr);
2019: dbms_sql.bind_variable(vl_legis_cursor,':currency_code',
2020: vp_currency_code);
2021: dbms_sql.bind_variable(vl_legis_cursor,':begin_period_num',
2022: v_begin_period_num);
2023: dbms_sql.bind_variable(vl_legis_cursor,':period_num', v_period_num);
2024: dbms_sql.bind_variable(vl_legis_cursor,':report_fiscal_yr',
2025: vp_report_fiscal_yr);
2026:
2027: vl_count := 0;
2020: vp_currency_code);
2021: dbms_sql.bind_variable(vl_legis_cursor,':begin_period_num',
2022: v_begin_period_num);
2023: dbms_sql.bind_variable(vl_legis_cursor,':period_num', v_period_num);
2024: dbms_sql.bind_variable(vl_legis_cursor,':report_fiscal_yr',
2025: vp_report_fiscal_yr);
2026:
2027: vl_count := 0;
2028:
2025: vp_report_fiscal_yr);
2026:
2027: vl_count := 0;
2028:
2029: dbms_sql.define_column(vl_legis_cursor, 1, vl_legis_ref, 240);
2030: dbms_sql.define_column(vl_legis_cursor, 2, vl_legis_amount );
2031: dbms_sql.define_column(vl_legis_cursor, 3, vl_effective_date );
2032: dbms_sql.define_column(vl_legis_cursor, 4, vl_period_name, 15 );
2033: dbms_sql.define_column(vl_legis_cursor, 5, vl_je_source, 25 );
2026:
2027: vl_count := 0;
2028:
2029: dbms_sql.define_column(vl_legis_cursor, 1, vl_legis_ref, 240);
2030: dbms_sql.define_column(vl_legis_cursor, 2, vl_legis_amount );
2031: dbms_sql.define_column(vl_legis_cursor, 3, vl_effective_date );
2032: dbms_sql.define_column(vl_legis_cursor, 4, vl_period_name, 15 );
2033: dbms_sql.define_column(vl_legis_cursor, 5, vl_je_source, 25 );
2034:
2027: vl_count := 0;
2028:
2029: dbms_sql.define_column(vl_legis_cursor, 1, vl_legis_ref, 240);
2030: dbms_sql.define_column(vl_legis_cursor, 2, vl_legis_amount );
2031: dbms_sql.define_column(vl_legis_cursor, 3, vl_effective_date );
2032: dbms_sql.define_column(vl_legis_cursor, 4, vl_period_name, 15 );
2033: dbms_sql.define_column(vl_legis_cursor, 5, vl_je_source, 25 );
2034:
2035: vl_count := 6;
2028:
2029: dbms_sql.define_column(vl_legis_cursor, 1, vl_legis_ref, 240);
2030: dbms_sql.define_column(vl_legis_cursor, 2, vl_legis_amount );
2031: dbms_sql.define_column(vl_legis_cursor, 3, vl_effective_date );
2032: dbms_sql.define_column(vl_legis_cursor, 4, vl_period_name, 15 );
2033: dbms_sql.define_column(vl_legis_cursor, 5, vl_je_source, 25 );
2034:
2035: vl_count := 6;
2036:
2029: dbms_sql.define_column(vl_legis_cursor, 1, vl_legis_ref, 240);
2030: dbms_sql.define_column(vl_legis_cursor, 2, vl_legis_amount );
2031: dbms_sql.define_column(vl_legis_cursor, 3, vl_effective_date );
2032: dbms_sql.define_column(vl_legis_cursor, 4, vl_period_name, 15 );
2033: dbms_sql.define_column(vl_legis_cursor, 5, vl_je_source, 25 );
2034:
2035: vl_count := 6;
2036:
2037: IF va_pl_code_col IS NOT NULL THEN
2034:
2035: vl_count := 6;
2036:
2037: IF va_pl_code_col IS NOT NULL THEN
2038: dbms_sql.define_column(vl_legis_cursor, vl_count, vl_pl_code, 150);
2039: vl_count := vl_count + 1;
2040: END IF;
2041:
2042: IF va_tr_main_acct_col IS NOT NULL THEN
2039: vl_count := vl_count + 1;
2040: END IF;
2041:
2042: IF va_tr_main_acct_col IS NOT NULL THEN
2043: dbms_sql.define_column(vl_legis_cursor, vl_count,
2044: vl_tr_main_acct, 150);
2045: vl_count := vl_count + 1;
2046: END IF;
2047:
2045: vl_count := vl_count + 1;
2046: END IF;
2047:
2048: IF va_tr_dept_id_col IS NOT NULL THEN
2049: dbms_sql.define_column(vl_legis_cursor, vl_count,
2050: vl_tr_dept_id, 150);
2051: vl_count := vl_count + 1;
2052: END IF;
2053:
2051: vl_count := vl_count + 1;
2052: END IF;
2053:
2054: IF va_advance_type_col IS NOT NULL THEN
2055: dbms_sql.define_column(vl_legis_cursor, vl_count,
2056: vl_advance_type, 150);
2057: END IF;
2058:
2059: BEGIN
2056: vl_advance_type, 150);
2057: END IF;
2058:
2059: BEGIN
2060: vl_exec_ret := dbms_sql.execute(vl_legis_cursor);
2061: EXCEPTION
2062: WHEN OTHERS THEN
2063: vp_retcode := sqlcode ;
2064: vp_errbuf := sqlerrm ;
2062: WHEN OTHERS THEN
2063: vp_retcode := sqlcode ;
2064: vp_errbuf := sqlerrm ;
2065: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
2066: l_module_name||'.dbms_sql_execute_vl_legis_cursor',
2067: vp_errbuf) ;
2068: RETURN ;
2069: END ;
2070:
2069: END ;
2070:
2071: LOOP
2072: vl_exception_cat := 0;
2073: IF dbms_sql.fetch_rows(vl_legis_cursor) = 0 THEN
2074: EXIT;
2075: ELSE
2076:
2077: vl_count := 0;
2075: ELSE
2076:
2077: vl_count := 0;
2078: -- Fetch the Records into Variables
2079: dbms_sql.column_value(vl_legis_cursor,1,vl_legis_ref);
2080: dbms_sql.column_value(vl_legis_cursor,2,vl_legis_amount);
2081: dbms_sql.column_value(vl_legis_cursor,3,vl_effective_date);
2082: dbms_sql.column_value(vl_legis_cursor,4,vl_period_name);
2083: dbms_sql.column_value(vl_legis_cursor,5,vl_je_source);
2076:
2077: vl_count := 0;
2078: -- Fetch the Records into Variables
2079: dbms_sql.column_value(vl_legis_cursor,1,vl_legis_ref);
2080: dbms_sql.column_value(vl_legis_cursor,2,vl_legis_amount);
2081: dbms_sql.column_value(vl_legis_cursor,3,vl_effective_date);
2082: dbms_sql.column_value(vl_legis_cursor,4,vl_period_name);
2083: dbms_sql.column_value(vl_legis_cursor,5,vl_je_source);
2084:
2077: vl_count := 0;
2078: -- Fetch the Records into Variables
2079: dbms_sql.column_value(vl_legis_cursor,1,vl_legis_ref);
2080: dbms_sql.column_value(vl_legis_cursor,2,vl_legis_amount);
2081: dbms_sql.column_value(vl_legis_cursor,3,vl_effective_date);
2082: dbms_sql.column_value(vl_legis_cursor,4,vl_period_name);
2083: dbms_sql.column_value(vl_legis_cursor,5,vl_je_source);
2084:
2085: --fnd_file.put_line(fnd_file.log , 'vl_legis_ref ' || vl_legis_ref);
2078: -- Fetch the Records into Variables
2079: dbms_sql.column_value(vl_legis_cursor,1,vl_legis_ref);
2080: dbms_sql.column_value(vl_legis_cursor,2,vl_legis_amount);
2081: dbms_sql.column_value(vl_legis_cursor,3,vl_effective_date);
2082: dbms_sql.column_value(vl_legis_cursor,4,vl_period_name);
2083: dbms_sql.column_value(vl_legis_cursor,5,vl_je_source);
2084:
2085: --fnd_file.put_line(fnd_file.log , 'vl_legis_ref ' || vl_legis_ref);
2086: --fnd_file.put_line(fnd_file.log , 'vl_je_source ' || vl_je_source);
2079: dbms_sql.column_value(vl_legis_cursor,1,vl_legis_ref);
2080: dbms_sql.column_value(vl_legis_cursor,2,vl_legis_amount);
2081: dbms_sql.column_value(vl_legis_cursor,3,vl_effective_date);
2082: dbms_sql.column_value(vl_legis_cursor,4,vl_period_name);
2083: dbms_sql.column_value(vl_legis_cursor,5,vl_je_source);
2084:
2085: --fnd_file.put_line(fnd_file.log , 'vl_legis_ref ' || vl_legis_ref);
2086: --fnd_file.put_line(fnd_file.log , 'vl_je_source ' || vl_je_source);
2087: --fnd_file.put_line(fnd_file.log , 'vl_legis_amount ' || vl_legis_amount);
2087: --fnd_file.put_line(fnd_file.log , 'vl_legis_amount ' || vl_legis_amount);
2088: vl_count := 6;
2089:
2090: IF va_pl_code_col IS NOT NULL THEN
2091: dbms_sql.column_value(vl_legis_cursor,
2092: vl_count, vl_pl_code);
2093: vl_count := vl_count + 1;
2094: END IF;
2095:
2093: vl_count := vl_count + 1;
2094: END IF;
2095:
2096: IF va_tr_main_acct_col IS NOT NULL THEN
2097: dbms_sql.column_value(vl_legis_cursor, vl_count,
2098: vl_tr_main_acct);
2099: vl_count := vl_count + 1;
2100: END IF;
2101:
2099: vl_count := vl_count + 1;
2100: END IF;
2101:
2102: IF va_tr_dept_id_col IS NOT NULL THEN
2103: dbms_sql.column_value(vl_legis_cursor, vl_count,
2104: vl_tr_dept_id);
2105: vl_count := vl_count + 1;
2106: END IF;
2107:
2105: vl_count := vl_count + 1;
2106: END IF;
2107:
2108: IF va_advance_type_col IS NOT NULL THEN
2109: dbms_sql.column_value(vl_legis_cursor, vl_count,
2110: vl_advance_type);
2111: END IF;
2112:
2113: IF ( FND_LOG.LEVEL_STATEMENT >=
2499:
2500: END LOOP;
2501: -- Close the Legislative Indicator Cursor
2502: BEGIN
2503: dbms_sql.close_cursor(vl_legis_cursor);
2504: EXCEPTION
2505: WHEN OTHERS THEN
2506: vp_retcode := sqlcode ;
2507: VP_ERRBUF := sqlerrm ;
2566: (v_catb_prg_seg_name IS NULL
2567: AND va_appor_cat_val = 'A')) AND
2568: V_PRN_PRG_SEG_NAME IS not null THEN
2569: BEGIN
2570: vl_appor_cursor := DBMS_SQL.OPEN_CURSOR ;
2571: EXCEPTION
2572: WHEN OTHERS THEN
2573: vp_retcode := sqlcode ;
2574: vp_errbuf := sqlerrm ;
2590: v_fiscal_yr,
2591: vl_appor_period,
2592: vl_appor_select) ;
2593: BEGIN
2594: dbms_sql.parse(vl_appor_cursor,vl_appor_select,
2595: DBMS_SQL.V7);
2596: EXCEPTION
2597: WHEN OTHERS THEN
2598: vp_retcode := sqlcode ;
2591: vl_appor_period,
2592: vl_appor_select) ;
2593: BEGIN
2594: dbms_sql.parse(vl_appor_cursor,vl_appor_select,
2595: DBMS_SQL.V7);
2596: EXCEPTION
2597: WHEN OTHERS THEN
2598: vp_retcode := sqlcode ;
2599: vp_errbuf := sqlerrm || ' [MAIN - APPOR]' ;
2602: RETURN ;
2603: END ;
2604:
2605: -- Bind the variables
2606: dbms_sql.bind_variable(vl_appor_cursor, ':actual_flag', 'A');
2607: dbms_sql.bind_variable(vl_appor_cursor, ':fund_value',
2608: vl_fund_value);
2609: dbms_sql.bind_variable(vl_appor_cursor, ':acct_number',
2610: vl_acct_num);
2603: END ;
2604:
2605: -- Bind the variables
2606: dbms_sql.bind_variable(vl_appor_cursor, ':actual_flag', 'A');
2607: dbms_sql.bind_variable(vl_appor_cursor, ':fund_value',
2608: vl_fund_value);
2609: dbms_sql.bind_variable(vl_appor_cursor, ':acct_number',
2610: vl_acct_num);
2611: dbms_sql.bind_variable(vl_appor_cursor, ':fiscal_year',
2605: -- Bind the variables
2606: dbms_sql.bind_variable(vl_appor_cursor, ':actual_flag', 'A');
2607: dbms_sql.bind_variable(vl_appor_cursor, ':fund_value',
2608: vl_fund_value);
2609: dbms_sql.bind_variable(vl_appor_cursor, ':acct_number',
2610: vl_acct_num);
2611: dbms_sql.bind_variable(vl_appor_cursor, ':fiscal_year',
2612: v_fiscal_yr);
2613: dbms_sql.bind_variable(vl_appor_cursor, ':begin_period_num',
2607: dbms_sql.bind_variable(vl_appor_cursor, ':fund_value',
2608: vl_fund_value);
2609: dbms_sql.bind_variable(vl_appor_cursor, ':acct_number',
2610: vl_acct_num);
2611: dbms_sql.bind_variable(vl_appor_cursor, ':fiscal_year',
2612: v_fiscal_yr);
2613: dbms_sql.bind_variable(vl_appor_cursor, ':begin_period_num',
2614: v_begin_period_num);
2615: dbms_sql.bind_variable(vl_appor_cursor, ':report_fiscal_yr',
2609: dbms_sql.bind_variable(vl_appor_cursor, ':acct_number',
2610: vl_acct_num);
2611: dbms_sql.bind_variable(vl_appor_cursor, ':fiscal_year',
2612: v_fiscal_yr);
2613: dbms_sql.bind_variable(vl_appor_cursor, ':begin_period_num',
2614: v_begin_period_num);
2615: dbms_sql.bind_variable(vl_appor_cursor, ':report_fiscal_yr',
2616: vp_report_fiscal_yr);
2617: dbms_sql.bind_variable(vl_appor_cursor, ':set_of_books_id',
2611: dbms_sql.bind_variable(vl_appor_cursor, ':fiscal_year',
2612: v_fiscal_yr);
2613: dbms_sql.bind_variable(vl_appor_cursor, ':begin_period_num',
2614: v_begin_period_num);
2615: dbms_sql.bind_variable(vl_appor_cursor, ':report_fiscal_yr',
2616: vp_report_fiscal_yr);
2617: dbms_sql.bind_variable(vl_appor_cursor, ':set_of_books_id',
2618: vp_set_of_books_id);
2619: dbms_sql.bind_variable(vl_appor_cursor, ':currency_code',
2613: dbms_sql.bind_variable(vl_appor_cursor, ':begin_period_num',
2614: v_begin_period_num);
2615: dbms_sql.bind_variable(vl_appor_cursor, ':report_fiscal_yr',
2616: vp_report_fiscal_yr);
2617: dbms_sql.bind_variable(vl_appor_cursor, ':set_of_books_id',
2618: vp_set_of_books_id);
2619: dbms_sql.bind_variable(vl_appor_cursor, ':currency_code',
2620: vp_currency_code);
2621:
2615: dbms_sql.bind_variable(vl_appor_cursor, ':report_fiscal_yr',
2616: vp_report_fiscal_yr);
2617: dbms_sql.bind_variable(vl_appor_cursor, ':set_of_books_id',
2618: vp_set_of_books_id);
2619: dbms_sql.bind_variable(vl_appor_cursor, ':currency_code',
2620: vp_currency_code);
2621:
2622:
2623: dbms_sql.define_column(vl_appor_cursor,1,vl_acct_num,25);
2619: dbms_sql.bind_variable(vl_appor_cursor, ':currency_code',
2620: vp_currency_code);
2621:
2622:
2623: dbms_sql.define_column(vl_appor_cursor,1,vl_acct_num,25);
2624: dbms_sql.define_column(vl_appor_cursor,2,vl_fund_value,25);
2625: vl_count := 3;
2626: IF v_catb_prg_seg_name IS NOT NULL THEN
2627: dbms_sql.define_column(vl_appor_cursor,vl_count,vl_catb_program,25);
2620: vp_currency_code);
2621:
2622:
2623: dbms_sql.define_column(vl_appor_cursor,1,vl_acct_num,25);
2624: dbms_sql.define_column(vl_appor_cursor,2,vl_fund_value,25);
2625: vl_count := 3;
2626: IF v_catb_prg_seg_name IS NOT NULL THEN
2627: dbms_sql.define_column(vl_appor_cursor,vl_count,vl_catb_program,25);
2628: vl_count := vl_count+1 ;
2623: dbms_sql.define_column(vl_appor_cursor,1,vl_acct_num,25);
2624: dbms_sql.define_column(vl_appor_cursor,2,vl_fund_value,25);
2625: vl_count := 3;
2626: IF v_catb_prg_seg_name IS NOT NULL THEN
2627: dbms_sql.define_column(vl_appor_cursor,vl_count,vl_catb_program,25);
2628: vl_count := vl_count+1 ;
2629: END IF;
2630:
2631: dbms_sql.define_column(vl_appor_cursor,vl_count,vl_prn_program,25);
2627: dbms_sql.define_column(vl_appor_cursor,vl_count,vl_catb_program,25);
2628: vl_count := vl_count+1 ;
2629: END IF;
2630:
2631: dbms_sql.define_column(vl_appor_cursor,vl_count,vl_prn_program,25);
2632: vl_count := vl_count+1 ;
2633:
2634: dbms_sql.define_column(vl_appor_cursor,vl_count,v_amount);
2635:
2630:
2631: dbms_sql.define_column(vl_appor_cursor,vl_count,vl_prn_program,25);
2632: vl_count := vl_count+1 ;
2633:
2634: dbms_sql.define_column(vl_appor_cursor,vl_count,v_amount);
2635:
2636: IF v_cohort_Seg_name IS NOT NULL THEN
2637: vl_count := vl_count+1 ;
2638: dbms_sql.define_column(vl_appor_cursor,vl_count,vl_cohort_yr,25);
2634: dbms_sql.define_column(vl_appor_cursor,vl_count,v_amount);
2635:
2636: IF v_cohort_Seg_name IS NOT NULL THEN
2637: vl_count := vl_count+1 ;
2638: dbms_sql.define_column(vl_appor_cursor,vl_count,vl_cohort_yr,25);
2639: END IF ;
2640:
2641: BEGIN
2642: vl_exec_ret := dbms_sql.execute(vl_appor_cursor);
2638: dbms_sql.define_column(vl_appor_cursor,vl_count,vl_cohort_yr,25);
2639: END IF ;
2640:
2641: BEGIN
2642: vl_exec_ret := dbms_sql.execute(vl_appor_cursor);
2643: EXCEPTION
2644: WHEN OTHERS THEN
2645: vp_retcode := sqlcode ;
2646: vp_errbuf := sqlerrm ;
2651: END ;
2652: -- Reset the counter for apportionment cat b Dtl
2653: -- vl_appor_ctr := 0 ;
2654: LOOP
2655: IF dbms_sql.fetch_rows(vl_appor_cursor) = 0 THEN
2656: EXIT;
2657: ELSE
2658: -- Fetch the Records into Variables
2659: dbms_sql.column_value(vl_appor_cursor,1,
2655: IF dbms_sql.fetch_rows(vl_appor_cursor) = 0 THEN
2656: EXIT;
2657: ELSE
2658: -- Fetch the Records into Variables
2659: dbms_sql.column_value(vl_appor_cursor,1,
2660: vl_acct_num);
2661: dbms_sql.column_value(vl_appor_cursor,2,
2662: vl_fund_value);
2663: vl_count := 3;
2657: ELSE
2658: -- Fetch the Records into Variables
2659: dbms_sql.column_value(vl_appor_cursor,1,
2660: vl_acct_num);
2661: dbms_sql.column_value(vl_appor_cursor,2,
2662: vl_fund_value);
2663: vl_count := 3;
2664:
2665: IF v_catb_prg_seg_name IS NOT NULL THEN
2662: vl_fund_value);
2663: vl_count := 3;
2664:
2665: IF v_catb_prg_seg_name IS NOT NULL THEN
2666: dbms_sql.column_value(vl_appor_cursor,vl_count,
2667: vl_catb_program);
2668: vl_count := vl_count+1 ;
2669: END IF;
2670: dbms_sql.column_value(vl_appor_cursor,vl_count,
2666: dbms_sql.column_value(vl_appor_cursor,vl_count,
2667: vl_catb_program);
2668: vl_count := vl_count+1 ;
2669: END IF;
2670: dbms_sql.column_value(vl_appor_cursor,vl_count,
2671: vl_prn_program);
2672: vl_count := vl_count+1 ;
2673: -- v_amount holds beginning balance.
2674: dbms_sql.column_value(vl_appor_cursor,vl_count,
2670: dbms_sql.column_value(vl_appor_cursor,vl_count,
2671: vl_prn_program);
2672: vl_count := vl_count+1 ;
2673: -- v_amount holds beginning balance.
2674: dbms_sql.column_value(vl_appor_cursor,vl_count,
2675: v_amount);
2676: IF v_cohort_Seg_name IS NOT NULL THEN
2677: vl_count := vl_count+1 ;
2678: dbms_sql.column_value(vl_appor_cursor,vl_count,
2674: dbms_sql.column_value(vl_appor_cursor,vl_count,
2675: v_amount);
2676: IF v_cohort_Seg_name IS NOT NULL THEN
2677: vl_count := vl_count+1 ;
2678: dbms_sql.column_value(vl_appor_cursor,vl_count,
2679: vl_cohort_yr);
2680: END IF ;
2681:
2682: -- vl_appor_ctr := vl_appor_ctr + 1 ;
2779:
2780: END LOOP ;
2781: -- Close the Apportionment Category Cursor
2782: BEGIN
2783: dbms_sql.close_cursor(vl_appor_cursor);
2784: EXCEPTION
2785: WHEN OTHERS THEN
2786: vp_retcode := sqlcode ;
2787: vp_errbuf := sqlerrm ;
2791: END ;
2792:
2793: -- Processing Apportionment Category for Ending Balance
2794: BEGIN
2795: vl_appor_cursor := DBMS_SQL.OPEN_CURSOR ;
2796: EXCEPTION
2797: WHEN OTHERS THEN
2798: vp_retcode := sqlcode ;
2799: vp_errbuf := sqlerrm ;
2814: vl_appor_period,
2815: vl_appor_select) ;
2816:
2817: BEGIN
2818: dbms_sql.parse(vl_appor_cursor,vl_appor_select,
2819: DBMS_SQL.V7);
2820: EXCEPTION
2821: WHEN OTHERS THEN
2822: vp_retcode := sqlcode ;
2815: vl_appor_select) ;
2816:
2817: BEGIN
2818: dbms_sql.parse(vl_appor_cursor,vl_appor_select,
2819: DBMS_SQL.V7);
2820: EXCEPTION
2821: WHEN OTHERS THEN
2822: vp_retcode := sqlcode ;
2823: vp_errbuf := sqlerrm || ' [MAIN - APPOR]' ;
2827: RETURN ;
2828: END ;
2829:
2830: -- Bind the variables
2831: dbms_sql.bind_variable(vl_appor_cursor, ':actual_flag', 'A');
2832: dbms_sql.bind_variable(vl_appor_cursor, ':fund_value',
2833: vl_fund_value);
2834: dbms_sql.bind_variable(vl_appor_cursor, ':acct_number',
2835: vl_acct_num);
2828: END ;
2829:
2830: -- Bind the variables
2831: dbms_sql.bind_variable(vl_appor_cursor, ':actual_flag', 'A');
2832: dbms_sql.bind_variable(vl_appor_cursor, ':fund_value',
2833: vl_fund_value);
2834: dbms_sql.bind_variable(vl_appor_cursor, ':acct_number',
2835: vl_acct_num);
2836: dbms_sql.bind_variable(vl_appor_cursor, ':fiscal_year',
2830: -- Bind the variables
2831: dbms_sql.bind_variable(vl_appor_cursor, ':actual_flag', 'A');
2832: dbms_sql.bind_variable(vl_appor_cursor, ':fund_value',
2833: vl_fund_value);
2834: dbms_sql.bind_variable(vl_appor_cursor, ':acct_number',
2835: vl_acct_num);
2836: dbms_sql.bind_variable(vl_appor_cursor, ':fiscal_year',
2837: v_fiscal_yr);
2838: dbms_sql.bind_variable(vl_appor_cursor, ':period_num',
2832: dbms_sql.bind_variable(vl_appor_cursor, ':fund_value',
2833: vl_fund_value);
2834: dbms_sql.bind_variable(vl_appor_cursor, ':acct_number',
2835: vl_acct_num);
2836: dbms_sql.bind_variable(vl_appor_cursor, ':fiscal_year',
2837: v_fiscal_yr);
2838: dbms_sql.bind_variable(vl_appor_cursor, ':period_num',
2839: v_period_num);
2840: dbms_sql.bind_variable(vl_appor_cursor,':report_fiscal_yr',
2834: dbms_sql.bind_variable(vl_appor_cursor, ':acct_number',
2835: vl_acct_num);
2836: dbms_sql.bind_variable(vl_appor_cursor, ':fiscal_year',
2837: v_fiscal_yr);
2838: dbms_sql.bind_variable(vl_appor_cursor, ':period_num',
2839: v_period_num);
2840: dbms_sql.bind_variable(vl_appor_cursor,':report_fiscal_yr',
2841: vp_report_fiscal_yr);
2842: dbms_sql.bind_variable(vl_appor_cursor,':set_of_books_id',
2836: dbms_sql.bind_variable(vl_appor_cursor, ':fiscal_year',
2837: v_fiscal_yr);
2838: dbms_sql.bind_variable(vl_appor_cursor, ':period_num',
2839: v_period_num);
2840: dbms_sql.bind_variable(vl_appor_cursor,':report_fiscal_yr',
2841: vp_report_fiscal_yr);
2842: dbms_sql.bind_variable(vl_appor_cursor,':set_of_books_id',
2843: vp_set_of_books_id);
2844: dbms_sql.bind_variable(vl_appor_cursor, ':currency_code',
2838: dbms_sql.bind_variable(vl_appor_cursor, ':period_num',
2839: v_period_num);
2840: dbms_sql.bind_variable(vl_appor_cursor,':report_fiscal_yr',
2841: vp_report_fiscal_yr);
2842: dbms_sql.bind_variable(vl_appor_cursor,':set_of_books_id',
2843: vp_set_of_books_id);
2844: dbms_sql.bind_variable(vl_appor_cursor, ':currency_code',
2845: vp_currency_code);
2846:
2840: dbms_sql.bind_variable(vl_appor_cursor,':report_fiscal_yr',
2841: vp_report_fiscal_yr);
2842: dbms_sql.bind_variable(vl_appor_cursor,':set_of_books_id',
2843: vp_set_of_books_id);
2844: dbms_sql.bind_variable(vl_appor_cursor, ':currency_code',
2845: vp_currency_code);
2846:
2847:
2848: dbms_sql.define_column(vl_appor_cursor,1,vl_acct_num,25);
2844: dbms_sql.bind_variable(vl_appor_cursor, ':currency_code',
2845: vp_currency_code);
2846:
2847:
2848: dbms_sql.define_column(vl_appor_cursor,1,vl_acct_num,25);
2849: dbms_sql.define_column(vl_appor_cursor,2,vl_fund_value,25);
2850: vl_count := 3;
2851: IF v_catb_prg_seg_name IS NOT NULL THEN
2852: dbms_sql.define_column(vl_appor_cursor,3,vl_catb_program,25);
2845: vp_currency_code);
2846:
2847:
2848: dbms_sql.define_column(vl_appor_cursor,1,vl_acct_num,25);
2849: dbms_sql.define_column(vl_appor_cursor,2,vl_fund_value,25);
2850: vl_count := 3;
2851: IF v_catb_prg_seg_name IS NOT NULL THEN
2852: dbms_sql.define_column(vl_appor_cursor,3,vl_catb_program,25);
2853: vl_count := vl_count+1 ;
2848: dbms_sql.define_column(vl_appor_cursor,1,vl_acct_num,25);
2849: dbms_sql.define_column(vl_appor_cursor,2,vl_fund_value,25);
2850: vl_count := 3;
2851: IF v_catb_prg_seg_name IS NOT NULL THEN
2852: dbms_sql.define_column(vl_appor_cursor,3,vl_catb_program,25);
2853: vl_count := vl_count+1 ;
2854: END IF ;
2855: dbms_sql.define_column(vl_appor_cursor,vl_count,vl_prn_program,25);
2856: vl_count := vl_count+1 ;
2851: IF v_catb_prg_seg_name IS NOT NULL THEN
2852: dbms_sql.define_column(vl_appor_cursor,3,vl_catb_program,25);
2853: vl_count := vl_count+1 ;
2854: END IF ;
2855: dbms_sql.define_column(vl_appor_cursor,vl_count,vl_prn_program,25);
2856: vl_count := vl_count+1 ;
2857: dbms_sql.define_column(vl_appor_cursor,vl_count,v_amount);
2858: IF v_cohort_seg_name IS NOT NULL THEN
2859: vl_count := vl_count+1 ;
2853: vl_count := vl_count+1 ;
2854: END IF ;
2855: dbms_sql.define_column(vl_appor_cursor,vl_count,vl_prn_program,25);
2856: vl_count := vl_count+1 ;
2857: dbms_sql.define_column(vl_appor_cursor,vl_count,v_amount);
2858: IF v_cohort_seg_name IS NOT NULL THEN
2859: vl_count := vl_count+1 ;
2860: dbms_sql.define_column(vl_appor_cursor,vl_count,vl_cohort_yr, 25);
2861: END IF ;
2856: vl_count := vl_count+1 ;
2857: dbms_sql.define_column(vl_appor_cursor,vl_count,v_amount);
2858: IF v_cohort_seg_name IS NOT NULL THEN
2859: vl_count := vl_count+1 ;
2860: dbms_sql.define_column(vl_appor_cursor,vl_count,vl_cohort_yr, 25);
2861: END IF ;
2862: BEGIN
2863: vl_exec_ret := dbms_sql.execute(vl_appor_cursor);
2864: EXCEPTION
2859: vl_count := vl_count+1 ;
2860: dbms_sql.define_column(vl_appor_cursor,vl_count,vl_cohort_yr, 25);
2861: END IF ;
2862: BEGIN
2863: vl_exec_ret := dbms_sql.execute(vl_appor_cursor);
2864: EXCEPTION
2865: WHEN OTHERS THEN
2866: vp_retcode := sqlcode ;
2867: vp_errbuf := sqlerrm ;
2874:
2875: -- Reset the counter for apportionment cat b Dtl
2876: -- vl_appor_ctr := 0 ;
2877: LOOP
2878: IF dbms_sql.fetch_rows(vl_appor_cursor) = 0 THEN
2879: EXIT;
2880: ELSE
2881: -- Fetch the Records into Variables
2882: dbms_sql.column_value(vl_appor_cursor,1,
2878: IF dbms_sql.fetch_rows(vl_appor_cursor) = 0 THEN
2879: EXIT;
2880: ELSE
2881: -- Fetch the Records into Variables
2882: dbms_sql.column_value(vl_appor_cursor,1,
2883: vl_acct_num);
2884: dbms_sql.column_value(vl_appor_cursor,2,
2885: vl_fund_value);
2886: vl_count := 3;
2880: ELSE
2881: -- Fetch the Records into Variables
2882: dbms_sql.column_value(vl_appor_cursor,1,
2883: vl_acct_num);
2884: dbms_sql.column_value(vl_appor_cursor,2,
2885: vl_fund_value);
2886: vl_count := 3;
2887: IF v_catb_prg_seg_name IS NOT NULL THEN
2888: dbms_sql.column_value(vl_appor_cursor,vl_count,
2884: dbms_sql.column_value(vl_appor_cursor,2,
2885: vl_fund_value);
2886: vl_count := 3;
2887: IF v_catb_prg_seg_name IS NOT NULL THEN
2888: dbms_sql.column_value(vl_appor_cursor,vl_count,
2889: vl_catb_program);
2890: vl_count := vl_count+1 ;
2891: END IF;
2892: dbms_sql.column_value(vl_appor_cursor,vl_count,
2888: dbms_sql.column_value(vl_appor_cursor,vl_count,
2889: vl_catb_program);
2890: vl_count := vl_count+1 ;
2891: END IF;
2892: dbms_sql.column_value(vl_appor_cursor,vl_count,
2893: vl_prn_program);
2894: vl_count := vl_count+1 ;
2895: -- v_amount holds Balance of the transaction
2896: dbms_sql.column_value(vl_appor_cursor,vl_count,v_amount);
2892: dbms_sql.column_value(vl_appor_cursor,vl_count,
2893: vl_prn_program);
2894: vl_count := vl_count+1 ;
2895: -- v_amount holds Balance of the transaction
2896: dbms_sql.column_value(vl_appor_cursor,vl_count,v_amount);
2897: IF v_cohort_Seg_name IS NOT NULL THEN
2898: vl_count := vl_count+1 ;
2899: dbms_sql.column_value(vl_appor_cursor, vl_count,
2900: vl_cohort_yr);
2895: -- v_amount holds Balance of the transaction
2896: dbms_sql.column_value(vl_appor_cursor,vl_count,v_amount);
2897: IF v_cohort_Seg_name IS NOT NULL THEN
2898: vl_count := vl_count+1 ;
2899: dbms_sql.column_value(vl_appor_cursor, vl_count,
2900: vl_cohort_yr);
2901: END IF ;
2902: -- vl_appor_ctr := vl_appor_ctr + 1 ;
2903:
3000: END IF ;
3001: END LOOP ;
3002: -- Close the Apportionment Category Cursor
3003: BEGIN
3004: dbms_sql.close_cursor(vl_appor_cursor);
3005: EXCEPTION
3006: WHEN OTHERS THEN
3007: vp_retcode := sqlcode ;
3008: vp_errbuf := sqlerrm ;
3052: END LOOP ; /* For the Main Cursor */
3053:
3054: -- Close the Main Cursor
3055: BEGIN
3056: dbms_sql.Close_Cursor(vl_main_cursor);
3057: EXCEPTION
3058: WHEN OTHERS THEN
3059: vp_retcode := sqlcode ;
3060: vp_errbuf := sqlerrm ;
4293: vl_bal_select VARCHAR2(2000) ;
4294: BEGIN
4295: l_module_name := g_module_name || 'calc_balance';
4296: BEGIN
4297: vl_bal_cursor := DBMS_SQL.OPEN_CURSOR ;
4298: EXCEPTION
4299: WHEN OTHERS THEN
4300: vp_retcode := sqlcode ;
4301: vp_errbuf := sqlerrm || ' [CALC_BALANCE - Open Cursor] ' ;
4330: 'Calc bal: '||vl_bal_select) ;
4331: END IF;
4332:
4333: BEGIN
4334: dbms_sql.parse(vl_bal_cursor, vl_bal_select, DBMS_SQL.V7) ;
4335: EXCEPTION
4336: WHEN OTHERS THEN
4337: vp_retcode := sqlcode ;
4338: vp_errbuf := sqlerrm || ' [CALC_BALANCE - Parse] ' ;
4341: RETURN;
4342: END ;
4343:
4344: -- Bind the variables
4345: dbms_sql.bind_variable(vl_bal_cursor,':actual_flag', 'A');
4346: dbms_sql.bind_variable(vl_bal_cursor,':fund_value', fund_value);
4347: dbms_sql.bind_variable(vl_bal_cursor,':acct_num', acct_num);
4348: dbms_sql.bind_variable(vl_bal_cursor,':fiscal_year', fiscal_year);
4349: dbms_sql.bind_variable(vl_bal_cursor,':set_of_books_id',
4342: END ;
4343:
4344: -- Bind the variables
4345: dbms_sql.bind_variable(vl_bal_cursor,':actual_flag', 'A');
4346: dbms_sql.bind_variable(vl_bal_cursor,':fund_value', fund_value);
4347: dbms_sql.bind_variable(vl_bal_cursor,':acct_num', acct_num);
4348: dbms_sql.bind_variable(vl_bal_cursor,':fiscal_year', fiscal_year);
4349: dbms_sql.bind_variable(vl_bal_cursor,':set_of_books_id',
4350: vp_set_of_books_id);
4343:
4344: -- Bind the variables
4345: dbms_sql.bind_variable(vl_bal_cursor,':actual_flag', 'A');
4346: dbms_sql.bind_variable(vl_bal_cursor,':fund_value', fund_value);
4347: dbms_sql.bind_variable(vl_bal_cursor,':acct_num', acct_num);
4348: dbms_sql.bind_variable(vl_bal_cursor,':fiscal_year', fiscal_year);
4349: dbms_sql.bind_variable(vl_bal_cursor,':set_of_books_id',
4350: vp_set_of_books_id);
4351: dbms_sql.bind_variable(vl_bal_cursor,':period_num', period_num);
4344: -- Bind the variables
4345: dbms_sql.bind_variable(vl_bal_cursor,':actual_flag', 'A');
4346: dbms_sql.bind_variable(vl_bal_cursor,':fund_value', fund_value);
4347: dbms_sql.bind_variable(vl_bal_cursor,':acct_num', acct_num);
4348: dbms_sql.bind_variable(vl_bal_cursor,':fiscal_year', fiscal_year);
4349: dbms_sql.bind_variable(vl_bal_cursor,':set_of_books_id',
4350: vp_set_of_books_id);
4351: dbms_sql.bind_variable(vl_bal_cursor,':period_num', period_num);
4352: dbms_sql.bind_variable(vl_bal_cursor,':period_year', period_year);
4345: dbms_sql.bind_variable(vl_bal_cursor,':actual_flag', 'A');
4346: dbms_sql.bind_variable(vl_bal_cursor,':fund_value', fund_value);
4347: dbms_sql.bind_variable(vl_bal_cursor,':acct_num', acct_num);
4348: dbms_sql.bind_variable(vl_bal_cursor,':fiscal_year', fiscal_year);
4349: dbms_sql.bind_variable(vl_bal_cursor,':set_of_books_id',
4350: vp_set_of_books_id);
4351: dbms_sql.bind_variable(vl_bal_cursor,':period_num', period_num);
4352: dbms_sql.bind_variable(vl_bal_cursor,':period_year', period_year);
4353: dbms_sql.bind_variable(vl_bal_cursor,':currency_code', vp_currency_code);
4347: dbms_sql.bind_variable(vl_bal_cursor,':acct_num', acct_num);
4348: dbms_sql.bind_variable(vl_bal_cursor,':fiscal_year', fiscal_year);
4349: dbms_sql.bind_variable(vl_bal_cursor,':set_of_books_id',
4350: vp_set_of_books_id);
4351: dbms_sql.bind_variable(vl_bal_cursor,':period_num', period_num);
4352: dbms_sql.bind_variable(vl_bal_cursor,':period_year', period_year);
4353: dbms_sql.bind_variable(vl_bal_cursor,':currency_code', vp_currency_code);
4354:
4355: dbms_sql.define_column(vl_bal_cursor, 1, amount);
4348: dbms_sql.bind_variable(vl_bal_cursor,':fiscal_year', fiscal_year);
4349: dbms_sql.bind_variable(vl_bal_cursor,':set_of_books_id',
4350: vp_set_of_books_id);
4351: dbms_sql.bind_variable(vl_bal_cursor,':period_num', period_num);
4352: dbms_sql.bind_variable(vl_bal_cursor,':period_year', period_year);
4353: dbms_sql.bind_variable(vl_bal_cursor,':currency_code', vp_currency_code);
4354:
4355: dbms_sql.define_column(vl_bal_cursor, 1, amount);
4356: dbms_sql.define_column(vl_bal_cursor, 2, period_activity);
4349: dbms_sql.bind_variable(vl_bal_cursor,':set_of_books_id',
4350: vp_set_of_books_id);
4351: dbms_sql.bind_variable(vl_bal_cursor,':period_num', period_num);
4352: dbms_sql.bind_variable(vl_bal_cursor,':period_year', period_year);
4353: dbms_sql.bind_variable(vl_bal_cursor,':currency_code', vp_currency_code);
4354:
4355: dbms_sql.define_column(vl_bal_cursor, 1, amount);
4356: dbms_sql.define_column(vl_bal_cursor, 2, period_activity);
4357: BEGIN
4351: dbms_sql.bind_variable(vl_bal_cursor,':period_num', period_num);
4352: dbms_sql.bind_variable(vl_bal_cursor,':period_year', period_year);
4353: dbms_sql.bind_variable(vl_bal_cursor,':currency_code', vp_currency_code);
4354:
4355: dbms_sql.define_column(vl_bal_cursor, 1, amount);
4356: dbms_sql.define_column(vl_bal_cursor, 2, period_activity);
4357: BEGIN
4358: vl_exec_ret := dbms_sql.execute(vl_bal_cursor);
4359: EXCEPTION
4352: dbms_sql.bind_variable(vl_bal_cursor,':period_year', period_year);
4353: dbms_sql.bind_variable(vl_bal_cursor,':currency_code', vp_currency_code);
4354:
4355: dbms_sql.define_column(vl_bal_cursor, 1, amount);
4356: dbms_sql.define_column(vl_bal_cursor, 2, period_activity);
4357: BEGIN
4358: vl_exec_ret := dbms_sql.execute(vl_bal_cursor);
4359: EXCEPTION
4360: WHEN OTHERS THEN
4354:
4355: dbms_sql.define_column(vl_bal_cursor, 1, amount);
4356: dbms_sql.define_column(vl_bal_cursor, 2, period_activity);
4357: BEGIN
4358: vl_exec_ret := dbms_sql.execute(vl_bal_cursor);
4359: EXCEPTION
4360: WHEN OTHERS THEN
4361: vp_retcode := sqlcode ;
4362: vp_errbuf := sqlerrm || ' [CALC_BALANCE - Execute Cursor] ' ;
4363: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
4364: l_module_name||'.execute_vl_bal_cursor', vp_errbuf) ;
4365: END ;
4366: LOOP
4367: IF dbms_sql.fetch_rows(vl_bal_cursor) = 0 THEN
4368: EXIT;
4369: ELSE
4370: -- Fetch the Records into Variables
4371: dbms_sql.column_value(vl_bal_cursor, 1, amount);
4367: IF dbms_sql.fetch_rows(vl_bal_cursor) = 0 THEN
4368: EXIT;
4369: ELSE
4370: -- Fetch the Records into Variables
4371: dbms_sql.column_value(vl_bal_cursor, 1, amount);
4372: dbms_sql.column_value(vl_bal_cursor, 2, period_activity);
4373: END IF;
4374: END LOOP ;
4375: -- Close the Balance Cursor
4368: EXIT;
4369: ELSE
4370: -- Fetch the Records into Variables
4371: dbms_sql.column_value(vl_bal_cursor, 1, amount);
4372: dbms_sql.column_value(vl_bal_cursor, 2, period_activity);
4373: END IF;
4374: END LOOP ;
4375: -- Close the Balance Cursor
4376: BEGIN
4373: END IF;
4374: END LOOP ;
4375: -- Close the Balance Cursor
4376: BEGIN
4377: dbms_sql.Close_Cursor(vl_bal_cursor);
4378: EXCEPTION
4379: WHEN OTHERS THEN
4380: vp_retcode := sqlcode ;
4381: vp_errbuf := sqlerrm ;