13: --
14: l_proc varchar2(72) := g_package||'return_api_dml_status';
15: --
16: Begin
17: hr_utility.set_location('Entering:'||l_proc, 5);
18: --
19: Return (nvl(g_api_dml, false));
20: --
21: hr_utility.set_location(' Leaving:'||l_proc, 10);
17: hr_utility.set_location('Entering:'||l_proc, 5);
18: --
19: Return (nvl(g_api_dml, false));
20: --
21: hr_utility.set_location(' Leaving:'||l_proc, 10);
22: End return_api_dml_status;
23: --
24: -- ----------------------------------------------------------------------------
25: -- |---------------------------< constraint_error >---------------------------|
29: --
30: l_proc varchar2(72) := g_package||'constraint_error';
31: --
32: Begin
33: hr_utility.set_location('Entering:'||l_proc, 5);
34: --
35: If (p_constraint_name = 'PER_QUALIFICATIONS_FK1') Then
36: hr_utility.set_message(801, 'HR_51850_QUA_ATT_ID_FK');
37: hr_utility.raise_error;
32: Begin
33: hr_utility.set_location('Entering:'||l_proc, 5);
34: --
35: If (p_constraint_name = 'PER_QUALIFICATIONS_FK1') Then
36: hr_utility.set_message(801, 'HR_51850_QUA_ATT_ID_FK');
37: hr_utility.raise_error;
38: ElsIf (p_constraint_name = 'PER_QUALIFICATIONS_FK2') Then
39: hr_utility.set_message(801, 'HR_51851_QUA_QUAL_TYPE_ID_FK');
40: hr_utility.raise_error;
33: hr_utility.set_location('Entering:'||l_proc, 5);
34: --
35: If (p_constraint_name = 'PER_QUALIFICATIONS_FK1') Then
36: hr_utility.set_message(801, 'HR_51850_QUA_ATT_ID_FK');
37: hr_utility.raise_error;
38: ElsIf (p_constraint_name = 'PER_QUALIFICATIONS_FK2') Then
39: hr_utility.set_message(801, 'HR_51851_QUA_QUAL_TYPE_ID_FK');
40: hr_utility.raise_error;
41: ElsIf (p_constraint_name = 'PER_QUALIFICATIONS_FK3') Then
35: If (p_constraint_name = 'PER_QUALIFICATIONS_FK1') Then
36: hr_utility.set_message(801, 'HR_51850_QUA_ATT_ID_FK');
37: hr_utility.raise_error;
38: ElsIf (p_constraint_name = 'PER_QUALIFICATIONS_FK2') Then
39: hr_utility.set_message(801, 'HR_51851_QUA_QUAL_TYPE_ID_FK');
40: hr_utility.raise_error;
41: ElsIf (p_constraint_name = 'PER_QUALIFICATIONS_FK3') Then
42: hr_utility.set_message(801, 'HR_51852_QUA_BUS_GRP_ID_FK');
43: hr_utility.raise_error;
36: hr_utility.set_message(801, 'HR_51850_QUA_ATT_ID_FK');
37: hr_utility.raise_error;
38: ElsIf (p_constraint_name = 'PER_QUALIFICATIONS_FK2') Then
39: hr_utility.set_message(801, 'HR_51851_QUA_QUAL_TYPE_ID_FK');
40: hr_utility.raise_error;
41: ElsIf (p_constraint_name = 'PER_QUALIFICATIONS_FK3') Then
42: hr_utility.set_message(801, 'HR_51852_QUA_BUS_GRP_ID_FK');
43: hr_utility.raise_error;
44: ElsIf (p_constraint_name = 'PER_QUA_CHK_DATES') Then
38: ElsIf (p_constraint_name = 'PER_QUALIFICATIONS_FK2') Then
39: hr_utility.set_message(801, 'HR_51851_QUA_QUAL_TYPE_ID_FK');
40: hr_utility.raise_error;
41: ElsIf (p_constraint_name = 'PER_QUALIFICATIONS_FK3') Then
42: hr_utility.set_message(801, 'HR_51852_QUA_BUS_GRP_ID_FK');
43: hr_utility.raise_error;
44: ElsIf (p_constraint_name = 'PER_QUA_CHK_DATES') Then
45: hr_utility.set_message(801, 'HR_51853_QUA_DATE_INV');
46: hr_utility.raise_error;
39: hr_utility.set_message(801, 'HR_51851_QUA_QUAL_TYPE_ID_FK');
40: hr_utility.raise_error;
41: ElsIf (p_constraint_name = 'PER_QUALIFICATIONS_FK3') Then
42: hr_utility.set_message(801, 'HR_51852_QUA_BUS_GRP_ID_FK');
43: hr_utility.raise_error;
44: ElsIf (p_constraint_name = 'PER_QUA_CHK_DATES') Then
45: hr_utility.set_message(801, 'HR_51853_QUA_DATE_INV');
46: hr_utility.raise_error;
47: ElsIf (p_constraint_name = 'PER_QUALIFICATIONS_PK') Then
41: ElsIf (p_constraint_name = 'PER_QUALIFICATIONS_FK3') Then
42: hr_utility.set_message(801, 'HR_51852_QUA_BUS_GRP_ID_FK');
43: hr_utility.raise_error;
44: ElsIf (p_constraint_name = 'PER_QUA_CHK_DATES') Then
45: hr_utility.set_message(801, 'HR_51853_QUA_DATE_INV');
46: hr_utility.raise_error;
47: ElsIf (p_constraint_name = 'PER_QUALIFICATIONS_PK') Then
48: hr_utility.set_message(801, 'HR_51854_QUA_QUAL_ID_PK');
49: hr_utility.raise_error;
42: hr_utility.set_message(801, 'HR_51852_QUA_BUS_GRP_ID_FK');
43: hr_utility.raise_error;
44: ElsIf (p_constraint_name = 'PER_QUA_CHK_DATES') Then
45: hr_utility.set_message(801, 'HR_51853_QUA_DATE_INV');
46: hr_utility.raise_error;
47: ElsIf (p_constraint_name = 'PER_QUALIFICATIONS_PK') Then
48: hr_utility.set_message(801, 'HR_51854_QUA_QUAL_ID_PK');
49: hr_utility.raise_error;
50: Else
44: ElsIf (p_constraint_name = 'PER_QUA_CHK_DATES') Then
45: hr_utility.set_message(801, 'HR_51853_QUA_DATE_INV');
46: hr_utility.raise_error;
47: ElsIf (p_constraint_name = 'PER_QUALIFICATIONS_PK') Then
48: hr_utility.set_message(801, 'HR_51854_QUA_QUAL_ID_PK');
49: hr_utility.raise_error;
50: Else
51: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
52: hr_utility.set_message_token('PROCEDURE', l_proc);
45: hr_utility.set_message(801, 'HR_51853_QUA_DATE_INV');
46: hr_utility.raise_error;
47: ElsIf (p_constraint_name = 'PER_QUALIFICATIONS_PK') Then
48: hr_utility.set_message(801, 'HR_51854_QUA_QUAL_ID_PK');
49: hr_utility.raise_error;
50: Else
51: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
52: hr_utility.set_message_token('PROCEDURE', l_proc);
53: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
47: ElsIf (p_constraint_name = 'PER_QUALIFICATIONS_PK') Then
48: hr_utility.set_message(801, 'HR_51854_QUA_QUAL_ID_PK');
49: hr_utility.raise_error;
50: Else
51: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
52: hr_utility.set_message_token('PROCEDURE', l_proc);
53: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
54: hr_utility.raise_error;
55: End If;
48: hr_utility.set_message(801, 'HR_51854_QUA_QUAL_ID_PK');
49: hr_utility.raise_error;
50: Else
51: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
52: hr_utility.set_message_token('PROCEDURE', l_proc);
53: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
54: hr_utility.raise_error;
55: End If;
56: --
49: hr_utility.raise_error;
50: Else
51: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
52: hr_utility.set_message_token('PROCEDURE', l_proc);
53: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
54: hr_utility.raise_error;
55: End If;
56: --
57: hr_utility.set_location(' Leaving:'||l_proc, 10);
50: Else
51: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
52: hr_utility.set_message_token('PROCEDURE', l_proc);
53: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
54: hr_utility.raise_error;
55: End If;
56: --
57: hr_utility.set_location(' Leaving:'||l_proc, 10);
58: End constraint_error;
53: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
54: hr_utility.raise_error;
55: End If;
56: --
57: hr_utility.set_location(' Leaving:'||l_proc, 10);
58: End constraint_error;
59: --
60: -- ----------------------------------------------------------------------------
61: -- |-----------------------------< api_updating >-----------------------------|
150: l_proc varchar2(72) := g_package||'api_updating';
151: l_fct_ret boolean;
152: --
153: Begin
154: hr_utility.set_location('Entering:'||l_proc, 5);
155: --
156: If (
157: p_qualification_id is null and
158: p_object_version_number is null
166: If (
167: p_qualification_id = g_old_rec.qualification_id and
168: p_object_version_number = g_old_rec.object_version_number
169: ) Then
170: hr_utility.set_location(l_proc, 10);
171: --
172: -- The g_old_rec is current therefore we must
173: -- set the returning function to true
174: --
183: Close C_Sel1;
184: --
185: -- The primary key is invalid therefore we must error
186: --
187: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
188: hr_utility.raise_error;
189: End If;
190: Close C_Sel1;
191: If (p_object_version_number <> g_old_rec.object_version_number) Then
184: --
185: -- The primary key is invalid therefore we must error
186: --
187: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
188: hr_utility.raise_error;
189: End If;
190: Close C_Sel1;
191: If (p_object_version_number <> g_old_rec.object_version_number) Then
192: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
188: hr_utility.raise_error;
189: End If;
190: Close C_Sel1;
191: If (p_object_version_number <> g_old_rec.object_version_number) Then
192: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
193: hr_utility.raise_error;
194: End If;
195: hr_utility.set_location(l_proc, 15);
196: l_fct_ret := true;
189: End If;
190: Close C_Sel1;
191: If (p_object_version_number <> g_old_rec.object_version_number) Then
192: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
193: hr_utility.raise_error;
194: End If;
195: hr_utility.set_location(l_proc, 15);
196: l_fct_ret := true;
197: End If;
191: If (p_object_version_number <> g_old_rec.object_version_number) Then
192: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
193: hr_utility.raise_error;
194: End If;
195: hr_utility.set_location(l_proc, 15);
196: l_fct_ret := true;
197: End If;
198: End If;
199: hr_utility.set_location(' Leaving:'||l_proc, 20);
195: hr_utility.set_location(l_proc, 15);
196: l_fct_ret := true;
197: End If;
198: End If;
199: hr_utility.set_location(' Leaving:'||l_proc, 20);
200: Return (l_fct_ret);
201: --
202: End api_updating;
203: --
292: --
293: l_proc varchar2(72) := g_package||'lck';
294: --
295: Begin
296: hr_utility.set_location('Entering:'||l_proc, 5);
297: --
298: -- Add any mandatory argument checking here:
299: -- Example:
300: -- hr_api.mandatory_arg_error
308: Close C_Sel1;
309: --
310: -- The primary key is invalid therefore we must error
311: --
312: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
313: hr_utility.raise_error;
314: End If;
315: Close C_Sel1;
316: If (p_object_version_number <> g_old_rec.object_version_number) Then
309: --
310: -- The primary key is invalid therefore we must error
311: --
312: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
313: hr_utility.raise_error;
314: End If;
315: Close C_Sel1;
316: If (p_object_version_number <> g_old_rec.object_version_number) Then
317: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
313: hr_utility.raise_error;
314: End If;
315: Close C_Sel1;
316: If (p_object_version_number <> g_old_rec.object_version_number) Then
317: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
318: hr_utility.raise_error;
319: End If;
320: --
321: hr_utility.set_location(' Leaving:'||l_proc, 10);
314: End If;
315: Close C_Sel1;
316: If (p_object_version_number <> g_old_rec.object_version_number) Then
317: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
318: hr_utility.raise_error;
319: End If;
320: --
321: hr_utility.set_location(' Leaving:'||l_proc, 10);
322: --
317: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
318: hr_utility.raise_error;
319: End If;
320: --
321: hr_utility.set_location(' Leaving:'||l_proc, 10);
322: --
323: -- We need to trap the ORA LOCK exception
324: --
325: Exception
327: --
328: -- The object is locked therefore we need to supply a meaningful
329: -- error message.
330: --
331: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
332: hr_utility.set_message_token('TABLE_NAME', 'per_qualifications');
333: hr_utility.raise_error;
334: End lck;
335: --
328: -- The object is locked therefore we need to supply a meaningful
329: -- error message.
330: --
331: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
332: hr_utility.set_message_token('TABLE_NAME', 'per_qualifications');
333: hr_utility.raise_error;
334: End lck;
335: --
336: -- ----------------------------------------------------------------------------
329: -- error message.
330: --
331: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
332: hr_utility.set_message_token('TABLE_NAME', 'per_qualifications');
333: hr_utility.raise_error;
334: End lck;
335: --
336: -- ----------------------------------------------------------------------------
337: -- |-----------------------------< convert_args >-----------------------------|
418: l_proc varchar2(72) := g_package||'convert_args';
419: --
420: Begin
421: --
422: hr_utility.set_location('Entering:'||l_proc, 5);
423: --
424: -- Convert arguments into local l_rec structure.
425: --
426: l_rec.qualification_id := p_qualification_id;
498: l_rec.party_id := p_party_id;
499: --
500: -- Return the plsql record structure.
501: --
502: hr_utility.set_location(' Leaving:'||l_proc, 10);
503: Return(l_rec);
504: --
505: End convert_args;
506: --