801: ------------------------------------------------------------
802: -- Dynamic sql operations to parse the select statement --
803: -- and to define columns datatypes. --
804: ------------------------------------------------------------
805: dbms_sql.parse (p_main_cursor, rtrim (cursor_string), dbms_sql.NATIVE);
806: dbms_sql.bind_variable (p_main_cursor, ':1', p_set_of_books_id);
807: dbms_sql.bind_variable (p_main_cursor, ':2', set_of_books_currency_code);
808: dbms_sql.bind_variable (p_main_cursor, ':3', period_year_from);
809: dbms_sql.bind_variable (p_main_cursor, ':4', period_year_to);
802: -- Dynamic sql operations to parse the select statement --
803: -- and to define columns datatypes. --
804: ------------------------------------------------------------
805: dbms_sql.parse (p_main_cursor, rtrim (cursor_string), dbms_sql.NATIVE);
806: dbms_sql.bind_variable (p_main_cursor, ':1', p_set_of_books_id);
807: dbms_sql.bind_variable (p_main_cursor, ':2', set_of_books_currency_code);
808: dbms_sql.bind_variable (p_main_cursor, ':3', period_year_from);
809: dbms_sql.bind_variable (p_main_cursor, ':4', period_year_to);
810: dbms_sql.bind_variable (p_main_cursor, ':5', period_num_from);
803: -- and to define columns datatypes. --
804: ------------------------------------------------------------
805: dbms_sql.parse (p_main_cursor, rtrim (cursor_string), dbms_sql.NATIVE);
806: dbms_sql.bind_variable (p_main_cursor, ':1', p_set_of_books_id);
807: dbms_sql.bind_variable (p_main_cursor, ':2', set_of_books_currency_code);
808: dbms_sql.bind_variable (p_main_cursor, ':3', period_year_from);
809: dbms_sql.bind_variable (p_main_cursor, ':4', period_year_to);
810: dbms_sql.bind_variable (p_main_cursor, ':5', period_num_from);
811: dbms_sql.bind_variable (p_main_cursor, ':6', period_num_to);
804: ------------------------------------------------------------
805: dbms_sql.parse (p_main_cursor, rtrim (cursor_string), dbms_sql.NATIVE);
806: dbms_sql.bind_variable (p_main_cursor, ':1', p_set_of_books_id);
807: dbms_sql.bind_variable (p_main_cursor, ':2', set_of_books_currency_code);
808: dbms_sql.bind_variable (p_main_cursor, ':3', period_year_from);
809: dbms_sql.bind_variable (p_main_cursor, ':4', period_year_to);
810: dbms_sql.bind_variable (p_main_cursor, ':5', period_num_from);
811: dbms_sql.bind_variable (p_main_cursor, ':6', period_num_to);
812: dbms_sql.bind_variable (p_main_cursor, ':7', p_axi_run_id);
805: dbms_sql.parse (p_main_cursor, rtrim (cursor_string), dbms_sql.NATIVE);
806: dbms_sql.bind_variable (p_main_cursor, ':1', p_set_of_books_id);
807: dbms_sql.bind_variable (p_main_cursor, ':2', set_of_books_currency_code);
808: dbms_sql.bind_variable (p_main_cursor, ':3', period_year_from);
809: dbms_sql.bind_variable (p_main_cursor, ':4', period_year_to);
810: dbms_sql.bind_variable (p_main_cursor, ':5', period_num_from);
811: dbms_sql.bind_variable (p_main_cursor, ':6', period_num_to);
812: dbms_sql.bind_variable (p_main_cursor, ':7', p_axi_run_id);
813:
806: dbms_sql.bind_variable (p_main_cursor, ':1', p_set_of_books_id);
807: dbms_sql.bind_variable (p_main_cursor, ':2', set_of_books_currency_code);
808: dbms_sql.bind_variable (p_main_cursor, ':3', period_year_from);
809: dbms_sql.bind_variable (p_main_cursor, ':4', period_year_to);
810: dbms_sql.bind_variable (p_main_cursor, ':5', period_num_from);
811: dbms_sql.bind_variable (p_main_cursor, ':6', period_num_to);
812: dbms_sql.bind_variable (p_main_cursor, ':7', p_axi_run_id);
813:
814: dbms_sql.define_column (p_main_cursor, 1, code_combination_id);
807: dbms_sql.bind_variable (p_main_cursor, ':2', set_of_books_currency_code);
808: dbms_sql.bind_variable (p_main_cursor, ':3', period_year_from);
809: dbms_sql.bind_variable (p_main_cursor, ':4', period_year_to);
810: dbms_sql.bind_variable (p_main_cursor, ':5', period_num_from);
811: dbms_sql.bind_variable (p_main_cursor, ':6', period_num_to);
812: dbms_sql.bind_variable (p_main_cursor, ':7', p_axi_run_id);
813:
814: dbms_sql.define_column (p_main_cursor, 1, code_combination_id);
815: dbms_sql.define_column (p_main_cursor, 2, segment, 25);
808: dbms_sql.bind_variable (p_main_cursor, ':3', period_year_from);
809: dbms_sql.bind_variable (p_main_cursor, ':4', period_year_to);
810: dbms_sql.bind_variable (p_main_cursor, ':5', period_num_from);
811: dbms_sql.bind_variable (p_main_cursor, ':6', period_num_to);
812: dbms_sql.bind_variable (p_main_cursor, ':7', p_axi_run_id);
813:
814: dbms_sql.define_column (p_main_cursor, 1, code_combination_id);
815: dbms_sql.define_column (p_main_cursor, 2, segment, 25);
816: dbms_sql.define_column (p_main_cursor, 3, balance);
810: dbms_sql.bind_variable (p_main_cursor, ':5', period_num_from);
811: dbms_sql.bind_variable (p_main_cursor, ':6', period_num_to);
812: dbms_sql.bind_variable (p_main_cursor, ':7', p_axi_run_id);
813:
814: dbms_sql.define_column (p_main_cursor, 1, code_combination_id);
815: dbms_sql.define_column (p_main_cursor, 2, segment, 25);
816: dbms_sql.define_column (p_main_cursor, 3, balance);
817: dbms_sql.define_column (p_main_cursor, 4, balance);
818: dbms_sql.define_column (p_main_cursor, 5, period_name, 15);
811: dbms_sql.bind_variable (p_main_cursor, ':6', period_num_to);
812: dbms_sql.bind_variable (p_main_cursor, ':7', p_axi_run_id);
813:
814: dbms_sql.define_column (p_main_cursor, 1, code_combination_id);
815: dbms_sql.define_column (p_main_cursor, 2, segment, 25);
816: dbms_sql.define_column (p_main_cursor, 3, balance);
817: dbms_sql.define_column (p_main_cursor, 4, balance);
818: dbms_sql.define_column (p_main_cursor, 5, period_name, 15);
819: dbms_sql.define_column (p_main_cursor, 6, period_year_to);
812: dbms_sql.bind_variable (p_main_cursor, ':7', p_axi_run_id);
813:
814: dbms_sql.define_column (p_main_cursor, 1, code_combination_id);
815: dbms_sql.define_column (p_main_cursor, 2, segment, 25);
816: dbms_sql.define_column (p_main_cursor, 3, balance);
817: dbms_sql.define_column (p_main_cursor, 4, balance);
818: dbms_sql.define_column (p_main_cursor, 5, period_name, 15);
819: dbms_sql.define_column (p_main_cursor, 6, period_year_to);
820: dbms_sql.define_column (p_main_cursor, 7, period_num_to);
813:
814: dbms_sql.define_column (p_main_cursor, 1, code_combination_id);
815: dbms_sql.define_column (p_main_cursor, 2, segment, 25);
816: dbms_sql.define_column (p_main_cursor, 3, balance);
817: dbms_sql.define_column (p_main_cursor, 4, balance);
818: dbms_sql.define_column (p_main_cursor, 5, period_name, 15);
819: dbms_sql.define_column (p_main_cursor, 6, period_year_to);
820: dbms_sql.define_column (p_main_cursor, 7, period_num_to);
821:
814: dbms_sql.define_column (p_main_cursor, 1, code_combination_id);
815: dbms_sql.define_column (p_main_cursor, 2, segment, 25);
816: dbms_sql.define_column (p_main_cursor, 3, balance);
817: dbms_sql.define_column (p_main_cursor, 4, balance);
818: dbms_sql.define_column (p_main_cursor, 5, period_name, 15);
819: dbms_sql.define_column (p_main_cursor, 6, period_year_to);
820: dbms_sql.define_column (p_main_cursor, 7, period_num_to);
821:
822: RETURN TRUE;
815: dbms_sql.define_column (p_main_cursor, 2, segment, 25);
816: dbms_sql.define_column (p_main_cursor, 3, balance);
817: dbms_sql.define_column (p_main_cursor, 4, balance);
818: dbms_sql.define_column (p_main_cursor, 5, period_name, 15);
819: dbms_sql.define_column (p_main_cursor, 6, period_year_to);
820: dbms_sql.define_column (p_main_cursor, 7, period_num_to);
821:
822: RETURN TRUE;
823:
816: dbms_sql.define_column (p_main_cursor, 3, balance);
817: dbms_sql.define_column (p_main_cursor, 4, balance);
818: dbms_sql.define_column (p_main_cursor, 5, period_name, 15);
819: dbms_sql.define_column (p_main_cursor, 6, period_year_to);
820: dbms_sql.define_column (p_main_cursor, 7, period_num_to);
821:
822: RETURN TRUE;
823:
824: EXCEPTION
849: non_func_ytd NUMBER;
850: non_func_ptd NUMBER;
851:
852: BEGIN
853: dbms_sql.column_value (p_main_cursor, 1, p_code_combination_id);
854: dbms_sql.column_value (p_main_cursor, 2, p_balancing_segment);
855: dbms_sql.column_value (p_main_cursor, 3, p_ytd_balance);
856: dbms_sql.column_value (p_main_cursor, 4, p_ptd_balance);
857: dbms_sql.column_value (p_main_cursor, 5, p_period_name);
850: non_func_ptd NUMBER;
851:
852: BEGIN
853: dbms_sql.column_value (p_main_cursor, 1, p_code_combination_id);
854: dbms_sql.column_value (p_main_cursor, 2, p_balancing_segment);
855: dbms_sql.column_value (p_main_cursor, 3, p_ytd_balance);
856: dbms_sql.column_value (p_main_cursor, 4, p_ptd_balance);
857: dbms_sql.column_value (p_main_cursor, 5, p_period_name);
858: /*
851:
852: BEGIN
853: dbms_sql.column_value (p_main_cursor, 1, p_code_combination_id);
854: dbms_sql.column_value (p_main_cursor, 2, p_balancing_segment);
855: dbms_sql.column_value (p_main_cursor, 3, p_ytd_balance);
856: dbms_sql.column_value (p_main_cursor, 4, p_ptd_balance);
857: dbms_sql.column_value (p_main_cursor, 5, p_period_name);
858: /*
859: IF profile_country_code = 'CL' THEN
852: BEGIN
853: dbms_sql.column_value (p_main_cursor, 1, p_code_combination_id);
854: dbms_sql.column_value (p_main_cursor, 2, p_balancing_segment);
855: dbms_sql.column_value (p_main_cursor, 3, p_ytd_balance);
856: dbms_sql.column_value (p_main_cursor, 4, p_ptd_balance);
857: dbms_sql.column_value (p_main_cursor, 5, p_period_name);
858: /*
859: IF profile_country_code = 'CL' THEN
860: IF NOT get_non_func_amt(p_set_of_books_id
853: dbms_sql.column_value (p_main_cursor, 1, p_code_combination_id);
854: dbms_sql.column_value (p_main_cursor, 2, p_balancing_segment);
855: dbms_sql.column_value (p_main_cursor, 3, p_ytd_balance);
856: dbms_sql.column_value (p_main_cursor, 4, p_ptd_balance);
857: dbms_sql.column_value (p_main_cursor, 5, p_period_name);
858: /*
859: IF profile_country_code = 'CL' THEN
860: IF NOT get_non_func_amt(p_set_of_books_id
861: , p_code_combination_id
1254:
1255: ------------------------------------------------------------
1256: -- Open accounts cursor using dynamic SQL statements. --
1257: ------------------------------------------------------------
1258: main_cursor := dbms_sql.open_cursor;
1259:
1260: ------------------------------------------------------------
1261: -- Creates the accounts cursor ordering the rows by --
1262: -- balancing segment (i.e. the order for fetching the --
1273:
1274: RAISE program_abort;
1275: END IF;
1276:
1277: number_records := dbms_sql.execute (main_cursor);
1278: ------------------------------------------------------------
1279: -- Set Flag to Yes before While loop. --
1280: ------------------------------------------------------------
1281:
1282: zero_main_records := 'YES';
1283:
1284: consider_YTD_amount := 'Y';
1285:
1286: WHILE dbms_sql.fetch_rows (main_cursor) > 0 LOOP
1287:
1288: zero_main_records := 'NO';
1289: ------------------------------------------------------------
1290: -- Read the values from the cursor's columns --
1494: -- If no record to adjust then return from procedure. --
1495: ------------------------------------------------------------
1496:
1497: IF zero_main_records = 'YES' THEN
1498: dbms_sql.close_cursor (main_cursor);
1499: COMMIT;
1500: RETURN 0;
1501: END IF;
1502:
1569:
1570: RAISE program_abort;
1571: END IF;
1572:
1573: dbms_sql.close_cursor (main_cursor);
1574:
1575: COMMIT;
1576:
1577: RETURN 0;