l_result varchar2(32767);

l_full_name varchar2(32767);

l_mappings varchar2(32767);

l_filters varchar2(32767);

l_mappings_cardinality integer := 0;

l_result := q'[

with sources as (

select /*+ cardinality(f {mappings_cardinality}) */

{l_full_name} as full_name, s.owner, s.name, s.line, s.text

from {sources_view} s {file_mappings}

where s.type in ('PACKAGE BODY', 'TYPE BODY', 'PROCEDURE', 'FUNCTION')

{filters}

),

trigger_sources as (

select /*+ cardinality(f {mappings_cardinality}) */

{l_full_name} as full_name,

s.line

- (select min(t.line) - 1

from {sources_view} t

and regexp_like( t.text, '[A-Za-z0-9$#_]*(begin|declare|compound).*', 'i' )

) as line,

s.text

from {sources_view} s {file_mappings}

where s.type = 'TRIGGER'

{filters}

),

coverage_sources as (

select full_name, owner, name, line, text,

case

end as to_be_skipped

from (

select * from sources

union all

select * from trigger_sources

) s

)

select full_name, owner, name, line, to_be_skipped, text

from coverage_sources s

--Exclude calls to utPLSQL framework, Unit Test packages and objects from a_exclude_list parameter of coverage reporter

where (s.owner, s.name) not in ( select el.owner, el.name from table(:l_skipped_objects) el )

and line > 0

]';

l_mappings_cardinality := ut_utils.scale_cardinality(cardinality(a_coverage_options.file_mappings));

l_full_name := 'f.file_name';

l_mappings := '

and s.owner = f.object_owner';

l_full_name := q'[lower(s.owner||'.'||s.name)]';

l_filters := case

when a_coverage_options.include_objects is not empty then '

and (s.owner, s.name) in (select il.owner, il.name from table(:include_objects) il)'

else '

and s.owner in (select upper(t.column_value) from table(:l_schema_names) t)'

end;

l_result := replace(l_result, '{sources_view}', ut_metadata.get_source_view_name());

l_result := replace(l_result, '{l_full_name}', l_full_name);

l_result := replace(l_result, '{file_mappings}', l_mappings);

l_result := replace(l_result, '{filters}', l_filters);

l_result := replace(l_result, '{mappings_cardinality}', l_mappings_cardinality);

-- if a_coverage_options.file_mappings is not null and a_coverage_options.file_mappings.count > 0 then

-- l_full_name := 'f.file_name';

-- else

-- l_full_name := 'lower(s.owner||''.''||s.name)';

-- end if;

-- l_result := '

-- select full_name, owner, name, line, to_be_skipped, text

-- from (

-- select '||l_full_name||q'[ as full_name,

-- s.owner,

-- s.name,

-- s.line -

-- coalesce(

-- case when type!='TRIGGER' then 0 end,

-- (select min(t.line) - 1

-- from ]'||ut_metadata.get_source_view_name()||q'[ t

-- where t.owner = s.owner and t.type = s.type and t.name = s.name

-- and regexp_like( t.text, '[A-Za-z0-9$#_]*(begin|declare|compound).*','i'))

-- ) as line,

-- s.text, ]';

-- l_result := l_result ||

-- q'[case

-- when

-- -- to avoid execution of regexp_like on every line

-- -- first do a rough check for existence of search pattern keyword

-- (lower(s.text) like '%procedure%'

-- or lower(s.text) like '%function%'

-- or lower(s.text) like '%begin%'

-- or lower(s.text) like '%end%'

-- or lower(s.text) like '%package%'

-- ) and

-- regexp_like(

-- s.text,

-- '^([\t ]*(((not)?\s*(overriding|final|instantiable)[\t ]*)*(static|constructor|member)?[\t ]*(procedure|function)|package([\t ]+body)|begin|end([\t ]+\S+)*[ \t]*;))', 'i'

-- )

-- then 'Y'

-- end as to_be_skipped ]';

--

-- l_result := l_result ||' from '||ut_metadata.get_source_view_name()||q'[ s]';

--

-- if a_coverage_options.file_mappings is not empty then

-- l_result := l_result || '

-- join table(:file_mappings) f

-- on s.name = f.object_name

-- and s.type = f.object_type

-- and s.owner = f.object_owner

-- where 1 = 1';

-- elsif a_coverage_options.include_objects is not empty then

-- l_result := l_result || '

-- where (s.owner, s.name) in (select il.owner, il.name from table(:include_objects) il)';

-- else

-- l_result := l_result || '

-- where s.owner in (select upper(t.column_value) from table(:l_schema_names) t)';

-- end if;

-- l_result := l_result || q'[

-- and s.type not in ('PACKAGE', 'TYPE', 'JAVA SOURCE')

-- --Exclude calls to utPLSQL framework, Unit Test packages and objects from a_exclude_list parameter of coverage reporter

-- and (s.owner, s.name) not in (select el.owner, el.name from table(:l_skipped_objects) el)

-- )

-- where line > 0]';

-- return l_result;

open l_cursor for l_sql using a_coverage_options.file_mappings, a_coverage_options.file_mappings, l_skip_objects;

open l_cursor for l_sql using a_coverage_options.include_objects, a_coverage_options.include_objects, l_skip_objects;

open l_cursor for l_sql using a_coverage_options.schema_names, a_coverage_options.schema_names, l_skip_objects;