1 PACKAGE JTF_UM_ROLE_VERIFICATION AUTHID CURRENT_USER as
2 /* $Header: JTFUMRVS.pls 115.2 2002/11/21 22:58:09 kching ship $ */
3 -- Start of Comments
4 -- Package name : JTF_UM_ROLE_VERIFICATION
5 -- Purpose : verify if given role exists in UM and updating principal_id.
6 -- History :
7
8 /**
9 * Procedure : UPDATE_AUTH_PRINCIPAL_ID
10 * Type : Private
11 * Pre_reqs :
12 * Description : Updates the existing UM records with the old_auth_principal_id to
13 * the new_auth_principal_id
14 * Parameters
15 * input parameters : old_auth_principal_id number
16 * new_auth_principal_id number
17 * Other Comments :
18 */
19 procedure UPDATE_AUTH_PRINCIPAL_ID(old_auth_principal_id in number,
20 new_auth_principal_id in number );
21
22
23 /**
24 * Procedure : IS_AUTH_PRINCIPAL_REFERRED
25 * Type : Private
26 * Pre_reqs :
27 * Description : Looks for existence of input auth_principal_id or auth_principal_name in
28 * UM tables and if so, returns "E" in x_return_status with appropriate message that the
29 * role cannot be deleted. If the principal does not exist anywhere in the usertype/enrollments,
30 * returns "S" in the parameter x_return_status
31 * Parameters
32 * input parameters : auth_principal_name varchar2
33 * output parameters : x_return_status varchar2
34 * Errors : If the principal exists in UM, sends appropriate message back as part of
35 * error stack
36 * Other Comments :
37 */
38 procedure IS_AUTH_PRINCIPAL_REFERRED(
39 auth_principal_name in varchar2,
40 -- x_if_referred_flag out NOCOPY varchar2,
41 x_return_status out NOCOPY varchar2,
42 x_msg_count out NOCOPY number,
43 x_msg_data out NOCOPY varchar2
44 );
45 End JTF_UM_ROLE_VERIFICATION;