The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE DELETE_BOM_EXPLOSIONS(
ERRBUF IN OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
RETCODE IN OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
top_bill_seq_id IN Number ,
expl_type IN Varchar2
) IS
conc_status BOOLEAN ;
Cursor Get_Delete_Rows IS
Select top_bill_sequence_id, bill_sequence_id,
explosion_type, sort_order
From bom_explosions
where top_bill_sequence_id = top_bill_seq_id
and explosion_type = expl_type
and rexplode_flag = 1 ;
For Delete_Rows in Get_Delete_Rows
Loop
Loop
Delete from bom_explosions BE
Where
BE.top_bill_sequence_id = DELETE_ROWS.top_bill_sequence_id
And BE.EXPLOSION_TYPE =
DELETE_ROWS.explosion_type
AND (BE.SORT_ORDER like DELETE_ROWS.sort_order||'%'
AND BE.SORT_ORDER <> DELETE_ROWS.sort_order)
AND ROWNUM < 1000 ;
UPDATE BOM_EXPLOSIONS
SET REQUEST_ID = NULL
WHERE TOP_BILL_SEQUENCE_ID = top_bill_seq_id
AND EXPLOSION_TYPE = expl_type
AND SORT_ORDER = Bom_Common_Definitions.G_Bom_Init_SortCode;
UPDATE BOM_EXPLOSIONS
SET REQUEST_ID = NULL
WHERE TOP_BILL_SEQUENCE_ID = top_bill_seq_id
AND EXPLOSION_TYPE = expl_type
AND SORT_ORDER = Bom_Common_Definitions.G_Bom_Init_SortCode;
UPDATE BOM_EXPLOSIONS
SET REQUEST_ID = NULL
WHERE TOP_BILL_SEQUENCE_ID = top_bill_seq_id
AND EXPLOSION_TYPE = expl_type
AND SORT_ORDER = Bom_Common_Definitions.G_Bom_Init_SortCode;
END DELETE_BOM_EXPLOSIONS;
Select top_bill_sequence_id, explosion_type, sort_order
from bom_explosions BE
where BE.COMP_COMMON_BILL_SEQ_ID = Bill_Seq_Id
and BE.rexplode_flag = 1
and BE.explosion_type in ('INCLUDED','OPTIONAL','ALL');
SELECT Request_id
FROM Bom_explosions
WHERE top_bill_sequence_id = top_bill_id
AND explosion_type = expl_type
AND sort_order = Bom_Common_Definitions.G_Bom_Init_SortCode;
l_delete_bom_expl Number := 2;
l_delete_bom_expl := fnd_profile.value('BOM:DELETE_BOM_EXPLOSIONS');
If l_delete_bom_expl = 1 then
SELECT bill_sequence_id
INTO Bill_Id
FROM bom_bill_of_materials
WHERE Assembly_Item_Id = Item_Id
AND nvl(Alternate_Bom_Designator,'NONE')=nvl(Alt_Bom_Desg,'NONE')
AND Organization_Id = Org_Id;
SELECT count(*)
into expl_row_cnt
FROM bom_explosions
WHERE top_bill_sequence_id = C1.top_bill_sequence_id
AND explosion_type = C1.explosion_type
AND sort_order like C1.sort_order||'%'
AND sort_order <> C1.sort_order;
Update bom_explosions
set REQUEST_ID = X_req_id
where top_bill_sequence_id = C1.top_bill_sequence_id
and explosion_type = C1.explosion_type
and SORT_ORDER = Bom_Common_Definitions.G_Bom_Init_SortCode;