[Home] [Help]
PACKAGE BODY: APPS.PAY_EEI_UPD
Source
1 Package Body pay_eei_upd as
2 /* $Header: pyeeirhi.pkb 120.11 2006/07/12 05:28:45 vikgupta noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' pay_eei_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 pay_eei_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 pay_eei_shd.g_api_dml := true; -- Set the api dml status
67 --
68 -- Update the pay_element_type_extra_info Row
69 --
70 update pay_element_type_extra_info
71 set
72 element_type_extra_info_id = p_rec.element_type_extra_info_id
73 ,element_type_id = p_rec.element_type_id
74 ,information_type = p_rec.information_type
75 ,request_id = p_rec.request_id
76 ,program_application_id = p_rec.program_application_id
77 ,program_id = p_rec.program_id
78 ,program_update_date = p_rec.program_update_date
79 ,eei_attribute_category = p_rec.eei_attribute_category
80 ,eei_attribute1 = p_rec.eei_attribute1
81 ,eei_attribute2 = p_rec.eei_attribute2
82 ,eei_attribute3 = p_rec.eei_attribute3
83 ,eei_attribute4 = p_rec.eei_attribute4
84 ,eei_attribute5 = p_rec.eei_attribute5
85 ,eei_attribute6 = p_rec.eei_attribute6
86 ,eei_attribute7 = p_rec.eei_attribute7
87 ,eei_attribute8 = p_rec.eei_attribute8
88 ,eei_attribute9 = p_rec.eei_attribute9
89 ,eei_attribute10 = p_rec.eei_attribute10
90 ,eei_attribute11 = p_rec.eei_attribute11
91 ,eei_attribute12 = p_rec.eei_attribute12
92 ,eei_attribute13 = p_rec.eei_attribute13
93 ,eei_attribute14 = p_rec.eei_attribute14
94 ,eei_attribute15 = p_rec.eei_attribute15
95 ,eei_attribute16 = p_rec.eei_attribute16
96 ,eei_attribute17 = p_rec.eei_attribute17
97 ,eei_attribute18 = p_rec.eei_attribute18
98 ,eei_attribute19 = p_rec.eei_attribute19
99 ,eei_attribute20 = p_rec.eei_attribute20
100 ,eei_information_category = p_rec.eei_information_category
101 ,eei_information1 = p_rec.eei_information1
102 ,eei_information2 = p_rec.eei_information2
103 ,eei_information3 = p_rec.eei_information3
104 ,eei_information4 = p_rec.eei_information4
105 ,eei_information5 = p_rec.eei_information5
106 ,eei_information6 = p_rec.eei_information6
107 ,eei_information7 = p_rec.eei_information7
108 ,eei_information8 = p_rec.eei_information8
109 ,eei_information9 = p_rec.eei_information9
110 ,eei_information10 = p_rec.eei_information10
111 ,eei_information11 = p_rec.eei_information11
112 ,eei_information12 = p_rec.eei_information12
113 ,eei_information13 = p_rec.eei_information13
114 ,eei_information14 = p_rec.eei_information14
115 ,eei_information15 = p_rec.eei_information15
116 ,eei_information16 = p_rec.eei_information16
117 ,eei_information17 = p_rec.eei_information17
118 ,eei_information18 = p_rec.eei_information18
119 ,eei_information19 = p_rec.eei_information19
120 ,eei_information20 = p_rec.eei_information20
121 ,eei_information21 = p_rec.eei_information21
122 ,eei_information22 = p_rec.eei_information22
123 ,eei_information23 = p_rec.eei_information23
124 ,eei_information24 = p_rec.eei_information24
125 ,eei_information25 = p_rec.eei_information25
126 ,eei_information26 = p_rec.eei_information26
127 ,eei_information27 = p_rec.eei_information27
128 ,eei_information28 = p_rec.eei_information28
129 ,eei_information29 = p_rec.eei_information29
130 ,eei_information30 = p_rec.eei_information30
131 ,object_version_number = p_rec.object_version_number
132 where element_type_extra_info_id = p_rec.element_type_extra_info_id;
133 --
134 pay_eei_shd.g_api_dml := false; -- Unset the api dml status
135 --
136 hr_utility.set_location(' Leaving:'||l_proc, 10);
137 --
138 Exception
139 When hr_api.check_integrity_violated Then
140 -- A check constraint has been violated
141 pay_eei_shd.g_api_dml := false; -- Unset the api dml status
142 pay_eei_shd.constraint_error
143 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
144 When hr_api.parent_integrity_violated Then
145 -- Parent integrity has been violated
146 pay_eei_shd.g_api_dml := false; -- Unset the api dml status
147 pay_eei_shd.constraint_error
148 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
149 When hr_api.unique_integrity_violated Then
150 -- Unique integrity has been violated
151 pay_eei_shd.g_api_dml := false; -- Unset the api dml status
152 pay_eei_shd.constraint_error
153 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
154 When Others Then
155 pay_eei_shd.g_api_dml := false; -- Unset the api dml status
156 Raise;
157 End update_dml;
158 --
159 -- ----------------------------------------------------------------------------
160 -- |------------------------------< pre_update >------------------------------|
161 -- ----------------------------------------------------------------------------
162 -- {Start Of Comments}
163 --
164 -- Description:
165 -- This private procedure contains any processing which is required before
166 -- the update dml.
167 --
168 -- Prerequisites:
169 -- This is an internal procedure which is called from the upd procedure.
170 --
171 -- In Parameters:
172 -- A Pl/Sql record structure.
173 --
174 -- Post Success:
175 -- Processing continues.
176 --
177 -- Post Failure:
178 -- If an error has occurred, an error message and exception wil be raised
179 -- but not handled.
180 --
181 -- Developer Implementation Notes:
182 -- Any pre-processing required before the update dml is issued should be
183 -- coded within this procedure. It is important to note that any 3rd party
184 -- maintenance should be reviewed before placing in this procedure.
185 --
186 -- Access Status:
187 -- Internal Row Handler Use Only.
188 --
189 -- {End Of Comments}
190 -- ----------------------------------------------------------------------------
191 Procedure pre_update
192 (p_rec in pay_eei_shd.g_rec_type
193 ) is
194 --
195 l_proc varchar2(72) := g_package||'pre_update';
196 --
197 Begin
198 hr_utility.set_location('Entering:'||l_proc, 5);
199 --
200 hr_utility.set_location(' Leaving:'||l_proc, 10);
201 End pre_update;
202 --
203 -- ----------------------------------------------------------------------------
204 -- |-----------------------------< post_update >------------------------------|
205 -- ----------------------------------------------------------------------------
206 -- {Start Of Comments}
207 --
208 -- Description:
209 -- This private procedure contains any processing which is required after the
210 -- update dml.
211 --
212 -- Prerequisites:
213 -- This is an internal procedure which is called from the upd procedure.
214 --
215 -- In Parameters:
216 -- A Pl/Sql record structure.
217 --
218 -- Post Success:
219 -- Processing continues.
220 --
221 -- Post Failure:
222 -- If an error has occurred, an error message and exception will be raised
223 -- but not handled.
224 --
225 -- Developer Implementation Notes:
226 -- Any post-processing required after the update dml is issued should be
227 -- coded within this procedure. It is important to note that any 3rd party
228 -- maintenance should be reviewed before placing in this procedure.
229 --
230 -- Access Status:
231 -- Internal Row Handler Use Only.
232 --
233 -- {End Of Comments}
234 -- ----------------------------------------------------------------------------
235 Procedure post_update
236 (p_rec in pay_eei_shd.g_rec_type
237 ) is
238 --
239 l_proc varchar2(72) := g_package||'post_update';
240 --
241 Begin
242 hr_utility.set_location('Entering:'||l_proc, 5);
243 begin
244 --
245 pay_eei_rku.after_update
246 (p_element_type_extra_info_id
247 => p_rec.element_type_extra_info_id
248 ,p_element_type_id
249 => p_rec.element_type_id
250 ,p_information_type
251 => p_rec.information_type
252 ,p_request_id
253 => p_rec.request_id
254 ,p_program_application_id
255 => p_rec.program_application_id
256 ,p_program_id
257 => p_rec.program_id
258 ,p_program_update_date
259 => p_rec.program_update_date
260 ,p_eei_attribute_category
261 => p_rec.eei_attribute_category
262 ,p_eei_attribute1
263 => p_rec.eei_attribute1
264 ,p_eei_attribute2
265 => p_rec.eei_attribute2
266 ,p_eei_attribute3
267 => p_rec.eei_attribute3
268 ,p_eei_attribute4
269 => p_rec.eei_attribute4
270 ,p_eei_attribute5
271 => p_rec.eei_attribute5
272 ,p_eei_attribute6
273 => p_rec.eei_attribute6
274 ,p_eei_attribute7
275 => p_rec.eei_attribute7
276 ,p_eei_attribute8
277 => p_rec.eei_attribute8
278 ,p_eei_attribute9
279 => p_rec.eei_attribute9
280 ,p_eei_attribute10
281 => p_rec.eei_attribute10
282 ,p_eei_attribute11
283 => p_rec.eei_attribute11
284 ,p_eei_attribute12
285 => p_rec.eei_attribute12
286 ,p_eei_attribute13
287 => p_rec.eei_attribute13
288 ,p_eei_attribute14
289 => p_rec.eei_attribute14
290 ,p_eei_attribute15
291 => p_rec.eei_attribute15
292 ,p_eei_attribute16
293 => p_rec.eei_attribute16
294 ,p_eei_attribute17
295 => p_rec.eei_attribute17
296 ,p_eei_attribute18
297 => p_rec.eei_attribute18
298 ,p_eei_attribute19
299 => p_rec.eei_attribute19
300 ,p_eei_attribute20
301 => p_rec.eei_attribute20
302 ,p_eei_information_category
303 => p_rec.eei_information_category
304 ,p_eei_information1
305 => p_rec.eei_information1
306 ,p_eei_information2
307 => p_rec.eei_information2
308 ,p_eei_information3
309 => p_rec.eei_information3
310 ,p_eei_information4
311 => p_rec.eei_information4
312 ,p_eei_information5
313 => p_rec.eei_information5
314 ,p_eei_information6
315 => p_rec.eei_information6
316 ,p_eei_information7
317 => p_rec.eei_information7
318 ,p_eei_information8
319 => p_rec.eei_information8
320 ,p_eei_information9
321 => p_rec.eei_information9
322 ,p_eei_information10
323 => p_rec.eei_information10
324 ,p_eei_information11
325 => p_rec.eei_information11
326 ,p_eei_information12
327 => p_rec.eei_information12
328 ,p_eei_information13
329 => p_rec.eei_information13
330 ,p_eei_information14
331 => p_rec.eei_information14
332 ,p_eei_information15
333 => p_rec.eei_information15
334 ,p_eei_information16
335 => p_rec.eei_information16
336 ,p_eei_information17
337 => p_rec.eei_information17
338 ,p_eei_information18
339 => p_rec.eei_information18
340 ,p_eei_information19
341 => p_rec.eei_information19
342 ,p_eei_information20
343 => p_rec.eei_information20
344 ,p_eei_information21
345 => p_rec.eei_information21
346 ,p_eei_information22
347 => p_rec.eei_information22
348 ,p_eei_information23
349 => p_rec.eei_information23
350 ,p_eei_information24
351 => p_rec.eei_information24
352 ,p_eei_information25
353 => p_rec.eei_information25
354 ,p_eei_information26
355 => p_rec.eei_information26
356 ,p_eei_information27
357 => p_rec.eei_information27
358 ,p_eei_information28
359 => p_rec.eei_information28
360 ,p_eei_information29
361 => p_rec.eei_information29
362 ,p_eei_information30
363 => p_rec.eei_information30
364 ,p_object_version_number
365 => p_rec.object_version_number
366 ,p_element_type_id_o
367 => pay_eei_shd.g_old_rec.element_type_id
368 ,p_information_type_o
369 => pay_eei_shd.g_old_rec.information_type
370 ,p_request_id_o
371 => pay_eei_shd.g_old_rec.request_id
372 ,p_program_application_id_o
373 => pay_eei_shd.g_old_rec.program_application_id
374 ,p_program_id_o
375 => pay_eei_shd.g_old_rec.program_id
376 ,p_program_update_date_o
377 => pay_eei_shd.g_old_rec.program_update_date
378 ,p_eei_attribute_category_o
379 => pay_eei_shd.g_old_rec.eei_attribute_category
380 ,p_eei_attribute1_o
381 => pay_eei_shd.g_old_rec.eei_attribute1
382 ,p_eei_attribute2_o
383 => pay_eei_shd.g_old_rec.eei_attribute2
384 ,p_eei_attribute3_o
385 => pay_eei_shd.g_old_rec.eei_attribute3
386 ,p_eei_attribute4_o
387 => pay_eei_shd.g_old_rec.eei_attribute4
388 ,p_eei_attribute5_o
389 => pay_eei_shd.g_old_rec.eei_attribute5
390 ,p_eei_attribute6_o
391 => pay_eei_shd.g_old_rec.eei_attribute6
392 ,p_eei_attribute7_o
393 => pay_eei_shd.g_old_rec.eei_attribute7
394 ,p_eei_attribute8_o
395 => pay_eei_shd.g_old_rec.eei_attribute8
396 ,p_eei_attribute9_o
397 => pay_eei_shd.g_old_rec.eei_attribute9
398 ,p_eei_attribute10_o
399 => pay_eei_shd.g_old_rec.eei_attribute10
400 ,p_eei_attribute11_o
401 => pay_eei_shd.g_old_rec.eei_attribute11
402 ,p_eei_attribute12_o
403 => pay_eei_shd.g_old_rec.eei_attribute12
404 ,p_eei_attribute13_o
405 => pay_eei_shd.g_old_rec.eei_attribute13
406 ,p_eei_attribute14_o
407 => pay_eei_shd.g_old_rec.eei_attribute14
408 ,p_eei_attribute15_o
409 => pay_eei_shd.g_old_rec.eei_attribute15
410 ,p_eei_attribute16_o
411 => pay_eei_shd.g_old_rec.eei_attribute16
412 ,p_eei_attribute17_o
413 => pay_eei_shd.g_old_rec.eei_attribute17
414 ,p_eei_attribute18_o
415 => pay_eei_shd.g_old_rec.eei_attribute18
416 ,p_eei_attribute19_o
417 => pay_eei_shd.g_old_rec.eei_attribute19
418 ,p_eei_attribute20_o
419 => pay_eei_shd.g_old_rec.eei_attribute20
420 ,p_eei_information_category_o
421 => pay_eei_shd.g_old_rec.eei_information_category
422 ,p_eei_information1_o
423 => pay_eei_shd.g_old_rec.eei_information1
424 ,p_eei_information2_o
425 => pay_eei_shd.g_old_rec.eei_information2
426 ,p_eei_information3_o
427 => pay_eei_shd.g_old_rec.eei_information3
428 ,p_eei_information4_o
429 => pay_eei_shd.g_old_rec.eei_information4
430 ,p_eei_information5_o
431 => pay_eei_shd.g_old_rec.eei_information5
432 ,p_eei_information6_o
433 => pay_eei_shd.g_old_rec.eei_information6
434 ,p_eei_information7_o
435 => pay_eei_shd.g_old_rec.eei_information7
436 ,p_eei_information8_o
437 => pay_eei_shd.g_old_rec.eei_information8
438 ,p_eei_information9_o
439 => pay_eei_shd.g_old_rec.eei_information9
440 ,p_eei_information10_o
441 => pay_eei_shd.g_old_rec.eei_information10
442 ,p_eei_information11_o
443 => pay_eei_shd.g_old_rec.eei_information11
444 ,p_eei_information12_o
445 => pay_eei_shd.g_old_rec.eei_information12
446 ,p_eei_information13_o
447 => pay_eei_shd.g_old_rec.eei_information13
448 ,p_eei_information14_o
449 => pay_eei_shd.g_old_rec.eei_information14
450 ,p_eei_information15_o
451 => pay_eei_shd.g_old_rec.eei_information15
452 ,p_eei_information16_o
453 => pay_eei_shd.g_old_rec.eei_information16
454 ,p_eei_information17_o
455 => pay_eei_shd.g_old_rec.eei_information17
456 ,p_eei_information18_o
457 => pay_eei_shd.g_old_rec.eei_information18
458 ,p_eei_information19_o
459 => pay_eei_shd.g_old_rec.eei_information19
460 ,p_eei_information20_o
461 => pay_eei_shd.g_old_rec.eei_information20
462 ,p_eei_information21_o
463 => pay_eei_shd.g_old_rec.eei_information21
464 ,p_eei_information22_o
465 => pay_eei_shd.g_old_rec.eei_information22
466 ,p_eei_information23_o
467 => pay_eei_shd.g_old_rec.eei_information23
468 ,p_eei_information24_o
469 => pay_eei_shd.g_old_rec.eei_information24
470 ,p_eei_information25_o
471 => pay_eei_shd.g_old_rec.eei_information25
472 ,p_eei_information26_o
473 => pay_eei_shd.g_old_rec.eei_information26
474 ,p_eei_information27_o
475 => pay_eei_shd.g_old_rec.eei_information27
476 ,p_eei_information28_o
477 => pay_eei_shd.g_old_rec.eei_information28
478 ,p_eei_information29_o
479 => pay_eei_shd.g_old_rec.eei_information29
480 ,p_eei_information30_o
481 => pay_eei_shd.g_old_rec.eei_information30
482 ,p_object_version_number_o
483 => pay_eei_shd.g_old_rec.object_version_number
484 );
485 --
486 exception
487 --
488 when hr_api.cannot_find_prog_unit then
489 --
490 hr_api.cannot_find_prog_unit_error
491 (p_module_name => 'PAY_ELEMENT_TYPE_EXTRA_INFO'
492 ,p_hook_type => 'AU');
493 --
494 end;
495 --
496 hr_utility.set_location(' Leaving:'||l_proc, 10);
497 End post_update;
498 --
499 -- ----------------------------------------------------------------------------
500 -- |-----------------------------< convert_defs >-----------------------------|
501 -- ----------------------------------------------------------------------------
502 -- {Start Of Comments}
503 --
504 -- Description:
505 -- The Convert_Defs procedure has one very important function:
506 -- It must return the record structure for the row with all system defaulted
507 -- values converted into its corresponding parameter value for update. When
508 -- we attempt to update a row through the Upd process , certain
509 -- parameters can be defaulted which enables flexibility in the calling of
510 -- the upd process (e.g. only attributes which need to be updated need to be
511 -- specified). For the upd process to determine which attributes
512 -- have NOT been specified we need to check if the parameter has a reserved
513 -- system default value. Therefore, for all parameters which have a
514 -- corresponding reserved system default mechanism specified we need to
515 -- check if a system default is being used. If a system default is being
516 -- used then we convert the defaulted value into its corresponding attribute
517 -- value held in the g_old_rec data structure.
518 --
519 -- Prerequisites:
520 -- This private function can only be called from the upd process.
521 --
522 -- In Parameters:
523 -- A Pl/Sql record structure.
524 --
525 -- Post Success:
526 -- The record structure will be returned with all system defaulted parameter
527 -- values converted into its current row attribute value.
528 --
529 -- Post Failure:
530 -- No direct error handling is required within this function. Any possible
531 -- errors within this procedure will be a PL/SQL value error due to
532 -- conversion of datatypes or data lengths.
533 --
534 -- Developer Implementation Notes:
535 -- None.
536 --
537 -- Access Status:
538 -- Internal Row Handler Use Only.
539 --
540 -- {End Of Comments}
541 -- ----------------------------------------------------------------------------
542 Procedure convert_defs
543 (p_rec in out nocopy pay_eei_shd.g_rec_type
544 ) is
545 --
546 Begin
547 --
548 -- We must now examine each argument value in the
549 -- p_rec plsql record structure
550 -- to see if a system default is being used. If a system default
551 -- is being used then we must set to the 'current' argument value.
552 --
553 If (p_rec.element_type_id = hr_api.g_number) then
554 p_rec.element_type_id :=
555 pay_eei_shd.g_old_rec.element_type_id;
556 End If;
557 If (p_rec.information_type = hr_api.g_varchar2) then
558 p_rec.information_type :=
559 pay_eei_shd.g_old_rec.information_type;
560 End If;
561 If (p_rec.request_id = hr_api.g_number) then
562 p_rec.request_id :=
563 pay_eei_shd.g_old_rec.request_id;
564 End If;
565 If (p_rec.program_application_id = hr_api.g_number) then
566 p_rec.program_application_id :=
567 pay_eei_shd.g_old_rec.program_application_id;
568 End If;
569 If (p_rec.program_id = hr_api.g_number) then
570 p_rec.program_id :=
571 pay_eei_shd.g_old_rec.program_id;
572 End If;
573 If (p_rec.program_update_date = hr_api.g_date) then
574 p_rec.program_update_date :=
575 pay_eei_shd.g_old_rec.program_update_date;
576 End If;
577 If (p_rec.eei_attribute_category = hr_api.g_varchar2) then
578 p_rec.eei_attribute_category :=
579 pay_eei_shd.g_old_rec.eei_attribute_category;
580 End If;
581 If (p_rec.eei_attribute1 = hr_api.g_varchar2) then
582 p_rec.eei_attribute1 :=
583 pay_eei_shd.g_old_rec.eei_attribute1;
584 End If;
585 If (p_rec.eei_attribute2 = hr_api.g_varchar2) then
586 p_rec.eei_attribute2 :=
587 pay_eei_shd.g_old_rec.eei_attribute2;
588 End If;
589 If (p_rec.eei_attribute3 = hr_api.g_varchar2) then
590 p_rec.eei_attribute3 :=
591 pay_eei_shd.g_old_rec.eei_attribute3;
592 End If;
593 If (p_rec.eei_attribute4 = hr_api.g_varchar2) then
594 p_rec.eei_attribute4 :=
595 pay_eei_shd.g_old_rec.eei_attribute4;
596 End If;
597 If (p_rec.eei_attribute5 = hr_api.g_varchar2) then
598 p_rec.eei_attribute5 :=
599 pay_eei_shd.g_old_rec.eei_attribute5;
600 End If;
601 If (p_rec.eei_attribute6 = hr_api.g_varchar2) then
602 p_rec.eei_attribute6 :=
603 pay_eei_shd.g_old_rec.eei_attribute6;
604 End If;
605 If (p_rec.eei_attribute7 = hr_api.g_varchar2) then
606 p_rec.eei_attribute7 :=
607 pay_eei_shd.g_old_rec.eei_attribute7;
608 End If;
609 If (p_rec.eei_attribute8 = hr_api.g_varchar2) then
610 p_rec.eei_attribute8 :=
611 pay_eei_shd.g_old_rec.eei_attribute8;
612 End If;
613 If (p_rec.eei_attribute9 = hr_api.g_varchar2) then
614 p_rec.eei_attribute9 :=
615 pay_eei_shd.g_old_rec.eei_attribute9;
616 End If;
617 If (p_rec.eei_attribute10 = hr_api.g_varchar2) then
618 p_rec.eei_attribute10 :=
619 pay_eei_shd.g_old_rec.eei_attribute10;
620 End If;
621 If (p_rec.eei_attribute11 = hr_api.g_varchar2) then
622 p_rec.eei_attribute11 :=
623 pay_eei_shd.g_old_rec.eei_attribute11;
624 End If;
625 If (p_rec.eei_attribute12 = hr_api.g_varchar2) then
626 p_rec.eei_attribute12 :=
627 pay_eei_shd.g_old_rec.eei_attribute12;
628 End If;
629 If (p_rec.eei_attribute13 = hr_api.g_varchar2) then
630 p_rec.eei_attribute13 :=
631 pay_eei_shd.g_old_rec.eei_attribute13;
632 End If;
633 If (p_rec.eei_attribute14 = hr_api.g_varchar2) then
634 p_rec.eei_attribute14 :=
635 pay_eei_shd.g_old_rec.eei_attribute14;
636 End If;
637 If (p_rec.eei_attribute15 = hr_api.g_varchar2) then
638 p_rec.eei_attribute15 :=
639 pay_eei_shd.g_old_rec.eei_attribute15;
640 End If;
641 If (p_rec.eei_attribute16 = hr_api.g_varchar2) then
642 p_rec.eei_attribute16 :=
643 pay_eei_shd.g_old_rec.eei_attribute16;
644 End If;
645 If (p_rec.eei_attribute17 = hr_api.g_varchar2) then
646 p_rec.eei_attribute17 :=
647 pay_eei_shd.g_old_rec.eei_attribute17;
648 End If;
649 If (p_rec.eei_attribute18 = hr_api.g_varchar2) then
650 p_rec.eei_attribute18 :=
651 pay_eei_shd.g_old_rec.eei_attribute18;
652 End If;
653 If (p_rec.eei_attribute19 = hr_api.g_varchar2) then
654 p_rec.eei_attribute19 :=
655 pay_eei_shd.g_old_rec.eei_attribute19;
656 End If;
657 If (p_rec.eei_attribute20 = hr_api.g_varchar2) then
658 p_rec.eei_attribute20 :=
659 pay_eei_shd.g_old_rec.eei_attribute20;
660 End If;
661 If (p_rec.eei_information_category = hr_api.g_varchar2) then
662 p_rec.eei_information_category :=
663 pay_eei_shd.g_old_rec.eei_information_category;
664 End If;
665 If (p_rec.eei_information1 = hr_api.g_varchar2) then
666 p_rec.eei_information1 :=
667 pay_eei_shd.g_old_rec.eei_information1;
668 End If;
669 If (p_rec.eei_information2 = hr_api.g_varchar2) then
670 p_rec.eei_information2 :=
671 pay_eei_shd.g_old_rec.eei_information2;
672 End If;
673 If (p_rec.eei_information3 = hr_api.g_varchar2) then
674 p_rec.eei_information3 :=
675 pay_eei_shd.g_old_rec.eei_information3;
676 End If;
677 If (p_rec.eei_information4 = hr_api.g_varchar2) then
678 p_rec.eei_information4 :=
679 pay_eei_shd.g_old_rec.eei_information4;
680 End If;
681 If (p_rec.eei_information5 = hr_api.g_varchar2) then
682 p_rec.eei_information5 :=
683 pay_eei_shd.g_old_rec.eei_information5;
684 End If;
685 If (p_rec.eei_information6 = hr_api.g_varchar2) then
686 p_rec.eei_information6 :=
687 pay_eei_shd.g_old_rec.eei_information6;
688 End If;
689 If (p_rec.eei_information7 = hr_api.g_varchar2) then
690 p_rec.eei_information7 :=
691 pay_eei_shd.g_old_rec.eei_information7;
692 End If;
693 If (p_rec.eei_information8 = hr_api.g_varchar2) then
694 p_rec.eei_information8 :=
695 pay_eei_shd.g_old_rec.eei_information8;
696 End If;
697 If (p_rec.eei_information9 = hr_api.g_varchar2) then
698 p_rec.eei_information9 :=
699 pay_eei_shd.g_old_rec.eei_information9;
700 End If;
701 If (p_rec.eei_information10 = hr_api.g_varchar2) then
702 p_rec.eei_information10 :=
703 pay_eei_shd.g_old_rec.eei_information10;
704 End If;
705 If (p_rec.eei_information11 = hr_api.g_varchar2) then
706 p_rec.eei_information11 :=
707 pay_eei_shd.g_old_rec.eei_information11;
708 End If;
709 If (p_rec.eei_information12 = hr_api.g_varchar2) then
710 p_rec.eei_information12 :=
711 pay_eei_shd.g_old_rec.eei_information12;
712 End If;
713 If (p_rec.eei_information13 = hr_api.g_varchar2) then
714 p_rec.eei_information13 :=
715 pay_eei_shd.g_old_rec.eei_information13;
716 End If;
717 If (p_rec.eei_information14 = hr_api.g_varchar2) then
718 p_rec.eei_information14 :=
719 pay_eei_shd.g_old_rec.eei_information14;
720 End If;
721 If (p_rec.eei_information15 = hr_api.g_varchar2) then
722 p_rec.eei_information15 :=
723 pay_eei_shd.g_old_rec.eei_information15;
724 End If;
725 If (p_rec.eei_information16 = hr_api.g_varchar2) then
726 p_rec.eei_information16 :=
727 pay_eei_shd.g_old_rec.eei_information16;
728 End If;
729 If (p_rec.eei_information17 = hr_api.g_varchar2) then
730 p_rec.eei_information17 :=
731 pay_eei_shd.g_old_rec.eei_information17;
732 End If;
733 If (p_rec.eei_information18 = hr_api.g_varchar2) then
734 p_rec.eei_information18 :=
735 pay_eei_shd.g_old_rec.eei_information18;
736 End If;
737 If (p_rec.eei_information19 = hr_api.g_varchar2) then
738 p_rec.eei_information19 :=
739 pay_eei_shd.g_old_rec.eei_information19;
740 End If;
741 If (p_rec.eei_information20 = hr_api.g_varchar2) then
742 p_rec.eei_information20 :=
743 pay_eei_shd.g_old_rec.eei_information20;
744 End If;
745 If (p_rec.eei_information21 = hr_api.g_varchar2) then
746 p_rec.eei_information21 :=
747 pay_eei_shd.g_old_rec.eei_information21;
748 End If;
749 If (p_rec.eei_information22 = hr_api.g_varchar2) then
750 p_rec.eei_information22 :=
751 pay_eei_shd.g_old_rec.eei_information22;
752 End If;
753 If (p_rec.eei_information23 = hr_api.g_varchar2) then
754 p_rec.eei_information23 :=
755 pay_eei_shd.g_old_rec.eei_information23;
756 End If;
757 If (p_rec.eei_information24 = hr_api.g_varchar2) then
758 p_rec.eei_information24 :=
759 pay_eei_shd.g_old_rec.eei_information24;
760 End If;
761 If (p_rec.eei_information25 = hr_api.g_varchar2) then
762 p_rec.eei_information25 :=
763 pay_eei_shd.g_old_rec.eei_information25;
764 End If;
765 If (p_rec.eei_information26 = hr_api.g_varchar2) then
766 p_rec.eei_information26 :=
767 pay_eei_shd.g_old_rec.eei_information26;
768 End If;
769 If (p_rec.eei_information27 = hr_api.g_varchar2) then
770 p_rec.eei_information27 :=
771 pay_eei_shd.g_old_rec.eei_information27;
772 End If;
773 If (p_rec.eei_information28 = hr_api.g_varchar2) then
774 p_rec.eei_information28 :=
775 pay_eei_shd.g_old_rec.eei_information28;
776 End If;
777 If (p_rec.eei_information29 = hr_api.g_varchar2) then
778 p_rec.eei_information29 :=
779 pay_eei_shd.g_old_rec.eei_information29;
780 End If;
781 If (p_rec.eei_information30 = hr_api.g_varchar2) then
782 p_rec.eei_information30 :=
783 pay_eei_shd.g_old_rec.eei_information30;
784 End If;
785 --
786 End convert_defs;
787 --
788 -- ----------------------------------------------------------------------------
789 -- |---------------------------------< upd >----------------------------------|
790 -- ----------------------------------------------------------------------------
791 Procedure upd
792 (p_rec in out nocopy pay_eei_shd.g_rec_type
793 ) is
794 --
795 l_proc varchar2(72) := g_package||'upd';
796 --
797 Begin
798 hr_utility.set_location('Entering:'||l_proc, 5);
799 --
800 -- We must lock the row which we need to update.
801 --
802 pay_eei_shd.lck
803 (p_rec.element_type_extra_info_id
804 ,p_rec.object_version_number
805 );
806 --
807 -- 1. During an update system defaults are used to determine if
808 -- arguments have been defaulted or not. We must therefore
809 -- derive the full record structure values to be updated.
810 --
811 -- 2. Call the supporting update validate operations.
812 --
813 convert_defs(p_rec);
814 pay_eei_bus.update_validate
815 (p_rec
816 );
817 --
818 -- Call the supporting pre-update operation
819 --
820 pay_eei_upd.pre_update(p_rec);
821 --
822 -- Update the row.
823 --
824 pay_eei_upd.update_dml(p_rec);
825 --
826 -- Call the supporting post-update operation
827 --
828 pay_eei_upd.post_update
829 (p_rec
830 );
831 End upd;
832 --
833 -- ----------------------------------------------------------------------------
834 -- |---------------------------------< upd >----------------------------------|
835 -- ----------------------------------------------------------------------------
836 Procedure upd
837 (p_element_type_extra_info_id in number
838 ,p_object_version_number in out nocopy number
839 ,p_element_type_id in number default hr_api.g_number
840 ,p_information_type in varchar2 default hr_api.g_varchar2
841 ,p_request_id in number default hr_api.g_number
842 ,p_program_application_id in number default hr_api.g_number
843 ,p_program_id in number default hr_api.g_number
844 ,p_program_update_date in date default hr_api.g_date
845 ,p_eei_attribute_category in varchar2 default hr_api.g_varchar2
846 ,p_eei_attribute1 in varchar2 default hr_api.g_varchar2
847 ,p_eei_attribute2 in varchar2 default hr_api.g_varchar2
848 ,p_eei_attribute3 in varchar2 default hr_api.g_varchar2
849 ,p_eei_attribute4 in varchar2 default hr_api.g_varchar2
850 ,p_eei_attribute5 in varchar2 default hr_api.g_varchar2
851 ,p_eei_attribute6 in varchar2 default hr_api.g_varchar2
852 ,p_eei_attribute7 in varchar2 default hr_api.g_varchar2
853 ,p_eei_attribute8 in varchar2 default hr_api.g_varchar2
854 ,p_eei_attribute9 in varchar2 default hr_api.g_varchar2
855 ,p_eei_attribute10 in varchar2 default hr_api.g_varchar2
856 ,p_eei_attribute11 in varchar2 default hr_api.g_varchar2
857 ,p_eei_attribute12 in varchar2 default hr_api.g_varchar2
858 ,p_eei_attribute13 in varchar2 default hr_api.g_varchar2
859 ,p_eei_attribute14 in varchar2 default hr_api.g_varchar2
860 ,p_eei_attribute15 in varchar2 default hr_api.g_varchar2
861 ,p_eei_attribute16 in varchar2 default hr_api.g_varchar2
862 ,p_eei_attribute17 in varchar2 default hr_api.g_varchar2
863 ,p_eei_attribute18 in varchar2 default hr_api.g_varchar2
864 ,p_eei_attribute19 in varchar2 default hr_api.g_varchar2
865 ,p_eei_attribute20 in varchar2 default hr_api.g_varchar2
866 ,p_eei_information_category in varchar2 default hr_api.g_varchar2
867 ,p_eei_information1 in varchar2 default hr_api.g_varchar2
868 ,p_eei_information2 in varchar2 default hr_api.g_varchar2
869 ,p_eei_information3 in varchar2 default hr_api.g_varchar2
870 ,p_eei_information4 in varchar2 default hr_api.g_varchar2
871 ,p_eei_information5 in varchar2 default hr_api.g_varchar2
872 ,p_eei_information6 in varchar2 default hr_api.g_varchar2
873 ,p_eei_information7 in varchar2 default hr_api.g_varchar2
874 ,p_eei_information8 in varchar2 default hr_api.g_varchar2
875 ,p_eei_information9 in varchar2 default hr_api.g_varchar2
876 ,p_eei_information10 in varchar2 default hr_api.g_varchar2
877 ,p_eei_information11 in varchar2 default hr_api.g_varchar2
878 ,p_eei_information12 in varchar2 default hr_api.g_varchar2
879 ,p_eei_information13 in varchar2 default hr_api.g_varchar2
880 ,p_eei_information14 in varchar2 default hr_api.g_varchar2
881 ,p_eei_information15 in varchar2 default hr_api.g_varchar2
882 ,p_eei_information16 in varchar2 default hr_api.g_varchar2
883 ,p_eei_information17 in varchar2 default hr_api.g_varchar2
884 ,p_eei_information18 in varchar2 default hr_api.g_varchar2
885 ,p_eei_information19 in varchar2 default hr_api.g_varchar2
886 ,p_eei_information20 in varchar2 default hr_api.g_varchar2
887 ,p_eei_information21 in varchar2 default hr_api.g_varchar2
888 ,p_eei_information22 in varchar2 default hr_api.g_varchar2
889 ,p_eei_information23 in varchar2 default hr_api.g_varchar2
890 ,p_eei_information24 in varchar2 default hr_api.g_varchar2
891 ,p_eei_information25 in varchar2 default hr_api.g_varchar2
892 ,p_eei_information26 in varchar2 default hr_api.g_varchar2
893 ,p_eei_information27 in varchar2 default hr_api.g_varchar2
894 ,p_eei_information28 in varchar2 default hr_api.g_varchar2
895 ,p_eei_information29 in varchar2 default hr_api.g_varchar2
896 ,p_eei_information30 in varchar2 default hr_api.g_varchar2
897 ) is
898 --
899 l_rec pay_eei_shd.g_rec_type;
900 l_proc varchar2(72) := g_package||'upd';
901 --
902 Begin
903 hr_utility.set_location('Entering:'||l_proc, 5);
904 --
905 -- Call conversion function to turn arguments into the
906 -- l_rec structure.
907 --
908 l_rec :=
909 pay_eei_shd.convert_args
910 (p_element_type_extra_info_id
911 ,p_element_type_id
912 ,p_information_type
913 ,p_request_id
914 ,p_program_application_id
915 ,p_program_id
916 ,p_program_update_date
917 ,p_eei_attribute_category
918 ,p_eei_attribute1
919 ,p_eei_attribute2
920 ,p_eei_attribute3
921 ,p_eei_attribute4
922 ,p_eei_attribute5
923 ,p_eei_attribute6
924 ,p_eei_attribute7
925 ,p_eei_attribute8
926 ,p_eei_attribute9
927 ,p_eei_attribute10
928 ,p_eei_attribute11
929 ,p_eei_attribute12
930 ,p_eei_attribute13
931 ,p_eei_attribute14
932 ,p_eei_attribute15
933 ,p_eei_attribute16
934 ,p_eei_attribute17
935 ,p_eei_attribute18
936 ,p_eei_attribute19
937 ,p_eei_attribute20
938 ,p_eei_information_category
939 ,p_eei_information1
940 ,p_eei_information2
941 ,p_eei_information3
942 ,p_eei_information4
943 ,p_eei_information5
944 ,p_eei_information6
945 ,p_eei_information7
946 ,p_eei_information8
947 ,p_eei_information9
948 ,p_eei_information10
949 ,p_eei_information11
950 ,p_eei_information12
951 ,p_eei_information13
952 ,p_eei_information14
953 ,p_eei_information15
954 ,p_eei_information16
955 ,p_eei_information17
956 ,p_eei_information18
957 ,p_eei_information19
958 ,p_eei_information20
959 ,p_eei_information21
960 ,p_eei_information22
961 ,p_eei_information23
962 ,p_eei_information24
963 ,p_eei_information25
964 ,p_eei_information26
965 ,p_eei_information27
966 ,p_eei_information28
967 ,p_eei_information29
968 ,p_eei_information30
969 ,p_object_version_number
970 );
971 --
972 -- Having converted the arguments into the
973 -- plsql record structure we call the corresponding record
974 -- business process.
975 --
976 pay_eei_upd.upd
977 (l_rec
978 );
979 p_object_version_number := l_rec.object_version_number;
980 --
981 hr_utility.set_location(' Leaving:'||l_proc, 10);
982 End upd;
983 --
984 end pay_eei_upd;