Updating a sale order using API

-- Updating a Sales Order Api
DECLARE
v_api_version_number    NUMBER := 1;
v_return_status         VARCHAR2 (2000);
v_msg_count             NUMBER;
v_msg_data              VARCHAR2 (2000);
-- IN Variables --
v_header_rec                    oe_order_pub.header_rec_type;
v_line_tbl                      oe_order_pub.line_tbl_type;
v_action_request_tbl            oe_order_pub.request_tbl_type;
v_line_adj_tbl                  oe_order_pub.line_adj_tbl_type;
-- OUT Variables --
v_header_rec_out                oe_order_pub.header_rec_type;
v_header_val_rec_out            oe_order_pub.header_val_rec_type;
v_header_adj_tbl_out            oe_order_pub.header_adj_tbl_type;
v_header_adj_val_tbl_out        oe_order_pub.header_adj_val_tbl_type;
v_header_price_att_tbl_out      oe_order_pub.header_price_att_tbl_type;
v_header_adj_att_tbl_out        oe_order_pub.header_adj_att_tbl_type;
v_header_adj_assoc_tbl_out      oe_order_pub.header_adj_assoc_tbl_type;
v_header_scredit_tbl_out        oe_order_pub.header_scredit_tbl_type;
v_header_scredit_val_tbl_out    oe_order_pub.header_scredit_val_tbl_type;
v_line_tbl_out                  oe_order_pub.line_tbl_type;
v_line_val_tbl_out              oe_order_pub.line_val_tbl_type;
v_line_adj_tbl_out              oe_order_pub.line_adj_tbl_type;
v_line_adj_val_tbl_out          oe_order_pub.line_adj_val_tbl_type;
v_line_price_att_tbl_out        oe_order_pub.line_price_att_tbl_type;
v_line_adj_att_tbl_out          oe_order_pub.line_adj_att_tbl_type;
v_line_adj_assoc_tbl_out        oe_order_pub.line_adj_assoc_tbl_type;
v_line_scredit_tbl_out          oe_order_pub.line_scredit_tbl_type;
v_line_scredit_val_tbl_out      oe_order_pub.line_scredit_val_tbl_type;
v_lot_serial_tbl_out            oe_order_pub.lot_serial_tbl_type;
v_lot_serial_val_tbl_out        oe_order_pub.lot_serial_val_tbl_type;
v_action_request_tbl_out        oe_order_pub.request_tbl_type;
v_msg_index                     NUMBER;
v_data                          VARCHAR2 (2000);
v_loop_count                    NUMBER;
v_debug_file                    VARCHAR2 (200);
b_return_status                 VARCHAR2 (200);
b_msg_count                     NUMBER;
b_msg_data                      VARCHAR2 (2000);

BEGIN
DBMS_OUTPUT.PUT_LINE('Starting of script');
-- Setting the Enviroment --

mo_global.init ('ONT');
fnd_global.apps_initialize (user_id           => 1548,
                            resp_id           => 50664,
                            resp_appl_id      => 7000
                           );
                         
mo_global.set_policy_context('S',83);

-- Header Record --
--v_header_rec                := oe_order_pub.g_miss_header_rec;
--v_header_rec.operation      := OE_GLOBALS.G_OPR_UPDATE;
--v_header_rec.request_date   := SYSDATE + 3; -- Updating theRequest Date
--v_header_rec.header_id      := 193161;-- Existing order headerid
--v_action_request_tbl(1)     := oe_order_pub.g_miss_request_rec;
-- Line Record --

v_line_tbl(1)               := oe_order_pub.g_miss_line_rec;
v_line_tbl(1).operation     := oe_globals.g_opr_update;
v_line_tbl(1).header_id                := 193168;
v_line_tbl(1).Unit_List_Price       := NULL;
v_line_tbl(1).Unit_Selling_Price    := NULL;

DBMS_OUTPUT.PUT_LINE('Starting of API');
-- Calling the API to update the header details of an existing Order --

OE_ORDER_PUB.PROCESS_ORDER
 (
p_api_version_number        => v_api_version_number
,p_header_rec               => v_header_rec
,p_line_tbl                 => v_line_tbl
,p_action_request_tbl       => v_action_request_tbl
,p_line_adj_tbl             => v_line_adj_tbl
-- OUT variables
,x_header_rec               => v_header_rec_out
,x_header_val_rec           => v_header_val_rec_out
,x_header_adj_tbl           => v_header_adj_tbl_out
,x_header_adj_val_tbl       => v_header_adj_val_tbl_out
,x_header_price_att_tbl     => v_header_price_att_tbl_out
,x_header_adj_att_tbl       => v_header_adj_att_tbl_out
,x_header_adj_assoc_tbl     => v_header_adj_assoc_tbl_out
,x_header_scredit_tbl       => v_header_scredit_tbl_out
,x_header_scredit_val_tbl   => v_header_scredit_val_tbl_out
,x_line_tbl                 => v_line_tbl_out
,x_line_val_tbl             => v_line_val_tbl_out
,x_line_adj_tbl             => v_line_adj_tbl_out
,x_line_adj_val_tbl         => v_line_adj_val_tbl_out
,x_line_price_att_tbl       => v_line_price_att_tbl_out
,x_line_adj_att_tbl         => v_line_adj_att_tbl_out
,x_line_adj_assoc_tbl       => v_line_adj_assoc_tbl_out
,x_line_scredit_tbl         => v_line_scredit_tbl_out
,x_line_scredit_val_tbl     => v_line_scredit_val_tbl_out
,x_lot_serial_tbl           => v_lot_serial_tbl_out
,x_lot_serial_val_tbl       => v_lot_serial_val_tbl_out
,x_action_request_tbl       => v_action_request_tbl_out
,x_return_status            => v_return_status
,x_msg_count                => v_msg_count
,x_msg_data                 => v_msg_data
);
DBMS_OUTPUT.PUT_LINE('Completion of API');
IF
v_return_status             = fnd_api.g_ret_sts_success
THEN
COMMIT;
DBMS_OUTPUT.put_line('Line Updation Success :'||v_header_rec_out.header_id);
ELSE
DBMS_OUTPUT.put_line('Line Updation failed:'||v_msg_data);
ROLLBACK;
FOR
i IN 1 ..v_msg_count
LOOP
v_msg_data:=oe_msg_pub.get(p_msg_index=>i,p_encoded=> 'F');
dbms_output.put_line(i||') '|| v_msg_data);
END LOOP;
END IF;
END;