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