--++---------------------------------------------------------
-- Api to Update Sales Order SHIP To
--++---------------------------------------------------------
BEGIN
l_return_status := NULL;
l_error_msg := NULL;
l_line_tbl_index := 1;
l_header_rec := oe_order_pub.g_miss_header_rec;
l_header_rec.header_id := p_order_header_id;
l_header_rec.operation := oe_globals.g_opr_update;
l_line_tbl (l_line_tbl_index) := oe_order_pub.g_miss_line_rec;
l_line_tbl (l_line_tbl_index).operation := oe_globals.g_opr_update;
l_line_tbl (l_line_tbl_index).line_id := p_new_line_id;
l_line_tbl (l_line_tbl_index).ship_to_org_id := p_ship_to_id;
BEGIN
---------- CALL TO Standard PROCESS ORDER API to Split Order Lines--------------
oe_order_pub.process_order
(p_api_version_number => 1.0,
p_init_msg_list => fnd_api.g_true,
p_return_values => fnd_api.g_true,
p_action_commit => fnd_api.g_true,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_header_rec => l_header_rec,
p_line_tbl => l_line_tbl,
p_action_request_tbl => l_action_request_tbl
-- OUT PARAMETERS
,
x_header_rec => x_header_rec,
x_header_val_rec => x_header_val_rec,
x_header_adj_tbl => x_header_adj_tbl,
x_header_adj_val_tbl => x_header_adj_val_tbl,
x_header_price_att_tbl => x_header_price_att_tbl,
x_header_adj_att_tbl => x_header_adj_att_tbl,
x_header_adj_assoc_tbl => x_header_adj_assoc_tbl,
x_header_scredit_tbl => x_header_scredit_tbl,
x_header_scredit_val_tbl => x_header_scredit_val_tbl,
x_line_tbl => x_line_tbl,
x_line_val_tbl => x_line_val_tbl,
x_line_adj_tbl => x_line_adj_tbl,
x_line_adj_val_tbl => x_line_adj_val_tbl,
x_line_price_att_tbl => x_line_price_att_tbl,
x_line_adj_att_tbl => x_line_adj_att_tbl,
x_line_adj_assoc_tbl => x_line_adj_assoc_tbl,
x_line_scredit_tbl => x_line_scredit_tbl,
x_line_scredit_val_tbl => x_line_scredit_val_tbl,
x_lot_serial_tbl => x_lot_serial_tbl,
x_lot_serial_val_tbl => x_lot_serial_val_tbl,
x_action_request_tbl => x_action_request_tbl
);
EXCEPTION
WHEN OTHERS
THEN
DBMS_OUTPUT.put_line
( 'Error calling oe_order_pub.Process_order :'
|| l_msg_data
);
END;
IF l_return_status = fnd_api.g_ret_sts_success
THEN
p_return_status := fnd_api.g_ret_sts_success;
l_error_msg :=
'Order Line updated Successfully :'
|| x_line_tbl.COUNT
|| ','
|| p_return_status;
DBMS_OUTPUT.put_line (l_error_msg);
ELSE
l_error_msg := 'Order Line updation Failed :';
DBMS_OUTPUT.put_line (l_error_msg);
FOR i IN 1 .. l_msg_count
LOOP
oe_msg_pub.get (p_msg_index => i,
p_encoded => fnd_api.g_false,
p_data => l_msg_data,
p_msg_index_out => l_msg_index_out
);
l_error_msg := CHR (10) || l_error_msg || CHR (10) || ','
|| l_msg_data;
DBMS_OUTPUT.put_line (l_error_msg);
END LOOP;
END IF;
END;
--=========================================================================
#Sales Order #OM #API #Oracle Apps #EBS #ONT #r12
Sales Order Table
oe_order_headers_all
oe_order_lines_all
