DBA Data[Home] [Help]

PACKAGE BODY: APPS.OTA_ACI_UPD

Source


1 Package Body ota_aci_upd as
2 /* $Header: otacirhi.pkb 120.0 2005/05/29 06:51:07 appldev noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- |                     Private Global Definitions                           |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package  varchar2(33) := '  ota_aci_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 ota_aci_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   ota_aci_shd.g_api_dml := true;  -- Set the api dml status
67   --
68   -- Update the ota_act_cat_inclusions Row
69   --
70   update ota_act_cat_inclusions
71     set
72      activity_version_id             = p_rec.activity_version_id
73     ,activity_category               = p_rec.activity_category
74     ,object_version_number           = p_rec.object_version_number
75     ,event_id                        = p_rec.event_id
76     ,comments                        = p_rec.comments
77     ,aci_information_category        = p_rec.aci_information_category
78     ,aci_information1                = p_rec.aci_information1
79     ,aci_information2                = p_rec.aci_information2
80     ,aci_information3                = p_rec.aci_information3
81     ,aci_information4                = p_rec.aci_information4
82     ,aci_information5                = p_rec.aci_information5
83     ,aci_information6                = p_rec.aci_information6
84     ,aci_information7                = p_rec.aci_information7
85     ,aci_information8                = p_rec.aci_information8
86     ,aci_information9                = p_rec.aci_information9
87     ,aci_information10               = p_rec.aci_information10
88     ,aci_information11               = p_rec.aci_information11
89     ,aci_information12               = p_rec.aci_information12
90     ,aci_information13               = p_rec.aci_information13
91     ,aci_information14               = p_rec.aci_information14
92     ,aci_information15               = p_rec.aci_information15
93     ,aci_information16               = p_rec.aci_information16
94     ,aci_information17               = p_rec.aci_information17
95     ,aci_information18               = p_rec.aci_information18
96     ,aci_information19               = p_rec.aci_information19
97     ,aci_information20               = p_rec.aci_information20
98     ,start_date_active               = p_rec.start_date_active
99     ,end_date_active                 = p_rec.end_date_active
100     ,primary_flag                    = p_rec.primary_flag
101     ,category_usage_id               = p_rec.category_usage_id
102     where activity_version_id = p_rec.activity_version_id
103     and category_usage_id = p_rec.category_usage_id;
104   --
105   ota_aci_shd.g_api_dml := false;   -- Unset the api dml status
106   --
107   hr_utility.set_location(' Leaving:'||l_proc, 10);
108 --
109 Exception
110   When hr_api.check_integrity_violated Then
111     -- A check constraint has been violated
112     ota_aci_shd.g_api_dml := false;   -- Unset the api dml status
113     ota_aci_shd.constraint_error
114       (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
115   When hr_api.parent_integrity_violated Then
116     -- Parent integrity has been violated
117     ota_aci_shd.g_api_dml := false;   -- Unset the api dml status
118     ota_aci_shd.constraint_error
119       (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
120   When hr_api.unique_integrity_violated Then
121     -- Unique integrity has been violated
122     ota_aci_shd.g_api_dml := false;   -- Unset the api dml status
123     ota_aci_shd.constraint_error
124       (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
125   When Others Then
126     ota_aci_shd.g_api_dml := false;   -- Unset the api dml status
127     Raise;
128 End update_dml;
129 --
130 -- ----------------------------------------------------------------------------
131 -- |------------------------------< pre_update >------------------------------|
132 -- ----------------------------------------------------------------------------
133 -- {Start Of Comments}
134 --
135 -- Description:
136 --   This private procedure contains any processing which is required before
137 --   the update dml.
138 --
139 -- Prerequisites:
140 --   This is an internal procedure which is called from the upd procedure.
141 --
142 -- In Parameters:
143 --   A Pl/Sql record structure.
144 --
145 -- Post Success:
146 --   Processing continues.
147 --
148 -- Post Failure:
149 --   If an error has occurred, an error message and exception wil be raised
150 --   but not handled.
151 --
152 -- Developer Implementation Notes:
153 --   Any pre-processing required before the update dml is issued should be
154 --   coded within this procedure. It is important to note that any 3rd party
155 --   maintenance should be reviewed before placing in this procedure.
156 --
157 -- Access Status:
158 --   Internal Row Handler Use Only.
159 --
160 -- {End Of Comments}
161 -- ----------------------------------------------------------------------------
162 Procedure pre_update
163   (p_rec in ota_aci_shd.g_rec_type
164   ) is
165 --
166   l_proc  varchar2(72) := g_package||'pre_update';
167 --
168 Begin
169   hr_utility.set_location('Entering:'||l_proc, 5);
170   --
171   hr_utility.set_location(' Leaving:'||l_proc, 10);
172 End pre_update;
173 --
174 -- ----------------------------------------------------------------------------
175 -- |-----------------------------< post_update >------------------------------|
176 -- ----------------------------------------------------------------------------
177 -- {Start Of Comments}
178 --
179 -- Description:
180 --   This private procedure contains any processing which is required after
181 --   the update dml.
182 --
183 -- Prerequisites:
184 --   This is an internal procedure which is called from the upd procedure.
185 --
186 -- In Parameters:
187 --   A Pl/Sql record structure.
188 --
189 -- Post Success:
190 --   Processing continues.
191 --
192 -- Post Failure:
193 --   If an error has occurred, an error message and exception will be raised
194 --   but not handled.
195 --
196 -- Developer Implementation Notes:
197 --   Any post-processing required after the update dml is issued should be
198 --   coded within this procedure. It is important to note that any 3rd party
199 --   maintenance should be reviewed before placing in this procedure.
200 --
201 -- Access Status:
202 --   Internal Row Handler Use Only.
203 --
204 -- {End Of Comments}
205 -- ----------------------------------------------------------------------------
206 Procedure post_update
207   (p_effective_date               in date
208   ,p_rec                          in ota_aci_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     ota_aci_rku.after_update
218       (p_effective_date              => p_effective_date
219       ,p_activity_version_id
220       => p_rec.activity_version_id
221       ,p_activity_category
222       => p_rec.activity_category
223       ,p_object_version_number
224       => p_rec.object_version_number
225       ,p_event_id
226       => p_rec.event_id
227       ,p_comments
228       => p_rec.comments
229       ,p_aci_information_category
230       => p_rec.aci_information_category
231       ,p_aci_information1
232       => p_rec.aci_information1
233       ,p_aci_information2
234       => p_rec.aci_information2
235       ,p_aci_information3
236       => p_rec.aci_information3
237       ,p_aci_information4
238       => p_rec.aci_information4
239       ,p_aci_information5
240       => p_rec.aci_information5
241       ,p_aci_information6
242       => p_rec.aci_information6
243       ,p_aci_information7
244       => p_rec.aci_information7
245       ,p_aci_information8
246       => p_rec.aci_information8
247       ,p_aci_information9
248       => p_rec.aci_information9
249       ,p_aci_information10
250       => p_rec.aci_information10
251       ,p_aci_information11
252       => p_rec.aci_information11
253       ,p_aci_information12
254       => p_rec.aci_information12
255       ,p_aci_information13
256       => p_rec.aci_information13
257       ,p_aci_information14
258       => p_rec.aci_information14
259       ,p_aci_information15
260       => p_rec.aci_information15
261       ,p_aci_information16
262       => p_rec.aci_information16
263       ,p_aci_information17
264       => p_rec.aci_information17
265       ,p_aci_information18
266       => p_rec.aci_information18
267       ,p_aci_information19
268       => p_rec.aci_information19
269       ,p_aci_information20
270       => p_rec.aci_information20
271       ,p_start_date_active
272       => p_rec.start_date_active
273       ,p_end_date_active
274       => p_rec.end_date_active
275       ,p_primary_flag
276       => p_rec.primary_flag
277       ,p_category_usage_id
278       => p_rec.category_usage_id
279       ,p_activity_category_o
280       => ota_aci_shd.g_old_rec.activity_category
281       ,p_object_version_number_o
282       => ota_aci_shd.g_old_rec.object_version_number
283       ,p_event_id_o
284       => ota_aci_shd.g_old_rec.event_id
285       ,p_comments_o
286       => ota_aci_shd.g_old_rec.comments
287       ,p_aci_information_category_o
288       => ota_aci_shd.g_old_rec.aci_information_category
289       ,p_aci_information1_o
290       => ota_aci_shd.g_old_rec.aci_information1
291       ,p_aci_information2_o
292       => ota_aci_shd.g_old_rec.aci_information2
293       ,p_aci_information3_o
294       => ota_aci_shd.g_old_rec.aci_information3
295       ,p_aci_information4_o
296       => ota_aci_shd.g_old_rec.aci_information4
297       ,p_aci_information5_o
298       => ota_aci_shd.g_old_rec.aci_information5
299       ,p_aci_information6_o
300       => ota_aci_shd.g_old_rec.aci_information6
301       ,p_aci_information7_o
302       => ota_aci_shd.g_old_rec.aci_information7
303       ,p_aci_information8_o
304       => ota_aci_shd.g_old_rec.aci_information8
305       ,p_aci_information9_o
306       => ota_aci_shd.g_old_rec.aci_information9
307       ,p_aci_information10_o
308       => ota_aci_shd.g_old_rec.aci_information10
309       ,p_aci_information11_o
310       => ota_aci_shd.g_old_rec.aci_information11
311       ,p_aci_information12_o
312       => ota_aci_shd.g_old_rec.aci_information12
313       ,p_aci_information13_o
314       => ota_aci_shd.g_old_rec.aci_information13
315       ,p_aci_information14_o
316       => ota_aci_shd.g_old_rec.aci_information14
317       ,p_aci_information15_o
318       => ota_aci_shd.g_old_rec.aci_information15
319       ,p_aci_information16_o
320       => ota_aci_shd.g_old_rec.aci_information16
321       ,p_aci_information17_o
322       => ota_aci_shd.g_old_rec.aci_information17
323       ,p_aci_information18_o
324       => ota_aci_shd.g_old_rec.aci_information18
325       ,p_aci_information19_o
326       => ota_aci_shd.g_old_rec.aci_information19
327       ,p_aci_information20_o
328       => ota_aci_shd.g_old_rec.aci_information20
329       ,p_start_date_active_o
330       => ota_aci_shd.g_old_rec.start_date_active
331       ,p_end_date_active_o
332       => ota_aci_shd.g_old_rec.end_date_active
333       ,p_primary_flag_o
334       => ota_aci_shd.g_old_rec.primary_flag
335       );
336     --
337   exception
338     --
339     when hr_api.cannot_find_prog_unit then
340       --
341       hr_api.cannot_find_prog_unit_error
342         (p_module_name => 'OTA_ACT_CAT_INCLUSIONS'
343         ,p_hook_type   => 'AU');
344       --
345   end;
346   --
347   hr_utility.set_location(' Leaving:'||l_proc, 10);
348 End post_update;
349 --
350 -- ----------------------------------------------------------------------------
351 -- |-----------------------------< convert_defs >-----------------------------|
352 -- ----------------------------------------------------------------------------
353 -- {Start Of Comments}
354 --
355 -- Description:
356 --   The Convert_Defs procedure has one very important function:
357 --   It must return the record structure for the row with all system defaulted
358 --   values converted into its corresponding parameter value for update. When
359 --   we attempt to update a row through the Upd process , certain
360 --   parameters can be defaulted which enables flexibility in the calling of
361 --   the upd process (e.g. only attributes which need to be updated need to be
362 --   specified). For the upd process to determine which attributes
363 --   have NOT been specified we need to check if the parameter has a reserved
364 --   system default value. Therefore, for all parameters which have a
365 --   corresponding reserved system default mechanism specified we need to
366 --   check if a system default is being used. If a system default is being
367 --   used then we convert the defaulted value into its corresponding attribute
368 --   value held in the g_old_rec data structure.
369 --
370 -- Prerequisites:
371 --   This private function can only be called from the upd process.
372 --
373 -- In Parameters:
374 --   A Pl/Sql record structure.
375 --
376 -- Post Success:
377 --   The record structure will be returned with all system defaulted parameter
378 --   values converted into its current row attribute value.
379 --
380 -- Post Failure:
381 --   No direct error handling is required within this function. Any possible
382 --   errors within this procedure will be a PL/SQL value error due to
383 --   conversion of datatypes or data lengths.
384 --
385 -- Developer Implementation Notes:
386 --   None.
387 --
388 -- Access Status:
389 --   Internal Row Handler Use Only.
390 --
391 -- {End Of Comments}
392 -- ----------------------------------------------------------------------------
393 Procedure convert_defs
394   (p_rec in out nocopy ota_aci_shd.g_rec_type
395   ) is
396 --
397 Begin
398   --
399   -- We must now examine each argument value in the
400   -- p_rec plsql record structure
401   -- to see if a system default is being used. If a system default
402   -- is being used then we must set to the 'current' argument value.
403   --
404   If (p_rec.activity_category = hr_api.g_varchar2) then
405     p_rec.activity_category :=
406     ota_aci_shd.g_old_rec.activity_category;
407   End If;
408   If (p_rec.event_id = hr_api.g_number) then
409     p_rec.event_id :=
410     ota_aci_shd.g_old_rec.event_id;
411   End If;
412   If (p_rec.comments = hr_api.g_varchar2) then
413     p_rec.comments :=
414     ota_aci_shd.g_old_rec.comments;
415   End If;
416   If (p_rec.aci_information_category = hr_api.g_varchar2) then
417     p_rec.aci_information_category :=
418     ota_aci_shd.g_old_rec.aci_information_category;
419   End If;
420   If (p_rec.aci_information1 = hr_api.g_varchar2) then
421     p_rec.aci_information1 :=
422     ota_aci_shd.g_old_rec.aci_information1;
423   End If;
424   If (p_rec.aci_information2 = hr_api.g_varchar2) then
425     p_rec.aci_information2 :=
426     ota_aci_shd.g_old_rec.aci_information2;
427   End If;
428   If (p_rec.aci_information3 = hr_api.g_varchar2) then
429     p_rec.aci_information3 :=
430     ota_aci_shd.g_old_rec.aci_information3;
431   End If;
432   If (p_rec.aci_information4 = hr_api.g_varchar2) then
433     p_rec.aci_information4 :=
434     ota_aci_shd.g_old_rec.aci_information4;
435   End If;
436   If (p_rec.aci_information5 = hr_api.g_varchar2) then
437     p_rec.aci_information5 :=
438     ota_aci_shd.g_old_rec.aci_information5;
439   End If;
440   If (p_rec.aci_information6 = hr_api.g_varchar2) then
441     p_rec.aci_information6 :=
442     ota_aci_shd.g_old_rec.aci_information6;
443   End If;
444   If (p_rec.aci_information7 = hr_api.g_varchar2) then
445     p_rec.aci_information7 :=
446     ota_aci_shd.g_old_rec.aci_information7;
447   End If;
448   If (p_rec.aci_information8 = hr_api.g_varchar2) then
449     p_rec.aci_information8 :=
450     ota_aci_shd.g_old_rec.aci_information8;
451   End If;
452   If (p_rec.aci_information9 = hr_api.g_varchar2) then
453     p_rec.aci_information9 :=
454     ota_aci_shd.g_old_rec.aci_information9;
455   End If;
456   If (p_rec.aci_information10 = hr_api.g_varchar2) then
457     p_rec.aci_information10 :=
458     ota_aci_shd.g_old_rec.aci_information10;
459   End If;
460   If (p_rec.aci_information11 = hr_api.g_varchar2) then
461     p_rec.aci_information11 :=
462     ota_aci_shd.g_old_rec.aci_information11;
463   End If;
464   If (p_rec.aci_information12 = hr_api.g_varchar2) then
465     p_rec.aci_information12 :=
466     ota_aci_shd.g_old_rec.aci_information12;
467   End If;
468   If (p_rec.aci_information13 = hr_api.g_varchar2) then
469     p_rec.aci_information13 :=
470     ota_aci_shd.g_old_rec.aci_information13;
471   End If;
472   If (p_rec.aci_information14 = hr_api.g_varchar2) then
473     p_rec.aci_information14 :=
474     ota_aci_shd.g_old_rec.aci_information14;
475   End If;
476   If (p_rec.aci_information15 = hr_api.g_varchar2) then
477     p_rec.aci_information15 :=
478     ota_aci_shd.g_old_rec.aci_information15;
479   End If;
480   If (p_rec.aci_information16 = hr_api.g_varchar2) then
481     p_rec.aci_information16 :=
482     ota_aci_shd.g_old_rec.aci_information16;
483   End If;
484   If (p_rec.aci_information17 = hr_api.g_varchar2) then
485     p_rec.aci_information17 :=
486     ota_aci_shd.g_old_rec.aci_information17;
487   End If;
488   If (p_rec.aci_information18 = hr_api.g_varchar2) then
489     p_rec.aci_information18 :=
490     ota_aci_shd.g_old_rec.aci_information18;
491   End If;
492   If (p_rec.aci_information19 = hr_api.g_varchar2) then
493     p_rec.aci_information19 :=
494     ota_aci_shd.g_old_rec.aci_information19;
495   End If;
496   If (p_rec.aci_information20 = hr_api.g_varchar2) then
497     p_rec.aci_information20 :=
498     ota_aci_shd.g_old_rec.aci_information20;
499   End If;
500   If (p_rec.start_date_active = hr_api.g_date) then
501     p_rec.start_date_active :=
502     ota_aci_shd.g_old_rec.start_date_active;
503   End If;
504   If (p_rec.end_date_active = hr_api.g_date) then
505     p_rec.end_date_active :=
506     ota_aci_shd.g_old_rec.end_date_active;
507   End If;
508   If (p_rec.primary_flag = hr_api.g_varchar2) then
509     p_rec.primary_flag :=
510     ota_aci_shd.g_old_rec.primary_flag;
511   End If;
512   --
513 End convert_defs;
514 --
515 -- ----------------------------------------------------------------------------
516 -- |---------------------------------< upd >----------------------------------|
517 -- ----------------------------------------------------------------------------
518 Procedure upd
519   (p_effective_date               in date
520   ,p_rec                          in out nocopy ota_aci_shd.g_rec_type
521   ) is
522 --
523   l_proc  varchar2(72) := g_package||'upd';
524 --
525 Begin
526   hr_utility.set_location('Entering:'||l_proc, 5);
527   --
528   -- We must lock the row which we need to update.
529   --
530   ota_aci_shd.lck
531     (p_rec.activity_version_id
532     ,p_rec.category_usage_id
533     ,p_rec.object_version_number
534     );
535   --
536   -- 1. During an update system defaults are used to determine if
537   --    arguments have been defaulted or not. We must therefore
538   --    derive the full record structure values to be updated.
539   --
540   -- 2. Call the supporting update validate operations.
541   --
542   convert_defs(p_rec);
543   ota_aci_bus.update_validate
544      (p_effective_date
545      ,p_rec
546      );
547   --
548   -- Call to raise any errors on multi-message list
549   hr_multi_message.end_validation_set;
550   --
551   -- Call the supporting pre-update operation
552   --
553   ota_aci_upd.pre_update(p_rec);
554   --
555   -- Update the row.
556   --
557   ota_aci_upd.update_dml(p_rec);
558   --
559   -- Call the supporting post-update operation
560   --
561   ota_aci_upd.post_update
562      (p_effective_date
563      ,p_rec
564      );
565   --
566   -- Call to raise any errors on multi-message list
567   hr_multi_message.end_validation_set;
568 End upd;
569 --
570 -- ----------------------------------------------------------------------------
571 -- |---------------------------------< upd >----------------------------------|
572 -- ----------------------------------------------------------------------------
573 Procedure upd
574   (p_effective_date               in     date
575   ,p_activity_version_id          in     number
576   ,p_category_usage_id            in     number
577   ,p_object_version_number        in out nocopy number
578   ,p_activity_category            in     varchar2  default hr_api.g_varchar2
579   ,p_event_id                     in     number    default hr_api.g_number
580   ,p_comments                     in     varchar2  default hr_api.g_varchar2
581   ,p_aci_information_category     in     varchar2  default hr_api.g_varchar2
582   ,p_aci_information1             in     varchar2  default hr_api.g_varchar2
583   ,p_aci_information2             in     varchar2  default hr_api.g_varchar2
584   ,p_aci_information3             in     varchar2  default hr_api.g_varchar2
585   ,p_aci_information4             in     varchar2  default hr_api.g_varchar2
586   ,p_aci_information5             in     varchar2  default hr_api.g_varchar2
587   ,p_aci_information6             in     varchar2  default hr_api.g_varchar2
588   ,p_aci_information7             in     varchar2  default hr_api.g_varchar2
589   ,p_aci_information8             in     varchar2  default hr_api.g_varchar2
590   ,p_aci_information9             in     varchar2  default hr_api.g_varchar2
591   ,p_aci_information10            in     varchar2  default hr_api.g_varchar2
592   ,p_aci_information11            in     varchar2  default hr_api.g_varchar2
593   ,p_aci_information12            in     varchar2  default hr_api.g_varchar2
594   ,p_aci_information13            in     varchar2  default hr_api.g_varchar2
595   ,p_aci_information14            in     varchar2  default hr_api.g_varchar2
596   ,p_aci_information15            in     varchar2  default hr_api.g_varchar2
597   ,p_aci_information16            in     varchar2  default hr_api.g_varchar2
598   ,p_aci_information17            in     varchar2  default hr_api.g_varchar2
599   ,p_aci_information18            in     varchar2  default hr_api.g_varchar2
600   ,p_aci_information19            in     varchar2  default hr_api.g_varchar2
601   ,p_aci_information20            in     varchar2  default hr_api.g_varchar2
602   ,p_start_date_active            in     date      default hr_api.g_date
603   ,p_end_date_active              in     date      default hr_api.g_date
604   ,p_primary_flag                 in     varchar2  default hr_api.g_varchar2
605   ) is
606 --
607   l_rec   ota_aci_shd.g_rec_type;
608   l_proc  varchar2(72) := g_package||'upd';
609 --
610 Begin
611   hr_utility.set_location('Entering:'||l_proc, 5);
612   --
613   -- Call conversion function to turn arguments into the
614   -- l_rec structure.
615   --
616   l_rec :=
617   ota_aci_shd.convert_args
618   (p_activity_version_id
619   ,p_activity_category
620   ,p_object_version_number
621   ,p_event_id
622   ,p_comments
623   ,p_aci_information_category
624   ,p_aci_information1
625   ,p_aci_information2
626   ,p_aci_information3
627   ,p_aci_information4
628   ,p_aci_information5
629   ,p_aci_information6
630   ,p_aci_information7
631   ,p_aci_information8
632   ,p_aci_information9
633   ,p_aci_information10
634   ,p_aci_information11
635   ,p_aci_information12
636   ,p_aci_information13
637   ,p_aci_information14
638   ,p_aci_information15
639   ,p_aci_information16
640   ,p_aci_information17
641   ,p_aci_information18
642   ,p_aci_information19
643   ,p_aci_information20
644   ,p_start_date_active
645   ,p_end_date_active
646   ,p_primary_flag
647   ,p_category_usage_id
648   );
649   --
650   -- Having converted the arguments into the
651   -- plsql record structure we call the corresponding record
652   -- business process.
653   --
654   ota_aci_upd.upd
655      (p_effective_date
656      ,l_rec
657      );
658   p_object_version_number := l_rec.object_version_number;
659   --
660   hr_utility.set_location(' Leaving:'||l_proc, 10);
661 End upd;
662 --
663 end ota_aci_upd;