PO_REQ_LINES_SV.UPDATE_REQS_LINES_STATUS(P_POR_HEADER_ID,
P_POR_LINE_ID,
'CANCEL',
'Cancelled by IR-ISO Delete Custom Program',
SYSDATE,
'Y',
v_return);
P_POR_LINE_ID,
'CANCEL',
'Cancelled by IR-ISO Delete Custom Program',
SYSDATE,
'Y',
v_return);
-- If there are no more IR line open then updating IR header assigning Cancelled status
PO_REQS_SV.UPDATE_REQS_HEADER_STATUS(P_POR_HEADER_ID,
P_POR_LINE_ID,
'CANCEL',
'Cancelled by IR-ISO Delete Custom Program',
v_req_action_history_code,
v_req_control_error_rc);
P_POR_LINE_ID,
'CANCEL',
'Cancelled by IR-ISO Delete Custom Program',
v_req_action_history_code,
v_req_control_error_rc);
Cancel So line
-- Calling API to process Line
OE_ORDER_PUB.PROCESS_ORDER
(p_api_version_number => l_api_version_number,
p_line_tbl => l_line_tbl,
--OUT variables
x_header_rec => l_header_rec_out,
x_header_val_rec => l_header_val_rec_out,
x_header_adj_tbl => l_header_adj_tbl_out,
x_header_adj_val_tbl => l_header_adj_val_tbl_out,
x_header_price_att_tbl => l_header_price_att_tbl_out,
x_header_adj_att_tbl => l_header_adj_att_tbl_out,
x_header_adj_assoc_tbl => l_header_adj_assoc_tbl_out,
x_header_scredit_tbl => l_header_scredit_tbl_out,
x_header_scredit_val_tbl => l_header_scredit_val_tbl_out,
x_line_tbl => l_line_tbl_out,
x_line_val_tbl => l_line_val_tbl_out,
x_line_adj_tbl => l_line_adj_tbl_out,
x_line_adj_val_tbl => l_line_adj_val_tbl_out,
x_line_price_att_tbl => l_line_price_att_tbl_out,
x_line_adj_att_tbl => l_line_adj_att_tbl_out,
x_line_adj_assoc_tbl => l_line_adj_assoc_tbl_out,
x_line_scredit_tbl => l_line_scredit_tbl_out,
x_line_scredit_val_tbl => l_line_scredit_val_tbl_out,
x_lot_serial_tbl => l_lot_serial_tbl_out,
x_lot_serial_val_tbl => l_lot_serial_val_tbl_out,
x_action_request_tbl => l_action_request_tbl_out,
x_return_status => v_return_status,
x_msg_count => v_msg_count,
x_msg_data => v_msg_data);
OE_ORDER_PUB.PROCESS_ORDER
(p_api_version_number => l_api_version_number,
p_line_tbl => l_line_tbl,
--OUT variables
x_header_rec => l_header_rec_out,
x_header_val_rec => l_header_val_rec_out,
x_header_adj_tbl => l_header_adj_tbl_out,
x_header_adj_val_tbl => l_header_adj_val_tbl_out,
x_header_price_att_tbl => l_header_price_att_tbl_out,
x_header_adj_att_tbl => l_header_adj_att_tbl_out,
x_header_adj_assoc_tbl => l_header_adj_assoc_tbl_out,
x_header_scredit_tbl => l_header_scredit_tbl_out,
x_header_scredit_val_tbl => l_header_scredit_val_tbl_out,
x_line_tbl => l_line_tbl_out,
x_line_val_tbl => l_line_val_tbl_out,
x_line_adj_tbl => l_line_adj_tbl_out,
x_line_adj_val_tbl => l_line_adj_val_tbl_out,
x_line_price_att_tbl => l_line_price_att_tbl_out,
x_line_adj_att_tbl => l_line_adj_att_tbl_out,
x_line_adj_assoc_tbl => l_line_adj_assoc_tbl_out,
x_line_scredit_tbl => l_line_scredit_tbl_out,
x_line_scredit_val_tbl => l_line_scredit_val_tbl_out,
x_lot_serial_tbl => l_lot_serial_tbl_out,
x_lot_serial_val_tbl => l_lot_serial_val_tbl_out,
x_action_request_tbl => l_action_request_tbl_out,
x_return_status => v_return_status,
x_msg_count => v_msg_count,
x_msg_data => v_msg_data);
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/15225049/viewspace-740938/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/15225049/viewspace-740938/