1224: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1225: 'Selecting FACTS Transactions.....') ;
1226: END IF;
1227: BEGIN
1228: vl_main_cursor := DBMS_SQL.OPEN_CURSOR ;
1229: EXCEPTION
1230: WHEN OTHERS THEN
1231: vp_retcode := sqlcode ;
1232: vp_errbuf := sqlerrm ;
1314: 'Main Select: '||vl_main_select);
1315: END IF;
1316:
1317: BEGIN
1318: dbms_sql.parse(vl_main_cursor, vl_main_select, DBMS_SQL.V7) ;
1319: EXCEPTION
1320: WHEN OTHERS THEN
1321: vp_retcode := sqlcode ;
1322: vp_errbuf := sqlerrm ;
1320: WHEN OTHERS THEN
1321: vp_retcode := sqlcode ;
1322: vp_errbuf := sqlerrm ;
1323: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
1324: l_module_name||'.dbms_sql_parse', vp_errbuf) ;
1325: RETURN;
1326: END ;
1327:
1328: -- Bind the variables
1325: RETURN;
1326: END ;
1327:
1328: -- Bind the variables
1329: dbms_sql.bind_variable(vl_main_cursor,':actual_flag', 'A');
1330: dbms_sql.bind_variable(vl_main_cursor,':treasury_symbol', vp_treasury_symbol);
1331: dbms_sql.bind_variable(vl_main_cursor,':set_of_books_id', vp_set_of_books_id);
1332: --dbms_sql.bind_variable(vl_main_cursor,':report_fiscal_yr', vp_report_fiscal_yr);
1333: dbms_sql.bind_variable(vl_main_cursor,':currency_code', vp_currency_code);
1326: END ;
1327:
1328: -- Bind the variables
1329: dbms_sql.bind_variable(vl_main_cursor,':actual_flag', 'A');
1330: dbms_sql.bind_variable(vl_main_cursor,':treasury_symbol', vp_treasury_symbol);
1331: dbms_sql.bind_variable(vl_main_cursor,':set_of_books_id', vp_set_of_books_id);
1332: --dbms_sql.bind_variable(vl_main_cursor,':report_fiscal_yr', vp_report_fiscal_yr);
1333: dbms_sql.bind_variable(vl_main_cursor,':currency_code', vp_currency_code);
1334: dbms_sql.bind_variable(vl_main_cursor,':e_period_name', v_period_name); -- added bug5065974
1327:
1328: -- Bind the variables
1329: dbms_sql.bind_variable(vl_main_cursor,':actual_flag', 'A');
1330: dbms_sql.bind_variable(vl_main_cursor,':treasury_symbol', vp_treasury_symbol);
1331: dbms_sql.bind_variable(vl_main_cursor,':set_of_books_id', vp_set_of_books_id);
1332: --dbms_sql.bind_variable(vl_main_cursor,':report_fiscal_yr', vp_report_fiscal_yr);
1333: dbms_sql.bind_variable(vl_main_cursor,':currency_code', vp_currency_code);
1334: dbms_sql.bind_variable(vl_main_cursor,':e_period_name', v_period_name); -- added bug5065974
1335: dbms_sql.bind_variable(vl_main_cursor,':b_period_name', v_begin_period_name); -- added bug5065974
1328: -- Bind the variables
1329: dbms_sql.bind_variable(vl_main_cursor,':actual_flag', 'A');
1330: dbms_sql.bind_variable(vl_main_cursor,':treasury_symbol', vp_treasury_symbol);
1331: dbms_sql.bind_variable(vl_main_cursor,':set_of_books_id', vp_set_of_books_id);
1332: --dbms_sql.bind_variable(vl_main_cursor,':report_fiscal_yr', vp_report_fiscal_yr);
1333: dbms_sql.bind_variable(vl_main_cursor,':currency_code', vp_currency_code);
1334: dbms_sql.bind_variable(vl_main_cursor,':e_period_name', v_period_name); -- added bug5065974
1335: dbms_sql.bind_variable(vl_main_cursor,':b_period_name', v_begin_period_name); -- added bug5065974
1336:
1329: dbms_sql.bind_variable(vl_main_cursor,':actual_flag', 'A');
1330: dbms_sql.bind_variable(vl_main_cursor,':treasury_symbol', vp_treasury_symbol);
1331: dbms_sql.bind_variable(vl_main_cursor,':set_of_books_id', vp_set_of_books_id);
1332: --dbms_sql.bind_variable(vl_main_cursor,':report_fiscal_yr', vp_report_fiscal_yr);
1333: dbms_sql.bind_variable(vl_main_cursor,':currency_code', vp_currency_code);
1334: dbms_sql.bind_variable(vl_main_cursor,':e_period_name', v_period_name); -- added bug5065974
1335: dbms_sql.bind_variable(vl_main_cursor,':b_period_name', v_begin_period_name); -- added bug5065974
1336:
1337: dbms_sql.define_column(vl_main_cursor, 1, vl_acct_num, 25);
1330: dbms_sql.bind_variable(vl_main_cursor,':treasury_symbol', vp_treasury_symbol);
1331: dbms_sql.bind_variable(vl_main_cursor,':set_of_books_id', vp_set_of_books_id);
1332: --dbms_sql.bind_variable(vl_main_cursor,':report_fiscal_yr', vp_report_fiscal_yr);
1333: dbms_sql.bind_variable(vl_main_cursor,':currency_code', vp_currency_code);
1334: dbms_sql.bind_variable(vl_main_cursor,':e_period_name', v_period_name); -- added bug5065974
1335: dbms_sql.bind_variable(vl_main_cursor,':b_period_name', v_begin_period_name); -- added bug5065974
1336:
1337: dbms_sql.define_column(vl_main_cursor, 1, vl_acct_num, 25);
1338: dbms_sql.define_column(vl_main_cursor, 2, vl_fund_value, 25);
1331: dbms_sql.bind_variable(vl_main_cursor,':set_of_books_id', vp_set_of_books_id);
1332: --dbms_sql.bind_variable(vl_main_cursor,':report_fiscal_yr', vp_report_fiscal_yr);
1333: dbms_sql.bind_variable(vl_main_cursor,':currency_code', vp_currency_code);
1334: dbms_sql.bind_variable(vl_main_cursor,':e_period_name', v_period_name); -- added bug5065974
1335: dbms_sql.bind_variable(vl_main_cursor,':b_period_name', v_begin_period_name); -- added bug5065974
1336:
1337: dbms_sql.define_column(vl_main_cursor, 1, vl_acct_num, 25);
1338: dbms_sql.define_column(vl_main_cursor, 2, vl_fund_value, 25);
1339: dbms_sql.define_column(vl_main_cursor, 3, v_fiscal_yr, 25);
1333: dbms_sql.bind_variable(vl_main_cursor,':currency_code', vp_currency_code);
1334: dbms_sql.bind_variable(vl_main_cursor,':e_period_name', v_period_name); -- added bug5065974
1335: dbms_sql.bind_variable(vl_main_cursor,':b_period_name', v_begin_period_name); -- added bug5065974
1336:
1337: dbms_sql.define_column(vl_main_cursor, 1, vl_acct_num, 25);
1338: dbms_sql.define_column(vl_main_cursor, 2, vl_fund_value, 25);
1339: dbms_sql.define_column(vl_main_cursor, 3, v_fiscal_yr, 25);
1340: -- dbms_sql.bind_variable(vl_main_cursor,':report_fiscal_yr', vp_report_fiscal_yr); -- removed bug 5065974
1341: IF v_cohort_seg_name IS NOT NULL THEN
1334: dbms_sql.bind_variable(vl_main_cursor,':e_period_name', v_period_name); -- added bug5065974
1335: dbms_sql.bind_variable(vl_main_cursor,':b_period_name', v_begin_period_name); -- added bug5065974
1336:
1337: dbms_sql.define_column(vl_main_cursor, 1, vl_acct_num, 25);
1338: dbms_sql.define_column(vl_main_cursor, 2, vl_fund_value, 25);
1339: dbms_sql.define_column(vl_main_cursor, 3, v_fiscal_yr, 25);
1340: -- dbms_sql.bind_variable(vl_main_cursor,':report_fiscal_yr', vp_report_fiscal_yr); -- removed bug 5065974
1341: IF v_cohort_seg_name IS NOT NULL THEN
1342: dbms_sql.define_column(vl_main_cursor, 4, vl_cohort_yr, 25);
1335: dbms_sql.bind_variable(vl_main_cursor,':b_period_name', v_begin_period_name); -- added bug5065974
1336:
1337: dbms_sql.define_column(vl_main_cursor, 1, vl_acct_num, 25);
1338: dbms_sql.define_column(vl_main_cursor, 2, vl_fund_value, 25);
1339: dbms_sql.define_column(vl_main_cursor, 3, v_fiscal_yr, 25);
1340: -- dbms_sql.bind_variable(vl_main_cursor,':report_fiscal_yr', vp_report_fiscal_yr); -- removed bug 5065974
1341: IF v_cohort_seg_name IS NOT NULL THEN
1342: dbms_sql.define_column(vl_main_cursor, 4, vl_cohort_yr, 25);
1343: dbms_sql.define_column(vl_main_cursor, 5, vb_amount); -- 5065974
1336:
1337: dbms_sql.define_column(vl_main_cursor, 1, vl_acct_num, 25);
1338: dbms_sql.define_column(vl_main_cursor, 2, vl_fund_value, 25);
1339: dbms_sql.define_column(vl_main_cursor, 3, v_fiscal_yr, 25);
1340: -- dbms_sql.bind_variable(vl_main_cursor,':report_fiscal_yr', vp_report_fiscal_yr); -- removed bug 5065974
1341: IF v_cohort_seg_name IS NOT NULL THEN
1342: dbms_sql.define_column(vl_main_cursor, 4, vl_cohort_yr, 25);
1343: dbms_sql.define_column(vl_main_cursor, 5, vb_amount); -- 5065974
1344: dbms_sql.define_column(vl_main_cursor, 6, ve_amount); -- 5065974
1338: dbms_sql.define_column(vl_main_cursor, 2, vl_fund_value, 25);
1339: dbms_sql.define_column(vl_main_cursor, 3, v_fiscal_yr, 25);
1340: -- dbms_sql.bind_variable(vl_main_cursor,':report_fiscal_yr', vp_report_fiscal_yr); -- removed bug 5065974
1341: IF v_cohort_seg_name IS NOT NULL THEN
1342: dbms_sql.define_column(vl_main_cursor, 4, vl_cohort_yr, 25);
1343: dbms_sql.define_column(vl_main_cursor, 5, vb_amount); -- 5065974
1344: dbms_sql.define_column(vl_main_cursor, 6, ve_amount); -- 5065974
1345: else
1346: dbms_sql.define_column(vl_main_cursor, 4, vb_amount); -- 5065974
1339: dbms_sql.define_column(vl_main_cursor, 3, v_fiscal_yr, 25);
1340: -- dbms_sql.bind_variable(vl_main_cursor,':report_fiscal_yr', vp_report_fiscal_yr); -- removed bug 5065974
1341: IF v_cohort_seg_name IS NOT NULL THEN
1342: dbms_sql.define_column(vl_main_cursor, 4, vl_cohort_yr, 25);
1343: dbms_sql.define_column(vl_main_cursor, 5, vb_amount); -- 5065974
1344: dbms_sql.define_column(vl_main_cursor, 6, ve_amount); -- 5065974
1345: else
1346: dbms_sql.define_column(vl_main_cursor, 4, vb_amount); -- 5065974
1347: dbms_sql.define_column(vl_main_cursor, 5, ve_amount); -- 5065974
1340: -- dbms_sql.bind_variable(vl_main_cursor,':report_fiscal_yr', vp_report_fiscal_yr); -- removed bug 5065974
1341: IF v_cohort_seg_name IS NOT NULL THEN
1342: dbms_sql.define_column(vl_main_cursor, 4, vl_cohort_yr, 25);
1343: dbms_sql.define_column(vl_main_cursor, 5, vb_amount); -- 5065974
1344: dbms_sql.define_column(vl_main_cursor, 6, ve_amount); -- 5065974
1345: else
1346: dbms_sql.define_column(vl_main_cursor, 4, vb_amount); -- 5065974
1347: dbms_sql.define_column(vl_main_cursor, 5, ve_amount); -- 5065974
1348: End if;
1342: dbms_sql.define_column(vl_main_cursor, 4, vl_cohort_yr, 25);
1343: dbms_sql.define_column(vl_main_cursor, 5, vb_amount); -- 5065974
1344: dbms_sql.define_column(vl_main_cursor, 6, ve_amount); -- 5065974
1345: else
1346: dbms_sql.define_column(vl_main_cursor, 4, vb_amount); -- 5065974
1347: dbms_sql.define_column(vl_main_cursor, 5, ve_amount); -- 5065974
1348: End if;
1349:
1350:
1343: dbms_sql.define_column(vl_main_cursor, 5, vb_amount); -- 5065974
1344: dbms_sql.define_column(vl_main_cursor, 6, ve_amount); -- 5065974
1345: else
1346: dbms_sql.define_column(vl_main_cursor, 4, vb_amount); -- 5065974
1347: dbms_sql.define_column(vl_main_cursor, 5, ve_amount); -- 5065974
1348: End if;
1349:
1350:
1351: BEGIN
1348: End if;
1349:
1350:
1351: BEGIN
1352: vl_exec_ret := dbms_sql.execute(vl_main_cursor);
1353: EXCEPTION
1354: WHEN OTHERS THEN
1355: vp_retcode := sqlcode ;
1356: VP_ERRBUF := sqlerrm ;
1354: WHEN OTHERS THEN
1355: vp_retcode := sqlcode ;
1356: VP_ERRBUF := sqlerrm ;
1357: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
1358: l_module_name||'.dbms_sql_parse', vp_errbuf) ;
1359: RETURN;
1360: END ;
1361:
1362: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1397:
1398: v_catb_program_value := NULL;
1399: v_prn_program_value := NULL;
1400:
1401: vl_main_fetch := dbms_sql.fetch_rows(vl_main_cursor) ;
1402:
1403: IF (vl_main_fetch = 0) THEN
1404: IF ( vl_row_count = 0) THEN
1405: -- No Rows to process for FACTS II Report !!
1422: -- Increase the counter for number of records
1423: vl_row_count := vl_row_count + 1 ;
1424:
1425: -- Fetch the Records into Variables
1426: dbms_sql.column_value(vl_main_cursor, 1, vl_acct_num);
1427: dbms_sql.column_value(vl_main_cursor, 2, vl_fund_value);
1428: dbms_sql.column_value(vl_main_cursor, 3, v_fiscal_yr);
1429:
1430: IF v_cohort_seg_name IS NOT NULL THEN
1423: vl_row_count := vl_row_count + 1 ;
1424:
1425: -- Fetch the Records into Variables
1426: dbms_sql.column_value(vl_main_cursor, 1, vl_acct_num);
1427: dbms_sql.column_value(vl_main_cursor, 2, vl_fund_value);
1428: dbms_sql.column_value(vl_main_cursor, 3, v_fiscal_yr);
1429:
1430: IF v_cohort_seg_name IS NOT NULL THEN
1431: dbms_sql.column_value(vl_main_cursor, 4, vl_cohort_yr);
1424:
1425: -- Fetch the Records into Variables
1426: dbms_sql.column_value(vl_main_cursor, 1, vl_acct_num);
1427: dbms_sql.column_value(vl_main_cursor, 2, vl_fund_value);
1428: dbms_sql.column_value(vl_main_cursor, 3, v_fiscal_yr);
1429:
1430: IF v_cohort_seg_name IS NOT NULL THEN
1431: dbms_sql.column_value(vl_main_cursor, 4, vl_cohort_yr);
1432: dbms_sql.column_value(vl_main_cursor, 5, vb_amount);
1427: dbms_sql.column_value(vl_main_cursor, 2, vl_fund_value);
1428: dbms_sql.column_value(vl_main_cursor, 3, v_fiscal_yr);
1429:
1430: IF v_cohort_seg_name IS NOT NULL THEN
1431: dbms_sql.column_value(vl_main_cursor, 4, vl_cohort_yr);
1432: dbms_sql.column_value(vl_main_cursor, 5, vb_amount);
1433: dbms_sql.column_value(vl_main_cursor, 6, ve_amount);
1434: else
1435: dbms_sql.column_value(vl_main_cursor, 4, vb_amount);
1428: dbms_sql.column_value(vl_main_cursor, 3, v_fiscal_yr);
1429:
1430: IF v_cohort_seg_name IS NOT NULL THEN
1431: dbms_sql.column_value(vl_main_cursor, 4, vl_cohort_yr);
1432: dbms_sql.column_value(vl_main_cursor, 5, vb_amount);
1433: dbms_sql.column_value(vl_main_cursor, 6, ve_amount);
1434: else
1435: dbms_sql.column_value(vl_main_cursor, 4, vb_amount);
1436: dbms_sql.column_value(vl_main_cursor, 5, ve_amount);
1429:
1430: IF v_cohort_seg_name IS NOT NULL THEN
1431: dbms_sql.column_value(vl_main_cursor, 4, vl_cohort_yr);
1432: dbms_sql.column_value(vl_main_cursor, 5, vb_amount);
1433: dbms_sql.column_value(vl_main_cursor, 6, ve_amount);
1434: else
1435: dbms_sql.column_value(vl_main_cursor, 4, vb_amount);
1436: dbms_sql.column_value(vl_main_cursor, 5, ve_amount);
1437: END IF;
1431: dbms_sql.column_value(vl_main_cursor, 4, vl_cohort_yr);
1432: dbms_sql.column_value(vl_main_cursor, 5, vb_amount);
1433: dbms_sql.column_value(vl_main_cursor, 6, ve_amount);
1434: else
1435: dbms_sql.column_value(vl_main_cursor, 4, vb_amount);
1436: dbms_sql.column_value(vl_main_cursor, 5, ve_amount);
1437: END IF;
1438:
1439: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1432: dbms_sql.column_value(vl_main_cursor, 5, vb_amount);
1433: dbms_sql.column_value(vl_main_cursor, 6, ve_amount);
1434: else
1435: dbms_sql.column_value(vl_main_cursor, 4, vb_amount);
1436: dbms_sql.column_value(vl_main_cursor, 5, ve_amount);
1437: END IF;
1438:
1439: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1440: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1830: -- derived from Budget Execution tables and store them in a
1831: -- cursor. Then roll them up and insert the summarized record
1832: -- into the temp table.
1833: BEGIN
1834: vl_legis_cursor := DBMS_SQL.OPEN_CURSOR ;
1835: EXCEPTION
1836: WHEN OTHERS THEN
1837: vp_retcode := sqlcode ;
1838: VP_ERRBUF := sqlerrm ;
1958: vl_legis_select) ;
1959: END IF;
1960:
1961: BEGIN
1962: dbms_sql.parse(vl_legis_cursor,vl_legis_select,DBMS_SQL.V7);
1963: EXCEPTION
1964: WHEN OTHERS THEN
1965: vp_retcode := sqlcode ;
1966: vp_errbuf := sqlerrm ;
1964: WHEN OTHERS THEN
1965: vp_retcode := sqlcode ;
1966: vp_errbuf := sqlerrm ;
1967: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
1968: l_module_name||'.dbms_sql_parse_vl_legis_cursor',
1969: vp_errbuf) ;
1970: RETURN ;
1971: END ;
1972:
1971: END ;
1972:
1973:
1974: -- Bind the variables
1975: dbms_sql.bind_variable(vl_legis_cursor,':je_status', 'P');
1976: dbms_sql.bind_variable(vl_legis_cursor,':set_of_books_id',
1977: vp_set_of_books_id);
1978: dbms_sql.bind_variable(vl_legis_cursor,':acct_num',
1979: vl_acct_num);
1972:
1973:
1974: -- Bind the variables
1975: dbms_sql.bind_variable(vl_legis_cursor,':je_status', 'P');
1976: dbms_sql.bind_variable(vl_legis_cursor,':set_of_books_id',
1977: vp_set_of_books_id);
1978: dbms_sql.bind_variable(vl_legis_cursor,':acct_num',
1979: vl_acct_num);
1980: dbms_sql.bind_variable(vl_legis_cursor,':fund_value',
1974: -- Bind the variables
1975: dbms_sql.bind_variable(vl_legis_cursor,':je_status', 'P');
1976: dbms_sql.bind_variable(vl_legis_cursor,':set_of_books_id',
1977: vp_set_of_books_id);
1978: dbms_sql.bind_variable(vl_legis_cursor,':acct_num',
1979: vl_acct_num);
1980: dbms_sql.bind_variable(vl_legis_cursor,':fund_value',
1981: vl_fund_value);
1982: dbms_sql.bind_variable(vl_legis_cursor,':fiscal_yr', v_fiscal_yr);
1976: dbms_sql.bind_variable(vl_legis_cursor,':set_of_books_id',
1977: vp_set_of_books_id);
1978: dbms_sql.bind_variable(vl_legis_cursor,':acct_num',
1979: vl_acct_num);
1980: dbms_sql.bind_variable(vl_legis_cursor,':fund_value',
1981: vl_fund_value);
1982: dbms_sql.bind_variable(vl_legis_cursor,':fiscal_yr', v_fiscal_yr);
1983: dbms_sql.bind_variable(vl_legis_cursor,':currency_code',
1984: vp_currency_code);
1978: dbms_sql.bind_variable(vl_legis_cursor,':acct_num',
1979: vl_acct_num);
1980: dbms_sql.bind_variable(vl_legis_cursor,':fund_value',
1981: vl_fund_value);
1982: dbms_sql.bind_variable(vl_legis_cursor,':fiscal_yr', v_fiscal_yr);
1983: dbms_sql.bind_variable(vl_legis_cursor,':currency_code',
1984: vp_currency_code);
1985: dbms_sql.bind_variable(vl_legis_cursor,':begin_period_num',
1986: v_begin_period_num);
1979: vl_acct_num);
1980: dbms_sql.bind_variable(vl_legis_cursor,':fund_value',
1981: vl_fund_value);
1982: dbms_sql.bind_variable(vl_legis_cursor,':fiscal_yr', v_fiscal_yr);
1983: dbms_sql.bind_variable(vl_legis_cursor,':currency_code',
1984: vp_currency_code);
1985: dbms_sql.bind_variable(vl_legis_cursor,':begin_period_num',
1986: v_begin_period_num);
1987: dbms_sql.bind_variable(vl_legis_cursor,':period_num', v_period_num);
1981: vl_fund_value);
1982: dbms_sql.bind_variable(vl_legis_cursor,':fiscal_yr', v_fiscal_yr);
1983: dbms_sql.bind_variable(vl_legis_cursor,':currency_code',
1984: vp_currency_code);
1985: dbms_sql.bind_variable(vl_legis_cursor,':begin_period_num',
1986: v_begin_period_num);
1987: dbms_sql.bind_variable(vl_legis_cursor,':period_num', v_period_num);
1988: dbms_sql.bind_variable(vl_legis_cursor,':report_fiscal_yr',
1989: vp_report_fiscal_yr);
1983: dbms_sql.bind_variable(vl_legis_cursor,':currency_code',
1984: vp_currency_code);
1985: dbms_sql.bind_variable(vl_legis_cursor,':begin_period_num',
1986: v_begin_period_num);
1987: dbms_sql.bind_variable(vl_legis_cursor,':period_num', v_period_num);
1988: dbms_sql.bind_variable(vl_legis_cursor,':report_fiscal_yr',
1989: vp_report_fiscal_yr);
1990:
1991: vl_count := 0;
1984: vp_currency_code);
1985: dbms_sql.bind_variable(vl_legis_cursor,':begin_period_num',
1986: v_begin_period_num);
1987: dbms_sql.bind_variable(vl_legis_cursor,':period_num', v_period_num);
1988: dbms_sql.bind_variable(vl_legis_cursor,':report_fiscal_yr',
1989: vp_report_fiscal_yr);
1990:
1991: vl_count := 0;
1992:
1989: vp_report_fiscal_yr);
1990:
1991: vl_count := 0;
1992:
1993: dbms_sql.define_column(vl_legis_cursor, 1, vl_legis_ref, 240);
1994: dbms_sql.define_column(vl_legis_cursor, 2, vl_legis_amount );
1995: dbms_sql.define_column(vl_legis_cursor, 3, vl_effective_date );
1996: dbms_sql.define_column(vl_legis_cursor, 4, vl_period_name, 15 );
1997: dbms_sql.define_column(vl_legis_cursor, 5, vl_je_source, 25 );
1990:
1991: vl_count := 0;
1992:
1993: dbms_sql.define_column(vl_legis_cursor, 1, vl_legis_ref, 240);
1994: dbms_sql.define_column(vl_legis_cursor, 2, vl_legis_amount );
1995: dbms_sql.define_column(vl_legis_cursor, 3, vl_effective_date );
1996: dbms_sql.define_column(vl_legis_cursor, 4, vl_period_name, 15 );
1997: dbms_sql.define_column(vl_legis_cursor, 5, vl_je_source, 25 );
1998:
1991: vl_count := 0;
1992:
1993: dbms_sql.define_column(vl_legis_cursor, 1, vl_legis_ref, 240);
1994: dbms_sql.define_column(vl_legis_cursor, 2, vl_legis_amount );
1995: dbms_sql.define_column(vl_legis_cursor, 3, vl_effective_date );
1996: dbms_sql.define_column(vl_legis_cursor, 4, vl_period_name, 15 );
1997: dbms_sql.define_column(vl_legis_cursor, 5, vl_je_source, 25 );
1998:
1999: vl_count := 6;
1992:
1993: dbms_sql.define_column(vl_legis_cursor, 1, vl_legis_ref, 240);
1994: dbms_sql.define_column(vl_legis_cursor, 2, vl_legis_amount );
1995: dbms_sql.define_column(vl_legis_cursor, 3, vl_effective_date );
1996: dbms_sql.define_column(vl_legis_cursor, 4, vl_period_name, 15 );
1997: dbms_sql.define_column(vl_legis_cursor, 5, vl_je_source, 25 );
1998:
1999: vl_count := 6;
2000:
1993: dbms_sql.define_column(vl_legis_cursor, 1, vl_legis_ref, 240);
1994: dbms_sql.define_column(vl_legis_cursor, 2, vl_legis_amount );
1995: dbms_sql.define_column(vl_legis_cursor, 3, vl_effective_date );
1996: dbms_sql.define_column(vl_legis_cursor, 4, vl_period_name, 15 );
1997: dbms_sql.define_column(vl_legis_cursor, 5, vl_je_source, 25 );
1998:
1999: vl_count := 6;
2000:
2001: IF va_pl_code_col IS NOT NULL THEN
1998:
1999: vl_count := 6;
2000:
2001: IF va_pl_code_col IS NOT NULL THEN
2002: dbms_sql.define_column(vl_legis_cursor, vl_count, vl_pl_code, 150);
2003: vl_count := vl_count + 1;
2004: END IF;
2005:
2006: IF va_tr_main_acct_col IS NOT NULL THEN
2003: vl_count := vl_count + 1;
2004: END IF;
2005:
2006: IF va_tr_main_acct_col IS NOT NULL THEN
2007: dbms_sql.define_column(vl_legis_cursor, vl_count,
2008: vl_tr_main_acct, 150);
2009: vl_count := vl_count + 1;
2010: END IF;
2011:
2009: vl_count := vl_count + 1;
2010: END IF;
2011:
2012: IF va_tr_dept_id_col IS NOT NULL THEN
2013: dbms_sql.define_column(vl_legis_cursor, vl_count,
2014: vl_tr_dept_id, 150);
2015: vl_count := vl_count + 1;
2016: END IF;
2017:
2015: vl_count := vl_count + 1;
2016: END IF;
2017:
2018: IF va_advance_type_col IS NOT NULL THEN
2019: dbms_sql.define_column(vl_legis_cursor, vl_count,
2020: vl_advance_type, 150);
2021: END IF;
2022:
2023: BEGIN
2020: vl_advance_type, 150);
2021: END IF;
2022:
2023: BEGIN
2024: vl_exec_ret := dbms_sql.execute(vl_legis_cursor);
2025: EXCEPTION
2026: WHEN OTHERS THEN
2027: vp_retcode := sqlcode ;
2028: vp_errbuf := sqlerrm ;
2026: WHEN OTHERS THEN
2027: vp_retcode := sqlcode ;
2028: vp_errbuf := sqlerrm ;
2029: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
2030: l_module_name||'.dbms_sql_execute_vl_legis_cursor',
2031: vp_errbuf) ;
2032: RETURN ;
2033: END ;
2034:
2033: END ;
2034:
2035: LOOP
2036: vl_exception_cat := 0;
2037: IF dbms_sql.fetch_rows(vl_legis_cursor) = 0 THEN
2038: EXIT;
2039: ELSE
2040:
2041: vl_count := 0;
2039: ELSE
2040:
2041: vl_count := 0;
2042: -- Fetch the Records into Variables
2043: dbms_sql.column_value(vl_legis_cursor,1,vl_legis_ref);
2044: dbms_sql.column_value(vl_legis_cursor,2,vl_legis_amount);
2045: dbms_sql.column_value(vl_legis_cursor,3,vl_effective_date);
2046: dbms_sql.column_value(vl_legis_cursor,4,vl_period_name);
2047: dbms_sql.column_value(vl_legis_cursor,5,vl_je_source);
2040:
2041: vl_count := 0;
2042: -- Fetch the Records into Variables
2043: dbms_sql.column_value(vl_legis_cursor,1,vl_legis_ref);
2044: dbms_sql.column_value(vl_legis_cursor,2,vl_legis_amount);
2045: dbms_sql.column_value(vl_legis_cursor,3,vl_effective_date);
2046: dbms_sql.column_value(vl_legis_cursor,4,vl_period_name);
2047: dbms_sql.column_value(vl_legis_cursor,5,vl_je_source);
2048:
2041: vl_count := 0;
2042: -- Fetch the Records into Variables
2043: dbms_sql.column_value(vl_legis_cursor,1,vl_legis_ref);
2044: dbms_sql.column_value(vl_legis_cursor,2,vl_legis_amount);
2045: dbms_sql.column_value(vl_legis_cursor,3,vl_effective_date);
2046: dbms_sql.column_value(vl_legis_cursor,4,vl_period_name);
2047: dbms_sql.column_value(vl_legis_cursor,5,vl_je_source);
2048:
2049: --fnd_file.put_line(fnd_file.log , 'vl_legis_ref ' || vl_legis_ref);
2042: -- Fetch the Records into Variables
2043: dbms_sql.column_value(vl_legis_cursor,1,vl_legis_ref);
2044: dbms_sql.column_value(vl_legis_cursor,2,vl_legis_amount);
2045: dbms_sql.column_value(vl_legis_cursor,3,vl_effective_date);
2046: dbms_sql.column_value(vl_legis_cursor,4,vl_period_name);
2047: dbms_sql.column_value(vl_legis_cursor,5,vl_je_source);
2048:
2049: --fnd_file.put_line(fnd_file.log , 'vl_legis_ref ' || vl_legis_ref);
2050: --fnd_file.put_line(fnd_file.log , 'vl_je_source ' || vl_je_source);
2043: dbms_sql.column_value(vl_legis_cursor,1,vl_legis_ref);
2044: dbms_sql.column_value(vl_legis_cursor,2,vl_legis_amount);
2045: dbms_sql.column_value(vl_legis_cursor,3,vl_effective_date);
2046: dbms_sql.column_value(vl_legis_cursor,4,vl_period_name);
2047: dbms_sql.column_value(vl_legis_cursor,5,vl_je_source);
2048:
2049: --fnd_file.put_line(fnd_file.log , 'vl_legis_ref ' || vl_legis_ref);
2050: --fnd_file.put_line(fnd_file.log , 'vl_je_source ' || vl_je_source);
2051: --fnd_file.put_line(fnd_file.log , 'vl_legis_amount ' || vl_legis_amount);
2051: --fnd_file.put_line(fnd_file.log , 'vl_legis_amount ' || vl_legis_amount);
2052: vl_count := 6;
2053:
2054: IF va_pl_code_col IS NOT NULL THEN
2055: dbms_sql.column_value(vl_legis_cursor,
2056: vl_count, vl_pl_code);
2057: vl_count := vl_count + 1;
2058: END IF;
2059:
2057: vl_count := vl_count + 1;
2058: END IF;
2059:
2060: IF va_tr_main_acct_col IS NOT NULL THEN
2061: dbms_sql.column_value(vl_legis_cursor, vl_count,
2062: vl_tr_main_acct);
2063: vl_count := vl_count + 1;
2064: END IF;
2065:
2063: vl_count := vl_count + 1;
2064: END IF;
2065:
2066: IF va_tr_dept_id_col IS NOT NULL THEN
2067: dbms_sql.column_value(vl_legis_cursor, vl_count,
2068: vl_tr_dept_id);
2069: vl_count := vl_count + 1;
2070: END IF;
2071:
2069: vl_count := vl_count + 1;
2070: END IF;
2071:
2072: IF va_advance_type_col IS NOT NULL THEN
2073: dbms_sql.column_value(vl_legis_cursor, vl_count,
2074: vl_advance_type);
2075: END IF;
2076:
2077: IF ( FND_LOG.LEVEL_STATEMENT >=
2456:
2457: END LOOP;
2458: -- Close the Legislative Indicator Cursor
2459: BEGIN
2460: dbms_sql.close_cursor(vl_legis_cursor);
2461: EXCEPTION
2462: WHEN OTHERS THEN
2463: vp_retcode := sqlcode ;
2464: VP_ERRBUF := sqlerrm ;
2523: (v_catb_prg_seg_name IS NULL
2524: AND va_appor_cat_val = 'A')) AND
2525: V_PRN_PRG_SEG_NAME IS not null THEN
2526: BEGIN
2527: vl_appor_cursor := DBMS_SQL.OPEN_CURSOR ;
2528: EXCEPTION
2529: WHEN OTHERS THEN
2530: vp_retcode := sqlcode ;
2531: vp_errbuf := sqlerrm ;
2547: v_fiscal_yr,
2548: vl_appor_period,
2549: vl_appor_select) ;
2550: BEGIN
2551: dbms_sql.parse(vl_appor_cursor,vl_appor_select,
2552: DBMS_SQL.V7);
2553: EXCEPTION
2554: WHEN OTHERS THEN
2555: vp_retcode := sqlcode ;
2548: vl_appor_period,
2549: vl_appor_select) ;
2550: BEGIN
2551: dbms_sql.parse(vl_appor_cursor,vl_appor_select,
2552: DBMS_SQL.V7);
2553: EXCEPTION
2554: WHEN OTHERS THEN
2555: vp_retcode := sqlcode ;
2556: vp_errbuf := sqlerrm || ' [MAIN - APPOR]' ;
2559: RETURN ;
2560: END ;
2561:
2562: -- Bind the variables
2563: dbms_sql.bind_variable(vl_appor_cursor, ':actual_flag', 'A');
2564: dbms_sql.bind_variable(vl_appor_cursor, ':fund_value',
2565: vl_fund_value);
2566: dbms_sql.bind_variable(vl_appor_cursor, ':acct_number',
2567: vl_acct_num);
2560: END ;
2561:
2562: -- Bind the variables
2563: dbms_sql.bind_variable(vl_appor_cursor, ':actual_flag', 'A');
2564: dbms_sql.bind_variable(vl_appor_cursor, ':fund_value',
2565: vl_fund_value);
2566: dbms_sql.bind_variable(vl_appor_cursor, ':acct_number',
2567: vl_acct_num);
2568: dbms_sql.bind_variable(vl_appor_cursor, ':fiscal_year',
2562: -- Bind the variables
2563: dbms_sql.bind_variable(vl_appor_cursor, ':actual_flag', 'A');
2564: dbms_sql.bind_variable(vl_appor_cursor, ':fund_value',
2565: vl_fund_value);
2566: dbms_sql.bind_variable(vl_appor_cursor, ':acct_number',
2567: vl_acct_num);
2568: dbms_sql.bind_variable(vl_appor_cursor, ':fiscal_year',
2569: v_fiscal_yr);
2570: dbms_sql.bind_variable(vl_appor_cursor, ':begin_period_num',
2564: dbms_sql.bind_variable(vl_appor_cursor, ':fund_value',
2565: vl_fund_value);
2566: dbms_sql.bind_variable(vl_appor_cursor, ':acct_number',
2567: vl_acct_num);
2568: dbms_sql.bind_variable(vl_appor_cursor, ':fiscal_year',
2569: v_fiscal_yr);
2570: dbms_sql.bind_variable(vl_appor_cursor, ':begin_period_num',
2571: v_begin_period_num);
2572: dbms_sql.bind_variable(vl_appor_cursor, ':report_fiscal_yr',
2566: dbms_sql.bind_variable(vl_appor_cursor, ':acct_number',
2567: vl_acct_num);
2568: dbms_sql.bind_variable(vl_appor_cursor, ':fiscal_year',
2569: v_fiscal_yr);
2570: dbms_sql.bind_variable(vl_appor_cursor, ':begin_period_num',
2571: v_begin_period_num);
2572: dbms_sql.bind_variable(vl_appor_cursor, ':report_fiscal_yr',
2573: vp_report_fiscal_yr);
2574: dbms_sql.bind_variable(vl_appor_cursor, ':set_of_books_id',
2568: dbms_sql.bind_variable(vl_appor_cursor, ':fiscal_year',
2569: v_fiscal_yr);
2570: dbms_sql.bind_variable(vl_appor_cursor, ':begin_period_num',
2571: v_begin_period_num);
2572: dbms_sql.bind_variable(vl_appor_cursor, ':report_fiscal_yr',
2573: vp_report_fiscal_yr);
2574: dbms_sql.bind_variable(vl_appor_cursor, ':set_of_books_id',
2575: vp_set_of_books_id);
2576: dbms_sql.bind_variable(vl_appor_cursor, ':currency_code',
2570: dbms_sql.bind_variable(vl_appor_cursor, ':begin_period_num',
2571: v_begin_period_num);
2572: dbms_sql.bind_variable(vl_appor_cursor, ':report_fiscal_yr',
2573: vp_report_fiscal_yr);
2574: dbms_sql.bind_variable(vl_appor_cursor, ':set_of_books_id',
2575: vp_set_of_books_id);
2576: dbms_sql.bind_variable(vl_appor_cursor, ':currency_code',
2577: vp_currency_code);
2578:
2572: dbms_sql.bind_variable(vl_appor_cursor, ':report_fiscal_yr',
2573: vp_report_fiscal_yr);
2574: dbms_sql.bind_variable(vl_appor_cursor, ':set_of_books_id',
2575: vp_set_of_books_id);
2576: dbms_sql.bind_variable(vl_appor_cursor, ':currency_code',
2577: vp_currency_code);
2578:
2579:
2580: dbms_sql.define_column(vl_appor_cursor,1,vl_acct_num,25);
2576: dbms_sql.bind_variable(vl_appor_cursor, ':currency_code',
2577: vp_currency_code);
2578:
2579:
2580: dbms_sql.define_column(vl_appor_cursor,1,vl_acct_num,25);
2581: dbms_sql.define_column(vl_appor_cursor,2,vl_fund_value,25);
2582: vl_count := 3;
2583: IF v_catb_prg_seg_name IS NOT NULL THEN
2584: dbms_sql.define_column(vl_appor_cursor,vl_count,vl_catb_program,25);
2577: vp_currency_code);
2578:
2579:
2580: dbms_sql.define_column(vl_appor_cursor,1,vl_acct_num,25);
2581: dbms_sql.define_column(vl_appor_cursor,2,vl_fund_value,25);
2582: vl_count := 3;
2583: IF v_catb_prg_seg_name IS NOT NULL THEN
2584: dbms_sql.define_column(vl_appor_cursor,vl_count,vl_catb_program,25);
2585: vl_count := vl_count+1 ;
2580: dbms_sql.define_column(vl_appor_cursor,1,vl_acct_num,25);
2581: dbms_sql.define_column(vl_appor_cursor,2,vl_fund_value,25);
2582: vl_count := 3;
2583: IF v_catb_prg_seg_name IS NOT NULL THEN
2584: dbms_sql.define_column(vl_appor_cursor,vl_count,vl_catb_program,25);
2585: vl_count := vl_count+1 ;
2586: END IF;
2587:
2588: dbms_sql.define_column(vl_appor_cursor,vl_count,vl_prn_program,25);
2584: dbms_sql.define_column(vl_appor_cursor,vl_count,vl_catb_program,25);
2585: vl_count := vl_count+1 ;
2586: END IF;
2587:
2588: dbms_sql.define_column(vl_appor_cursor,vl_count,vl_prn_program,25);
2589: vl_count := vl_count+1 ;
2590:
2591: dbms_sql.define_column(vl_appor_cursor,vl_count,v_amount);
2592:
2587:
2588: dbms_sql.define_column(vl_appor_cursor,vl_count,vl_prn_program,25);
2589: vl_count := vl_count+1 ;
2590:
2591: dbms_sql.define_column(vl_appor_cursor,vl_count,v_amount);
2592:
2593: IF v_cohort_Seg_name IS NOT NULL THEN
2594: vl_count := vl_count+1 ;
2595: dbms_sql.define_column(vl_appor_cursor,vl_count,vl_cohort_yr,25);
2591: dbms_sql.define_column(vl_appor_cursor,vl_count,v_amount);
2592:
2593: IF v_cohort_Seg_name IS NOT NULL THEN
2594: vl_count := vl_count+1 ;
2595: dbms_sql.define_column(vl_appor_cursor,vl_count,vl_cohort_yr,25);
2596: END IF ;
2597:
2598: BEGIN
2599: vl_exec_ret := dbms_sql.execute(vl_appor_cursor);
2595: dbms_sql.define_column(vl_appor_cursor,vl_count,vl_cohort_yr,25);
2596: END IF ;
2597:
2598: BEGIN
2599: vl_exec_ret := dbms_sql.execute(vl_appor_cursor);
2600: EXCEPTION
2601: WHEN OTHERS THEN
2602: vp_retcode := sqlcode ;
2603: vp_errbuf := sqlerrm ;
2608: END ;
2609: -- Reset the counter for apportionment cat b Dtl
2610: -- vl_appor_ctr := 0 ;
2611: LOOP
2612: IF dbms_sql.fetch_rows(vl_appor_cursor) = 0 THEN
2613: EXIT;
2614: ELSE
2615: -- Fetch the Records into Variables
2616: dbms_sql.column_value(vl_appor_cursor,1,
2612: IF dbms_sql.fetch_rows(vl_appor_cursor) = 0 THEN
2613: EXIT;
2614: ELSE
2615: -- Fetch the Records into Variables
2616: dbms_sql.column_value(vl_appor_cursor,1,
2617: vl_acct_num);
2618: dbms_sql.column_value(vl_appor_cursor,2,
2619: vl_fund_value);
2620: vl_count := 3;
2614: ELSE
2615: -- Fetch the Records into Variables
2616: dbms_sql.column_value(vl_appor_cursor,1,
2617: vl_acct_num);
2618: dbms_sql.column_value(vl_appor_cursor,2,
2619: vl_fund_value);
2620: vl_count := 3;
2621:
2622: IF v_catb_prg_seg_name IS NOT NULL THEN
2619: vl_fund_value);
2620: vl_count := 3;
2621:
2622: IF v_catb_prg_seg_name IS NOT NULL THEN
2623: dbms_sql.column_value(vl_appor_cursor,vl_count,
2624: vl_catb_program);
2625: vl_count := vl_count+1 ;
2626: END IF;
2627: dbms_sql.column_value(vl_appor_cursor,vl_count,
2623: dbms_sql.column_value(vl_appor_cursor,vl_count,
2624: vl_catb_program);
2625: vl_count := vl_count+1 ;
2626: END IF;
2627: dbms_sql.column_value(vl_appor_cursor,vl_count,
2628: vl_prn_program);
2629: vl_count := vl_count+1 ;
2630: -- v_amount holds beginning balance.
2631: dbms_sql.column_value(vl_appor_cursor,vl_count,
2627: dbms_sql.column_value(vl_appor_cursor,vl_count,
2628: vl_prn_program);
2629: vl_count := vl_count+1 ;
2630: -- v_amount holds beginning balance.
2631: dbms_sql.column_value(vl_appor_cursor,vl_count,
2632: v_amount);
2633: IF v_cohort_Seg_name IS NOT NULL THEN
2634: vl_count := vl_count+1 ;
2635: dbms_sql.column_value(vl_appor_cursor,vl_count,
2631: dbms_sql.column_value(vl_appor_cursor,vl_count,
2632: v_amount);
2633: IF v_cohort_Seg_name IS NOT NULL THEN
2634: vl_count := vl_count+1 ;
2635: dbms_sql.column_value(vl_appor_cursor,vl_count,
2636: vl_cohort_yr);
2637: END IF ;
2638:
2639: -- vl_appor_ctr := vl_appor_ctr + 1 ;
2736:
2737: END LOOP ;
2738: -- Close the Apportionment Category Cursor
2739: BEGIN
2740: dbms_sql.close_cursor(vl_appor_cursor);
2741: EXCEPTION
2742: WHEN OTHERS THEN
2743: vp_retcode := sqlcode ;
2744: vp_errbuf := sqlerrm ;
2748: END ;
2749:
2750: -- Processing Apportionment Category for Ending Balance
2751: BEGIN
2752: vl_appor_cursor := DBMS_SQL.OPEN_CURSOR ;
2753: EXCEPTION
2754: WHEN OTHERS THEN
2755: vp_retcode := sqlcode ;
2756: vp_errbuf := sqlerrm ;
2771: vl_appor_period,
2772: vl_appor_select) ;
2773:
2774: BEGIN
2775: dbms_sql.parse(vl_appor_cursor,vl_appor_select,
2776: DBMS_SQL.V7);
2777: EXCEPTION
2778: WHEN OTHERS THEN
2779: vp_retcode := sqlcode ;
2772: vl_appor_select) ;
2773:
2774: BEGIN
2775: dbms_sql.parse(vl_appor_cursor,vl_appor_select,
2776: DBMS_SQL.V7);
2777: EXCEPTION
2778: WHEN OTHERS THEN
2779: vp_retcode := sqlcode ;
2780: vp_errbuf := sqlerrm || ' [MAIN - APPOR]' ;
2784: RETURN ;
2785: END ;
2786:
2787: -- Bind the variables
2788: dbms_sql.bind_variable(vl_appor_cursor, ':actual_flag', 'A');
2789: dbms_sql.bind_variable(vl_appor_cursor, ':fund_value',
2790: vl_fund_value);
2791: dbms_sql.bind_variable(vl_appor_cursor, ':acct_number',
2792: vl_acct_num);
2785: END ;
2786:
2787: -- Bind the variables
2788: dbms_sql.bind_variable(vl_appor_cursor, ':actual_flag', 'A');
2789: dbms_sql.bind_variable(vl_appor_cursor, ':fund_value',
2790: vl_fund_value);
2791: dbms_sql.bind_variable(vl_appor_cursor, ':acct_number',
2792: vl_acct_num);
2793: dbms_sql.bind_variable(vl_appor_cursor, ':fiscal_year',
2787: -- Bind the variables
2788: dbms_sql.bind_variable(vl_appor_cursor, ':actual_flag', 'A');
2789: dbms_sql.bind_variable(vl_appor_cursor, ':fund_value',
2790: vl_fund_value);
2791: dbms_sql.bind_variable(vl_appor_cursor, ':acct_number',
2792: vl_acct_num);
2793: dbms_sql.bind_variable(vl_appor_cursor, ':fiscal_year',
2794: v_fiscal_yr);
2795: dbms_sql.bind_variable(vl_appor_cursor, ':period_num',
2789: dbms_sql.bind_variable(vl_appor_cursor, ':fund_value',
2790: vl_fund_value);
2791: dbms_sql.bind_variable(vl_appor_cursor, ':acct_number',
2792: vl_acct_num);
2793: dbms_sql.bind_variable(vl_appor_cursor, ':fiscal_year',
2794: v_fiscal_yr);
2795: dbms_sql.bind_variable(vl_appor_cursor, ':period_num',
2796: v_period_num);
2797: dbms_sql.bind_variable(vl_appor_cursor,':report_fiscal_yr',
2791: dbms_sql.bind_variable(vl_appor_cursor, ':acct_number',
2792: vl_acct_num);
2793: dbms_sql.bind_variable(vl_appor_cursor, ':fiscal_year',
2794: v_fiscal_yr);
2795: dbms_sql.bind_variable(vl_appor_cursor, ':period_num',
2796: v_period_num);
2797: dbms_sql.bind_variable(vl_appor_cursor,':report_fiscal_yr',
2798: vp_report_fiscal_yr);
2799: dbms_sql.bind_variable(vl_appor_cursor,':set_of_books_id',
2793: dbms_sql.bind_variable(vl_appor_cursor, ':fiscal_year',
2794: v_fiscal_yr);
2795: dbms_sql.bind_variable(vl_appor_cursor, ':period_num',
2796: v_period_num);
2797: dbms_sql.bind_variable(vl_appor_cursor,':report_fiscal_yr',
2798: vp_report_fiscal_yr);
2799: dbms_sql.bind_variable(vl_appor_cursor,':set_of_books_id',
2800: vp_set_of_books_id);
2801: dbms_sql.bind_variable(vl_appor_cursor, ':currency_code',
2795: dbms_sql.bind_variable(vl_appor_cursor, ':period_num',
2796: v_period_num);
2797: dbms_sql.bind_variable(vl_appor_cursor,':report_fiscal_yr',
2798: vp_report_fiscal_yr);
2799: dbms_sql.bind_variable(vl_appor_cursor,':set_of_books_id',
2800: vp_set_of_books_id);
2801: dbms_sql.bind_variable(vl_appor_cursor, ':currency_code',
2802: vp_currency_code);
2803:
2797: dbms_sql.bind_variable(vl_appor_cursor,':report_fiscal_yr',
2798: vp_report_fiscal_yr);
2799: dbms_sql.bind_variable(vl_appor_cursor,':set_of_books_id',
2800: vp_set_of_books_id);
2801: dbms_sql.bind_variable(vl_appor_cursor, ':currency_code',
2802: vp_currency_code);
2803:
2804:
2805: dbms_sql.define_column(vl_appor_cursor,1,vl_acct_num,25);
2801: dbms_sql.bind_variable(vl_appor_cursor, ':currency_code',
2802: vp_currency_code);
2803:
2804:
2805: dbms_sql.define_column(vl_appor_cursor,1,vl_acct_num,25);
2806: dbms_sql.define_column(vl_appor_cursor,2,vl_fund_value,25);
2807: vl_count := 3;
2808: IF v_catb_prg_seg_name IS NOT NULL THEN
2809: dbms_sql.define_column(vl_appor_cursor,3,vl_catb_program,25);
2802: vp_currency_code);
2803:
2804:
2805: dbms_sql.define_column(vl_appor_cursor,1,vl_acct_num,25);
2806: dbms_sql.define_column(vl_appor_cursor,2,vl_fund_value,25);
2807: vl_count := 3;
2808: IF v_catb_prg_seg_name IS NOT NULL THEN
2809: dbms_sql.define_column(vl_appor_cursor,3,vl_catb_program,25);
2810: vl_count := vl_count+1 ;
2805: dbms_sql.define_column(vl_appor_cursor,1,vl_acct_num,25);
2806: dbms_sql.define_column(vl_appor_cursor,2,vl_fund_value,25);
2807: vl_count := 3;
2808: IF v_catb_prg_seg_name IS NOT NULL THEN
2809: dbms_sql.define_column(vl_appor_cursor,3,vl_catb_program,25);
2810: vl_count := vl_count+1 ;
2811: END IF ;
2812: dbms_sql.define_column(vl_appor_cursor,vl_count,vl_prn_program,25);
2813: vl_count := vl_count+1 ;
2808: IF v_catb_prg_seg_name IS NOT NULL THEN
2809: dbms_sql.define_column(vl_appor_cursor,3,vl_catb_program,25);
2810: vl_count := vl_count+1 ;
2811: END IF ;
2812: dbms_sql.define_column(vl_appor_cursor,vl_count,vl_prn_program,25);
2813: vl_count := vl_count+1 ;
2814: dbms_sql.define_column(vl_appor_cursor,vl_count,v_amount);
2815: IF v_cohort_seg_name IS NOT NULL THEN
2816: vl_count := vl_count+1 ;
2810: vl_count := vl_count+1 ;
2811: END IF ;
2812: dbms_sql.define_column(vl_appor_cursor,vl_count,vl_prn_program,25);
2813: vl_count := vl_count+1 ;
2814: dbms_sql.define_column(vl_appor_cursor,vl_count,v_amount);
2815: IF v_cohort_seg_name IS NOT NULL THEN
2816: vl_count := vl_count+1 ;
2817: dbms_sql.define_column(vl_appor_cursor,vl_count,vl_cohort_yr, 25);
2818: END IF ;
2813: vl_count := vl_count+1 ;
2814: dbms_sql.define_column(vl_appor_cursor,vl_count,v_amount);
2815: IF v_cohort_seg_name IS NOT NULL THEN
2816: vl_count := vl_count+1 ;
2817: dbms_sql.define_column(vl_appor_cursor,vl_count,vl_cohort_yr, 25);
2818: END IF ;
2819: BEGIN
2820: vl_exec_ret := dbms_sql.execute(vl_appor_cursor);
2821: EXCEPTION
2816: vl_count := vl_count+1 ;
2817: dbms_sql.define_column(vl_appor_cursor,vl_count,vl_cohort_yr, 25);
2818: END IF ;
2819: BEGIN
2820: vl_exec_ret := dbms_sql.execute(vl_appor_cursor);
2821: EXCEPTION
2822: WHEN OTHERS THEN
2823: vp_retcode := sqlcode ;
2824: vp_errbuf := sqlerrm ;
2831:
2832: -- Reset the counter for apportionment cat b Dtl
2833: -- vl_appor_ctr := 0 ;
2834: LOOP
2835: IF dbms_sql.fetch_rows(vl_appor_cursor) = 0 THEN
2836: EXIT;
2837: ELSE
2838: -- Fetch the Records into Variables
2839: dbms_sql.column_value(vl_appor_cursor,1,
2835: IF dbms_sql.fetch_rows(vl_appor_cursor) = 0 THEN
2836: EXIT;
2837: ELSE
2838: -- Fetch the Records into Variables
2839: dbms_sql.column_value(vl_appor_cursor,1,
2840: vl_acct_num);
2841: dbms_sql.column_value(vl_appor_cursor,2,
2842: vl_fund_value);
2843: vl_count := 3;
2837: ELSE
2838: -- Fetch the Records into Variables
2839: dbms_sql.column_value(vl_appor_cursor,1,
2840: vl_acct_num);
2841: dbms_sql.column_value(vl_appor_cursor,2,
2842: vl_fund_value);
2843: vl_count := 3;
2844: IF v_catb_prg_seg_name IS NOT NULL THEN
2845: dbms_sql.column_value(vl_appor_cursor,vl_count,
2841: dbms_sql.column_value(vl_appor_cursor,2,
2842: vl_fund_value);
2843: vl_count := 3;
2844: IF v_catb_prg_seg_name IS NOT NULL THEN
2845: dbms_sql.column_value(vl_appor_cursor,vl_count,
2846: vl_catb_program);
2847: vl_count := vl_count+1 ;
2848: END IF;
2849: dbms_sql.column_value(vl_appor_cursor,vl_count,
2845: dbms_sql.column_value(vl_appor_cursor,vl_count,
2846: vl_catb_program);
2847: vl_count := vl_count+1 ;
2848: END IF;
2849: dbms_sql.column_value(vl_appor_cursor,vl_count,
2850: vl_prn_program);
2851: vl_count := vl_count+1 ;
2852: -- v_amount holds Balance of the transaction
2853: dbms_sql.column_value(vl_appor_cursor,vl_count,v_amount);
2849: dbms_sql.column_value(vl_appor_cursor,vl_count,
2850: vl_prn_program);
2851: vl_count := vl_count+1 ;
2852: -- v_amount holds Balance of the transaction
2853: dbms_sql.column_value(vl_appor_cursor,vl_count,v_amount);
2854: IF v_cohort_Seg_name IS NOT NULL THEN
2855: vl_count := vl_count+1 ;
2856: dbms_sql.column_value(vl_appor_cursor, vl_count,
2857: vl_cohort_yr);
2852: -- v_amount holds Balance of the transaction
2853: dbms_sql.column_value(vl_appor_cursor,vl_count,v_amount);
2854: IF v_cohort_Seg_name IS NOT NULL THEN
2855: vl_count := vl_count+1 ;
2856: dbms_sql.column_value(vl_appor_cursor, vl_count,
2857: vl_cohort_yr);
2858: END IF ;
2859: -- vl_appor_ctr := vl_appor_ctr + 1 ;
2860:
2957: END IF ;
2958: END LOOP ;
2959: -- Close the Apportionment Category Cursor
2960: BEGIN
2961: dbms_sql.close_cursor(vl_appor_cursor);
2962: EXCEPTION
2963: WHEN OTHERS THEN
2964: vp_retcode := sqlcode ;
2965: vp_errbuf := sqlerrm ;
3009: END LOOP ; /* For the Main Cursor */
3010:
3011: -- Close the Main Cursor
3012: BEGIN
3013: dbms_sql.Close_Cursor(vl_main_cursor);
3014: EXCEPTION
3015: WHEN OTHERS THEN
3016: vp_retcode := sqlcode ;
3017: vp_errbuf := sqlerrm ;
4221: vl_bal_select VARCHAR2(2000) ;
4222: BEGIN
4223: l_module_name := g_module_name || 'calc_balance';
4224: BEGIN
4225: vl_bal_cursor := DBMS_SQL.OPEN_CURSOR ;
4226: EXCEPTION
4227: WHEN OTHERS THEN
4228: vp_retcode := sqlcode ;
4229: vp_errbuf := sqlerrm || ' [CALC_BALANCE - Open Cursor] ' ;
4258: 'Calc bal: '||vl_bal_select) ;
4259: END IF;
4260:
4261: BEGIN
4262: dbms_sql.parse(vl_bal_cursor, vl_bal_select, DBMS_SQL.V7) ;
4263: EXCEPTION
4264: WHEN OTHERS THEN
4265: vp_retcode := sqlcode ;
4266: vp_errbuf := sqlerrm || ' [CALC_BALANCE - Parse] ' ;
4269: RETURN;
4270: END ;
4271:
4272: -- Bind the variables
4273: dbms_sql.bind_variable(vl_bal_cursor,':actual_flag', 'A');
4274: dbms_sql.bind_variable(vl_bal_cursor,':fund_value', fund_value);
4275: dbms_sql.bind_variable(vl_bal_cursor,':acct_num', acct_num);
4276: dbms_sql.bind_variable(vl_bal_cursor,':fiscal_year', fiscal_year);
4277: dbms_sql.bind_variable(vl_bal_cursor,':set_of_books_id',
4270: END ;
4271:
4272: -- Bind the variables
4273: dbms_sql.bind_variable(vl_bal_cursor,':actual_flag', 'A');
4274: dbms_sql.bind_variable(vl_bal_cursor,':fund_value', fund_value);
4275: dbms_sql.bind_variable(vl_bal_cursor,':acct_num', acct_num);
4276: dbms_sql.bind_variable(vl_bal_cursor,':fiscal_year', fiscal_year);
4277: dbms_sql.bind_variable(vl_bal_cursor,':set_of_books_id',
4278: vp_set_of_books_id);
4271:
4272: -- Bind the variables
4273: dbms_sql.bind_variable(vl_bal_cursor,':actual_flag', 'A');
4274: dbms_sql.bind_variable(vl_bal_cursor,':fund_value', fund_value);
4275: dbms_sql.bind_variable(vl_bal_cursor,':acct_num', acct_num);
4276: dbms_sql.bind_variable(vl_bal_cursor,':fiscal_year', fiscal_year);
4277: dbms_sql.bind_variable(vl_bal_cursor,':set_of_books_id',
4278: vp_set_of_books_id);
4279: dbms_sql.bind_variable(vl_bal_cursor,':period_num', period_num);
4272: -- Bind the variables
4273: dbms_sql.bind_variable(vl_bal_cursor,':actual_flag', 'A');
4274: dbms_sql.bind_variable(vl_bal_cursor,':fund_value', fund_value);
4275: dbms_sql.bind_variable(vl_bal_cursor,':acct_num', acct_num);
4276: dbms_sql.bind_variable(vl_bal_cursor,':fiscal_year', fiscal_year);
4277: dbms_sql.bind_variable(vl_bal_cursor,':set_of_books_id',
4278: vp_set_of_books_id);
4279: dbms_sql.bind_variable(vl_bal_cursor,':period_num', period_num);
4280: dbms_sql.bind_variable(vl_bal_cursor,':period_year', period_year);
4273: dbms_sql.bind_variable(vl_bal_cursor,':actual_flag', 'A');
4274: dbms_sql.bind_variable(vl_bal_cursor,':fund_value', fund_value);
4275: dbms_sql.bind_variable(vl_bal_cursor,':acct_num', acct_num);
4276: dbms_sql.bind_variable(vl_bal_cursor,':fiscal_year', fiscal_year);
4277: dbms_sql.bind_variable(vl_bal_cursor,':set_of_books_id',
4278: vp_set_of_books_id);
4279: dbms_sql.bind_variable(vl_bal_cursor,':period_num', period_num);
4280: dbms_sql.bind_variable(vl_bal_cursor,':period_year', period_year);
4281: dbms_sql.bind_variable(vl_bal_cursor,':currency_code', vp_currency_code);
4275: dbms_sql.bind_variable(vl_bal_cursor,':acct_num', acct_num);
4276: dbms_sql.bind_variable(vl_bal_cursor,':fiscal_year', fiscal_year);
4277: dbms_sql.bind_variable(vl_bal_cursor,':set_of_books_id',
4278: vp_set_of_books_id);
4279: dbms_sql.bind_variable(vl_bal_cursor,':period_num', period_num);
4280: dbms_sql.bind_variable(vl_bal_cursor,':period_year', period_year);
4281: dbms_sql.bind_variable(vl_bal_cursor,':currency_code', vp_currency_code);
4282:
4283: dbms_sql.define_column(vl_bal_cursor, 1, amount);
4276: dbms_sql.bind_variable(vl_bal_cursor,':fiscal_year', fiscal_year);
4277: dbms_sql.bind_variable(vl_bal_cursor,':set_of_books_id',
4278: vp_set_of_books_id);
4279: dbms_sql.bind_variable(vl_bal_cursor,':period_num', period_num);
4280: dbms_sql.bind_variable(vl_bal_cursor,':period_year', period_year);
4281: dbms_sql.bind_variable(vl_bal_cursor,':currency_code', vp_currency_code);
4282:
4283: dbms_sql.define_column(vl_bal_cursor, 1, amount);
4284: dbms_sql.define_column(vl_bal_cursor, 2, period_activity);
4277: dbms_sql.bind_variable(vl_bal_cursor,':set_of_books_id',
4278: vp_set_of_books_id);
4279: dbms_sql.bind_variable(vl_bal_cursor,':period_num', period_num);
4280: dbms_sql.bind_variable(vl_bal_cursor,':period_year', period_year);
4281: dbms_sql.bind_variable(vl_bal_cursor,':currency_code', vp_currency_code);
4282:
4283: dbms_sql.define_column(vl_bal_cursor, 1, amount);
4284: dbms_sql.define_column(vl_bal_cursor, 2, period_activity);
4285: BEGIN
4279: dbms_sql.bind_variable(vl_bal_cursor,':period_num', period_num);
4280: dbms_sql.bind_variable(vl_bal_cursor,':period_year', period_year);
4281: dbms_sql.bind_variable(vl_bal_cursor,':currency_code', vp_currency_code);
4282:
4283: dbms_sql.define_column(vl_bal_cursor, 1, amount);
4284: dbms_sql.define_column(vl_bal_cursor, 2, period_activity);
4285: BEGIN
4286: vl_exec_ret := dbms_sql.execute(vl_bal_cursor);
4287: EXCEPTION
4280: dbms_sql.bind_variable(vl_bal_cursor,':period_year', period_year);
4281: dbms_sql.bind_variable(vl_bal_cursor,':currency_code', vp_currency_code);
4282:
4283: dbms_sql.define_column(vl_bal_cursor, 1, amount);
4284: dbms_sql.define_column(vl_bal_cursor, 2, period_activity);
4285: BEGIN
4286: vl_exec_ret := dbms_sql.execute(vl_bal_cursor);
4287: EXCEPTION
4288: WHEN OTHERS THEN
4282:
4283: dbms_sql.define_column(vl_bal_cursor, 1, amount);
4284: dbms_sql.define_column(vl_bal_cursor, 2, period_activity);
4285: BEGIN
4286: vl_exec_ret := dbms_sql.execute(vl_bal_cursor);
4287: EXCEPTION
4288: WHEN OTHERS THEN
4289: vp_retcode := sqlcode ;
4290: vp_errbuf := sqlerrm || ' [CALC_BALANCE - Execute Cursor] ' ;
4291: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
4292: l_module_name||'.execute_vl_bal_cursor', vp_errbuf) ;
4293: END ;
4294: LOOP
4295: IF dbms_sql.fetch_rows(vl_bal_cursor) = 0 THEN
4296: EXIT;
4297: ELSE
4298: -- Fetch the Records into Variables
4299: dbms_sql.column_value(vl_bal_cursor, 1, amount);
4295: IF dbms_sql.fetch_rows(vl_bal_cursor) = 0 THEN
4296: EXIT;
4297: ELSE
4298: -- Fetch the Records into Variables
4299: dbms_sql.column_value(vl_bal_cursor, 1, amount);
4300: dbms_sql.column_value(vl_bal_cursor, 2, period_activity);
4301: END IF;
4302: END LOOP ;
4303: -- Close the Balance Cursor
4296: EXIT;
4297: ELSE
4298: -- Fetch the Records into Variables
4299: dbms_sql.column_value(vl_bal_cursor, 1, amount);
4300: dbms_sql.column_value(vl_bal_cursor, 2, period_activity);
4301: END IF;
4302: END LOOP ;
4303: -- Close the Balance Cursor
4304: BEGIN
4301: END IF;
4302: END LOOP ;
4303: -- Close the Balance Cursor
4304: BEGIN
4305: dbms_sql.Close_Cursor(vl_bal_cursor);
4306: EXCEPTION
4307: WHEN OTHERS THEN
4308: vp_retcode := sqlcode ;
4309: vp_errbuf := sqlerrm ;