[Home] [Help]
14: --
15: l_proc varchar2(72) := g_package||'return_api_dml_status';
16: --
17: Begin
18: hr_utility.set_location('Entering:'||l_proc, 5);
19: --
20: Return (nvl(g_api_dml, false));
21: --
22: hr_utility.set_location(' Leaving:'||l_proc, 10);
18: hr_utility.set_location('Entering:'||l_proc, 5);
19: --
20: Return (nvl(g_api_dml, false));
21: --
22: hr_utility.set_location(' Leaving:'||l_proc, 10);
23: End return_api_dml_status;
24: --
25: -- ----------------------------------------------------------------------------
26: -- |---------------------------< constraint_error >---------------------------|
30: --
31: l_proc varchar2(72) := g_package||'constraint_error';
32: --
33: Begin
34: hr_utility.set_location('Entering:'||l_proc, 5);
35: --
36: If (p_constraint_name = 'BEN_PL_TYP_F_FK1') Then
37: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
38: fnd_message.set_token('PROCEDURE', l_proc);
57: fnd_message.set_token('CONSTRAINT_NAME', p_constraint_name);
58: fnd_message.raise_error;
59: End If;
60: --
61: hr_utility.set_location(' Leaving:'||l_proc, 10);
62: End constraint_error;
63: --
64: -- ----------------------------------------------------------------------------
65: -- |-----------------------------< api_updating >-----------------------------|
133: l_proc varchar2(72) := g_package||'api_updating';
134: l_fct_ret boolean;
135: --
136: Begin
137: hr_utility.set_location('Entering:'||l_proc, 5);
138: --
139: If (p_effective_date is null or
140: p_pl_typ_id is null or
141: p_object_version_number is null) Then
146: l_fct_ret := false;
147: Else
148: If (p_pl_typ_id = g_old_rec.pl_typ_id and
149: p_object_version_number = g_old_rec.object_version_number) Then
150: hr_utility.set_location(l_proc, 10);
151: --
152: -- The g_old_rec is current therefore we must
153: -- set the returning function to true
154: --
171: If (p_object_version_number <> g_old_rec.object_version_number) Then
172: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
173: fnd_message.raise_error;
174: End If;
175: hr_utility.set_location(l_proc, 15);
176: l_fct_ret := true;
177: End If;
178: End If;
179: hr_utility.set_location(' Leaving:'||l_proc, 20);
175: hr_utility.set_location(l_proc, 15);
176: l_fct_ret := true;
177: End If;
178: End If;
179: hr_utility.set_location(' Leaving:'||l_proc, 20);
180: Return (l_fct_ret);
181: --
182: End api_updating;
183: --
197: --
198: --
199: --
200: Begin
201: hr_utility.set_location('Entering:'||l_proc, 5);
202: --
203: --
204: -- Call the corresponding datetrack api
205: --
212: p_delete => p_delete,
213: p_future_change => p_future_change,
214: p_delete_next_change => p_delete_next_change);
215: --
216: hr_utility.set_location(' Leaving:'||l_proc, 10);
217: End find_dt_del_modes;
218: --
219: -- ----------------------------------------------------------------------------
220: -- |--------------------------< find_dt_upd_modes >---------------------------|
229: --
230: l_proc varchar2(72) := g_package||'find_dt_upd_modes';
231: --
232: Begin
233: hr_utility.set_location('Entering:'||l_proc, 5);
234: --
235: -- Call the corresponding datetrack api
236: --
237: dt_api.find_dt_upd_modes
243: p_update => p_update,
244: p_update_override => p_update_override,
245: p_update_change_insert => p_update_change_insert);
246: --
247: hr_utility.set_location(' Leaving:'||l_proc, 10);
248: End find_dt_upd_modes;
249: --
250: -- ----------------------------------------------------------------------------
251: -- |------------------------< upd_effective_end_date >------------------------|
261: l_proc varchar2(72) := g_package||'upd_effective_end_date';
262: l_object_version_number number;
263: --
264: Begin
265: hr_utility.set_location('Entering:'||l_proc, 5);
266: --
267: -- Because we are updating a row we must get the next object
268: -- version number.
269: --
272: (p_base_table_name => 'ben_pl_typ_f',
273: p_base_key_column => 'pl_typ_id',
274: p_base_key_value => p_base_key_value);
275: --
276: hr_utility.set_location(l_proc, 10);
277: g_api_dml := true; -- Set the api dml status
278: --
279: -- Update the specified datetrack row setting the effective
280: -- end date to the specified new effective end date.
287: between t.effective_start_date and t.effective_end_date;
288: --
289: g_api_dml := false; -- Unset the api dml status
290: p_object_version_number := l_object_version_number;
291: hr_utility.set_location(' Leaving:'||l_proc, 15);
292: --
293: Exception
294: When Others Then
295: g_api_dml := false; -- Unset the api dml status
376: --
377: --
378: --
379: Begin
380: hr_utility.set_location('Entering:'||l_proc, 5);
381: --
382: -- Ensure that all the mandatory arguments are not null
383: --
384: hr_api.mandatory_arg_error(p_api_name => l_proc,
417: If (p_object_version_number <> g_old_rec.object_version_number) Then
418: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
419: fnd_message.raise_error;
420: End If;
421: hr_utility.set_location(l_proc, 15);
422: --
423: --
424: -- Validate the datetrack mode mode getting the validation start
425: -- and end dates for the specified datetrack operation.
454: --
455: p_validation_start_date := l_validation_start_date;
456: p_validation_end_date := l_validation_end_date;
457: --
458: hr_utility.set_location(' Leaving:'||l_proc, 30);
459: --
460: -- We need to trap the ORA LOCK exception
461: --
462: Exception
539: l_proc varchar2(72) := g_package||'convert_args';
540: --
541: Begin
542: --
543: hr_utility.set_location('Entering:'||l_proc, 5);
544: --
545: -- Convert arguments into local l_rec structure.
546: --
547: l_rec.pl_typ_id := p_pl_typ_id;
596: l_rec.object_version_number := p_object_version_number;
597: --
598: -- Return the plsql record structure.
599: --
600: hr_utility.set_location(' Leaving:'||l_proc, 10);
601: Return(l_rec);
602: --
603: End convert_args;
604: --