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