66: --
67: Begin
68: hr_utility.set_location('Entering:'||l_proc, 5);
69: --
70: If (p_datetrack_mode = hr_api.g_correction) then
71: hr_utility.set_location(l_proc, 10);
72: --
73: -- Because we are updating a row we must get the next object
74: -- version number.
109: End If;
110: --
111: hr_utility.set_location(' Leaving:'||l_proc, 15);
112: Exception
113: When hr_api.check_integrity_violated Then
114: -- A check constraint has been violated
115: pay_ppr_shd.g_api_dml := false; -- Unset the api dml status
116: pay_ppr_shd.constraint_error
117: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
113: When hr_api.check_integrity_violated Then
114: -- A check constraint has been violated
115: pay_ppr_shd.g_api_dml := false; -- Unset the api dml status
116: pay_ppr_shd.constraint_error
117: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
118: When hr_api.unique_integrity_violated Then
119: -- Unique integrity has been violated
120: pay_ppr_shd.g_api_dml := false; -- Unset the api dml status
121: pay_ppr_shd.constraint_error
114: -- A check constraint has been violated
115: pay_ppr_shd.g_api_dml := false; -- Unset the api dml status
116: pay_ppr_shd.constraint_error
117: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
118: When hr_api.unique_integrity_violated Then
119: -- Unique integrity has been violated
120: pay_ppr_shd.g_api_dml := false; -- Unset the api dml status
121: pay_ppr_shd.constraint_error
122: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
118: When hr_api.unique_integrity_violated Then
119: -- Unique integrity has been violated
120: pay_ppr_shd.g_api_dml := false; -- Unset the api dml status
121: pay_ppr_shd.constraint_error
122: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
123: When Others Then
124: pay_ppr_shd.g_api_dml := false; -- Unset the api dml status
125: Raise;
126: End dt_update_dml;
235: l_dummy_version_number number;
236: --
237: Begin
238: hr_utility.set_location('Entering:'||l_proc, 5);
239: If (p_datetrack_mode <> hr_api.g_correction) then
240: --
241: -- Update the current effective end date
242: --
243: pay_ppr_shd.upd_effective_end_date
248: ,p_validation_end_date => p_validation_end_date
249: ,p_object_version_number => l_dummy_version_number
250: );
251: --
252: If (p_datetrack_mode = hr_api.g_update_override) then
253: --
254: -- As the datetrack mode is 'UPDATE_OVERRIDE' then we must
255: -- delete any future rows
256: --
429: );
430: --
431: exception
432: --
433: when hr_api.cannot_find_prog_unit then
434: --
435: hr_api.cannot_find_prog_unit_error
436: (p_module_name => 'PAY_STATUS_PROCESSING_RULES_F'
437: ,p_hook_type => 'AU');
431: exception
432: --
433: when hr_api.cannot_find_prog_unit then
434: --
435: hr_api.cannot_find_prog_unit_error
436: (p_module_name => 'PAY_STATUS_PROCESSING_RULES_F'
437: ,p_hook_type => 'AU');
438: --
439: end;
494: -- p_rec plsql record structure
495: -- to see if a system default is being used. If a system default
496: -- is being used then we must set to the 'current' argument value.
497: --
498: If (p_rec.business_group_id = hr_api.g_number) then
499: p_rec.business_group_id :=
500: pay_ppr_shd.g_old_rec.business_group_id;
501: End If;
502: If (p_rec.legislation_code = hr_api.g_varchar2) then
498: If (p_rec.business_group_id = hr_api.g_number) then
499: p_rec.business_group_id :=
500: pay_ppr_shd.g_old_rec.business_group_id;
501: End If;
502: If (p_rec.legislation_code = hr_api.g_varchar2) then
503: p_rec.legislation_code :=
504: pay_ppr_shd.g_old_rec.legislation_code;
505: End If;
506: If (p_rec.element_type_id = hr_api.g_number) then
502: If (p_rec.legislation_code = hr_api.g_varchar2) then
503: p_rec.legislation_code :=
504: pay_ppr_shd.g_old_rec.legislation_code;
505: End If;
506: If (p_rec.element_type_id = hr_api.g_number) then
507: p_rec.element_type_id :=
508: pay_ppr_shd.g_old_rec.element_type_id;
509: End If;
510: If (p_rec.assignment_status_type_id = hr_api.g_number) then
506: If (p_rec.element_type_id = hr_api.g_number) then
507: p_rec.element_type_id :=
508: pay_ppr_shd.g_old_rec.element_type_id;
509: End If;
510: If (p_rec.assignment_status_type_id = hr_api.g_number) then
511: p_rec.assignment_status_type_id :=
512: pay_ppr_shd.g_old_rec.assignment_status_type_id;
513: End If;
514: If (p_rec.formula_id = hr_api.g_number) then
510: If (p_rec.assignment_status_type_id = hr_api.g_number) then
511: p_rec.assignment_status_type_id :=
512: pay_ppr_shd.g_old_rec.assignment_status_type_id;
513: End If;
514: If (p_rec.formula_id = hr_api.g_number) then
515: p_rec.formula_id :=
516: pay_ppr_shd.g_old_rec.formula_id;
517: End If;
518: If (p_rec.processing_rule = hr_api.g_varchar2) then
514: If (p_rec.formula_id = hr_api.g_number) then
515: p_rec.formula_id :=
516: pay_ppr_shd.g_old_rec.formula_id;
517: End If;
518: If (p_rec.processing_rule = hr_api.g_varchar2) then
519: p_rec.processing_rule :=
520: pay_ppr_shd.g_old_rec.processing_rule;
521: End If;
522: If (p_rec.comment_id = hr_api.g_number) then
518: If (p_rec.processing_rule = hr_api.g_varchar2) then
519: p_rec.processing_rule :=
520: pay_ppr_shd.g_old_rec.processing_rule;
521: End If;
522: If (p_rec.comment_id = hr_api.g_number) then
523: p_rec.comment_id :=
524: pay_ppr_shd.g_old_rec.comment_id;
525: End If;
526: If (p_rec.comments = hr_api.g_varchar2) then
522: If (p_rec.comment_id = hr_api.g_number) then
523: p_rec.comment_id :=
524: pay_ppr_shd.g_old_rec.comment_id;
525: End If;
526: If (p_rec.comments = hr_api.g_varchar2) then
527: p_rec.comments :=
528: pay_ppr_shd.g_old_rec.comments;
529: End If;
530: If (p_rec.legislation_subgroup = hr_api.g_varchar2) then
526: If (p_rec.comments = hr_api.g_varchar2) then
527: p_rec.comments :=
528: pay_ppr_shd.g_old_rec.comments;
529: End If;
530: If (p_rec.legislation_subgroup = hr_api.g_varchar2) then
531: p_rec.legislation_subgroup :=
532: pay_ppr_shd.g_old_rec.legislation_subgroup;
533: End If;
534: --
635: (p_effective_date in date
636: ,p_datetrack_mode in varchar2
637: ,p_status_processing_rule_id in number
638: ,p_object_version_number in out nocopy number
639: ,p_formula_id in number default hr_api.g_number
640: ,p_comments in varchar2 default hr_api.g_varchar2
641: ,p_effective_start_date out nocopy date
642: ,p_effective_end_date out nocopy date
643: ,p_formula_mismatch_warning out nocopy boolean
636: ,p_datetrack_mode in varchar2
637: ,p_status_processing_rule_id in number
638: ,p_object_version_number in out nocopy number
639: ,p_formula_id in number default hr_api.g_number
640: ,p_comments in varchar2 default hr_api.g_varchar2
641: ,p_effective_start_date out nocopy date
642: ,p_effective_end_date out nocopy date
643: ,p_formula_mismatch_warning out nocopy boolean
644: ) is
657: pay_ppr_shd.convert_args
658: (p_status_processing_rule_id
659: ,null
660: ,null
661: ,hr_api.g_number
662: ,hr_api.g_varchar2
663: ,hr_api.g_number
664: ,hr_api.g_number
665: ,p_formula_id
658: (p_status_processing_rule_id
659: ,null
660: ,null
661: ,hr_api.g_number
662: ,hr_api.g_varchar2
663: ,hr_api.g_number
664: ,hr_api.g_number
665: ,p_formula_id
666: ,hr_api.g_varchar2
659: ,null
660: ,null
661: ,hr_api.g_number
662: ,hr_api.g_varchar2
663: ,hr_api.g_number
664: ,hr_api.g_number
665: ,p_formula_id
666: ,hr_api.g_varchar2
667: ,hr_api.g_number
660: ,null
661: ,hr_api.g_number
662: ,hr_api.g_varchar2
663: ,hr_api.g_number
664: ,hr_api.g_number
665: ,p_formula_id
666: ,hr_api.g_varchar2
667: ,hr_api.g_number
668: ,p_comments
662: ,hr_api.g_varchar2
663: ,hr_api.g_number
664: ,hr_api.g_number
665: ,p_formula_id
666: ,hr_api.g_varchar2
667: ,hr_api.g_number
668: ,p_comments
669: ,hr_api.g_varchar2
670: ,p_object_version_number
663: ,hr_api.g_number
664: ,hr_api.g_number
665: ,p_formula_id
666: ,hr_api.g_varchar2
667: ,hr_api.g_number
668: ,p_comments
669: ,hr_api.g_varchar2
670: ,p_object_version_number
671: );
665: ,p_formula_id
666: ,hr_api.g_varchar2
667: ,hr_api.g_number
668: ,p_comments
669: ,hr_api.g_varchar2
670: ,p_object_version_number
671: );
672: --
673: -- Having converted the arguments into the