25: lx_achr_tbl achr_tbl_type;
26:
27: -- for debug logging
28: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'advance_contract_search';
29: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
30: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
31: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
32:
33: BEGIN
26:
27: -- for debug logging
28: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'advance_contract_search';
29: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
30: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
31: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
32:
33: BEGIN
34:
27: -- for debug logging
28: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'advance_contract_search';
29: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
30: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
31: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
32:
33: BEGIN
34:
35: SAVEPOINT trx_adv_contract_search;
34:
35: SAVEPOINT trx_adv_contract_search;
36:
37: IF (is_debug_procedure_on) THEN
38: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
39: END IF;
40:
41: l_api_version := p_api_version ;
42: l_init_msg_list := p_init_msg_list ;
57: x_achr_tbl => lx_achr_tbl);
58:
59:
60: IF (is_debug_statement_on) THEN
61: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
62: 'after call to OKL_AM_CREATE_QUOTE_PVT.advance_contract_search :'||l_return_status);
63: END IF;
64:
65: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
74: x_msg_data := l_msg_data ;
75: x_achr_tbl := lx_achr_tbl;
76:
77: IF (is_debug_procedure_on) THEN
78: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
79: END IF;
80:
81: EXCEPTION
82:
81: EXCEPTION
82:
83: WHEN FND_API.G_EXC_ERROR THEN
84: IF (is_debug_exception_on) THEN
85: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
86: END IF;
87:
88: ROLLBACK TO trx_adv_contract_search;
89: x_return_status := FND_API.G_RET_STS_ERROR;
94: ,p_data => x_msg_data);
95: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
96:
97: IF (is_debug_exception_on) THEN
98: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'UNEXPECTED');
99: END IF;
100:
101: ROLLBACK TO trx_adv_contract_search;
102: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
106: p_count => x_msg_count
107: ,p_data => x_msg_data);
108: WHEN OTHERS THEN
109: IF (is_debug_exception_on) THEN
110: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
111: || sqlcode || ' , SQLERRM : ' || sqlerrm);
112: END IF;
113: ROLLBACK TO trx_adv_contract_search;
114: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
148: lx_assn_tbl assn_tbl_type;
149: lx_tqlv_tbl tqlv_tbl_type;
150: -- for debug logging
151: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'create_terminate_quote';
152: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
153: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
154: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
155:
156: BEGIN
149: lx_tqlv_tbl tqlv_tbl_type;
150: -- for debug logging
151: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'create_terminate_quote';
152: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
153: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
154: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
155:
156: BEGIN
157: SAVEPOINT trx_create_terminate_quote;
150: -- for debug logging
151: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'create_terminate_quote';
152: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
153: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
154: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
155:
156: BEGIN
157: SAVEPOINT trx_create_terminate_quote;
158:
156: BEGIN
157: SAVEPOINT trx_create_terminate_quote;
158:
159: IF (is_debug_procedure_on) THEN
160: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
161: END IF;
162:
163: l_api_version := p_api_version ;
164: l_init_msg_list := p_init_msg_list ;
190: ,x_tqlv_tbl => lx_tqlv_tbl
191: ,p_term_from_intf => p_term_from_intf); --sechawla 15-jun-09 7383445 --added new parameter
192:
193: IF (is_debug_statement_on) THEN
194: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
195: 'after call to OKL_AM_CREATE_QUOTE_PVT.create_terminate_quote :'||l_return_status);
196: END IF;
197:
198: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
217: x_assn_tbl := lx_assn_tbl;
218: x_tqlv_tbl := lx_tqlv_tbl;
219:
220: IF (is_debug_procedure_on) THEN
221: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
222: END IF;
223:
224: EXCEPTION
225:
224: EXCEPTION
225:
226: WHEN FND_API.G_EXC_ERROR THEN
227: IF (is_debug_exception_on) THEN
228: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
229: END IF;
230: ROLLBACK TO trx_create_terminate_quote;
231: x_return_status := FND_API.G_RET_STS_ERROR;
232: x_msg_count := l_msg_count ;
235: p_count => x_msg_count
236: ,p_data => x_msg_data);
237: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
238: IF (is_debug_exception_on) THEN
239: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'UNEXPECTED');
240: END IF;
241: ROLLBACK TO trx_create_terminate_quote;
242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
243: x_msg_count := l_msg_count ;
246: p_count => x_msg_count
247: ,p_data => x_msg_data);
248: WHEN OTHERS THEN
249: IF (is_debug_exception_on) THEN
250: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
251: || sqlcode || ' , SQLERRM : ' || sqlerrm);
252: END IF;
253: ROLLBACK TO trx_create_terminate_quote;
254: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;