[Home] [Help]
17: --
18: Begin
19: hr_utility.set_location('Entering:'||l_proc, 5);
20: --
21: If (p_constraint_name = 'PER_SHARED_TYPES_PK') Then
22: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
23: hr_utility.set_message_token('PROCEDURE', l_proc);
24: hr_utility.set_message_token('STEP','5');
25: hr_utility.raise_error;
89: information30,
90: information_category,
91: object_version_number,
92: lookup_type
93: from per_shared_types
94: where shared_type_id = p_shared_type_id;
95: --
96: l_proc varchar2(72) := g_package||'api_updating';
97: l_fct_ret boolean;
196: information30,
197: information_category,
198: object_version_number,
199: lookup_type
200: from per_shared_types
201: where shared_type_id = p_shared_type_id
202: for update nowait;
203: --
204: l_proc varchar2(72) := g_package||'lck';
239: -- The object is locked therefore we need to supply a meaningful
240: -- error message.
241: --
242: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
243: hr_utility.set_message_token('TABLE_NAME', 'per_shared_types');
244: hr_utility.raise_error;
245: End lck;
246: --
247: -- ----------------------------------------------------------------------------
385: ,p_owner in varchar2 default 'CUSTOM'
386: ) is
387: cursor c1 is select userenv('LANG') from dual;
388:
389: cursor c2 is select shared_type_id,last_updated_by from per_shared_types
390: where shared_type_code = p_shared_type_code
391: and lookup_type = p_lookup_type
392: and system_type_cd = p_system_type_cd
393: and business_group_id is null;
391: and lookup_type = p_lookup_type
392: and system_type_cd = p_system_type_cd
393: and business_group_id is null;
394:
395: cursor csr_shared_name_match is select shared_type_id,last_updated_by from per_shared_types
396: where shared_type_name = p_shared_type_name
397: and lookup_type = p_lookup_type
398: and system_type_cd = p_system_type_cd
399: and business_group_id is null;
431: if l_shared_type_id is not null then
432: -- Key record do exists , both the users , this is for clearing some old data
433: if l_record_owner in (-1,1) then
434: -- update the entry
435: update per_shared_types
436: set shared_type_name = p_shared_type_name
437: , information1 = p_information1
438: , information2 = p_information2
439: , information3 = p_information3
469: , last_updated_by = l_last_updated_by
470: , last_update_login = l_last_update_login
471: where shared_type_id = l_shared_type_id;
472:
473: update per_shared_types_tl
474: set shared_type_name = p_shared_type_name
475: , last_update_date = l_last_update_date
476: , last_updated_by = l_last_updated_by
477: , last_update_login = l_last_update_login
478: , source_lang = userenv('LANG')
479: where shared_type_id = l_shared_type_id
480: and userenv('LANG') in (LANGUAGE,SOURCE_LANG);
481: if sql%notfound then
482: insert into per_shared_types_tl
483: (shared_type_id,
484: shared_type_name,
485: language,
486: source_lang,
498: l_last_updated_by,
499: l_last_update_date,
500: l_last_update_login from fnd_languages l
501: where l.installed_flag in ('I','B')
502: and not exists (select null from per_shared_types_tl t
503: where t.shared_type_id = l_shared_type_id
504: and t.language = l.language_code);
505: end if;
506: else
516: if csr_shared_name_match%found then
517: -- shared_type_name exists for combination
518: if l_rec_owner in (-1,1) then
519: -- the owner is seed , update the shared_type_code and other info.
520: update per_shared_types
521: set shared_type_code = p_shared_type_code
522: , information1 = p_information1
523: , information2 = p_information2
524: , information3 = p_information3
554: , last_updated_by = l_last_updated_by
555: , last_update_login = l_last_update_login
556: where shared_type_id = l_shared_type_id;
557:
558: update per_shared_types_tl
559: set shared_type_name = p_shared_type_name
560: , last_update_date = l_last_update_date
561: , last_updated_by = l_last_updated_by
562: , last_update_login = l_last_update_login
563: , source_lang = userenv('LANG')
564: where shared_type_id = l_shared_type_id
565: and userenv('LANG') in (LANGUAGE,SOURCE_LANG);
566: if sql%notfound then
567: insert into per_shared_types_tl
568: (shared_type_id,
569: shared_type_name,
570: language,
571: source_lang,
583: l_last_updated_by,
584: l_last_update_date,
585: l_last_update_login from fnd_languages l
586: where l.installed_flag in ('I','B')
587: and not exists (select null from per_shared_types_tl t
588: where t.shared_type_id = l_shared_type_id
589: and t.language = l.language_code);
590: else
591: -- record has been updated by custom, update the share_type_code only.
588: where t.shared_type_id = l_shared_type_id
589: and t.language = l.language_code);
590: else
591: -- record has been updated by custom, update the share_type_code only.
592: update per_shared_types
593: set shared_type_code = p_shared_type_code
594: where shared_type_id = l_shared_type_id;
595: end if;
596: end if;
597: else
598: -- neither key record, nor lookup_type and system_type_cd combination exists
599: -- creating a new record for share_type
600:
601: select per_shared_types_s.nextval into l_shared_type_id from dual;
602: insert into per_shared_types (shared_type_id,
603: shared_type_name,
604: shared_type_code,
605: lookup_type,
598: -- neither key record, nor lookup_type and system_type_cd combination exists
599: -- creating a new record for share_type
600:
601: select per_shared_types_s.nextval into l_shared_type_id from dual;
602: insert into per_shared_types (shared_type_id,
603: shared_type_name,
604: shared_type_code,
605: lookup_type,
606: system_type_cd,
684: l_last_update_login,
685: l_creation_date,
686: l_last_update_date,
687: l_object_version_number);
688: insert into per_shared_types_tl
689: (shared_type_id,
690: shared_type_name,
691: language,
692: source_lang,
704: l_last_updated_by,
705: l_last_update_date,
706: l_last_update_login from fnd_languages l
707: where l.installed_flag in ('I','B')
708: and not exists (select null from per_shared_types_tl t
709: where t.shared_type_id = l_shared_type_id
710: and t.language = l.language_code);
711: end if;
712: end if;