declare 
	v_blob			blob;
	v_filename		varchar2(1024);
	v_location		varchar2(4000);
	v_buffer			raw(32767);
	v_buffer_size	binary_integer;
	v_amount			binary_integer;
	v_offset			number(38) := 1;
	v_chunksize		integer;
	v_out_file		utl_file.file_type;

Begin
	select directory_name into v_location from all_directories where directory_name = 'DIRNAME';
	select data_value, filename into v_blob, v_filename from TABLE_FILES where emr_file_id=256;
	v_chunksize:=dbms_lob.getchunksize(v_blob);
	dbms_output.put_line('to_char(v_chunksize)-'||to_char(v_chunksize));

	if (v_chunksize < 32767) then
		v_buffer_size := v_chunksize;
	else
		v_buffer_size := 32767;
	end if;

	v_amount := v_buffer_size;
	dbms_lob.open(v_blob, dbms_lob.lob_readonly);
	
	v_out_file := utl_file.fopen(
		location      => v_location, 
		filename      => v_filename, 
		open_mode     => 'wb',
		max_linesize  => 32767
	);

	while v_amount >= v_buffer_size
	loop
		dbms_lob.read(
			lob_loc    => v_blob,
			amount     => v_amount,
			offset     => v_offset,
			buffer     => v_buffer
		);
		v_offset := v_offset + v_amount;
		utl_file.put_raw (
			file      => v_out_file,
			buffer    => v_buffer,
			autoflush => true
		);
		utl_file.fflush(file => v_out_file);
	-- utl_file.new_line(file => v_out_file);
	end loop;
	utl_file.fflush(file => v_out_file);
	utl_file.fclose(v_out_file);
	dbms_lob.close(v_blob);
end;
/

select w.blob_content,w.filename into v_blob,v_filename from wwv_flow_files w where w.name=:PXXX_FILENAME;

select w.blob_content,w.filename into v_blob,v_filename from wwv_flow_files w where w.name=:PXXX_FILENAME;

    Insert into MY_FILES (id, F_DATA, F_MIMETYPE, F_CHARSET, F_FILENAME)
      select l_id_blob, BLOB_CONTENT, MIME_TYPE, DAD_CHARSET, FILENAME
        from WWV_FLOW_FILES
        where NAME=pNAME;