Urgent: how to cancel orders in OM using API.oe_order_pub

Question

Hi All,
I have written API - oe_order_pub, its compiling successfully but the orders are not getting cancelled. Do I need to add few more things for the following code...
Please help
create or replace package body apcx_test_cancel_order is
PROCEDURE process_order_api (
p_header_rec IN OUT oe_order_pub.header_rec_type,
p_line_tbl IN OUT oe_order_pub.line_tbl_type,
p_action_request_tbl IN OUT oe_order_pub.request_tbl_type,
x_return_status OUT VARCHAR2,
x_msg_count OUT NUMBER,
x_msg_data OUT VARCHAR2) IS
l_header_val_rec oe_order_pub.header_val_rec_type;
l_header_adj_tbl oe_order_pub.header_adj_tbl_type;
l_header_adj_val_tbl oe_order_pub.header_adj_val_tbl_type;
l_header_price_att_tbl oe_order_pub.header_price_att_tbl_type;
l_header_adj_att_tbl oe_order_pub.header_adj_att_tbl_type;
l_header_adj_assoc_tbl oe_order_pub.header_adj_assoc_tbl_type;
l_header_scredit_tbl oe_order_pub.header_scredit_tbl_type;
l_header_scredit_val_tbl
oe_order_pub.header_scredit_val_tbl_type;
l_line_val_tbl oe_order_pub.line_val_tbl_type;
l_line_adj_tbl oe_order_pub.line_adj_tbl_type;
l_line_adj_val_tbl oe_order_pub.line_adj_val_tbl_type;
l_line_price_att_tbl oe_order_pub.line_price_att_tbl_type;
l_line_adj_att_tbl oe_order_pub.line_adj_att_tbl_type;
l_line_adj_assoc_tbl oe_order_pub.line_adj_assoc_tbl_type;
l_line_scredit_tbl oe_order_pub.line_scredit_tbl_type;
l_line_scredit_val_tbl oe_order_pub.line_scredit_val_tbl_type;
l_lot_serial_tbl oe_order_pub.lot_serial_tbl_type;
l_lot_serial_val_tbl oe_order_pub.lot_serial_val_tbl_type;
BEGIN
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,
p_action_commit => fnd_api.g_false,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_header_rec => p_header_rec,
p_line_tbl => p_line_tbl,
p_action_request_tbl => p_action_request_tbl,
x_header_rec => p_header_rec,
x_header_val_rec => l_header_val_rec,
x_header_adj_tbl => l_header_adj_tbl,
x_header_adj_val_tbl => l_header_adj_val_tbl,
x_header_price_att_tbl => l_header_price_att_tbl,
x_header_adj_att_tbl => l_header_adj_att_tbl,
x_header_adj_assoc_tbl => l_header_adj_assoc_tbl,
x_header_scredit_tbl => l_header_scredit_tbl,
x_header_scredit_val_tbl => l_header_scredit_val_tbl,
x_line_tbl => p_line_tbl,
x_line_val_tbl => l_line_val_tbl,
x_line_adj_tbl => l_line_adj_tbl,
x_line_adj_val_tbl => l_line_adj_val_tbl,
x_line_price_att_tbl => l_line_price_att_tbl,
x_line_adj_att_tbl => l_line_adj_att_tbl,
x_line_adj_assoc_tbl => l_line_adj_assoc_tbl,
x_line_scredit_tbl => l_line_scredit_tbl,
x_line_scredit_val_tbl => l_line_scredit_val_tbl,
x_lot_serial_tbl => l_lot_serial_tbl,
x_lot_serial_val_tbl => l_lot_serial_val_tbl,
x_action_request_tbl => p_action_request_tbl);
END process_order_api;
PROCEDURE cancel_order (
p_order_header_id oe_order_headers.header_id%TYPE,
p_change_reason_code VARCHAR2,
p_change_comments VARCHAR2,
x_return_status OUT VARCHAR2,
x_msg_count OUT NUMBER,
x_msg_data OUT VARCHAR2) IS
l_header_rec oe_order_pub.header_rec_type := oe_order_pub.g_miss_header_rec;
l_stmt NUMBER;
BEGIN
l_stmt := 10;
l_header_rec := OE_ORDER_PUB.G_MISS_HEADER_REC;
l_header_rec.operation := oe_globals.g_opr_update;
l_header_rec.header_id := p_order_header_id;
l_header_rec.cancelled_flag := 'Y';
l_header_rec.change_reason := p_change_reason_code;
l_header_rec.change_comments := p_change_comments;
-- Call process order api
l_stmt := 20;
process_order_api (p_header_rec => l_header_rec,
p_line_tbl => oe_order_pub.g_miss_line_tbl,
p_action_request_tbl => oe_order_pub.g_miss_request_tbl,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
l_stmt := 30;
EXCEPTION
WHEN OTHERS THEN
oe_msg_pub.add_text ('Unexpected error in apcx_test_order_api.cancel_order, stmt ' || l_stmt || ': ' ||SQLERRM);
x_msg_count := NVL (x_msg_count, 0) + 1;
x_return_status := fnd_api.g_ret_sts_unexp_error;
if x_return_status = FND_API.G_RET_STS_SUCCESS then
dbms_output.put_line('success');
commit;
else
dbms_output.put_line('failure');
rollback;
end if;
end;
END apcx_test_cancel_order;
Thanks in advance.
Raj
Message was edited by:
user613675

Answer 1

Hi,
Can you pls try by passing this parameter value too.
l_header_adj.adjusted_amount := 5;
Thanks,
Praveen