FND Attachements Conversion

Question

Hi,
I m working on Attachments conversion from 11i to r12, I m getting Attachment in BLOB column from custom table xx_attch_data.
I have seen a sample in online which has below part before calling fnd_attached_documents_pkg.
Since I m getting Attachment from custom table xx_attch_data from BLOB column, how should i handle below part of the code.
    -- Oracle creates BFILE_DIR directory by default in the database
                                    fils := BFILENAME ('BFILE_DIR', l_var_tab(I).file_name_lob);
                                    l_fileisopen := DBMS_LOB.fileisopen (fils);
                                    l_fileexists := DBMS_LOB.fileexists (fils);
                                    DBMS_LOB.filegetname (fils,l_dirname,l_location);
                                    -- Obtain the size of the BLOB file
                                    DBMS_LOB.fileopen (fils, DBMS_LOB.file_readonly);
                                    blob_length := DBMS_LOB.getlength (fils);
                                    DBMS_LOB.fileclose (fils);
Thanks.

Answer 1

Hi Hussein,
Below is my code, could you tell me how to handle the attachment which is coming from BLOB column from staging table.
CREATE OR REPLACE PACKAGE BODY xxath_conv
IS
PROCEDURE Main(errbuf  OUT VARCHAR2
              ,retcode OUT VARCHAR2)
