[Home] [Help]
54: --
55: -- {End Of Comments}
56: -- ----------------------------------------------------------------------------
57: Procedure dt_update_dml
58: (p_rec in out nocopy pay_pgr_shd.g_rec_type
59: ,p_effective_date in date
60: ,p_datetrack_mode in varchar2
61: ,p_validation_start_date in date
62: ,p_validation_end_date in date
79: ,p_base_key_column => 'grade_rule_id'
80: ,p_base_key_value => p_rec.grade_rule_id
81: );
82: --
83: pay_pgr_shd.g_api_dml := true; -- Set the api dml status
84: --
85: -- Update the pay_grade_rules_f Row
86: --
87: update pay_grade_rules_f
104: where grade_rule_id = p_rec.grade_rule_id
105: and effective_start_date = p_validation_start_date
106: and effective_end_date = p_validation_end_date;
107: --
108: pay_pgr_shd.g_api_dml := false; -- Unset the api dml status
109: --
110: -- Set the effective start and end dates
111: --
112: p_rec.effective_start_date := p_validation_start_date;
116: hr_utility.set_location(' Leaving:'||l_proc, 15);
117: Exception
118: When hr_api.check_integrity_violated Then
119: -- A check constraint has been violated
120: pay_pgr_shd.g_api_dml := false; -- Unset the api dml status
121: pay_pgr_shd.constraint_error
122: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
123: When hr_api.unique_integrity_violated Then
124: -- Unique integrity has been violated
117: Exception
118: When hr_api.check_integrity_violated Then
119: -- A check constraint has been violated
120: pay_pgr_shd.g_api_dml := false; -- Unset the api dml status
121: pay_pgr_shd.constraint_error
122: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
123: When hr_api.unique_integrity_violated Then
124: -- Unique integrity has been violated
125: pay_pgr_shd.g_api_dml := false; -- Unset the api dml status
121: pay_pgr_shd.constraint_error
122: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
123: When hr_api.unique_integrity_violated Then
124: -- Unique integrity has been violated
125: pay_pgr_shd.g_api_dml := false; -- Unset the api dml status
126: pay_pgr_shd.constraint_error
127: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
128: When Others Then
129: pay_pgr_shd.g_api_dml := false; -- Unset the api dml status
122: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
123: When hr_api.unique_integrity_violated Then
124: -- Unique integrity has been violated
125: pay_pgr_shd.g_api_dml := false; -- Unset the api dml status
126: pay_pgr_shd.constraint_error
127: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
128: When Others Then
129: pay_pgr_shd.g_api_dml := false; -- Unset the api dml status
130: Raise;
125: pay_pgr_shd.g_api_dml := false; -- Unset the api dml status
126: pay_pgr_shd.constraint_error
127: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
128: When Others Then
129: pay_pgr_shd.g_api_dml := false; -- Unset the api dml status
130: Raise;
131: End dt_update_dml;
132: --
133: -- ----------------------------------------------------------------------------
161: --
162: -- {End Of Comments}
163: -- ----------------------------------------------------------------------------
164: Procedure update_dml
165: (p_rec in out nocopy pay_pgr_shd.g_rec_type
166: ,p_effective_date in date
167: ,p_datetrack_mode in varchar2
168: ,p_validation_start_date in date
169: ,p_validation_end_date in date
228: --
229: -- {End Of Comments}
230: -- ----------------------------------------------------------------------------
231: Procedure dt_pre_update
232: (p_rec in out nocopy pay_pgr_shd.g_rec_type
233: ,p_effective_date in date
234: ,p_datetrack_mode in varchar2
235: ,p_validation_start_date in date
236: ,p_validation_end_date in date
244: If (p_datetrack_mode <> hr_api.g_correction) then
245: --
246: -- Update the current effective end date
247: --
248: pay_pgr_shd.upd_effective_end_date
249: (p_effective_date => p_effective_date
250: ,p_base_key_value => p_rec.grade_rule_id
251: ,p_new_effective_end_date => (p_validation_start_date - 1)
252: ,p_validation_start_date => p_validation_start_date
313: --
314: -- {End Of Comments}
315: -- ----------------------------------------------------------------------------
316: Procedure pre_update
317: (p_rec in out nocopy pay_pgr_shd.g_rec_type
318: ,p_effective_date in date
319: ,p_datetrack_mode in varchar2
320: ,p_validation_start_date in date
321: ,p_validation_end_date in date
371: --
372: -- {End Of Comments}
373: -- ----------------------------------------------------------------------------
374: Procedure post_update
375: (p_rec in pay_pgr_shd.g_rec_type
376: ,p_effective_date in date
377: ,p_datetrack_mode in varchar2
378: ,p_validation_start_date in date
379: ,p_validation_end_date in date
430: => p_rec.object_version_number
431: ,p_currency_code
432: => p_rec.currency_code
433: ,p_effective_start_date_o
434: => pay_pgr_shd.g_old_rec.effective_start_date
435: ,p_effective_end_date_o
436: => pay_pgr_shd.g_old_rec.effective_end_date
437: ,p_business_group_id_o
438: => pay_pgr_shd.g_old_rec.business_group_id
432: => p_rec.currency_code
433: ,p_effective_start_date_o
434: => pay_pgr_shd.g_old_rec.effective_start_date
435: ,p_effective_end_date_o
436: => pay_pgr_shd.g_old_rec.effective_end_date
437: ,p_business_group_id_o
438: => pay_pgr_shd.g_old_rec.business_group_id
439: ,p_rate_id_o
440: => pay_pgr_shd.g_old_rec.rate_id
434: => pay_pgr_shd.g_old_rec.effective_start_date
435: ,p_effective_end_date_o
436: => pay_pgr_shd.g_old_rec.effective_end_date
437: ,p_business_group_id_o
438: => pay_pgr_shd.g_old_rec.business_group_id
439: ,p_rate_id_o
440: => pay_pgr_shd.g_old_rec.rate_id
441: ,p_grade_or_spinal_point_id_o
442: => pay_pgr_shd.g_old_rec.grade_or_spinal_point_id
436: => pay_pgr_shd.g_old_rec.effective_end_date
437: ,p_business_group_id_o
438: => pay_pgr_shd.g_old_rec.business_group_id
439: ,p_rate_id_o
440: => pay_pgr_shd.g_old_rec.rate_id
441: ,p_grade_or_spinal_point_id_o
442: => pay_pgr_shd.g_old_rec.grade_or_spinal_point_id
443: ,p_rate_type_o
444: => pay_pgr_shd.g_old_rec.rate_type
438: => pay_pgr_shd.g_old_rec.business_group_id
439: ,p_rate_id_o
440: => pay_pgr_shd.g_old_rec.rate_id
441: ,p_grade_or_spinal_point_id_o
442: => pay_pgr_shd.g_old_rec.grade_or_spinal_point_id
443: ,p_rate_type_o
444: => pay_pgr_shd.g_old_rec.rate_type
445: ,p_maximum_o
446: => pay_pgr_shd.g_old_rec.maximum
440: => pay_pgr_shd.g_old_rec.rate_id
441: ,p_grade_or_spinal_point_id_o
442: => pay_pgr_shd.g_old_rec.grade_or_spinal_point_id
443: ,p_rate_type_o
444: => pay_pgr_shd.g_old_rec.rate_type
445: ,p_maximum_o
446: => pay_pgr_shd.g_old_rec.maximum
447: ,p_mid_value_o
448: => pay_pgr_shd.g_old_rec.mid_value
442: => pay_pgr_shd.g_old_rec.grade_or_spinal_point_id
443: ,p_rate_type_o
444: => pay_pgr_shd.g_old_rec.rate_type
445: ,p_maximum_o
446: => pay_pgr_shd.g_old_rec.maximum
447: ,p_mid_value_o
448: => pay_pgr_shd.g_old_rec.mid_value
449: ,p_minimum_o
450: => pay_pgr_shd.g_old_rec.minimum
444: => pay_pgr_shd.g_old_rec.rate_type
445: ,p_maximum_o
446: => pay_pgr_shd.g_old_rec.maximum
447: ,p_mid_value_o
448: => pay_pgr_shd.g_old_rec.mid_value
449: ,p_minimum_o
450: => pay_pgr_shd.g_old_rec.minimum
451: ,p_sequence_o
452: => pay_pgr_shd.g_old_rec.sequence
446: => pay_pgr_shd.g_old_rec.maximum
447: ,p_mid_value_o
448: => pay_pgr_shd.g_old_rec.mid_value
449: ,p_minimum_o
450: => pay_pgr_shd.g_old_rec.minimum
451: ,p_sequence_o
452: => pay_pgr_shd.g_old_rec.sequence
453: ,p_value_o
454: => pay_pgr_shd.g_old_rec.value
448: => pay_pgr_shd.g_old_rec.mid_value
449: ,p_minimum_o
450: => pay_pgr_shd.g_old_rec.minimum
451: ,p_sequence_o
452: => pay_pgr_shd.g_old_rec.sequence
453: ,p_value_o
454: => pay_pgr_shd.g_old_rec.value
455: ,p_request_id_o
456: => pay_pgr_shd.g_old_rec.request_id
450: => pay_pgr_shd.g_old_rec.minimum
451: ,p_sequence_o
452: => pay_pgr_shd.g_old_rec.sequence
453: ,p_value_o
454: => pay_pgr_shd.g_old_rec.value
455: ,p_request_id_o
456: => pay_pgr_shd.g_old_rec.request_id
457: ,p_program_application_id_o
458: => pay_pgr_shd.g_old_rec.program_application_id
452: => pay_pgr_shd.g_old_rec.sequence
453: ,p_value_o
454: => pay_pgr_shd.g_old_rec.value
455: ,p_request_id_o
456: => pay_pgr_shd.g_old_rec.request_id
457: ,p_program_application_id_o
458: => pay_pgr_shd.g_old_rec.program_application_id
459: ,p_program_id_o
460: => pay_pgr_shd.g_old_rec.program_id
454: => pay_pgr_shd.g_old_rec.value
455: ,p_request_id_o
456: => pay_pgr_shd.g_old_rec.request_id
457: ,p_program_application_id_o
458: => pay_pgr_shd.g_old_rec.program_application_id
459: ,p_program_id_o
460: => pay_pgr_shd.g_old_rec.program_id
461: ,p_program_update_date_o
462: => pay_pgr_shd.g_old_rec.program_update_date
456: => pay_pgr_shd.g_old_rec.request_id
457: ,p_program_application_id_o
458: => pay_pgr_shd.g_old_rec.program_application_id
459: ,p_program_id_o
460: => pay_pgr_shd.g_old_rec.program_id
461: ,p_program_update_date_o
462: => pay_pgr_shd.g_old_rec.program_update_date
463: ,p_object_version_number_o
464: => pay_pgr_shd.g_old_rec.object_version_number
458: => pay_pgr_shd.g_old_rec.program_application_id
459: ,p_program_id_o
460: => pay_pgr_shd.g_old_rec.program_id
461: ,p_program_update_date_o
462: => pay_pgr_shd.g_old_rec.program_update_date
463: ,p_object_version_number_o
464: => pay_pgr_shd.g_old_rec.object_version_number
465: ,p_currency_code_o
466: => pay_pgr_shd.g_old_rec.currency_code
460: => pay_pgr_shd.g_old_rec.program_id
461: ,p_program_update_date_o
462: => pay_pgr_shd.g_old_rec.program_update_date
463: ,p_object_version_number_o
464: => pay_pgr_shd.g_old_rec.object_version_number
465: ,p_currency_code_o
466: => pay_pgr_shd.g_old_rec.currency_code
467: );
468: --
462: => pay_pgr_shd.g_old_rec.program_update_date
463: ,p_object_version_number_o
464: => pay_pgr_shd.g_old_rec.object_version_number
465: ,p_currency_code_o
466: => pay_pgr_shd.g_old_rec.currency_code
467: );
468: --
469: exception
470: --
522: --
523: -- {End Of Comments}
524: -- ----------------------------------------------------------------------------
525: Procedure convert_defs
526: (p_rec in out nocopy pay_pgr_shd.g_rec_type
527: ) is
528: --
529: Begin
530: --
534: -- is being used then we must set to the 'current' argument value.
535: --
536: If (p_rec.business_group_id = hr_api.g_number) then
537: p_rec.business_group_id :=
538: pay_pgr_shd.g_old_rec.business_group_id;
539: End If;
540: If (p_rec.rate_id = hr_api.g_number) then
541: p_rec.rate_id :=
542: pay_pgr_shd.g_old_rec.rate_id;
538: pay_pgr_shd.g_old_rec.business_group_id;
539: End If;
540: If (p_rec.rate_id = hr_api.g_number) then
541: p_rec.rate_id :=
542: pay_pgr_shd.g_old_rec.rate_id;
543: End If;
544: If (p_rec.grade_or_spinal_point_id = hr_api.g_number) then
545: p_rec.grade_or_spinal_point_id :=
546: pay_pgr_shd.g_old_rec.grade_or_spinal_point_id;
542: pay_pgr_shd.g_old_rec.rate_id;
543: End If;
544: If (p_rec.grade_or_spinal_point_id = hr_api.g_number) then
545: p_rec.grade_or_spinal_point_id :=
546: pay_pgr_shd.g_old_rec.grade_or_spinal_point_id;
547: End If;
548: If (p_rec.rate_type = hr_api.g_varchar2) then
549: p_rec.rate_type :=
550: pay_pgr_shd.g_old_rec.rate_type;
546: pay_pgr_shd.g_old_rec.grade_or_spinal_point_id;
547: End If;
548: If (p_rec.rate_type = hr_api.g_varchar2) then
549: p_rec.rate_type :=
550: pay_pgr_shd.g_old_rec.rate_type;
551: End If;
552: If (p_rec.maximum = hr_api.g_varchar2) then
553: p_rec.maximum :=
554: pay_pgr_shd.g_old_rec.maximum;
550: pay_pgr_shd.g_old_rec.rate_type;
551: End If;
552: If (p_rec.maximum = hr_api.g_varchar2) then
553: p_rec.maximum :=
554: pay_pgr_shd.g_old_rec.maximum;
555: End If;
556: If (p_rec.mid_value = hr_api.g_varchar2) then
557: p_rec.mid_value :=
558: pay_pgr_shd.g_old_rec.mid_value;
554: pay_pgr_shd.g_old_rec.maximum;
555: End If;
556: If (p_rec.mid_value = hr_api.g_varchar2) then
557: p_rec.mid_value :=
558: pay_pgr_shd.g_old_rec.mid_value;
559: End If;
560: If (p_rec.minimum = hr_api.g_varchar2) then
561: p_rec.minimum :=
562: pay_pgr_shd.g_old_rec.minimum;
558: pay_pgr_shd.g_old_rec.mid_value;
559: End If;
560: If (p_rec.minimum = hr_api.g_varchar2) then
561: p_rec.minimum :=
562: pay_pgr_shd.g_old_rec.minimum;
563: End If;
564: If (p_rec.value = hr_api.g_varchar2) then
565: p_rec.value :=
566: pay_pgr_shd.g_old_rec.value;
562: pay_pgr_shd.g_old_rec.minimum;
563: End If;
564: If (p_rec.value = hr_api.g_varchar2) then
565: p_rec.value :=
566: pay_pgr_shd.g_old_rec.value;
567: End If;
568: If (p_rec.sequence = hr_api.g_number) then
569: p_rec.sequence :=
570: pay_pgr_shd.g_old_rec.sequence;
566: pay_pgr_shd.g_old_rec.value;
567: End If;
568: If (p_rec.sequence = hr_api.g_number) then
569: p_rec.sequence :=
570: pay_pgr_shd.g_old_rec.sequence;
571: End If;
572: If (p_rec.request_id = hr_api.g_number) then
573: p_rec.request_id :=
574: pay_pgr_shd.g_old_rec.request_id;
570: pay_pgr_shd.g_old_rec.sequence;
571: End If;
572: If (p_rec.request_id = hr_api.g_number) then
573: p_rec.request_id :=
574: pay_pgr_shd.g_old_rec.request_id;
575: End If;
576: If (p_rec.program_application_id = hr_api.g_number) then
577: p_rec.program_application_id :=
578: pay_pgr_shd.g_old_rec.program_application_id;
574: pay_pgr_shd.g_old_rec.request_id;
575: End If;
576: If (p_rec.program_application_id = hr_api.g_number) then
577: p_rec.program_application_id :=
578: pay_pgr_shd.g_old_rec.program_application_id;
579: End If;
580: If (p_rec.program_id = hr_api.g_number) then
581: p_rec.program_id :=
582: pay_pgr_shd.g_old_rec.program_id;
578: pay_pgr_shd.g_old_rec.program_application_id;
579: End If;
580: If (p_rec.program_id = hr_api.g_number) then
581: p_rec.program_id :=
582: pay_pgr_shd.g_old_rec.program_id;
583: End If;
584: If (p_rec.program_update_date = hr_api.g_date) then
585: p_rec.program_update_date :=
586: pay_pgr_shd.g_old_rec.program_update_date;
582: pay_pgr_shd.g_old_rec.program_id;
583: End If;
584: If (p_rec.program_update_date = hr_api.g_date) then
585: p_rec.program_update_date :=
586: pay_pgr_shd.g_old_rec.program_update_date;
587: End If;
588: If (p_rec.currency_code = hr_api.g_varchar2) then
589: p_rec.currency_code :=
590: pay_pgr_shd.g_old_rec.currency_code;
586: pay_pgr_shd.g_old_rec.program_update_date;
587: End If;
588: If (p_rec.currency_code = hr_api.g_varchar2) then
589: p_rec.currency_code :=
590: pay_pgr_shd.g_old_rec.currency_code;
591: End If;
592: --
593: End convert_defs;
594: --
597: -- ----------------------------------------------------------------------------
598: Procedure upd
599: (p_effective_date in date
600: ,p_datetrack_mode in varchar2
601: ,p_rec in out nocopy pay_pgr_shd.g_rec_type
602: ) is
603: --
604: l_proc varchar2(72) := g_package||'upd';
605: l_validation_start_date date;
613: dt_api.validate_dt_upd_mode(p_datetrack_mode => p_datetrack_mode);
614: --
615: -- We must lock the row which we need to update.
616: --
617: pay_pgr_shd.lck
618: (p_effective_date => p_effective_date
619: ,p_datetrack_mode => p_datetrack_mode
620: ,p_grade_rule_id => p_rec.grade_rule_id
621: ,p_object_version_number => p_rec.object_version_number
693: ,p_effective_start_date out nocopy date
694: ,p_effective_end_date out nocopy date
695: ) is
696: --
697: l_rec pay_pgr_shd.g_rec_type;
698: l_proc varchar2(72) := g_package||'upd';
699: --
700: Begin
701: hr_utility.set_location('Entering:'||l_proc, 5);
703: -- Call conversion function to turn arguments into the
704: -- l_rec structure.
705: --
706: l_rec :=
707: pay_pgr_shd.convert_args
708: (p_grade_rule_id
709: ,NULL
710: ,NULL
711: ,hr_api.g_number --p_business_group_id