15: --
16: l_proc varchar2(72) := g_package||'return_api_dml_status';
17: --
18: Begin
19: hr_utility.set_location('Entering:'||l_proc, 5);
20: --
21: Return (nvl(g_api_dml, false));
22: --
23: hr_utility.set_location(' Leaving:'||l_proc, 10);
19: hr_utility.set_location('Entering:'||l_proc, 5);
20: --
21: Return (nvl(g_api_dml, false));
22: --
23: hr_utility.set_location(' Leaving:'||l_proc, 10);
24: End return_api_dml_status;
25: --
26: -- ----------------------------------------------------------------------------
27: -- |---------------------------< constraint_error >---------------------------|
31: --
32: l_proc varchar2(72) := g_package||'constraint_error';
33: --
34: Begin
35: hr_utility.set_location('Entering:'||l_proc, 5);
36: --
37: If (p_constraint_name = 'BEN_eligy_criteria_FK1') Then
38: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
39: hr_utility.set_message_token('PROCEDURE', l_proc);
34: Begin
35: hr_utility.set_location('Entering:'||l_proc, 5);
36: --
37: If (p_constraint_name = 'BEN_eligy_criteria_FK1') Then
38: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
39: hr_utility.set_message_token('PROCEDURE', l_proc);
40: hr_utility.set_message_token('STEP','5');
41: hr_utility.raise_error;
42: ElsIf (p_constraint_name = 'BEN_eligy_criteria_PK') Then
35: hr_utility.set_location('Entering:'||l_proc, 5);
36: --
37: If (p_constraint_name = 'BEN_eligy_criteria_FK1') Then
38: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
39: hr_utility.set_message_token('PROCEDURE', l_proc);
40: hr_utility.set_message_token('STEP','5');
41: hr_utility.raise_error;
42: ElsIf (p_constraint_name = 'BEN_eligy_criteria_PK') Then
43: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
36: --
37: If (p_constraint_name = 'BEN_eligy_criteria_FK1') Then
38: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
39: hr_utility.set_message_token('PROCEDURE', l_proc);
40: hr_utility.set_message_token('STEP','5');
41: hr_utility.raise_error;
42: ElsIf (p_constraint_name = 'BEN_eligy_criteria_PK') Then
43: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
44: hr_utility.set_message_token('PROCEDURE', l_proc);
37: If (p_constraint_name = 'BEN_eligy_criteria_FK1') Then
38: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
39: hr_utility.set_message_token('PROCEDURE', l_proc);
40: hr_utility.set_message_token('STEP','5');
41: hr_utility.raise_error;
42: ElsIf (p_constraint_name = 'BEN_eligy_criteria_PK') Then
43: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
44: hr_utility.set_message_token('PROCEDURE', l_proc);
45: hr_utility.set_message_token('STEP','10');
39: hr_utility.set_message_token('PROCEDURE', l_proc);
40: hr_utility.set_message_token('STEP','5');
41: hr_utility.raise_error;
42: ElsIf (p_constraint_name = 'BEN_eligy_criteria_PK') Then
43: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
44: hr_utility.set_message_token('PROCEDURE', l_proc);
45: hr_utility.set_message_token('STEP','10');
46: hr_utility.raise_error;
47:
40: hr_utility.set_message_token('STEP','5');
41: hr_utility.raise_error;
42: ElsIf (p_constraint_name = 'BEN_eligy_criteria_PK') Then
43: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
44: hr_utility.set_message_token('PROCEDURE', l_proc);
45: hr_utility.set_message_token('STEP','10');
46: hr_utility.raise_error;
47:
48: Else
41: hr_utility.raise_error;
42: ElsIf (p_constraint_name = 'BEN_eligy_criteria_PK') Then
43: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
44: hr_utility.set_message_token('PROCEDURE', l_proc);
45: hr_utility.set_message_token('STEP','10');
46: hr_utility.raise_error;
47:
48: Else
49: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
42: ElsIf (p_constraint_name = 'BEN_eligy_criteria_PK') Then
43: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
44: hr_utility.set_message_token('PROCEDURE', l_proc);
45: hr_utility.set_message_token('STEP','10');
46: hr_utility.raise_error;
47:
48: Else
49: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
50: hr_utility.set_message_token('PROCEDURE', l_proc);
45: hr_utility.set_message_token('STEP','10');
46: hr_utility.raise_error;
47:
48: Else
49: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
50: hr_utility.set_message_token('PROCEDURE', l_proc);
51: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
52: hr_utility.raise_error;
53: End If;
46: hr_utility.raise_error;
47:
48: Else
49: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
50: hr_utility.set_message_token('PROCEDURE', l_proc);
51: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
52: hr_utility.raise_error;
53: End If;
54: --
47:
48: Else
49: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
50: hr_utility.set_message_token('PROCEDURE', l_proc);
51: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
52: hr_utility.raise_error;
53: End If;
54: --
55: hr_utility.set_location(' Leaving:'||l_proc, 10);
48: Else
49: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
50: hr_utility.set_message_token('PROCEDURE', l_proc);
51: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
52: hr_utility.raise_error;
53: End If;
54: --
55: hr_utility.set_location(' Leaving:'||l_proc, 10);
56: End constraint_error;
51: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
52: hr_utility.raise_error;
53: End If;
54: --
55: hr_utility.set_location(' Leaving:'||l_proc, 10);
56: End constraint_error;
57: --
58: -- ----------------------------------------------------------------------------
59: -- |-----------------------------< api_updating >-----------------------------|
137: l_proc varchar2(72) := g_package||'api_updating';
138: l_fct_ret boolean;
139: --
140: Begin
141: hr_utility.set_location('Entering:'||l_proc, 5);
142: --
143: If (
144: p_eligy_criteria_id is null and
145: p_object_version_number is null
170: Close C_Sel1;
171: --
172: -- The primary key is invalid therefore we must error
173: --
174: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
175: hr_utility.raise_error;
176: End If;
177: Close C_Sel1;
178: If (p_object_version_number <> g_old_rec.object_version_number) Then
171: --
172: -- The primary key is invalid therefore we must error
173: --
174: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
175: hr_utility.raise_error;
176: End If;
177: Close C_Sel1;
178: If (p_object_version_number <> g_old_rec.object_version_number) Then
179: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
175: hr_utility.raise_error;
176: End If;
177: Close C_Sel1;
178: If (p_object_version_number <> g_old_rec.object_version_number) Then
179: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
180: hr_utility.raise_error;
181: End If;
182:
183: l_fct_ret := true;
176: End If;
177: Close C_Sel1;
178: If (p_object_version_number <> g_old_rec.object_version_number) Then
179: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
180: hr_utility.raise_error;
181: End If;
182:
183: l_fct_ret := true;
184: End If;
182:
183: l_fct_ret := true;
184: End If;
185: End If;
186: hr_utility.set_location(' Leaving:'||l_proc, 20);
187: Return (l_fct_ret);
188: --
189: End api_updating;
190: --
269: --
270: l_proc varchar2(72) := g_package||'lck';
271: --
272: Begin
273: hr_utility.set_location('Entering:'||l_proc, 5);
274: --
275:
276: -- Add any mandatory argument checking here:
277: -- Example:
288: --
289: -- The primary key is invalid therefore we must error
290: --
291:
292: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
293: hr_utility.raise_error;
294: End If;
295: Close C_Sel1;
296:
289: -- The primary key is invalid therefore we must error
290: --
291:
292: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
293: hr_utility.raise_error;
294: End If;
295: Close C_Sel1;
296:
297: If (p_object_version_number <> g_old_rec.object_version_number) Then
294: End If;
295: Close C_Sel1;
296:
297: If (p_object_version_number <> g_old_rec.object_version_number) Then
298: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
299: hr_utility.raise_error;
300: End If;
301: --
302: hr_utility.set_location(' Leaving:'||l_proc, 10);
295: Close C_Sel1;
296:
297: If (p_object_version_number <> g_old_rec.object_version_number) Then
298: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
299: hr_utility.raise_error;
300: End If;
301: --
302: hr_utility.set_location(' Leaving:'||l_proc, 10);
303: --
298: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
299: hr_utility.raise_error;
300: End If;
301: --
302: hr_utility.set_location(' Leaving:'||l_proc, 10);
303: --
304: -- We need to trap the ORA LOCK exception
305: --
306: Exception
308: --
309: -- The object is locked therefore we need to supply a meaningful
310: -- error message.
311: --
312: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
313: hr_utility.set_message_token('TABLE_NAME', 'ben_eligy_criteria');
314: hr_utility.raise_error;
315: End lck;
316: --
309: -- The object is locked therefore we need to supply a meaningful
310: -- error message.
311: --
312: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
313: hr_utility.set_message_token('TABLE_NAME', 'ben_eligy_criteria');
314: hr_utility.raise_error;
315: End lck;
316: --
317: -- ----------------------------------------------------------------------------
310: -- error message.
311: --
312: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
313: hr_utility.set_message_token('TABLE_NAME', 'ben_eligy_criteria');
314: hr_utility.raise_error;
315: End lck;
316: --
317: -- ----------------------------------------------------------------------------
318: -- |-----------------------------< convert_args >-----------------------------|
388: l_proc varchar2(72) := g_package||'convert_args';
389: --
390: Begin
391: --
392: hr_utility.set_location('Entering:'||l_proc, 5);
393: --
394: -- Convert arguments into local l_rec structure.
395: --
396: l_rec.eligy_criteria_id := p_eligy_criteria_id;
458:
459: --
460: -- Return the plsql record structure.
461: --
462: hr_utility.set_location(' Leaving:'||l_proc, 10);
463: Return(l_rec);
464: --
465: End convert_args;
466: --