declare
 v_blob BLOB;
  v_length    INTEGER;
  v_index     INTEGER := 1;
  v_bytecount INTEGER;
  v_tempraw RAW(32767);
  v_file UTL_FILE.file_type;
  p_filename varchar2(50);
  v_code varchar2(20);
BEGIN

  -----------------------------  
  SELECT BLOB_CONTENT , DBMS_LOB.getlength(BLOB_CONTENT)
  INTO v_blob, v_length
  FROM APEX_APPLICATION_TEMP_FILES;
  ------------------------------
    p_filename := :P21_ID||'.png';

-------------
begin
UTL_FILE.FREMOVE ('TMP',p_filename);

exception when others then
null;
end;
--------------
    
  v_file := UTL_FILE.fopen('TMP', p_filename, 'wb', 32767);
  WHILE v_index <= v_length
  LOOP
    v_bytecount := 32767;
    DBMS_LOB.read(v_blob, v_bytecount, v_index, v_tempraw);
    UTL_FILE.put_raw(v_file, v_tempraw);
    UTL_FILE.fflush(v_file);
    v_index := v_index + v_bytecount;
  END LOOP;
  UTL_FILE.fclose(v_file);
  ------
  if file_exists('TMP',p_filename) then
    update track_numbers set foto_in =  '/tmp/'||p_filename,
    crt = sysdate,filename = p_filename
    where id = :P21_ID;
  end if; 
  commit;
END;