67: --
68: hr_utility.set_location(' Leaving:'||l_proc, 10);
69: --
70: Exception
71: When hr_api.check_integrity_violated Then
72: -- A check constraint has been violated
73: pay_tco_shd.constraint_error
74: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
75: When hr_api.parent_integrity_violated Then
70: Exception
71: When hr_api.check_integrity_violated Then
72: -- A check constraint has been violated
73: pay_tco_shd.constraint_error
74: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
75: When hr_api.parent_integrity_violated Then
76: -- Parent integrity has been violated
77: pay_tco_shd.constraint_error
78: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
71: When hr_api.check_integrity_violated Then
72: -- A check constraint has been violated
73: pay_tco_shd.constraint_error
74: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
75: When hr_api.parent_integrity_violated Then
76: -- Parent integrity has been violated
77: pay_tco_shd.constraint_error
78: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
79: When hr_api.unique_integrity_violated Then
74: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
75: When hr_api.parent_integrity_violated Then
76: -- Parent integrity has been violated
77: pay_tco_shd.constraint_error
78: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
79: When hr_api.unique_integrity_violated Then
80: -- Unique integrity has been violated
81: pay_tco_shd.constraint_error
82: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
75: When hr_api.parent_integrity_violated Then
76: -- Parent integrity has been violated
77: pay_tco_shd.constraint_error
78: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
79: When hr_api.unique_integrity_violated Then
80: -- Unique integrity has been violated
81: pay_tco_shd.constraint_error
82: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
83: When Others Then
78: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
79: When hr_api.unique_integrity_violated Then
80: -- Unique integrity has been violated
81: pay_tco_shd.constraint_error
82: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
83: When Others Then
84: Raise;
85: End update_dml;
86: --
224: -- p_rec plsql record structure
225: -- to see if a system default is being used. If a system default
226: -- is being used then we must set to the 'current' argument value.
227: --
228: If (p_rec.template_id = hr_api.g_number) then
229: p_rec.template_id :=
230: pay_tco_shd.g_old_rec.template_id;
231: End If;
232: If (p_rec.core_object_type = hr_api.g_varchar2) then
228: If (p_rec.template_id = hr_api.g_number) then
229: p_rec.template_id :=
230: pay_tco_shd.g_old_rec.template_id;
231: End If;
232: If (p_rec.core_object_type = hr_api.g_varchar2) then
233: p_rec.core_object_type :=
234: pay_tco_shd.g_old_rec.core_object_type;
235: End If;
236: If (p_rec.core_object_id = hr_api.g_number) then
232: If (p_rec.core_object_type = hr_api.g_varchar2) then
233: p_rec.core_object_type :=
234: pay_tco_shd.g_old_rec.core_object_type;
235: End If;
236: If (p_rec.core_object_id = hr_api.g_number) then
237: p_rec.core_object_id :=
238: pay_tco_shd.g_old_rec.core_object_id;
239: End If;
240: If (p_rec.shadow_object_id = hr_api.g_number) then
236: If (p_rec.core_object_id = hr_api.g_number) then
237: p_rec.core_object_id :=
238: pay_tco_shd.g_old_rec.core_object_id;
239: End If;
240: If (p_rec.shadow_object_id = hr_api.g_number) then
241: p_rec.shadow_object_id :=
242: pay_tco_shd.g_old_rec.shadow_object_id;
243: End If;
244: If (p_rec.effective_date = hr_api.g_date) then
240: If (p_rec.shadow_object_id = hr_api.g_number) then
241: p_rec.shadow_object_id :=
242: pay_tco_shd.g_old_rec.shadow_object_id;
243: End If;
244: If (p_rec.effective_date = hr_api.g_date) then
245: p_rec.effective_date :=
246: pay_tco_shd.g_old_rec.effective_date;
247: End If;
248:
299: -- ----------------------------------------------------------------------------
300: Procedure upd
301: (
302: p_template_core_object_id in number,
303: p_core_object_id in number default hr_api.g_number,
304: p_effective_date in date default hr_api.g_date,
305: p_object_version_number in out nocopy number
306: ) is
307: --
300: Procedure upd
301: (
302: p_template_core_object_id in number,
303: p_core_object_id in number default hr_api.g_number,
304: p_effective_date in date default hr_api.g_date,
305: p_object_version_number in out nocopy number
306: ) is
307: --
308: l_rec pay_tco_shd.g_rec_type;
317: l_rec :=
318: pay_tco_shd.convert_args
319: (
320: p_template_core_object_id,
321: hr_api.g_number,
322: hr_api.g_varchar2,
323: p_core_object_id,
324: hr_api.g_number,
325: p_effective_date,
318: pay_tco_shd.convert_args
319: (
320: p_template_core_object_id,
321: hr_api.g_number,
322: hr_api.g_varchar2,
323: p_core_object_id,
324: hr_api.g_number,
325: p_effective_date,
326: p_object_version_number
320: p_template_core_object_id,
321: hr_api.g_number,
322: hr_api.g_varchar2,
323: p_core_object_id,
324: hr_api.g_number,
325: p_effective_date,
326: p_object_version_number
327: );
328: --