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