78: --
79: hr_utility.set_location(' Leaving:'||l_proc, 10);
80: --
81: Exception
82: When hr_api.check_integrity_violated Then
83: -- A check constraint has been violated
84: --
85: hr_oty_shd.constraint_error
86: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
82: When hr_api.check_integrity_violated Then
83: -- A check constraint has been violated
84: --
85: hr_oty_shd.constraint_error
86: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
87: When hr_api.parent_integrity_violated Then
88: -- Parent integrity has been violated
89: --
90: hr_oty_shd.constraint_error
83: -- A check constraint has been violated
84: --
85: hr_oty_shd.constraint_error
86: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
87: When hr_api.parent_integrity_violated Then
88: -- Parent integrity has been violated
89: --
90: hr_oty_shd.constraint_error
91: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
87: When hr_api.parent_integrity_violated Then
88: -- Parent integrity has been violated
89: --
90: hr_oty_shd.constraint_error
91: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
92: When hr_api.unique_integrity_violated Then
93: -- Unique integrity has been violated
94: --
95: hr_oty_shd.constraint_error
88: -- Parent integrity has been violated
89: --
90: hr_oty_shd.constraint_error
91: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
92: When hr_api.unique_integrity_violated Then
93: -- Unique integrity has been violated
94: --
95: hr_oty_shd.constraint_error
96: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
92: When hr_api.unique_integrity_violated Then
93: -- Unique integrity has been violated
94: --
95: hr_oty_shd.constraint_error
96: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
97: When Others Then
98: --
99: Raise;
100: End update_dml;
202: );
203: --
204: exception
205: --
206: when hr_api.cannot_find_prog_unit then
207: --
208: hr_api.cannot_find_prog_unit_error
209: (p_module_name => 'HR_KI_OPTION_TYPES'
210: ,p_hook_type => 'AU');
204: exception
205: --
206: when hr_api.cannot_find_prog_unit then
207: --
208: hr_api.cannot_find_prog_unit_error
209: (p_module_name => 'HR_KI_OPTION_TYPES'
210: ,p_hook_type => 'AU');
211: --
212: end;
267: -- p_rec plsql record structure
268: -- to see if a system default is being used. If a system default
269: -- is being used then we must set to the 'current' argument value.
270: --
271: If (p_rec.option_type_key = hr_api.g_varchar2) then
272: p_rec.option_type_key :=
273: hr_oty_shd.g_old_rec.option_type_key;
274: End If;
275: If (p_rec.display_type = hr_api.g_varchar2) then
271: If (p_rec.option_type_key = hr_api.g_varchar2) then
272: p_rec.option_type_key :=
273: hr_oty_shd.g_old_rec.option_type_key;
274: End If;
275: If (p_rec.display_type = hr_api.g_varchar2) then
276: p_rec.display_type :=
277: hr_oty_shd.g_old_rec.display_type;
278: End If;
279: --
335: -- ----------------------------------------------------------------------------
336: Procedure upd
337: (p_option_type_id in number
338: ,p_object_version_number in out nocopy number
339: ,p_display_type in varchar2 default hr_api.g_varchar2
340: ) is
341: --
342: l_rec hr_oty_shd.g_rec_type;
343: l_proc varchar2(72) := g_package||'upd';
350: --
351: l_rec :=
352: hr_oty_shd.convert_args
353: (p_option_type_id
354: ,hr_api.g_varchar2
355: ,p_display_type
356: ,p_object_version_number
357: );
358: --