[Home] [Help]
344:
345: l_api_name CONSTANT VARCHAR2(30) := 'INSERT_REP_MANAGER';
346: l_api_version CONSTANT NUMBER :=1.0;
347: l_date Date;
348: l_fnd_date Date := to_date(to_char(FND_API.G_MISS_DATE,'dd-MM-RRRR'),'dd-MM-RRRR');
349: l_user_id Number;
350: l_login_id Number;
351:
352: l_start_date_active DATE;
358: BEGIN
359: --Standard Start of API SAVEPOINT
360: SAVEPOINT member_denormalize;
361:
362: x_return_status := fnd_api.g_ret_sts_success;
363:
364: --Standard Call to check API compatibility
365: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
366: THEN
361:
362: x_return_status := fnd_api.g_ret_sts_success;
363:
364: --Standard Call to check API compatibility
365: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
366: THEN
367: RAISE FND_API.G_EXC_ERROR;
368: END IF;
369:
363:
364: --Standard Call to check API compatibility
365: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
366: THEN
367: RAISE FND_API.G_EXC_ERROR;
368: END IF;
369:
370: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
371: IF FND_API.To_boolean(P_INIT_MSG_LIST)
367: RAISE FND_API.G_EXC_ERROR;
368: END IF;
369:
370: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
371: IF FND_API.To_boolean(P_INIT_MSG_LIST)
372: THEN
373: FND_MSG_PUB.Initialize;
374: END IF;
375:
380:
381: -- if no group id or person id is passed in then return
382: IF p_role_relate_id IS NULL
383: THEN
384: x_return_status := fnd_api.g_ret_sts_error;
385: fnd_message.set_name ('JTF', 'JTF_RS_GROUP_RESOURCE_NULL');
386: FND_MSG_PUB.add;
387: RAISE fnd_api.g_exc_error;
388: END IF;
383: THEN
384: x_return_status := fnd_api.g_ret_sts_error;
385: fnd_message.set_name ('JTF', 'JTF_RS_GROUP_RESOURCE_NULL');
386: FND_MSG_PUB.add;
387: RAISE fnd_api.g_exc_error;
388: END IF;
389:
390:
391: --fetch the member details
463:
464:
465:
466:
467: IF fnd_api.to_boolean (p_commit)
468: THEN
469: l_count := l_count + 1;
470: if (l_count > 1000)
471: then
571: X_PAR_ROLE_RELATE_ID => same_grp_mgr_admin_rec.role_relate_id,
572: X_CHILD_ROLE_RELATE_ID => l_role_relate_id,
573: X_DENORM_LEVEL => 0);
574:
575: IF fnd_api.to_boolean (p_commit)
576: THEN
577: l_count := l_count + 1;
578: if (l_count > 1000)
579: then
685: X_PAR_ROLE_RELATE_ID => mem_dtls_rec.role_relate_id,
686: X_CHILD_ROLE_RELATE_ID =>other_rec.role_relate_id,
687: X_DENORM_LEVEL => 0);
688:
689: IF fnd_api.to_boolean (p_commit)
690: THEN
691: l_count := l_count + 1;
692: if (l_count > 1000)
693: then
807: X_PAR_ROLE_RELATE_ID => mgr_rec.role_relate_id,
808: X_CHILD_ROLE_RELATE_ID =>mem_dtls_rec.role_relate_id,
809: X_DENORM_LEVEL => par_grp_rec.denorm_level);
810:
811: IF fnd_api.to_boolean (p_commit)
812: THEN
813: l_count := l_count + 1;
814: if (l_count > 1000)
815: then
878: X_PAR_ROLE_RELATE_ID => mgr_rec.role_relate_id,
879: X_CHILD_ROLE_RELATE_ID =>mem_dtls_rec.role_relate_id,
880: X_DENORM_LEVEL => par_grp_rec.denorm_level);
881:
882: IF fnd_api.to_boolean (p_commit)
883: THEN
884: l_count := l_count + 1;
885: if (l_count > 1000)
886: then
1007: X_PAR_ROLE_RELATE_ID => l_role_relate_id,
1008: X_CHILD_ROLE_RELATE_ID =>child_mem_rec.role_relate_id,
1009: X_DENORM_LEVEL => child_grp_rec.denorm_level);
1010:
1011: IF fnd_api.to_boolean (p_commit)
1012: THEN
1013: l_count := l_count + 1;
1014: if (l_count > 1000)
1015: then
1078: X_PAR_ROLE_RELATE_ID => l_role_relate_id,
1079: X_CHILD_ROLE_RELATE_ID =>child_mem_rec.role_relate_id,
1080: X_DENORM_LEVEL => child_grp_rec.denorm_level);
1081:
1082: IF fnd_api.to_boolean (p_commit)
1083: THEN
1084: l_count := l_count + 1;
1085: if (l_count > 1000)
1086: then
1108:
1109: CLOSE mem_dtls_cur;
1110:
1111: --
1112: IF fnd_api.to_boolean (p_commit)
1113: THEN
1114: COMMIT WORK;
1115: END IF;
1116:
1116:
1117: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1118:
1119: EXCEPTION
1120: WHEN fnd_api.g_exc_unexpected_error
1121: THEN
1122: ROLLBACK TO member_denormalize;
1123: --fnd_message.set_name ('JTF', 'JTF_RS_REP_MGR_DENORM_ERR');
1124: --FND_MSG_PUB.add;
1121: THEN
1122: ROLLBACK TO member_denormalize;
1123: --fnd_message.set_name ('JTF', 'JTF_RS_REP_MGR_DENORM_ERR');
1124: --FND_MSG_PUB.add;
1125: --x_return_status := fnd_api.g_ret_sts_unexp_error;
1126: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1127: WHEN fnd_api.g_exc_error
1128: THEN
1129: ROLLBACK TO member_denormalize;
1123: --fnd_message.set_name ('JTF', 'JTF_RS_REP_MGR_DENORM_ERR');
1124: --FND_MSG_PUB.add;
1125: --x_return_status := fnd_api.g_ret_sts_unexp_error;
1126: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1127: WHEN fnd_api.g_exc_error
1128: THEN
1129: ROLLBACK TO member_denormalize;
1130: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1131:
1136: fnd_message.set_token('P_SQLCODE',SQLCODE);
1137: fnd_message.set_token('P_SQLERRM',SQLERRM);
1138: fnd_message.set_token('P_API_NAME',l_api_name);
1139: FND_MSG_PUB.add;
1140: x_return_status := fnd_api.g_ret_sts_unexp_error;
1141: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1142:
1143:
1144: END INSERT_REP_MANAGER;
1457: BEGIN
1458: --Standard Start of API SAVEPOINT
1459: SAVEPOINT member_denormalize;
1460:
1461: x_return_status := fnd_api.g_ret_sts_success;
1462:
1463: --Standard Call to check API compatibility
1464: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
1465: THEN
1460:
1461: x_return_status := fnd_api.g_ret_sts_success;
1462:
1463: --Standard Call to check API compatibility
1464: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
1465: THEN
1466: RAISE FND_API.G_EXC_ERROR;
1467: END IF;
1468:
1462:
1463: --Standard Call to check API compatibility
1464: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
1465: THEN
1466: RAISE FND_API.G_EXC_ERROR;
1467: END IF;
1468:
1469: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
1470: IF FND_API.To_boolean(P_INIT_MSG_LIST)
1466: RAISE FND_API.G_EXC_ERROR;
1467: END IF;
1468:
1469: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
1470: IF FND_API.To_boolean(P_INIT_MSG_LIST)
1471: THEN
1472: FND_MSG_PUB.Initialize;
1473: END IF;
1474:
1479:
1480: -- if no group id or person id is passed in then return
1481: IF p_role_relate_id IS NULL
1482: THEN
1483: x_return_status := fnd_api.g_ret_sts_error;
1484: fnd_message.set_name ('JTF', 'JTF_RS_GROUP_RESOURCE_NULL');
1485: FND_MSG_PUB.add;
1486: RAISE fnd_api.g_exc_error;
1487: END IF;
1482: THEN
1483: x_return_status := fnd_api.g_ret_sts_error;
1484: fnd_message.set_name ('JTF', 'JTF_RS_GROUP_RESOURCE_NULL');
1485: FND_MSG_PUB.add;
1486: RAISE fnd_api.g_exc_error;
1487: END IF;
1488:
1489:
1490: --fetch the member details
1553: X_LAST_UPDATE_LOGIN => l_login_id,
1554: X_PAR_ROLE_RELATE_ID => l_role_relate_id,
1555: X_CHILD_ROLE_RELATE_ID => l_role_relate_id);
1556:
1557: IF fnd_api.to_boolean (p_commit)
1558: THEN
1559: l_count := l_count + 1;
1560: if (l_count > 1000)
1561: then
1662: X_LAST_UPDATE_LOGIN => l_login_id,
1663: X_PAR_ROLE_RELATE_ID => same_grp_mgr_admin_rec.role_relate_id,
1664: X_CHILD_ROLE_RELATE_ID => l_role_relate_id);
1665:
1666: IF fnd_api.to_boolean (p_commit)
1667: THEN
1668: l_count := l_count + 1;
1669: if (l_count > 1000)
1670: then
1836: X_LAST_UPDATE_LOGIN => l_login_id,
1837: X_PAR_ROLE_RELATE_ID => mem_dtls_rec.role_relate_id,
1838: X_CHILD_ROLE_RELATE_ID =>other_rec.role_relate_id);
1839:
1840: IF fnd_api.to_boolean (p_commit)
1841: THEN
1842: l_count := l_count + 1;
1843: if (l_count > 1000)
1844: then
2020: X_LAST_UPDATE_LOGIN => l_login_id,
2021: X_PAR_ROLE_RELATE_ID => mgr_rec.role_relate_id,
2022: X_CHILD_ROLE_RELATE_ID =>mem_dtls_rec.role_relate_id);
2023:
2024: IF fnd_api.to_boolean (p_commit)
2025: THEN
2026: l_count := l_count + 1;
2027: if (l_count > 1000)
2028: then
2089: X_LAST_UPDATE_LOGIN => l_login_id,
2090: X_PAR_ROLE_RELATE_ID => mgr_rec.role_relate_id,
2091: X_CHILD_ROLE_RELATE_ID =>mem_dtls_rec.role_relate_id);
2092:
2093: IF fnd_api.to_boolean (p_commit)
2094: THEN
2095: l_count := l_count + 1;
2096: if (l_count > 1000)
2097: then
2200: X_LAST_UPDATE_LOGIN => l_login_id,
2201: X_PAR_ROLE_RELATE_ID => admin_rec.role_relate_id,
2202: X_CHILD_ROLE_RELATE_ID =>mem_dtls_rec.role_relate_id);
2203:
2204: IF fnd_api.to_boolean (p_commit)
2205: THEN
2206: l_count := l_count + 1;
2207: if (l_count > 1000)
2208: then
2403: X_LAST_UPDATE_LOGIN => l_login_id,
2404: X_PAR_ROLE_RELATE_ID => l_role_relate_id,
2405: X_CHILD_ROLE_RELATE_ID =>child_mem_rec.role_relate_id);
2406:
2407: IF fnd_api.to_boolean (p_commit)
2408: THEN
2409: l_count := l_count + 1;
2410: if (l_count > 1000)
2411: then
2472: X_LAST_UPDATE_LOGIN => l_login_id,
2473: X_PAR_ROLE_RELATE_ID => l_role_relate_id,
2474: X_CHILD_ROLE_RELATE_ID =>child_mem_rec.role_relate_id);
2475:
2476: IF fnd_api.to_boolean (p_commit)
2477: THEN
2478: l_count := l_count + 1;
2479: if (l_count > 1000)
2480: then
2503:
2504: CLOSE mem_dtls_cur;
2505:
2506: --
2507: IF fnd_api.to_boolean (p_commit)
2508: THEN
2509: COMMIT WORK;
2510: END IF;
2511:
2511:
2512: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2513:
2514: EXCEPTION
2515: WHEN fnd_api.g_exc_unexpected_error
2516: THEN
2517: ROLLBACK TO member_denormalize;
2518: --fnd_message.set_name ('JTF', 'JTF_RS_REP_MGR_DENORM_ERR');
2519: --FND_MSG_PUB.add;
2516: THEN
2517: ROLLBACK TO member_denormalize;
2518: --fnd_message.set_name ('JTF', 'JTF_RS_REP_MGR_DENORM_ERR');
2519: --FND_MSG_PUB.add;
2520: --x_return_status := fnd_api.g_ret_sts_unexp_error;
2521: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2522: WHEN fnd_api.g_exc_error
2523: THEN
2524: ROLLBACK TO member_denormalize;
2518: --fnd_message.set_name ('JTF', 'JTF_RS_REP_MGR_DENORM_ERR');
2519: --FND_MSG_PUB.add;
2520: --x_return_status := fnd_api.g_ret_sts_unexp_error;
2521: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2522: WHEN fnd_api.g_exc_error
2523: THEN
2524: ROLLBACK TO member_denormalize;
2525: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2526:
2531: fnd_message.set_token('P_SQLCODE',SQLCODE);
2532: fnd_message.set_token('P_SQLERRM',SQLERRM);
2533: fnd_message.set_token('P_API_NAME',l_api_name);
2534: FND_MSG_PUB.add;
2535: x_return_status := fnd_api.g_ret_sts_unexp_error;
2536: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2537:
2538:
2539: END INSERT_REP_MANAGER_MIGR;
2579: L_MSG_COUNT NUMBER;
2580: L_MSG_DATA VARCHAR2(200);
2581:
2582: l_count number := 0;
2583: l_pass_commit varchar2(1) := fnd_api.g_false;
2584: BEGIN
2585: --Standard Start of API SAVEPOINT
2586: SAVEPOINT member_denormalize;
2587:
2584: BEGIN
2585: --Standard Start of API SAVEPOINT
2586: SAVEPOINT member_denormalize;
2587:
2588: x_return_status := fnd_api.g_ret_sts_success;
2589:
2590: --Standard Call to check API compatibility
2591: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
2592: THEN
2587:
2588: x_return_status := fnd_api.g_ret_sts_success;
2589:
2590: --Standard Call to check API compatibility
2591: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
2592: THEN
2593: RAISE FND_API.G_EXC_ERROR;
2594: END IF;
2595:
2589:
2590: --Standard Call to check API compatibility
2591: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
2592: THEN
2593: RAISE FND_API.G_EXC_ERROR;
2594: END IF;
2595:
2596: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
2597: IF FND_API.To_boolean(P_INIT_MSG_LIST)
2593: RAISE FND_API.G_EXC_ERROR;
2594: END IF;
2595:
2596: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
2597: IF FND_API.To_boolean(P_INIT_MSG_LIST)
2598: THEN
2599: FND_MSG_PUB.Initialize;
2600: END IF;
2601:
2598: THEN
2599: FND_MSG_PUB.Initialize;
2600: END IF;
2601:
2602: IF fnd_api.to_boolean (p_commit)
2603: THEN
2604: l_pass_commit := fnd_api.g_true;
2605: END IF;
2606:
2600: END IF;
2601:
2602: IF fnd_api.to_boolean (p_commit)
2603: THEN
2604: l_pass_commit := fnd_api.g_true;
2605: END IF;
2606:
2607: l_date := sysdate;
2608: l_user_id := NVL(FND_PROFILE.Value('USER_ID'), -1);
2616: LOOP
2617: jtf_rs_rep_managers_pkg.delete_row(denorm_rec.denorm_mgr_id);
2618:
2619:
2620: IF fnd_api.to_boolean (p_commit)
2621: THEN
2622: l_count := l_count + 1;
2623: if (l_count > 1000)
2624: then
2634: DELETE FROM jtf_rs_rep_managers
2635: WHERE par_role_relate_id = p_role_relate_id
2636: OR child_role_relate_id = p_role_relate_id;
2637:
2638: IF fnd_api.to_boolean (p_commit)
2639: THEN
2640: COMMIT WORK;
2641: END IF;
2642: --call the insert api for the role relate id
2648: X_RETURN_STATUS => L_RETURN_STATUS,
2649: X_MSG_COUNT => L_MSG_COUNT,
2650: X_MSG_DATA => L_MSG_DATA);
2651:
2652: IF ( l_return_status <> fnd_api.g_ret_sts_success )
2653: THEN
2654: x_return_status := l_return_status;
2655: raise fnd_api.g_exc_error ;
2656: END IF;
2651:
2652: IF ( l_return_status <> fnd_api.g_ret_sts_success )
2653: THEN
2654: x_return_status := l_return_status;
2655: raise fnd_api.g_exc_error ;
2656: END IF;
2657:
2658: --
2659: IF fnd_api.to_boolean (p_commit)
2655: raise fnd_api.g_exc_error ;
2656: END IF;
2657:
2658: --
2659: IF fnd_api.to_boolean (p_commit)
2660: THEN
2661: COMMIT WORK;
2662: END IF;
2663:
2663:
2664: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2665:
2666: EXCEPTION
2667: WHEN fnd_api.g_exc_unexpected_error
2668: THEN
2669: ROLLBACK TO member_denormalize;
2670: --fnd_message.set_name ('JTF', 'JTF_RS_REP_MGR_DENORM_ERR');
2671: --FND_MSG_PUB.add;
2668: THEN
2669: ROLLBACK TO member_denormalize;
2670: --fnd_message.set_name ('JTF', 'JTF_RS_REP_MGR_DENORM_ERR');
2671: --FND_MSG_PUB.add;
2672: --x_return_status := fnd_api.g_ret_sts_unexp_error;
2673: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2674: WHEN fnd_api.g_exc_error
2675: THEN
2676: ROLLBACK TO member_denormalize;
2670: --fnd_message.set_name ('JTF', 'JTF_RS_REP_MGR_DENORM_ERR');
2671: --FND_MSG_PUB.add;
2672: --x_return_status := fnd_api.g_ret_sts_unexp_error;
2673: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2674: WHEN fnd_api.g_exc_error
2675: THEN
2676: ROLLBACK TO member_denormalize;
2677: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2678:
2683: fnd_message.set_token('P_SQLCODE',SQLCODE);
2684: fnd_message.set_token('P_SQLERRM',SQLERRM);
2685: fnd_message.set_token('P_API_NAME',l_api_name);
2686: FND_MSG_PUB.add;
2687: x_return_status := fnd_api.g_ret_sts_unexp_error;
2688: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2689:
2690: END UPDATE_REP_MANAGER;
2691:
2719:
2720: L_RETURN_STATUS VARCHAR2(100);
2721: L_MSG_COUNT NUMBER;
2722: L_MSG_DATA VARCHAR2(200);
2723: l_pass_commit varchar2(1) := fnd_api.g_false;
2724: l_commit number := 0;
2725: l_count number := 0;
2726: BEGIN
2727: --Standard Start of API SAVEPOINT
2726: BEGIN
2727: --Standard Start of API SAVEPOINT
2728: SAVEPOINT member_denormalize;
2729:
2730: x_return_status := fnd_api.g_ret_sts_success;
2731:
2732: --Standard Call to check API compatibility
2733: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
2734: THEN
2729:
2730: x_return_status := fnd_api.g_ret_sts_success;
2731:
2732: --Standard Call to check API compatibility
2733: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
2734: THEN
2735: RAISE FND_API.G_EXC_ERROR;
2736: END IF;
2737:
2731:
2732: --Standard Call to check API compatibility
2733: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
2734: THEN
2735: RAISE FND_API.G_EXC_ERROR;
2736: END IF;
2737:
2738: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
2739: IF FND_API.To_boolean(P_INIT_MSG_LIST)
2735: RAISE FND_API.G_EXC_ERROR;
2736: END IF;
2737:
2738: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
2739: IF FND_API.To_boolean(P_INIT_MSG_LIST)
2740: THEN
2741: FND_MSG_PUB.Initialize;
2742: END IF;
2743:
2740: THEN
2741: FND_MSG_PUB.Initialize;
2742: END IF;
2743:
2744: IF fnd_api.to_boolean (p_commit)
2745: THEN
2746: l_pass_commit := fnd_api.g_true;
2747: END IF;
2748:
2742: END IF;
2743:
2744: IF fnd_api.to_boolean (p_commit)
2745: THEN
2746: l_pass_commit := fnd_api.g_true;
2747: END IF;
2748:
2749: l_date := sysdate;
2750: l_user_id := NVL(FND_PROFILE.Value('USER_ID'), -1);
2757: WHILE(denorm_cur%FOUND)
2758: LOOP
2759: jtf_rs_rep_managers_pkg.delete_row(denorm_rec.denorm_mgr_id);
2760:
2761: IF fnd_api.to_boolean (p_commit)
2762: THEN
2763: l_count := l_count + 1;
2764: if (l_count > 1000)
2765: then
2773: */
2774:
2775: delete jtf_rs_rep_managers where par_role_relate_id = p_role_relate_id;
2776:
2777: IF fnd_api.to_boolean (p_commit)
2778: THEN
2779: COMMIT WORK;
2780: END IF;
2781:
2780: END IF;
2781:
2782: delete jtf_rs_rep_managers where child_role_relate_id = p_role_relate_id;
2783:
2784: IF fnd_api.to_boolean (p_commit)
2785: THEN
2786: COMMIT WORK;
2787: END IF;
2788:
2788:
2789: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2790:
2791: EXCEPTION
2792: WHEN fnd_api.g_exc_unexpected_error
2793: THEN
2794: ROLLBACK TO member_denormalize;
2795: --fnd_message.set_name ('JTF', 'JTF_RS_REP_MGR_DENORM_ERR');
2796: --FND_MSG_PUB.add;
2793: THEN
2794: ROLLBACK TO member_denormalize;
2795: --fnd_message.set_name ('JTF', 'JTF_RS_REP_MGR_DENORM_ERR');
2796: --FND_MSG_PUB.add;
2797: --x_return_status := fnd_api.g_ret_sts_unexp_error;
2798: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2799: WHEN fnd_api.g_exc_error
2800: THEN
2801: ROLLBACK TO member_denormalize;
2795: --fnd_message.set_name ('JTF', 'JTF_RS_REP_MGR_DENORM_ERR');
2796: --FND_MSG_PUB.add;
2797: --x_return_status := fnd_api.g_ret_sts_unexp_error;
2798: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2799: WHEN fnd_api.g_exc_error
2800: THEN
2801: ROLLBACK TO member_denormalize;
2802: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2803:
2808: fnd_message.set_token('P_SQLCODE',SQLCODE);
2809: fnd_message.set_token('P_SQLERRM',SQLERRM);
2810: fnd_message.set_token('P_API_NAME',l_api_name);
2811: FND_MSG_PUB.add;
2812: x_return_status := fnd_api.g_ret_sts_unexp_error;
2813: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2814:
2815:
2816: END DELETE_MEMBERS;
2886: L_MSG_DATA VARCHAR2(200);
2887:
2888: l_commit number := 0;
2889: l_count number := 0;
2890: l_pass_commit varchar2(1) := fnd_api.g_false;
2891: BEGIN
2892: --Standard Start of API SAVEPOINT
2893: SAVEPOINT member_denormalize;
2894:
2891: BEGIN
2892: --Standard Start of API SAVEPOINT
2893: SAVEPOINT member_denormalize;
2894:
2895: x_return_status := fnd_api.g_ret_sts_success;
2896:
2897: --Standard Call to check API compatibility
2898: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
2899: THEN
2894:
2895: x_return_status := fnd_api.g_ret_sts_success;
2896:
2897: --Standard Call to check API compatibility
2898: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
2899: THEN
2900: RAISE FND_API.G_EXC_ERROR;
2901: END IF;
2902:
2896:
2897: --Standard Call to check API compatibility
2898: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
2899: THEN
2900: RAISE FND_API.G_EXC_ERROR;
2901: END IF;
2902:
2903: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
2904: IF FND_API.To_boolean(P_INIT_MSG_LIST)
2900: RAISE FND_API.G_EXC_ERROR;
2901: END IF;
2902:
2903: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
2904: IF FND_API.To_boolean(P_INIT_MSG_LIST)
2905: THEN
2906: FND_MSG_PUB.Initialize;
2907: END IF;
2908:
2909: l_date := sysdate;
2910: l_user_id := NVL(FND_PROFILE.Value('USER_ID'), -1);
2911: l_login_id := NVL(FND_PROFILE.Value('LOGIN_ID'), -1);
2912:
2913: IF fnd_api.to_boolean (p_commit)
2914: THEN
2915: l_pass_commit := fnd_api.g_true;
2916: END IF;
2917:
2911: l_login_id := NVL(FND_PROFILE.Value('LOGIN_ID'), -1);
2912:
2913: IF fnd_api.to_boolean (p_commit)
2914: THEN
2915: l_pass_commit := fnd_api.g_true;
2916: END IF;
2917:
2918: --
2919: --get all the denorm id's for the role relate id and delete the rows from rep manager table
2938: where par_role_relate_id = par_role_relate_rec.role_relate_id
2939: and child_role_relate_id = child_role_relate_rec.role_relate_id;
2940:
2941:
2942: IF fnd_api.to_boolean (p_commit)
2943: THEN
2944: l_count := l_count + 1;
2945: if (l_count > 1000)
2946: then
2980:
2981:
2982: END IF; --end of denorm cur loop
2983: close denorm_cur;
2984: IF fnd_api.to_boolean (p_commit)
2985: THEN
2986: COMMIT WORK;
2987: END IF;
2988:
2988:
2989: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2990:
2991: EXCEPTION
2992: WHEN fnd_api.g_exc_unexpected_error
2993: THEN
2994: ROLLBACK TO member_denormalize;
2995: --fnd_message.set_name ('JTF', 'JTF_RS_REP_MGR_DENORM_ERR');
2996: --FND_MSG_PUB.add;
2993: THEN
2994: ROLLBACK TO member_denormalize;
2995: --fnd_message.set_name ('JTF', 'JTF_RS_REP_MGR_DENORM_ERR');
2996: --FND_MSG_PUB.add;
2997: --x_return_status := fnd_api.g_ret_sts_unexp_error;
2998: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2999: WHEN fnd_api.g_exc_error
3000: THEN
3001: ROLLBACK TO member_denormalize;
2995: --fnd_message.set_name ('JTF', 'JTF_RS_REP_MGR_DENORM_ERR');
2996: --FND_MSG_PUB.add;
2997: --x_return_status := fnd_api.g_ret_sts_unexp_error;
2998: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
2999: WHEN fnd_api.g_exc_error
3000: THEN
3001: ROLLBACK TO member_denormalize;
3002: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3003:
3008: fnd_message.set_token('P_SQLCODE',SQLCODE);
3009: fnd_message.set_token('P_SQLERRM',SQLERRM);
3010: fnd_message.set_token('P_API_NAME',l_api_name);
3011: FND_MSG_PUB.add;
3012: x_return_status := fnd_api.g_ret_sts_unexp_error;
3013: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3014:
3015:
3016: END DELETE_GROUP_DENORM;
3195: BEGIN
3196: --Standard Start of API SAVEPOINT
3197: SAVEPOINT member_denormalize;
3198:
3199: x_return_status := fnd_api.g_ret_sts_success;
3200:
3201: --Standard Call to check API compatibility
3202: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
3203: THEN
3198:
3199: x_return_status := fnd_api.g_ret_sts_success;
3200:
3201: --Standard Call to check API compatibility
3202: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
3203: THEN
3204: RAISE FND_API.G_EXC_ERROR;
3205: END IF;
3206:
3200:
3201: --Standard Call to check API compatibility
3202: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
3203: THEN
3204: RAISE FND_API.G_EXC_ERROR;
3205: END IF;
3206:
3207: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
3208: IF FND_API.To_boolean(P_INIT_MSG_LIST)
3204: RAISE FND_API.G_EXC_ERROR;
3205: END IF;
3206:
3207: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
3208: IF FND_API.To_boolean(P_INIT_MSG_LIST)
3209: THEN
3210: FND_MSG_PUB.Initialize;
3211: END IF;
3212:
3217:
3218: -- if no group id or person id is passed in then return
3219: IF p_role_relate_id IS NULL
3220: THEN
3221: x_return_status := fnd_api.g_ret_sts_error;
3222: fnd_message.set_name ('JTF', 'JTF_RS_GROUP_RESOURCE_NULL');
3223: FND_MSG_PUB.add;
3224: RAISE fnd_api.g_exc_error;
3225: END IF;
3220: THEN
3221: x_return_status := fnd_api.g_ret_sts_error;
3222: fnd_message.set_name ('JTF', 'JTF_RS_GROUP_RESOURCE_NULL');
3223: FND_MSG_PUB.add;
3224: RAISE fnd_api.g_exc_error;
3225: END IF;
3226:
3227:
3228: --fetch the member details
3341: X_LAST_UPDATE_LOGIN => l_login_id,
3342: X_PAR_ROLE_RELATE_ID => mgr_rec.role_relate_id,
3343: X_CHILD_ROLE_RELATE_ID =>mem_dtls_rec.role_relate_id);
3344:
3345: IF fnd_api.to_boolean (p_commit)
3346: THEN
3347: l_count := l_count + 1;
3348: if (l_count > 1000)
3349: then
3412: X_LAST_UPDATE_LOGIN => l_login_id,
3413: X_PAR_ROLE_RELATE_ID => mgr_rec.role_relate_id,
3414: X_CHILD_ROLE_RELATE_ID =>mem_dtls_rec.role_relate_id);
3415:
3416: IF fnd_api.to_boolean (p_commit)
3417: THEN
3418: l_count := l_count + 1;
3419: if (l_count > 1000)
3420: then
3442:
3443: CLOSE mem_dtls_cur;
3444:
3445: --
3446: IF fnd_api.to_boolean (p_commit)
3447: THEN
3448: COMMIT WORK;
3449: END IF;
3450:
3450:
3451: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3452:
3453: EXCEPTION
3454: WHEN fnd_api.g_exc_unexpected_error
3455: THEN
3456: ROLLBACK TO member_denormalize;
3457: --fnd_message.set_name ('JTF', 'JTF_RS_REP_MGR_DENORM_ERR');
3458: --FND_MSG_PUB.add;
3455: THEN
3456: ROLLBACK TO member_denormalize;
3457: --fnd_message.set_name ('JTF', 'JTF_RS_REP_MGR_DENORM_ERR');
3458: --FND_MSG_PUB.add;
3459: --x_return_status := fnd_api.g_ret_sts_unexp_error;
3460: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3461: WHEN fnd_api.g_exc_error
3462: THEN
3463: ROLLBACK TO member_denormalize;
3457: --fnd_message.set_name ('JTF', 'JTF_RS_REP_MGR_DENORM_ERR');
3458: --FND_MSG_PUB.add;
3459: --x_return_status := fnd_api.g_ret_sts_unexp_error;
3460: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3461: WHEN fnd_api.g_exc_error
3462: THEN
3463: ROLLBACK TO member_denormalize;
3464: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3465:
3470: fnd_message.set_token('P_SQLCODE',SQLCODE);
3471: fnd_message.set_token('P_SQLERRM',SQLERRM);
3472: fnd_message.set_token('P_API_NAME',l_api_name);
3473: FND_MSG_PUB.add;
3474: x_return_status := fnd_api.g_ret_sts_unexp_error;
3475: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3476:
3477:
3478: END INSERT_REP_MGR_PARENT;
3495: IS
3496: l_api_name CONSTANT VARCHAR2(30) := 'INSERT_GRP_DENORM';
3497: l_api_version CONSTANT NUMBER :=1.0;
3498: l_date Date;
3499: l_fnd_date Date := to_date(to_char(FND_API.G_MISS_DATE,'dd-MM-RRRR'),'dd-MM-RRRR');
3500: l_user_id Number;
3501: l_login_id Number;
3502: j BINARY_INTEGER := 0;
3503: k BINARY_INTEGER := 0;
3603: k := l_process_table.FIRST;
3604: LOOP
3605: BEGIN
3606: l_start_date_active := to_date(to_char(l_process_table(k).START_DATE_ACTIVE,'DD-MM-RRRR'),'DD-MM-RRRR');
3607: l_end_date_active := to_date(to_char(nvl(l_process_table(k).END_DATE_ACTIVE,FND_API.G_MISS_DATE),
3608: 'DD-MM-RRRR'),'DD-MM-RRRR');
3609: IF l_start_date_active > l_end_date_active THEN
3610: RAISE skip_row;
3611: END IF;
3670: l_process_table(k).PARENT_RESOURCE_ID,
3671: p_denorm_level);
3672:
3673:
3674: IF fnd_api.to_boolean (p_commit)
3675: THEN
3676: l_count := l_count + 1;
3677: if (l_count > 1000)
3678: then
3720:
3721: l_start_date_active := greatest(l_diff_grp_parent_mbr_role(i).start_date_active,
3722: l_diff_grp_child_mbr_role(j).start_date_active);
3723: l_start_date_active := greatest(l_start_date_active,p_start_date_active);
3724: l_temp_fnd_end_date := to_date(to_char(FND_API.G_MISS_DATE,'dd-MM-RRRR'),'dd-MM-RRRR');
3725: l_end_date_active := least(nvl(l_diff_grp_parent_mbr_role(i).end_date_active,l_temp_fnd_end_date),
3726: nvl(l_diff_grp_child_mbr_role(j).end_date_active,l_temp_fnd_end_date));
3727: l_end_date_active := least(l_end_date_active,nvl(p_end_date_active,l_temp_fnd_end_date));
3728:
3780:
3781: BEGIN
3782: SAVEPOINT member_denormalize;
3783: --Standard Call to check API compatibility
3784: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
3785: THEN
3786: RAISE FND_API.G_EXC_ERROR;
3787: END IF;
3788:
3782: SAVEPOINT member_denormalize;
3783: --Standard Call to check API compatibility
3784: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
3785: THEN
3786: RAISE FND_API.G_EXC_ERROR;
3787: END IF;
3788:
3789: x_return_status := fnd_api.g_ret_sts_success;
3790:
3785: THEN
3786: RAISE FND_API.G_EXC_ERROR;
3787: END IF;
3788:
3789: x_return_status := fnd_api.g_ret_sts_success;
3790:
3791: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
3792: IF FND_API.To_boolean(P_INIT_MSG_LIST)
3793: THEN
3788:
3789: x_return_status := fnd_api.g_ret_sts_success;
3790:
3791: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
3792: IF FND_API.To_boolean(P_INIT_MSG_LIST)
3793: THEN
3794: FND_MSG_PUB.Initialize;
3795: END IF;
3796:
3840:
3841:
3842: END IF; --end of p_group_id = p_parent_group_id check
3843:
3844: IF fnd_api.to_boolean (p_commit)
3845: THEN
3846: COMMIT WORK;
3847: END IF;
3848:
3846: COMMIT WORK;
3847: END IF;
3848:
3849: EXCEPTION
3850: WHEN fnd_api.g_exc_unexpected_error
3851: THEN
3852: ROLLBACK TO member_denormalize;
3853: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3854: WHEN fnd_api.g_exc_error
3850: WHEN fnd_api.g_exc_unexpected_error
3851: THEN
3852: ROLLBACK TO member_denormalize;
3853: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3854: WHEN fnd_api.g_exc_error
3855: THEN
3856: ROLLBACK TO member_denormalize;
3857: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3858: WHEN OTHERS
3862: fnd_message.set_token('P_SQLCODE',SQLCODE);
3863: fnd_message.set_token('P_SQLERRM',SQLERRM);
3864: fnd_message.set_token('P_API_NAME',l_api_name);
3865: FND_MSG_PUB.add;
3866: x_return_status := fnd_api.g_ret_sts_unexp_error;
3867: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3868: END INSERT_GRP_DENORM;
3869:
3870:
3918:
3919: --Standard Start of API SAVEPOINT
3920: SAVEPOINT DEL_REP_MGR_SP;
3921:
3922: x_return_status := fnd_api.g_ret_sts_success;
3923:
3924: --Standard Call to check API compatibility
3925: IF NOT FND_API.Compatible_API_CALL(l_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME) THEN
3926: RAISE FND_API.G_EXC_ERROR;
3921:
3922: x_return_status := fnd_api.g_ret_sts_success;
3923:
3924: --Standard Call to check API compatibility
3925: IF NOT FND_API.Compatible_API_CALL(l_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME) THEN
3926: RAISE FND_API.G_EXC_ERROR;
3927: END IF;
3928:
3929: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
3922: x_return_status := fnd_api.g_ret_sts_success;
3923:
3924: --Standard Call to check API compatibility
3925: IF NOT FND_API.Compatible_API_CALL(l_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME) THEN
3926: RAISE FND_API.G_EXC_ERROR;
3927: END IF;
3928:
3929: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
3930: IF FND_API.To_boolean(P_INIT_MSG_LIST) THEN
3926: RAISE FND_API.G_EXC_ERROR;
3927: END IF;
3928:
3929: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
3930: IF FND_API.To_boolean(P_INIT_MSG_LIST) THEN
3931: FND_MSG_PUB.Initialize;
3932: END IF;
3933:
3934:
3956: FETCH c_child_role_relate_cur INTO r_child_role_relate_rec;
3957: END LOOP; --end of par_mgr_cur
3958: CLOSE c_child_role_relate_cur;
3959:
3960: IF fnd_api.to_boolean (p_commit) THEN
3961: COMMIT WORK;
3962: END IF;
3963:
3964: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3963:
3964: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3965:
3966: EXCEPTION
3967: WHEN fnd_api.g_exc_unexpected_error THEN
3968: ROLLBACK TO del_rep_mgr_sp;
3969: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3970: WHEN fnd_api.g_exc_error THEN
3971: ROLLBACK TO del_rep_mgr_sp;
3966: EXCEPTION
3967: WHEN fnd_api.g_exc_unexpected_error THEN
3968: ROLLBACK TO del_rep_mgr_sp;
3969: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3970: WHEN fnd_api.g_exc_error THEN
3971: ROLLBACK TO del_rep_mgr_sp;
3972: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3973: WHEN OTHERS THEN
3974: ROLLBACK TO del_rep_mgr_sp;
3976: fnd_message.set_token('P_SQLCODE',SQLCODE);
3977: fnd_message.set_token('P_SQLERRM',SQLERRM);
3978: fnd_message.set_token('P_API_NAME',l_api_name);
3979: FND_MSG_PUB.add;
3980: x_return_status := fnd_api.g_ret_sts_unexp_error;
3981: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
3982:
3983: END DELETE_REP_MGR;
3984:
4198: BEGIN
4199: --Standard Start of API SAVEPOINT
4200: SAVEPOINT member_denormalize;
4201:
4202: x_return_status := fnd_api.g_ret_sts_success;
4203:
4204: --Standard Call to check API compatibility
4205: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
4206: THEN
4201:
4202: x_return_status := fnd_api.g_ret_sts_success;
4203:
4204: --Standard Call to check API compatibility
4205: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
4206: THEN
4207: RAISE FND_API.G_EXC_ERROR;
4208: END IF;
4209:
4203:
4204: --Standard Call to check API compatibility
4205: IF NOT FND_API.Compatible_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
4206: THEN
4207: RAISE FND_API.G_EXC_ERROR;
4208: END IF;
4209:
4210: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
4211: IF FND_API.To_boolean(P_INIT_MSG_LIST)
4207: RAISE FND_API.G_EXC_ERROR;
4208: END IF;
4209:
4210: --Initialize the message List if P_INIT_MSG_LIST is set to TRUE
4211: IF FND_API.To_boolean(P_INIT_MSG_LIST)
4212: THEN
4213: FND_MSG_PUB.Initialize;
4214: END IF;
4215:
4358: X_LAST_UPDATE_LOGIN => l_login_id,
4359: X_PAR_ROLE_RELATE_ID => l_mgr_rec(i).P_role_relate_id,
4360: X_CHILD_ROLE_RELATE_ID => member_rec.role_relate_id);
4361:
4362: IF fnd_api.to_boolean (p_commit)
4363: THEN
4364: l_count := l_count + 1;
4365: if (l_count > 1000)
4366: then
4413: X_LAST_UPDATE_LOGIN => l_login_id,
4414: X_PAR_ROLE_RELATE_ID => l_mgr_rec(i).P_role_relate_id,
4415: X_CHILD_ROLE_RELATE_ID => member_rec.role_relate_id);
4416:
4417: IF fnd_api.to_boolean (p_commit)
4418: THEN
4419: l_count := l_count + 1;
4420: if (l_count > 1000)
4421: then
4494: X_LAST_UPDATE_LOGIN => l_login_id,
4495: X_PAR_ROLE_RELATE_ID => l_mgr_rec(i).p_role_relate_id,
4496: X_CHILD_ROLE_RELATE_ID => member_rec.role_relate_id);
4497:
4498: IF fnd_api.to_boolean (p_commit)
4499: THEN
4500: l_count := l_count + 1;
4501: if (l_count > 1000)
4502: then
4624: X_LAST_UPDATE_LOGIN => l_login_id,
4625: X_PAR_ROLE_RELATE_ID => l_mgr_rec(i).P_role_relate_id,
4626: X_CHILD_ROLE_RELATE_ID => member_rec.role_relate_id);
4627:
4628: IF fnd_api.to_boolean (p_commit)
4629: THEN
4630: l_count := l_count + 1;
4631: if (l_count > 1000)
4632: then
4682: X_LAST_UPDATE_LOGIN => l_login_id,
4683: X_PAR_ROLE_RELATE_ID => l_mgr_rec(i).P_role_relate_id,
4684: X_CHILD_ROLE_RELATE_ID => member_rec.role_relate_id);
4685:
4686: IF fnd_api.to_boolean (p_commit)
4687: THEN
4688: l_count := l_count + 1;
4689: if (l_count > 1000)
4690: then
4761: X_LAST_UPDATE_LOGIN => l_login_id,
4762: X_PAR_ROLE_RELATE_ID => l_mgr_rec(i).p_role_relate_id,
4763: X_CHILD_ROLE_RELATE_ID => member_rec.role_relate_id);
4764:
4765: IF fnd_api.to_boolean (p_commit)
4766: THEN
4767: l_count := l_count + 1;
4768: if (l_count > 1000)
4769: then
4784:
4785: FETCH child_grp_cur INTO child_grp_rec;
4786: END LOOP; --CHILD GRP CUR
4787: --
4788: IF fnd_api.to_boolean (p_commit)
4789: THEN
4790: COMMIT WORK;
4791: END IF;
4792:
4792:
4793: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
4794:
4795: EXCEPTION
4796: WHEN fnd_api.g_exc_unexpected_error
4797: THEN
4798:
4799: ROLLBACK TO member_denormalize;
4800: --fnd_message.set_name ('JTF', 'JTF_RS_REP_MGR_DENORM_ERR');
4798:
4799: ROLLBACK TO member_denormalize;
4800: --fnd_message.set_name ('JTF', 'JTF_RS_REP_MGR_DENORM_ERR');
4801: --FND_MSG_PUB.add;
4802: --x_return_status := fnd_api.g_ret_sts_unexp_error;
4803: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
4804: WHEN fnd_api.g_exc_error
4805: THEN
4806: ROLLBACK TO member_denormalize;
4800: --fnd_message.set_name ('JTF', 'JTF_RS_REP_MGR_DENORM_ERR');
4801: --FND_MSG_PUB.add;
4802: --x_return_status := fnd_api.g_ret_sts_unexp_error;
4803: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
4804: WHEN fnd_api.g_exc_error
4805: THEN
4806: ROLLBACK TO member_denormalize;
4807: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
4808:
4813: fnd_message.set_token('P_SQLCODE',SQLCODE);
4814: fnd_message.set_token('P_SQLERRM',SQLERRM);
4815: fnd_message.set_token('P_API_NAME',l_api_name);
4816: FND_MSG_PUB.add;
4817: x_return_status := fnd_api.g_ret_sts_unexp_error;
4818: FND_MSG_PUB.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
4819: END INSERT_GRP_RELATIONS;
4820: END JTF_RS_REP_MGR_DENORM_PVT;