Cancel lines in an Oracle Order

DECLARE
-- Cursor to get records which needs to be cancelled
CURSOR get_records
IS
SELECT ooha.order_number,ooha.header_id,ooha.org_id,
ooha.open_flag
FROM apps.oe_order_headers_all ooha,
apps.oe_transaction_types_all otta
WHERE 1=1
AND ooha.order_type_id = otta.transaction_type_id
AND ooha.OPEN_FLAG = 'Y'
AND OOHA.ORIG_SYS_DOCUMENT_REF IN ( '2Z24084147','2Z24061178','2Z24061722',
'2Z24062173','2Z24066635','2Z24069163',
'2Z24061213','2Z24166851')
-- Local Variables
l_num_user_id fnd_user.user_id%TYPE; l_chr_msg VARCHAR2(3000); f_log UTL_FILE.file_type; l_num_us_resp_id fnd_responsibility_vl.responsibility_id%TYPE; l_num_ca_resp_id fnd_responsibility_vl.responsibility_id%TYPE; l_num_resp_id fnd_responsibility_vl.responsibility_id%TYPE; l_num_resp_appl_id fnd_application.application_id%TYPE; apps_init_exp EXCEPTION; l_chr_msg_data VARCHAR2(2000) := NULL; l_num_msg_count NUMBER:=0; l_num_iMsgCntr NUMBER; l_chr_errdata VARCHAR2(2000) := NULL; l_num_msg_index_out NUMBER;
l_chr_errcode VARCHAR2(20) ; l_chr_errbuf VARCHAR2(4000);

-- Process Order API variables
l_api_version_number NUMBER := 1.0; l_init_msg_list VARCHAR2(240) := FND_API.G_FALSE; l_chr_return_values VARCHAR2(240) := FND_API.G_FALSE; x_return_status VARCHAR2(240); x_msg_count NUMBER;
x_msg_data VARCHAR2(240); l_header_rec OE_ORDER_PUB.Header_Rec_Type; x_header_rec OE_ORDER_PUB.Header_Rec_Type; 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_tbl OE_ORDER_PUB.Line_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; x_action_request_tbl OE_ORDER_PUB.Request_Tbl_Type;

BEGIN
fnd_global.apps.initialize (51690, 59145, 20044);

FOR rec_get IN cur_get LOOP
BEGIN
l_chr_msg:=NULL;
l_chr_errcode:=NULL;
l_chr_errbuf:=NULL;

-- Initialising the local variables to be passed to Process Order API l_header_rec:= OE_ORDER_PUB.G_MISS_HEADER_REC; l_header_rec.operation := OE_GLOBALS.G_OPR_UPDATE; l_header_rec.header_id := rec_get.header_id; l_header_rec.org_id := rec_get.org_id; l_header_rec.cancelled_flag := 'Y';

-- Call to Process Order API for cancelling the orders OE_ORDER_PUB.Process_Order
( p_api_version_number => version_number ,p_init_msg_list =>l_init_msg_list ,p_return_values => l_chr_return_values ,x_return_status => x_return_status ,x_msg_count => x_msg_count ,x_msg_data => x_msg_data ,p_header_rec => l_header_rec ,x_header_rec => x_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 => x_line_tbl ,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 => x_action_request_tbl );

l_chr_msg:=l_chr_msg'The cancellation return status is 'x_return_status;

DBMS_OUTPUT.PUT_LINE('l_chr_msg : 'l_chr_msg);

IF x_return_status <> FND_API.G_RET_STS_SUCCESS
THEN
IF x_msg_count > 0
THEN l_num_iMsgCntr := 1;

WHILE l_num_iMsgCntr <= x_msg_count LOOP OE_MSG_PUB.GET ( p_msg_index => l_num_iMsgCntr ,p_encoded => 'F' ,p_data => x_msg_data ,p_msg_index_out => l_num_msg_index_out );
l_chr_errdata:= l_chr_errdatax_msg_data;
l_num_iMsgCntr := l_num_iMsgCntr + 1;
END LOOP;
l_chr_msg:=l_chr_msg' NOT CANCELLED'l_chr_errdata;
END IF;
END IF;
EXCEPTION
WHEN OTHERS
THEN
l_chr_msg:=l_chr_msg' Unknown execption while cancellation of this order 'SQLERRM; DBMS_OUTPUT.PUT_LINE('l_chr_msg'l_chr_msg);
END;
END LOOP;
EXCEPTION
WHEN OTHERS
THEN
DBMS_OUTPUT.PUT_LINE('Error: program unsuccessfully terminated 'SQLERRM);
END;
/