CURSOR בעיה בפונקציה?

[ה*לה]

הפונקציה לא פועלת לי

create or replace
PROCEDURE SEARCH_FLIGHT
( src IN VARCHAR2
, dst IN VARCHAR2
, dte1 IN VARCHAR2
, dte2 IN VARCHAR2
, age IN NUMBER
) AS
fn NUMBER;
s VARCHAR2(20);
d VARCHAR2(20);
t1 VARCHAR2(15);
t2 VARCHAR2(15);
pr NUMBER;
fnum flight.flightnum%TYPE;
sr flight.point_of_depart% TYPE;
ds flight.destination% TYPE;
dt1 flight.departdate%TYPE;
dt2 flight.departdate%TYPE;
CURSOR findFlight IS
   select f.flightnum, f.point_of_depart,f.destination,f.departdate,f.arrivaldate
   from flight f
   where f.point_of_depart = src and f.destination = dst and (f.departdate >= dte1 and f.departdate <=dte2);

BEGIN

OPEN findFlight;
LOOP
    -- Retrieve information for the next passFlight
   FETCH findFlight
   into fnum,sr,ds, dt1, dt2;

   EXIT WHEN findFlight%NOTFOUND;

   pr:= floor(get_price(age,dt1,sr,ds));

   insert into price(flightnum, price) 
   values (fnum, pr);

select f.point_of_depart, f.destination, f.departdate,f.arrivaldate, p.price into fn,s,d,t1,t2, pr
    from price p
    FULL JOIN flight f
    ON f.flightnum =p.flightnum
    where f.numemptyseats>3; 


END LOOP;
close findFlight;


clear_price();
 NULL;
END SEARCH_FLIGHT;


[]

הINSERT לא מתבצע. מה לא נכון????