50: --
51: -- {End Of Comments}
52: -- ----------------------------------------------------------------------------
53: Procedure dt_delete_dml
54: (p_rec in out nocopy ben_ber_shd.g_rec_type
55: ,p_effective_date in date
56: ,p_datetrack_mode in varchar2
57: ,p_validation_start_date in date
58: ,p_validation_end_date in date
93: -- ----------------------------------------------------------------------------
94: -- |------------------------------< delete_dml >------------------------------|
95: -- ----------------------------------------------------------------------------
96: Procedure delete_dml
97: (p_rec in out nocopy ben_ber_shd.g_rec_type
98: ,p_effective_date in date
99: ,p_datetrack_mode in varchar2
100: ,p_validation_start_date in date
101: ,p_validation_end_date in date
150: --
151: -- {End Of Comments}
152: -- ----------------------------------------------------------------------------
153: Procedure dt_pre_delete
154: (p_rec in out nocopy ben_ber_shd.g_rec_type
155: ,p_effective_date in date
156: ,p_datetrack_mode in varchar2
157: ,p_validation_start_date in date
158: ,p_validation_end_date in date
165: --
166: If (p_datetrack_mode <> hr_api.g_zap) then
167: --
168: p_rec.effective_start_date
169: := ben_ber_shd.g_old_rec.effective_start_date;
170: --
171: If (p_datetrack_mode = hr_api.g_delete) then
172: p_rec.effective_end_date := p_validation_start_date - 1;
173: Else
175: End If;
176: --
177: -- Update the current effective end date record
178: --
179: ben_ber_shd.upd_effective_end_date
180: (p_effective_date => p_effective_date
181: ,p_base_key_value => p_rec.elig_rslt_id
182: ,p_new_effective_end_date => p_rec.effective_end_date
183: ,p_validation_start_date => p_validation_start_date
224: --
225: -- {End Of Comments}
226: -- ----------------------------------------------------------------------------
227: Procedure pre_delete
228: (p_rec in out nocopy ben_ber_shd.g_rec_type
229: ,p_effective_date in date
230: ,p_datetrack_mode in varchar2
231: ,p_validation_start_date in date
232: ,p_validation_end_date in date
284: --
285: -- {End Of Comments}
286: -- ----------------------------------------------------------------------------
287: Procedure post_delete
288: (p_rec in ben_ber_shd.g_rec_type
289: ,p_effective_date in date
290: ,p_datetrack_mode in varchar2
291: ,p_validation_start_date in date
292: ,p_validation_end_date in date
313: => p_rec.effective_start_date
314: ,p_effective_end_date
315: => p_rec.effective_end_date
316: ,p_effective_start_date_o
317: => ben_ber_shd.g_old_rec.effective_start_date
318: ,p_effective_end_date_o
319: => ben_ber_shd.g_old_rec.effective_end_date
320: ,p_elig_obj_id_o
321: => ben_ber_shd.g_old_rec.elig_obj_id
315: => p_rec.effective_end_date
316: ,p_effective_start_date_o
317: => ben_ber_shd.g_old_rec.effective_start_date
318: ,p_effective_end_date_o
319: => ben_ber_shd.g_old_rec.effective_end_date
320: ,p_elig_obj_id_o
321: => ben_ber_shd.g_old_rec.elig_obj_id
322: ,p_person_id_o
323: => ben_ber_shd.g_old_rec.person_id
317: => ben_ber_shd.g_old_rec.effective_start_date
318: ,p_effective_end_date_o
319: => ben_ber_shd.g_old_rec.effective_end_date
320: ,p_elig_obj_id_o
321: => ben_ber_shd.g_old_rec.elig_obj_id
322: ,p_person_id_o
323: => ben_ber_shd.g_old_rec.person_id
324: ,p_assignment_id_o
325: => ben_ber_shd.g_old_rec.assignment_id
319: => ben_ber_shd.g_old_rec.effective_end_date
320: ,p_elig_obj_id_o
321: => ben_ber_shd.g_old_rec.elig_obj_id
322: ,p_person_id_o
323: => ben_ber_shd.g_old_rec.person_id
324: ,p_assignment_id_o
325: => ben_ber_shd.g_old_rec.assignment_id
326: ,p_elig_flag_o
327: => ben_ber_shd.g_old_rec.elig_flag
321: => ben_ber_shd.g_old_rec.elig_obj_id
322: ,p_person_id_o
323: => ben_ber_shd.g_old_rec.person_id
324: ,p_assignment_id_o
325: => ben_ber_shd.g_old_rec.assignment_id
326: ,p_elig_flag_o
327: => ben_ber_shd.g_old_rec.elig_flag
328: ,p_business_group_id_o
329: => ben_ber_shd.g_old_rec.business_group_id
323: => ben_ber_shd.g_old_rec.person_id
324: ,p_assignment_id_o
325: => ben_ber_shd.g_old_rec.assignment_id
326: ,p_elig_flag_o
327: => ben_ber_shd.g_old_rec.elig_flag
328: ,p_business_group_id_o
329: => ben_ber_shd.g_old_rec.business_group_id
330: ,p_object_version_number_o
331: => ben_ber_shd.g_old_rec.object_version_number
325: => ben_ber_shd.g_old_rec.assignment_id
326: ,p_elig_flag_o
327: => ben_ber_shd.g_old_rec.elig_flag
328: ,p_business_group_id_o
329: => ben_ber_shd.g_old_rec.business_group_id
330: ,p_object_version_number_o
331: => ben_ber_shd.g_old_rec.object_version_number
332: );
333: --
327: => ben_ber_shd.g_old_rec.elig_flag
328: ,p_business_group_id_o
329: => ben_ber_shd.g_old_rec.business_group_id
330: ,p_object_version_number_o
331: => ben_ber_shd.g_old_rec.object_version_number
332: );
333: --
334: exception
335: --
349: -- ----------------------------------------------------------------------------
350: Procedure del
351: (p_effective_date in date
352: ,p_datetrack_mode in varchar2
353: ,p_rec in out nocopy ben_ber_shd.g_rec_type
354: ) is
355: --
356: l_proc varchar2(72) := g_package||'del';
357: l_validation_start_date date;
365: dt_api.validate_dt_del_mode(p_datetrack_mode => p_datetrack_mode);
366: --
367: -- We must lock the row which we need to delete.
368: --
369: ben_ber_shd.lck
370: (p_effective_date => p_effective_date
371: ,p_datetrack_mode => p_datetrack_mode
372: ,p_elig_rslt_id => p_rec.elig_rslt_id
373: ,p_object_version_number => p_rec.object_version_number
434: ,p_effective_start_date out nocopy date
435: ,p_effective_end_date out nocopy date
436: ) is
437: --
438: l_rec ben_ber_shd.g_rec_type;
439: l_proc varchar2(72) := g_package||'del';
440: --
441: Begin
442: hr_utility.set_location('Entering:'||l_proc, 5);