[Home] [Help]
PACKAGE BODY: APPS.OKL_VP_TERMINATE_PUB
Source
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
6 -- Public wrapper for terminate contract process api
7 ---------------------------------------------------------------------------
8 PROCEDURE terminate_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_ter_header_rec IN terminate_header_rec_type) IS
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;
23
24
25
26 -- call process api to extend contract
27
28 okl_vp_terminate_pvt.terminate_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_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
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
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
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,
70 p_count => x_msg_count,
71 p_data => x_msg_data);
72 END terminate_contract;
73
74 END OKL_VP_TERMINATE_PUB;