14: l_ter_header_rec terminate_header_rec_type;
15: l_data VARCHAR2(100);
16: l_api_name CONSTANT VARCHAR2(30) := 'terminate_contract';
17: l_count NUMBER ;
18: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
19: BEGIN
20: x_return_status := FND_API.G_RET_STS_SUCCESS;
21:
22: l_ter_header_rec := p_ter_header_rec;
16: l_api_name CONSTANT VARCHAR2(30) := 'terminate_contract';
17: l_count NUMBER ;
18: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
19: BEGIN
20: x_return_status := FND_API.G_RET_STS_SUCCESS;
21:
22: l_ter_header_rec := p_ter_header_rec;
23:
24:
31: x_msg_count => x_msg_count,
32: x_msg_data => x_msg_data,
33: p_ter_header_rec => l_ter_header_rec);
34:
35: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
36: RAISE FND_API.G_EXC_ERROR;
37: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
38: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
39: END IF;
32: x_msg_data => x_msg_data,
33: p_ter_header_rec => l_ter_header_rec);
34:
35: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
36: RAISE FND_API.G_EXC_ERROR;
37: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
38: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
39: END IF;
40:
33: p_ter_header_rec => l_ter_header_rec);
34:
35: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
36: RAISE FND_API.G_EXC_ERROR;
37: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
38: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
39: END IF;
40:
41:
34:
35: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
36: RAISE FND_API.G_EXC_ERROR;
37: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
38: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
39: END IF;
40:
41:
42:
41:
42:
43:
44: EXCEPTION
45: WHEN FND_API.G_EXC_ERROR THEN
46: -- notify caller of an UNEXPECTED error
47: x_return_status := FND_API.G_RET_STS_ERROR;
48:
49: -- store SQL error message on message stack for caller
43:
44: EXCEPTION
45: WHEN FND_API.G_EXC_ERROR THEN
46: -- notify caller of an UNEXPECTED error
47: x_return_status := FND_API.G_RET_STS_ERROR;
48:
49: -- store SQL error message on message stack for caller
50: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
51: p_count => x_msg_count,
50: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
51: p_count => x_msg_count,
52: p_data => x_msg_data);
53:
54: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
55: -- notify caller of an UNEXPECTED error
56: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
57:
58: -- store SQL error message on message stack for caller
52: p_data => x_msg_data);
53:
54: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
55: -- notify caller of an UNEXPECTED error
56: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
57:
58: -- store SQL error message on message stack for caller
59: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
60: p_count => x_msg_count,
61: p_data => x_msg_data);
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,