53: --
54: -- {End Of Comments}
55: -- ----------------------------------------------------------------------------
56: Procedure update_dml
57: (p_rec in out nocopy hxc_lkr_shd.g_rec_type
58: ) is
59: --
60: l_proc varchar2(72);
61: --
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));
99: When hr_api.parent_integrity_violated Then
100: -- Parent integrity has been violated
101: --
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));
104: When hr_api.unique_integrity_violated Then
105: -- Unique integrity has been violated
106: --
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));
109: When Others Then
110: --
111: Raise;
143: --
144: -- {End Of Comments}
145: -- ----------------------------------------------------------------------------
146: Procedure pre_update
147: (p_rec in hxc_lkr_shd.g_rec_type
148: ) is
149: --
150: l_proc varchar2(72);
151: --
192: --
193: -- {End Of Comments}
194: -- ----------------------------------------------------------------------------
195: Procedure post_update
196: (p_rec in hxc_lkr_shd.g_rec_type
197: ) is
198: --
199: l_proc varchar2(72);
200: --
215: => p_rec.locker_type_requestor_id
216: ,p_grant_lock
217: => p_rec.grant_lock
218: ,p_grant_lock_o
219: => hxc_lkr_shd.g_old_rec.grant_lock
220: );
221:
222: --
223: exception
278: --
279: -- {End Of Comments}
280: -- ----------------------------------------------------------------------------
281: Procedure convert_defs
282: (p_rec in out nocopy hxc_lkr_shd.g_rec_type
283: ) is
284: --
285: Begin
286: --
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: --
297: End convert_defs;
298: --
299: -- ----------------------------------------------------------------------------
300: -- |---------------------------------< upd >----------------------------------|
301: -- ----------------------------------------------------------------------------
302: Procedure upd
303: (p_rec in out nocopy hxc_lkr_shd.g_rec_type
304: ) is
305: --
306: l_proc varchar2(72);
307: --
314: end if;
315: --
316: -- We must lock the row which we need to update.
317: --
318: hxc_lkr_shd.lck
319: (p_rec.locker_type_owner_id
320: ,p_rec.locker_type_requestor_id
321: );
322: --
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);
366: --
367: Begin
368: g_debug := hr_utility.debug_enabled;
375: -- Call conversion function to turn arguments into the
376: -- l_rec structure.
377: --
378: l_rec :=
379: hxc_lkr_shd.convert_args
380: (p_locker_type_owner_id
381: ,p_locker_type_requestor_id
382: ,p_grant_lock
383: );