Exception Handling -- Help pls.

Question

This is the function that calculates cost taking deatils from two other tables .could you help me how handle exception for the second select statement, Which will have no value at some stage and also it will return multiple values.
CREATE OR REPLACE FUNCTION get_cost_value
(provis_id number,fyr_id number)
return number
as
commi_id number;
costperunit number;
units_p number;
weeklycost number;
cost number := 0;
weeks number;
pro_s_date date;
pro_e_date date;
v_flag varchar2(1);
begin
begin
select actual_start_date, actual_end_date
into pro_s_date,pro_e_date
from provisions
where
     identifier = provis_id;
exception
WHEN no_data_found THEN
     v_flag := 'N';
END;
[b]for x in
(select identifier, units_provided
from cost_commitments
where
provis_identifier = provis_id)
loop
commi_id := x.identifier;
units_p := x.units_provided;
if v_flag != 'N'
then
costperunit := to_number(get_rate_value(pro_s_date,provis_id,commi_id));
weeks := num_weeks(pro_e_date,fyr_id);
cost := units_p * costperunit * weeks;
else
cost := 0;
end if;
return cost;
end loop;
end;
/*EXCEPTION
WHEN no_data_found THEN
v_flag := 'N';*/

Answer 1

Isn't it what you need ?
SQL> var flag char(1);
SQL> var dept number;
SQL> exec :flag := 'Y';
PL/SQL procedure successfully completed.
SQL> exec :dept := 10;
PL/SQL procedure successfully completed.
SQL> declare
  2   cnt number;
  3  begin
  4   for v in (select empno from emp where deptno = :dept) loop
  5    cnt := 1;
  6   end loop;
  7   if cnt is null then
  8    raise no_data_found;
  9   end if;
10  exception
11    when no_data_found then
12     :flag := 'N';
13  end;
14  /
PL/SQL procedure successfully completed.
SQL> print flag
FLAG
Y
SQL> exec :dept := 100;
PL/SQL procedure successfully completed.
SQL> declare
  2   cnt number;
  3  begin
  4   for v in (select empno from emp where deptno = :dept) loop
  5    cnt := 1;
  6   end loop;
  7   if cnt is null then
  8    raise no_data_found;
  9   end if;
10  exception
11    when no_data_found then
12     :flag := 'N';
13  end;
14  /
PL/SQL procedure successfully completed.
SQL> print flag
FLAG
NRgds.