54: --
55: -- {End Of Comments}
56: -- ----------------------------------------------------------------------------
57: Procedure dt_update_dml
58: (p_rec in out nocopy pay_frr_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 => 'formula_result_rule_id'
80: ,p_base_key_value => p_rec.formula_result_rule_id
81: );
82: --
83: pay_frr_shd.g_api_dml := true; -- Set the api dml status
84: --
85: -- Update the pay_formula_result_rules_f Row
86: --
87: update pay_formula_result_rules_f
100: where formula_result_rule_id = p_rec.formula_result_rule_id
101: and effective_start_date = p_validation_start_date
102: and effective_end_date = p_validation_end_date;
103: --
104: pay_frr_shd.g_api_dml := false; -- Unset the api dml status
105: --
106: -- Set the effective start and end dates
107: --
108: p_rec.effective_start_date := p_validation_start_date;
112: hr_utility.set_location(' Leaving:'||l_proc, 15);
113: Exception
114: When hr_api.check_integrity_violated Then
115: -- A check constraint has been violated
116: pay_frr_shd.g_api_dml := false; -- Unset the api dml status
117: pay_frr_shd.constraint_error
118: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
119: When hr_api.unique_integrity_violated Then
120: -- Unique integrity has been violated
113: Exception
114: When hr_api.check_integrity_violated Then
115: -- A check constraint has been violated
116: pay_frr_shd.g_api_dml := false; -- Unset the api dml status
117: pay_frr_shd.constraint_error
118: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
119: When hr_api.unique_integrity_violated Then
120: -- Unique integrity has been violated
121: pay_frr_shd.g_api_dml := false; -- Unset the api dml status
117: pay_frr_shd.constraint_error
118: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
119: When hr_api.unique_integrity_violated Then
120: -- Unique integrity has been violated
121: pay_frr_shd.g_api_dml := false; -- Unset the api dml status
122: pay_frr_shd.constraint_error
123: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
124: When Others Then
125: pay_frr_shd.g_api_dml := false; -- Unset the api dml status
118: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
119: When hr_api.unique_integrity_violated Then
120: -- Unique integrity has been violated
121: pay_frr_shd.g_api_dml := false; -- Unset the api dml status
122: pay_frr_shd.constraint_error
123: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
124: When Others Then
125: pay_frr_shd.g_api_dml := false; -- Unset the api dml status
126: Raise;
121: pay_frr_shd.g_api_dml := false; -- Unset the api dml status
122: pay_frr_shd.constraint_error
123: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
124: When Others Then
125: pay_frr_shd.g_api_dml := false; -- Unset the api dml status
126: Raise;
127: End dt_update_dml;
128: --
129: -- ----------------------------------------------------------------------------
157: --
158: -- {End Of Comments}
159: -- ----------------------------------------------------------------------------
160: Procedure update_dml
161: (p_rec in out nocopy pay_frr_shd.g_rec_type
162: ,p_effective_date in date
163: ,p_datetrack_mode in varchar2
164: ,p_validation_start_date in date
165: ,p_validation_end_date in date
224: --
225: -- {End Of Comments}
226: -- ----------------------------------------------------------------------------
227: Procedure dt_pre_update
228: (p_rec in out nocopy pay_frr_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
240: If (p_datetrack_mode <> hr_api.g_correction) then
241: --
242: -- Update the current effective end date
243: --
244: pay_frr_shd.upd_effective_end_date
245: (p_effective_date => p_effective_date
246: ,p_base_key_value => p_rec.formula_result_rule_id
247: ,p_new_effective_end_date => (p_validation_start_date - 1)
248: ,p_validation_start_date => p_validation_start_date
309: --
310: -- {End Of Comments}
311: -- ----------------------------------------------------------------------------
312: Procedure pre_update
313: (p_rec in out nocopy pay_frr_shd.g_rec_type
314: ,p_effective_date in date
315: ,p_datetrack_mode in varchar2
316: ,p_validation_start_date in date
317: ,p_validation_end_date in date
367: --
368: -- {End Of Comments}
369: -- ----------------------------------------------------------------------------
370: Procedure post_update
371: (p_rec in pay_frr_shd.g_rec_type
372: ,p_effective_date in date
373: ,p_datetrack_mode in varchar2
374: ,p_validation_start_date in date
375: ,p_validation_end_date in date
416: => p_rec.input_value_id
417: ,p_object_version_number
418: => p_rec.object_version_number
419: ,p_effective_start_date_o
420: => pay_frr_shd.g_old_rec.effective_start_date
421: ,p_effective_end_date_o
422: => pay_frr_shd.g_old_rec.effective_end_date
423: ,p_business_group_id_o
424: => pay_frr_shd.g_old_rec.business_group_id
418: => p_rec.object_version_number
419: ,p_effective_start_date_o
420: => pay_frr_shd.g_old_rec.effective_start_date
421: ,p_effective_end_date_o
422: => pay_frr_shd.g_old_rec.effective_end_date
423: ,p_business_group_id_o
424: => pay_frr_shd.g_old_rec.business_group_id
425: ,p_legislation_code_o
426: => pay_frr_shd.g_old_rec.legislation_code
420: => pay_frr_shd.g_old_rec.effective_start_date
421: ,p_effective_end_date_o
422: => pay_frr_shd.g_old_rec.effective_end_date
423: ,p_business_group_id_o
424: => pay_frr_shd.g_old_rec.business_group_id
425: ,p_legislation_code_o
426: => pay_frr_shd.g_old_rec.legislation_code
427: ,p_element_type_id_o
428: => pay_frr_shd.g_old_rec.element_type_id
422: => pay_frr_shd.g_old_rec.effective_end_date
423: ,p_business_group_id_o
424: => pay_frr_shd.g_old_rec.business_group_id
425: ,p_legislation_code_o
426: => pay_frr_shd.g_old_rec.legislation_code
427: ,p_element_type_id_o
428: => pay_frr_shd.g_old_rec.element_type_id
429: ,p_status_processing_rule_id_o
430: => pay_frr_shd.g_old_rec.status_processing_rule_id
424: => pay_frr_shd.g_old_rec.business_group_id
425: ,p_legislation_code_o
426: => pay_frr_shd.g_old_rec.legislation_code
427: ,p_element_type_id_o
428: => pay_frr_shd.g_old_rec.element_type_id
429: ,p_status_processing_rule_id_o
430: => pay_frr_shd.g_old_rec.status_processing_rule_id
431: ,p_result_name_o
432: => pay_frr_shd.g_old_rec.result_name
426: => pay_frr_shd.g_old_rec.legislation_code
427: ,p_element_type_id_o
428: => pay_frr_shd.g_old_rec.element_type_id
429: ,p_status_processing_rule_id_o
430: => pay_frr_shd.g_old_rec.status_processing_rule_id
431: ,p_result_name_o
432: => pay_frr_shd.g_old_rec.result_name
433: ,p_result_rule_type_o
434: => pay_frr_shd.g_old_rec.result_rule_type
428: => pay_frr_shd.g_old_rec.element_type_id
429: ,p_status_processing_rule_id_o
430: => pay_frr_shd.g_old_rec.status_processing_rule_id
431: ,p_result_name_o
432: => pay_frr_shd.g_old_rec.result_name
433: ,p_result_rule_type_o
434: => pay_frr_shd.g_old_rec.result_rule_type
435: ,p_legislation_subgroup_o
436: => pay_frr_shd.g_old_rec.legislation_subgroup
430: => pay_frr_shd.g_old_rec.status_processing_rule_id
431: ,p_result_name_o
432: => pay_frr_shd.g_old_rec.result_name
433: ,p_result_rule_type_o
434: => pay_frr_shd.g_old_rec.result_rule_type
435: ,p_legislation_subgroup_o
436: => pay_frr_shd.g_old_rec.legislation_subgroup
437: ,p_severity_level_o
438: => pay_frr_shd.g_old_rec.severity_level
432: => pay_frr_shd.g_old_rec.result_name
433: ,p_result_rule_type_o
434: => pay_frr_shd.g_old_rec.result_rule_type
435: ,p_legislation_subgroup_o
436: => pay_frr_shd.g_old_rec.legislation_subgroup
437: ,p_severity_level_o
438: => pay_frr_shd.g_old_rec.severity_level
439: ,p_input_value_id_o
440: => pay_frr_shd.g_old_rec.input_value_id
434: => pay_frr_shd.g_old_rec.result_rule_type
435: ,p_legislation_subgroup_o
436: => pay_frr_shd.g_old_rec.legislation_subgroup
437: ,p_severity_level_o
438: => pay_frr_shd.g_old_rec.severity_level
439: ,p_input_value_id_o
440: => pay_frr_shd.g_old_rec.input_value_id
441: ,p_object_version_number_o
442: => pay_frr_shd.g_old_rec.object_version_number
436: => pay_frr_shd.g_old_rec.legislation_subgroup
437: ,p_severity_level_o
438: => pay_frr_shd.g_old_rec.severity_level
439: ,p_input_value_id_o
440: => pay_frr_shd.g_old_rec.input_value_id
441: ,p_object_version_number_o
442: => pay_frr_shd.g_old_rec.object_version_number
443: );
444: --
438: => pay_frr_shd.g_old_rec.severity_level
439: ,p_input_value_id_o
440: => pay_frr_shd.g_old_rec.input_value_id
441: ,p_object_version_number_o
442: => pay_frr_shd.g_old_rec.object_version_number
443: );
444: --
445: exception
446: --
498: --
499: -- {End Of Comments}
500: -- ----------------------------------------------------------------------------
501: Procedure convert_defs
502: (p_rec in out nocopy pay_frr_shd.g_rec_type
503: ) is
504: --
505: Begin
506: --
510: -- is being used then we must set to the 'current' argument value.
511: --
512: If (p_rec.business_group_id = hr_api.g_number) then
513: p_rec.business_group_id :=
514: pay_frr_shd.g_old_rec.business_group_id;
515: End If;
516: If (p_rec.legislation_code = hr_api.g_varchar2) then
517: p_rec.legislation_code :=
518: pay_frr_shd.g_old_rec.legislation_code;
514: pay_frr_shd.g_old_rec.business_group_id;
515: End If;
516: If (p_rec.legislation_code = hr_api.g_varchar2) then
517: p_rec.legislation_code :=
518: pay_frr_shd.g_old_rec.legislation_code;
519: End If;
520: If (p_rec.element_type_id = hr_api.g_number) then
521: p_rec.element_type_id :=
522: pay_frr_shd.g_old_rec.element_type_id;
518: pay_frr_shd.g_old_rec.legislation_code;
519: End If;
520: If (p_rec.element_type_id = hr_api.g_number) then
521: p_rec.element_type_id :=
522: pay_frr_shd.g_old_rec.element_type_id;
523: End If;
524: If (p_rec.status_processing_rule_id = hr_api.g_number) then
525: p_rec.status_processing_rule_id :=
526: pay_frr_shd.g_old_rec.status_processing_rule_id;
522: pay_frr_shd.g_old_rec.element_type_id;
523: End If;
524: If (p_rec.status_processing_rule_id = hr_api.g_number) then
525: p_rec.status_processing_rule_id :=
526: pay_frr_shd.g_old_rec.status_processing_rule_id;
527: End If;
528: If (p_rec.result_name = hr_api.g_varchar2) then
529: p_rec.result_name :=
530: pay_frr_shd.g_old_rec.result_name;
526: pay_frr_shd.g_old_rec.status_processing_rule_id;
527: End If;
528: If (p_rec.result_name = hr_api.g_varchar2) then
529: p_rec.result_name :=
530: pay_frr_shd.g_old_rec.result_name;
531: End If;
532: If (p_rec.result_rule_type = hr_api.g_varchar2) then
533: p_rec.result_rule_type :=
534: pay_frr_shd.g_old_rec.result_rule_type;
530: pay_frr_shd.g_old_rec.result_name;
531: End If;
532: If (p_rec.result_rule_type = hr_api.g_varchar2) then
533: p_rec.result_rule_type :=
534: pay_frr_shd.g_old_rec.result_rule_type;
535: End If;
536: If (p_rec.legislation_subgroup = hr_api.g_varchar2) then
537: p_rec.legislation_subgroup :=
538: pay_frr_shd.g_old_rec.legislation_subgroup;
534: pay_frr_shd.g_old_rec.result_rule_type;
535: End If;
536: If (p_rec.legislation_subgroup = hr_api.g_varchar2) then
537: p_rec.legislation_subgroup :=
538: pay_frr_shd.g_old_rec.legislation_subgroup;
539: End If;
540: If (p_rec.severity_level = hr_api.g_varchar2) then
541: p_rec.severity_level :=
542: pay_frr_shd.g_old_rec.severity_level;
538: pay_frr_shd.g_old_rec.legislation_subgroup;
539: End If;
540: If (p_rec.severity_level = hr_api.g_varchar2) then
541: p_rec.severity_level :=
542: pay_frr_shd.g_old_rec.severity_level;
543: End If;
544: If (p_rec.input_value_id = hr_api.g_number) then
545: p_rec.input_value_id :=
546: pay_frr_shd.g_old_rec.input_value_id;
542: pay_frr_shd.g_old_rec.severity_level;
543: End If;
544: If (p_rec.input_value_id = hr_api.g_number) then
545: p_rec.input_value_id :=
546: pay_frr_shd.g_old_rec.input_value_id;
547: End If;
548: --
549: End convert_defs;
550: --
553: -- ----------------------------------------------------------------------------
554: Procedure upd
555: (p_effective_date in date
556: ,p_datetrack_mode in varchar2
557: ,p_rec in out nocopy pay_frr_shd.g_rec_type
558: ) is
559: --
560: l_proc varchar2(72) := g_package||'upd';
561: l_validation_start_date date;
569: dt_api.validate_dt_upd_mode(p_datetrack_mode => p_datetrack_mode);
570: --
571: -- We must lock the row which we need to update.
572: --
573: pay_frr_shd.lck
574: (p_effective_date => p_effective_date
575: ,p_datetrack_mode => p_datetrack_mode
576: ,p_formula_result_rule_id => p_rec.formula_result_rule_id
577: ,p_object_version_number => p_rec.object_version_number
652: ,p_effective_start_date out nocopy date
653: ,p_effective_end_date out nocopy date
654: ) is
655: --
656: l_rec pay_frr_shd.g_rec_type;
657: l_proc varchar2(72) := g_package||'upd';
658: --
659: Begin
660: hr_utility.set_location('Entering:'||l_proc, 5);
662: -- Call conversion function to turn arguments into the
663: -- l_rec structure.
664: --
665: l_rec :=
666: pay_frr_shd.convert_args
667: (p_formula_result_rule_id
668: ,null
669: ,null
670: ,p_business_group_id