DBA Data[Home] [Help]

APPS.OKL_AM_INTEGRATION_PVT dependencies on OKL_API

Line 5: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;

1: PACKAGE BODY OKL_AM_INTEGRATION_PVT AS
2: /* $Header: OKLRKRBB.pls 120.3.12010000.3 2008/10/03 18:17:41 rkuttiya ship $ */
3:
4: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := 'OKL_REQUIRED_VALUE';
5: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
6:
7: -- Start of comments
8: --
9: -- Procedure Name : cancel_termination_quotes

Line 32: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;

28: x_msg_data OUT NOCOPY VARCHAR2) IS
29:
30: lp_source_trx_id NUMBER := p_source_trx_id;
31: lp_khr_id NUMBER := p_khr_id;
32: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
33: l_program_name CONSTANT VARCHAR2(61) := 'cancel_termination_quotes';
34: l_api_name CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_program_name;
35: lx_quote_tbl OKL_AM_UTIL_PVT.quote_tbl_type;
36: lp_canceled_qtev_rec OKL_QTE_PVT.qtev_rec_type;

Line 65: IF(lp_khr_id IS NULL OR lp_khr_id = OKL_API.G_MISS_NUM) THEN

61: BEGIN
62:
63: SAVEPOINT l_program_name;
64:
65: IF(lp_khr_id IS NULL OR lp_khr_id = OKL_API.G_MISS_NUM) THEN
66: -- set the message and raise an exception if contract id is passed as null
67: OKL_API.set_message(p_app_name => G_APP_NAME,
68: p_msg_name => G_REQUIRED_VALUE,
69: p_token1 => G_COL_NAME_TOKEN,

Line 67: OKL_API.set_message(p_app_name => G_APP_NAME,

63: SAVEPOINT l_program_name;
64:
65: IF(lp_khr_id IS NULL OR lp_khr_id = OKL_API.G_MISS_NUM) THEN
66: -- set the message and raise an exception if contract id is passed as null
67: OKL_API.set_message(p_app_name => G_APP_NAME,
68: p_msg_name => G_REQUIRED_VALUE,
69: p_token1 => G_COL_NAME_TOKEN,
70: p_token1_value => 'chr_id');
71: RAISE OKL_API.G_EXCEPTION_ERROR;

Line 71: RAISE OKL_API.G_EXCEPTION_ERROR;

67: OKL_API.set_message(p_app_name => G_APP_NAME,
68: p_msg_name => G_REQUIRED_VALUE,
69: p_token1 => G_COL_NAME_TOKEN,
70: p_token1_value => 'chr_id');
71: RAISE OKL_API.G_EXCEPTION_ERROR;
72: END IF;
73:
74: -- cursor to check whether the contract id exists or not by retrieving the contract number
75: FOR l_khr_exists_rec IN is_khr_exists_csr

Line 83: /*OKL_API.set_message(p_app_name => g_app_name,

79:
80: IF(l_contract_number IS NULL) THEN
81: -- set the message and raise an exception if contract id is passed as null
82: --SECHAWLA 28-JUL-04 3789019 : Use OKL application ans OKL_message instead of OKC
83: /*OKL_API.set_message(p_app_name => g_app_name,
84: p_msg_name => 'OKC_CONTRACTS_INVALID_VALUE',
85: p_token1 => 'COL_NAME',
86: p_token1_value => 'CONTRACT_NUMBER');
87: */

Line 88: OKL_API.set_message(p_app_name => 'OKL',

84: p_msg_name => 'OKC_CONTRACTS_INVALID_VALUE',
85: p_token1 => 'COL_NAME',
86: p_token1_value => 'CONTRACT_NUMBER');
87: */
88: OKL_API.set_message(p_app_name => 'OKL',
89: p_msg_name => 'OKL_CONTRACTS_INVALID_VALUE',
90: p_token1 => 'COL_NAME',
91: p_token1_value => 'CONTRACT_NUMBER');
92: END IF;

Line 140: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN

136: OKL_AM_UTIL_PVT.get_all_term_qte_for_contract(p_khr_id => lp_khr_id,
137: x_quote_tbl => lx_quote_tbl,
138: x_return_status => l_return_status);
139:
140: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
141: -- Loop thru the quotes for the contract
142: IF lx_quote_tbl.COUNT > 0 THEN
143: -- SECHAWLA 23-OCT-03 Added the following piece of code to get the quote id if a termination transaction
144: -- exists and was created thru a quote.

Line 154: RAISE OKL_API.G_EXCEPTION_ERROR;

150: p_msg_name => G_INVALID_VALUE,
151: p_token1 => G_COL_NAME_TOKEN,
152: p_token1_value => 'SOURCE_TRX_ID');
153:
154: RAISE OKL_API.G_EXCEPTION_ERROR;
155: END IF;
156: CLOSE l_trxcontracts_csr;
157: END IF;
158: -- SECHAWLA 23-OCT-03 : End new code

Line 177: p_init_msg_list => OKL_API.G_FALSE,

173: lp_canceled_qtev_rec.qst_code := 'CANCELLED';
174:
175: -- update the quote to canceled
176: OKL_TRX_QUOTES_PUB.update_trx_quotes( p_api_version => p_api_version,
177: p_init_msg_list => OKL_API.G_FALSE,
178: x_return_status => l_return_status,
179: x_msg_count => x_msg_count,
180: x_msg_data => x_msg_data,
181: p_qtev_rec => lp_canceled_qtev_rec,

Line 184: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

180: x_msg_data => x_msg_data,
181: p_qtev_rec => lp_canceled_qtev_rec,
182: x_qtev_rec => lx_canceled_qtev_rec);
183:
184: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
185: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
186: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
187: RAISE OKL_API.G_EXCEPTION_ERROR;
188: END IF;

Line 185: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

181: p_qtev_rec => lp_canceled_qtev_rec,
182: x_qtev_rec => lx_canceled_qtev_rec);
183:
184: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
185: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
186: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
187: RAISE OKL_API.G_EXCEPTION_ERROR;
188: END IF;
189: END IF;

