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