OE_ORDER_PUB.PROCESS_ORDER
(Script for Updating Sales Order)
Below is the sample script to update the
promise_date of sales order lines.
set serveroutput on
DECLARE
l_error VARCHAR2 (1000);
PRAGMA
AUTONOMOUS_TRANSACTION;
line_id
NUMBER;
l_count
NUMBER := 0;
----for
API
l_archive_file_name VARCHAR2(1000);
l_shipment_exists NUMBER:=0;
l_header_id NUMBER;
l_line_id NUMBER;
p_header_rec Oe_Order_Pub.Header_Rec_Type;
l_line_tbl
oe_order_pub.line_tbl_type := oe_order_pub.g_miss_line_tbl;
l_header_rec OE_ORDER_PUB.Header_Rec_Type;
l_header_val_out_rec OE_ORDER_PUB.Header_Val_Rec_Type;
l_header_adj_out_tbl OE_Order_PUB.Header_Adj_Tbl_Type;
l_header_adj_val_out_tbl OE_Order_PUB.Header_Adj_Val_Tbl_Type;
l_header_price_att_out_tbl OE_ORDER_PUB.Header_Price_Att_Tbl_Type;
l_header_adj_att_out_tbl OE_ORDER_PUB.Header_Adj_Att_Tbl_Type;
l_header_adj_assoc_out_tbl OE_ORDER_PUB.Header_Adj_Assoc_Tbl_Type;
l_header_scredit_out_tbl OE_Order_PUB.Header_Scredit_Tbl_Type;
l_header_scredit_val_out_tbl OE_Order_PUB.Header_Scredit_Val_Tbl_Type;
l_line_rec OE_ORDER_PUB.line_rec_type;
l_line_out_tbl OE_ORDER_PUB.Line_Tbl_Type;
l_line_val_out_tbl OE_ORDER_PUB.Line_Val_Tbl_Type;
l_line_adj_out_tbl OE_ORDER_PUB.Line_Adj_Tbl_Type;
l_line_adj_val_out_tbl OE_ORDER_PUB.Line_Adj_Val_Tbl_Type;
l_line_price_att_out_tbl OE_ORDER_PUB.Line_Price_Att_Tbl_Type;
l_line_adj_att_out_tbl OE_ORDER_PUB.Line_Adj_Att_Tbl_Type;
l_line_adj_assoc_out_tbl OE_ORDER_PUB.Line_Adj_Assoc_Tbl_Type;
l_line_scredit_out_tbl OE_Order_PUB.Line_Scredit_Tbl_Type;
l_line_scredit_val_out_tbl OE_Order_PUB.Line_Scredit_Val_Tbl_Type;
l_lot_serial_out_tbl OE_Order_PUB.Lot_Serial_Tbl_Type;
l_lot_serial_val_out_tbl
OE_Order_PUB.Lot_Serial_Val_Tbl_Type;
l_action_request_out_tbl OE_Order_PUB.Request_Tbl_Type;
l_msg_count NUMBER;
l_msg_data VARCHAR2(2000);
l_return_status VARCHAR2(1);
l_index NUMBER;
l_rows_processed NUMBER:=0;
l_line_mawb VARCHAR2(240);
l_line_hawb VARCHAR2(240);
l_line_flight_num VARCHAR2(240);
l_org_id NUMBER :=FND_GLOBAL.ORG_ID;
l_resp_id NUMBER:=FND_GLOBAL.RESP_ID;
l_resp_appl_id NUMBER:=FND_GLOBAL.RESP_APPL_ID;
l_user_id number := FND_GLOBAL.USER_ID;
l_promise_date date;
v_line_count number:=0;
x_debug_file VARCHAR2
(100);
g_error_message VARCHAR2(2000):= null;
i
number:=0;
BEGIN
dbms_output.enable(1000000);
fnd_global.apps_initialize(1318,21623,660); --
pass in user_id, responsibility_id, and application_id
p_header_rec := OE_ORDER_PUB.G_MISS_HEADER_REC;
p_header_rec.header_id := l_header_id;
l_line_tbl := oe_order_pub.g_miss_line_tbl;
l_line_tbl(i) := oe_order_pub.g_miss_line_rec;
l_line_tbl(i).header_id := l_header_id;
l_line_tbl(i).line_id := l_line_id;
l_line_tbl(i).promise_date := sysdate; --l_promise_date;
l_line_tbl(i).operation := oe_globals.g_opr_update;
-- CALL TO PROCESS ORDER
BEGIN
x_debug_file := oe_debug_pub.set_debug_mode ('FILE');
oe_debug_pub.setdebuglevel (5);
apps.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_false
,x_return_status => l_return_status
,x_msg_count => l_msg_count
,x_msg_data => l_msg_data
,p_header_rec => p_header_rec
,p_line_tbl => l_line_tbl
--
out variables
,x_header_rec => l_header_rec
,x_header_val_rec => l_header_val_out_rec
,x_header_adj_tbl => l_header_adj_out_tbl
,x_header_adj_val_tbl => l_header_adj_val_out_tbl
,x_header_price_att_tbl => l_header_price_att_out_tbl
,x_header_adj_att_tbl => l_header_adj_att_out_tbl
,x_header_adj_assoc_tbl => l_header_adj_assoc_out_tbl
,x_header_scredit_tbl => l_header_scredit_out_tbl
,x_header_scredit_val_tbl => l_header_scredit_val_out_tbl
,x_line_tbl => l_line_out_tbl
,x_line_val_tbl => l_line_val_out_tbl
,x_line_adj_tbl => l_line_adj_out_tbl
,x_line_adj_val_tbl => l_line_adj_val_out_tbl
,x_line_price_att_tbl => l_line_price_att_out_tbl
,x_line_adj_att_tbl => l_line_adj_att_out_tbl
,x_line_adj_assoc_tbl => l_line_adj_assoc_out_tbl
,x_line_scredit_tbl => l_line_scredit_out_tbl
,x_line_scredit_val_tbl =>
l_line_scredit_val_out_tbl
,x_lot_serial_tbl => l_lot_serial_out_tbl
,x_lot_serial_val_tbl => l_lot_serial_val_out_tbl
,x_action_request_tbl => l_action_request_out_tbl
);
g_error_message:='Error in API --->'||SQLERRM;
EXCEPTION when others then
g_error_message:='Exception inside order api-'||SQLERRM;
null;
END;
-- Retrieve messages
IF l_return_status <>
fnd_api.g_ret_sts_success THEN
ROLLBACK;
g_error_message:=g_error_message||'Error updating SO line attributes-';
END IF;
EXCEPTION
WHEN
OTHERS
THEN
g_error_message := 'Error in process order api' || SQLERRM;
p_error := g_error_message;
END;
/
Commit;
