104:
105: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
106: if fnd_api.tO_BOOLEAN(p_init_msg_list)
107: then
108: fnd_msg_pub.Initialize;
109: end if;
110:
111: open get_resource_dates(p_resource_id);
112: fetch get_resource_dates
350:
351: fnd_message.set_name('JTF', 'JTF_RS_RESOURCE_EXISTS_GROUP');
352: fnd_message.set_token('P_RESOURCE',l_resource_name);
353: fnd_message.set_token('P_GROUP',l_group_name);
354: fnd_msg_pub.add;
355: RAISE fnd_api.g_exc_unexpected_error;
356:
357: end if;
358: end if;
387: then
388: commit work;
389: end if;
390:
391: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
392:
393: exception
394: when fnd_api.g_exc_unexpected_error
395: then
394: when fnd_api.g_exc_unexpected_error
395: then
396: rollback to cr_grp_memship;
397: x_return_status := fnd_api.g_ret_sts_error;
398: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
399: WHEN fnd_api.g_exc_error
400: THEN
401: ROLLBACK TO cr_grp_memship;
402: x_return_status := fnd_api.g_ret_sts_error;
399: WHEN fnd_api.g_exc_error
400: THEN
401: ROLLBACK TO cr_grp_memship;
402: x_return_status := fnd_api.g_ret_sts_error;
403: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
404: when others
405: then
406: rollback to cr_grp_memship;
407: fnd_message.set_name ('JTF', 'JTF_RS_UNEXP_ERROR');
407: fnd_message.set_name ('JTF', 'JTF_RS_UNEXP_ERROR');
408: fnd_message.set_token('P_SQLCODE',SQLCODE);
409: fnd_message.set_token('P_SQLERRM',SQLERRM);
410: fnd_message.set_token('P_API_NAME',l_api_name);
411: FND_MSG_PUB.add;
412: x_return_status := fnd_api.g_ret_sts_unexp_error;
413: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
414:
415: END create_group_membership;
409: fnd_message.set_token('P_SQLERRM',SQLERRM);
410: fnd_message.set_token('P_API_NAME',l_api_name);
411: FND_MSG_PUB.add;
412: x_return_status := fnd_api.g_ret_sts_unexp_error;
413: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
414:
415: END create_group_membership;
416:
417: PROCEDURE update_group_membership
487:
488: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
489: if fnd_api.tO_BOOLEAN(p_init_msg_list)
490: then
491: fnd_msg_pub.Initialize;
492: end if;
493:
494: open get_resource_dates(p_resource_id);
495: fetch get_resource_dates
668: then
669: commit work;
670: end if;
671:
672: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
673:
674: exception
675: when fnd_api.g_exc_unexpected_error
676: then
675: when fnd_api.g_exc_unexpected_error
676: then
677: rollback to upd_grp_memship;
678: x_return_status := fnd_api.g_ret_sts_error;
679: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
680: WHEN fnd_api.g_exc_error
681: THEN
682: ROLLBACK TO upd_grp_memship;
683: x_return_status := fnd_api.g_ret_sts_error;
680: WHEN fnd_api.g_exc_error
681: THEN
682: ROLLBACK TO upd_grp_memship;
683: x_return_status := fnd_api.g_ret_sts_error;
684: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
685: when others
686: then
687: rollback to upd_grp_memship;
688: fnd_message.set_name ('JTF', 'JTF_RS_UNEXP_ERROR');
688: fnd_message.set_name ('JTF', 'JTF_RS_UNEXP_ERROR');
689: fnd_message.set_token('P_SQLCODE',SQLCODE);
690: fnd_message.set_token('P_SQLERRM',SQLERRM);
691: fnd_message.set_token('P_API_NAME',l_api_name);
692: FND_MSG_PUB.add;
693: x_return_status := fnd_api.g_ret_sts_unexp_error;
694: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
695:
696: END update_group_membership;
690: fnd_message.set_token('P_SQLERRM',SQLERRM);
691: fnd_message.set_token('P_API_NAME',l_api_name);
692: FND_MSG_PUB.add;
693: x_return_status := fnd_api.g_ret_sts_unexp_error;
694: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
695:
696: END update_group_membership;
697:
698: PROCEDURE delete_group_membership
746: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
747:
748: if fnd_api.tO_BOOLEAN(p_init_msg_list)
749: then
750: fnd_msg_pub.Initialize;
751: end if;
752:
753: if (p_role_relate_id is not null) then
754: jtf_rs_role_relate_pub.delete_resource_role_relate
799: then
800: commit work;
801: end if;
802:
803: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
804:
805: exception
806: when fnd_api.g_exc_unexpected_error
807: then
806: when fnd_api.g_exc_unexpected_error
807: then
808: rollback to del_grp_memship;
809: x_return_status := fnd_api.g_ret_sts_error;
810: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
811: WHEN fnd_api.g_exc_error
812: THEN
813: ROLLBACK TO del_grp_memship;
814: x_return_status := fnd_api.g_ret_sts_error;
811: WHEN fnd_api.g_exc_error
812: THEN
813: ROLLBACK TO del_grp_memship;
814: x_return_status := fnd_api.g_ret_sts_error;
815: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
816: when others
817: then
818: rollback to del_grp_memship;
819: fnd_message.set_name ('JTF', 'JTF_RS_UNEXP_ERROR');
819: fnd_message.set_name ('JTF', 'JTF_RS_UNEXP_ERROR');
820: fnd_message.set_token('P_SQLCODE',SQLCODE);
821: fnd_message.set_token('P_SQLERRM',SQLERRM);
822: fnd_message.set_token('P_API_NAME',l_api_name);
823: FND_MSG_PUB.add;
824: x_return_status := fnd_api.g_ret_sts_unexp_error;
825: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
826:
827: END delete_group_membership;
821: fnd_message.set_token('P_SQLERRM',SQLERRM);
822: fnd_message.set_token('P_API_NAME',l_api_name);
823: FND_MSG_PUB.add;
824: x_return_status := fnd_api.g_ret_sts_unexp_error;
825: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
826:
827: END delete_group_membership;
828:
829: END jtf_rs_grp_membership_pub;