79: --
80: hr_utility.set_location(' Leaving:'||l_proc, 10);
81: --
82: Exception
83: When hr_api.check_integrity_violated Then
84: -- A check constraint has been violated
85: --
86: hr_opt_shd.constraint_error
87: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
83: When hr_api.check_integrity_violated Then
84: -- A check constraint has been violated
85: --
86: hr_opt_shd.constraint_error
87: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
88: When hr_api.parent_integrity_violated Then
89: -- Parent integrity has been violated
90: --
91: hr_opt_shd.constraint_error
84: -- A check constraint has been violated
85: --
86: hr_opt_shd.constraint_error
87: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
88: When hr_api.parent_integrity_violated Then
89: -- Parent integrity has been violated
90: --
91: hr_opt_shd.constraint_error
92: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
88: When hr_api.parent_integrity_violated Then
89: -- Parent integrity has been violated
90: --
91: hr_opt_shd.constraint_error
92: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
93: When hr_api.unique_integrity_violated Then
94: -- Unique integrity has been violated
95: --
96: hr_opt_shd.constraint_error
89: -- Parent integrity has been violated
90: --
91: hr_opt_shd.constraint_error
92: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
93: When hr_api.unique_integrity_violated Then
94: -- Unique integrity has been violated
95: --
96: hr_opt_shd.constraint_error
97: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
93: When hr_api.unique_integrity_violated Then
94: -- Unique integrity has been violated
95: --
96: hr_opt_shd.constraint_error
97: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
98: When Others Then
99: --
100: Raise;
101: End update_dml;
233: );
234: --
235: exception
236: --
237: when hr_api.cannot_find_prog_unit then
238: --
239: hr_api.cannot_find_prog_unit_error
240: (p_module_name => 'HR_KI_OPTIONS'
241: ,p_hook_type => 'AU');
235: exception
236: --
237: when hr_api.cannot_find_prog_unit then
238: --
239: hr_api.cannot_find_prog_unit_error
240: (p_module_name => 'HR_KI_OPTIONS'
241: ,p_hook_type => 'AU');
242: --
243: end;
298: -- p_rec plsql record structure
299: -- to see if a system default is being used. If a system default
300: -- is being used then we must set to the 'current' argument value.
301: --
302: If (p_rec.option_type_id = hr_api.g_number) then
303: p_rec.option_type_id :=
304: hr_opt_shd.g_old_rec.option_type_id;
305: End If;
306: If (p_rec.option_level = hr_api.g_number) then
302: If (p_rec.option_type_id = hr_api.g_number) then
303: p_rec.option_type_id :=
304: hr_opt_shd.g_old_rec.option_type_id;
305: End If;
306: If (p_rec.option_level = hr_api.g_number) then
307: p_rec.option_level :=
308: hr_opt_shd.g_old_rec.option_level;
309: End If;
310: If (p_rec.option_level_id = hr_api.g_varchar2) then
306: If (p_rec.option_level = hr_api.g_number) then
307: p_rec.option_level :=
308: hr_opt_shd.g_old_rec.option_level;
309: End If;
310: If (p_rec.option_level_id = hr_api.g_varchar2) then
311: p_rec.option_level_id :=
312: hr_opt_shd.g_old_rec.option_level_id;
313: End If;
314: If (p_rec.value = hr_api.g_varchar2) then
310: If (p_rec.option_level_id = hr_api.g_varchar2) then
311: p_rec.option_level_id :=
312: hr_opt_shd.g_old_rec.option_level_id;
313: End If;
314: If (p_rec.value = hr_api.g_varchar2) then
315: p_rec.value :=
316: hr_opt_shd.g_old_rec.value;
317: End If;
318: If (p_rec.encrypted = hr_api.g_varchar2) then
314: If (p_rec.value = hr_api.g_varchar2) then
315: p_rec.value :=
316: hr_opt_shd.g_old_rec.value;
317: End If;
318: If (p_rec.encrypted = hr_api.g_varchar2) then
319: p_rec.encrypted :=
320: hr_opt_shd.g_old_rec.encrypted;
321: End If;
322: If (p_rec.integration_id = hr_api.g_number) then
318: If (p_rec.encrypted = hr_api.g_varchar2) then
319: p_rec.encrypted :=
320: hr_opt_shd.g_old_rec.encrypted;
321: End If;
322: If (p_rec.integration_id = hr_api.g_number) then
323: p_rec.integration_id :=
324: hr_opt_shd.g_old_rec.integration_id;
325: End If;
326: --
386: Procedure upd
387: (
388: p_option_id in number
389: ,p_object_version_number in out nocopy number
390: ,p_value in varchar2 default hr_api.g_varchar2
391: ,p_encrypted in varchar2 default hr_api.g_varchar2
392: ) is
393: --
394: l_rec hr_opt_shd.g_rec_type;
387: (
388: p_option_id in number
389: ,p_object_version_number in out nocopy number
390: ,p_value in varchar2 default hr_api.g_varchar2
391: ,p_encrypted in varchar2 default hr_api.g_varchar2
392: ) is
393: --
394: l_rec hr_opt_shd.g_rec_type;
395: l_proc varchar2(72) := g_package||'upd';
402: --
403: l_rec :=
404: hr_opt_shd.convert_args
405: (p_option_id
406: ,hr_api.g_number
407: ,hr_api.g_number
408: ,hr_api.g_varchar2
409: ,p_value
410: ,p_encrypted
403: l_rec :=
404: hr_opt_shd.convert_args
405: (p_option_id
406: ,hr_api.g_number
407: ,hr_api.g_number
408: ,hr_api.g_varchar2
409: ,p_value
410: ,p_encrypted
411: ,hr_api.g_number
404: hr_opt_shd.convert_args
405: (p_option_id
406: ,hr_api.g_number
407: ,hr_api.g_number
408: ,hr_api.g_varchar2
409: ,p_value
410: ,p_encrypted
411: ,hr_api.g_number
412: ,p_object_version_number
407: ,hr_api.g_number
408: ,hr_api.g_varchar2
409: ,p_value
410: ,p_encrypted
411: ,hr_api.g_number
412: ,p_object_version_number
413: );
414: --
415: -- Having converted the arguments into the