The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT id, creation_date, contract_id
FROM okc_user_bins
WHERE program_name = cp_program
AND created_by = cp_user
AND bin_type = cp_type
ORDER BY creation_date;
l_dups_deleted NUMBER := 0;
l_fifos_deleted NUMBER := 0;
okc_ubl_pvt.insert_row (
p_api_version => g_package_version
,p_init_msg_list => g_init_msg_list
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data
,p_ubnv_rec => g_ubl_recin
,x_ubnv_rec => g_ubl_recout );
l_dups_deleted := 0;
l_fifos_deleted := 0;
-- dbms_output.put_line('checking Dups:' ||id_tab.LAST ||'*'|| l_dups_deleted ||'*'|| l_fifos_deleted ||'*'|| g_max_list_length );
delete_entry ( p_ubl_id => id_tab(i)
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data);
l_dups_deleted := l_dups_deleted + 1;
id_tab.DELETE(i);
cid_tab.DELETE(i);
cdate_tab.DELETE(i);
-- delete rows beyond list length
--
IF (id_tab.COUNT - l_dups_deleted ) > g_max_list_length THEN
--FOR i in id_tab.FIRST..id_tab.LAST LOOP
--dbms_output.put_line('checking LIFOs:' ||id_tab.COUNT ||'*'|| l_dups_deleted ||'*'|| l_fifos_deleted ||'*'|| g_max_list_length );
--IF (id_tab.COUNT - l_dups_deleted - l_fifos_deleted) > g_max_list_length THEN
-- delete_entry ( p_ubl_id => id_tab(i)
delete_entry ( p_ubl_id => id_tab(id_tab.FIRST)
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data);
-- l_fifos_deleted := l_fifos_deleted + 1;
PROCEDURE delete_entry (
p_ubl_id IN OKC_USER_BINS.id%TYPE
,x_return_status OUT NOCOPY VARCHAR2
,x_msg_count OUT NOCOPY NUMBER
,x_msg_data OUT NOCOPY VARCHAR2 )
IS
PRAGMA AUTONOMOUS_TRANSACTION;
l_api_name VARCHAR2(30) := 'DELETE_ENTRY';
okc_ubl_pvt.delete_row (
p_api_version => g_package_version
,p_init_msg_list => g_init_msg_list
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data
,p_ubnv_rec => g_ubl_recin );
END delete_entry;