[Home] [Help]
PACKAGE BODY: APPS.PER_ELC_SHD
Source
1 Package Body per_elc_shd as
2 /* $Header: peelcrhi.pkb 115.10 2002/12/05 10:37:58 pkakar noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' per_elc_shd.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |------------------------< return_api_dml_status >-------------------------|
12 -- ----------------------------------------------------------------------------
13 Function return_api_dml_status Return Boolean Is
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);
23 End return_api_dml_status;
24 --
25 -- ----------------------------------------------------------------------------
26 -- |---------------------------< constraint_error >---------------------------|
27 -- ----------------------------------------------------------------------------
28 Procedure constraint_error
29 (p_constraint_name in all_constraints.constraint_name%TYPE
30 ) Is
31 --
32 l_proc varchar2(72) := g_package||'constraint_error';
33 --
34 Begin
35 --
36 If (p_constraint_name = 'PER_ELECTIONS_FK1') Then
37 fnd_message.set_name('PER', 'PER_289093_ELC_FK1_INVALID');
38 fnd_message.set_token('PROCEDURE', l_proc);
39 fnd_message.set_token('STEP','5');
40 fnd_message.raise_error;
41 ElsIf (p_constraint_name = 'PER_ELECTIONS_FK2') Then
42 fnd_message.set_name('PER', 'PER_289094_ELC_FK2_INVALID');
43 fnd_message.set_token('PROCEDURE', l_proc);
44 fnd_message.set_token('STEP','10');
45 fnd_message.raise_error;
46 ElsIf (p_constraint_name = 'PER_ELECTIONS_PK') Then
47 fnd_message.set_name('PER', 'PER_289095_ELC_PK_INVALID');
48 fnd_message.set_token('PROCEDURE', l_proc);
49 fnd_message.set_token('STEP','15');
50 fnd_message.raise_error;
51 Else
52 fnd_message.set_name('PER', 'HR_7877_API_INVALID_CONSTRAINT');
53 fnd_message.set_token('PROCEDURE', l_proc);
54 fnd_message.set_token('CONSTRAINT_NAME', p_constraint_name);
55 fnd_message.raise_error;
56 End If;
57 --
58 End constraint_error;
59 --
60 -- ----------------------------------------------------------------------------
61 -- |-----------------------------< api_updating >-----------------------------|
62 -- ----------------------------------------------------------------------------
63 Function api_updating
64 (p_election_id in number
65 ,p_object_version_number in number
66 )
67 Return Boolean Is
68 --
69 --
70 -- Cursor selects the 'current' row from the HR Schema
71 --
72 --hr_utility.set_location('Entering: api_updating check', 29);
73 --
74 Cursor C_Sel1 is
75 select
76 election_id
77 ,business_group_id
78 ,election_date
79 ,description
80 ,rep_body_id
81 ,previous_election_date
82 ,next_election_date
83 ,result_publish_date
84 ,attribute_category
85 ,attribute1
86 ,attribute2
87 ,attribute3
88 ,attribute4
89 ,attribute5
90 ,attribute6
91 ,attribute7
92 ,attribute8
93 ,attribute9
94 ,attribute10
95 ,attribute11
96 ,attribute12
97 ,attribute13
98 ,attribute14
99 ,attribute15
100 ,attribute16
101 ,attribute17
102 ,attribute18
103 ,attribute19
104 ,attribute20
105 ,attribute21
106 ,attribute22
107 ,attribute23
108 ,attribute24
109 ,attribute25
110 ,attribute26
111 ,attribute27
112 ,attribute28
113 ,attribute29
114 ,attribute30
115 ,election_info_category
116 ,election_information1
117 ,election_information2
118 ,election_information3
119 ,election_information4
120 ,election_information5
121 ,election_information6
122 ,election_information7
123 ,election_information8
124 ,election_information9
125 ,election_information10
126 ,election_information11
127 ,election_information12
128 ,election_information13
129 ,election_information14
130 ,election_information15
131 ,election_information16
132 ,election_information17
133 ,election_information18
134 ,election_information19
135 ,election_information20
136 ,election_information21
137 ,election_information22
138 ,election_information23
139 ,election_information24
140 ,election_information25
141 ,election_information26
142 ,election_information27
143 ,election_information28
144 ,election_information29
145 ,election_information30
146 ,object_version_number
147 from per_elections
148 where election_id = p_election_id;
149 --
150 l_fct_ret boolean;
151 --
152 Begin
153 --
154 If (p_election_id is null and
155 p_object_version_number is null
156 ) Then
157 --
158 hr_utility.set_location('Entering: Test2', 31);
159 -- One of the primary key arguments is null therefore we must
160 -- set the returning function value to false
161 --
162 l_fct_ret := false;
163 Else
164 If (p_election_id
165 = per_elc_shd.g_old_rec.election_id and
166 p_object_version_number
167 = per_elc_shd.g_old_rec.object_version_number
168 ) Then
169 --
170 -- The g_old_rec is current therefore we must
171 -- set the returning function to true
172 --
173 l_fct_ret := true;
174 Else
175 --
176 -- Select the current row into g_old_rec
177 --
178 Open C_Sel1;
179 Fetch C_Sel1 Into per_elc_shd.g_old_rec;
180 If C_Sel1%notfound Then
181 Close C_Sel1;
182 --
183 -- The primary key is invalid therefore we must error
184 --
185 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
186 fnd_message.raise_error;
187 End If;
188 Close C_Sel1;
189 If (p_object_version_number
190 <> per_elc_shd.g_old_rec.object_version_number) Then
191 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
192 fnd_message.raise_error;
193 End If;
194 l_fct_ret := true;
195 End If;
196 End If;
197 Return (l_fct_ret);
198 --
199 End api_updating;
200 --
201 -- ----------------------------------------------------------------------------
202 -- |---------------------------------< lck >----------------------------------|
203 -- ----------------------------------------------------------------------------
204 Procedure lck
205 (p_election_id in number
206 ,p_object_version_number in number
207 ) is
208 --
209 -- Cursor selects the 'current' row from the HR Schema
210 --
211 Cursor C_Sel1 is
212 select
213 election_id
214 ,business_group_id
215 ,election_date
216 ,description
217 ,rep_body_id
218 ,previous_election_date
219 ,next_election_date
220 ,result_publish_date
221 ,attribute_category
222 ,attribute1
223 ,attribute2
224 ,attribute3
225 ,attribute4
226 ,attribute5
227 ,attribute6
228 ,attribute7
229 ,attribute8
230 ,attribute9
231 ,attribute10
232 ,attribute11
233 ,attribute12
234 ,attribute13
235 ,attribute14
236 ,attribute15
237 ,attribute16
238 ,attribute17
239 ,attribute18
240 ,attribute19
241 ,attribute20
242 ,attribute21
243 ,attribute22
244 ,attribute23
245 ,attribute24
246 ,attribute25
247 ,attribute26
248 ,attribute27
249 ,attribute28
250 ,attribute29
251 ,attribute30
252 ,election_info_category
253 ,election_information1
254 ,election_information2
255 ,election_information3
256 ,election_information4
257 ,election_information5
258 ,election_information6
259 ,election_information7
260 ,election_information8
261 ,election_information9
262 ,election_information10
263 ,election_information11
264 ,election_information12
265 ,election_information13
266 ,election_information14
267 ,election_information15
268 ,election_information16
269 ,election_information17
270 ,election_information18
271 ,election_information19
272 ,election_information20
273 ,election_information21
274 ,election_information22
275 ,election_information23
276 ,election_information24
277 ,election_information25
278 ,election_information26
279 ,election_information27
280 ,election_information28
281 ,election_information29
282 ,election_information30
283 ,object_version_number
284 from per_elections
285 where election_id = p_election_id
286 for update nowait;
287 --
288 l_proc varchar2(72) := g_package||'lck';
289 --
290 Begin
291 hr_utility.set_location('Entering:'||l_proc, 5);
292 --
293 hr_api.mandatory_arg_error
294 (p_api_name => l_proc
295 ,p_argument => 'ELECTION_ID'
296 ,p_argument_value => p_election_id
297 );
298 --
299 Open C_Sel1;
300 Fetch C_Sel1 Into per_elc_shd.g_old_rec;
301 If C_Sel1%notfound then
302 Close C_Sel1;
303 --
304 -- The primary key is invalid therefore we must error
305 --
306 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
307 fnd_message.raise_error;
308 End If;
309 Close C_Sel1;
310 If (p_object_version_number
311 <> per_elc_shd.g_old_rec.object_version_number) Then
312 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
313 fnd_message.raise_error;
314 End If;
315 --
316 hr_utility.set_location(' Leaving:'||l_proc, 10);
317 --
318 -- We need to trap the ORA LOCK exception
319 --
320 Exception
321 When HR_Api.Object_Locked then
322 --
323 -- The object is locked therefore we need to supply a meaningful
324 -- error message.
325 --
326 fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
327 fnd_message.set_token('TABLE_NAME', 'per_elections');
328 fnd_message.raise_error;
329 End lck;
330 --
331 -- ----------------------------------------------------------------------------
332 -- |-----------------------------< convert_args >-----------------------------|
333 -- ----------------------------------------------------------------------------
334 Function convert_args
335 (p_election_id in number
336 ,p_business_group_id in number
337 ,p_election_date in date
338 ,p_description in varchar2
339 ,p_rep_body_id in number
340 ,p_previous_election_date in date
341 ,p_next_election_date in date
345 ,p_attribute2 in varchar2
342 ,p_result_publish_date in date
343 ,p_attribute_category in varchar2
344 ,p_attribute1 in varchar2
346 ,p_attribute3 in varchar2
347 ,p_attribute4 in varchar2
348 ,p_attribute5 in varchar2
349 ,p_attribute6 in varchar2
350 ,p_attribute7 in varchar2
351 ,p_attribute8 in varchar2
352 ,p_attribute9 in varchar2
353 ,p_attribute10 in varchar2
354 ,p_attribute11 in varchar2
355 ,p_attribute12 in varchar2
356 ,p_attribute13 in varchar2
357 ,p_attribute14 in varchar2
358 ,p_attribute15 in varchar2
359 ,p_attribute16 in varchar2
360 ,p_attribute17 in varchar2
361 ,p_attribute18 in varchar2
362 ,p_attribute19 in varchar2
363 ,p_attribute20 in varchar2
364 ,p_attribute21 in varchar2
365 ,p_attribute22 in varchar2
366 ,p_attribute23 in varchar2
367 ,p_attribute24 in varchar2
368 ,p_attribute25 in varchar2
369 ,p_attribute26 in varchar2
370 ,p_attribute27 in varchar2
371 ,p_attribute28 in varchar2
372 ,p_attribute29 in varchar2
373 ,p_attribute30 in varchar2
374 ,p_election_info_category in varchar2
375 ,p_election_information1 in varchar2
376 ,p_election_information2 in varchar2
377 ,p_election_information3 in varchar2
378 ,p_election_information4 in varchar2
379 ,p_election_information5 in varchar2
380 ,p_election_information6 in varchar2
381 ,p_election_information7 in varchar2
382 ,p_election_information8 in varchar2
383 ,p_election_information9 in varchar2
384 ,p_election_information10 in varchar2
385 ,p_election_information11 in varchar2
386 ,p_election_information12 in varchar2
387 ,p_election_information13 in varchar2
388 ,p_election_information14 in varchar2
389 ,p_election_information15 in varchar2
390 ,p_election_information16 in varchar2
391 ,p_election_information17 in varchar2
392 ,p_election_information18 in varchar2
393 ,p_election_information19 in varchar2
394 ,p_election_information20 in varchar2
395 ,p_election_information21 in varchar2
396 ,p_election_information22 in varchar2
397 ,p_election_information23 in varchar2
398 ,p_election_information24 in varchar2
399 ,p_election_information25 in varchar2
400 ,p_election_information26 in varchar2
401 ,p_election_information27 in varchar2
402 ,p_election_information28 in varchar2
403 ,p_election_information29 in varchar2
404 ,p_election_information30 in varchar2
405 ,p_object_version_number in number
406 )
407 Return g_rec_type is
408 --
409 l_rec g_rec_type;
410 --
411 Begin
412 --
413 -- Convert arguments into local l_rec structure.
414 --
415 l_rec.election_id := p_election_id;
416 l_rec.business_group_id := p_business_group_id;
417 l_rec.election_date := p_election_date;
418 l_rec.description := p_description;
419 l_rec.rep_body_id := p_rep_body_id;
420 l_rec.previous_election_date := p_previous_election_date;
421 l_rec.next_election_date := p_next_election_date;
422 l_rec.result_publish_date := p_result_publish_date;
423 l_rec.attribute_category := p_attribute_category;
424 l_rec.attribute1 := p_attribute1;
425 l_rec.attribute2 := p_attribute2;
426 l_rec.attribute3 := p_attribute3;
427 l_rec.attribute4 := p_attribute4;
428 l_rec.attribute5 := p_attribute5;
429 l_rec.attribute6 := p_attribute6;
430 l_rec.attribute7 := p_attribute7;
431 l_rec.attribute8 := p_attribute8;
432 l_rec.attribute9 := p_attribute9;
433 l_rec.attribute10 := p_attribute10;
434 l_rec.attribute11 := p_attribute11;
435 l_rec.attribute12 := p_attribute12;
436 l_rec.attribute13 := p_attribute13;
437 l_rec.attribute14 := p_attribute14;
438 l_rec.attribute15 := p_attribute15;
439 l_rec.attribute16 := p_attribute16;
440 l_rec.attribute17 := p_attribute17;
441 l_rec.attribute18 := p_attribute18;
442 l_rec.attribute19 := p_attribute19;
443 l_rec.attribute20 := p_attribute20;
444 l_rec.attribute21 := p_attribute21;
445 l_rec.attribute22 := p_attribute22;
446 l_rec.attribute23 := p_attribute23;
447 l_rec.attribute24 := p_attribute24;
448 l_rec.attribute25 := p_attribute25;
449 l_rec.attribute26 := p_attribute26;
450 l_rec.attribute27 := p_attribute27;
451 l_rec.attribute28 := p_attribute28;
452 l_rec.attribute29 := p_attribute29;
453 l_rec.attribute30 := p_attribute30;
454 l_rec.election_info_category := p_election_info_category;
455 l_rec.election_information1 := p_election_information1;
456 l_rec.election_information2 := p_election_information2;
457 l_rec.election_information3 := p_election_information3;
458 l_rec.election_information4 := p_election_information4;
459 l_rec.election_information5 := p_election_information5;
460 l_rec.election_information6 := p_election_information6;
461 l_rec.election_information7 := p_election_information7;
462 l_rec.election_information8 := p_election_information8;
463 l_rec.election_information9 := p_election_information9;
464 l_rec.election_information10 := p_election_information10;
465 l_rec.election_information11 := p_election_information11;
466 l_rec.election_information12 := p_election_information12;
467 l_rec.election_information13 := p_election_information13;
468 l_rec.election_information14 := p_election_information14;
469 l_rec.election_information15 := p_election_information15;
470 l_rec.election_information16 := p_election_information16;
471 l_rec.election_information17 := p_election_information17;
472 l_rec.election_information18 := p_election_information18;
473 l_rec.election_information19 := p_election_information19;
474 l_rec.election_information20 := p_election_information20;
475 l_rec.election_information21 := p_election_information21;
476 l_rec.election_information22 := p_election_information22;
477 l_rec.election_information23 := p_election_information23;
478 l_rec.election_information24 := p_election_information24;
479 l_rec.election_information25 := p_election_information25;
480 l_rec.election_information26 := p_election_information26;
481 l_rec.election_information27 := p_election_information27;
482 l_rec.election_information28 := p_election_information28;
483 l_rec.election_information29 := p_election_information29;
484 l_rec.election_information30 := p_election_information30;
485 l_rec.object_version_number := p_object_version_number;
486 --
487 -- Return the plsql record structure.
488 --
489 Return(l_rec);
490 --
491 End convert_args;
492 --
493 end per_elc_shd;