[Home] [Help]
PACKAGE BODY: APPS.OKL_VP_EXTEND_PUB
Source
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
6 -- Public wrapper for extend contract process api
7 ---------------------------------------------------------------------------
8 PROCEDURE extend_contract(p_api_version IN NUMBER,
9 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
10 x_return_status OUT NOCOPY VARCHAR2,
11 x_msg_count OUT NOCOPY NUMBER,
12 x_msg_data OUT NOCOPY VARCHAR2,
13 p_ext_header_rec IN extension_header_rec_type) IS
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;
23
24
25
26 -- call process api to extend contract
27
28 okl_vp_extend_pvt.extend_contract(p_api_version => p_api_version,
29 p_init_msg_list => p_init_msg_list,
30 x_return_status => l_return_status,
31 x_msg_count => x_msg_count,
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;
41
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
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
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,
71 p_data => x_msg_data);
72 END extend_contract;
73
74 END OKL_VP_EXTEND_PUB;