[Home] [Help]
201: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
202: l_dummy_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
203: -- asawanka added for debug feature start
204: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_auto_invoice_yn';
205: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
206: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
207: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
208: -- asawanka added for debug feature end
209:
202: l_dummy_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
203: -- asawanka added for debug feature start
204: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_auto_invoice_yn';
205: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
206: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
207: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
208: -- asawanka added for debug feature end
209:
210: BEGIN
203: -- asawanka added for debug feature start
204: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_auto_invoice_yn';
205: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
206: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
207: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
208: -- asawanka added for debug feature end
209:
210: BEGIN
211: IF (is_debug_procedure_on) THEN
208: -- asawanka added for debug feature end
209:
210: BEGIN
211: IF (is_debug_procedure_on) THEN
212: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
213: END IF;
214:
215: l_auto_invoce_yn := 'N';
216:
214:
215: l_auto_invoce_yn := 'N';
216:
217: IF (is_debug_statement_on) THEN
218: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_quote_id = '||p_term_rec.p_quote_id);
219: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
220: END IF;
221: -- Check if no quote and if new rule says Y
222: IF p_term_rec.p_quote_id IS NULL
215: l_auto_invoce_yn := 'N';
216:
217: IF (is_debug_statement_on) THEN
218: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_quote_id = '||p_term_rec.p_quote_id);
219: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
220: END IF;
221: -- Check if no quote and if new rule says Y
222: IF p_term_rec.p_quote_id IS NULL
223: OR p_term_rec.p_quote_id = OKL_API.G_MISS_NUM THEN -- means end of term processing
228: l_khr_id := p_term_rec.p_contract_id;
229:
230: -- Check if Automatically Invoice YN is Y
231: IF (is_debug_statement_on) THEN
232: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_quote_id = '||p_term_rec.p_quote_id);
233: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Calling OKL_AM_UTIL_PVT.get_rule_record');
234: END IF;
235: OKL_AM_UTIL_PVT.get_rule_record(
236: p_rgd_code => l_rgd_code,
229:
230: -- Check if Automatically Invoice YN is Y
231: IF (is_debug_statement_on) THEN
232: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_quote_id = '||p_term_rec.p_quote_id);
233: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Calling OKL_AM_UTIL_PVT.get_rule_record');
234: END IF;
235: OKL_AM_UTIL_PVT.get_rule_record(
236: p_rgd_code => l_rgd_code,
237: p_rdf_code => l_rule_code,
241: x_return_status => l_return_status,
242: p_message_yn => TRUE);
243:
244: IF (is_debug_statement_on) THEN
245: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Called OKL_AM_UTIL_PVT.get_rule_record l_return_status = '||l_return_status);
246: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information1 = '||l_rulv_rec.rule_information1);
247: END IF;
248: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
249: l_auto_invoce_yn := nvl(l_rulv_rec.rule_information1,'N'); -- Automatically Invoice YN, NULL is considered N
242: p_message_yn => TRUE);
243:
244: IF (is_debug_statement_on) THEN
245: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Called OKL_AM_UTIL_PVT.get_rule_record l_return_status = '||l_return_status);
246: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information1 = '||l_rulv_rec.rule_information1);
247: END IF;
248: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
249: l_auto_invoce_yn := nvl(l_rulv_rec.rule_information1,'N'); -- Automatically Invoice YN, NULL is considered N
250: END IF;
251: END IF;
252:
253: x_auto_invoce_yn := l_auto_invoce_yn;
254: IF (is_debug_statement_on) THEN
255: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'x_auto_invoce_yn = '||x_auto_invoce_yn);
256: END IF;
257: x_return_status := l_dummy_status; -- Don't use l_return_status, return success always
258:
259: IF (is_debug_procedure_on) THEN
256: END IF;
257: x_return_status := l_dummy_status; -- Don't use l_return_status, return success always
258:
259: IF (is_debug_procedure_on) THEN
260: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
261: END IF;
262: EXCEPTION
263: WHEN OTHERS THEN
264: IF (is_debug_exception_on) THEN
261: END IF;
262: EXCEPTION
263: WHEN OTHERS THEN
264: IF (is_debug_exception_on) THEN
265: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
266: END IF;
267: x_return_status := OKL_API.G_RET_STS_ERROR;
268: END check_auto_invoice_yn;
269:
313: l_curr_code VARCHAR2(10);
314:
315: -- asawanka added for debug feature start
316: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_purchase_amount';
317: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
318: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
319: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
320: -- asawanka added for debug feature end
321:
314:
315: -- asawanka added for debug feature start
316: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_purchase_amount';
317: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
318: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
319: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
320: -- asawanka added for debug feature end
321:
322: BEGIN
315: -- asawanka added for debug feature start
316: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_purchase_amount';
317: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
318: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
319: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
320: -- asawanka added for debug feature end
321:
322: BEGIN
323: IF (is_debug_procedure_on) THEN
320: -- asawanka added for debug feature end
321:
322: BEGIN
323: IF (is_debug_procedure_on) THEN
324: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
325: END IF;
326: l_purchase_amount := 0;
327:
328: l_rgd_code := 'AMTFOC'; -- End of Term Purchase Option
327:
328: l_rgd_code := 'AMTFOC'; -- End of Term Purchase Option
329: l_rule_code := 'AMBPOC'; -- Purchase Options
330: IF (is_debug_statement_on) THEN
331: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
332: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_kle_id = '||p_kle_id);
333: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Called OKL_AM_UTIL_PVT.get_rule_record l_return_status = '||l_return_status);
334: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information1 = '||l_rulv_rec.rule_information1);
335: END IF;
328: l_rgd_code := 'AMTFOC'; -- End of Term Purchase Option
329: l_rule_code := 'AMBPOC'; -- Purchase Options
330: IF (is_debug_statement_on) THEN
331: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
332: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_kle_id = '||p_kle_id);
333: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Called OKL_AM_UTIL_PVT.get_rule_record l_return_status = '||l_return_status);
334: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information1 = '||l_rulv_rec.rule_information1);
335: END IF;
336: l_khr_id := p_term_rec.p_contract_id;
329: l_rule_code := 'AMBPOC'; -- Purchase Options
330: IF (is_debug_statement_on) THEN
331: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
332: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_kle_id = '||p_kle_id);
333: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Called OKL_AM_UTIL_PVT.get_rule_record l_return_status = '||l_return_status);
334: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information1 = '||l_rulv_rec.rule_information1);
335: END IF;
336: l_khr_id := p_term_rec.p_contract_id;
337: IF (is_debug_statement_on) THEN
330: IF (is_debug_statement_on) THEN
331: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
332: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_kle_id = '||p_kle_id);
333: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Called OKL_AM_UTIL_PVT.get_rule_record l_return_status = '||l_return_status);
334: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information1 = '||l_rulv_rec.rule_information1);
335: END IF;
336: l_khr_id := p_term_rec.p_contract_id;
337: IF (is_debug_statement_on) THEN
338: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Calling OKL_AM_UTIL_PVT.get_rule_record');
334: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information1 = '||l_rulv_rec.rule_information1);
335: END IF;
336: l_khr_id := p_term_rec.p_contract_id;
337: IF (is_debug_statement_on) THEN
338: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Calling OKL_AM_UTIL_PVT.get_rule_record');
339: END IF;
340: -- Get End of Term Purchase Amount Details
341: OKL_AM_UTIL_PVT.get_rule_record(
342: p_rgd_code => l_rgd_code,
347: x_return_status => l_return_status,
348: p_message_yn => TRUE);
349:
350: IF (is_debug_statement_on) THEN
351: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Called OKL_AM_UTIL_PVT.get_rule_record l_return_status = '||l_return_status);
352: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information1 = '||l_rulv_rec.rule_information1);
353: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information2 = '||l_rulv_rec.rule_information2);
354: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information3 = '||l_rulv_rec.rule_information3);
355: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information4 = '||l_rulv_rec.rule_information4);
348: p_message_yn => TRUE);
349:
350: IF (is_debug_statement_on) THEN
351: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Called OKL_AM_UTIL_PVT.get_rule_record l_return_status = '||l_return_status);
352: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information1 = '||l_rulv_rec.rule_information1);
353: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information2 = '||l_rulv_rec.rule_information2);
354: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information3 = '||l_rulv_rec.rule_information3);
355: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information4 = '||l_rulv_rec.rule_information4);
356: END IF;
349:
350: IF (is_debug_statement_on) THEN
351: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Called OKL_AM_UTIL_PVT.get_rule_record l_return_status = '||l_return_status);
352: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information1 = '||l_rulv_rec.rule_information1);
353: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information2 = '||l_rulv_rec.rule_information2);
354: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information3 = '||l_rulv_rec.rule_information3);
355: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information4 = '||l_rulv_rec.rule_information4);
356: END IF;
357:
350: IF (is_debug_statement_on) THEN
351: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Called OKL_AM_UTIL_PVT.get_rule_record l_return_status = '||l_return_status);
352: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information1 = '||l_rulv_rec.rule_information1);
353: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information2 = '||l_rulv_rec.rule_information2);
354: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information3 = '||l_rulv_rec.rule_information3);
355: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information4 = '||l_rulv_rec.rule_information4);
356: END IF;
357:
358: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
351: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Called OKL_AM_UTIL_PVT.get_rule_record l_return_status = '||l_return_status);
352: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information1 = '||l_rulv_rec.rule_information1);
353: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information2 = '||l_rulv_rec.rule_information2);
354: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information3 = '||l_rulv_rec.rule_information3);
355: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information4 = '||l_rulv_rec.rule_information4);
356: END IF;
357:
358: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
359: l_calc_option := l_rulv_rec.rule_information1; -- Purchase Option
374:
375: ELSIF l_calc_option = 'USE_FORMULA' THEN -- Purchase Amount is FORMULA
376:
377: IF (is_debug_statement_on) THEN
378: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Calling OKL_AM_UTIL_PVT.get_formula_value');
379: END IF;
380: -- Get the formula value
381: OKL_AM_UTIL_PVT.get_formula_value (
382: p_formula_name => l_formula_name,
385: p_additional_parameters => l_params,
386: x_formula_value => l_formula_value,
387: x_return_status => l_return_status);
388: IF (is_debug_statement_on) THEN
389: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Called OKL_AM_UTIL_PVT.get_formula_value l_return_status = '||l_return_status);
390: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_formula_value = '||l_formula_value);
391: END IF;
392:
393: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
386: x_formula_value => l_formula_value,
387: x_return_status => l_return_status);
388: IF (is_debug_statement_on) THEN
389: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Called OKL_AM_UTIL_PVT.get_formula_value l_return_status = '||l_return_status);
390: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_formula_value = '||l_formula_value);
391: END IF;
392:
393: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
394: RAISE G_EXCEPTION_ERROR;
400: IF l_prorate = 'PRORATE' AND l_purchase_amount <> 0 THEN
401:
402: -- Get line oec (evaluate formula contract_oec and pass line id)
403: IF (is_debug_statement_on) THEN
404: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Calling OKL_AM_UTIL_PVT.get_formula_value');
405: END IF;
406: OKL_AM_UTIL_PVT.get_formula_value (
407: p_formula_name => 'CONTRACT_OEC',
408: p_chr_id => l_khr_id,
410: p_additional_parameters => l_params,
411: x_formula_value => l_line_oec,
412: x_return_status => l_return_status);
413: IF (is_debug_statement_on) THEN
414: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Called OKL_AM_UTIL_PVT.get_formula_value l_return_status = '||l_return_status);
415: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_formula_value = '||l_formula_value);
416: END IF;
417:
418: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
411: x_formula_value => l_line_oec,
412: x_return_status => l_return_status);
413: IF (is_debug_statement_on) THEN
414: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Called OKL_AM_UTIL_PVT.get_formula_value l_return_status = '||l_return_status);
415: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_formula_value = '||l_formula_value);
416: END IF;
417:
418: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
419: RAISE G_EXCEPTION_ERROR;
420: END IF;
421:
422: -- Get contract oec
423: IF (is_debug_statement_on) THEN
424: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Calling OKL_AM_UTIL_PVT.get_formula_value');
425: END IF;
426: OKL_AM_UTIL_PVT.get_formula_value (
427: p_formula_name => 'CONTRACT_OEC',
428: p_chr_id => l_khr_id,
430: p_additional_parameters => l_params,
431: x_formula_value => l_contract_oec,
432: x_return_status => l_return_status);
433: IF (is_debug_statement_on) THEN
434: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Called OKL_AM_UTIL_PVT.get_formula_value l_return_status = '||l_return_status);
435: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_formula_value = '||l_formula_value);
436: END IF;
437:
438:
431: x_formula_value => l_contract_oec,
432: x_return_status => l_return_status);
433: IF (is_debug_statement_on) THEN
434: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Called OKL_AM_UTIL_PVT.get_formula_value l_return_status = '||l_return_status);
435: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_formula_value = '||l_formula_value);
436: END IF;
437:
438:
439: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
463: x_purchase_amount := l_purchase_amount;
464: x_return_status := l_return_status;
465:
466: IF (is_debug_procedure_on) THEN
467: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
468: END IF;
469: EXCEPTION
470: WHEN G_EXCEPTION_ERROR THEN
471: IF (is_debug_exception_on) THEN
468: END IF;
469: EXCEPTION
470: WHEN G_EXCEPTION_ERROR THEN
471: IF (is_debug_exception_on) THEN
472: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
473: END IF;
474: x_return_status := OKL_API.G_RET_STS_ERROR;
475: WHEN OTHERS THEN
476: IF (is_debug_exception_on) THEN
473: END IF;
474: x_return_status := OKL_API.G_RET_STS_ERROR;
475: WHEN OTHERS THEN
476: IF (is_debug_exception_on) THEN
477: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
478: END IF;
479:
480: x_return_status := OKL_API.G_RET_STS_ERROR;
481: END get_purchase_amount;
607: l_evergreen_earlier VARCHAR2(3) := 'N';
608:
609: -- asawanka added for debug feature start
610: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_k_evergreen_ear';
611: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
612: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
613: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
614: -- asawanka added for debug feature end
615:
608:
609: -- asawanka added for debug feature start
610: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_k_evergreen_ear';
611: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
612: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
613: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
614: -- asawanka added for debug feature end
615:
616: BEGIN
609: -- asawanka added for debug feature start
610: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_k_evergreen_ear';
611: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
612: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
613: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
614: -- asawanka added for debug feature end
615:
616: BEGIN
617: IF (is_debug_procedure_on) THEN
614: -- asawanka added for debug feature end
615:
616: BEGIN
617: IF (is_debug_procedure_on) THEN
618: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
619: END IF;
620:
621: x_return_status := OKL_API.G_RET_STS_SUCCESS;
622:
620:
621: x_return_status := OKL_API.G_RET_STS_SUCCESS;
622:
623: IF (is_debug_statement_on) THEN
624: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_khr_id = '||p_khr_id);
625: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_tcn_id = '||p_tcn_id);
626: END IF;
627: FOR chk_evergreen_ear_rec IN chk_evergreen_ear_csr (p_khr_id, p_tcn_id) LOOP
628: l_evergreen_earlier := chk_evergreen_ear_rec.tmt_evergreen_yn;
621: x_return_status := OKL_API.G_RET_STS_SUCCESS;
622:
623: IF (is_debug_statement_on) THEN
624: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_khr_id = '||p_khr_id);
625: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_tcn_id = '||p_tcn_id);
626: END IF;
627: FOR chk_evergreen_ear_rec IN chk_evergreen_ear_csr (p_khr_id, p_tcn_id) LOOP
628: l_evergreen_earlier := chk_evergreen_ear_rec.tmt_evergreen_yn;
629: END LOOP;
628: l_evergreen_earlier := chk_evergreen_ear_rec.tmt_evergreen_yn;
629: END LOOP;
630:
631: IF (is_debug_statement_on) THEN
632: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_evergreen_earlier= '||l_evergreen_earlier);
633: END IF;
634:
635: IF (is_debug_procedure_on) THEN
636: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
632: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_evergreen_earlier= '||l_evergreen_earlier);
633: END IF;
634:
635: IF (is_debug_procedure_on) THEN
636: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
637: END IF;
638:
639: RETURN l_evergreen_earlier;
640:
642:
643: WHEN OTHERS THEN
644:
645: IF (is_debug_exception_on) THEN
646: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
647: END IF;
648:
649: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
650:
725: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
726: delink_exception EXCEPTION;
727:
728: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'delink_contract_from_asset';
729: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
730: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
731: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
732:
733: i NUMBER;
726: delink_exception EXCEPTION;
727:
728: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'delink_contract_from_asset';
729: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
730: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
731: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
732:
733: i NUMBER;
734:
727:
728: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'delink_contract_from_asset';
729: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
730: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
731: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
732:
733: i NUMBER;
734:
735: BEGIN
733: i NUMBER;
734:
735: BEGIN
736: IF (is_debug_procedure_on) THEN
737: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
738: END IF;
739:
740: x_return_status := OKL_API.G_RET_STS_SUCCESS;
741:
739:
740: x_return_status := OKL_API.G_RET_STS_SUCCESS;
741:
742: IF (is_debug_statement_on) THEN
743: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_khr_id = '||p_khr_id);
744: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_sts_code = '||p_sts_code);
745: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_quote_accpt_date = '||p_quote_accpt_date);
746: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_quote_eff_date = '||p_quote_eff_date);
747: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_full_term_yn = '||nvl(p_full_term_yn,'Y'));
740: x_return_status := OKL_API.G_RET_STS_SUCCESS;
741:
742: IF (is_debug_statement_on) THEN
743: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_khr_id = '||p_khr_id);
744: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_sts_code = '||p_sts_code);
745: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_quote_accpt_date = '||p_quote_accpt_date);
746: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_quote_eff_date = '||p_quote_eff_date);
747: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_full_term_yn = '||nvl(p_full_term_yn,'Y'));
748: END IF;
741:
742: IF (is_debug_statement_on) THEN
743: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_khr_id = '||p_khr_id);
744: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_sts_code = '||p_sts_code);
745: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_quote_accpt_date = '||p_quote_accpt_date);
746: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_quote_eff_date = '||p_quote_eff_date);
747: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_full_term_yn = '||nvl(p_full_term_yn,'Y'));
748: END IF;
749:
742: IF (is_debug_statement_on) THEN
743: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_khr_id = '||p_khr_id);
744: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_sts_code = '||p_sts_code);
745: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_quote_accpt_date = '||p_quote_accpt_date);
746: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_quote_eff_date = '||p_quote_eff_date);
747: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_full_term_yn = '||nvl(p_full_term_yn,'Y'));
748: END IF;
749:
750:
743: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_khr_id = '||p_khr_id);
744: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_sts_code = '||p_sts_code);
745: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_quote_accpt_date = '||p_quote_accpt_date);
746: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_quote_eff_date = '||p_quote_eff_date);
747: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_full_term_yn = '||nvl(p_full_term_yn,'Y'));
748: END IF;
749:
750:
751: IF p_khr_id IS NULL OR p_khr_id = OKL_API.G_MISS_NUM THEN
791:
792: IF nvl(p_full_term_yn ,'Y') = 'Y' THEN -- rmunjulu bug 6853566 full termination-- do earlier processing
793: IF (is_debug_statement_on) THEN
794:
795: okl_debug_pub.log_debug (g_level_statement, l_module_name, 'p_full_term_yn :'||nvl(p_full_term_yn ,'Y'));
796:
797: END IF;
798: FOR l_okcklines_rec IN l_okcklines_csr(p_khr_id, p_sts_code) LOOP
799:
813: l_adj_trans_rec.transaction_date_entered := p_quote_eff_date;
814:
815: IF (is_debug_statement_on) THEN
816:
817: okl_debug_pub.log_debug (g_level_statement, l_module_name,
818: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_okcklines_rec.name: '|| l_okcklines_rec.name);
819: okl_debug_pub.log_debug (g_level_statement, l_module_name,
820: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, p_quote_accpt_date: '|| p_quote_accpt_date);
821: okl_debug_pub.log_debug (g_level_statement, l_module_name,
815: IF (is_debug_statement_on) THEN
816:
817: okl_debug_pub.log_debug (g_level_statement, l_module_name,
818: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_okcklines_rec.name: '|| l_okcklines_rec.name);
819: okl_debug_pub.log_debug (g_level_statement, l_module_name,
820: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, p_quote_accpt_date: '|| p_quote_accpt_date);
821: okl_debug_pub.log_debug (g_level_statement, l_module_name,
822: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_trans_rec.transaction_subtype: '|| l_adj_trans_rec.transaction_subtype);
823: okl_debug_pub.log_debug (g_level_statement, l_module_name,
817: okl_debug_pub.log_debug (g_level_statement, l_module_name,
818: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_okcklines_rec.name: '|| l_okcklines_rec.name);
819: okl_debug_pub.log_debug (g_level_statement, l_module_name,
820: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, p_quote_accpt_date: '|| p_quote_accpt_date);
821: okl_debug_pub.log_debug (g_level_statement, l_module_name,
822: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_trans_rec.transaction_subtype: '|| l_adj_trans_rec.transaction_subtype);
823: okl_debug_pub.log_debug (g_level_statement, l_module_name,
824: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_asset_hdr_rec.asset_id: '|| l_adj_asset_hdr_rec.asset_id);
825: okl_debug_pub.log_debug (g_level_statement, l_module_name,
819: okl_debug_pub.log_debug (g_level_statement, l_module_name,
820: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, p_quote_accpt_date: '|| p_quote_accpt_date);
821: okl_debug_pub.log_debug (g_level_statement, l_module_name,
822: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_trans_rec.transaction_subtype: '|| l_adj_trans_rec.transaction_subtype);
823: okl_debug_pub.log_debug (g_level_statement, l_module_name,
824: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_asset_hdr_rec.asset_id: '|| l_adj_asset_hdr_rec.asset_id);
825: okl_debug_pub.log_debug (g_level_statement, l_module_name,
826: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_asset_hdr_rec.book_type_code: '|| l_adj_asset_hdr_rec.book_type_code);
827: okl_debug_pub.log_debug (g_level_statement, l_module_name,
821: okl_debug_pub.log_debug (g_level_statement, l_module_name,
822: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_trans_rec.transaction_subtype: '|| l_adj_trans_rec.transaction_subtype);
823: okl_debug_pub.log_debug (g_level_statement, l_module_name,
824: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_asset_hdr_rec.asset_id: '|| l_adj_asset_hdr_rec.asset_id);
825: okl_debug_pub.log_debug (g_level_statement, l_module_name,
826: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_asset_hdr_rec.book_type_code: '|| l_adj_asset_hdr_rec.book_type_code);
827: okl_debug_pub.log_debug (g_level_statement, l_module_name,
828: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_trans_rec.transaction_date_entered: '|| l_adj_trans_rec.transaction_date_entered);
829:
823: okl_debug_pub.log_debug (g_level_statement, l_module_name,
824: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_asset_hdr_rec.asset_id: '|| l_adj_asset_hdr_rec.asset_id);
825: okl_debug_pub.log_debug (g_level_statement, l_module_name,
826: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_asset_hdr_rec.book_type_code: '|| l_adj_asset_hdr_rec.book_type_code);
827: okl_debug_pub.log_debug (g_level_statement, l_module_name,
828: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_trans_rec.transaction_date_entered: '|| l_adj_trans_rec.transaction_date_entered);
829:
830: END IF;
831:
851: p_group_reclass_options_rec => l_group_reclass_options_rec);
852:
853: IF (is_debug_statement_on) THEN
854:
855: okl_debug_pub.log_debug (g_level_statement, l_module_name,
856: 'AFTER CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, x_return_status: '|| x_return_status);
857:
858: END IF;
859:
880: ELSE -- partial termination
881:
882: IF (is_debug_statement_on) THEN
883:
884: okl_debug_pub.log_debug (g_level_statement, l_module_name, 'p_full_term_yn :'||nvl(p_full_term_yn ,'Y'));
885:
886: END IF;
887: -- if assets present for contract
888: IF (p_klev_tbl.COUNT > 0) THEN
906: l_adj_trans_rec.transaction_date_entered := p_quote_eff_date;
907:
908: IF (is_debug_statement_on) THEN
909:
910: okl_debug_pub.log_debug (g_level_statement, l_module_name,
911: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, p_klev_tbl('|| i || ').p_kle_id: '|| p_klev_tbl (i).p_kle_id);
912: okl_debug_pub.log_debug (g_level_statement, l_module_name,
913: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, p_klev_tbl('|| i || ').p_asset_name: '|| p_klev_tbl (i).p_asset_name);
914: okl_debug_pub.log_debug (g_level_statement, l_module_name,
908: IF (is_debug_statement_on) THEN
909:
910: okl_debug_pub.log_debug (g_level_statement, l_module_name,
911: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, p_klev_tbl('|| i || ').p_kle_id: '|| p_klev_tbl (i).p_kle_id);
912: okl_debug_pub.log_debug (g_level_statement, l_module_name,
913: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, p_klev_tbl('|| i || ').p_asset_name: '|| p_klev_tbl (i).p_asset_name);
914: okl_debug_pub.log_debug (g_level_statement, l_module_name,
915: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, p_quote_accpt_date: '|| p_quote_accpt_date);
916: okl_debug_pub.log_debug (g_level_statement, l_module_name,
910: okl_debug_pub.log_debug (g_level_statement, l_module_name,
911: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, p_klev_tbl('|| i || ').p_kle_id: '|| p_klev_tbl (i).p_kle_id);
912: okl_debug_pub.log_debug (g_level_statement, l_module_name,
913: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, p_klev_tbl('|| i || ').p_asset_name: '|| p_klev_tbl (i).p_asset_name);
914: okl_debug_pub.log_debug (g_level_statement, l_module_name,
915: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, p_quote_accpt_date: '|| p_quote_accpt_date);
916: okl_debug_pub.log_debug (g_level_statement, l_module_name,
917: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_trans_rec.transaction_subtype: '|| l_adj_trans_rec.transaction_subtype);
918: okl_debug_pub.log_debug (g_level_statement, l_module_name,
912: okl_debug_pub.log_debug (g_level_statement, l_module_name,
913: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, p_klev_tbl('|| i || ').p_asset_name: '|| p_klev_tbl (i).p_asset_name);
914: okl_debug_pub.log_debug (g_level_statement, l_module_name,
915: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, p_quote_accpt_date: '|| p_quote_accpt_date);
916: okl_debug_pub.log_debug (g_level_statement, l_module_name,
917: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_trans_rec.transaction_subtype: '|| l_adj_trans_rec.transaction_subtype);
918: okl_debug_pub.log_debug (g_level_statement, l_module_name,
919: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_asset_hdr_rec.asset_id: '|| l_adj_asset_hdr_rec.asset_id);
920: okl_debug_pub.log_debug (g_level_statement, l_module_name,
914: okl_debug_pub.log_debug (g_level_statement, l_module_name,
915: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, p_quote_accpt_date: '|| p_quote_accpt_date);
916: okl_debug_pub.log_debug (g_level_statement, l_module_name,
917: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_trans_rec.transaction_subtype: '|| l_adj_trans_rec.transaction_subtype);
918: okl_debug_pub.log_debug (g_level_statement, l_module_name,
919: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_asset_hdr_rec.asset_id: '|| l_adj_asset_hdr_rec.asset_id);
920: okl_debug_pub.log_debug (g_level_statement, l_module_name,
921: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_asset_hdr_rec.book_type_code: '|| l_adj_asset_hdr_rec.book_type_code);
922: okl_debug_pub.log_debug (g_level_statement, l_module_name,
916: okl_debug_pub.log_debug (g_level_statement, l_module_name,
917: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_trans_rec.transaction_subtype: '|| l_adj_trans_rec.transaction_subtype);
918: okl_debug_pub.log_debug (g_level_statement, l_module_name,
919: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_asset_hdr_rec.asset_id: '|| l_adj_asset_hdr_rec.asset_id);
920: okl_debug_pub.log_debug (g_level_statement, l_module_name,
921: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_asset_hdr_rec.book_type_code: '|| l_adj_asset_hdr_rec.book_type_code);
922: okl_debug_pub.log_debug (g_level_statement, l_module_name,
923: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_trans_rec.transaction_date_entered: '|| l_adj_trans_rec.transaction_date_entered);
924:
918: okl_debug_pub.log_debug (g_level_statement, l_module_name,
919: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_asset_hdr_rec.asset_id: '|| l_adj_asset_hdr_rec.asset_id);
920: okl_debug_pub.log_debug (g_level_statement, l_module_name,
921: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_asset_hdr_rec.book_type_code: '|| l_adj_asset_hdr_rec.book_type_code);
922: okl_debug_pub.log_debug (g_level_statement, l_module_name,
923: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_trans_rec.transaction_date_entered: '|| l_adj_trans_rec.transaction_date_entered);
924:
925: END IF;
926:
946: p_group_reclass_options_rec => l_group_reclass_options_rec);
947:
948: IF (is_debug_statement_on) THEN
949:
950: okl_debug_pub.log_debug (g_level_statement, l_module_name,
951: 'AFTER CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, x_return_status: '|| x_return_status);
952:
953: END IF;
954:
976: END IF;
977: END IF;
978:
979: IF (is_debug_procedure_on) THEN
980: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
981: END IF;
982:
983:
984: EXCEPTION
983:
984: EXCEPTION
985: WHEN delink_exception THEN
986: IF (is_debug_exception_on) THEN
987: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'delink_exception');
988: END IF;
989:
990: IF l_okcklines_csr%ISOPEN THEN
991: CLOSE l_okcklines_csr;
998: x_return_status := OKL_API.G_RET_STS_ERROR;
999: WHEN OTHERS THEN
1000:
1001: IF (is_debug_exception_on) THEN
1002: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
1003: END IF;
1004:
1005: IF l_okcklines_csr%ISOPEN THEN
1006: CLOSE l_okcklines_csr;
1082: l_quote_eff_date DATE;
1083:
1084: -- asawanka added for debug feature start
1085: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_amortize';
1086: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1087: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1088: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1089: -- asawanka added for debug feature end
1090:
1083:
1084: -- asawanka added for debug feature start
1085: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_amortize';
1086: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1087: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1088: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1089: -- asawanka added for debug feature end
1090:
1091: BEGIN -- begin for amortize
1084: -- asawanka added for debug feature start
1085: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_amortize';
1086: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1087: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1088: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1089: -- asawanka added for debug feature end
1090:
1091: BEGIN -- begin for amortize
1092: IF (is_debug_procedure_on) THEN
1089: -- asawanka added for debug feature end
1090:
1091: BEGIN -- begin for amortize
1092: IF (is_debug_procedure_on) THEN
1093: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1094: END IF;
1095:
1096: -- sechawla -
1097: -- p_call_origin = EVERGREEN, when contract is getting converted to Evergreen
1101: -- Start a savepoint
1102: SAVEPOINT asset_amortize;
1103:
1104: IF (is_debug_statement_on) THEN
1105: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_trn_already_set = '||p_trn_already_set);
1106: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'px_tcnv_rec.tmt_amortization_yn = '||px_tcnv_rec.tmt_amortization_yn);
1107: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
1108: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'px_tcnv_rec.id = '||px_tcnv_rec.id);
1109: END IF;
1102: SAVEPOINT asset_amortize;
1103:
1104: IF (is_debug_statement_on) THEN
1105: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_trn_already_set = '||p_trn_already_set);
1106: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'px_tcnv_rec.tmt_amortization_yn = '||px_tcnv_rec.tmt_amortization_yn);
1107: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
1108: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'px_tcnv_rec.id = '||px_tcnv_rec.id);
1109: END IF;
1110: IF p_trn_already_set IS NULL THEN
1103:
1104: IF (is_debug_statement_on) THEN
1105: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_trn_already_set = '||p_trn_already_set);
1106: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'px_tcnv_rec.tmt_amortization_yn = '||px_tcnv_rec.tmt_amortization_yn);
1107: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
1108: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'px_tcnv_rec.id = '||px_tcnv_rec.id);
1109: END IF;
1110: IF p_trn_already_set IS NULL THEN
1111: l_trn_already_set := G_NO;
1104: IF (is_debug_statement_on) THEN
1105: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_trn_already_set = '||p_trn_already_set);
1106: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'px_tcnv_rec.tmt_amortization_yn = '||px_tcnv_rec.tmt_amortization_yn);
1107: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
1108: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'px_tcnv_rec.id = '||px_tcnv_rec.id);
1109: END IF;
1110: IF p_trn_already_set IS NULL THEN
1111: l_trn_already_set := G_NO;
1112: ELSE
1122: -- Check if another transaction exists which is processed and for which tmt_evergreen_yn was Y
1123: -- which means this contract was evergreen earlier
1124: -- so no need to run amortization again
1125: IF (is_debug_statement_on) THEN
1126: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling check_k_evergreen_ear ');
1127: END IF;
1128: l_evergreen_earlier := check_k_evergreen_ear(
1129: p_khr_id => p_term_rec.p_contract_id,
1130: p_tcn_id => px_tcnv_rec.id,
1130: p_tcn_id => px_tcnv_rec.id,
1131: x_return_status => l_return_status);
1132:
1133: IF (is_debug_statement_on) THEN
1134: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called check_k_evergreen_ear l_return_status = '||l_return_status);
1135: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_evergreen_earlier = '||l_evergreen_earlier);
1136: END IF;
1137:
1138: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1131: x_return_status => l_return_status);
1132:
1133: IF (is_debug_statement_on) THEN
1134: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called check_k_evergreen_ear l_return_status = '||l_return_status);
1135: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_evergreen_earlier = '||l_evergreen_earlier);
1136: END IF;
1137:
1138: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1139:
1214: END IF;
1215: */
1216:
1217: IF (is_debug_statement_on) THEN
1218: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_AMORTIZE_PUB.create_offlease_asset_trx ');
1219: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_early_term_yn = '||l_early_term_yn);
1220: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_quote_eff_date = '||l_quote_eff_date);
1221: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_quote_accpt_date = '||l_quote_accpt_date);
1222: END IF;
1215: */
1216:
1217: IF (is_debug_statement_on) THEN
1218: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_AMORTIZE_PUB.create_offlease_asset_trx ');
1219: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_early_term_yn = '||l_early_term_yn);
1220: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_quote_eff_date = '||l_quote_eff_date);
1221: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_quote_accpt_date = '||l_quote_accpt_date);
1222: END IF;
1223: OKL_AM_AMORTIZE_PUB.create_offlease_asset_trx(
1216:
1217: IF (is_debug_statement_on) THEN
1218: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_AMORTIZE_PUB.create_offlease_asset_trx ');
1219: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_early_term_yn = '||l_early_term_yn);
1220: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_quote_eff_date = '||l_quote_eff_date);
1221: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_quote_accpt_date = '||l_quote_accpt_date);
1222: END IF;
1223: OKL_AM_AMORTIZE_PUB.create_offlease_asset_trx(
1224: p_api_version => p_api_version,
1217: IF (is_debug_statement_on) THEN
1218: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_AMORTIZE_PUB.create_offlease_asset_trx ');
1219: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_early_term_yn = '||l_early_term_yn);
1220: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_quote_eff_date = '||l_quote_eff_date);
1221: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_quote_accpt_date = '||l_quote_accpt_date);
1222: END IF;
1223: OKL_AM_AMORTIZE_PUB.create_offlease_asset_trx(
1224: p_api_version => p_api_version,
1225: p_init_msg_list => OKL_API.G_FALSE,
1231: p_quote_eff_date => l_quote_eff_date, -- rmunjulu EDAT
1232: p_quote_accpt_date => l_quote_accpt_date); -- rmunjulu EDAT
1233:
1234: IF (is_debug_statement_on) THEN
1235: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_AMORTIZE_PUB.create_offlease_asset_trx l_return_status = '||l_return_status);
1236: END IF;
1237: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1238:
1239: -- Error occurred during the creation of an amortization transaction
1254:
1255:
1256: -- store the highest degree of error
1257: IF (is_debug_statement_on) THEN
1258: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling set_overall_status');
1259: END IF;
1260: set_overall_status(
1261: p_return_status => l_return_status,
1262: px_overall_status => px_overall_status);
1260: set_overall_status(
1261: p_return_status => l_return_status,
1262: px_overall_status => px_overall_status);
1263: IF (is_debug_statement_on) THEN
1264: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called set_overall_status');
1265: END IF;
1266:
1267: -- set the transaction record for amortization
1268: IF (is_debug_statement_on) THEN
1265: END IF;
1266:
1267: -- set the transaction record for amortization
1268: IF (is_debug_statement_on) THEN
1269: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling set_transaction_rec');
1270: END IF;
1271: set_transaction_rec(
1272: p_return_status => l_return_status,
1273: p_overall_status => px_overall_status,
1275: p_tsu_code => 'WORKING',
1276: px_tcnv_rec => px_tcnv_rec);
1277:
1278: IF (is_debug_statement_on) THEN
1279: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called set_transaction_rec');
1280: END IF;
1281:
1282: ELSE
1283: -- Message : Amortization done earlier
1336: -- RMUNJULU 3485854 11-MAR-04 Set the return_status
1337: x_return_status := l_return_status;
1338:
1339: IF (is_debug_procedure_on) THEN
1340: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
1341: END IF;
1342:
1343: EXCEPTION
1344: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1342:
1343: EXCEPTION
1344: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1345: IF (is_debug_exception_on) THEN
1346: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
1347: END IF;
1348:
1349: IF get_k_end_date_csr%ISOPEN THEN
1350: CLOSE get_k_end_date_csr;
1377: px_tcnv_rec => px_tcnv_rec);
1378:
1379: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1380: IF (is_debug_exception_on) THEN
1381: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
1382: END IF;
1383:
1384: IF get_k_end_date_csr%ISOPEN THEN
1385: CLOSE get_k_end_date_csr;
1412: px_tcnv_rec => px_tcnv_rec);
1413:
1414: WHEN OTHERS THEN
1415: IF (is_debug_exception_on) THEN
1416: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
1417: END IF;
1418:
1419: IF get_k_end_date_csr%ISOPEN THEN
1420: CLOSE get_k_end_date_csr;
1480: l_rule_code CONSTANT VARCHAR2(30) := 'LAEVEL';
1481:
1482: -- asawanka added for debug feature start
1483: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'evergreen_eligibility';
1484: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1485: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1486: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1487: -- asawanka added for debug feature end
1488: BEGIN
1481:
1482: -- asawanka added for debug feature start
1483: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'evergreen_eligibility';
1484: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1485: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1486: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1487: -- asawanka added for debug feature end
1488: BEGIN
1489: IF (is_debug_procedure_on) THEN
1482: -- asawanka added for debug feature start
1483: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'evergreen_eligibility';
1484: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1485: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1486: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1487: -- asawanka added for debug feature end
1488: BEGIN
1489: IF (is_debug_procedure_on) THEN
1490: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1486: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1487: -- asawanka added for debug feature end
1488: BEGIN
1489: IF (is_debug_procedure_on) THEN
1490: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1491: END IF;
1492: IF (is_debug_statement_on) THEN
1493: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling okl_am_util_pvt.get_rule_record p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
1494: END IF;
1489: IF (is_debug_procedure_on) THEN
1490: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1491: END IF;
1492: IF (is_debug_statement_on) THEN
1493: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling okl_am_util_pvt.get_rule_record p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
1494: END IF;
1495: OKL_AM_UTIL_PVT.get_rule_record(
1496: p_rgd_code => 'LAEVEL',
1497: p_rdf_code => l_rule_code,
1500: x_rulv_rec => l_rulv_rec,
1501: x_return_status => l_return_status,
1502: p_message_yn => FALSE);
1503: IF (is_debug_statement_on) THEN
1504: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.get_rule_record l_return_status = '||l_return_status);
1505: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information1 = '||l_rulv_rec.rule_information1);
1506: END IF;
1507: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
1508: IF (NVL (l_rulv_rec.rule_information1, '*') = G_YES) THEN
1501: x_return_status => l_return_status,
1502: p_message_yn => FALSE);
1503: IF (is_debug_statement_on) THEN
1504: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.get_rule_record l_return_status = '||l_return_status);
1505: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information1 = '||l_rulv_rec.rule_information1);
1506: END IF;
1507: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
1508: IF (NVL (l_rulv_rec.rule_information1, '*') = G_YES) THEN
1509: l_rule_found := G_YES;
1516: x_return_status := l_return_status;
1517: x_rule_found := l_rule_found;
1518:
1519: IF (is_debug_procedure_on) THEN
1520: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
1521: END IF;
1522: EXCEPTION
1523:
1524: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1522: EXCEPTION
1523:
1524: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1525: IF (is_debug_exception_on) THEN
1526: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
1527: END IF;
1528:
1529: x_return_status := OKL_API.G_RET_STS_ERROR;
1530:
1529: x_return_status := OKL_API.G_RET_STS_ERROR;
1530:
1531: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1532: IF (is_debug_exception_on) THEN
1533: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
1534: END IF;
1535:
1536: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1537:
1536: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1537:
1538: WHEN OTHERS THEN
1539: IF (is_debug_exception_on) THEN
1540: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
1541: END IF;
1542:
1543: -- Set the oracle error message
1544: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
1571: l_name OKC_K_LINES_V.name%TYPE;
1572:
1573: -- asawanka added for debug feature start
1574: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_asset_name';
1575: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1576: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1577: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1578: -- asawanka added for debug feature end
1579: BEGIN
1572:
1573: -- asawanka added for debug feature start
1574: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_asset_name';
1575: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1576: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1577: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1578: -- asawanka added for debug feature end
1579: BEGIN
1580: IF (is_debug_procedure_on) THEN
1573: -- asawanka added for debug feature start
1574: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_asset_name';
1575: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1576: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1577: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1578: -- asawanka added for debug feature end
1579: BEGIN
1580: IF (is_debug_procedure_on) THEN
1581: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1577: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1578: -- asawanka added for debug feature end
1579: BEGIN
1580: IF (is_debug_procedure_on) THEN
1581: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1582: END IF;
1583:
1584: IF (is_debug_statement_on) THEN
1585: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_kle_id = '||p_kle_id);
1581: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1582: END IF;
1583:
1584: IF (is_debug_statement_on) THEN
1585: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_kle_id = '||p_kle_id);
1586: END IF;
1587:
1588: OPEN k_lines_csr (p_kle_id);
1589: FETCH k_lines_csr INTO l_name;
1587:
1588: OPEN k_lines_csr (p_kle_id);
1589: FETCH k_lines_csr INTO l_name;
1590: IF (is_debug_statement_on) THEN
1591: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_name = '||l_name);
1592: END IF;
1593: IF k_lines_csr%FOUND THEN
1594: IF (is_debug_procedure_on) THEN
1595: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
1591: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_name = '||l_name);
1592: END IF;
1593: IF k_lines_csr%FOUND THEN
1594: IF (is_debug_procedure_on) THEN
1595: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
1596: END IF;
1597: RETURN l_name;
1598: ELSE
1599: IF (is_debug_procedure_on) THEN
1596: END IF;
1597: RETURN l_name;
1598: ELSE
1599: IF (is_debug_procedure_on) THEN
1600: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
1601: END IF;
1602: RETURN NULL;
1603: END IF;
1604: CLOSE k_lines_csr;
1606:
1607: EXCEPTION
1608: WHEN OTHERS THEN
1609: IF (is_debug_exception_on) THEN
1610: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
1611: END IF;
1612:
1613: IF k_lines_csr%ISOPEN THEN
1614: CLOSE k_lines_csr;
1670: --akrangan bug 5354501 fix end
1671:
1672: -- asawanka added for debug feature start
1673: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'initialize_transaction';
1674: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1675: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1676: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1677: -- asawanka added for debug feature end
1678: BEGIN
1671:
1672: -- asawanka added for debug feature start
1673: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'initialize_transaction';
1674: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1675: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1676: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1677: -- asawanka added for debug feature end
1678: BEGIN
1679: IF (is_debug_procedure_on) THEN
1672: -- asawanka added for debug feature start
1673: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'initialize_transaction';
1674: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1675: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1676: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1677: -- asawanka added for debug feature end
1678: BEGIN
1679: IF (is_debug_procedure_on) THEN
1680: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1676: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1677: -- asawanka added for debug feature end
1678: BEGIN
1679: IF (is_debug_procedure_on) THEN
1680: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1681: END IF;
1682:
1683: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1684: --20-NOV-2006 ANSETHUR R12B - LEGAL ENTITY UPTAKE PROJECT
1683: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1684: --20-NOV-2006 ANSETHUR R12B - LEGAL ENTITY UPTAKE PROJECT
1685: l_legal_entity_id := OKL_LEGAL_ENTITY_UTIL.get_khr_le_id (p_term_rec.p_contract_id);
1686: IF (is_debug_statement_on) THEN
1687: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_legal_entity_id = '||l_legal_entity_id);
1688: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_control_flag = '||p_control_flag);
1689: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
1690: END IF;
1691: IF p_control_flag = 'CREATE' THEN
1684: --20-NOV-2006 ANSETHUR R12B - LEGAL ENTITY UPTAKE PROJECT
1685: l_legal_entity_id := OKL_LEGAL_ENTITY_UTIL.get_khr_le_id (p_term_rec.p_contract_id);
1686: IF (is_debug_statement_on) THEN
1687: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_legal_entity_id = '||l_legal_entity_id);
1688: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_control_flag = '||p_control_flag);
1689: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
1690: END IF;
1691: IF p_control_flag = 'CREATE' THEN
1692: --akrangan bug 5354501 fix start
1685: l_legal_entity_id := OKL_LEGAL_ENTITY_UTIL.get_khr_le_id (p_term_rec.p_contract_id);
1686: IF (is_debug_statement_on) THEN
1687: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_legal_entity_id = '||l_legal_entity_id);
1688: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_control_flag = '||p_control_flag);
1689: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
1690: END IF;
1691: IF p_control_flag = 'CREATE' THEN
1692: --akrangan bug 5354501 fix start
1693: -- check if contract is eligible for Evergreen
1697:
1698: FETCH l_k_end_csr INTO l_k_end_date, l_k_sts_code;
1699: CLOSE l_k_end_csr;
1700: IF (is_debug_statement_on) THEN
1701: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_k_end_date = '||l_k_end_date);
1702: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_k_sts_code = '||l_k_sts_code);
1703: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'px_tcnv_rec.id = '||px_tcnv_rec.id);
1704: END IF;
1705: -- Check if this contract was evergreen earlier, so no need to set to evergreen again
1698: FETCH l_k_end_csr INTO l_k_end_date, l_k_sts_code;
1699: CLOSE l_k_end_csr;
1700: IF (is_debug_statement_on) THEN
1701: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_k_end_date = '||l_k_end_date);
1702: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_k_sts_code = '||l_k_sts_code);
1703: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'px_tcnv_rec.id = '||px_tcnv_rec.id);
1704: END IF;
1705: -- Check if this contract was evergreen earlier, so no need to set to evergreen again
1706: l_evergreen_earlier := check_k_evergreen_ear(
1699: CLOSE l_k_end_csr;
1700: IF (is_debug_statement_on) THEN
1701: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_k_end_date = '||l_k_end_date);
1702: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_k_sts_code = '||l_k_sts_code);
1703: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'px_tcnv_rec.id = '||px_tcnv_rec.id);
1704: END IF;
1705: -- Check if this contract was evergreen earlier, so no need to set to evergreen again
1706: l_evergreen_earlier := check_k_evergreen_ear(
1707: p_khr_id => p_term_rec.p_contract_id,
1707: p_khr_id => p_term_rec.p_contract_id,
1708: p_tcn_id => px_tcnv_rec.id,
1709: x_return_status => l_return_status);
1710: IF (is_debug_statement_on) THEN
1711: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_evergreen_earlier = '||l_evergreen_earlier);
1712: END IF;
1713: IF (l_evergreen_earlier <> 'Y'
1714: -- AND p_term_rec.p_control_flag LIKE 'BATCH_PROCESS%'
1715: AND TRUNC(l_k_end_date) <= TRUNC(p_sys_date)
1727: x_rule_found => l_rule_found,
1728: x_msg_count => x_msg_count,
1729: x_msg_data => x_msg_data);
1730: IF (is_debug_statement_on) THEN
1731: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_return_status of evergreen_eligibility = '||l_return_status);
1732: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_rule_found = '||l_rule_found);
1733: END IF;
1734: -- Raise exception to rollback to the savepoint
1735: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1728: x_msg_count => x_msg_count,
1729: x_msg_data => x_msg_data);
1730: IF (is_debug_statement_on) THEN
1731: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_return_status of evergreen_eligibility = '||l_return_status);
1732: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_rule_found = '||l_rule_found);
1733: END IF;
1734: -- Raise exception to rollback to the savepoint
1735: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1736:
1757: END IF;
1758: --akrangan bug 5354501 fix end
1759: -- Get the Transaction Id
1760: IF (is_debug_statement_on) THEN
1761: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_AM_UTIL_PVT.get_transaction_id ');
1762: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_try_name = '||l_try_name);
1763: END IF;
1764: OKL_AM_UTIL_PVT.get_transaction_id (
1765: p_try_name => l_try_name , --akrangan bug 5354501 fix added l_try_name
1758: --akrangan bug 5354501 fix end
1759: -- Get the Transaction Id
1760: IF (is_debug_statement_on) THEN
1761: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_AM_UTIL_PVT.get_transaction_id ');
1762: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_try_name = '||l_try_name);
1763: END IF;
1764: OKL_AM_UTIL_PVT.get_transaction_id (
1765: p_try_name => l_try_name , --akrangan bug 5354501 fix added l_try_name
1766: x_return_status => l_return_status,
1765: p_try_name => l_try_name , --akrangan bug 5354501 fix added l_try_name
1766: x_return_status => l_return_status,
1767: x_try_id => l_try_id);
1768: IF (is_debug_statement_on) THEN
1769: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called OKL_AM_UTIL_PVT.get_transaction_id l_return_status = '||l_return_status);
1770: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_trans_code = '||l_trans_code);
1771: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_try_id = '||l_try_id);
1772: END IF;
1773: -- Get the meaning of lookup
1766: x_return_status => l_return_status,
1767: x_try_id => l_try_id);
1768: IF (is_debug_statement_on) THEN
1769: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called OKL_AM_UTIL_PVT.get_transaction_id l_return_status = '||l_return_status);
1770: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_trans_code = '||l_trans_code);
1771: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_try_id = '||l_try_id);
1772: END IF;
1773: -- Get the meaning of lookup
1774: l_trans_meaning := OKL_AM_UTIL_PVT.get_lookup_meaning(
1767: x_try_id => l_try_id);
1768: IF (is_debug_statement_on) THEN
1769: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called OKL_AM_UTIL_PVT.get_transaction_id l_return_status = '||l_return_status);
1770: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_trans_code = '||l_trans_code);
1771: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_try_id = '||l_try_id);
1772: END IF;
1773: -- Get the meaning of lookup
1774: l_trans_meaning := OKL_AM_UTIL_PVT.get_lookup_meaning(
1775: p_lookup_type => 'OKL_ACCOUNTING_EVENT_TYPE',
1775: p_lookup_type => 'OKL_ACCOUNTING_EVENT_TYPE',
1776: p_lookup_code => l_trans_code, --akrangan bug 5354501 fix added l_trans_code
1777: p_validate_yn => 'Y');
1778: IF (is_debug_statement_on) THEN
1779: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_trans_meaning = '||l_trans_meaning);
1780: END IF;
1781: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1782:
1783: -- Message: Unable to find a transaction type for the transaction TRY_NAME
1791:
1792: -- Get the contract currency code
1793: l_currency_code := OKL_AM_UTIL_PVT.get_chr_currency(p_term_rec.p_contract_id);
1794: IF (is_debug_statement_on) THEN
1795: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_currency_code = '||l_currency_code);
1796: END IF;
1797: -- initialize the transaction rec
1798: px_tcnv_rec.khr_id := p_term_rec.p_contract_id;
1799: px_tcnv_rec.tcn_type := l_tcn_type; --akrangan bug 5354501 fix added l_tcn_type
1811: ELSE
1812: G_TMT_RECYCLE_YN := px_tcnv_rec.tmt_recycle_yn;
1813: END IF;
1814: IF (is_debug_statement_on) THEN
1815: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_quote_id = '||p_term_rec.p_quote_id);
1816: END IF;
1817: -- Set the rest of the transaction rec
1818: px_tcnv_rec.qte_id := p_term_rec.p_quote_id;
1819: px_tcnv_rec.tsu_code := 'ENTERED';
1830: px_tcnv_rec.trn_code := 'EXP';
1831: END IF;
1832:
1833: IF (is_debug_procedure_on) THEN
1834: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
1835: END IF;
1836: EXCEPTION
1837: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1838: IF (is_debug_exception_on) THEN
1835: END IF;
1836: EXCEPTION
1837: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1838: IF (is_debug_exception_on) THEN
1839: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
1840: END IF;
1841:
1842: x_return_status := OKL_API.G_RET_STS_ERROR;
1843: WHEN OTHERS THEN
1841:
1842: x_return_status := OKL_API.G_RET_STS_ERROR;
1843: WHEN OTHERS THEN
1844: IF (is_debug_exception_on) THEN
1845: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
1846: END IF;
1847:
1848: OKL_API.set_message(
1849: p_app_name => OKC_API.G_APP_NAME,
1898: l_api_name VARCHAR2(30) := 'get_contract_lines';
1899:
1900: -- asawanka added for debug feature start
1901: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_contract_lines';
1902: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1903: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1904: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1905: -- asawanka added for debug feature end
1906: BEGIN
1899:
1900: -- asawanka added for debug feature start
1901: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_contract_lines';
1902: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1903: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1904: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1905: -- asawanka added for debug feature end
1906: BEGIN
1907: IF (is_debug_procedure_on) THEN
1900: -- asawanka added for debug feature start
1901: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_contract_lines';
1902: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1903: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1904: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1905: -- asawanka added for debug feature end
1906: BEGIN
1907: IF (is_debug_procedure_on) THEN
1908: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1904: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1905: -- asawanka added for debug feature end
1906: BEGIN
1907: IF (is_debug_procedure_on) THEN
1908: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1909: END IF;
1910:
1911: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1912: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1919: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1920: RAISE OKL_API.G_EXCEPTION_ERROR;
1921: END IF;
1922: IF (is_debug_statement_on) THEN
1923: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
1924: END IF;
1925: i := 1;
1926: -- get the contract lines
1927: FOR k_lines_rec IN k_lines_csr ( p_term_rec.p_contract_id) LOOP
1933: x_return_status := l_return_status;
1934: x_klev_tbl := lx_klev_tbl;
1935: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1936: IF (is_debug_procedure_on) THEN
1937: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
1938: END IF;
1939: EXCEPTION
1940: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1941: IF (is_debug_exception_on) THEN
1938: END IF;
1939: EXCEPTION
1940: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1941: IF (is_debug_exception_on) THEN
1942: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
1943: END IF;
1944:
1945: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1946: (
1952: '_PVT'
1953: );
1954: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1955: IF (is_debug_exception_on) THEN
1956: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
1957: END IF;
1958:
1959: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1960: (
1966: '_PVT'
1967: );
1968: WHEN OTHERS THEN
1969: IF (is_debug_exception_on) THEN
1970: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
1971: END IF;
1972:
1973: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1974: (
1995: p_return_status IN VARCHAR2,
1996: px_overall_status IN OUT NOCOPY VARCHAR2) IS
1997: -- asawanka added for debug feature start
1998: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'set_overall_status';
1999: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2000: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2001: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2002: -- asawanka added for debug feature end
2003: BEGIN
1996: px_overall_status IN OUT NOCOPY VARCHAR2) IS
1997: -- asawanka added for debug feature start
1998: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'set_overall_status';
1999: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2000: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2001: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2002: -- asawanka added for debug feature end
2003: BEGIN
2004: IF (is_debug_procedure_on) THEN
1997: -- asawanka added for debug feature start
1998: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'set_overall_status';
1999: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2000: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2001: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2002: -- asawanka added for debug feature end
2003: BEGIN
2004: IF (is_debug_procedure_on) THEN
2005: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2001: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2002: -- asawanka added for debug feature end
2003: BEGIN
2004: IF (is_debug_procedure_on) THEN
2005: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2006: END IF;
2007:
2008: -- Store the highest degree of error
2009: -- Set p_overall_status only if p_overall_status was successful and
2013: OR p_return_status <> OKL_API.G_MISS_CHAR) THEN
2014: px_overall_status := p_return_status;
2015: END IF;
2016: IF (is_debug_procedure_on) THEN
2017: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
2018: END IF;
2019: EXCEPTION
2020:
2021: WHEN OTHERS THEN
2019: EXCEPTION
2020:
2021: WHEN OTHERS THEN
2022: IF (is_debug_exception_on) THEN
2023: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
2024: END IF;
2025:
2026: OKL_API.set_message(
2027: p_app_name => OKC_API.G_APP_NAME,
2061: FROM OKC_K_HEADERS_V
2062: WHERE id = p_khr_id;
2063: -- asawanka added for debug feature start
2064: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'set_database_values';
2065: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2066: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2067: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2068: -- asawanka added for debug feature end
2069: BEGIN
2062: WHERE id = p_khr_id;
2063: -- asawanka added for debug feature start
2064: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'set_database_values';
2065: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2066: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2067: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2068: -- asawanka added for debug feature end
2069: BEGIN
2070: IF (is_debug_procedure_on) THEN
2063: -- asawanka added for debug feature start
2064: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'set_database_values';
2065: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2066: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2067: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2068: -- asawanka added for debug feature end
2069: BEGIN
2070: IF (is_debug_procedure_on) THEN
2071: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2067: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2068: -- asawanka added for debug feature end
2069: BEGIN
2070: IF (is_debug_procedure_on) THEN
2071: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2072: END IF;
2073: IF (is_debug_statement_on) THEN
2074: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'px_term_rec.p_contract_id = '||px_term_rec.p_contract_id);
2075: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'px_term_rec.p_quote_id = '||px_term_rec.p_quote_id);
2070: IF (is_debug_procedure_on) THEN
2071: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2072: END IF;
2073: IF (is_debug_statement_on) THEN
2074: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'px_term_rec.p_contract_id = '||px_term_rec.p_contract_id);
2075: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'px_term_rec.p_quote_id = '||px_term_rec.p_quote_id);
2076: END IF;
2077: FOR get_k_details_rec IN get_k_details_csr(px_term_rec.p_contract_id) LOOP
2078:
2071: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2072: END IF;
2073: IF (is_debug_statement_on) THEN
2074: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'px_term_rec.p_contract_id = '||px_term_rec.p_contract_id);
2075: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'px_term_rec.p_quote_id = '||px_term_rec.p_quote_id);
2076: END IF;
2077: FOR get_k_details_rec IN get_k_details_csr(px_term_rec.p_contract_id) LOOP
2078:
2079: px_term_rec.p_contract_number := get_k_details_rec.contract_number;
2092: END LOOP;
2093:
2094: END IF;
2095: IF (is_debug_procedure_on) THEN
2096: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
2097: END IF;
2098: EXCEPTION
2099:
2100: WHEN OTHERS THEN
2098: EXCEPTION
2099:
2100: WHEN OTHERS THEN
2101: IF (is_debug_exception_on) THEN
2102: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
2103: END IF;
2104:
2105: OKL_API.set_message(
2106: p_app_name => OKC_API.G_APP_NAME,
2127:
2128: l_quote_type VARCHAR2(2000);
2129: -- asawanka added for debug feature start
2130: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'set_info_messages';
2131: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2132: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2133: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2134: -- asawanka added for debug feature end
2135: BEGIN
2128: l_quote_type VARCHAR2(2000);
2129: -- asawanka added for debug feature start
2130: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'set_info_messages';
2131: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2132: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2133: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2134: -- asawanka added for debug feature end
2135: BEGIN
2136: IF (is_debug_procedure_on) THEN
2129: -- asawanka added for debug feature start
2130: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'set_info_messages';
2131: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2132: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2133: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2134: -- asawanka added for debug feature end
2135: BEGIN
2136: IF (is_debug_procedure_on) THEN
2137: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2133: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2134: -- asawanka added for debug feature end
2135: BEGIN
2136: IF (is_debug_procedure_on) THEN
2137: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2138: END IF;
2139: IF (is_debug_statement_on) THEN
2140: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_control_flag = '||p_term_rec.p_control_flag);
2141: END IF;
2136: IF (is_debug_procedure_on) THEN
2137: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2138: END IF;
2139: IF (is_debug_statement_on) THEN
2140: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_control_flag = '||p_term_rec.p_control_flag);
2141: END IF;
2142: -- Check and Set the message saying where the termination request came from
2143: IF (p_term_rec.p_control_flag = 'CONTRACT_TERMINATE_SCRN') THEN
2144: -- Message: Termination request from Request Contract Termination screen
2192: p_token1 => 'CONTRACT_NUMBER',
2193: p_token1_value => p_term_rec.p_contract_number);
2194: END IF;
2195: IF (is_debug_procedure_on) THEN
2196: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
2197: END IF;
2198: EXCEPTION
2199:
2200: WHEN OTHERS THEN
2198: EXCEPTION
2199:
2200: WHEN OTHERS THEN
2201: IF (is_debug_exception_on) THEN
2202: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
2203: END IF;
2204:
2205: OKL_API.set_message(
2206: p_app_name => OKC_API.G_APP_NAME,
2230: p_ret_val IN VARCHAR2,
2231: px_tcnv_rec IN OUT NOCOPY tcnv_rec_type) IS
2232: -- asawanka added for debug feature start
2233: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'set_transaction_rec';
2234: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2235: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2236: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2237: -- asawanka added for debug feature end
2238: BEGIN
2231: px_tcnv_rec IN OUT NOCOPY tcnv_rec_type) IS
2232: -- asawanka added for debug feature start
2233: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'set_transaction_rec';
2234: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2235: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2236: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2237: -- asawanka added for debug feature end
2238: BEGIN
2239: IF (is_debug_procedure_on) THEN
2232: -- asawanka added for debug feature start
2233: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'set_transaction_rec';
2234: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2235: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2236: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2237: -- asawanka added for debug feature end
2238: BEGIN
2239: IF (is_debug_procedure_on) THEN
2240: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2236: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2237: -- asawanka added for debug feature end
2238: BEGIN
2239: IF (is_debug_procedure_on) THEN
2240: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2241: END IF;
2242:
2243: -- set the transaction record
2244: IF (p_overall_status = OKL_API.G_RET_STS_SUCCESS) THEN
2345: END IF;
2346:
2347: END IF;
2348: IF (is_debug_procedure_on) THEN
2349: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
2350: END IF;
2351: EXCEPTION
2352: WHEN OTHERS THEN
2353: IF (is_debug_exception_on) THEN
2350: END IF;
2351: EXCEPTION
2352: WHEN OTHERS THEN
2353: IF (is_debug_exception_on) THEN
2354: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
2355: END IF;
2356:
2357: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
2358: p_msg_name => g_unexpected_error,
2441:
2442: l_end_date DATE;
2443: -- asawanka added for debug feature start
2444: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'validate_lease';
2445: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2446: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2447: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2448: -- asawanka added for debug feature end
2449: BEGIN
2442: l_end_date DATE;
2443: -- asawanka added for debug feature start
2444: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'validate_lease';
2445: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2446: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2447: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2448: -- asawanka added for debug feature end
2449: BEGIN
2450: IF (is_debug_procedure_on) THEN
2443: -- asawanka added for debug feature start
2444: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'validate_lease';
2445: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2446: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2447: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2448: -- asawanka added for debug feature end
2449: BEGIN
2450: IF (is_debug_procedure_on) THEN
2451: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2447: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2448: -- asawanka added for debug feature end
2449: BEGIN
2450: IF (is_debug_procedure_on) THEN
2451: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2452: END IF;
2453:
2454: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2455:
2475: -- ++++++++++++++++++++ service contract integration begin ++++++++++++
2476:
2477: -- RMUNJULU 3061751 19-SEP-2003
2478: IF (is_debug_statement_on) THEN
2479: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
2480: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_control_flag = '||p_term_rec.p_control_flag);
2481: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_quote_id = '||p_term_rec.p_quote_id);
2482: END IF;
2483: -- Get the TRN details
2476:
2477: -- RMUNJULU 3061751 19-SEP-2003
2478: IF (is_debug_statement_on) THEN
2479: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
2480: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_control_flag = '||p_term_rec.p_control_flag);
2481: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_quote_id = '||p_term_rec.p_quote_id);
2482: END IF;
2483: -- Get the TRN details
2484: FOR get_trn_rec IN get_trn_csr(p_term_rec.p_contract_id) LOOP
2477: -- RMUNJULU 3061751 19-SEP-2003
2478: IF (is_debug_statement_on) THEN
2479: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
2480: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_control_flag = '||p_term_rec.p_control_flag);
2481: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_quote_id = '||p_term_rec.p_quote_id);
2482: END IF;
2483: -- Get the TRN details
2484: FOR get_trn_rec IN get_trn_csr(p_term_rec.p_contract_id) LOOP
2485:
2525: -- 23-JAN-06 SECHAWLA 4970009 : end
2526:
2527: -- 20-JAN-06 SECHAWLA 4970009 : added begin
2528: IF (is_debug_statement_on) THEN
2529: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_AM_LEASE_LOAN_TRMNT_PVT.check_int_calc_done');
2530: END IF;
2531: l_int_calc_done := OKL_AM_LEASE_LOAN_TRMNT_PVT.check_int_calc_done(
2532: p_contract_id => p_term_rec.p_contract_id,
2533: p_contract_number => p_term_rec.p_contract_number,
2536: --p_trn_date => p_sys_date); -- 23-JAN-06 SECHAWLA 4970009
2537: p_trn_date => l_end_date); -- 23-JAN-06 SECHAWLA 4970009
2538:
2539: IF (is_debug_statement_on) THEN
2540: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_int_calc_done = '||l_int_calc_done);
2541: END IF;
2542:
2543: IF l_int_calc_done IS NULL OR l_int_calc_done = 'N' THEN
2544:
2546: l_return_status := OKL_API.G_RET_STS_ERROR;
2547: END IF;
2548: -- 20-JAN-06 SECHAWLA 4970009 : added end
2549: IF (is_debug_statement_on) THEN
2550: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_AM_LEASE_LOAN_TRMNT_PVT.check_billing_done');
2551: END IF;
2552: -- BPD Now provides a API which tells till when the billing was done, use that
2553: l_billing_done := OKL_AM_LEASE_LOAN_TRMNT_PVT.check_billing_done(
2554: p_contract_id => p_term_rec.p_contract_id,
2554: p_contract_id => p_term_rec.p_contract_id,
2555: p_contract_number => p_term_rec.p_contract_number,
2556: p_trn_date => p_sys_date );
2557: IF (is_debug_statement_on) THEN
2558: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_billing_done = '||l_billing_done);
2559: END IF;
2560:
2561: IF l_billing_done IS NULL OR l_billing_done = 'N' THEN
2562:
2563: -- Message will be set in called procedure
2564: l_return_status := OKL_API.G_RET_STS_ERROR;
2565: END IF;
2566: IF (is_debug_statement_on) THEN
2567: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_GENERATE_ACCRUALS_PVT.check_date_accrued_till');
2568: END IF;
2569: -- rmunjulu LOANS_ENHANCEMENTS -- Check for accrual using new API
2570: l_accrual_done := OKL_GENERATE_ACCRUALS_PVT.check_date_accrued_till(
2571: p_khr_id => p_term_rec.p_contract_id,
2570: l_accrual_done := OKL_GENERATE_ACCRUALS_PVT.check_date_accrued_till(
2571: p_khr_id => p_term_rec.p_contract_id,
2572: p_date => p_sys_date);
2573: IF (is_debug_statement_on) THEN
2574: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_accrual_done = '||l_accrual_done);
2575: END IF;
2576:
2577: -- if accrual not done then error
2578: IF (nvl(l_accrual_done,'N') = 'N' ) THEN
2596:
2597: x_return_status := l_return_status;
2598: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2599: IF (is_debug_procedure_on) THEN
2600: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
2601: END IF;
2602:
2603: EXCEPTION
2604: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2602:
2603: EXCEPTION
2604: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2605: IF (is_debug_exception_on) THEN
2606: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
2607: END IF;
2608:
2609: -- 24-JAN-06 SECHAWLA 4970009 : close the open cursors
2610: IF l_okcheaders_b%ISOPEN THEN
2624: '_PVT'
2625: );
2626: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2627: IF (is_debug_exception_on) THEN
2628: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
2629: END IF;
2630:
2631: -- 24-JAN-06 SECHAWLA 4970009 : close the open cursors
2632: IF l_okcheaders_b%ISOPEN THEN
2647: '_PVT'
2648: );
2649: WHEN OTHERS THEN
2650: IF (is_debug_exception_on) THEN
2651: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
2652: END IF;
2653:
2654: -- 24-JAN-06 SECHAWLA 4970009 : close the open cursors
2655: IF l_okcheaders_b%ISOPEN THEN
2701: lx_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2702: lx_quotes_found VARCHAR2(1) := 'N';
2703: l_api_version NUMBER := 1;
2704: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'UPDATE_QUOTE_STATUS';
2705: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name,
2706: G_LEVEL_EXCEPTION);
2707: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name,
2708: G_LEVEL_PROCEDURE);
2709: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name,
2703: l_api_version NUMBER := 1;
2704: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'UPDATE_QUOTE_STATUS';
2705: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name,
2706: G_LEVEL_EXCEPTION);
2707: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name,
2708: G_LEVEL_PROCEDURE);
2709: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name,
2710: G_LEVEL_STATEMENT);
2711: --:= okl_debug_pub.check_log_on (l_module_name, g_level_exception);
2705: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name,
2706: G_LEVEL_EXCEPTION);
2707: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name,
2708: G_LEVEL_PROCEDURE);
2709: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name,
2710: G_LEVEL_STATEMENT);
2711: --:= okl_debug_pub.check_log_on (l_module_name, g_level_exception);
2712:
2713:
2707: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name,
2708: G_LEVEL_PROCEDURE);
2709: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name,
2710: G_LEVEL_STATEMENT);
2711: --:= okl_debug_pub.check_log_on (l_module_name, g_level_exception);
2712:
2713:
2714: -- Fetch tmt_status_code
2715:
2730:
2731: BEGIN
2732:
2733: IF (is_debug_procedure_on) THEN
2734: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2735: END IF;
2736:
2737: --Get termination quote status
2738:
2740: FETCH k_quotes_csr into l_qst_code;
2741: CLOSE k_quotes_csr;
2742:
2743: IF (is_debug_statement_on) THEN
2744: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_qst_code =
2745: '||l_qst_code);
2746: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_quote_id
2747: = '||p_term_rec.p_quote_id);
2748: END IF;
2742:
2743: IF (is_debug_statement_on) THEN
2744: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_qst_code =
2745: '||l_qst_code);
2746: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_quote_id
2747: = '||p_term_rec.p_quote_id);
2748: END IF;
2749:
2750: IF p_term_rec.p_quote_id is not null and l_qst_code = 'ACCEPTED' THEN
2749:
2750: IF p_term_rec.p_quote_id is not null and l_qst_code = 'ACCEPTED' THEN
2751:
2752: IF (is_debug_statement_on) THEN
2753: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Quote in
2754: status accepted exists');
2755: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_quote_id
2756: = '||p_term_rec.p_quote_id);
2757: END IF;
2751:
2752: IF (is_debug_statement_on) THEN
2753: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Quote in
2754: status accepted exists');
2755: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_quote_id
2756: = '||p_term_rec.p_quote_id);
2757: END IF;
2758:
2759: OPEN c_tmt_status_code_csr(p_term_rec.p_quote_id);
2760: FETCH c_tmt_status_code_csr INTO l_tmt_status_code;
2761: CLOSE c_tmt_status_code_csr;
2762:
2763: IF (is_debug_statement_on) THEN
2764: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_tmt_status_code
2765: = '||l_tmt_status_code);
2766: END IF;
2767:
2768: IF l_tmt_status_code = 'ERROR' THEN
2769: lp_qtev_rec.id := p_term_rec.p_quote_id;
2770: lp_qtev_rec.qst_code := l_quote_status;
2771:
2772: IF (is_debug_statement_on) THEN
2773: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'lp_qtev_rec.id
2774: = '||lp_qtev_rec.id);
2775: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'lp_qtev_rec.qst_code
2776: = '||lp_qtev_rec.qst_code );
2777: END IF;
2771:
2772: IF (is_debug_statement_on) THEN
2773: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'lp_qtev_rec.id
2774: = '||lp_qtev_rec.id);
2775: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'lp_qtev_rec.qst_code
2776: = '||lp_qtev_rec.qst_code );
2777: END IF;
2778:
2779: -- Call the update of the quote header api
2790:
2791:
2792: IF (is_debug_statement_on)
2793: THEN
2794: okl_debug_pub.log_debug (g_level_statement,
2795: l_module_name,
2796: 'failure while updating the quote status
2797: ');
2798:
2893: l_quote_accpt_date DATE;
2894: l_quote_eff_date DATE;
2895: -- asawanka added for debug feature start
2896: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'update_k_hdr_and_lines';
2897: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2898: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2899: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2900: -- asawanka added for debug feature end
2901: BEGIN
2894: l_quote_eff_date DATE;
2895: -- asawanka added for debug feature start
2896: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'update_k_hdr_and_lines';
2897: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2898: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2899: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2900: -- asawanka added for debug feature end
2901: BEGIN
2902: IF (is_debug_procedure_on) THEN
2895: -- asawanka added for debug feature start
2896: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'update_k_hdr_and_lines';
2897: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2898: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2899: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2900: -- asawanka added for debug feature end
2901: BEGIN
2902: IF (is_debug_procedure_on) THEN
2903: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2899: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2900: -- asawanka added for debug feature end
2901: BEGIN
2902: IF (is_debug_procedure_on) THEN
2903: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2904: END IF;
2905:
2906: -- Initialize savepoint to rollback to if error in this block
2907: SAVEPOINT update_k_hdr_lines;
2908:
2909: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2910:
2911: IF (is_debug_statement_on) THEN
2912: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
2913: END IF;
2914: OPEN k_header_csr;
2915: FETCH k_header_csr INTO rec_k_header;
2916: CLOSE k_header_csr;
2914: OPEN k_header_csr;
2915: FETCH k_header_csr INTO rec_k_header;
2916: CLOSE k_header_csr;
2917: IF (is_debug_statement_on) THEN
2918: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'rec_k_header.sts_code = '||rec_k_header.sts_code);
2919: END IF;
2920: OPEN get_old_ste_code_csr(rec_k_header.sts_code);
2921: FETCH get_old_ste_code_csr INTO l_ste_code;
2922: CLOSE get_old_ste_code_csr;
2936:
2937: -- RBRUNO BUG 6801022 START : UPDATE TERMINATION QUOTES FROM STATUS ACCEPTED
2938:
2939: IF (is_debug_statement_on) THEN
2940: okl_debug_pub.log_debug (g_level_statement,
2941: l_module_name,
2942: 'Invoking updating quote status');
2943: end if;
2944:
2945: --IF TERM QUOTE IN STATUS ACCEPTED EXISTS, UPDATE IT TO COMPLETE
2946: update_quote_status(p_term_rec);
2947:
2948: IF (is_debug_statement_on) THEN
2949: okl_debug_pub.log_debug (g_level_statement,
2950: l_module_name,
2951: 'post updating quote status');
2952: end if;
2953: -- RBRUNO BUG 6801022 END : UPDATE TERMINATION QUOTES FROM STATUS ACCEPTED
2954:
2955: -- RMUNJULU Bug # 3023206 Added call to Process_close_streams here
2956: -- Check if final termination ( DO NOT close streams if EVERGREEN)
2957: IF (is_debug_statement_on) THEN
2958: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_status = '||p_status);
2959: END IF;
2960:
2961: IF p_status IN ( 'TERMINATED','EXPIRED') THEN
2962:
2960:
2961: IF p_status IN ( 'TERMINATED','EXPIRED') THEN
2962:
2963: IF (is_debug_statement_on) THEN
2964: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling process_close_streams');
2965: END IF;
2966: process_close_streams(
2967: p_api_version => p_api_version,
2968: p_init_msg_list => OKL_API.G_FALSE,
2975: x_stmv_tbl => lx_stmv_tbl,
2976: p_sys_date => p_sys_date,
2977: p_trn_already_set => G_NO); -- Always NO since this step was not done earlier
2978: IF (is_debug_statement_on) THEN
2979: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called process_close_streams l_return_status = '||l_return_status);
2980: END IF;
2981:
2982: -- Raise exception to rollback to savepoint
2983: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3032: END LOOP;
3033:
3034:
3035: IF (is_debug_statement_on) THEN
3036: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling OKC_CONTRACT_PUB.update_contract_line');
3037: END IF;
3038:
3039: -- call the update line tbl
3040: OKC_CONTRACT_PUB.update_contract_line(
3045: x_msg_data => x_msg_data,
3046: p_clev_tbl => lp_clev_tbl,
3047: x_clev_tbl => lx_clev_tbl);
3048: IF (is_debug_statement_on) THEN
3049: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called OKC_CONTRACT_PUB.update_contract_linel_return_status ='||l_return_status);
3050: END IF;
3051: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3052:
3053: -- Error updating assets of contract CONTRACT_NUMBER to status STATUS.
3096: lp_chrv_rec.new_ste_code := p_status;
3097: lp_chrv_rec.org_id := rec_k_header.authoring_org_id; --CDUBEY added for MOAC
3098:
3099: IF (is_debug_statement_on) THEN
3100: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling OKC_CONTRACT_PUB.update_contract_header');
3101: END IF;
3102: -- Call the tapi to update contract with termination info
3103: OKC_CONTRACT_PUB.update_contract_header(
3104: p_api_version => p_api_version,
3109: p_restricted_update => OKL_API.G_TRUE,
3110: p_chrv_rec => lp_chrv_rec,
3111: x_chrv_rec => lx_chrv_rec);
3112: IF (is_debug_statement_on) THEN
3113: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called OKC_CONTRACT_PUB.update_contract_header l_return_status = '||l_return_status);
3114: END IF;
3115: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3116:
3117: -- Error updating contract CONTRACT_NUMBER to status STATUS.
3170: x_return_status := l_return_status;
3171: x_chrv_rec := lx_chrv_rec;
3172: x_clev_tbl := lx_clev_tbl;
3173: IF (is_debug_procedure_on) THEN
3174: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
3175: END IF;
3176: EXCEPTION
3177: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3178: IF (is_debug_exception_on) THEN
3175: END IF;
3176: EXCEPTION
3177: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3178: IF (is_debug_exception_on) THEN
3179: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
3180: END IF;
3181:
3182: IF get_old_ste_code_csr%ISOPEN THEN
3183: CLOSE get_old_ste_code_csr;
3207: px_tcnv_rec => px_tcnv_rec);
3208:
3209: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3210: IF (is_debug_exception_on) THEN
3211: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
3212: END IF;
3213:
3214: IF get_old_ste_code_csr%ISOPEN THEN
3215: CLOSE get_old_ste_code_csr;
3239: px_tcnv_rec => px_tcnv_rec);
3240:
3241: WHEN OTHERS THEN
3242: IF (is_debug_exception_on) THEN
3243: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
3244: END IF;
3245:
3246: IF get_old_ste_code_csr%ISOPEN THEN
3247: CLOSE get_old_ste_code_csr;
3309: l_api_name VARCHAR2(30) := 'process_transaction';
3310:
3311: -- asawanka added for debug feature start
3312: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_transaction';
3313: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3314: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3315: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3316: -- asawanka added for debug feature end
3317: BEGIN
3310:
3311: -- asawanka added for debug feature start
3312: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_transaction';
3313: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3314: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3315: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3316: -- asawanka added for debug feature end
3317: BEGIN
3318: IF (is_debug_procedure_on) THEN
3311: -- asawanka added for debug feature start
3312: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_transaction';
3313: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3314: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3315: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3316: -- asawanka added for debug feature end
3317: BEGIN
3318: IF (is_debug_procedure_on) THEN
3319: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
3315: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3316: -- asawanka added for debug feature end
3317: BEGIN
3318: IF (is_debug_procedure_on) THEN
3319: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
3320: END IF;
3321:
3322: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3323:
3334:
3335: -- Clear the recycle flag after processing
3336: lp_tcnv_rec.tmt_recycle_yn := NULL;
3337: IF (is_debug_statement_on) THEN
3338: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_trn_mode = '||p_trn_mode);
3339: END IF;
3340: IF p_trn_mode = 'INSERT' THEN
3341: IF (is_debug_statement_on) THEN
3342: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling OKL_TRX_CONTRACTS_PUB.create_trx_contracts');
3338: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_trn_mode = '||p_trn_mode);
3339: END IF;
3340: IF p_trn_mode = 'INSERT' THEN
3341: IF (is_debug_statement_on) THEN
3342: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling OKL_TRX_CONTRACTS_PUB.create_trx_contracts');
3343: END IF;
3344: -- insert transaction rec
3345: OKL_TRX_CONTRACTS_PUB.create_trx_contracts(
3346: p_api_version => p_api_version,
3350: x_msg_data => x_msg_data,
3351: p_tcnv_rec => lp_tcnv_rec,
3352: x_tcnv_rec => lx_tcnv_rec);
3353: IF (is_debug_statement_on) THEN
3354: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called OKL_TRX_CONTRACTS_PUB.insert_trx_contracts l_return_status = '||l_return_status);
3355: END IF;
3356: ELSIF p_trn_mode = 'UPDATE' THEN
3357: IF (is_debug_statement_on) THEN
3358: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling OKL_TRX_CONTRACTS_PUB.update_trx_contracts');
3354: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called OKL_TRX_CONTRACTS_PUB.insert_trx_contracts l_return_status = '||l_return_status);
3355: END IF;
3356: ELSIF p_trn_mode = 'UPDATE' THEN
3357: IF (is_debug_statement_on) THEN
3358: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling OKL_TRX_CONTRACTS_PUB.update_trx_contracts');
3359: END IF;
3360:
3361: -- update transaction rec
3362: OKL_TRX_CONTRACTS_PUB.update_trx_contracts(
3367: x_msg_data => x_msg_data,
3368: p_tcnv_rec => lp_tcnv_rec,
3369: x_tcnv_rec => lx_tcnv_rec);
3370: IF (is_debug_statement_on) THEN
3371: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called OKL_TRX_CONTRACTS_PUB.update_trx_contracts l_return_status = '||l_return_status);
3372: END IF;
3373: END IF;
3374:
3375: -- rollback if error
3384: x_id := lx_tcnv_rec.id;
3385:
3386: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3387: IF (is_debug_procedure_on) THEN
3388: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
3389: END IF;
3390: EXCEPTION
3391: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3392: IF (is_debug_exception_on) THEN
3389: END IF;
3390: EXCEPTION
3391: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3392: IF (is_debug_exception_on) THEN
3393: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
3394: END IF;
3395:
3396: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3397: (
3403: '_PVT'
3404: );
3405: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3406: IF (is_debug_exception_on) THEN
3407: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
3408: END IF;
3409:
3410: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3411: (
3417: '_PVT'
3418: );
3419: WHEN OTHERS THEN
3420: IF (is_debug_exception_on) THEN
3421: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
3422: END IF;
3423:
3424: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3425: (
3843:
3844: l_evergreen_earlier VARCHAR2(3) := 'N';
3845: -- asawanka added for debug feature start
3846: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_evergreen_contract';
3847: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3848: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3849: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3850: -- asawanka added for debug feature end
3851: BEGIN
3844: l_evergreen_earlier VARCHAR2(3) := 'N';
3845: -- asawanka added for debug feature start
3846: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_evergreen_contract';
3847: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3848: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3849: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3850: -- asawanka added for debug feature end
3851: BEGIN
3852: IF (is_debug_procedure_on) THEN
3845: -- asawanka added for debug feature start
3846: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_evergreen_contract';
3847: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3848: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3849: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3850: -- asawanka added for debug feature end
3851: BEGIN
3852: IF (is_debug_procedure_on) THEN
3853: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
3849: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3850: -- asawanka added for debug feature end
3851: BEGIN
3852: IF (is_debug_procedure_on) THEN
3853: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
3854: END IF;
3855:
3856: -- Initialize savepoint to rollback to if error in this block
3857: SAVEPOINT evergreen;
3857: SAVEPOINT evergreen;
3858:
3859: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3860: IF (is_debug_statement_on) THEN
3861: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
3862: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'px_tcnv_rec.id = '||px_tcnv_rec.id);
3863: END IF;
3864: -- Get the contract end date
3865: OPEN l_k_end_csr ( p_term_rec.p_contract_id);
3858:
3859: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3860: IF (is_debug_statement_on) THEN
3861: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
3862: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'px_tcnv_rec.id = '||px_tcnv_rec.id);
3863: END IF;
3864: -- Get the contract end date
3865: OPEN l_k_end_csr ( p_term_rec.p_contract_id);
3866:
3902: -- Check control from batch process
3903: -- Check k ended before termination date
3904: -- Check no quote triggered the termination process ( ie from batch at end of term)
3905: IF (is_debug_statement_on) THEN
3906: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_evergreen_earlier = '||l_evergreen_earlier);
3907: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_control_flag = '||p_term_rec.p_control_flag);
3908: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_quote_id = '||p_term_rec.p_quote_id);
3909: END IF;
3910: IF (l_evergreen_earlier <> 'Y'
3903: -- Check k ended before termination date
3904: -- Check no quote triggered the termination process ( ie from batch at end of term)
3905: IF (is_debug_statement_on) THEN
3906: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_evergreen_earlier = '||l_evergreen_earlier);
3907: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_control_flag = '||p_term_rec.p_control_flag);
3908: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_quote_id = '||p_term_rec.p_quote_id);
3909: END IF;
3910: IF (l_evergreen_earlier <> 'Y'
3911: AND p_term_rec.p_control_flag LIKE 'BATCH_PROCESS%'
3904: -- Check no quote triggered the termination process ( ie from batch at end of term)
3905: IF (is_debug_statement_on) THEN
3906: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_evergreen_earlier = '||l_evergreen_earlier);
3907: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_control_flag = '||p_term_rec.p_control_flag);
3908: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_quote_id = '||p_term_rec.p_quote_id);
3909: END IF;
3910: IF (l_evergreen_earlier <> 'Y'
3911: AND p_term_rec.p_control_flag LIKE 'BATCH_PROCESS%'
3912: AND TRUNC(l_k_end_date) <= TRUNC(p_sys_date)
3920: p_msg_name => 'OKL_AM_STEP_EVR');
3921:
3922: -- get evergreen eligiblility
3923: IF (is_debug_statement_on) THEN
3924: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling evergreen_eligibility');
3925: END IF;
3926: evergreen_eligibility(
3927: p_term_rec => p_term_rec,
3928: x_return_status => l_return_status,
3939: p_msg_name => 'OKL_AM_EVERGREEN_RULE_ERR');
3940: RAISE OKL_API.G_EXCEPTION_ERROR;
3941: END IF;
3942: IF (is_debug_statement_on) THEN
3943: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_rule_found = '||l_rule_found);
3944: END IF;
3945: -- if control_flag = "batch process" and evergreen_status = "ok" then
3946: -- update contract_status to evergreen
3947: -- exit (raise exception)
3947: -- exit (raise exception)
3948: -- end if
3949: IF (l_rule_found = G_YES) THEN
3950: IF (is_debug_statement_on) THEN
3951: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling Okl_Am_Integration_Pvt.cancel_termination_quotes');
3952: END IF;
3953: -- rmunjulu EDAT cancel all quotes for the contract which are not accepted or completed
3954: Okl_Am_Integration_Pvt.cancel_termination_quotes (
3955: p_api_version => p_api_version,
3960: x_return_status => l_return_status,
3961: x_msg_count => x_msg_count,
3962: x_msg_data => x_msg_data);
3963: IF (is_debug_statement_on) THEN
3964: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called Okl_Am_Integration_Pvt.cancel_termination_quotes l_return_status = '||l_return_status);
3965: END IF;
3966: -- Raise exception to rollback to the savepoint
3967: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3968: RAISE OKL_API.G_EXCEPTION_ERROR;
3967: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3968: RAISE OKL_API.G_EXCEPTION_ERROR;
3969: END IF;
3970: IF (is_debug_statement_on) THEN
3971: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling update_k_hdr_and_lines');
3972: END IF;
3973: -- set_and_update_contract
3974: update_k_hdr_and_lines(
3975: p_api_version => p_api_version,
3986: x_chrv_rec => lx_chrv_rec,
3987: x_clev_tbl => lx_clev_tbl,
3988: p_sys_date => p_sys_date);
3989: IF (is_debug_statement_on) THEN
3990: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called update_k_hdr_and_lines l_return_status = '||l_return_status);
3991: END IF;
3992: -- Raise exception to rollback to the savepoint
3993: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3994: RAISE OKL_API.G_EXCEPTION_ERROR;
4011: RAISE OKL_API.G_EXCEPTION_ERROR;
4012: END IF;
4013: */
4014: IF (is_debug_statement_on) THEN
4015: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling process_accounting_entries');
4016: END IF;
4017: -- rmunjulu 4141991 do accounting entries
4018: --pagarg 4190887 Pass klev_tbl to do accounting at line level
4019: process_accounting_entries(
4029: p_klev_tbl => p_klev_tbl, -- pagarg 4190887 Added
4030: p_trn_already_set => 'Y',
4031: p_source => 'EVERGREEN'); -- rmunjulu Bug 4141991
4032: IF (is_debug_statement_on) THEN
4033: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called process_accounting_entries l_return_status = '||l_return_status);
4034: END IF;
4035: -- rmunjulu 4141991 Raise exception to rollback to the savepoint
4036: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4037: RAISE OKL_API.G_EXCEPTION_ERROR;
4039:
4040: -- RMUNJULU 04-MAR-04 3485854 added call to process_amortize to do amortization
4041: -- Additional checks in process_amortize to cater to evergreen scenario
4042: IF (is_debug_statement_on) THEN
4043: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling process_amortize');
4044: END IF;
4045: process_amortize(
4046: p_api_version => p_api_version,
4047: p_init_msg_list => OKL_API.G_FALSE,
4053: px_tcnv_rec => px_tcnv_rec,
4054: p_sys_date => p_sys_date,
4055: p_call_origin => 'EVERGREEN');
4056: IF (is_debug_statement_on) THEN
4057: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called process_amortize l_return_status = '||l_return_status);
4058: END IF;
4059: -- Raise exception to rollback to the savepoint
4060: IF (px_overall_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4061: RAISE OKL_API.G_EXCEPTION_ERROR;
4118:
4119: x_return_status := l_return_status;
4120: x_evergreen_status := l_evergreen_status;
4121: IF (is_debug_procedure_on) THEN
4122: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
4123: END IF;
4124: EXCEPTION
4125: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4126: IF (is_debug_exception_on) THEN
4123: END IF;
4124: EXCEPTION
4125: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4126: IF (is_debug_exception_on) THEN
4127: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
4128: END IF;
4129:
4130: IF l_k_end_csr%ISOPEN THEN
4131: CLOSE l_k_end_csr;
4149: px_tcnv_rec => px_tcnv_rec);
4150:
4151: WHEN OTHERS THEN
4152: IF (is_debug_exception_on) THEN
4153: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
4154: END IF;
4155:
4156: IF l_k_end_csr%ISOPEN THEN
4157: CLOSE l_k_end_csr;
4222: l_quote_accpt_date DATE;
4223: l_quote_eff_date DATE;
4224: -- asawanka added for debug feature start
4225: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_cancel_insurance';
4226: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4227: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4228: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4229: -- asawanka added for debug feature end
4230: BEGIN
4223: l_quote_eff_date DATE;
4224: -- asawanka added for debug feature start
4225: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_cancel_insurance';
4226: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4227: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4228: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4229: -- asawanka added for debug feature end
4230: BEGIN
4231: IF (is_debug_procedure_on) THEN
4224: -- asawanka added for debug feature start
4225: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_cancel_insurance';
4226: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4227: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4228: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4229: -- asawanka added for debug feature end
4230: BEGIN
4231: IF (is_debug_procedure_on) THEN
4232: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
4228: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4229: -- asawanka added for debug feature end
4230: BEGIN
4231: IF (is_debug_procedure_on) THEN
4232: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
4233: END IF;
4234:
4235: -- Start savepoint to rollback to if error in this block
4236: SAVEPOINT cancel_insurance;
4252: END IF;
4253:
4254: -- rmunjulu +++++++++ Effective Dated Termination -- end ++++++++++++++++
4255: IF (is_debug_statement_on) THEN
4256: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
4257: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_early_termination_yn = '||p_term_rec.p_early_termination_yn);
4258: END IF;
4259: -- Get k end date
4260: OPEN k_end_date_csr(p_term_rec.p_contract_id);
4253:
4254: -- rmunjulu +++++++++ Effective Dated Termination -- end ++++++++++++++++
4255: IF (is_debug_statement_on) THEN
4256: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
4257: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_early_termination_yn = '||p_term_rec.p_early_termination_yn);
4258: END IF;
4259: -- Get k end date
4260: OPEN k_end_date_csr(p_term_rec.p_contract_id);
4261: FETCH k_end_date_csr INTO l_k_end_date;
4280: p_app_name => G_APP_NAME,
4281: p_msg_name => 'OKL_AM_STEP_INS');
4282:
4283: IF (is_debug_statement_on) THEN
4284: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling OKL_INSURANCE_POLICIES_PUB.cancel_policies');
4285: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_quote_eff_date = '||l_quote_eff_date);
4286: END IF;
4287:
4288: OKL_INSURANCE_POLICIES_PUB.cancel_policies(
4281: p_msg_name => 'OKL_AM_STEP_INS');
4282:
4283: IF (is_debug_statement_on) THEN
4284: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling OKL_INSURANCE_POLICIES_PUB.cancel_policies');
4285: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_quote_eff_date = '||l_quote_eff_date);
4286: END IF;
4287:
4288: OKL_INSURANCE_POLICIES_PUB.cancel_policies(
4289: p_api_version => p_api_version,
4295: p_cancellation_date => l_quote_eff_date, -- rmunjulu EDAT -- pass quote effective date
4296: p_crx_code => 'CONTRACT_CANCELED'); -- rmunjulu EDAT -- need to pass new cancelation code
4297:
4298: IF (is_debug_statement_on) THEN
4299: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called OKL_INSURANCE_POLICIES_PUB.cancel_policies l_return_status = '||l_return_status);
4300: END IF;
4301:
4302: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4303: -- Error in cancelling Insurance.
4343: END IF;
4344:
4345: x_return_status := l_return_status;
4346: IF (is_debug_procedure_on) THEN
4347: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
4348: END IF;
4349: EXCEPTION
4350: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4351: IF (is_debug_exception_on) THEN
4348: END IF;
4349: EXCEPTION
4350: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4351: IF (is_debug_exception_on) THEN
4352: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
4353: END IF;
4354:
4355: IF k_end_date_csr%ISOPEN THEN
4356: CLOSE k_end_date_csr;
4374: px_tcnv_rec => px_tcnv_rec);
4375:
4376: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4377: IF (is_debug_exception_on) THEN
4378: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
4379: END IF;
4380:
4381: IF k_end_date_csr%ISOPEN THEN
4382: CLOSE k_end_date_csr;
4400: px_tcnv_rec => px_tcnv_rec);
4401:
4402: WHEN OTHERS THEN
4403: IF (is_debug_exception_on) THEN
4404: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
4405: END IF;
4406:
4407: IF k_end_date_csr%ISOPEN THEN
4408: CLOSE k_end_date_csr;
4512: -- rmunjulu bug 4058630
4513: l_dummy_status VARCHAR2(3);
4514: -- asawanka added for debug feature start
4515: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_close_streams';
4516: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4517: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4518: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4519: -- asawanka added for debug feature end
4520: BEGIN
4513: l_dummy_status VARCHAR2(3);
4514: -- asawanka added for debug feature start
4515: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_close_streams';
4516: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4517: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4518: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4519: -- asawanka added for debug feature end
4520: BEGIN
4521: IF (is_debug_procedure_on) THEN
4514: -- asawanka added for debug feature start
4515: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_close_streams';
4516: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4517: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4518: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4519: -- asawanka added for debug feature end
4520: BEGIN
4521: IF (is_debug_procedure_on) THEN
4522: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
4518: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4519: -- asawanka added for debug feature end
4520: BEGIN
4521: IF (is_debug_procedure_on) THEN
4522: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
4523: END IF;
4524:
4525: -- Start a savepoint to rollback to if error in this block
4526: SAVEPOINT close_streams;
4532: lx_sty_id);
4533: -- smoduga +++++++++ User Defined Streams -- end ++++++++++++++++
4534:
4535: IF (is_debug_statement_on) THEN
4536: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
4537: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_trn_already_set = '||p_trn_already_set);
4538: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'px_tcnv_rec.tmt_streams_updated_yn = '||px_tcnv_rec.tmt_streams_updated_yn);
4539: END IF;
4540: -- Check if streams exist
4533: -- smoduga +++++++++ User Defined Streams -- end ++++++++++++++++
4534:
4535: IF (is_debug_statement_on) THEN
4536: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
4537: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_trn_already_set = '||p_trn_already_set);
4538: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'px_tcnv_rec.tmt_streams_updated_yn = '||px_tcnv_rec.tmt_streams_updated_yn);
4539: END IF;
4540: -- Check if streams exist
4541: OPEN k_streams_csr(p_term_rec.p_contract_id,nvl(lx_sty_id,OKL_API.G_MISS_NUM)); -- rmunjulu 4058630 check for NVL
4534:
4535: IF (is_debug_statement_on) THEN
4536: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
4537: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_trn_already_set = '||p_trn_already_set);
4538: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'px_tcnv_rec.tmt_streams_updated_yn = '||px_tcnv_rec.tmt_streams_updated_yn);
4539: END IF;
4540: -- Check if streams exist
4541: OPEN k_streams_csr(p_term_rec.p_contract_id,nvl(lx_sty_id,OKL_API.G_MISS_NUM)); -- rmunjulu 4058630 check for NVL
4542: FETCH k_streams_csr INTO l_id;
4550: FETCH rev_rec_method_csr into l_rev_rec_method;
4551: CLOSE rev_rec_method_csr;
4552:
4553: IF (is_debug_statement_on) THEN
4554: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'rev_rec_method '|| l_rev_rec_method);
4555: END IF;
4556:
4557:
4558: -- RMUNJULU Bug # 3023206 Changed the priority, first check if Close Streams
4581:
4582: i := i + 1;
4583: END LOOP;
4584: IF (is_debug_statement_on) THEN
4585: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling OKL_STREAMS_PUB.update_streams');
4586: END IF;
4587: -- close streams
4588: OKL_STREAMS_PUB.update_streams(
4589: p_api_version => p_api_version,
4593: x_msg_data => x_msg_data,
4594: p_stmv_tbl => lp_stmv_tbl,
4595: x_stmv_tbl => lx_stmv_tbl);
4596: IF (is_debug_statement_on) THEN
4597: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called OKL_STREAMS_PUB.update_streams l_return_status ='||l_return_status);
4598: END IF;
4599:
4600: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4601: -- Streams table update failed.
4645:
4646: x_return_status := l_return_status;
4647: x_stmv_tbl := lx_stmv_tbl;
4648: IF (is_debug_procedure_on) THEN
4649: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
4650: END IF;
4651: EXCEPTION
4652: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4653: IF (is_debug_exception_on) THEN
4650: END IF;
4651: EXCEPTION
4652: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4653: IF (is_debug_exception_on) THEN
4654: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
4655: END IF;
4656:
4657: IF k_streams_csr%ISOPEN THEN
4658: CLOSE k_streams_csr;
4675: px_tcnv_rec => px_tcnv_rec);
4676:
4677: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4678: IF (is_debug_exception_on) THEN
4679: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
4680: END IF;
4681:
4682: IF k_streams_csr%ISOPEN THEN
4683: CLOSE k_streams_csr;
4700: px_tcnv_rec => px_tcnv_rec);
4701:
4702: WHEN OTHERS THEN
4703: IF (is_debug_exception_on) THEN
4704: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
4705: END IF;
4706:
4707: IF k_streams_csr%ISOPEN THEN
4708: CLOSE k_streams_csr;
4810: lx_tilv_tbl okl_txl_ar_inv_lns_pub.tilv_tbl_type;
4811: -- ansethur 23-FEB-07 R12B Added for Billing Enhancement Project End Changes
4812: -- asawanka added for debug feature start
4813: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_auto_invoice';
4814: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4815: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4816: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4817: -- asawanka added for debug feature end
4818: BEGIN
4811: -- ansethur 23-FEB-07 R12B Added for Billing Enhancement Project End Changes
4812: -- asawanka added for debug feature start
4813: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_auto_invoice';
4814: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4815: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4816: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4817: -- asawanka added for debug feature end
4818: BEGIN
4819: IF (is_debug_procedure_on) THEN
4812: -- asawanka added for debug feature start
4813: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_auto_invoice';
4814: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4815: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4816: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4817: -- asawanka added for debug feature end
4818: BEGIN
4819: IF (is_debug_procedure_on) THEN
4820: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
4816: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4817: -- asawanka added for debug feature end
4818: BEGIN
4819: IF (is_debug_procedure_on) THEN
4820: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
4821: END IF;
4822:
4823: SAVEPOINT auto_invoice;
4824:
4834: l_quote_eff_date := p_sys_date;
4835:
4836: END IF;
4837: IF (is_debug_statement_on) THEN
4838: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
4839: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_trn_already_set = '||p_trn_already_set);
4840: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'px_tcnv_rec.tmt_streams_updated_yn = '||px_tcnv_rec.tmt_streams_updated_yn);
4841: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_auto_invoice_yn = '|| p_auto_invoice_yn);
4842: END IF;
4835:
4836: END IF;
4837: IF (is_debug_statement_on) THEN
4838: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
4839: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_trn_already_set = '||p_trn_already_set);
4840: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'px_tcnv_rec.tmt_streams_updated_yn = '||px_tcnv_rec.tmt_streams_updated_yn);
4841: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_auto_invoice_yn = '|| p_auto_invoice_yn);
4842: END IF;
4843: -- check if auto invoice needed and not done already
4836: END IF;
4837: IF (is_debug_statement_on) THEN
4838: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
4839: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_trn_already_set = '||p_trn_already_set);
4840: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'px_tcnv_rec.tmt_streams_updated_yn = '||px_tcnv_rec.tmt_streams_updated_yn);
4841: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_auto_invoice_yn = '|| p_auto_invoice_yn);
4842: END IF;
4843: -- check if auto invoice needed and not done already
4844: IF ((p_trn_already_set = G_YES
4837: IF (is_debug_statement_on) THEN
4838: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
4839: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_trn_already_set = '||p_trn_already_set);
4840: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'px_tcnv_rec.tmt_streams_updated_yn = '||px_tcnv_rec.tmt_streams_updated_yn);
4841: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_auto_invoice_yn = '|| p_auto_invoice_yn);
4842: END IF;
4843: -- check if auto invoice needed and not done already
4844: IF ((p_trn_already_set = G_YES
4845: AND NVL(px_tcnv_rec.tmt_generic_flag3_yn, '?') <> G_YES)
4847: AND p_auto_invoice_yn = 'Y'
4848: AND p_klev_tbl.COUNT > 0 THEN
4849:
4850: IF (is_debug_statement_on) THEN
4851: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_STREAMS_UTIL.get_primary_stream_type.');
4852: END IF;
4853:
4854: -- get stream type id for Quote Purchase Amount Purpose
4855: OKL_STREAMS_UTIL.get_primary_stream_type(
4858: x_return_status => l_return_status,
4859: x_primary_sty_id => l_purchase_option_sty_id);
4860:
4861: IF (is_debug_statement_on) THEN
4862: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called OKL_STREAMS_UTIL.get_primary_stream_type.l_return_status = '||l_return_status);
4863: END IF;
4864:
4865: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
4866: AND (l_purchase_option_sty_id IS NULL OR l_purchase_option_sty_id = OKL_API.G_MISS_NUM) THEN
4890:
4891: -- Get the functional currency from AM_Util
4892: l_functional_currency_code := OKL_AM_UTIL_PVT.get_functional_currency();
4893: IF (is_debug_statement_on) THEN
4894: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_ACCOUNTING_UTIL.convert_to_functional_currency');
4895: END IF;
4896: -- Get the currency conversion details from ACCOUNTING_Util
4897: OKL_ACCOUNTING_UTIL.convert_to_functional_currency(
4898: p_khr_id => p_term_rec.p_contract_id,
4905: x_currency_conversion_rate => l_currency_conversion_rate,
4906: x_currency_conversion_date => l_currency_conversion_date,
4907: x_converted_amount => l_converted_amount);
4908: IF (is_debug_statement_on) THEN
4909: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called OKL_ACCOUNTING_UTIL.convert_to_functional_currency l_return_status ='||l_return_status);
4910: END IF;
4911:
4912: -- Set some of the taiv rec attributes
4913: l_taiv_rec.currency_code := l_contract_currency_code;
5035: 'Process_Auto_Invoice.okl_internal_billing_pvt.create_billing_trx.',
5036: 'Start(+)');
5037: END IF;
5038: IF (is_debug_statement_on) THEN
5039: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling okl_internal_billing_pvt.create_billing_trx');
5040: END IF;
5041: okl_internal_billing_pvt.create_billing_trx(p_api_version => l_api_version,
5042: p_init_msg_list => p_init_msg_list,
5043: x_return_status => x_return_status,
5049: x_taiv_rec => lx_taiv_rec,
5050: x_tilv_tbl => lx_tilv_tbl,
5051: x_tldv_tbl => lx_tldv_tbl);
5052: IF (is_debug_statement_on) THEN
5053: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called okl_internal_billing_pvt.create_billing_trx x_return_status = '||x_return_status);
5054: END IF;
5055:
5056:
5057: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5225:
5226: x_return_status := l_return_status;
5227:
5228: IF (is_debug_procedure_on) THEN
5229: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
5230: END IF;
5231: EXCEPTION
5232:
5233: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5231: EXCEPTION
5232:
5233: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5234: IF (is_debug_exception_on) THEN
5235: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
5236: END IF;
5237:
5238: ROLLBACK TO auto_invoice;
5239:
5254: px_tcnv_rec => px_tcnv_rec);
5255:
5256: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5257: IF (is_debug_exception_on) THEN
5258: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
5259: END IF;
5260:
5261: ROLLBACK TO auto_invoice;
5262:
5277: px_tcnv_rec => px_tcnv_rec);
5278:
5279: WHEN OTHERS THEN
5280: IF (is_debug_exception_on) THEN
5281: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
5282: END IF;
5283:
5284: ROLLBACK TO auto_invoice;
5285:
5463: l_curr_code VARCHAR2(200);
5464: l_formatted_inv_amt VARCHAR2(200);
5465: -- asawanka added for debug feature start
5466: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_close_balances';
5467: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5468: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5469: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5470: -- asawanka added for debug feature end
5471: BEGIN
5464: l_formatted_inv_amt VARCHAR2(200);
5465: -- asawanka added for debug feature start
5466: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_close_balances';
5467: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5468: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5469: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5470: -- asawanka added for debug feature end
5471: BEGIN
5472: IF (is_debug_procedure_on) THEN
5465: -- asawanka added for debug feature start
5466: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_close_balances';
5467: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5468: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5469: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5470: -- asawanka added for debug feature end
5471: BEGIN
5472: IF (is_debug_procedure_on) THEN
5473: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
5469: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5470: -- asawanka added for debug feature end
5471: BEGIN
5472: IF (is_debug_procedure_on) THEN
5473: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
5474: END IF;
5475:
5476: ---
5477: --get the tolerance limit from profile
6135: x_return_status := l_return_status;
6136: x_adjv_rec := lx_adjv_rec;
6137: --x_ajlv_tbl := lx_ajlv_tbl;
6138: IF (is_debug_procedure_on) THEN
6139: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
6140: END IF;
6141: EXCEPTION
6142: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6143: IF (is_debug_exception_on) THEN
6140: END IF;
6141: EXCEPTION
6142: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6143: IF (is_debug_exception_on) THEN
6144: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
6145: END IF;
6146:
6147: IF k_balances_csr%ISOPEN THEN
6148: CLOSE k_balances_csr;
6179: px_tcnv_rec => px_tcnv_rec);
6180:
6181: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6182: IF (is_debug_exception_on) THEN
6183: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
6184: END IF;
6185:
6186: IF k_balances_csr%ISOPEN THEN
6187: CLOSE k_balances_csr;
6218: px_tcnv_rec => px_tcnv_rec);
6219:
6220: WHEN OTHERS THEN
6221: IF (is_debug_exception_on) THEN
6222: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
6223: END IF;
6224:
6225: IF k_balances_csr%ISOPEN THEN
6226: CLOSE k_balances_csr;
6619: m NUMBER;
6620: --akrangan sla single accounting call to ae uptake ends
6621: -- asawanka added for debug feature start
6622: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_accounting_entries';
6623: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
6624: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
6625: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
6626: -- asawanka added for debug feature end
6627:
6620: --akrangan sla single accounting call to ae uptake ends
6621: -- asawanka added for debug feature start
6622: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_accounting_entries';
6623: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
6624: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
6625: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
6626: -- asawanka added for debug feature end
6627:
6628: -- asahoo bug 13259692
6621: -- asawanka added for debug feature start
6622: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_accounting_entries';
6623: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
6624: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
6625: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
6626: -- asawanka added for debug feature end
6627:
6628: -- asahoo bug 13259692
6629: l_acc_period_name VARCHAR2(30);
6631: l_acc_period_end_date DATE;
6632:
6633: BEGIN
6634: IF (is_debug_procedure_on) THEN
6635: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
6636: END IF;
6637:
6638: -- Start savepoint for this block
6639: SAVEPOINT accounting_entries;
6663: RAISE okl_api.g_exception_error;
6664:
6665: END IF;
6666: IF (is_debug_statement_on) THEN
6667: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,' l_pdt_id = '||l_pdt_id);
6668: END IF;
6669: -- get the product type
6670: OPEN l_product_type_csr(l_pdt_id);
6671: FETCH l_product_type_csr
6734: -- Bug 2902876 Added to get the valid GL date
6735: l_valid_gl_date := okl_accounting_util.get_valid_gl_date(p_gl_date => l_quote_accpt_date); -- rmunjulu EDAT
6736:
6737: IF (is_debug_statement_on) THEN
6738: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_securitization_pvt.check_khr_ia_associated');
6739: END IF;
6740: -- rmunjulu 4622198 SPECIAL_ACCNT Get special accounting details
6741: okl_securitization_pvt.check_khr_ia_associated(p_api_version => p_api_version,
6742: p_init_msg_list => okl_api.g_false,
6748: p_trx_date => l_quote_accpt_date,
6749: x_fact_synd_code => l_fact_synd_code,
6750: x_inv_acct_code => l_inv_acct_code);
6751: IF (is_debug_statement_on) THEN
6752: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called okl_securitization_pvt.check_khr_ia_associated l_return_status = '||l_return_status);
6753: END IF;
6754:
6755: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
6756: THEN
6764: lip_tmpl_identify_rec.factoring_synd_flag := l_fact_synd_code;
6765: lip_tmpl_identify_rec.investor_code := l_inv_acct_code;
6766:
6767: IF (is_debug_statement_on) THEN
6768: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_account_dist_pub.get_template_info');
6769: END IF;
6770: -- Get the accounting templates
6771: okl_account_dist_pub.get_template_info(p_api_version => p_api_version,
6772: p_init_msg_list => okl_api.g_false,
6776: p_tmpl_identify_rec => lip_tmpl_identify_rec,
6777: x_template_tbl => lix_template_tbl,
6778: p_validity_date => l_valid_gl_date); -- Bug 2902876 Added to pass valid GL date
6779: IF (is_debug_statement_on) THEN
6780: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called okl_account_dist_pub.get_template_info l_return_status = '||l_return_status);
6781: END IF;
6782:
6783: IF l_return_status <> okl_api.g_ret_sts_success
6784: THEN
6811: THEN
6812: --akrangan Bug 6147049 code fix end
6813: -- Get the currency conversion details from ACCOUNTING_Util
6814: IF (is_debug_statement_on) THEN
6815: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_accounting_util.convert_to_functional_currency');
6816: END IF;
6817: okl_accounting_util.convert_to_functional_currency(
6818: p_khr_id => p_term_rec.p_contract_id,
6819: p_to_currency => l_functional_currency_code,
6826: x_currency_conversion_date => l_currency_conversion_date,
6827: x_converted_amount => l_converted_amount
6828: );
6829: IF (is_debug_statement_on) THEN
6830: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called okl_accounting_util.convert_to_functional_currency l_return_status = '||l_return_status);
6831: END IF;
6832: -- If error from OKL_ACCOUNTING_UTIL
6833: IF l_return_status <> okl_api.g_ret_sts_success
6834: THEN
6923: EXIT WHEN(i = lix_template_tbl.LAST);
6924: i := lix_template_tbl.NEXT(i);
6925: END LOOP;
6926: IF (is_debug_statement_on) THEN
6927: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_trx_contracts_pub.create_trx_cntrct_lines');
6928: END IF;
6929: --create trx contract lines table
6930: okl_trx_contracts_pub.create_trx_cntrct_lines(p_api_version => p_api_version,
6931: p_init_msg_list => okl_api.g_false,
6934: x_msg_data => x_msg_data,
6935: p_tclv_tbl => l_tclv_tbl,
6936: x_tclv_tbl => lx_tclv_tbl);
6937: IF (is_debug_statement_on) THEN
6938: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called okl_trx_contracts_pub.create_trx_cntrct_lines l_return_status = '||l_return_status);
6939: END IF;
6940:
6941: -- If error inserting line then set message
6942: IF l_return_status <> okl_api.g_ret_sts_success
6966: -- ******************************
6967: -- added code to set lp_acc_gen_primary_key_tbl
6968: -- for account generator
6969: IF (is_debug_statement_on) THEN
6970: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_acc_call_pvt.okl_populate_acc_gen');
6971: END IF;
6972: okl_acc_call_pvt.okl_populate_acc_gen(p_contract_id => p_term_rec.p_contract_id,
6973: p_contract_line_id => NULL,
6974: x_acc_gen_tbl => lp_acc_gen_primary_key_tbl,
6973: p_contract_line_id => NULL,
6974: x_acc_gen_tbl => lp_acc_gen_primary_key_tbl,
6975: x_return_status => l_return_status);
6976: IF (is_debug_statement_on) THEN
6977: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called okl_acc_call_pvt.okl_populate_acc_gen l_return_status = '||l_return_status);
6978: END IF;
6979: IF l_return_status <> okl_api.g_ret_sts_success
6980: THEN
6981: -- Error occurred when creating accounting entries for transaction TRX_TYPE.
7032: l_tcn_id := px_tcnv_rec.id;
7033: -- call accounting engine
7034: -- This will calculate the amount and generate accounting entries
7035: IF (is_debug_statement_on) THEN
7036: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_account_dist_pvt.create_accounting_dist');
7037: END IF;
7038: okl_account_dist_pvt.create_accounting_dist(p_api_version => p_api_version,
7039: p_init_msg_list => okl_api.g_false,
7040: x_return_status => l_return_status,
7047: x_template_tbl => l_template_out_tbl,
7048: x_amount_tbl => l_amount_out_tbl,
7049: p_trx_header_id => l_tcn_id);
7050: IF (is_debug_statement_on) THEN
7051: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called okl_account_dist_pvt.create_accounting_dist l_return_status = '||l_return_status);
7052: END IF;
7053:
7054: IF l_amount_out_tbl.COUNT = 0
7055: THEN
7149: END LOOP;
7150: END IF;
7151: --call the api to update trx contracts hdr and lines
7152: IF (is_debug_statement_on) THEN
7153: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_trx_contracts_pub.update_trx_contracts');
7154: END IF;
7155: okl_trx_contracts_pub.update_trx_contracts(p_api_version => p_api_version,
7156: p_init_msg_list => okl_api.g_false,
7157: x_return_status => l_return_status,
7162: x_tcnv_rec => lix_tcnv_rec,
7163: x_tclv_tbl => lx_tclv_tbl);
7164: --handle exception
7165: IF (is_debug_statement_on) THEN
7166: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called okl_trx_contracts_pub.update_trx_contracts l_return_status = '||l_return_status);
7167: END IF;
7168: IF l_return_status <> okl_api.g_ret_sts_success
7169: THEN
7170: -- Error occurred when creating accounting entries for transaction TRX_TYPE.
7254: END IF;
7255: -- fix for bug -- 5623356 --
7256: -- rmunjulu EDAT call reversal of accruals to reverse accruals from quote eff date
7257: IF (is_debug_statement_on) THEN
7258: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_generate_accruals_pub.reverse_accruals');
7259: END IF;
7260: okl_generate_accruals_pub.reverse_accruals(p_api_version => p_api_version,
7261: p_init_msg_list => okl_api.g_false,
7262: x_return_status => l_return_status,
7268: p_reverse_from => l_reverse_from, -- Date from when accruals need to be reversed - Mandatory -- rmunjulu bug 4507662
7269: p_reverse_to => l_empty_reverse_to_date, -- No value needs to be passed to this
7270: p_tcn_type => l_empty_tcn_type); -- No value needs to be passed to this
7271: IF (is_debug_statement_on) THEN
7272: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called okl_generate_accruals_pub.reverse_accruals l_return_status = '||l_return_status);
7273: END IF;
7274: IF l_return_status <> okl_api.g_ret_sts_success
7275: THEN
7276:
7350: l_catchup_rec.gl_reversal_flag := g_no;
7351: l_catchup_rec.memo_yn := g_no;
7352: l_catchup_rec.description := 'Catchup of income on termination of the contract';
7353: IF (is_debug_statement_on) THEN
7354: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_generate_accruals_pub.catchup_accruals');
7355: END IF;
7356: okl_generate_accruals_pub.catchup_accruals(p_api_version => p_api_version,
7357: p_init_msg_list => okl_api.g_false,
7358: x_return_status => l_return_status,
7361: p_catchup_rec => l_catchup_rec,
7362: x_tcnv_tbl => lx_tcnv_tbl,
7363: x_tclv_tbl => lx_tclv_tbl);
7364: IF (is_debug_statement_on) THEN
7365: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called okl_generate_accruals_pub.catchup_accruals l_return_status = '||l_return_status);
7366: END IF;
7367: IF l_return_status <> okl_api.g_ret_sts_success
7368: THEN
7369:
7400: l_catchup_rec.product_id := l_reporting_pdt_id;
7401: l_catchup_rec.accrual_date := l_valid_gl_date_rep;
7402:
7403: IF (is_debug_statement_on) THEN
7404: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_generate_accruals_pub.catchup_accruals for SECONDARY');
7405: END IF;
7406: okl_generate_accruals_pub.catchup_accruals(p_api_version => p_api_version,
7407: p_init_msg_list => okl_api.g_false,
7408: x_return_status => l_return_status,
7412: x_tcnv_tbl => lx_tcnv_tbl,
7413: x_tclv_tbl => lx_tclv_tbl,
7414: p_representation_type => 'SECONDARY');
7415: IF (is_debug_statement_on) THEN
7416: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called okl_generate_accruals_pub.catchup_accruals for SECONDARY l_return_status = '||l_return_status);
7417: END IF;
7418: IF l_return_status <> okl_api.g_ret_sts_success
7419: THEN
7420:
7450:
7451: -- RMUNJULU 3097068 Added code to set the reversal date with valid GL date
7452: l_lprv_rec.reversal_date := l_valid_gl_date;
7453: IF (is_debug_statement_on) THEN
7454: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called okl_rev_loss_prov_pub.reverse_loss_provisions');
7455: END IF;
7456: okl_rev_loss_prov_pub.reverse_loss_provisions(p_api_version => p_api_version,
7457: p_init_msg_list => okl_api.g_false,
7458: x_return_status => l_return_status,
7459: x_msg_count => x_msg_count,
7460: x_msg_data => x_msg_data,
7461: p_lprv_rec => l_lprv_rec);
7462: IF (is_debug_statement_on) THEN
7463: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called okl_rev_loss_prov_pub.reverse_loss_provisions l_return_status = '||l_return_status);
7464: END IF;
7465: IF l_return_status <> okl_api.g_ret_sts_success
7466: THEN
7467:
7663:
7664: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
7665:
7666: IF (is_debug_statement_on) THEN
7667: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals , return status : ' || l_return_status);
7668: END IF;
7669:
7670: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7671: THEN
7686:
7687: --Bug# 3999921: pagarg +++ T and A +++++++ Start ++++++++++
7688: END IF; -- p_term_rec.p_quote_type <> 'TER_RELEASE_WO_PURCHASE'
7689: IF (is_debug_statement_on) THEN
7690: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_am_lease_loan_trmnt_pvt.process_adjustments');
7691: END IF;
7692: okl_am_lease_loan_trmnt_pvt.process_adjustments(p_api_version => p_api_version,
7693: p_init_msg_list => okl_api.g_false,
7694: x_return_status => l_return_status,
7698: p_tcnv_rec => px_tcnv_rec, -- rmunjulu TNA Added since trn_id is needed
7699: p_call_origin => 'FULL',
7700: p_termination_date => p_sys_date);
7701: IF (is_debug_statement_on) THEN
7702: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called okl_am_lease_loan_trmnt_pvt.process_adjustments l_return_status = '||l_return_status);
7703: END IF;
7704:
7705: IF (is_debug_statement_on) THEN
7706: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_am_lease_loan_trmnt_pvt.process_adjustments');
7702: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called okl_am_lease_loan_trmnt_pvt.process_adjustments l_return_status = '||l_return_status);
7703: END IF;
7704:
7705: IF (is_debug_statement_on) THEN
7706: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_am_lease_loan_trmnt_pvt.process_adjustments');
7707: END IF;
7708: --Bug# 3999921: pagarg +++ T and A +++++++ End ++++++++++
7709:
7710: -- End MDOKAL Bug 3061765
7718: p_term_rec => p_term_rec,
7719: p_call_origin => NULL,
7720: p_termination_date => p_sys_date);
7721: IF (is_debug_statement_on) THEN
7722: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called okl_am_lease_loan_trmnt_pvt.process_adjustments l_return_status = '||l_return_status);
7723: END IF;
7724: IF l_return_status <> okl_api.g_ret_sts_success
7725: THEN
7726:
7737: END IF;
7738: -- Smoduga
7739: -- Call to Process discount and Subsidy during acceptance of a termination quote
7740: IF (is_debug_statement_on) THEN
7741: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_am_lease_loan_trmnt_pvt.process_loan_refunds');
7742: END IF;
7743: -- rmunjulu LOANS_ENHANCEMENTS Call to refund excess loan payments
7744: okl_am_lease_loan_trmnt_pvt.process_loan_refunds(p_api_version => p_api_version,
7745: p_init_msg_list => okl_api.g_false,
7750: p_tcnv_rec => px_tcnv_rec,
7751: p_call_origin => 'FULL',
7752: p_termination_date => p_sys_date);
7753: IF (is_debug_statement_on) THEN
7754: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called okl_am_lease_loan_trmnt_pvt.process_loan_refunds l_return_status = '||l_return_status);
7755: END IF;
7756: IF l_return_status <> okl_api.g_ret_sts_success
7757: THEN
7758:
7814: END IF;
7815:
7816: x_return_status := l_return_status;
7817: IF (is_debug_procedure_on) THEN
7818: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
7819: END IF;
7820: EXCEPTION
7821:
7822: WHEN okl_api.g_exception_error THEN
7820: EXCEPTION
7821:
7822: WHEN okl_api.g_exception_error THEN
7823: IF (is_debug_exception_on) THEN
7824: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
7825: END IF;
7826:
7827: -- mdokal bug 3061765
7828: IF get_accel_till_csr%ISOPEN
7879: px_tcnv_rec => px_tcnv_rec);
7880:
7881: WHEN okl_api.g_exception_unexpected_error THEN
7882: IF (is_debug_exception_on) THEN
7883: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
7884: END IF;
7885:
7886:
7887: -- mdokal bug 3061765
7939: px_tcnv_rec => px_tcnv_rec);
7940:
7941: WHEN OTHERS THEN
7942: IF (is_debug_exception_on) THEN
7943: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
7944: END IF;
7945:
7946: -- mdokal bug 3061765
7947: IF get_accel_till_csr%ISOPEN
8147: x_txdv_rec adpv_rec_type;
8148: l_line_detail_number NUMBER := 1;
8149: -- asawanka added for debug feature start
8150: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'Create_Repo_asset';
8151: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
8152: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
8153: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
8154: -- asawanka added for debug feature end
8155: BEGIN
8148: l_line_detail_number NUMBER := 1;
8149: -- asawanka added for debug feature start
8150: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'Create_Repo_asset';
8151: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
8152: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
8153: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
8154: -- asawanka added for debug feature end
8155: BEGIN
8156: IF (is_debug_procedure_on) THEN
8149: -- asawanka added for debug feature start
8150: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'Create_Repo_asset';
8151: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
8152: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
8153: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
8154: -- asawanka added for debug feature end
8155: BEGIN
8156: IF (is_debug_procedure_on) THEN
8157: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
8153: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
8154: -- asawanka added for debug feature end
8155: BEGIN
8156: IF (is_debug_procedure_on) THEN
8157: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
8158: END IF;
8159:
8160: x_return_status := OKL_API.START_ACTIVITY (
8161: l_api_name
8168: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8169: RAISE OKL_API.G_EXCEPTION_ERROR;
8170: END IF;
8171: IF (is_debug_statement_on) THEN
8172: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_khr_id = '||p_khr_id);
8173: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_kle_id = '||p_kle_id);
8174: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_corporate_book = '||p_corporate_book);
8175: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_1 = '||p_tax_book_1);
8176: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_2 = '||p_tax_book_2);
8169: RAISE OKL_API.G_EXCEPTION_ERROR;
8170: END IF;
8171: IF (is_debug_statement_on) THEN
8172: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_khr_id = '||p_khr_id);
8173: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_kle_id = '||p_kle_id);
8174: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_corporate_book = '||p_corporate_book);
8175: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_1 = '||p_tax_book_1);
8176: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_2 = '||p_tax_book_2);
8177: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_rep_book = '||p_rep_book);
8170: END IF;
8171: IF (is_debug_statement_on) THEN
8172: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_khr_id = '||p_khr_id);
8173: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_kle_id = '||p_kle_id);
8174: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_corporate_book = '||p_corporate_book);
8175: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_1 = '||p_tax_book_1);
8176: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_2 = '||p_tax_book_2);
8177: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_rep_book = '||p_rep_book);
8178: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_fa_location_id = '||p_fa_location_id);
8171: IF (is_debug_statement_on) THEN
8172: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_khr_id = '||p_khr_id);
8173: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_kle_id = '||p_kle_id);
8174: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_corporate_book = '||p_corporate_book);
8175: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_1 = '||p_tax_book_1);
8176: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_2 = '||p_tax_book_2);
8177: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_rep_book = '||p_rep_book);
8178: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_fa_location_id = '||p_fa_location_id);
8179: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_asset_key_id = '||p_asset_key_id);
8172: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_khr_id = '||p_khr_id);
8173: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_kle_id = '||p_kle_id);
8174: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_corporate_book = '||p_corporate_book);
8175: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_1 = '||p_tax_book_1);
8176: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_2 = '||p_tax_book_2);
8177: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_rep_book = '||p_rep_book);
8178: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_fa_location_id = '||p_fa_location_id);
8179: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_asset_key_id = '||p_asset_key_id);
8180: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_depreciate_yn = '||p_depreciate_yn);
8173: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_kle_id = '||p_kle_id);
8174: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_corporate_book = '||p_corporate_book);
8175: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_1 = '||p_tax_book_1);
8176: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_2 = '||p_tax_book_2);
8177: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_rep_book = '||p_rep_book);
8178: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_fa_location_id = '||p_fa_location_id);
8179: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_asset_key_id = '||p_asset_key_id);
8180: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_depreciate_yn = '||p_depreciate_yn);
8181: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tas_id = '||p_tas_id);
8174: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_corporate_book = '||p_corporate_book);
8175: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_1 = '||p_tax_book_1);
8176: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_2 = '||p_tax_book_2);
8177: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_rep_book = '||p_rep_book);
8178: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_fa_location_id = '||p_fa_location_id);
8179: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_asset_key_id = '||p_asset_key_id);
8180: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_depreciate_yn = '||p_depreciate_yn);
8181: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tas_id = '||p_tas_id);
8182: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_line_number = '||p_line_number);
8175: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_1 = '||p_tax_book_1);
8176: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_2 = '||p_tax_book_2);
8177: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_rep_book = '||p_rep_book);
8178: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_fa_location_id = '||p_fa_location_id);
8179: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_asset_key_id = '||p_asset_key_id);
8180: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_depreciate_yn = '||p_depreciate_yn);
8181: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tas_id = '||p_tas_id);
8182: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_line_number = '||p_line_number);
8183: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_quote_id = '||p_quote_id);
8176: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_2 = '||p_tax_book_2);
8177: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_rep_book = '||p_rep_book);
8178: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_fa_location_id = '||p_fa_location_id);
8179: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_asset_key_id = '||p_asset_key_id);
8180: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_depreciate_yn = '||p_depreciate_yn);
8181: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tas_id = '||p_tas_id);
8182: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_line_number = '||p_line_number);
8183: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_quote_id = '||p_quote_id);
8184: END IF;
8177: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_rep_book = '||p_rep_book);
8178: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_fa_location_id = '||p_fa_location_id);
8179: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_asset_key_id = '||p_asset_key_id);
8180: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_depreciate_yn = '||p_depreciate_yn);
8181: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tas_id = '||p_tas_id);
8182: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_line_number = '||p_line_number);
8183: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_quote_id = '||p_quote_id);
8184: END IF;
8185: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8178: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_fa_location_id = '||p_fa_location_id);
8179: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_asset_key_id = '||p_asset_key_id);
8180: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_depreciate_yn = '||p_depreciate_yn);
8181: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tas_id = '||p_tas_id);
8182: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_line_number = '||p_line_number);
8183: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_quote_id = '||p_quote_id);
8184: END IF;
8185: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8186:
8179: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_asset_key_id = '||p_asset_key_id);
8180: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_depreciate_yn = '||p_depreciate_yn);
8181: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tas_id = '||p_tas_id);
8182: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_line_number = '||p_line_number);
8183: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_quote_id = '||p_quote_id);
8184: END IF;
8185: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8186:
8187: OPEN l_sub_line_csr(p_chr_id => p_khr_id,
8241: l_asset_hdr_rec.asset_id := l_asset_id;
8242: l_asset_hdr_rec.book_type_code :=p_rep_book;
8243: END IF;
8244:
8245: okl_debug_pub.logmessage('AKP:l_counter=' || l_counter || ' book=' || l_asset_hdr_rec.book_type_code);
8246: l_asset_hdr_rec.set_of_books_id :=l_set_of_books_id;
8247:
8248: l_asset_desc_rec.asset_number := l_asset_description.NAME;
8249: l_asset_desc_rec.description := l_asset_description.ITEM_DESCRIPTION;
8280:
8281: l_asset_fin_rec.cost := l_oec;
8282: l_asset_fin_rec.original_cost := l_oec;
8283: IF (is_debug_statement_on) THEN
8284: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling fa_addition_pub.do_addition');
8285: END IF;
8286: fa_addition_pub.do_addition
8287: (p_api_version => l_api_version,
8288: p_init_msg_list => OKL_API.G_FALSE,
8304: px_asset_dist_tbl => l_asset_dist_tbl,
8305: px_inv_tbl => l_inv_tbl
8306: );
8307: IF (is_debug_statement_on) THEN
8308: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called fa_addition_pub.do_addition x_return_status = '||x_return_status);
8309: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_asset_hdr_rec.asset_id = '||l_asset_hdr_rec.asset_id);
8310: END IF;
8311:
8312: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8305: px_inv_tbl => l_inv_tbl
8306: );
8307: IF (is_debug_statement_on) THEN
8308: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called fa_addition_pub.do_addition x_return_status = '||x_return_status);
8309: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_asset_hdr_rec.asset_id = '||l_asset_hdr_rec.asset_id);
8310: END IF;
8311:
8312: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8313: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8327: l_cim_rec.id := l_cim_asset_id.ID;
8328: l_cim_rec.object1_id1 := to_char(l_asset_id);
8329: l_cim_rec.object1_id2 := '#';
8330: IF (is_debug_statement_on) THEN
8331: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling okl_okc_migration_pvt.update_contract_item');
8332: END IF;
8333:
8334: okl_okc_migration_pvt.update_contract_item(
8335: p_api_version => 1.0,
8339: x_msg_data =>x_msg_data,
8340: p_cimv_rec =>l_cim_rec,
8341: x_cimv_rec =>x_cim_rec);
8342: IF (is_debug_statement_on) THEN
8343: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called okl_okc_migration_pvt.update_contract_item x_return_status = '||x_return_status);
8344: END IF;
8345:
8346: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8347: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8361: l_talv_rec.year_manufactured := l_model_line_rec.year_of_manufacture;
8362: l_talv_rec.Depreciation_Cost := l_oec;
8363: l_talv_rec.kle_id := p_kle_id;
8364: IF (is_debug_statement_on) THEN
8365: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_TXL_ASSETS_PUB.create_txl_asset_def');
8366: END IF;
8367: OKL_TXL_ASSETS_PUB.create_txl_asset_def(
8368: p_api_version => 1,
8369: p_init_msg_list => p_init_msg_list,
8372: x_msg_data => x_msg_data,
8373: p_tlpv_rec => l_talv_rec,
8374: x_tlpv_rec => x_talv_rec);
8375: IF (is_debug_statement_on) THEN
8376: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called OKL_TXL_ASSETS_PUB.create_txl_asset_def x_return_status = '||x_return_status);
8377: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_talv_rec.ID = '||x_talv_rec.ID);
8378: END IF;
8379:
8380: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8373: p_tlpv_rec => l_talv_rec,
8374: x_tlpv_rec => x_talv_rec);
8375: IF (is_debug_statement_on) THEN
8376: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called OKL_TXL_ASSETS_PUB.create_txl_asset_def x_return_status = '||x_return_status);
8377: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_talv_rec.ID = '||x_talv_rec.ID);
8378: END IF;
8379:
8380: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8381: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8386: END IF;
8387:
8388: IF (l_counter > 1) THEN
8389: IF (is_debug_statement_on) THEN
8390: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Before opening c_get_fa_books l_asset_hdr_rec.book_type_code = '||l_asset_hdr_rec.book_type_code);
8391: END IF;
8392:
8393: OPEN c_get_fa_books(l_asset_hdr_rec.book_type_code, l_asset_id);
8394: FETCH c_get_fa_books INTO l_get_fa_books;
8393: OPEN c_get_fa_books(l_asset_hdr_rec.book_type_code, l_asset_id);
8394: FETCH c_get_fa_books INTO l_get_fa_books;
8395: IF c_get_fa_books%NOTFOUND THEN
8396: IF (is_debug_statement_on) THEN
8397: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'No Data Found in Cursor c_get_fa_books');
8398: END IF;
8399: CLOSE c_get_fa_books;
8400: ELSE
8401: l_txdv_rec.OBJECT_VERSION_NUMBER := 1;
8417:
8418: CLOSE c_get_fa_books;
8419:
8420: IF (is_debug_statement_on) THEN
8421: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_TXD_ASSETS_PUB.create_txd_asset_def');
8422: END IF;
8423:
8424: OKL_TXD_ASSETS_PUB.create_txd_asset_def(
8425: p_api_version => 1,
8429: x_msg_data => x_msg_data,
8430: p_adpv_rec => l_txdv_rec,
8431: x_adpv_rec => x_txdv_rec);
8432: IF (is_debug_statement_on) THEN
8433: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called OKL_TXD_ASSETS_PUB.create_txd_asset_def x_return_status = '||x_return_status);
8434: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_txdv_rec.ID = '||x_txdv_rec.ID);
8435: END IF;
8436: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8437: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8430: p_adpv_rec => l_txdv_rec,
8431: x_adpv_rec => x_txdv_rec);
8432: IF (is_debug_statement_on) THEN
8433: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called OKL_TXD_ASSETS_PUB.create_txd_asset_def x_return_status = '||x_return_status);
8434: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_txdv_rec.ID = '||x_txdv_rec.ID);
8435: END IF;
8436: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8437: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8438: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8447: END LOOP;
8448:
8449: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data );
8450: IF (is_debug_procedure_on) THEN
8451: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
8452: END IF;
8453: EXCEPTION
8454: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8455: IF (is_debug_exception_on) THEN
8452: END IF;
8453: EXCEPTION
8454: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8455: IF (is_debug_exception_on) THEN
8456: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
8457: END IF;
8458:
8459: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8460: l_api_name,
8464: x_msg_data,
8465: '_PVT');
8466: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8467: IF (is_debug_exception_on) THEN
8468: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
8469: END IF;
8470:
8471: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8472: l_api_name,
8476: x_msg_data,
8477: '_PVT');
8478: WHEN OTHERS THEN
8479: IF (is_debug_exception_on) THEN
8480: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
8481: END IF;
8482:
8483: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8484: l_api_name,
8759: l_line_type VARCHAR2(1);
8760:
8761: -- asawanka added for debug feature start
8762: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'Create_Repo_asset';
8763: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
8764: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
8765: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
8766: -- asawanka added for debug feature end
8767:
8760:
8761: -- asawanka added for debug feature start
8762: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'Create_Repo_asset';
8763: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
8764: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
8765: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
8766: -- asawanka added for debug feature end
8767:
8768: BEGIN
8761: -- asawanka added for debug feature start
8762: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'Create_Repo_asset';
8763: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
8764: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
8765: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
8766: -- asawanka added for debug feature end
8767:
8768: BEGIN
8769:
8767:
8768: BEGIN
8769:
8770: IF (is_debug_procedure_on) THEN
8771: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
8772: END IF;
8773: x_return_status := OKL_API.START_ACTIVITY (
8774: l_api_name
8775: ,p_init_msg_list
8782: RAISE OKL_API.G_EXCEPTION_ERROR;
8783: END IF;
8784:
8785: IF (is_debug_statement_on) THEN
8786: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_khr_id = '||p_khr_id);
8787: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_kle_id = '||p_kle_id);
8788: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_corporate_book = '||p_corporate_book);
8789: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_1 = '||p_tax_book_1);
8790: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_2 = '||p_tax_book_2);
8783: END IF;
8784:
8785: IF (is_debug_statement_on) THEN
8786: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_khr_id = '||p_khr_id);
8787: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_kle_id = '||p_kle_id);
8788: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_corporate_book = '||p_corporate_book);
8789: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_1 = '||p_tax_book_1);
8790: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_2 = '||p_tax_book_2);
8791: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_rep_book = '||p_rep_book);
8784:
8785: IF (is_debug_statement_on) THEN
8786: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_khr_id = '||p_khr_id);
8787: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_kle_id = '||p_kle_id);
8788: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_corporate_book = '||p_corporate_book);
8789: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_1 = '||p_tax_book_1);
8790: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_2 = '||p_tax_book_2);
8791: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_rep_book = '||p_rep_book);
8792: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_fa_location_id = '||p_fa_location_id);
8785: IF (is_debug_statement_on) THEN
8786: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_khr_id = '||p_khr_id);
8787: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_kle_id = '||p_kle_id);
8788: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_corporate_book = '||p_corporate_book);
8789: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_1 = '||p_tax_book_1);
8790: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_2 = '||p_tax_book_2);
8791: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_rep_book = '||p_rep_book);
8792: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_fa_location_id = '||p_fa_location_id);
8793: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_asset_key_id = '||p_asset_key_id);
8786: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_khr_id = '||p_khr_id);
8787: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_kle_id = '||p_kle_id);
8788: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_corporate_book = '||p_corporate_book);
8789: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_1 = '||p_tax_book_1);
8790: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_2 = '||p_tax_book_2);
8791: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_rep_book = '||p_rep_book);
8792: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_fa_location_id = '||p_fa_location_id);
8793: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_asset_key_id = '||p_asset_key_id);
8794: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_depreciate_yn = '||p_depreciate_yn);
8787: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_kle_id = '||p_kle_id);
8788: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_corporate_book = '||p_corporate_book);
8789: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_1 = '||p_tax_book_1);
8790: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_2 = '||p_tax_book_2);
8791: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_rep_book = '||p_rep_book);
8792: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_fa_location_id = '||p_fa_location_id);
8793: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_asset_key_id = '||p_asset_key_id);
8794: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_depreciate_yn = '||p_depreciate_yn);
8795: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tas_id = '||p_tas_id);
8788: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_corporate_book = '||p_corporate_book);
8789: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_1 = '||p_tax_book_1);
8790: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_2 = '||p_tax_book_2);
8791: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_rep_book = '||p_rep_book);
8792: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_fa_location_id = '||p_fa_location_id);
8793: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_asset_key_id = '||p_asset_key_id);
8794: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_depreciate_yn = '||p_depreciate_yn);
8795: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tas_id = '||p_tas_id);
8796: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_line_number = '||p_line_number);
8789: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_1 = '||p_tax_book_1);
8790: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_2 = '||p_tax_book_2);
8791: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_rep_book = '||p_rep_book);
8792: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_fa_location_id = '||p_fa_location_id);
8793: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_asset_key_id = '||p_asset_key_id);
8794: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_depreciate_yn = '||p_depreciate_yn);
8795: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tas_id = '||p_tas_id);
8796: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_line_number = '||p_line_number);
8797: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_quote_id = '||p_quote_id);
8790: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_2 = '||p_tax_book_2);
8791: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_rep_book = '||p_rep_book);
8792: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_fa_location_id = '||p_fa_location_id);
8793: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_asset_key_id = '||p_asset_key_id);
8794: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_depreciate_yn = '||p_depreciate_yn);
8795: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tas_id = '||p_tas_id);
8796: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_line_number = '||p_line_number);
8797: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_quote_id = '||p_quote_id);
8798: END IF;
8791: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_rep_book = '||p_rep_book);
8792: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_fa_location_id = '||p_fa_location_id);
8793: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_asset_key_id = '||p_asset_key_id);
8794: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_depreciate_yn = '||p_depreciate_yn);
8795: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tas_id = '||p_tas_id);
8796: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_line_number = '||p_line_number);
8797: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_quote_id = '||p_quote_id);
8798: END IF;
8799: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8792: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_fa_location_id = '||p_fa_location_id);
8793: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_asset_key_id = '||p_asset_key_id);
8794: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_depreciate_yn = '||p_depreciate_yn);
8795: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tas_id = '||p_tas_id);
8796: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_line_number = '||p_line_number);
8797: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_quote_id = '||p_quote_id);
8798: END IF;
8799: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8800:
8793: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_asset_key_id = '||p_asset_key_id);
8794: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_depreciate_yn = '||p_depreciate_yn);
8795: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tas_id = '||p_tas_id);
8796: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_line_number = '||p_line_number);
8797: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_quote_id = '||p_quote_id);
8798: END IF;
8799: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8800:
8801: OPEN l_sub_line_csr(p_chr_id => p_khr_id,
8894: l_asset_fin_rec.cost := l_oec;
8895: l_asset_fin_rec.original_cost := l_oec;
8896:
8897: IF (is_debug_statement_on) THEN
8898: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling fa_addition_pub.do_addition');
8899: END IF;
8900:
8901: fa_addition_pub.do_addition
8902: (p_api_version => l_api_version,
8920: px_inv_tbl => l_inv_tbl
8921: );
8922:
8923: IF (is_debug_statement_on) THEN
8924: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called fa_addition_pub.do_addition x_return_status = '||x_return_status);
8925: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_asset_hdr_rec.asset_id = '||l_asset_hdr_rec.asset_id);
8926: END IF;
8927:
8928: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8921: );
8922:
8923: IF (is_debug_statement_on) THEN
8924: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called fa_addition_pub.do_addition x_return_status = '||x_return_status);
8925: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_asset_hdr_rec.asset_id = '||l_asset_hdr_rec.asset_id);
8926: END IF;
8927:
8928: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8929: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8932: END IF;
8933:
8934:
8935: l_asset_id := l_asset_hdr_rec.asset_id;
8936: okl_debug_pub.logmessage('AKP:After do_addition: x_return_status=' || x_return_status || ' l_asset_id=' || l_asset_id);
8937:
8938: IF (l_counter =1) THEN
8939: OPEN c_cim_asset_id(p_kle_id);
8940: FETCH c_cim_asset_id INTO l_cim_asset_id;
8944: l_cim_rec.object1_id1 := to_char(l_asset_id);
8945: l_cim_rec.object1_id2 := '#';
8946:
8947: IF (is_debug_statement_on) THEN
8948: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling okl_okc_migration_pvt.update_contract_item');
8949: END IF;
8950:
8951: okl_okc_migration_pvt.update_contract_item(
8952: p_api_version => 1.0,
8957: p_cimv_rec =>l_cim_rec,
8958: x_cimv_rec =>x_cim_rec);
8959:
8960: IF (is_debug_statement_on) THEN
8961: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called okl_okc_migration_pvt.update_contract_item x_return_status = '||x_return_status);
8962: END IF;
8963:
8964: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8965: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8966: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8967: RAISE OKL_API.G_EXCEPTION_ERROR;
8968: END IF;
8969:
8970: okl_debug_pub.logmessage('AKP:After update_item: x_return_status=' || x_return_status || ' x_cim_rec.object1_id1=' || x_cim_rec.object1_id1);
8971:
8972: -- Now create 'Internal Asset Creation' transaction lines
8973:
8974: l_talv_rec.tal_type := G_TRANS_TYPE;
8987: l_talv_rec.depreciate_yn := 'Y';
8988: END IF;
8989:
8990: IF (is_debug_statement_on) THEN
8991: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_TXL_ASSETS_PUB.create_txl_asset_def');
8992: END IF;
8993:
8994: OKL_TXL_ASSETS_PUB.create_txl_asset_def(
8995: p_api_version => 1,
9000: p_tlpv_rec => l_talv_rec,
9001: x_tlpv_rec => x_talv_rec);
9002:
9003: IF (is_debug_statement_on) THEN
9004: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called OKL_TXL_ASSETS_PUB.create_txl_asset_def x_return_status = '||x_return_status);
9005: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_talv_rec.ID = '||x_talv_rec.ID);
9006: END IF;
9007:
9008: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9001: x_tlpv_rec => x_talv_rec);
9002:
9003: IF (is_debug_statement_on) THEN
9004: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called OKL_TXL_ASSETS_PUB.create_txl_asset_def x_return_status = '||x_return_status);
9005: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_talv_rec.ID = '||x_talv_rec.ID);
9006: END IF;
9007:
9008: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9009: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9009: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9010: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9011: RAISE OKL_API.G_EXCEPTION_ERROR;
9012: END IF;
9013: okl_debug_pub.logmessage('AKP:x_return_status=' || x_return_status || 'x_talv_rec.ID=' || x_talv_rec.ID);
9014:
9015: --rkuttiya added for passing the line id to populate sources
9016: l_tal_tld_id := x_talv_rec.id;
9017: l_line_type := 'L';
9020: END IF;
9021:
9022: IF (l_counter > 1) THEN
9023: IF (is_debug_statement_on) THEN
9024: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Before opening c_get_fa_books l_asset_hdr_rec.book_type_code = '||l_asset_hdr_rec.book_type_code);
9025: END IF;
9026: okl_debug_pub.logmessage('AKP:Before open c_get_fa_books');
9027: OPEN c_get_fa_books(l_asset_hdr_rec.book_type_code, l_asset_id);
9028: FETCH c_get_fa_books INTO l_get_fa_books;
9022: IF (l_counter > 1) THEN
9023: IF (is_debug_statement_on) THEN
9024: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Before opening c_get_fa_books l_asset_hdr_rec.book_type_code = '||l_asset_hdr_rec.book_type_code);
9025: END IF;
9026: okl_debug_pub.logmessage('AKP:Before open c_get_fa_books');
9027: OPEN c_get_fa_books(l_asset_hdr_rec.book_type_code, l_asset_id);
9028: FETCH c_get_fa_books INTO l_get_fa_books;
9029: okl_debug_pub.logmessage('AKP:After fetch c_get_fa_books');
9030: IF c_get_fa_books%NOTFOUND THEN
9025: END IF;
9026: okl_debug_pub.logmessage('AKP:Before open c_get_fa_books');
9027: OPEN c_get_fa_books(l_asset_hdr_rec.book_type_code, l_asset_id);
9028: FETCH c_get_fa_books INTO l_get_fa_books;
9029: okl_debug_pub.logmessage('AKP:After fetch c_get_fa_books');
9030: IF c_get_fa_books%NOTFOUND THEN
9031: CLOSE c_get_fa_books;
9032: ELSE
9033: l_txdv_rec.OBJECT_VERSION_NUMBER := 1;
9049:
9050: CLOSE c_get_fa_books;
9051:
9052: IF (is_debug_statement_on) THEN
9053: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_TXD_ASSETS_PUB.create_txd_asset_def');
9054: END IF;
9055:
9056: OKL_TXD_ASSETS_PUB.create_txd_asset_def(
9057: p_api_version => 1,
9062: p_adpv_rec => l_txdv_rec,
9063: x_adpv_rec => x_txdv_rec);
9064:
9065: IF (is_debug_statement_on) THEN
9066: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called OKL_TXD_ASSETS_PUB.create_txd_asset_def x_return_status = '||x_return_status);
9067: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_txdv_rec.ID = '||x_txdv_rec.ID);
9068: END IF;
9069: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9070: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9063: x_adpv_rec => x_txdv_rec);
9064:
9065: IF (is_debug_statement_on) THEN
9066: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called OKL_TXD_ASSETS_PUB.create_txd_asset_def x_return_status = '||x_return_status);
9067: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_txdv_rec.ID = '||x_txdv_rec.ID);
9068: END IF;
9069: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9070: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9071: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9071: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9072: RAISE OKL_API.G_EXCEPTION_ERROR;
9073: END IF;
9074:
9075: okl_debug_pub.logmessage('AKP:x_return_status=' || x_return_status || 'x_txdv_rec.ID=' || x_txdv_rec.ID);
9076:
9077: l_line_detail_number := l_line_detail_number + 1;
9078:
9079: --added by rkuttiya for populate sources
9105: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9106: RAISE OKL_API.G_EXCEPTION_ERROR;
9107: END IF;
9108:
9109: okl_debug_pub.logmessage('RK:x_return_status after populate sources' || x_return_status );
9110:
9111:
9112: /* okl_debug_pub.logmessage('RK:Before calling FA Adjustment to delink the contract id..');
9113: --CALL TO FA_ADJUSTMENT PUB to delink the contract id
9108:
9109: okl_debug_pub.logmessage('RK:x_return_status after populate sources' || x_return_status );
9110:
9111:
9112: /* okl_debug_pub.logmessage('RK:Before calling FA Adjustment to delink the contract id..');
9113: --CALL TO FA_ADJUSTMENT PUB to delink the contract id
9114: l_trans_rec := l_trans_empty_rec;
9115:
9116: l_trans_rec.transaction_subtype := 'AMORTIZE';
9143: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9144: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9145: RAISE OKL_API.G_EXCEPTION_ERROR;
9146: END IF;
9147: okl_debug_pub.logmessage('RK:Return Status after calling FA Adjustment API'|| x_return_status); */
9148:
9149:
9150: END IF;
9151:
9159:
9160:
9161: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data );
9162: IF (is_debug_procedure_on) THEN
9163: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
9164: END IF;
9165:
9166: EXCEPTION
9167: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9165:
9166: EXCEPTION
9167: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9168: IF (is_debug_exception_on) THEN
9169: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
9170: END IF;
9171:
9172: OKL_API.set_message( p_app_name => 'OKL',
9173: p_msg_name => 'OKL_AM_ASSET_CR_FAIL',
9182: x_msg_data,
9183: '_PVT');
9184: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9185: IF (is_debug_exception_on) THEN
9186: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
9187: END IF;
9188:
9189: OKL_API.set_message( p_app_name => 'OKL',
9190: p_msg_name => 'OKL_AM_ASSET_CR_FAIL',
9199: x_msg_data,
9200: '_PVT');
9201: WHEN OTHERS THEN
9202: IF (is_debug_exception_on) THEN
9203: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
9204: END IF;
9205:
9206: OKL_API.set_message( p_app_name => 'OKL',
9207: p_msg_name => 'OKL_AM_ASSET_CR_FAIL',
9354:
9355: -- Bug 6674730 end
9356: -- asawanka added for debug feature start
9357: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_asset_dispose';
9358: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
9359: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
9360: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
9361: -- asawanka added for debug feature end
9362: BEGIN
9355: -- Bug 6674730 end
9356: -- asawanka added for debug feature start
9357: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_asset_dispose';
9358: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
9359: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
9360: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
9361: -- asawanka added for debug feature end
9362: BEGIN
9363: IF (is_debug_procedure_on) THEN
9356: -- asawanka added for debug feature start
9357: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_asset_dispose';
9358: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
9359: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
9360: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
9361: -- asawanka added for debug feature end
9362: BEGIN
9363: IF (is_debug_procedure_on) THEN
9364: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
9360: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
9361: -- asawanka added for debug feature end
9362: BEGIN
9363: IF (is_debug_procedure_on) THEN
9364: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
9365: END IF;
9366:
9367: ---
9368: -- set the dispose rec
9373:
9374: -- Start savepoint to rollback to if the block fails
9375: SAVEPOINT asset_dispose;
9376: IF (is_debug_statement_on) THEN
9377: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_trn_already_set = '||p_trn_already_set);
9378: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'px_tcnv_rec.tmt_asset_disposition_yn = '||px_tcnv_rec.tmt_asset_disposition_yn);
9379: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_quote_id = '||p_term_rec.p_quote_id);
9380: END IF;
9381: IF (p_trn_already_set = G_YES
9374: -- Start savepoint to rollback to if the block fails
9375: SAVEPOINT asset_dispose;
9376: IF (is_debug_statement_on) THEN
9377: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_trn_already_set = '||p_trn_already_set);
9378: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'px_tcnv_rec.tmt_asset_disposition_yn = '||px_tcnv_rec.tmt_asset_disposition_yn);
9379: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_quote_id = '||p_term_rec.p_quote_id);
9380: END IF;
9381: IF (p_trn_already_set = G_YES
9382: AND NVL(px_tcnv_rec.tmt_asset_disposition_yn, '?') <> G_YES)
9375: SAVEPOINT asset_dispose;
9376: IF (is_debug_statement_on) THEN
9377: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_trn_already_set = '||p_trn_already_set);
9378: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'px_tcnv_rec.tmt_asset_disposition_yn = '||px_tcnv_rec.tmt_asset_disposition_yn);
9379: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_quote_id = '||p_term_rec.p_quote_id);
9380: END IF;
9381: IF (p_trn_already_set = G_YES
9382: AND NVL(px_tcnv_rec.tmt_asset_disposition_yn, '?') <> G_YES)
9383: OR (p_trn_already_set = G_NO) THEN
9411: FETCH c_get_repo_indicator INTO l_repo_yn, l_deal_type, l_org_id;
9412: CLOSE c_get_repo_indicator;
9413: END IF;
9414: IF (is_debug_statement_on) THEN
9415: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_repo_yn = '||l_repo_yn);
9416: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_deal_type = '||l_deal_type);
9417: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_org_id = '||l_org_id);
9418: END IF;
9419: IF (l_repo_yn = 'Y' AND l_deal_type='LOAN') THEN
9412: CLOSE c_get_repo_indicator;
9413: END IF;
9414: IF (is_debug_statement_on) THEN
9415: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_repo_yn = '||l_repo_yn);
9416: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_deal_type = '||l_deal_type);
9417: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_org_id = '||l_org_id);
9418: END IF;
9419: IF (l_repo_yn = 'Y' AND l_deal_type='LOAN') THEN
9420: -- Get system params for asset repossession
9413: END IF;
9414: IF (is_debug_statement_on) THEN
9415: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_repo_yn = '||l_repo_yn);
9416: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_deal_type = '||l_deal_type);
9417: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_org_id = '||l_org_id);
9418: END IF;
9419: IF (l_repo_yn = 'Y' AND l_deal_type='LOAN') THEN
9420: -- Get system params for asset repossession
9421: OPEN c_get_loan_repo_params(l_org_id);
9428: l_asset_key_id,
9429: l_depreciate_yn;
9430:
9431: IF (is_debug_statement_on) THEN
9432: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_K_RATE_PARAMS_PVT.get_product');
9433: END IF;
9434: -- Get PDT parameters and check reporting product and set l_rep_book
9435: OKL_K_RATE_PARAMS_PVT.get_product(
9436: p_api_version => p_api_version,
9440: x_msg_data => x_msg_data,
9441: p_khr_id => p_term_rec.p_contract_id,
9442: x_pdt_parameter_rec => l_pdt_parameter_rec);
9443: IF (is_debug_statement_on) THEN
9444: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called OKL_K_RATE_PARAMS_PVT.get_product x_return_status = '||x_return_status);
9445: END IF;
9446:
9447: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9448: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9449: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9450: RAISE OKL_API.G_EXCEPTION_ERROR;
9451: END IF;
9452: IF (is_debug_statement_on) THEN
9453: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_pdt_parameter_rec.reporting_pdt_id = '||l_pdt_parameter_rec.reporting_pdt_id);
9454: END IF;
9455:
9456: IF (l_pdt_parameter_rec.reporting_pdt_id IS NOT NULL AND
9457: l_pdt_parameter_rec.reporting_pdt_id <> OKL_API.G_MISS_NUM)
9457: l_pdt_parameter_rec.reporting_pdt_id <> OKL_API.G_MISS_NUM)
9458: THEN
9459: l_pdtv_rec.ID := l_pdt_parameter_rec.reporting_pdt_id;
9460: IF (is_debug_statement_on) THEN
9461: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_SETUPPRODUCTS_PUB.Getpdt_parameters ');
9462: END IF;
9463:
9464: OKL_SETUPPRODUCTS_PUB.Getpdt_parameters(
9465: p_api_version => p_api_version,
9470: p_pdtv_rec => l_pdtv_rec,
9471: x_no_data_found => x_no_data_found,
9472: p_pdt_parameter_rec => l_pdt_parameter_rec2);
9473: IF (is_debug_statement_on) THEN
9474: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called OKL_SETUPPRODUCTS_PUB.Getpdt_parameters x_return_status = '||x_return_status);
9475: END IF;
9476:
9477: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9478: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9552: -- Bug 6674730 start
9553: IF (l_repo_yn = 'Y' AND l_deal_type='LOAN') THEN
9554:
9555: IF (is_debug_statement_on) THEN
9556: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_TRX_ASSETS_PUB.create_trx_ass_h_def');
9557: END IF;
9558:
9559: -- Now creating the new header record
9560: OKL_TRX_ASSETS_PUB.create_trx_ass_h_def(
9565: x_msg_data => x_msg_data,
9566: p_thpv_rec => l_trxv_rec,
9567: x_thpv_rec => x_trxv_rec);
9568: IF (is_debug_statement_on) THEN
9569: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called OKL_TRX_ASSETS_PUB.create_trx_ass_h_def x_return_status = '||x_return_status);
9570: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_trxv_rec.ID =' ||x_trxv_rec.ID);
9571: END IF;
9572:
9573: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9566: p_thpv_rec => l_trxv_rec,
9567: x_thpv_rec => x_trxv_rec);
9568: IF (is_debug_statement_on) THEN
9569: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called OKL_TRX_ASSETS_PUB.create_trx_ass_h_def x_return_status = '||x_return_status);
9570: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_trxv_rec.ID =' ||x_trxv_rec.ID);
9571: END IF;
9572:
9573: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9574: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9579:
9580: -- Create asset in FA for this KLE_ID
9581: --l_line_number := l_line_number + 1;
9582: IF (is_debug_statement_on) THEN
9583: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling Create_Repo_asset');
9584: END IF;
9585:
9586: Create_Repo_asset(
9587: p_init_msg_list => p_init_msg_list,
9601: x_msg_count => x_msg_count,
9602: x_msg_data => x_msg_data
9603: );
9604: IF (is_debug_statement_on) THEN
9605: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called Create_Repo_asset x_return_status = '||x_return_status);
9606: END IF;
9607:
9608: IF l_overall_dispose_status = OKL_API.G_RET_STS_SUCCESS
9609: and x_return_status in (OKL_API.G_RET_STS_ERROR,OKL_API.G_RET_STS_UNEXP_ERROR) then
9695: -- Legal Entity Changes end
9696:
9697: -- call asset dispose retirement
9698: IF (is_debug_statement_on) THEN
9699: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_AM_ASSET_DISPOSE_PUB.dispose_asset');
9700: END IF;
9701:
9702: OKL_AM_ASSET_DISPOSE_PUB.dispose_asset(
9703: p_api_version => p_api_version,
9711: p_quote_eff_date => l_quote_eff_date, -- rmunjulu EDAT Pass additional parameters now required by disposal api
9712: p_quote_accpt_date => l_quote_accpt_date, -- rmunjulu EDAT Pass additional parameters now required by disposal api
9713: p_legal_entity_id => l_legal_entity_id); -- RRAVIKIR Legal Entity Changes
9714: IF (is_debug_statement_on) THEN
9715: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called OKL_AM_ASSET_DISPOSE_PUB.dispose_asset l_return_status = '||l_return_status);
9716: END IF;
9717:
9718: -- -- SECHAWLA Bug # 2726739 : end new code
9719:
9801: px_tcnv_rec => px_tcnv_rec);
9802:
9803: x_return_status := l_return_status;
9804: IF (is_debug_procedure_on) THEN
9805: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
9806: END IF;
9807: EXCEPTION
9808: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9809: IF (is_debug_exception_on) THEN
9806: END IF;
9807: EXCEPTION
9808: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9809: IF (is_debug_exception_on) THEN
9810: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
9811: END IF;
9812:
9813: IF kle_pur_amt_csr%ISOPEN THEN
9814: CLOSE kle_pur_amt_csr;
9847: px_tcnv_rec => px_tcnv_rec);
9848:
9849: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9850: IF (is_debug_exception_on) THEN
9851: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
9852: END IF;
9853:
9854: IF kle_pur_amt_csr%ISOPEN THEN
9855: CLOSE kle_pur_amt_csr;
9889: px_tcnv_rec => px_tcnv_rec);
9890:
9891: WHEN OTHERS THEN
9892: IF (is_debug_exception_on) THEN
9893: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
9894: END IF;
9895:
9896: IF kle_pur_amt_csr%ISOPEN THEN
9897: CLOSE kle_pur_amt_csr;
10003: l_quote_accpt_date DATE;
10004: l_quote_eff_date DATE;
10005: -- asawanka added for debug feature start
10006: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_amortize_and_return';
10007: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
10008: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
10009: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
10010: -- asawanka added for debug feature end
10011: BEGIN
10004: l_quote_eff_date DATE;
10005: -- asawanka added for debug feature start
10006: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_amortize_and_return';
10007: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
10008: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
10009: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
10010: -- asawanka added for debug feature end
10011: BEGIN
10012: IF (is_debug_procedure_on) THEN
10005: -- asawanka added for debug feature start
10006: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_amortize_and_return';
10007: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
10008: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
10009: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
10010: -- asawanka added for debug feature end
10011: BEGIN
10012: IF (is_debug_procedure_on) THEN
10013: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
10009: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
10010: -- asawanka added for debug feature end
10011: BEGIN
10012: IF (is_debug_procedure_on) THEN
10013: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
10014: END IF;
10015:
10016: --
10017: -- set the amortization rec
10391:
10392: END IF;
10393: END IF;
10394: IF (is_debug_procedure_on) THEN
10395: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
10396: END IF;
10397: EXCEPTION
10398:
10399: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10397: EXCEPTION
10398:
10399: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10400: IF (is_debug_exception_on) THEN
10401: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
10402: END IF;
10403:
10404: IF get_asset_return_csr%ISOPEN THEN
10405: CLOSE get_asset_return_csr;
10431: px_tcnv_rec => px_tcnv_rec);
10432:
10433: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10434: IF (is_debug_exception_on) THEN
10435: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
10436: END IF;
10437:
10438:
10439: IF get_asset_return_csr%ISOPEN THEN
10467: px_tcnv_rec => px_tcnv_rec);
10468:
10469: WHEN OTHERS THEN
10470: IF (is_debug_exception_on) THEN
10471: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
10472: END IF;
10473:
10474: IF get_asset_return_csr%ISOPEN THEN
10475: CLOSE get_asset_return_csr;
10522: px_tcnv_rec => px_tcnv_rec);
10523:
10524: x_return_status := l_return_status;
10525: IF (is_debug_procedure_on) THEN
10526: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
10527: END IF;
10528: EXCEPTION
10529:
10530: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10528: EXCEPTION
10529:
10530: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10531: IF (is_debug_exception_on) THEN
10532: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
10533: END IF;
10534:
10535: ROLLBACK TO amortize_and_return;
10536:
10564: px_tcnv_rec => px_tcnv_rec);
10565:
10566: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10567: IF (is_debug_exception_on) THEN
10568: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
10569: END IF;
10570:
10571:
10572: ROLLBACK TO amortize_and_return;
10601: px_tcnv_rec => px_tcnv_rec);
10602:
10603: WHEN OTHERS THEN
10604: IF (is_debug_exception_on) THEN
10605: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
10606: END IF;
10607:
10608: ROLLBACK TO amortize_and_return;
10609:
10713: --end:| 05-29-08 cklee -- fixed bug: 7017824(R12)/OKL.H: bug#6964174 |
10714:
10715: -- asawanka added for debug feature start
10716: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'lease_termination';
10717: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
10718: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
10719: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
10720: -- asawanka added for debug feature end
10721:
10714:
10715: -- asawanka added for debug feature start
10716: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'lease_termination';
10717: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
10718: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
10719: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
10720: -- asawanka added for debug feature end
10721:
10722: BEGIN
10715: -- asawanka added for debug feature start
10716: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'lease_termination';
10717: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
10718: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
10719: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
10720: -- asawanka added for debug feature end
10721:
10722: BEGIN
10723: IF (is_debug_procedure_on) THEN
10720: -- asawanka added for debug feature end
10721:
10722: BEGIN
10723: IF (is_debug_procedure_on) THEN
10724: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
10725: END IF;
10726:
10727: -- Set the transaction
10728: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
10837:
10838: -- rmunjulu EDAT Get the quote effectivity date and quote acceptance date
10839: -- and store as global variables, will be used later on in other procedures
10840: IF (is_debug_statement_on) THEN
10841: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_AM_LEASE_LOAN_TRMNT_PVT.get_set_quote_dates');
10842: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_term_rec.p_quote_id = '||l_term_rec.p_quote_id);
10843: END IF;
10844:
10845: OKL_AM_LEASE_LOAN_TRMNT_PVT.get_set_quote_dates(
10838: -- rmunjulu EDAT Get the quote effectivity date and quote acceptance date
10839: -- and store as global variables, will be used later on in other procedures
10840: IF (is_debug_statement_on) THEN
10841: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_AM_LEASE_LOAN_TRMNT_PVT.get_set_quote_dates');
10842: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_term_rec.p_quote_id = '||l_term_rec.p_quote_id);
10843: END IF;
10844:
10845: OKL_AM_LEASE_LOAN_TRMNT_PVT.get_set_quote_dates(
10846: p_qte_id => l_term_rec.p_quote_id,
10845: OKL_AM_LEASE_LOAN_TRMNT_PVT.get_set_quote_dates(
10846: p_qte_id => l_term_rec.p_quote_id,
10847: x_return_status => l_return_status);
10848: IF (is_debug_statement_on) THEN
10849: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called OKL_AM_LEASE_LOAN_TRMNT_PVT.get_set_quote_dates');
10850: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_return_status = '||l_return_status);
10851: END IF;
10852:
10853: -- Rollback if error setting activity for api
10846: p_qte_id => l_term_rec.p_quote_id,
10847: x_return_status => l_return_status);
10848: IF (is_debug_statement_on) THEN
10849: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called OKL_AM_LEASE_LOAN_TRMNT_PVT.get_set_quote_dates');
10850: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_return_status = '||l_return_status);
10851: END IF;
10852:
10853: -- Rollback if error setting activity for api
10854: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10877: p_return_status => l_return_status,
10878: px_overall_status => l_overall_status);
10879:
10880: IF (is_debug_statement_on) THEN
10881: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_term_rec.p_control_flag = '||l_term_rec.p_control_flag);
10882: END IF;
10883:
10884: IF (l_term_rec.p_control_flag = 'BATCH_PROCESS') THEN
10885:
10883:
10884: IF (l_term_rec.p_control_flag = 'BATCH_PROCESS') THEN
10885:
10886: IF (is_debug_statement_on) THEN
10887: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_AM_LEASE_LOAN_TRMNT_PUB.validate_contract');
10888: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_term_rec.p_contract_id = '||l_term_rec.p_contract_id);
10889: END IF;
10890:
10891: -- Since batch process is not checked initially in LLT check here
10884: IF (l_term_rec.p_control_flag = 'BATCH_PROCESS') THEN
10885:
10886: IF (is_debug_statement_on) THEN
10887: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_AM_LEASE_LOAN_TRMNT_PUB.validate_contract');
10888: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_term_rec.p_contract_id = '||l_term_rec.p_contract_id);
10889: END IF;
10890:
10891: -- Since batch process is not checked initially in LLT check here
10892: OKL_AM_LEASE_LOAN_TRMNT_PUB.validate_contract(
10898: p_contract_id => l_term_rec.p_contract_id,
10899: p_control_flag => l_term_rec.p_control_flag,
10900: x_contract_status => lx_contract_status);
10901: IF (is_debug_statement_on) THEN
10902: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called OKL_AM_LEASE_LOAN_TRMNT_PUB.validate_contract l_return_status = '||l_return_status);
10903: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_validate = '||l_validate);
10904: END IF;
10905:
10906: -- Store the highest validation return status
10899: p_control_flag => l_term_rec.p_control_flag,
10900: x_contract_status => lx_contract_status);
10901: IF (is_debug_statement_on) THEN
10902: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called OKL_AM_LEASE_LOAN_TRMNT_PUB.validate_contract l_return_status = '||l_return_status);
10903: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_validate = '||l_validate);
10904: END IF;
10905:
10906: -- Store the highest validation return status
10907: -- To capture the return status of validate lease called above
11405:
11406:
11407: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
11408: IF (is_debug_procedure_on) THEN
11409: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
11410: END IF;
11411: EXCEPTION
11412: WHEN G_EXCEPTION_HALT_VALIDATION THEN
11413: IF (is_debug_exception_on) THEN
11410: END IF;
11411: EXCEPTION
11412: WHEN G_EXCEPTION_HALT_VALIDATION THEN
11413: IF (is_debug_exception_on) THEN
11414: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_HALT_VALIDATION');
11415: END IF;
11416:
11417: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11418: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11416:
11417: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11418: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11419: IF (is_debug_exception_on) THEN
11420: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
11421: END IF;
11422:
11423: x_return_status := OKL_API.HANDLE_EXCEPTIONS
11424: (
11430: '_PVT'
11431: );
11432: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11433: IF (is_debug_exception_on) THEN
11434: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
11435: END IF;
11436:
11437: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
11438: (
11444: '_PVT'
11445: );
11446: WHEN OTHERS THEN
11447: IF (is_debug_exception_on) THEN
11448: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
11449: END IF;
11450:
11451: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
11452: (