[Home] [Help]
PACKAGE BODY: APPS.OKL_AM_INTEGRATION_PUB
Source
1 PACKAGE BODY OKL_AM_INTEGRATION_PUB AS
2 /* $Header: OKLPKRBB.pls 120.1 2005/09/01 21:24:14 rmunjulu noship $ */
3
4 -- Global Private Variables and Types
5
6 -- Start of comments
7 --
8 -- Procedure Name : cancel_termination_quotes
9 -- Description : Invalidates all the termination quotes
10 -- : for the contract
11 -- Business Rules :
12 -- Parameters : contract_id and quote_id which caused the rebook process
13 -- Version : 1.0
14 -- End of comments
15
16 PROCEDURE cancel_termination_quotes (p_api_version IN NUMBER,
17 p_init_msg_list IN VARCHAR2 DEFAULT G_FALSE,
18 p_khr_id IN NUMBER,
19 p_source_trx_id IN NUMBER ,
20 p_source IN VARCHAR2 DEFAULT NULL, -- rmunjulu 4508497
21 x_return_status OUT NOCOPY VARCHAR2,
22 x_msg_count OUT NOCOPY NUMBER,
23 x_msg_data OUT NOCOPY VARCHAR2) IS
24
25 lp_source_trx_id NUMBER := p_source_trx_id;
26 lp_khr_id NUMBER := p_khr_id;
27 l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
28 l_program_name CONSTANT VARCHAR2(61) := 'cancel_termination_quotes';
29 l_api_name CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_program_name;
30
31 -- rmunjulu 4508497
32 lp_source VARCHAR2(300) := p_source;
33
34 BEGIN
35 -- create a save point with the procedure name
36 SAVEPOINT l_program_name;
37 -- call the process pvt wrapper
38 OKL_AM_INTEGRATION_PVT.cancel_termination_quotes(p_api_version => p_api_version,
39 p_init_msg_list => p_init_msg_list,
40 p_khr_id => lp_khr_id,
41 p_source_trx_id => lp_source_trx_id,
42 p_source => lp_source, -- rmunjulu 4508497
43 x_return_status => l_return_status,
44 x_msg_count => x_msg_count,
45 x_msg_data => x_msg_data);
46 IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
47 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
48 ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
49 RAISE OKL_API.G_EXCEPTION_ERROR;
50 END IF;
51
52 x_return_status := G_RET_STS_SUCCESS;
53
54 EXCEPTION
55
56 WHEN OKL_API.G_EXCEPTION_ERROR THEN
57 ROLLBACK TO l_program_name;
58 x_return_status := G_RET_STS_ERROR;
59
60 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
61 ROLLBACK TO l_program_name;
62 x_return_status := G_RET_STS_UNEXP_ERROR;
63
64 WHEN OTHERS THEN
65 OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
66 p_msg_name => G_DB_ERROR,
67 p_token1 => G_PROG_NAME_TOKEN,
68 p_token1_value => l_api_name,
69 p_token2 => G_SQLCODE_TOKEN,
70 p_token2_value => sqlcode,
71 p_token3 => G_SQLERRM_TOKEN,
72 p_token3_value => sqlerrm);
73 ROLLBACK TO l_program_name;
74 x_return_status := G_RET_STS_UNEXP_ERROR;
75
76 END cancel_termination_quotes;
77
78 END OKL_AM_INTEGRATION_PUB;