[Home] [Help]
PACKAGE BODY: APPS.PER_ECA_SHD
Source
1 Package Body per_eca_shd as
2 /* $Header: peecarhi.pkb 115.6 2002/12/05 10:25:53 pkakar noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' per_eca_shd.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |---------------------------< constraint_error >---------------------------|
12 -- ----------------------------------------------------------------------------
16 --
13 Procedure constraint_error
14 (p_constraint_name in all_constraints.constraint_name%TYPE
15 ) Is
17 l_proc varchar2(72) := g_package||'constraint_error';
18 --
19 Begin
20 --
21 If (p_constraint_name = 'PER_ELECTION_CANDIDATES_FK1') Then
22 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
23 fnd_message.set_token('PROCEDURE', l_proc);
24 fnd_message.set_token('STEP','5');
25 fnd_message.raise_error;
26 ElsIf (p_constraint_name = 'PER_ELECTION_CANDIDATES_FK2') Then
27 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
28 fnd_message.set_token('PROCEDURE', l_proc);
29 fnd_message.set_token('STEP','10');
30 fnd_message.raise_error;
31 ElsIf (p_constraint_name = 'PER_ELECTION_CANDIDATE_PK') Then
32 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
33 fnd_message.set_token('PROCEDURE', l_proc);
34 fnd_message.set_token('STEP','15');
35 fnd_message.raise_error;
36 Else
37 fnd_message.set_name('PAY', 'HR_7877_API_INVALID_CONSTRAINT');
38 fnd_message.set_token('PROCEDURE', l_proc);
39 fnd_message.set_token('CONSTRAINT_NAME', p_constraint_name);
40 fnd_message.raise_error;
41 End If;
42 --
43 End constraint_error;
44 --
45 -- ----------------------------------------------------------------------------
46 -- |-----------------------------< api_updating >-----------------------------|
47 -- ----------------------------------------------------------------------------
48 Function api_updating
49 (p_election_candidate_id in number
50 ,p_object_version_number in number
51 )
52 Return Boolean Is
53 --
54 --
55 -- Cursor selects the 'current' row from the HR Schema
56 --
57 Cursor C_Sel1 is
58 select
59 election_candidate_id
60 ,business_group_id
61 ,election_id
62 ,person_id
63 ,rank
64 ,role_id
65 ,attribute_category
66 ,attribute1
67 ,attribute2
68 ,attribute3
69 ,attribute4
70 ,attribute5
71 ,attribute6
72 ,attribute7
73 ,attribute8
74 ,attribute9
75 ,attribute10
76 ,attribute11
77 ,attribute12
78 ,attribute13
79 ,attribute14
80 ,attribute15
81 ,attribute16
82 ,attribute17
83 ,attribute18
84 ,attribute19
85 ,attribute20
86 ,attribute21
87 ,attribute22
88 ,attribute23
89 ,attribute24
90 ,attribute25
91 ,attribute26
92 ,attribute27
93 ,attribute28
94 ,attribute29
95 ,attribute30
96 ,candidate_info_category
97 ,candidate_information1
98 ,candidate_information2
99 ,candidate_information3
100 ,candidate_information4
101 ,candidate_information5
102 ,candidate_information6
103 ,candidate_information7
104 ,candidate_information8
105 ,candidate_information9
106 ,candidate_information10
107 ,candidate_information11
108 ,candidate_information12
109 ,candidate_information13
110 ,candidate_information14
111 ,candidate_information15
112 ,candidate_information16
113 ,candidate_information17
114 ,candidate_information18
115 ,candidate_information19
116 ,candidate_information20
117 ,candidate_information21
118 ,candidate_information22
119 ,candidate_information23
120 ,candidate_information24
121 ,candidate_information25
122 ,candidate_information26
123 ,candidate_information27
124 ,candidate_information28
125 ,candidate_information29
126 ,candidate_information30
127 ,object_version_number
128 from per_election_candidates
129 where election_candidate_id = p_election_candidate_id;
130 --
131 l_fct_ret boolean;
132 --
133 Begin
134 --
135 If (p_election_candidate_id is null and
136 p_object_version_number is null
137 ) Then
138 --
139 -- One of the primary key arguments is null therefore we must
140 -- set the returning function value to false
141 --
142 l_fct_ret := false;
143 Else
144 If (p_election_candidate_id
145 = per_eca_shd.g_old_rec.election_candidate_id and
146 p_object_version_number
147 = per_eca_shd.g_old_rec.object_version_number
148 ) Then
149 --
150 -- The g_old_rec is current therefore we must
151 -- set the returning function to true
152 --
153 l_fct_ret := true;
154 Else
155 --
156 -- Select the current row into g_old_rec
157 --
158 Open C_Sel1;
159 Fetch C_Sel1 Into per_eca_shd.g_old_rec;
160 If C_Sel1%notfound Then
161 Close C_Sel1;
162 --
163 -- The primary key is invalid therefore we must error
164 --
165 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
166 fnd_message.raise_error;
167 End If;
168 Close C_Sel1;
169 If (p_object_version_number
170 <> per_eca_shd.g_old_rec.object_version_number) Then
171 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
172 fnd_message.raise_error;
173 End If;
174 l_fct_ret := true;
175 End If;
176 End If;
177 Return (l_fct_ret);
178 --
179 End api_updating;
180 --
181 -- ----------------------------------------------------------------------------
182 -- |---------------------------------< lck >----------------------------------|
183 -- ----------------------------------------------------------------------------
184 Procedure lck
185 (p_election_candidate_id in number
186 ,p_object_version_number in number
187 ) is
188 --
189 -- Cursor selects the 'current' row from the HR Schema
190 --
191 Cursor C_Sel1 is
192 select
193 election_candidate_id
194 ,business_group_id
195 ,election_id
196 ,person_id
197 ,rank
198 ,role_id
199 ,attribute_category
200 ,attribute1
201 ,attribute2
202 ,attribute3
203 ,attribute4
204 ,attribute5
205 ,attribute6
206 ,attribute7
207 ,attribute8
208 ,attribute9
209 ,attribute10
210 ,attribute11
211 ,attribute12
212 ,attribute13
213 ,attribute14
214 ,attribute15
215 ,attribute16
216 ,attribute17
217 ,attribute18
218 ,attribute19
219 ,attribute20
220 ,attribute21
221 ,attribute22
222 ,attribute23
223 ,attribute24
224 ,attribute25
225 ,attribute26
226 ,attribute27
227 ,attribute28
228 ,attribute29
229 ,attribute30
230 ,candidate_info_category
231 ,candidate_information1
232 ,candidate_information2
233 ,candidate_information3
234 ,candidate_information4
235 ,candidate_information5
236 ,candidate_information6
237 ,candidate_information7
238 ,candidate_information8
239 ,candidate_information9
240 ,candidate_information10
241 ,candidate_information11
242 ,candidate_information12
243 ,candidate_information13
244 ,candidate_information14
245 ,candidate_information15
246 ,candidate_information16
247 ,candidate_information17
248 ,candidate_information18
249 ,candidate_information19
250 ,candidate_information20
251 ,candidate_information21
252 ,candidate_information22
253 ,candidate_information23
254 ,candidate_information24
255 ,candidate_information25
256 ,candidate_information26
257 ,candidate_information27
258 ,candidate_information28
259 ,candidate_information29
260 ,candidate_information30
261 ,object_version_number
262 from per_election_candidates
263 where election_candidate_id = p_election_candidate_id
264 for update nowait;
265 --
266 l_proc varchar2(72) := g_package||'lck';
267 --
268 Begin
269 hr_utility.set_location('Entering:'||l_proc, 5);
270 --
271 hr_api.mandatory_arg_error
272 (p_api_name => l_proc
273 ,p_argument => 'ELECTION_CANDIDATE_ID'
274 ,p_argument_value => p_election_candidate_id
275 );
276 --
277 Open C_Sel1;
278 Fetch C_Sel1 Into per_eca_shd.g_old_rec;
279 If C_Sel1%notfound then
280 Close C_Sel1;
281 --
282 -- The primary key is invalid therefore we must error
283 --
284 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
285 fnd_message.raise_error;
286 End If;
287 Close C_Sel1;
288 If (p_object_version_number
289 <> per_eca_shd.g_old_rec.object_version_number) Then
290 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
291 fnd_message.raise_error;
292 End If;
293 --
294 hr_utility.set_location(' Leaving:'||l_proc, 10);
295 --
296 -- We need to trap the ORA LOCK exception
297 --
298 Exception
299 When HR_Api.Object_Locked then
300 --
301 -- The object is locked therefore we need to supply a meaningful
302 -- error message.
303 --
304 fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
305 fnd_message.set_token('TABLE_NAME', 'per_election_candidates');
306 fnd_message.raise_error;
307 End lck;
308 --
309 -- ----------------------------------------------------------------------------
310 -- |-----------------------------< convert_args >-----------------------------|
311 -- ----------------------------------------------------------------------------
312 Function convert_args
313 (p_election_candidate_id in number
314 ,p_business_group_id in number
315 ,p_election_id in number
316 ,p_person_id in number
317 ,p_rank in number
318 ,p_role_id in number
319 ,p_attribute_category in varchar2
320 ,p_attribute1 in varchar2
321 ,p_attribute2 in varchar2
322 ,p_attribute3 in varchar2
323 ,p_attribute4 in varchar2
324 ,p_attribute5 in varchar2
325 ,p_attribute6 in varchar2
326 ,p_attribute7 in varchar2
327 ,p_attribute8 in varchar2
328 ,p_attribute9 in varchar2
329 ,p_attribute10 in varchar2
330 ,p_attribute11 in varchar2
331 ,p_attribute12 in varchar2
332 ,p_attribute13 in varchar2
333 ,p_attribute14 in varchar2
334 ,p_attribute15 in varchar2
335 ,p_attribute16 in varchar2
336 ,p_attribute17 in varchar2
337 ,p_attribute18 in varchar2
338 ,p_attribute19 in varchar2
339 ,p_attribute20 in varchar2
340 ,p_attribute21 in varchar2
341 ,p_attribute22 in varchar2
342 ,p_attribute23 in varchar2
343 ,p_attribute24 in varchar2
344 ,p_attribute25 in varchar2
345 ,p_attribute26 in varchar2
346 ,p_attribute27 in varchar2
347 ,p_attribute28 in varchar2
348 ,p_attribute29 in varchar2
349 ,p_attribute30 in varchar2
350 ,p_candidate_info_category in varchar2
351 ,p_candidate_information1 in varchar2
352 ,p_candidate_information2 in varchar2
353 ,p_candidate_information3 in varchar2
354 ,p_candidate_information4 in varchar2
355 ,p_candidate_information5 in varchar2
356 ,p_candidate_information6 in varchar2
357 ,p_candidate_information7 in varchar2
358 ,p_candidate_information8 in varchar2
359 ,p_candidate_information9 in varchar2
360 ,p_candidate_information10 in varchar2
361 ,p_candidate_information11 in varchar2
362 ,p_candidate_information12 in varchar2
363 ,p_candidate_information13 in varchar2
364 ,p_candidate_information14 in varchar2
365 ,p_candidate_information15 in varchar2
366 ,p_candidate_information16 in varchar2
367 ,p_candidate_information17 in varchar2
368 ,p_candidate_information18 in varchar2
369 ,p_candidate_information19 in varchar2
370 ,p_candidate_information20 in varchar2
371 ,p_candidate_information21 in varchar2
372 ,p_candidate_information22 in varchar2
373 ,p_candidate_information23 in varchar2
374 ,p_candidate_information24 in varchar2
375 ,p_candidate_information25 in varchar2
376 ,p_candidate_information26 in varchar2
377 ,p_candidate_information27 in varchar2
378 ,p_candidate_information28 in varchar2
379 ,p_candidate_information29 in varchar2
380 ,p_candidate_information30 in varchar2
381 ,p_object_version_number in number
382 )
383 Return g_rec_type is
384 --
385 l_rec g_rec_type;
386 --
387 Begin
388 --
389 -- Convert arguments into local l_rec structure.
390 --
391 l_rec.election_candidate_id := p_election_candidate_id;
392 l_rec.business_group_id := p_business_group_id;
393 l_rec.election_id := p_election_id;
394 l_rec.person_id := p_person_id;
395 l_rec.rank := p_rank;
396 l_rec.role_id := p_role_id;
397 l_rec.attribute_category := p_attribute_category;
398 l_rec.attribute1 := p_attribute1;
399 l_rec.attribute2 := p_attribute2;
400 l_rec.attribute3 := p_attribute3;
401 l_rec.attribute4 := p_attribute4;
402 l_rec.attribute5 := p_attribute5;
403 l_rec.attribute6 := p_attribute6;
404 l_rec.attribute7 := p_attribute7;
405 l_rec.attribute8 := p_attribute8;
406 l_rec.attribute9 := p_attribute9;
407 l_rec.attribute10 := p_attribute10;
408 l_rec.attribute11 := p_attribute11;
409 l_rec.attribute12 := p_attribute12;
410 l_rec.attribute13 := p_attribute13;
411 l_rec.attribute14 := p_attribute14;
412 l_rec.attribute15 := p_attribute15;
413 l_rec.attribute16 := p_attribute16;
417 l_rec.attribute20 := p_attribute20;
414 l_rec.attribute17 := p_attribute17;
415 l_rec.attribute18 := p_attribute18;
416 l_rec.attribute19 := p_attribute19;
418 l_rec.attribute21 := p_attribute21;
419 l_rec.attribute22 := p_attribute22;
420 l_rec.attribute23 := p_attribute23;
421 l_rec.attribute24 := p_attribute24;
422 l_rec.attribute25 := p_attribute25;
423 l_rec.attribute26 := p_attribute26;
424 l_rec.attribute27 := p_attribute27;
425 l_rec.attribute28 := p_attribute28;
426 l_rec.attribute29 := p_attribute29;
427 l_rec.attribute30 := p_attribute30;
428 l_rec.candidate_info_category := p_candidate_info_category;
429 l_rec.candidate_information1 := p_candidate_information1;
430 l_rec.candidate_information2 := p_candidate_information2;
431 l_rec.candidate_information3 := p_candidate_information3;
432 l_rec.candidate_information4 := p_candidate_information4;
433 l_rec.candidate_information5 := p_candidate_information5;
434 l_rec.candidate_information6 := p_candidate_information6;
435 l_rec.candidate_information7 := p_candidate_information7;
436 l_rec.candidate_information8 := p_candidate_information8;
437 l_rec.candidate_information9 := p_candidate_information9;
438 l_rec.candidate_information10 := p_candidate_information10;
439 l_rec.candidate_information11 := p_candidate_information11;
440 l_rec.candidate_information12 := p_candidate_information12;
441 l_rec.candidate_information13 := p_candidate_information13;
442 l_rec.candidate_information14 := p_candidate_information14;
443 l_rec.candidate_information15 := p_candidate_information15;
444 l_rec.candidate_information16 := p_candidate_information16;
445 l_rec.candidate_information17 := p_candidate_information17;
446 l_rec.candidate_information18 := p_candidate_information18;
447 l_rec.candidate_information19 := p_candidate_information19;
448 l_rec.candidate_information20 := p_candidate_information20;
449 l_rec.candidate_information21 := p_candidate_information21;
450 l_rec.candidate_information22 := p_candidate_information22;
451 l_rec.candidate_information23 := p_candidate_information23;
452 l_rec.candidate_information24 := p_candidate_information24;
453 l_rec.candidate_information25 := p_candidate_information25;
454 l_rec.candidate_information26 := p_candidate_information26;
455 l_rec.candidate_information27 := p_candidate_information27;
456 l_rec.candidate_information28 := p_candidate_information28;
457 l_rec.candidate_information29 := p_candidate_information29;
458 l_rec.candidate_information30 := p_candidate_information30;
459 l_rec.object_version_number := p_object_version_number;
460 --
461 -- Return the plsql record structure.
462 --
463 Return(l_rec);
464 --
465 End convert_args;
466 --
467 end per_eca_shd;