The following lines contain the word 'select', 'insert', 'update' or 'delete':
| purging the data in CTO tables which were inserted during |
| creation of orders |
| ARGUMENTS |
| Input : Please see the individual function or procedure. |
| |
| HISTORY |
| Date Author Comments |
| --------- -------- ---------------------------------------------------- |
| 05/09/2001 kkonada intial creation of body for cto table purge |
| 06/04/2001 kkonada moving delete statement of bcod out of the |
| condition, bcod can have data without any corresponding |
| data in bcol
|
| 03/26/2004 bugfix#3524022
| Kkonada added code to delete data from bom_cto_model_orgs
| Refrence to bom_cto_src_orgs is changed to bom_cto_src_orgs_b
|
|
| 04/05/2004 bugfix#3524022
| coorected bugfix.
| locked table BCMO before deletion
| removed having count(group_reference_id) > 1
| removed close cursor statements from excpetion block
|
| 04/05/2004 Need to revert delete from BCMO as part of order purge
| It is decided in todays meeting between Usha, renga, sushant
| and Kiran to remove the BCMO data at the time
| when the data is removed from match table bom_ato_configurations.
| Details of items which are matched and whose model CIB =3 are
| stored in BCMO
|
|07/13/2004 Kiran Konada
| bugfix#3763753
| remove pre-configure data inserted pre-11.5.10 from BCOL and BCSO_B
|
|
|06/01/2005 Renga Kannan
| Added nocopy hint to all out parameters.
|
*=========================================================================*/
PG_DEBUG Number := NVL(FND_PROFILE.value('ONT_DEBUG_LEVEL'), 0);
l_row_deleted number;
SELECT header_id
FROM bom_cto_order_lines
WHERE header_id = p_header_id
FOR UPDATE NOWAIT;
SELECT header_id
FROM bom_cto_order_demand
WHERE header_id = p_header_id
FOR UPDATE NOWAIT;
SELECT top_model_line_id
FROM bom_cto_src_orgs_b --3524022
WHERE top_model_line_id=l_top_model_line_id
FOR UPDATE NOWAIT;
SELECT header_id
INTO l_dummy
FROM bom_cto_order_lines
where header_id= p_header_id
and rownum=1;
SELECT top_model_line_id
INTO l_top_model_line_id
FROM bom_cto_order_lines
where header_id= p_header_id
and rownum=1;
oe_debug_pub.add('cto_purge_tables: ' || 'select top_model_line_id for lock bom_cto_src_org',3);
DELETE FROM bom_cto_src_orgs_b --3524022
WHERE top_model_line_id=l_top_model_line_id;
l_row_deleted :=sql%rowcount;
oe_debug_pub.add('cto_purge_tables: ' || 'deleted from bom_cto_src_orgs_b'||l_row_deleted,3);
DELETE FROM bom_cto_order_lines
WHERE header_id = p_header_id;
l_row_deleted :=sql%rowcount;
oe_debug_pub.add('cto_purge_tables: ' || 'deleted from bom_cto_order_lines'||l_row_deleted,3);
DELETE FROM bom_cto_order_demand
WHERE header_id = p_header_id;
l_row_deleted :=sql%rowcount;
oe_debug_pub.add('cto_purge_tables: ' || 'deleted from bom_cto_order_demand'||l_row_deleted,3);
delete from bom_cto_order_lines
where line_id < 0;
l_row_deleted :=sql%rowcount;
oe_debug_pub.add('cto_purge_tables: ' || 'pre-cfg rows deleted from bom_cto_order_lines'||l_row_deleted,3);
delete from bom_cto_src_orgs_b
where line_id < 0;
l_row_deleted :=sql%rowcount;
oe_debug_pub.add('cto_purge_tables: ' || 'pre-cfg rows deleted from bom_cto_src_orgs_b'||l_row_deleted,3);