CREATE OR REPLACE PROCEDURE load_blob_to_bfile (p_file_name IN VARCHAR2, p_directory IN VARCHAR2)
   IS

/* This procedure will transfer a blob to bfile. */

      v_blob        BLOB;
      v_start       NUMBER             := 1;
      v_bytelen     NUMBER             := 2000;
      v_len         NUMBER;
      v_raw         RAW (2000);
      v_x           NUMBER;
      v_output      UTL_FILE.file_type;
      v_file_name   VARCHAR2 (200);
   BEGIN

-- get length of blob

      SELECT DBMS_LOB.getlength (kartfile), filename
        INTO v_len, v_file_name
        FROM kart_files 
       WHERE filename = Trim(p_file_name);

v_file_name:=CONVERT(v_file_name, 'CL8MSWIN1251', 'UTF8');

-- define output directory

      v_output := UTL_FILE.fopen (p_directory, v_file_name, 'wb', 32760);

-- save blob length


      v_x := v_len;


-- select blob into variable


      SELECT kartfile
        INTO v_blob
        FROM kart_files 
       WHERE filename = Trim(p_file_name);

      v_start := 1;

--      l_raw  := utl_i18n.string_to_raw(l_xml, 'UTF8');

      WHILE v_start < v_len AND v_bytelen > 0
      LOOP
         DBMS_LOB.READ (v_blob, v_bytelen, v_start, v_raw);
            v_raw:=CONVERT(v_raw, 'CL8MSWIN1251', 'UTF8');
         UTL_FILE.put_raw (v_output, v_raw);
         UTL_FILE.fflush (v_output);


         /* Text only could be: UTL_RAW.cast_to_varchar2 (v_raw);*/

         -- set the start position for the next cut


         v_start := v_start + v_bytelen;


-- set the end position if less than 32000 bytes


         v_x := v_x - v_bytelen;

         IF v_x < 2000
         THEN
            v_bytelen := v_x;
         END IF;
      END LOOP;

      UTL_FILE.fclose (v_output);
   END load_blob_to_bfile;
  

DECLARE
 v_len number;
BEGIN
   IF (:P28_FILE IS NOT NULL)
   THEN 
    SELECT (DBMS_LOB.getlength (blob_content)/1024) L 
       INTO v_len           
       FROM wwv_flow_files
         WHERE NAME = :P28_FILE;
        
    IF (v_len < 1500) THEN
      INSERT INTO kart_files
                  (ID, FILENAME,mimetype,kartfile)
      SELECT ID, :P28_FILE,mime_type,blob_content            
       FROM wwv_flow_files
         WHERE NAME = :P28_FILE;
   
  DELETE WWV_FLOW_FILE_OBJECTS$
    WHERE NAME = :P28_FILE;
 

   load_blob_to_bfile(p_file_name => :P28_FILE,
                     p_directory => 'KART_DIR');

 END IF;

 DELETE WWV_FLOW_FILE_OBJECTS$
          WHERE NAME = :P28_FILE;  


 IF (v_len > 1500) THEN
                
--       raise_application_error(-20000,

apex_application.g_print_success_message := 
('Слишком большой файл сканированного документа,допустимый размер не более 1,5 МБ ');

  END IF;

 END IF;
 END;

v_bytelen     NUMBER             := 2000;
v_len         NUMBER;
v_raw         RAW (2000);

DBMS_LOB.READ (v_blob, v_bytelen, v_start, v_raw);
v_raw:=CONVERT(v_raw, 'CL8MSWIN1251', 'UTF8');
UTL_FILE.put_raw (v_output, v_raw);