DBA Data[Home] [Help]

PACKAGE BODY: APPS.HXC_HAV_UPD

Source


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;