[Home] [Help]
PACKAGE BODY: APPS.PQH_CEI_UPD
Source
1 Package Body pqh_cei_upd as
2 /* $Header: pqceirhi.pkb 115.6 2002/12/05 19:31:08 rpasapul noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' pqh_cei_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 pqh_cei_shd.g_rec_type
56 ) is
57 --
58 l_proc varchar2(72) := g_package||'update_dml';
59 --
60 Begin
61 hr_utility.set_location('Entering:'||l_proc, 5);
62 --
63 -- Increment the object version
64 p_rec.object_version_number := p_rec.object_version_number + 1;
65 --
66 --
67 --
68 -- Update the pqh_corps_extra_info Row
69 --
70 update pqh_corps_extra_info
71 set
72 corps_extra_info_id = p_rec.corps_extra_info_id
73 ,corps_definition_id = p_rec.corps_definition_id
74 ,information_type = p_rec.information_type
75 ,information1 = p_rec.information1
76 ,information2 = p_rec.information2
77 ,information3 = p_rec.information3
78 ,information4 = p_rec.information4
79 ,information5 = p_rec.information5
80 ,information6 = p_rec.information6
81 ,information7 = p_rec.information7
82 ,information8 = p_rec.information8
83 ,information9 = p_rec.information9
84 ,information10 = p_rec.information10
85 ,information11 = p_rec.information11
86 ,information12 = p_rec.information12
87 ,information13 = p_rec.information13
88 ,information14 = p_rec.information14
89 ,information15 = p_rec.information15
90 ,information16 = p_rec.information16
91 ,information17 = p_rec.information17
92 ,information18 = p_rec.information18
93 ,information19 = p_rec.information19
94 ,information20 = p_rec.information20
95 ,information21 = p_rec.information21
96 ,information22 = p_rec.information22
97 ,information23 = p_rec.information23
98 ,information24 = p_rec.information24
99 ,information25 = p_rec.information25
100 ,information26 = p_rec.information26
101 ,information27 = p_rec.information27
102 ,information28 = p_rec.information28
103 ,information29 = p_rec.information29
104 ,information30 = p_rec.information30
105 ,information_category = p_rec.information_category
106 ,attribute1 = p_rec.attribute1
107 ,attribute2 = p_rec.attribute2
108 ,attribute3 = p_rec.attribute3
109 ,attribute4 = p_rec.attribute4
110 ,attribute5 = p_rec.attribute5
111 ,attribute6 = p_rec.attribute6
112 ,attribute7 = p_rec.attribute7
113 ,attribute8 = p_rec.attribute8
114 ,attribute9 = p_rec.attribute9
115 ,attribute10 = p_rec.attribute10
116 ,attribute11 = p_rec.attribute11
117 ,attribute12 = p_rec.attribute12
118 ,attribute13 = p_rec.attribute13
119 ,attribute14 = p_rec.attribute14
120 ,attribute15 = p_rec.attribute15
121 ,attribute16 = p_rec.attribute16
122 ,attribute17 = p_rec.attribute17
123 ,attribute18 = p_rec.attribute18
124 ,attribute19 = p_rec.attribute19
125 ,attribute20 = p_rec.attribute20
126 ,attribute21 = p_rec.attribute21
127 ,attribute22 = p_rec.attribute22
128 ,attribute23 = p_rec.attribute23
129 ,attribute24 = p_rec.attribute24
130 ,attribute25 = p_rec.attribute25
131 ,attribute26 = p_rec.attribute26
132 ,attribute27 = p_rec.attribute27
133 ,attribute28 = p_rec.attribute28
134 ,attribute29 = p_rec.attribute29
135 ,attribute30 = p_rec.attribute30
136 ,attribute_category = p_rec.attribute_category
137 ,object_version_number = p_rec.object_version_number
138 where corps_extra_info_id = p_rec.corps_extra_info_id;
139 --
140 --
141 --
142 hr_utility.set_location(' Leaving:'||l_proc, 10);
143 --
144 Exception
145 When hr_api.check_integrity_violated Then
146 -- A check constraint has been violated
147 --
148 pqh_cei_shd.constraint_error
149 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
150 When hr_api.parent_integrity_violated Then
151 -- Parent integrity has been violated
152 --
153 pqh_cei_shd.constraint_error
154 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
155 When hr_api.unique_integrity_violated Then
156 -- Unique integrity has been violated
157 --
158 pqh_cei_shd.constraint_error
159 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
160 When Others Then
161 --
162 Raise;
163 End update_dml;
164 --
165 -- ----------------------------------------------------------------------------
166 -- |------------------------------< pre_update >------------------------------|
167 -- ----------------------------------------------------------------------------
168 -- {Start Of Comments}
169 --
170 -- Description:
171 -- This private procedure contains any processing which is required before
172 -- the update dml.
173 --
174 -- Prerequisites:
175 -- This is an internal procedure which is called from the upd procedure.
176 --
177 -- In Parameters:
178 -- A Pl/Sql record structure.
179 --
180 -- Post Success:
181 -- Processing continues.
182 --
183 -- Post Failure:
184 -- If an error has occurred, an error message and exception wil be raised
185 -- but not handled.
186 --
187 -- Developer Implementation Notes:
188 -- Any pre-processing required before the update dml is issued should be
189 -- coded within this procedure. It is important to note that any 3rd party
190 -- maintenance should be reviewed before placing in this procedure.
191 --
192 -- Access Status:
193 -- Internal Row Handler Use Only.
194 --
195 -- {End Of Comments}
196 -- ----------------------------------------------------------------------------
197 Procedure pre_update
198 (p_rec in pqh_cei_shd.g_rec_type
199 ) is
200 --
201 l_proc varchar2(72) := g_package||'pre_update';
202 --
203 Begin
204 hr_utility.set_location('Entering:'||l_proc, 5);
205 --
206 hr_utility.set_location(' Leaving:'||l_proc, 10);
207 End pre_update;
208 --
209 -- ----------------------------------------------------------------------------
210 -- |-----------------------------< post_update >------------------------------|
211 -- ----------------------------------------------------------------------------
212 -- {Start Of Comments}
213 --
214 -- Description:
215 -- This private procedure contains any processing which is required after
216 -- the update dml.
217 --
218 -- Prerequisites:
219 -- This is an internal procedure which is called from the upd procedure.
220 --
221 -- In Parameters:
222 -- A Pl/Sql record structure.
223 --
224 -- Post Success:
225 -- Processing continues.
226 --
227 -- Post Failure:
228 -- If an error has occurred, an error message and exception will be raised
229 -- but not handled.
230 --
231 -- Developer Implementation Notes:
232 -- Any post-processing required after the update dml is issued should be
233 -- coded within this procedure. It is important to note that any 3rd party
234 -- maintenance should be reviewed before placing in this procedure.
235 --
236 -- Access Status:
237 -- Internal Row Handler Use Only.
238 --
239 -- {End Of Comments}
240 -- ----------------------------------------------------------------------------
241 Procedure post_update
242 (p_effective_date in date
243 ,p_rec in pqh_cei_shd.g_rec_type
244 ) is
245 --
246 l_proc varchar2(72) := g_package||'post_update';
247 --
248 Begin
249 hr_utility.set_location('Entering:'||l_proc, 5);
250 begin
251 --
252 pqh_cei_rku.after_update
253 (p_effective_date => p_effective_date
254 ,p_corps_extra_info_id
255 => p_rec.corps_extra_info_id
256 ,p_corps_definition_id
257 => p_rec.corps_definition_id
258 ,p_information_type
259 => p_rec.information_type
260 ,p_information1
261 => p_rec.information1
262 ,p_information2
263 => p_rec.information2
264 ,p_information3
265 => p_rec.information3
266 ,p_information4
267 => p_rec.information4
268 ,p_information5
269 => p_rec.information5
270 ,p_information6
271 => p_rec.information6
272 ,p_information7
273 => p_rec.information7
274 ,p_information8
275 => p_rec.information8
276 ,p_information9
277 => p_rec.information9
278 ,p_information10
279 => p_rec.information10
280 ,p_information11
281 => p_rec.information11
282 ,p_information12
283 => p_rec.information12
284 ,p_information13
285 => p_rec.information13
286 ,p_information14
287 => p_rec.information14
288 ,p_information15
289 => p_rec.information15
290 ,p_information16
291 => p_rec.information16
292 ,p_information17
293 => p_rec.information17
294 ,p_information18
295 => p_rec.information18
296 ,p_information19
297 => p_rec.information19
298 ,p_information20
299 => p_rec.information20
300 ,p_information21
301 => p_rec.information21
302 ,p_information22
303 => p_rec.information22
304 ,p_information23
305 => p_rec.information23
306 ,p_information24
307 => p_rec.information24
308 ,p_information25
309 => p_rec.information25
310 ,p_information26
311 => p_rec.information26
312 ,p_information27
313 => p_rec.information27
314 ,p_information28
315 => p_rec.information28
316 ,p_information29
317 => p_rec.information29
318 ,p_information30
319 => p_rec.information30
320 ,p_information_category
321 => p_rec.information_category
322 ,p_attribute1
323 => p_rec.attribute1
324 ,p_attribute2
325 => p_rec.attribute2
326 ,p_attribute3
327 => p_rec.attribute3
328 ,p_attribute4
329 => p_rec.attribute4
330 ,p_attribute5
331 => p_rec.attribute5
332 ,p_attribute6
333 => p_rec.attribute6
334 ,p_attribute7
335 => p_rec.attribute7
336 ,p_attribute8
337 => p_rec.attribute8
338 ,p_attribute9
339 => p_rec.attribute9
340 ,p_attribute10
341 => p_rec.attribute10
342 ,p_attribute11
343 => p_rec.attribute11
344 ,p_attribute12
345 => p_rec.attribute12
346 ,p_attribute13
347 => p_rec.attribute13
348 ,p_attribute14
349 => p_rec.attribute14
350 ,p_attribute15
351 => p_rec.attribute15
352 ,p_attribute16
353 => p_rec.attribute16
354 ,p_attribute17
355 => p_rec.attribute17
356 ,p_attribute18
357 => p_rec.attribute18
358 ,p_attribute19
359 => p_rec.attribute19
360 ,p_attribute20
361 => p_rec.attribute20
362 ,p_attribute21
363 => p_rec.attribute21
364 ,p_attribute22
365 => p_rec.attribute22
366 ,p_attribute23
367 => p_rec.attribute23
368 ,p_attribute24
369 => p_rec.attribute24
370 ,p_attribute25
371 => p_rec.attribute25
372 ,p_attribute26
373 => p_rec.attribute26
374 ,p_attribute27
375 => p_rec.attribute27
376 ,p_attribute28
377 => p_rec.attribute28
378 ,p_attribute29
379 => p_rec.attribute29
380 ,p_attribute30
381 => p_rec.attribute30
382 ,p_attribute_category
383 => p_rec.attribute_category
384 ,p_object_version_number
385 => p_rec.object_version_number
386 ,p_corps_definition_id_o
387 => pqh_cei_shd.g_old_rec.corps_definition_id
388 ,p_information_type_o
389 => pqh_cei_shd.g_old_rec.information_type
390 ,p_information1_o
391 => pqh_cei_shd.g_old_rec.information1
392 ,p_information2_o
393 => pqh_cei_shd.g_old_rec.information2
394 ,p_information3_o
395 => pqh_cei_shd.g_old_rec.information3
396 ,p_information4_o
397 => pqh_cei_shd.g_old_rec.information4
398 ,p_information5_o
399 => pqh_cei_shd.g_old_rec.information5
400 ,p_information6_o
401 => pqh_cei_shd.g_old_rec.information6
402 ,p_information7_o
403 => pqh_cei_shd.g_old_rec.information7
404 ,p_information8_o
405 => pqh_cei_shd.g_old_rec.information8
406 ,p_information9_o
407 => pqh_cei_shd.g_old_rec.information9
408 ,p_information10_o
409 => pqh_cei_shd.g_old_rec.information10
410 ,p_information11_o
411 => pqh_cei_shd.g_old_rec.information11
412 ,p_information12_o
413 => pqh_cei_shd.g_old_rec.information12
414 ,p_information13_o
415 => pqh_cei_shd.g_old_rec.information13
416 ,p_information14_o
417 => pqh_cei_shd.g_old_rec.information14
418 ,p_information15_o
419 => pqh_cei_shd.g_old_rec.information15
420 ,p_information16_o
421 => pqh_cei_shd.g_old_rec.information16
422 ,p_information17_o
423 => pqh_cei_shd.g_old_rec.information17
424 ,p_information18_o
425 => pqh_cei_shd.g_old_rec.information18
426 ,p_information19_o
427 => pqh_cei_shd.g_old_rec.information19
428 ,p_information20_o
429 => pqh_cei_shd.g_old_rec.information20
430 ,p_information21_o
431 => pqh_cei_shd.g_old_rec.information21
432 ,p_information22_o
433 => pqh_cei_shd.g_old_rec.information22
434 ,p_information23_o
435 => pqh_cei_shd.g_old_rec.information23
436 ,p_information24_o
437 => pqh_cei_shd.g_old_rec.information24
438 ,p_information25_o
439 => pqh_cei_shd.g_old_rec.information25
440 ,p_information26_o
441 => pqh_cei_shd.g_old_rec.information26
442 ,p_information27_o
443 => pqh_cei_shd.g_old_rec.information27
444 ,p_information28_o
445 => pqh_cei_shd.g_old_rec.information28
446 ,p_information29_o
447 => pqh_cei_shd.g_old_rec.information29
448 ,p_information30_o
449 => pqh_cei_shd.g_old_rec.information30
450 ,p_information_category_o
451 => pqh_cei_shd.g_old_rec.information_category
452 ,p_attribute1_o
453 => pqh_cei_shd.g_old_rec.attribute1
454 ,p_attribute2_o
455 => pqh_cei_shd.g_old_rec.attribute2
456 ,p_attribute3_o
457 => pqh_cei_shd.g_old_rec.attribute3
458 ,p_attribute4_o
459 => pqh_cei_shd.g_old_rec.attribute4
460 ,p_attribute5_o
461 => pqh_cei_shd.g_old_rec.attribute5
462 ,p_attribute6_o
463 => pqh_cei_shd.g_old_rec.attribute6
464 ,p_attribute7_o
465 => pqh_cei_shd.g_old_rec.attribute7
466 ,p_attribute8_o
467 => pqh_cei_shd.g_old_rec.attribute8
468 ,p_attribute9_o
469 => pqh_cei_shd.g_old_rec.attribute9
470 ,p_attribute10_o
471 => pqh_cei_shd.g_old_rec.attribute10
472 ,p_attribute11_o
473 => pqh_cei_shd.g_old_rec.attribute11
474 ,p_attribute12_o
475 => pqh_cei_shd.g_old_rec.attribute12
476 ,p_attribute13_o
477 => pqh_cei_shd.g_old_rec.attribute13
478 ,p_attribute14_o
479 => pqh_cei_shd.g_old_rec.attribute14
480 ,p_attribute15_o
481 => pqh_cei_shd.g_old_rec.attribute15
482 ,p_attribute16_o
483 => pqh_cei_shd.g_old_rec.attribute16
484 ,p_attribute17_o
485 => pqh_cei_shd.g_old_rec.attribute17
486 ,p_attribute18_o
487 => pqh_cei_shd.g_old_rec.attribute18
488 ,p_attribute19_o
489 => pqh_cei_shd.g_old_rec.attribute19
490 ,p_attribute20_o
491 => pqh_cei_shd.g_old_rec.attribute20
492 ,p_attribute21_o
493 => pqh_cei_shd.g_old_rec.attribute21
494 ,p_attribute22_o
495 => pqh_cei_shd.g_old_rec.attribute22
496 ,p_attribute23_o
497 => pqh_cei_shd.g_old_rec.attribute23
498 ,p_attribute24_o
499 => pqh_cei_shd.g_old_rec.attribute24
500 ,p_attribute25_o
501 => pqh_cei_shd.g_old_rec.attribute25
502 ,p_attribute26_o
503 => pqh_cei_shd.g_old_rec.attribute26
504 ,p_attribute27_o
505 => pqh_cei_shd.g_old_rec.attribute27
506 ,p_attribute28_o
507 => pqh_cei_shd.g_old_rec.attribute28
508 ,p_attribute29_o
509 => pqh_cei_shd.g_old_rec.attribute29
510 ,p_attribute30_o
511 => pqh_cei_shd.g_old_rec.attribute30
512 ,p_attribute_category_o
513 => pqh_cei_shd.g_old_rec.attribute_category
514 ,p_object_version_number_o
515 => pqh_cei_shd.g_old_rec.object_version_number
516 );
517 --
518 exception
519 --
520 when hr_api.cannot_find_prog_unit then
521 --
522 hr_api.cannot_find_prog_unit_error
523 (p_module_name => 'PQH_CORPS_EXTRA_INFO'
524 ,p_hook_type => 'AU');
525 --
526 end;
527 --
528 hr_utility.set_location(' Leaving:'||l_proc, 10);
529 End post_update;
530 --
531 -- ----------------------------------------------------------------------------
532 -- |-----------------------------< convert_defs >-----------------------------|
533 -- ----------------------------------------------------------------------------
534 -- {Start Of Comments}
535 --
536 -- Description:
537 -- The Convert_Defs procedure has one very important function:
538 -- It must return the record structure for the row with all system defaulted
539 -- values converted into its corresponding parameter value for update. When
540 -- we attempt to update a row through the Upd process , certain
541 -- parameters can be defaulted which enables flexibility in the calling of
542 -- the upd process (e.g. only attributes which need to be updated need to be
543 -- specified). For the upd process to determine which attributes
544 -- have NOT been specified we need to check if the parameter has a reserved
545 -- system default value. Therefore, for all parameters which have a
546 -- corresponding reserved system default mechanism specified we need to
547 -- check if a system default is being used. If a system default is being
548 -- used then we convert the defaulted value into its corresponding attribute
549 -- value held in the g_old_rec data structure.
550 --
551 -- Prerequisites:
552 -- This private function can only be called from the upd process.
553 --
554 -- In Parameters:
555 -- A Pl/Sql record structure.
556 --
557 -- Post Success:
558 -- The record structure will be returned with all system defaulted parameter
559 -- values converted into its current row attribute value.
560 --
561 -- Post Failure:
562 -- No direct error handling is required within this function. Any possible
563 -- errors within this procedure will be a PL/SQL value error due to
564 -- conversion of datatypes or data lengths.
565 --
566 -- Developer Implementation Notes:
567 -- None.
568 --
569 -- Access Status:
570 -- Internal Row Handler Use Only.
571 --
572 -- {End Of Comments}
573 -- ----------------------------------------------------------------------------
574 Procedure convert_defs
575 (p_rec in out nocopy pqh_cei_shd.g_rec_type
576 ) is
577 --
578 Begin
579 --
580 -- We must now examine each argument value in the
581 -- p_rec plsql record structure
582 -- to see if a system default is being used. If a system default
583 -- is being used then we must set to the 'current' argument value.
584 --
585 If (p_rec.corps_definition_id = hr_api.g_number) then
586 p_rec.corps_definition_id :=
587 pqh_cei_shd.g_old_rec.corps_definition_id;
588 End If;
589 If (p_rec.information_type = hr_api.g_varchar2) then
590 p_rec.information_type :=
591 pqh_cei_shd.g_old_rec.information_type;
592 End If;
593 If (p_rec.information1 = hr_api.g_varchar2) then
594 p_rec.information1 :=
595 pqh_cei_shd.g_old_rec.information1;
596 End If;
597 If (p_rec.information2 = hr_api.g_varchar2) then
598 p_rec.information2 :=
599 pqh_cei_shd.g_old_rec.information2;
600 End If;
601 If (p_rec.information3 = hr_api.g_varchar2) then
602 p_rec.information3 :=
603 pqh_cei_shd.g_old_rec.information3;
604 End If;
605 If (p_rec.information4 = hr_api.g_varchar2) then
606 p_rec.information4 :=
607 pqh_cei_shd.g_old_rec.information4;
608 End If;
609 If (p_rec.information5 = hr_api.g_varchar2) then
610 p_rec.information5 :=
611 pqh_cei_shd.g_old_rec.information5;
612 End If;
613 If (p_rec.information6 = hr_api.g_varchar2) then
614 p_rec.information6 :=
615 pqh_cei_shd.g_old_rec.information6;
616 End If;
617 If (p_rec.information7 = hr_api.g_varchar2) then
618 p_rec.information7 :=
619 pqh_cei_shd.g_old_rec.information7;
620 End If;
621 If (p_rec.information8 = hr_api.g_varchar2) then
622 p_rec.information8 :=
623 pqh_cei_shd.g_old_rec.information8;
624 End If;
625 If (p_rec.information9 = hr_api.g_varchar2) then
626 p_rec.information9 :=
627 pqh_cei_shd.g_old_rec.information9;
628 End If;
629 If (p_rec.information10 = hr_api.g_varchar2) then
630 p_rec.information10 :=
631 pqh_cei_shd.g_old_rec.information10;
632 End If;
633 If (p_rec.information11 = hr_api.g_varchar2) then
634 p_rec.information11 :=
635 pqh_cei_shd.g_old_rec.information11;
636 End If;
637 If (p_rec.information12 = hr_api.g_varchar2) then
638 p_rec.information12 :=
639 pqh_cei_shd.g_old_rec.information12;
640 End If;
641 If (p_rec.information13 = hr_api.g_varchar2) then
642 p_rec.information13 :=
643 pqh_cei_shd.g_old_rec.information13;
644 End If;
645 If (p_rec.information14 = hr_api.g_varchar2) then
646 p_rec.information14 :=
647 pqh_cei_shd.g_old_rec.information14;
648 End If;
649 If (p_rec.information15 = hr_api.g_varchar2) then
650 p_rec.information15 :=
651 pqh_cei_shd.g_old_rec.information15;
652 End If;
653 If (p_rec.information16 = hr_api.g_varchar2) then
654 p_rec.information16 :=
655 pqh_cei_shd.g_old_rec.information16;
656 End If;
657 If (p_rec.information17 = hr_api.g_varchar2) then
658 p_rec.information17 :=
659 pqh_cei_shd.g_old_rec.information17;
660 End If;
661 If (p_rec.information18 = hr_api.g_varchar2) then
662 p_rec.information18 :=
663 pqh_cei_shd.g_old_rec.information18;
664 End If;
665 If (p_rec.information19 = hr_api.g_varchar2) then
666 p_rec.information19 :=
667 pqh_cei_shd.g_old_rec.information19;
668 End If;
669 If (p_rec.information20 = hr_api.g_varchar2) then
670 p_rec.information20 :=
671 pqh_cei_shd.g_old_rec.information20;
672 End If;
673 If (p_rec.information21 = hr_api.g_varchar2) then
674 p_rec.information21 :=
675 pqh_cei_shd.g_old_rec.information21;
676 End If;
677 If (p_rec.information22 = hr_api.g_varchar2) then
678 p_rec.information22 :=
679 pqh_cei_shd.g_old_rec.information22;
680 End If;
681 If (p_rec.information23 = hr_api.g_varchar2) then
682 p_rec.information23 :=
683 pqh_cei_shd.g_old_rec.information23;
684 End If;
685 If (p_rec.information24 = hr_api.g_varchar2) then
686 p_rec.information24 :=
687 pqh_cei_shd.g_old_rec.information24;
688 End If;
689 If (p_rec.information25 = hr_api.g_varchar2) then
690 p_rec.information25 :=
691 pqh_cei_shd.g_old_rec.information25;
692 End If;
693 If (p_rec.information26 = hr_api.g_varchar2) then
694 p_rec.information26 :=
695 pqh_cei_shd.g_old_rec.information26;
696 End If;
697 If (p_rec.information27 = hr_api.g_varchar2) then
698 p_rec.information27 :=
699 pqh_cei_shd.g_old_rec.information27;
700 End If;
701 If (p_rec.information28 = hr_api.g_varchar2) then
702 p_rec.information28 :=
703 pqh_cei_shd.g_old_rec.information28;
704 End If;
705 If (p_rec.information29 = hr_api.g_varchar2) then
706 p_rec.information29 :=
707 pqh_cei_shd.g_old_rec.information29;
708 End If;
709 If (p_rec.information30 = hr_api.g_varchar2) then
710 p_rec.information30 :=
711 pqh_cei_shd.g_old_rec.information30;
712 End If;
713 If (p_rec.information_category = hr_api.g_varchar2) then
714 p_rec.information_category :=
715 pqh_cei_shd.g_old_rec.information_category;
716 End If;
717 If (p_rec.attribute1 = hr_api.g_varchar2) then
718 p_rec.attribute1 :=
719 pqh_cei_shd.g_old_rec.attribute1;
720 End If;
721 If (p_rec.attribute2 = hr_api.g_varchar2) then
722 p_rec.attribute2 :=
723 pqh_cei_shd.g_old_rec.attribute2;
724 End If;
725 If (p_rec.attribute3 = hr_api.g_varchar2) then
726 p_rec.attribute3 :=
727 pqh_cei_shd.g_old_rec.attribute3;
728 End If;
729 If (p_rec.attribute4 = hr_api.g_varchar2) then
730 p_rec.attribute4 :=
731 pqh_cei_shd.g_old_rec.attribute4;
732 End If;
733 If (p_rec.attribute5 = hr_api.g_varchar2) then
734 p_rec.attribute5 :=
735 pqh_cei_shd.g_old_rec.attribute5;
736 End If;
737 If (p_rec.attribute6 = hr_api.g_varchar2) then
738 p_rec.attribute6 :=
739 pqh_cei_shd.g_old_rec.attribute6;
740 End If;
741 If (p_rec.attribute7 = hr_api.g_varchar2) then
742 p_rec.attribute7 :=
743 pqh_cei_shd.g_old_rec.attribute7;
744 End If;
745 If (p_rec.attribute8 = hr_api.g_varchar2) then
746 p_rec.attribute8 :=
747 pqh_cei_shd.g_old_rec.attribute8;
748 End If;
749 If (p_rec.attribute9 = hr_api.g_varchar2) then
750 p_rec.attribute9 :=
751 pqh_cei_shd.g_old_rec.attribute9;
752 End If;
753 If (p_rec.attribute10 = hr_api.g_varchar2) then
754 p_rec.attribute10 :=
755 pqh_cei_shd.g_old_rec.attribute10;
756 End If;
757 If (p_rec.attribute11 = hr_api.g_varchar2) then
758 p_rec.attribute11 :=
759 pqh_cei_shd.g_old_rec.attribute11;
760 End If;
761 If (p_rec.attribute12 = hr_api.g_varchar2) then
762 p_rec.attribute12 :=
763 pqh_cei_shd.g_old_rec.attribute12;
764 End If;
765 If (p_rec.attribute13 = hr_api.g_varchar2) then
766 p_rec.attribute13 :=
767 pqh_cei_shd.g_old_rec.attribute13;
768 End If;
769 If (p_rec.attribute14 = hr_api.g_varchar2) then
770 p_rec.attribute14 :=
771 pqh_cei_shd.g_old_rec.attribute14;
772 End If;
773 If (p_rec.attribute15 = hr_api.g_varchar2) then
774 p_rec.attribute15 :=
775 pqh_cei_shd.g_old_rec.attribute15;
776 End If;
777 If (p_rec.attribute16 = hr_api.g_varchar2) then
778 p_rec.attribute16 :=
779 pqh_cei_shd.g_old_rec.attribute16;
780 End If;
781 If (p_rec.attribute17 = hr_api.g_varchar2) then
782 p_rec.attribute17 :=
783 pqh_cei_shd.g_old_rec.attribute17;
784 End If;
785 If (p_rec.attribute18 = hr_api.g_varchar2) then
786 p_rec.attribute18 :=
787 pqh_cei_shd.g_old_rec.attribute18;
788 End If;
789 If (p_rec.attribute19 = hr_api.g_varchar2) then
790 p_rec.attribute19 :=
791 pqh_cei_shd.g_old_rec.attribute19;
792 End If;
793 If (p_rec.attribute20 = hr_api.g_varchar2) then
794 p_rec.attribute20 :=
795 pqh_cei_shd.g_old_rec.attribute20;
796 End If;
797 If (p_rec.attribute21 = hr_api.g_varchar2) then
798 p_rec.attribute21 :=
799 pqh_cei_shd.g_old_rec.attribute21;
800 End If;
801 If (p_rec.attribute22 = hr_api.g_varchar2) then
802 p_rec.attribute22 :=
803 pqh_cei_shd.g_old_rec.attribute22;
804 End If;
805 If (p_rec.attribute23 = hr_api.g_varchar2) then
806 p_rec.attribute23 :=
807 pqh_cei_shd.g_old_rec.attribute23;
808 End If;
809 If (p_rec.attribute24 = hr_api.g_varchar2) then
810 p_rec.attribute24 :=
811 pqh_cei_shd.g_old_rec.attribute24;
812 End If;
813 If (p_rec.attribute25 = hr_api.g_varchar2) then
814 p_rec.attribute25 :=
815 pqh_cei_shd.g_old_rec.attribute25;
816 End If;
817 If (p_rec.attribute26 = hr_api.g_varchar2) then
818 p_rec.attribute26 :=
819 pqh_cei_shd.g_old_rec.attribute26;
820 End If;
821 If (p_rec.attribute27 = hr_api.g_varchar2) then
822 p_rec.attribute27 :=
823 pqh_cei_shd.g_old_rec.attribute27;
824 End If;
825 If (p_rec.attribute28 = hr_api.g_varchar2) then
826 p_rec.attribute28 :=
827 pqh_cei_shd.g_old_rec.attribute28;
828 End If;
829 If (p_rec.attribute29 = hr_api.g_varchar2) then
830 p_rec.attribute29 :=
831 pqh_cei_shd.g_old_rec.attribute29;
832 End If;
833 If (p_rec.attribute30 = hr_api.g_varchar2) then
834 p_rec.attribute30 :=
835 pqh_cei_shd.g_old_rec.attribute30;
836 End If;
837 If (p_rec.attribute_category = hr_api.g_varchar2) then
838 p_rec.attribute_category :=
839 pqh_cei_shd.g_old_rec.attribute_category;
840 End If;
841 --
842 End convert_defs;
843 --
844 -- ----------------------------------------------------------------------------
845 -- |---------------------------------< upd >----------------------------------|
846 -- ----------------------------------------------------------------------------
847 Procedure upd
848 (p_effective_date in date
849 ,p_rec in out nocopy pqh_cei_shd.g_rec_type
850 ) is
851 --
852 l_proc varchar2(72) := g_package||'upd';
853 --
854 Begin
855 hr_utility.set_location('Entering:'||l_proc, 5);
856 --
857 -- We must lock the row which we need to update.
858 --
859 pqh_cei_shd.lck
860 (p_rec.corps_extra_info_id
861 ,p_rec.object_version_number
862 );
863 --
864 -- 1. During an update system defaults are used to determine if
865 -- arguments have been defaulted or not. We must therefore
866 -- derive the full record structure values to be updated.
867 --
868 -- 2. Call the supporting update validate operations.
869 --
870 convert_defs(p_rec);
871 pqh_cei_bus.update_validate
872 (p_effective_date
873 ,p_rec
874 );
875 --
876 -- Call to raise any errors on multi-message list
877 hr_multi_message.end_validation_set;
878 --
879 -- Call the supporting pre-update operation
880 --
881 pqh_cei_upd.pre_update(p_rec);
882 --
883 -- Update the row.
884 --
885 pqh_cei_upd.update_dml(p_rec);
886 --
887 -- Call the supporting post-update operation
888 --
889 pqh_cei_upd.post_update
890 (p_effective_date
891 ,p_rec
892 );
893 --
894 -- Call to raise any errors on multi-message list
895 hr_multi_message.end_validation_set;
896 End upd;
897 --
898 -- ----------------------------------------------------------------------------
899 -- |---------------------------------< upd >----------------------------------|
900 -- ----------------------------------------------------------------------------
901 Procedure upd
902 (p_effective_date in date
903 ,p_corps_extra_info_id in number
904 ,p_object_version_number in out nocopy number
905 ,p_corps_definition_id in number default hr_api.g_number
906 ,p_information_type in varchar2 default hr_api.g_varchar2
907 ,p_information1 in varchar2 default hr_api.g_varchar2
908 ,p_information2 in varchar2 default hr_api.g_varchar2
909 ,p_information3 in varchar2 default hr_api.g_varchar2
910 ,p_information4 in varchar2 default hr_api.g_varchar2
911 ,p_information5 in varchar2 default hr_api.g_varchar2
912 ,p_information6 in varchar2 default hr_api.g_varchar2
913 ,p_information7 in varchar2 default hr_api.g_varchar2
914 ,p_information8 in varchar2 default hr_api.g_varchar2
915 ,p_information9 in varchar2 default hr_api.g_varchar2
916 ,p_information10 in varchar2 default hr_api.g_varchar2
917 ,p_information11 in varchar2 default hr_api.g_varchar2
918 ,p_information12 in varchar2 default hr_api.g_varchar2
919 ,p_information13 in varchar2 default hr_api.g_varchar2
920 ,p_information14 in varchar2 default hr_api.g_varchar2
921 ,p_information15 in varchar2 default hr_api.g_varchar2
922 ,p_information16 in varchar2 default hr_api.g_varchar2
923 ,p_information17 in varchar2 default hr_api.g_varchar2
924 ,p_information18 in varchar2 default hr_api.g_varchar2
925 ,p_information19 in varchar2 default hr_api.g_varchar2
926 ,p_information20 in varchar2 default hr_api.g_varchar2
927 ,p_information21 in varchar2 default hr_api.g_varchar2
928 ,p_information22 in varchar2 default hr_api.g_varchar2
929 ,p_information23 in varchar2 default hr_api.g_varchar2
930 ,p_information24 in varchar2 default hr_api.g_varchar2
931 ,p_information25 in varchar2 default hr_api.g_varchar2
932 ,p_information26 in varchar2 default hr_api.g_varchar2
933 ,p_information27 in varchar2 default hr_api.g_varchar2
934 ,p_information28 in varchar2 default hr_api.g_varchar2
935 ,p_information29 in varchar2 default hr_api.g_varchar2
936 ,p_information30 in varchar2 default hr_api.g_varchar2
937 ,p_information_category in varchar2 default hr_api.g_varchar2
938 ,p_attribute1 in varchar2 default hr_api.g_varchar2
939 ,p_attribute2 in varchar2 default hr_api.g_varchar2
940 ,p_attribute3 in varchar2 default hr_api.g_varchar2
941 ,p_attribute4 in varchar2 default hr_api.g_varchar2
942 ,p_attribute5 in varchar2 default hr_api.g_varchar2
943 ,p_attribute6 in varchar2 default hr_api.g_varchar2
944 ,p_attribute7 in varchar2 default hr_api.g_varchar2
945 ,p_attribute8 in varchar2 default hr_api.g_varchar2
946 ,p_attribute9 in varchar2 default hr_api.g_varchar2
947 ,p_attribute10 in varchar2 default hr_api.g_varchar2
948 ,p_attribute11 in varchar2 default hr_api.g_varchar2
949 ,p_attribute12 in varchar2 default hr_api.g_varchar2
950 ,p_attribute13 in varchar2 default hr_api.g_varchar2
951 ,p_attribute14 in varchar2 default hr_api.g_varchar2
952 ,p_attribute15 in varchar2 default hr_api.g_varchar2
953 ,p_attribute16 in varchar2 default hr_api.g_varchar2
954 ,p_attribute17 in varchar2 default hr_api.g_varchar2
955 ,p_attribute18 in varchar2 default hr_api.g_varchar2
956 ,p_attribute19 in varchar2 default hr_api.g_varchar2
957 ,p_attribute20 in varchar2 default hr_api.g_varchar2
958 ,p_attribute21 in varchar2 default hr_api.g_varchar2
959 ,p_attribute22 in varchar2 default hr_api.g_varchar2
960 ,p_attribute23 in varchar2 default hr_api.g_varchar2
961 ,p_attribute24 in varchar2 default hr_api.g_varchar2
962 ,p_attribute25 in varchar2 default hr_api.g_varchar2
963 ,p_attribute26 in varchar2 default hr_api.g_varchar2
964 ,p_attribute27 in varchar2 default hr_api.g_varchar2
965 ,p_attribute28 in varchar2 default hr_api.g_varchar2
966 ,p_attribute29 in varchar2 default hr_api.g_varchar2
967 ,p_attribute30 in varchar2 default hr_api.g_varchar2
968 ,p_attribute_category in varchar2 default hr_api.g_varchar2
969 ) is
970 --
971 l_rec pqh_cei_shd.g_rec_type;
972 l_proc varchar2(72) := g_package||'upd';
973 --
974 Begin
975 hr_utility.set_location('Entering:'||l_proc, 5);
976 --
977 -- Call conversion function to turn arguments into the
978 -- l_rec structure.
979 --
980 l_rec :=
981 pqh_cei_shd.convert_args
982 (p_corps_extra_info_id
983 ,p_corps_definition_id
984 ,p_information_type
985 ,p_information1
986 ,p_information2
987 ,p_information3
988 ,p_information4
989 ,p_information5
990 ,p_information6
991 ,p_information7
992 ,p_information8
993 ,p_information9
994 ,p_information10
995 ,p_information11
996 ,p_information12
997 ,p_information13
998 ,p_information14
999 ,p_information15
1000 ,p_information16
1001 ,p_information17
1002 ,p_information18
1003 ,p_information19
1004 ,p_information20
1005 ,p_information21
1006 ,p_information22
1007 ,p_information23
1008 ,p_information24
1009 ,p_information25
1010 ,p_information26
1011 ,p_information27
1012 ,p_information28
1013 ,p_information29
1014 ,p_information30
1015 ,p_information_category
1016 ,p_attribute1
1017 ,p_attribute2
1018 ,p_attribute3
1019 ,p_attribute4
1020 ,p_attribute5
1021 ,p_attribute6
1022 ,p_attribute7
1023 ,p_attribute8
1024 ,p_attribute9
1025 ,p_attribute10
1026 ,p_attribute11
1027 ,p_attribute12
1028 ,p_attribute13
1029 ,p_attribute14
1030 ,p_attribute15
1031 ,p_attribute16
1032 ,p_attribute17
1033 ,p_attribute18
1034 ,p_attribute19
1035 ,p_attribute20
1036 ,p_attribute21
1037 ,p_attribute22
1038 ,p_attribute23
1039 ,p_attribute24
1040 ,p_attribute25
1041 ,p_attribute26
1042 ,p_attribute27
1043 ,p_attribute28
1044 ,p_attribute29
1045 ,p_attribute30
1046 ,p_attribute_category
1047 ,p_object_version_number
1048 );
1049 --
1050 -- Having converted the arguments into the
1051 -- plsql record structure we call the corresponding record
1052 -- business process.
1053 --
1054 pqh_cei_upd.upd
1055 (p_effective_date
1056 ,l_rec
1057 );
1058 p_object_version_number := l_rec.object_version_number;
1059 --
1060 hr_utility.set_location(' Leaving:'||l_proc, 10);
1061 End upd;
1062 --
1063 end pqh_cei_upd;