The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT ledger_id
,NAME
,ledger_category_code
, relationship_enabled_flag
FROM xla_ledger_relationships_v xlr
WHERE xlr.primary_ledger_id = p_ledger_id
--AND xlr.relationship_enabled_flag = 'Y'
ORDER BY DECODE(xlr.ledger_category_code,
'PRIMARY',1,
'ALC',2
,3);
SELECT dbj.object_name
FROM
dba_objects dbj
where dbj.object_name like 'XLA_GLT_%'
and dbj.object_type = 'TABLE'
and dbj.created <= p_end_date
and dbj.owner = p_table_owner
;
select max(end_date) end_date
from
gl_period_statuses
where application_id = 101
and ledger_id=p_ledger_id
and end_date <= p_end_date
and closing_status in ('C','P')
;
SELECT ledger_category_code, NAME
INTO l_category, l_ledger_name
FROM gl_ledgers
WHERE ledger_id = p_ledger_id;
print_logfile('End_date selected for purging the tables is ' || l_max_date);
l_stat := 'select count(*) from
(select /*+ first_rows(1) */ ledger_id
from '|| glt_rec.object_name ||
' where rownum = 1
) glt
where glt.ledger_id not in (' || l_ledgers || ')';
p_errbuf := 'The Ledger selected is not a Primary Ledger_id. Please run the concurrent program with a Primary Ledger';
print_logfile('The Ledger selected is not a Primary Ledger_id. Please run the concurrent program with a Primary Ledger' );