The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure chk_non_updateable_args
(p_effective_date in date
,p_rec in hr_dty_shd.g_rec_type
) IS
--
l_proc varchar2(72) := g_package || 'chk_non_updateable_args';
End chk_non_updateable_args;
SELECT 'X'
FROM FND_LOOKUP_VALUES FLV
WHERE FLV.lookup_type = 'DOCUMENT_CATEGORY'
and FLV.lookup_code = p_category_cd
AND FLV.LANGUAGE = userenv('LANG')
and FLV.VIEW_APPLICATION_ID = 3
and FLV.SECURITY_GROUP_ID = decode(substr(userenv('CLIENT_INFO'),55,1), ' ', 0, NULL, 0, '0', 0, fnd_global.lookup_security_group(FLV.LOOKUP_TYPE,FLV.VIEW_APPLICATION_ID))
and decode(FLV.TAG, NULL, 'Y',
decode(substr(FLV.TAG,1,1), '+', decode(sign(instr(FLV.TAG, p_legislation_code)), 1, 'Y', 'N'),
'-', decode(sign(instr(FLV.TAG, p_legislation_code)), 1, 'N', 'Y'), 'Y' ) ) = 'Y';
select 'X'
from per_shared_types_vl pst
where pst.lookup_type = 'DOCUMENT_CATEGORY'
and pst.system_type_cd = p_category_code
and pst.shared_type_code = p_sub_category_cd;
select 'X'
from hr_standard_lookups
where lookup_type = 'YES_NO'
and lookup_code = p_active_flg;
select 'X'
from hr_standard_lookups
where lookup_type = 'YES_NO'
and lookup_code = p_mul_occ_flag;
select 'X'
from fnd_territories
where TERRITORY_CODE = p_legislation_code;
select 'X'
from hr_standard_lookups
where lookup_type = 'YES_NO'
and lookup_code = p_auth_code;
procedure chk_document_type_delete
(
p_document_type in hr_document_types.document_type_id%TYPE
)
is
--
--
l_proc varchar2(72) := g_package||'chk_document_type_delete';
select document_type
from hr_document_types_v
where document_type_id=p_document_type_id;
cursor csr_doc_type_delete
is
select 'X'
from hr_document_extra_info hdei
where hdei.document_type_id = p_document_type;
open csr_doc_type_delete;
fetch csr_doc_type_delete into l_doc_type;
if csr_doc_type_delete%found then
close csr_doc_type_delete;
close csr_doc_type_delete;
end chk_document_type_delete;
Procedure insert_validate
(p_effective_date in date
,p_rec in hr_dty_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 hr_dty_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 hr_dty_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'delete_validate';
chk_document_type_delete
(
p_document_type => p_rec.document_type_id
);
End delete_validate;