Line 186: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN

182: x_qtev_rec => lx_canceled_qtev_rec);
183:
184: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
185: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
186: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
187: RAISE OKL_API.G_EXCEPTION_ERROR;
188: END IF;
189: END IF;
190: EXIT WHEN i = lx_quote_tbl.LAST; -- exit when the last record is processed

Line 187: RAISE OKL_API.G_EXCEPTION_ERROR;

183:
184: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
185: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
186: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
187: RAISE OKL_API.G_EXCEPTION_ERROR;
188: END IF;
189: END IF;
190: EXIT WHEN i = lx_quote_tbl.LAST; -- exit when the last record is processed
191: i := lx_quote_tbl.NEXT(i);

Line 197: OKL_API.SET_MESSAGE(p_app_name => 'OKL',

193: END IF;
194: ELSE
195: -- set the message if OKL_AM_UTIL_PVT.get_all_term_quotes_for_contract throws error
196: -- with contract number as token value
197: OKL_API.SET_MESSAGE(p_app_name => 'OKL',
198: p_msg_name => 'OKL_AM_ERR_RET_QTES',
199: p_token1 => 'CONTRACT_NUMBER',
200: p_token1_value => l_contract_number);
201: --message("Error retrieving existing quotes for this contract for cancellation");

Line 202: RAISE OKL_API.G_EXCEPTION_ERROR;

198: p_msg_name => 'OKL_AM_ERR_RET_QTES',
199: p_token1 => 'CONTRACT_NUMBER',
200: p_token1_value => l_contract_number);
201: --message("Error retrieving existing quotes for this contract for cancellation");
202: RAISE OKL_API.G_EXCEPTION_ERROR;
203: END IF;
204: END IF;
205: x_return_status := G_RET_STS_SUCCESS;
206:

Line 209: WHEN OKL_API.G_EXCEPTION_ERROR THEN

205: x_return_status := G_RET_STS_SUCCESS;
206:
207: EXCEPTION
208: -- roll back and return the status as error(E)
209: WHEN OKL_API.G_EXCEPTION_ERROR THEN
210: ROLLBACK TO l_program_name;
211: x_return_status := G_RET_STS_ERROR;
212: -- roll back and return the status as un expected error(U)
213: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

Line 213: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

209: WHEN OKL_API.G_EXCEPTION_ERROR THEN
210: ROLLBACK TO l_program_name;
211: x_return_status := G_RET_STS_ERROR;
212: -- roll back and return the status as un expected error(U)
213: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
214: ROLLBACK TO l_program_name;
215: x_return_status := G_RET_STS_UNEXP_ERROR;
216: -- set the message, roll back and return the status as un expected error(U)
217: WHEN OTHERS THEN

Line 218: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,

214: ROLLBACK TO l_program_name;
215: x_return_status := G_RET_STS_UNEXP_ERROR;
216: -- set the message, roll back and return the status as un expected error(U)
217: WHEN OTHERS THEN
218: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
219: p_msg_name => G_DB_ERROR,
220: p_token1 => G_PROG_NAME_TOKEN,
221: p_token1_value => l_api_name,
222: p_token2 => G_SQLCODE_TOKEN,