1: package body OKE_AGREEMENT_PVT as
2: /* $Header: OKEVKAGB.pls 120.3.12020000.4 2012/11/29 06:49:42 ansraj ship $ */
3:
4: --
5: -- Local Variables
2495: l_agreement_length NUMBER := 0;
2496:
2497: BEGIN
2498:
2499: --oke_debug.debug('entering oke_agreement_pvt.create_agreement');
2500: --dbms_output.put_line('enter oke_agreement_pvt.create_agreement');
2501:
2502: p_return_status := OKE_API.G_RET_STS_SUCCESS;
2503:
2496:
2497: BEGIN
2498:
2499: --oke_debug.debug('entering oke_agreement_pvt.create_agreement');
2500: --dbms_output.put_line('enter oke_agreement_pvt.create_agreement');
2501:
2502: p_return_status := OKE_API.G_RET_STS_SUCCESS;
2503:
2504: l_return_status := OKE_API.START_ACTIVITY(p_api_name => l_api_name ,
3047: COMMIT WORK;
3048:
3049: END IF;
3050:
3051: --dbms_output.put_line('finished oke_agreement_pvt.create_agreement w/ ' || p_return_status);
3052: --oke_debug.debug('finished oke_agreement_pvt.create_agreement w/ ' || p_return_status);
3053:
3054: OKE_API.END_ACTIVITY(x_msg_count => p_msg_count ,
3055: x_msg_data => p_msg_data
3048:
3049: END IF;
3050:
3051: --dbms_output.put_line('finished oke_agreement_pvt.create_agreement w/ ' || p_return_status);
3052: --oke_debug.debug('finished oke_agreement_pvt.create_agreement w/ ' || p_return_status);
3053:
3054: OKE_API.END_ACTIVITY(x_msg_count => p_msg_count ,
3055: x_msg_data => p_msg_data
3056: );
3341: l_agreement_length NUMBER := 0;
3342:
3343: BEGIN
3344:
3345: --dbms_output.put_line('entering oke_agreement_pvt.update_agreement');
3346: --oke_debug.debug('entering oke_agreement_pvt.update_agreement');
3347:
3348: p_return_status := OKE_API.G_RET_STS_SUCCESS;
3349:
3342:
3343: BEGIN
3344:
3345: --dbms_output.put_line('entering oke_agreement_pvt.update_agreement');
3346: --oke_debug.debug('entering oke_agreement_pvt.update_agreement');
3347:
3348: p_return_status := OKE_API.G_RET_STS_SUCCESS;
3349:
3350: l_return_status := OKE_API.START_ACTIVITY(p_api_name => l_api_name ,
4253: COMMIT WORK;
4254:
4255: END IF;
4256:
4257: --dbms_output.put_line('finished oke_agreement_pvt.update_agreement w/ ' || p_return_status);
4258: --oke_debug.debug('finished oke_agreement_pvt.update_agreement w/ ' || p_return_status);
4259:
4260: OKE_API.END_ACTIVITY(x_msg_count => p_msg_count ,
4261: x_msg_data => p_msg_data
4254:
4255: END IF;
4256:
4257: --dbms_output.put_line('finished oke_agreement_pvt.update_agreement w/ ' || p_return_status);
4258: --oke_debug.debug('finished oke_agreement_pvt.update_agreement w/ ' || p_return_status);
4259:
4260: OKE_API.END_ACTIVITY(x_msg_count => p_msg_count ,
4261: x_msg_data => p_msg_data
4262: );
4390: l_allocation_in_rec OKE_ALLOCATION_PVT.ALLOCATION_REC_IN_TYPE;
4391:
4392: BEGIN
4393:
4394: --dbms_output.put_line('entering oke_agreement_pvt.update_pa_funding');
4395: --oke_debug.debug('entering oke_agreement_pvt.update_pa_funding');
4396:
4397: p_return_status := OKE_API.G_RET_STS_SUCCESS;
4398:
4391:
4392: BEGIN
4393:
4394: --dbms_output.put_line('entering oke_agreement_pvt.update_pa_funding');
4395: --oke_debug.debug('entering oke_agreement_pvt.update_pa_funding');
4396:
4397: p_return_status := OKE_API.G_RET_STS_SUCCESS;
4398:
4399: l_return_status := OKE_API.START_ACTIVITY(p_api_name => l_api_name ,
4542: IF (l_add_flag = 'Y') THEN -- AND
4543: --(nvl(l_version, 0) <> 0 or p_allocation_in_rec.amount <> 0) THEN
4544:
4545: IF l_diff_amount<>0 THEN
4546: --dbms_output.put_line('calling pa_agreement_pub.add_funding from oke_agreement_pvt');
4547: --oke_debug.debug('calling pa_agreement_pub.add_funding from oke_agreement_pvt');
4548:
4549: PA_AGREEMENT_PUB.add_funding(p_api_version_number => p_api_version ,
4550: p_commit => OKE_API.G_FALSE ,
4543: --(nvl(l_version, 0) <> 0 or p_allocation_in_rec.amount <> 0) THEN
4544:
4545: IF l_diff_amount<>0 THEN
4546: --dbms_output.put_line('calling pa_agreement_pub.add_funding from oke_agreement_pvt');
4547: --oke_debug.debug('calling pa_agreement_pub.add_funding from oke_agreement_pvt');
4548:
4549: PA_AGREEMENT_PUB.add_funding(p_api_version_number => p_api_version ,
4550: p_commit => OKE_API.G_FALSE ,
4551: p_init_msg_list => OKE_API.G_FALSE ,
4606: p_project_funding => l_project_funding
4607: );
4608:
4609:
4610: --dbms_output.put_line('calling pa_agreement_pub.update_funding from oke_agreement_pvt');
4611: --oke_debug.debug('calling pa_agreement_pub.update_funding from oke_agreement_pvt');
4612:
4613: PA_AGREEMENT_PUB.update_funding(p_api_version_number => p_api_version ,
4614: p_commit => OKE_API.G_FALSE ,
4607: );
4608:
4609:
4610: --dbms_output.put_line('calling pa_agreement_pub.update_funding from oke_agreement_pvt');
4611: --oke_debug.debug('calling pa_agreement_pub.update_funding from oke_agreement_pvt');
4612:
4613: PA_AGREEMENT_PUB.update_funding(p_api_version_number => p_api_version ,
4614: p_commit => OKE_API.G_FALSE ,
4615: p_init_msg_list => OKE_API.G_FALSE ,
4735: = p_allocation_in_rec.fund_allocation_id || '.';
4736:
4737: -- END LOOP;
4738:
4739: --dbms_output.put_line('finished oke_agreement_pvt.update_funding w/ ' || p_return_status);
4740: --oke_debug.debug('finished oke_agreement_pvt.update_funding w/ ' || p_return_status);
4741:
4742: IF FND_API.to_boolean(p_commit) THEN
4743:
4736:
4737: -- END LOOP;
4738:
4739: --dbms_output.put_line('finished oke_agreement_pvt.update_funding w/ ' || p_return_status);
4740: --oke_debug.debug('finished oke_agreement_pvt.update_funding w/ ' || p_return_status);
4741:
4742: IF FND_API.to_boolean(p_commit) THEN
4743:
4744: COMMIT WORK;
4810: l_allocation_in_rec OKE_ALLOCATION_PVT.ALLOCATION_REC_IN_TYPE;
4811:
4812: BEGIN
4813:
4814: --dbms_output.put_line('entering oke_agreement_pvt.add_pa_funding');
4815: --oke_debug.debug('entering oke_agreement_pvt.add_pa_funding');
4816:
4817: p_return_status := OKE_API.G_RET_STS_SUCCESS;
4818:
4811:
4812: BEGIN
4813:
4814: --dbms_output.put_line('entering oke_agreement_pvt.add_pa_funding');
4815: --oke_debug.debug('entering oke_agreement_pvt.add_pa_funding');
4816:
4817: p_return_status := OKE_API.G_RET_STS_SUCCESS;
4818:
4819: l_return_status := OKE_API.START_ACTIVITY(p_api_name => l_api_name ,
4986: COMMIT WORK;
4987:
4988: END IF;
4989:
4990: --dbms_output.put_line('finished oke_agreement_pvt.add_pa_funding w/ ' || p_return_status);
4991: --oke_debug.debug('finished oke_agreement_pvt.add_pa_funding w/ ' || p_return_status);
4992:
4993: OKE_API.END_ACTIVITY(x_msg_count => p_msg_count ,
4994: x_msg_data => p_msg_data
4987:
4988: END IF;
4989:
4990: --dbms_output.put_line('finished oke_agreement_pvt.add_pa_funding w/ ' || p_return_status);
4991: --oke_debug.debug('finished oke_agreement_pvt.add_pa_funding w/ ' || p_return_status);
4992:
4993: OKE_API.END_ACTIVITY(x_msg_count => p_msg_count ,
4994: x_msg_data => p_msg_data
4995: );
5022: p_api_type => '_PVT'
5023: );
5024: END add_pa_funding;
5025:
5026: end OKE_AGREEMENT_PVT;