1: PACKAGE BODY OKL_VP_TERMINATE_PUB AS
2: /*$Header: OKLPTERB.pls 115.6 2004/04/13 11:24:37 rnaik noship $*/
3:
4: ---------------------------------------------------------------------------
5: -- PROCEDURE terminate_contract
62:
63: WHEN OTHERS THEN
64: -- notify caller of an UNEXPECTED error
65: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
66: FND_MSG_PUB.ADD_EXC_MSG('OKL_VP_TERMINATE_PUB','terminate_contract');
67:
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,
70: p_count => x_msg_count,
71: p_data => x_msg_data);
72: END terminate_contract;
73:
74: END OKL_VP_TERMINATE_PUB;