55:
56: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
57: IF FND_API.To_boolean(P_INIT_MSG_LIST)
58: THEN
59: FND_MSG_PUB.Initialize;
60: END IF;
61:
62: l_date := sysdate;
63: l_user_id := NVL(FND_PROFILE.Value('USER_ID'), -1);
96: THEN
97: COMMIT WORK;
98: END IF;
99:
100: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
101:
102: EXCEPTION
103: WHEN fnd_api.g_exc_unexpected_error
104: THEN
103: WHEN fnd_api.g_exc_unexpected_error
104: THEN
105: ROLLBACK TO role_relate_audit;
106: --x_return_status := fnd_api.g_ret_sts_unexp_error;
107: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
108: WHEN fnd_api.g_exc_error
109: THEN
110: ROLLBACK TO role_relate_audit;
111: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
107: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
108: WHEN fnd_api.g_exc_error
109: THEN
110: ROLLBACK TO role_relate_audit;
111: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
112:
113: WHEN OTHERS
114: THEN
115: ROLLBACK TO role_relate_audit;
116: fnd_message.set_name ('JTF', 'JTF_RS_UNEXP_ERROR');
117: fnd_message.set_token('P_SQLCODE',SQLCODE);
118: fnd_message.set_token('P_SQLERRM',SQLERRM);
119: fnd_message.set_token('P_API_NAME',L_API_NAME);
120: FND_MSG_PUB.add;
121: x_return_status := fnd_api.g_ret_sts_unexp_error;
122: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
123:
124:
118: fnd_message.set_token('P_SQLERRM',SQLERRM);
119: fnd_message.set_token('P_API_NAME',L_API_NAME);
120: FND_MSG_PUB.add;
121: x_return_status := fnd_api.g_ret_sts_unexp_error;
122: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
123:
124:
125: END INSERT_ROLE_RELATE;
126:
202:
203: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
204: IF FND_API.To_boolean(P_INIT_MSG_LIST)
205: THEN
206: FND_MSG_PUB.Initialize;
207: END IF;
208:
209: l_date := sysdate;
210: l_user_id := NVL(FND_PROFILE.Value('USER_ID'), -1);
285: THEN
286: COMMIT WORK;
287: END IF;
288:
289: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
290:
291:
292: EXCEPTION
293: WHEN fnd_api.g_exc_unexpected_error
293: WHEN fnd_api.g_exc_unexpected_error
294: THEN
295: ROLLBACK TO role_relate_audit;
296: x_return_status := fnd_api.g_ret_sts_unexp_error;
297: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
298: WHEN fnd_api.g_exc_error
299: THEN
300: ROLLBACK TO role_relate_audit;
301: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
297: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
298: WHEN fnd_api.g_exc_error
299: THEN
300: ROLLBACK TO role_relate_audit;
301: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
302:
303: WHEN OTHERS
304: THEN
305: ROLLBACK TO role_relate_audit;
306: fnd_message.set_name ('JTF', 'JTF_RS_UNEXP_ERROR');
307: fnd_message.set_token('P_SQLCODE',SQLCODE);
308: fnd_message.set_token('P_SQLERRM',SQLERRM);
309: fnd_message.set_token('P_API_NAME',l_api_name);
310: FND_MSG_PUB.add;
311: x_return_status := fnd_api.g_ret_sts_unexp_error;
312: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
313:
314:
308: fnd_message.set_token('P_SQLERRM',SQLERRM);
309: fnd_message.set_token('P_API_NAME',l_api_name);
310: FND_MSG_PUB.add;
311: x_return_status := fnd_api.g_ret_sts_unexp_error;
312: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
313:
314:
315: END UPDATE_ROLE_RELATE;
316:
376:
377: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
378: IF FND_API.To_boolean(P_INIT_MSG_LIST)
379: THEN
380: FND_MSG_PUB.Initialize;
381: END IF;
382:
383: l_date := sysdate;
384: l_user_id := NVL(FND_PROFILE.Value('USER_ID'), -1);
435: THEN
436: COMMIT WORK;
437: END IF;
438:
439: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
440:
441: EXCEPTION
442: WHEN fnd_api.g_exc_unexpected_error
443: THEN
442: WHEN fnd_api.g_exc_unexpected_error
443: THEN
444: ROLLBACK TO role_relate_audit;
445: x_return_status := fnd_api.g_ret_sts_unexp_error;
446: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
447: WHEN fnd_api.g_exc_error
448: THEN
449: ROLLBACK TO role_relate_audit;
450: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
446: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
447: WHEN fnd_api.g_exc_error
448: THEN
449: ROLLBACK TO role_relate_audit;
450: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
451:
452: WHEN OTHERS
453: THEN
454: ROLLBACK TO role_relate_audit;
455: fnd_message.set_name ('JTF', 'JTF_RS_UNEXP_ERROR');
456: fnd_message.set_token('P_SQLCODE',SQLCODE);
457: fnd_message.set_token('P_SQLERRM',SQLERRM);
458: fnd_message.set_token('P_API_NAME',l_api_name);
459: FND_MSG_PUB.add;
460: x_return_status := fnd_api.g_ret_sts_unexp_error;
461: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
462:
463:
457: fnd_message.set_token('P_SQLERRM',SQLERRM);
458: fnd_message.set_token('P_API_NAME',l_api_name);
459: FND_MSG_PUB.add;
460: x_return_status := fnd_api.g_ret_sts_unexp_error;
461: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
462:
463:
464:
465: END DELETE_ROLE_RELATE;