70: --
71: hr_utility.set_location(' Leaving:'||l_proc, 10);
72: --
73: Exception
74: When hr_api.check_integrity_violated Then
75: -- A check constraint has been violated
76: per_stt_shd.constraint_error
77: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
78: When hr_api.parent_integrity_violated Then
73: Exception
74: When hr_api.check_integrity_violated Then
75: -- A check constraint has been violated
76: per_stt_shd.constraint_error
77: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
78: When hr_api.parent_integrity_violated Then
79: -- Parent integrity has been violated
80: per_stt_shd.constraint_error
81: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
74: When hr_api.check_integrity_violated Then
75: -- A check constraint has been violated
76: per_stt_shd.constraint_error
77: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
78: When hr_api.parent_integrity_violated Then
79: -- Parent integrity has been violated
80: per_stt_shd.constraint_error
81: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
82: When hr_api.unique_integrity_violated Then
77: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
78: When hr_api.parent_integrity_violated Then
79: -- Parent integrity has been violated
80: per_stt_shd.constraint_error
81: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
82: When hr_api.unique_integrity_violated Then
83: -- Unique integrity has been violated
84: per_stt_shd.constraint_error
85: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
78: When hr_api.parent_integrity_violated Then
79: -- Parent integrity has been violated
80: per_stt_shd.constraint_error
81: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
82: When hr_api.unique_integrity_violated Then
83: -- Unique integrity has been violated
84: per_stt_shd.constraint_error
85: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
86: When Others Then
81: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
82: When hr_api.unique_integrity_violated Then
83: -- Unique integrity has been violated
84: per_stt_shd.constraint_error
85: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
86: When Others Then
87: Raise;
88: End update_dml;
89: --
185: );
186: --
187: exception
188: --
189: when hr_api.cannot_find_prog_unit then
190: --
191: hr_api.cannot_find_prog_unit_error
192: (p_module_name => 'per_shared_types_tl'
193: ,p_hook_type => 'AU');
187: exception
188: --
189: when hr_api.cannot_find_prog_unit then
190: --
191: hr_api.cannot_find_prog_unit_error
192: (p_module_name => 'per_shared_types_tl'
193: ,p_hook_type => 'AU');
194: --
195: end;
255: -- p_rec plsql record structure
256: -- to see if a system default is being used. If a system default
257: -- is being used then we must set to the 'current' argument value.
258: --
259: If (p_rec.source_lang = hr_api.g_varchar2) then
260: p_rec.source_lang :=
261: per_stt_shd.g_old_rec.source_lang;
262: End If;
263: If (p_rec.shared_type_name = hr_api.g_varchar2) then
259: If (p_rec.source_lang = hr_api.g_varchar2) then
260: p_rec.source_lang :=
261: per_stt_shd.g_old_rec.source_lang;
262: End If;
263: If (p_rec.shared_type_name = hr_api.g_varchar2) then
264: p_rec.shared_type_name :=
265: per_stt_shd.g_old_rec.shared_type_name;
266: End If;
267: --
318: Procedure upd
319: (
320: p_shared_type_id in number,
321: p_language in varchar2,
322: p_source_lang in varchar2 default hr_api.g_varchar2,
323: p_shared_type_name in varchar2 default hr_api.g_varchar2
324: ) is
325: --
326: l_rec per_stt_shd.g_rec_type;
319: (
320: p_shared_type_id in number,
321: p_language in varchar2,
322: p_source_lang in varchar2 default hr_api.g_varchar2,
323: p_shared_type_name in varchar2 default hr_api.g_varchar2
324: ) is
325: --
326: l_rec per_stt_shd.g_rec_type;
327: l_proc varchar2(72) := g_package||'upd';
353: --
354: procedure upd_tl (
355: p_language_code in varchar2,
356: p_shared_type_id in number,
357: p_shared_type_name in varchar2 default hr_api.g_varchar2 )
358: is
359: cursor csr_upd_langs is
360: select stt.language
361: from per_shared_types_tl stt