The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure insert_curr_rate_data(p_instance_id in number) is
request_id number;
insert into QPR_CURRENCY_RATES(CURR_CONV_ID, FROM_CURRENCY, TO_CURRENCY,
CONVERSION_DATE, CONVERSION_RATE,
CONVERSION_CLASS, INSTANCE_ID,
CREATION_DATE, CREATED_BY, LAST_UPDATE_DATE,
LAST_UPDATED_BY, LAST_UPDATE_LOGIN,
PROGRAM_APPLICATION_ID, PROGRAM_ID,
REQUEST_ID)
values(QPR_CURRENCY_RATES_S.nextval,
r_curr_data.FROM_CURRENCY(i), r_curr_data.TO_CURRENCY(i),
r_curr_data.CONVERSION_DATE(i),
r_curr_data.CONVERSION_RATE(i),
r_curr_data.CONVERSION_CLASS(i),
p_instance_id, sys_date, user_id, sys_date, user_id,
login_id, prg_appl_id, prg_id, request_id) ;
fnd_file.put_line(fnd_file.log, 'ERROR INSERTING CURRENCT RATE DATA...');
end insert_curr_rate_data;
delete QPR_CURRENCY_RATES
where INSTANCE_ID = p_instance_id
and CONVERSION_DATE between date_from and date_to;
s_sql := 'select FROM_CURRENCY, TO_CURRENCY,CONVERSION_DATE, ';
insert_curr_rate_data(p_instance_id);