17: l_proc varchar2(72) := g_package||'constraint_error';
18: --
19: Begin
20: --
21: hr_utility.set_location('Entering:'||l_proc, 5);
22: --
23: -- Key constraints
24: --
25: If (p_constraint_name = 'OTA_RESOURCE_USAGES_FK1') Then
42: ElsIf (p_constraint_name = 'OTA_RUD_EXCLUSIVITY') Then
43: fnd_message.set_name ('OTA', 'OTA_13253_RUD_EXCLUSIVITY');
44: fnd_message.raise_error;
45: ElsIf (p_constraint_name = 'OTA_RUD_REQUIRED_FLAG_CHK') Then
46: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
47: hr_utility.set_message_token('PROCEDURE', l_proc);
48: hr_utility.set_message_token('STEP','30');
49: hr_utility.raise_error;
50: ElsIf (p_constraint_name = 'OTA_RUD_RESOURCE_ROLE') Then
43: fnd_message.set_name ('OTA', 'OTA_13253_RUD_EXCLUSIVITY');
44: fnd_message.raise_error;
45: ElsIf (p_constraint_name = 'OTA_RUD_REQUIRED_FLAG_CHK') Then
46: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
47: hr_utility.set_message_token('PROCEDURE', l_proc);
48: hr_utility.set_message_token('STEP','30');
49: hr_utility.raise_error;
50: ElsIf (p_constraint_name = 'OTA_RUD_RESOURCE_ROLE') Then
51: fnd_message.set_name ('OTA', 'OTA_13254_RUD_RESOURCE_ROLE');
44: fnd_message.raise_error;
45: ElsIf (p_constraint_name = 'OTA_RUD_REQUIRED_FLAG_CHK') Then
46: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
47: hr_utility.set_message_token('PROCEDURE', l_proc);
48: hr_utility.set_message_token('STEP','30');
49: hr_utility.raise_error;
50: ElsIf (p_constraint_name = 'OTA_RUD_RESOURCE_ROLE') Then
51: fnd_message.set_name ('OTA', 'OTA_13254_RUD_RESOURCE_ROLE');
52: fnd_message.raise_error;
45: ElsIf (p_constraint_name = 'OTA_RUD_REQUIRED_FLAG_CHK') Then
46: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
47: hr_utility.set_message_token('PROCEDURE', l_proc);
48: hr_utility.set_message_token('STEP','30');
49: hr_utility.raise_error;
50: ElsIf (p_constraint_name = 'OTA_RUD_RESOURCE_ROLE') Then
51: fnd_message.set_name ('OTA', 'OTA_13254_RUD_RESOURCE_ROLE');
52: fnd_message.raise_error;
53: --
65: elsif (p_constraint_name = 'OTA_RUD_BUSINESS_GROUPS') then
66: fnd_message.set_name ('OTA', 'OTA_13247_RUD_SAME_BIZ_GROUP');
67: fnd_message.raise_error;
68: elsif (p_constraint_name = 'OTA_RUD_REQUIRED') then
69: HR_UTILITY.SET_MESSAGE (801,'HR_7166_OBJECT_CHK_CONSTRAINT');
70: HR_UTILITY.SET_MESSAGE_TOKEN ('CONSTRAINT_NAME', 'OTA_RUD_REQUIRED');
71: HR_UTILITY.SET_MESSAGE_TOKEN ('TABLE_NAME', 'OTA_RESOURCE_USAGES');
72: HR_UTILITY.raise_error;
73: --
66: fnd_message.set_name ('OTA', 'OTA_13247_RUD_SAME_BIZ_GROUP');
67: fnd_message.raise_error;
68: elsif (p_constraint_name = 'OTA_RUD_REQUIRED') then
69: HR_UTILITY.SET_MESSAGE (801,'HR_7166_OBJECT_CHK_CONSTRAINT');
70: HR_UTILITY.SET_MESSAGE_TOKEN ('CONSTRAINT_NAME', 'OTA_RUD_REQUIRED');
71: HR_UTILITY.SET_MESSAGE_TOKEN ('TABLE_NAME', 'OTA_RESOURCE_USAGES');
72: HR_UTILITY.raise_error;
73: --
74: --
67: fnd_message.raise_error;
68: elsif (p_constraint_name = 'OTA_RUD_REQUIRED') then
69: HR_UTILITY.SET_MESSAGE (801,'HR_7166_OBJECT_CHK_CONSTRAINT');
70: HR_UTILITY.SET_MESSAGE_TOKEN ('CONSTRAINT_NAME', 'OTA_RUD_REQUIRED');
71: HR_UTILITY.SET_MESSAGE_TOKEN ('TABLE_NAME', 'OTA_RESOURCE_USAGES');
72: HR_UTILITY.raise_error;
73: --
74: --
75: Else
68: elsif (p_constraint_name = 'OTA_RUD_REQUIRED') then
69: HR_UTILITY.SET_MESSAGE (801,'HR_7166_OBJECT_CHK_CONSTRAINT');
70: HR_UTILITY.SET_MESSAGE_TOKEN ('CONSTRAINT_NAME', 'OTA_RUD_REQUIRED');
71: HR_UTILITY.SET_MESSAGE_TOKEN ('TABLE_NAME', 'OTA_RESOURCE_USAGES');
72: HR_UTILITY.raise_error;
73: --
74: --
75: Else
76: fnd_message.set_name ('OTA', 'OTA_13259_GEN_UNKN_CONSTRAINT');
78: fnd_message.set_token ('CONSTRAINT', p_constraint_name);
79: fnd_message.raise_error;
80: End If;
81: --
82: hr_utility.set_location(' Leaving:'||l_proc, 10);
83: --
84: End constraint_error;
85: --
86: -- ----------------------------------------------------------------------------
167: Close C_Sel1;
168: --
169: -- The primary key is invalid therefore we must error
170: --
171: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
172: hr_utility.raise_error;
173: End If;
174: Close C_Sel1;
175: If (p_object_version_number
168: --
169: -- The primary key is invalid therefore we must error
170: --
171: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
172: hr_utility.raise_error;
173: End If;
174: Close C_Sel1;
175: If (p_object_version_number
176: <> ota_rud_shd.g_old_rec.object_version_number) Then
173: End If;
174: Close C_Sel1;
175: If (p_object_version_number
176: <> ota_rud_shd.g_old_rec.object_version_number) Then
177: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
178: hr_utility.raise_error;
179: End If;
180: l_fct_ret := true;
181: End If;
174: Close C_Sel1;
175: If (p_object_version_number
176: <> ota_rud_shd.g_old_rec.object_version_number) Then
177: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
178: hr_utility.raise_error;
179: End If;
180: l_fct_ret := true;
181: End If;
182: End If;
235: --
236: l_proc varchar2(72) := g_package||'lck';
237: --
238: Begin
239: hr_utility.set_location('Entering:'||l_proc, 5);
240: --
241: -- Add any mandatory argument checking here:
242: -- Example:
243: -- hr_api.mandatory_arg_error
251: Close C_Sel1;
252: --
253: -- The primary key is invalid therefore we must error
254: --
255: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
256: hr_utility.raise_error;
257: End If;
258: Close C_Sel1;
259: If (p_object_version_number <> g_old_rec.object_version_number) Then
252: --
253: -- The primary key is invalid therefore we must error
254: --
255: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
256: hr_utility.raise_error;
257: End If;
258: Close C_Sel1;
259: If (p_object_version_number <> g_old_rec.object_version_number) Then
260: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
256: hr_utility.raise_error;
257: End If;
258: Close C_Sel1;
259: If (p_object_version_number <> g_old_rec.object_version_number) Then
260: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
261: hr_utility.raise_error;
262: End If;
263: --
264: hr_utility.set_location(' Leaving:'||l_proc, 10);
257: End If;
258: Close C_Sel1;
259: If (p_object_version_number <> g_old_rec.object_version_number) Then
260: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
261: hr_utility.raise_error;
262: End If;
263: --
264: hr_utility.set_location(' Leaving:'||l_proc, 10);
265: --
260: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
261: hr_utility.raise_error;
262: End If;
263: --
264: hr_utility.set_location(' Leaving:'||l_proc, 10);
265: --
266: -- We need to trap the ORA LOCK exception
267: --
268: Exception
270: --
271: -- The object is locked therefore we need to supply a meaningful
272: -- error message.
273: --
274: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
275: hr_utility.set_message_token('TABLE_NAME', 'ota_resource_usages');
276: hr_utility.raise_error;
277: End lck;
278: --
271: -- The object is locked therefore we need to supply a meaningful
272: -- error message.
273: --
274: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
275: hr_utility.set_message_token('TABLE_NAME', 'ota_resource_usages');
276: hr_utility.raise_error;
277: End lck;
278: --
279: -- ----------------------------------------------------------------------------
272: -- error message.
273: --
274: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
275: hr_utility.set_message_token('TABLE_NAME', 'ota_resource_usages');
276: hr_utility.raise_error;
277: End lck;
278: --
279: -- ----------------------------------------------------------------------------
280: -- |-----------------------------< convert_args >-----------------------------|