[Home] [Help]
32: --
33: Begin
34: hr_utility.set_location('Entering:'||l_proc, 5);
35: --
36: If (p_constraint_name = 'BEN_PRMRY_CARE_PRVDR_F_FK3') 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;
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;
41: ElsIf (p_constraint_name = 'BEN_PRMRY_CARE_PRVDR_F_PK') Then
42: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
43: fnd_message.set_token('PROCEDURE', l_proc);
44: fnd_message.set_token('STEP','10');
45: fnd_message.raise_error;
111: program_application_id,
112: program_id,
113: program_update_date,
114: object_version_number
115: from ben_prmry_care_prvdr_f
116: where prmry_care_prvdr_id = p_prmry_care_prvdr_id
117: and p_effective_date
118: between effective_start_date and effective_end_date;
119: --
186: --
187: Cursor C_Sel1 Is
188: select t.elig_cvrd_dpnt_id,
189: t.prtt_enrt_rslt_id
190: from ben_prmry_care_prvdr_f t
191: where t.prmry_care_prvdr_id = p_base_key_value
192: and p_effective_date
193: between t.effective_start_date and t.effective_end_date;
194: --
209: -- Call the corresponding datetrack api
210: --
211: dt_api.find_dt_del_modes
212: (p_effective_date => p_effective_date,
213: p_base_table_name => 'ben_prmry_care_prvdr_f',
214: p_base_key_column => 'prmry_care_prvdr_id',
215: p_base_key_value => p_base_key_value,
216: p_parent_table_name1 => 'ben_elig_cvrd_dpnt_f',
217: p_parent_key_column1 => 'elig_cvrd_dpnt_id',
246: -- Call the corresponding datetrack api
247: --
248: dt_api.find_dt_upd_modes
249: (p_effective_date => p_effective_date,
250: p_base_table_name => 'ben_prmry_care_prvdr_f',
251: p_base_key_column => 'prmry_care_prvdr_id',
252: p_base_key_value => p_base_key_value,
253: p_correction => p_correction,
254: p_update => p_update,
279: -- version number.
280: --
281: l_object_version_number :=
282: dt_api.get_object_version_number
283: (p_base_table_name => 'ben_prmry_care_prvdr_f',
284: p_base_key_column => 'prmry_care_prvdr_id',
285: p_base_key_value => p_base_key_value);
286: --
287: hr_utility.set_location(l_proc, 10);
289: --
290: -- Update the specified datetrack row setting the effective
291: -- end date to the specified new effective end date.
292: --
293: update ben_prmry_care_prvdr_f t
294: set t.effective_end_date = p_new_effective_end_date,
295: t.object_version_number = l_object_version_number
296: where t.prmry_care_prvdr_id = p_base_key_value
297: and p_effective_date
373: program_application_id,
374: program_id,
375: program_update_date,
376: object_version_number
377: from ben_prmry_care_prvdr_f
378: where prmry_care_prvdr_id = p_prmry_care_prvdr_id
379: and p_effective_date
380: between effective_start_date and effective_end_date
381: for update nowait;
432: --
433: dt_api.validate_dt_mode
434: (p_effective_date => p_effective_date,
435: p_datetrack_mode => p_datetrack_mode,
436: p_base_table_name => 'ben_prmry_care_prvdr_f',
437: p_base_key_column => 'prmry_care_prvdr_id',
438: p_base_key_value => p_prmry_care_prvdr_id,
439: p_parent_table_name1 => 'ben_elig_cvrd_dpnt_f',
440: p_parent_key_column1 => 'elig_cvrd_dpnt_id',
472: -- The object is locked therefore we need to supply a meaningful
473: -- error message.
474: --
475: fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
476: fnd_message.set_token('TABLE_NAME', 'ben_prmry_care_prvdr_f');
477: fnd_message.raise_error;
478: When l_object_invalid then
479: --
480: -- The object doesn't exist or is invalid
479: --
480: -- The object doesn't exist or is invalid
481: --
482: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
483: fnd_message.set_token('TABLE_NAME', 'ben_prmry_care_prvdr_f');
484: fnd_message.raise_error;
485: End lck;
486: --
487: -- ----------------------------------------------------------------------------