[Home] [Help]
PACKAGE BODY: APPS.PER_SHARED_TYPES_API
Source
1 Package Body per_shared_types_api as
2 /* $Header: peshtapi.pkb 115.10 2002/12/11 17:07:42 eumenyio ship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := ' per_shared_types_api.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |------------------------< create_shared_type >----------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 -- {Start Of Comments}
13 --
14 -- Description:
15 --
16 -- used for creating a shared_type corresponding to
17 -- Prerequisites:
18 --
19 -- Lookup_type should exist and should have a lookup value
20 --
21 -- In Parameters:
22 -- Name Reqd Type Description
23 -- p_validate N in
24 -- p_shared_type_id Y out
25 -- p_business_group_id N in
26 -- p_shared_type_name N in
27 -- p_shared_type_code N in
28 -- p_system_type_cd N in
29 -- p_language_code N in
30 -- p_information1 N in
31 -- p_information2 N in
32 -- p_information3 N in
33 -- p_information4 N in
34 -- p_information5 N in
35 -- p_information6 N in
36 -- p_information7 N in
37 -- p_information8 N in
38 -- p_information9 N in
39 -- p_information10 N in
40 -- p_information11 N in
41 -- p_information12 N in
42 -- p_information13 N in
43 -- p_information14 N in
44 -- p_information15 N in
45 -- p_information16 N in
46 -- p_information17 N in
47 -- p_information18 N in
48 -- p_information19 N in
49 -- p_information20 N in
50 -- p_information21 N in
51 -- p_information22 N in
52 -- p_information23 N in
53 -- p_information24 N in
54 -- p_information25 N in
55 -- p_information26 N in
56 -- p_information27 N in
57 -- p_information28 N in
58 -- p_information29 N in
59 -- p_information30 N in
60 -- p_information_category N in
61 -- p_object_version_number Y out
62 -- p_lookup_type N in
63 -- p_effective_date Y in
64 --
65 -- Post Success:
66 --
67 -- Shared Type is created corresponding to a lookup_type
68 --
69 -- Post Failure:
70 --
71 --
72 -- Access Status:
73 -- Public.
74 --
75 -- {End Of Comments}
76 --
77 procedure create_shared_type
78 (p_validate in boolean default false
79 ,p_shared_type_id out nocopy number
80 ,p_business_group_id in number default null
81 ,p_shared_type_name in varchar2 default null
82 ,p_shared_type_code in varchar2 default null
83 ,p_system_type_cd in varchar2 default null
84 ,p_language_code in varchar2 default hr_api.userenv_lang
85 ,p_information1 in varchar2 default null
86 ,p_information2 in varchar2 default null
87 ,p_information3 in varchar2 default null
88 ,p_information4 in varchar2 default null
89 ,p_information5 in varchar2 default null
90 ,p_information6 in varchar2 default null
91 ,p_information7 in varchar2 default null
92 ,p_information8 in varchar2 default null
93 ,p_information9 in varchar2 default null
94 ,p_information10 in varchar2 default null
95 ,p_information11 in varchar2 default null
96 ,p_information12 in varchar2 default null
97 ,p_information13 in varchar2 default null
98 ,p_information14 in varchar2 default null
99 ,p_information15 in varchar2 default null
100 ,p_information16 in varchar2 default null
101 ,p_information17 in varchar2 default null
102 ,p_information18 in varchar2 default null
103 ,p_information19 in varchar2 default null
104 ,p_information20 in varchar2 default null
105 ,p_information21 in varchar2 default null
106 ,p_information22 in varchar2 default null
107 ,p_information23 in varchar2 default null
108 ,p_information24 in varchar2 default null
109 ,p_information25 in varchar2 default null
110 ,p_information26 in varchar2 default null
111 ,p_information27 in varchar2 default null
112 ,p_information28 in varchar2 default null
113 ,p_information29 in varchar2 default null
114 ,p_information30 in varchar2 default null
115 ,p_information_category in varchar2 default null
116 ,p_object_version_number out nocopy number
117 ,p_lookup_type in varchar2 default null
118 ,p_effective_date in date
119 ) is
120 --
121 -- Declare cursors and local variables
122 --
123 l_shared_type_id per_shared_types.shared_type_id%TYPE;
124 l_proc varchar2(72) := g_package||'create_shared_type';
125 l_object_version_number per_shared_types.object_version_number%TYPE;
126 l_language_code varchar2(30);
127 --
128 begin
129 --
130 hr_utility.set_location('Entering:'|| l_proc, 10);
131 --
132 -- Issue a savepoint if operating in validation only mode
133 --
134 savepoint create_shared_type;
135 --
136 --
137 l_language_code := p_language_code;
138 hr_api.validate_language_code(p_language_code => l_language_code);
139 --
140 hr_utility.set_location(l_proc, 20);
141 --
142 -- Process Logic
143 --
144 begin
145 --
146 -- Start of API User Hook for the before hook of create_shared_types
147 --
148 per_shared_types_bk1.create_shared_type_b
149 (
150 p_business_group_id => p_business_group_id
151 ,p_shared_type_name => p_shared_type_name
152 ,p_shared_type_code => p_shared_type_code
153 ,p_system_type_cd => p_system_type_cd
154 ,p_information1 => p_information1
155 ,p_information2 => p_information2
156 ,p_information3 => p_information3
157 ,p_information4 => p_information4
158 ,p_information5 => p_information5
159 ,p_information6 => p_information6
160 ,p_information7 => p_information7
161 ,p_information8 => p_information8
162 ,p_information9 => p_information9
163 ,p_information10 => p_information10
164 ,p_information11 => p_information11
165 ,p_information12 => p_information12
166 ,p_information13 => p_information13
167 ,p_information14 => p_information14
168 ,p_information15 => p_information15
169 ,p_information16 => p_information16
170 ,p_information17 => p_information17
171 ,p_information18 => p_information18
172 ,p_information19 => p_information19
173 ,p_information20 => p_information20
174 ,p_information21 => p_information21
175 ,p_information22 => p_information22
176 ,p_information23 => p_information23
177 ,p_information24 => p_information24
178 ,p_information25 => p_information25
179 ,p_information26 => p_information26
180 ,p_information27 => p_information27
181 ,p_information28 => p_information28
182 ,p_information29 => p_information29
183 ,p_information30 => p_information30
184 ,p_information_category => p_information_category
185 ,p_lookup_type => p_lookup_type
186 ,p_effective_date => trunc(p_effective_date)
187 );
188 exception
189 when hr_api.cannot_find_prog_unit then
190 hr_api.cannot_find_prog_unit_error
191 (
192 p_module_name => 'CREATE_shared_types'
193 ,p_hook_type => 'BP'
194 );
195 --
196 -- End of API User Hook for the before hook of create_shared_types
197 --
198 end;
199 --
200 per_sht_ins.ins
201 (
202 p_shared_type_id => l_shared_type_id
203 ,p_business_group_id => p_business_group_id
204 ,p_shared_type_name => p_shared_type_name
205 ,p_shared_type_code => p_shared_type_code
206 ,p_system_type_cd => p_system_type_cd
207 ,p_information1 => p_information1
208 ,p_information2 => p_information2
209 ,p_information3 => p_information3
210 ,p_information4 => p_information4
211 ,p_information5 => p_information5
212 ,p_information6 => p_information6
213 ,p_information7 => p_information7
214 ,p_information8 => p_information8
215 ,p_information9 => p_information9
216 ,p_information10 => p_information10
217 ,p_information11 => p_information11
218 ,p_information12 => p_information12
219 ,p_information13 => p_information13
220 ,p_information14 => p_information14
221 ,p_information15 => p_information15
222 ,p_information16 => p_information16
223 ,p_information17 => p_information17
224 ,p_information18 => p_information18
225 ,p_information19 => p_information19
226 ,p_information20 => p_information20
227 ,p_information21 => p_information21
228 ,p_information22 => p_information22
229 ,p_information23 => p_information23
230 ,p_information24 => p_information24
231 ,p_information25 => p_information25
232 ,p_information26 => p_information26
233 ,p_information27 => p_information27
234 ,p_information28 => p_information28
235 ,p_information29 => p_information29
236 ,p_information30 => p_information30
237 ,p_information_category => p_information_category
238 ,p_object_version_number => l_object_version_number
239 ,p_lookup_type => p_lookup_type
240 ,p_effective_date => trunc(p_effective_date)
241 );
242 --
243 p_shared_type_id := l_shared_type_id ;
244 per_stt_ins.ins_tl(
245 p_language_code => p_language_code,
246 p_shared_type_id => l_shared_type_id ,
247 p_shared_type_name => p_shared_type_name );
248 begin
249 --
250 -- Start of API User Hook for the after hook of create_shared_types
251 --
252 per_shared_types_bk1.create_shared_type_a
253 (
254 p_shared_type_id => l_shared_type_id
255 ,p_business_group_id => p_business_group_id
256 ,p_shared_type_name => p_shared_type_name
257 ,p_shared_type_code => p_shared_type_code
258 ,p_system_type_cd => p_system_type_cd
259 ,p_information1 => p_information1
260 ,p_information2 => p_information2
261 ,p_information3 => p_information3
262 ,p_information4 => p_information4
263 ,p_information5 => p_information5
264 ,p_information6 => p_information6
265 ,p_information7 => p_information7
266 ,p_information8 => p_information8
267 ,p_information9 => p_information9
268 ,p_information10 => p_information10
269 ,p_information11 => p_information11
270 ,p_information12 => p_information12
271 ,p_information13 => p_information13
272 ,p_information14 => p_information14
273 ,p_information15 => p_information15
274 ,p_information16 => p_information16
275 ,p_information17 => p_information17
276 ,p_information18 => p_information18
277 ,p_information19 => p_information19
278 ,p_information20 => p_information20
279 ,p_information21 => p_information21
280 ,p_information22 => p_information22
281 ,p_information23 => p_information23
282 ,p_information24 => p_information24
283 ,p_information25 => p_information25
284 ,p_information26 => p_information26
285 ,p_information27 => p_information27
286 ,p_information28 => p_information28
287 ,p_information29 => p_information29
288 ,p_information30 => p_information30
289 ,p_information_category => p_information_category
290 ,p_object_version_number => l_object_version_number
291 ,p_lookup_type => p_lookup_type
292 ,p_effective_date => trunc(p_effective_date)
293 );
294 exception
295 when hr_api.cannot_find_prog_unit then
296 hr_api.cannot_find_prog_unit_error
297 (p_module_name => 'CREATE_shared_types'
298 ,p_hook_type => 'AP'
299 );
300 --
301 -- End of API User Hook for the after hook of create_shared_types
302 --
303 end;
304 --
305 hr_utility.set_location(l_proc, 60);
306 --
307 -- When in validation only mode raise the Validate_Enabled exception
308 --
309 if p_validate then
310 raise hr_api.validate_enabled;
311 end if;
312 --
313 -- Set all output arguments
314 --
315 p_shared_type_id := l_shared_type_id;
316 p_object_version_number := l_object_version_number;
317 --
318 hr_utility.set_location(' Leaving:'||l_proc, 70);
319 --
320 exception
321 --
322 when hr_api.validate_enabled then
323 --
324 -- As the Validate_Enabled exception has been raised
325 -- we must rollback to the savepoint
326 --
327 ROLLBACK TO create_shared_type;
328 --
329 -- Only set output warning arguments
330 -- (Any key or derived arguments must be set to null
331 -- when validation only mode is being used.)
332 --
333 p_shared_type_id := null;
334 p_object_version_number := null;
335 hr_utility.set_location(' Leaving:'||l_proc, 80);
336 --
337 when others then
338 --
339 -- A validation or unexpected error has occured
340 --
341 p_shared_type_id := null;
342 p_object_version_number := null;
343 ROLLBACK TO create_shared_type;
344 raise;
345 --
346 end create_shared_type;
347 -- ----------------------------------------------------------------------------
348 -- |------------------------< update_shared_type >--- ------------------|
349 -- ----------------------------------------------------------------------------
353 ,p_shared_type_id in number
350 --
351 procedure update_shared_type
352 (p_validate in boolean default false
354 ,p_business_group_id in number default hr_api.g_number
355 ,p_shared_type_name in varchar2 default hr_api.g_varchar2
356 ,p_shared_type_code in varchar2 default hr_api.g_varchar2
357 ,p_system_type_cd in varchar2 default hr_api.g_varchar2
358 ,p_language_code in varchar2 default hr_api.userenv_lang
359 ,p_information1 in varchar2 default hr_api.g_varchar2
360 ,p_information2 in varchar2 default hr_api.g_varchar2
361 ,p_information3 in varchar2 default hr_api.g_varchar2
362 ,p_information4 in varchar2 default hr_api.g_varchar2
363 ,p_information5 in varchar2 default hr_api.g_varchar2
364 ,p_information6 in varchar2 default hr_api.g_varchar2
365 ,p_information7 in varchar2 default hr_api.g_varchar2
366 ,p_information8 in varchar2 default hr_api.g_varchar2
367 ,p_information9 in varchar2 default hr_api.g_varchar2
368 ,p_information10 in varchar2 default hr_api.g_varchar2
369 ,p_information11 in varchar2 default hr_api.g_varchar2
370 ,p_information12 in varchar2 default hr_api.g_varchar2
371 ,p_information13 in varchar2 default hr_api.g_varchar2
372 ,p_information14 in varchar2 default hr_api.g_varchar2
373 ,p_information15 in varchar2 default hr_api.g_varchar2
374 ,p_information16 in varchar2 default hr_api.g_varchar2
375 ,p_information17 in varchar2 default hr_api.g_varchar2
376 ,p_information18 in varchar2 default hr_api.g_varchar2
377 ,p_information19 in varchar2 default hr_api.g_varchar2
378 ,p_information20 in varchar2 default hr_api.g_varchar2
379 ,p_information21 in varchar2 default hr_api.g_varchar2
380 ,p_information22 in varchar2 default hr_api.g_varchar2
381 ,p_information23 in varchar2 default hr_api.g_varchar2
382 ,p_information24 in varchar2 default hr_api.g_varchar2
383 ,p_information25 in varchar2 default hr_api.g_varchar2
384 ,p_information26 in varchar2 default hr_api.g_varchar2
385 ,p_information27 in varchar2 default hr_api.g_varchar2
386 ,p_information28 in varchar2 default hr_api.g_varchar2
387 ,p_information29 in varchar2 default hr_api.g_varchar2
388 ,p_information30 in varchar2 default hr_api.g_varchar2
389 ,p_information_category in varchar2 default hr_api.g_varchar2
390 ,p_object_version_number in out nocopy number
391 ,p_lookup_type in varchar2 default hr_api.g_varchar2
392 ,p_effective_date in date
393 ) is
394 --
395 -- Declare cursors and local variables
396 --
397 l_proc varchar2(72) := g_package||'update_shared_type';
398 l_object_version_number per_shared_types.object_version_number%TYPE;
399 l_language_code varchar2(30);
400 l_temp_ovn number := p_object_version_number;
401 --
402 begin
403 --
404 hr_utility.set_location('Entering:'|| l_proc, 10);
405 --
406 -- Issue a savepoint if operating in validation only mode
407 --
408 savepoint update_shared_type;
409 --
410 --
411 l_language_code := p_language_code;
412 hr_api.validate_language_code(p_language_code => l_language_code);
413 --
414 hr_utility.set_location(l_proc, 20);
415 --
416 -- Process Logic
417 --
418 l_object_version_number := p_object_version_number;
419 --
420 begin
421 --
422 -- Start of API User Hook for the before hook of update_shared_types
423 --
424 per_shared_types_bk2.update_shared_type_b
425 (
426 p_shared_type_id => p_shared_type_id
427 ,p_business_group_id => p_business_group_id
428 ,p_shared_type_name => p_shared_type_name
429 ,p_shared_type_code => p_shared_type_code
430 ,p_system_type_cd => p_system_type_cd
431 ,p_information1 => p_information1
432 ,p_information2 => p_information2
433 ,p_information3 => p_information3
434 ,p_information4 => p_information4
435 ,p_information5 => p_information5
436 ,p_information6 => p_information6
437 ,p_information7 => p_information7
438 ,p_information8 => p_information8
439 ,p_information9 => p_information9
440 ,p_information10 => p_information10
441 ,p_information11 => p_information11
442 ,p_information12 => p_information12
443 ,p_information13 => p_information13
444 ,p_information14 => p_information14
445 ,p_information15 => p_information15
446 ,p_information16 => p_information16
447 ,p_information17 => p_information17
448 ,p_information18 => p_information18
452 ,p_information22 => p_information22
449 ,p_information19 => p_information19
450 ,p_information20 => p_information20
451 ,p_information21 => p_information21
453 ,p_information23 => p_information23
454 ,p_information24 => p_information24
455 ,p_information25 => p_information25
456 ,p_information26 => p_information26
457 ,p_information27 => p_information27
458 ,p_information28 => p_information28
459 ,p_information29 => p_information29
460 ,p_information30 => p_information30
461 ,p_information_category => p_information_category
462 ,p_object_version_number => p_object_version_number
463 ,p_lookup_type => p_lookup_type
464 ,p_effective_date => trunc(p_effective_date)
465 );
466 exception
467 when hr_api.cannot_find_prog_unit then
468 hr_api.cannot_find_prog_unit_error
469 (p_module_name => 'UPDATE_shared_types'
470 ,p_hook_type => 'BP'
471 );
472 --
473 -- End of API User Hook for the before hook of update_shared_types
474 --
475 end;
476 --
477 per_sht_upd.upd
478 (
479 p_shared_type_id => p_shared_type_id
480 ,p_business_group_id => p_business_group_id
481 ,p_shared_type_name => p_shared_type_name
482 ,p_shared_type_code => p_shared_type_code
483 ,p_system_type_cd => p_system_type_cd
484 ,p_information1 => p_information1
485 ,p_information2 => p_information2
486 ,p_information3 => p_information3
487 ,p_information4 => p_information4
488 ,p_information5 => p_information5
489 ,p_information6 => p_information6
490 ,p_information7 => p_information7
491 ,p_information8 => p_information8
492 ,p_information9 => p_information9
493 ,p_information10 => p_information10
494 ,p_information11 => p_information11
495 ,p_information12 => p_information12
496 ,p_information13 => p_information13
497 ,p_information14 => p_information14
498 ,p_information15 => p_information15
499 ,p_information16 => p_information16
500 ,p_information17 => p_information17
501 ,p_information18 => p_information18
502 ,p_information19 => p_information19
503 ,p_information20 => p_information20
504 ,p_information21 => p_information21
505 ,p_information22 => p_information22
506 ,p_information23 => p_information23
507 ,p_information24 => p_information24
508 ,p_information25 => p_information25
509 ,p_information26 => p_information26
510 ,p_information27 => p_information27
511 ,p_information28 => p_information28
512 ,p_information29 => p_information29
513 ,p_information30 => p_information30
514 ,p_information_category => p_information_category
515 ,p_object_version_number => l_object_version_number
516 ,p_lookup_type => p_lookup_type
517 ,p_effective_date => trunc(p_effective_date)
518 );
519 --
520 per_stt_upd.upd_tl(
521 p_language_code => p_language_code,
522 p_shared_type_id => p_shared_type_id ,
523 p_shared_type_name => p_shared_type_name );
524 begin
525 --
526 -- Start of API User Hook for the after hook of update_shared_types
527 --
528 per_shared_types_bk2.update_shared_type_a
529 (
530 p_shared_type_id => p_shared_type_id
531 ,p_business_group_id => p_business_group_id
532 ,p_shared_type_name => p_shared_type_name
533 ,p_shared_type_code => p_shared_type_code
534 ,p_system_type_cd => p_system_type_cd
535 ,p_information1 => p_information1
536 ,p_information2 => p_information2
537 ,p_information3 => p_information3
538 ,p_information4 => p_information4
539 ,p_information5 => p_information5
540 ,p_information6 => p_information6
541 ,p_information7 => p_information7
542 ,p_information8 => p_information8
543 ,p_information9 => p_information9
544 ,p_information10 => p_information10
545 ,p_information11 => p_information11
546 ,p_information12 => p_information12
547 ,p_information13 => p_information13
548 ,p_information14 => p_information14
549 ,p_information15 => p_information15
550 ,p_information16 => p_information16
551 ,p_information17 => p_information17
552 ,p_information18 => p_information18
556 ,p_information22 => p_information22
553 ,p_information19 => p_information19
554 ,p_information20 => p_information20
555 ,p_information21 => p_information21
557 ,p_information23 => p_information23
558 ,p_information24 => p_information24
559 ,p_information25 => p_information25
560 ,p_information26 => p_information26
561 ,p_information27 => p_information27
562 ,p_information28 => p_information28
563 ,p_information29 => p_information29
564 ,p_information30 => p_information30
565 ,p_information_category => p_information_category
566 ,p_object_version_number => l_object_version_number
567 ,p_lookup_type => p_lookup_type
568 ,p_effective_date => trunc(p_effective_date)
569 );
570 exception
571 when hr_api.cannot_find_prog_unit then
572 hr_api.cannot_find_prog_unit_error
573 (p_module_name => 'UPDATE_shared_types'
574 ,p_hook_type => 'AP'
575 );
576 --
577 -- End of API User Hook for the after hook of update_shared_types
578 --
579 end;
580 --
581 hr_utility.set_location(l_proc, 60);
582 --
583 -- When in validation only mode raise the Validate_Enabled exception
584 --
585 if p_validate then
586 raise hr_api.validate_enabled;
587 end if;
588 --
589 -- Set all output arguments
590 --
591 p_object_version_number := l_object_version_number;
592 --
593 hr_utility.set_location(' Leaving:'||l_proc, 70);
594 --
595 exception
596 --
597 when hr_api.validate_enabled then
598 --
599 -- As the Validate_Enabled exception has been raised
600 -- we must rollback to the savepoint
601 --
602 ROLLBACK TO update_shared_type;
603 --
604 -- Only set output warning arguments
605 -- (Any key or derived arguments must be set to null
606 -- when validation only mode is being used.)
607 --
608 hr_utility.set_location(' Leaving:'||l_proc, 80);
609 --
610 when others then
611 --
612 -- A validation or unexpected error has occured
613 --
614 p_object_version_number := l_temp_ovn;
615 ROLLBACK TO update_shared_type;
616 raise;
617 --
618 end update_shared_type;
619 -- ----------------------------------------------------------------------------
620 -- |------------------------< delete_shared_type >----------------------|
621 -- ----------------------------------------------------------------------------
622 --
623 procedure delete_shared_type
624 (p_validate in boolean default false
625 ,p_shared_type_id in number
626 ,p_object_version_number in number
627 ,p_effective_date in date
628 ) is
629 --
630 -- Declare cursors and local variables
631 --
632 l_proc varchar2(72) := g_package||'delete_shared_type';
633 l_object_version_number per_shared_types.object_version_number%TYPE;
634 --
635 begin
636 --
637 hr_utility.set_location('Entering:'|| l_proc, 10);
638 --
639 -- Issue a savepoint if operating in validation only mode
640 --
641 savepoint delete_shared_type;
642 --
643 hr_utility.set_location(l_proc, 20);
644 --
645 -- Process Logic
646 --
647 l_object_version_number := p_object_version_number;
648 --
649 --
650 begin
651 --
652 -- Start of API User Hook for the before hook of delete_shared_types
653 --
654 per_shared_types_bk3.delete_shared_type_b
655 (
656 p_shared_type_id => p_shared_type_id
657 ,p_object_version_number => p_object_version_number
658 ,p_effective_date => trunc(p_effective_date)
659 );
660 exception
661 when hr_api.cannot_find_prog_unit then
662 hr_api.cannot_find_prog_unit_error
663 (p_module_name => 'DELETE_shared_types'
664 ,p_hook_type => 'BP'
665 );
666 --
667 -- End of API User Hook for the before hook of delete_shared_types
668 --
669 end;
670 --
671 per_sht_shd.lck
672 (
673 p_shared_type_id => p_shared_type_id
674 ,p_object_version_number => l_object_version_number
675 );
676 --
677 per_stt_del.del_tl
678 (
679 p_shared_type_id => p_shared_type_id
680 );
681 --
682 per_sht_del.del
683 (
684 p_shared_type_id => p_shared_type_id
685 ,p_object_version_number => l_object_version_number
686 ,p_effective_date => p_effective_date
687 );
688 begin
689 --
690 -- Start of API User Hook for the after hook of delete_shared_types
691 --
692 per_shared_types_bk3.delete_shared_type_a
693 (
694 p_shared_type_id => p_shared_type_id
695 ,p_object_version_number => l_object_version_number
696 ,p_effective_date => trunc(p_effective_date)
697 );
698 exception
699 when hr_api.cannot_find_prog_unit then
700 hr_api.cannot_find_prog_unit_error
701 (p_module_name => 'DELETE_shared_types'
702 ,p_hook_type => 'AP'
703 );
704 --
705 -- End of API User Hook for the after hook of delete_shared_types
706 --
707 end;
708 --
709 hr_utility.set_location(l_proc, 60);
710 --
711 -- When in validation only mode raise the Validate_Enabled exception
712 --
713 if p_validate then
714 raise hr_api.validate_enabled;
715 end if;
716 --
717 hr_utility.set_location(' Leaving:'||l_proc, 70);
718 --
719 exception
720 --
721 when hr_api.validate_enabled then
722 --
723 -- As the Validate_Enabled exception has been raised
724 -- we must rollback to the savepoint
725 --
726 ROLLBACK TO delete_shared_type;
727 --
728 -- Only set output warning arguments
729 -- (Any key or derived arguments must be set to null
730 -- when validation only mode is being used.)
731 --
732 --
733 when others then
734 --
735 -- A validation or unexpected error has occured
736 --
737 ROLLBACK TO delete_shared_type;
738 raise;
739 --
740 end delete_shared_type;
741 --
742 end per_shared_types_api;