[Home] [Help]
PACKAGE BODY: APPS.JTF_RS_ROLES_PUB
Source
1 PACKAGE BODY jtf_rs_roles_pub AS
2 /* $Header: jtfrspob.pls 120.0 2005/05/11 08:21:18 appldev ship $ */
3
4 /*****************************************************************************************
5 This package body defines the procedures for managing resource Roles, like
6 create, update and delete resource Roles.
7 Its main procedures are as following:
8 Create Resource Roles
9 Update Resource Roles
10 Delete Resource Roles
11 This package valoidates the input parameters to these procedures and then
12 to do business validations and to do actual inserts, updates and deletes into tables.
13 ******************************************************************************************/
14
15 --Package variables.
16
17 G_PKG_NAME VARCHAR2(30) := 'JTF_RS_ROLES_PUB';
18
19 --Procedure to create the resource roles based on input values passed by calling routines
20
21 PROCEDURE create_rs_resource_roles (
22 P_API_VERSION IN NUMBER,
23 P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
24 P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
25 P_ROLE_TYPE_CODE IN JTF_RS_ROLES_B.ROLE_TYPE_CODE%TYPE,
26 P_ROLE_CODE IN JTF_RS_ROLES_B.ROLE_CODE%TYPE,
27 P_ROLE_NAME IN JTF_RS_ROLES_TL.ROLE_NAME%TYPE,
28 P_ROLE_DESC IN JTF_RS_ROLES_TL.ROLE_DESC%TYPE DEFAULT NULL,
29 P_ACTIVE_FLAG IN JTF_RS_ROLES_B.ACTIVE_FLAG%TYPE DEFAULT 'Y',
30 P_SEEDED_FLAG IN JTF_RS_ROLES_B.SEEDED_FLAG%TYPE DEFAULT 'N',
31 P_MEMBER_FLAG IN JTF_RS_ROLES_B.MEMBER_FLAG%TYPE DEFAULT 'N',
32 P_ADMIN_FLAG IN JTF_RS_ROLES_B.ADMIN_FLAG%TYPE DEFAULT 'N',
33 P_LEAD_FLAG IN JTF_RS_ROLES_B.LEAD_FLAG%TYPE DEFAULT 'N',
34 P_MANAGER_FLAG IN JTF_RS_ROLES_B.MANAGER_FLAG%TYPE DEFAULT 'N',
35 X_RETURN_STATUS OUT NOCOPY VARCHAR2,
36 X_MSG_COUNT OUT NOCOPY NUMBER,
37 X_MSG_DATA OUT NOCOPY VARCHAR2,
38 X_ROLE_ID OUT NOCOPY JTF_RS_ROLES_B.ROLE_ID%TYPE
39 )
40 IS
41
42 l_api_version CONSTANT NUMBER := 1.0;
43 l_api_name CONSTANT VARCHAR2(30) := 'CREATE_RS_RESOURCE_ROLES';
44 l_role_type_code jtf_rs_roles_vl.role_type_code%type := p_role_type_code;
45 l_role_code jtf_rs_roles_vl.role_code%type := p_role_code;
46 l_role_name jtf_rs_roles_vl.role_name%type := p_role_name;
47 l_role_desc jtf_rs_roles_vl.role_desc%type := p_role_desc;
48 l_active_flag jtf_rs_roles_vl.active_flag%type := p_active_flag;
49 l_seeded_flag jtf_rs_roles_vl.seeded_flag%type := p_seeded_flag;
50 l_member_flag jtf_rs_roles_vl.member_flag%type := p_member_flag;
51 l_admin_flag jtf_rs_roles_vl.admin_flag%type := p_admin_flag;
52 l_lead_flag jtf_rs_roles_vl.lead_flag%type := p_lead_flag;
53 l_manager_flag jtf_rs_roles_vl.manager_flag%type := p_manager_flag;
54
55 BEGIN
56
57 SAVEPOINT create_rs_resource_roles_pub;
58 x_return_status := fnd_api.g_ret_sts_success;
59 --DBMS_OUTPUT.put_line(' Started Create RS Resource Roles Pub ');
60
61 IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
62 RAISE fnd_api.g_exc_unexpected_error;
63 END IF;
64
65 IF fnd_api.to_boolean(p_init_msg_list) THEN
66 fnd_msg_pub.initialize;
67 END IF;
68
69 --Put in all the Validations here
70
71 --Call the Create Resource Role Private API
72
73 jtf_rs_roles_pvt.create_rs_resource_roles (
74 P_API_VERSION => 1,
75 P_INIT_MSG_LIST => fnd_api.g_false,
76 P_COMMIT => fnd_api.g_false,
77 P_ROLE_TYPE_CODE => l_role_type_code,
78 P_ROLE_CODE => l_role_code,
79 P_ROLE_NAME => l_role_name,
80 P_ROLE_DESC => l_role_desc,
81 P_ACTIVE_FLAG => l_active_flag,
82 P_SEEDED_FLAG => l_seeded_flag,
83 P_MEMBER_FLAG => l_member_flag,
84 P_ADMIN_FLAG => l_admin_flag,
85 P_LEAD_FLAG => l_lead_flag,
86 P_MANAGER_FLAG => l_manager_flag,
87 X_RETURN_STATUS => x_return_status,
88 X_MSG_COUNT => x_msg_count,
89 X_MSG_DATA => x_msg_data,
90 X_ROLE_ID => x_role_id
91 );
92
93 IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
94 --dbms_output.put_line('Failed status from call to private procedure');
95 RAISE fnd_api.g_exc_unexpected_error;
96 END IF;
97
98 IF fnd_api.to_boolean(p_commit) THEN
99 COMMIT WORK;
100 END IF;
101
102 fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
103
104 EXCEPTION
105 WHEN fnd_api.g_exc_unexpected_error THEN
106 --DBMS_OUTPUT.put_line (' ========================================== ');
107 --DBMS_OUTPUT.put_line ('=========== Raised Unexpected Error =============== ');
108 ROLLBACK TO create_rs_resource_roles_pub;
109 x_return_status := fnd_api.g_ret_sts_unexp_error;
110 fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
111 WHEN OTHERS THEN
112 --DBMS_OUTPUT.put_line (' ========================================== ');
113 --DBMS_OUTPUT.put_line (' =========== Raised Others in Create Resource Role Pub ============= ');
114 --DBMS_OUTPUT.put_line (SQLCODE || SQLERRM);
115 ROLLBACK TO create_rs_resource_roles_pub;
116 x_return_status := fnd_api.g_ret_sts_unexp_error;
117 fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
118
119 END create_rs_resource_roles;
120
121 --Procedure to update the resource Roles based on input values passed by calling routines
122
123 PROCEDURE update_rs_resource_roles (
124 P_API_VERSION IN NUMBER,
125 P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
126 P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
127 P_ROLE_ID IN JTF_RS_ROLES_B.ROLE_ID%TYPE,
128 P_ROLE_TYPE_CODE IN JTF_RS_ROLES_B.ROLE_TYPE_CODE%TYPE DEFAULT FND_API.G_MISS_CHAR,
129 P_ROLE_CODE IN JTF_RS_ROLES_B.ROLE_CODE%TYPE DEFAULT FND_API.G_MISS_CHAR,
130 P_ROLE_NAME IN JTF_RS_ROLES_TL.ROLE_NAME%TYPE DEFAULT FND_API.G_MISS_CHAR,
131 P_ROLE_DESC IN JTF_RS_ROLES_TL.ROLE_DESC%TYPE DEFAULT FND_API.G_MISS_CHAR,
132 P_SEEDED_FLAG IN JTF_RS_ROLES_B.SEEDED_FLAG%TYPE DEFAULT FND_API.G_MISS_CHAR,
133 P_ACTIVE_FLAG IN JTF_RS_ROLES_B.ACTIVE_FLAG%TYPE DEFAULT FND_API.G_MISS_CHAR,
134 P_MEMBER_FLAG IN JTF_RS_ROLES_B.MEMBER_FLAG%TYPE DEFAULT FND_API.G_MISS_CHAR,
135 P_ADMIN_FLAG IN JTF_RS_ROLES_B.ADMIN_FLAG%TYPE DEFAULT FND_API.G_MISS_CHAR,
136 P_LEAD_FLAG IN JTF_RS_ROLES_B.LEAD_FLAG%TYPE DEFAULT FND_API.G_MISS_CHAR,
137 P_MANAGER_FLAG IN JTF_RS_ROLES_B.MANAGER_FLAG%TYPE DEFAULT FND_API.G_MISS_CHAR,
138 P_OBJECT_VERSION_NUMBER IN OUT NOCOPY JTF_RS_ROLES_B.OBJECT_VERSION_NUMBER%TYPE,
139 X_RETURN_STATUS OUT NOCOPY VARCHAR2,
140 X_MSG_COUNT OUT NOCOPY NUMBER,
141 X_MSG_DATA OUT NOCOPY VARCHAR2
142 )
143 IS
144 l_api_version CONSTANT NUMBER := 1.0;
145 l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_RS_RESOURCE_ROLES';
146 l_role_id jtf_rs_roles_vl.role_id%type := p_role_id;
147 l_role_code jtf_rs_roles_vl.role_code%type := p_role_code;
148 l_role_type_code jtf_rs_roles_vl.role_type_code%type := p_role_type_code;
149 l_role_name jtf_rs_roles_vl.role_name%type := p_role_name;
150 l_role_desc jtf_rs_roles_vl.role_desc%type := p_role_desc;
151 l_active_flag jtf_rs_roles_vl.active_flag%type := p_active_flag;
152 l_seeded_flag jtf_rs_roles_vl.seeded_flag%type := p_seeded_flag;
153 l_member_flag jtf_rs_roles_vl.member_flag%type := p_member_flag;
154 l_admin_flag jtf_rs_roles_vl.admin_flag%type := p_admin_flag;
155 l_lead_flag jtf_rs_roles_vl.lead_flag%type := p_lead_flag;
156 l_manager_flag jtf_rs_roles_vl.manager_flag%type := p_manager_flag;
157 l_object_version_number jtf_rs_roles_vl.object_version_number%type := p_object_version_number;
158
159 BEGIN
160 SAVEPOINT update_rs_resource_roles_pub;
161 x_return_status := fnd_api.g_ret_sts_success;
162 --DBMS_OUTPUT.put_line(' Started Update Resource Roles Pub ');
163 IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
164 RAISE fnd_api.g_exc_unexpected_error;
165 END IF;
166 IF fnd_api.to_boolean(p_init_msg_list) THEN
167 fnd_msg_pub.initialize;
168 END IF;
169
170 --Put Validations here
171
172 --Call the Update Resource Private API
173
174 jtf_rs_roles_pvt.update_rs_resource_roles (
175 P_API_VERSION => 1,
176 P_INIT_MSG_LIST => fnd_api.g_false,
177 P_COMMIT => fnd_api.g_false,
178 P_ROLE_ID => l_role_id,
179 P_ROLE_CODE => l_role_code,
180 P_ROLE_TYPE_CODE => l_role_type_code,
181 P_ROLE_NAME => l_role_name,
182 P_ROLE_DESC => l_role_desc,
183 P_ACTIVE_FLAG => l_active_flag,
184 P_SEEDED_FLAG => l_seeded_flag,
185 P_MEMBER_FLAG => l_member_flag,
186 P_ADMIN_FLAG => l_admin_flag,
187 P_LEAD_FLAG => l_lead_flag,
188 P_MANAGER_FLAG => l_manager_flag,
189 P_OBJECT_VERSION_NUMBER=> l_object_version_number,
190 X_RETURN_STATUS => x_return_status,
191 X_MSG_COUNT => x_msg_count,
192 X_MSG_DATA => x_msg_data
193 );
194
195 IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
196 --dbms_output.put_line('Failed status from call to private procedure');
197 RAISE fnd_api.g_exc_unexpected_error;
198 END IF;
199
200 IF fnd_api.to_boolean(p_commit) THEN
201 COMMIT WORK;
202 END IF;
203
204 fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
205
206 EXCEPTION
207 WHEN fnd_api.g_exc_unexpected_error THEN
208 --DBMS_OUTPUT.put_line (' ========================================== ');
209 --DBMS_OUTPUT.put_line ('=========== Raised Unexpected Error =============== ');
210 ROLLBACK TO update_rs_resource_roles_pub;
211 x_return_status := fnd_api.g_ret_sts_unexp_error;
212 fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
213 WHEN OTHERS THEN
214 --DBMS_OUTPUT.put_line (' ========================================== ');
215 --DBMS_OUTPUT.put_line (' =========== Raised Others in Update Resource Role Pub ============= ');
216 --DBMS_OUTPUT.put_line (SQLCODE || SQLERRM);
217 ROLLBACK TO update_rs_resource_roles_pub;
218 x_return_status := fnd_api.g_ret_sts_unexp_error;
219 fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
220
221 END update_rs_resource_roles;
222
223
224 /* Procedure to delete the resource roles. */
225
226 PROCEDURE delete_rs_resource_roles
227 (P_API_VERSION IN NUMBER,
228 P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
229 P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
230 P_ROLE_ID IN JTF_RS_ROLES_B.ROLE_ID%TYPE,
231 P_ROLE_CODE IN JTF_RS_ROLES_B.ROLE_CODE%TYPE,
232 P_OBJECT_VERSION_NUMBER IN JTF_RS_ROLES_B.OBJECT_VERSION_NUMBER%TYPE,
233 X_RETURN_STATUS OUT NOCOPY VARCHAR2,
234 X_MSG_COUNT OUT NOCOPY NUMBER,
235 X_MSG_DATA OUT NOCOPY VARCHAR2
236 ) IS
237
238 l_api_version CONSTANT NUMBER := 1.0;
239 l_api_name CONSTANT VARCHAR2(30) := 'DELETE_RS_RESOURCE_ROLES';
240 l_role_id jtf_rs_roles_vl.role_id%type := p_role_id;
241 l_role_code jtf_rs_roles_vl.role_code%type := p_role_code;
242 l_object_version_number jtf_rs_roles_vl.object_version_number%type := p_object_version_number;
243
244 BEGIN
245 SAVEPOINT delete_rs_resource_roles_pub;
246 x_return_status := fnd_api.g_ret_sts_success;
247 --DBMS_OUTPUT.put_line(' Started Delete Resource Roles Pub ');
248 IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
249 RAISE fnd_api.g_exc_unexpected_error;
250 END IF;
251 IF fnd_api.to_boolean(p_init_msg_list) THEN
252 fnd_msg_pub.initialize;
253 END IF;
254
255 --Put all Validations here
256
257 --Call to the Delete Resource Role Private API
258
259 jtf_rs_roles_pvt.delete_rs_resource_roles (
260 P_API_VERSION => 1,
261 P_INIT_MSG_LIST => fnd_api.g_false,
262 P_COMMIT => fnd_api.g_false,
263 P_ROLE_ID => l_role_id,
264 P_ROLE_CODE => l_role_code,
265 P_OBJECT_VERSION_NUMBER=> l_object_version_number,
266 X_RETURN_STATUS => x_return_status,
267 X_MSG_COUNT => x_msg_count,
268 X_MSG_DATA => x_msg_data
269 );
270
271 IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
272 --dbms_output.put_line('Failed status from call to private procedure');
273 RAISE fnd_api.g_exc_unexpected_error;
274 END IF;
275
276 IF fnd_api.to_boolean(p_commit) THEN
277 COMMIT WORK;
278 END IF;
279
280 fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
281
282 EXCEPTION
283 WHEN fnd_api.g_exc_unexpected_error THEN
284 --DBMS_OUTPUT.put_line (' ========================================== ');
285 --DBMS_OUTPUT.put_line ('=========== Raised Unexpected Error =============== ');
286 ROLLBACK TO delete_rs_resource_roles_pub;
287 x_return_status := fnd_api.g_ret_sts_unexp_error;
288 fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
289 WHEN OTHERS THEN
290 --DBMS_OUTPUT.put_line (' ========================================== ');
291 --DBMS_OUTPUT.put_line (' =========== Raised Others in Delete Resource Role Pub ============= ');
292 --DBMS_OUTPUT.put_line (SQLCODE || SQLERRM);
293 ROLLBACK TO delete_rs_resource_roles_pub;
294 x_return_status := fnd_api.g_ret_sts_unexp_error;
295 fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
296
297 END delete_rs_resource_roles;
298
299 END jtf_rs_roles_pub;