The following lines contain the word 'select', 'insert', 'update' or 'delete':
RECS_DELETED del_count;
Recs_deleted(1) := 0;
Recs_deleted(2) := 0;
Recs_deleted(3) := 0;
Recs_deleted(4) := 0;
Recs_deleted(5) := 0;
Recs_deleted(6) := 0;
Recs_deleted(8) := 0;
l_no_of_rows_deleted CONSTANT varchar2(100) := ' rows deleted from the table ';
write_log(1,Recs_deleted(1)||l_no_of_rows_deleted||'AS_LEAD_IMPORT_ERRORS');
write_log(1,Recs_deleted(2)||l_no_of_rows_deleted||'AS_IMP_SL_FLEX');
write_log(1,Recs_deleted(3)||l_no_of_rows_deleted||'AS_IMP_CNT_ROL_INTERFACE');
write_log(1,Recs_deleted(4)||l_no_of_rows_deleted||'AS_IMP_CNT_PNT_INTERFACE');
write_log(1,Recs_deleted(5)||l_no_of_rows_deleted||'AS_IMP_LINES_INTERFACE');
write_log(1,Recs_deleted(6)||l_no_of_rows_deleted||'AML_INTERACTION_LEADS');
write_log(1,Recs_deleted(8)||l_no_of_rows_deleted||'AS_IMPORT_INTERFACE');
PROCEDURE Delete_Identified_Leads(P_Id_Tab IN AML_PURGE_IMPORT_INTERFACE.Import_Interface_Id_Tab) IS
BEGIN
-- Lead Import Error table
FORALL I IN P_Id_Tab.FIRST..P_Id_Tab.LAST
DELETE
FROM AS_LEAD_IMPORT_ERRORS
WHERE import_interface_id = P_Id_Tab(I);
Recs_deleted(1) := Recs_deleted(1) + SQL%ROWCOUNT;
DELETE
FROM AS_IMP_SL_FLEX
WHERE import_interface_id = P_Id_Tab(I);
Recs_deleted(2) := Recs_deleted(2) + SQL%ROWCOUNT;
DELETE
FROM AS_IMP_CNT_ROL_INTERFACE
WHERE import_interface_id = P_Id_Tab(I);
Recs_deleted(3) := Recs_deleted(3) + SQL%ROWCOUNT;
DELETE
FROM AS_IMP_CNT_PNT_INTERFACE
WHERE import_interface_id = P_Id_Tab(I);
Recs_deleted(4) := Recs_deleted(4) + SQL%ROWCOUNT;
DELETE
FROM AS_IMP_LINES_INTERFACE
WHERE import_interface_id = P_Id_Tab(I);
Recs_deleted(5) := Recs_deleted(5) + SQL%ROWCOUNT;
DELETE
FROM AML_INTERACTION_LEADS
WHERE import_interface_id = P_Id_Tab(I);
Recs_deleted(6) := Recs_deleted(6) + SQL%ROWCOUNT;
DELETE
FROM PV_ENTITY_RULES_APPLIED
WHERE entity_id = P_Id_Tab(I)
AND entity = 'RESPONSE';
Recs_deleted(7) := Recs_deleted(7) + SQL%ROWCOUNT; */
DELETE
FROM AS_IMPORT_INTERFACE
WHERE import_interface_id = P_Id_Tab(I);
Recs_deleted(8) := Recs_deleted(8) + SQL%ROWCOUNT;
END Delete_Identified_Leads;
l_no_of_rows_deleted CONSTANT varchar2(100) := ' rows deleted from the table ';
SELECT import_interface_id
FROM AS_IMPORT_INTERFACE
WHERE TRUNC(creation_date) BETWEEN TRUNC(l_start_date) AND TRUNC(l_end_date)
AND load_status = P_STATUS;
Id_Tab.DELETE;
Delete_Identified_Leads(Id_Tab); --Pass the lead nos to the Purge_Qualified_Leads procedure to delete them.
SELECT import_interface_id BULK COLLECT
INTO Id_Tab
FROM AS_IMPORT_INTERFACE
WHERE TRUNC(creation_date) BETWEEN TRUNC(l_start_date) AND TRUNC(l_end_date)
AND load_status = P_STATUS;
Delete_Identified_Leads(Id_Tab);