1 PACKAGE BODY jtf_resource_sswa_utl AS
2 /* $Header: jtfrsswb.pls 120.0 2005/05/11 08:22:02 appldev noship $ */
3
4 /*****************************************************************************************
5 This package body defines all the routines which are declared in the package
6 specification.
7 ******************************************************************************************/
8
9 /* Function to check if user has update access */
10
11 Function Validate_Update_Access( p_resource_id number,
12 p_resource_user_id number default null
13 ) Return varchar2
14 IS
15 l_profile_value VARCHAR2(10);
16 l_user_id number;
17 l_resource_user_id number;
18
19 BEGIN
20
21 l_profile_value := nvl(FND_PROFILE.VALUE('JTF_RS_EMP_RES_UPD_ACCESS'),'SELF');
22 l_user_id := nvl(FND_PROFILE.VALUE('USER_ID'),-1);
23
24 IF (l_profile_value = 'SELF') THEN
25 IF (p_resource_user_id IS NULL) THEN
26 BEGIN
27 SELECT nvl(user_id,0)
28 INTO l_resource_user_id
29 FROM jtf_rs_resource_extns
30 WHERE resource_id = p_resource_id;
31 EXCEPTION WHEN NO_DATA_FOUND THEN
32 l_resource_user_id := 0;
33 WHEN OTHERS THEN
34 l_resource_user_id := -10;
35 END;
36 ELSE
37 l_resource_user_id := p_resource_user_id;
38 END IF;
39
40 IF l_resource_user_id = l_user_id THEN
41 Return 'SELF';
42 ELSE
43 Return 'OTHERS';
44 END IF;
45
46 ELSIF (l_profile_value = 'ANY') THEN
47 Return 'ANY';
48 ELSE
49 Return 'OTHERS';
50 END IF;
51
52 END Validate_Update_Access;
53
54 END jtf_resource_sswa_utl;