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: irc_apa_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: irc_apa_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: irc_apa_shd.constraint_error
83: -- A check constraint has been violated
84: --
85: irc_apa_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: irc_apa_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: irc_apa_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: irc_apa_shd.constraint_error
88: -- Parent integrity has been violated
89: --
90: irc_apa_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: irc_apa_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: irc_apa_shd.constraint_error
96: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
97: When Others Then
98: --
99: Raise;
100: End update_dml;
199: );
200: --
201: exception
202: --
203: when hr_api.cannot_find_prog_unit then
204: --
205: hr_api.cannot_find_prog_unit_error
206: (p_module_name => 'IRC_APL_PROFILE_ACCESS'
207: ,p_hook_type => 'AU');
201: exception
202: --
203: when hr_api.cannot_find_prog_unit then
204: --
205: hr_api.cannot_find_prog_unit_error
206: (p_module_name => 'IRC_APL_PROFILE_ACCESS'
207: ,p_hook_type => 'AU');
208: --
209: end;
264: -- p_rec plsql record structure
265: -- to see if a system default is being used. If a system default
266: -- is being used then we must set to the 'current' argument value.
267: --
268: If (p_rec.person_id = hr_api.g_number) then
269: p_rec.person_id :=
270: irc_apa_shd.g_old_rec.person_id;
271: End If;
272: --
328: -- ----------------------------------------------------------------------------
329: Procedure upd
330: (p_apl_profile_access_id in number
331: ,p_object_version_number in out nocopy number
332: ,p_person_id in number default hr_api.g_number
333: ) is
334: --
335: l_rec irc_apa_shd.g_rec_type;
336: l_proc varchar2(72) := g_package||'upd';