The following lines contain the word 'select', 'insert', 'update' or 'delete':
select null
from per_security_profiles a
where a.security_profile_id = p_security_profile_id;
select null
from hr_organization_information h1
where h1.org_information_context = 'Business Group Information'
and h1.organization_id = p_business_group_id;
PROCEDURE chk_non_updateable_args
(p_rec IN per_asp_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 fnd_user_resp_groups
WHERE user_id = p_user_id
AND responsibility_id = p_responsibility_id
AND responsibility_application_id = p_application_id
AND security_group_id = p_security_group_id;
SELECT 'Y'
FROM per_sec_profile_assignments s
WHERE s.user_id = p_user_id
AND s.responsibility_id = p_responsibility_id
AND s.responsibility_application_id = p_application_id
AND s.security_group_id = p_security_group_id
AND s.business_group_id = p_business_group_id
AND s.security_profile_id = p_security_profile_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_sec_profile_assignment_id IS NULL
OR s.sec_profile_assignment_id <> p_sec_profile_assignment_id);
SELECT 'Y'
FROM per_sec_profile_assignments
WHERE user_id = p_user_id
AND responsibility_id = p_responsibility_id
AND responsibility_application_id = p_application_id
AND security_group_id = p_security_group_id
AND business_group_id = p_business_group_id
AND security_profile_id <> p_security_profile_id
AND ( (start_date BETWEEN p_start_date
AND NVL(p_end_date, hr_general.END_OF_TIME))
OR (NVL(end_date, hr_general.END_OF_TIME)
BETWEEN p_start_date
AND NVL(p_end_date, hr_general.END_OF_TIME))
OR ( start_date < p_start_date
AND NVL(end_date, hr_general.END_OF_TIME)
> NVL(p_end_date, hr_general.END_OF_TIME)));
SELECT s.sec_profile_assignment_id
,s.object_version_number
,s.start_date
,s.end_date
FROM per_sec_profile_assignments s
WHERE s.user_id = p_user_id
AND s.responsibility_id = p_responsibility_id
AND s.responsibility_application_id = p_application_id
AND s.security_group_id = p_security_group_id
AND s.business_group_id = p_business_group_id
AND s.security_profile_id = p_security_profile_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_sec_profile_assignment_id IS NULL
OR s.sec_profile_assignment_id <> p_sec_profile_assignment_id);
SELECT org_information14 security_group_id
FROM hr_organization_information h1
WHERE org_information_context = 'Business Group Information'
AND h1.organization_id = p_business_group_id;
Procedure insert_validate(p_rec in per_asp_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'insert_validate';
fnd_user_resp_groups_api.Insert_Assignment
(user_id => p_rec.user_id
,responsibility_id => p_rec.responsibility_id
,responsibility_application_id => p_rec.responsibility_application_id
,security_group_id => p_rec.security_group_id
,start_date => p_rec.start_date
,end_date => p_rec.end_date
,description => ' ' -- ### description was supposed to default
-- to null... but does not look like it has
);
End insert_validate;
Procedure update_validate(p_rec in per_asp_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'update_validate';
chk_non_updateable_args
(p_rec
);
End update_validate;
SELECT MIN(s.start_date), MAX(s.end_date)
FROM per_sec_profile_assignments s
WHERE s.user_id = p_user_id
AND s.responsibility_id = p_responsibility_id
AND s.responsibility_application_id = p_application_id
AND s.security_group_id = p_security_group_id
AND s.business_group_id = p_business_group_id;
SELECT 'Y'
FROM per_sec_profile_assignments s
WHERE s.user_id = p_user_id
AND s.responsibility_id = p_responsibility_id
AND s.responsibility_application_id = p_application_id
AND s.security_group_id = p_security_group_id
AND s.business_group_id = p_business_group_id
AND s.end_date IS NULL;
fnd_user_resp_groups_api.Update_Assignment
(user_id => p_user_id
,responsibility_id => p_responsibility_id
,responsibility_application_id => p_application_id
,security_group_id => p_security_group_id
,start_date => l_min_date
,end_date => l_max_date
,description => ' ' -- ### description was supposed to default
-- to null... but does not look like it has
);