The following lines contain the word 'select', 'insert', 'update' or 'delete':
select
shared_type_id,
business_group_id,
shared_type_name,
shared_type_code,
system_type_cd,
information1,
information2,
information3,
information4,
information5,
information6,
information7,
information8,
information9,
information10,
information11,
information12,
information13,
information14,
information15,
information16,
information17,
information18,
information19,
information20,
information21,
information22,
information23,
information24,
information25,
information26,
information27,
information28,
information29,
information30,
information_category,
object_version_number,
lookup_type
from per_shared_types
where shared_type_id = p_shared_type_id;
select shared_type_id,
business_group_id,
shared_type_name,
shared_type_code,
system_type_cd,
information1,
information2,
information3,
information4,
information5,
information6,
information7,
information8,
information9,
information10,
information11,
information12,
information13,
information14,
information15,
information16,
information17,
information18,
information19,
information20,
information21,
information22,
information23,
information24,
information25,
information26,
information27,
information28,
information29,
information30,
information_category,
object_version_number,
lookup_type
from per_shared_types
where shared_type_id = p_shared_type_id
for update nowait;
cursor c1 is select userenv('LANG') from dual;
cursor c2 is select shared_type_id,last_updated_by from per_shared_types
where shared_type_code = p_shared_type_code
and lookup_type = p_lookup_type
and system_type_cd = p_system_type_cd
and business_group_id is null;
cursor csr_shared_name_match is select shared_type_id,last_updated_by from per_shared_types
where shared_type_name = p_shared_type_name
and lookup_type = p_lookup_type
and system_type_cd = p_system_type_cd
and business_group_id is null;
l_last_update_login number;
l_last_update_date date;
l_last_updated_by number;
l_last_updated_by := -1;
l_last_updated_by := 0;
l_last_update_login := 0;
l_last_update_date := sysdate;
l_record_owner := i.last_updated_by;
update per_shared_types
set shared_type_name = p_shared_type_name
, information1 = p_information1
, information2 = p_information2
, information3 = p_information3
, information4 = p_information4
, information5 = p_information5
, information6 = p_information6
, information7 = p_information7
, information8 = p_information8
, information9 = p_information9
, information10 = p_information10
, information11 = p_information11
, information12 = p_information12
, information13 = p_information13
, information14 = p_information14
, information15 = p_information15
, information16 = p_information16
, information17 = p_information17
, information18 = p_information18
, information19 = p_information19
, information20 = p_information20
, information21 = p_information21
, information22 = p_information22
, information23 = p_information23
, information24 = p_information24
, information25 = p_information25
, information26 = p_information26
, information27 = p_information27
, information28 = p_information28
, information29 = p_information29
, information30 = p_information30
, information_category = p_information_category
, last_update_date = l_last_update_date
, last_updated_by = l_last_updated_by
, last_update_login = l_last_update_login
where shared_type_id = l_shared_type_id;
update per_shared_types_tl
set shared_type_name = p_shared_type_name
, last_update_date = l_last_update_date
, last_updated_by = l_last_updated_by
, last_update_login = l_last_update_login
, source_lang = userenv('LANG')
where shared_type_id = l_shared_type_id
and userenv('LANG') in (LANGUAGE,SOURCE_LANG);
insert into per_shared_types_tl
(shared_type_id,
shared_type_name,
language,
source_lang,
creation_date,
created_by,
last_updated_by,
last_update_date,
last_update_login)
select l_shared_type_id,
p_shared_type_name,
l.language_code,
userenv('LANG'),
l_creation_date,
l_created_by,
l_last_updated_by,
l_last_update_date,
l_last_update_login from fnd_languages l
where l.installed_flag in ('I','B')
and not exists (select null from per_shared_types_tl t
where t.shared_type_id = l_shared_type_id
and t.language = l.language_code);
update per_shared_types
set shared_type_code = p_shared_type_code
, information1 = p_information1
, information2 = p_information2
, information3 = p_information3
, information4 = p_information4
, information5 = p_information5
, information6 = p_information6
, information7 = p_information7
, information8 = p_information8
, information9 = p_information9
, information10 = p_information10
, information11 = p_information11
, information12 = p_information12
, information13 = p_information13
, information14 = p_information14
, information15 = p_information15
, information16 = p_information16
, information17 = p_information17
, information18 = p_information18
, information19 = p_information19
, information20 = p_information20
, information21 = p_information21
, information22 = p_information22
, information23 = p_information23
, information24 = p_information24
, information25 = p_information25
, information26 = p_information26
, information27 = p_information27
, information28 = p_information28
, information29 = p_information29
, information30 = p_information30
, information_category = p_information_category
, last_update_date = l_last_update_date
, last_updated_by = l_last_updated_by
, last_update_login = l_last_update_login
where shared_type_id = l_shared_type_id;
update per_shared_types_tl
set shared_type_name = p_shared_type_name
, last_update_date = l_last_update_date
, last_updated_by = l_last_updated_by
, last_update_login = l_last_update_login
, source_lang = userenv('LANG')
where shared_type_id = l_shared_type_id
and userenv('LANG') in (LANGUAGE,SOURCE_LANG);
insert into per_shared_types_tl
(shared_type_id,
shared_type_name,
language,
source_lang,
creation_date,
created_by,
last_updated_by,
last_update_date,
last_update_login)
select l_shared_type_id,
p_shared_type_name,
l.language_code,
userenv('LANG'),
l_creation_date,
l_created_by,
l_last_updated_by,
l_last_update_date,
l_last_update_login from fnd_languages l
where l.installed_flag in ('I','B')
and not exists (select null from per_shared_types_tl t
where t.shared_type_id = l_shared_type_id
and t.language = l.language_code);
update per_shared_types
set shared_type_code = p_shared_type_code
where shared_type_id = l_shared_type_id;
select per_shared_types_s.nextval into l_shared_type_id from dual;
insert into per_shared_types (shared_type_id,
shared_type_name,
shared_type_code,
lookup_type,
system_type_cd,
information1,
information2,
information3,
information4,
information5,
information6,
information7,
information8,
information9,
information10,
information11,
information12,
information13,
information14,
information15,
information16,
information17,
information18,
information19,
information20,
information21,
information22,
information23,
information24,
information25,
information26,
information27,
information28,
information29,
information30,
information_category,
last_updated_by,
created_by,
last_update_login,
creation_date,
last_update_date,
object_version_number
)
values
(l_shared_type_id,
p_shared_type_name,
p_shared_type_code,
p_lookup_type,
p_system_type_cd,
p_information1,
p_information2,
p_information3,
p_information4,
p_information5,
p_information6,
p_information7,
p_information8,
p_information9,
p_information10,
p_information11,
p_information12,
p_information13,
p_information14,
p_information15,
p_information16,
p_information17,
p_information18,
p_information19,
p_information20,
p_information21,
p_information22,
p_information23,
p_information24,
p_information25,
p_information26,
p_information27,
p_information28,
p_information29,
p_information30,
p_information_category,
l_last_updated_by,
l_created_by,
l_last_update_login,
l_creation_date,
l_last_update_date,
l_object_version_number);
insert into per_shared_types_tl
(shared_type_id,
shared_type_name,
language,
source_lang,
creation_date,
created_by,
last_updated_by,
last_update_date,
last_update_login)
select l_shared_type_id,
p_shared_type_name,
l.language_code,
userenv('LANG'),
l_creation_date,
l_created_by,
l_last_updated_by,
l_last_update_date,
l_last_update_login from fnd_languages l
where l.installed_flag in ('I','B')
and not exists (select null from per_shared_types_tl t
where t.shared_type_id = l_shared_type_id
and t.language = l.language_code);