1 package body jtf_role_verification as
2 /* $Header: JTFSERVB.pls 115.3 2004/10/19 03:06:30 sfazil noship $ */
3 --
4 -- Start of Package Globals
5
6 -- End of Package Globals
7 --
8 -------------------------------------------------------------------------------
9 --
10 procedure update_auth_principal_id(
11 old_auth_principal_id in number
12 , new_auth_principal_id in number
13 ) is
14
15 l_plsql_block varchar2(256);
16
17 package_not_found exception;
18 line_error exception;
19 program_not_found exception;
20 package_body_error exception;
21 package_not_valid exception;
22
23 pragma exception_init(package_not_found, -6550);
24 pragma exception_init(line_error, -6512);
25 pragma exception_init(program_not_found, -6508);
26 pragma exception_init(package_body_error, -4063);
27 pragma exception_init(package_not_valid, -4068);
28
29 begin
30
31 l_plsql_block :=
32 'begin ' ||
33 ' jtf_um_role_verification.update_auth_principal_id(:a, :b);' ||
34 'end;';
35 execute immediate l_plsql_block using old_auth_principal_id,
36 new_auth_principal_id;
37
38 exception
39 when package_not_found then
40 -- If there is a logging routine log a message
41 null;
42 when line_error then
43 -- If there is a logging routine log a message
44 null;
45 when program_not_found then
46 -- If there is a logging routine log a message
47 null;
48 when package_body_error then
49 -- If there is a logging routine log a message
50 null;
51 when package_not_valid then
52 -- If there is a logging routine log a message
53 null;
54
55 end;
56 --
57 -------------------------------------------------------------------------------
58 --
59 end jtf_role_verification;