69: --
70: hr_utility.set_location(' Leaving:'||l_proc, 10);
71: --
72: Exception
73: When hr_api.check_integrity_violated Then
74: -- A check constraint has been violated
75: pqh_rtl_shd.constraint_error
76: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
77: When hr_api.parent_integrity_violated Then
72: Exception
73: When hr_api.check_integrity_violated Then
74: -- A check constraint has been violated
75: pqh_rtl_shd.constraint_error
76: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
77: When hr_api.parent_integrity_violated Then
78: -- Parent integrity has been violated
79: pqh_rtl_shd.constraint_error
80: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
73: When hr_api.check_integrity_violated Then
74: -- A check constraint has been violated
75: pqh_rtl_shd.constraint_error
76: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
77: When hr_api.parent_integrity_violated Then
78: -- Parent integrity has been violated
79: pqh_rtl_shd.constraint_error
80: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
81: When hr_api.unique_integrity_violated Then
76: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
77: When hr_api.parent_integrity_violated Then
78: -- Parent integrity has been violated
79: pqh_rtl_shd.constraint_error
80: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
81: When hr_api.unique_integrity_violated Then
82: -- Unique integrity has been violated
83: pqh_rtl_shd.constraint_error
84: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
77: When hr_api.parent_integrity_violated Then
78: -- Parent integrity has been violated
79: pqh_rtl_shd.constraint_error
80: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
81: When hr_api.unique_integrity_violated Then
82: -- Unique integrity has been violated
83: pqh_rtl_shd.constraint_error
84: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
85: When Others Then
80: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
81: When hr_api.unique_integrity_violated Then
82: -- Unique integrity has been violated
83: pqh_rtl_shd.constraint_error
84: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
85: When Others Then
86: Raise;
87: End update_dml;
88: --
186: );
187: --
188: exception
189: --
190: when hr_api.cannot_find_prog_unit then
191: --
192: hr_api.cannot_find_prog_unit_error
193: (p_module_name => 'pqh_rule_sets_tl'
194: ,p_hook_type => 'AU');
188: exception
189: --
190: when hr_api.cannot_find_prog_unit then
191: --
192: hr_api.cannot_find_prog_unit_error
193: (p_module_name => 'pqh_rule_sets_tl'
194: ,p_hook_type => 'AU');
195: --
196: end;
256: -- p_rec plsql record structure
257: -- to see if a system default is being used. If a system default
258: -- is being used then we must set to the 'current' argument value.
259: --
260: If (p_rec.rule_set_name = hr_api.g_varchar2) then
261: p_rec.rule_set_name :=
262: pqh_rtl_shd.g_old_rec.rule_set_name;
263: End If;
264: If (p_rec.description = hr_api.g_varchar2) then
260: If (p_rec.rule_set_name = hr_api.g_varchar2) then
261: p_rec.rule_set_name :=
262: pqh_rtl_shd.g_old_rec.rule_set_name;
263: End If;
264: If (p_rec.description = hr_api.g_varchar2) then
265: p_rec.description :=
266: pqh_rtl_shd.g_old_rec.description;
267: End If;
268: If (p_rec.source_lang = hr_api.g_varchar2) then
264: If (p_rec.description = hr_api.g_varchar2) then
265: p_rec.description :=
266: pqh_rtl_shd.g_old_rec.description;
267: End If;
268: If (p_rec.source_lang = hr_api.g_varchar2) then
269: p_rec.source_lang :=
270: pqh_rtl_shd.g_old_rec.source_lang;
271: End If;
272: --
322: -- ----------------------------------------------------------------------------
323: Procedure upd
324: (
325: p_rule_set_id in number,
326: p_rule_set_name in varchar2 default hr_api.g_varchar2,
327: p_description in varchar2 default hr_api.g_varchar2,
328: p_language in varchar2,
329: p_source_lang in varchar2 default hr_api.g_varchar2
330: ) is
323: Procedure upd
324: (
325: p_rule_set_id in number,
326: p_rule_set_name in varchar2 default hr_api.g_varchar2,
327: p_description in varchar2 default hr_api.g_varchar2,
328: p_language in varchar2,
329: p_source_lang in varchar2 default hr_api.g_varchar2
330: ) is
331: --
325: p_rule_set_id in number,
326: p_rule_set_name in varchar2 default hr_api.g_varchar2,
327: p_description in varchar2 default hr_api.g_varchar2,
328: p_language in varchar2,
329: p_source_lang in varchar2 default hr_api.g_varchar2
330: ) is
331: --
332: l_rec pqh_rtl_shd.g_rec_type;
333: l_proc varchar2(72) := g_package||'upd';