[Home] [Help]
120:
121: BEGIN
122:
123: SAVEPOINT create_rs_resource_roles_pvt;
124: x_return_status := fnd_api.g_ret_sts_success;
125: --DBMS_OUTPUT.put_line(' Started Create RS Resource Roles Pvt ');
126:
127: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
128: RAISE fnd_api.g_exc_unexpected_error;
123: SAVEPOINT create_rs_resource_roles_pvt;
124: x_return_status := fnd_api.g_ret_sts_success;
125: --DBMS_OUTPUT.put_line(' Started Create RS Resource Roles Pvt ');
126:
127: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
128: RAISE fnd_api.g_exc_unexpected_error;
129: END IF;
130:
131: IF fnd_api.to_boolean(p_init_msg_list) THEN
124: x_return_status := fnd_api.g_ret_sts_success;
125: --DBMS_OUTPUT.put_line(' Started Create RS Resource Roles Pvt ');
126:
127: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
128: RAISE fnd_api.g_exc_unexpected_error;
129: END IF;
130:
131: IF fnd_api.to_boolean(p_init_msg_list) THEN
132: fnd_msg_pub.initialize;
127: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
128: RAISE fnd_api.g_exc_unexpected_error;
129: END IF;
130:
131: IF fnd_api.to_boolean(p_init_msg_list) THEN
132: fnd_msg_pub.initialize;
133: END IF;
134:
135: --Make the pre processing call to the user hooks
155: X_RETURN_STATUS => x_return_status,
156: X_MSG_COUNT => x_msg_count,
157: X_MSG_DATA => x_msg_data
158: );
159: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
160: x_return_status := fnd_api.g_ret_sts_unexp_error;
161: fnd_message.set_name('JTF', 'JTF_RS_ERR_PRE_CUST_USR_HOOK');
162: fnd_msg_pub.add;
163: RAISE fnd_api.g_exc_unexpected_error;
156: X_MSG_COUNT => x_msg_count,
157: X_MSG_DATA => x_msg_data
158: );
159: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
160: x_return_status := fnd_api.g_ret_sts_unexp_error;
161: fnd_message.set_name('JTF', 'JTF_RS_ERR_PRE_CUST_USR_HOOK');
162: fnd_msg_pub.add;
163: RAISE fnd_api.g_exc_unexpected_error;
164: END IF;
159: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
160: x_return_status := fnd_api.g_ret_sts_unexp_error;
161: fnd_message.set_name('JTF', 'JTF_RS_ERR_PRE_CUST_USR_HOOK');
162: fnd_msg_pub.add;
163: RAISE fnd_api.g_exc_unexpected_error;
164: END IF;
165: END IF;
166:
167: --Pre Call to the Vertical Type User Hook
185: X_RETURN_STATUS => x_return_status,
186: X_MSG_COUNT => x_msg_count,
187: X_MSG_DATA => x_msg_data
188: );
189: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
190: x_return_status := fnd_api.g_ret_sts_unexp_error;
191: fnd_message.set_name('JTF', 'JTF_RS_ERR_PRE_VERT_USR_HOOK');
192: fnd_msg_pub.add;
193: RAISE fnd_api.g_exc_unexpected_error;
186: X_MSG_COUNT => x_msg_count,
187: X_MSG_DATA => x_msg_data
188: );
189: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
190: x_return_status := fnd_api.g_ret_sts_unexp_error;
191: fnd_message.set_name('JTF', 'JTF_RS_ERR_PRE_VERT_USR_HOOK');
192: fnd_msg_pub.add;
193: RAISE fnd_api.g_exc_unexpected_error;
194: END IF;
189: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
190: x_return_status := fnd_api.g_ret_sts_unexp_error;
191: fnd_message.set_name('JTF', 'JTF_RS_ERR_PRE_VERT_USR_HOOK');
192: fnd_msg_pub.add;
193: RAISE fnd_api.g_exc_unexpected_error;
194: END IF;
195: END IF;
196:
197: --Pre Call to the Internal Type User Hook
215: X_RETURN_STATUS => x_return_status,
216: X_MSG_COUNT => x_msg_count,
217: X_MSG_DATA => x_msg_data
218: );
219: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
220: x_return_status := fnd_api.g_ret_sts_unexp_error;
221: fnd_message.set_name('JTF', 'JTF_RS_ERR_PRE_INT_USR_HOOK');
222: fnd_msg_pub.add;
223: RAISE fnd_api.g_exc_unexpected_error;
216: X_MSG_COUNT => x_msg_count,
217: X_MSG_DATA => x_msg_data
218: );
219: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
220: x_return_status := fnd_api.g_ret_sts_unexp_error;
221: fnd_message.set_name('JTF', 'JTF_RS_ERR_PRE_INT_USR_HOOK');
222: fnd_msg_pub.add;
223: RAISE fnd_api.g_exc_unexpected_error;
224: END IF;
219: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
220: x_return_status := fnd_api.g_ret_sts_unexp_error;
221: fnd_message.set_name('JTF', 'JTF_RS_ERR_PRE_INT_USR_HOOK');
222: fnd_msg_pub.add;
223: RAISE fnd_api.g_exc_unexpected_error;
224: END IF;
225: END IF;
226:
227: --Put in all the Validations here
231: IF l_role_code is NULL THEN
232: --dbms_output.put_line ('Role Code Is Null');
233: fnd_message.set_name('JTF', 'JTF_RS_ROLE_CODE_NULL');
234: fnd_msg_pub.add;
235: x_return_status := fnd_api.g_ret_sts_unexp_error;
236: RAISE fnd_api.g_exc_unexpected_error;
237: ELSIF l_role_code is not NULL THEN
238: OPEN c_role_code (l_role_code);
239: FETCH c_role_code INTO l_role_code;
232: --dbms_output.put_line ('Role Code Is Null');
233: fnd_message.set_name('JTF', 'JTF_RS_ROLE_CODE_NULL');
234: fnd_msg_pub.add;
235: x_return_status := fnd_api.g_ret_sts_unexp_error;
236: RAISE fnd_api.g_exc_unexpected_error;
237: ELSIF l_role_code is not NULL THEN
238: OPEN c_role_code (l_role_code);
239: FETCH c_role_code INTO l_role_code;
240: IF c_role_code%FOUND THEN
240: IF c_role_code%FOUND THEN
241: --dbms_output.put_line ('Duplicate Role Code');
242: fnd_message.set_name('JTF', 'JTF_RS_ROLE_CODE_EXISTS');
243: fnd_msg_pub.add;
244: x_return_status := fnd_api.g_ret_sts_unexp_error;
245: RAISE fnd_api.g_exc_unexpected_error;
246: END IF;
247: END IF;
248:
241: --dbms_output.put_line ('Duplicate Role Code');
242: fnd_message.set_name('JTF', 'JTF_RS_ROLE_CODE_EXISTS');
243: fnd_msg_pub.add;
244: x_return_status := fnd_api.g_ret_sts_unexp_error;
245: RAISE fnd_api.g_exc_unexpected_error;
246: END IF;
247: END IF;
248:
249: --Validate Role Type Code
251: IF l_role_type_code is NULL THEN
252: --dbms_output.put_line ('Role Type Code Is Null');
253: fnd_message.set_name('JTF', 'JTF_RS_ROLE_TYPE_CODE_NULL');
254: fnd_msg_pub.add;
255: x_return_status := fnd_api.g_ret_sts_unexp_error;
256: RAISE fnd_api.g_exc_unexpected_error;
257: ELSIF l_role_type_code is not NULL THEN
258: OPEN c_role_type_code (l_role_type_code);
259: FETCH c_role_type_code INTO l_role_type_code;
252: --dbms_output.put_line ('Role Type Code Is Null');
253: fnd_message.set_name('JTF', 'JTF_RS_ROLE_TYPE_CODE_NULL');
254: fnd_msg_pub.add;
255: x_return_status := fnd_api.g_ret_sts_unexp_error;
256: RAISE fnd_api.g_exc_unexpected_error;
257: ELSIF l_role_type_code is not NULL THEN
258: OPEN c_role_type_code (l_role_type_code);
259: FETCH c_role_type_code INTO l_role_type_code;
260: IF c_role_type_code%NOTFOUND THEN
262: CLOSE c_role_type_code;
263: fnd_message.set_name('JTF', 'JTF_RS_INVALID_ROLE_TYPE_CODE');
264: fnd_message.set_token('P_ROLE_TYPE_CODE', p_role_type_code);
265: fnd_msg_pub.add;
266: x_return_status := fnd_api.g_ret_sts_unexp_error;
267: RAISE fnd_api.g_exc_unexpected_error;
268: END IF;
269: END IF;
270:
263: fnd_message.set_name('JTF', 'JTF_RS_INVALID_ROLE_TYPE_CODE');
264: fnd_message.set_token('P_ROLE_TYPE_CODE', p_role_type_code);
265: fnd_msg_pub.add;
266: x_return_status := fnd_api.g_ret_sts_unexp_error;
267: RAISE fnd_api.g_exc_unexpected_error;
268: END IF;
269: END IF;
270:
271: --Validate that Role Name is Not Null
273: IF l_role_name IS NULL THEN
274: --dbms_output.put_line ('Role Name is Null');
275: fnd_message.set_name ('JTF','JTF_RS_ROLE_NAME_NULL');
276: fnd_msg_pub.add;
277: x_return_status := fnd_api.g_ret_sts_unexp_error;
278: RAISE fnd_api.g_exc_unexpected_error;
279: ELSE
280: OPEN c_role_name_check(upper(l_role_name),l_role_type_code);
281: FETCH c_role_name_check INTO Dummy_char;
274: --dbms_output.put_line ('Role Name is Null');
275: fnd_message.set_name ('JTF','JTF_RS_ROLE_NAME_NULL');
276: fnd_msg_pub.add;
277: x_return_status := fnd_api.g_ret_sts_unexp_error;
278: RAISE fnd_api.g_exc_unexpected_error;
279: ELSE
280: OPEN c_role_name_check(upper(l_role_name),l_role_type_code);
281: FETCH c_role_name_check INTO Dummy_char;
282: IF (c_role_name_check%FOUND) THEN
283: -- fnd_message.set_name('JTF', 'This Role name is already exists for the same Role type. Please choose a role name unique within this role type');
284: fnd_message.set_name('JTF', 'JTF_RS_ROLE_NAME_EXISTS');
285: fnd_msg_pub.add;
286: CLOSE c_role_name_check;
287: x_return_status := fnd_api.g_ret_sts_error;
288: RAISE fnd_api.g_exc_error;
289: END IF;
290: CLOSE c_role_name_check;
291: END IF;
284: fnd_message.set_name('JTF', 'JTF_RS_ROLE_NAME_EXISTS');
285: fnd_msg_pub.add;
286: CLOSE c_role_name_check;
287: x_return_status := fnd_api.g_ret_sts_error;
288: RAISE fnd_api.g_exc_error;
289: END IF;
290: CLOSE c_role_name_check;
291: END IF;
292:
297: jtf_resource_utl.validate_rs_role_flags (
298: p_rs_role_flag => l_seeded_flag,
299: x_return_status => x_return_status
300: );
301: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
302: x_return_status := fnd_api.g_ret_sts_unexp_error;
303: RAISE fnd_api.g_exc_unexpected_error;
304: END IF;
305: END IF;
298: p_rs_role_flag => l_seeded_flag,
299: x_return_status => x_return_status
300: );
301: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
302: x_return_status := fnd_api.g_ret_sts_unexp_error;
303: RAISE fnd_api.g_exc_unexpected_error;
304: END IF;
305: END IF;
306:
299: x_return_status => x_return_status
300: );
301: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
302: x_return_status := fnd_api.g_ret_sts_unexp_error;
303: RAISE fnd_api.g_exc_unexpected_error;
304: END IF;
305: END IF;
306:
307: --Validate the member flag
309: jtf_resource_utl.validate_rs_role_flags (
310: p_rs_role_flag => l_member_flag,
311: x_return_status => x_return_status
312: );
313: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
314: x_return_status := fnd_api.g_ret_sts_unexp_error;
315: RAISE fnd_api.g_exc_unexpected_error;
316: END IF;
317: END IF;
310: p_rs_role_flag => l_member_flag,
311: x_return_status => x_return_status
312: );
313: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
314: x_return_status := fnd_api.g_ret_sts_unexp_error;
315: RAISE fnd_api.g_exc_unexpected_error;
316: END IF;
317: END IF;
318:
311: x_return_status => x_return_status
312: );
313: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
314: x_return_status := fnd_api.g_ret_sts_unexp_error;
315: RAISE fnd_api.g_exc_unexpected_error;
316: END IF;
317: END IF;
318:
319: --Validate the admin flag
321: jtf_resource_utl.validate_rs_role_flags (
322: p_rs_role_flag => l_admin_flag,
323: x_return_status => x_return_status
324: );
325: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
326: x_return_status := fnd_api.g_ret_sts_unexp_error;
327: RAISE fnd_api.g_exc_unexpected_error;
328: END IF;
329: END IF;
322: p_rs_role_flag => l_admin_flag,
323: x_return_status => x_return_status
324: );
325: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
326: x_return_status := fnd_api.g_ret_sts_unexp_error;
327: RAISE fnd_api.g_exc_unexpected_error;
328: END IF;
329: END IF;
330:
323: x_return_status => x_return_status
324: );
325: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
326: x_return_status := fnd_api.g_ret_sts_unexp_error;
327: RAISE fnd_api.g_exc_unexpected_error;
328: END IF;
329: END IF;
330:
331: --Validate the lead flag
333: jtf_resource_utl.validate_rs_role_flags (
334: p_rs_role_flag => l_lead_flag,
335: x_return_status => x_return_status
336: );
337: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
338: x_return_status := fnd_api.g_ret_sts_unexp_error;
339: RAISE fnd_api.g_exc_unexpected_error;
340: END IF;
341: END IF;
334: p_rs_role_flag => l_lead_flag,
335: x_return_status => x_return_status
336: );
337: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
338: x_return_status := fnd_api.g_ret_sts_unexp_error;
339: RAISE fnd_api.g_exc_unexpected_error;
340: END IF;
341: END IF;
342:
335: x_return_status => x_return_status
336: );
337: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
338: x_return_status := fnd_api.g_ret_sts_unexp_error;
339: RAISE fnd_api.g_exc_unexpected_error;
340: END IF;
341: END IF;
342:
343: --Validate the manager flag
345: jtf_resource_utl.validate_rs_role_flags (
346: p_rs_role_flag => l_manager_flag,
347: x_return_status => x_return_status
348: );
349: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
350: x_return_status := fnd_api.g_ret_sts_unexp_error;
351: RAISE fnd_api.g_exc_unexpected_error;
352: END IF;
353: END IF;
346: p_rs_role_flag => l_manager_flag,
347: x_return_status => x_return_status
348: );
349: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
350: x_return_status := fnd_api.g_ret_sts_unexp_error;
351: RAISE fnd_api.g_exc_unexpected_error;
352: END IF;
353: END IF;
354:
347: x_return_status => x_return_status
348: );
349: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
350: x_return_status := fnd_api.g_ret_sts_unexp_error;
351: RAISE fnd_api.g_exc_unexpected_error;
352: END IF;
353: END IF;
354:
355: --Validate the active flag
357: jtf_resource_utl.validate_rs_role_flags (
358: p_rs_role_flag => l_active_flag,
359: x_return_status => x_return_status
360: );
361: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
362: x_return_status := fnd_api.g_ret_sts_unexp_error;
363: RAISE fnd_api.g_exc_unexpected_error;
364: END IF;
365: END IF;
358: p_rs_role_flag => l_active_flag,
359: x_return_status => x_return_status
360: );
361: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
362: x_return_status := fnd_api.g_ret_sts_unexp_error;
363: RAISE fnd_api.g_exc_unexpected_error;
364: END IF;
365: END IF;
366:
359: x_return_status => x_return_status
360: );
361: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
362: x_return_status := fnd_api.g_ret_sts_unexp_error;
363: RAISE fnd_api.g_exc_unexpected_error;
364: END IF;
365: END IF;
366:
367: --Get the next value of the Role Id from the sequence
411: OPEN c_jtf_rs_roles (l_role_id);
412: FETCH c_jtf_rs_roles INTO l_check_char;
413: IF c_jtf_rs_roles%NOTFOUND THEN
414: --dbms_output.put_line('Error in Table Handler');
415: x_return_status := fnd_api.g_ret_sts_unexp_error;
416: fnd_message.set_name('JTF', 'JTF_RS_TABLE_HANDLER_ERROR');
417: fnd_msg_pub.add;
418: CLOSE c_jtf_rs_roles;
419: RAISE fnd_api.g_exc_unexpected_error;
415: x_return_status := fnd_api.g_ret_sts_unexp_error;
416: fnd_message.set_name('JTF', 'JTF_RS_TABLE_HANDLER_ERROR');
417: fnd_msg_pub.add;
418: CLOSE c_jtf_rs_roles;
419: RAISE fnd_api.g_exc_unexpected_error;
420: ELSE
421: --dbms_output.put_line('Resource Role Successfully Created');
422: x_role_id := l_role_id;
423: x_return_status := fnd_api.g_ret_sts_success;
419: RAISE fnd_api.g_exc_unexpected_error;
420: ELSE
421: --dbms_output.put_line('Resource Role Successfully Created');
422: x_role_id := l_role_id;
423: x_return_status := fnd_api.g_ret_sts_success;
424: END IF;
425:
426: --Post Call to the Customer User Hook
427: IF jtf_usr_hks.ok_to_execute(
445: X_RETURN_STATUS => x_return_status,
446: X_MSG_COUNT => x_msg_count,
447: X_MSG_DATA => x_msg_data
448: );
449: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
450: x_return_status := fnd_api.g_ret_sts_unexp_error;
451: fnd_message.set_name('JTF', 'JTF_RS_ERR_POST_CUST_USR_HOOK');
452: fnd_msg_pub.add;
453: RAISE fnd_api.g_exc_unexpected_error;
446: X_MSG_COUNT => x_msg_count,
447: X_MSG_DATA => x_msg_data
448: );
449: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
450: x_return_status := fnd_api.g_ret_sts_unexp_error;
451: fnd_message.set_name('JTF', 'JTF_RS_ERR_POST_CUST_USR_HOOK');
452: fnd_msg_pub.add;
453: RAISE fnd_api.g_exc_unexpected_error;
454: END IF;
449: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
450: x_return_status := fnd_api.g_ret_sts_unexp_error;
451: fnd_message.set_name('JTF', 'JTF_RS_ERR_POST_CUST_USR_HOOK');
452: fnd_msg_pub.add;
453: RAISE fnd_api.g_exc_unexpected_error;
454: END IF;
455: END IF;
456:
457: --Post Call to the Vertical Type User Hook
476: X_RETURN_STATUS => x_return_status,
477: X_MSG_COUNT => x_msg_count,
478: X_MSG_DATA => x_msg_data
479: );
480: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
481: x_return_status := fnd_api.g_ret_sts_unexp_error;
482: fnd_message.set_name('JTF', 'JTF_RS_ERR_POST_VERT_USR_HOOK');
483: fnd_msg_pub.add;
484: RAISE fnd_api.g_exc_unexpected_error;
477: X_MSG_COUNT => x_msg_count,
478: X_MSG_DATA => x_msg_data
479: );
480: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
481: x_return_status := fnd_api.g_ret_sts_unexp_error;
482: fnd_message.set_name('JTF', 'JTF_RS_ERR_POST_VERT_USR_HOOK');
483: fnd_msg_pub.add;
484: RAISE fnd_api.g_exc_unexpected_error;
485: END IF;
480: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
481: x_return_status := fnd_api.g_ret_sts_unexp_error;
482: fnd_message.set_name('JTF', 'JTF_RS_ERR_POST_VERT_USR_HOOK');
483: fnd_msg_pub.add;
484: RAISE fnd_api.g_exc_unexpected_error;
485: END IF;
486: END IF;
487:
488: --Post Call to the Internal Type User Hook
507: X_RETURN_STATUS => x_return_status,
508: X_MSG_COUNT => x_msg_count,
509: X_MSG_DATA => x_msg_data
510: );
511: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
512: x_return_status := fnd_api.g_ret_sts_unexp_error;
513: fnd_message.set_name('JTF', 'JTF_RS_ERR_POST_INT_USR_HOOK');
514: fnd_msg_pub.add;
515: RAISE fnd_api.g_exc_unexpected_error;
508: X_MSG_COUNT => x_msg_count,
509: X_MSG_DATA => x_msg_data
510: );
511: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
512: x_return_status := fnd_api.g_ret_sts_unexp_error;
513: fnd_message.set_name('JTF', 'JTF_RS_ERR_POST_INT_USR_HOOK');
514: fnd_msg_pub.add;
515: RAISE fnd_api.g_exc_unexpected_error;
516: END IF;
511: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
512: x_return_status := fnd_api.g_ret_sts_unexp_error;
513: fnd_message.set_name('JTF', 'JTF_RS_ERR_POST_INT_USR_HOOK');
514: fnd_msg_pub.add;
515: RAISE fnd_api.g_exc_unexpected_error;
516: END IF;
517: END IF;
518:
519: /* Standard call for Message Generation */
542: p_action_code => 'I',
543: p_bind_data_id => l_bind_data_id,
544: x_return_code => x_return_status);
545:
546: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
547: --dbms_output.put_line('Returned Error status from the Message Generation API');
548: x_return_status := fnd_api.g_ret_sts_unexp_error;
549: fnd_message.set_name('JTF', 'JTF_RS_ERR_MESG_GENERATE_API');
550: fnd_msg_pub.add;
544: x_return_code => x_return_status);
545:
546: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
547: --dbms_output.put_line('Returned Error status from the Message Generation API');
548: x_return_status := fnd_api.g_ret_sts_unexp_error;
549: fnd_message.set_name('JTF', 'JTF_RS_ERR_MESG_GENERATE_API');
550: fnd_msg_pub.add;
551: RAISE fnd_api.g_exc_unexpected_error;
552: END IF;
547: --dbms_output.put_line('Returned Error status from the Message Generation API');
548: x_return_status := fnd_api.g_ret_sts_unexp_error;
549: fnd_message.set_name('JTF', 'JTF_RS_ERR_MESG_GENERATE_API');
550: fnd_msg_pub.add;
551: RAISE fnd_api.g_exc_unexpected_error;
552: END IF;
553: END IF;
554: END IF;
555:
552: END IF;
553: END IF;
554: END IF;
555:
556: IF fnd_api.to_boolean(p_commit) THEN
557: COMMIT WORK;
558: END IF;
559:
560: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
564:
565: begin
566: jtf_rs_wf_events_pub.create_resource_role
567: (p_api_version => 1.0
568: ,p_init_msg_list => fnd_api.g_false
569: ,p_commit => fnd_api.g_false
570: ,p_role_id => l_role_id
571: ,p_role_type_code => l_role_type_code
572: ,p_role_code => l_role_code
565: begin
566: jtf_rs_wf_events_pub.create_resource_role
567: (p_api_version => 1.0
568: ,p_init_msg_list => fnd_api.g_false
569: ,p_commit => fnd_api.g_false
570: ,p_role_id => l_role_id
571: ,p_role_type_code => l_role_type_code
572: ,p_role_code => l_role_code
573: ,p_role_name => l_role_name
588: /* End of publish API call */
589:
590:
591: EXCEPTION
592: WHEN fnd_api.g_exc_unexpected_error THEN
593: --DBMS_OUTPUT.put_line (' ========================================== ');
594: --DBMS_OUTPUT.put_line ('=========== Raised Unexpected Error =============== ');
595: ROLLBACK TO create_rs_resource_roles_pvt;
596: x_return_status := fnd_api.g_ret_sts_unexp_error;
592: WHEN fnd_api.g_exc_unexpected_error THEN
593: --DBMS_OUTPUT.put_line (' ========================================== ');
594: --DBMS_OUTPUT.put_line ('=========== Raised Unexpected Error =============== ');
595: ROLLBACK TO create_rs_resource_roles_pvt;
596: x_return_status := fnd_api.g_ret_sts_unexp_error;
597: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
598: WHEN OTHERS THEN
599: --DBMS_OUTPUT.put_line (' ========================================== ');
600: --DBMS_OUTPUT.put_line (' =========== Raised Others in Create Resource Role Pvt =============');
599: --DBMS_OUTPUT.put_line (' ========================================== ');
600: --DBMS_OUTPUT.put_line (' =========== Raised Others in Create Resource Role Pvt =============');
601: --DBMS_OUTPUT.put_line (SQLCODE || SQLERRM);
602: ROLLBACK TO create_rs_resource_roles_pvt;
603: x_return_status := fnd_api.g_ret_sts_unexp_error;
604: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
605:
606: END create_rs_resource_roles;
607:
700:
701: CURSOR c_rs_role_update( l_role_id IN NUMBER ) IS
702: SELECT
703: Role_Code role_code,
704: DECODE(p_role_code, fnd_api.g_miss_char, role_code, p_role_code) l_role_code,
705: DECODE(p_role_type_code, fnd_api.g_miss_char, role_type_code, p_role_type_code) l_role_type_code,
706: DECODE(p_role_name, fnd_api.g_miss_char, role_name, p_role_name) l_role_name,
707: DECODE(p_seeded_flag, fnd_api.g_miss_char, seeded_flag, p_seeded_flag) l_seeded_flag,
708: DECODE(p_member_flag, fnd_api.g_miss_char, member_flag, p_member_flag) l_member_flag,
701: CURSOR c_rs_role_update( l_role_id IN NUMBER ) IS
702: SELECT
703: Role_Code role_code,
704: DECODE(p_role_code, fnd_api.g_miss_char, role_code, p_role_code) l_role_code,
705: DECODE(p_role_type_code, fnd_api.g_miss_char, role_type_code, p_role_type_code) l_role_type_code,
706: DECODE(p_role_name, fnd_api.g_miss_char, role_name, p_role_name) l_role_name,
707: DECODE(p_seeded_flag, fnd_api.g_miss_char, seeded_flag, p_seeded_flag) l_seeded_flag,
708: DECODE(p_member_flag, fnd_api.g_miss_char, member_flag, p_member_flag) l_member_flag,
709: DECODE(p_admin_flag, fnd_api.g_miss_char, admin_flag, p_admin_flag) l_admin_flag,
702: SELECT
703: Role_Code role_code,
704: DECODE(p_role_code, fnd_api.g_miss_char, role_code, p_role_code) l_role_code,
705: DECODE(p_role_type_code, fnd_api.g_miss_char, role_type_code, p_role_type_code) l_role_type_code,
706: DECODE(p_role_name, fnd_api.g_miss_char, role_name, p_role_name) l_role_name,
707: DECODE(p_seeded_flag, fnd_api.g_miss_char, seeded_flag, p_seeded_flag) l_seeded_flag,
708: DECODE(p_member_flag, fnd_api.g_miss_char, member_flag, p_member_flag) l_member_flag,
709: DECODE(p_admin_flag, fnd_api.g_miss_char, admin_flag, p_admin_flag) l_admin_flag,
710: DECODE(p_lead_flag, fnd_api.g_miss_char, lead_flag, p_lead_flag) l_lead_flag,
703: Role_Code role_code,
704: DECODE(p_role_code, fnd_api.g_miss_char, role_code, p_role_code) l_role_code,
705: DECODE(p_role_type_code, fnd_api.g_miss_char, role_type_code, p_role_type_code) l_role_type_code,
706: DECODE(p_role_name, fnd_api.g_miss_char, role_name, p_role_name) l_role_name,
707: DECODE(p_seeded_flag, fnd_api.g_miss_char, seeded_flag, p_seeded_flag) l_seeded_flag,
708: DECODE(p_member_flag, fnd_api.g_miss_char, member_flag, p_member_flag) l_member_flag,
709: DECODE(p_admin_flag, fnd_api.g_miss_char, admin_flag, p_admin_flag) l_admin_flag,
710: DECODE(p_lead_flag, fnd_api.g_miss_char, lead_flag, p_lead_flag) l_lead_flag,
711: DECODE(p_manager_flag, fnd_api.g_miss_char, manager_flag, p_manager_flag) l_manager_flag,
704: DECODE(p_role_code, fnd_api.g_miss_char, role_code, p_role_code) l_role_code,
705: DECODE(p_role_type_code, fnd_api.g_miss_char, role_type_code, p_role_type_code) l_role_type_code,
706: DECODE(p_role_name, fnd_api.g_miss_char, role_name, p_role_name) l_role_name,
707: DECODE(p_seeded_flag, fnd_api.g_miss_char, seeded_flag, p_seeded_flag) l_seeded_flag,
708: DECODE(p_member_flag, fnd_api.g_miss_char, member_flag, p_member_flag) l_member_flag,
709: DECODE(p_admin_flag, fnd_api.g_miss_char, admin_flag, p_admin_flag) l_admin_flag,
710: DECODE(p_lead_flag, fnd_api.g_miss_char, lead_flag, p_lead_flag) l_lead_flag,
711: DECODE(p_manager_flag, fnd_api.g_miss_char, manager_flag, p_manager_flag) l_manager_flag,
712: DECODE(p_active_flag, fnd_api.g_miss_char, active_flag, p_active_flag) l_active_flag,
705: DECODE(p_role_type_code, fnd_api.g_miss_char, role_type_code, p_role_type_code) l_role_type_code,
706: DECODE(p_role_name, fnd_api.g_miss_char, role_name, p_role_name) l_role_name,
707: DECODE(p_seeded_flag, fnd_api.g_miss_char, seeded_flag, p_seeded_flag) l_seeded_flag,
708: DECODE(p_member_flag, fnd_api.g_miss_char, member_flag, p_member_flag) l_member_flag,
709: DECODE(p_admin_flag, fnd_api.g_miss_char, admin_flag, p_admin_flag) l_admin_flag,
710: DECODE(p_lead_flag, fnd_api.g_miss_char, lead_flag, p_lead_flag) l_lead_flag,
711: DECODE(p_manager_flag, fnd_api.g_miss_char, manager_flag, p_manager_flag) l_manager_flag,
712: DECODE(p_active_flag, fnd_api.g_miss_char, active_flag, p_active_flag) l_active_flag,
713: DECODE(p_role_desc, fnd_api.g_miss_char, role_desc, p_role_desc) l_role_desc,
706: DECODE(p_role_name, fnd_api.g_miss_char, role_name, p_role_name) l_role_name,
707: DECODE(p_seeded_flag, fnd_api.g_miss_char, seeded_flag, p_seeded_flag) l_seeded_flag,
708: DECODE(p_member_flag, fnd_api.g_miss_char, member_flag, p_member_flag) l_member_flag,
709: DECODE(p_admin_flag, fnd_api.g_miss_char, admin_flag, p_admin_flag) l_admin_flag,
710: DECODE(p_lead_flag, fnd_api.g_miss_char, lead_flag, p_lead_flag) l_lead_flag,
711: DECODE(p_manager_flag, fnd_api.g_miss_char, manager_flag, p_manager_flag) l_manager_flag,
712: DECODE(p_active_flag, fnd_api.g_miss_char, active_flag, p_active_flag) l_active_flag,
713: DECODE(p_role_desc, fnd_api.g_miss_char, role_desc, p_role_desc) l_role_desc,
714: DECODE(p_attribute1,fnd_api.g_miss_char, attribute1, p_attribute1) l_attribute1,
707: DECODE(p_seeded_flag, fnd_api.g_miss_char, seeded_flag, p_seeded_flag) l_seeded_flag,
708: DECODE(p_member_flag, fnd_api.g_miss_char, member_flag, p_member_flag) l_member_flag,
709: DECODE(p_admin_flag, fnd_api.g_miss_char, admin_flag, p_admin_flag) l_admin_flag,
710: DECODE(p_lead_flag, fnd_api.g_miss_char, lead_flag, p_lead_flag) l_lead_flag,
711: DECODE(p_manager_flag, fnd_api.g_miss_char, manager_flag, p_manager_flag) l_manager_flag,
712: DECODE(p_active_flag, fnd_api.g_miss_char, active_flag, p_active_flag) l_active_flag,
713: DECODE(p_role_desc, fnd_api.g_miss_char, role_desc, p_role_desc) l_role_desc,
714: DECODE(p_attribute1,fnd_api.g_miss_char, attribute1, p_attribute1) l_attribute1,
715: DECODE(p_attribute2,fnd_api.g_miss_char, attribute2, p_attribute2) l_attribute2,
708: DECODE(p_member_flag, fnd_api.g_miss_char, member_flag, p_member_flag) l_member_flag,
709: DECODE(p_admin_flag, fnd_api.g_miss_char, admin_flag, p_admin_flag) l_admin_flag,
710: DECODE(p_lead_flag, fnd_api.g_miss_char, lead_flag, p_lead_flag) l_lead_flag,
711: DECODE(p_manager_flag, fnd_api.g_miss_char, manager_flag, p_manager_flag) l_manager_flag,
712: DECODE(p_active_flag, fnd_api.g_miss_char, active_flag, p_active_flag) l_active_flag,
713: DECODE(p_role_desc, fnd_api.g_miss_char, role_desc, p_role_desc) l_role_desc,
714: DECODE(p_attribute1,fnd_api.g_miss_char, attribute1, p_attribute1) l_attribute1,
715: DECODE(p_attribute2,fnd_api.g_miss_char, attribute2, p_attribute2) l_attribute2,
716: DECODE(p_attribute3,fnd_api.g_miss_char, attribute3, p_attribute3) l_attribute3,
709: DECODE(p_admin_flag, fnd_api.g_miss_char, admin_flag, p_admin_flag) l_admin_flag,
710: DECODE(p_lead_flag, fnd_api.g_miss_char, lead_flag, p_lead_flag) l_lead_flag,
711: DECODE(p_manager_flag, fnd_api.g_miss_char, manager_flag, p_manager_flag) l_manager_flag,
712: DECODE(p_active_flag, fnd_api.g_miss_char, active_flag, p_active_flag) l_active_flag,
713: DECODE(p_role_desc, fnd_api.g_miss_char, role_desc, p_role_desc) l_role_desc,
714: DECODE(p_attribute1,fnd_api.g_miss_char, attribute1, p_attribute1) l_attribute1,
715: DECODE(p_attribute2,fnd_api.g_miss_char, attribute2, p_attribute2) l_attribute2,
716: DECODE(p_attribute3,fnd_api.g_miss_char, attribute3, p_attribute3) l_attribute3,
717: DECODE(p_attribute4,fnd_api.g_miss_char, attribute4, p_attribute4) l_attribute4,
710: DECODE(p_lead_flag, fnd_api.g_miss_char, lead_flag, p_lead_flag) l_lead_flag,
711: DECODE(p_manager_flag, fnd_api.g_miss_char, manager_flag, p_manager_flag) l_manager_flag,
712: DECODE(p_active_flag, fnd_api.g_miss_char, active_flag, p_active_flag) l_active_flag,
713: DECODE(p_role_desc, fnd_api.g_miss_char, role_desc, p_role_desc) l_role_desc,
714: DECODE(p_attribute1,fnd_api.g_miss_char, attribute1, p_attribute1) l_attribute1,
715: DECODE(p_attribute2,fnd_api.g_miss_char, attribute2, p_attribute2) l_attribute2,
716: DECODE(p_attribute3,fnd_api.g_miss_char, attribute3, p_attribute3) l_attribute3,
717: DECODE(p_attribute4,fnd_api.g_miss_char, attribute4, p_attribute4) l_attribute4,
718: DECODE(p_attribute5,fnd_api.g_miss_char, attribute5, p_attribute5) l_attribute5,
711: DECODE(p_manager_flag, fnd_api.g_miss_char, manager_flag, p_manager_flag) l_manager_flag,
712: DECODE(p_active_flag, fnd_api.g_miss_char, active_flag, p_active_flag) l_active_flag,
713: DECODE(p_role_desc, fnd_api.g_miss_char, role_desc, p_role_desc) l_role_desc,
714: DECODE(p_attribute1,fnd_api.g_miss_char, attribute1, p_attribute1) l_attribute1,
715: DECODE(p_attribute2,fnd_api.g_miss_char, attribute2, p_attribute2) l_attribute2,
716: DECODE(p_attribute3,fnd_api.g_miss_char, attribute3, p_attribute3) l_attribute3,
717: DECODE(p_attribute4,fnd_api.g_miss_char, attribute4, p_attribute4) l_attribute4,
718: DECODE(p_attribute5,fnd_api.g_miss_char, attribute5, p_attribute5) l_attribute5,
719: DECODE(p_attribute6,fnd_api.g_miss_char, attribute6, p_attribute6) l_attribute6,
712: DECODE(p_active_flag, fnd_api.g_miss_char, active_flag, p_active_flag) l_active_flag,
713: DECODE(p_role_desc, fnd_api.g_miss_char, role_desc, p_role_desc) l_role_desc,
714: DECODE(p_attribute1,fnd_api.g_miss_char, attribute1, p_attribute1) l_attribute1,
715: DECODE(p_attribute2,fnd_api.g_miss_char, attribute2, p_attribute2) l_attribute2,
716: DECODE(p_attribute3,fnd_api.g_miss_char, attribute3, p_attribute3) l_attribute3,
717: DECODE(p_attribute4,fnd_api.g_miss_char, attribute4, p_attribute4) l_attribute4,
718: DECODE(p_attribute5,fnd_api.g_miss_char, attribute5, p_attribute5) l_attribute5,
719: DECODE(p_attribute6,fnd_api.g_miss_char, attribute6, p_attribute6) l_attribute6,
720: DECODE(p_attribute7,fnd_api.g_miss_char, attribute7, p_attribute7) l_attribute7,
713: DECODE(p_role_desc, fnd_api.g_miss_char, role_desc, p_role_desc) l_role_desc,
714: DECODE(p_attribute1,fnd_api.g_miss_char, attribute1, p_attribute1) l_attribute1,
715: DECODE(p_attribute2,fnd_api.g_miss_char, attribute2, p_attribute2) l_attribute2,
716: DECODE(p_attribute3,fnd_api.g_miss_char, attribute3, p_attribute3) l_attribute3,
717: DECODE(p_attribute4,fnd_api.g_miss_char, attribute4, p_attribute4) l_attribute4,
718: DECODE(p_attribute5,fnd_api.g_miss_char, attribute5, p_attribute5) l_attribute5,
719: DECODE(p_attribute6,fnd_api.g_miss_char, attribute6, p_attribute6) l_attribute6,
720: DECODE(p_attribute7,fnd_api.g_miss_char, attribute7, p_attribute7) l_attribute7,
721: DECODE(p_attribute8,fnd_api.g_miss_char, attribute8, p_attribute8) l_attribute8,
714: DECODE(p_attribute1,fnd_api.g_miss_char, attribute1, p_attribute1) l_attribute1,
715: DECODE(p_attribute2,fnd_api.g_miss_char, attribute2, p_attribute2) l_attribute2,
716: DECODE(p_attribute3,fnd_api.g_miss_char, attribute3, p_attribute3) l_attribute3,
717: DECODE(p_attribute4,fnd_api.g_miss_char, attribute4, p_attribute4) l_attribute4,
718: DECODE(p_attribute5,fnd_api.g_miss_char, attribute5, p_attribute5) l_attribute5,
719: DECODE(p_attribute6,fnd_api.g_miss_char, attribute6, p_attribute6) l_attribute6,
720: DECODE(p_attribute7,fnd_api.g_miss_char, attribute7, p_attribute7) l_attribute7,
721: DECODE(p_attribute8,fnd_api.g_miss_char, attribute8, p_attribute8) l_attribute8,
722: DECODE(p_attribute9,fnd_api.g_miss_char, attribute9, p_attribute9) l_attribute9,
715: DECODE(p_attribute2,fnd_api.g_miss_char, attribute2, p_attribute2) l_attribute2,
716: DECODE(p_attribute3,fnd_api.g_miss_char, attribute3, p_attribute3) l_attribute3,
717: DECODE(p_attribute4,fnd_api.g_miss_char, attribute4, p_attribute4) l_attribute4,
718: DECODE(p_attribute5,fnd_api.g_miss_char, attribute5, p_attribute5) l_attribute5,
719: DECODE(p_attribute6,fnd_api.g_miss_char, attribute6, p_attribute6) l_attribute6,
720: DECODE(p_attribute7,fnd_api.g_miss_char, attribute7, p_attribute7) l_attribute7,
721: DECODE(p_attribute8,fnd_api.g_miss_char, attribute8, p_attribute8) l_attribute8,
722: DECODE(p_attribute9,fnd_api.g_miss_char, attribute9, p_attribute9) l_attribute9,
723: DECODE(p_attribute10,fnd_api.g_miss_char, attribute10, p_attribute10) l_attribute10,
716: DECODE(p_attribute3,fnd_api.g_miss_char, attribute3, p_attribute3) l_attribute3,
717: DECODE(p_attribute4,fnd_api.g_miss_char, attribute4, p_attribute4) l_attribute4,
718: DECODE(p_attribute5,fnd_api.g_miss_char, attribute5, p_attribute5) l_attribute5,
719: DECODE(p_attribute6,fnd_api.g_miss_char, attribute6, p_attribute6) l_attribute6,
720: DECODE(p_attribute7,fnd_api.g_miss_char, attribute7, p_attribute7) l_attribute7,
721: DECODE(p_attribute8,fnd_api.g_miss_char, attribute8, p_attribute8) l_attribute8,
722: DECODE(p_attribute9,fnd_api.g_miss_char, attribute9, p_attribute9) l_attribute9,
723: DECODE(p_attribute10,fnd_api.g_miss_char, attribute10, p_attribute10) l_attribute10,
724: DECODE(p_attribute11,fnd_api.g_miss_char, attribute11, p_attribute11) l_attribute11,
717: DECODE(p_attribute4,fnd_api.g_miss_char, attribute4, p_attribute4) l_attribute4,
718: DECODE(p_attribute5,fnd_api.g_miss_char, attribute5, p_attribute5) l_attribute5,
719: DECODE(p_attribute6,fnd_api.g_miss_char, attribute6, p_attribute6) l_attribute6,
720: DECODE(p_attribute7,fnd_api.g_miss_char, attribute7, p_attribute7) l_attribute7,
721: DECODE(p_attribute8,fnd_api.g_miss_char, attribute8, p_attribute8) l_attribute8,
722: DECODE(p_attribute9,fnd_api.g_miss_char, attribute9, p_attribute9) l_attribute9,
723: DECODE(p_attribute10,fnd_api.g_miss_char, attribute10, p_attribute10) l_attribute10,
724: DECODE(p_attribute11,fnd_api.g_miss_char, attribute11, p_attribute11) l_attribute11,
725: DECODE(p_attribute12,fnd_api.g_miss_char, attribute12, p_attribute12) l_attribute12,
718: DECODE(p_attribute5,fnd_api.g_miss_char, attribute5, p_attribute5) l_attribute5,
719: DECODE(p_attribute6,fnd_api.g_miss_char, attribute6, p_attribute6) l_attribute6,
720: DECODE(p_attribute7,fnd_api.g_miss_char, attribute7, p_attribute7) l_attribute7,
721: DECODE(p_attribute8,fnd_api.g_miss_char, attribute8, p_attribute8) l_attribute8,
722: DECODE(p_attribute9,fnd_api.g_miss_char, attribute9, p_attribute9) l_attribute9,
723: DECODE(p_attribute10,fnd_api.g_miss_char, attribute10, p_attribute10) l_attribute10,
724: DECODE(p_attribute11,fnd_api.g_miss_char, attribute11, p_attribute11) l_attribute11,
725: DECODE(p_attribute12,fnd_api.g_miss_char, attribute12, p_attribute12) l_attribute12,
726: DECODE(p_attribute13,fnd_api.g_miss_char, attribute13, p_attribute13) l_attribute13,
719: DECODE(p_attribute6,fnd_api.g_miss_char, attribute6, p_attribute6) l_attribute6,
720: DECODE(p_attribute7,fnd_api.g_miss_char, attribute7, p_attribute7) l_attribute7,
721: DECODE(p_attribute8,fnd_api.g_miss_char, attribute8, p_attribute8) l_attribute8,
722: DECODE(p_attribute9,fnd_api.g_miss_char, attribute9, p_attribute9) l_attribute9,
723: DECODE(p_attribute10,fnd_api.g_miss_char, attribute10, p_attribute10) l_attribute10,
724: DECODE(p_attribute11,fnd_api.g_miss_char, attribute11, p_attribute11) l_attribute11,
725: DECODE(p_attribute12,fnd_api.g_miss_char, attribute12, p_attribute12) l_attribute12,
726: DECODE(p_attribute13,fnd_api.g_miss_char, attribute13, p_attribute13) l_attribute13,
727: DECODE(p_attribute14,fnd_api.g_miss_char, attribute14, p_attribute14) l_attribute14,
720: DECODE(p_attribute7,fnd_api.g_miss_char, attribute7, p_attribute7) l_attribute7,
721: DECODE(p_attribute8,fnd_api.g_miss_char, attribute8, p_attribute8) l_attribute8,
722: DECODE(p_attribute9,fnd_api.g_miss_char, attribute9, p_attribute9) l_attribute9,
723: DECODE(p_attribute10,fnd_api.g_miss_char, attribute10, p_attribute10) l_attribute10,
724: DECODE(p_attribute11,fnd_api.g_miss_char, attribute11, p_attribute11) l_attribute11,
725: DECODE(p_attribute12,fnd_api.g_miss_char, attribute12, p_attribute12) l_attribute12,
726: DECODE(p_attribute13,fnd_api.g_miss_char, attribute13, p_attribute13) l_attribute13,
727: DECODE(p_attribute14,fnd_api.g_miss_char, attribute14, p_attribute14) l_attribute14,
728: DECODE(p_attribute15,fnd_api.g_miss_char, attribute15, p_attribute15) l_attribute15,
721: DECODE(p_attribute8,fnd_api.g_miss_char, attribute8, p_attribute8) l_attribute8,
722: DECODE(p_attribute9,fnd_api.g_miss_char, attribute9, p_attribute9) l_attribute9,
723: DECODE(p_attribute10,fnd_api.g_miss_char, attribute10, p_attribute10) l_attribute10,
724: DECODE(p_attribute11,fnd_api.g_miss_char, attribute11, p_attribute11) l_attribute11,
725: DECODE(p_attribute12,fnd_api.g_miss_char, attribute12, p_attribute12) l_attribute12,
726: DECODE(p_attribute13,fnd_api.g_miss_char, attribute13, p_attribute13) l_attribute13,
727: DECODE(p_attribute14,fnd_api.g_miss_char, attribute14, p_attribute14) l_attribute14,
728: DECODE(p_attribute15,fnd_api.g_miss_char, attribute15, p_attribute15) l_attribute15,
729: DECODE(p_attribute_category,fnd_api.g_miss_char, attribute1, p_attribute_category) l_attribute_category
722: DECODE(p_attribute9,fnd_api.g_miss_char, attribute9, p_attribute9) l_attribute9,
723: DECODE(p_attribute10,fnd_api.g_miss_char, attribute10, p_attribute10) l_attribute10,
724: DECODE(p_attribute11,fnd_api.g_miss_char, attribute11, p_attribute11) l_attribute11,
725: DECODE(p_attribute12,fnd_api.g_miss_char, attribute12, p_attribute12) l_attribute12,
726: DECODE(p_attribute13,fnd_api.g_miss_char, attribute13, p_attribute13) l_attribute13,
727: DECODE(p_attribute14,fnd_api.g_miss_char, attribute14, p_attribute14) l_attribute14,
728: DECODE(p_attribute15,fnd_api.g_miss_char, attribute15, p_attribute15) l_attribute15,
729: DECODE(p_attribute_category,fnd_api.g_miss_char, attribute1, p_attribute_category) l_attribute_category
730: FROM jtf_rs_roles_vl
723: DECODE(p_attribute10,fnd_api.g_miss_char, attribute10, p_attribute10) l_attribute10,
724: DECODE(p_attribute11,fnd_api.g_miss_char, attribute11, p_attribute11) l_attribute11,
725: DECODE(p_attribute12,fnd_api.g_miss_char, attribute12, p_attribute12) l_attribute12,
726: DECODE(p_attribute13,fnd_api.g_miss_char, attribute13, p_attribute13) l_attribute13,
727: DECODE(p_attribute14,fnd_api.g_miss_char, attribute14, p_attribute14) l_attribute14,
728: DECODE(p_attribute15,fnd_api.g_miss_char, attribute15, p_attribute15) l_attribute15,
729: DECODE(p_attribute_category,fnd_api.g_miss_char, attribute1, p_attribute_category) l_attribute_category
730: FROM jtf_rs_roles_vl
731: WHERE role_id = l_role_id;
724: DECODE(p_attribute11,fnd_api.g_miss_char, attribute11, p_attribute11) l_attribute11,
725: DECODE(p_attribute12,fnd_api.g_miss_char, attribute12, p_attribute12) l_attribute12,
726: DECODE(p_attribute13,fnd_api.g_miss_char, attribute13, p_attribute13) l_attribute13,
727: DECODE(p_attribute14,fnd_api.g_miss_char, attribute14, p_attribute14) l_attribute14,
728: DECODE(p_attribute15,fnd_api.g_miss_char, attribute15, p_attribute15) l_attribute15,
729: DECODE(p_attribute_category,fnd_api.g_miss_char, attribute1, p_attribute_category) l_attribute_category
730: FROM jtf_rs_roles_vl
731: WHERE role_id = l_role_id;
732:
725: DECODE(p_attribute12,fnd_api.g_miss_char, attribute12, p_attribute12) l_attribute12,
726: DECODE(p_attribute13,fnd_api.g_miss_char, attribute13, p_attribute13) l_attribute13,
727: DECODE(p_attribute14,fnd_api.g_miss_char, attribute14, p_attribute14) l_attribute14,
728: DECODE(p_attribute15,fnd_api.g_miss_char, attribute15, p_attribute15) l_attribute15,
729: DECODE(p_attribute_category,fnd_api.g_miss_char, attribute1, p_attribute_category) l_attribute_category
730: FROM jtf_rs_roles_vl
731: WHERE role_id = l_role_id;
732:
733: rs_role_rec c_rs_role_update%ROWTYPE;
740:
741: BEGIN
742:
743: SAVEPOINT update_rs_resource_roles_pvt;
744: x_return_status := fnd_api.g_ret_sts_success;
745: --DBMS_OUTPUT.put_line(' Started Update Resource Roles Pvt ');
746: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
747: RAISE fnd_api.g_exc_unexpected_error;
748: END IF;
742:
743: SAVEPOINT update_rs_resource_roles_pvt;
744: x_return_status := fnd_api.g_ret_sts_success;
745: --DBMS_OUTPUT.put_line(' Started Update Resource Roles Pvt ');
746: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
747: RAISE fnd_api.g_exc_unexpected_error;
748: END IF;
749: IF fnd_api.to_boolean(p_init_msg_list) THEN
750: fnd_msg_pub.initialize;
743: SAVEPOINT update_rs_resource_roles_pvt;
744: x_return_status := fnd_api.g_ret_sts_success;
745: --DBMS_OUTPUT.put_line(' Started Update Resource Roles Pvt ');
746: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
747: RAISE fnd_api.g_exc_unexpected_error;
748: END IF;
749: IF fnd_api.to_boolean(p_init_msg_list) THEN
750: fnd_msg_pub.initialize;
751: END IF;
745: --DBMS_OUTPUT.put_line(' Started Update Resource Roles Pvt ');
746: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
747: RAISE fnd_api.g_exc_unexpected_error;
748: END IF;
749: IF fnd_api.to_boolean(p_init_msg_list) THEN
750: fnd_msg_pub.initialize;
751: END IF;
752:
753: --Pre Call to the Customer User Hook
772: X_RETURN_STATUS => x_return_status,
773: X_MSG_COUNT => x_msg_count,
774: X_MSG_DATA => x_msg_data
775: );
776: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
777: x_return_status := fnd_api.g_ret_sts_unexp_error;
778: fnd_message.set_name('JTF', 'JTF_RS_ERR_PRE_CUST_USR_HOOK');
779: fnd_msg_pub.add;
780: RAISE fnd_api.g_exc_unexpected_error;
773: X_MSG_COUNT => x_msg_count,
774: X_MSG_DATA => x_msg_data
775: );
776: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
777: x_return_status := fnd_api.g_ret_sts_unexp_error;
778: fnd_message.set_name('JTF', 'JTF_RS_ERR_PRE_CUST_USR_HOOK');
779: fnd_msg_pub.add;
780: RAISE fnd_api.g_exc_unexpected_error;
781: END IF;
776: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
777: x_return_status := fnd_api.g_ret_sts_unexp_error;
778: fnd_message.set_name('JTF', 'JTF_RS_ERR_PRE_CUST_USR_HOOK');
779: fnd_msg_pub.add;
780: RAISE fnd_api.g_exc_unexpected_error;
781: END IF;
782: END IF;
783:
784: --Pre Call to Vertical User Hook
803: X_RETURN_STATUS => x_return_status,
804: X_MSG_COUNT => x_msg_count,
805: X_MSG_DATA => x_msg_data
806: );
807: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
808: x_return_status := fnd_api.g_ret_sts_unexp_error;
809: fnd_message.set_name('JTF', 'JTF_RS_ERR_PRE_VERT_USR_HOOK');
810: fnd_msg_pub.add;
811: RAISE fnd_api.g_exc_unexpected_error;
804: X_MSG_COUNT => x_msg_count,
805: X_MSG_DATA => x_msg_data
806: );
807: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
808: x_return_status := fnd_api.g_ret_sts_unexp_error;
809: fnd_message.set_name('JTF', 'JTF_RS_ERR_PRE_VERT_USR_HOOK');
810: fnd_msg_pub.add;
811: RAISE fnd_api.g_exc_unexpected_error;
812: END IF;
807: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
808: x_return_status := fnd_api.g_ret_sts_unexp_error;
809: fnd_message.set_name('JTF', 'JTF_RS_ERR_PRE_VERT_USR_HOOK');
810: fnd_msg_pub.add;
811: RAISE fnd_api.g_exc_unexpected_error;
812: END IF;
813: END IF;
814:
815: --Pre Call to Internal User Hook
834: X_RETURN_STATUS => x_return_status,
835: X_MSG_COUNT => x_msg_count,
836: X_MSG_DATA => x_msg_data
837: );
838: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
839: x_return_status := fnd_api.g_ret_sts_unexp_error;
840: fnd_message.set_name('JTF', 'JTF_RS_ERR_PRE_INT_USR_HOOK');
841: fnd_msg_pub.add;
842: RAISE fnd_api.g_exc_unexpected_error;
835: X_MSG_COUNT => x_msg_count,
836: X_MSG_DATA => x_msg_data
837: );
838: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
839: x_return_status := fnd_api.g_ret_sts_unexp_error;
840: fnd_message.set_name('JTF', 'JTF_RS_ERR_PRE_INT_USR_HOOK');
841: fnd_msg_pub.add;
842: RAISE fnd_api.g_exc_unexpected_error;
843: END IF;
838: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
839: x_return_status := fnd_api.g_ret_sts_unexp_error;
840: fnd_message.set_name('JTF', 'JTF_RS_ERR_PRE_INT_USR_HOOK');
841: fnd_msg_pub.add;
842: RAISE fnd_api.g_exc_unexpected_error;
843: END IF;
844: END IF;
845:
846: --Put Validations here
852: CLOSE c_rs_role_update;
853: fnd_message.set_name('JTF', 'JTF_RS_INVALID_ROLE_ID');
854: fnd_message.set_token('P_ROLE_ID', p_role_id);
855: fnd_msg_pub.add;
856: x_return_status := fnd_api.g_ret_sts_unexp_error;
857: RAISE fnd_api.g_exc_unexpected_error;
858: END IF;
859:
860: --Validate the Resource Role
853: fnd_message.set_name('JTF', 'JTF_RS_INVALID_ROLE_ID');
854: fnd_message.set_token('P_ROLE_ID', p_role_id);
855: fnd_msg_pub.add;
856: x_return_status := fnd_api.g_ret_sts_unexp_error;
857: RAISE fnd_api.g_exc_unexpected_error;
858: END IF;
859:
860: --Validate the Resource Role
861:
867: -- x_return_status => x_return_status,
868: -- x_role_id => l_role_id
869: --);
870:
871: --IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
872: -- x_return_status := fnd_api.g_ret_sts_unexp_error;
873: -- RAISE fnd_api.g_exc_unexpected_error;
874: --END IF;
875:
868: -- x_role_id => l_role_id
869: --);
870:
871: --IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
872: -- x_return_status := fnd_api.g_ret_sts_unexp_error;
873: -- RAISE fnd_api.g_exc_unexpected_error;
874: --END IF;
875:
876: --END;
869: --);
870:
871: --IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
872: -- x_return_status := fnd_api.g_ret_sts_unexp_error;
873: -- RAISE fnd_api.g_exc_unexpected_error;
874: --END IF;
875:
876: --END;
877:
885: -- IF l_seeded_flag = 'Y' THEN
886: -- --dbms_output.put_line ('Seeded Data Cannot be Updated');
887: -- fnd_message.set_name ('JTF', 'JTF_RS_SEEDED_FLAG_CHECKED');
888: -- fnd_msg_pub.add;
889: -- x_return_status := fnd_api.g_ret_sts_unexp_error;
890: -- RAISE fnd_api.g_exc_unexpected_error;
891: -- END IF;
892:
893: --Validate that the Role Code is not null and unique
886: -- --dbms_output.put_line ('Seeded Data Cannot be Updated');
887: -- fnd_message.set_name ('JTF', 'JTF_RS_SEEDED_FLAG_CHECKED');
888: -- fnd_msg_pub.add;
889: -- x_return_status := fnd_api.g_ret_sts_unexp_error;
890: -- RAISE fnd_api.g_exc_unexpected_error;
891: -- END IF;
892:
893: --Validate that the Role Code is not null and unique
894:
891: -- END IF;
892:
893: --Validate that the Role Code is not null and unique
894:
895: IF l_role_code <> FND_API.G_MISS_CHAR THEN
896: IF l_role_code is NULL THEN
897: --dbms_output.put_line ('Role Code Is Null');
898: fnd_message.set_name('JTF', 'JTF_RS_ROLE_CODE_NULL');
899: fnd_msg_pub.add;
896: IF l_role_code is NULL THEN
897: --dbms_output.put_line ('Role Code Is Null');
898: fnd_message.set_name('JTF', 'JTF_RS_ROLE_CODE_NULL');
899: fnd_msg_pub.add;
900: x_return_status := fnd_api.g_ret_sts_unexp_error;
901: RAISE fnd_api.g_exc_unexpected_error;
902: ELSIF (l_role_code is not NULL AND l_role_code <> rs_role_rec.role_code) THEN
903: OPEN c_role_code (l_role_code);
904: FETCH c_role_code INTO l_role_code;
897: --dbms_output.put_line ('Role Code Is Null');
898: fnd_message.set_name('JTF', 'JTF_RS_ROLE_CODE_NULL');
899: fnd_msg_pub.add;
900: x_return_status := fnd_api.g_ret_sts_unexp_error;
901: RAISE fnd_api.g_exc_unexpected_error;
902: ELSIF (l_role_code is not NULL AND l_role_code <> rs_role_rec.role_code) THEN
903: OPEN c_role_code (l_role_code);
904: FETCH c_role_code INTO l_role_code;
905: IF c_role_code%FOUND THEN
905: IF c_role_code%FOUND THEN
906: --dbms_output.put_line ('Duplicate Role Code');
907: fnd_message.set_name('JTF', 'JTF_RS_ROLE_CODE_EXISTS');
908: fnd_msg_pub.add;
909: x_return_status := fnd_api.g_ret_sts_unexp_error;
910: RAISE fnd_api.g_exc_unexpected_error;
911: END IF;
912: END IF;
913: END IF;
906: --dbms_output.put_line ('Duplicate Role Code');
907: fnd_message.set_name('JTF', 'JTF_RS_ROLE_CODE_EXISTS');
908: fnd_msg_pub.add;
909: x_return_status := fnd_api.g_ret_sts_unexp_error;
910: RAISE fnd_api.g_exc_unexpected_error;
911: END IF;
912: END IF;
913: END IF;
914:
913: END IF;
914:
915: --Validate Role Type Code
916:
917: IF l_role_type_code <> FND_API.G_MISS_CHAR THEN
918: IF l_role_type_code is NULL THEN
919: --dbms_output.put_line ('Role Type Code Is Null');
920: fnd_message.set_name('JTF', 'JTF_RS_ROLE_TYPE_CODE_NULL');
921: fnd_msg_pub.add;
918: IF l_role_type_code is NULL THEN
919: --dbms_output.put_line ('Role Type Code Is Null');
920: fnd_message.set_name('JTF', 'JTF_RS_ROLE_TYPE_CODE_NULL');
921: fnd_msg_pub.add;
922: x_return_status := fnd_api.g_ret_sts_unexp_error;
923: RAISE fnd_api.g_exc_unexpected_error;
924: ELSIF l_role_type_code is not NULL THEN
925: OPEN c_role_type_code (l_role_type_code);
926: FETCH c_role_type_code INTO l_role_type_code;
919: --dbms_output.put_line ('Role Type Code Is Null');
920: fnd_message.set_name('JTF', 'JTF_RS_ROLE_TYPE_CODE_NULL');
921: fnd_msg_pub.add;
922: x_return_status := fnd_api.g_ret_sts_unexp_error;
923: RAISE fnd_api.g_exc_unexpected_error;
924: ELSIF l_role_type_code is not NULL THEN
925: OPEN c_role_type_code (l_role_type_code);
926: FETCH c_role_type_code INTO l_role_type_code;
927: IF c_role_type_code%NOTFOUND THEN
929: CLOSE c_role_type_code;
930: fnd_message.set_name('JTF', 'JTF_RS_INVALID_ROLE_TYPE_CODE');
931: fnd_message.set_token('P_ROLE_TYPE_CODE', l_role_type_code);
932: fnd_msg_pub.add;
933: x_return_status := fnd_api.g_ret_sts_unexp_error;
934: RAISE fnd_api.g_exc_unexpected_error;
935: END IF;
936: END IF;
937: END IF;
930: fnd_message.set_name('JTF', 'JTF_RS_INVALID_ROLE_TYPE_CODE');
931: fnd_message.set_token('P_ROLE_TYPE_CODE', l_role_type_code);
932: fnd_msg_pub.add;
933: x_return_status := fnd_api.g_ret_sts_unexp_error;
934: RAISE fnd_api.g_exc_unexpected_error;
935: END IF;
936: END IF;
937: END IF;
938:
937: END IF;
938:
939: --Validate that Role Name is Not Null
940:
941: IF l_role_name <> FND_API.G_MISS_CHAR THEN
942: IF l_role_name IS NULL THEN
943: --dbms_output.put_line ('Role Name is Null');
944: fnd_message.set_name ('JTF','JTF_RS_ROLE_NAME_NULL');
945: fnd_msg_pub.add;
942: IF l_role_name IS NULL THEN
943: --dbms_output.put_line ('Role Name is Null');
944: fnd_message.set_name ('JTF','JTF_RS_ROLE_NAME_NULL');
945: fnd_msg_pub.add;
946: x_return_status := fnd_api.g_ret_sts_unexp_error;
947: RAISE fnd_api.g_exc_unexpected_error;
948: ELSE
949: OPEN c_role_name_check(upper(l_role_name),rs_role_rec.l_role_type_code);
950: FETCH c_role_name_check INTO Dummy_char;
943: --dbms_output.put_line ('Role Name is Null');
944: fnd_message.set_name ('JTF','JTF_RS_ROLE_NAME_NULL');
945: fnd_msg_pub.add;
946: x_return_status := fnd_api.g_ret_sts_unexp_error;
947: RAISE fnd_api.g_exc_unexpected_error;
948: ELSE
949: OPEN c_role_name_check(upper(l_role_name),rs_role_rec.l_role_type_code);
950: FETCH c_role_name_check INTO Dummy_char;
951: IF (c_role_name_check%FOUND) THEN
951: IF (c_role_name_check%FOUND) THEN
952: fnd_message.set_name('JTF', 'JTF_RS_ROLE_NAME_EXISTS');
953: fnd_msg_pub.add;
954: CLOSE c_role_name_check;
955: x_return_status := fnd_api.g_ret_sts_error;
956: RAISE fnd_api.g_exc_error;
957: END IF;
958: CLOSE c_role_name_check;
959: END IF;
952: fnd_message.set_name('JTF', 'JTF_RS_ROLE_NAME_EXISTS');
953: fnd_msg_pub.add;
954: CLOSE c_role_name_check;
955: x_return_status := fnd_api.g_ret_sts_error;
956: RAISE fnd_api.g_exc_error;
957: END IF;
958: CLOSE c_role_name_check;
959: END IF;
960: END IF;
963:
964: --Validate Flags
965:
966: --Validate the seeded flag
967: IF l_seeded_flag <> FND_API.G_MISS_CHAR THEN
968: IF rs_role_rec.l_seeded_flag IS NOT NULL THEN
969: jtf_resource_utl.validate_rs_role_flags (
970: p_rs_role_flag => rs_role_rec.l_seeded_flag,
971: x_return_status => x_return_status
969: jtf_resource_utl.validate_rs_role_flags (
970: p_rs_role_flag => rs_role_rec.l_seeded_flag,
971: x_return_status => x_return_status
972: );
973: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
974: x_return_status := fnd_api.g_ret_sts_unexp_error;
975: RAISE fnd_api.g_exc_unexpected_error;
976: END IF;
977: END IF;
970: p_rs_role_flag => rs_role_rec.l_seeded_flag,
971: x_return_status => x_return_status
972: );
973: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
974: x_return_status := fnd_api.g_ret_sts_unexp_error;
975: RAISE fnd_api.g_exc_unexpected_error;
976: END IF;
977: END IF;
978: END IF;
971: x_return_status => x_return_status
972: );
973: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
974: x_return_status := fnd_api.g_ret_sts_unexp_error;
975: RAISE fnd_api.g_exc_unexpected_error;
976: END IF;
977: END IF;
978: END IF;
979:
977: END IF;
978: END IF;
979:
980: --Validate the member flag
981: IF l_member_flag <> FND_API.G_MISS_CHAR THEN
982: IF rs_role_rec.l_member_flag IS NOT NULL THEN
983: jtf_resource_utl.validate_rs_role_flags (
984: p_rs_role_flag => rs_role_rec.l_member_flag,
985: x_return_status => x_return_status
983: jtf_resource_utl.validate_rs_role_flags (
984: p_rs_role_flag => rs_role_rec.l_member_flag,
985: x_return_status => x_return_status
986: );
987: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
988: x_return_status := fnd_api.g_ret_sts_unexp_error;
989: RAISE fnd_api.g_exc_unexpected_error;
990: END IF;
991: END IF;
984: p_rs_role_flag => rs_role_rec.l_member_flag,
985: x_return_status => x_return_status
986: );
987: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
988: x_return_status := fnd_api.g_ret_sts_unexp_error;
989: RAISE fnd_api.g_exc_unexpected_error;
990: END IF;
991: END IF;
992: END IF;
985: x_return_status => x_return_status
986: );
987: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
988: x_return_status := fnd_api.g_ret_sts_unexp_error;
989: RAISE fnd_api.g_exc_unexpected_error;
990: END IF;
991: END IF;
992: END IF;
993:
991: END IF;
992: END IF;
993:
994: --Validate the admin flag
995: IF l_admin_flag <> FND_API.G_MISS_CHAR THEN
996: IF rs_role_rec.l_admin_flag IS NOT NULL THEN
997: jtf_resource_utl.validate_rs_role_flags (
998: p_rs_role_flag => rs_role_rec.l_admin_flag,
999: x_return_status => x_return_status
997: jtf_resource_utl.validate_rs_role_flags (
998: p_rs_role_flag => rs_role_rec.l_admin_flag,
999: x_return_status => x_return_status
1000: );
1001: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1002: x_return_status := fnd_api.g_ret_sts_unexp_error;
1003: RAISE fnd_api.g_exc_unexpected_error;
1004: END IF;
1005: END IF;
998: p_rs_role_flag => rs_role_rec.l_admin_flag,
999: x_return_status => x_return_status
1000: );
1001: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1002: x_return_status := fnd_api.g_ret_sts_unexp_error;
1003: RAISE fnd_api.g_exc_unexpected_error;
1004: END IF;
1005: END IF;
1006: END IF;
999: x_return_status => x_return_status
1000: );
1001: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1002: x_return_status := fnd_api.g_ret_sts_unexp_error;
1003: RAISE fnd_api.g_exc_unexpected_error;
1004: END IF;
1005: END IF;
1006: END IF;
1007:
1005: END IF;
1006: END IF;
1007:
1008: --Validate the lead flag
1009: IF l_lead_flag <> FND_API.G_MISS_CHAR THEN
1010: IF rs_role_rec.l_lead_flag IS NOT NULL THEN
1011: jtf_resource_utl.validate_rs_role_flags (
1012: p_rs_role_flag => rs_role_rec.l_lead_flag,
1013: x_return_status => x_return_status
1011: jtf_resource_utl.validate_rs_role_flags (
1012: p_rs_role_flag => rs_role_rec.l_lead_flag,
1013: x_return_status => x_return_status
1014: );
1015: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1016: x_return_status := fnd_api.g_ret_sts_unexp_error;
1017: RAISE fnd_api.g_exc_unexpected_error;
1018: END IF;
1019: END IF;
1012: p_rs_role_flag => rs_role_rec.l_lead_flag,
1013: x_return_status => x_return_status
1014: );
1015: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1016: x_return_status := fnd_api.g_ret_sts_unexp_error;
1017: RAISE fnd_api.g_exc_unexpected_error;
1018: END IF;
1019: END IF;
1020: END IF;
1013: x_return_status => x_return_status
1014: );
1015: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1016: x_return_status := fnd_api.g_ret_sts_unexp_error;
1017: RAISE fnd_api.g_exc_unexpected_error;
1018: END IF;
1019: END IF;
1020: END IF;
1021:
1019: END IF;
1020: END IF;
1021:
1022: --Validate the manager flag
1023: IF l_manager_flag <> FND_API.G_MISS_CHAR THEN
1024: IF rs_role_rec.l_manager_flag IS NOT NULL THEN
1025: jtf_resource_utl.validate_rs_role_flags (
1026: p_rs_role_flag => rs_role_rec.l_manager_flag,
1027: x_return_status => x_return_status
1025: jtf_resource_utl.validate_rs_role_flags (
1026: p_rs_role_flag => rs_role_rec.l_manager_flag,
1027: x_return_status => x_return_status
1028: );
1029: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1030: x_return_status := fnd_api.g_ret_sts_unexp_error;
1031: RAISE fnd_api.g_exc_unexpected_error;
1032: END IF;
1033: END IF;
1026: p_rs_role_flag => rs_role_rec.l_manager_flag,
1027: x_return_status => x_return_status
1028: );
1029: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1030: x_return_status := fnd_api.g_ret_sts_unexp_error;
1031: RAISE fnd_api.g_exc_unexpected_error;
1032: END IF;
1033: END IF;
1034: END IF;
1027: x_return_status => x_return_status
1028: );
1029: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1030: x_return_status := fnd_api.g_ret_sts_unexp_error;
1031: RAISE fnd_api.g_exc_unexpected_error;
1032: END IF;
1033: END IF;
1034: END IF;
1035:
1033: END IF;
1034: END IF;
1035:
1036: --Validate the active flag
1037: IF l_active_flag <> FND_API.G_MISS_CHAR THEN
1038: IF rs_role_rec.l_active_flag IS NOT NULL THEN
1039: jtf_resource_utl.validate_rs_role_flags (
1040: p_rs_role_flag => rs_role_rec.l_active_flag,
1041: x_return_status => x_return_status
1039: jtf_resource_utl.validate_rs_role_flags (
1040: p_rs_role_flag => rs_role_rec.l_active_flag,
1041: x_return_status => x_return_status
1042: );
1043: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1044: x_return_status := fnd_api.g_ret_sts_unexp_error;
1045: RAISE fnd_api.g_exc_unexpected_error;
1046: END IF;
1047: END IF;
1040: p_rs_role_flag => rs_role_rec.l_active_flag,
1041: x_return_status => x_return_status
1042: );
1043: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1044: x_return_status := fnd_api.g_ret_sts_unexp_error;
1045: RAISE fnd_api.g_exc_unexpected_error;
1046: END IF;
1047: END IF;
1048: END IF;
1041: x_return_status => x_return_status
1042: );
1043: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1044: x_return_status := fnd_api.g_ret_sts_unexp_error;
1045: RAISE fnd_api.g_exc_unexpected_error;
1046: END IF;
1047: END IF;
1048: END IF;
1049:
1070: l_resource_role_rec.manager_flag := rs_role_rec.l_manager_flag;
1071:
1072: jtf_rs_wf_events_pub.update_resource_role
1073: (p_api_version => 1.0
1074: ,p_init_msg_list => fnd_api.g_false
1075: ,p_commit => fnd_api.g_false
1076: ,p_resource_role_rec => l_resource_role_rec
1077: ,x_return_status => l_return_status
1078: ,x_msg_count => l_msg_count
1071:
1072: jtf_rs_wf_events_pub.update_resource_role
1073: (p_api_version => 1.0
1074: ,p_init_msg_list => fnd_api.g_false
1075: ,p_commit => fnd_api.g_false
1076: ,p_resource_role_rec => l_resource_role_rec
1077: ,x_return_status => l_return_status
1078: ,x_msg_count => l_msg_count
1079: ,x_msg_data => l_msg_data);
1128:
1129: EXCEPTION
1130: WHEN NO_DATA_FOUND THEN
1131: CLOSE c_rs_role_update;
1132: x_return_status := fnd_api.g_ret_sts_unexp_error;
1133: fnd_message.set_name('JTF', 'JTF_RS_TABLE_HANDLER_ERROR');
1134: fnd_msg_pub.add;
1135: RAISE fnd_api.g_exc_unexpected_error;
1136: END;
1131: CLOSE c_rs_role_update;
1132: x_return_status := fnd_api.g_ret_sts_unexp_error;
1133: fnd_message.set_name('JTF', 'JTF_RS_TABLE_HANDLER_ERROR');
1134: fnd_msg_pub.add;
1135: RAISE fnd_api.g_exc_unexpected_error;
1136: END;
1137: --dbms_output.put_line('Role Successfully Updated');
1138:
1139: --Post Call to Customer User Hook
1158: X_RETURN_STATUS => x_return_status,
1159: X_MSG_COUNT => x_msg_count,
1160: X_MSG_DATA => x_msg_data
1161: );
1162: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1163: x_return_status := fnd_api.g_ret_sts_unexp_error;
1164: fnd_message.set_name('JTF', 'JTF_RS_ERR_POST_CUST_USR_HOOK');
1165: fnd_msg_pub.add;
1166: RAISE fnd_api.g_exc_unexpected_error;
1159: X_MSG_COUNT => x_msg_count,
1160: X_MSG_DATA => x_msg_data
1161: );
1162: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1163: x_return_status := fnd_api.g_ret_sts_unexp_error;
1164: fnd_message.set_name('JTF', 'JTF_RS_ERR_POST_CUST_USR_HOOK');
1165: fnd_msg_pub.add;
1166: RAISE fnd_api.g_exc_unexpected_error;
1167: END IF;
1162: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1163: x_return_status := fnd_api.g_ret_sts_unexp_error;
1164: fnd_message.set_name('JTF', 'JTF_RS_ERR_POST_CUST_USR_HOOK');
1165: fnd_msg_pub.add;
1166: RAISE fnd_api.g_exc_unexpected_error;
1167: END IF;
1168: END IF;
1169:
1170: --Post Call to Vertical User Hook
1189: X_RETURN_STATUS => x_return_status,
1190: X_MSG_COUNT => x_msg_count,
1191: X_MSG_DATA => x_msg_data
1192: );
1193: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1194: x_return_status := fnd_api.g_ret_sts_unexp_error;
1195: fnd_message.set_name('JTF', 'JTF_RS_ERR_POST_VERT_USR_HOOK');
1196: fnd_msg_pub.add;
1197: RAISE fnd_api.g_exc_unexpected_error;
1190: X_MSG_COUNT => x_msg_count,
1191: X_MSG_DATA => x_msg_data
1192: );
1193: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1194: x_return_status := fnd_api.g_ret_sts_unexp_error;
1195: fnd_message.set_name('JTF', 'JTF_RS_ERR_POST_VERT_USR_HOOK');
1196: fnd_msg_pub.add;
1197: RAISE fnd_api.g_exc_unexpected_error;
1198: END IF;
1193: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1194: x_return_status := fnd_api.g_ret_sts_unexp_error;
1195: fnd_message.set_name('JTF', 'JTF_RS_ERR_POST_VERT_USR_HOOK');
1196: fnd_msg_pub.add;
1197: RAISE fnd_api.g_exc_unexpected_error;
1198: END IF;
1199: END IF;
1200:
1201: --Post Call to Vertical User Hook
1220: X_RETURN_STATUS => x_return_status,
1221: X_MSG_COUNT => x_msg_count,
1222: X_MSG_DATA => x_msg_data
1223: );
1224: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1225: x_return_status := fnd_api.g_ret_sts_unexp_error;
1226: fnd_message.set_name('JTF', 'JTF_RS_ERR_POST_INT_USR_HOOK');
1227: fnd_msg_pub.add;
1228: RAISE fnd_api.g_exc_unexpected_error;
1221: X_MSG_COUNT => x_msg_count,
1222: X_MSG_DATA => x_msg_data
1223: );
1224: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1225: x_return_status := fnd_api.g_ret_sts_unexp_error;
1226: fnd_message.set_name('JTF', 'JTF_RS_ERR_POST_INT_USR_HOOK');
1227: fnd_msg_pub.add;
1228: RAISE fnd_api.g_exc_unexpected_error;
1229: END IF;
1224: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1225: x_return_status := fnd_api.g_ret_sts_unexp_error;
1226: fnd_message.set_name('JTF', 'JTF_RS_ERR_POST_INT_USR_HOOK');
1227: fnd_msg_pub.add;
1228: RAISE fnd_api.g_exc_unexpected_error;
1229: END IF;
1230: END IF;
1231:
1232: /* Standard call for Message Generation */
1255: p_action_code => 'U',
1256: p_bind_data_id => l_bind_data_id,
1257: x_return_code => x_return_status);
1258:
1259: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1260: --dbms_output.put_line('Returned Error status from the Message Generation API');
1261: x_return_status := fnd_api.g_ret_sts_unexp_error;
1262: fnd_message.set_name('JTF', 'JTF_RS_ERR_MESG_GENERATE_API');
1263: fnd_msg_pub.add;
1257: x_return_code => x_return_status);
1258:
1259: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1260: --dbms_output.put_line('Returned Error status from the Message Generation API');
1261: x_return_status := fnd_api.g_ret_sts_unexp_error;
1262: fnd_message.set_name('JTF', 'JTF_RS_ERR_MESG_GENERATE_API');
1263: fnd_msg_pub.add;
1264: RAISE fnd_api.g_exc_unexpected_error;
1265: END IF;
1260: --dbms_output.put_line('Returned Error status from the Message Generation API');
1261: x_return_status := fnd_api.g_ret_sts_unexp_error;
1262: fnd_message.set_name('JTF', 'JTF_RS_ERR_MESG_GENERATE_API');
1263: fnd_msg_pub.add;
1264: RAISE fnd_api.g_exc_unexpected_error;
1265: END IF;
1266: END IF;
1267: END IF;
1268:
1265: END IF;
1266: END IF;
1267: END IF;
1268:
1269: IF fnd_api.to_boolean(p_commit) THEN
1270: COMMIT WORK;
1271: END IF;
1272:
1273: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1272:
1273: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1274:
1275: EXCEPTION
1276: WHEN fnd_api.g_exc_unexpected_error THEN
1277: --DBMS_OUTPUT.put_line (' ========================================== ');
1278: --DBMS_OUTPUT.put_line ('=========== Raised Unexpected Error =============== ');
1279: ROLLBACK TO update_rs_resource_roles_pvt;
1280: x_return_status := fnd_api.g_ret_sts_unexp_error;
1276: WHEN fnd_api.g_exc_unexpected_error THEN
1277: --DBMS_OUTPUT.put_line (' ========================================== ');
1278: --DBMS_OUTPUT.put_line ('=========== Raised Unexpected Error =============== ');
1279: ROLLBACK TO update_rs_resource_roles_pvt;
1280: x_return_status := fnd_api.g_ret_sts_unexp_error;
1281: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1282: WHEN OTHERS THEN
1283: --DBMS_OUTPUT.put_line (' ========================================== ');
1284: --DBMS_OUTPUT.put_line (' =========== Raised Others in Update Resource Role Pub =============');
1283: --DBMS_OUTPUT.put_line (' ========================================== ');
1284: --DBMS_OUTPUT.put_line (' =========== Raised Others in Update Resource Role Pub =============');
1285: --DBMS_OUTPUT.put_line (SQLCODE || SQLERRM);
1286: ROLLBACK TO update_rs_resource_roles_pvt;
1287: x_return_status := fnd_api.g_ret_sts_unexp_error;
1288: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1289:
1290: END update_rs_resource_roles;
1291:
1346: END;
1347:
1348: BEGIN
1349: SAVEPOINT delete_rs_resource_roles_pvt;
1350: x_return_status := fnd_api.g_ret_sts_success;
1351: --DBMS_OUTPUT.put_line(' Started Delete Resource Roles Pub ');
1352: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1353: RAISE fnd_api.g_exc_unexpected_error;
1354: END IF;
1348: BEGIN
1349: SAVEPOINT delete_rs_resource_roles_pvt;
1350: x_return_status := fnd_api.g_ret_sts_success;
1351: --DBMS_OUTPUT.put_line(' Started Delete Resource Roles Pub ');
1352: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1353: RAISE fnd_api.g_exc_unexpected_error;
1354: END IF;
1355: IF fnd_api.to_boolean(p_init_msg_list) THEN
1356: fnd_msg_pub.initialize;
1349: SAVEPOINT delete_rs_resource_roles_pvt;
1350: x_return_status := fnd_api.g_ret_sts_success;
1351: --DBMS_OUTPUT.put_line(' Started Delete Resource Roles Pub ');
1352: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1353: RAISE fnd_api.g_exc_unexpected_error;
1354: END IF;
1355: IF fnd_api.to_boolean(p_init_msg_list) THEN
1356: fnd_msg_pub.initialize;
1357: END IF;
1351: --DBMS_OUTPUT.put_line(' Started Delete Resource Roles Pub ');
1352: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1353: RAISE fnd_api.g_exc_unexpected_error;
1354: END IF;
1355: IF fnd_api.to_boolean(p_init_msg_list) THEN
1356: fnd_msg_pub.initialize;
1357: END IF;
1358:
1359: IF role_used(p_role_id) THEN
1356: fnd_msg_pub.initialize;
1357: END IF;
1358:
1359: IF role_used(p_role_id) THEN
1360: x_return_status := fnd_api.g_ret_sts_unexp_error;
1361: fnd_message.set_name('JTF', 'JTF_RS_ROLE_USED');
1362: fnd_message.set_token('ROLE_NAME', get_role_name(p_role_id));
1363: fnd_msg_pub.add;
1364: RAISE fnd_api.g_exc_unexpected_error;
1360: x_return_status := fnd_api.g_ret_sts_unexp_error;
1361: fnd_message.set_name('JTF', 'JTF_RS_ROLE_USED');
1362: fnd_message.set_token('ROLE_NAME', get_role_name(p_role_id));
1363: fnd_msg_pub.add;
1364: RAISE fnd_api.g_exc_unexpected_error;
1365: END IF;
1366: --Pre Call to Customer User Hook
1367: IF jtf_usr_hks.ok_to_execute(
1368: 'JTF_RS_ROLES_PVT',
1376: X_RETURN_STATUS => x_return_status,
1377: X_MSG_COUNT => x_msg_count,
1378: X_MSG_DATA => x_msg_data
1379: );
1380: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1381: x_return_status := fnd_api.g_ret_sts_unexp_error;
1382: fnd_message.set_name('JTF', 'JTF_RS_ERR_PRE_CUST_USR_HOOK');
1383: fnd_msg_pub.add;
1384: RAISE fnd_api.g_exc_unexpected_error;
1377: X_MSG_COUNT => x_msg_count,
1378: X_MSG_DATA => x_msg_data
1379: );
1380: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1381: x_return_status := fnd_api.g_ret_sts_unexp_error;
1382: fnd_message.set_name('JTF', 'JTF_RS_ERR_PRE_CUST_USR_HOOK');
1383: fnd_msg_pub.add;
1384: RAISE fnd_api.g_exc_unexpected_error;
1385: END IF;
1380: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1381: x_return_status := fnd_api.g_ret_sts_unexp_error;
1382: fnd_message.set_name('JTF', 'JTF_RS_ERR_PRE_CUST_USR_HOOK');
1383: fnd_msg_pub.add;
1384: RAISE fnd_api.g_exc_unexpected_error;
1385: END IF;
1386: END IF;
1387:
1388: --Pre Call to Vertical User Hook
1399: X_MSG_COUNT => x_msg_count,
1400: X_MSG_DATA => x_msg_data
1401: );
1402:
1403: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1404: x_return_status := fnd_api.g_ret_sts_unexp_error;
1405: fnd_message.set_name('JTF', 'JTF_RS_ERR_PRE_VERT_USR_HOOK');
1406: fnd_msg_pub.add;
1407: RAISE fnd_api.g_exc_unexpected_error;
1400: X_MSG_DATA => x_msg_data
1401: );
1402:
1403: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1404: x_return_status := fnd_api.g_ret_sts_unexp_error;
1405: fnd_message.set_name('JTF', 'JTF_RS_ERR_PRE_VERT_USR_HOOK');
1406: fnd_msg_pub.add;
1407: RAISE fnd_api.g_exc_unexpected_error;
1408: END IF;
1403: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1404: x_return_status := fnd_api.g_ret_sts_unexp_error;
1405: fnd_message.set_name('JTF', 'JTF_RS_ERR_PRE_VERT_USR_HOOK');
1406: fnd_msg_pub.add;
1407: RAISE fnd_api.g_exc_unexpected_error;
1408: END IF;
1409: END IF;
1410:
1411: --Pre Call to Internal User Hook
1421: X_RETURN_STATUS => x_return_status,
1422: X_MSG_COUNT => x_msg_count,
1423: X_MSG_DATA => x_msg_data
1424: );
1425: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1426: x_return_status := fnd_api.g_ret_sts_unexp_error;
1427: fnd_message.set_name('JTF', 'JTF_RS_ERR_PRE_INT_USR_HOOK');
1428: fnd_msg_pub.add;
1429: RAISE fnd_api.g_exc_unexpected_error;
1422: X_MSG_COUNT => x_msg_count,
1423: X_MSG_DATA => x_msg_data
1424: );
1425: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1426: x_return_status := fnd_api.g_ret_sts_unexp_error;
1427: fnd_message.set_name('JTF', 'JTF_RS_ERR_PRE_INT_USR_HOOK');
1428: fnd_msg_pub.add;
1429: RAISE fnd_api.g_exc_unexpected_error;
1430: END IF;
1425: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1426: x_return_status := fnd_api.g_ret_sts_unexp_error;
1427: fnd_message.set_name('JTF', 'JTF_RS_ERR_PRE_INT_USR_HOOK');
1428: fnd_msg_pub.add;
1429: RAISE fnd_api.g_exc_unexpected_error;
1430: END IF;
1431: END IF;
1432:
1433: --Put all Validations here
1444: );
1445: -- added for NOCOPY
1446: l_role_id := l_role_id_out;
1447:
1448: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1449: x_return_status := fnd_api.g_ret_sts_unexp_error;
1450: RAISE fnd_api.g_exc_unexpected_error;
1451: END IF;
1452:
1445: -- added for NOCOPY
1446: l_role_id := l_role_id_out;
1447:
1448: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1449: x_return_status := fnd_api.g_ret_sts_unexp_error;
1450: RAISE fnd_api.g_exc_unexpected_error;
1451: END IF;
1452:
1453: END;
1446: l_role_id := l_role_id_out;
1447:
1448: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1449: x_return_status := fnd_api.g_ret_sts_unexp_error;
1450: RAISE fnd_api.g_exc_unexpected_error;
1451: END IF;
1452:
1453: END;
1454:
1464: jtf_rs_roles_pkg.delete_row (
1465: X_ROLE_ID => l_role_id
1466: );
1467:
1468: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1469: --dbms_output.put_line('Failed status from call to private procedure');
1470: RAISE fnd_api.g_exc_unexpected_error;
1471: END IF;
1472:
1466: );
1467:
1468: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1469: --dbms_output.put_line('Failed status from call to private procedure');
1470: RAISE fnd_api.g_exc_unexpected_error;
1471: END IF;
1472:
1473: --Post Call to Customer User Hook
1474: IF jtf_usr_hks.ok_to_execute(
1483: X_RETURN_STATUS => x_return_status,
1484: X_MSG_COUNT => x_msg_count,
1485: X_MSG_DATA => x_msg_data
1486: );
1487: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1488: x_return_status := fnd_api.g_ret_sts_unexp_error;
1489: fnd_message.set_name('JTF', 'JTF_RS_ERR_POST_CUST_USR_HOOK');
1490: fnd_msg_pub.add;
1491: RAISE fnd_api.g_exc_unexpected_error;
1484: X_MSG_COUNT => x_msg_count,
1485: X_MSG_DATA => x_msg_data
1486: );
1487: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1488: x_return_status := fnd_api.g_ret_sts_unexp_error;
1489: fnd_message.set_name('JTF', 'JTF_RS_ERR_POST_CUST_USR_HOOK');
1490: fnd_msg_pub.add;
1491: RAISE fnd_api.g_exc_unexpected_error;
1492: END IF;
1487: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1488: x_return_status := fnd_api.g_ret_sts_unexp_error;
1489: fnd_message.set_name('JTF', 'JTF_RS_ERR_POST_CUST_USR_HOOK');
1490: fnd_msg_pub.add;
1491: RAISE fnd_api.g_exc_unexpected_error;
1492: END IF;
1493: END IF;
1494:
1495: --Post Call to Vertical User Hook
1505: X_RETURN_STATUS => x_return_status,
1506: X_MSG_COUNT => x_msg_count,
1507: X_MSG_DATA => x_msg_data
1508: );
1509: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1510: x_return_status := fnd_api.g_ret_sts_unexp_error;
1511: fnd_message.set_name('JTF', 'JTF_RS_ERR_POST_VERT_USR_HOOK');
1512: fnd_msg_pub.add;
1513: RAISE fnd_api.g_exc_unexpected_error;
1506: X_MSG_COUNT => x_msg_count,
1507: X_MSG_DATA => x_msg_data
1508: );
1509: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1510: x_return_status := fnd_api.g_ret_sts_unexp_error;
1511: fnd_message.set_name('JTF', 'JTF_RS_ERR_POST_VERT_USR_HOOK');
1512: fnd_msg_pub.add;
1513: RAISE fnd_api.g_exc_unexpected_error;
1514: END IF;
1509: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1510: x_return_status := fnd_api.g_ret_sts_unexp_error;
1511: fnd_message.set_name('JTF', 'JTF_RS_ERR_POST_VERT_USR_HOOK');
1512: fnd_msg_pub.add;
1513: RAISE fnd_api.g_exc_unexpected_error;
1514: END IF;
1515: END IF;
1516:
1517: --Post Call to Internal User Hook
1527: X_RETURN_STATUS => x_return_status,
1528: X_MSG_COUNT => x_msg_count,
1529: X_MSG_DATA => x_msg_data
1530: );
1531: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1532: x_return_status := fnd_api.g_ret_sts_unexp_error;
1533: fnd_message.set_name('JTF', 'JTF_RS_ERR_POST_INT_USR_HOOK');
1534: fnd_msg_pub.add;
1535: RAISE fnd_api.g_exc_unexpected_error;
1528: X_MSG_COUNT => x_msg_count,
1529: X_MSG_DATA => x_msg_data
1530: );
1531: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1532: x_return_status := fnd_api.g_ret_sts_unexp_error;
1533: fnd_message.set_name('JTF', 'JTF_RS_ERR_POST_INT_USR_HOOK');
1534: fnd_msg_pub.add;
1535: RAISE fnd_api.g_exc_unexpected_error;
1536: END IF;
1531: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1532: x_return_status := fnd_api.g_ret_sts_unexp_error;
1533: fnd_message.set_name('JTF', 'JTF_RS_ERR_POST_INT_USR_HOOK');
1534: fnd_msg_pub.add;
1535: RAISE fnd_api.g_exc_unexpected_error;
1536: END IF;
1537: END IF;
1538:
1539: /* Standard call for Message Generation */
1562: p_action_code => 'D',
1563: p_bind_data_id => l_bind_data_id,
1564: x_return_code => x_return_status);
1565:
1566: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1567: --dbms_output.put_line('Returned Error status from the Message Generation API');
1568: x_return_status := fnd_api.g_ret_sts_unexp_error;
1569: fnd_message.set_name('JTF', 'JTF_RS_ERR_MESG_GENERATE_API');
1570: fnd_msg_pub.add;
1564: x_return_code => x_return_status);
1565:
1566: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1567: --dbms_output.put_line('Returned Error status from the Message Generation API');
1568: x_return_status := fnd_api.g_ret_sts_unexp_error;
1569: fnd_message.set_name('JTF', 'JTF_RS_ERR_MESG_GENERATE_API');
1570: fnd_msg_pub.add;
1571: RAISE fnd_api.g_exc_unexpected_error;
1572: END IF;
1567: --dbms_output.put_line('Returned Error status from the Message Generation API');
1568: x_return_status := fnd_api.g_ret_sts_unexp_error;
1569: fnd_message.set_name('JTF', 'JTF_RS_ERR_MESG_GENERATE_API');
1570: fnd_msg_pub.add;
1571: RAISE fnd_api.g_exc_unexpected_error;
1572: END IF;
1573: END IF;
1574: END IF;
1575:
1572: END IF;
1573: END IF;
1574: END IF;
1575:
1576: IF fnd_api.to_boolean(p_commit) THEN
1577: COMMIT WORK;
1578: END IF;
1579:
1580: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1584:
1585: begin
1586: jtf_rs_wf_events_pub.delete_resource_role
1587: (p_api_version => 1.0
1588: ,p_init_msg_list => fnd_api.g_false
1589: ,p_commit => fnd_api.g_false
1590: ,p_role_id => l_role_id
1591: ,x_return_status => l_return_status
1592: ,x_msg_count => l_msg_count
1585: begin
1586: jtf_rs_wf_events_pub.delete_resource_role
1587: (p_api_version => 1.0
1588: ,p_init_msg_list => fnd_api.g_false
1589: ,p_commit => fnd_api.g_false
1590: ,p_role_id => l_role_id
1591: ,x_return_status => l_return_status
1592: ,x_msg_count => l_msg_count
1593: ,x_msg_data => l_msg_data);
1598:
1599: /* End of publish API call */
1600:
1601: EXCEPTION
1602: WHEN fnd_api.g_exc_unexpected_error THEN
1603: --DBMS_OUTPUT.put_line (' ========================================== ');
1604: --DBMS_OUTPUT.put_line ('=========== Raised Unexpected Error =============== ');
1605: ROLLBACK TO delete_rs_resource_roles_pvt;
1606: x_return_status := fnd_api.g_ret_sts_unexp_error;
1602: WHEN fnd_api.g_exc_unexpected_error THEN
1603: --DBMS_OUTPUT.put_line (' ========================================== ');
1604: --DBMS_OUTPUT.put_line ('=========== Raised Unexpected Error =============== ');
1605: ROLLBACK TO delete_rs_resource_roles_pvt;
1606: x_return_status := fnd_api.g_ret_sts_unexp_error;
1607: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1608: WHEN OTHERS THEN
1609: --DBMS_OUTPUT.put_line (' ========================================== ');
1610: --DBMS_OUTPUT.put_line (' =========== Raised Others in Delete Resource Role Pub =============');
1609: --DBMS_OUTPUT.put_line (' ========================================== ');
1610: --DBMS_OUTPUT.put_line (' =========== Raised Others in Delete Resource Role Pub =============');
1611: --DBMS_OUTPUT.put_line (SQLCODE || SQLERRM);
1612: ROLLBACK TO delete_rs_resource_roles_pvt;
1613: x_return_status := fnd_api.g_ret_sts_unexp_error;
1614: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1615:
1616: END delete_rs_resource_roles;
1617: