72: --
73: hr_utility.set_location(' Leaving:'||l_proc, 10);
74: --
75: Exception
76: When hr_api.check_integrity_violated Then
77: -- A check constraint has been violated
78: pay_sf_shd.constraint_error
79: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
80: When hr_api.parent_integrity_violated Then
75: Exception
76: When hr_api.check_integrity_violated Then
77: -- A check constraint has been violated
78: pay_sf_shd.constraint_error
79: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
80: When hr_api.parent_integrity_violated Then
81: -- Parent integrity has been violated
82: pay_sf_shd.constraint_error
83: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
76: When hr_api.check_integrity_violated Then
77: -- A check constraint has been violated
78: pay_sf_shd.constraint_error
79: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
80: When hr_api.parent_integrity_violated Then
81: -- Parent integrity has been violated
82: pay_sf_shd.constraint_error
83: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
84: When hr_api.unique_integrity_violated Then
79: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
80: When hr_api.parent_integrity_violated Then
81: -- Parent integrity has been violated
82: pay_sf_shd.constraint_error
83: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
84: When hr_api.unique_integrity_violated Then
85: -- Unique integrity has been violated
86: pay_sf_shd.constraint_error
87: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
80: When hr_api.parent_integrity_violated Then
81: -- Parent integrity has been violated
82: pay_sf_shd.constraint_error
83: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
84: When hr_api.unique_integrity_violated Then
85: -- Unique integrity has been violated
86: pay_sf_shd.constraint_error
87: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
88: When Others Then
83: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
84: When hr_api.unique_integrity_violated Then
85: -- Unique integrity has been violated
86: pay_sf_shd.constraint_error
87: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
88: When Others Then
89: Raise;
90: End update_dml;
91: --
229: -- p_rec plsql record structure
230: -- to see if a system default is being used. If a system default
231: -- is being used then we must set to the 'current' argument value.
232: --
233: If (p_rec.template_type = hr_api.g_varchar2) then
234: p_rec.template_type :=
235: pay_sf_shd.g_old_rec.template_type;
236: End If;
237: If (p_rec.legislation_code = hr_api.g_varchar2) then
233: If (p_rec.template_type = hr_api.g_varchar2) then
234: p_rec.template_type :=
235: pay_sf_shd.g_old_rec.template_type;
236: End If;
237: If (p_rec.legislation_code = hr_api.g_varchar2) then
238: p_rec.legislation_code :=
239: pay_sf_shd.g_old_rec.legislation_code;
240: End If;
241: If (p_rec.business_group_id = hr_api.g_number) then
237: If (p_rec.legislation_code = hr_api.g_varchar2) then
238: p_rec.legislation_code :=
239: pay_sf_shd.g_old_rec.legislation_code;
240: End If;
241: If (p_rec.business_group_id = hr_api.g_number) then
242: p_rec.business_group_id :=
243: pay_sf_shd.g_old_rec.business_group_id;
244: End If;
245: If (p_rec.formula_name = hr_api.g_varchar2) then
241: If (p_rec.business_group_id = hr_api.g_number) then
242: p_rec.business_group_id :=
243: pay_sf_shd.g_old_rec.business_group_id;
244: End If;
245: If (p_rec.formula_name = hr_api.g_varchar2) then
246: p_rec.formula_name :=
247: pay_sf_shd.g_old_rec.formula_name;
248: End If;
249: If (p_rec.description = hr_api.g_varchar2) then
245: If (p_rec.formula_name = hr_api.g_varchar2) then
246: p_rec.formula_name :=
247: pay_sf_shd.g_old_rec.formula_name;
248: End If;
249: If (p_rec.description = hr_api.g_varchar2) then
250: p_rec.description :=
251: pay_sf_shd.g_old_rec.description;
252: End If;
253: If (p_rec.formula_text = hr_api.g_varchar2) then
249: If (p_rec.description = hr_api.g_varchar2) then
250: p_rec.description :=
251: pay_sf_shd.g_old_rec.description;
252: End If;
253: If (p_rec.formula_text = hr_api.g_varchar2) then
254: p_rec.formula_text :=
255: pay_sf_shd.g_old_rec.formula_text;
256: End If;
257: If (p_rec.formula_type_name = hr_api.g_varchar2) then
253: If (p_rec.formula_text = hr_api.g_varchar2) then
254: p_rec.formula_text :=
255: pay_sf_shd.g_old_rec.formula_text;
256: End If;
257: If (p_rec.formula_type_name = hr_api.g_varchar2) then
258: p_rec.formula_type_name :=
259: pay_sf_shd.g_old_rec.formula_type_name;
260: End If;
261:
314: Procedure upd
315: (
316: p_formula_id in number,
317: p_effective_date in date,
318: p_description in varchar2 default hr_api.g_varchar2,
319: p_formula_text in varchar2 default hr_api.g_varchar2,
320: p_object_version_number in out nocopy number
321: ) is
322: --
315: (
316: p_formula_id in number,
317: p_effective_date in date,
318: p_description in varchar2 default hr_api.g_varchar2,
319: p_formula_text in varchar2 default hr_api.g_varchar2,
320: p_object_version_number in out nocopy number
321: ) is
322: --
323: l_rec pay_sf_shd.g_rec_type;
332: l_rec :=
333: pay_sf_shd.convert_args
334: (
335: p_formula_id,
336: hr_api.g_varchar2,
337: hr_api.g_varchar2,
338: hr_api.g_number,
339: hr_api.g_varchar2,
340: p_description,
333: pay_sf_shd.convert_args
334: (
335: p_formula_id,
336: hr_api.g_varchar2,
337: hr_api.g_varchar2,
338: hr_api.g_number,
339: hr_api.g_varchar2,
340: p_description,
341: p_formula_text,
334: (
335: p_formula_id,
336: hr_api.g_varchar2,
337: hr_api.g_varchar2,
338: hr_api.g_number,
339: hr_api.g_varchar2,
340: p_description,
341: p_formula_text,
342: hr_api.g_varchar2,
335: p_formula_id,
336: hr_api.g_varchar2,
337: hr_api.g_varchar2,
338: hr_api.g_number,
339: hr_api.g_varchar2,
340: p_description,
341: p_formula_text,
342: hr_api.g_varchar2,
343: p_object_version_number
338: hr_api.g_number,
339: hr_api.g_varchar2,
340: p_description,
341: p_formula_text,
342: hr_api.g_varchar2,
343: p_object_version_number
344: );
345: --
346: -- Having converted the arguments into the