14: --
15: l_proc varchar2(72) := g_package||'return_api_dml_status';
16: --
17: Begin
18: hr_utility.set_location('Entering:'||l_proc, 5);
19: --
20: Return (nvl(g_api_dml, false));
21: --
22: hr_utility.set_location(' Leaving:'||l_proc, 10);
18: hr_utility.set_location('Entering:'||l_proc, 5);
19: --
20: Return (nvl(g_api_dml, false));
21: --
22: hr_utility.set_location(' Leaving:'||l_proc, 10);
23: End return_api_dml_status;
24: --
25: -- ----------------------------------------------------------------------------
26: -- |---------------------------< constraint_error >---------------------------|
30: --
31: l_proc varchar2(72) := g_package||'constraint_error';
32: --
33: Begin
34: hr_utility.set_location('Entering:'||l_proc, 5);
35: --
36: If (p_constraint_name = 'PER_QUALIFICATION_TYPES_PK') Then
37: hr_utility.set_message(801, 'HR_51535_EQT_QUAL_TYPE_PK');
38: hr_utility.raise_error;
33: Begin
34: hr_utility.set_location('Entering:'||l_proc, 5);
35: --
36: If (p_constraint_name = 'PER_QUALIFICATION_TYPES_PK') Then
37: hr_utility.set_message(801, 'HR_51535_EQT_QUAL_TYPE_PK');
38: hr_utility.raise_error;
39: --
40: -- pmfletch. Now coded check in TL row handler
41: --
34: hr_utility.set_location('Entering:'||l_proc, 5);
35: --
36: If (p_constraint_name = 'PER_QUALIFICATION_TYPES_PK') Then
37: hr_utility.set_message(801, 'HR_51535_EQT_QUAL_TYPE_PK');
38: hr_utility.raise_error;
39: --
40: -- pmfletch. Now coded check in TL row handler
41: --
42: -- ElsIf (p_constraint_name = 'PER_QUALIFICATION_TYPES_UK') Then
39: --
40: -- pmfletch. Now coded check in TL row handler
41: --
42: -- ElsIf (p_constraint_name = 'PER_QUALIFICATION_TYPES_UK') Then
43: -- hr_utility.set_message(801, 'HR_51536_EQT_NAME_UK');
44: -- hr_utility.raise_error;
45: Else
46: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
47: hr_utility.set_message_token('PROCEDURE', l_proc);
40: -- pmfletch. Now coded check in TL row handler
41: --
42: -- ElsIf (p_constraint_name = 'PER_QUALIFICATION_TYPES_UK') Then
43: -- hr_utility.set_message(801, 'HR_51536_EQT_NAME_UK');
44: -- hr_utility.raise_error;
45: Else
46: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
47: hr_utility.set_message_token('PROCEDURE', l_proc);
48: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
42: -- ElsIf (p_constraint_name = 'PER_QUALIFICATION_TYPES_UK') Then
43: -- hr_utility.set_message(801, 'HR_51536_EQT_NAME_UK');
44: -- hr_utility.raise_error;
45: Else
46: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
47: hr_utility.set_message_token('PROCEDURE', l_proc);
48: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
49: hr_utility.raise_error;
50: End If;
43: -- hr_utility.set_message(801, 'HR_51536_EQT_NAME_UK');
44: -- hr_utility.raise_error;
45: Else
46: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
47: hr_utility.set_message_token('PROCEDURE', l_proc);
48: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
49: hr_utility.raise_error;
50: End If;
51: --
44: -- hr_utility.raise_error;
45: Else
46: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
47: hr_utility.set_message_token('PROCEDURE', l_proc);
48: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
49: hr_utility.raise_error;
50: End If;
51: --
52: hr_utility.set_location(' Leaving:'||l_proc, 10);
45: Else
46: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
47: hr_utility.set_message_token('PROCEDURE', l_proc);
48: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
49: hr_utility.raise_error;
50: End If;
51: --
52: hr_utility.set_location(' Leaving:'||l_proc, 10);
53: End constraint_error;
48: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
49: hr_utility.raise_error;
50: End If;
51: --
52: hr_utility.set_location(' Leaving:'||l_proc, 10);
53: End constraint_error;
54: --
55: -- ----------------------------------------------------------------------------
56: -- |-----------------------------< api_updating >-----------------------------|
142: l_proc varchar2(72) := g_package||'api_updating';
143: l_fct_ret boolean;
144: --
145: Begin
146: hr_utility.set_location('Entering:'||l_proc, 5);
147: --
148: If (
149: p_qualification_type_id is null and
150: p_object_version_number is null
158: If (
159: p_qualification_type_id = g_old_rec.qualification_type_id and
160: p_object_version_number = g_old_rec.object_version_number
161: ) Then
162: hr_utility.set_location(l_proc, 10);
163: --
164: -- The g_old_rec is current therefore we must
165: -- set the returning function to true
166: --
175: Close C_Sel1;
176: --
177: -- The primary key is invalid therefore we must error
178: --
179: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
180: hr_utility.raise_error;
181: End If;
182: Close C_Sel1;
183: If (p_object_version_number <> g_old_rec.object_version_number) Then
176: --
177: -- The primary key is invalid therefore we must error
178: --
179: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
180: hr_utility.raise_error;
181: End If;
182: Close C_Sel1;
183: If (p_object_version_number <> g_old_rec.object_version_number) Then
184: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
180: hr_utility.raise_error;
181: End If;
182: Close C_Sel1;
183: If (p_object_version_number <> g_old_rec.object_version_number) Then
184: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
185: hr_utility.raise_error;
186: End If;
187: hr_utility.set_location(l_proc, 15);
188: l_fct_ret := true;
181: End If;
182: Close C_Sel1;
183: If (p_object_version_number <> g_old_rec.object_version_number) Then
184: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
185: hr_utility.raise_error;
186: End If;
187: hr_utility.set_location(l_proc, 15);
188: l_fct_ret := true;
189: End If;
183: If (p_object_version_number <> g_old_rec.object_version_number) Then
184: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
185: hr_utility.raise_error;
186: End If;
187: hr_utility.set_location(l_proc, 15);
188: l_fct_ret := true;
189: End If;
190: End If;
191: hr_utility.set_location(' Leaving:'||l_proc, 20);
187: hr_utility.set_location(l_proc, 15);
188: l_fct_ret := true;
189: End If;
190: End If;
191: hr_utility.set_location(' Leaving:'||l_proc, 20);
192: Return (l_fct_ret);
193: --
194: End api_updating;
195: --
281: --
282: l_proc varchar2(72) := g_package||'lck';
283: --
284: Begin
285: hr_utility.set_location('Entering:'||l_proc, 5);
286: --
287: -- Add any mandatory argument checking here:
288: -- Example:
289: -- hr_api.mandatory_arg_error
297: Close C_Sel1;
298: --
299: -- The primary key is invalid therefore we must error
300: --
301: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
302: hr_utility.raise_error;
303: End If;
304: Close C_Sel1;
305: If (p_object_version_number <> g_old_rec.object_version_number) Then
298: --
299: -- The primary key is invalid therefore we must error
300: --
301: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
302: hr_utility.raise_error;
303: End If;
304: Close C_Sel1;
305: If (p_object_version_number <> g_old_rec.object_version_number) Then
306: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
302: hr_utility.raise_error;
303: End If;
304: Close C_Sel1;
305: If (p_object_version_number <> g_old_rec.object_version_number) Then
306: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
307: hr_utility.raise_error;
308: End If;
309: --
310: hr_utility.set_location(' Leaving:'||l_proc, 10);
303: End If;
304: Close C_Sel1;
305: If (p_object_version_number <> g_old_rec.object_version_number) Then
306: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
307: hr_utility.raise_error;
308: End If;
309: --
310: hr_utility.set_location(' Leaving:'||l_proc, 10);
311: --
306: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
307: hr_utility.raise_error;
308: End If;
309: --
310: hr_utility.set_location(' Leaving:'||l_proc, 10);
311: --
312: -- We need to trap the ORA LOCK exception
313: --
314: Exception
316: --
317: -- The object is locked therefore we need to supply a meaningful
318: -- error message.
319: --
320: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
321: hr_utility.set_message_token('TABLE_NAME', 'per_qualification_types');
322: hr_utility.raise_error;
323: End lck;
324: --
317: -- The object is locked therefore we need to supply a meaningful
318: -- error message.
319: --
320: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
321: hr_utility.set_message_token('TABLE_NAME', 'per_qualification_types');
322: hr_utility.raise_error;
323: End lck;
324: --
325: -- ----------------------------------------------------------------------------
318: -- error message.
319: --
320: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
321: hr_utility.set_message_token('TABLE_NAME', 'per_qualification_types');
322: hr_utility.raise_error;
323: End lck;
324: --
325: -- ----------------------------------------------------------------------------
326: -- |-----------------------------< convert_args >-----------------------------|
403: l_proc varchar2(72) := g_package||'convert_args';
404: --
405: Begin
406: --
407: hr_utility.set_location('Entering:'||l_proc, 5);
408: --
409: -- Convert arguments into local l_rec structure.
410: --
411:
483: l_rec.qa_organization := p_qa_organization;
484: --
485: -- Return the plsql record structure.
486: --
487: hr_utility.set_location(' Leaving:'||l_proc, 10);
488: Return(l_rec);
489: --
490: End convert_args;
491: --