38: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
39: hr_utility.set_message_token('PROCEDURE', l_proc);
40: hr_utility.set_message_token('STEP','5');
41: hr_utility.raise_error;
42: ElsIf (p_constraint_name = 'BEN_CM_TYP_F_PK') Then
43: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
44: hr_utility.set_message_token('PROCEDURE', l_proc);
45: hr_utility.set_message_token('STEP','10');
46: hr_utility.raise_error;
119: cct_attribute7,
120: cct_attribute8,
121: cct_attribute9,
122: object_version_number
123: from ben_cm_typ_f
124: where cm_typ_id = p_cm_typ_id
125: and p_effective_date
126: between effective_start_date and effective_end_date;
127: --
192: l_parent_key_value1 number;
193: --
194: Cursor C_Sel1 Is
195: select t.parnt_cm_typ_id
196: from ben_cm_typ_f t
197: where t.cm_typ_id = p_base_key_value
198: and p_effective_date
199: between t.effective_start_date and t.effective_end_date;
200: --
214: -- Call the corresponding datetrack api
215: --
216: dt_api.find_dt_del_modes
217: (p_effective_date => p_effective_date,
218: p_base_table_name => 'ben_cm_typ_f',
219: p_base_key_column => 'cm_typ_id',
220: p_base_key_value => p_base_key_value,
221: p_parent_table_name1 => 'ben_cm_typ_f',
222: p_parent_key_column1 => 'cm_typ_id',
217: (p_effective_date => p_effective_date,
218: p_base_table_name => 'ben_cm_typ_f',
219: p_base_key_column => 'cm_typ_id',
220: p_base_key_value => p_base_key_value,
221: p_parent_table_name1 => 'ben_cm_typ_f',
222: p_parent_key_column1 => 'cm_typ_id',
223: p_parent_key_value1 => l_parent_key_value1,
224: p_zap => p_zap,
225: p_delete => p_delete,
248: -- Call the corresponding datetrack api
249: --
250: dt_api.find_dt_upd_modes
251: (p_effective_date => p_effective_date,
252: p_base_table_name => 'ben_cm_typ_f',
253: p_base_key_column => 'cm_typ_id',
254: p_base_key_value => p_base_key_value,
255: p_correction => p_correction,
256: p_update => p_update,
281: -- version number.
282: --
283: l_object_version_number :=
284: dt_api.get_object_version_number
285: (p_base_table_name => 'ben_cm_typ_f',
286: p_base_key_column => 'cm_typ_id',
287: p_base_key_value => p_base_key_value);
288: --
289: hr_utility.set_location(l_proc, 10);
291: --
292: -- Update the specified datetrack row setting the effective
293: -- end date to the specified new effective end date.
294: --
295: update ben_cm_typ_f t
296: set t.effective_end_date = p_new_effective_end_date,
297: t.object_version_number = l_object_version_number
298: where t.cm_typ_id = p_base_key_value
299: and p_effective_date
298: where t.cm_typ_id = p_base_key_value
299: and p_effective_date
300: between t.effective_start_date and t.effective_end_date;
301: --
302: update ben_cm_typ_f_tl t
303: set t.effective_end_date = p_new_effective_end_date,
304: t.last_update_date = sysdate,
305: t.last_updated_by = fnd_global.user_id,
306: t.last_update_login = fnd_global.login_id
391: cct_attribute7,
392: cct_attribute8,
393: cct_attribute9,
394: object_version_number
395: from ben_cm_typ_f
396: where cm_typ_id = p_cm_typ_id
397: and p_effective_date
398: between effective_start_date and effective_end_date
399: for update nowait;
450: --
451: dt_api.validate_dt_mode
452: (p_effective_date => p_effective_date,
453: p_datetrack_mode => p_datetrack_mode,
454: p_base_table_name => 'ben_cm_typ_f',
455: p_base_key_column => 'cm_typ_id',
456: p_base_key_value => p_cm_typ_id,
457: p_parent_table_name1 => 'ben_cm_typ_f',
458: p_parent_key_column1 => 'cm_typ_id',
453: p_datetrack_mode => p_datetrack_mode,
454: p_base_table_name => 'ben_cm_typ_f',
455: p_base_key_column => 'cm_typ_id',
456: p_base_key_value => p_cm_typ_id,
457: p_parent_table_name1 => 'ben_cm_typ_f',
458: p_parent_key_column1 => 'cm_typ_id',
459: p_parent_key_value1 => g_old_rec.parnt_cm_typ_id,
460: -- p_child_table_name1 => 'ben_cm_typ_f',
461: -- p_child_key_column1 => 'parnt_cm_typ_id',
456: p_base_key_value => p_cm_typ_id,
457: p_parent_table_name1 => 'ben_cm_typ_f',
458: p_parent_key_column1 => 'cm_typ_id',
459: p_parent_key_value1 => g_old_rec.parnt_cm_typ_id,
460: -- p_child_table_name1 => 'ben_cm_typ_f',
461: -- p_child_key_column1 => 'parnt_cm_typ_id',
462: -- p_child_table_name2 => 'ben_cm_typ_trgr_f',
463: -- p_child_key_column2 => 'cm_typ_trgr_id',
464: -- p_child_table_name3 => 'ben_cm_typ_usg_f',
495: -- The object is locked therefore we need to supply a meaningful
496: -- error message.
497: --
498: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
499: hr_utility.set_message_token('TABLE_NAME', 'ben_cm_typ_f');
500: hr_utility.raise_error;
501: When l_object_invalid then
502: --
503: -- The object doesn't exist or is invalid
502: --
503: -- The object doesn't exist or is invalid
504: --
505: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
506: hr_utility.set_message_token('TABLE_NAME', 'ben_cm_typ_f');
507: hr_utility.raise_error;
508: End lck;
509: --
510: -- ----------------------------------------------------------------------------
642: -- ----------------------------------------------------------------------------
643: Procedure add_language
644: is
645: begin
646: delete from ben_cm_typ_f_tl t
647: where not exists
648: (select null
649: from ben_cm_typ_f_tl b
650: where b.cm_typ_id = t.cm_typ_id
645: begin
646: delete from ben_cm_typ_f_tl t
647: where not exists
648: (select null
649: from ben_cm_typ_f_tl b
650: where b.cm_typ_id = t.cm_typ_id
651: and b.effective_start_date = t.effective_start_date
652: );
653:
650: where b.cm_typ_id = t.cm_typ_id
651: and b.effective_start_date = t.effective_start_date
652: );
653:
654: update ben_cm_typ_f_tl t set (
655: shrt_name,
656: name
657: ) = (select
658: b.shrt_name,
656: name
657: ) = (select
658: b.shrt_name,
659: b.name
660: from ben_cm_typ_f_tl b
661: where b.cm_typ_id = t.cm_typ_id
662: and b.effective_start_date = t.effective_start_date
663: and b.language = t.source_lang)
664: where (
668: ) in (select
669: subt.cm_typ_id,
670: subt.effective_start_date,
671: subt.language
672: from ben_cm_typ_f_tl subb, ben_cm_typ_f_tl subt
673: where subb.cm_typ_id = subt.cm_typ_id
674: and subb.effective_start_date = subt.effective_start_date
675: and subb.language = subt.source_lang
676: and (subb.name <> subt.name
676: and (subb.name <> subt.name
677: or subb.shrt_name <> subt.shrt_name
678: ));
679: --
680: insert into ben_cm_typ_f_tl (
681: cm_typ_id,
682: effective_start_date,
683: effective_end_date,
684: shrt_name,
702: b.last_updated_by,
703: b.last_update_login,
704: b.created_by,
705: b.creation_date
706: from ben_cm_typ_f_tl b, fnd_languages l
707: where l.installed_flag in ('I', 'B')
708: and b.language = userenv('LANG')
709: and not exists
710: (select null
707: where l.installed_flag in ('I', 'B')
708: and b.language = userenv('LANG')
709: and not exists
710: (select null
711: from ben_cm_typ_f_tl t
712: where t.cm_typ_id = b.cm_typ_id
713: and t.effective_start_date = b.effective_start_date
714: and t.language = l.language_code);
715: end add_language;