[Home] [Help]
343:
344: l_api_name CONSTANT VARCHAR2(30) := 'INSERT_REP_MANAGER';
345: l_api_version CONSTANT NUMBER :=1.0;
346: l_date Date;
347: l_fnd_date Date := to_date(to_char(FND_API.G_MISS_DATE,'dd-MM-RRRR'),'dd-MM-RRRR');
348: l_user_id Number;
349: l_login_id Number;
350:
351: l_start_date_active DATE;
357: BEGIN
358: --Standard Start of API SAVEPOINT
359: SAVEPOINT member_denormalize;
360:
361: x_return_status := fnd_api.g_ret_sts_success;
362:
363: --Standard Call to check API compatibility
364: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
365: THEN
360:
361: x_return_status := fnd_api.g_ret_sts_success;
362:
363: --Standard Call to check API compatibility
364: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
365: THEN
366: RAISE FND_API.G_EXC_ERROR;
367: END IF;
368:
362:
363: --Standard Call to check API compatibility
364: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
365: THEN
366: RAISE FND_API.G_EXC_ERROR;
367: END IF;
368:
369: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
370: IF FND_API.To_boolean(P_INIT_MSG_LIST)
366: RAISE FND_API.G_EXC_ERROR;
367: END IF;
368:
369: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
370: IF FND_API.To_boolean(P_INIT_MSG_LIST)
371: THEN
372: FND_MSG_PUB.Initialize;
373: END IF;
374:
379:
380: -- if no group id or person id is passed in then return
381: IF p_role_relate_id IS NULL
382: THEN
383: x_return_status := fnd_api.g_ret_sts_error;
384: fnd_message.set_name ('JTF', 'JTF_RS_GROUP_RESOURCE_NULL');
385: FND_MSG_PUB.add;
386: RAISE fnd_api.g_exc_error;
387: END IF;
382: THEN
383: x_return_status := fnd_api.g_ret_sts_error;
384: fnd_message.set_name ('JTF', 'JTF_RS_GROUP_RESOURCE_NULL');
385: FND_MSG_PUB.add;
386: RAISE fnd_api.g_exc_error;
387: END IF;
388:
389:
390: --fetch the member details
462:
463:
464:
465:
466: IF fnd_api.to_boolean (p_commit)
467: THEN
468: l_count := l_count + 1;
469: if (l_count > 1000)
470: then
570: X_PAR_ROLE_RELATE_ID => same_grp_mgr_admin_rec.role_relate_id,
571: X_CHILD_ROLE_RELATE_ID => l_role_relate_id,
572: X_DENORM_LEVEL => 0);
573:
574: IF fnd_api.to_boolean (p_commit)
575: THEN
576: l_count := l_count + 1;
577: if (l_count > 1000)
578: then
684: X_PAR_ROLE_RELATE_ID => mem_dtls_rec.role_relate_id,
685: X_CHILD_ROLE_RELATE_ID =>other_rec.role_relate_id,
686: X_DENORM_LEVEL => 0);
687:
688: IF fnd_api.to_boolean (p_commit)
689: THEN
690: l_count := l_count + 1;
691: if (l_count > 1000)
692: then
806: X_PAR_ROLE_RELATE_ID => mgr_rec.role_relate_id,
807: X_CHILD_ROLE_RELATE_ID =>mem_dtls_rec.role_relate_id,
808: X_DENORM_LEVEL => par_grp_rec.denorm_level);
809:
810: IF fnd_api.to_boolean (p_commit)
811: THEN
812: l_count := l_count + 1;
813: if (l_count > 1000)
814: then
877: X_PAR_ROLE_RELATE_ID => mgr_rec.role_relate_id,
878: X_CHILD_ROLE_RELATE_ID =>mem_dtls_rec.role_relate_id,
879: X_DENORM_LEVEL => par_grp_rec.denorm_level);
880:
881: IF fnd_api.to_boolean (p_commit)
882: THEN
883: l_count := l_count + 1;
884: if (l_count > 1000)
885: then
1006: X_PAR_ROLE_RELATE_ID => l_role_relate_id,
1007: X_CHILD_ROLE_RELATE_ID =>child_mem_rec.role_relate_id,
1008: X_DENORM_LEVEL => child_grp_rec.denorm_level);
1009:
1010: IF fnd_api.to_boolean (p_commit)
1011: THEN
1012: l_count := l_count + 1;
1013: if (l_count > 1000)
1014: then
1077: X_PAR_ROLE_RELATE_ID => l_role_relate_id,
1078: X_CHILD_ROLE_RELATE_ID =>child_mem_rec.role_relate_id,
1079: X_DENORM_LEVEL => child_grp_rec.denorm_level);
1080:
1081: IF fnd_api.to_boolean (p_commit)
1082: THEN
1083: l_count := l_count + 1;
1084: if (l_count > 1000)
1085: then
1107:
1108: CLOSE mem_dtls_cur;
1109:
1110: --
1111: IF fnd_api.to_boolean (p_commit)
1112: THEN
1113: COMMIT WORK;
1114: END IF;
1115:
1115:
1116: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1117:
1118: EXCEPTION
1119: WHEN fnd_api.g_exc_unexpected_error
1120: THEN
1121: ROLLBACK TO member_denormalize;
1122: --fnd_message.set_name ('JTF', 'JTF_RS_REP_MGR_DENORM_ERR');
1123: --FND_MSG_PUB.add;
1120: THEN
1121: ROLLBACK TO member_denormalize;
1122: --fnd_message.set_name ('JTF', 'JTF_RS_REP_MGR_DENORM_ERR');
1123: --FND_MSG_PUB.add;
1124: --x_return_status := fnd_api.g_ret_sts_unexp_error;
1125: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1126: WHEN fnd_api.g_exc_error
1127: THEN
1128: ROLLBACK TO member_denormalize;
1122: --fnd_message.set_name ('JTF', 'JTF_RS_REP_MGR_DENORM_ERR');
1123: --FND_MSG_PUB.add;
1124: --x_return_status := fnd_api.g_ret_sts_unexp_error;
1125: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1126: WHEN fnd_api.g_exc_error
1127: THEN
1128: ROLLBACK TO member_denormalize;
1129: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1130:
1135: fnd_message.set_token('P_SQLCODE',SQLCODE);
1136: fnd_message.set_token('P_SQLERRM',SQLERRM);
1137: fnd_message.set_token('P_API_NAME',l_api_name);
1138: FND_MSG_PUB.add;
1139: x_return_status := fnd_api.g_ret_sts_unexp_error;
1140: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1141:
1142:
1143: END INSERT_REP_MANAGER;
1456: BEGIN
1457: --Standard Start of API SAVEPOINT
1458: SAVEPOINT member_denormalize;
1459:
1460: x_return_status := fnd_api.g_ret_sts_success;
1461:
1462: --Standard Call to check API compatibility
1463: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
1464: THEN
1459:
1460: x_return_status := fnd_api.g_ret_sts_success;
1461:
1462: --Standard Call to check API compatibility
1463: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
1464: THEN
1465: RAISE FND_API.G_EXC_ERROR;
1466: END IF;
1467:
1461:
1462: --Standard Call to check API compatibility
1463: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
1464: THEN
1465: RAISE FND_API.G_EXC_ERROR;
1466: END IF;
1467:
1468: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
1469: IF FND_API.To_boolean(P_INIT_MSG_LIST)
1465: RAISE FND_API.G_EXC_ERROR;
1466: END IF;
1467:
1468: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
1469: IF FND_API.To_boolean(P_INIT_MSG_LIST)
1470: THEN
1471: FND_MSG_PUB.Initialize;
1472: END IF;
1473:
1478:
1479: -- if no group id or person id is passed in then return
1480: IF p_role_relate_id IS NULL
1481: THEN
1482: x_return_status := fnd_api.g_ret_sts_error;
1483: fnd_message.set_name ('JTF', 'JTF_RS_GROUP_RESOURCE_NULL');
1484: FND_MSG_PUB.add;
1485: RAISE fnd_api.g_exc_error;
1486: END IF;
1481: THEN
1482: x_return_status := fnd_api.g_ret_sts_error;
1483: fnd_message.set_name ('JTF', 'JTF_RS_GROUP_RESOURCE_NULL');
1484: FND_MSG_PUB.add;
1485: RAISE fnd_api.g_exc_error;
1486: END IF;
1487:
1488:
1489: --fetch the member details
1552: X_LAST_UPDATE_LOGIN => l_login_id,
1553: X_PAR_ROLE_RELATE_ID => l_role_relate_id,
1554: X_CHILD_ROLE_RELATE_ID => l_role_relate_id);
1555:
1556: IF fnd_api.to_boolean (p_commit)
1557: THEN
1558: l_count := l_count + 1;
1559: if (l_count > 1000)
1560: then
1661: X_LAST_UPDATE_LOGIN => l_login_id,
1662: X_PAR_ROLE_RELATE_ID => same_grp_mgr_admin_rec.role_relate_id,
1663: X_CHILD_ROLE_RELATE_ID => l_role_relate_id);
1664:
1665: IF fnd_api.to_boolean (p_commit)
1666: THEN
1667: l_count := l_count + 1;
1668: if (l_count > 1000)
1669: then
1835: X_LAST_UPDATE_LOGIN => l_login_id,
1836: X_PAR_ROLE_RELATE_ID => mem_dtls_rec.role_relate_id,
1837: X_CHILD_ROLE_RELATE_ID =>other_rec.role_relate_id);
1838:
1839: IF fnd_api.to_boolean (p_commit)
1840: THEN
1841: l_count := l_count + 1;
1842: if (l_count > 1000)
1843: then
2019: X_LAST_UPDATE_LOGIN => l_login_id,
2020: X_PAR_ROLE_RELATE_ID => mgr_rec.role_relate_id,
2021: X_CHILD_ROLE_RELATE_ID =>mem_dtls_rec.role_relate_id);
2022:
2023: IF fnd_api.to_boolean (p_commit)
2024: THEN
2025: l_count := l_count + 1;
2026: if (l_count > 1000)
2027: then
2088: X_LAST_UPDATE_LOGIN => l_login_id,
2089: X_PAR_ROLE_RELATE_ID => mgr_rec.role_relate_id,
2090: X_CHILD_ROLE_RELATE_ID =>mem_dtls_rec.role_relate_id);
2091:
2092: IF fnd_api.to_boolean (p_commit)
2093: THEN
2094: l_count := l_count + 1;
2095: if (l_count > 1000)
2096: then
2199: X_LAST_UPDATE_LOGIN => l_login_id,
2200: X_PAR_ROLE_RELATE_ID => admin_rec.role_relate_id,
2201: X_CHILD_ROLE_RELATE_ID =>mem_dtls_rec.role_relate_id);
2202:
2203: IF fnd_api.to_boolean (p_commit)
2204: THEN
2205: l_count := l_count + 1;
2206: if (l_count > 1000)
2207: then
2402: X_LAST_UPDATE_LOGIN => l_login_id,
2403: X_PAR_ROLE_RELATE_ID => l_role_relate_id,
2404: X_CHILD_ROLE_RELATE_ID =>child_mem_rec.role_relate_id);
2405:
2406: IF fnd_api.to_boolean (p_commit)
2407: THEN
2408: l_count := l_count + 1;
2409: if (l_count > 1000)
2410: then
2471: X_LAST_UPDATE_LOGIN => l_login_id,
2472: X_PAR_ROLE_RELATE_ID => l_role_relate_id,
2473: X_CHILD_ROLE_RELATE_ID =>child_mem_rec.role_relate_id);
2474:
2475: IF fnd_api.to_boolean (p_commit)
2476: THEN
2477: l_count := l_count + 1;
2478: if (l_count > 1000)
2479: then
2502:
2503: CLOSE mem_dtls_cur;
2504:
2505: --
2506: IF fnd_api.to_boolean (p_commit)
2507: THEN
2508: COMMIT WORK;
2509: END IF;
2510:
2510:
2511: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2512:
2513: EXCEPTION
2514: WHEN fnd_api.g_exc_unexpected_error
2515: THEN
2516: ROLLBACK TO member_denormalize;
2517: --fnd_message.set_name ('JTF', 'JTF_RS_REP_MGR_DENORM_ERR');
2518: --FND_MSG_PUB.add;
2515: THEN
2516: ROLLBACK TO member_denormalize;
2517: --fnd_message.set_name ('JTF', 'JTF_RS_REP_MGR_DENORM_ERR');
2518: --FND_MSG_PUB.add;
2519: --x_return_status := fnd_api.g_ret_sts_unexp_error;
2520: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2521: WHEN fnd_api.g_exc_error
2522: THEN
2523: ROLLBACK TO member_denormalize;
2517: --fnd_message.set_name ('JTF', 'JTF_RS_REP_MGR_DENORM_ERR');
2518: --FND_MSG_PUB.add;
2519: --x_return_status := fnd_api.g_ret_sts_unexp_error;
2520: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2521: WHEN fnd_api.g_exc_error
2522: THEN
2523: ROLLBACK TO member_denormalize;
2524: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2525:
2530: fnd_message.set_token('P_SQLCODE',SQLCODE);
2531: fnd_message.set_token('P_SQLERRM',SQLERRM);
2532: fnd_message.set_token('P_API_NAME',l_api_name);
2533: FND_MSG_PUB.add;
2534: x_return_status := fnd_api.g_ret_sts_unexp_error;
2535: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2536:
2537:
2538: END INSERT_REP_MANAGER_MIGR;
2574: L_MSG_COUNT NUMBER;
2575: L_MSG_DATA VARCHAR2(200);
2576:
2577: l_count number := 0;
2578: l_pass_commit varchar2(1) := fnd_api.g_false;
2579: BEGIN
2580: --Standard Start of API SAVEPOINT
2581: SAVEPOINT member_denormalize;
2582:
2579: BEGIN
2580: --Standard Start of API SAVEPOINT
2581: SAVEPOINT member_denormalize;
2582:
2583: x_return_status := fnd_api.g_ret_sts_success;
2584:
2585: --Standard Call to check API compatibility
2586: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
2587: THEN
2582:
2583: x_return_status := fnd_api.g_ret_sts_success;
2584:
2585: --Standard Call to check API compatibility
2586: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
2587: THEN
2588: RAISE FND_API.G_EXC_ERROR;
2589: END IF;
2590:
2584:
2585: --Standard Call to check API compatibility
2586: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
2587: THEN
2588: RAISE FND_API.G_EXC_ERROR;
2589: END IF;
2590:
2591: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
2592: IF FND_API.To_boolean(P_INIT_MSG_LIST)
2588: RAISE FND_API.G_EXC_ERROR;
2589: END IF;
2590:
2591: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
2592: IF FND_API.To_boolean(P_INIT_MSG_LIST)
2593: THEN
2594: FND_MSG_PUB.Initialize;
2595: END IF;
2596:
2593: THEN
2594: FND_MSG_PUB.Initialize;
2595: END IF;
2596:
2597: IF fnd_api.to_boolean (p_commit)
2598: THEN
2599: l_pass_commit := fnd_api.g_true;
2600: END IF;
2601:
2595: END IF;
2596:
2597: IF fnd_api.to_boolean (p_commit)
2598: THEN
2599: l_pass_commit := fnd_api.g_true;
2600: END IF;
2601:
2602: l_date := sysdate;
2603: l_user_id := NVL(FND_PROFILE.Value('USER_ID'), -1);
2611: LOOP
2612: jtf_rs_rep_managers_pkg.delete_row(denorm_rec.denorm_mgr_id);
2613:
2614:
2615: IF fnd_api.to_boolean (p_commit)
2616: THEN
2617: l_count := l_count + 1;
2618: if (l_count > 1000)
2619: then
2635: X_RETURN_STATUS => L_RETURN_STATUS,
2636: X_MSG_COUNT => L_MSG_COUNT,
2637: X_MSG_DATA => L_MSG_DATA);
2638:
2639: IF ( l_return_status <> fnd_api.g_ret_sts_success )
2640: THEN
2641: x_return_status := l_return_status;
2642: raise fnd_api.g_exc_error ;
2643: END IF;
2638:
2639: IF ( l_return_status <> fnd_api.g_ret_sts_success )
2640: THEN
2641: x_return_status := l_return_status;
2642: raise fnd_api.g_exc_error ;
2643: END IF;
2644:
2645: --
2646: IF fnd_api.to_boolean (p_commit)
2642: raise fnd_api.g_exc_error ;
2643: END IF;
2644:
2645: --
2646: IF fnd_api.to_boolean (p_commit)
2647: THEN
2648: COMMIT WORK;
2649: END IF;
2650:
2650:
2651: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2652:
2653: EXCEPTION
2654: WHEN fnd_api.g_exc_unexpected_error
2655: THEN
2656: ROLLBACK TO member_denormalize;
2657: --fnd_message.set_name ('JTF', 'JTF_RS_REP_MGR_DENORM_ERR');
2658: --FND_MSG_PUB.add;
2655: THEN
2656: ROLLBACK TO member_denormalize;
2657: --fnd_message.set_name ('JTF', 'JTF_RS_REP_MGR_DENORM_ERR');
2658: --FND_MSG_PUB.add;
2659: --x_return_status := fnd_api.g_ret_sts_unexp_error;
2660: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2661: WHEN fnd_api.g_exc_error
2662: THEN
2663: ROLLBACK TO member_denormalize;
2657: --fnd_message.set_name ('JTF', 'JTF_RS_REP_MGR_DENORM_ERR');
2658: --FND_MSG_PUB.add;
2659: --x_return_status := fnd_api.g_ret_sts_unexp_error;
2660: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2661: WHEN fnd_api.g_exc_error
2662: THEN
2663: ROLLBACK TO member_denormalize;
2664: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2665:
2670: fnd_message.set_token('P_SQLCODE',SQLCODE);
2671: fnd_message.set_token('P_SQLERRM',SQLERRM);
2672: fnd_message.set_token('P_API_NAME',l_api_name);
2673: FND_MSG_PUB.add;
2674: x_return_status := fnd_api.g_ret_sts_unexp_error;
2675: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2676:
2677: END UPDATE_REP_MANAGER;
2678:
2706:
2707: L_RETURN_STATUS VARCHAR2(100);
2708: L_MSG_COUNT NUMBER;
2709: L_MSG_DATA VARCHAR2(200);
2710: l_pass_commit varchar2(1) := fnd_api.g_false;
2711: l_commit number := 0;
2712: l_count number := 0;
2713: BEGIN
2714: --Standard Start of API SAVEPOINT
2713: BEGIN
2714: --Standard Start of API SAVEPOINT
2715: SAVEPOINT member_denormalize;
2716:
2717: x_return_status := fnd_api.g_ret_sts_success;
2718:
2719: --Standard Call to check API compatibility
2720: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
2721: THEN
2716:
2717: x_return_status := fnd_api.g_ret_sts_success;
2718:
2719: --Standard Call to check API compatibility
2720: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
2721: THEN
2722: RAISE FND_API.G_EXC_ERROR;
2723: END IF;
2724:
2718:
2719: --Standard Call to check API compatibility
2720: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
2721: THEN
2722: RAISE FND_API.G_EXC_ERROR;
2723: END IF;
2724:
2725: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
2726: IF FND_API.To_boolean(P_INIT_MSG_LIST)
2722: RAISE FND_API.G_EXC_ERROR;
2723: END IF;
2724:
2725: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
2726: IF FND_API.To_boolean(P_INIT_MSG_LIST)
2727: THEN
2728: FND_MSG_PUB.Initialize;
2729: END IF;
2730:
2727: THEN
2728: FND_MSG_PUB.Initialize;
2729: END IF;
2730:
2731: IF fnd_api.to_boolean (p_commit)
2732: THEN
2733: l_pass_commit := fnd_api.g_true;
2734: END IF;
2735:
2729: END IF;
2730:
2731: IF fnd_api.to_boolean (p_commit)
2732: THEN
2733: l_pass_commit := fnd_api.g_true;
2734: END IF;
2735:
2736: l_date := sysdate;
2737: l_user_id := NVL(FND_PROFILE.Value('USER_ID'), -1);
2744: WHILE(denorm_cur%FOUND)
2745: LOOP
2746: jtf_rs_rep_managers_pkg.delete_row(denorm_rec.denorm_mgr_id);
2747:
2748: IF fnd_api.to_boolean (p_commit)
2749: THEN
2750: l_count := l_count + 1;
2751: if (l_count > 1000)
2752: then
2760: */
2761:
2762: delete jtf_rs_rep_managers where par_role_relate_id = p_role_relate_id;
2763:
2764: IF fnd_api.to_boolean (p_commit)
2765: THEN
2766: COMMIT WORK;
2767: END IF;
2768:
2767: END IF;
2768:
2769: delete jtf_rs_rep_managers where child_role_relate_id = p_role_relate_id;
2770:
2771: IF fnd_api.to_boolean (p_commit)
2772: THEN
2773: COMMIT WORK;
2774: END IF;
2775:
2775:
2776: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2777:
2778: EXCEPTION
2779: WHEN fnd_api.g_exc_unexpected_error
2780: THEN
2781: ROLLBACK TO member_denormalize;
2782: --fnd_message.set_name ('JTF', 'JTF_RS_REP_MGR_DENORM_ERR');
2783: --FND_MSG_PUB.add;
2780: THEN
2781: ROLLBACK TO member_denormalize;
2782: --fnd_message.set_name ('JTF', 'JTF_RS_REP_MGR_DENORM_ERR');
2783: --FND_MSG_PUB.add;
2784: --x_return_status := fnd_api.g_ret_sts_unexp_error;
2785: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2786: WHEN fnd_api.g_exc_error
2787: THEN
2788: ROLLBACK TO member_denormalize;
2782: --fnd_message.set_name ('JTF', 'JTF_RS_REP_MGR_DENORM_ERR');
2783: --FND_MSG_PUB.add;
2784: --x_return_status := fnd_api.g_ret_sts_unexp_error;
2785: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2786: WHEN fnd_api.g_exc_error
2787: THEN
2788: ROLLBACK TO member_denormalize;
2789: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2790:
2795: fnd_message.set_token('P_SQLCODE',SQLCODE);
2796: fnd_message.set_token('P_SQLERRM',SQLERRM);
2797: fnd_message.set_token('P_API_NAME',l_api_name);
2798: FND_MSG_PUB.add;
2799: x_return_status := fnd_api.g_ret_sts_unexp_error;
2800: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2801:
2802:
2803: END DELETE_MEMBERS;
2873: L_MSG_DATA VARCHAR2(200);
2874:
2875: l_commit number := 0;
2876: l_count number := 0;
2877: l_pass_commit varchar2(1) := fnd_api.g_false;
2878: BEGIN
2879: --Standard Start of API SAVEPOINT
2880: SAVEPOINT member_denormalize;
2881:
2878: BEGIN
2879: --Standard Start of API SAVEPOINT
2880: SAVEPOINT member_denormalize;
2881:
2882: x_return_status := fnd_api.g_ret_sts_success;
2883:
2884: --Standard Call to check API compatibility
2885: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
2886: THEN
2881:
2882: x_return_status := fnd_api.g_ret_sts_success;
2883:
2884: --Standard Call to check API compatibility
2885: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
2886: THEN
2887: RAISE FND_API.G_EXC_ERROR;
2888: END IF;
2889:
2883:
2884: --Standard Call to check API compatibility
2885: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
2886: THEN
2887: RAISE FND_API.G_EXC_ERROR;
2888: END IF;
2889:
2890: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
2891: IF FND_API.To_boolean(P_INIT_MSG_LIST)
2887: RAISE FND_API.G_EXC_ERROR;
2888: END IF;
2889:
2890: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
2891: IF FND_API.To_boolean(P_INIT_MSG_LIST)
2892: THEN
2893: FND_MSG_PUB.Initialize;
2894: END IF;
2895:
2896: l_date := sysdate;
2897: l_user_id := NVL(FND_PROFILE.Value('USER_ID'), -1);
2898: l_login_id := NVL(FND_PROFILE.Value('LOGIN_ID'), -1);
2899:
2900: IF fnd_api.to_boolean (p_commit)
2901: THEN
2902: l_pass_commit := fnd_api.g_true;
2903: END IF;
2904:
2898: l_login_id := NVL(FND_PROFILE.Value('LOGIN_ID'), -1);
2899:
2900: IF fnd_api.to_boolean (p_commit)
2901: THEN
2902: l_pass_commit := fnd_api.g_true;
2903: END IF;
2904:
2905: --
2906: --get all the denorm id's for the role relate id and delete the rows from rep manager table
2925: where par_role_relate_id = par_role_relate_rec.role_relate_id
2926: and child_role_relate_id = child_role_relate_rec.role_relate_id;
2927:
2928:
2929: IF fnd_api.to_boolean (p_commit)
2930: THEN
2931: l_count := l_count + 1;
2932: if (l_count > 1000)
2933: then
2967:
2968:
2969: END IF; --end of denorm cur loop
2970: close denorm_cur;
2971: IF fnd_api.to_boolean (p_commit)
2972: THEN
2973: COMMIT WORK;
2974: END IF;
2975:
2975:
2976: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2977:
2978: EXCEPTION
2979: WHEN fnd_api.g_exc_unexpected_error
2980: THEN
2981: ROLLBACK TO member_denormalize;
2982: --fnd_message.set_name ('JTF', 'JTF_RS_REP_MGR_DENORM_ERR');
2983: --FND_MSG_PUB.add;
2980: THEN
2981: ROLLBACK TO member_denormalize;
2982: --fnd_message.set_name ('JTF', 'JTF_RS_REP_MGR_DENORM_ERR');
2983: --FND_MSG_PUB.add;
2984: --x_return_status := fnd_api.g_ret_sts_unexp_error;
2985: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2986: WHEN fnd_api.g_exc_error
2987: THEN
2988: ROLLBACK TO member_denormalize;
2982: --fnd_message.set_name ('JTF', 'JTF_RS_REP_MGR_DENORM_ERR');
2983: --FND_MSG_PUB.add;
2984: --x_return_status := fnd_api.g_ret_sts_unexp_error;
2985: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2986: WHEN fnd_api.g_exc_error
2987: THEN
2988: ROLLBACK TO member_denormalize;
2989: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2990:
2995: fnd_message.set_token('P_SQLCODE',SQLCODE);
2996: fnd_message.set_token('P_SQLERRM',SQLERRM);
2997: fnd_message.set_token('P_API_NAME',l_api_name);
2998: FND_MSG_PUB.add;
2999: x_return_status := fnd_api.g_ret_sts_unexp_error;
3000: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3001:
3002:
3003: END DELETE_GROUP_DENORM;
3182: BEGIN
3183: --Standard Start of API SAVEPOINT
3184: SAVEPOINT member_denormalize;
3185:
3186: x_return_status := fnd_api.g_ret_sts_success;
3187:
3188: --Standard Call to check API compatibility
3189: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
3190: THEN
3185:
3186: x_return_status := fnd_api.g_ret_sts_success;
3187:
3188: --Standard Call to check API compatibility
3189: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
3190: THEN
3191: RAISE FND_API.G_EXC_ERROR;
3192: END IF;
3193:
3187:
3188: --Standard Call to check API compatibility
3189: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
3190: THEN
3191: RAISE FND_API.G_EXC_ERROR;
3192: END IF;
3193:
3194: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
3195: IF FND_API.To_boolean(P_INIT_MSG_LIST)
3191: RAISE FND_API.G_EXC_ERROR;
3192: END IF;
3193:
3194: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
3195: IF FND_API.To_boolean(P_INIT_MSG_LIST)
3196: THEN
3197: FND_MSG_PUB.Initialize;
3198: END IF;
3199:
3204:
3205: -- if no group id or person id is passed in then return
3206: IF p_role_relate_id IS NULL
3207: THEN
3208: x_return_status := fnd_api.g_ret_sts_error;
3209: fnd_message.set_name ('JTF', 'JTF_RS_GROUP_RESOURCE_NULL');
3210: FND_MSG_PUB.add;
3211: RAISE fnd_api.g_exc_error;
3212: END IF;
3207: THEN
3208: x_return_status := fnd_api.g_ret_sts_error;
3209: fnd_message.set_name ('JTF', 'JTF_RS_GROUP_RESOURCE_NULL');
3210: FND_MSG_PUB.add;
3211: RAISE fnd_api.g_exc_error;
3212: END IF;
3213:
3214:
3215: --fetch the member details
3328: X_LAST_UPDATE_LOGIN => l_login_id,
3329: X_PAR_ROLE_RELATE_ID => mgr_rec.role_relate_id,
3330: X_CHILD_ROLE_RELATE_ID =>mem_dtls_rec.role_relate_id);
3331:
3332: IF fnd_api.to_boolean (p_commit)
3333: THEN
3334: l_count := l_count + 1;
3335: if (l_count > 1000)
3336: then
3399: X_LAST_UPDATE_LOGIN => l_login_id,
3400: X_PAR_ROLE_RELATE_ID => mgr_rec.role_relate_id,
3401: X_CHILD_ROLE_RELATE_ID =>mem_dtls_rec.role_relate_id);
3402:
3403: IF fnd_api.to_boolean (p_commit)
3404: THEN
3405: l_count := l_count + 1;
3406: if (l_count > 1000)
3407: then
3429:
3430: CLOSE mem_dtls_cur;
3431:
3432: --
3433: IF fnd_api.to_boolean (p_commit)
3434: THEN
3435: COMMIT WORK;
3436: END IF;
3437:
3437:
3438: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3439:
3440: EXCEPTION
3441: WHEN fnd_api.g_exc_unexpected_error
3442: THEN
3443: ROLLBACK TO member_denormalize;
3444: --fnd_message.set_name ('JTF', 'JTF_RS_REP_MGR_DENORM_ERR');
3445: --FND_MSG_PUB.add;
3442: THEN
3443: ROLLBACK TO member_denormalize;
3444: --fnd_message.set_name ('JTF', 'JTF_RS_REP_MGR_DENORM_ERR');
3445: --FND_MSG_PUB.add;
3446: --x_return_status := fnd_api.g_ret_sts_unexp_error;
3447: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3448: WHEN fnd_api.g_exc_error
3449: THEN
3450: ROLLBACK TO member_denormalize;
3444: --fnd_message.set_name ('JTF', 'JTF_RS_REP_MGR_DENORM_ERR');
3445: --FND_MSG_PUB.add;
3446: --x_return_status := fnd_api.g_ret_sts_unexp_error;
3447: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3448: WHEN fnd_api.g_exc_error
3449: THEN
3450: ROLLBACK TO member_denormalize;
3451: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3452:
3457: fnd_message.set_token('P_SQLCODE',SQLCODE);
3458: fnd_message.set_token('P_SQLERRM',SQLERRM);
3459: fnd_message.set_token('P_API_NAME',l_api_name);
3460: FND_MSG_PUB.add;
3461: x_return_status := fnd_api.g_ret_sts_unexp_error;
3462: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3463:
3464:
3465: END INSERT_REP_MGR_PARENT;
3482: IS
3483: l_api_name CONSTANT VARCHAR2(30) := 'INSERT_GRP_DENORM';
3484: l_api_version CONSTANT NUMBER :=1.0;
3485: l_date Date;
3486: l_fnd_date Date := to_date(to_char(FND_API.G_MISS_DATE,'dd-MM-RRRR'),'dd-MM-RRRR');
3487: l_user_id Number;
3488: l_login_id Number;
3489: j BINARY_INTEGER := 0;
3490: k BINARY_INTEGER := 0;
3590: k := l_process_table.FIRST;
3591: LOOP
3592: BEGIN
3593: l_start_date_active := to_date(to_char(l_process_table(k).START_DATE_ACTIVE,'DD-MM-RRRR'),'DD-MM-RRRR');
3594: l_end_date_active := to_date(to_char(nvl(l_process_table(k).END_DATE_ACTIVE,FND_API.G_MISS_DATE),
3595: 'DD-MM-RRRR'),'DD-MM-RRRR');
3596: IF l_start_date_active > l_end_date_active THEN
3597: RAISE skip_row;
3598: END IF;
3657: l_process_table(k).PARENT_RESOURCE_ID,
3658: p_denorm_level);
3659:
3660:
3661: IF fnd_api.to_boolean (p_commit)
3662: THEN
3663: l_count := l_count + 1;
3664: if (l_count > 1000)
3665: then
3707:
3708: l_start_date_active := greatest(l_diff_grp_parent_mbr_role(i).start_date_active,
3709: l_diff_grp_child_mbr_role(j).start_date_active);
3710: l_start_date_active := greatest(l_start_date_active,p_start_date_active);
3711: l_temp_fnd_end_date := to_date(to_char(FND_API.G_MISS_DATE,'dd-MM-RRRR'),'dd-MM-RRRR');
3712: l_end_date_active := least(nvl(l_diff_grp_parent_mbr_role(i).end_date_active,l_temp_fnd_end_date),
3713: nvl(l_diff_grp_child_mbr_role(j).end_date_active,l_temp_fnd_end_date));
3714: l_end_date_active := least(l_end_date_active,nvl(p_end_date_active,l_temp_fnd_end_date));
3715:
3767:
3768: BEGIN
3769: SAVEPOINT member_denormalize;
3770: --Standard Call to check API compatibility
3771: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
3772: THEN
3773: RAISE FND_API.G_EXC_ERROR;
3774: END IF;
3775:
3769: SAVEPOINT member_denormalize;
3770: --Standard Call to check API compatibility
3771: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
3772: THEN
3773: RAISE FND_API.G_EXC_ERROR;
3774: END IF;
3775:
3776: x_return_status := fnd_api.g_ret_sts_success;
3777:
3772: THEN
3773: RAISE FND_API.G_EXC_ERROR;
3774: END IF;
3775:
3776: x_return_status := fnd_api.g_ret_sts_success;
3777:
3778: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
3779: IF FND_API.To_boolean(P_INIT_MSG_LIST)
3780: THEN
3775:
3776: x_return_status := fnd_api.g_ret_sts_success;
3777:
3778: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
3779: IF FND_API.To_boolean(P_INIT_MSG_LIST)
3780: THEN
3781: FND_MSG_PUB.Initialize;
3782: END IF;
3783:
3827:
3828:
3829: END IF; --end of p_group_id = p_parent_group_id check
3830:
3831: IF fnd_api.to_boolean (p_commit)
3832: THEN
3833: COMMIT WORK;
3834: END IF;
3835:
3833: COMMIT WORK;
3834: END IF;
3835:
3836: EXCEPTION
3837: WHEN fnd_api.g_exc_unexpected_error
3838: THEN
3839: ROLLBACK TO member_denormalize;
3840: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3841: WHEN fnd_api.g_exc_error
3837: WHEN fnd_api.g_exc_unexpected_error
3838: THEN
3839: ROLLBACK TO member_denormalize;
3840: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3841: WHEN fnd_api.g_exc_error
3842: THEN
3843: ROLLBACK TO member_denormalize;
3844: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3845: WHEN OTHERS
3849: fnd_message.set_token('P_SQLCODE',SQLCODE);
3850: fnd_message.set_token('P_SQLERRM',SQLERRM);
3851: fnd_message.set_token('P_API_NAME',l_api_name);
3852: FND_MSG_PUB.add;
3853: x_return_status := fnd_api.g_ret_sts_unexp_error;
3854: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3855: END INSERT_GRP_DENORM;
3856:
3857:
3905:
3906: --Standard Start of API SAVEPOINT
3907: SAVEPOINT DEL_REP_MGR_SP;
3908:
3909: x_return_status := fnd_api.g_ret_sts_success;
3910:
3911: --Standard Call to check API compatibility
3912: IF NOT FND_API.Compatible_API_CALL(l_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME) THEN
3913: RAISE FND_API.G_EXC_ERROR;
3908:
3909: x_return_status := fnd_api.g_ret_sts_success;
3910:
3911: --Standard Call to check API compatibility
3912: IF NOT FND_API.Compatible_API_CALL(l_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME) THEN
3913: RAISE FND_API.G_EXC_ERROR;
3914: END IF;
3915:
3916: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
3909: x_return_status := fnd_api.g_ret_sts_success;
3910:
3911: --Standard Call to check API compatibility
3912: IF NOT FND_API.Compatible_API_CALL(l_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME) THEN
3913: RAISE FND_API.G_EXC_ERROR;
3914: END IF;
3915:
3916: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
3917: IF FND_API.To_boolean(P_INIT_MSG_LIST) THEN
3913: RAISE FND_API.G_EXC_ERROR;
3914: END IF;
3915:
3916: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
3917: IF FND_API.To_boolean(P_INIT_MSG_LIST) THEN
3918: FND_MSG_PUB.Initialize;
3919: END IF;
3920:
3921:
3943: FETCH c_child_role_relate_cur INTO r_child_role_relate_rec;
3944: END LOOP; --end of par_mgr_cur
3945: CLOSE c_child_role_relate_cur;
3946:
3947: IF fnd_api.to_boolean (p_commit) THEN
3948: COMMIT WORK;
3949: END IF;
3950:
3951: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3950:
3951: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3952:
3953: EXCEPTION
3954: WHEN fnd_api.g_exc_unexpected_error THEN
3955: ROLLBACK TO del_rep_mgr_sp;
3956: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3957: WHEN fnd_api.g_exc_error THEN
3958: ROLLBACK TO del_rep_mgr_sp;
3953: EXCEPTION
3954: WHEN fnd_api.g_exc_unexpected_error THEN
3955: ROLLBACK TO del_rep_mgr_sp;
3956: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3957: WHEN fnd_api.g_exc_error THEN
3958: ROLLBACK TO del_rep_mgr_sp;
3959: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3960: WHEN OTHERS THEN
3961: ROLLBACK TO del_rep_mgr_sp;
3963: fnd_message.set_token('P_SQLCODE',SQLCODE);
3964: fnd_message.set_token('P_SQLERRM',SQLERRM);
3965: fnd_message.set_token('P_API_NAME',l_api_name);
3966: FND_MSG_PUB.add;
3967: x_return_status := fnd_api.g_ret_sts_unexp_error;
3968: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3969:
3970: END DELETE_REP_MGR;
3971:
4185: BEGIN
4186: --Standard Start of API SAVEPOINT
4187: SAVEPOINT member_denormalize;
4188:
4189: x_return_status := fnd_api.g_ret_sts_success;
4190:
4191: --Standard Call to check API compatibility
4192: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
4193: THEN
4188:
4189: x_return_status := fnd_api.g_ret_sts_success;
4190:
4191: --Standard Call to check API compatibility
4192: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
4193: THEN
4194: RAISE FND_API.G_EXC_ERROR;
4195: END IF;
4196:
4190:
4191: --Standard Call to check API compatibility
4192: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
4193: THEN
4194: RAISE FND_API.G_EXC_ERROR;
4195: END IF;
4196:
4197: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
4198: IF FND_API.To_boolean(P_INIT_MSG_LIST)
4194: RAISE FND_API.G_EXC_ERROR;
4195: END IF;
4196:
4197: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
4198: IF FND_API.To_boolean(P_INIT_MSG_LIST)
4199: THEN
4200: FND_MSG_PUB.Initialize;
4201: END IF;
4202:
4345: X_LAST_UPDATE_LOGIN => l_login_id,
4346: X_PAR_ROLE_RELATE_ID => l_mgr_rec(i).P_role_relate_id,
4347: X_CHILD_ROLE_RELATE_ID => member_rec.role_relate_id);
4348:
4349: IF fnd_api.to_boolean (p_commit)
4350: THEN
4351: l_count := l_count + 1;
4352: if (l_count > 1000)
4353: then
4400: X_LAST_UPDATE_LOGIN => l_login_id,
4401: X_PAR_ROLE_RELATE_ID => l_mgr_rec(i).P_role_relate_id,
4402: X_CHILD_ROLE_RELATE_ID => member_rec.role_relate_id);
4403:
4404: IF fnd_api.to_boolean (p_commit)
4405: THEN
4406: l_count := l_count + 1;
4407: if (l_count > 1000)
4408: then
4481: X_LAST_UPDATE_LOGIN => l_login_id,
4482: X_PAR_ROLE_RELATE_ID => l_mgr_rec(i).p_role_relate_id,
4483: X_CHILD_ROLE_RELATE_ID => member_rec.role_relate_id);
4484:
4485: IF fnd_api.to_boolean (p_commit)
4486: THEN
4487: l_count := l_count + 1;
4488: if (l_count > 1000)
4489: then
4611: X_LAST_UPDATE_LOGIN => l_login_id,
4612: X_PAR_ROLE_RELATE_ID => l_mgr_rec(i).P_role_relate_id,
4613: X_CHILD_ROLE_RELATE_ID => member_rec.role_relate_id);
4614:
4615: IF fnd_api.to_boolean (p_commit)
4616: THEN
4617: l_count := l_count + 1;
4618: if (l_count > 1000)
4619: then
4669: X_LAST_UPDATE_LOGIN => l_login_id,
4670: X_PAR_ROLE_RELATE_ID => l_mgr_rec(i).P_role_relate_id,
4671: X_CHILD_ROLE_RELATE_ID => member_rec.role_relate_id);
4672:
4673: IF fnd_api.to_boolean (p_commit)
4674: THEN
4675: l_count := l_count + 1;
4676: if (l_count > 1000)
4677: then
4748: X_LAST_UPDATE_LOGIN => l_login_id,
4749: X_PAR_ROLE_RELATE_ID => l_mgr_rec(i).p_role_relate_id,
4750: X_CHILD_ROLE_RELATE_ID => member_rec.role_relate_id);
4751:
4752: IF fnd_api.to_boolean (p_commit)
4753: THEN
4754: l_count := l_count + 1;
4755: if (l_count > 1000)
4756: then
4771:
4772: FETCH child_grp_cur INTO child_grp_rec;
4773: END LOOP; --CHILD GRP CUR
4774: --
4775: IF fnd_api.to_boolean (p_commit)
4776: THEN
4777: COMMIT WORK;
4778: END IF;
4779:
4779:
4780: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
4781:
4782: EXCEPTION
4783: WHEN fnd_api.g_exc_unexpected_error
4784: THEN
4785:
4786: ROLLBACK TO member_denormalize;
4787: --fnd_message.set_name ('JTF', 'JTF_RS_REP_MGR_DENORM_ERR');
4785:
4786: ROLLBACK TO member_denormalize;
4787: --fnd_message.set_name ('JTF', 'JTF_RS_REP_MGR_DENORM_ERR');
4788: --FND_MSG_PUB.add;
4789: --x_return_status := fnd_api.g_ret_sts_unexp_error;
4790: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
4791: WHEN fnd_api.g_exc_error
4792: THEN
4793: ROLLBACK TO member_denormalize;
4787: --fnd_message.set_name ('JTF', 'JTF_RS_REP_MGR_DENORM_ERR');
4788: --FND_MSG_PUB.add;
4789: --x_return_status := fnd_api.g_ret_sts_unexp_error;
4790: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
4791: WHEN fnd_api.g_exc_error
4792: THEN
4793: ROLLBACK TO member_denormalize;
4794: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
4795:
4800: fnd_message.set_token('P_SQLCODE',SQLCODE);
4801: fnd_message.set_token('P_SQLERRM',SQLERRM);
4802: fnd_message.set_token('P_API_NAME',l_api_name);
4803: FND_MSG_PUB.add;
4804: x_return_status := fnd_api.g_ret_sts_unexp_error;
4805: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
4806: END INSERT_GRP_RELATIONS;
4807: END JTF_RS_REP_MGR_DENORM_PVT;