1: PACKAGE BODY PA_IMPL_OPTIONS_PUB AS
2: /* $Header: PAIMWRPB.pls 120.2 2006/03/17 01:06:37 dthakker noship $*/
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'PA_IMPL_OPTIONS_PUB';
5:
1: PACKAGE BODY PA_IMPL_OPTIONS_PUB AS
2: /* $Header: PAIMWRPB.pls 120.2 2006/03/17 01:06:37 dthakker noship $*/
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'PA_IMPL_OPTIONS_PUB';
5:
6: -- API name : Check_Incl_rlzd_gain_loss
7: -- Type : PL/SQL Public function
8: -- Pre-reqs : None
58: x_return_status := FND_API.G_RET_STS_SUCCESS;
59: EXCEPTION
60: WHEN OTHERS THEN
61: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
62: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_IMPL_OPTIONS_PUB',
63: p_procedure_name => 'Upgrade_MRC_fund_bud_flag',
64: p_error_text => SUBSTRB(SQLERRM,1,240));
65: rollback to upgrade_ou;
66: raise;
587:
588: --PA L Changes 2872708
589:
590:
591: END PA_IMPL_OPTIONS_PUB;