2933: ------------------------------------------
2934: -- Dynamic Call
2935: ------------------------------------------
2936: -- Create the SQL statement
2937: l_cursor := dbms_sql.open_cursor;
2938: l_sqlstmt := 'BEGIN :Curr_BaL := ' ||
2939: 'ap_utilities_pkg.get_auto_offsets_segments (:l_code_combination_id); END;';
2940:
2941: -- Parse the SQL statement
2938: l_sqlstmt := 'BEGIN :Curr_BaL := ' ||
2939: 'ap_utilities_pkg.get_auto_offsets_segments (:l_code_combination_id); END;';
2940:
2941: -- Parse the SQL statement
2942: dbms_sql.parse (l_cursor, l_sqlstmt, dbms_sql.native);
2943:
2944: -- Define the variables
2945: dbms_sql.bind_variable (l_cursor, 'Curr_BaL', Curr_BaL,200);
2946: dbms_sql.bind_variable (l_cursor, 'l_code_combination_id', P_ccid);
2941: -- Parse the SQL statement
2942: dbms_sql.parse (l_cursor, l_sqlstmt, dbms_sql.native);
2943:
2944: -- Define the variables
2945: dbms_sql.bind_variable (l_cursor, 'Curr_BaL', Curr_BaL,200);
2946: dbms_sql.bind_variable (l_cursor, 'l_code_combination_id', P_ccid);
2947:
2948: -- Execute the SQL statement
2949: l_ignore := dbms_sql.execute (l_cursor);
2942: dbms_sql.parse (l_cursor, l_sqlstmt, dbms_sql.native);
2943:
2944: -- Define the variables
2945: dbms_sql.bind_variable (l_cursor, 'Curr_BaL', Curr_BaL,200);
2946: dbms_sql.bind_variable (l_cursor, 'l_code_combination_id', P_ccid);
2947:
2948: -- Execute the SQL statement
2949: l_ignore := dbms_sql.execute (l_cursor);
2950:
2945: dbms_sql.bind_variable (l_cursor, 'Curr_BaL', Curr_BaL,200);
2946: dbms_sql.bind_variable (l_cursor, 'l_code_combination_id', P_ccid);
2947:
2948: -- Execute the SQL statement
2949: l_ignore := dbms_sql.execute (l_cursor);
2950:
2951: -- Get the return value (success)
2952: dbms_sql.variable_value (l_cursor, 'Curr_BaL', Curr_BaL);
2953:
2948: -- Execute the SQL statement
2949: l_ignore := dbms_sql.execute (l_cursor);
2950:
2951: -- Get the return value (success)
2952: dbms_sql.variable_value (l_cursor, 'Curr_BaL', Curr_BaL);
2953:
2954: -- Close the cursor
2955: dbms_sql.close_cursor (l_cursor);
2956:
2951: -- Get the return value (success)
2952: dbms_sql.variable_value (l_cursor, 'Curr_BaL', Curr_BaL);
2953:
2954: -- Close the cursor
2955: dbms_sql.close_cursor (l_cursor);
2956:
2957: -- Function Return Values
2958: return (Curr_Bal);
2959:
2958: return (Curr_Bal);
2959:
2960: EXCEPTION
2961: WHEN others THEN
2962: IF (dbms_sql.is_open(l_cursor)) THEN
2963: dbms_sql.close_cursor(l_cursor);
2964: END IF;
2965: return (Curr_Bal);
2966: END Dynamic_Call_Get_BalSeg;
2959:
2960: EXCEPTION
2961: WHEN others THEN
2962: IF (dbms_sql.is_open(l_cursor)) THEN
2963: dbms_sql.close_cursor(l_cursor);
2964: END IF;
2965: return (Curr_Bal);
2966: END Dynamic_Call_Get_BalSeg;
2967: