The following lines contain the word 'select', 'insert', 'update' or 'delete':
select pbg.security_group_id
from per_business_groups pbg
, hxc_approval_comps hac
-- , EDIT_HERE table_name(s) 333
where hac.approval_comp_id = p_approval_comp_id;
select pbg.legislation_code
from per_business_groups pbg
, hxc_approval_comps hac
-- , EDIT_HERE table_name(s) 333
where hac.approval_comp_id = p_approval_comp_id;
Procedure chk_non_updateable_args
(p_effective_date in date
,p_rec in hxc_hac_shd.g_rec_type
) IS
--
l_proc varchar2(72) := g_package || 'chk_non_updateable_args';
End chk_non_updateable_args;
SELECT start_date
,end_date
FROM hxc_approval_comps
WHERE approval_comp_id = p_approval_comp_id;
SELECT 'Y'
FROM hxc_approval_comps s
WHERE s.approval_style_id = p_approval_style_id
AND s.time_recipient_id = p_time_recipient_id
AND s.start_date >= p_start_date
AND NVL(s.end_date, hr_general.END_OF_TIME)
<= NVL(p_end_date,hr_general.END_OF_TIME)
AND p_time_recipient_id <> -1 ;
PROCEDURE chk_invalid_dates_update
(p_approval_comp_id
IN hxc_approval_comps.approval_comp_id%TYPE
,p_approval_style_id
IN hxc_approval_comps.approval_style_id%TYPE
,p_time_recipient_id
IN hxc_approval_comps.time_recipient_id%TYPE
,p_start_date
IN hxc_approval_comps.start_date%TYPE
,p_end_date
IN hxc_approval_comps.end_date%TYPE
)
IS
--
CURSOR c_chk_invalid_dates_update
IS
SELECT 'Y'
FROM hxc_approval_comps s
WHERE s.approval_comp_id <> p_approval_comp_id
AND s.approval_style_id = p_approval_style_id
AND s.time_recipient_id = p_time_recipient_id
AND s.start_date >= p_start_date
AND NVL(s.end_date, hr_general.END_OF_TIME)
<= NVL(p_end_date,hr_general.END_OF_TIME)
AND p_time_recipient_id <> -1 ;
OPEN c_chk_invalid_dates_update;
FETCH c_chk_invalid_dates_update INTO l_result;
IF c_chk_invalid_dates_update%FOUND THEN
--
CLOSE c_chk_invalid_dates_update;
CLOSE c_chk_invalid_dates_update;
END chk_invalid_dates_update;
SELECT s.approval_style_id
,s.object_version_number
,s.start_date
,s.end_date
FROM hxc_approval_comps s
WHERE s.approval_style_id = p_approval_style_id
AND s.time_recipient_id = p_time_recipient_id
AND NOT ( (s.start_date < p_start_date
AND NVL(s.end_date, hr_general.END_OF_TIME) < p_start_date)
OR (s.start_date > p_end_date
AND NVL(s.end_date, hr_general.END_OF_TIME)
> NVL(p_end_date, hr_general.END_OF_TIME))
)
AND p_time_recipient_id <> -1;
PROCEDURE chk_overlapping_dates_update
(p_approval_comp_id
IN hxc_approval_comps.approval_comp_id%TYPE
,p_approval_style_id
IN hxc_approval_comps.approval_style_id%TYPE
,p_time_recipient_id
IN hxc_approval_comps.time_recipient_id%TYPE
,p_start_date
IN hxc_approval_comps.start_date%TYPE
,p_end_date
IN hxc_approval_comps.end_date%TYPE
)
IS
--
l_id hxc_approval_comps.approval_style_id%TYPE DEFAULT NULL;
chk_overlapping_dates_update
(p_approval_comp_id => p_approval_comp_id
,p_approval_style_id => p_approval_style_id
,p_time_recipient_id => p_time_recipient_id
,p_start_date => p_start_date
,p_end_date => p_end_date
,p_clashing_id => l_id
,p_clashing_ovn => l_ovn
,p_clashing_start_date => l_start_date
,p_clashing_end_date => l_end_date
);
END chk_overlapping_dates_update;
PROCEDURE chk_overlapping_dates_update
(p_approval_comp_id
IN hxc_approval_comps.approval_comp_id%TYPE
,p_approval_style_id
IN hxc_approval_comps.approval_style_id%TYPE
,p_time_recipient_id
IN hxc_approval_comps.time_recipient_id%TYPE
,p_start_date
IN hxc_approval_comps.start_date%TYPE
,p_end_date
IN hxc_approval_comps.end_date%TYPE
,p_clashing_id
OUT NOCOPY hxc_approval_comps.approval_style_id%TYPE
,p_clashing_ovn
OUT NOCOPY hxc_approval_comps.object_version_number%TYPE
,p_clashing_start_date
OUT NOCOPY hxc_approval_comps.start_date%TYPE
,p_clashing_end_date
OUT NOCOPY hxc_approval_comps.end_date%TYPE
)
IS
--
CURSOR c_chk_overlapping_dates_update
IS
SELECT s.approval_style_id
,s.object_version_number
,s.start_date
,s.end_date
FROM hxc_approval_comps s
WHERE s.approval_comp_id <> p_approval_comp_id
AND s.approval_style_id = p_approval_style_id
AND s.time_recipient_id = p_time_recipient_id
AND NOT ( (s.start_date < p_start_date
AND NVL(s.end_date, hr_general.END_OF_TIME) < p_start_date)
OR (s.start_date > p_end_date
AND NVL(s.end_date, hr_general.END_OF_TIME)
> NVL(p_end_date, hr_general.END_OF_TIME))
)
AND p_time_recipient_id <> -1 ;
OPEN c_chk_overlapping_dates_update;
FETCH c_chk_overlapping_dates_update INTO p_clashing_id
,p_clashing_ovn
,p_clashing_start_date
,p_clashing_end_date;
IF c_chk_overlapping_dates_update%NOTFOUND THEN
p_clashing_id := NULL;
CLOSE c_chk_overlapping_dates_update;
END chk_overlapping_dates_update;
SELECT s.approval_comp_id
,s.object_version_number
FROM hxc_approval_comps s
WHERE s.approval_comp_id = p_parent_comp_id
AND s.object_version_number = p_parent_comp_ovn
AND s.approval_mechanism = 'ENTRY_LEVEL_APPROVAL';
SELECT 'Y'
FROM hxc_time_categories htc
WHERE htc.time_category_id = p_time_category_id;
SELECT s.approval_comp_id
,s.object_version_number
FROM hxc_approval_comps s
WHERE s.approval_comp_id <> nvl(p_approval_comp_id,-99)
AND s.parent_comp_id = p_parent_comp_id
AND s.parent_comp_ovn = p_parent_comp_ovn
AND s.time_category_id = p_time_category_id;
SELECT 'Y'
FROM hxc_time_recipients htr
WHERE htr.time_recipient_id = p_time_recipient_id;
SELECT 'Y'
FROM hxc_approval_comps s
WHERE s.approval_comp_id <> nvl(p_approval_comp_id,-99)
AND s.parent_comp_id = p_parent_comp_id
AND s.parent_comp_ovn = p_parent_comp_ovn
AND s.time_category_id = p_time_category_id
AND p_time_category_id <> 0
AND ((s.approval_order = p_approval_order) or
(s.approval_order is null) or
(p_approval_order is null)
);
SELECT 'Y'
FROM hxc_approval_comps s
WHERE s.approval_comp_id <> nvl(p_approval_comp_id,-99)
AND s.parent_comp_id = p_parent_comp_id
AND s.parent_comp_ovn = p_parent_comp_ovn
AND s.time_category_id = p_time_category_id
AND p_time_category_id <> 0
AND s.approval_mechanism = p_approval_mechanism
AND nvl(s.approval_mechanism_id,-99) = nvl(p_approval_mechanism_id,-99)
AND nvl(s.wf_name,'0') = nvl (p_wf_name,'0')
AND nvl(s.wf_item_type,'0') = nvl (p_wf_item_type,'0');
cursor crs_approval_extensions is select
run_recipient_extensions from
hxc_approval_styles
where
approval_style_id=p_approval_style_id;
Procedure insert_validate
(p_effective_date in date
,p_rec in hxc_hac_shd.g_rec_type
) is
--
l_proc varchar2(72);
l_proc := g_package||'insert_validate';
End insert_validate;
Procedure update_validate
(p_effective_date in date
,p_rec in hxc_hac_shd.g_rec_type
) is
--
l_proc varchar2(72);
l_proc := g_package||'update_validate';
chk_non_updateable_args
(p_effective_date => p_effective_date
,p_rec => p_rec
);
chk_invalid_dates_update
(p_approval_comp_id => p_rec.approval_comp_id
,p_approval_style_id => p_rec.approval_style_id
,p_time_recipient_id => p_rec.time_recipient_id
,p_start_date => p_rec.start_date
,p_end_date => p_rec.end_date
);
chk_overlapping_dates_update
(p_approval_comp_id => p_rec.approval_comp_id
,p_approval_style_id => p_rec.approval_style_id
,p_time_recipient_id => p_rec.time_recipient_id
,p_start_date => p_rec.start_date
,p_end_date => p_rec.end_date
);
End update_validate;
Procedure delete_validate
(p_rec in hxc_hac_shd.g_rec_type
) is
--
l_proc varchar2(72);
l_proc := g_package||'delete_validate';
End delete_validate;