procedure xxdm_upd_ship_num_in_orcl(p_delivery_detail_id NUMBER, p_thirsd_party_tracking_number VARCHAR2)
is
l_index NUMBER;
l_msg_return NUMBER;
x_return_status VARCHAR2 (1);
x_msg_count NUMBER;
x_msg_data VARCHAR2 (32767);
l_changedattributetabtype wsh_delivery_details_pub.changedattributetabtype;
BEGIN
fnd_global.APPS_INITIALIZE (0, 21676, 385); — Provide user_id, resp_id and appl_id to initialize
DBMS_OUTPUT.PUT_LINE (‘Start’);
/* wsh_debug_sv.start_debugger (l_file_name,
l_return_status,
l_msg_data,
l_msg_count);*/
l_index := 1;
—
x_msg_data:=NULL;
fnd_file.put_line(fnd_file.log,’p_delivery_detail_id : ‘||p_delivery_detail_id);
l_changedattributetabtype (l_index).delivery_detail_id := p_delivery_detail_id;
l_changedattributetabtype (l_index).subinventory := ‘SW’; — Provide subinventory to update
l_changedattributetabtype (l_index).tracking_number := p_thirsd_party_tracking_number;
l_changedattributetabtype (l_index).shipping_method_code := ‘CENTRAL TRANSPORT/CTII’;
—
wsh_delivery_details_pub.Update_Shipping_Attributes (
p_api_version_number => 1.0,
p_init_msg_list => FND_API.G_FALSE,
p_commit => FND_API.G_FALSE,
x_return_status => X_return_status,
x_msg_count => X_msg_count,
x_msg_data => X_msg_data,
p_changed_attributes => l_changedattributetabtype,
p_source_code => ‘OE’);
—
–COMMIT;
—
IF x_return_status <> fnd_api.G_RET_STS_SUCCESS
THEN
FOR i IN 1 .. x_msg_count
LOOP
fnd_msg_pub.get (p_msg_index => I,
P_encoded => ‘F’,
P_data => X_msg_data,
P_msg_index_out => l_msg_return);
fnd_file.put_line(fnd_file.log,’x_msg_data ‘ ||x_msg_data);
END LOOP;
ELSE
fnd_file.put_line(fnd_file.log,’Sussess’);
END IF;
END xxdm_upd_ship_num_in_orcl;
