63: --
64: l_proc varchar2(72) := g_package||'dt_update_dml';
65: --
66: Begin
67: hr_utility.set_location('Entering:'||l_proc, 5);
68: --
69: If (p_datetrack_mode = 'CORRECTION') then
70: hr_utility.set_location(l_proc, 10);
71: --
66: Begin
67: hr_utility.set_location('Entering:'||l_proc, 5);
68: --
69: If (p_datetrack_mode = 'CORRECTION') then
70: hr_utility.set_location(l_proc, 10);
71: --
72: -- Because we are updating a row we must get the next object
73: -- version number.
74: --
224: p_rec.effective_start_date := p_validation_start_date;
225: p_rec.effective_end_date := p_validation_end_date;
226: End If;
227: --
228: hr_utility.set_location(' Leaving:'||l_proc, 15);
229: Exception
230: When hr_api.check_integrity_violated Then
231: -- A check constraint has been violated
232: ben_vpf_shd.g_api_dml := false; -- Unset the api dml status
282: --
283: l_proc varchar2(72) := g_package||'update_dml';
284: --
285: Begin
286: hr_utility.set_location('Entering:'||l_proc, 5);
287: --
288: dt_update_dml(p_rec => p_rec,
289: p_effective_date => p_effective_date,
290: p_datetrack_mode => p_datetrack_mode,
290: p_datetrack_mode => p_datetrack_mode,
291: p_validation_start_date => p_validation_start_date,
292: p_validation_end_date => p_validation_end_date);
293: --
294: hr_utility.set_location(' Leaving:'||l_proc, 10);
295: End update_dml;
296: --
297: -- ----------------------------------------------------------------------------
298: -- |----------------------------< dt_pre_update >-----------------------------|
347: l_proc varchar2(72) := g_package||'dt_pre_update';
348: l_dummy_version_number number;
349: --
350: Begin
351: hr_utility.set_location('Entering:'||l_proc, 5);
352: If (p_datetrack_mode <> 'CORRECTION') then
353: hr_utility.set_location(l_proc, 10);
354: --
355: -- Update the current effective end date
349: --
350: Begin
351: hr_utility.set_location('Entering:'||l_proc, 5);
352: If (p_datetrack_mode <> 'CORRECTION') then
353: hr_utility.set_location(l_proc, 10);
354: --
355: -- Update the current effective end date
356: --
357: ben_vpf_shd.upd_effective_end_date
362: p_validation_end_date => p_validation_end_date,
363: p_object_version_number => l_dummy_version_number);
364: --
365: If (p_datetrack_mode = 'UPDATE_OVERRIDE') then
366: hr_utility.set_location(l_proc, 15);
367: --
368: -- As the datetrack mode is 'UPDATE_OVERRIDE' then we must
369: -- delete any future rows
370: --
374: p_datetrack_mode => p_datetrack_mode,
375: p_validation_start_date => p_validation_start_date,
376: p_validation_end_date => p_validation_end_date);
377: End If;
378: hr_utility.set_location(l_proc, 20);
379: --
380: -- We must now insert the updated row
381: --
382: ben_vpf_ins.insert_dml
385: p_datetrack_mode => p_datetrack_mode,
386: p_validation_start_date => p_validation_start_date,
387: p_validation_end_date => p_validation_end_date);
388: End If;
389: hr_utility.set_location(' Leaving:'||l_proc, 20);
390: End dt_pre_update;
391: --
392: -- ----------------------------------------------------------------------------
393: -- |------------------------------< pre_update >------------------------------|
431: --
432: l_proc varchar2(72) := g_package||'pre_update';
433: --
434: Begin
435: hr_utility.set_location('Entering:'||l_proc, 5);
436: --
437: --
438: --
439: dt_pre_update
442: p_datetrack_mode => p_datetrack_mode,
443: p_validation_start_date => p_validation_start_date,
444: p_validation_end_date => p_validation_end_date);
445: --
446: hr_utility.set_location(' Leaving:'||l_proc, 10);
447: End pre_update;
448: --
449: -- ----------------------------------------------------------------------------
450: -- |-----------------------------< post_update >------------------------------|
488: l_proc varchar2(72) := g_package||'post_update';
489: --
490: Begin
491: --
492: hr_utility.set_location('Entering:'||l_proc, 5);
493: --
494: -- Start of API User Hook for post_update.
495: --
496: begin
775: --
776: -- End of API User Hook for post_update.
777: --
778: --
779: hr_utility.set_location(' Leaving:'||l_proc, 10);
780: End post_update;
781: --
782: -- ----------------------------------------------------------------------------
783: -- |-----------------------------< convert_defs >-----------------------------|
827: l_proc varchar2(72) := g_package||'convert_defs';
828: --
829: Begin
830: --
831: hr_utility.set_location('Entering:'||l_proc, 5);
832: --
833: -- We must now examine each argument value in the
834: -- p_rec plsql record structure
835: -- to see if a system default is being used. If a system default
1348: p_rec.rt_elig_prfl_flag :=
1349: ben_vpf_shd.g_old_rec.rt_elig_prfl_flag;
1350: End If;
1351:
1352: hr_utility.set_location(' Leaving:'||l_proc, 10);
1353: --
1354: End convert_defs;
1355: --
1356: -- ----------------------------------------------------------------------------
1367: l_validation_start_date date;
1368: l_validation_end_date date;
1369: --
1370: Begin
1371: hr_utility.set_location('Entering:'||l_proc, 5);
1372: --
1373: -- Ensure that the DateTrack update mode is valid
1374: --
1375: dt_api.validate_dt_upd_mode(p_datetrack_mode => p_datetrack_mode);
1569: l_rec ben_vpf_shd.g_rec_type;
1570: l_proc varchar2(72) := g_package||'upd';
1571: --
1572: Begin
1573: hr_utility.set_location('Entering:'||l_proc, 5);
1574: --
1575: -- Call conversion function to turn arguments into the
1576: -- l_rec structure.
1577: --
1720: p_effective_start_date := l_rec.effective_start_date;
1721: p_effective_end_date := l_rec.effective_end_date;
1722: --
1723: --
1724: hr_utility.set_location(' Leaving:'||l_proc, 10);
1725: End upd;
1726: --
1727: end ben_vpf_upd;