1: PACKAGE BODY OKL_VP_EXTEND_PUB AS
2: /*$Header: OKLPEXTB.pls 115.7 2004/04/13 10:44:58 rnaik noship $*/
3:
4: ---------------------------------------------------------------------------
5: -- PROCEDURE extend_contract
63:
64: WHEN OTHERS THEN
65: -- notify caller of an UNEXPECTED error
66: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
67: FND_MSG_PUB.ADD_EXC_MSG('OKL_VP_EXTEND_PUB','extend_contract');
68: -- store SQL error message on message stack for caller
69: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
70: p_count => x_msg_count,
71: p_data => x_msg_data);
70: p_count => x_msg_count,
71: p_data => x_msg_data);
72: END extend_contract;
73:
74: END OKL_VP_EXTEND_PUB;