The following lines contain the word 'select', 'insert', 'update' or 'delete':
ELSIF l_prev_event_dtl_rec.update_type <> g_prev_event_dtl_rec.update_type THEN
l_flag := 'N';
SELECT pee.element_entry_id,
pee.effective_start_date ,
pee.effective_end_date,
pel.element_type_id
FROM pay_element_entries_f pee,
pay_element_links_f pel
WHERE pee.assignment_id = p_assignment_id
AND pee.entry_type = 'E'
AND pee.element_link_id = pel.element_link_id
AND p_effective_date BETWEEN pee.effective_start_date AND pee.effective_end_date
AND pel.element_type_id = c_element_type_id
AND p_effective_date BETWEEN pel.effective_start_date AND pel.effective_end_date
ORDER BY pee.effective_start_date DESC;
SELECT instr(p_input_value,'->'),
LENGTH(p_input_value)
INTO l_del_position,
l_length
FROM dual;
SELECT decode(trim(SUBSTR(p_input_value,0,l_del_position-1)),'','0',to_number(trim(SUBSTR(p_input_value,0,l_del_position-1)))),
decode(trim(SUBSTR(p_input_value,l_del_position +3,l_length-1)),'','0',
to_number(SUBSTR(p_input_value,l_del_position +3,l_length-1)))
INTO l_old_value,
l_new_value
FROM dual;
l_update_type VARCHAR2(30);
debug('g_pay_proc_evt_tab(l_curr_evt_index).update_type:'||g_pay_proc_evt_tab(l_curr_evt_index).update_type);
l_update_type := g_pay_proc_evt_tab(l_curr_evt_index).update_type;
debug('update_type :'||g_pay_proc_evt_tab(l_curr_evt_index).update_type ,20);
IF l_update_type ='C' THEN
get_old_and_new_values( l_chg_value ,l_old_value ,l_new_value );
elsif l_update_type ='U' THEN
l_old_value := g_pay_proc_evt_tab(l_curr_evt_index).old_value;
l_update_type VARCHAR2(30);
l_update_type := g_pay_proc_evt_tab(l_curr_evt_index).update_type;
debug('update_type :'||g_pay_proc_evt_tab(l_curr_evt_index).update_type ,20);
IF l_update_type ='C' THEN
get_old_and_new_values( l_chg_value ,l_old_value ,l_new_value );
elsif l_update_type ='U' THEN
l_old_value := g_pay_proc_evt_tab(l_curr_evt_index).old_value;
l_update_type VARCHAR2(5);
l_update_type := g_pay_proc_evt_tab(l_curr_evt_index).update_type;
debug('update type:'||l_update_type);
debug('l_update_type:'||l_update_type);
IF l_update_type = 'C' THEN
get_old_and_new_values( l_chg_value ,l_old_value ,l_new_value ); -- get the value from pattern matching code
elsif l_update_type = 'U' THEN
debug('old_value :'||g_pay_proc_evt_tab(l_curr_evt_index).old_value ,20);
l_update_type VARCHAR2(30);
l_update_type := g_pay_proc_evt_tab(l_curr_evt_index).update_type;
debug('l_update_type :'||l_update_type ,20);