81: --
82: hr_utility.set_location(' Leaving:'||l_proc, 10);
83: --
84: Exception
85: When hr_api.check_integrity_violated Then
86: -- A check constraint has been violated
87: --
88: pay_esu_shd.constraint_error
89: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
85: When hr_api.check_integrity_violated Then
86: -- A check constraint has been violated
87: --
88: pay_esu_shd.constraint_error
89: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
90: When hr_api.parent_integrity_violated Then
91: -- Parent integrity has been violated
92: --
93: pay_esu_shd.constraint_error
86: -- A check constraint has been violated
87: --
88: pay_esu_shd.constraint_error
89: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
90: When hr_api.parent_integrity_violated Then
91: -- Parent integrity has been violated
92: --
93: pay_esu_shd.constraint_error
94: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
90: When hr_api.parent_integrity_violated Then
91: -- Parent integrity has been violated
92: --
93: pay_esu_shd.constraint_error
94: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
95: When hr_api.unique_integrity_violated Then
96: -- Unique integrity has been violated
97: --
98: pay_esu_shd.constraint_error
91: -- Parent integrity has been violated
92: --
93: pay_esu_shd.constraint_error
94: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
95: When hr_api.unique_integrity_violated Then
96: -- Unique integrity has been violated
97: --
98: pay_esu_shd.constraint_error
99: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
95: When hr_api.unique_integrity_violated Then
96: -- Unique integrity has been violated
97: --
98: pay_esu_shd.constraint_error
99: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
100: When Others Then
101: --
102: Raise;
103: End update_dml;
224: );
225: --
226: exception
227: --
228: when hr_api.cannot_find_prog_unit then
229: --
230: hr_api.cannot_find_prog_unit_error
231: (p_module_name => 'PAY_ELEMENT_SPAN_USAGES'
232: ,p_hook_type => 'AU');
226: exception
227: --
228: when hr_api.cannot_find_prog_unit then
229: --
230: hr_api.cannot_find_prog_unit_error
231: (p_module_name => 'PAY_ELEMENT_SPAN_USAGES'
232: ,p_hook_type => 'AU');
233: --
234: end;
289: -- p_rec plsql record structure
290: -- to see if a system default is being used. If a system default
291: -- is being used then we must set to the 'current' argument value.
292: --
293: If (p_rec.business_group_id = hr_api.g_number) then
294: p_rec.business_group_id :=
295: pay_esu_shd.g_old_rec.business_group_id;
296: End If;
297: If (p_rec.legislation_code = hr_api.g_varchar2) then
293: If (p_rec.business_group_id = hr_api.g_number) then
294: p_rec.business_group_id :=
295: pay_esu_shd.g_old_rec.business_group_id;
296: End If;
297: If (p_rec.legislation_code = hr_api.g_varchar2) then
298: p_rec.legislation_code :=
299: pay_esu_shd.g_old_rec.legislation_code;
300: End If;
301: If (p_rec.time_span_id = hr_api.g_number) then
297: If (p_rec.legislation_code = hr_api.g_varchar2) then
298: p_rec.legislation_code :=
299: pay_esu_shd.g_old_rec.legislation_code;
300: End If;
301: If (p_rec.time_span_id = hr_api.g_number) then
302: p_rec.time_span_id :=
303: pay_esu_shd.g_old_rec.time_span_id;
304: End If;
305: If (p_rec.retro_component_usage_id = hr_api.g_number) then
301: If (p_rec.time_span_id = hr_api.g_number) then
302: p_rec.time_span_id :=
303: pay_esu_shd.g_old_rec.time_span_id;
304: End If;
305: If (p_rec.retro_component_usage_id = hr_api.g_number) then
306: p_rec.retro_component_usage_id :=
307: pay_esu_shd.g_old_rec.retro_component_usage_id;
308: End If;
309: If (p_rec.adjustment_type = hr_api.g_varchar2) then
305: If (p_rec.retro_component_usage_id = hr_api.g_number) then
306: p_rec.retro_component_usage_id :=
307: pay_esu_shd.g_old_rec.retro_component_usage_id;
308: End If;
309: If (p_rec.adjustment_type = hr_api.g_varchar2) then
310: p_rec.adjustment_type :=
311: pay_esu_shd.g_old_rec.adjustment_type;
312: End If;
313: If (p_rec.retro_element_type_id = hr_api.g_number) then
309: If (p_rec.adjustment_type = hr_api.g_varchar2) then
310: p_rec.adjustment_type :=
311: pay_esu_shd.g_old_rec.adjustment_type;
312: End If;
313: If (p_rec.retro_element_type_id = hr_api.g_number) then
314: p_rec.retro_element_type_id :=
315: pay_esu_shd.g_old_rec.retro_element_type_id;
316: End If;
317: --
377: Procedure upd
378: (p_effective_date in date
379: ,p_element_span_usage_id in number
380: ,p_object_version_number in out nocopy number
381: ,p_time_span_id in number default hr_api.g_number
382: ,p_retro_component_usage_id in number default hr_api.g_number
383: ,p_retro_element_type_id in number default hr_api.g_number
384: ,p_adjustment_type in varchar2 default hr_api.g_varchar2
385: ) is
378: (p_effective_date in date
379: ,p_element_span_usage_id in number
380: ,p_object_version_number in out nocopy number
381: ,p_time_span_id in number default hr_api.g_number
382: ,p_retro_component_usage_id in number default hr_api.g_number
383: ,p_retro_element_type_id in number default hr_api.g_number
384: ,p_adjustment_type in varchar2 default hr_api.g_varchar2
385: ) is
386: --
379: ,p_element_span_usage_id in number
380: ,p_object_version_number in out nocopy number
381: ,p_time_span_id in number default hr_api.g_number
382: ,p_retro_component_usage_id in number default hr_api.g_number
383: ,p_retro_element_type_id in number default hr_api.g_number
384: ,p_adjustment_type in varchar2 default hr_api.g_varchar2
385: ) is
386: --
387: l_rec pay_esu_shd.g_rec_type;
380: ,p_object_version_number in out nocopy number
381: ,p_time_span_id in number default hr_api.g_number
382: ,p_retro_component_usage_id in number default hr_api.g_number
383: ,p_retro_element_type_id in number default hr_api.g_number
384: ,p_adjustment_type in varchar2 default hr_api.g_varchar2
385: ) is
386: --
387: l_rec pay_esu_shd.g_rec_type;
388: l_proc varchar2(72) := g_package||'upd';
395: --
396: l_rec :=
397: pay_esu_shd.convert_args
398: (p_element_span_usage_id
399: ,hr_api.g_number
400: ,hr_api.g_varchar2
401: ,p_time_span_id
402: ,p_retro_component_usage_id
403: ,p_adjustment_type
396: l_rec :=
397: pay_esu_shd.convert_args
398: (p_element_span_usage_id
399: ,hr_api.g_number
400: ,hr_api.g_varchar2
401: ,p_time_span_id
402: ,p_retro_component_usage_id
403: ,p_adjustment_type
404: ,p_retro_element_type_id