1 Package Body per_eco_upd as
2 /* $Header: peecorhi.pkb 115.7 2002/12/05 10:37:50 pkakar noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' per_eco_upd.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |------------------------------< update_dml >------------------------------|
12 -- ----------------------------------------------------------------------------
13 -- {Start Of Comments}
14 --
15 -- Description:
16 -- This procedure controls the actual dml update logic. The processing of
17 -- this procedure is:
18 -- 1) Increment the object_version_number by 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 update the specified row in the schema using the primary key in
23 -- the predicates.
24 -- 4) To trap any constraint violations that may have occurred.
25 -- 5) To raise any other errors.
26 --
27 -- Prerequisites:
28 -- This is an internal private procedure which must be called from the upd
29 -- procedure.
30 --
31 -- In Parameters:
32 -- A Pl/Sql record structre.
33 --
34 -- Post Success:
35 -- The specified row will be updated in the schema.
36 --
37 -- Post Failure:
38 -- On the update 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 -- The update 'set' attribute list should be modified if any of your
47 -- attributes are not updateable.
48 --
49 -- Access Status:
50 -- Internal Row Handler Use Only.
51 --
52 -- {End Of Comments}
53 -- ----------------------------------------------------------------------------
54 Procedure update_dml
55 (p_rec in out nocopy per_eco_shd.g_rec_type
56 ) is
57 --
58 l_proc varchar2(72) := g_package||'update_dml';
59 l_last_update_date per_election_constituencys.last_update_date%TYPE;
60 l_last_updated_by per_election_constituencys.last_updated_by%TYPE;
61 l_last_update_login per_election_constituencys.last_update_login%TYPE;
62 --
63 Begin
64 hr_utility.set_location('Entering:'||l_proc, 5);
65 --
66 -- Increment the object version
67 p_rec.object_version_number := p_rec.object_version_number + 1;
68 --
69 per_eco_shd.g_api_dml := true; -- Set the api dml status
70 --
71 -- Set the who columns
72 --
73 l_last_update_date := sysdate;
74 l_last_updated_by := fnd_global.user_id;
75 l_last_update_login := fnd_global.login_id;
76 --
77 -- Update the per_election_constituencys Row
78 --
79 update per_election_constituencys
80 set
81 election_constituency_id = p_rec.election_constituency_id
82 ,election_id = p_rec.election_id
83 ,business_group_id = p_rec.business_group_id
84 ,constituency_id = p_rec.constituency_id
85 ,attribute_category = p_rec.attribute_category
86 ,attribute1 = p_rec.attribute1
87 ,attribute2 = p_rec.attribute2
88 ,attribute3 = p_rec.attribute3
89 ,attribute4 = p_rec.attribute4
90 ,attribute5 = p_rec.attribute5
91 ,attribute6 = p_rec.attribute6
92 ,attribute7 = p_rec.attribute7
93 ,attribute8 = p_rec.attribute8
94 ,attribute9 = p_rec.attribute9
95 ,attribute10 = p_rec.attribute10
96 ,attribute11 = p_rec.attribute11
97 ,attribute12 = p_rec.attribute12
98 ,attribute13 = p_rec.attribute13
99 ,attribute14 = p_rec.attribute14
100 ,attribute15 = p_rec.attribute15
101 ,attribute16 = p_rec.attribute16
102 ,attribute17 = p_rec.attribute17
103 ,attribute18 = p_rec.attribute18
104 ,attribute19 = p_rec.attribute19
105 ,attribute20 = p_rec.attribute20
106 ,attribute21 = p_rec.attribute21
107 ,attribute22 = p_rec.attribute22
108 ,attribute23 = p_rec.attribute23
109 ,attribute24 = p_rec.attribute24
110 ,attribute25 = p_rec.attribute25
111 ,attribute26 = p_rec.attribute26
112 ,attribute27 = p_rec.attribute27
113 ,attribute28 = p_rec.attribute28
114 ,attribute29 = p_rec.attribute29
115 ,attribute30 = p_rec.attribute30
116 ,object_version_number = p_rec.object_version_number
117 ,last_update_date = l_last_update_date
118 ,last_updated_by = l_last_updated_by
119 ,last_update_login = l_last_update_login
120 where election_constituency_id = p_rec.election_constituency_id;
121 --
122 per_eco_shd.g_api_dml := false; -- Unset the api dml status
123 --
124 hr_utility.set_location(' Leaving:'||l_proc, 10);
125 --
126 Exception
127 When hr_api.check_integrity_violated Then
128 -- A check constraint has been violated
129 per_eco_shd.g_api_dml := false; -- Unset the api dml status
130 per_eco_shd.constraint_error
131 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
132 When hr_api.parent_integrity_violated Then
133 -- Parent integrity has been violated
134 per_eco_shd.g_api_dml := false; -- Unset the api dml status
135 per_eco_shd.constraint_error
136 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
137 When hr_api.unique_integrity_violated Then
138 -- Unique integrity has been violated
139 per_eco_shd.g_api_dml := false; -- Unset the api dml status
140 per_eco_shd.constraint_error
141 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
142 When Others Then
143 per_eco_shd.g_api_dml := false; -- Unset the api dml status
144 Raise;
145 End update_dml;
146 --
147 -- ----------------------------------------------------------------------------
148 -- |------------------------------< pre_update >------------------------------|
149 -- ----------------------------------------------------------------------------
150 -- {Start Of Comments}
151 --
152 -- Description:
153 -- This private procedure contains any processing which is required before
154 -- the update dml.
155 --
156 -- Prerequisites:
157 -- This is an internal procedure which is called from the upd procedure.
158 --
159 -- In Parameters:
160 -- A Pl/Sql record structure.
161 --
162 -- Post Success:
163 -- Processing continues.
164 --
165 -- Post Failure:
166 -- If an error has occurred, an error message and exception wil be raised
167 -- but not handled.
168 --
169 -- Developer Implementation Notes:
170 -- Any pre-processing required before the update dml is issued should be
171 -- coded within this procedure. It is important to note that any 3rd party
172 -- maintenance should be reviewed before placing in this procedure.
173 --
174 -- Access Status:
175 -- Internal Row Handler Use Only.
176 --
177 -- {End Of Comments}
178 -- ----------------------------------------------------------------------------
179 Procedure pre_update
180 (p_rec in per_eco_shd.g_rec_type
181 ) is
182 --
183 l_proc varchar2(72) := g_package||'pre_update';
184 --
185 Begin
186 hr_utility.set_location('Entering:'||l_proc, 5);
187 --
188 hr_utility.set_location(' Leaving:'||l_proc, 10);
189 End pre_update;
190 --
191 -- ----------------------------------------------------------------------------
192 -- |-----------------------------< post_update >------------------------------|
193 -- ----------------------------------------------------------------------------
194 -- {Start Of Comments}
195 --
196 -- Description:
197 -- This private procedure contains any processing which is required after the
198 -- update dml.
199 --
200 -- Prerequisites:
201 -- This is an internal procedure which is called from the upd procedure.
202 --
203 -- In Parameters:
204 -- A Pl/Sql record structure.
205 --
206 -- Post Success:
207 -- Processing continues.
208 --
209 -- Post Failure:
210 -- If an error has occurred, an error message and exception will be raised
211 -- but not handled.
212 --
213 -- Developer Implementation Notes:
214 -- Any post-processing required after the update dml is issued should be
215 -- coded within this procedure. It is important to note that any 3rd party
216 -- maintenance should be reviewed before placing in this procedure.
217 --
218 -- Access Status:
219 -- Internal Row Handler Use Only.
220 --
221 -- {End Of Comments}
222 -- ----------------------------------------------------------------------------
223 Procedure post_update
224 (p_effective_date in date
225 ,p_rec in per_eco_shd.g_rec_type
226 ) is
227 --
228 l_proc varchar2(72) := g_package||'post_update';
229 --
230 Begin
231 hr_utility.set_location('Entering:'||l_proc, 5);
232 begin
233 --
234 per_eco_rku.after_update
235 (p_effective_date => p_effective_date
236 ,p_election_constituency_id
237 => p_rec.election_constituency_id
238 ,p_election_id
239 => p_rec.election_id
240 ,p_business_group_id
241 => p_rec.business_group_id
242 ,p_constituency_id
243 => p_rec.constituency_id
244 ,p_attribute_category
245 => p_rec.attribute_category
246 ,p_attribute1
247 => p_rec.attribute1
248 ,p_attribute2
249 => p_rec.attribute2
250 ,p_attribute3
251 => p_rec.attribute3
252 ,p_attribute4
253 => p_rec.attribute4
254 ,p_attribute5
255 => p_rec.attribute5
256 ,p_attribute6
257 => p_rec.attribute6
258 ,p_attribute7
259 => p_rec.attribute7
260 ,p_attribute8
261 => p_rec.attribute8
262 ,p_attribute9
263 => p_rec.attribute9
264 ,p_attribute10
265 => p_rec.attribute10
266 ,p_attribute11
267 => p_rec.attribute11
268 ,p_attribute12
269 => p_rec.attribute12
270 ,p_attribute13
271 => p_rec.attribute13
272 ,p_attribute14
273 => p_rec.attribute14
274 ,p_attribute15
275 => p_rec.attribute15
276 ,p_attribute16
277 => p_rec.attribute16
278 ,p_attribute17
279 => p_rec.attribute17
280 ,p_attribute18
281 => p_rec.attribute18
282 ,p_attribute19
283 => p_rec.attribute19
284 ,p_attribute20
285 => p_rec.attribute20
286 ,p_attribute21
287 => p_rec.attribute21
288 ,p_attribute22
289 => p_rec.attribute22
290 ,p_attribute23
291 => p_rec.attribute23
292 ,p_attribute24
293 => p_rec.attribute24
294 ,p_attribute25
295 => p_rec.attribute25
296 ,p_attribute26
297 => p_rec.attribute26
298 ,p_attribute27
299 => p_rec.attribute27
300 ,p_attribute28
301 => p_rec.attribute28
302 ,p_attribute29
303 => p_rec.attribute29
304 ,p_attribute30
305 => p_rec.attribute30
306 ,p_object_version_number
307 => p_rec.object_version_number
308 ,p_election_id_o
309 => per_eco_shd.g_old_rec.election_id
310 ,p_business_group_id_o
311 => per_eco_shd.g_old_rec.business_group_id
312 ,p_constituency_id_o
313 => per_eco_shd.g_old_rec.constituency_id
314 ,p_attribute_category_o
315 => per_eco_shd.g_old_rec.attribute_category
316 ,p_attribute1_o
317 => per_eco_shd.g_old_rec.attribute1
318 ,p_attribute2_o
319 => per_eco_shd.g_old_rec.attribute2
320 ,p_attribute3_o
321 => per_eco_shd.g_old_rec.attribute3
322 ,p_attribute4_o
323 => per_eco_shd.g_old_rec.attribute4
324 ,p_attribute5_o
325 => per_eco_shd.g_old_rec.attribute5
326 ,p_attribute6_o
327 => per_eco_shd.g_old_rec.attribute6
328 ,p_attribute7_o
329 => per_eco_shd.g_old_rec.attribute7
330 ,p_attribute8_o
331 => per_eco_shd.g_old_rec.attribute8
332 ,p_attribute9_o
333 => per_eco_shd.g_old_rec.attribute9
334 ,p_attribute10_o
335 => per_eco_shd.g_old_rec.attribute10
336 ,p_attribute11_o
337 => per_eco_shd.g_old_rec.attribute11
338 ,p_attribute12_o
339 => per_eco_shd.g_old_rec.attribute12
340 ,p_attribute13_o
341 => per_eco_shd.g_old_rec.attribute13
342 ,p_attribute14_o
343 => per_eco_shd.g_old_rec.attribute14
344 ,p_attribute15_o
345 => per_eco_shd.g_old_rec.attribute15
346 ,p_attribute16_o
347 => per_eco_shd.g_old_rec.attribute16
348 ,p_attribute17_o
349 => per_eco_shd.g_old_rec.attribute17
350 ,p_attribute18_o
351 => per_eco_shd.g_old_rec.attribute18
352 ,p_attribute19_o
353 => per_eco_shd.g_old_rec.attribute19
354 ,p_attribute20_o
355 => per_eco_shd.g_old_rec.attribute20
356 ,p_attribute21_o
357 => per_eco_shd.g_old_rec.attribute21
358 ,p_attribute22_o
359 => per_eco_shd.g_old_rec.attribute22
360 ,p_attribute23_o
361 => per_eco_shd.g_old_rec.attribute23
362 ,p_attribute24_o
363 => per_eco_shd.g_old_rec.attribute24
364 ,p_attribute25_o
365 => per_eco_shd.g_old_rec.attribute25
366 ,p_attribute26_o
367 => per_eco_shd.g_old_rec.attribute26
368 ,p_attribute27_o
369 => per_eco_shd.g_old_rec.attribute27
370 ,p_attribute28_o
371 => per_eco_shd.g_old_rec.attribute28
372 ,p_attribute29_o
373 => per_eco_shd.g_old_rec.attribute29
374 ,p_attribute30_o
375 => per_eco_shd.g_old_rec.attribute30
376 ,p_object_version_number_o
377 => per_eco_shd.g_old_rec.object_version_number
378 );
379 --
380 exception
381 --
382 when hr_api.cannot_find_prog_unit then
383 --
384 hr_api.cannot_find_prog_unit_error
385 (p_module_name => 'PER_ELECTION_CONSTITUENCYS'
386 ,p_hook_type => 'AU');
387 --
388 end;
389 --
390 hr_utility.set_location(' Leaving:'||l_proc, 10);
391 End post_update;
392 --
393 -- ----------------------------------------------------------------------------
394 -- |-----------------------------< convert_defs >-----------------------------|
395 -- ----------------------------------------------------------------------------
396 -- {Start Of Comments}
397 --
398 -- Description:
399 -- The Convert_Defs procedure has one very important function:
400 -- It must return the record structure for the row with all system defaulted
401 -- values converted into its corresponding parameter value for update. When
402 -- we attempt to update a row through the Upd process , certain
403 -- parameters can be defaulted which enables flexibility in the calling of
404 -- the upd process (e.g. only attributes which need to be updated need to be
405 -- specified). For the upd process to determine which attributes
406 -- have NOT been specified we need to check if the parameter has a reserved
407 -- system default value. Therefore, for all parameters which have a
408 -- corresponding reserved system default mechanism specified we need to
409 -- check if a system default is being used. If a system default is being
410 -- used then we convert the defaulted value into its corresponding attribute
411 -- value held in the g_old_rec data structure.
412 --
413 -- Prerequisites:
414 -- This private function can only be called from the upd process.
415 --
416 -- In Parameters:
417 -- A Pl/Sql record structure.
418 --
419 -- Post Success:
420 -- The record structure will be returned with all system defaulted parameter
421 -- values converted into its current row attribute value.
422 --
423 -- Post Failure:
424 -- No direct error handling is required within this function. Any possible
425 -- errors within this procedure will be a PL/SQL value error due to
426 -- conversion of datatypes or data lengths.
427 --
428 -- Developer Implementation Notes:
429 -- None.
430 --
431 -- Access Status:
432 -- Internal Row Handler Use Only.
433 --
434 -- {End Of Comments}
435 -- ----------------------------------------------------------------------------
436 Procedure convert_defs
437 (p_rec in out nocopy per_eco_shd.g_rec_type
438 ) is
439 --
440 Begin
441 --
442 -- We must now examine each argument value in the
443 -- p_rec plsql record structure
444 -- to see if a system default is being used. If a system default
445 -- is being used then we must set to the 'current' argument value.
446 --
447 If (p_rec.election_id = hr_api.g_number) then
448 p_rec.election_id :=
449 per_eco_shd.g_old_rec.election_id;
450 End If;
451 If (p_rec.business_group_id = hr_api.g_number) then
452 p_rec.business_group_id :=
453 per_eco_shd.g_old_rec.business_group_id;
454 End If;
455 If (p_rec.constituency_id = hr_api.g_number) then
456 p_rec.constituency_id :=
457 per_eco_shd.g_old_rec.constituency_id;
458 End If;
459 If (p_rec.attribute_category = hr_api.g_varchar2) then
460 p_rec.attribute_category :=
461 per_eco_shd.g_old_rec.attribute_category;
462 End If;
463 If (p_rec.attribute1 = hr_api.g_varchar2) then
464 p_rec.attribute1 :=
465 per_eco_shd.g_old_rec.attribute1;
466 End If;
467 If (p_rec.attribute2 = hr_api.g_varchar2) then
468 p_rec.attribute2 :=
469 per_eco_shd.g_old_rec.attribute2;
470 End If;
471 If (p_rec.attribute3 = hr_api.g_varchar2) then
472 p_rec.attribute3 :=
473 per_eco_shd.g_old_rec.attribute3;
474 End If;
475 If (p_rec.attribute4 = hr_api.g_varchar2) then
476 p_rec.attribute4 :=
477 per_eco_shd.g_old_rec.attribute4;
478 End If;
479 If (p_rec.attribute5 = hr_api.g_varchar2) then
480 p_rec.attribute5 :=
481 per_eco_shd.g_old_rec.attribute5;
482 End If;
483 If (p_rec.attribute6 = hr_api.g_varchar2) then
484 p_rec.attribute6 :=
485 per_eco_shd.g_old_rec.attribute6;
486 End If;
487 If (p_rec.attribute7 = hr_api.g_varchar2) then
488 p_rec.attribute7 :=
489 per_eco_shd.g_old_rec.attribute7;
490 End If;
491 If (p_rec.attribute8 = hr_api.g_varchar2) then
492 p_rec.attribute8 :=
493 per_eco_shd.g_old_rec.attribute8;
494 End If;
495 If (p_rec.attribute9 = hr_api.g_varchar2) then
496 p_rec.attribute9 :=
497 per_eco_shd.g_old_rec.attribute9;
498 End If;
499 If (p_rec.attribute10 = hr_api.g_varchar2) then
500 p_rec.attribute10 :=
501 per_eco_shd.g_old_rec.attribute10;
502 End If;
503 If (p_rec.attribute11 = hr_api.g_varchar2) then
504 p_rec.attribute11 :=
505 per_eco_shd.g_old_rec.attribute11;
506 End If;
507 If (p_rec.attribute12 = hr_api.g_varchar2) then
508 p_rec.attribute12 :=
509 per_eco_shd.g_old_rec.attribute12;
510 End If;
511 If (p_rec.attribute13 = hr_api.g_varchar2) then
512 p_rec.attribute13 :=
513 per_eco_shd.g_old_rec.attribute13;
514 End If;
515 If (p_rec.attribute14 = hr_api.g_varchar2) then
516 p_rec.attribute14 :=
517 per_eco_shd.g_old_rec.attribute14;
518 End If;
519 If (p_rec.attribute15 = hr_api.g_varchar2) then
520 p_rec.attribute15 :=
521 per_eco_shd.g_old_rec.attribute15;
522 End If;
523 If (p_rec.attribute16 = hr_api.g_varchar2) then
524 p_rec.attribute16 :=
525 per_eco_shd.g_old_rec.attribute16;
526 End If;
527 If (p_rec.attribute17 = hr_api.g_varchar2) then
528 p_rec.attribute17 :=
529 per_eco_shd.g_old_rec.attribute17;
530 End If;
531 If (p_rec.attribute18 = hr_api.g_varchar2) then
532 p_rec.attribute18 :=
533 per_eco_shd.g_old_rec.attribute18;
534 End If;
535 If (p_rec.attribute19 = hr_api.g_varchar2) then
536 p_rec.attribute19 :=
537 per_eco_shd.g_old_rec.attribute19;
538 End If;
539 If (p_rec.attribute20 = hr_api.g_varchar2) then
540 p_rec.attribute20 :=
541 per_eco_shd.g_old_rec.attribute20;
542 End If;
543 If (p_rec.attribute21 = hr_api.g_varchar2) then
544 p_rec.attribute21 :=
545 per_eco_shd.g_old_rec.attribute21;
546 End If;
547 If (p_rec.attribute22 = hr_api.g_varchar2) then
548 p_rec.attribute22 :=
549 per_eco_shd.g_old_rec.attribute22;
550 End If;
551 If (p_rec.attribute23 = hr_api.g_varchar2) then
552 p_rec.attribute23 :=
553 per_eco_shd.g_old_rec.attribute23;
554 End If;
555 If (p_rec.attribute24 = hr_api.g_varchar2) then
556 p_rec.attribute24 :=
557 per_eco_shd.g_old_rec.attribute24;
558 End If;
559 If (p_rec.attribute25 = hr_api.g_varchar2) then
560 p_rec.attribute25 :=
561 per_eco_shd.g_old_rec.attribute25;
562 End If;
563 If (p_rec.attribute26 = hr_api.g_varchar2) then
564 p_rec.attribute26 :=
565 per_eco_shd.g_old_rec.attribute26;
566 End If;
567 If (p_rec.attribute27 = hr_api.g_varchar2) then
568 p_rec.attribute27 :=
569 per_eco_shd.g_old_rec.attribute27;
570 End If;
571 If (p_rec.attribute28 = hr_api.g_varchar2) then
572 p_rec.attribute28 :=
573 per_eco_shd.g_old_rec.attribute28;
574 End If;
575 If (p_rec.attribute29 = hr_api.g_varchar2) then
576 p_rec.attribute29 :=
577 per_eco_shd.g_old_rec.attribute29;
578 End If;
579 If (p_rec.attribute30 = hr_api.g_varchar2) then
580 p_rec.attribute30 :=
581 per_eco_shd.g_old_rec.attribute30;
582 End If;
583 --
584 End convert_defs;
585 --
586 -- ----------------------------------------------------------------------------
587 -- |---------------------------------< upd >----------------------------------|
588 -- ----------------------------------------------------------------------------
589 Procedure upd
590 (p_effective_date in date
591 ,p_validate in boolean default false
592 ,p_rec in out nocopy per_eco_shd.g_rec_type
593 ) is
594 --
595 l_proc varchar2(72) := g_package||'upd';
596 --
597 Begin
598 hr_utility.set_location('Entering:'||l_proc, 5);
599 --
600 -- Determine if the business process is to be validated.
601 --
602 If p_validate then
603 --
604 -- Issue the savepoint.
605 --
606 SAVEPOINT upd_per_eco;
607 End If;
608 --
609 -- We must lock the row which we need to update.
610 --
611 per_eco_shd.lck
612 (p_rec.election_constituency_id
613 ,p_rec.object_version_number
614 );
615 --
616 -- 1. During an update system defaults are used to determine if
617 -- arguments have been defaulted or not. We must therefore
618 -- derive the full record structure values to be updated.
619 --
620 -- 2. Call the supporting update validate operations.
621 --
622 convert_defs(p_rec);
623 per_eco_bus.update_validate
624 (p_effective_date
625 ,p_rec
626 );
627 --
628 -- Call the supporting pre-update operation
629 --
630 per_eco_upd.pre_update(p_rec);
631 --
632 -- Update the row.
633 --
634 per_eco_upd.update_dml(p_rec);
635 --
636 -- Call the supporting post-update operation
637 --
638 per_eco_upd.post_update
639 (p_effective_date
640 ,p_rec
641 );
642 --
643 -- If we are validating then raise the Validate_Enabled exception
644 --
645 If p_validate then
646 Raise HR_Api.Validate_Enabled;
647 End If;
648 --
649 hr_utility.set_location(' Leaving:'||l_proc, 10);
650 Exception
651 When HR_Api.Validate_Enabled Then
652 --
653 -- As the Validate_Enabled exception has been raised
654 -- we must rollback to the savepoint
655 --
656 ROLLBACK TO upd_per_eco;
657 --
658 End upd;
659 --
660 -- ----------------------------------------------------------------------------
661 -- |---------------------------------< upd >----------------------------------|
662 -- ----------------------------------------------------------------------------
663 Procedure upd
664 (p_effective_date in date
665 ,p_election_constituency_id in out nocopy number
666 ,p_object_version_number in out nocopy number
667 ,p_validate in boolean default false
668 ,p_election_id in number default hr_api.g_number
669 ,p_business_group_id in number default hr_api.g_number
670 ,p_constituency_id in number default hr_api.g_number
671 ,p_attribute_category in varchar2 default hr_api.g_varchar2
672 ,p_attribute1 in varchar2 default hr_api.g_varchar2
673 ,p_attribute2 in varchar2 default hr_api.g_varchar2
674 ,p_attribute3 in varchar2 default hr_api.g_varchar2
675 ,p_attribute4 in varchar2 default hr_api.g_varchar2
676 ,p_attribute5 in varchar2 default hr_api.g_varchar2
677 ,p_attribute6 in varchar2 default hr_api.g_varchar2
678 ,p_attribute7 in varchar2 default hr_api.g_varchar2
679 ,p_attribute8 in varchar2 default hr_api.g_varchar2
680 ,p_attribute9 in varchar2 default hr_api.g_varchar2
681 ,p_attribute10 in varchar2 default hr_api.g_varchar2
682 ,p_attribute11 in varchar2 default hr_api.g_varchar2
683 ,p_attribute12 in varchar2 default hr_api.g_varchar2
684 ,p_attribute13 in varchar2 default hr_api.g_varchar2
685 ,p_attribute14 in varchar2 default hr_api.g_varchar2
686 ,p_attribute15 in varchar2 default hr_api.g_varchar2
687 ,p_attribute16 in varchar2 default hr_api.g_varchar2
688 ,p_attribute17 in varchar2 default hr_api.g_varchar2
689 ,p_attribute18 in varchar2 default hr_api.g_varchar2
690 ,p_attribute19 in varchar2 default hr_api.g_varchar2
691 ,p_attribute20 in varchar2 default hr_api.g_varchar2
692 ,p_attribute21 in varchar2 default hr_api.g_varchar2
693 ,p_attribute22 in varchar2 default hr_api.g_varchar2
694 ,p_attribute23 in varchar2 default hr_api.g_varchar2
695 ,p_attribute24 in varchar2 default hr_api.g_varchar2
696 ,p_attribute25 in varchar2 default hr_api.g_varchar2
697 ,p_attribute26 in varchar2 default hr_api.g_varchar2
698 ,p_attribute27 in varchar2 default hr_api.g_varchar2
699 ,p_attribute28 in varchar2 default hr_api.g_varchar2
700 ,p_attribute29 in varchar2 default hr_api.g_varchar2
701 ,p_attribute30 in varchar2 default hr_api.g_varchar2
702 ) is
703 --
704 l_rec per_eco_shd.g_rec_type;
705 l_proc varchar2(72) := g_package||'upd';
706 --
707 Begin
708 hr_utility.set_location('Entering:'||l_proc, 5);
709 --
710 -- Call conversion function to turn arguments into the
711 -- l_rec structure.
712 --
713 l_rec :=
714 per_eco_shd.convert_args
715 (p_election_constituency_id
716 ,p_election_id
717 ,p_business_group_id
718 ,p_constituency_id
719 ,p_attribute_category
720 ,p_attribute1
721 ,p_attribute2
722 ,p_attribute3
723 ,p_attribute4
724 ,p_attribute5
725 ,p_attribute6
726 ,p_attribute7
727 ,p_attribute8
728 ,p_attribute9
729 ,p_attribute10
730 ,p_attribute11
731 ,p_attribute12
732 ,p_attribute13
733 ,p_attribute14
734 ,p_attribute15
735 ,p_attribute16
736 ,p_attribute17
737 ,p_attribute18
738 ,p_attribute19
739 ,p_attribute20
740 ,p_attribute21
741 ,p_attribute22
742 ,p_attribute23
743 ,p_attribute24
744 ,p_attribute25
745 ,p_attribute26
746 ,p_attribute27
747 ,p_attribute28
748 ,p_attribute29
749 ,p_attribute30
750 ,p_object_version_number
751 );
752 --
753 -- Having converted the arguments into the
754 -- plsql record structure we call the corresponding record
755 -- business process.
756 --
757 per_eco_upd.upd
758 (p_effective_date
759 ,p_validate
760 ,l_rec
761 );
762 p_object_version_number := l_rec.object_version_number;
763 --
764 hr_utility.set_location(' Leaving:'||l_proc, 10);
765 End upd;
766 --
767 end per_eco_upd;