[Home] [Help]
32: --
33: Begin
34: hr_utility.set_location('Entering:'||l_proc, 5);
35: --
36: If (p_constraint_name = 'BEN_REGN_FK2') Then
37: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
38: fnd_message.set_token('PROCEDURE', l_proc);
39: fnd_message.set_token('STEP','5');
40: fnd_message.raise_error;
110: reg_attribute28,
111: reg_attribute29,
112: reg_attribute30,
113: object_version_number
114: from ben_regn_f
115: where regn_id = p_regn_id
116: and p_effective_date
117: between effective_start_date and effective_end_date;
118: --
190: -- Call the corresponding datetrack api
191: --
192: dt_api.find_dt_del_modes
193: (p_effective_date => p_effective_date,
194: p_base_table_name => 'ben_regn_f',
195: p_base_key_column => 'regn_id',
196: p_base_key_value => p_base_key_value,
197: p_zap => p_zap,
198: p_delete => p_delete,
221: -- Call the corresponding datetrack api
222: --
223: dt_api.find_dt_upd_modes
224: (p_effective_date => p_effective_date,
225: p_base_table_name => 'ben_regn_f',
226: p_base_key_column => 'regn_id',
227: p_base_key_value => p_base_key_value,
228: p_correction => p_correction,
229: p_update => p_update,
254: -- version number.
255: --
256: l_object_version_number :=
257: dt_api.get_object_version_number
258: (p_base_table_name => 'ben_regn_f',
259: p_base_key_column => 'regn_id',
260: p_base_key_value => p_base_key_value);
261: --
262: hr_utility.set_location(l_proc, 10);
264: --
265: -- Update the specified datetrack row setting the effective
266: -- end date to the specified new effective end date.
267: --
268: update ben_regn_f t
269: set t.effective_end_date = p_new_effective_end_date,
270: t.object_version_number = l_object_version_number
271: where t.regn_id = p_base_key_value
272: and p_effective_date
273: between t.effective_start_date and t.effective_end_date;
274: --
275: -- Update MLS table.
276: --
277: update ben_regn_f_tl t
278: set t.effective_end_date = p_new_effective_end_date,
279: t.last_update_date = sysdate,
280: t.last_updated_by = fnd_global.user_id,
281: t.last_update_login = fnd_global.login_id
353: reg_attribute28,
354: reg_attribute29,
355: reg_attribute30,
356: object_version_number
357: from ben_regn_f
358: where regn_id = p_regn_id
359: and p_effective_date
360: between effective_start_date and effective_end_date
361: for update nowait;
412: --
413: dt_api.validate_dt_mode
414: (p_effective_date => p_effective_date,
415: p_datetrack_mode => p_datetrack_mode,
416: p_base_table_name => 'ben_regn_f',
417: p_base_key_column => 'regn_id',
418: p_base_key_value => p_regn_id,
419: p_child_table_name1 => 'ben_pl_regn_f',
420: p_child_key_column1 => 'pl_regn_id',
417: p_base_key_column => 'regn_id',
418: p_base_key_value => p_regn_id,
419: p_child_table_name1 => 'ben_pl_regn_f',
420: p_child_key_column1 => 'pl_regn_id',
421: p_child_table_name2 => 'ben_regn_for_regy_body_f',
422: p_child_key_column2 => 'regn_for_regy_body_id',
423: p_enforce_foreign_locking => false , --true,
424: p_validation_start_date => l_validation_start_date,
425: p_validation_end_date => l_validation_end_date);
450: -- The object is locked therefore we need to supply a meaningful
451: -- error message.
452: --
453: fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
454: fnd_message.set_token('TABLE_NAME', 'ben_regn_f');
455: fnd_message.raise_error;
456: When l_object_invalid then
457: --
458: -- The object doesn't exist or is invalid
457: --
458: -- The object doesn't exist or is invalid
459: --
460: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
461: fnd_message.set_token('TABLE_NAME', 'ben_regn_f');
462: fnd_message.raise_error;
463: End lck;
464: --
465: -- ----------------------------------------------------------------------------
570: -- ----------------------------------------------------------------------------
571: Procedure add_language
572: is
573: begin
574: delete from ben_regn_f_tl t
575: where not exists
576: (select null
577: from ben_regn_f_tl b
578: where b.regn_id = t.regn_id
573: begin
574: delete from ben_regn_f_tl t
575: where not exists
576: (select null
577: from ben_regn_f_tl b
578: where b.regn_id = t.regn_id
579: and b.effective_start_date = t.effective_start_date
580: );
581:
578: where b.regn_id = t.regn_id
579: and b.effective_start_date = t.effective_start_date
580: );
581:
582: update ben_regn_f_tl t set (
583: name,
584: sttry_citn_name
585: ) = (select
586: b.name,
584: sttry_citn_name
585: ) = (select
586: b.name,
587: b.sttry_citn_name
588: from ben_regn_f_tl b
589: where b.regn_id = t.regn_id
590: and b.effective_start_date = t.effective_start_date
591: and b.language = t.source_lang)
592: where (
596: ) in (select
597: subt.regn_id,
598: subt.effective_start_date,
599: subt.language
600: from ben_regn_f_tl subb, ben_regn_f_tl subt
601: where subb.regn_id = subt.regn_id
602: and subb.effective_start_date = subt.effective_start_date
603: and subb.language = subt.source_lang
604: and (subb.name <> subt.name
604: and (subb.name <> subt.name
605: or subb.sttry_citn_name <> subt.sttry_citn_name
606: ));
607:
608: insert into ben_regn_f_tl (
609: regn_id,
610: effective_start_date,
611: effective_end_date,
612: name,
630: b.last_updated_by,
631: b.last_update_login,
632: b.created_by,
633: b.creation_date
634: from ben_regn_f_tl b, fnd_languages l
635: where l.installed_flag in ('I', 'B')
636: and b.language = userenv('LANG')
637: and not exists
638: (select null
635: where l.installed_flag in ('I', 'B')
636: and b.language = userenv('LANG')
637: and not exists
638: (select null
639: from ben_regn_f_tl t
640: where t.regn_id = b.regn_id
641: and t.effective_start_date = b.effective_start_date
642: and t.language = l.language_code);
643: end add_language;