Package body collection
Package Body, wo vo dr Collection Library brucht wird
CREATE OR REPLACE PACKAGE BODY K.RBSC$COLLECT_LIB#
IS
/*
-------------------------------------------------------------------------------------------------------------
Bank : Coutts & Co Ltd.
Business Area : Static/Dynamic Collections
Description : Add-ons for RBSC$COLLECT_LIB library to create, modify, and access Static and Dynamic Collections
Owner : Coutts & Co Ltd.
-------------------------------------------------------------------------------------------------------------
ID Date Name, Company Issue Change Log or Description
-------------------------------------------------------------------------------------------------------------
001
-------------------------------------------------------------------------------------------------------------
*/
----------------------------------------------------------------------------
function is_item_in_stat_expd(
i_collect_id pls_integer
,i_item_id pls_integer
,i_eff_date date
) return boolean
is
ret char := 0;
begin
select min(s#rbsc$collect_lib.is_item_in_collect(i_collect_id => ci.item_id, i_item_id => i_item_id, i_eff_date => i_eff_date, i_expd=>1))
into ret
from k.obj_collect_item ci, k.obj_collect oc
where ci.obj_id = i_collect_id
and ci.item_id = oc.obj_id
and i_eff_date between coalesce(ci.valid_from, def.min_date) and coalesce(ci.valid_to, def.max_date);
if ret = '+' then
return true;
end if;
return false;
exception
when no_data_found then
return false;
end is_item_in_stat_expd;
END RBSC$COLLECT_LIB#;
