15: --
16: l_proc varchar2(72) := g_package||'constraint_error';
17: --
18: Begin
19: hr_utility.set_location('Entering:'||l_proc, 5);
20: --
21: If (p_constraint_name = 'PER_POSITION_EXTRA_INFO_FK1') Then
22: hr_utility.set_message(800, 'HR_INV_INFO_TYPE');
23: hr_utility.raise_error;
18: Begin
19: hr_utility.set_location('Entering:'||l_proc, 5);
20: --
21: If (p_constraint_name = 'PER_POSITION_EXTRA_INFO_FK1') Then
22: hr_utility.set_message(800, 'HR_INV_INFO_TYPE');
23: hr_utility.raise_error;
24: ElsIf (p_constraint_name = 'PER_POSITION_EXTRA_INFO_FK2') Then
25: hr_utility.set_message(800, 'HR_INV_POS_ID');
26: hr_utility.raise_error;
19: hr_utility.set_location('Entering:'||l_proc, 5);
20: --
21: If (p_constraint_name = 'PER_POSITION_EXTRA_INFO_FK1') Then
22: hr_utility.set_message(800, 'HR_INV_INFO_TYPE');
23: hr_utility.raise_error;
24: ElsIf (p_constraint_name = 'PER_POSITION_EXTRA_INFO_FK2') Then
25: hr_utility.set_message(800, 'HR_INV_POS_ID');
26: hr_utility.raise_error;
27: ElsIf (p_constraint_name = 'PER_POSITION_EXTRA_INFO_PK') Then
21: If (p_constraint_name = 'PER_POSITION_EXTRA_INFO_FK1') Then
22: hr_utility.set_message(800, 'HR_INV_INFO_TYPE');
23: hr_utility.raise_error;
24: ElsIf (p_constraint_name = 'PER_POSITION_EXTRA_INFO_FK2') Then
25: hr_utility.set_message(800, 'HR_INV_POS_ID');
26: hr_utility.raise_error;
27: ElsIf (p_constraint_name = 'PER_POSITION_EXTRA_INFO_PK') Then
28: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
29: hr_utility.set_message_token('PROCEDURE', l_proc);
22: hr_utility.set_message(800, 'HR_INV_INFO_TYPE');
23: hr_utility.raise_error;
24: ElsIf (p_constraint_name = 'PER_POSITION_EXTRA_INFO_FK2') Then
25: hr_utility.set_message(800, 'HR_INV_POS_ID');
26: hr_utility.raise_error;
27: ElsIf (p_constraint_name = 'PER_POSITION_EXTRA_INFO_PK') Then
28: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
29: hr_utility.set_message_token('PROCEDURE', l_proc);
30: hr_utility.set_message_token('STEP','15');
24: ElsIf (p_constraint_name = 'PER_POSITION_EXTRA_INFO_FK2') Then
25: hr_utility.set_message(800, 'HR_INV_POS_ID');
26: hr_utility.raise_error;
27: ElsIf (p_constraint_name = 'PER_POSITION_EXTRA_INFO_PK') Then
28: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
29: hr_utility.set_message_token('PROCEDURE', l_proc);
30: hr_utility.set_message_token('STEP','15');
31: hr_utility.raise_error;
32: Else
25: hr_utility.set_message(800, 'HR_INV_POS_ID');
26: hr_utility.raise_error;
27: ElsIf (p_constraint_name = 'PER_POSITION_EXTRA_INFO_PK') Then
28: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
29: hr_utility.set_message_token('PROCEDURE', l_proc);
30: hr_utility.set_message_token('STEP','15');
31: hr_utility.raise_error;
32: Else
33: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
26: hr_utility.raise_error;
27: ElsIf (p_constraint_name = 'PER_POSITION_EXTRA_INFO_PK') Then
28: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
29: hr_utility.set_message_token('PROCEDURE', l_proc);
30: hr_utility.set_message_token('STEP','15');
31: hr_utility.raise_error;
32: Else
33: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
34: hr_utility.set_message_token('PROCEDURE', l_proc);
27: ElsIf (p_constraint_name = 'PER_POSITION_EXTRA_INFO_PK') Then
28: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
29: hr_utility.set_message_token('PROCEDURE', l_proc);
30: hr_utility.set_message_token('STEP','15');
31: hr_utility.raise_error;
32: Else
33: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
34: hr_utility.set_message_token('PROCEDURE', l_proc);
35: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
29: hr_utility.set_message_token('PROCEDURE', l_proc);
30: hr_utility.set_message_token('STEP','15');
31: hr_utility.raise_error;
32: Else
33: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
34: hr_utility.set_message_token('PROCEDURE', l_proc);
35: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
36: hr_utility.raise_error;
37: End If;
30: hr_utility.set_message_token('STEP','15');
31: hr_utility.raise_error;
32: Else
33: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
34: hr_utility.set_message_token('PROCEDURE', l_proc);
35: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
36: hr_utility.raise_error;
37: End If;
38: --
31: hr_utility.raise_error;
32: Else
33: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
34: hr_utility.set_message_token('PROCEDURE', l_proc);
35: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
36: hr_utility.raise_error;
37: End If;
38: --
39: hr_utility.set_location(' Leaving:'||l_proc, 10);
32: Else
33: hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
34: hr_utility.set_message_token('PROCEDURE', l_proc);
35: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
36: hr_utility.raise_error;
37: End If;
38: --
39: hr_utility.set_location(' Leaving:'||l_proc, 10);
40: End constraint_error;
35: hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
36: hr_utility.raise_error;
37: End If;
38: --
39: hr_utility.set_location(' Leaving:'||l_proc, 10);
40: End constraint_error;
41: --
42: -- ----------------------------------------------------------------------------
43: -- |-----------------------------< api_updating >-----------------------------|
119: l_proc varchar2(72) := g_package||'api_updating';
120: l_fct_ret boolean;
121: --
122: Begin
123: hr_utility.set_location('Entering:'||l_proc, 5);
124: --
125: If (
126: p_position_extra_info_id is null and
127: p_object_version_number is null
135: If (
136: p_position_extra_info_id = g_old_rec.position_extra_info_id and
137: p_object_version_number = g_old_rec.object_version_number
138: ) Then
139: hr_utility.set_location(l_proc, 10);
140: --
141: -- The g_old_rec is current therefore we must
142: -- set the returning function to true
143: --
152: Close C_Sel1;
153: --
154: -- The primary key is invalid therefore we must error
155: --
156: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
157: hr_utility.raise_error;
158: End If;
159: Close C_Sel1;
160: If (p_object_version_number <> g_old_rec.object_version_number) Then
153: --
154: -- The primary key is invalid therefore we must error
155: --
156: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
157: hr_utility.raise_error;
158: End If;
159: Close C_Sel1;
160: If (p_object_version_number <> g_old_rec.object_version_number) Then
161: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
157: hr_utility.raise_error;
158: End If;
159: Close C_Sel1;
160: If (p_object_version_number <> g_old_rec.object_version_number) Then
161: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
162: hr_utility.raise_error;
163: End If;
164: hr_utility.set_location(l_proc, 15);
165: l_fct_ret := true;
158: End If;
159: Close C_Sel1;
160: If (p_object_version_number <> g_old_rec.object_version_number) Then
161: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
162: hr_utility.raise_error;
163: End If;
164: hr_utility.set_location(l_proc, 15);
165: l_fct_ret := true;
166: End If;
160: If (p_object_version_number <> g_old_rec.object_version_number) Then
161: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
162: hr_utility.raise_error;
163: End If;
164: hr_utility.set_location(l_proc, 15);
165: l_fct_ret := true;
166: End If;
167: End If;
168: hr_utility.set_location(' Leaving:'||l_proc, 20);
164: hr_utility.set_location(l_proc, 15);
165: l_fct_ret := true;
166: End If;
167: End If;
168: hr_utility.set_location(' Leaving:'||l_proc, 20);
169: Return (l_fct_ret);
170: --
171: End api_updating;
172: --
249: --
250: l_proc varchar2(72) := g_package||'lck';
251: --
252: Begin
253: hr_utility.set_location('Entering:'||l_proc, 5);
254: --
255: -- Add any mandatory argument checking here:
256: -- Example:
257: -- hr_api.mandatory_arg_error
265: Close C_Sel1;
266: --
267: -- The primary key is invalid therefore we must error
268: --
269: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
270: hr_utility.raise_error;
271: End If;
272: Close C_Sel1;
273: If (p_object_version_number <> g_old_rec.object_version_number) Then
266: --
267: -- The primary key is invalid therefore we must error
268: --
269: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
270: hr_utility.raise_error;
271: End If;
272: Close C_Sel1;
273: If (p_object_version_number <> g_old_rec.object_version_number) Then
274: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
270: hr_utility.raise_error;
271: End If;
272: Close C_Sel1;
273: If (p_object_version_number <> g_old_rec.object_version_number) Then
274: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
275: hr_utility.raise_error;
276: End If;
277: --
278: hr_utility.set_location(' Leaving:'||l_proc, 10);
271: End If;
272: Close C_Sel1;
273: If (p_object_version_number <> g_old_rec.object_version_number) Then
274: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
275: hr_utility.raise_error;
276: End If;
277: --
278: hr_utility.set_location(' Leaving:'||l_proc, 10);
279: --
274: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
275: hr_utility.raise_error;
276: End If;
277: --
278: hr_utility.set_location(' Leaving:'||l_proc, 10);
279: --
280: -- We need to trap the ORA LOCK exception
281: --
282: Exception
284: --
285: -- The object is locked therefore we need to supply a meaningful
286: -- error message.
287: --
288: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
289: hr_utility.set_message_token('TABLE_NAME', 'per_position_extra_info');
290: hr_utility.raise_error;
291: End lck;
292:
285: -- The object is locked therefore we need to supply a meaningful
286: -- error message.
287: --
288: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
289: hr_utility.set_message_token('TABLE_NAME', 'per_position_extra_info');
290: hr_utility.raise_error;
291: End lck;
292:
293: --
286: -- error message.
287: --
288: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
289: hr_utility.set_message_token('TABLE_NAME', 'per_position_extra_info');
290: hr_utility.raise_error;
291: End lck;
292:
293: --
294: -- ----------------------------------------------------------------------------
364: l_proc varchar2(72) := g_package||'convert_args';
365: --
366: Begin
367: --
368: hr_utility.set_location('Entering:'||l_proc, 5);
369: --
370: -- Convert arguments into local l_rec structure.
371: --
372: l_rec.position_extra_info_id := p_position_extra_info_id;
431: l_rec.object_version_number := p_object_version_number;
432: --
433: -- Return the plsql record structure.
434: --
435: hr_utility.set_location(' Leaving:'||l_proc, 10);
436: Return(l_rec);
437: --
438: End convert_args;
439: --