The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT pbg.security_group_id,
pbg.legislation_code
FROM per_business_groups_perf pbg
, per_allocated_checklists pac
, per_allocated_tasks pat
, per_all_people_f paf
WHERE pat.allocated_task_id = p_allocated_task_id
AND pat.allocated_checklist_id = pac.allocated_checklist_id
AND pac.person_id = paf.person_id
AND TRUNC(SYSDATE) BETWEEN paf.EFFECTIVE_START_DATE
AND paf.EFFECTIVE_END_DATE
AND pbg.business_group_id = paf.business_group_id;
select pbg.legislation_code
FROM per_business_groups_perf pbg
, per_allocated_checklists pac
, per_allocated_tasks pat
, per_all_people_f paf
WHERE pat.allocated_task_id = p_allocated_task_id
AND pat.allocated_checklist_id = pac.allocated_checklist_id
AND pac.person_id = paf.person_id
AND TRUNC(SYSDATE) BETWEEN paf.EFFECTIVE_START_DATE
AND paf.EFFECTIVE_END_DATE
AND pbg.business_group_id = paf.business_group_id;
SELECT 'x'
FROM per_allocated_tasks
WHERE task_name = p_task_name
AND allocated_checklist_id = p_allocated_checklist_id
AND (allocated_task_id IS NULL OR
allocated_task_id <> p_allocated_task_id);
Procedure chk_non_updateable_args
(p_effective_date in date
,p_rec in per_pat_shd.g_rec_type
) IS
--
l_proc varchar2(72) := g_package || 'chk_non_updateable_args';
End chk_non_updateable_args;
Procedure insert_validate
(p_effective_date in date
,p_rec in per_pat_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'insert_validate';
End insert_validate;
Procedure update_validate
(p_effective_date in date
,p_rec in per_pat_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'update_validate';
chk_non_updateable_args
(p_effective_date => p_effective_date
,p_rec => p_rec
);
End update_validate;
Procedure delete_validate
(p_rec in per_pat_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'delete_validate';
End delete_validate;