DBA Data[Home] [Help]

PACKAGE BODY: APPS.PQH_ROLE_EXTRA_INFO_API

Source


1 Package Body pqh_role_extra_info_api as
2 /* $Header: pqreiapi.pkb 115.1 2002/12/10 11:14:04 mvankada noship $ */
3 --
4 -- Package Variables
5 --
6 g_package  varchar2(33) := '  pqh_role_extra_info_api.';
7 --
8 -- ---------------------------------------------------------------------------+
9 -- |----------------------< create_role_extra_info >--------------------------|
10 -- ---------------------------------------------------------------------------+
11 --
12 procedure create_role_extra_info
13   (p_validate                     in     boolean
14   ,p_role_id                       in     number
15   ,p_information_type             in     varchar2
16   ,p_attribute_category       in     varchar2
17   ,p_attribute1               in     varchar2
18   ,p_attribute2               in     varchar2
19   ,p_attribute3               in     varchar2
20   ,p_attribute4               in     varchar2
21   ,p_attribute5               in     varchar2
22   ,p_attribute6               in     varchar2
23   ,p_attribute7               in     varchar2
24   ,p_attribute8               in     varchar2
25   ,p_attribute9               in     varchar2
26   ,p_attribute10              in     varchar2
27   ,p_attribute11              in     varchar2
28   ,p_attribute12              in     varchar2
29   ,p_attribute13              in     varchar2
30   ,p_attribute14              in     varchar2
31   ,p_attribute15              in     varchar2
32   ,p_attribute16              in     varchar2
33   ,p_attribute17              in     varchar2
34   ,p_attribute18              in     varchar2
35   ,p_attribute19              in     varchar2
36   ,p_attribute20              in     varchar2
37   ,p_attribute21              in     varchar2
38   ,p_attribute22              in     varchar2
39   ,p_attribute23              in     varchar2
40   ,p_attribute24              in     varchar2
41   ,p_attribute25              in     varchar2
42   ,p_attribute26              in     varchar2
43   ,p_attribute27              in     varchar2
44   ,p_attribute28              in     varchar2
45   ,p_attribute29              in     varchar2
46   ,p_attribute30              in     varchar2
47   ,p_information_category     in     varchar2
48   ,p_information1             in     varchar2
49   ,p_information2             in     varchar2
50   ,p_information3             in     varchar2
51   ,p_information4             in     varchar2
52   ,p_information5             in     varchar2
53   ,p_information6             in     varchar2
54   ,p_information7             in     varchar2
55   ,p_information8             in     varchar2
56   ,p_information9             in     varchar2
57   ,p_information10            in     varchar2
58   ,p_information11            in     varchar2
59   ,p_information12            in     varchar2
60   ,p_information13            in     varchar2
61   ,p_information14            in     varchar2
62   ,p_information15            in     varchar2
63   ,p_information16            in     varchar2
64   ,p_information17            in     varchar2
65   ,p_information18            in     varchar2
66   ,p_information19            in     varchar2
67   ,p_information20            in     varchar2
68   ,p_information21            in     varchar2
69   ,p_information22            in     varchar2
70   ,p_information23            in     varchar2
71   ,p_information24            in     varchar2
72   ,p_information25            in     varchar2
73   ,p_information26            in     varchar2
74   ,p_information27            in     varchar2
75   ,p_information28            in     varchar2
76   ,p_information29            in     varchar2
77   ,p_information30            in     varchar2
78   ,p_role_extra_info_id            out  nocopy  number
79   ,p_object_version_number        out   nocopy number
80   ) is
81   --
82   -- Declare cursors and local variables
83   --
84   l_proc                varchar2(72) := g_package||'create_role_extra_info';
85   l_object_version_number	pqh_role_extra_info.object_version_number%type;
86   l_role_extra_info_id		pqh_role_extra_info.role_extra_info_id%type;
87   --
88 begin
89   hr_utility.set_location('Entering:'|| l_proc, 5);
90   --
91   -- Issue a savepoint
92   --
93   savepoint create_role_extra_info;
94   --
95   -- Call Before Process User Hook
96   --
97   begin
98 	pqh_role_extra_info_bk1.create_role_extra_info_b
99 		(
100 		p_information_type		=>	p_information_type,
101 		p_role_id			=>	p_role_id,
102 		p_attribute_category	=>	p_attribute_category,
103 		p_attribute1		=>	p_attribute1,
104 		p_attribute2		=>	p_attribute2,
105 		p_attribute3		=>	p_attribute3,
106 		p_attribute4		=>	p_attribute4,
107 		p_attribute5		=>	p_attribute5,
108 		p_attribute6		=>	p_attribute6,
109 		p_attribute7		=>	p_attribute7,
110 		p_attribute8		=>	p_attribute8,
111 		p_attribute9		=>	p_attribute9,
112 		p_attribute10		=>	p_attribute10,
113 		p_attribute11		=>	p_attribute11,
114 		p_attribute12		=>	p_attribute12,
115 		p_attribute13		=>	p_attribute13,
116 		p_attribute14		=>	p_attribute14,
117 		p_attribute15		=>	p_attribute15,
118 		p_attribute16		=>	p_attribute16,
119 		p_attribute17		=>	p_attribute17,
120 		p_attribute18		=>	p_attribute18,
121 		p_attribute19		=>	p_attribute19,
122 		p_attribute20		=>	p_attribute20,
123 		p_attribute21		=>	p_attribute21,
124 		p_attribute22		=>	p_attribute22,
125 		p_attribute23		=>	p_attribute23,
126 		p_attribute24		=>	p_attribute24,
127 		p_attribute25		=>	p_attribute25,
128 		p_attribute26		=>	p_attribute26,
129 		p_attribute27		=>	p_attribute27,
130 		p_attribute28		=>	p_attribute28,
131 		p_attribute29		=>	p_attribute29,
132 		p_attribute30		=>	p_attribute30,
133 		p_information_category	=>	p_information_category,
134 		p_information1		=>	p_information1,
135 		p_information2		=>	p_information2,
136 		p_information3		=>	p_information3,
137 		p_information4		=>	p_information4,
138 		p_information5		=>	p_information5,
139 		p_information6		=>	p_information6,
140 		p_information7		=>	p_information7,
141 		p_information8		=>	p_information8,
142 		p_information9		=>	p_information9,
143 		p_information10		=>	p_information10,
144 		p_information11		=>	p_information11,
145 		p_information12		=>	p_information12,
146 		p_information13		=>	p_information13,
147 		p_information14		=>	p_information14,
148 		p_information15		=>	p_information15,
149 		p_information16		=>	p_information16,
150 		p_information17		=>	p_information17,
151 		p_information18		=>	p_information18,
152 		p_information19		=>	p_information19,
153 		p_information20		=>	p_information20,
154 		p_information21		=>	p_information21,
155 		p_information22		=>	p_information22,
156 		p_information23		=>	p_information23,
157 		p_information24		=>	p_information24,
158 		p_information25		=>	p_information25,
159 		p_information26		=>	p_information26,
160 		p_information27		=>	p_information27,
161 		p_information28		=>	p_information28,
162 		p_information29		=>	p_information29,
163 		p_information30		=>	p_information30
164 		);
165       exception
166 	   when hr_api.cannot_find_prog_unit then
167 		  hr_api.cannot_find_prog_unit_error
168 				(p_module_name	=> 'create_role_extra_info',
169 				 p_hook_type	=> 'BP'
170 				);
171   end;
172   --
173   -- End of Before Process User Hook call
174   hr_utility.set_location(l_proc, 7);
175   --
176   -- Process Logic
177   --
178   pqh_rei_ins.ins
179   (p_role_extra_info_id       => l_role_extra_info_id
180   ,p_role_id                  => p_role_id
181   ,p_information_type         => p_information_type
182   ,p_attribute_category       => p_attribute_category
183   ,p_attribute1               => p_attribute1
184   ,p_attribute2               => p_attribute2
185   ,p_attribute3               => p_attribute3
186   ,p_attribute4               => p_attribute4
187   ,p_attribute5               => p_attribute5
188   ,p_attribute6               => p_attribute6
189   ,p_attribute7               => p_attribute7
190   ,p_attribute8               => p_attribute8
191   ,p_attribute9               => p_attribute9
192   ,p_attribute10              => p_attribute10
193   ,p_attribute11              => p_attribute11
194   ,p_attribute12              => p_attribute12
195   ,p_attribute13              => p_attribute13
196   ,p_attribute14              => p_attribute14
197   ,p_attribute15              => p_attribute15
198   ,p_attribute16              => p_attribute16
199   ,p_attribute17              => p_attribute17
200   ,p_attribute18              => p_attribute18
201   ,p_attribute19              => p_attribute19
202   ,p_attribute20              => p_attribute20
203   ,p_attribute21              => p_attribute21
204   ,p_attribute22	      => p_attribute22
205   ,p_attribute23	      => p_attribute23
206   ,p_attribute24	      => p_attribute24
207   ,p_attribute25	      => p_attribute25
208   ,p_attribute26	      => p_attribute26
209   ,p_attribute27	      => p_attribute27
210   ,p_attribute28	      => p_attribute28
211   ,p_attribute29	      => p_attribute29
212   ,p_attribute30	      => p_attribute30
213   ,p_information_category     => p_information_category
214   ,p_information1             => p_information1
215   ,p_information2             => p_information2
216   ,p_information3             => p_information3
217   ,p_information4             => p_information4
218   ,p_information5             => p_information5
219   ,p_information6             => p_information6
220   ,p_information7             => p_information7
221   ,p_information8             => p_information8
222   ,p_information9             => p_information9
223   ,p_information10            => p_information10
224   ,p_information11            => p_information11
225   ,p_information12            => p_information12
226   ,p_information13            => p_information13
227   ,p_information14            => p_information14
228   ,p_information15            => p_information15
229   ,p_information16            => p_information16
230   ,p_information17            => p_information17
231   ,p_information18            => p_information18
232   ,p_information19            => p_information19
233   ,p_information20            => p_information20
234   ,p_information21            => p_information21
235   ,p_information22            => p_information22
236   ,p_information23            => p_information23
237   ,p_information24            => p_information24
238   ,p_information25            => p_information25
239   ,p_information26            => p_information26
240   ,p_information27            => p_information27
241   ,p_information28            => p_information28
242   ,p_information29            => p_information29
243   ,p_information30            => p_information30
244   ,p_object_version_number        => l_object_version_number
245   ,p_validate                     => false
246   );
247   p_object_version_number	:= l_object_version_number;
248   p_role_extra_info_id		:= l_role_extra_info_id;
249   --
250   hr_utility.set_location(l_proc, 8);
251   --
252   -- Call After Process User Hook
253   --
254   begin
255 	pqh_role_extra_info_bk1.create_role_extra_info_a
256 		(
257 		p_role_extra_info_id	=>	l_role_extra_info_id,
258 		p_information_type	=>	p_information_type,
259 		p_role_id		=>	p_role_id,
260 		p_attribute_category	=>	p_attribute_category,
261 		p_attribute1		=>	p_attribute1,
262 		p_attribute2		=>	p_attribute2,
263 		p_attribute3		=>	p_attribute3,
264 		p_attribute4		=>	p_attribute4,
265 		p_attribute5		=>	p_attribute5,
266 		p_attribute6		=>	p_attribute6,
267 		p_attribute7		=>	p_attribute7,
268 		p_attribute8		=>	p_attribute8,
269 		p_attribute9		=>	p_attribute9,
270 		p_attribute10		=>	p_attribute10,
271 		p_attribute11		=>	p_attribute11,
272 		p_attribute12		=>	p_attribute12,
273 		p_attribute13		=>	p_attribute13,
274 		p_attribute14		=>	p_attribute14,
275 		p_attribute15		=>	p_attribute15,
276 		p_attribute16		=>	p_attribute16,
277 		p_attribute17		=>	p_attribute17,
278 		p_attribute18		=>	p_attribute18,
279 		p_attribute19		=>	p_attribute19,
280 		p_attribute20		=>	p_attribute20,
281 		p_attribute21		=>	p_attribute21,
282 		p_attribute22		=>	p_attribute22,
283 		p_attribute23		=>	p_attribute23,
284 		p_attribute24		=>	p_attribute24,
285 		p_attribute25		=>	p_attribute25,
286 		p_attribute26		=>	p_attribute26,
287 		p_attribute27		=>	p_attribute27,
288 		p_attribute28		=>	p_attribute28,
289 		p_attribute29		=>	p_attribute29,
290 		p_attribute30		=>	p_attribute30,
291 		p_information_category	=>	p_information_category,
292 		p_information1		=>	p_information1,
293 		p_information2		=>	p_information2,
294 		p_information3		=>	p_information3,
295 		p_information4		=>	p_information4,
296 		p_information5		=>	p_information5,
297 		p_information6		=>	p_information6,
298 		p_information7		=>	p_information7,
299 		p_information8		=>	p_information8,
300 		p_information9		=>	p_information9,
301 		p_information10		=>	p_information10,
302 		p_information11		=>	p_information11,
303 		p_information12		=>	p_information12,
304 		p_information13		=>	p_information13,
305 		p_information14		=>	p_information14,
306 		p_information15		=>	p_information15,
307 		p_information16		=>	p_information16,
308 		p_information17		=>	p_information17,
309 		p_information18		=>	p_information18,
310 		p_information19		=>	p_information19,
311 		p_information20		=>	p_information20,
312 		p_information21		=>	p_information21,
313 		p_information22		=>	p_information22,
314 		p_information23		=>	p_information23,
315 		p_information24		=>	p_information24,
316 		p_information25		=>	p_information25,
317 		p_information26		=>	p_information26,
318 		p_information27		=>	p_information27,
319 		p_information28		=>	p_information28,
320 		p_information29		=>	p_information29,
321 		p_information30		=>	p_information30,
322 		p_object_version_number		=>	l_object_version_number
323 		);
324       exception
325 	   when hr_api.cannot_find_prog_unit then
326 		  hr_api.cannot_find_prog_unit_error
327 				(p_module_name	=> 'create_role_extra_info',
328 				 p_hook_type	=> 'AP'
329 				);
330   end;
331   --
332   -- When in validation only mode raise the Validate_Enabled exception
333   --
334   if p_validate then
335     raise hr_api.validate_enabled;
336   end if;
337   --
338   hr_utility.set_location(' Leaving:'||l_proc, 11);
339 exception
340   when hr_api.validate_enabled then
341     --
342     -- As the Validate_Enabled exception has been raised
343     -- we must rollback to the savepoint
344     --
345     ROLLBACK TO create_role_extra_info;
346     --
347     -- Only set output warning arguments
348     -- (Any key or derived arguments must be set to null
349     -- when validation only mode is being used.)
350     --
351     p_role_extra_info_id := null;
352     p_object_version_number  := null;
353     --
354     hr_utility.set_location(' Leaving:'||l_proc, 12);
355   --
356   when others then
357 
358     p_role_extra_info_id := null;
359     p_object_version_number  := null;
360   --
361   -- A validation or unexpected error has occurred
362   --
363   -- Added as part of the fix to bug 632479
364   --
365   ROLLBACK TO create_role_extra_info;
366   --
367   raise;
368   --
369 end create_role_extra_info;
370 --
371 -- ----------------------------------------------------------------------------+
372 -- |----------------------< update_role_extra_info >----------------------|
373 -- ---------------------------------------------------------------------------+
374 --
375 procedure update_role_extra_info
376   (p_validate                     in     boolean
377   ,p_role_extra_info_id            in     number
378   ,p_object_version_number        in out nocopy number
379   ,p_attribute_category       in     varchar2
380   ,p_attribute1               in     varchar2
381   ,p_attribute2               in     varchar2
382   ,p_attribute3               in     varchar2
383   ,p_attribute4               in     varchar2
384   ,p_attribute5               in     varchar2
385   ,p_attribute6               in     varchar2
386   ,p_attribute7               in     varchar2
387   ,p_attribute8               in     varchar2
388   ,p_attribute9               in     varchar2
389   ,p_attribute10              in     varchar2
390   ,p_attribute11              in     varchar2
391   ,p_attribute12              in     varchar2
392   ,p_attribute13              in     varchar2
393   ,p_attribute14              in     varchar2
394   ,p_attribute15              in     varchar2
395   ,p_attribute16              in     varchar2
396   ,p_attribute17              in     varchar2
397   ,p_attribute18              in     varchar2
398   ,p_attribute19              in     varchar2
399   ,p_attribute20              in     varchar2
400   ,p_attribute21              in     varchar2
401   ,p_attribute22              in     varchar2
402   ,p_attribute23              in     varchar2
403   ,p_attribute24              in     varchar2
404   ,p_attribute25              in     varchar2
405   ,p_attribute26              in     varchar2
406   ,p_attribute27              in     varchar2
407   ,p_attribute28              in     varchar2
408   ,p_attribute29              in     varchar2
409   ,p_attribute30              in     varchar2
410   ,p_information_category     in     varchar2
411   ,p_information1             in     varchar2
412   ,p_information2             in     varchar2
413   ,p_information3             in     varchar2
414   ,p_information4             in     varchar2
415   ,p_information5             in     varchar2
416   ,p_information6             in     varchar2
417   ,p_information7             in     varchar2
418   ,p_information8             in     varchar2
419   ,p_information9             in     varchar2
420   ,p_information10            in     varchar2
421   ,p_information11            in     varchar2
422   ,p_information12            in     varchar2
423   ,p_information13            in     varchar2
424   ,p_information14            in     varchar2
425   ,p_information15            in     varchar2
426   ,p_information16            in     varchar2
427   ,p_information17            in     varchar2
428   ,p_information18            in     varchar2
429   ,p_information19            in     varchar2
430   ,p_information20            in     varchar2
431   ,p_information21            in     varchar2
432   ,p_information22            in     varchar2
433   ,p_information23            in     varchar2
434   ,p_information24            in     varchar2
435   ,p_information25            in     varchar2
436   ,p_information26            in     varchar2
437   ,p_information27            in     varchar2
438   ,p_information28            in     varchar2
439   ,p_information29            in     varchar2
440   ,p_information30            in     varchar2
441   ) is
442   --
443   -- Declare cursors and local variables
444   --
445   l_proc                  varchar2(72) := g_package||'update_role_extra_info';
446   l_object_version_number pqh_role_extra_info.object_version_number%TYPE;
447   --
448 begin
449   hr_utility.set_location('Entering:'|| l_proc, 5);
450   --
451   -- Issue a savepoint
452   --
453   savepoint update_role_extra_info;
454   --
455   -- Call Before Process User Hook
456   --
457   begin
458 	pqh_role_extra_info_bk2.update_role_extra_info_b
459 		(
460 		p_role_extra_info_id	=>	p_role_extra_info_id,
461 		p_attribute_category	=>	p_attribute_category,
462 		p_attribute1		=>	p_attribute1,
463 		p_attribute2		=>	p_attribute2,
464 		p_attribute3		=>	p_attribute3,
465 		p_attribute4		=>	p_attribute4,
466 		p_attribute5		=>	p_attribute5,
467 		p_attribute6		=>	p_attribute6,
468 		p_attribute7		=>	p_attribute7,
469 		p_attribute8		=>	p_attribute8,
470 		p_attribute9		=>	p_attribute9,
471 		p_attribute10		=>	p_attribute10,
472 		p_attribute11		=>	p_attribute11,
473 		p_attribute12		=>	p_attribute12,
474 		p_attribute13		=>	p_attribute13,
475 		p_attribute14		=>	p_attribute14,
476 		p_attribute15		=>	p_attribute15,
477 		p_attribute16		=>	p_attribute16,
478 		p_attribute17		=>	p_attribute17,
479 		p_attribute18		=>	p_attribute18,
480 		p_attribute19		=>	p_attribute19,
481 		p_attribute20		=>	p_attribute20,
482 		p_attribute21		=>	p_attribute21,
483 		p_attribute22		=>	p_attribute22,
484 		p_attribute23		=>	p_attribute23,
485 		p_attribute24		=>	p_attribute24,
486 		p_attribute25		=>	p_attribute25,
487 		p_attribute26		=>	p_attribute26,
488 		p_attribute27		=>	p_attribute27,
489 		p_attribute28		=>	p_attribute28,
490 		p_attribute29		=>	p_attribute29,
491 		p_attribute30		=>	p_attribute30,
492 		p_information_category	=>	p_information_category,
493 		p_information1		=>	p_information1,
494 		p_information2		=>	p_information2,
495 		p_information3		=>	p_information3,
496 		p_information4		=>	p_information4,
497 		p_information5		=>	p_information5,
498 		p_information6		=>	p_information6,
499 		p_information7		=>	p_information7,
500 		p_information8		=>	p_information8,
501 		p_information9		=>	p_information9,
502 		p_information10		=>	p_information10,
503 		p_information11		=>	p_information11,
504 		p_information12		=>	p_information12,
505 		p_information13		=>	p_information13,
506 		p_information14		=>	p_information14,
507 		p_information15		=>	p_information15,
508 		p_information16		=>	p_information16,
509 		p_information17		=>	p_information17,
510 		p_information18		=>	p_information18,
511 		p_information19		=>	p_information19,
512 		p_information20		=>	p_information20,
513 		p_information21		=>	p_information21,
514 		p_information22		=>	p_information22,
515 		p_information23		=>	p_information23,
516 		p_information24		=>	p_information24,
517 		p_information25		=>	p_information25,
518 		p_information26		=>	p_information26,
519 		p_information27		=>	p_information27,
520 		p_information28		=>	p_information28,
521 		p_information29		=>	p_information29,
522 		p_information30		=>	p_information30,
523 		p_object_version_number		=>	p_object_version_number
524 		);
525       exception
526 	   when hr_api.cannot_find_prog_unit then
527 		  hr_api.cannot_find_prog_unit_error
528 				(p_module_name	=> 'update_role_extra_info',
529 				 p_hook_type	=> 'BP'
530 				);
531   end;
532   --
533   -- End of Before Process User Hook call
534   --
535   hr_utility.set_location(l_proc, 7);
536   --
537   -- Store the original ovn in case we rollback when p_validate is true
538   --
539   l_object_version_number  := p_object_version_number;
540   --
541   -- Process Logic - Update role Extra Info details
542   --
543   pqh_rei_upd.upd
544   (p_role_extra_info_id       => p_role_extra_info_id
545   ,p_attribute_category       => p_attribute_category
546   ,p_attribute1               => p_attribute1
547   ,p_attribute2               => p_attribute2
548   ,p_attribute3               => p_attribute3
549   ,p_attribute4               => p_attribute4
550   ,p_attribute5               => p_attribute5
551   ,p_attribute6               => p_attribute6
552   ,p_attribute7               => p_attribute7
553   ,p_attribute8               => p_attribute8
554   ,p_attribute9               => p_attribute9
555   ,p_attribute10              => p_attribute10
556   ,p_attribute11              => p_attribute11
557   ,p_attribute12              => p_attribute12
558   ,p_attribute13              => p_attribute13
559   ,p_attribute14              => p_attribute14
560   ,p_attribute15              => p_attribute15
561   ,p_attribute16              => p_attribute16
562   ,p_attribute17              => p_attribute17
563   ,p_attribute18              => p_attribute18
564   ,p_attribute19              => p_attribute19
565   ,p_attribute20              => p_attribute20
566   ,p_attribute21              => p_attribute21
567   ,p_attribute22              => p_attribute22
568   ,p_attribute23              => p_attribute23
569   ,p_attribute24              => p_attribute24
570   ,p_attribute25              => p_attribute25
571   ,p_attribute26              => p_attribute26
572   ,p_attribute27              => p_attribute27
573   ,p_attribute28              => p_attribute28
574   ,p_attribute29              => p_attribute29
575   ,p_attribute30              => p_attribute30
576   ,p_information_category     => p_information_category
577   ,p_information1             => p_information1
578   ,p_information2             => p_information2
579   ,p_information3             => p_information3
580   ,p_information4             => p_information4
581   ,p_information5             => p_information5
582   ,p_information6             => p_information6
583   ,p_information7             => p_information7
584   ,p_information8             => p_information8
585   ,p_information9             => p_information9
586   ,p_information10            => p_information10
587   ,p_information11            => p_information11
588   ,p_information12            => p_information12
589   ,p_information13            => p_information13
590   ,p_information14            => p_information14
591   ,p_information15            => p_information15
592   ,p_information16            => p_information16
593   ,p_information17            => p_information17
594   ,p_information18            => p_information18
595   ,p_information19            => p_information19
596   ,p_information20            => p_information20
597   ,p_information21            => p_information21
598   ,p_information22            => p_information22
599   ,p_information23            => p_information23
600   ,p_information24            => p_information24
601   ,p_information25            => p_information25
602   ,p_information26            => p_information26
603   ,p_information27            => p_information27
604   ,p_information28            => p_information28
605   ,p_information29            => p_information29
606   ,p_information30            => p_information30
607   ,p_object_version_number        => p_object_version_number
608   ,p_validate                     => false
609   );
610   --
611   hr_utility.set_location(l_proc, 8);
612   --
613   -- Call After Process User Hook
614   --
615   begin
616 	pqh_role_extra_info_bk2.update_role_extra_info_a
617 		(
618 		p_role_extra_info_id		=>	p_role_extra_info_id,
619 		p_attribute_category	=>	p_attribute_category,
620 		p_attribute1		=>	p_attribute1,
621 		p_attribute2		=>	p_attribute2,
622 		p_attribute3		=>	p_attribute3,
623 		p_attribute4		=>	p_attribute4,
624 		p_attribute5		=>	p_attribute5,
625 		p_attribute6		=>	p_attribute6,
626 		p_attribute7		=>	p_attribute7,
627 		p_attribute8		=>	p_attribute8,
628 		p_attribute9		=>	p_attribute9,
629 		p_attribute10		=>	p_attribute10,
630 		p_attribute11		=>	p_attribute11,
631 		p_attribute12		=>	p_attribute12,
632 		p_attribute13		=>	p_attribute13,
633 		p_attribute14		=>	p_attribute14,
634 		p_attribute15		=>	p_attribute15,
635 		p_attribute16		=>	p_attribute16,
636 		p_attribute17		=>	p_attribute17,
637 		p_attribute18		=>	p_attribute18,
638 		p_attribute19		=>	p_attribute19,
639 		p_attribute20		=>	p_attribute20,
640 		p_attribute21		=>	p_attribute21,
641 		p_attribute22		=>	p_attribute22,
642 		p_attribute23		=>	p_attribute23,
643 		p_attribute24		=>	p_attribute24,
644 		p_attribute25		=>	p_attribute25,
645 		p_attribute26		=>	p_attribute26,
646 		p_attribute27		=>	p_attribute27,
647 		p_attribute28		=>	p_attribute28,
648 		p_attribute29		=>	p_attribute29,
649 		p_attribute30		=>	p_attribute30,
650 		p_information_category	=>	p_information_category,
651 		p_information1		=>	p_information1,
652 		p_information2		=>	p_information2,
653 		p_information3		=>	p_information3,
654 		p_information4		=>	p_information4,
655 		p_information5		=>	p_information5,
656 		p_information6		=>	p_information6,
657 		p_information7		=>	p_information7,
658 		p_information8		=>	p_information8,
659 		p_information9		=>	p_information9,
660 		p_information10		=>	p_information10,
661 		p_information11		=>	p_information11,
662 		p_information12		=>	p_information12,
663 		p_information13		=>	p_information13,
664 		p_information14		=>	p_information14,
665 		p_information15		=>	p_information15,
666 		p_information16		=>	p_information16,
667 		p_information17		=>	p_information17,
668 		p_information18		=>	p_information18,
669 		p_information19		=>	p_information19,
670 		p_information20		=>	p_information20,
671 		p_information21		=>	p_information21,
672 		p_information22		=>	p_information22,
673 		p_information23		=>	p_information23,
674 		p_information24		=>	p_information24,
675 		p_information25		=>	p_information25,
676 		p_information26		=>	p_information26,
677 		p_information27		=>	p_information27,
678 		p_information28		=>	p_information28,
679 		p_information29		=>	p_information29,
680 		p_information30		=>	p_information30,
681 		p_object_version_number		=>	p_object_version_number
682 		);
683       exception
684 	   when hr_api.cannot_find_prog_unit then
685 		  hr_api.cannot_find_prog_unit_error
686 				(p_module_name	=> 'update_role_extra_info',
687 				 p_hook_type	=> 'AP'
688 				);
689   end;
690   --
691   -- When in validation only mode raise the Validate_Enabled exception
692   --
693   if p_validate then
694     raise hr_api.validate_enabled;
695   end if;
696   --
697   hr_utility.set_location(' Leaving:'||l_proc, 11);
698 exception
699   when hr_api.validate_enabled then
700     --
701     -- As the Validate_Enabled exception has been raised
702     -- we must rollback to the savepoint
703     --
704     ROLLBACK TO update_role_extra_info;
705     --
706     -- Only set output warning arguments
707     -- (Any key or derived arguments must be set to null
708     -- when validation only mode is being used.)
709     --
710     p_object_version_number  := l_object_version_number;
711     --
712     hr_utility.set_location(' Leaving:'||l_proc, 12);
713   --
714   when others then
715 
716   p_object_version_number := l_object_version_number;
717   --
718   -- A validation or unexpected error has occurred
719   --
720   -- Added as part of the fix to bug 632479
721   --
722   ROLLBACK TO update_role_extra_info;
723   --
724   raise;
725   --
726 end update_role_extra_info;
727 --
728 --
729 -- ---------------------------------------------------------------------------+
730 -- |----------------------< delete_role_extra_info >----------------------|
731 -- ---------------------------------------------------------------------------+
732 --
733 procedure delete_role_extra_info
734   (p_validate                 in     boolean
735   ,p_role_extra_info_id        in     number
736   ,p_object_version_number    in     number
737   ) is
738   --
739   -- Declare cursors and local variables
740   --
741   l_proc                  varchar2(72) := g_package||'delete_role_extra_info';
742   --
743 begin
744   hr_utility.set_location('Entering:'|| l_proc, 5);
745   --
746   -- Issue a savepoint
747   --
748   savepoint delete_role_extra_info;
749   --
750   -- Call Before Process User Hook
751   --
752   begin
753 	pqh_role_extra_info_bk3.delete_role_extra_info_b
754 		(
755 		p_role_extra_info_id		=>	p_role_extra_info_id,
756 		p_object_version_number		=>	p_object_version_number
757 		);
758       exception
759 	   when hr_api.cannot_find_prog_unit then
760 		  hr_api.cannot_find_prog_unit_error
761 				(p_module_name	=> 'delete_role_extra_info',
762 				 p_hook_type	=> 'BP'
763 				);
764   end;
765   --
766   hr_utility.set_location(l_proc, 7);
767   --
768   -- Process Logic - Delete role Extra Info details
769   --
770   pqh_rei_del.del
771   (p_role_extra_info_id             => p_role_extra_info_id
772   ,p_object_version_number         => p_object_version_number
773   ,p_validate                      => false
774   );
775   --
776   hr_utility.set_location(l_proc, 8);
777   --
778   -- Call After Process User Hook
779   --
780   begin
781 	pqh_role_extra_info_bk3.delete_role_extra_info_a
782 		(
783 		p_role_extra_info_id		=>	p_role_extra_info_id,
784 		p_object_version_number		=>	p_object_version_number
785 		);
786       exception
787 	   when hr_api.cannot_find_prog_unit then
788 		  hr_api.cannot_find_prog_unit_error
789 				(p_module_name	=> 'delete_role_extra_info',
790 				 p_hook_type	=> 'AP'
791 				);
792   end;
793   --
794   -- When in validation only mode raise the Validate_Enabled exception
795   --
796   if p_validate then
797     raise hr_api.validate_enabled;
798   end if;
799   --
800   hr_utility.set_location(' Leaving:'||l_proc, 11);
801 exception
802   when hr_api.validate_enabled then
803     --
804     -- As the Validate_Enabled exception has been raised
805     -- we must rollback to the savepoint
806     --
807     ROLLBACK TO delete_role_extra_info;
808     --
809     hr_utility.set_location(' Leaving:'||l_proc, 12);
810   --
811   when others then
812   --
813   -- A validation or unexpected error has occurred
814   --
815   -- Added as part of the fix to bug 632479
816   --
817   ROLLBACK TO delete_role_extra_info;
818   --
819   raise;
820   --
821 end delete_role_extra_info;
822 --
823 end pqh_role_extra_info_api;