50: --
51: -- {End Of Comments}
52: -- ----------------------------------------------------------------------------
53: Procedure dt_delete_dml
54: (p_rec in out nocopy pay_pgr_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
62: --
63: Begin
64: hr_utility.set_location('Entering:'||l_proc, 5);
65: If (p_datetrack_mode = hr_api.g_delete_next_change) then
66: pay_pgr_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.
70: --
71: delete from pay_grade_rules_f
72: where grade_rule_id = p_rec.grade_rule_id
73: and effective_start_date = p_validation_start_date;
74: --
75: pay_pgr_shd.g_api_dml := false; -- Unset the api dml status
76: Else
77: pay_pgr_shd.g_api_dml := true; -- Set the api dml status
78: --
79: -- Delete the row(s) where the effective start date is greater than
73: and effective_start_date = p_validation_start_date;
74: --
75: pay_pgr_shd.g_api_dml := false; -- Unset the api dml status
76: Else
77: pay_pgr_shd.g_api_dml := true; -- Set the api dml status
78: --
79: -- Delete the row(s) where the effective start date is greater than
80: -- or equal to the validation start date.
81: --
82: delete from pay_grade_rules_f
83: where grade_rule_id = p_rec.grade_rule_id
84: and effective_start_date >= p_validation_start_date;
85: --
86: pay_pgr_shd.g_api_dml := false; -- Unset the api dml status
87: End If;
88: --
89: hr_utility.set_location(' Leaving:'||l_proc, 20);
90: --
89: hr_utility.set_location(' Leaving:'||l_proc, 20);
90: --
91: Exception
92: When Others Then
93: pay_pgr_shd.g_api_dml := false; -- Unset the api dml status
94: Raise;
95: --
96: End dt_delete_dml;
97: --
98: -- ----------------------------------------------------------------------------
99: -- |------------------------------< delete_dml >------------------------------|
100: -- ----------------------------------------------------------------------------
101: Procedure delete_dml
102: (p_rec in out nocopy pay_pgr_shd.g_rec_type
103: ,p_effective_date in date
104: ,p_datetrack_mode in varchar2
105: ,p_validation_start_date in date
106: ,p_validation_end_date in date
155: --
156: -- {End Of Comments}
157: -- ----------------------------------------------------------------------------
158: Procedure dt_pre_delete
159: (p_rec in out nocopy pay_pgr_shd.g_rec_type
160: ,p_effective_date in date
161: ,p_datetrack_mode in varchar2
162: ,p_validation_start_date in date
163: ,p_validation_end_date in date
193:
194: If (p_datetrack_mode <> hr_api.g_zap) then
195: --
196: p_rec.effective_start_date
197: := pay_pgr_shd.g_old_rec.effective_start_date;
198: --
199: If (p_datetrack_mode = hr_api.g_delete) then
200: p_rec.effective_end_date := p_validation_start_date - 1;
201: Else
203: End If;
204: --
205: -- Update the current effective end date record
206: --
207: pay_pgr_shd.upd_effective_end_date
208: (p_effective_date => p_effective_date
209: ,p_base_key_value => p_rec.grade_rule_id
210: ,p_new_effective_end_date => p_rec.effective_end_date
211: ,p_validation_start_date => p_validation_start_date
252: --
253: -- {End Of Comments}
254: -- ----------------------------------------------------------------------------
255: Procedure pre_delete
256: (p_rec in out nocopy pay_pgr_shd.g_rec_type
257: ,p_effective_date in date
258: ,p_datetrack_mode in varchar2
259: ,p_validation_start_date in date
260: ,p_validation_end_date in date
312: --
313: -- {End Of Comments}
314: -- ----------------------------------------------------------------------------
315: Procedure post_delete
316: (p_rec in pay_pgr_shd.g_rec_type
317: ,p_effective_date in date
318: ,p_datetrack_mode in varchar2
319: ,p_validation_start_date in date
320: ,p_validation_end_date in date
341: => p_rec.effective_start_date
342: ,p_effective_end_date
343: => p_rec.effective_end_date
344: ,p_effective_start_date_o
345: => pay_pgr_shd.g_old_rec.effective_start_date
346: ,p_effective_end_date_o
347: => pay_pgr_shd.g_old_rec.effective_end_date
348: ,p_business_group_id_o
349: => pay_pgr_shd.g_old_rec.business_group_id
343: => p_rec.effective_end_date
344: ,p_effective_start_date_o
345: => pay_pgr_shd.g_old_rec.effective_start_date
346: ,p_effective_end_date_o
347: => pay_pgr_shd.g_old_rec.effective_end_date
348: ,p_business_group_id_o
349: => pay_pgr_shd.g_old_rec.business_group_id
350: ,p_rate_id_o
351: => pay_pgr_shd.g_old_rec.rate_id
345: => pay_pgr_shd.g_old_rec.effective_start_date
346: ,p_effective_end_date_o
347: => pay_pgr_shd.g_old_rec.effective_end_date
348: ,p_business_group_id_o
349: => pay_pgr_shd.g_old_rec.business_group_id
350: ,p_rate_id_o
351: => pay_pgr_shd.g_old_rec.rate_id
352: ,p_grade_or_spinal_point_id_o
353: => pay_pgr_shd.g_old_rec.grade_or_spinal_point_id
347: => pay_pgr_shd.g_old_rec.effective_end_date
348: ,p_business_group_id_o
349: => pay_pgr_shd.g_old_rec.business_group_id
350: ,p_rate_id_o
351: => pay_pgr_shd.g_old_rec.rate_id
352: ,p_grade_or_spinal_point_id_o
353: => pay_pgr_shd.g_old_rec.grade_or_spinal_point_id
354: ,p_rate_type_o
355: => pay_pgr_shd.g_old_rec.rate_type
349: => pay_pgr_shd.g_old_rec.business_group_id
350: ,p_rate_id_o
351: => pay_pgr_shd.g_old_rec.rate_id
352: ,p_grade_or_spinal_point_id_o
353: => pay_pgr_shd.g_old_rec.grade_or_spinal_point_id
354: ,p_rate_type_o
355: => pay_pgr_shd.g_old_rec.rate_type
356: ,p_maximum_o
357: => pay_pgr_shd.g_old_rec.maximum
351: => pay_pgr_shd.g_old_rec.rate_id
352: ,p_grade_or_spinal_point_id_o
353: => pay_pgr_shd.g_old_rec.grade_or_spinal_point_id
354: ,p_rate_type_o
355: => pay_pgr_shd.g_old_rec.rate_type
356: ,p_maximum_o
357: => pay_pgr_shd.g_old_rec.maximum
358: ,p_mid_value_o
359: => pay_pgr_shd.g_old_rec.mid_value
353: => pay_pgr_shd.g_old_rec.grade_or_spinal_point_id
354: ,p_rate_type_o
355: => pay_pgr_shd.g_old_rec.rate_type
356: ,p_maximum_o
357: => pay_pgr_shd.g_old_rec.maximum
358: ,p_mid_value_o
359: => pay_pgr_shd.g_old_rec.mid_value
360: ,p_minimum_o
361: => pay_pgr_shd.g_old_rec.minimum
355: => pay_pgr_shd.g_old_rec.rate_type
356: ,p_maximum_o
357: => pay_pgr_shd.g_old_rec.maximum
358: ,p_mid_value_o
359: => pay_pgr_shd.g_old_rec.mid_value
360: ,p_minimum_o
361: => pay_pgr_shd.g_old_rec.minimum
362: ,p_sequence_o
363: => pay_pgr_shd.g_old_rec.sequence
357: => pay_pgr_shd.g_old_rec.maximum
358: ,p_mid_value_o
359: => pay_pgr_shd.g_old_rec.mid_value
360: ,p_minimum_o
361: => pay_pgr_shd.g_old_rec.minimum
362: ,p_sequence_o
363: => pay_pgr_shd.g_old_rec.sequence
364: ,p_value_o
365: => pay_pgr_shd.g_old_rec.value
359: => pay_pgr_shd.g_old_rec.mid_value
360: ,p_minimum_o
361: => pay_pgr_shd.g_old_rec.minimum
362: ,p_sequence_o
363: => pay_pgr_shd.g_old_rec.sequence
364: ,p_value_o
365: => pay_pgr_shd.g_old_rec.value
366: ,p_request_id_o
367: => pay_pgr_shd.g_old_rec.request_id
361: => pay_pgr_shd.g_old_rec.minimum
362: ,p_sequence_o
363: => pay_pgr_shd.g_old_rec.sequence
364: ,p_value_o
365: => pay_pgr_shd.g_old_rec.value
366: ,p_request_id_o
367: => pay_pgr_shd.g_old_rec.request_id
368: ,p_program_application_id_o
369: => pay_pgr_shd.g_old_rec.program_application_id
363: => pay_pgr_shd.g_old_rec.sequence
364: ,p_value_o
365: => pay_pgr_shd.g_old_rec.value
366: ,p_request_id_o
367: => pay_pgr_shd.g_old_rec.request_id
368: ,p_program_application_id_o
369: => pay_pgr_shd.g_old_rec.program_application_id
370: ,p_program_id_o
371: => pay_pgr_shd.g_old_rec.program_id
365: => pay_pgr_shd.g_old_rec.value
366: ,p_request_id_o
367: => pay_pgr_shd.g_old_rec.request_id
368: ,p_program_application_id_o
369: => pay_pgr_shd.g_old_rec.program_application_id
370: ,p_program_id_o
371: => pay_pgr_shd.g_old_rec.program_id
372: ,p_program_update_date_o
373: => pay_pgr_shd.g_old_rec.program_update_date
367: => pay_pgr_shd.g_old_rec.request_id
368: ,p_program_application_id_o
369: => pay_pgr_shd.g_old_rec.program_application_id
370: ,p_program_id_o
371: => pay_pgr_shd.g_old_rec.program_id
372: ,p_program_update_date_o
373: => pay_pgr_shd.g_old_rec.program_update_date
374: ,p_object_version_number_o
375: => pay_pgr_shd.g_old_rec.object_version_number
369: => pay_pgr_shd.g_old_rec.program_application_id
370: ,p_program_id_o
371: => pay_pgr_shd.g_old_rec.program_id
372: ,p_program_update_date_o
373: => pay_pgr_shd.g_old_rec.program_update_date
374: ,p_object_version_number_o
375: => pay_pgr_shd.g_old_rec.object_version_number
376: ,p_currency_code_o
377: => pay_pgr_shd.g_old_rec.currency_code
371: => pay_pgr_shd.g_old_rec.program_id
372: ,p_program_update_date_o
373: => pay_pgr_shd.g_old_rec.program_update_date
374: ,p_object_version_number_o
375: => pay_pgr_shd.g_old_rec.object_version_number
376: ,p_currency_code_o
377: => pay_pgr_shd.g_old_rec.currency_code
378: );
379: --
373: => pay_pgr_shd.g_old_rec.program_update_date
374: ,p_object_version_number_o
375: => pay_pgr_shd.g_old_rec.object_version_number
376: ,p_currency_code_o
377: => pay_pgr_shd.g_old_rec.currency_code
378: );
379: --
380: exception
381: --
395: -- ----------------------------------------------------------------------------
396: Procedure del
397: (p_effective_date in date
398: ,p_datetrack_mode in varchar2
399: ,p_rec in out nocopy pay_pgr_shd.g_rec_type
400: ) is
401: --
402: l_proc varchar2(72) := g_package||'del';
403: l_validation_start_date date;
411: dt_api.validate_dt_del_mode(p_datetrack_mode => p_datetrack_mode);
412: --
413: -- We must lock the row which we need to delete.
414: --
415: pay_pgr_shd.lck
416: (p_effective_date => p_effective_date
417: ,p_datetrack_mode => p_datetrack_mode
418: ,p_grade_rule_id => p_rec.grade_rule_id
419: ,p_object_version_number => p_rec.object_version_number
480: ,p_effective_start_date out nocopy date
481: ,p_effective_end_date out nocopy date
482: ) is
483: --
484: l_rec pay_pgr_shd.g_rec_type;
485: l_proc varchar2(72) := g_package||'del';
486: --
487: Begin
488: hr_utility.set_location('Entering:'||l_proc, 5);