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.
107: End If;
108: --
109: hr_utility.set_location(' Leaving:'||l_proc, 15);
110: Exception
111: When hr_api.check_integrity_violated Then
112: -- A check constraint has been violated
113: pay_pbf_shd.g_api_dml := false; -- Unset the api dml status
114: pay_pbf_shd.constraint_error
115: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
111: When hr_api.check_integrity_violated Then
112: -- A check constraint has been violated
113: pay_pbf_shd.g_api_dml := false; -- Unset the api dml status
114: pay_pbf_shd.constraint_error
115: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
116: When hr_api.unique_integrity_violated Then
117: -- Unique integrity has been violated
118: pay_pbf_shd.g_api_dml := false; -- Unset the api dml status
119: pay_pbf_shd.constraint_error
112: -- A check constraint has been violated
113: pay_pbf_shd.g_api_dml := false; -- Unset the api dml status
114: pay_pbf_shd.constraint_error
115: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
116: When hr_api.unique_integrity_violated Then
117: -- Unique integrity has been violated
118: pay_pbf_shd.g_api_dml := false; -- Unset the api dml status
119: pay_pbf_shd.constraint_error
120: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
116: When hr_api.unique_integrity_violated Then
117: -- Unique integrity has been violated
118: pay_pbf_shd.g_api_dml := false; -- Unset the api dml status
119: pay_pbf_shd.constraint_error
120: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
121: When Others Then
122: pay_pbf_shd.g_api_dml := false; -- Unset the api dml status
123: Raise;
124: End dt_update_dml;
233: l_dummy_version_number number;
234: --
235: Begin
236: hr_utility.set_location('Entering:'||l_proc, 5);
237: If (p_datetrack_mode <> hr_api.g_correction) then
238: --
239: -- Update the current effective end date
240: --
241: pay_pbf_shd.upd_effective_end_date
246: ,p_validation_end_date => p_validation_end_date
247: ,p_object_version_number => l_dummy_version_number
248: );
249: --
250: If (p_datetrack_mode = hr_api.g_update_override) then
251: --
252: -- As the datetrack mode is 'UPDATE_OVERRIDE' then we must
253: -- delete any future rows
254: --
428: );
429: --
430: exception
431: --
432: when hr_api.cannot_find_prog_unit then
433: --
434: hr_api.cannot_find_prog_unit_error
435: (p_module_name => 'PAY_BALANCE_FEEDS_F'
436: ,p_hook_type => 'AU');
430: exception
431: --
432: when hr_api.cannot_find_prog_unit then
433: --
434: hr_api.cannot_find_prog_unit_error
435: (p_module_name => 'PAY_BALANCE_FEEDS_F'
436: ,p_hook_type => 'AU');
437: --
438: end;
493: -- p_rec plsql record structure
494: -- to see if a system default is being used. If a system default
495: -- is being used then we must set to the 'current' argument value.
496: --
497: If (p_rec.business_group_id = hr_api.g_number) then
498: p_rec.business_group_id :=
499: pay_pbf_shd.g_old_rec.business_group_id;
500: End If;
501: If (p_rec.legislation_code = hr_api.g_varchar2) then
497: If (p_rec.business_group_id = hr_api.g_number) then
498: p_rec.business_group_id :=
499: pay_pbf_shd.g_old_rec.business_group_id;
500: End If;
501: If (p_rec.legislation_code = hr_api.g_varchar2) then
502: p_rec.legislation_code :=
503: pay_pbf_shd.g_old_rec.legislation_code;
504: End If;
505: If (p_rec.balance_type_id = hr_api.g_number) then
501: If (p_rec.legislation_code = hr_api.g_varchar2) then
502: p_rec.legislation_code :=
503: pay_pbf_shd.g_old_rec.legislation_code;
504: End If;
505: If (p_rec.balance_type_id = hr_api.g_number) then
506: p_rec.balance_type_id :=
507: pay_pbf_shd.g_old_rec.balance_type_id;
508: End If;
509: If (p_rec.input_value_id = hr_api.g_number) then
505: If (p_rec.balance_type_id = hr_api.g_number) then
506: p_rec.balance_type_id :=
507: pay_pbf_shd.g_old_rec.balance_type_id;
508: End If;
509: If (p_rec.input_value_id = hr_api.g_number) then
510: p_rec.input_value_id :=
511: pay_pbf_shd.g_old_rec.input_value_id;
512: End If;
513: If (p_rec.scale = hr_api.g_number) then
509: If (p_rec.input_value_id = hr_api.g_number) then
510: p_rec.input_value_id :=
511: pay_pbf_shd.g_old_rec.input_value_id;
512: End If;
513: If (p_rec.scale = hr_api.g_number) then
514: p_rec.scale :=
515: pay_pbf_shd.g_old_rec.scale;
516: End If;
517: If (p_rec.legislation_subgroup = hr_api.g_varchar2) then
513: If (p_rec.scale = hr_api.g_number) then
514: p_rec.scale :=
515: pay_pbf_shd.g_old_rec.scale;
516: End If;
517: If (p_rec.legislation_subgroup = hr_api.g_varchar2) then
518: p_rec.legislation_subgroup :=
519: pay_pbf_shd.g_old_rec.legislation_subgroup;
520: End If;
521: --
615: (p_effective_date in date
616: ,p_datetrack_mode in varchar2
617: ,p_balance_feed_id in number
618: ,p_object_version_number in out nocopy number
619: ,p_balance_type_id in number default hr_api.g_number
620: ,p_input_value_id in number default hr_api.g_number
621: ,p_scale in number default hr_api.g_number
622: ,p_business_group_id in number default hr_api.g_number
623: ,p_legislation_code in varchar2 default hr_api.g_varchar2
616: ,p_datetrack_mode in varchar2
617: ,p_balance_feed_id in number
618: ,p_object_version_number in out nocopy number
619: ,p_balance_type_id in number default hr_api.g_number
620: ,p_input_value_id in number default hr_api.g_number
621: ,p_scale in number default hr_api.g_number
622: ,p_business_group_id in number default hr_api.g_number
623: ,p_legislation_code in varchar2 default hr_api.g_varchar2
624: ,p_legislation_subgroup in varchar2 default hr_api.g_varchar2
617: ,p_balance_feed_id in number
618: ,p_object_version_number in out nocopy number
619: ,p_balance_type_id in number default hr_api.g_number
620: ,p_input_value_id in number default hr_api.g_number
621: ,p_scale in number default hr_api.g_number
622: ,p_business_group_id in number default hr_api.g_number
623: ,p_legislation_code in varchar2 default hr_api.g_varchar2
624: ,p_legislation_subgroup in varchar2 default hr_api.g_varchar2
625: ,p_effective_start_date out nocopy date
618: ,p_object_version_number in out nocopy number
619: ,p_balance_type_id in number default hr_api.g_number
620: ,p_input_value_id in number default hr_api.g_number
621: ,p_scale in number default hr_api.g_number
622: ,p_business_group_id in number default hr_api.g_number
623: ,p_legislation_code in varchar2 default hr_api.g_varchar2
624: ,p_legislation_subgroup in varchar2 default hr_api.g_varchar2
625: ,p_effective_start_date out nocopy date
626: ,p_effective_end_date out nocopy date
619: ,p_balance_type_id in number default hr_api.g_number
620: ,p_input_value_id in number default hr_api.g_number
621: ,p_scale in number default hr_api.g_number
622: ,p_business_group_id in number default hr_api.g_number
623: ,p_legislation_code in varchar2 default hr_api.g_varchar2
624: ,p_legislation_subgroup in varchar2 default hr_api.g_varchar2
625: ,p_effective_start_date out nocopy date
626: ,p_effective_end_date out nocopy date
627: ,p_exist_run_result_warning out nocopy boolean
620: ,p_input_value_id in number default hr_api.g_number
621: ,p_scale in number default hr_api.g_number
622: ,p_business_group_id in number default hr_api.g_number
623: ,p_legislation_code in varchar2 default hr_api.g_varchar2
624: ,p_legislation_subgroup in varchar2 default hr_api.g_varchar2
625: ,p_effective_start_date out nocopy date
626: ,p_effective_end_date out nocopy date
627: ,p_exist_run_result_warning out nocopy boolean
628: ) is