procedure to Insert image using sql by using LOB ,BLOB,CLOB data types

Insert image using sql

 create or replace procedure load(filename varchar2)  
 as  
 f_lob bfile;  
 b_lob blob;  
 begin  
 insert into images values(filename,substr(filename,instr(filename,'.')+1),empty_blob())  
 return content into b_lob;  
 f_lob:=BFILENAME('PAVAN',filename);  
 dbms_lob.fileopen(f_lob,dbms_lob.file_readonly);  
 dbms_lob.loadfromfile(b_lob,f_lob,dbms_lob.getlength(f_lob));  
 dbms_lob.fileclose(f_lob);  
 commit;  
 end;