50: --
51: -- {End Of Comments}
52: -- ----------------------------------------------------------------------------
53: Procedure dt_delete_dml
54: (p_rec in out nocopy pay_pga_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 pay_pga_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 pay_pga_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: := pay_pga_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: pay_pga_shd.upd_effective_end_date
180: (p_effective_date => p_effective_date
181: ,p_base_key_value => p_rec.pay_gl_account_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 pay_pga_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 pay_pga_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
310: -- ----------------------------------------------------------------------------
311: Procedure del
312: (p_effective_date in date
313: ,p_datetrack_mode in varchar2
314: ,p_rec in out nocopy pay_pga_shd.g_rec_type
315: ) is
316: --
317: l_proc varchar2(72) := g_package||'del';
318: l_validation_start_date date;
326: dt_api.validate_dt_del_mode(p_datetrack_mode => p_datetrack_mode);
327: --
328: -- We must lock the row which we need to delete.
329: --
330: pay_pga_shd.lck
331: (p_effective_date => p_effective_date
332: ,p_datetrack_mode => p_datetrack_mode
333: ,p_pay_gl_account_id => p_rec.pay_gl_account_id
334: ,p_object_version_number => p_rec.object_version_number
395: ,p_effective_start_date out nocopy date
396: ,p_effective_end_date out nocopy date
397: ) is
398: --
399: l_rec pay_pga_shd.g_rec_type;
400: l_proc varchar2(72) := g_package||'del';
401: --
402: Begin
403: hr_utility.set_location('Entering:'||l_proc, 5);