90: hr_utility.set_location(' Leaving:'||l_proc, 10);
91: end if;
92: --
93: Exception
94: When hr_api.check_integrity_violated Then
95: -- A check constraint has been violated
96: --
97: hxc_lkr_shd.constraint_error
98: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
94: When hr_api.check_integrity_violated Then
95: -- A check constraint has been violated
96: --
97: hxc_lkr_shd.constraint_error
98: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
99: When hr_api.parent_integrity_violated Then
100: -- Parent integrity has been violated
101: --
102: hxc_lkr_shd.constraint_error
95: -- A check constraint has been violated
96: --
97: hxc_lkr_shd.constraint_error
98: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
99: When hr_api.parent_integrity_violated Then
100: -- Parent integrity has been violated
101: --
102: hxc_lkr_shd.constraint_error
103: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
99: When hr_api.parent_integrity_violated Then
100: -- Parent integrity has been violated
101: --
102: hxc_lkr_shd.constraint_error
103: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
104: When hr_api.unique_integrity_violated Then
105: -- Unique integrity has been violated
106: --
107: hxc_lkr_shd.constraint_error
100: -- Parent integrity has been violated
101: --
102: hxc_lkr_shd.constraint_error
103: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
104: When hr_api.unique_integrity_violated Then
105: -- Unique integrity has been violated
106: --
107: hxc_lkr_shd.constraint_error
108: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
104: When hr_api.unique_integrity_violated Then
105: -- Unique integrity has been violated
106: --
107: hxc_lkr_shd.constraint_error
108: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
109: When Others Then
110: --
111: Raise;
112: End update_dml;
221:
222: --
223: exception
224: --
225: when hr_api.cannot_find_prog_unit then
226: --
227: hr_api.cannot_find_prog_unit_error
228: (p_module_name => 'HXC_LOCKING_RULES'
229: ,p_hook_type => 'AU');
223: exception
224: --
225: when hr_api.cannot_find_prog_unit then
226: --
227: hr_api.cannot_find_prog_unit_error
228: (p_module_name => 'HXC_LOCKING_RULES'
229: ,p_hook_type => 'AU');
230: --
231: end;
288: -- p_rec plsql record structure
289: -- to see if a system default is being used. If a system default
290: -- is being used then we must set to the 'current' argument value.
291: --
292: If (p_rec.grant_lock = hr_api.g_varchar2) then
293: p_rec.grant_lock :=
294: hxc_lkr_shd.g_old_rec.grant_lock;
295: End If;
296: --
357: -- ----------------------------------------------------------------------------
358: Procedure upd
359: (p_locker_type_owner_id in number
360: ,p_locker_type_requestor_id in number
361: ,p_grant_lock in varchar2 default hr_api.g_varchar2
362: ) is
363: --
364: l_rec hxc_lkr_shd.g_rec_type;
365: l_proc varchar2(72);