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