TRANSFER THE ONE ORG TO ANOTHER ORG ITEMWISE SCRIPTS

/* Formatted on 2014/09/07 14:15 (Formatter Plus v4.8.8) */
DECLARE
   --   g_user_id         fnd_user.user_id%TYPE := NULL;
   l_appl_id         fnd_application.application_id%TYPE;
   l_resp_id         fnd_responsibility_tl.responsibility_id%TYPE;
   l_api_version     NUMBER                                         := 1.0;
   l_init_msg_list   VARCHAR2 (2)                          := fnd_api.g_false;
   l_commit          VARCHAR2 (2)                          := fnd_api.g_false;
   x_message_list    error_handler.error_tbl_type;
   x_return_status   VARCHAR2 (2);
   x_msg_count       NUMBER                                         := 0;
   itemid            NUMBER;
   segment1          VARCHAR2 (300);
   uom               VARCHAR2 (300);

   CURSOR cur
   IS
      SELECT DISTINCT inventory_item_id, concatenated_segments,
                      primary_uom_code
                 --           INTO itemid, segment1, uom
      FROM            mtl_system_items_kfv
                WHERE organization_id = 106;
BEGIN
   fnd_global.apps_initialize (1697, 50641, 7000);

   FOR x IN cur
   LOOP
      ego_item_pub.assign_item_to_org
                                   (p_api_version            => l_api_version,
                                    p_init_msg_list          => l_init_msg_list,
                                    p_commit                 => l_commit,
                                    p_inventory_item_id      => x.inventory_item_id,
                                    p_item_number            => x.concatenated_segments,
                                    p_organization_id        => 227,
                                    p_organization_code      => 566,
                                    p_primary_uom_code       => x.primary_uom_code,
                                    x_return_status          => x_return_status,
                                    x_msg_count              => x_msg_count
                                   );
      DBMS_OUTPUT.put_line ('Status: ' || x_return_status);
   END LOOP;

   IF (x_return_status <> fnd_api.g_ret_sts_success)
   THEN
      DBMS_OUTPUT.put_line ('Error Messages :');
      error_handler.get_message_list (x_message_list => x_message_list);

      FOR j IN 1 .. x_message_list.COUNT
      LOOP
         DBMS_OUTPUT.put_line (x_message_list (j).MESSAGE_TEXT);
      END LOOP;
   END IF;
EXCEPTION
   WHEN OTHERS
   THEN
      DBMS_OUTPUT.put_line ('Exception Occured :');
      DBMS_OUTPUT.put_line (SQLCODE || ':' || SQLERRM);
END;