Header ID does not exist on this record or does not match ID

Question

Hi ,
I'm trying to import the sales order using OE_ORDER_PUB.process_order() API. If all my orders has equal no. of lines, I can able to import all the orders at one stoke. But if each order has different no. of lines, I'm unable to import all the orders at single stoke. At first run, certain no. of records are getting processed and remaining records are ending up with error stating *'Header ID does not exist on this record or does not match ID specified on header record. You require a valid header ID if the operation is Create*'. If I re-execute the errored records, its getting processed successfully.
Please help me in getting it resolved.
Find below the procedure code which I'm using to import sales order.
CREATE OR REPLACE PROCEDURE XXRT_SALES_ORDER (ERRBUF VARCHAR2, RETCODE NUMBER)
AS
l_header_rec OE_ORDER_PUB.Header_Rec_Type;
l_line_tbl OE_ORDER_PUB.Line_Tbl_Type;
l_line_adj_tbl OE_ORDER_PUB.Line_Adj_Tbl_Type;
l_return_status varchar2(200);
l_msg_count number;
l_msg_data varchar2(20000);
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_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;
l_action_request_tbl OE_ORDER_PUB.Request_Tbl_Type;
v_remarks varchar2(250);
v_count number;
v_transaction_type number;
v_cust_id number;
v_invoice_to number;
v_ship_to number;
v_itemid1 number;
v_itemid2 number;
v_itemid3 number;
v_itemid4 number;
v_itemid5 number;
v_item_type1 varchar2(15);
v_item_type2 varchar2(15);
v_item_type3 varchar2(15);
v_item_type4 varchar2(15);
v_item_type5 varchar2(15);
cursor c_data_val is select * from XXSC_SALES_ORDER_IMPORT
where process_flag='N';
cursor c_data is select * from XXSC_SALES_ORDER_IMPORT
where process_flag='N';
Begin
fnd_global.apps_initialize(1681,51411,660);
for c_data_val_rec in c_data_val
loop
v_remarks:=NULL;
select count(*) into v_count from apps.oe_order_headers_all
where cust_po_number=c_data_val_rec.iwb_no;
if v_count > 0 then
v_remarks:='Customer PO already used';
end if;
BEGIN
select transaction_type_id into v_transaction_type
from apps.OE_TRANSACTION_TYPES_tl
where name like c_data_val_rec.BILL_TO||'-DOMESTIC';
EXCEPTION
WHEN NO_DATA_FOUND THEN
v_remarks:=v_remarks||'Invalid trans type';
END;
BEGIN
select cust_account_id into v_cust_id
from apps.hz_cust_accounts hca,
apps.hz_parties hp
where hca.party_id=hp.party_id
and hp.party_name=c_data_val_rec.CUSTOMER_NAME;
EXCEPTION
WHEN NO_DATA_FOUND THEN
v_remarks:=v_remarks||'Invalid Customer name';
END;
BEGIN
select SITE_USE_ID into v_invoice_to
from apps.hz_parties hp,
apps.hz_party_sites_v hps,
apps.hz_cust_acct_sites_all hcasa,
apps.hz_cust_site_uses_all hcsua
where
party_name=c_data_val_rec.CUSTOMER_NAME
and hp.party_id=hps.party_id
and hps.address1 like '%'||c_data_val_rec.BILL_TO||'%'
and hps.site_use_type='BILL_TO'
and hps.party_site_id=hcasa.party_site_id
and hcasa.cust_acct_site_id=hcsua.cust_acct_site_id
and SITE_USE_CODE='BILL_TO'
and hcsua.Status='A';
EXCEPTION
WHEN OTHERS THEN
v_remarks:=v_remarks||'Invalid BILL_TO';
END;
BEGIN
select SITE_USE_ID into v_ship_to
from apps.hz_parties hp,
apps.hz_party_sites_v hps,
apps.hz_cust_acct_sites_all hcasa,
apps.hz_cust_site_uses_all hcsua
where
party_name=c_data_val_rec.CUSTOMER_NAME
and hp.party_id=hps.party_id
and hps.address1 like '%'||c_data_val_rec.SHIP_TO||'%'
and hps.site_use_type='SHIP_TO'
and hps.party_site_id=hcasa.party_site_id
and hcasa.cust_acct_site_id=hcsua.cust_acct_site_id
and SITE_USE_CODE='SHIP_TO'
and hcsua.Status='A';
EXCEPTION
WHEN OTHERS THEN
v_remarks:=v_remarks||'Invalid SHIP_TO';
END;
IF c_data_val_rec.item1 is not null then
BEGIN
select distinct inventory_item_id into v_itemid1
from apps.mtl_system_items_b
where segment1=c_data_val_rec.item1;
EXCEPTION
WHEN OTHERS THEN
v_remarks:=v_remarks||'Invalid ITEM1';
END;
BEGIN
select distinct Item_type into v_item_type1
from apps.mtl_system_items_b
where segment1=c_data_val_rec.item1;
EXCEPTION
WHEN OTHERS THEN
v_remarks:=v_remarks||'Invalid Itemtype1';
END;
END IF;
IF c_data_val_rec.item2 is not null then
BEGIN
select distinct inventory_item_id into v_itemid2
from apps.mtl_system_items_b
where segment1=c_data_val_rec.item2;
EXCEPTION
WHEN OTHERS THEN
v_remarks:=v_remarks||'Invalid ITEM2';
END;
BEGIN
select distinct Item_type into v_item_type2
from apps.mtl_system_items_b
where segment1=c_data_val_rec.item2;
EXCEPTION
WHEN OTHERS THEN
v_remarks:=v_remarks||'Invalid Itemtype2';
END;
END IF;
IF c_data_val_rec.item3 is not null then
BEGIN
select distinct inventory_item_id into v_itemid3
from apps.mtl_system_items_b
where segment1=c_data_val_rec.item3;
EXCEPTION
WHEN OTHERS THEN
v_remarks:=v_remarks||'Invalid ITEM3';
END;
BEGIN
select distinct Item_type into v_item_type3
from apps.mtl_system_items_b
where segment1=c_data_val_rec.item3;
EXCEPTION
WHEN OTHERS THEN
v_remarks:=v_remarks||'Invalid Itemtype3';
END;
END IF;
IF c_data_val_rec.item4 is not null then
BEGIN
select distinct inventory_item_id into v_itemid4
from apps.mtl_system_items_b
where segment1=c_data_val_rec.item4;
EXCEPTION
WHEN OTHERS THEN
v_remarks:=v_remarks||'Invalid ITEM4';
END;
BEGIN
select distinct inventory_item_id into v_item_type4
from apps.mtl_system_items_b
where segment1=c_data_val_rec.item4;
EXCEPTION
WHEN OTHERS THEN
v_remarks:=v_remarks||'Invalid Itemtype4';
END;
END IF;
IF c_data_val_rec.item5 is not null then
BEGIN
select distinct inventory_item_id into v_itemid5
from apps.mtl_system_items_b
where segment1=c_data_val_rec.item5;
EXCEPTION
WHEN OTHERS THEN
v_remarks:=v_remarks||'Invalid ITEM5';
END;
BEGIN
select distinct inventory_item_id into v_item_type5
from apps.mtl_system_items_b
where segment1=c_data_val_rec.item5;
EXCEPTION
WHEN OTHERS THEN
v_remarks:=v_remarks||'Invalid Itemtype5';
END;
END IF;
IF v_remarks is not null then
update XXSC_SALES_ORDER_IMPORT
set process_flag='E', remarks=v_remarks
where iwb_no=c_data_val_rec.iwb_no;
commit;
END IF;
end loop;
for c_data_rec in c_data
loop
select transaction_type_id into v_transaction_type
from OE_TRANSACTION_TYPES_tl
where name like c_data_rec.BILL_TO||'-DOMESTIC';
select cust_account_id into v_cust_id
from hz_cust_accounts hca,
hz_parties hp
where hca.party_id=hp.party_id
and hp.party_name=c_data_rec.CUSTOMER_NAME;
select SITE_USE_ID into v_invoice_to
from hz_parties hp,
hz_party_sites_v hps,
hz_cust_acct_sites_all hcasa,
hz_cust_site_uses_all hcsua
where
party_name=c_data_rec.CUSTOMER_NAME
and hp.party_id=hps.party_id
and hps.address1 like '%'||c_data_rec.BILL_TO||'%'
and hps.site_use_type='BILL_TO'
and hps.party_site_id=hcasa.party_site_id
and hcasa.cust_acct_site_id=hcsua.cust_acct_site_id
and SITE_USE_CODE='BILL_TO'
and hcsua.Status='A';
select SITE_USE_ID into v_ship_to
from hz_parties hp,
hz_party_sites_v hps,
hz_cust_acct_sites_all hcasa,
hz_cust_site_uses_all hcsua
where
party_name=c_data_rec.CUSTOMER_NAME
and hp.party_id=hps.party_id
and hps.address1 like '%'||c_data_rec.SHIP_TO||'%'
and hps.site_use_type='SHIP_TO'
and hps.party_site_id=hcasa.party_site_id
and hcasa.cust_acct_site_id=hcsua.cust_acct_site_id
and SITE_USE_CODE='SHIP_TO'
and hcsua.Status='A';
IF c_data_rec.item1 is not null then
select distinct inventory_item_id into v_itemid1
from apps.mtl_system_items_b
where segment1=c_data_rec.item1;
select distinct Item_type into v_item_type1
from apps.mtl_system_items_b
where segment1=c_data_rec.item1;
ELSE
v_itemid1:= null;
v_item_type1:= null;
END IF;
IF c_data_rec.item2 is not null then
select distinct inventory_item_id into v_itemid2
from apps.mtl_system_items_b
where segment1=c_data_rec.item2;
select distinct Item_type into v_item_type2
from apps.mtl_system_items_b
where segment1=c_data_rec.item2;
ELSE
v_itemid2:=null;
v_item_type2:= null;
END IF;
IF c_data_rec.item3 is not null then
select distinct inventory_item_id into v_itemid3
from apps.mtl_system_items_b
where segment1=c_data_rec.item3;
select distinct Item_type into v_item_type3
from apps.mtl_system_items_b
where segment1=c_data_rec.item3;
ELSE
v_itemid3:=null;
v_item_type3:=null;
END IF;
IF c_data_rec.item4 is not null then
select distinct inventory_item_id into v_itemid4
from apps.mtl_system_items_b
where segment1=c_data_rec.item4;
select distinct Item_type into v_item_type4
from apps.mtl_system_items_b
where segment1=c_data_rec.item4;
ELSE
v_itemid4:= null;
v_item_type4:= null;
END IF;
IF c_data_rec.item5 is not null then
select distinct inventory_item_id into v_itemid5
from apps.mtl_system_items_b
where segment1=c_data_rec.item5;
select distinct Item_type into v_item_type5
from apps.mtl_system_items_b
where segment1=c_data_rec.item5;
ELSE
v_itemid5:= null;
v_item_type5:= null;
END IF;
l_header_rec := OE_ORDER_PUB.G_MISS_HEADER_REC; -- Required attributes (e.g. Order Type and Customer)
l_header_rec.order_type_id := v_transaction_type;
l_header_rec.ordered_date := c_data_rec.iwb_date;
l_header_rec.sold_to_org_id := v_cust_id;
l_header_rec.price_list_id := 93174;
l_header_rec.cust_po_number := c_data_rec.iwb_no;
l_header_rec.ship_to_org_id := v_ship_to;
l_header_rec.invoice_to_org_id := v_invoice_to;
l_header_rec.CONTEXT:='566' ;
l_header_rec.ATTRIBUTE1:=c_data_rec.DELIVERY_TYPE;
-- l_header_rec.freight_term_code = NULL;
l_header_rec.operation := OE_GLOBALS.G_OPR_CREATE;
-- FIRST LINE RECORD. Initialize record to missing
if c_data_rec.item1 is not null and
c_data_rec.item2 is not null and
c_data_rec.item3 is not null and
c_data_rec.item4 is not null and
c_data_rec.item5 is not null then
l_line_tbl(1) := OE_ORDER_PUB.G_MISS_LINE_REC;
l_line_tbl(1).inventory_item_id :=v_itemid1;
l_line_tbl(1).ordered_quantity := c_data_rec.quantity1;
l_line_tbl(1).CALCULATE_PRICE_FLAG :='N';
l_line_tbl(1).UNIT_SELLING_PRICE := c_data_rec.price1;
l_line_tbl(1).UNIT_LIST_PRICE := c_data_rec.price1;
l_line_tbl(1).attribute13:= v_item_type1;
l_line_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE;
--end if;
-- SECOND LINE RECORD
--elsif c_data_rec.item2 is not null then
l_line_tbl(2) := OE_ORDER_PUB.G_MISS_LINE_REC;
l_line_tbl(2).inventory_item_id := v_itemid2;
l_line_tbl(2).ordered_quantity := c_data_rec.quantity2;
l_line_tbl(2).CALCULATE_PRICE_FLAG :='N';
l_line_tbl(2).UNIT_SELLING_PRICE := c_data_rec.price2;
l_line_tbl(2).UNIT_LIST_PRICE := c_data_rec.price2;
l_line_tbl(2).attribute13:=v_item_type2;
l_line_tbl(2).operation := OE_GLOBALS.G_OPR_CREATE;
--end if;
-- THIRD LINE RECORD
--elsif c_data_rec.item3 is not null then
l_line_tbl(3) := OE_ORDER_PUB.G_MISS_LINE_REC;
l_line_tbl(3).inventory_item_id := v_itemid3;
l_line_tbl(3).ordered_quantity := c_data_rec.quantity3;
l_line_tbl(3).CALCULATE_PRICE_FLAG :='N';
l_line_tbl(3).UNIT_SELLING_PRICE := c_data_rec.price3;
l_line_tbl(3).UNIT_LIST_PRICE := c_data_rec.price3;
l_line_tbl(3).attribute13:=v_item_type3;
l_line_tbl(3).operation := OE_GLOBALS.G_OPR_CREATE;
--end if;
-- FOURTH LINE RECORD
--elsif c_data_rec.item4 is not null then
l_line_tbl(4) := OE_ORDER_PUB.G_MISS_LINE_REC;
l_line_tbl(4).inventory_item_id := v_itemid4;
l_line_tbl(4).ordered_quantity := c_data_rec.quantity4;
l_line_tbl(4).CALCULATE_PRICE_FLAG :='N';
l_line_tbl(4).UNIT_SELLING_PRICE := c_data_rec.price4;
l_line_tbl(4).UNIT_LIST_PRICE := c_data_rec.price4;
l_line_tbl(4).attribute13:=v_item_type4;
l_line_tbl(4).operation := OE_GLOBALS.G_OPR_CREATE;
--END IF;
-- FIFTH LINE RECORD
--elsif c_data_rec.item5 is not null then
l_line_tbl(5) := OE_ORDER_PUB.G_MISS_LINE_REC;
l_line_tbl(5).inventory_item_id := v_itemid5;
l_line_tbl(5).ordered_quantity := c_data_rec.quantity5;
l_line_tbl(5).CALCULATE_PRICE_FLAG :='N';
l_line_tbl(5).UNIT_SELLING_PRICE := c_data_rec.price5;
l_line_tbl(5).UNIT_LIST_PRICE := c_data_rec.price5;
l_line_tbl(5).attribute13:= v_item_type5;
l_line_tbl(5).operation := OE_GLOBALS.G_OPR_CREATE;
elsif c_data_rec.item1 is not null and
c_data_rec.item2 is not null and
c_data_rec.item3 is not null and
c_data_rec.item4 is not null then
l_line_tbl(1) := OE_ORDER_PUB.G_MISS_LINE_REC;
l_line_tbl(1).inventory_item_id :=v_itemid1;
l_line_tbl(1).ordered_quantity := c_data_rec.quantity1;
l_line_tbl(1).CALCULATE_PRICE_FLAG :='N';
l_line_tbl(1).UNIT_SELLING_PRICE := c_data_rec.price1;
l_line_tbl(1).UNIT_LIST_PRICE := c_data_rec.price1;
l_line_tbl(1).attribute13:= v_item_type1;
l_line_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE;
--end if;
-- SECOND LINE RECORD
--elsif c_data_rec.item2 is not null then
l_line_tbl(2) := OE_ORDER_PUB.G_MISS_LINE_REC;
l_line_tbl(2).inventory_item_id := v_itemid2;
l_line_tbl(2).ordered_quantity := c_data_rec.quantity2;
l_line_tbl(2).CALCULATE_PRICE_FLAG :='N';
l_line_tbl(2).UNIT_SELLING_PRICE := c_data_rec.price2;
l_line_tbl(2).UNIT_LIST_PRICE := c_data_rec.price2;
l_line_tbl(2).attribute13:=v_item_type2;
l_line_tbl(2).operation := OE_GLOBALS.G_OPR_CREATE;
--end if;
-- THIRD LINE RECORD
--elsif c_data_rec.item3 is not null then
l_line_tbl(3) := OE_ORDER_PUB.G_MISS_LINE_REC;
l_line_tbl(3).inventory_item_id := v_itemid3;
l_line_tbl(3).ordered_quantity := c_data_rec.quantity3;
l_line_tbl(3).CALCULATE_PRICE_FLAG :='N';
l_line_tbl(3).UNIT_SELLING_PRICE := c_data_rec.price3;
l_line_tbl(3).UNIT_LIST_PRICE := c_data_rec.price3;
l_line_tbl(3).attribute13:=v_item_type3;
l_line_tbl(3).operation := OE_GLOBALS.G_OPR_CREATE;
--end if;
-- FOURTH LINE RECORD
--elsif c_data_rec.item4 is not null then
l_line_tbl(4) := OE_ORDER_PUB.G_MISS_LINE_REC;
l_line_tbl(4).inventory_item_id := v_itemid4;
l_line_tbl(4).ordered_quantity := c_data_rec.quantity4;
l_line_tbl(4).CALCULATE_PRICE_FLAG :='N';
l_line_tbl(4).UNIT_SELLING_PRICE := c_data_rec.price4;
l_line_tbl(4).UNIT_LIST_PRICE := c_data_rec.price4;
l_line_tbl(4).attribute13:=v_item_type4;
l_line_tbl(4).operation := OE_GLOBALS.G_OPR_CREATE;
elsif c_data_rec.item1 is not null and
c_data_rec.item2 is not null and
c_data_rec.item3 is not null then
l_line_tbl(1) := OE_ORDER_PUB.G_MISS_LINE_REC;
l_line_tbl(1).inventory_item_id :=v_itemid1;
l_line_tbl(1).ordered_quantity := c_data_rec.quantity1;
l_line_tbl(1).CALCULATE_PRICE_FLAG :='N';
l_line_tbl(1).UNIT_SELLING_PRICE := c_data_rec.price1;
l_line_tbl(1).UNIT_LIST_PRICE := c_data_rec.price1;
l_line_tbl(1).attribute13:= v_item_type1;
l_line_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE;
--end if;
-- SECOND LINE RECORD
--elsif c_data_rec.item2 is not null then
l_line_tbl(2) := OE_ORDER_PUB.G_MISS_LINE_REC;
l_line_tbl(2).inventory_item_id := v_itemid2;
l_line_tbl(2).ordered_quantity := c_data_rec.quantity2;
l_line_tbl(2).CALCULATE_PRICE_FLAG :='N';
l_line_tbl(2).UNIT_SELLING_PRICE := c_data_rec.price2;
l_line_tbl(2).UNIT_LIST_PRICE := c_data_rec.price2;
l_line_tbl(2).attribute13:=v_item_type2;
l_line_tbl(2).operation := OE_GLOBALS.G_OPR_CREATE;
--end if;
-- THIRD LINE RECORD
--elsif c_data_rec.item3 is not null then
l_line_tbl(3) := OE_ORDER_PUB.G_MISS_LINE_REC;
l_line_tbl(3).inventory_item_id := v_itemid3;
l_line_tbl(3).ordered_quantity := c_data_rec.quantity3;
l_line_tbl(3).CALCULATE_PRICE_FLAG :='N';
l_line_tbl(3).UNIT_SELLING_PRICE := c_data_rec.price3;
l_line_tbl(3).UNIT_LIST_PRICE := c_data_rec.price3;
l_line_tbl(3).attribute13:=v_item_type3;
l_line_tbl(3).operation := OE_GLOBALS.G_OPR_CREATE;
end if;
-- CALL TO PROCESS ORDER
OE_Order_PUB.Process_Order(
p_api_version_number=>1.0,
p_header_rec => l_header_rec,
p_line_tbl=> l_line_tbl,
p_line_adj_tbl=> l_line_adj_tbl,
-- OUT variables,
x_header_rec =>l_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 =>l_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 =>l_action_request_tbl,
x_return_status=> l_return_status,
x_msg_count=> l_msg_count,
x_msg_data=> 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');
update XXSC_SALES_ORDER_IMPORT
set process_flag='E',remarks=l_msg_data
where iwb_no=c_data_rec.iwb_no;
commit;
dbms_output.put_line('Order Failed.'||l_msg_data);
end loop;
end if;
-- Check the return status
if l_return_status = FND_API.G_RET_STS_SUCCESS then
update XXSC_SALES_ORDER_IMPORT
set process_flag='Y',ORDER_NUMBER=l_header_rec.order_number,remarks='SUCCESS'
where iwb_no=c_data_rec.iwb_no;
commit;
fnd_file.put_line (fnd_file.output,'Order no:'||l_header_rec.order_number||' Created for the IWB no:'||c_data_rec.iwb_no);
dbms_output.put_line('Order..'||l_header_rec.order_number);
Else
dbms_output.put_line('Order Failed.');
end if;
commit;
END LOOP;
End;
/

Answer 1

Your code always sends 4 line records with each header. Code is not checking if it belongs to same header or not. Please check your code.