IS
CURSOR cur_fnd_data
IS
SELECT * FROM xx_ap_attach_stg; 
TYPE l_rec_type IS TABLE OF cur_fnd_data%ROWTYPE
INDEX BY PLS_INTEGER;
i                    PLS_INTEGER;
l_var_tab            l_rec_type;
l_empty_tab          l_rec_type;
l_rowid              ROWID;
x_blob               BLOB;
fils                 BFILE;
blob_length          INTEGER;
l_fileisopen         INTEGER;
l_fileexists         INTEGER;
l_dirname            VARCHAR2 (30);
l_location           VARCHAR2 (500);
l_valid_flag         VARCHAR2(1):= 'Y';
l_vendor_exists      ap_suppliers.segment1%TYPE;
l_requis_exists      po_requisition_headers_all.segment1%TYPE;
l_ap_invoice_exists  ap_invoices_all.invoice_num%TYPE;
l_po_exists          po_headers_all.segment1%TYPE;
BEGIN
    OPEN cur_fnd_data;
  LOOP
  FETCH cur_fnd_data BULK COLLECT INTO l_var_tab LIMIT 1000;
  EXIT WHEN l_var_tab.COUNT = 0;
  l_valid_flag        := 'Y';
  l_vendor_exists     := NULL;
  l_requis_exists     := NULL;
  l_ap_invoice_exists := NULL;
  l_po_exists         := NULL;
        FOR i IN 1..l_var_tab.COUNT
        LOOP
     IF l_var_tab(I).entity_name = 'PO_VENDORS'
  THEN
                   --All validations comes here
  END IF;
                  IF l_valid_flag = 'Y'
                  THEN
                  -- how to handle below part, since i m getting attachment file from BLOB column in xx_ap_attach_stg table.
                                    fils := BFILENAME ('BFILE_DIR', l_var_tab(I).file_name_lob);
                                    l_fileisopen := DBMS_LOB.fileisopen (fils);
                                    l_fileexists := DBMS_LOB.fileexists (fils);
                                    DBMS_LOB.filegetname (fils,l_dirname,l_location);
                                    -- Obtain the size of the BLOB file
                                    DBMS_LOB.fileopen (fils, DBMS_LOB.file_readonly);
                                    blob_length := DBMS_LOB.getlength (fils);
                                    DBMS_LOB.fileclose (fils);
      INSERT INTO fnd_lobs
                                          ( file_id
           , file_name
           , file_content_type
           , upload_date
           , expiration_date
           , program_name
           , program_tag
           , file_data
           , LANGUAGE
           , oracle_charset
           , file_format)
                                  VALUES
           ( l_var_tab(I).media_id
           , l_var_tab(I).file_name_lob
           , l_var_tab(I).file_content_type 
           , SYSDATE
           , NULL
           , 'FNDATTCH'
           , NULL
           , EMPTY_BLOB ()
           , 'US'
           , 'UTF8'
           , 'binary')
                                  RETURNING file_data
                                  INTO x_blob;
  -- Load the file into the database as a BLOB
                                  DBMS_LOB.OPEN (fils, DBMS_LOB.lob_readonly);
                                  DBMS_LOB.OPEN (x_blob, DBMS_LOB.lob_readwrite);
                                  DBMS_LOB.loadfromfile (x_blob, fils, blob_length);   -- Close handles to blob and file
                                  DBMS_LOB.CLOSE (x_blob);
                                  DBMS_LOB.CLOSE (fils);
                   COMMIT;
                   --DBMS_OUTPUT.put_line ('FND_LOBS File Id Created is ' || l_var_tab(I).media_id);
              BEGIN
               fnd_attached_documents_pkg.insert_row
                                 ( X_ROWID                        => l_rowid
                                 , X_ATTACHED_DOCUMENT_ID         => l_var_tab(I).attached_document_id 
                                 , X_DOCUMENT_ID                  => l_var_tab(I).document_id
                                 , X_CREATION_DATE                => SYSDATE
                                 , X_CREATED_BY                   => fnd_profile.value('USER_ID')
                                 , X_LAST_UPDATE_DATE             => SYSDATE
                                 , X_LAST_UPDATED_BY              => fnd_profile.value('USER_ID')
                                 , X_LAST_UPDATE_LOGIN            => fnd_profile.value('LOGIN_ID')
                                 , X_SEQ_NUM                      => l_var_tab(I).seq_num
                                 , X_ENTITY_NAME                  => l_var_tab(I).entity_name
                                 , X_COLUMN1                      => NULL
                                 , X_PK1_VALUE                    => l_var_tab(I).pk1_value
                                 , X_PK2_VALUE                    => NULL
                                 , X_PK3_VALUE                    => NULL
                                 , X_PK4_VALUE                    => NULL
                                 , X_PK5_VALUE                    => NULL
                                 , X_AUTOMATICALLY_ADDED_FLAG     => 'N'
                                 , X_DATATYPE_ID                  => l_var_tab(I).datatype_id
                                 , X_CATEGORY_ID                  => l_var_tab(I).category_id
                                 , X_SECURITY_TYPE                => l_var_tab(I).security_type 
                                 , X_SECURITY_ID                  => l_var_tab(I).security_id
                                , X_PUBLISH_FLAG                 => l_var_tab(I).publish_flag
                                 , X_LANGUAGE                     => l_var_tab(I).language
                                 , X_DESCRIPTION                  => l_var_tab(I).description
                                 , X_FILE_NAME                    => l_var_tab(I).file_name
                                 , X_MEDIA_ID                     => l_var_tab(I).media_id
  COMMIT;
  EXCEPTION 
  WHEN OTHERS THEN
  fnd_file.put_line(fnd_file.LOG,'Error after calling fnd_attached_documents_pkg: '||SQLERRM); 
  END;
                  ELSE
                    UPDATE xx_ap_attach_stg
                     SET    upload_flag          = 'N'
                     WHERE  entity_name          = l_var_tab(I).entity_name
                     AND    seq_num              = l_var_tab(I).seq_num
                     AND    pk1_value            = l_var_tab(I).pk1_value
                    AND    attached_document_id = l_var_tab(I).attached_document_id
                    AND    document_id          = l_var_tab(I).document_id;     
                  END IF;
        END LOOP;
  END LOOP;
  CLOSE cur_fnd_data;
EXCEPTION
WHEN OTHERS THEN
fnd_file.put_line(fnd_file.LOG,'Error in Main Procedure: '||SQLERRM);
END Main;
END xxath_conv;