The following lines contain the word 'select', 'insert', 'update' or 'delete':
last_updated_by := nvl(FND_GLOBAL.user_id,-1);
last_update_date := SYSDATE;
last_update_login := nvl(FND_GLOBAL.conc_login_id,FND_GLOBAL.login_id);
program_update_date := NULL;
program_update_date := SYSDATE;
select min(org_id) into l_default_org_id from ar_system_parameters;
ARP_GLOBAL.sysparam.last_updated_by := l_gr.last_updated_by;
ARP_GLOBAL.sysparam.last_update_date := l_gr.last_update_date;
ARP_GLOBAL.sysparam.last_update_login := l_gr.last_update_login;
SELECT concurrent_program_name
INTO conc_program_name
FROM fnd_concurrent_programs_vl
WHERE concurrent_program_id = fnd_global.conc_program_id
AND application_id = 222;