[Home] [Help]
PACKAGE BODY: APPS.PER_ELC_INS
Source
1 Package Body per_elc_ins 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_ins.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |------------------------------< insert_dml >------------------------------|
12 -- ----------------------------------------------------------------------------
13 -- {Start Of Comments}
14 --
15 -- Description:
16 -- This procedure controls the actual dml insert logic. The processing of
17 -- this procedure are as follows:
18 -- 1) Initialise the object_version_number to 1 if the object_version_number
19 -- is defined as an attribute for this entity.
20 -- 2) To set and unset the g_api_dml status as required (as we are about to
21 -- perform dml).
22 -- 3) To insert the row into the schema.
23 -- 4) To trap any constraint violations that may have occurred.
24 -- 5) To raise any other errors.
25 --
26 -- Prerequisites:
27 -- This is an internal private procedure which must be called from the ins
28 -- procedure and must have all mandatory attributes set (except the
29 -- object_version_number which is initialised within this procedure).
30 --
31 -- In Parameters:
32 -- A Pl/Sql record structre.
33 --
34 -- Post Success:
35 -- The specified row will be inserted into the schema.
36 --
37 -- Post Failure:
38 -- On the insert dml failure it is important to note that we always reset the
39 -- g_api_dml status to false.
40 -- If a check, unique or parent integrity constraint violation is raised the
41 -- constraint_error procedure will be called.
42 -- If any other error is reported, the error will be raised after the
43 -- g_api_dml status is reset.
44 --
45 -- Developer Implementation Notes:
46 -- None.
47 --
48 -- Access Status:
49 -- Internal Row Handler Use Only.
50 --
51 -- {End Of Comments}
52 -- ----------------------------------------------------------------------------
53 Procedure insert_dml
54 (p_rec in out nocopy per_elc_shd.g_rec_type
55 ) is
56 --
57 l_proc varchar2(72) := g_package||'insert_dml';
58 l_created_by per_elections.created_by%TYPE;
59 l_creation_date per_elections.creation_date%TYPE;
60 l_last_update_date per_elections.last_update_date%TYPE;
61 l_last_updated_by per_elections.last_updated_by%TYPE;
62 l_last_update_login per_elections.last_update_login%TYPE;
63 --
64 Begin
65 hr_utility.set_location('Entering:'||l_proc, 5);
66 p_rec.object_version_number := 1; -- Initialise the object version
67 --
68 per_elc_shd.g_api_dml := true; -- Set the api dml status
69 --
70 --
71 -- Set the who columns
72 --
73 l_creation_date := sysdate;
74 l_created_by := fnd_global.user_id;
75 l_last_update_date := sysdate;
76 l_last_updated_by := fnd_global.user_id;
77 l_last_update_login := fnd_global.login_id;
78 --
79 -- Insert the row into: per_elections
80 --
81 insert into per_elections
82 (election_id
83 ,business_group_id
84 ,election_date
85 ,description
86 ,rep_body_id
87 ,previous_election_date
88 ,next_election_date
89 ,result_publish_date
90 ,attribute_category
91 ,attribute1
92 ,attribute2
93 ,attribute3
94 ,attribute4
95 ,attribute5
96 ,attribute6
97 ,attribute7
98 ,attribute8
99 ,attribute9
100 ,attribute10
101 ,attribute11
102 ,attribute12
103 ,attribute13
104 ,attribute14
105 ,attribute15
106 ,attribute16
107 ,attribute17
108 ,attribute18
109 ,attribute19
110 ,attribute20
111 ,attribute21
112 ,attribute22
113 ,attribute23
114 ,attribute24
115 ,attribute25
116 ,attribute26
117 ,attribute27
118 ,attribute28
119 ,attribute29
120 ,attribute30
121 ,election_info_category
122 ,election_information1
123 ,election_information2
124 ,election_information3
125 ,election_information4
126 ,election_information5
127 ,election_information6
128 ,election_information7
129 ,election_information8
130 ,election_information9
131 ,election_information10
132 ,election_information11
133 ,election_information12
134 ,election_information13
135 ,election_information14
136 ,election_information15
137 ,election_information16
138 ,election_information17
139 ,election_information18
140 ,election_information19
141 ,election_information20
142 ,election_information21
143 ,election_information22
144 ,election_information23
145 ,election_information24
146 ,election_information25
147 ,election_information26
148 ,election_information27
149 ,election_information28
150 ,election_information29
151 ,election_information30
152 ,object_version_number
153 ,creation_date
154 ,created_by
155 ,last_update_date
156 ,last_updated_by
157 ,last_update_login
158 )
159 Values
160 (p_rec.election_id
161 ,p_rec.business_group_id
162 ,p_rec.election_date
163 ,p_rec.description
164 ,p_rec.rep_body_id
165 ,p_rec.previous_election_date
166 ,p_rec.next_election_date
167 ,p_rec.result_publish_date
168 ,p_rec.attribute_category
169 ,p_rec.attribute1
170 ,p_rec.attribute2
171 ,p_rec.attribute3
172 ,p_rec.attribute4
173 ,p_rec.attribute5
174 ,p_rec.attribute6
175 ,p_rec.attribute7
176 ,p_rec.attribute8
177 ,p_rec.attribute9
178 ,p_rec.attribute10
179 ,p_rec.attribute11
180 ,p_rec.attribute12
181 ,p_rec.attribute13
182 ,p_rec.attribute14
183 ,p_rec.attribute15
184 ,p_rec.attribute16
185 ,p_rec.attribute17
186 ,p_rec.attribute18
187 ,p_rec.attribute19
188 ,p_rec.attribute20
189 ,p_rec.attribute21
190 ,p_rec.attribute22
191 ,p_rec.attribute23
192 ,p_rec.attribute24
193 ,p_rec.attribute25
194 ,p_rec.attribute26
195 ,p_rec.attribute27
196 ,p_rec.attribute28
197 ,p_rec.attribute29
198 ,p_rec.attribute30
199 ,p_rec.election_info_category
200 ,p_rec.election_information1
201 ,p_rec.election_information2
202 ,p_rec.election_information3
203 ,p_rec.election_information4
204 ,p_rec.election_information5
205 ,p_rec.election_information6
206 ,p_rec.election_information7
207 ,p_rec.election_information8
208 ,p_rec.election_information9
209 ,p_rec.election_information10
210 ,p_rec.election_information11
211 ,p_rec.election_information12
212 ,p_rec.election_information13
213 ,p_rec.election_information14
214 ,p_rec.election_information15
215 ,p_rec.election_information16
216 ,p_rec.election_information17
217 ,p_rec.election_information18
218 ,p_rec.election_information19
219 ,p_rec.election_information20
220 ,p_rec.election_information21
221 ,p_rec.election_information22
222 ,p_rec.election_information23
223 ,p_rec.election_information24
224 ,p_rec.election_information25
225 ,p_rec.election_information26
226 ,p_rec.election_information27
227 ,p_rec.election_information28
228 ,p_rec.election_information29
229 ,p_rec.election_information30
230 ,p_rec.object_version_number
231 ,l_creation_date
232 ,l_created_by
233 ,l_last_update_date
234 ,l_last_updated_by
235 ,l_last_update_login
236 );
237 --
238 per_elc_shd.g_api_dml := false; -- Unset the api dml status
239 --
240 hr_utility.set_location(' Leaving:'||l_proc, 10);
241 Exception
242 When hr_api.check_integrity_violated Then
243 -- A check constraint has been violated
244 per_elc_shd.g_api_dml := false; -- Unset the api dml status
245 per_elc_shd.constraint_error
246 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
247 When hr_api.parent_integrity_violated Then
248 -- Parent integrity has been violated
249 per_elc_shd.g_api_dml := false; -- Unset the api dml status
250 per_elc_shd.constraint_error
251 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
252 When hr_api.unique_integrity_violated Then
253 -- Unique integrity has been violated
254 per_elc_shd.g_api_dml := false; -- Unset the api dml status
255 per_elc_shd.constraint_error
256 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
257 When Others Then
258 per_elc_shd.g_api_dml := false; -- Unset the api dml status
259 Raise;
260 End insert_dml;
261 --
262 -- ----------------------------------------------------------------------------
263 -- |------------------------------< pre_insert >------------------------------|
264 -- ----------------------------------------------------------------------------
265 -- {Start Of Comments}
266 --
267 -- Description:
268 -- This private procedure contains any processing which is required before
269 -- the insert dml. Presently, if the entity has a corresponding primary
270 -- key which is maintained by an associating sequence, the primary key for
271 -- the entity will be populated with the next sequence value in
272 -- preparation for the insert dml.
273 --
274 -- Prerequisites:
275 -- This is an internal procedure which is called from the ins procedure.
276 --
277 -- In Parameters:
278 -- A Pl/Sql record structre.
279 --
280 -- Post Success:
281 -- Processing continues.
282 --
283 -- Post Failure:
284 -- If an error has occurred, an error message and exception will be raised
285 -- but not handled.
286 --
287 -- Developer Implementation Notes:
288 -- Any pre-processing required before the insert dml is issued should be
289 -- coded within this procedure. As stated above, a good example is the
290 -- generation of a primary key number via a corresponding sequence.
291 -- It is important to note that any 3rd party maintenance should be reviewed
292 -- before placing in this procedure.
293 --
294 -- Access Status:
295 -- Internal Row Handler Use Only.
296 --
297 -- {End Of Comments}
298 -- ----------------------------------------------------------------------------
299 Procedure pre_insert
300 (p_rec in out nocopy per_elc_shd.g_rec_type
301 ) is
302 --
303 l_proc varchar2(72) := g_package||'pre_insert';
304 --
305 Cursor C_Sel1 is select per_elections_s.nextval from sys.dual;
306 --
307 Begin
308 hr_utility.set_location('Entering:'||l_proc, 5);
309 --
310 --
311 -- Select the next sequence number
312 --
313 Open C_Sel1;
314 Fetch C_Sel1 Into p_rec.election_id;
315 Close C_Sel1;
316 --
317 hr_utility.set_location(' Leaving:'||l_proc, 10);
318 End pre_insert;
319 --
320 -- ----------------------------------------------------------------------------
321 -- |-----------------------------< post_insert >------------------------------|
322 -- ----------------------------------------------------------------------------
323 -- {Start Of Comments}
324 --
325 -- Description:
326 -- This private procedure contains any processing which is required after the
327 -- insert dml.
328 --
329 -- Prerequisites:
330 -- This is an internal procedure which is called from the ins procedure.
331 --
332 -- In Parameters:
333 -- A Pl/Sql record structre.
334 --
335 -- Post Success:
336 -- Processing continues.
337 --
338 -- Post Failure:
339 -- If an error has occurred, an error message and exception will be raised
340 -- but not handled.
341 --
342 -- Developer Implementation Notes:
343 -- Any post-processing required after the insert dml is issued should be
344 -- coded within this procedure. It is important to note that any 3rd party
345 -- maintenance should be reviewed before placing in this procedure.
346 --
347 -- Access Status:
348 -- Internal Row Handler Use Only.
349 --
350 -- {End Of Comments}
351 -- ----------------------------------------------------------------------------
352 Procedure post_insert
353 (p_effective_date in date
354 ,p_rec in per_elc_shd.g_rec_type
355 ) is
356 --
357 l_proc varchar2(72) := g_package||'post_insert';
358 --
359 Begin
360 hr_utility.set_location('Entering:'||l_proc, 5);
361 begin
362 --
363 per_elc_rki.after_insert
364 (p_effective_date => p_effective_date
365 ,p_election_id
366 => p_rec.election_id
367 ,p_business_group_id
368 => p_rec.business_group_id
369 ,p_election_date
370 => p_rec.election_date
371 ,p_description
372 => p_rec.description
373 ,p_rep_body_id
374 => p_rec.rep_body_id
375 ,p_previous_election_date
376 => p_rec.previous_election_date
377 ,p_next_election_date
378 => p_rec.next_election_date
379 ,p_result_publish_date
380 => p_rec.result_publish_date
381 ,p_attribute_category
382 => p_rec.attribute_category
383 ,p_attribute1
384 => p_rec.attribute1
385 ,p_attribute2
386 => p_rec.attribute2
387 ,p_attribute3
388 => p_rec.attribute3
389 ,p_attribute4
390 => p_rec.attribute4
391 ,p_attribute5
392 => p_rec.attribute5
393 ,p_attribute6
394 => p_rec.attribute6
395 ,p_attribute7
396 => p_rec.attribute7
397 ,p_attribute8
398 => p_rec.attribute8
399 ,p_attribute9
400 => p_rec.attribute9
401 ,p_attribute10
402 => p_rec.attribute10
403 ,p_attribute11
404 => p_rec.attribute11
405 ,p_attribute12
406 => p_rec.attribute12
407 ,p_attribute13
408 => p_rec.attribute13
409 ,p_attribute14
410 => p_rec.attribute14
411 ,p_attribute15
412 => p_rec.attribute15
413 ,p_attribute16
414 => p_rec.attribute16
415 ,p_attribute17
416 => p_rec.attribute17
417 ,p_attribute18
418 => p_rec.attribute18
419 ,p_attribute19
420 => p_rec.attribute19
421 ,p_attribute20
422 => p_rec.attribute20
423 ,p_attribute21
424 => p_rec.attribute21
425 ,p_attribute22
426 => p_rec.attribute22
427 ,p_attribute23
428 => p_rec.attribute23
429 ,p_attribute24
430 => p_rec.attribute24
431 ,p_attribute25
432 => p_rec.attribute25
433 ,p_attribute26
434 => p_rec.attribute26
435 ,p_attribute27
436 => p_rec.attribute27
437 ,p_attribute28
438 => p_rec.attribute28
439 ,p_attribute29
440 => p_rec.attribute29
441 ,p_attribute30
442 => p_rec.attribute30
443 ,p_election_info_category
444 => p_rec.election_info_category
445 ,p_election_information1
446 => p_rec.election_information1
447 ,p_election_information2
448 => p_rec.election_information2
449 ,p_election_information3
450 => p_rec.election_information3
451 ,p_election_information4
452 => p_rec.election_information4
453 ,p_election_information5
454 => p_rec.election_information5
455 ,p_election_information6
456 => p_rec.election_information6
457 ,p_election_information7
458 => p_rec.election_information7
459 ,p_election_information8
460 => p_rec.election_information8
461 ,p_election_information9
462 => p_rec.election_information9
463 ,p_election_information10
464 => p_rec.election_information10
465 ,p_election_information11
466 => p_rec.election_information11
467 ,p_election_information12
468 => p_rec.election_information12
469 ,p_election_information13
470 => p_rec.election_information13
471 ,p_election_information14
472 => p_rec.election_information14
473 ,p_election_information15
474 => p_rec.election_information15
475 ,p_election_information16
476 => p_rec.election_information16
477 ,p_election_information17
478 => p_rec.election_information17
479 ,p_election_information18
480 => p_rec.election_information18
481 ,p_election_information19
482 => p_rec.election_information19
483 ,p_election_information20
484 => p_rec.election_information20
485 ,p_election_information21
486 => p_rec.election_information21
487 ,p_election_information22
488 => p_rec.election_information22
489 ,p_election_information23
490 => p_rec.election_information23
491 ,p_election_information24
492 => p_rec.election_information24
493 ,p_election_information25
494 => p_rec.election_information25
495 ,p_election_information26
496 => p_rec.election_information26
497 ,p_election_information27
498 => p_rec.election_information27
499 ,p_election_information28
500 => p_rec.election_information28
501 ,p_election_information29
502 => p_rec.election_information29
503 ,p_election_information30
504 => p_rec.election_information30
505 ,p_object_version_number
506 => p_rec.object_version_number
507 );
508 --
509 exception
510 --
511 when hr_api.cannot_find_prog_unit then
512 --
513 hr_api.cannot_find_prog_unit_error
514 (p_module_name => 'PER_ELECTIONS'
515 ,p_hook_type => 'AI');
516 --
517 end;
518 --
519 hr_utility.set_location(' Leaving:'||l_proc, 10);
520 End post_insert;
521 --
522 -- ----------------------------------------------------------------------------
523 -- |---------------------------------< ins >----------------------------------|
524 -- ----------------------------------------------------------------------------
525 Procedure ins
526 (p_effective_date in date
527 ,p_validate in boolean default false
528 ,p_rec in out nocopy per_elc_shd.g_rec_type
529 ) is
530 --
531 l_proc varchar2(72) := g_package||'ins';
532 --
533 Begin
534 hr_utility.set_location('Entering:'||l_proc, 5);
535 --
536 -- Determine if the business process is to be validated.
537 --
538 If p_validate then
539 --
540 -- Issue the savepoint.
541 --
542 SAVEPOINT ins_per_elc;
543 End If;
544 --
545 -- Call the supporting insert validate operations
546 --
547 per_elc_bus.insert_validate
548 (p_effective_date
549 ,p_rec
550 );
551 --
552 -- Call the supporting pre-insert operation
553 --
554 per_elc_ins.pre_insert(p_rec);
555 --
556 -- Insert the row
557 --
558 per_elc_ins.insert_dml(p_rec);
559 --
560 -- Call the supporting post-insert operation
561 --
562 per_elc_ins.post_insert
563 (p_effective_date
564 ,p_rec
565 );
566 --
567 -- If we are validating then raise the Validate_Enabled exception
568 --
569 If p_validate then
570 Raise HR_Api.Validate_Enabled;
571 End If;
572 --
573 hr_utility.set_location(' Leaving:'||l_proc, 10);
574 Exception
575 When HR_Api.Validate_Enabled Then
576 --
577 -- As the Validate_Enabled exception has been raised
578 -- we must rollback to the savepoint
579 --
580 ROLLBACK TO ins_per_elc;
581 hr_utility.set_location('Leaving:'||l_proc, 20);
582 end ins;
583 --
584 -- ----------------------------------------------------------------------------
585 -- |---------------------------------< ins >----------------------------------|
586 -- ----------------------------------------------------------------------------
587 Procedure ins
588 (p_effective_date in date
589 ,p_validate in boolean default false
590 ,p_business_group_id in number
591 ,p_election_date in date
592 ,p_description in varchar2 default null
593 ,p_rep_body_id in number
594 ,p_previous_election_date in date default null
595 ,p_next_election_date in date default null
596 ,p_result_publish_date in date default null
597 ,p_attribute_category in varchar2 default null
598 ,p_attribute1 in varchar2 default null
599 ,p_attribute2 in varchar2 default null
600 ,p_attribute3 in varchar2 default null
601 ,p_attribute4 in varchar2 default null
602 ,p_attribute5 in varchar2 default null
603 ,p_attribute6 in varchar2 default null
604 ,p_attribute7 in varchar2 default null
605 ,p_attribute8 in varchar2 default null
606 ,p_attribute9 in varchar2 default null
607 ,p_attribute10 in varchar2 default null
608 ,p_attribute11 in varchar2 default null
609 ,p_attribute12 in varchar2 default null
610 ,p_attribute13 in varchar2 default null
611 ,p_attribute14 in varchar2 default null
612 ,p_attribute15 in varchar2 default null
613 ,p_attribute16 in varchar2 default null
614 ,p_attribute17 in varchar2 default null
615 ,p_attribute18 in varchar2 default null
616 ,p_attribute19 in varchar2 default null
617 ,p_attribute20 in varchar2 default null
618 ,p_attribute21 in varchar2 default null
619 ,p_attribute22 in varchar2 default null
620 ,p_attribute23 in varchar2 default null
621 ,p_attribute24 in varchar2 default null
622 ,p_attribute25 in varchar2 default null
623 ,p_attribute26 in varchar2 default null
624 ,p_attribute27 in varchar2 default null
625 ,p_attribute28 in varchar2 default null
626 ,p_attribute29 in varchar2 default null
627 ,p_attribute30 in varchar2 default null
628 ,p_election_info_category in varchar2 default null
629 ,p_election_information1 in varchar2 default null
630 ,p_election_information2 in varchar2 default null
631 ,p_election_information3 in varchar2 default null
632 ,p_election_information4 in varchar2 default null
633 ,p_election_information5 in varchar2 default null
634 ,p_election_information6 in varchar2 default null
635 ,p_election_information7 in varchar2 default null
636 ,p_election_information8 in varchar2 default null
637 ,p_election_information9 in varchar2 default null
638 ,p_election_information10 in varchar2 default null
639 ,p_election_information11 in varchar2 default null
640 ,p_election_information12 in varchar2 default null
641 ,p_election_information13 in varchar2 default null
642 ,p_election_information14 in varchar2 default null
643 ,p_election_information15 in varchar2 default null
644 ,p_election_information16 in varchar2 default null
645 ,p_election_information17 in varchar2 default null
646 ,p_election_information18 in varchar2 default null
647 ,p_election_information19 in varchar2 default null
648 ,p_election_information20 in varchar2 default null
649 ,p_election_information21 in varchar2 default null
650 ,p_election_information22 in varchar2 default null
651 ,p_election_information23 in varchar2 default null
652 ,p_election_information24 in varchar2 default null
653 ,p_election_information25 in varchar2 default null
654 ,p_election_information26 in varchar2 default null
655 ,p_election_information27 in varchar2 default null
656 ,p_election_information28 in varchar2 default null
657 ,p_election_information29 in varchar2 default null
658 ,p_election_information30 in varchar2 default null
659 ,p_election_id out nocopy number
660 ,p_object_version_number out nocopy number
661 ) is
662 --
663 l_rec per_elc_shd.g_rec_type;
664 l_proc varchar2(72) := g_package||'ins';
665 --
666 Begin
667 hr_utility.set_location('Entering:'||l_proc, 5);
668 --
669 -- Call conversion function to turn arguments into the
670 -- p_rec structure.
671 --
672 l_rec :=
673 per_elc_shd.convert_args
674 (null
675 ,p_business_group_id
676 ,p_election_date
677 ,p_description
678 ,p_rep_body_id
679 ,p_previous_election_date
680 ,p_next_election_date
681 ,p_result_publish_date
682 ,p_attribute_category
683 ,p_attribute1
684 ,p_attribute2
685 ,p_attribute3
686 ,p_attribute4
687 ,p_attribute5
688 ,p_attribute6
689 ,p_attribute7
690 ,p_attribute8
691 ,p_attribute9
692 ,p_attribute10
693 ,p_attribute11
694 ,p_attribute12
695 ,p_attribute13
696 ,p_attribute14
697 ,p_attribute15
698 ,p_attribute16
699 ,p_attribute17
700 ,p_attribute18
701 ,p_attribute19
702 ,p_attribute20
703 ,p_attribute21
704 ,p_attribute22
705 ,p_attribute23
706 ,p_attribute24
707 ,p_attribute25
708 ,p_attribute26
709 ,p_attribute27
710 ,p_attribute28
711 ,p_attribute29
712 ,p_attribute30
713 ,p_election_info_category
714 ,p_election_information1
715 ,p_election_information2
716 ,p_election_information3
717 ,p_election_information4
718 ,p_election_information5
719 ,p_election_information6
720 ,p_election_information7
721 ,p_election_information8
722 ,p_election_information9
723 ,p_election_information10
724 ,p_election_information11
725 ,p_election_information12
726 ,p_election_information13
727 ,p_election_information14
728 ,p_election_information15
729 ,p_election_information16
730 ,p_election_information17
731 ,p_election_information18
732 ,p_election_information19
733 ,p_election_information20
734 ,p_election_information21
735 ,p_election_information22
736 ,p_election_information23
737 ,p_election_information24
738 ,p_election_information25
739 ,p_election_information26
740 ,p_election_information27
741 ,p_election_information28
742 ,p_election_information29
743 ,p_election_information30
744 ,null
745 );
746 --
747 -- Having converted the arguments into the per_elc_rec
748 -- plsql record structure we call the corresponding record business process.
749 --
750 per_elc_ins.ins
751 (p_effective_date
752 ,p_validate
753 ,l_rec
754 );
755 --
756 -- As the primary key argument(s)
757 -- are specified as an OUT's we must set these values.
758 --
759 p_election_id := l_rec.election_id;
760 p_object_version_number := l_rec.object_version_number;
761 --
762 hr_utility.set_location(' Leaving:'||l_proc, 10);
763 End ins;
764 --
765 end per_elc_ins;