84: --
85: hr_utility.set_location(' Leaving:'||l_proc, 10);
86: --
87: Exception
88: When hr_api.check_integrity_violated Then
89: -- A check constraint has been violated
90: --
91: pay_rcu_shd.constraint_error
92: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
88: When hr_api.check_integrity_violated Then
89: -- A check constraint has been violated
90: --
91: pay_rcu_shd.constraint_error
92: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
93: When hr_api.parent_integrity_violated Then
94: -- Parent integrity has been violated
95: --
96: pay_rcu_shd.constraint_error
89: -- A check constraint has been violated
90: --
91: pay_rcu_shd.constraint_error
92: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
93: When hr_api.parent_integrity_violated Then
94: -- Parent integrity has been violated
95: --
96: pay_rcu_shd.constraint_error
97: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
93: When hr_api.parent_integrity_violated Then
94: -- Parent integrity has been violated
95: --
96: pay_rcu_shd.constraint_error
97: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
98: When hr_api.unique_integrity_violated Then
99: -- Unique integrity has been violated
100: --
101: pay_rcu_shd.constraint_error
94: -- Parent integrity has been violated
95: --
96: pay_rcu_shd.constraint_error
97: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
98: When hr_api.unique_integrity_violated Then
99: -- Unique integrity has been violated
100: --
101: pay_rcu_shd.constraint_error
102: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
98: When hr_api.unique_integrity_violated Then
99: -- Unique integrity has been violated
100: --
101: pay_rcu_shd.constraint_error
102: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
103: When Others Then
104: --
105: Raise;
106: End update_dml;
239: );
240: --
241: exception
242: --
243: when hr_api.cannot_find_prog_unit then
244: --
245: hr_api.cannot_find_prog_unit_error
246: (p_module_name => 'PAY_RETRO_COMPONENT_USAGES'
247: ,p_hook_type => 'AU');
241: exception
242: --
243: when hr_api.cannot_find_prog_unit then
244: --
245: hr_api.cannot_find_prog_unit_error
246: (p_module_name => 'PAY_RETRO_COMPONENT_USAGES'
247: ,p_hook_type => 'AU');
248: --
249: end;
304: -- p_rec plsql record structure
305: -- to see if a system default is being used. If a system default
306: -- is being used then we must set to the 'current' argument value.
307: --
308: If (p_rec.business_group_id = hr_api.g_number) then
309: p_rec.business_group_id :=
310: pay_rcu_shd.g_old_rec.business_group_id;
311: End If;
312: If (p_rec.legislation_code = hr_api.g_varchar2) then
308: If (p_rec.business_group_id = hr_api.g_number) then
309: p_rec.business_group_id :=
310: pay_rcu_shd.g_old_rec.business_group_id;
311: End If;
312: If (p_rec.legislation_code = hr_api.g_varchar2) then
313: p_rec.legislation_code :=
314: pay_rcu_shd.g_old_rec.legislation_code;
315: End If;
316: If (p_rec.retro_component_id = hr_api.g_number) then
312: If (p_rec.legislation_code = hr_api.g_varchar2) then
313: p_rec.legislation_code :=
314: pay_rcu_shd.g_old_rec.legislation_code;
315: End If;
316: If (p_rec.retro_component_id = hr_api.g_number) then
317: p_rec.retro_component_id :=
318: pay_rcu_shd.g_old_rec.retro_component_id;
319: End If;
320: If (p_rec.creator_id = hr_api.g_number) then
316: If (p_rec.retro_component_id = hr_api.g_number) then
317: p_rec.retro_component_id :=
318: pay_rcu_shd.g_old_rec.retro_component_id;
319: End If;
320: If (p_rec.creator_id = hr_api.g_number) then
321: p_rec.creator_id :=
322: pay_rcu_shd.g_old_rec.creator_id;
323: End If;
324: If (p_rec.creator_type = hr_api.g_varchar2) then
320: If (p_rec.creator_id = hr_api.g_number) then
321: p_rec.creator_id :=
322: pay_rcu_shd.g_old_rec.creator_id;
323: End If;
324: If (p_rec.creator_type = hr_api.g_varchar2) then
325: p_rec.creator_type :=
326: pay_rcu_shd.g_old_rec.creator_type;
327: End If;
328: If (p_rec.default_component = hr_api.g_varchar2) then
324: If (p_rec.creator_type = hr_api.g_varchar2) then
325: p_rec.creator_type :=
326: pay_rcu_shd.g_old_rec.creator_type;
327: End If;
328: If (p_rec.default_component = hr_api.g_varchar2) then
329: p_rec.default_component :=
330: pay_rcu_shd.g_old_rec.default_component;
331: End If;
332: If (p_rec.reprocess_type = hr_api.g_varchar2) then
328: If (p_rec.default_component = hr_api.g_varchar2) then
329: p_rec.default_component :=
330: pay_rcu_shd.g_old_rec.default_component;
331: End If;
332: If (p_rec.reprocess_type = hr_api.g_varchar2) then
333: p_rec.reprocess_type :=
334: pay_rcu_shd.g_old_rec.reprocess_type;
335: End If;
336: If (p_rec.replace_run_flag = hr_api.g_varchar2) then
332: If (p_rec.reprocess_type = hr_api.g_varchar2) then
333: p_rec.reprocess_type :=
334: pay_rcu_shd.g_old_rec.reprocess_type;
335: End If;
336: If (p_rec.replace_run_flag = hr_api.g_varchar2) then
337: p_rec.replace_run_flag :=
338: pay_rcu_shd.g_old_rec.replace_run_flag;
339: End If;
340: If (p_rec.use_override_dates = hr_api.g_varchar2) then
336: If (p_rec.replace_run_flag = hr_api.g_varchar2) then
337: p_rec.replace_run_flag :=
338: pay_rcu_shd.g_old_rec.replace_run_flag;
339: End If;
340: If (p_rec.use_override_dates = hr_api.g_varchar2) then
341: p_rec.use_override_dates :=
342: pay_rcu_shd.g_old_rec.use_override_dates;
343: End If;
344: --
404: Procedure upd
405: (p_effective_date in date
406: ,p_retro_component_usage_id in number
407: ,p_object_version_number in out nocopy number
408: ,p_retro_component_id in number default hr_api.g_number
409: ,p_creator_id in number default hr_api.g_number
410: ,p_creator_type in varchar2 default hr_api.g_varchar2
411: ,p_default_component in varchar2 default hr_api.g_varchar2
412: ,p_reprocess_type in varchar2 default hr_api.g_varchar2
405: (p_effective_date in date
406: ,p_retro_component_usage_id in number
407: ,p_object_version_number in out nocopy number
408: ,p_retro_component_id in number default hr_api.g_number
409: ,p_creator_id in number default hr_api.g_number
410: ,p_creator_type in varchar2 default hr_api.g_varchar2
411: ,p_default_component in varchar2 default hr_api.g_varchar2
412: ,p_reprocess_type in varchar2 default hr_api.g_varchar2
413: ,p_replace_run_flag in varchar2 default hr_api.g_varchar2
406: ,p_retro_component_usage_id in number
407: ,p_object_version_number in out nocopy number
408: ,p_retro_component_id in number default hr_api.g_number
409: ,p_creator_id in number default hr_api.g_number
410: ,p_creator_type in varchar2 default hr_api.g_varchar2
411: ,p_default_component in varchar2 default hr_api.g_varchar2
412: ,p_reprocess_type in varchar2 default hr_api.g_varchar2
413: ,p_replace_run_flag in varchar2 default hr_api.g_varchar2
414: ,p_use_override_dates in varchar2 default hr_api.g_varchar2
407: ,p_object_version_number in out nocopy number
408: ,p_retro_component_id in number default hr_api.g_number
409: ,p_creator_id in number default hr_api.g_number
410: ,p_creator_type in varchar2 default hr_api.g_varchar2
411: ,p_default_component in varchar2 default hr_api.g_varchar2
412: ,p_reprocess_type in varchar2 default hr_api.g_varchar2
413: ,p_replace_run_flag in varchar2 default hr_api.g_varchar2
414: ,p_use_override_dates in varchar2 default hr_api.g_varchar2
415: ) is
408: ,p_retro_component_id in number default hr_api.g_number
409: ,p_creator_id in number default hr_api.g_number
410: ,p_creator_type in varchar2 default hr_api.g_varchar2
411: ,p_default_component in varchar2 default hr_api.g_varchar2
412: ,p_reprocess_type in varchar2 default hr_api.g_varchar2
413: ,p_replace_run_flag in varchar2 default hr_api.g_varchar2
414: ,p_use_override_dates in varchar2 default hr_api.g_varchar2
415: ) is
416: --
409: ,p_creator_id in number default hr_api.g_number
410: ,p_creator_type in varchar2 default hr_api.g_varchar2
411: ,p_default_component in varchar2 default hr_api.g_varchar2
412: ,p_reprocess_type in varchar2 default hr_api.g_varchar2
413: ,p_replace_run_flag in varchar2 default hr_api.g_varchar2
414: ,p_use_override_dates in varchar2 default hr_api.g_varchar2
415: ) is
416: --
417: l_rec pay_rcu_shd.g_rec_type;
410: ,p_creator_type in varchar2 default hr_api.g_varchar2
411: ,p_default_component in varchar2 default hr_api.g_varchar2
412: ,p_reprocess_type in varchar2 default hr_api.g_varchar2
413: ,p_replace_run_flag in varchar2 default hr_api.g_varchar2
414: ,p_use_override_dates in varchar2 default hr_api.g_varchar2
415: ) is
416: --
417: l_rec pay_rcu_shd.g_rec_type;
418: l_proc varchar2(72) := g_package||'upd';
425: --
426: l_rec :=
427: pay_rcu_shd.convert_args
428: (p_retro_component_usage_id
429: ,hr_api.g_number
430: ,hr_api.g_varchar2
431: ,p_retro_component_id
432: ,p_creator_id
433: ,p_creator_type
426: l_rec :=
427: pay_rcu_shd.convert_args
428: (p_retro_component_usage_id
429: ,hr_api.g_number
430: ,hr_api.g_varchar2
431: ,p_retro_component_id
432: ,p_creator_id
433: ,p_creator_type
434: ,p_default_component