[Home] [Help]
PACKAGE BODY: APPS.CCT_RESOURCE_ASSIGNMENT
Source
1 PACKAGE BODY CCT_RESOURCE_ASSIGNMENT as
2 /* $Header: cctrsasb.pls 120.0 2005/06/02 09:30:56 appldev noship $ */
3
4 MODULE_NAME CONSTANT VARCHAR2(50) := 'CCT_RESOURCE_ASSIGNMENT';
5
6
7
8
9 PROCEDURE REVOKE_RESPONSIBILITY
10 (
11 X_USER_ID NUMBER,
12 X_RESPONSIBILITY_ID NUMBER,
13 X_APPLICATION_ID NUMBER
14 )
15 IS
16 l_def_resp_id NUMBER;
17 l_def_app_id NUMBER;
18 l_def_resp_key FND_RESPONSIBILITY_VL.RESPONSIBILITY_KEY%TYPE;
19 l_def_resp_name FND_RESPONSIBILITY_VL.RESPONSIBILITY_NAME%TYPE;
20
21 BEGIN
22 IF Fnd_User_Resp_Groups_Api.Assignment_Exists(
23 user_id => X_USER_ID,
24 responsibility_id => X_RESPONSIBILITY_ID,
25 responsibility_application_id => X_APPLICATION_ID
26 ) THEN
27
28 UPDATE FND_USER_RESP_GROUPS SET END_DATE = SYSDATE
29 WHERE USER_ID = X_USER_ID
30 AND RESPONSIBILITY_ID = X_RESPONSIBILITY_ID
31 AND RESPONSIBILITY_APPLICATION_ID = X_APPLICATION_ID;
32
33
34
35 END IF;
36
37 END REVOKE_RESPONSIBILITY;
38
39 PROCEDURE ASSIGN_RESPONSIBILITY
40 (
41 X_USER_ID NUMBER,
42 X_RESPONSIBILITY_ID NUMBER,
43 X_APPLICATION_ID NUMBER
44 )
45 IS
46 BEGIN
47
48 Fnd_User_Resp_Groups_Api.UPLOAD_ASSIGNMENT(
49 user_id => X_USER_ID,
50 responsibility_id => X_RESPONSIBILITY_ID,
51 responsibility_application_id => X_APPLICATION_ID,
52 start_date => sysdate,
53 end_date => null,
54 description => null );
55
56 END ASSIGN_RESPONSIBILITY;
57
58
59 PROCEDURE ASSIGN_RESPONSIBILITY
60 (
61 X_USER_ID NUMBER,
62 X_RESPONSIBILITY_KEY VARCHAR2
63 )
64 IS
65
66 p_responsibility_id NUMBER;
67 p_application_id NUMBER;
68 CURSOR RESP_KEY
69 IS
70 SELECT RESPONSIBILITY_ID, APPLICATION_ID
71 FROM FND_RESPONSIBILITY_VL
72 WHERE RESPONSIBILITY_KEY = X_RESPONSIBILITY_KEY;
73 BEGIN
74
75 OPEN RESP_KEY;
76
77 FETCH RESP_KEY INTO p_responsibility_id, p_application_id;
78
79 CLOSE RESP_KEY;
80
81 IF NVL(p_responsibility_id,0) <> 0 THEN
82
83 ASSIGN_RESPONSIBILITY
84 (
85 X_USER_ID => X_USER_ID,
86 X_RESPONSIBILITY_ID => p_responsibility_id,
87 X_APPLICATION_ID => p_application_id );
88 END IF;
89
90 END ASSIGN_RESPONSIBILITY;
91
92 PROCEDURE REVOKE_RESPONSIBILITY
93 (
94 X_USER_ID NUMBER,
95 X_RESPONSIBILITY_KEY VARCHAR2
96 )
97 IS
98
99 p_responsibility_id NUMBER;
100 p_application_id NUMBER;
101 CURSOR RESP_KEY_ID IS
102 SELECT RESPONSIBILITY_ID, APPLICATION_ID
103 FROM FND_RESPONSIBILITY_VL
104 WHERE RESPONSIBILITY_KEY = X_RESPONSIBILITY_KEY;
105 BEGIN
106
107 OPEN RESP_KEY_ID;
108
109 FETCH RESP_KEY_ID INTO p_responsibility_id, p_application_id;
110
111 CLOSE RESP_KEY_ID;
112
113 IF NVL(p_responsibility_id,0) <> 0 THEN
114
115 REVOKE_RESPONSIBILITY
116 (
117 X_USER_ID => X_USER_ID,
118 X_RESPONSIBILITY_ID => p_responsibility_id,
119 X_APPLICATION_ID => p_application_id
120 );
121 END IF;
122
123 END REVOKE_RESPONSIBILITY;
124
125
126 END CCT_RESOURCE_ASSIGNMENT;
127