59: --
60: l_proc varchar2(72) := g_package||'dt_delete_dml';
61: --
62: Begin
63: hr_utility.set_location('Entering:'||l_proc, 5);
64: If (p_datetrack_mode = 'DELETE_NEXT_CHANGE') then
65: hr_utility.set_location(l_proc, 10);
66: ben_vpf_shd.g_api_dml := true; -- Set the api dml status
67: --
61: --
62: Begin
63: hr_utility.set_location('Entering:'||l_proc, 5);
64: If (p_datetrack_mode = 'DELETE_NEXT_CHANGE') then
65: hr_utility.set_location(l_proc, 10);
66: ben_vpf_shd.g_api_dml := true; -- Set the api dml status
67: --
68: -- Delete the where the effective start date is equal
69: -- to the validation end date.
73: and effective_start_date = p_validation_start_date;
74: --
75: ben_vpf_shd.g_api_dml := false; -- Unset the api dml status
76: Else
77: hr_utility.set_location(l_proc, 15);
78: ben_vpf_shd.g_api_dml := true; -- Set the api dml status
79: --
80: -- Delete the row(s) where the effective start date is greater than
81: -- or equal to the validation start date.
86: --
87: ben_vpf_shd.g_api_dml := false; -- Unset the api dml status
88: End If;
89: --
90: hr_utility.set_location(' Leaving:'||l_proc, 20);
91: --
92: Exception
93: When Others Then
94: ben_vpf_shd.g_api_dml := false; -- Unset the api dml status
107: --
108: l_proc varchar2(72) := g_package||'delete_dml';
109: --
110: Begin
111: hr_utility.set_location('Entering:'||l_proc, 5);
112: --
113: dt_delete_dml(p_rec => p_rec,
114: p_effective_date => p_effective_date,
115: p_datetrack_mode => p_datetrack_mode,
115: p_datetrack_mode => p_datetrack_mode,
116: p_validation_start_date => p_validation_start_date,
117: p_validation_end_date => p_validation_end_date);
118: --
119: hr_utility.set_location(' LeavinG:'||l_proc, 10);
120: End delete_dml;
121: --
122: -- ----------------------------------------------------------------------------
123: -- |----------------------------< dt_pre_delete >-----------------------------|
161: --
162: l_proc varchar2(72) := g_package||'dt_pre_delete';
163: --
164: Begin
165: hr_utility.set_location('Entering:'||l_proc, 5);
166: --
167: If (p_datetrack_mode <> 'ZAP') then
168: --
169: p_rec.effective_start_date := ben_vpf_shd.g_old_rec.effective_start_date;
187: Else
188: p_rec.effective_start_date := null;
189: p_rec.effective_end_date := null;
190: End If;
191: hr_utility.set_location(' Leaving:'||l_proc, 10);
192: End dt_pre_delete;
193: --
194: -- ----------------------------------------------------------------------------
195: -- |------------------------------< pre_delete >------------------------------|
235: --
236: --
237: --
238: Begin
239: hr_utility.set_location('Entering:'||l_proc, 5);
240: --
241: --
242: --
243: dt_pre_delete
246: p_datetrack_mode => p_datetrack_mode,
247: p_validation_start_date => p_validation_start_date,
248: p_validation_end_date => p_validation_end_date);
249: --
250: hr_utility.set_location(' Leaving:'||l_proc, 10);
251: End pre_delete;
252: --
253: -- ----------------------------------------------------------------------------
254: -- |-----------------------------< post_delete >------------------------------|
291: --
292: l_proc varchar2(72) := g_package||'post_delete';
293: --
294: Begin
295: hr_utility.set_location('Entering:'||l_proc, 5);
296: --
297: --
298: -- Start of API User Hook for post_delete.
299: --
450: --
451: -- End of API User Hook for post_delete.
452: --
453: --
454: hr_utility.set_location(' Leaving:'||l_proc, 10);
455: End post_delete;
456: --
457: -- ----------------------------------------------------------------------------
458: -- |---------------------------------< del >----------------------------------|
468: l_validation_start_date date;
469: l_validation_end_date date;
470: --
471: Begin
472: hr_utility.set_location('Entering:'||l_proc, 5);
473: --
474: -- Ensure that the DateTrack delete mode is valid
475: --
476: dt_api.validate_dt_del_mode(p_datetrack_mode => p_datetrack_mode);
538: l_rec ben_vpf_shd.g_rec_type;
539: l_proc varchar2(72) := g_package||'del';
540: --
541: Begin
542: hr_utility.set_location('Entering:'||l_proc, 5);
543: --
544: -- As the delete procedure accepts a plsql record structure we do need to
545: -- convert the arguments into the record structure.
546: -- We don't need to call the supplied conversion argument routine as we
560: p_object_version_number := l_rec.object_version_number;
561: p_effective_start_date := l_rec.effective_start_date;
562: p_effective_end_date := l_rec.effective_end_date;
563: --
564: hr_utility.set_location(' Leaving:'||l_proc, 10);
565: End del;
566: --
567: end ben_vpf_del;