1 Package Body pay_aif_upd as
2 /* $Header: pyaifrhi.pkb 120.2.12000000.2 2007/03/30 05:34:36 ttagawa noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' pay_aif_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_aif_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 pay_action_information Row
69 --
70 update pay_action_information
71 set
72 action_information_id = p_rec.action_information_id
73 ,object_version_number = p_rec.object_version_number
74 ,action_information1 = p_rec.action_information1
75 ,action_information2 = p_rec.action_information2
76 ,action_information3 = p_rec.action_information3
77 ,action_information4 = p_rec.action_information4
78 ,action_information5 = p_rec.action_information5
79 ,action_information6 = p_rec.action_information6
80 ,action_information7 = p_rec.action_information7
81 ,action_information8 = p_rec.action_information8
82 ,action_information9 = p_rec.action_information9
83 ,action_information10 = p_rec.action_information10
84 ,action_information11 = p_rec.action_information11
85 ,action_information12 = p_rec.action_information12
86 ,action_information13 = p_rec.action_information13
87 ,action_information14 = p_rec.action_information14
88 ,action_information15 = p_rec.action_information15
89 ,action_information16 = p_rec.action_information16
90 ,action_information17 = p_rec.action_information17
91 ,action_information18 = p_rec.action_information18
92 ,action_information19 = p_rec.action_information19
93 ,action_information20 = p_rec.action_information20
94 ,action_information21 = p_rec.action_information21
95 ,action_information22 = p_rec.action_information22
96 ,action_information23 = p_rec.action_information23
97 ,action_information24 = p_rec.action_information24
98 ,action_information25 = p_rec.action_information25
99 ,action_information26 = p_rec.action_information26
100 ,action_information27 = p_rec.action_information27
101 ,action_information28 = p_rec.action_information28
102 ,action_information29 = p_rec.action_information29
103 ,action_information30 = p_rec.action_information30
104 where action_information_id = p_rec.action_information_id;
105 --
106 --
107 --
108 hr_utility.set_location(' Leaving:'||l_proc, 10);
109 --
110 Exception
111 When hr_api.check_integrity_violated Then
112 -- A check constraint has been violated
113 --
114 pay_aif_shd.constraint_error
115 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
116 When hr_api.parent_integrity_violated Then
117 -- Parent integrity has been violated
118 --
119 pay_aif_shd.constraint_error
120 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
121 When hr_api.unique_integrity_violated Then
122 -- Unique integrity has been violated
123 --
124 pay_aif_shd.constraint_error
125 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
126 When Others Then
127 --
128 Raise;
129 End update_dml;
130 --
131 -- ----------------------------------------------------------------------------
132 -- |------------------------------< pre_update >------------------------------|
133 -- ----------------------------------------------------------------------------
134 -- {Start Of Comments}
135 --
136 -- Description:
137 -- This private procedure contains any processing which is required before
138 -- the update dml.
139 --
140 -- Prerequisites:
141 -- This is an internal procedure which is called from the upd procedure.
142 --
143 -- In Parameters:
144 -- A Pl/Sql record structure.
145 --
146 -- Post Success:
147 -- Processing continues.
148 --
149 -- Post Failure:
150 -- If an error has occurred, an error message and exception wil be raised
151 -- but not handled.
152 --
153 -- Developer Implementation Notes:
154 -- Any pre-processing required before the update dml is issued should be
155 -- coded within this procedure. It is important to note that any 3rd party
156 -- maintenance should be reviewed before placing in this procedure.
157 --
158 -- Access Status:
159 -- Internal Row Handler Use Only.
160 --
161 -- {End Of Comments}
162 -- ----------------------------------------------------------------------------
163 Procedure pre_update
164 (p_rec in pay_aif_shd.g_rec_type
165 ) is
166 --
167 l_proc varchar2(72) := g_package||'pre_update';
168 --
169 Begin
170 hr_utility.set_location('Entering:'||l_proc, 5);
171 --
172 hr_utility.set_location(' Leaving:'||l_proc, 10);
173 End pre_update;
174 --
175 -- ----------------------------------------------------------------------------
176 -- |-----------------------------< post_update >------------------------------|
177 -- ----------------------------------------------------------------------------
178 -- {Start Of Comments}
179 --
180 -- Description:
181 -- This private procedure contains any processing which is required after the
182 -- update dml.
183 --
184 -- Prerequisites:
185 -- This is an internal procedure which is called from the upd procedure.
186 --
187 -- In Parameters:
188 -- A Pl/Sql record structure.
189 --
190 -- Post Success:
191 -- Processing continues.
192 --
193 -- Post Failure:
194 -- If an error has occurred, an error message and exception will be raised
195 -- but not handled.
196 --
197 -- Developer Implementation Notes:
198 -- Any post-processing required after the update dml is issued should be
199 -- coded within this procedure. It is important to note that any 3rd party
200 -- maintenance should be reviewed before placing in this procedure.
201 --
202 -- Access Status:
203 -- Internal Row Handler Use Only.
204 --
205 -- {End Of Comments}
206 -- ----------------------------------------------------------------------------
207 Procedure post_update
208 (p_rec in pay_aif_shd.g_rec_type
209 ) is
210 --
211 l_proc varchar2(72) := g_package||'post_update';
212 --
213 Begin
214 hr_utility.set_location('Entering:'||l_proc, 5);
215 begin
216 --
217 pay_aif_rku.after_update
218 (p_action_information_id
219 => p_rec.action_information_id
220 ,p_object_version_number
221 => p_rec.object_version_number
222 ,p_action_information1
223 => p_rec.action_information1
224 ,p_action_information2
225 => p_rec.action_information2
226 ,p_action_information3
227 => p_rec.action_information3
228 ,p_action_information4
229 => p_rec.action_information4
230 ,p_action_information5
231 => p_rec.action_information5
232 ,p_action_information6
233 => p_rec.action_information6
234 ,p_action_information7
235 => p_rec.action_information7
236 ,p_action_information8
237 => p_rec.action_information8
238 ,p_action_information9
239 => p_rec.action_information9
240 ,p_action_information10
241 => p_rec.action_information10
242 ,p_action_information11
243 => p_rec.action_information11
244 ,p_action_information12
245 => p_rec.action_information12
246 ,p_action_information13
247 => p_rec.action_information13
248 ,p_action_information14
249 => p_rec.action_information14
250 ,p_action_information15
251 => p_rec.action_information15
252 ,p_action_information16
253 => p_rec.action_information16
254 ,p_action_information17
255 => p_rec.action_information17
256 ,p_action_information18
257 => p_rec.action_information18
258 ,p_action_information19
259 => p_rec.action_information19
260 ,p_action_information20
261 => p_rec.action_information20
262 ,p_action_information21
263 => p_rec.action_information21
264 ,p_action_information22
265 => p_rec.action_information22
266 ,p_action_information23
267 => p_rec.action_information23
268 ,p_action_information24
269 => p_rec.action_information24
270 ,p_action_information25
271 => p_rec.action_information25
272 ,p_action_information26
273 => p_rec.action_information26
274 ,p_action_information27
275 => p_rec.action_information27
276 ,p_action_information28
277 => p_rec.action_information28
278 ,p_action_information29
279 => p_rec.action_information29
280 ,p_action_information30
281 => p_rec.action_information30
282 ,p_action_context_id_o
283 => pay_aif_shd.g_old_rec.action_context_id
284 ,p_action_context_type_o
285 => pay_aif_shd.g_old_rec.action_context_type
286 ,p_tax_unit_id_o
287 => pay_aif_shd.g_old_rec.tax_unit_id
288 ,p_jurisdiction_code_o
289 => pay_aif_shd.g_old_rec.jurisdiction_code
290 ,p_source_id_o
291 => pay_aif_shd.g_old_rec.source_id
292 ,p_source_text_o
293 => pay_aif_shd.g_old_rec.source_text
294 ,p_tax_group_o
295 => pay_aif_shd.g_old_rec.tax_group
296 ,p_object_version_number_o
297 => pay_aif_shd.g_old_rec.object_version_number
298 ,p_effective_date_o
299 => pay_aif_shd.g_old_rec.effective_date
300 ,p_assignment_id_o
301 => pay_aif_shd.g_old_rec.assignment_id
302 ,p_action_information_categor_o
303 => pay_aif_shd.g_old_rec.action_information_category
304 ,p_action_information1_o
305 => pay_aif_shd.g_old_rec.action_information1
306 ,p_action_information2_o
307 => pay_aif_shd.g_old_rec.action_information2
308 ,p_action_information3_o
309 => pay_aif_shd.g_old_rec.action_information3
310 ,p_action_information4_o
311 => pay_aif_shd.g_old_rec.action_information4
312 ,p_action_information5_o
313 => pay_aif_shd.g_old_rec.action_information5
314 ,p_action_information6_o
315 => pay_aif_shd.g_old_rec.action_information6
316 ,p_action_information7_o
317 => pay_aif_shd.g_old_rec.action_information7
318 ,p_action_information8_o
319 => pay_aif_shd.g_old_rec.action_information8
320 ,p_action_information9_o
321 => pay_aif_shd.g_old_rec.action_information9
322 ,p_action_information10_o
323 => pay_aif_shd.g_old_rec.action_information10
324 ,p_action_information11_o
325 => pay_aif_shd.g_old_rec.action_information11
326 ,p_action_information12_o
327 => pay_aif_shd.g_old_rec.action_information12
328 ,p_action_information13_o
329 => pay_aif_shd.g_old_rec.action_information13
330 ,p_action_information14_o
331 => pay_aif_shd.g_old_rec.action_information14
332 ,p_action_information15_o
333 => pay_aif_shd.g_old_rec.action_information15
334 ,p_action_information16_o
335 => pay_aif_shd.g_old_rec.action_information16
336 ,p_action_information17_o
337 => pay_aif_shd.g_old_rec.action_information17
338 ,p_action_information18_o
339 => pay_aif_shd.g_old_rec.action_information18
340 ,p_action_information19_o
341 => pay_aif_shd.g_old_rec.action_information19
342 ,p_action_information20_o
343 => pay_aif_shd.g_old_rec.action_information20
344 ,p_action_information21_o
345 => pay_aif_shd.g_old_rec.action_information21
346 ,p_action_information22_o
347 => pay_aif_shd.g_old_rec.action_information22
348 ,p_action_information23_o
349 => pay_aif_shd.g_old_rec.action_information23
350 ,p_action_information24_o
351 => pay_aif_shd.g_old_rec.action_information24
352 ,p_action_information25_o
353 => pay_aif_shd.g_old_rec.action_information25
354 ,p_action_information26_o
355 => pay_aif_shd.g_old_rec.action_information26
356 ,p_action_information27_o
357 => pay_aif_shd.g_old_rec.action_information27
358 ,p_action_information28_o
359 => pay_aif_shd.g_old_rec.action_information28
360 ,p_action_information29_o
361 => pay_aif_shd.g_old_rec.action_information29
362 ,p_action_information30_o
363 => pay_aif_shd.g_old_rec.action_information30
364 );
365 --
366 exception
367 --
368 when hr_api.cannot_find_prog_unit then
369 --
370 hr_api.cannot_find_prog_unit_error
371 (p_module_name => 'PAY_ACTION_INFORMATION'
372 ,p_hook_type => 'AU');
373 --
374 end;
375 --
376 hr_utility.set_location(' Leaving:'||l_proc, 10);
377 End post_update;
378 --
379 -- ----------------------------------------------------------------------------
380 -- |-----------------------------< convert_defs >-----------------------------|
381 -- ----------------------------------------------------------------------------
382 -- {Start Of Comments}
383 --
384 -- Description:
385 -- The Convert_Defs procedure has one very important function:
386 -- It must return the record structure for the row with all system defaulted
387 -- values converted into its corresponding parameter value for update. When
388 -- we attempt to update a row through the Upd process , certain
389 -- parameters can be defaulted which enables flexibility in the calling of
390 -- the upd process (e.g. only attributes which need to be updated need to be
391 -- specified). For the upd process to determine which attributes
392 -- have NOT been specified we need to check if the parameter has a reserved
393 -- system default value. Therefore, for all parameters which have a
394 -- corresponding reserved system default mechanism specified we need to
395 -- check if a system default is being used. If a system default is being
396 -- used then we convert the defaulted value into its corresponding attribute
397 -- value held in the g_old_rec data structure.
398 --
399 -- Prerequisites:
400 -- This private function can only be called from the upd process.
401 --
402 -- In Parameters:
403 -- A Pl/Sql record structure.
404 --
405 -- Post Success:
406 -- The record structure will be returned with all system defaulted parameter
407 -- values converted into its current row attribute value.
408 --
409 -- Post Failure:
410 -- No direct error handling is required within this function. Any possible
411 -- errors within this procedure will be a PL/SQL value error due to
412 -- conversion of datatypes or data lengths.
413 --
414 -- Developer Implementation Notes:
415 -- None.
416 --
417 -- Access Status:
418 -- Internal Row Handler Use Only.
419 --
420 -- {End Of Comments}
421 -- ----------------------------------------------------------------------------
422 Procedure convert_defs
423 (p_rec in out nocopy pay_aif_shd.g_rec_type
424 ) is
425 --
426 Begin
427 --
428 -- We must now examine each argument value in the
429 -- p_rec plsql record structure
430 -- to see if a system default is being used. If a system default
431 -- is being used then we must set to the 'current' argument value.
432 --
433 If (p_rec.action_context_id = hr_api.g_number) then
434 p_rec.action_context_id :=
435 pay_aif_shd.g_old_rec.action_context_id;
436 End If;
437 If (p_rec.action_context_type = hr_api.g_varchar2) then
438 p_rec.action_context_type :=
439 pay_aif_shd.g_old_rec.action_context_type;
440 End If;
441 If (p_rec.tax_unit_id = hr_api.g_number) then
442 p_rec.tax_unit_id :=
443 pay_aif_shd.g_old_rec.tax_unit_id;
444 End If;
445 If (p_rec.jurisdiction_code = hr_api.g_varchar2) then
446 p_rec.jurisdiction_code :=
447 pay_aif_shd.g_old_rec.jurisdiction_code;
448 End If;
449 If (p_rec.source_id = hr_api.g_number) then
450 p_rec.source_id :=
451 pay_aif_shd.g_old_rec.source_id;
452 End If;
453 If (p_rec.source_text = hr_api.g_varchar2) then
454 p_rec.source_text :=
455 pay_aif_shd.g_old_rec.source_text;
456 End If;
457 If (p_rec.tax_group = hr_api.g_varchar2) then
458 p_rec.tax_group :=
459 pay_aif_shd.g_old_rec.tax_group;
460 End If;
461 If (p_rec.effective_date = hr_api.g_date) then
462 p_rec.effective_date :=
463 pay_aif_shd.g_old_rec.effective_date;
464 End If;
465 If (p_rec.assignment_id = hr_api.g_number) then
466 p_rec.assignment_id :=
467 pay_aif_shd.g_old_rec.assignment_id;
468 End If;
469 If (p_rec.action_information_category = hr_api.g_varchar2) then
470 p_rec.action_information_category :=
471 pay_aif_shd.g_old_rec.action_information_category;
472 End If;
473 If (p_rec.action_information1 = hr_api.g_varchar2) then
474 p_rec.action_information1 :=
475 pay_aif_shd.g_old_rec.action_information1;
476 End If;
477 If (p_rec.action_information2 = hr_api.g_varchar2) then
478 p_rec.action_information2 :=
479 pay_aif_shd.g_old_rec.action_information2;
480 End If;
481 If (p_rec.action_information3 = hr_api.g_varchar2) then
482 p_rec.action_information3 :=
483 pay_aif_shd.g_old_rec.action_information3;
484 End If;
485 If (p_rec.action_information4 = hr_api.g_varchar2) then
486 p_rec.action_information4 :=
487 pay_aif_shd.g_old_rec.action_information4;
488 End If;
489 If (p_rec.action_information5 = hr_api.g_varchar2) then
490 p_rec.action_information5 :=
491 pay_aif_shd.g_old_rec.action_information5;
492 End If;
493 If (p_rec.action_information6 = hr_api.g_varchar2) then
494 p_rec.action_information6 :=
495 pay_aif_shd.g_old_rec.action_information6;
496 End If;
497 If (p_rec.action_information7 = hr_api.g_varchar2) then
498 p_rec.action_information7 :=
499 pay_aif_shd.g_old_rec.action_information7;
500 End If;
501 If (p_rec.action_information8 = hr_api.g_varchar2) then
502 p_rec.action_information8 :=
503 pay_aif_shd.g_old_rec.action_information8;
504 End If;
505 If (p_rec.action_information9 = hr_api.g_varchar2) then
506 p_rec.action_information9 :=
507 pay_aif_shd.g_old_rec.action_information9;
508 End If;
509 If (p_rec.action_information10 = hr_api.g_varchar2) then
510 p_rec.action_information10 :=
511 pay_aif_shd.g_old_rec.action_information10;
512 End If;
513 If (p_rec.action_information11 = hr_api.g_varchar2) then
514 p_rec.action_information11 :=
515 pay_aif_shd.g_old_rec.action_information11;
516 End If;
517 If (p_rec.action_information12 = hr_api.g_varchar2) then
518 p_rec.action_information12 :=
519 pay_aif_shd.g_old_rec.action_information12;
520 End If;
521 If (p_rec.action_information13 = hr_api.g_varchar2) then
522 p_rec.action_information13 :=
523 pay_aif_shd.g_old_rec.action_information13;
524 End If;
525 If (p_rec.action_information14 = hr_api.g_varchar2) then
526 p_rec.action_information14 :=
527 pay_aif_shd.g_old_rec.action_information14;
528 End If;
529 If (p_rec.action_information15 = hr_api.g_varchar2) then
530 p_rec.action_information15 :=
531 pay_aif_shd.g_old_rec.action_information15;
532 End If;
533 If (p_rec.action_information16 = hr_api.g_varchar2) then
534 p_rec.action_information16 :=
535 pay_aif_shd.g_old_rec.action_information16;
536 End If;
537 If (p_rec.action_information17 = hr_api.g_varchar2) then
538 p_rec.action_information17 :=
539 pay_aif_shd.g_old_rec.action_information17;
540 End If;
541 If (p_rec.action_information18 = hr_api.g_varchar2) then
542 p_rec.action_information18 :=
543 pay_aif_shd.g_old_rec.action_information18;
544 End If;
545 If (p_rec.action_information19 = hr_api.g_varchar2) then
546 p_rec.action_information19 :=
547 pay_aif_shd.g_old_rec.action_information19;
548 End If;
549 If (p_rec.action_information20 = hr_api.g_varchar2) then
550 p_rec.action_information20 :=
551 pay_aif_shd.g_old_rec.action_information20;
552 End If;
553 If (p_rec.action_information21 = hr_api.g_varchar2) then
554 p_rec.action_information21 :=
555 pay_aif_shd.g_old_rec.action_information21;
556 End If;
557 If (p_rec.action_information22 = hr_api.g_varchar2) then
558 p_rec.action_information22 :=
559 pay_aif_shd.g_old_rec.action_information22;
560 End If;
561 If (p_rec.action_information23 = hr_api.g_varchar2) then
562 p_rec.action_information23 :=
563 pay_aif_shd.g_old_rec.action_information23;
564 End If;
565 If (p_rec.action_information24 = hr_api.g_varchar2) then
566 p_rec.action_information24 :=
567 pay_aif_shd.g_old_rec.action_information24;
568 End If;
569 If (p_rec.action_information25 = hr_api.g_varchar2) then
570 p_rec.action_information25 :=
571 pay_aif_shd.g_old_rec.action_information25;
572 End If;
573 If (p_rec.action_information26 = hr_api.g_varchar2) then
574 p_rec.action_information26 :=
575 pay_aif_shd.g_old_rec.action_information26;
576 End If;
577 If (p_rec.action_information27 = hr_api.g_varchar2) then
578 p_rec.action_information27 :=
579 pay_aif_shd.g_old_rec.action_information27;
580 End If;
581 If (p_rec.action_information28 = hr_api.g_varchar2) then
582 p_rec.action_information28 :=
583 pay_aif_shd.g_old_rec.action_information28;
584 End If;
585 If (p_rec.action_information29 = hr_api.g_varchar2) then
586 p_rec.action_information29 :=
587 pay_aif_shd.g_old_rec.action_information29;
588 End If;
589 If (p_rec.action_information30 = hr_api.g_varchar2) then
590 p_rec.action_information30 :=
591 pay_aif_shd.g_old_rec.action_information30;
592 End If;
593 --
594 End convert_defs;
595 --
596 -- ----------------------------------------------------------------------------
597 -- |---------------------------------< upd >----------------------------------|
598 -- ----------------------------------------------------------------------------
599 Procedure upd
600 (p_rec in out nocopy pay_aif_shd.g_rec_type
601 ) is
602 --
603 l_proc varchar2(72) := g_package||'upd';
604 --
605 Begin
606 hr_utility.set_location('Entering:'||l_proc, 5);
607 --
608 -- We must lock the row which we need to update.
609 --
610 pay_aif_shd.lck
611 (p_rec.action_information_id
612 ,p_rec.object_version_number
613 );
614 --
615 -- 1. During an update system defaults are used to determine if
616 -- arguments have been defaulted or not. We must therefore
617 -- derive the full record structure values to be updated.
618 --
619 -- 2. Call the supporting update validate operations.
620 --
621 convert_defs(p_rec);
622 pay_aif_bus.update_validate
623 (p_rec
624 );
625 --
626 -- Call to raise any errors on multi-message list
627 --
628 hr_multi_message.end_validation_set;
629 --
630 -- Call the supporting pre-update operation
631 --
632 pay_aif_upd.pre_update(p_rec);
633 --
634 -- Update the row.
635 --
636 pay_aif_upd.update_dml(p_rec);
637 --
638 -- Call the supporting post-update operation
639 --
640 pay_aif_upd.post_update
641 (p_rec
642 );
643 --
644 -- Call to raise any errors on multi-message list
645 --
646 hr_multi_message.end_validation_set;
647 End upd;
648 --
649 -- ----------------------------------------------------------------------------
650 -- |---------------------------------< upd >----------------------------------|
651 -- ----------------------------------------------------------------------------
652 Procedure upd
653 (p_action_information_id in number
654 ,p_object_version_number in out nocopy number
655 ,p_action_information1 in varchar2 default hr_api.g_varchar2
656 ,p_action_information2 in varchar2 default hr_api.g_varchar2
657 ,p_action_information3 in varchar2 default hr_api.g_varchar2
658 ,p_action_information4 in varchar2 default hr_api.g_varchar2
659 ,p_action_information5 in varchar2 default hr_api.g_varchar2
660 ,p_action_information6 in varchar2 default hr_api.g_varchar2
661 ,p_action_information7 in varchar2 default hr_api.g_varchar2
662 ,p_action_information8 in varchar2 default hr_api.g_varchar2
663 ,p_action_information9 in varchar2 default hr_api.g_varchar2
664 ,p_action_information10 in varchar2 default hr_api.g_varchar2
665 ,p_action_information11 in varchar2 default hr_api.g_varchar2
666 ,p_action_information12 in varchar2 default hr_api.g_varchar2
667 ,p_action_information13 in varchar2 default hr_api.g_varchar2
668 ,p_action_information14 in varchar2 default hr_api.g_varchar2
669 ,p_action_information15 in varchar2 default hr_api.g_varchar2
670 ,p_action_information16 in varchar2 default hr_api.g_varchar2
671 ,p_action_information17 in varchar2 default hr_api.g_varchar2
672 ,p_action_information18 in varchar2 default hr_api.g_varchar2
673 ,p_action_information19 in varchar2 default hr_api.g_varchar2
674 ,p_action_information20 in varchar2 default hr_api.g_varchar2
675 ,p_action_information21 in varchar2 default hr_api.g_varchar2
676 ,p_action_information22 in varchar2 default hr_api.g_varchar2
677 ,p_action_information23 in varchar2 default hr_api.g_varchar2
678 ,p_action_information24 in varchar2 default hr_api.g_varchar2
679 ,p_action_information25 in varchar2 default hr_api.g_varchar2
680 ,p_action_information26 in varchar2 default hr_api.g_varchar2
681 ,p_action_information27 in varchar2 default hr_api.g_varchar2
682 ,p_action_information28 in varchar2 default hr_api.g_varchar2
683 ,p_action_information29 in varchar2 default hr_api.g_varchar2
684 ,p_action_information30 in varchar2 default hr_api.g_varchar2
685 ) is
686 --
687 l_rec pay_aif_shd.g_rec_type;
688 l_proc varchar2(72) := g_package||'upd';
689 --
690 Begin
691 hr_utility.set_location('Entering:'||l_proc, 5);
692 --
693 -- Call conversion function to turn arguments into the
694 -- l_rec structure.
695 --
696 l_rec :=
697 pay_aif_shd.convert_args
698 (p_action_information_id
699 ,hr_api.g_number
700 ,hr_api.g_varchar2
701 ,hr_api.g_number
702 ,hr_api.g_varchar2
703 ,hr_api.g_number
704 ,hr_api.g_varchar2
705 ,hr_api.g_varchar2
706 ,p_object_version_number
707 ,hr_api.g_date
708 ,hr_api.g_number
709 ,hr_api.g_varchar2
710 ,p_action_information1
711 ,p_action_information2
712 ,p_action_information3
713 ,p_action_information4
714 ,p_action_information5
715 ,p_action_information6
716 ,p_action_information7
717 ,p_action_information8
718 ,p_action_information9
719 ,p_action_information10
720 ,p_action_information11
721 ,p_action_information12
722 ,p_action_information13
723 ,p_action_information14
724 ,p_action_information15
725 ,p_action_information16
726 ,p_action_information17
727 ,p_action_information18
728 ,p_action_information19
729 ,p_action_information20
730 ,p_action_information21
731 ,p_action_information22
732 ,p_action_information23
733 ,p_action_information24
734 ,p_action_information25
735 ,p_action_information26
736 ,p_action_information27
737 ,p_action_information28
738 ,p_action_information29
739 ,p_action_information30
740 );
741 --
742 -- Having converted the arguments into the
743 -- plsql record structure we call the corresponding record
744 -- business process.
745 --
746 pay_aif_upd.upd
747 (l_rec
748 );
749 p_object_version_number := l_rec.object_version_number;
750 --
751 hr_utility.set_location(' Leaving:'||l_proc, 10);
752 End upd;
753 --
754 end pay_aif_upd;