1: package body OKE_ALLOCATION_PVT as
2: /* $Header: OKEVFDAB.pls 120.3.12020000.2 2012/12/01 03:52:04 skuchima ship $ */
3:
4: --
5: -- Local Variables
2486: --l_rate NUMBER;
2487:
2488: BEGIN
2489:
2490: --dbms_output.put_line('entering oke_allocation_pvt.add_allocation');
2491: --oke_debug.debug('entering oke_allocation_pvt.add_allocation');
2492:
2493: p_return_status := OKE_API.G_RET_STS_SUCCESS;
2494: p_allocation_out_rec.return_status := OKE_API.G_RET_STS_SUCCESS;
2487:
2488: BEGIN
2489:
2490: --dbms_output.put_line('entering oke_allocation_pvt.add_allocation');
2491: --oke_debug.debug('entering oke_allocation_pvt.add_allocation');
2492:
2493: p_return_status := OKE_API.G_RET_STS_SUCCESS;
2494: p_allocation_out_rec.return_status := OKE_API.G_RET_STS_SUCCESS;
2495:
2545:
2546: l_fund_allocation_id := get_fund_allocation_id;
2547: p_allocation_out_rec.fund_allocation_id := l_fund_allocation_id;
2548:
2549: --dbms_output.put_line('calling oke_fundingallocation_pvt.insert_row from oke_allocation_pvt');
2550: --oke_debug.debug('calling oke_fundingallocation_pvt.insert_row from oke_allocation_pvt');
2551:
2552: OKE_FUNDINGALLOCATION_PVT.insert_row(X_Rowid => l_rowid ,
2553: X_Fund_Allocation_Id => l_fund_allocation_id ,
2546: l_fund_allocation_id := get_fund_allocation_id;
2547: p_allocation_out_rec.fund_allocation_id := l_fund_allocation_id;
2548:
2549: --dbms_output.put_line('calling oke_fundingallocation_pvt.insert_row from oke_allocation_pvt');
2550: --oke_debug.debug('calling oke_fundingallocation_pvt.insert_row from oke_allocation_pvt');
2551:
2552: OKE_FUNDINGALLOCATION_PVT.insert_row(X_Rowid => l_rowid ,
2553: X_Fund_Allocation_Id => l_fund_allocation_id ,
2554: X_Funding_Source_Id => l_allocation_in_rec.funding_source_id ,
2608: X_PA_Attribute9 => l_allocation_in_rec.pa_attribute9 ,
2609: X_PA_Attribute10 => l_allocation_in_rec.pa_attribute10
2610: );
2611:
2612: --dbms_output.put_line('finished oke_allocation_pvt.add_allocation w/ ' || p_return_status);
2613: --oke_debug.debug('finished oke_allocation_pvt.add_allocation w/ ' || p_return_status);
2614:
2615: IF FND_API.to_boolean(p_commit) THEN
2616:
2609: X_PA_Attribute10 => l_allocation_in_rec.pa_attribute10
2610: );
2611:
2612: --dbms_output.put_line('finished oke_allocation_pvt.add_allocation w/ ' || p_return_status);
2613: --oke_debug.debug('finished oke_allocation_pvt.add_allocation w/ ' || p_return_status);
2614:
2615: IF FND_API.to_boolean(p_commit) THEN
2616:
2617: COMMIT WORK;
2693: l_previous_amount NUMBER;
2694:
2695: BEGIN
2696:
2697: --dbms_output.put_line('entering oke_allocation_pvt.update_allocation');
2698: --oke_debug.debug('entering oke_allocation_pvt.update_allocation');
2699:
2700: p_return_status := OKE_API.G_RET_STS_SUCCESS;
2701: p_allocation_out_rec.return_status := OKE_API.G_RET_STS_SUCCESS;
2694:
2695: BEGIN
2696:
2697: --dbms_output.put_line('entering oke_allocation_pvt.update_allocation');
2698: --oke_debug.debug('entering oke_allocation_pvt.update_allocation');
2699:
2700: p_return_status := OKE_API.G_RET_STS_SUCCESS;
2701: p_allocation_out_rec.return_status := OKE_API.G_RET_STS_SUCCESS;
2702:
2858: COMMIT WORK;
2859:
2860: END IF;
2861:
2862: --dbms_output.put_line('finished oke_allocation_pvt.update_allocation w/ ' || p_return_status);
2863: --oke_debug.debug('finished oke_allocation_pvt.update_allocation w/ ' || p_return_status);
2864:
2865: OKE_API.END_ACTIVITY(x_msg_count => p_msg_count ,
2866: x_msg_data => p_msg_data
2859:
2860: END IF;
2861:
2862: --dbms_output.put_line('finished oke_allocation_pvt.update_allocation w/ ' || p_return_status);
2863: --oke_debug.debug('finished oke_allocation_pvt.update_allocation w/ ' || p_return_status);
2864:
2865: OKE_API.END_ACTIVITY(x_msg_count => p_msg_count ,
2866: x_msg_data => p_msg_data
2867: );
2960: and substr(pm_funding_reference, 1, x_length + 1) = p_fund_allocation_id || '.';
2961:
2962: BEGIN
2963:
2964: --dbms_output.put_line('entering oke_allocation_pvt.delete_allocation');
2965: --oke_debug.debug('entering oke_allocation_pvt.delete_allocation');
2966:
2967: p_return_status := OKE_API.G_RET_STS_SUCCESS;
2968:
2961:
2962: BEGIN
2963:
2964: --dbms_output.put_line('entering oke_allocation_pvt.delete_allocation');
2965: --oke_debug.debug('entering oke_allocation_pvt.delete_allocation');
2966:
2967: p_return_status := OKE_API.G_RET_STS_SUCCESS;
2968:
2969: l_return_status := OKE_API.START_ACTIVITY(p_api_name => l_api_name ,
3068:
3069: END LOOP;
3070: mo_global.set_policy_context('S',to_number(l_org_id_vc));
3071:
3072: --dbms_output.put_line('finished oke_allocation_pvt.delete_allocation w/ ' || p_return_status);
3073: --oke_debug.debug('finished oke_allocation_pvt.delete_allocation w/ ' || p_return_status);
3074:
3075: IF FND_API.to_boolean(p_commit) THEN
3076:
3069: END LOOP;
3070: mo_global.set_policy_context('S',to_number(l_org_id_vc));
3071:
3072: --dbms_output.put_line('finished oke_allocation_pvt.delete_allocation w/ ' || p_return_status);
3073: --oke_debug.debug('finished oke_allocation_pvt.delete_allocation w/ ' || p_return_status);
3074:
3075: IF FND_API.to_boolean(p_commit) THEN
3076:
3077: COMMIT WORK;
3132:
3133: END get_allocation_tbl;
3134:
3135:
3136: end OKE_ALLOCATION_PVT;