[Home] [Help]
18: -- NOTES
19: -- HISTORY
20: -- 6/4/2003 MUMU PANDE CREATION
21: -- 6/12/2003 KARTHI MUTHUSWAMY Modified the procedure to obtain the role name
22: -- and role display name based on FND User Id.
23: -- 6/25/2003 KARTHI MUTHUSWAMY Modified the procedure to obtain the Employee Id
24: -- from FND_USER.USER_ID
25: -- 06/30/2003 KARTHI MUTHUSWAMY Changed p_workflowprocess to p_workflow_process
26: -- End of Comments
20: -- 6/4/2003 MUMU PANDE CREATION
21: -- 6/12/2003 KARTHI MUTHUSWAMY Modified the procedure to obtain the role name
22: -- and role display name based on FND User Id.
23: -- 6/25/2003 KARTHI MUTHUSWAMY Modified the procedure to obtain the Employee Id
24: -- from FND_USER.USER_ID
25: -- 06/30/2003 KARTHI MUTHUSWAMY Changed p_workflowprocess to p_workflow_process
26: -- End of Comments
27: -------------------------------------------------------------------------------
28: PROCEDURE Get_User_Role(
29: p_user_id IN NUMBER,
30: x_role_name OUT NOCOPY VARCHAR2,
31: x_role_display_name OUT NOCOPY VARCHAR2 ,
32: x_return_status OUT NOCOPY VARCHAR2) IS
33: l_employee_id FND_USER.EMPLOYEE_ID%TYPE ;
34: BEGIN
35: x_return_status := FND_API.G_RET_STS_SUCCESS;
36:
37: /*
34: BEGIN
35: x_return_status := FND_API.G_RET_STS_SUCCESS;
36:
37: /*
38: -- The parameter p_user_id is the FND_USER.USER_ID
39: -- Get the Person Id (which is the Employee Id) for this USER_ID
40: begin
41: select employee_id
42: into l_employee_id
39: -- Get the Person Id (which is the Employee Id) for this USER_ID
40: begin
41: select employee_id
42: into l_employee_id
43: from FND_USER
44: where user_id = p_user_id ;
45: exception
46: when no_data_found
47: then
79: x_return_status OUT NOCOPY VARCHAR2)
80: IS
81: CURSOR c_person_id IS
82: select employee_id
83: from FND_USER
84: where user_id = p_user_id ;
85: -- Obtain and populate the Role Name and Display Name from the USER ID
86: BEGIN
87: x_return_status := FND_API.G_RET_STS_SUCCESS;