DECLARE
   TYPE result_set_type IS REF CURSOR;

   l_name              VARCHAR2 (100);
   l_doc_size          NUMBER;
   l_result_set_curr   result_set_type;
   x_access_id         NUMBER;
   x_file_id           NUMBER;
   p_file_name         VARCHAR2 (100)  := 'G74822LRs.pdf';

   PROCEDURE attach_file (p_access_id IN NUMBER, p_file_Id in number, p_filename IN VARCHAR2)
   IS
   BEGIN
          fnd_webattch.add_attachment (seq_num                   => 100
                                     ,category_id               => 1
                                     ,document_description      => 'Test'
                                     ,datatype_id               => 6
                                     ,text                      => NULL
                                     ,file_name                 => p_filename
                                     ,url                       => NULL
                                     ,function_name             => 'INVIDITM'
                                     ,entity_name               => 'MTL_SYSTEM_ITEMS'
                                     ,pk1_value                 => 204 --organization_id
                                     ,pk2_value                 => 72627 --Inventory_item_Id
                                     ,pk3_value                 => NULL
                                     ,pk4_value                 => NULL
                                     ,pk5_value                 => NULL
                                     ,media_id                  => p_file_id
                                     ,user_id                   => 1318
                                     ,usage_type                => 'O'
                                     );
      DBMS_OUTPUT.put_line ('File Attached!');
   EXCEPTION
      WHEN OTHERS
      THEN
         DBMS_OUTPUT.put_line ('error in loading the attachement');
   END attach_file;
BEGIN
   fnd_global.apps_initialize (1318, 20420, 1);
   attach_file (p_access_id => x_access_id, p_file_id=>x_file_id,p_filename => p_file_name);
   COMMIT;
END;