R12中Oe_Order_Pub API的用法

详情看示例代码：

/*
OEXOEFRM
OE_OEXOEMOE.Key_Commit;
*/
Declare
l_header_rec Oe_Order_Pub.header_rec_type;
l_line_tbl Oe_Order_Pub.line_tbl_type;
l_line_tb2 Oe_Order_Pub.line_tbl_type;
l_action_request_tbl Oe_Order_Pub.request_tbl_type;
l_return_status VARCHAR2 (1000);
l_msg_count NUMBER;
l_msg_data VARCHAR2 (1000);
v_line_number VARCHAR2 (1000);
l_index varchar2(1000);
x_header_val_rec Oe_Order_Pub.header_val_rec_type;
x_header_adj_tbl Oe_Order_Pub.header_adj_tbl_type;
x_header_adj_val_tbl Oe_Order_Pub.header_adj_val_tbl_type;
x_header_price_att_tbl Oe_Order_Pub.header_price_att_tbl_type;
x_header_adj_att_tbl Oe_Order_Pub.header_adj_att_tbl_type;
x_header_adj_assoc_tbl Oe_Order_Pub.header_adj_assoc_tbl_type;
x_header_scredit_tbl Oe_Order_Pub.header_scredit_tbl_type;
x_header_scredit_val_tbl Oe_Order_Pub.header_scredit_val_tbl_type;
x_line_val_tbl Oe_Order_Pub.line_val_tbl_type;
x_line_adj_tbl Oe_Order_Pub.line_adj_tbl_type;
x_line_adj_val_tbl Oe_Order_Pub.line_adj_val_tbl_type;
x_line_price_att_tbl Oe_Order_Pub.line_price_att_tbl_type;
x_line_adj_att_tbl Oe_Order_Pub.line_adj_att_tbl_type;
x_line_adj_assoc_tbl Oe_Order_Pub.line_adj_assoc_tbl_type;
x_line_scredit_tbl Oe_Order_Pub.line_scredit_tbl_type;
x_line_scredit_val_tbl Oe_Order_Pub.line_scredit_val_tbl_type;
x_lot_serial_tbl Oe_Order_Pub.lot_serial_tbl_type;
x_lot_serial_val_tbl Oe_Order_Pub.lot_serial_val_tbl_type;
Begin
fnd_global.APPS_INITIALIZE(user_id=> 20131 -- User name:hz00100
,resp_id =>21623 -- Order Management Super User, Vision UK
,resp_appl_id =>660 --Order Management , ONT
);

--mo_global.init('ONT');
Oe_Msg_Pub.initialize;
Oe_Debug_Pub.initialize;
Oe_Debug_Pub.debug_on;
Oe_Debug_Pub.setdebuglevel (5);
--DBMS_APPLICATION_INFO.set_client_info (81);

mo_global.set_policy_context('S',81);
--mo_global.set_org_context(81,'','ONT');

l_header_rec := Oe_Order_Pub.g_miss_header_rec;
l_header_rec.header_id := 2032; --in_header_rec.header_id;
l_header_rec.operation := Oe_Globals.G_OPR_UPDATE;

l_line_tbl (1) := Oe_Order_Pub.g_miss_line_rec;
l_line_tbl (1).line_id := 1791; --1136;--in_line_tbl(i).line_id;
l_line_tbl (1).operation := Oe_Globals.G_OPR_UPDATE;
--l_line_tbl (1).schedule_ship_date := sysdate;
l_line_tbl (1).ordered_quantity := 5;

dbms_output.put_line('l_line_tbl:'||l_line_tbl (1).open_flag);

Oe_Order_Pub.process_order
(p_api_version_number => 1.0,
p_init_msg_list => Fnd_Api.g_false,
p_return_values => Fnd_Api.g_false,
p_action_commit => 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 => l_header_rec,
p_line_tbl => l_line_tbl,
p_action_request_tbl => l_action_request_tbl,
x_header_rec => l_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 => l_line_tb2,
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 => l_action_request_tbl
);
dbms_output.put_line('l_index:'||l_index||'l_msg_data1:'||l_msg_data);

IF l_msg_count > 0
THEN
FOR l_index IN 1 .. l_msg_count
LOOP
l_msg_data :=
Oe_Msg_Pub.get (p_msg_index => l_index,
p_encoded => 'F');
END LOOP;
END IF;

dbms_output.put_line('l_index:'||l_index||'l_msg_data:'||l_msg_data);

IF l_return_status = Fnd_Api.g_ret_sts_success
Then
dbms_output.put_line('OK');
commit;
ELSE
dbms_output.put_line('Failed');
rollback;
END IF;

commit;
end ;