[Home] [Help]
1: PACKAGE BODY OZF_FUND_UTILIZED_PVT AS
2: /* $Header: ozfvfutb.pls 120.17.12010000.10 2009/02/02 14:57:26 kdass ship $ */
3: g_pkg_name CONSTANT VARCHAR2 (30) := 'OZF_Fund_Utilized_PVT';
4: g_cons_fund_mode CONSTANT VARCHAR2 (30) := 'ADJUST'; --JTF_PLSQL_API.G_UPDATE
5: g_universal_currency CONSTANT VARCHAR2 (15) := fnd_profile.VALUE ('OZF_UNIV_CURR_CODE');
6: G_DEBUG BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
7:
8:
2157: END IF;
2158: -- replace g_miss_char/num/date with current column values
2159: complete_utilization_rec (p_utilization_rec, l_utilization_rec);
2160:
2161: IF p_validation_level >= jtf_plsql_api.g_valid_level_item THEN
2162: check_utilization_items (
2163: p_utilization_rec=> p_utilization_rec
2164: ,p_validation_mode=> jtf_plsql_api.g_update
2165: ,x_return_status=> l_return_status
2160:
2161: IF p_validation_level >= jtf_plsql_api.g_valid_level_item THEN
2162: check_utilization_items (
2163: p_utilization_rec=> p_utilization_rec
2164: ,p_validation_mode=> jtf_plsql_api.g_update
2165: ,x_return_status=> l_return_status
2166: );
2167:
2168: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2172: END IF;
2173: END IF;
2174:
2175:
2176: IF p_validation_level >= jtf_plsql_api.g_valid_level_record THEN
2177: check_utilization_record (
2178: p_utilization_rec=> p_utilization_rec
2179: ,p_complete_rec=> l_utilization_rec
2180: ,p_mode=> p_mode
2532: ozf_utility_pvt.debug_message ( l_full_name
2533: || ': check items');
2534: END IF;
2535:
2536: IF p_validation_level >= jtf_plsql_api.g_valid_level_item THEN
2537: check_utilization_items (
2538: p_utilization_rec=> p_utilization_rec
2539: ,p_validation_mode=> jtf_plsql_api.g_create
2540: ,x_return_status=> l_return_status
2535:
2536: IF p_validation_level >= jtf_plsql_api.g_valid_level_item THEN
2537: check_utilization_items (
2538: p_utilization_rec=> p_utilization_rec
2539: ,p_validation_mode=> jtf_plsql_api.g_create
2540: ,x_return_status=> l_return_status
2541: );
2542:
2543: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2551: ozf_utility_pvt.debug_message ( l_full_name
2552: || ': check record');
2553: END IF;
2554:
2555: IF p_validation_level >= jtf_plsql_api.g_valid_level_record THEN
2556: check_utilization_record (
2557: p_utilization_rec=> p_utilization_rec
2558: ,p_complete_rec=> p_utilization_rec
2559: ,x_return_status=> l_return_status
2686: -- 02/23/2001 Mumu PAnde Updated for Hornet requirements
2687: ---------------------------------------------------------------------
2688: PROCEDURE check_utilized_uk_items (
2689: p_utilization_rec IN utilization_rec_type
2690: ,p_validation_mode IN VARCHAR2 := jtf_plsql_api.g_create
2691: ,x_return_status OUT NOCOPY VARCHAR2
2692: ) IS
2693: l_valid_flag VARCHAR2 (1);
2694: BEGIN
2695: x_return_status := fnd_api.g_ret_sts_success;
2696:
2697: -- For Create_Utilization, when utilization_id is passed in, we need to
2698: -- check if this utilization_id is unique.
2699: IF p_validation_mode = jtf_plsql_api.g_create
2700: AND p_utilization_rec.utilization_id IS NOT NULL THEN
2701: IF ozf_utility_pvt.check_uniqueness (
2702: 'ozf_funds_UTILIZED_all_b'
2703: , 'utilization_id = '
2866: -- 02/08/2001 Mumu Pande Updated for 11.5.5 requirements
2867: -- 02/23/2001 Mumu PAnde Updated for Hornet requirements
2868: ---------------------------------------------------------------------
2869: PROCEDURE check_utilization_items (
2870: p_validation_mode IN VARCHAR2 := jtf_plsql_api.g_create
2871: ,x_return_status OUT NOCOPY VARCHAR2
2872: ,p_utilization_rec IN utilization_rec_type
2873: ) IS
2874: BEGIN