17: --
18: Begin
19: hr_utility.set_location('Entering:'||l_proc, 5);
20: --
21: If (p_constraint_name = 'HR_API_MODULES_CK1') Then
22: hr_utility.set_message(800, 'PER_52121_AMD_MOD_TYPE_INV');
23: hr_utility.raise_error;
24: ElsIf (p_constraint_name = 'HR_API_MODULES_CK2') Then
25: hr_utility.set_message(800, 'PER_52122_AMD_DATA_WBG_INV');
20: --
21: If (p_constraint_name = 'HR_API_MODULES_CK1') Then
22: hr_utility.set_message(800, 'PER_52121_AMD_MOD_TYPE_INV');
23: hr_utility.raise_error;
24: ElsIf (p_constraint_name = 'HR_API_MODULES_CK2') Then
25: hr_utility.set_message(800, 'PER_52122_AMD_DATA_WBG_INV');
26: hr_utility.raise_error;
27: --
28: --
28: --
29: -- This constraint will never be called....handled in the
30: -- procedure chk_module_package
31: --
32: ElsIf (p_constraint_name = 'HR_API_MODULES_CK3') Then
33: hr_utility.set_message(800, 'HR_6153_ALL_PROCEDURE_FAIL');
34: hr_utility.set_message_token('PROCEDURE', l_proc);
35: hr_utility.set_message_token('STEP','15');
36: hr_utility.raise_error;
33: hr_utility.set_message(800, 'HR_6153_ALL_PROCEDURE_FAIL');
34: hr_utility.set_message_token('PROCEDURE', l_proc);
35: hr_utility.set_message_token('STEP','15');
36: hr_utility.raise_error;
37: ElsIf (p_constraint_name = 'HR_API_MODULES_PK') Then
38: hr_utility.set_message(800, 'HR_6153_ALL_PROCEDURE_FAIL');
39: hr_utility.set_message_token('PROCEDURE', l_proc);
40: hr_utility.set_message_token('STEP','20');
41: hr_utility.raise_error;
38: hr_utility.set_message(800, 'HR_6153_ALL_PROCEDURE_FAIL');
39: hr_utility.set_message_token('PROCEDURE', l_proc);
40: hr_utility.set_message_token('STEP','20');
41: hr_utility.raise_error;
42: ElsIf (p_constraint_name = 'HR_API_MODULES_UK1') Then
43: hr_utility.set_message(800, 'PER_52119_AMD_MOD_NAME_NOT_UNQ');
44: hr_utility.set_message_token('PROCEDURE', l_proc);
45: hr_utility.set_message_token('STEP','25');
46: hr_utility.raise_error;
72: module_name,
73: data_within_business_group,
74: legislation_code,
75: module_package
76: from hr_api_modules
77: where api_module_id = p_api_module_id;
78: --
79: l_proc varchar2(72) := g_package||'api_updating';
80: l_fct_ret boolean;
143: module_name,
144: data_within_business_group,
145: legislation_code,
146: module_package
147: from hr_api_modules
148: where api_module_id = p_api_module_id
149: for update nowait;
150: --
151: l_proc varchar2(72) := g_package||'lck';
154: hr_utility.set_location('Entering:'||l_proc, 5);
155: --
156: -- Add any mandatory argument checking here:
157: -- Example:
158: -- hr_api.mandatory_arg_error
159: -- (p_api_name => l_proc,
160: -- p_argument => 'object_version_number',
161: -- p_argument_value => p_object_version_number);
162: --
181: --
182: -- We need to trap the ORA LOCK exception
183: --
184: Exception
185: When HR_Api.Object_Locked then
186: --
187: -- The object is locked therefore we need to supply a meaningful
188: -- error message.
189: --
187: -- The object is locked therefore we need to supply a meaningful
188: -- error message.
189: --
190: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
191: hr_utility.set_message_token('TABLE_NAME', 'hr_api_modules');
192: hr_utility.raise_error;
193: End lck;
194: --
195: -- ----------------------------------------------------------------------------