/* 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;