[Home] [Help]
1: PACKAGE BODY OZF_FUND_UTILIZED_PVT AS
2: /* $Header: ozfvfutb.pls 120.46.12020000.2 2013/01/31 07:00:59 ninarasi 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:
2611: END IF;
2612: -- replace g_miss_char/num/date with current column values
2613: complete_utilization_rec (p_utilization_rec, l_utilization_rec);
2614:
2615: IF p_validation_level >= jtf_plsql_api.g_valid_level_item THEN
2616: check_utilization_items (
2617: p_utilization_rec=> p_utilization_rec
2618: ,p_validation_mode=> jtf_plsql_api.g_update
2619: ,x_return_status=> l_return_status
2614:
2615: IF p_validation_level >= jtf_plsql_api.g_valid_level_item THEN
2616: check_utilization_items (
2617: p_utilization_rec=> p_utilization_rec
2618: ,p_validation_mode=> jtf_plsql_api.g_update
2619: ,x_return_status=> l_return_status
2620: );
2621:
2622: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2626: END IF;
2627: END IF;
2628:
2629:
2630: IF p_validation_level >= jtf_plsql_api.g_valid_level_record THEN
2631: check_utilization_record (
2632: p_utilization_rec=> p_utilization_rec
2633: ,p_complete_rec=> l_utilization_rec
2634: ,p_mode=> p_mode
2994: ozf_utility_pvt.debug_message ( l_full_name
2995: || ': check items');
2996: END IF;
2997:
2998: IF p_validation_level >= jtf_plsql_api.g_valid_level_item THEN
2999: check_utilization_items (
3000: p_utilization_rec=> p_utilization_rec
3001: ,p_validation_mode=> jtf_plsql_api.g_create
3002: ,x_return_status=> l_return_status
2997:
2998: IF p_validation_level >= jtf_plsql_api.g_valid_level_item THEN
2999: check_utilization_items (
3000: p_utilization_rec=> p_utilization_rec
3001: ,p_validation_mode=> jtf_plsql_api.g_create
3002: ,x_return_status=> l_return_status
3003: );
3004:
3005: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3013: ozf_utility_pvt.debug_message ( l_full_name
3014: || ': check record');
3015: END IF;
3016:
3017: IF p_validation_level >= jtf_plsql_api.g_valid_level_record THEN
3018: check_utilization_record (
3019: p_utilization_rec=> p_utilization_rec
3020: ,p_complete_rec=> p_utilization_rec
3021: ,x_return_status=> l_return_status
3148: -- 02/23/2001 Mumu PAnde Updated for Hornet requirements
3149: ---------------------------------------------------------------------
3150: PROCEDURE check_utilized_uk_items (
3151: p_utilization_rec IN utilization_rec_type
3152: ,p_validation_mode IN VARCHAR2 := jtf_plsql_api.g_create
3153: ,x_return_status OUT NOCOPY VARCHAR2
3154: ) IS
3155: l_valid_flag VARCHAR2 (1);
3156: BEGIN
3157: x_return_status := fnd_api.g_ret_sts_success;
3158:
3159: -- For Create_Utilization, when utilization_id is passed in, we need to
3160: -- check if this utilization_id is unique.
3161: IF p_validation_mode = jtf_plsql_api.g_create
3162: AND p_utilization_rec.utilization_id IS NOT NULL THEN
3163: IF ozf_utility_pvt.check_uniqueness (
3164: 'ozf_funds_UTILIZED_all_b'
3165: , 'utilization_id = '
3328: -- 02/08/2001 Mumu Pande Updated for 11.5.5 requirements
3329: -- 02/23/2001 Mumu PAnde Updated for Hornet requirements
3330: ---------------------------------------------------------------------
3331: PROCEDURE check_utilization_items (
3332: p_validation_mode IN VARCHAR2 := jtf_plsql_api.g_create
3333: ,x_return_status OUT NOCOPY VARCHAR2
3334: ,p_utilization_rec IN utilization_rec_type
3335: ) IS
3336: BEGIN