[Home] [Help]
PACKAGE BODY: APPS.PQH_ROLES_API
Source
1 Package Body pqh_roles_api as
2 /* $Header: pqrlsapi.pkb 115.8 2002/12/03 20:43:04 rpasapul noship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := ' pqh_roles_api.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |------------------------< create_role >----------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 -- mvanakda
13 -- Added Developer DF Columns to the procedure create_role
14 procedure create_role
15 (p_validate in boolean
16 ,p_role_id out nocopy number
17 ,p_role_name in varchar2
18 ,p_role_type_cd in varchar2
19 ,p_enable_flag in varchar2
20 ,p_object_version_number out nocopy number
21 ,p_business_group_id in number
22 ,p_effective_date in date
23 ,p_information_category in varchar2
24 ,p_information1 in varchar2
25 ,p_information2 in varchar2
26 ,p_information3 in varchar2
27 ,p_information4 in varchar2
28 ,p_information5 in varchar2
29 ,p_information6 in varchar2
30 ,p_information7 in varchar2
31 ,p_information8 in varchar2
32 ,p_information9 in varchar2
33 ,p_information10 in varchar2
34 ,p_information11 in varchar2
35 ,p_information12 in varchar2
36 ,p_information13 in varchar2
37 ,p_information14 in varchar2
38 ,p_information15 in varchar2
39 ,p_information16 in varchar2
40 ,p_information17 in varchar2
41 ,p_information18 in varchar2
42 ,p_information19 in varchar2
43 ,p_information20 in varchar2
44 ,p_information21 in varchar2
45 ,p_information22 in varchar2
46 ,p_information23 in varchar2
47 ,p_information24 in varchar2
48 ,p_information25 in varchar2
49 ,p_information26 in varchar2
50 ,p_information27 in varchar2
51 ,p_information28 in varchar2
52 ,p_information29 in varchar2
53 ,p_information30 in varchar2
54 ) is
55 --
56 -- Declare cursors and local variables
57 --
58 l_role_id pqh_roles.role_id%TYPE;
59 l_proc varchar2(72) := g_package||'create_role';
60 l_object_version_number pqh_roles.object_version_number%TYPE;
61 --
62 begin
63 --
64 hr_utility.set_location('Entering:'|| l_proc, 10);
65 --
66 -- Issue a savepoint if operating in validation only mode
67 --
68 savepoint create_role;
69 --
70 hr_utility.set_location(l_proc, 20);
71 --
72 -- Process Logic
73 --
74 begin
75 --
76 -- Start of API User Hook for the before hook of create_role
77 --
78
79
80
81 pqh_roles_bk1.create_role_b
82 (
83 p_role_name => p_role_name
84 ,p_role_type_cd => p_role_type_cd
85 ,p_enable_flag => p_enable_flag
86 ,p_business_group_id => p_business_group_id
87 ,p_effective_date => trunc(p_effective_date)
88 ,p_information_category => p_information_category
89 ,p_information1 => p_information1
90 ,p_information2 => p_information2
91 ,p_information3 => p_information3
92 ,p_information4 => p_information4
93 ,p_information5 => p_information5
94 ,p_information6 => p_information6
95 ,p_information7 => p_information7
96 ,p_information8 => p_information8
97 ,p_information9 => p_information9
98 ,p_information10 => p_information10
99 ,p_information11 => p_information11
100 ,p_information12 => p_information12
101 ,p_information13 => p_information13
102 ,p_information14 => p_information14
103 ,p_information15 => p_information15
104 ,p_information16 => p_information16
105 ,p_information17 => p_information17
106 ,p_information18 => p_information18
107 ,p_information19 => p_information19
108 ,p_information20 => p_information20
109 ,p_information21 => p_information21
110 ,p_information22 => p_information22
111 ,p_information23 => p_information23
112 ,p_information24 => p_information24
113 ,p_information25 => p_information25
114 ,p_information26 => p_information26
115 ,p_information27 => p_information27
116 ,p_information28 => p_information28
117 ,p_information29 => p_information29
118 ,p_information30 => p_information30
119 );
120 exception
121 when hr_api.cannot_find_prog_unit then
122 hr_api.cannot_find_prog_unit_error
123 (
124 p_module_name => 'create_role'
125 ,p_hook_type => 'BP'
126 );
127 --
128 -- End of API User Hook for the before hook of create_role
129 --
130 end;
131 --
132 pqh_rls_ins.ins
133 (
134 p_role_id => l_role_id
135 ,p_role_name => p_role_name
136 ,p_role_type_cd => p_role_type_cd
137 ,p_enable_flag => p_enable_flag
138 ,p_object_version_number => l_object_version_number
139 ,p_business_group_id => p_business_group_id
140 ,p_effective_date => trunc(p_effective_date)
141 ,p_information_category => p_information_category
142 ,p_information1 => p_information1
143 ,p_information2 => p_information2
144 ,p_information3 => p_information3
145 ,p_information4 => p_information4
146 ,p_information5 => p_information5
147 ,p_information6 => p_information6
148 ,p_information7 => p_information7
149 ,p_information8 => p_information8
150 ,p_information9 => p_information9
151 ,p_information10 => p_information10
152 ,p_information11 => p_information11
153 ,p_information12 => p_information12
154 ,p_information13 => p_information13
155 ,p_information14 => p_information14
156 ,p_information15 => p_information15
157 ,p_information16 => p_information16
158 ,p_information17 => p_information17
159 ,p_information18 => p_information18
160 ,p_information19 => p_information19
161 ,p_information20 => p_information20
162 ,p_information21 => p_information21
163 ,p_information22 => p_information22
164 ,p_information23 => p_information23
165 ,p_information24 => p_information24
166 ,p_information25 => p_information25
167 ,p_information26 => p_information26
168 ,p_information27 => p_information27
169 ,p_information28 => p_information28
170 ,p_information29 => p_information29
171 ,p_information30 => p_information30
172 );
173 --
174 begin
175 --
176 -- Start of API User Hook for the after hook of create_role
177 --
178 pqh_roles_bk1.create_role_a
179 (
180 p_role_id => l_role_id
181 ,p_role_name => p_role_name
182 ,p_role_type_cd => p_role_type_cd
183 ,p_enable_flag => p_enable_flag
184 ,p_object_version_number => l_object_version_number
185 ,p_business_group_id => p_business_group_id
186 ,p_effective_date => trunc(p_effective_date)
187 ,p_information_category => p_information_category
188 ,p_information1 => p_information1
189 ,p_information2 => p_information2
190 ,p_information3 => p_information3
191 ,p_information4 => p_information4
192 ,p_information5 => p_information5
193 ,p_information6 => p_information6
194 ,p_information7 => p_information7
195 ,p_information8 => p_information8
196 ,p_information9 => p_information9
197 ,p_information10 => p_information10
198 ,p_information11 => p_information11
199 ,p_information12 => p_information12
200 ,p_information13 => p_information13
201 ,p_information14 => p_information14
202 ,p_information15 => p_information15
203 ,p_information16 => p_information16
204 ,p_information17 => p_information17
205 ,p_information18 => p_information18
206 ,p_information19 => p_information19
207 ,p_information20 => p_information20
208 ,p_information21 => p_information21
209 ,p_information22 => p_information22
210 ,p_information23 => p_information23
211 ,p_information24 => p_information24
212 ,p_information25 => p_information25
213 ,p_information26 => p_information26
214 ,p_information27 => p_information27
215 ,p_information28 => p_information28
216 ,p_information29 => p_information29
217 ,p_information30 => p_information30
218 );
219 exception
220 when hr_api.cannot_find_prog_unit then
221 hr_api.cannot_find_prog_unit_error
222 (p_module_name => 'create_role'
223 ,p_hook_type => 'AP'
224 );
225 --
226 -- End of API User Hook for the after hook of create_role
227 --
228 end;
229 --
230 hr_utility.set_location(l_proc, 60);
231 --
232 -- When in validation only mode raise the Validate_Enabled exception
233 --
234 if p_validate then
235 raise hr_api.validate_enabled;
236 end if;
237 --
238 -- Set all output arguments
239 --
240 p_role_id := l_role_id;
241 p_object_version_number := l_object_version_number;
242 --
243 hr_utility.set_location(' Leaving:'||l_proc, 70);
244 --
245 exception
246 --
247 when hr_api.validate_enabled then
248 --
249 -- As the Validate_Enabled exception has been raised
250 -- we must rollback to the savepoint
251 --
252 ROLLBACK TO create_role;
253 --
254 -- Only set output warning arguments
255 -- (Any key or derived arguments must be set to null
256 -- when validation only mode is being used.)
257 --
258 p_role_id := null;
259 p_object_version_number := null;
260 hr_utility.set_location(' Leaving:'||l_proc, 80);
261 --
262 when others then
263 p_role_id := null;
264 p_object_version_number := null;
265 --
266 -- A validation or unexpected error has occured
267 --
268 ROLLBACK TO create_role;
269 raise;
270 --
271 end create_role;
272 -- ----------------------------------------------------------------------------
273 -- |------------------------< update_role >--- ------------------|
274 -- ----------------------------------------------------------------------------
275 --
276 procedure update_role
277 (p_validate in boolean
278 ,p_role_id in number
279 ,p_role_name in varchar2
280 ,p_role_type_cd in varchar2
281 ,p_enable_flag in varchar2
282 ,p_object_version_number in out nocopy number
283 ,p_business_group_id in number
284 ,p_effective_date in date
285 ,p_information_category in varchar2
286 ,p_information1 in varchar2
287 ,p_information2 in varchar2
288 ,p_information3 in varchar2
289 ,p_information4 in varchar2
290 ,p_information5 in varchar2
291 ,p_information6 in varchar2
292 ,p_information7 in varchar2
293 ,p_information8 in varchar2
294 ,p_information9 in varchar2
295 ,p_information10 in varchar2
296 ,p_information11 in varchar2
297 ,p_information12 in varchar2
298 ,p_information13 in varchar2
299 ,p_information14 in varchar2
300 ,p_information15 in varchar2
301 ,p_information16 in varchar2
302 ,p_information17 in varchar2
303 ,p_information18 in varchar2
304 ,p_information19 in varchar2
305 ,p_information20 in varchar2
306 ,p_information21 in varchar2
307 ,p_information22 in varchar2
308 ,p_information23 in varchar2
309 ,p_information24 in varchar2
310 ,p_information25 in varchar2
311 ,p_information26 in varchar2
312 ,p_information27 in varchar2
313 ,p_information28 in varchar2
314 ,p_information29 in varchar2
315 ,p_information30 in varchar2
316 ) is
317 --
318 -- Declare cursors and local variables
319 --
320 l_proc varchar2(72) := g_package||'update_role';
321 l_object_version_number pqh_roles.object_version_number%TYPE;
322 --
323 begin
324 --
325 hr_utility.set_location('Entering:'|| l_proc, 10);
326 --
327 -- Issue a savepoint if operating in validation only mode
328 --
329 savepoint update_role;
330 --
331 hr_utility.set_location(l_proc, 20);
332 --
333 -- Process Logic
334 --
335 l_object_version_number := p_object_version_number;
336 --
337 begin
338 --
339 -- Start of API User Hook for the before hook of update_role
340 --
341 pqh_roles_bk2.update_role_b
342 (
343 p_role_id => p_role_id
344 ,p_role_name => p_role_name
345 ,p_role_type_cd => p_role_type_cd
346 ,p_enable_flag => p_enable_flag
347 ,p_object_version_number => p_object_version_number
348 ,p_business_group_id => p_business_group_id
349 ,p_effective_date => trunc(p_effective_date)
350 ,p_information_category => p_information_category
351 ,p_information1 => p_information1
352 ,p_information2 => p_information2
353 ,p_information3 => p_information3
354 ,p_information4 => p_information4
355 ,p_information5 => p_information5
356 ,p_information6 => p_information6
357 ,p_information7 => p_information7
358 ,p_information8 => p_information8
359 ,p_information9 => p_information9
360 ,p_information10 => p_information10
361 ,p_information11 => p_information11
362 ,p_information12 => p_information12
363 ,p_information13 => p_information13
364 ,p_information14 => p_information14
365 ,p_information15 => p_information15
366 ,p_information16 => p_information16
367 ,p_information17 => p_information17
368 ,p_information18 => p_information18
369 ,p_information19 => p_information19
370 ,p_information20 => p_information20
371 ,p_information21 => p_information21
372 ,p_information22 => p_information22
373 ,p_information23 => p_information23
374 ,p_information24 => p_information24
375 ,p_information25 => p_information25
376 ,p_information26 => p_information26
377 ,p_information27 => p_information27
378 ,p_information28 => p_information28
379 ,p_information29 => p_information29
380 ,p_information30 => p_information30
381 );
382 exception
383 when hr_api.cannot_find_prog_unit then
384 hr_api.cannot_find_prog_unit_error
385 (p_module_name => 'update_role'
386 ,p_hook_type => 'BP'
387 );
388 --
389 -- End of API User Hook for the before hook of update_role
390 --
391 end;
392 --
393 pqh_rls_upd.upd
394 (
395 p_role_id => p_role_id
396 ,p_role_name => p_role_name
397 ,p_role_type_cd => p_role_type_cd
398 ,p_enable_flag => p_enable_flag
399 ,p_object_version_number => l_object_version_number
400 ,p_business_group_id => p_business_group_id
401 ,p_effective_date => trunc(p_effective_date)
402 ,p_information_category => p_information_category
403 ,p_information1 => p_information1
404 ,p_information2 => p_information2
405 ,p_information3 => p_information3
406 ,p_information4 => p_information4
407 ,p_information5 => p_information5
408 ,p_information6 => p_information6
409 ,p_information7 => p_information7
410 ,p_information8 => p_information8
411 ,p_information9 => p_information9
412 ,p_information10 => p_information10
413 ,p_information11 => p_information11
414 ,p_information12 => p_information12
415 ,p_information13 => p_information13
416 ,p_information14 => p_information14
417 ,p_information15 => p_information15
418 ,p_information16 => p_information16
419 ,p_information17 => p_information17
420 ,p_information18 => p_information18
421 ,p_information19 => p_information19
422 ,p_information20 => p_information20
423 ,p_information21 => p_information21
424 ,p_information22 => p_information22
425 ,p_information23 => p_information23
426 ,p_information24 => p_information24
427 ,p_information25 => p_information25
428 ,p_information26 => p_information26
429 ,p_information27 => p_information27
430 ,p_information28 => p_information28
431 ,p_information29 => p_information29
432 ,p_information30 => p_information30
433 );
434 --
435 begin
436 --
437 -- Start of API User Hook for the after hook of update_role
438 --
439 pqh_roles_bk2.update_role_a
440 (
441 p_role_id => p_role_id
442 ,p_role_name => p_role_name
443 ,p_role_type_cd => p_role_type_cd
444 ,p_enable_flag => p_enable_flag
445 ,p_object_version_number => l_object_version_number
446 ,p_business_group_id => p_business_group_id
447 ,p_effective_date => trunc(p_effective_date)
448 ,p_information_category => p_information_category
449 ,p_information1 => p_information1
450 ,p_information2 => p_information2
451 ,p_information3 => p_information3
452 ,p_information4 => p_information4
453 ,p_information5 => p_information5
454 ,p_information6 => p_information6
455 ,p_information7 => p_information7
456 ,p_information8 => p_information8
457 ,p_information9 => p_information9
458 ,p_information10 => p_information10
459 ,p_information11 => p_information11
460 ,p_information12 => p_information12
461 ,p_information13 => p_information13
462 ,p_information14 => p_information14
463 ,p_information15 => p_information15
464 ,p_information16 => p_information16
465 ,p_information17 => p_information17
466 ,p_information18 => p_information18
467 ,p_information19 => p_information19
468 ,p_information20 => p_information20
469 ,p_information21 => p_information21
470 ,p_information22 => p_information22
471 ,p_information23 => p_information23
472 ,p_information24 => p_information24
473 ,p_information25 => p_information25
474 ,p_information26 => p_information26
475 ,p_information27 => p_information27
476 ,p_information28 => p_information28
477 ,p_information29 => p_information29
478 ,p_information30 => p_information30
479 );
480 exception
481 when hr_api.cannot_find_prog_unit then
482 hr_api.cannot_find_prog_unit_error
483 (p_module_name => 'update_role'
484 ,p_hook_type => 'AP'
485 );
486 --
487 -- End of API User Hook for the after hook of update_role
488 --
489 end;
490 --
491 hr_utility.set_location(l_proc, 60);
492 --
493 -- When in validation only mode raise the Validate_Enabled exception
494 --
495 if p_validate then
496 raise hr_api.validate_enabled;
497 end if;
498 --
499 -- Set all output arguments
500 --
501 p_object_version_number := l_object_version_number;
502 --
503 hr_utility.set_location(' Leaving:'||l_proc, 70);
504 --
505 exception
506 --
507 when hr_api.validate_enabled then
508 --
509 -- As the Validate_Enabled exception has been raised
510 -- we must rollback to the savepoint
511 --
512 ROLLBACK TO update_role;
513 --
514 -- Only set output warning arguments
515 -- (Any key or derived arguments must be set to null
516 -- when validation only mode is being used.)
517 --
518 hr_utility.set_location(' Leaving:'||l_proc, 80);
519 --
520 when others then
521 p_object_version_number := l_object_version_number;
522 --
523 -- A validation or unexpected error has occured
524 --
525 ROLLBACK TO update_role;
526 raise;
527 --
528 end update_role;
529 -- ----------------------------------------------------------------------------
530 -- |------------------------< delete_role >----------------------|
531 -- ----------------------------------------------------------------------------
532 --
533 procedure delete_role
534 (p_validate in boolean
535 ,p_role_id in number
536 ,p_object_version_number in number
537 ,p_effective_date in date
538 ) is
539 --
540 -- Declare cursors and local variables
541 --
542 l_proc varchar2(72) := g_package||'delete_role';
543 l_object_version_number pqh_roles.object_version_number%TYPE;
544 --
545 begin
546 --
547 hr_utility.set_location('Entering:'|| l_proc, 10);
548 --
549 -- Issue a savepoint if operating in validation only mode
550 --
551 savepoint delete_role;
552 --
553 hr_utility.set_location(l_proc, 20);
554 --
555 -- Process Logic
556 --
557 l_object_version_number := p_object_version_number;
558 --
559 --
560 begin
561 --
562 -- Start of API User Hook for the before hook of delete_role
563 --
564 pqh_roles_bk3.delete_role_b
565 (
566 p_role_id => p_role_id
567 ,p_object_version_number => p_object_version_number
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 => 'delete_role'
574 ,p_hook_type => 'BP'
575 );
576 --
577 -- End of API User Hook for the before hook of delete_role
578 --
579 end;
580 --
581 pqh_rls_del.del
582 (
583 p_role_id => p_role_id
584 ,p_object_version_number => l_object_version_number
585 ,p_effective_date => p_effective_date
586 );
587 --
588 begin
589 --
590 -- Start of API User Hook for the after hook of delete_role
591 --
592 pqh_roles_bk3.delete_role_a
593 (
594 p_role_id => p_role_id
595 ,p_object_version_number => l_object_version_number
596 ,p_effective_date => trunc(p_effective_date)
597 );
598 exception
599 when hr_api.cannot_find_prog_unit then
600 hr_api.cannot_find_prog_unit_error
601 (p_module_name => 'delete_role'
602 ,p_hook_type => 'AP'
603 );
604 --
605 -- End of API User Hook for the after hook of delete_role
606 --
607 end;
608 --
609 hr_utility.set_location(l_proc, 60);
610 --
611 -- When in validation only mode raise the Validate_Enabled exception
612 --
613 if p_validate then
614 raise hr_api.validate_enabled;
615 end if;
616 --
617 hr_utility.set_location(' Leaving:'||l_proc, 70);
618 --
619 exception
620 --
621 when hr_api.validate_enabled then
622 --
623 -- As the Validate_Enabled exception has been raised
624 -- we must rollback to the savepoint
625 --
626 ROLLBACK TO delete_role;
627 --
628 -- Only set output warning arguments
629 -- (Any key or derived arguments must be set to null
630 -- when validation only mode is being used.)
631 --
632 --
633 when others then
634 --
635 -- A validation or unexpected error has occured
636 --
637 ROLLBACK TO delete_role;
638 raise;
639 --
640 end delete_role;
641 --
642 --
643 end pqh_roles_api;