[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:
305: G_EXCEPTION_ERROR EXCEPTION;
306:
307: -- asawanka added for debug feature start
308: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_purchase_amount';
309: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
310: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
311: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
312: -- asawanka added for debug feature end
313:
306:
307: -- asawanka added for debug feature start
308: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_purchase_amount';
309: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
310: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
311: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
312: -- asawanka added for debug feature end
313:
314: BEGIN
307: -- asawanka added for debug feature start
308: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_purchase_amount';
309: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
310: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
311: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
312: -- asawanka added for debug feature end
313:
314: BEGIN
315: IF (is_debug_procedure_on) THEN
312: -- asawanka added for debug feature end
313:
314: BEGIN
315: IF (is_debug_procedure_on) THEN
316: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
317: END IF;
318: l_purchase_amount := 0;
319:
320: l_rgd_code := 'AMTFOC'; -- End of Term Purchase Option
319:
320: l_rgd_code := 'AMTFOC'; -- End of Term Purchase Option
321: l_rule_code := 'AMBPOC'; -- Purchase Options
322: IF (is_debug_statement_on) THEN
323: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
324: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_kle_id = '||p_kle_id);
325: 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);
326: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information1 = '||l_rulv_rec.rule_information1);
327: END IF;
320: l_rgd_code := 'AMTFOC'; -- End of Term Purchase Option
321: l_rule_code := 'AMBPOC'; -- Purchase Options
322: IF (is_debug_statement_on) THEN
323: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
324: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_kle_id = '||p_kle_id);
325: 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);
326: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information1 = '||l_rulv_rec.rule_information1);
327: END IF;
328: l_khr_id := p_term_rec.p_contract_id;
321: l_rule_code := 'AMBPOC'; -- Purchase Options
322: IF (is_debug_statement_on) THEN
323: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
324: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_kle_id = '||p_kle_id);
325: 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);
326: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information1 = '||l_rulv_rec.rule_information1);
327: END IF;
328: l_khr_id := p_term_rec.p_contract_id;
329: IF (is_debug_statement_on) THEN
322: IF (is_debug_statement_on) THEN
323: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
324: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_kle_id = '||p_kle_id);
325: 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);
326: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information1 = '||l_rulv_rec.rule_information1);
327: END IF;
328: l_khr_id := p_term_rec.p_contract_id;
329: IF (is_debug_statement_on) THEN
330: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Calling OKL_AM_UTIL_PVT.get_rule_record');
326: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information1 = '||l_rulv_rec.rule_information1);
327: END IF;
328: l_khr_id := p_term_rec.p_contract_id;
329: IF (is_debug_statement_on) THEN
330: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Calling OKL_AM_UTIL_PVT.get_rule_record');
331: END IF;
332: -- Get End of Term Purchase Amount Details
333: OKL_AM_UTIL_PVT.get_rule_record(
334: p_rgd_code => l_rgd_code,
339: x_return_status => l_return_status,
340: p_message_yn => TRUE);
341:
342: IF (is_debug_statement_on) THEN
343: 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);
344: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information1 = '||l_rulv_rec.rule_information1);
345: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information2 = '||l_rulv_rec.rule_information2);
346: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information3 = '||l_rulv_rec.rule_information3);
347: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information4 = '||l_rulv_rec.rule_information4);
340: p_message_yn => TRUE);
341:
342: IF (is_debug_statement_on) THEN
343: 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);
344: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information1 = '||l_rulv_rec.rule_information1);
345: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information2 = '||l_rulv_rec.rule_information2);
346: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information3 = '||l_rulv_rec.rule_information3);
347: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information4 = '||l_rulv_rec.rule_information4);
348: END IF;
341:
342: IF (is_debug_statement_on) THEN
343: 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);
344: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information1 = '||l_rulv_rec.rule_information1);
345: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information2 = '||l_rulv_rec.rule_information2);
346: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information3 = '||l_rulv_rec.rule_information3);
347: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information4 = '||l_rulv_rec.rule_information4);
348: END IF;
349:
342: IF (is_debug_statement_on) THEN
343: 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);
344: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information1 = '||l_rulv_rec.rule_information1);
345: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information2 = '||l_rulv_rec.rule_information2);
346: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information3 = '||l_rulv_rec.rule_information3);
347: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information4 = '||l_rulv_rec.rule_information4);
348: END IF;
349:
350: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
343: 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);
344: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information1 = '||l_rulv_rec.rule_information1);
345: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information2 = '||l_rulv_rec.rule_information2);
346: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information3 = '||l_rulv_rec.rule_information3);
347: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information4 = '||l_rulv_rec.rule_information4);
348: END IF;
349:
350: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
351: l_calc_option := l_rulv_rec.rule_information1; -- Purchase Option
366:
367: ELSIF l_calc_option = 'USE_FORMULA' THEN -- Purchase Amount is FORMULA
368:
369: IF (is_debug_statement_on) THEN
370: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Calling OKL_AM_UTIL_PVT.get_formula_value');
371: END IF;
372: -- Get the formula value
373: OKL_AM_UTIL_PVT.get_formula_value (
374: p_formula_name => l_formula_name,
377: p_additional_parameters => l_params,
378: x_formula_value => l_formula_value,
379: x_return_status => l_return_status);
380: IF (is_debug_statement_on) THEN
381: 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);
382: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_formula_value = '||l_formula_value);
383: END IF;
384:
385: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
378: x_formula_value => l_formula_value,
379: x_return_status => l_return_status);
380: IF (is_debug_statement_on) THEN
381: 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);
382: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_formula_value = '||l_formula_value);
383: END IF;
384:
385: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
386: RAISE G_EXCEPTION_ERROR;
392: IF l_prorate = 'PRORATE' AND l_purchase_amount <> 0 THEN
393:
394: -- Get line oec (evaluate formula contract_oec and pass line id)
395: IF (is_debug_statement_on) THEN
396: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Calling OKL_AM_UTIL_PVT.get_formula_value');
397: END IF;
398: OKL_AM_UTIL_PVT.get_formula_value (
399: p_formula_name => 'CONTRACT_OEC',
400: p_chr_id => l_khr_id,
402: p_additional_parameters => l_params,
403: x_formula_value => l_line_oec,
404: x_return_status => l_return_status);
405: IF (is_debug_statement_on) THEN
406: 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);
407: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_formula_value = '||l_formula_value);
408: END IF;
409:
410: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
403: x_formula_value => l_line_oec,
404: x_return_status => l_return_status);
405: IF (is_debug_statement_on) THEN
406: 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);
407: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_formula_value = '||l_formula_value);
408: END IF;
409:
410: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
411: RAISE G_EXCEPTION_ERROR;
412: END IF;
413:
414: -- Get contract oec
415: IF (is_debug_statement_on) THEN
416: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Calling OKL_AM_UTIL_PVT.get_formula_value');
417: END IF;
418: OKL_AM_UTIL_PVT.get_formula_value (
419: p_formula_name => 'CONTRACT_OEC',
420: p_chr_id => l_khr_id,
422: p_additional_parameters => l_params,
423: x_formula_value => l_contract_oec,
424: x_return_status => l_return_status);
425: IF (is_debug_statement_on) THEN
426: 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);
427: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_formula_value = '||l_formula_value);
428: END IF;
429:
430:
423: x_formula_value => l_contract_oec,
424: x_return_status => l_return_status);
425: IF (is_debug_statement_on) THEN
426: 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);
427: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_formula_value = '||l_formula_value);
428: END IF;
429:
430:
431: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
443: x_purchase_amount := l_purchase_amount;
444: x_return_status := l_return_status;
445:
446: IF (is_debug_procedure_on) THEN
447: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
448: END IF;
449: EXCEPTION
450: WHEN G_EXCEPTION_ERROR THEN
451: IF (is_debug_exception_on) THEN
448: END IF;
449: EXCEPTION
450: WHEN G_EXCEPTION_ERROR THEN
451: IF (is_debug_exception_on) THEN
452: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
453: END IF;
454: x_return_status := OKL_API.G_RET_STS_ERROR;
455: WHEN OTHERS THEN
456: IF (is_debug_exception_on) THEN
453: END IF;
454: x_return_status := OKL_API.G_RET_STS_ERROR;
455: WHEN OTHERS THEN
456: IF (is_debug_exception_on) THEN
457: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
458: END IF;
459:
460: x_return_status := OKL_API.G_RET_STS_ERROR;
461: END get_purchase_amount;
491: l_evergreen_earlier VARCHAR2(3) := 'N';
492:
493: -- asawanka added for debug feature start
494: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_k_evergreen_ear';
495: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
496: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
497: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
498: -- asawanka added for debug feature end
499:
492:
493: -- asawanka added for debug feature start
494: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_k_evergreen_ear';
495: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
496: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
497: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
498: -- asawanka added for debug feature end
499:
500: BEGIN
493: -- asawanka added for debug feature start
494: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_k_evergreen_ear';
495: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
496: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
497: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
498: -- asawanka added for debug feature end
499:
500: BEGIN
501: IF (is_debug_procedure_on) THEN
498: -- asawanka added for debug feature end
499:
500: BEGIN
501: IF (is_debug_procedure_on) THEN
502: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
503: END IF;
504:
505: x_return_status := OKL_API.G_RET_STS_SUCCESS;
506:
504:
505: x_return_status := OKL_API.G_RET_STS_SUCCESS;
506:
507: IF (is_debug_statement_on) THEN
508: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_khr_id = '||p_khr_id);
509: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_tcn_id = '||p_tcn_id);
510: END IF;
511: FOR chk_evergreen_ear_rec IN chk_evergreen_ear_csr (p_khr_id, p_tcn_id) LOOP
512: l_evergreen_earlier := chk_evergreen_ear_rec.tmt_evergreen_yn;
505: x_return_status := OKL_API.G_RET_STS_SUCCESS;
506:
507: IF (is_debug_statement_on) THEN
508: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_khr_id = '||p_khr_id);
509: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_tcn_id = '||p_tcn_id);
510: END IF;
511: FOR chk_evergreen_ear_rec IN chk_evergreen_ear_csr (p_khr_id, p_tcn_id) LOOP
512: l_evergreen_earlier := chk_evergreen_ear_rec.tmt_evergreen_yn;
513: END LOOP;
512: l_evergreen_earlier := chk_evergreen_ear_rec.tmt_evergreen_yn;
513: END LOOP;
514:
515: IF (is_debug_statement_on) THEN
516: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_evergreen_earlier= '||l_evergreen_earlier);
517: END IF;
518:
519: IF (is_debug_procedure_on) THEN
520: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
516: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_evergreen_earlier= '||l_evergreen_earlier);
517: END IF;
518:
519: IF (is_debug_procedure_on) THEN
520: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
521: END IF;
522:
523: RETURN l_evergreen_earlier;
524:
526:
527: WHEN OTHERS THEN
528:
529: IF (is_debug_exception_on) THEN
530: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
531: END IF;
532:
533: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
534:
609: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
610: delink_exception EXCEPTION;
611:
612: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'delink_contract_from_asset';
613: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
614: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
615: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
616:
617: i NUMBER;
610: delink_exception EXCEPTION;
611:
612: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'delink_contract_from_asset';
613: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
614: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
615: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
616:
617: i NUMBER;
618:
611:
612: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'delink_contract_from_asset';
613: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
614: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
615: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
616:
617: i NUMBER;
618:
619: BEGIN
617: i NUMBER;
618:
619: BEGIN
620: IF (is_debug_procedure_on) THEN
621: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
622: END IF;
623:
624: x_return_status := OKL_API.G_RET_STS_SUCCESS;
625:
623:
624: x_return_status := OKL_API.G_RET_STS_SUCCESS;
625:
626: IF (is_debug_statement_on) THEN
627: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_khr_id = '||p_khr_id);
628: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_sts_code = '||p_sts_code);
629: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_quote_accpt_date = '||p_quote_accpt_date);
630: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_quote_eff_date = '||p_quote_eff_date);
631: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_full_term_yn = '||nvl(p_full_term_yn,'Y'));
624: x_return_status := OKL_API.G_RET_STS_SUCCESS;
625:
626: IF (is_debug_statement_on) THEN
627: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_khr_id = '||p_khr_id);
628: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_sts_code = '||p_sts_code);
629: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_quote_accpt_date = '||p_quote_accpt_date);
630: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_quote_eff_date = '||p_quote_eff_date);
631: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_full_term_yn = '||nvl(p_full_term_yn,'Y'));
632: END IF;
625:
626: IF (is_debug_statement_on) THEN
627: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_khr_id = '||p_khr_id);
628: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_sts_code = '||p_sts_code);
629: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_quote_accpt_date = '||p_quote_accpt_date);
630: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_quote_eff_date = '||p_quote_eff_date);
631: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_full_term_yn = '||nvl(p_full_term_yn,'Y'));
632: END IF;
633:
626: IF (is_debug_statement_on) THEN
627: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_khr_id = '||p_khr_id);
628: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_sts_code = '||p_sts_code);
629: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_quote_accpt_date = '||p_quote_accpt_date);
630: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_quote_eff_date = '||p_quote_eff_date);
631: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_full_term_yn = '||nvl(p_full_term_yn,'Y'));
632: END IF;
633:
634:
627: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_khr_id = '||p_khr_id);
628: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_sts_code = '||p_sts_code);
629: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_quote_accpt_date = '||p_quote_accpt_date);
630: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_quote_eff_date = '||p_quote_eff_date);
631: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_full_term_yn = '||nvl(p_full_term_yn,'Y'));
632: END IF;
633:
634:
635: IF p_khr_id IS NULL OR p_khr_id = OKL_API.G_MISS_NUM THEN
675:
676: IF nvl(p_full_term_yn ,'Y') = 'Y' THEN -- rmunjulu bug 6853566 full termination-- do earlier processing
677: IF (is_debug_statement_on) THEN
678:
679: okl_debug_pub.log_debug (g_level_statement, l_module_name, 'p_full_term_yn :'||nvl(p_full_term_yn ,'Y'));
680:
681: END IF;
682: FOR l_okcklines_rec IN l_okcklines_csr(p_khr_id, p_sts_code) LOOP
683:
697: l_adj_trans_rec.transaction_date_entered := p_quote_eff_date;
698:
699: IF (is_debug_statement_on) THEN
700:
701: okl_debug_pub.log_debug (g_level_statement, l_module_name,
702: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_okcklines_rec.name: '|| l_okcklines_rec.name);
703: okl_debug_pub.log_debug (g_level_statement, l_module_name,
704: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, p_quote_accpt_date: '|| p_quote_accpt_date);
705: okl_debug_pub.log_debug (g_level_statement, l_module_name,
699: IF (is_debug_statement_on) THEN
700:
701: okl_debug_pub.log_debug (g_level_statement, l_module_name,
702: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_okcklines_rec.name: '|| l_okcklines_rec.name);
703: okl_debug_pub.log_debug (g_level_statement, l_module_name,
704: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, p_quote_accpt_date: '|| p_quote_accpt_date);
705: okl_debug_pub.log_debug (g_level_statement, l_module_name,
706: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_trans_rec.transaction_subtype: '|| l_adj_trans_rec.transaction_subtype);
707: okl_debug_pub.log_debug (g_level_statement, l_module_name,
701: okl_debug_pub.log_debug (g_level_statement, l_module_name,
702: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_okcklines_rec.name: '|| l_okcklines_rec.name);
703: okl_debug_pub.log_debug (g_level_statement, l_module_name,
704: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, p_quote_accpt_date: '|| p_quote_accpt_date);
705: okl_debug_pub.log_debug (g_level_statement, l_module_name,
706: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_trans_rec.transaction_subtype: '|| l_adj_trans_rec.transaction_subtype);
707: okl_debug_pub.log_debug (g_level_statement, l_module_name,
708: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_asset_hdr_rec.asset_id: '|| l_adj_asset_hdr_rec.asset_id);
709: okl_debug_pub.log_debug (g_level_statement, l_module_name,
703: okl_debug_pub.log_debug (g_level_statement, l_module_name,
704: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, p_quote_accpt_date: '|| p_quote_accpt_date);
705: okl_debug_pub.log_debug (g_level_statement, l_module_name,
706: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_trans_rec.transaction_subtype: '|| l_adj_trans_rec.transaction_subtype);
707: okl_debug_pub.log_debug (g_level_statement, l_module_name,
708: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_asset_hdr_rec.asset_id: '|| l_adj_asset_hdr_rec.asset_id);
709: okl_debug_pub.log_debug (g_level_statement, l_module_name,
710: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_asset_hdr_rec.book_type_code: '|| l_adj_asset_hdr_rec.book_type_code);
711: okl_debug_pub.log_debug (g_level_statement, l_module_name,
705: okl_debug_pub.log_debug (g_level_statement, l_module_name,
706: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_trans_rec.transaction_subtype: '|| l_adj_trans_rec.transaction_subtype);
707: okl_debug_pub.log_debug (g_level_statement, l_module_name,
708: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_asset_hdr_rec.asset_id: '|| l_adj_asset_hdr_rec.asset_id);
709: okl_debug_pub.log_debug (g_level_statement, l_module_name,
710: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_asset_hdr_rec.book_type_code: '|| l_adj_asset_hdr_rec.book_type_code);
711: okl_debug_pub.log_debug (g_level_statement, l_module_name,
712: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_trans_rec.transaction_date_entered: '|| l_adj_trans_rec.transaction_date_entered);
713:
707: okl_debug_pub.log_debug (g_level_statement, l_module_name,
708: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_asset_hdr_rec.asset_id: '|| l_adj_asset_hdr_rec.asset_id);
709: okl_debug_pub.log_debug (g_level_statement, l_module_name,
710: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_asset_hdr_rec.book_type_code: '|| l_adj_asset_hdr_rec.book_type_code);
711: okl_debug_pub.log_debug (g_level_statement, l_module_name,
712: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_trans_rec.transaction_date_entered: '|| l_adj_trans_rec.transaction_date_entered);
713:
714: END IF;
715:
735: p_group_reclass_options_rec => l_group_reclass_options_rec);
736:
737: IF (is_debug_statement_on) THEN
738:
739: okl_debug_pub.log_debug (g_level_statement, l_module_name,
740: 'AFTER CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, x_return_status: '|| x_return_status);
741:
742: END IF;
743:
764: ELSE -- partial termination
765:
766: IF (is_debug_statement_on) THEN
767:
768: okl_debug_pub.log_debug (g_level_statement, l_module_name, 'p_full_term_yn :'||nvl(p_full_term_yn ,'Y'));
769:
770: END IF;
771: -- if assets present for contract
772: IF (p_klev_tbl.COUNT > 0) THEN
790: l_adj_trans_rec.transaction_date_entered := p_quote_eff_date;
791:
792: IF (is_debug_statement_on) THEN
793:
794: okl_debug_pub.log_debug (g_level_statement, l_module_name,
795: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, p_klev_tbl('|| i || ').p_kle_id: '|| p_klev_tbl (i).p_kle_id);
796: okl_debug_pub.log_debug (g_level_statement, l_module_name,
797: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, p_klev_tbl('|| i || ').p_asset_name: '|| p_klev_tbl (i).p_asset_name);
798: okl_debug_pub.log_debug (g_level_statement, l_module_name,
792: IF (is_debug_statement_on) THEN
793:
794: okl_debug_pub.log_debug (g_level_statement, l_module_name,
795: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, p_klev_tbl('|| i || ').p_kle_id: '|| p_klev_tbl (i).p_kle_id);
796: okl_debug_pub.log_debug (g_level_statement, l_module_name,
797: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, p_klev_tbl('|| i || ').p_asset_name: '|| p_klev_tbl (i).p_asset_name);
798: okl_debug_pub.log_debug (g_level_statement, l_module_name,
799: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, p_quote_accpt_date: '|| p_quote_accpt_date);
800: okl_debug_pub.log_debug (g_level_statement, l_module_name,
794: okl_debug_pub.log_debug (g_level_statement, l_module_name,
795: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, p_klev_tbl('|| i || ').p_kle_id: '|| p_klev_tbl (i).p_kle_id);
796: okl_debug_pub.log_debug (g_level_statement, l_module_name,
797: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, p_klev_tbl('|| i || ').p_asset_name: '|| p_klev_tbl (i).p_asset_name);
798: okl_debug_pub.log_debug (g_level_statement, l_module_name,
799: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, p_quote_accpt_date: '|| p_quote_accpt_date);
800: okl_debug_pub.log_debug (g_level_statement, l_module_name,
801: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_trans_rec.transaction_subtype: '|| l_adj_trans_rec.transaction_subtype);
802: okl_debug_pub.log_debug (g_level_statement, l_module_name,
796: okl_debug_pub.log_debug (g_level_statement, l_module_name,
797: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, p_klev_tbl('|| i || ').p_asset_name: '|| p_klev_tbl (i).p_asset_name);
798: okl_debug_pub.log_debug (g_level_statement, l_module_name,
799: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, p_quote_accpt_date: '|| p_quote_accpt_date);
800: okl_debug_pub.log_debug (g_level_statement, l_module_name,
801: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_trans_rec.transaction_subtype: '|| l_adj_trans_rec.transaction_subtype);
802: okl_debug_pub.log_debug (g_level_statement, l_module_name,
803: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_asset_hdr_rec.asset_id: '|| l_adj_asset_hdr_rec.asset_id);
804: okl_debug_pub.log_debug (g_level_statement, l_module_name,
798: okl_debug_pub.log_debug (g_level_statement, l_module_name,
799: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, p_quote_accpt_date: '|| p_quote_accpt_date);
800: okl_debug_pub.log_debug (g_level_statement, l_module_name,
801: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_trans_rec.transaction_subtype: '|| l_adj_trans_rec.transaction_subtype);
802: okl_debug_pub.log_debug (g_level_statement, l_module_name,
803: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_asset_hdr_rec.asset_id: '|| l_adj_asset_hdr_rec.asset_id);
804: okl_debug_pub.log_debug (g_level_statement, l_module_name,
805: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_asset_hdr_rec.book_type_code: '|| l_adj_asset_hdr_rec.book_type_code);
806: okl_debug_pub.log_debug (g_level_statement, l_module_name,
800: okl_debug_pub.log_debug (g_level_statement, l_module_name,
801: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_trans_rec.transaction_subtype: '|| l_adj_trans_rec.transaction_subtype);
802: okl_debug_pub.log_debug (g_level_statement, l_module_name,
803: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_asset_hdr_rec.asset_id: '|| l_adj_asset_hdr_rec.asset_id);
804: okl_debug_pub.log_debug (g_level_statement, l_module_name,
805: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_asset_hdr_rec.book_type_code: '|| l_adj_asset_hdr_rec.book_type_code);
806: okl_debug_pub.log_debug (g_level_statement, l_module_name,
807: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_trans_rec.transaction_date_entered: '|| l_adj_trans_rec.transaction_date_entered);
808:
802: okl_debug_pub.log_debug (g_level_statement, l_module_name,
803: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_asset_hdr_rec.asset_id: '|| l_adj_asset_hdr_rec.asset_id);
804: okl_debug_pub.log_debug (g_level_statement, l_module_name,
805: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_asset_hdr_rec.book_type_code: '|| l_adj_asset_hdr_rec.book_type_code);
806: okl_debug_pub.log_debug (g_level_statement, l_module_name,
807: 'BEFORE CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, l_adj_trans_rec.transaction_date_entered: '|| l_adj_trans_rec.transaction_date_entered);
808:
809: END IF;
810:
830: p_group_reclass_options_rec => l_group_reclass_options_rec);
831:
832: IF (is_debug_statement_on) THEN
833:
834: okl_debug_pub.log_debug (g_level_statement, l_module_name,
835: 'AFTER CALL TO FA_ADJUSTMENT_PUB.DO_ADJUSTMENT, x_return_status: '|| x_return_status);
836:
837: END IF;
838:
860: END IF;
861: END IF;
862:
863: IF (is_debug_procedure_on) THEN
864: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
865: END IF;
866:
867:
868: EXCEPTION
867:
868: EXCEPTION
869: WHEN delink_exception THEN
870: IF (is_debug_exception_on) THEN
871: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'delink_exception');
872: END IF;
873:
874: IF l_okcklines_csr%ISOPEN THEN
875: CLOSE l_okcklines_csr;
882: x_return_status := OKL_API.G_RET_STS_ERROR;
883: WHEN OTHERS THEN
884:
885: IF (is_debug_exception_on) THEN
886: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
887: END IF;
888:
889: IF l_okcklines_csr%ISOPEN THEN
890: CLOSE l_okcklines_csr;
966: l_quote_eff_date DATE;
967:
968: -- asawanka added for debug feature start
969: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_amortize';
970: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
971: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
972: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
973: -- asawanka added for debug feature end
974:
967:
968: -- asawanka added for debug feature start
969: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_amortize';
970: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
971: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
972: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
973: -- asawanka added for debug feature end
974:
975: BEGIN -- begin for amortize
968: -- asawanka added for debug feature start
969: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_amortize';
970: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
971: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
972: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
973: -- asawanka added for debug feature end
974:
975: BEGIN -- begin for amortize
976: IF (is_debug_procedure_on) THEN
973: -- asawanka added for debug feature end
974:
975: BEGIN -- begin for amortize
976: IF (is_debug_procedure_on) THEN
977: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
978: END IF;
979:
980: -- sechawla -
981: -- p_call_origin = EVERGREEN, when contract is getting converted to Evergreen
985: -- Start a savepoint
986: SAVEPOINT asset_amortize;
987:
988: IF (is_debug_statement_on) THEN
989: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_trn_already_set = '||p_trn_already_set);
990: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'px_tcnv_rec.tmt_amortization_yn = '||px_tcnv_rec.tmt_amortization_yn);
991: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
992: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'px_tcnv_rec.id = '||px_tcnv_rec.id);
993: END IF;
986: SAVEPOINT asset_amortize;
987:
988: IF (is_debug_statement_on) THEN
989: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_trn_already_set = '||p_trn_already_set);
990: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'px_tcnv_rec.tmt_amortization_yn = '||px_tcnv_rec.tmt_amortization_yn);
991: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
992: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'px_tcnv_rec.id = '||px_tcnv_rec.id);
993: END IF;
994: IF p_trn_already_set IS NULL THEN
987:
988: IF (is_debug_statement_on) THEN
989: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_trn_already_set = '||p_trn_already_set);
990: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'px_tcnv_rec.tmt_amortization_yn = '||px_tcnv_rec.tmt_amortization_yn);
991: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
992: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'px_tcnv_rec.id = '||px_tcnv_rec.id);
993: END IF;
994: IF p_trn_already_set IS NULL THEN
995: l_trn_already_set := G_NO;
988: IF (is_debug_statement_on) THEN
989: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_trn_already_set = '||p_trn_already_set);
990: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'px_tcnv_rec.tmt_amortization_yn = '||px_tcnv_rec.tmt_amortization_yn);
991: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
992: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'px_tcnv_rec.id = '||px_tcnv_rec.id);
993: END IF;
994: IF p_trn_already_set IS NULL THEN
995: l_trn_already_set := G_NO;
996: ELSE
1006: -- Check if another transaction exists which is processed and for which tmt_evergreen_yn was Y
1007: -- which means this contract was evergreen earlier
1008: -- so no need to run amortization again
1009: IF (is_debug_statement_on) THEN
1010: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling check_k_evergreen_ear ');
1011: END IF;
1012: l_evergreen_earlier := check_k_evergreen_ear(
1013: p_khr_id => p_term_rec.p_contract_id,
1014: p_tcn_id => px_tcnv_rec.id,
1014: p_tcn_id => px_tcnv_rec.id,
1015: x_return_status => l_return_status);
1016:
1017: IF (is_debug_statement_on) THEN
1018: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called check_k_evergreen_ear l_return_status = '||l_return_status);
1019: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_evergreen_earlier = '||l_evergreen_earlier);
1020: END IF;
1021:
1022: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1015: x_return_status => l_return_status);
1016:
1017: IF (is_debug_statement_on) THEN
1018: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called check_k_evergreen_ear l_return_status = '||l_return_status);
1019: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_evergreen_earlier = '||l_evergreen_earlier);
1020: END IF;
1021:
1022: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1023:
1098: END IF;
1099: */
1100:
1101: IF (is_debug_statement_on) THEN
1102: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_AMORTIZE_PUB.create_offlease_asset_trx ');
1103: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_early_term_yn = '||l_early_term_yn);
1104: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_quote_eff_date = '||l_quote_eff_date);
1105: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_quote_accpt_date = '||l_quote_accpt_date);
1106: END IF;
1099: */
1100:
1101: IF (is_debug_statement_on) THEN
1102: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_AMORTIZE_PUB.create_offlease_asset_trx ');
1103: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_early_term_yn = '||l_early_term_yn);
1104: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_quote_eff_date = '||l_quote_eff_date);
1105: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_quote_accpt_date = '||l_quote_accpt_date);
1106: END IF;
1107: OKL_AM_AMORTIZE_PUB.create_offlease_asset_trx(
1100:
1101: IF (is_debug_statement_on) THEN
1102: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_AMORTIZE_PUB.create_offlease_asset_trx ');
1103: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_early_term_yn = '||l_early_term_yn);
1104: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_quote_eff_date = '||l_quote_eff_date);
1105: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_quote_accpt_date = '||l_quote_accpt_date);
1106: END IF;
1107: OKL_AM_AMORTIZE_PUB.create_offlease_asset_trx(
1108: p_api_version => p_api_version,
1101: IF (is_debug_statement_on) THEN
1102: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_AMORTIZE_PUB.create_offlease_asset_trx ');
1103: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_early_term_yn = '||l_early_term_yn);
1104: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_quote_eff_date = '||l_quote_eff_date);
1105: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_quote_accpt_date = '||l_quote_accpt_date);
1106: END IF;
1107: OKL_AM_AMORTIZE_PUB.create_offlease_asset_trx(
1108: p_api_version => p_api_version,
1109: p_init_msg_list => OKL_API.G_FALSE,
1115: p_quote_eff_date => l_quote_eff_date, -- rmunjulu EDAT
1116: p_quote_accpt_date => l_quote_accpt_date); -- rmunjulu EDAT
1117:
1118: IF (is_debug_statement_on) THEN
1119: 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);
1120: END IF;
1121: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1122:
1123: -- Error occurred during the creation of an amortization transaction
1138:
1139:
1140: -- store the highest degree of error
1141: IF (is_debug_statement_on) THEN
1142: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling set_overall_status');
1143: END IF;
1144: set_overall_status(
1145: p_return_status => l_return_status,
1146: px_overall_status => px_overall_status);
1144: set_overall_status(
1145: p_return_status => l_return_status,
1146: px_overall_status => px_overall_status);
1147: IF (is_debug_statement_on) THEN
1148: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called set_overall_status');
1149: END IF;
1150:
1151: -- set the transaction record for amortization
1152: IF (is_debug_statement_on) THEN
1149: END IF;
1150:
1151: -- set the transaction record for amortization
1152: IF (is_debug_statement_on) THEN
1153: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling set_transaction_rec');
1154: END IF;
1155: set_transaction_rec(
1156: p_return_status => l_return_status,
1157: p_overall_status => px_overall_status,
1159: p_tsu_code => 'WORKING',
1160: px_tcnv_rec => px_tcnv_rec);
1161:
1162: IF (is_debug_statement_on) THEN
1163: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called set_transaction_rec');
1164: END IF;
1165:
1166: ELSE
1167: -- Message : Amortization done earlier
1220: -- RMUNJULU 3485854 11-MAR-04 Set the return_status
1221: x_return_status := l_return_status;
1222:
1223: IF (is_debug_procedure_on) THEN
1224: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
1225: END IF;
1226:
1227: EXCEPTION
1228: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1226:
1227: EXCEPTION
1228: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1229: IF (is_debug_exception_on) THEN
1230: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
1231: END IF;
1232:
1233: IF get_k_end_date_csr%ISOPEN THEN
1234: CLOSE get_k_end_date_csr;
1261: px_tcnv_rec => px_tcnv_rec);
1262:
1263: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1264: IF (is_debug_exception_on) THEN
1265: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
1266: END IF;
1267:
1268: IF get_k_end_date_csr%ISOPEN THEN
1269: CLOSE get_k_end_date_csr;
1296: px_tcnv_rec => px_tcnv_rec);
1297:
1298: WHEN OTHERS THEN
1299: IF (is_debug_exception_on) THEN
1300: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
1301: END IF;
1302:
1303: IF get_k_end_date_csr%ISOPEN THEN
1304: CLOSE get_k_end_date_csr;
1364: l_rule_code CONSTANT VARCHAR2(30) := 'LAEVEL';
1365:
1366: -- asawanka added for debug feature start
1367: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'evergreen_eligibility';
1368: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1369: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1370: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1371: -- asawanka added for debug feature end
1372: BEGIN
1365:
1366: -- asawanka added for debug feature start
1367: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'evergreen_eligibility';
1368: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1369: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1370: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1371: -- asawanka added for debug feature end
1372: BEGIN
1373: IF (is_debug_procedure_on) THEN
1366: -- asawanka added for debug feature start
1367: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'evergreen_eligibility';
1368: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1369: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1370: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1371: -- asawanka added for debug feature end
1372: BEGIN
1373: IF (is_debug_procedure_on) THEN
1374: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1370: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1371: -- asawanka added for debug feature end
1372: BEGIN
1373: IF (is_debug_procedure_on) THEN
1374: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1375: END IF;
1376: IF (is_debug_statement_on) THEN
1377: 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);
1378: END IF;
1373: IF (is_debug_procedure_on) THEN
1374: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1375: END IF;
1376: IF (is_debug_statement_on) THEN
1377: 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);
1378: END IF;
1379: OKL_AM_UTIL_PVT.get_rule_record(
1380: p_rgd_code => 'LAEVEL',
1381: p_rdf_code => l_rule_code,
1384: x_rulv_rec => l_rulv_rec,
1385: x_return_status => l_return_status,
1386: p_message_yn => FALSE);
1387: IF (is_debug_statement_on) THEN
1388: 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);
1389: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information1 = '||l_rulv_rec.rule_information1);
1390: END IF;
1391: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
1392: IF (NVL (l_rulv_rec.rule_information1, '*') = G_YES) THEN
1385: x_return_status => l_return_status,
1386: p_message_yn => FALSE);
1387: IF (is_debug_statement_on) THEN
1388: 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);
1389: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rulv_rec.rule_information1 = '||l_rulv_rec.rule_information1);
1390: END IF;
1391: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
1392: IF (NVL (l_rulv_rec.rule_information1, '*') = G_YES) THEN
1393: l_rule_found := G_YES;
1400: x_return_status := l_return_status;
1401: x_rule_found := l_rule_found;
1402:
1403: IF (is_debug_procedure_on) THEN
1404: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
1405: END IF;
1406: EXCEPTION
1407:
1408: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1406: EXCEPTION
1407:
1408: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1409: IF (is_debug_exception_on) THEN
1410: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
1411: END IF;
1412:
1413: x_return_status := OKL_API.G_RET_STS_ERROR;
1414:
1413: x_return_status := OKL_API.G_RET_STS_ERROR;
1414:
1415: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1416: IF (is_debug_exception_on) THEN
1417: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
1418: END IF;
1419:
1420: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1421:
1420: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1421:
1422: WHEN OTHERS THEN
1423: IF (is_debug_exception_on) THEN
1424: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
1425: END IF;
1426:
1427: -- Set the oracle error message
1428: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
1455: l_name OKC_K_LINES_V.name%TYPE;
1456:
1457: -- asawanka added for debug feature start
1458: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_asset_name';
1459: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1460: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1461: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1462: -- asawanka added for debug feature end
1463: BEGIN
1456:
1457: -- asawanka added for debug feature start
1458: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_asset_name';
1459: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1460: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1461: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1462: -- asawanka added for debug feature end
1463: BEGIN
1464: IF (is_debug_procedure_on) THEN
1457: -- asawanka added for debug feature start
1458: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_asset_name';
1459: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1460: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1461: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1462: -- asawanka added for debug feature end
1463: BEGIN
1464: IF (is_debug_procedure_on) THEN
1465: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1461: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1462: -- asawanka added for debug feature end
1463: BEGIN
1464: IF (is_debug_procedure_on) THEN
1465: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1466: END IF;
1467:
1468: IF (is_debug_statement_on) THEN
1469: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_kle_id = '||p_kle_id);
1465: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1466: END IF;
1467:
1468: IF (is_debug_statement_on) THEN
1469: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_kle_id = '||p_kle_id);
1470: END IF;
1471:
1472: OPEN k_lines_csr (p_kle_id);
1473: FETCH k_lines_csr INTO l_name;
1471:
1472: OPEN k_lines_csr (p_kle_id);
1473: FETCH k_lines_csr INTO l_name;
1474: IF (is_debug_statement_on) THEN
1475: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_name = '||l_name);
1476: END IF;
1477: IF k_lines_csr%FOUND THEN
1478: IF (is_debug_procedure_on) THEN
1479: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
1475: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_name = '||l_name);
1476: END IF;
1477: IF k_lines_csr%FOUND THEN
1478: IF (is_debug_procedure_on) THEN
1479: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
1480: END IF;
1481: RETURN l_name;
1482: ELSE
1483: IF (is_debug_procedure_on) THEN
1480: END IF;
1481: RETURN l_name;
1482: ELSE
1483: IF (is_debug_procedure_on) THEN
1484: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
1485: END IF;
1486: RETURN NULL;
1487: END IF;
1488: CLOSE k_lines_csr;
1490:
1491: EXCEPTION
1492: WHEN OTHERS THEN
1493: IF (is_debug_exception_on) THEN
1494: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
1495: END IF;
1496:
1497: IF k_lines_csr%ISOPEN THEN
1498: CLOSE k_lines_csr;
1554: --akrangan bug 5354501 fix end
1555:
1556: -- asawanka added for debug feature start
1557: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'initialize_transaction';
1558: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1559: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1560: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1561: -- asawanka added for debug feature end
1562: BEGIN
1555:
1556: -- asawanka added for debug feature start
1557: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'initialize_transaction';
1558: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1559: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1560: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1561: -- asawanka added for debug feature end
1562: BEGIN
1563: IF (is_debug_procedure_on) THEN
1556: -- asawanka added for debug feature start
1557: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'initialize_transaction';
1558: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1559: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1560: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1561: -- asawanka added for debug feature end
1562: BEGIN
1563: IF (is_debug_procedure_on) THEN
1564: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1560: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1561: -- asawanka added for debug feature end
1562: BEGIN
1563: IF (is_debug_procedure_on) THEN
1564: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1565: END IF;
1566:
1567: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1568: --20-NOV-2006 ANSETHUR R12B - LEGAL ENTITY UPTAKE PROJECT
1567: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1568: --20-NOV-2006 ANSETHUR R12B - LEGAL ENTITY UPTAKE PROJECT
1569: l_legal_entity_id := OKL_LEGAL_ENTITY_UTIL.get_khr_le_id (p_term_rec.p_contract_id);
1570: IF (is_debug_statement_on) THEN
1571: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_legal_entity_id = '||l_legal_entity_id);
1572: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_control_flag = '||p_control_flag);
1573: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
1574: END IF;
1575: IF p_control_flag = 'CREATE' THEN
1568: --20-NOV-2006 ANSETHUR R12B - LEGAL ENTITY UPTAKE PROJECT
1569: l_legal_entity_id := OKL_LEGAL_ENTITY_UTIL.get_khr_le_id (p_term_rec.p_contract_id);
1570: IF (is_debug_statement_on) THEN
1571: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_legal_entity_id = '||l_legal_entity_id);
1572: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_control_flag = '||p_control_flag);
1573: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
1574: END IF;
1575: IF p_control_flag = 'CREATE' THEN
1576: --akrangan bug 5354501 fix start
1569: l_legal_entity_id := OKL_LEGAL_ENTITY_UTIL.get_khr_le_id (p_term_rec.p_contract_id);
1570: IF (is_debug_statement_on) THEN
1571: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_legal_entity_id = '||l_legal_entity_id);
1572: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_control_flag = '||p_control_flag);
1573: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
1574: END IF;
1575: IF p_control_flag = 'CREATE' THEN
1576: --akrangan bug 5354501 fix start
1577: -- check if contract is eligible for Evergreen
1581:
1582: FETCH l_k_end_csr INTO l_k_end_date, l_k_sts_code;
1583: CLOSE l_k_end_csr;
1584: IF (is_debug_statement_on) THEN
1585: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_k_end_date = '||l_k_end_date);
1586: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_k_sts_code = '||l_k_sts_code);
1587: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'px_tcnv_rec.id = '||px_tcnv_rec.id);
1588: END IF;
1589: -- Check if this contract was evergreen earlier, so no need to set to evergreen again
1582: FETCH l_k_end_csr INTO l_k_end_date, l_k_sts_code;
1583: CLOSE l_k_end_csr;
1584: IF (is_debug_statement_on) THEN
1585: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_k_end_date = '||l_k_end_date);
1586: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_k_sts_code = '||l_k_sts_code);
1587: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'px_tcnv_rec.id = '||px_tcnv_rec.id);
1588: END IF;
1589: -- Check if this contract was evergreen earlier, so no need to set to evergreen again
1590: l_evergreen_earlier := check_k_evergreen_ear(
1583: CLOSE l_k_end_csr;
1584: IF (is_debug_statement_on) THEN
1585: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_k_end_date = '||l_k_end_date);
1586: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_k_sts_code = '||l_k_sts_code);
1587: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'px_tcnv_rec.id = '||px_tcnv_rec.id);
1588: END IF;
1589: -- Check if this contract was evergreen earlier, so no need to set to evergreen again
1590: l_evergreen_earlier := check_k_evergreen_ear(
1591: p_khr_id => p_term_rec.p_contract_id,
1591: p_khr_id => p_term_rec.p_contract_id,
1592: p_tcn_id => px_tcnv_rec.id,
1593: x_return_status => l_return_status);
1594: IF (is_debug_statement_on) THEN
1595: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_evergreen_earlier = '||l_evergreen_earlier);
1596: END IF;
1597: IF (l_evergreen_earlier <> 'Y'
1598: -- AND p_term_rec.p_control_flag LIKE 'BATCH_PROCESS%'
1599: AND TRUNC(l_k_end_date) <= TRUNC(p_sys_date)
1611: x_rule_found => l_rule_found,
1612: x_msg_count => x_msg_count,
1613: x_msg_data => x_msg_data);
1614: IF (is_debug_statement_on) THEN
1615: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_return_status of evergreen_eligibility = '||l_return_status);
1616: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_rule_found = '||l_rule_found);
1617: END IF;
1618: -- Raise exception to rollback to the savepoint
1619: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1612: x_msg_count => x_msg_count,
1613: x_msg_data => x_msg_data);
1614: IF (is_debug_statement_on) THEN
1615: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_return_status of evergreen_eligibility = '||l_return_status);
1616: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_rule_found = '||l_rule_found);
1617: END IF;
1618: -- Raise exception to rollback to the savepoint
1619: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1620:
1641: END IF;
1642: --akrangan bug 5354501 fix end
1643: -- Get the Transaction Id
1644: IF (is_debug_statement_on) THEN
1645: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_AM_UTIL_PVT.get_transaction_id ');
1646: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_try_name = '||l_try_name);
1647: END IF;
1648: OKL_AM_UTIL_PVT.get_transaction_id (
1649: p_try_name => l_try_name , --akrangan bug 5354501 fix added l_try_name
1642: --akrangan bug 5354501 fix end
1643: -- Get the Transaction Id
1644: IF (is_debug_statement_on) THEN
1645: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_AM_UTIL_PVT.get_transaction_id ');
1646: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_try_name = '||l_try_name);
1647: END IF;
1648: OKL_AM_UTIL_PVT.get_transaction_id (
1649: p_try_name => l_try_name , --akrangan bug 5354501 fix added l_try_name
1650: x_return_status => l_return_status,
1649: p_try_name => l_try_name , --akrangan bug 5354501 fix added l_try_name
1650: x_return_status => l_return_status,
1651: x_try_id => l_try_id);
1652: IF (is_debug_statement_on) THEN
1653: 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);
1654: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_trans_code = '||l_trans_code);
1655: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_try_id = '||l_try_id);
1656: END IF;
1657: -- Get the meaning of lookup
1650: x_return_status => l_return_status,
1651: x_try_id => l_try_id);
1652: IF (is_debug_statement_on) THEN
1653: 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);
1654: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_trans_code = '||l_trans_code);
1655: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_try_id = '||l_try_id);
1656: END IF;
1657: -- Get the meaning of lookup
1658: l_trans_meaning := OKL_AM_UTIL_PVT.get_lookup_meaning(
1651: x_try_id => l_try_id);
1652: IF (is_debug_statement_on) THEN
1653: 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);
1654: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_trans_code = '||l_trans_code);
1655: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_try_id = '||l_try_id);
1656: END IF;
1657: -- Get the meaning of lookup
1658: l_trans_meaning := OKL_AM_UTIL_PVT.get_lookup_meaning(
1659: p_lookup_type => 'OKL_ACCOUNTING_EVENT_TYPE',
1659: p_lookup_type => 'OKL_ACCOUNTING_EVENT_TYPE',
1660: p_lookup_code => l_trans_code, --akrangan bug 5354501 fix added l_trans_code
1661: p_validate_yn => 'Y');
1662: IF (is_debug_statement_on) THEN
1663: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_trans_meaning = '||l_trans_meaning);
1664: END IF;
1665: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1666:
1667: -- Message: Unable to find a transaction type for the transaction TRY_NAME
1675:
1676: -- Get the contract currency code
1677: l_currency_code := OKL_AM_UTIL_PVT.get_chr_currency(p_term_rec.p_contract_id);
1678: IF (is_debug_statement_on) THEN
1679: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_currency_code = '||l_currency_code);
1680: END IF;
1681: -- initialize the transaction rec
1682: px_tcnv_rec.khr_id := p_term_rec.p_contract_id;
1683: px_tcnv_rec.tcn_type := l_tcn_type; --akrangan bug 5354501 fix added l_tcn_type
1695: ELSE
1696: G_TMT_RECYCLE_YN := px_tcnv_rec.tmt_recycle_yn;
1697: END IF;
1698: IF (is_debug_statement_on) THEN
1699: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_quote_id = '||p_term_rec.p_quote_id);
1700: END IF;
1701: -- Set the rest of the transaction rec
1702: px_tcnv_rec.qte_id := p_term_rec.p_quote_id;
1703: px_tcnv_rec.tsu_code := 'ENTERED';
1714: px_tcnv_rec.trn_code := 'EXP';
1715: END IF;
1716:
1717: IF (is_debug_procedure_on) THEN
1718: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
1719: END IF;
1720: EXCEPTION
1721: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1722: IF (is_debug_exception_on) THEN
1719: END IF;
1720: EXCEPTION
1721: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1722: IF (is_debug_exception_on) THEN
1723: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
1724: END IF;
1725:
1726: x_return_status := OKL_API.G_RET_STS_ERROR;
1727: WHEN OTHERS THEN
1725:
1726: x_return_status := OKL_API.G_RET_STS_ERROR;
1727: WHEN OTHERS THEN
1728: IF (is_debug_exception_on) THEN
1729: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
1730: END IF;
1731:
1732: OKL_API.set_message(
1733: p_app_name => OKC_API.G_APP_NAME,
1782: l_api_name VARCHAR2(30) := 'get_contract_lines';
1783:
1784: -- asawanka added for debug feature start
1785: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_contract_lines';
1786: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1787: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1788: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1789: -- asawanka added for debug feature end
1790: BEGIN
1783:
1784: -- asawanka added for debug feature start
1785: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_contract_lines';
1786: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1787: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1788: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1789: -- asawanka added for debug feature end
1790: BEGIN
1791: IF (is_debug_procedure_on) THEN
1784: -- asawanka added for debug feature start
1785: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_contract_lines';
1786: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1787: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1788: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1789: -- asawanka added for debug feature end
1790: BEGIN
1791: IF (is_debug_procedure_on) THEN
1792: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1788: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1789: -- asawanka added for debug feature end
1790: BEGIN
1791: IF (is_debug_procedure_on) THEN
1792: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1793: END IF;
1794:
1795: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1796: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1803: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1804: RAISE OKL_API.G_EXCEPTION_ERROR;
1805: END IF;
1806: IF (is_debug_statement_on) THEN
1807: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
1808: END IF;
1809: i := 1;
1810: -- get the contract lines
1811: FOR k_lines_rec IN k_lines_csr ( p_term_rec.p_contract_id) LOOP
1817: x_return_status := l_return_status;
1818: x_klev_tbl := lx_klev_tbl;
1819: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1820: IF (is_debug_procedure_on) THEN
1821: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
1822: END IF;
1823: EXCEPTION
1824: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1825: IF (is_debug_exception_on) THEN
1822: END IF;
1823: EXCEPTION
1824: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1825: IF (is_debug_exception_on) THEN
1826: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
1827: END IF;
1828:
1829: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1830: (
1836: '_PVT'
1837: );
1838: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1839: IF (is_debug_exception_on) THEN
1840: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
1841: END IF;
1842:
1843: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1844: (
1850: '_PVT'
1851: );
1852: WHEN OTHERS THEN
1853: IF (is_debug_exception_on) THEN
1854: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
1855: END IF;
1856:
1857: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1858: (
1879: p_return_status IN VARCHAR2,
1880: px_overall_status IN OUT NOCOPY VARCHAR2) IS
1881: -- asawanka added for debug feature start
1882: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'set_overall_status';
1883: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1884: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1885: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1886: -- asawanka added for debug feature end
1887: BEGIN
1880: px_overall_status IN OUT NOCOPY VARCHAR2) IS
1881: -- asawanka added for debug feature start
1882: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'set_overall_status';
1883: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1884: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1885: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1886: -- asawanka added for debug feature end
1887: BEGIN
1888: IF (is_debug_procedure_on) THEN
1881: -- asawanka added for debug feature start
1882: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'set_overall_status';
1883: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1884: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1885: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1886: -- asawanka added for debug feature end
1887: BEGIN
1888: IF (is_debug_procedure_on) THEN
1889: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1885: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1886: -- asawanka added for debug feature end
1887: BEGIN
1888: IF (is_debug_procedure_on) THEN
1889: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1890: END IF;
1891:
1892: -- Store the highest degree of error
1893: -- Set p_overall_status only if p_overall_status was successful and
1897: OR p_return_status <> OKL_API.G_MISS_CHAR) THEN
1898: px_overall_status := p_return_status;
1899: END IF;
1900: IF (is_debug_procedure_on) THEN
1901: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
1902: END IF;
1903: EXCEPTION
1904:
1905: WHEN OTHERS THEN
1903: EXCEPTION
1904:
1905: WHEN OTHERS THEN
1906: IF (is_debug_exception_on) THEN
1907: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
1908: END IF;
1909:
1910: OKL_API.set_message(
1911: p_app_name => OKC_API.G_APP_NAME,
1945: FROM OKC_K_HEADERS_V
1946: WHERE id = p_khr_id;
1947: -- asawanka added for debug feature start
1948: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'set_database_values';
1949: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1950: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1951: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1952: -- asawanka added for debug feature end
1953: BEGIN
1946: WHERE id = p_khr_id;
1947: -- asawanka added for debug feature start
1948: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'set_database_values';
1949: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1950: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1951: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1952: -- asawanka added for debug feature end
1953: BEGIN
1954: IF (is_debug_procedure_on) THEN
1947: -- asawanka added for debug feature start
1948: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'set_database_values';
1949: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1950: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1951: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1952: -- asawanka added for debug feature end
1953: BEGIN
1954: IF (is_debug_procedure_on) THEN
1955: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1951: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1952: -- asawanka added for debug feature end
1953: BEGIN
1954: IF (is_debug_procedure_on) THEN
1955: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1956: END IF;
1957: IF (is_debug_statement_on) THEN
1958: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'px_term_rec.p_contract_id = '||px_term_rec.p_contract_id);
1959: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'px_term_rec.p_quote_id = '||px_term_rec.p_quote_id);
1954: IF (is_debug_procedure_on) THEN
1955: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1956: END IF;
1957: IF (is_debug_statement_on) THEN
1958: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'px_term_rec.p_contract_id = '||px_term_rec.p_contract_id);
1959: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'px_term_rec.p_quote_id = '||px_term_rec.p_quote_id);
1960: END IF;
1961: FOR get_k_details_rec IN get_k_details_csr(px_term_rec.p_contract_id) LOOP
1962:
1955: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1956: END IF;
1957: IF (is_debug_statement_on) THEN
1958: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'px_term_rec.p_contract_id = '||px_term_rec.p_contract_id);
1959: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'px_term_rec.p_quote_id = '||px_term_rec.p_quote_id);
1960: END IF;
1961: FOR get_k_details_rec IN get_k_details_csr(px_term_rec.p_contract_id) LOOP
1962:
1963: px_term_rec.p_contract_number := get_k_details_rec.contract_number;
1976: END LOOP;
1977:
1978: END IF;
1979: IF (is_debug_procedure_on) THEN
1980: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
1981: END IF;
1982: EXCEPTION
1983:
1984: WHEN OTHERS THEN
1982: EXCEPTION
1983:
1984: WHEN OTHERS THEN
1985: IF (is_debug_exception_on) THEN
1986: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
1987: END IF;
1988:
1989: OKL_API.set_message(
1990: p_app_name => OKC_API.G_APP_NAME,
2011:
2012: l_quote_type VARCHAR2(2000);
2013: -- asawanka added for debug feature start
2014: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'set_info_messages';
2015: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2016: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2017: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2018: -- asawanka added for debug feature end
2019: BEGIN
2012: l_quote_type VARCHAR2(2000);
2013: -- asawanka added for debug feature start
2014: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'set_info_messages';
2015: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2016: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2017: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2018: -- asawanka added for debug feature end
2019: BEGIN
2020: IF (is_debug_procedure_on) THEN
2013: -- asawanka added for debug feature start
2014: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'set_info_messages';
2015: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2016: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2017: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2018: -- asawanka added for debug feature end
2019: BEGIN
2020: IF (is_debug_procedure_on) THEN
2021: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2017: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2018: -- asawanka added for debug feature end
2019: BEGIN
2020: IF (is_debug_procedure_on) THEN
2021: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2022: END IF;
2023: IF (is_debug_statement_on) THEN
2024: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_control_flag = '||p_term_rec.p_control_flag);
2025: END IF;
2020: IF (is_debug_procedure_on) THEN
2021: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2022: END IF;
2023: IF (is_debug_statement_on) THEN
2024: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_control_flag = '||p_term_rec.p_control_flag);
2025: END IF;
2026: -- Check and Set the message saying where the termination request came from
2027: IF (p_term_rec.p_control_flag = 'CONTRACT_TERMINATE_SCRN') THEN
2028: -- Message: Termination request from Request Contract Termination screen
2076: p_token1 => 'CONTRACT_NUMBER',
2077: p_token1_value => p_term_rec.p_contract_number);
2078: END IF;
2079: IF (is_debug_procedure_on) THEN
2080: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
2081: END IF;
2082: EXCEPTION
2083:
2084: WHEN OTHERS THEN
2082: EXCEPTION
2083:
2084: WHEN OTHERS THEN
2085: IF (is_debug_exception_on) THEN
2086: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
2087: END IF;
2088:
2089: OKL_API.set_message(
2090: p_app_name => OKC_API.G_APP_NAME,
2114: p_ret_val IN VARCHAR2,
2115: px_tcnv_rec IN OUT NOCOPY tcnv_rec_type) IS
2116: -- asawanka added for debug feature start
2117: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'set_transaction_rec';
2118: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2119: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2120: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2121: -- asawanka added for debug feature end
2122: BEGIN
2115: px_tcnv_rec IN OUT NOCOPY tcnv_rec_type) IS
2116: -- asawanka added for debug feature start
2117: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'set_transaction_rec';
2118: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2119: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2120: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2121: -- asawanka added for debug feature end
2122: BEGIN
2123: IF (is_debug_procedure_on) THEN
2116: -- asawanka added for debug feature start
2117: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'set_transaction_rec';
2118: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2119: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2120: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2121: -- asawanka added for debug feature end
2122: BEGIN
2123: IF (is_debug_procedure_on) THEN
2124: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2120: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2121: -- asawanka added for debug feature end
2122: BEGIN
2123: IF (is_debug_procedure_on) THEN
2124: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2125: END IF;
2126:
2127: -- set the transaction record
2128: IF (p_overall_status = OKL_API.G_RET_STS_SUCCESS) THEN
2229: END IF;
2230:
2231: END IF;
2232: IF (is_debug_procedure_on) THEN
2233: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
2234: END IF;
2235: EXCEPTION
2236: WHEN OTHERS THEN
2237: IF (is_debug_exception_on) THEN
2234: END IF;
2235: EXCEPTION
2236: WHEN OTHERS THEN
2237: IF (is_debug_exception_on) THEN
2238: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
2239: END IF;
2240:
2241: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
2242: p_msg_name => g_unexpected_error,
2325:
2326: l_end_date DATE;
2327: -- asawanka added for debug feature start
2328: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'validate_lease';
2329: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2330: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2331: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2332: -- asawanka added for debug feature end
2333: BEGIN
2326: l_end_date DATE;
2327: -- asawanka added for debug feature start
2328: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'validate_lease';
2329: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2330: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2331: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2332: -- asawanka added for debug feature end
2333: BEGIN
2334: IF (is_debug_procedure_on) THEN
2327: -- asawanka added for debug feature start
2328: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'validate_lease';
2329: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2330: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2331: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2332: -- asawanka added for debug feature end
2333: BEGIN
2334: IF (is_debug_procedure_on) THEN
2335: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2331: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2332: -- asawanka added for debug feature end
2333: BEGIN
2334: IF (is_debug_procedure_on) THEN
2335: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2336: END IF;
2337:
2338: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2339:
2359: -- ++++++++++++++++++++ service contract integration begin ++++++++++++
2360:
2361: -- RMUNJULU 3061751 19-SEP-2003
2362: IF (is_debug_statement_on) THEN
2363: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
2364: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_control_flag = '||p_term_rec.p_control_flag);
2365: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_quote_id = '||p_term_rec.p_quote_id);
2366: END IF;
2367: -- Get the TRN details
2360:
2361: -- RMUNJULU 3061751 19-SEP-2003
2362: IF (is_debug_statement_on) THEN
2363: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
2364: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_control_flag = '||p_term_rec.p_control_flag);
2365: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_quote_id = '||p_term_rec.p_quote_id);
2366: END IF;
2367: -- Get the TRN details
2368: FOR get_trn_rec IN get_trn_csr(p_term_rec.p_contract_id) LOOP
2361: -- RMUNJULU 3061751 19-SEP-2003
2362: IF (is_debug_statement_on) THEN
2363: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
2364: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_control_flag = '||p_term_rec.p_control_flag);
2365: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_quote_id = '||p_term_rec.p_quote_id);
2366: END IF;
2367: -- Get the TRN details
2368: FOR get_trn_rec IN get_trn_csr(p_term_rec.p_contract_id) LOOP
2369:
2409: -- 23-JAN-06 SECHAWLA 4970009 : end
2410:
2411: -- 20-JAN-06 SECHAWLA 4970009 : added begin
2412: IF (is_debug_statement_on) THEN
2413: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_AM_LEASE_LOAN_TRMNT_PVT.check_int_calc_done');
2414: END IF;
2415: l_int_calc_done := OKL_AM_LEASE_LOAN_TRMNT_PVT.check_int_calc_done(
2416: p_contract_id => p_term_rec.p_contract_id,
2417: p_contract_number => p_term_rec.p_contract_number,
2420: --p_trn_date => p_sys_date); -- 23-JAN-06 SECHAWLA 4970009
2421: p_trn_date => l_end_date); -- 23-JAN-06 SECHAWLA 4970009
2422:
2423: IF (is_debug_statement_on) THEN
2424: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_int_calc_done = '||l_int_calc_done);
2425: END IF;
2426:
2427: IF l_int_calc_done IS NULL OR l_int_calc_done = 'N' THEN
2428:
2430: l_return_status := OKL_API.G_RET_STS_ERROR;
2431: END IF;
2432: -- 20-JAN-06 SECHAWLA 4970009 : added end
2433: IF (is_debug_statement_on) THEN
2434: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_AM_LEASE_LOAN_TRMNT_PVT.check_billing_done');
2435: END IF;
2436: -- BPD Now provides a API which tells till when the billing was done, use that
2437: l_billing_done := OKL_AM_LEASE_LOAN_TRMNT_PVT.check_billing_done(
2438: p_contract_id => p_term_rec.p_contract_id,
2438: p_contract_id => p_term_rec.p_contract_id,
2439: p_contract_number => p_term_rec.p_contract_number,
2440: p_trn_date => p_sys_date );
2441: IF (is_debug_statement_on) THEN
2442: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_billing_done = '||l_billing_done);
2443: END IF;
2444:
2445: IF l_billing_done IS NULL OR l_billing_done = 'N' THEN
2446:
2447: -- Message will be set in called procedure
2448: l_return_status := OKL_API.G_RET_STS_ERROR;
2449: END IF;
2450: IF (is_debug_statement_on) THEN
2451: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_GENERATE_ACCRUALS_PVT.check_date_accrued_till');
2452: END IF;
2453: -- rmunjulu LOANS_ENHANCEMENTS -- Check for accrual using new API
2454: l_accrual_done := OKL_GENERATE_ACCRUALS_PVT.check_date_accrued_till(
2455: p_khr_id => p_term_rec.p_contract_id,
2454: l_accrual_done := OKL_GENERATE_ACCRUALS_PVT.check_date_accrued_till(
2455: p_khr_id => p_term_rec.p_contract_id,
2456: p_date => p_sys_date);
2457: IF (is_debug_statement_on) THEN
2458: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_accrual_done = '||l_accrual_done);
2459: END IF;
2460:
2461: -- if accrual not done then error
2462: IF (nvl(l_accrual_done,'N') = 'N' ) THEN
2480:
2481: x_return_status := l_return_status;
2482: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2483: IF (is_debug_procedure_on) THEN
2484: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
2485: END IF;
2486:
2487: EXCEPTION
2488: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2486:
2487: EXCEPTION
2488: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2489: IF (is_debug_exception_on) THEN
2490: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
2491: END IF;
2492:
2493: -- 24-JAN-06 SECHAWLA 4970009 : close the open cursors
2494: IF l_okcheaders_b%ISOPEN THEN
2508: '_PVT'
2509: );
2510: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2511: IF (is_debug_exception_on) THEN
2512: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
2513: END IF;
2514:
2515: -- 24-JAN-06 SECHAWLA 4970009 : close the open cursors
2516: IF l_okcheaders_b%ISOPEN THEN
2531: '_PVT'
2532: );
2533: WHEN OTHERS THEN
2534: IF (is_debug_exception_on) THEN
2535: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
2536: END IF;
2537:
2538: -- 24-JAN-06 SECHAWLA 4970009 : close the open cursors
2539: IF l_okcheaders_b%ISOPEN THEN
2585: lx_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2586: lx_quotes_found VARCHAR2(1) := 'N';
2587: l_api_version NUMBER := 1;
2588: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'UPDATE_QUOTE_STATUS';
2589: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name,
2590: G_LEVEL_EXCEPTION);
2591: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name,
2592: G_LEVEL_PROCEDURE);
2593: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name,
2587: l_api_version NUMBER := 1;
2588: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'UPDATE_QUOTE_STATUS';
2589: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name,
2590: G_LEVEL_EXCEPTION);
2591: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name,
2592: G_LEVEL_PROCEDURE);
2593: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name,
2594: G_LEVEL_STATEMENT);
2595: --:= okl_debug_pub.check_log_on (l_module_name, g_level_exception);
2589: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name,
2590: G_LEVEL_EXCEPTION);
2591: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name,
2592: G_LEVEL_PROCEDURE);
2593: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name,
2594: G_LEVEL_STATEMENT);
2595: --:= okl_debug_pub.check_log_on (l_module_name, g_level_exception);
2596:
2597:
2591: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name,
2592: G_LEVEL_PROCEDURE);
2593: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name,
2594: G_LEVEL_STATEMENT);
2595: --:= okl_debug_pub.check_log_on (l_module_name, g_level_exception);
2596:
2597:
2598: -- Fetch tmt_status_code
2599:
2614:
2615: BEGIN
2616:
2617: IF (is_debug_procedure_on) THEN
2618: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2619: END IF;
2620:
2621: --Get termination quote status
2622:
2624: FETCH k_quotes_csr into l_qst_code;
2625: CLOSE k_quotes_csr;
2626:
2627: IF (is_debug_statement_on) THEN
2628: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_qst_code =
2629: '||l_qst_code);
2630: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_quote_id
2631: = '||p_term_rec.p_quote_id);
2632: END IF;
2626:
2627: IF (is_debug_statement_on) THEN
2628: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_qst_code =
2629: '||l_qst_code);
2630: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_quote_id
2631: = '||p_term_rec.p_quote_id);
2632: END IF;
2633:
2634: IF p_term_rec.p_quote_id is not null and l_qst_code = 'ACCEPTED' THEN
2633:
2634: IF p_term_rec.p_quote_id is not null and l_qst_code = 'ACCEPTED' THEN
2635:
2636: IF (is_debug_statement_on) THEN
2637: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Quote in
2638: status accepted exists');
2639: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_quote_id
2640: = '||p_term_rec.p_quote_id);
2641: END IF;
2635:
2636: IF (is_debug_statement_on) THEN
2637: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Quote in
2638: status accepted exists');
2639: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_quote_id
2640: = '||p_term_rec.p_quote_id);
2641: END IF;
2642:
2643: OPEN c_tmt_status_code_csr(p_term_rec.p_quote_id);
2644: FETCH c_tmt_status_code_csr INTO l_tmt_status_code;
2645: CLOSE c_tmt_status_code_csr;
2646:
2647: IF (is_debug_statement_on) THEN
2648: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_tmt_status_code
2649: = '||l_tmt_status_code);
2650: END IF;
2651:
2652: IF l_tmt_status_code = 'ERROR' THEN
2653: lp_qtev_rec.id := p_term_rec.p_quote_id;
2654: lp_qtev_rec.qst_code := l_quote_status;
2655:
2656: IF (is_debug_statement_on) THEN
2657: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'lp_qtev_rec.id
2658: = '||lp_qtev_rec.id);
2659: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'lp_qtev_rec.qst_code
2660: = '||lp_qtev_rec.qst_code );
2661: END IF;
2655:
2656: IF (is_debug_statement_on) THEN
2657: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'lp_qtev_rec.id
2658: = '||lp_qtev_rec.id);
2659: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'lp_qtev_rec.qst_code
2660: = '||lp_qtev_rec.qst_code );
2661: END IF;
2662:
2663: -- Call the update of the quote header api
2674:
2675:
2676: IF (is_debug_statement_on)
2677: THEN
2678: okl_debug_pub.log_debug (g_level_statement,
2679: l_module_name,
2680: 'failure while updating the quote status
2681: ');
2682:
2777: l_quote_accpt_date DATE;
2778: l_quote_eff_date DATE;
2779: -- asawanka added for debug feature start
2780: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'update_k_hdr_and_lines';
2781: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2782: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2783: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2784: -- asawanka added for debug feature end
2785: BEGIN
2778: l_quote_eff_date DATE;
2779: -- asawanka added for debug feature start
2780: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'update_k_hdr_and_lines';
2781: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2782: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2783: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2784: -- asawanka added for debug feature end
2785: BEGIN
2786: IF (is_debug_procedure_on) THEN
2779: -- asawanka added for debug feature start
2780: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'update_k_hdr_and_lines';
2781: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2782: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2783: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2784: -- asawanka added for debug feature end
2785: BEGIN
2786: IF (is_debug_procedure_on) THEN
2787: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2783: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2784: -- asawanka added for debug feature end
2785: BEGIN
2786: IF (is_debug_procedure_on) THEN
2787: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2788: END IF;
2789:
2790: -- Initialize savepoint to rollback to if error in this block
2791: SAVEPOINT update_k_hdr_lines;
2792:
2793: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2794:
2795: IF (is_debug_statement_on) THEN
2796: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
2797: END IF;
2798: OPEN k_header_csr;
2799: FETCH k_header_csr INTO rec_k_header;
2800: CLOSE k_header_csr;
2798: OPEN k_header_csr;
2799: FETCH k_header_csr INTO rec_k_header;
2800: CLOSE k_header_csr;
2801: IF (is_debug_statement_on) THEN
2802: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'rec_k_header.sts_code = '||rec_k_header.sts_code);
2803: END IF;
2804: OPEN get_old_ste_code_csr(rec_k_header.sts_code);
2805: FETCH get_old_ste_code_csr INTO l_ste_code;
2806: CLOSE get_old_ste_code_csr;
2820:
2821: -- RBRUNO BUG 6801022 START : UPDATE TERMINATION QUOTES FROM STATUS ACCEPTED
2822:
2823: IF (is_debug_statement_on) THEN
2824: okl_debug_pub.log_debug (g_level_statement,
2825: l_module_name,
2826: 'Invoking updating quote status');
2827: end if;
2828:
2829: --IF TERM QUOTE IN STATUS ACCEPTED EXISTS, UPDATE IT TO COMPLETE
2830: update_quote_status(p_term_rec);
2831:
2832: IF (is_debug_statement_on) THEN
2833: okl_debug_pub.log_debug (g_level_statement,
2834: l_module_name,
2835: 'post updating quote status');
2836: end if;
2837: -- RBRUNO BUG 6801022 END : UPDATE TERMINATION QUOTES FROM STATUS ACCEPTED
2838:
2839: -- RMUNJULU Bug # 3023206 Added call to Process_close_streams here
2840: -- Check if final termination ( DO NOT close streams if EVERGREEN)
2841: IF (is_debug_statement_on) THEN
2842: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_status = '||p_status);
2843: END IF;
2844:
2845: IF p_status IN ( 'TERMINATED','EXPIRED') THEN
2846:
2844:
2845: IF p_status IN ( 'TERMINATED','EXPIRED') THEN
2846:
2847: IF (is_debug_statement_on) THEN
2848: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling process_close_streams');
2849: END IF;
2850: process_close_streams(
2851: p_api_version => p_api_version,
2852: p_init_msg_list => OKL_API.G_FALSE,
2859: x_stmv_tbl => lx_stmv_tbl,
2860: p_sys_date => p_sys_date,
2861: p_trn_already_set => G_NO); -- Always NO since this step was not done earlier
2862: IF (is_debug_statement_on) THEN
2863: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called process_close_streams l_return_status = '||l_return_status);
2864: END IF;
2865:
2866: -- Raise exception to rollback to savepoint
2867: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2916: END LOOP;
2917:
2918:
2919: IF (is_debug_statement_on) THEN
2920: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling OKC_CONTRACT_PUB.update_contract_line');
2921: END IF;
2922:
2923: -- call the update line tbl
2924: OKC_CONTRACT_PUB.update_contract_line(
2929: x_msg_data => x_msg_data,
2930: p_clev_tbl => lp_clev_tbl,
2931: x_clev_tbl => lx_clev_tbl);
2932: IF (is_debug_statement_on) THEN
2933: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called OKC_CONTRACT_PUB.update_contract_linel_return_status ='||l_return_status);
2934: END IF;
2935: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2936:
2937: -- Error updating assets of contract CONTRACT_NUMBER to status STATUS.
2980: lp_chrv_rec.new_ste_code := p_status;
2981: lp_chrv_rec.org_id := rec_k_header.authoring_org_id; --CDUBEY added for MOAC
2982:
2983: IF (is_debug_statement_on) THEN
2984: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling OKC_CONTRACT_PUB.update_contract_header');
2985: END IF;
2986: -- Call the tapi to update contract with termination info
2987: OKC_CONTRACT_PUB.update_contract_header(
2988: p_api_version => p_api_version,
2993: p_restricted_update => OKL_API.G_TRUE,
2994: p_chrv_rec => lp_chrv_rec,
2995: x_chrv_rec => lx_chrv_rec);
2996: IF (is_debug_statement_on) THEN
2997: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called OKC_CONTRACT_PUB.update_contract_header l_return_status = '||l_return_status);
2998: END IF;
2999: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3000:
3001: -- Error updating contract CONTRACT_NUMBER to status STATUS.
3054: x_return_status := l_return_status;
3055: x_chrv_rec := lx_chrv_rec;
3056: x_clev_tbl := lx_clev_tbl;
3057: IF (is_debug_procedure_on) THEN
3058: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
3059: END IF;
3060: EXCEPTION
3061: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3062: IF (is_debug_exception_on) THEN
3059: END IF;
3060: EXCEPTION
3061: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3062: IF (is_debug_exception_on) THEN
3063: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
3064: END IF;
3065:
3066: IF get_old_ste_code_csr%ISOPEN THEN
3067: CLOSE get_old_ste_code_csr;
3091: px_tcnv_rec => px_tcnv_rec);
3092:
3093: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3094: IF (is_debug_exception_on) THEN
3095: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
3096: END IF;
3097:
3098: IF get_old_ste_code_csr%ISOPEN THEN
3099: CLOSE get_old_ste_code_csr;
3123: px_tcnv_rec => px_tcnv_rec);
3124:
3125: WHEN OTHERS THEN
3126: IF (is_debug_exception_on) THEN
3127: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
3128: END IF;
3129:
3130: IF get_old_ste_code_csr%ISOPEN THEN
3131: CLOSE get_old_ste_code_csr;
3193: l_api_name VARCHAR2(30) := 'process_transaction';
3194:
3195: -- asawanka added for debug feature start
3196: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_transaction';
3197: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3198: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3199: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3200: -- asawanka added for debug feature end
3201: BEGIN
3194:
3195: -- asawanka added for debug feature start
3196: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_transaction';
3197: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3198: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3199: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3200: -- asawanka added for debug feature end
3201: BEGIN
3202: IF (is_debug_procedure_on) THEN
3195: -- asawanka added for debug feature start
3196: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_transaction';
3197: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3198: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3199: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3200: -- asawanka added for debug feature end
3201: BEGIN
3202: IF (is_debug_procedure_on) THEN
3203: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
3199: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3200: -- asawanka added for debug feature end
3201: BEGIN
3202: IF (is_debug_procedure_on) THEN
3203: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
3204: END IF;
3205:
3206: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3207:
3218:
3219: -- Clear the recycle flag after processing
3220: lp_tcnv_rec.tmt_recycle_yn := NULL;
3221: IF (is_debug_statement_on) THEN
3222: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_trn_mode = '||p_trn_mode);
3223: END IF;
3224: IF p_trn_mode = 'INSERT' THEN
3225: IF (is_debug_statement_on) THEN
3226: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling OKL_TRX_CONTRACTS_PUB.create_trx_contracts');
3222: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_trn_mode = '||p_trn_mode);
3223: END IF;
3224: IF p_trn_mode = 'INSERT' THEN
3225: IF (is_debug_statement_on) THEN
3226: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling OKL_TRX_CONTRACTS_PUB.create_trx_contracts');
3227: END IF;
3228: -- insert transaction rec
3229: OKL_TRX_CONTRACTS_PUB.create_trx_contracts(
3230: p_api_version => p_api_version,
3234: x_msg_data => x_msg_data,
3235: p_tcnv_rec => lp_tcnv_rec,
3236: x_tcnv_rec => lx_tcnv_rec);
3237: IF (is_debug_statement_on) THEN
3238: 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);
3239: END IF;
3240: ELSIF p_trn_mode = 'UPDATE' THEN
3241: IF (is_debug_statement_on) THEN
3242: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling OKL_TRX_CONTRACTS_PUB.update_trx_contracts');
3238: 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);
3239: END IF;
3240: ELSIF p_trn_mode = 'UPDATE' THEN
3241: IF (is_debug_statement_on) THEN
3242: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling OKL_TRX_CONTRACTS_PUB.update_trx_contracts');
3243: END IF;
3244:
3245: -- update transaction rec
3246: OKL_TRX_CONTRACTS_PUB.update_trx_contracts(
3251: x_msg_data => x_msg_data,
3252: p_tcnv_rec => lp_tcnv_rec,
3253: x_tcnv_rec => lx_tcnv_rec);
3254: IF (is_debug_statement_on) THEN
3255: 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);
3256: END IF;
3257: END IF;
3258:
3259: -- rollback if error
3268: x_id := lx_tcnv_rec.id;
3269:
3270: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3271: IF (is_debug_procedure_on) THEN
3272: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
3273: END IF;
3274: EXCEPTION
3275: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3276: IF (is_debug_exception_on) THEN
3273: END IF;
3274: EXCEPTION
3275: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3276: IF (is_debug_exception_on) THEN
3277: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
3278: END IF;
3279:
3280: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3281: (
3287: '_PVT'
3288: );
3289: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3290: IF (is_debug_exception_on) THEN
3291: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
3292: END IF;
3293:
3294: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3295: (
3301: '_PVT'
3302: );
3303: WHEN OTHERS THEN
3304: IF (is_debug_exception_on) THEN
3305: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
3306: END IF;
3307:
3308: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3309: (
3727:
3728: l_evergreen_earlier VARCHAR2(3) := 'N';
3729: -- asawanka added for debug feature start
3730: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_evergreen_contract';
3731: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3732: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3733: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3734: -- asawanka added for debug feature end
3735: BEGIN
3728: l_evergreen_earlier VARCHAR2(3) := 'N';
3729: -- asawanka added for debug feature start
3730: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_evergreen_contract';
3731: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3732: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3733: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3734: -- asawanka added for debug feature end
3735: BEGIN
3736: IF (is_debug_procedure_on) THEN
3729: -- asawanka added for debug feature start
3730: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_evergreen_contract';
3731: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3732: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3733: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3734: -- asawanka added for debug feature end
3735: BEGIN
3736: IF (is_debug_procedure_on) THEN
3737: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
3733: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3734: -- asawanka added for debug feature end
3735: BEGIN
3736: IF (is_debug_procedure_on) THEN
3737: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
3738: END IF;
3739:
3740: -- Initialize savepoint to rollback to if error in this block
3741: SAVEPOINT evergreen;
3741: SAVEPOINT evergreen;
3742:
3743: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3744: IF (is_debug_statement_on) THEN
3745: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
3746: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'px_tcnv_rec.id = '||px_tcnv_rec.id);
3747: END IF;
3748: -- Get the contract end date
3749: OPEN l_k_end_csr ( p_term_rec.p_contract_id);
3742:
3743: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3744: IF (is_debug_statement_on) THEN
3745: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
3746: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'px_tcnv_rec.id = '||px_tcnv_rec.id);
3747: END IF;
3748: -- Get the contract end date
3749: OPEN l_k_end_csr ( p_term_rec.p_contract_id);
3750:
3786: -- Check control from batch process
3787: -- Check k ended before termination date
3788: -- Check no quote triggered the termination process ( ie from batch at end of term)
3789: IF (is_debug_statement_on) THEN
3790: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_evergreen_earlier = '||l_evergreen_earlier);
3791: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_control_flag = '||p_term_rec.p_control_flag);
3792: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_quote_id = '||p_term_rec.p_quote_id);
3793: END IF;
3794: IF (l_evergreen_earlier <> 'Y'
3787: -- Check k ended before termination date
3788: -- Check no quote triggered the termination process ( ie from batch at end of term)
3789: IF (is_debug_statement_on) THEN
3790: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_evergreen_earlier = '||l_evergreen_earlier);
3791: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_control_flag = '||p_term_rec.p_control_flag);
3792: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_quote_id = '||p_term_rec.p_quote_id);
3793: END IF;
3794: IF (l_evergreen_earlier <> 'Y'
3795: AND p_term_rec.p_control_flag LIKE 'BATCH_PROCESS%'
3788: -- Check no quote triggered the termination process ( ie from batch at end of term)
3789: IF (is_debug_statement_on) THEN
3790: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_evergreen_earlier = '||l_evergreen_earlier);
3791: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_control_flag = '||p_term_rec.p_control_flag);
3792: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_quote_id = '||p_term_rec.p_quote_id);
3793: END IF;
3794: IF (l_evergreen_earlier <> 'Y'
3795: AND p_term_rec.p_control_flag LIKE 'BATCH_PROCESS%'
3796: AND TRUNC(l_k_end_date) <= TRUNC(p_sys_date)
3804: p_msg_name => 'OKL_AM_STEP_EVR');
3805:
3806: -- get evergreen eligiblility
3807: IF (is_debug_statement_on) THEN
3808: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling evergreen_eligibility');
3809: END IF;
3810: evergreen_eligibility(
3811: p_term_rec => p_term_rec,
3812: x_return_status => l_return_status,
3823: p_msg_name => 'OKL_AM_EVERGREEN_RULE_ERR');
3824: RAISE OKL_API.G_EXCEPTION_ERROR;
3825: END IF;
3826: IF (is_debug_statement_on) THEN
3827: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_rule_found = '||l_rule_found);
3828: END IF;
3829: -- if control_flag = "batch process" and evergreen_status = "ok" then
3830: -- update contract_status to evergreen
3831: -- exit (raise exception)
3831: -- exit (raise exception)
3832: -- end if
3833: IF (l_rule_found = G_YES) THEN
3834: IF (is_debug_statement_on) THEN
3835: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling Okl_Am_Integration_Pvt.cancel_termination_quotes');
3836: END IF;
3837: -- rmunjulu EDAT cancel all quotes for the contract which are not accepted or completed
3838: Okl_Am_Integration_Pvt.cancel_termination_quotes (
3839: p_api_version => p_api_version,
3844: x_return_status => l_return_status,
3845: x_msg_count => x_msg_count,
3846: x_msg_data => x_msg_data);
3847: IF (is_debug_statement_on) THEN
3848: 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);
3849: END IF;
3850: -- Raise exception to rollback to the savepoint
3851: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3852: RAISE OKL_API.G_EXCEPTION_ERROR;
3851: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3852: RAISE OKL_API.G_EXCEPTION_ERROR;
3853: END IF;
3854: IF (is_debug_statement_on) THEN
3855: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling update_k_hdr_and_lines');
3856: END IF;
3857: -- set_and_update_contract
3858: update_k_hdr_and_lines(
3859: p_api_version => p_api_version,
3870: x_chrv_rec => lx_chrv_rec,
3871: x_clev_tbl => lx_clev_tbl,
3872: p_sys_date => p_sys_date);
3873: IF (is_debug_statement_on) THEN
3874: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called update_k_hdr_and_lines l_return_status = '||l_return_status);
3875: END IF;
3876: -- Raise exception to rollback to the savepoint
3877: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3878: RAISE OKL_API.G_EXCEPTION_ERROR;
3895: RAISE OKL_API.G_EXCEPTION_ERROR;
3896: END IF;
3897: */
3898: IF (is_debug_statement_on) THEN
3899: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling process_accounting_entries');
3900: END IF;
3901: -- rmunjulu 4141991 do accounting entries
3902: --pagarg 4190887 Pass klev_tbl to do accounting at line level
3903: process_accounting_entries(
3913: p_klev_tbl => p_klev_tbl, -- pagarg 4190887 Added
3914: p_trn_already_set => 'Y',
3915: p_source => 'EVERGREEN'); -- rmunjulu Bug 4141991
3916: IF (is_debug_statement_on) THEN
3917: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called process_accounting_entries l_return_status = '||l_return_status);
3918: END IF;
3919: -- rmunjulu 4141991 Raise exception to rollback to the savepoint
3920: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3921: RAISE OKL_API.G_EXCEPTION_ERROR;
3923:
3924: -- RMUNJULU 04-MAR-04 3485854 added call to process_amortize to do amortization
3925: -- Additional checks in process_amortize to cater to evergreen scenario
3926: IF (is_debug_statement_on) THEN
3927: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling process_amortize');
3928: END IF;
3929: process_amortize(
3930: p_api_version => p_api_version,
3931: p_init_msg_list => OKL_API.G_FALSE,
3937: px_tcnv_rec => px_tcnv_rec,
3938: p_sys_date => p_sys_date,
3939: p_call_origin => 'EVERGREEN');
3940: IF (is_debug_statement_on) THEN
3941: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called process_amortize l_return_status = '||l_return_status);
3942: END IF;
3943: -- Raise exception to rollback to the savepoint
3944: IF (px_overall_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3945: RAISE OKL_API.G_EXCEPTION_ERROR;
4002:
4003: x_return_status := l_return_status;
4004: x_evergreen_status := l_evergreen_status;
4005: IF (is_debug_procedure_on) THEN
4006: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
4007: END IF;
4008: EXCEPTION
4009: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4010: IF (is_debug_exception_on) THEN
4007: END IF;
4008: EXCEPTION
4009: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4010: IF (is_debug_exception_on) THEN
4011: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
4012: END IF;
4013:
4014: IF l_k_end_csr%ISOPEN THEN
4015: CLOSE l_k_end_csr;
4033: px_tcnv_rec => px_tcnv_rec);
4034:
4035: WHEN OTHERS THEN
4036: IF (is_debug_exception_on) THEN
4037: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
4038: END IF;
4039:
4040: IF l_k_end_csr%ISOPEN THEN
4041: CLOSE l_k_end_csr;
4106: l_quote_accpt_date DATE;
4107: l_quote_eff_date DATE;
4108: -- asawanka added for debug feature start
4109: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_cancel_insurance';
4110: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4111: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4112: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4113: -- asawanka added for debug feature end
4114: BEGIN
4107: l_quote_eff_date DATE;
4108: -- asawanka added for debug feature start
4109: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_cancel_insurance';
4110: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4111: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4112: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4113: -- asawanka added for debug feature end
4114: BEGIN
4115: IF (is_debug_procedure_on) THEN
4108: -- asawanka added for debug feature start
4109: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_cancel_insurance';
4110: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4111: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4112: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4113: -- asawanka added for debug feature end
4114: BEGIN
4115: IF (is_debug_procedure_on) THEN
4116: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
4112: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4113: -- asawanka added for debug feature end
4114: BEGIN
4115: IF (is_debug_procedure_on) THEN
4116: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
4117: END IF;
4118:
4119: -- Start savepoint to rollback to if error in this block
4120: SAVEPOINT cancel_insurance;
4136: END IF;
4137:
4138: -- rmunjulu +++++++++ Effective Dated Termination -- end ++++++++++++++++
4139: IF (is_debug_statement_on) THEN
4140: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
4141: 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);
4142: END IF;
4143: -- Get k end date
4144: OPEN k_end_date_csr(p_term_rec.p_contract_id);
4137:
4138: -- rmunjulu +++++++++ Effective Dated Termination -- end ++++++++++++++++
4139: IF (is_debug_statement_on) THEN
4140: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
4141: 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);
4142: END IF;
4143: -- Get k end date
4144: OPEN k_end_date_csr(p_term_rec.p_contract_id);
4145: FETCH k_end_date_csr INTO l_k_end_date;
4164: p_app_name => G_APP_NAME,
4165: p_msg_name => 'OKL_AM_STEP_INS');
4166:
4167: IF (is_debug_statement_on) THEN
4168: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling OKL_INSURANCE_POLICIES_PUB.cancel_policies');
4169: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_quote_eff_date = '||l_quote_eff_date);
4170: END IF;
4171:
4172: OKL_INSURANCE_POLICIES_PUB.cancel_policies(
4165: p_msg_name => 'OKL_AM_STEP_INS');
4166:
4167: IF (is_debug_statement_on) THEN
4168: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling OKL_INSURANCE_POLICIES_PUB.cancel_policies');
4169: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_quote_eff_date = '||l_quote_eff_date);
4170: END IF;
4171:
4172: OKL_INSURANCE_POLICIES_PUB.cancel_policies(
4173: p_api_version => p_api_version,
4179: p_cancellation_date => l_quote_eff_date, -- rmunjulu EDAT -- pass quote effective date
4180: p_crx_code => 'CONTRACT_CANCELED'); -- rmunjulu EDAT -- need to pass new cancelation code
4181:
4182: IF (is_debug_statement_on) THEN
4183: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called OKL_INSURANCE_POLICIES_PUB.cancel_policies l_return_status = '||l_return_status);
4184: END IF;
4185:
4186: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4187: -- Error in cancelling Insurance.
4227: END IF;
4228:
4229: x_return_status := l_return_status;
4230: IF (is_debug_procedure_on) THEN
4231: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
4232: END IF;
4233: EXCEPTION
4234: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4235: IF (is_debug_exception_on) THEN
4232: END IF;
4233: EXCEPTION
4234: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4235: IF (is_debug_exception_on) THEN
4236: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
4237: END IF;
4238:
4239: IF k_end_date_csr%ISOPEN THEN
4240: CLOSE k_end_date_csr;
4258: px_tcnv_rec => px_tcnv_rec);
4259:
4260: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4261: IF (is_debug_exception_on) THEN
4262: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
4263: END IF;
4264:
4265: IF k_end_date_csr%ISOPEN THEN
4266: CLOSE k_end_date_csr;
4284: px_tcnv_rec => px_tcnv_rec);
4285:
4286: WHEN OTHERS THEN
4287: IF (is_debug_exception_on) THEN
4288: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
4289: END IF;
4290:
4291: IF k_end_date_csr%ISOPEN THEN
4292: CLOSE k_end_date_csr;
4383: -- rmunjulu bug 4058630
4384: l_dummy_status VARCHAR2(3);
4385: -- asawanka added for debug feature start
4386: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_close_streams';
4387: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4388: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4389: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4390: -- asawanka added for debug feature end
4391: BEGIN
4384: l_dummy_status VARCHAR2(3);
4385: -- asawanka added for debug feature start
4386: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_close_streams';
4387: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4388: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4389: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4390: -- asawanka added for debug feature end
4391: BEGIN
4392: IF (is_debug_procedure_on) THEN
4385: -- asawanka added for debug feature start
4386: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_close_streams';
4387: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4388: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4389: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4390: -- asawanka added for debug feature end
4391: BEGIN
4392: IF (is_debug_procedure_on) THEN
4393: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
4389: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4390: -- asawanka added for debug feature end
4391: BEGIN
4392: IF (is_debug_procedure_on) THEN
4393: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
4394: END IF;
4395:
4396: -- Start a savepoint to rollback to if error in this block
4397: SAVEPOINT close_streams;
4403: lx_sty_id);
4404: -- smoduga +++++++++ User Defined Streams -- end ++++++++++++++++
4405:
4406: IF (is_debug_statement_on) THEN
4407: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
4408: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_trn_already_set = '||p_trn_already_set);
4409: 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);
4410: END IF;
4411: -- Check if streams exist
4404: -- smoduga +++++++++ User Defined Streams -- end ++++++++++++++++
4405:
4406: IF (is_debug_statement_on) THEN
4407: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
4408: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_trn_already_set = '||p_trn_already_set);
4409: 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);
4410: END IF;
4411: -- Check if streams exist
4412: OPEN k_streams_csr(p_term_rec.p_contract_id,nvl(lx_sty_id,OKL_API.G_MISS_NUM)); -- rmunjulu 4058630 check for NVL
4405:
4406: IF (is_debug_statement_on) THEN
4407: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
4408: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_trn_already_set = '||p_trn_already_set);
4409: 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);
4410: END IF;
4411: -- Check if streams exist
4412: OPEN k_streams_csr(p_term_rec.p_contract_id,nvl(lx_sty_id,OKL_API.G_MISS_NUM)); -- rmunjulu 4058630 check for NVL
4413: FETCH k_streams_csr INTO l_id;
4442:
4443: i := i + 1;
4444: END LOOP;
4445: IF (is_debug_statement_on) THEN
4446: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling OKL_STREAMS_PUB.update_streams');
4447: END IF;
4448: -- close streams
4449: OKL_STREAMS_PUB.update_streams(
4450: p_api_version => p_api_version,
4454: x_msg_data => x_msg_data,
4455: p_stmv_tbl => lp_stmv_tbl,
4456: x_stmv_tbl => lx_stmv_tbl);
4457: IF (is_debug_statement_on) THEN
4458: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called OKL_STREAMS_PUB.update_streams l_return_status ='||l_return_status);
4459: END IF;
4460:
4461: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4462: -- Streams table update failed.
4506:
4507: x_return_status := l_return_status;
4508: x_stmv_tbl := lx_stmv_tbl;
4509: IF (is_debug_procedure_on) THEN
4510: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
4511: END IF;
4512: EXCEPTION
4513: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4514: IF (is_debug_exception_on) THEN
4511: END IF;
4512: EXCEPTION
4513: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4514: IF (is_debug_exception_on) THEN
4515: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
4516: END IF;
4517:
4518: IF k_streams_csr%ISOPEN THEN
4519: CLOSE k_streams_csr;
4536: px_tcnv_rec => px_tcnv_rec);
4537:
4538: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4539: IF (is_debug_exception_on) THEN
4540: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
4541: END IF;
4542:
4543: IF k_streams_csr%ISOPEN THEN
4544: CLOSE k_streams_csr;
4561: px_tcnv_rec => px_tcnv_rec);
4562:
4563: WHEN OTHERS THEN
4564: IF (is_debug_exception_on) THEN
4565: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
4566: END IF;
4567:
4568: IF k_streams_csr%ISOPEN THEN
4569: CLOSE k_streams_csr;
4666: lx_tilv_tbl okl_txl_ar_inv_lns_pub.tilv_tbl_type;
4667: -- ansethur 23-FEB-07 R12B Added for Billing Enhancement Project End Changes
4668: -- asawanka added for debug feature start
4669: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_auto_invoice';
4670: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4671: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4672: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4673: -- asawanka added for debug feature end
4674: BEGIN
4667: -- ansethur 23-FEB-07 R12B Added for Billing Enhancement Project End Changes
4668: -- asawanka added for debug feature start
4669: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_auto_invoice';
4670: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4671: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4672: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4673: -- asawanka added for debug feature end
4674: BEGIN
4675: IF (is_debug_procedure_on) THEN
4668: -- asawanka added for debug feature start
4669: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_auto_invoice';
4670: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4671: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4672: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4673: -- asawanka added for debug feature end
4674: BEGIN
4675: IF (is_debug_procedure_on) THEN
4676: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
4672: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4673: -- asawanka added for debug feature end
4674: BEGIN
4675: IF (is_debug_procedure_on) THEN
4676: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
4677: END IF;
4678:
4679: SAVEPOINT auto_invoice;
4680:
4690: l_quote_eff_date := p_sys_date;
4691:
4692: END IF;
4693: IF (is_debug_statement_on) THEN
4694: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
4695: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_trn_already_set = '||p_trn_already_set);
4696: 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);
4697: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_auto_invoice_yn = '|| p_auto_invoice_yn);
4698: END IF;
4691:
4692: END IF;
4693: IF (is_debug_statement_on) THEN
4694: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
4695: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_trn_already_set = '||p_trn_already_set);
4696: 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);
4697: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_auto_invoice_yn = '|| p_auto_invoice_yn);
4698: END IF;
4699: -- check if auto invoice needed and not done already
4692: END IF;
4693: IF (is_debug_statement_on) THEN
4694: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
4695: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_trn_already_set = '||p_trn_already_set);
4696: 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);
4697: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_auto_invoice_yn = '|| p_auto_invoice_yn);
4698: END IF;
4699: -- check if auto invoice needed and not done already
4700: IF ((p_trn_already_set = G_YES
4693: IF (is_debug_statement_on) THEN
4694: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_contract_id = '||p_term_rec.p_contract_id);
4695: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_trn_already_set = '||p_trn_already_set);
4696: 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);
4697: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_auto_invoice_yn = '|| p_auto_invoice_yn);
4698: END IF;
4699: -- check if auto invoice needed and not done already
4700: IF ((p_trn_already_set = G_YES
4701: AND NVL(px_tcnv_rec.tmt_generic_flag3_yn, '?') <> G_YES)
4703: AND p_auto_invoice_yn = 'Y'
4704: AND p_klev_tbl.COUNT > 0 THEN
4705:
4706: IF (is_debug_statement_on) THEN
4707: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_STREAMS_UTIL.get_primary_stream_type.');
4708: END IF;
4709:
4710: -- get stream type id for Quote Purchase Amount Purpose
4711: OKL_STREAMS_UTIL.get_primary_stream_type(
4714: x_return_status => l_return_status,
4715: x_primary_sty_id => l_purchase_option_sty_id);
4716:
4717: IF (is_debug_statement_on) THEN
4718: 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);
4719: END IF;
4720:
4721: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
4722: AND (l_purchase_option_sty_id IS NULL OR l_purchase_option_sty_id = OKL_API.G_MISS_NUM) THEN
4746:
4747: -- Get the functional currency from AM_Util
4748: l_functional_currency_code := OKL_AM_UTIL_PVT.get_functional_currency();
4749: IF (is_debug_statement_on) THEN
4750: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_ACCOUNTING_UTIL.convert_to_functional_currency');
4751: END IF;
4752: -- Get the currency conversion details from ACCOUNTING_Util
4753: OKL_ACCOUNTING_UTIL.convert_to_functional_currency(
4754: p_khr_id => p_term_rec.p_contract_id,
4761: x_currency_conversion_rate => l_currency_conversion_rate,
4762: x_currency_conversion_date => l_currency_conversion_date,
4763: x_converted_amount => l_converted_amount);
4764: IF (is_debug_statement_on) THEN
4765: 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);
4766: END IF;
4767:
4768: -- Set some of the taiv rec attributes
4769: l_taiv_rec.currency_code := l_contract_currency_code;
4869: 'Process_Auto_Invoice.okl_internal_billing_pvt.create_billing_trx.',
4870: 'Start(+)');
4871: END IF;
4872: IF (is_debug_statement_on) THEN
4873: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling okl_internal_billing_pvt.create_billing_trx');
4874: END IF;
4875: okl_internal_billing_pvt.create_billing_trx(p_api_version => l_api_version,
4876: p_init_msg_list => p_init_msg_list,
4877: x_return_status => x_return_status,
4883: x_taiv_rec => lx_taiv_rec,
4884: x_tilv_tbl => lx_tilv_tbl,
4885: x_tldv_tbl => lx_tldv_tbl);
4886: IF (is_debug_statement_on) THEN
4887: 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);
4888: END IF;
4889:
4890:
4891: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5059:
5060: x_return_status := l_return_status;
5061:
5062: IF (is_debug_procedure_on) THEN
5063: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
5064: END IF;
5065: EXCEPTION
5066:
5067: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5065: EXCEPTION
5066:
5067: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5068: IF (is_debug_exception_on) THEN
5069: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
5070: END IF;
5071:
5072: ROLLBACK TO auto_invoice;
5073:
5088: px_tcnv_rec => px_tcnv_rec);
5089:
5090: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5091: IF (is_debug_exception_on) THEN
5092: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
5093: END IF;
5094:
5095: ROLLBACK TO auto_invoice;
5096:
5111: px_tcnv_rec => px_tcnv_rec);
5112:
5113: WHEN OTHERS THEN
5114: IF (is_debug_exception_on) THEN
5115: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
5116: END IF;
5117:
5118: ROLLBACK TO auto_invoice;
5119:
5297: l_curr_code VARCHAR2(200);
5298: l_formatted_inv_amt VARCHAR2(200);
5299: -- asawanka added for debug feature start
5300: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_close_balances';
5301: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5302: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5303: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5304: -- asawanka added for debug feature end
5305: BEGIN
5298: l_formatted_inv_amt VARCHAR2(200);
5299: -- asawanka added for debug feature start
5300: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_close_balances';
5301: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5302: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5303: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5304: -- asawanka added for debug feature end
5305: BEGIN
5306: IF (is_debug_procedure_on) THEN
5299: -- asawanka added for debug feature start
5300: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_close_balances';
5301: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5302: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5303: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5304: -- asawanka added for debug feature end
5305: BEGIN
5306: IF (is_debug_procedure_on) THEN
5307: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
5303: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5304: -- asawanka added for debug feature end
5305: BEGIN
5306: IF (is_debug_procedure_on) THEN
5307: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
5308: END IF;
5309:
5310: ---
5311: --get the tolerance limit from profile
5969: x_return_status := l_return_status;
5970: x_adjv_rec := lx_adjv_rec;
5971: --x_ajlv_tbl := lx_ajlv_tbl;
5972: IF (is_debug_procedure_on) THEN
5973: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
5974: END IF;
5975: EXCEPTION
5976: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5977: IF (is_debug_exception_on) THEN
5974: END IF;
5975: EXCEPTION
5976: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5977: IF (is_debug_exception_on) THEN
5978: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
5979: END IF;
5980:
5981: IF k_balances_csr%ISOPEN THEN
5982: CLOSE k_balances_csr;
6013: px_tcnv_rec => px_tcnv_rec);
6014:
6015: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6016: IF (is_debug_exception_on) THEN
6017: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
6018: END IF;
6019:
6020: IF k_balances_csr%ISOPEN THEN
6021: CLOSE k_balances_csr;
6052: px_tcnv_rec => px_tcnv_rec);
6053:
6054: WHEN OTHERS THEN
6055: IF (is_debug_exception_on) THEN
6056: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
6057: END IF;
6058:
6059: IF k_balances_csr%ISOPEN THEN
6060: CLOSE k_balances_csr;
6453: m NUMBER;
6454: --akrangan sla single accounting call to ae uptake ends
6455: -- asawanka added for debug feature start
6456: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_accounting_entries';
6457: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
6458: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
6459: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
6460: -- asawanka added for debug feature end
6461: BEGIN
6454: --akrangan sla single accounting call to ae uptake ends
6455: -- asawanka added for debug feature start
6456: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_accounting_entries';
6457: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
6458: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
6459: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
6460: -- asawanka added for debug feature end
6461: BEGIN
6462: IF (is_debug_procedure_on) THEN
6455: -- asawanka added for debug feature start
6456: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_accounting_entries';
6457: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
6458: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
6459: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
6460: -- asawanka added for debug feature end
6461: BEGIN
6462: IF (is_debug_procedure_on) THEN
6463: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
6459: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
6460: -- asawanka added for debug feature end
6461: BEGIN
6462: IF (is_debug_procedure_on) THEN
6463: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
6464: END IF;
6465:
6466: -- Start savepoint for this block
6467: SAVEPOINT accounting_entries;
6491: RAISE okl_api.g_exception_error;
6492:
6493: END IF;
6494: IF (is_debug_statement_on) THEN
6495: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,' l_pdt_id = '||l_pdt_id);
6496: END IF;
6497: -- get the product type
6498: OPEN l_product_type_csr(l_pdt_id);
6499: FETCH l_product_type_csr
6562: -- Bug 2902876 Added to get the valid GL date
6563: l_valid_gl_date := okl_accounting_util.get_valid_gl_date(p_gl_date => l_quote_accpt_date); -- rmunjulu EDAT
6564:
6565: IF (is_debug_statement_on) THEN
6566: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_securitization_pvt.check_khr_ia_associated');
6567: END IF;
6568: -- rmunjulu 4622198 SPECIAL_ACCNT Get special accounting details
6569: okl_securitization_pvt.check_khr_ia_associated(p_api_version => p_api_version,
6570: p_init_msg_list => okl_api.g_false,
6576: p_trx_date => l_quote_accpt_date,
6577: x_fact_synd_code => l_fact_synd_code,
6578: x_inv_acct_code => l_inv_acct_code);
6579: IF (is_debug_statement_on) THEN
6580: 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);
6581: END IF;
6582:
6583: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
6584: THEN
6592: lip_tmpl_identify_rec.factoring_synd_flag := l_fact_synd_code;
6593: lip_tmpl_identify_rec.investor_code := l_inv_acct_code;
6594:
6595: IF (is_debug_statement_on) THEN
6596: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_account_dist_pub.get_template_info');
6597: END IF;
6598: -- Get the accounting templates
6599: okl_account_dist_pub.get_template_info(p_api_version => p_api_version,
6600: p_init_msg_list => okl_api.g_false,
6604: p_tmpl_identify_rec => lip_tmpl_identify_rec,
6605: x_template_tbl => lix_template_tbl,
6606: p_validity_date => l_valid_gl_date); -- Bug 2902876 Added to pass valid GL date
6607: IF (is_debug_statement_on) THEN
6608: 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);
6609: END IF;
6610:
6611: IF l_return_status <> okl_api.g_ret_sts_success
6612: THEN
6639: THEN
6640: --akrangan Bug 6147049 code fix end
6641: -- Get the currency conversion details from ACCOUNTING_Util
6642: IF (is_debug_statement_on) THEN
6643: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_accounting_util.convert_to_functional_currency');
6644: END IF;
6645: okl_accounting_util.convert_to_functional_currency(
6646: p_khr_id => p_term_rec.p_contract_id,
6647: p_to_currency => l_functional_currency_code,
6654: x_currency_conversion_date => l_currency_conversion_date,
6655: x_converted_amount => l_converted_amount
6656: );
6657: IF (is_debug_statement_on) THEN
6658: 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);
6659: END IF;
6660: -- If error from OKL_ACCOUNTING_UTIL
6661: IF l_return_status <> okl_api.g_ret_sts_success
6662: THEN
6751: EXIT WHEN(i = lix_template_tbl.LAST);
6752: i := lix_template_tbl.NEXT(i);
6753: END LOOP;
6754: IF (is_debug_statement_on) THEN
6755: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_trx_contracts_pub.create_trx_cntrct_lines');
6756: END IF;
6757: --create trx contract lines table
6758: okl_trx_contracts_pub.create_trx_cntrct_lines(p_api_version => p_api_version,
6759: p_init_msg_list => okl_api.g_false,
6762: x_msg_data => x_msg_data,
6763: p_tclv_tbl => l_tclv_tbl,
6764: x_tclv_tbl => lx_tclv_tbl);
6765: IF (is_debug_statement_on) THEN
6766: 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);
6767: END IF;
6768:
6769: -- If error inserting line then set message
6770: IF l_return_status <> okl_api.g_ret_sts_success
6794: -- ******************************
6795: -- added code to set lp_acc_gen_primary_key_tbl
6796: -- for account generator
6797: IF (is_debug_statement_on) THEN
6798: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_acc_call_pvt.okl_populate_acc_gen');
6799: END IF;
6800: okl_acc_call_pvt.okl_populate_acc_gen(p_contract_id => p_term_rec.p_contract_id,
6801: p_contract_line_id => NULL,
6802: x_acc_gen_tbl => lp_acc_gen_primary_key_tbl,
6801: p_contract_line_id => NULL,
6802: x_acc_gen_tbl => lp_acc_gen_primary_key_tbl,
6803: x_return_status => l_return_status);
6804: IF (is_debug_statement_on) THEN
6805: 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);
6806: END IF;
6807: IF l_return_status <> okl_api.g_ret_sts_success
6808: THEN
6809: -- Error occurred when creating accounting entries for transaction TRX_TYPE.
6860: l_tcn_id := px_tcnv_rec.id;
6861: -- call accounting engine
6862: -- This will calculate the amount and generate accounting entries
6863: IF (is_debug_statement_on) THEN
6864: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_account_dist_pvt.create_accounting_dist');
6865: END IF;
6866: okl_account_dist_pvt.create_accounting_dist(p_api_version => p_api_version,
6867: p_init_msg_list => okl_api.g_false,
6868: x_return_status => l_return_status,
6875: x_template_tbl => l_template_out_tbl,
6876: x_amount_tbl => l_amount_out_tbl,
6877: p_trx_header_id => l_tcn_id);
6878: IF (is_debug_statement_on) THEN
6879: 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);
6880: END IF;
6881:
6882: IF l_amount_out_tbl.COUNT = 0
6883: THEN
6977: END LOOP;
6978: END IF;
6979: --call the api to update trx contracts hdr and lines
6980: IF (is_debug_statement_on) THEN
6981: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_trx_contracts_pub.update_trx_contracts');
6982: END IF;
6983: okl_trx_contracts_pub.update_trx_contracts(p_api_version => p_api_version,
6984: p_init_msg_list => okl_api.g_false,
6985: x_return_status => l_return_status,
6990: x_tcnv_rec => lix_tcnv_rec,
6991: x_tclv_tbl => lx_tclv_tbl);
6992: --handle exception
6993: IF (is_debug_statement_on) THEN
6994: 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);
6995: END IF;
6996: IF l_return_status <> okl_api.g_ret_sts_success
6997: THEN
6998: -- Error occurred when creating accounting entries for transaction TRX_TYPE.
7101: l_catchup_rec.gl_reversal_flag := g_no;
7102: l_catchup_rec.memo_yn := g_no;
7103: l_catchup_rec.description := 'Catchup of income on termination of the contract';
7104: IF (is_debug_statement_on) THEN
7105: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_generate_accruals_pub.catchup_accruals');
7106: END IF;
7107: okl_generate_accruals_pub.catchup_accruals(p_api_version => p_api_version,
7108: p_init_msg_list => okl_api.g_false,
7109: x_return_status => l_return_status,
7112: p_catchup_rec => l_catchup_rec,
7113: x_tcnv_tbl => lx_tcnv_tbl,
7114: x_tclv_tbl => lx_tclv_tbl);
7115: IF (is_debug_statement_on) THEN
7116: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called okl_generate_accruals_pub.catchup_accruals l_return_status = '||l_return_status);
7117: END IF;
7118: IF l_return_status <> okl_api.g_ret_sts_success
7119: THEN
7120:
7151: l_catchup_rec.product_id := l_reporting_pdt_id;
7152: l_catchup_rec.accrual_date := l_valid_gl_date_rep;
7153:
7154: IF (is_debug_statement_on) THEN
7155: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_generate_accruals_pub.catchup_accruals for SECONDARY');
7156: END IF;
7157: okl_generate_accruals_pub.catchup_accruals(p_api_version => p_api_version,
7158: p_init_msg_list => okl_api.g_false,
7159: x_return_status => l_return_status,
7163: x_tcnv_tbl => lx_tcnv_tbl,
7164: x_tclv_tbl => lx_tclv_tbl,
7165: p_representation_type => 'SECONDARY');
7166: IF (is_debug_statement_on) THEN
7167: 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);
7168: END IF;
7169: IF l_return_status <> okl_api.g_ret_sts_success
7170: THEN
7171:
7201:
7202: -- RMUNJULU 3097068 Added code to set the reversal date with valid GL date
7203: l_lprv_rec.reversal_date := l_valid_gl_date;
7204: IF (is_debug_statement_on) THEN
7205: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called okl_rev_loss_prov_pub.reverse_loss_provisions');
7206: END IF;
7207: okl_rev_loss_prov_pub.reverse_loss_provisions(p_api_version => p_api_version,
7208: p_init_msg_list => okl_api.g_false,
7209: x_return_status => l_return_status,
7210: x_msg_count => x_msg_count,
7211: x_msg_data => x_msg_data,
7212: p_lprv_rec => l_lprv_rec);
7213: IF (is_debug_statement_on) THEN
7214: 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);
7215: END IF;
7216: IF l_return_status <> okl_api.g_ret_sts_success
7217: THEN
7218:
7259: END IF;
7260: -- fix for bug -- 5623356 --
7261: -- rmunjulu EDAT call reversal of accruals to reverse accruals from quote eff date
7262: IF (is_debug_statement_on) THEN
7263: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_generate_accruals_pub.reverse_accruals');
7264: END IF;
7265: okl_generate_accruals_pub.reverse_accruals(p_api_version => p_api_version,
7266: p_init_msg_list => okl_api.g_false,
7267: x_return_status => l_return_status,
7273: p_reverse_from => l_reverse_from, -- Date from when accruals need to be reversed - Mandatory -- rmunjulu bug 4507662
7274: p_reverse_to => l_empty_reverse_to_date, -- No value needs to be passed to this
7275: p_tcn_type => l_empty_tcn_type); -- No value needs to be passed to this
7276: IF (is_debug_statement_on) THEN
7277: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called okl_generate_accruals_pub.reverse_accruals l_return_status = '||l_return_status);
7278: END IF;
7279: IF l_return_status <> okl_api.g_ret_sts_success
7280: THEN
7281:
7468:
7469: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
7470:
7471: IF (is_debug_statement_on) THEN
7472: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals , return status : ' || l_return_status);
7473: END IF;
7474:
7475: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
7476: THEN
7487: END LOOP; -- Added by ansethur for bug#6156337 08-Aug-2007 start
7488: --Bug# 3999921: pagarg +++ T and A +++++++ Start ++++++++++
7489: END IF; -- p_term_rec.p_quote_type <> 'TER_RELEASE_WO_PURCHASE'
7490: IF (is_debug_statement_on) THEN
7491: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_am_lease_loan_trmnt_pvt.process_adjustments');
7492: END IF;
7493: okl_am_lease_loan_trmnt_pvt.process_adjustments(p_api_version => p_api_version,
7494: p_init_msg_list => okl_api.g_false,
7495: x_return_status => l_return_status,
7499: p_tcnv_rec => px_tcnv_rec, -- rmunjulu TNA Added since trn_id is needed
7500: p_call_origin => 'FULL',
7501: p_termination_date => p_sys_date);
7502: IF (is_debug_statement_on) THEN
7503: 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);
7504: END IF;
7505:
7506: IF (is_debug_statement_on) THEN
7507: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_am_lease_loan_trmnt_pvt.process_adjustments');
7503: 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);
7504: END IF;
7505:
7506: IF (is_debug_statement_on) THEN
7507: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_am_lease_loan_trmnt_pvt.process_adjustments');
7508: END IF;
7509: --Bug# 3999921: pagarg +++ T and A +++++++ End ++++++++++
7510:
7511: -- End MDOKAL Bug 3061765
7519: p_term_rec => p_term_rec,
7520: p_call_origin => NULL,
7521: p_termination_date => p_sys_date);
7522: IF (is_debug_statement_on) THEN
7523: 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);
7524: END IF;
7525: IF l_return_status <> okl_api.g_ret_sts_success
7526: THEN
7527:
7538: END IF;
7539: -- Smoduga
7540: -- Call to Process discount and Subsidy during acceptance of a termination quote
7541: IF (is_debug_statement_on) THEN
7542: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_am_lease_loan_trmnt_pvt.process_loan_refunds');
7543: END IF;
7544: -- rmunjulu LOANS_ENHANCEMENTS Call to refund excess loan payments
7545: okl_am_lease_loan_trmnt_pvt.process_loan_refunds(p_api_version => p_api_version,
7546: p_init_msg_list => okl_api.g_false,
7551: p_tcnv_rec => px_tcnv_rec,
7552: p_call_origin => 'FULL',
7553: p_termination_date => p_sys_date);
7554: IF (is_debug_statement_on) THEN
7555: 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);
7556: END IF;
7557: IF l_return_status <> okl_api.g_ret_sts_success
7558: THEN
7559:
7615: END IF;
7616:
7617: x_return_status := l_return_status;
7618: IF (is_debug_procedure_on) THEN
7619: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
7620: END IF;
7621: EXCEPTION
7622:
7623: WHEN okl_api.g_exception_error THEN
7621: EXCEPTION
7622:
7623: WHEN okl_api.g_exception_error THEN
7624: IF (is_debug_exception_on) THEN
7625: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
7626: END IF;
7627:
7628: -- mdokal bug 3061765
7629: IF get_accel_till_csr%ISOPEN
7680: px_tcnv_rec => px_tcnv_rec);
7681:
7682: WHEN okl_api.g_exception_unexpected_error THEN
7683: IF (is_debug_exception_on) THEN
7684: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
7685: END IF;
7686:
7687:
7688: -- mdokal bug 3061765
7740: px_tcnv_rec => px_tcnv_rec);
7741:
7742: WHEN OTHERS THEN
7743: IF (is_debug_exception_on) THEN
7744: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
7745: END IF;
7746:
7747: -- mdokal bug 3061765
7748: IF get_accel_till_csr%ISOPEN
7948: x_txdv_rec adpv_rec_type;
7949: l_line_detail_number NUMBER := 1;
7950: -- asawanka added for debug feature start
7951: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'Create_Repo_asset';
7952: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
7953: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
7954: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
7955: -- asawanka added for debug feature end
7956: BEGIN
7949: l_line_detail_number NUMBER := 1;
7950: -- asawanka added for debug feature start
7951: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'Create_Repo_asset';
7952: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
7953: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
7954: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
7955: -- asawanka added for debug feature end
7956: BEGIN
7957: IF (is_debug_procedure_on) THEN
7950: -- asawanka added for debug feature start
7951: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'Create_Repo_asset';
7952: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
7953: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
7954: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
7955: -- asawanka added for debug feature end
7956: BEGIN
7957: IF (is_debug_procedure_on) THEN
7958: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
7954: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
7955: -- asawanka added for debug feature end
7956: BEGIN
7957: IF (is_debug_procedure_on) THEN
7958: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
7959: END IF;
7960:
7961: x_return_status := OKL_API.START_ACTIVITY (
7962: l_api_name
7969: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7970: RAISE OKL_API.G_EXCEPTION_ERROR;
7971: END IF;
7972: IF (is_debug_statement_on) THEN
7973: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_khr_id = '||p_khr_id);
7974: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_kle_id = '||p_kle_id);
7975: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_corporate_book = '||p_corporate_book);
7976: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_1 = '||p_tax_book_1);
7977: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_2 = '||p_tax_book_2);
7970: RAISE OKL_API.G_EXCEPTION_ERROR;
7971: END IF;
7972: IF (is_debug_statement_on) THEN
7973: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_khr_id = '||p_khr_id);
7974: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_kle_id = '||p_kle_id);
7975: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_corporate_book = '||p_corporate_book);
7976: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_1 = '||p_tax_book_1);
7977: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_2 = '||p_tax_book_2);
7978: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_rep_book = '||p_rep_book);
7971: END IF;
7972: IF (is_debug_statement_on) THEN
7973: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_khr_id = '||p_khr_id);
7974: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_kle_id = '||p_kle_id);
7975: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_corporate_book = '||p_corporate_book);
7976: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_1 = '||p_tax_book_1);
7977: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_2 = '||p_tax_book_2);
7978: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_rep_book = '||p_rep_book);
7979: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_fa_location_id = '||p_fa_location_id);
7972: IF (is_debug_statement_on) THEN
7973: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_khr_id = '||p_khr_id);
7974: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_kle_id = '||p_kle_id);
7975: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_corporate_book = '||p_corporate_book);
7976: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_1 = '||p_tax_book_1);
7977: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_2 = '||p_tax_book_2);
7978: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_rep_book = '||p_rep_book);
7979: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_fa_location_id = '||p_fa_location_id);
7980: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_asset_key_id = '||p_asset_key_id);
7973: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_khr_id = '||p_khr_id);
7974: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_kle_id = '||p_kle_id);
7975: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_corporate_book = '||p_corporate_book);
7976: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_1 = '||p_tax_book_1);
7977: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_2 = '||p_tax_book_2);
7978: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_rep_book = '||p_rep_book);
7979: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_fa_location_id = '||p_fa_location_id);
7980: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_asset_key_id = '||p_asset_key_id);
7981: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_depreciate_yn = '||p_depreciate_yn);
7974: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_kle_id = '||p_kle_id);
7975: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_corporate_book = '||p_corporate_book);
7976: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_1 = '||p_tax_book_1);
7977: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_2 = '||p_tax_book_2);
7978: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_rep_book = '||p_rep_book);
7979: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_fa_location_id = '||p_fa_location_id);
7980: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_asset_key_id = '||p_asset_key_id);
7981: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_depreciate_yn = '||p_depreciate_yn);
7982: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tas_id = '||p_tas_id);
7975: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_corporate_book = '||p_corporate_book);
7976: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_1 = '||p_tax_book_1);
7977: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_2 = '||p_tax_book_2);
7978: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_rep_book = '||p_rep_book);
7979: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_fa_location_id = '||p_fa_location_id);
7980: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_asset_key_id = '||p_asset_key_id);
7981: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_depreciate_yn = '||p_depreciate_yn);
7982: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tas_id = '||p_tas_id);
7983: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_line_number = '||p_line_number);
7976: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_1 = '||p_tax_book_1);
7977: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_2 = '||p_tax_book_2);
7978: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_rep_book = '||p_rep_book);
7979: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_fa_location_id = '||p_fa_location_id);
7980: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_asset_key_id = '||p_asset_key_id);
7981: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_depreciate_yn = '||p_depreciate_yn);
7982: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tas_id = '||p_tas_id);
7983: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_line_number = '||p_line_number);
7984: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_quote_id = '||p_quote_id);
7977: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_2 = '||p_tax_book_2);
7978: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_rep_book = '||p_rep_book);
7979: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_fa_location_id = '||p_fa_location_id);
7980: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_asset_key_id = '||p_asset_key_id);
7981: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_depreciate_yn = '||p_depreciate_yn);
7982: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tas_id = '||p_tas_id);
7983: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_line_number = '||p_line_number);
7984: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_quote_id = '||p_quote_id);
7985: END IF;
7978: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_rep_book = '||p_rep_book);
7979: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_fa_location_id = '||p_fa_location_id);
7980: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_asset_key_id = '||p_asset_key_id);
7981: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_depreciate_yn = '||p_depreciate_yn);
7982: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tas_id = '||p_tas_id);
7983: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_line_number = '||p_line_number);
7984: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_quote_id = '||p_quote_id);
7985: END IF;
7986: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7979: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_fa_location_id = '||p_fa_location_id);
7980: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_asset_key_id = '||p_asset_key_id);
7981: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_depreciate_yn = '||p_depreciate_yn);
7982: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tas_id = '||p_tas_id);
7983: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_line_number = '||p_line_number);
7984: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_quote_id = '||p_quote_id);
7985: END IF;
7986: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7987:
7980: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_asset_key_id = '||p_asset_key_id);
7981: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_depreciate_yn = '||p_depreciate_yn);
7982: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tas_id = '||p_tas_id);
7983: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_line_number = '||p_line_number);
7984: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_quote_id = '||p_quote_id);
7985: END IF;
7986: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7987:
7988: OPEN l_sub_line_csr(p_chr_id => p_khr_id,
8042: l_asset_hdr_rec.asset_id := l_asset_id;
8043: l_asset_hdr_rec.book_type_code :=p_rep_book;
8044: END IF;
8045:
8046: okl_debug_pub.logmessage('AKP:l_counter=' || l_counter || ' book=' || l_asset_hdr_rec.book_type_code);
8047: l_asset_hdr_rec.set_of_books_id :=l_set_of_books_id;
8048:
8049: l_asset_desc_rec.asset_number := l_asset_description.NAME;
8050: l_asset_desc_rec.description := l_asset_description.ITEM_DESCRIPTION;
8081:
8082: l_asset_fin_rec.cost := l_oec;
8083: l_asset_fin_rec.original_cost := l_oec;
8084: IF (is_debug_statement_on) THEN
8085: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling fa_addition_pub.do_addition');
8086: END IF;
8087: fa_addition_pub.do_addition
8088: (p_api_version => l_api_version,
8089: p_init_msg_list => OKL_API.G_FALSE,
8105: px_asset_dist_tbl => l_asset_dist_tbl,
8106: px_inv_tbl => l_inv_tbl
8107: );
8108: IF (is_debug_statement_on) THEN
8109: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called fa_addition_pub.do_addition x_return_status = '||x_return_status);
8110: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_asset_hdr_rec.asset_id = '||l_asset_hdr_rec.asset_id);
8111: END IF;
8112:
8113: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8106: px_inv_tbl => l_inv_tbl
8107: );
8108: IF (is_debug_statement_on) THEN
8109: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called fa_addition_pub.do_addition x_return_status = '||x_return_status);
8110: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_asset_hdr_rec.asset_id = '||l_asset_hdr_rec.asset_id);
8111: END IF;
8112:
8113: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8114: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8128: l_cim_rec.id := l_cim_asset_id.ID;
8129: l_cim_rec.object1_id1 := to_char(l_asset_id);
8130: l_cim_rec.object1_id2 := '#';
8131: IF (is_debug_statement_on) THEN
8132: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling okl_okc_migration_pvt.update_contract_item');
8133: END IF;
8134:
8135: okl_okc_migration_pvt.update_contract_item(
8136: p_api_version => 1.0,
8140: x_msg_data =>x_msg_data,
8141: p_cimv_rec =>l_cim_rec,
8142: x_cimv_rec =>x_cim_rec);
8143: IF (is_debug_statement_on) THEN
8144: 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);
8145: END IF;
8146:
8147: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8148: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8162: l_talv_rec.year_manufactured := l_model_line_rec.year_of_manufacture;
8163: l_talv_rec.Depreciation_Cost := l_oec;
8164: l_talv_rec.kle_id := p_kle_id;
8165: IF (is_debug_statement_on) THEN
8166: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_TXL_ASSETS_PUB.create_txl_asset_def');
8167: END IF;
8168: OKL_TXL_ASSETS_PUB.create_txl_asset_def(
8169: p_api_version => 1,
8170: p_init_msg_list => p_init_msg_list,
8173: x_msg_data => x_msg_data,
8174: p_tlpv_rec => l_talv_rec,
8175: x_tlpv_rec => x_talv_rec);
8176: IF (is_debug_statement_on) THEN
8177: 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);
8178: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_talv_rec.ID = '||x_talv_rec.ID);
8179: END IF;
8180:
8181: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8174: p_tlpv_rec => l_talv_rec,
8175: x_tlpv_rec => x_talv_rec);
8176: IF (is_debug_statement_on) THEN
8177: 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);
8178: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_talv_rec.ID = '||x_talv_rec.ID);
8179: END IF;
8180:
8181: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8182: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8187: END IF;
8188:
8189: IF (l_counter > 1) THEN
8190: IF (is_debug_statement_on) THEN
8191: 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);
8192: END IF;
8193:
8194: OPEN c_get_fa_books(l_asset_hdr_rec.book_type_code, l_asset_id);
8195: FETCH c_get_fa_books INTO l_get_fa_books;
8194: OPEN c_get_fa_books(l_asset_hdr_rec.book_type_code, l_asset_id);
8195: FETCH c_get_fa_books INTO l_get_fa_books;
8196: IF c_get_fa_books%NOTFOUND THEN
8197: IF (is_debug_statement_on) THEN
8198: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'No Data Found in Cursor c_get_fa_books');
8199: END IF;
8200: CLOSE c_get_fa_books;
8201: ELSE
8202: l_txdv_rec.OBJECT_VERSION_NUMBER := 1;
8218:
8219: CLOSE c_get_fa_books;
8220:
8221: IF (is_debug_statement_on) THEN
8222: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_TXD_ASSETS_PUB.create_txd_asset_def');
8223: END IF;
8224:
8225: OKL_TXD_ASSETS_PUB.create_txd_asset_def(
8226: p_api_version => 1,
8230: x_msg_data => x_msg_data,
8231: p_adpv_rec => l_txdv_rec,
8232: x_adpv_rec => x_txdv_rec);
8233: IF (is_debug_statement_on) THEN
8234: 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);
8235: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_txdv_rec.ID = '||x_txdv_rec.ID);
8236: END IF;
8237: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8238: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8231: p_adpv_rec => l_txdv_rec,
8232: x_adpv_rec => x_txdv_rec);
8233: IF (is_debug_statement_on) THEN
8234: 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);
8235: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_txdv_rec.ID = '||x_txdv_rec.ID);
8236: END IF;
8237: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8238: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8239: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8248: END LOOP;
8249:
8250: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data );
8251: IF (is_debug_procedure_on) THEN
8252: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
8253: END IF;
8254: EXCEPTION
8255: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8256: IF (is_debug_exception_on) THEN
8253: END IF;
8254: EXCEPTION
8255: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8256: IF (is_debug_exception_on) THEN
8257: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
8258: END IF;
8259:
8260: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8261: l_api_name,
8265: x_msg_data,
8266: '_PVT');
8267: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8268: IF (is_debug_exception_on) THEN
8269: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
8270: END IF;
8271:
8272: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8273: l_api_name,
8277: x_msg_data,
8278: '_PVT');
8279: WHEN OTHERS THEN
8280: IF (is_debug_exception_on) THEN
8281: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
8282: END IF;
8283:
8284: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8285: l_api_name,
8560: l_line_type VARCHAR2(1);
8561:
8562: -- asawanka added for debug feature start
8563: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'Create_Repo_asset';
8564: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
8565: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
8566: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
8567: -- asawanka added for debug feature end
8568:
8561:
8562: -- asawanka added for debug feature start
8563: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'Create_Repo_asset';
8564: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
8565: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
8566: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
8567: -- asawanka added for debug feature end
8568:
8569: BEGIN
8562: -- asawanka added for debug feature start
8563: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'Create_Repo_asset';
8564: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
8565: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
8566: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
8567: -- asawanka added for debug feature end
8568:
8569: BEGIN
8570:
8568:
8569: BEGIN
8570:
8571: IF (is_debug_procedure_on) THEN
8572: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
8573: END IF;
8574: x_return_status := OKL_API.START_ACTIVITY (
8575: l_api_name
8576: ,p_init_msg_list
8583: RAISE OKL_API.G_EXCEPTION_ERROR;
8584: END IF;
8585:
8586: IF (is_debug_statement_on) THEN
8587: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_khr_id = '||p_khr_id);
8588: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_kle_id = '||p_kle_id);
8589: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_corporate_book = '||p_corporate_book);
8590: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_1 = '||p_tax_book_1);
8591: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_2 = '||p_tax_book_2);
8584: END IF;
8585:
8586: IF (is_debug_statement_on) THEN
8587: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_khr_id = '||p_khr_id);
8588: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_kle_id = '||p_kle_id);
8589: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_corporate_book = '||p_corporate_book);
8590: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_1 = '||p_tax_book_1);
8591: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_2 = '||p_tax_book_2);
8592: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_rep_book = '||p_rep_book);
8585:
8586: IF (is_debug_statement_on) THEN
8587: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_khr_id = '||p_khr_id);
8588: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_kle_id = '||p_kle_id);
8589: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_corporate_book = '||p_corporate_book);
8590: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_1 = '||p_tax_book_1);
8591: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_2 = '||p_tax_book_2);
8592: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_rep_book = '||p_rep_book);
8593: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_fa_location_id = '||p_fa_location_id);
8586: IF (is_debug_statement_on) THEN
8587: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_khr_id = '||p_khr_id);
8588: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_kle_id = '||p_kle_id);
8589: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_corporate_book = '||p_corporate_book);
8590: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_1 = '||p_tax_book_1);
8591: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_2 = '||p_tax_book_2);
8592: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_rep_book = '||p_rep_book);
8593: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_fa_location_id = '||p_fa_location_id);
8594: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_asset_key_id = '||p_asset_key_id);
8587: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_khr_id = '||p_khr_id);
8588: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_kle_id = '||p_kle_id);
8589: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_corporate_book = '||p_corporate_book);
8590: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_1 = '||p_tax_book_1);
8591: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_2 = '||p_tax_book_2);
8592: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_rep_book = '||p_rep_book);
8593: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_fa_location_id = '||p_fa_location_id);
8594: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_asset_key_id = '||p_asset_key_id);
8595: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_depreciate_yn = '||p_depreciate_yn);
8588: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_kle_id = '||p_kle_id);
8589: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_corporate_book = '||p_corporate_book);
8590: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_1 = '||p_tax_book_1);
8591: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_2 = '||p_tax_book_2);
8592: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_rep_book = '||p_rep_book);
8593: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_fa_location_id = '||p_fa_location_id);
8594: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_asset_key_id = '||p_asset_key_id);
8595: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_depreciate_yn = '||p_depreciate_yn);
8596: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tas_id = '||p_tas_id);
8589: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_corporate_book = '||p_corporate_book);
8590: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_1 = '||p_tax_book_1);
8591: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_2 = '||p_tax_book_2);
8592: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_rep_book = '||p_rep_book);
8593: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_fa_location_id = '||p_fa_location_id);
8594: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_asset_key_id = '||p_asset_key_id);
8595: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_depreciate_yn = '||p_depreciate_yn);
8596: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tas_id = '||p_tas_id);
8597: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_line_number = '||p_line_number);
8590: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_1 = '||p_tax_book_1);
8591: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_2 = '||p_tax_book_2);
8592: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_rep_book = '||p_rep_book);
8593: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_fa_location_id = '||p_fa_location_id);
8594: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_asset_key_id = '||p_asset_key_id);
8595: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_depreciate_yn = '||p_depreciate_yn);
8596: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tas_id = '||p_tas_id);
8597: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_line_number = '||p_line_number);
8598: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_quote_id = '||p_quote_id);
8591: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tax_book_2 = '||p_tax_book_2);
8592: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_rep_book = '||p_rep_book);
8593: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_fa_location_id = '||p_fa_location_id);
8594: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_asset_key_id = '||p_asset_key_id);
8595: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_depreciate_yn = '||p_depreciate_yn);
8596: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tas_id = '||p_tas_id);
8597: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_line_number = '||p_line_number);
8598: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_quote_id = '||p_quote_id);
8599: END IF;
8592: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_rep_book = '||p_rep_book);
8593: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_fa_location_id = '||p_fa_location_id);
8594: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_asset_key_id = '||p_asset_key_id);
8595: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_depreciate_yn = '||p_depreciate_yn);
8596: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tas_id = '||p_tas_id);
8597: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_line_number = '||p_line_number);
8598: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_quote_id = '||p_quote_id);
8599: END IF;
8600: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8593: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_fa_location_id = '||p_fa_location_id);
8594: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_asset_key_id = '||p_asset_key_id);
8595: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_depreciate_yn = '||p_depreciate_yn);
8596: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tas_id = '||p_tas_id);
8597: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_line_number = '||p_line_number);
8598: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_quote_id = '||p_quote_id);
8599: END IF;
8600: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8601:
8594: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_asset_key_id = '||p_asset_key_id);
8595: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_depreciate_yn = '||p_depreciate_yn);
8596: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_tas_id = '||p_tas_id);
8597: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_line_number = '||p_line_number);
8598: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_quote_id = '||p_quote_id);
8599: END IF;
8600: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8601:
8602: OPEN l_sub_line_csr(p_chr_id => p_khr_id,
8695: l_asset_fin_rec.cost := l_oec;
8696: l_asset_fin_rec.original_cost := l_oec;
8697:
8698: IF (is_debug_statement_on) THEN
8699: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling fa_addition_pub.do_addition');
8700: END IF;
8701:
8702: fa_addition_pub.do_addition
8703: (p_api_version => l_api_version,
8721: px_inv_tbl => l_inv_tbl
8722: );
8723:
8724: IF (is_debug_statement_on) THEN
8725: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called fa_addition_pub.do_addition x_return_status = '||x_return_status);
8726: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_asset_hdr_rec.asset_id = '||l_asset_hdr_rec.asset_id);
8727: END IF;
8728:
8729: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8722: );
8723:
8724: IF (is_debug_statement_on) THEN
8725: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called fa_addition_pub.do_addition x_return_status = '||x_return_status);
8726: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_asset_hdr_rec.asset_id = '||l_asset_hdr_rec.asset_id);
8727: END IF;
8728:
8729: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8730: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8733: END IF;
8734:
8735:
8736: l_asset_id := l_asset_hdr_rec.asset_id;
8737: okl_debug_pub.logmessage('AKP:After do_addition: x_return_status=' || x_return_status || ' l_asset_id=' || l_asset_id);
8738:
8739: IF (l_counter =1) THEN
8740: OPEN c_cim_asset_id(p_kle_id);
8741: FETCH c_cim_asset_id INTO l_cim_asset_id;
8745: l_cim_rec.object1_id1 := to_char(l_asset_id);
8746: l_cim_rec.object1_id2 := '#';
8747:
8748: IF (is_debug_statement_on) THEN
8749: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling okl_okc_migration_pvt.update_contract_item');
8750: END IF;
8751:
8752: okl_okc_migration_pvt.update_contract_item(
8753: p_api_version => 1.0,
8758: p_cimv_rec =>l_cim_rec,
8759: x_cimv_rec =>x_cim_rec);
8760:
8761: IF (is_debug_statement_on) THEN
8762: 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);
8763: END IF;
8764:
8765: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8766: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8767: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8768: RAISE OKL_API.G_EXCEPTION_ERROR;
8769: END IF;
8770:
8771: okl_debug_pub.logmessage('AKP:After update_item: x_return_status=' || x_return_status || ' x_cim_rec.object1_id1=' || x_cim_rec.object1_id1);
8772:
8773: -- Now create 'Internal Asset Creation' transaction lines
8774:
8775: l_talv_rec.tal_type := G_TRANS_TYPE;
8788: l_talv_rec.depreciate_yn := 'Y';
8789: END IF;
8790:
8791: IF (is_debug_statement_on) THEN
8792: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_TXL_ASSETS_PUB.create_txl_asset_def');
8793: END IF;
8794:
8795: OKL_TXL_ASSETS_PUB.create_txl_asset_def(
8796: p_api_version => 1,
8801: p_tlpv_rec => l_talv_rec,
8802: x_tlpv_rec => x_talv_rec);
8803:
8804: IF (is_debug_statement_on) THEN
8805: 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);
8806: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_talv_rec.ID = '||x_talv_rec.ID);
8807: END IF;
8808:
8809: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8802: x_tlpv_rec => x_talv_rec);
8803:
8804: IF (is_debug_statement_on) THEN
8805: 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);
8806: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_talv_rec.ID = '||x_talv_rec.ID);
8807: END IF;
8808:
8809: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8810: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8810: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8811: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8812: RAISE OKL_API.G_EXCEPTION_ERROR;
8813: END IF;
8814: okl_debug_pub.logmessage('AKP:x_return_status=' || x_return_status || 'x_talv_rec.ID=' || x_talv_rec.ID);
8815:
8816: --rkuttiya added for passing the line id to populate sources
8817: l_tal_tld_id := x_talv_rec.id;
8818: l_line_type := 'L';
8821: END IF;
8822:
8823: IF (l_counter > 1) THEN
8824: IF (is_debug_statement_on) THEN
8825: 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);
8826: END IF;
8827: okl_debug_pub.logmessage('AKP:Before open c_get_fa_books');
8828: OPEN c_get_fa_books(l_asset_hdr_rec.book_type_code, l_asset_id);
8829: FETCH c_get_fa_books INTO l_get_fa_books;
8823: IF (l_counter > 1) THEN
8824: IF (is_debug_statement_on) THEN
8825: 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);
8826: END IF;
8827: okl_debug_pub.logmessage('AKP:Before open c_get_fa_books');
8828: OPEN c_get_fa_books(l_asset_hdr_rec.book_type_code, l_asset_id);
8829: FETCH c_get_fa_books INTO l_get_fa_books;
8830: okl_debug_pub.logmessage('AKP:After fetch c_get_fa_books');
8831: IF c_get_fa_books%NOTFOUND THEN
8826: END IF;
8827: okl_debug_pub.logmessage('AKP:Before open c_get_fa_books');
8828: OPEN c_get_fa_books(l_asset_hdr_rec.book_type_code, l_asset_id);
8829: FETCH c_get_fa_books INTO l_get_fa_books;
8830: okl_debug_pub.logmessage('AKP:After fetch c_get_fa_books');
8831: IF c_get_fa_books%NOTFOUND THEN
8832: CLOSE c_get_fa_books;
8833: ELSE
8834: l_txdv_rec.OBJECT_VERSION_NUMBER := 1;
8850:
8851: CLOSE c_get_fa_books;
8852:
8853: IF (is_debug_statement_on) THEN
8854: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_TXD_ASSETS_PUB.create_txd_asset_def');
8855: END IF;
8856:
8857: OKL_TXD_ASSETS_PUB.create_txd_asset_def(
8858: p_api_version => 1,
8863: p_adpv_rec => l_txdv_rec,
8864: x_adpv_rec => x_txdv_rec);
8865:
8866: IF (is_debug_statement_on) THEN
8867: 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);
8868: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_txdv_rec.ID = '||x_txdv_rec.ID);
8869: END IF;
8870: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8871: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8864: x_adpv_rec => x_txdv_rec);
8865:
8866: IF (is_debug_statement_on) THEN
8867: 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);
8868: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_txdv_rec.ID = '||x_txdv_rec.ID);
8869: END IF;
8870: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8871: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8872: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8872: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8873: RAISE OKL_API.G_EXCEPTION_ERROR;
8874: END IF;
8875:
8876: okl_debug_pub.logmessage('AKP:x_return_status=' || x_return_status || 'x_txdv_rec.ID=' || x_txdv_rec.ID);
8877:
8878: l_line_detail_number := l_line_detail_number + 1;
8879:
8880: --added by rkuttiya for populate sources
8906: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8907: RAISE OKL_API.G_EXCEPTION_ERROR;
8908: END IF;
8909:
8910: okl_debug_pub.logmessage('RK:x_return_status after populate sources' || x_return_status );
8911:
8912:
8913: /* okl_debug_pub.logmessage('RK:Before calling FA Adjustment to delink the contract id..');
8914: --CALL TO FA_ADJUSTMENT PUB to delink the contract id
8909:
8910: okl_debug_pub.logmessage('RK:x_return_status after populate sources' || x_return_status );
8911:
8912:
8913: /* okl_debug_pub.logmessage('RK:Before calling FA Adjustment to delink the contract id..');
8914: --CALL TO FA_ADJUSTMENT PUB to delink the contract id
8915: l_trans_rec := l_trans_empty_rec;
8916:
8917: l_trans_rec.transaction_subtype := 'AMORTIZE';
8944: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8945: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8946: RAISE OKL_API.G_EXCEPTION_ERROR;
8947: END IF;
8948: okl_debug_pub.logmessage('RK:Return Status after calling FA Adjustment API'|| x_return_status); */
8949:
8950:
8951: END IF;
8952:
8960:
8961:
8962: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data );
8963: IF (is_debug_procedure_on) THEN
8964: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
8965: END IF;
8966:
8967: EXCEPTION
8968: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8966:
8967: EXCEPTION
8968: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8969: IF (is_debug_exception_on) THEN
8970: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
8971: END IF;
8972:
8973: OKL_API.set_message( p_app_name => 'OKL',
8974: p_msg_name => 'OKL_AM_ASSET_CR_FAIL',
8983: x_msg_data,
8984: '_PVT');
8985: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8986: IF (is_debug_exception_on) THEN
8987: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
8988: END IF;
8989:
8990: OKL_API.set_message( p_app_name => 'OKL',
8991: p_msg_name => 'OKL_AM_ASSET_CR_FAIL',
9000: x_msg_data,
9001: '_PVT');
9002: WHEN OTHERS THEN
9003: IF (is_debug_exception_on) THEN
9004: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
9005: END IF;
9006:
9007: OKL_API.set_message( p_app_name => 'OKL',
9008: p_msg_name => 'OKL_AM_ASSET_CR_FAIL',
9155:
9156: -- Bug 6674730 end
9157: -- asawanka added for debug feature start
9158: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_asset_dispose';
9159: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
9160: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
9161: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
9162: -- asawanka added for debug feature end
9163: BEGIN
9156: -- Bug 6674730 end
9157: -- asawanka added for debug feature start
9158: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_asset_dispose';
9159: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
9160: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
9161: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
9162: -- asawanka added for debug feature end
9163: BEGIN
9164: IF (is_debug_procedure_on) THEN
9157: -- asawanka added for debug feature start
9158: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_asset_dispose';
9159: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
9160: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
9161: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
9162: -- asawanka added for debug feature end
9163: BEGIN
9164: IF (is_debug_procedure_on) THEN
9165: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
9161: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
9162: -- asawanka added for debug feature end
9163: BEGIN
9164: IF (is_debug_procedure_on) THEN
9165: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
9166: END IF;
9167:
9168: ---
9169: -- set the dispose rec
9174:
9175: -- Start savepoint to rollback to if the block fails
9176: SAVEPOINT asset_dispose;
9177: IF (is_debug_statement_on) THEN
9178: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_trn_already_set = '||p_trn_already_set);
9179: 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);
9180: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_quote_id = '||p_term_rec.p_quote_id);
9181: END IF;
9182: IF (p_trn_already_set = G_YES
9175: -- Start savepoint to rollback to if the block fails
9176: SAVEPOINT asset_dispose;
9177: IF (is_debug_statement_on) THEN
9178: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_trn_already_set = '||p_trn_already_set);
9179: 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);
9180: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_quote_id = '||p_term_rec.p_quote_id);
9181: END IF;
9182: IF (p_trn_already_set = G_YES
9183: AND NVL(px_tcnv_rec.tmt_asset_disposition_yn, '?') <> G_YES)
9176: SAVEPOINT asset_dispose;
9177: IF (is_debug_statement_on) THEN
9178: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_trn_already_set = '||p_trn_already_set);
9179: 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);
9180: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'p_term_rec.p_quote_id = '||p_term_rec.p_quote_id);
9181: END IF;
9182: IF (p_trn_already_set = G_YES
9183: AND NVL(px_tcnv_rec.tmt_asset_disposition_yn, '?') <> G_YES)
9184: OR (p_trn_already_set = G_NO) THEN
9212: FETCH c_get_repo_indicator INTO l_repo_yn, l_deal_type, l_org_id;
9213: CLOSE c_get_repo_indicator;
9214: END IF;
9215: IF (is_debug_statement_on) THEN
9216: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_repo_yn = '||l_repo_yn);
9217: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_deal_type = '||l_deal_type);
9218: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_org_id = '||l_org_id);
9219: END IF;
9220: IF (l_repo_yn = 'Y' AND l_deal_type='LOAN') THEN
9213: CLOSE c_get_repo_indicator;
9214: END IF;
9215: IF (is_debug_statement_on) THEN
9216: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_repo_yn = '||l_repo_yn);
9217: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_deal_type = '||l_deal_type);
9218: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_org_id = '||l_org_id);
9219: END IF;
9220: IF (l_repo_yn = 'Y' AND l_deal_type='LOAN') THEN
9221: -- Get system params for asset repossession
9214: END IF;
9215: IF (is_debug_statement_on) THEN
9216: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_repo_yn = '||l_repo_yn);
9217: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_deal_type = '||l_deal_type);
9218: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_org_id = '||l_org_id);
9219: END IF;
9220: IF (l_repo_yn = 'Y' AND l_deal_type='LOAN') THEN
9221: -- Get system params for asset repossession
9222: OPEN c_get_loan_repo_params(l_org_id);
9229: l_asset_key_id,
9230: l_depreciate_yn;
9231:
9232: IF (is_debug_statement_on) THEN
9233: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_K_RATE_PARAMS_PVT.get_product');
9234: END IF;
9235: -- Get PDT parameters and check reporting product and set l_rep_book
9236: OKL_K_RATE_PARAMS_PVT.get_product(
9237: p_api_version => p_api_version,
9241: x_msg_data => x_msg_data,
9242: p_khr_id => p_term_rec.p_contract_id,
9243: x_pdt_parameter_rec => l_pdt_parameter_rec);
9244: IF (is_debug_statement_on) THEN
9245: 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);
9246: END IF;
9247:
9248: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9249: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9250: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9251: RAISE OKL_API.G_EXCEPTION_ERROR;
9252: END IF;
9253: IF (is_debug_statement_on) THEN
9254: 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);
9255: END IF;
9256:
9257: IF (l_pdt_parameter_rec.reporting_pdt_id IS NOT NULL AND
9258: l_pdt_parameter_rec.reporting_pdt_id <> OKL_API.G_MISS_NUM)
9258: l_pdt_parameter_rec.reporting_pdt_id <> OKL_API.G_MISS_NUM)
9259: THEN
9260: l_pdtv_rec.ID := l_pdt_parameter_rec.reporting_pdt_id;
9261: IF (is_debug_statement_on) THEN
9262: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_SETUPPRODUCTS_PUB.Getpdt_parameters ');
9263: END IF;
9264:
9265: OKL_SETUPPRODUCTS_PUB.Getpdt_parameters(
9266: p_api_version => p_api_version,
9271: p_pdtv_rec => l_pdtv_rec,
9272: x_no_data_found => x_no_data_found,
9273: p_pdt_parameter_rec => l_pdt_parameter_rec2);
9274: IF (is_debug_statement_on) THEN
9275: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called OKL_SETUPPRODUCTS_PUB.Getpdt_parameters x_return_status = '||x_return_status);
9276: END IF;
9277:
9278: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9279: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9353: -- Bug 6674730 start
9354: IF (l_repo_yn = 'Y' AND l_deal_type='LOAN') THEN
9355:
9356: IF (is_debug_statement_on) THEN
9357: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_TRX_ASSETS_PUB.create_trx_ass_h_def');
9358: END IF;
9359:
9360: -- Now creating the new header record
9361: OKL_TRX_ASSETS_PUB.create_trx_ass_h_def(
9366: x_msg_data => x_msg_data,
9367: p_thpv_rec => l_trxv_rec,
9368: x_thpv_rec => x_trxv_rec);
9369: IF (is_debug_statement_on) THEN
9370: 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);
9371: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_trxv_rec.ID =' ||x_trxv_rec.ID);
9372: END IF;
9373:
9374: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9367: p_thpv_rec => l_trxv_rec,
9368: x_thpv_rec => x_trxv_rec);
9369: IF (is_debug_statement_on) THEN
9370: 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);
9371: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'x_trxv_rec.ID =' ||x_trxv_rec.ID);
9372: END IF;
9373:
9374: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9375: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9380:
9381: -- Create asset in FA for this KLE_ID
9382: --l_line_number := l_line_number + 1;
9383: IF (is_debug_statement_on) THEN
9384: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling Create_Repo_asset');
9385: END IF;
9386:
9387: Create_Repo_asset(
9388: p_init_msg_list => p_init_msg_list,
9402: x_msg_count => x_msg_count,
9403: x_msg_data => x_msg_data
9404: );
9405: IF (is_debug_statement_on) THEN
9406: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called Create_Repo_asset x_return_status = '||x_return_status);
9407: END IF;
9408:
9409: IF l_overall_dispose_status = OKL_API.G_RET_STS_SUCCESS
9410: and x_return_status in (OKL_API.G_RET_STS_ERROR,OKL_API.G_RET_STS_UNEXP_ERROR) then
9496: -- Legal Entity Changes end
9497:
9498: -- call asset dispose retirement
9499: IF (is_debug_statement_on) THEN
9500: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_AM_ASSET_DISPOSE_PUB.dispose_asset');
9501: END IF;
9502:
9503: OKL_AM_ASSET_DISPOSE_PUB.dispose_asset(
9504: p_api_version => p_api_version,
9512: p_quote_eff_date => l_quote_eff_date, -- rmunjulu EDAT Pass additional parameters now required by disposal api
9513: p_quote_accpt_date => l_quote_accpt_date, -- rmunjulu EDAT Pass additional parameters now required by disposal api
9514: p_legal_entity_id => l_legal_entity_id); -- RRAVIKIR Legal Entity Changes
9515: IF (is_debug_statement_on) THEN
9516: 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);
9517: END IF;
9518:
9519: -- -- SECHAWLA Bug # 2726739 : end new code
9520:
9602: px_tcnv_rec => px_tcnv_rec);
9603:
9604: x_return_status := l_return_status;
9605: IF (is_debug_procedure_on) THEN
9606: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
9607: END IF;
9608: EXCEPTION
9609: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9610: IF (is_debug_exception_on) THEN
9607: END IF;
9608: EXCEPTION
9609: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9610: IF (is_debug_exception_on) THEN
9611: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
9612: END IF;
9613:
9614: IF kle_pur_amt_csr%ISOPEN THEN
9615: CLOSE kle_pur_amt_csr;
9648: px_tcnv_rec => px_tcnv_rec);
9649:
9650: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9651: IF (is_debug_exception_on) THEN
9652: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
9653: END IF;
9654:
9655: IF kle_pur_amt_csr%ISOPEN THEN
9656: CLOSE kle_pur_amt_csr;
9690: px_tcnv_rec => px_tcnv_rec);
9691:
9692: WHEN OTHERS THEN
9693: IF (is_debug_exception_on) THEN
9694: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
9695: END IF;
9696:
9697: IF kle_pur_amt_csr%ISOPEN THEN
9698: CLOSE kle_pur_amt_csr;
9804: l_quote_accpt_date DATE;
9805: l_quote_eff_date DATE;
9806: -- asawanka added for debug feature start
9807: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_amortize_and_return';
9808: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
9809: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
9810: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
9811: -- asawanka added for debug feature end
9812: BEGIN
9805: l_quote_eff_date DATE;
9806: -- asawanka added for debug feature start
9807: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_amortize_and_return';
9808: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
9809: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
9810: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
9811: -- asawanka added for debug feature end
9812: BEGIN
9813: IF (is_debug_procedure_on) THEN
9806: -- asawanka added for debug feature start
9807: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_amortize_and_return';
9808: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
9809: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
9810: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
9811: -- asawanka added for debug feature end
9812: BEGIN
9813: IF (is_debug_procedure_on) THEN
9814: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
9810: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
9811: -- asawanka added for debug feature end
9812: BEGIN
9813: IF (is_debug_procedure_on) THEN
9814: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
9815: END IF;
9816:
9817: --
9818: -- set the amortization rec
10192:
10193: END IF;
10194: END IF;
10195: IF (is_debug_procedure_on) THEN
10196: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
10197: END IF;
10198: EXCEPTION
10199:
10200: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10198: EXCEPTION
10199:
10200: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10201: IF (is_debug_exception_on) THEN
10202: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
10203: END IF;
10204:
10205: IF get_asset_return_csr%ISOPEN THEN
10206: CLOSE get_asset_return_csr;
10232: px_tcnv_rec => px_tcnv_rec);
10233:
10234: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10235: IF (is_debug_exception_on) THEN
10236: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
10237: END IF;
10238:
10239:
10240: IF get_asset_return_csr%ISOPEN THEN
10268: px_tcnv_rec => px_tcnv_rec);
10269:
10270: WHEN OTHERS THEN
10271: IF (is_debug_exception_on) THEN
10272: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
10273: END IF;
10274:
10275: IF get_asset_return_csr%ISOPEN THEN
10276: CLOSE get_asset_return_csr;
10323: px_tcnv_rec => px_tcnv_rec);
10324:
10325: x_return_status := l_return_status;
10326: IF (is_debug_procedure_on) THEN
10327: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
10328: END IF;
10329: EXCEPTION
10330:
10331: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10329: EXCEPTION
10330:
10331: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10332: IF (is_debug_exception_on) THEN
10333: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
10334: END IF;
10335:
10336: ROLLBACK TO amortize_and_return;
10337:
10365: px_tcnv_rec => px_tcnv_rec);
10366:
10367: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10368: IF (is_debug_exception_on) THEN
10369: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
10370: END IF;
10371:
10372:
10373: ROLLBACK TO amortize_and_return;
10402: px_tcnv_rec => px_tcnv_rec);
10403:
10404: WHEN OTHERS THEN
10405: IF (is_debug_exception_on) THEN
10406: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
10407: END IF;
10408:
10409: ROLLBACK TO amortize_and_return;
10410:
10514: --end:| 05-29-08 cklee -- fixed bug: 7017824(R12)/OKL.H: bug#6964174 |
10515:
10516: -- asawanka added for debug feature start
10517: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'lease_termination';
10518: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
10519: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
10520: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
10521: -- asawanka added for debug feature end
10522:
10515:
10516: -- asawanka added for debug feature start
10517: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'lease_termination';
10518: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
10519: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
10520: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
10521: -- asawanka added for debug feature end
10522:
10523: BEGIN
10516: -- asawanka added for debug feature start
10517: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'lease_termination';
10518: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
10519: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
10520: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
10521: -- asawanka added for debug feature end
10522:
10523: BEGIN
10524: IF (is_debug_procedure_on) THEN
10521: -- asawanka added for debug feature end
10522:
10523: BEGIN
10524: IF (is_debug_procedure_on) THEN
10525: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
10526: END IF;
10527:
10528: -- Set the transaction
10529: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
10638:
10639: -- rmunjulu EDAT Get the quote effectivity date and quote acceptance date
10640: -- and store as global variables, will be used later on in other procedures
10641: IF (is_debug_statement_on) THEN
10642: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_AM_LEASE_LOAN_TRMNT_PVT.get_set_quote_dates');
10643: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_term_rec.p_quote_id = '||l_term_rec.p_quote_id);
10644: END IF;
10645:
10646: OKL_AM_LEASE_LOAN_TRMNT_PVT.get_set_quote_dates(
10639: -- rmunjulu EDAT Get the quote effectivity date and quote acceptance date
10640: -- and store as global variables, will be used later on in other procedures
10641: IF (is_debug_statement_on) THEN
10642: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_AM_LEASE_LOAN_TRMNT_PVT.get_set_quote_dates');
10643: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_term_rec.p_quote_id = '||l_term_rec.p_quote_id);
10644: END IF;
10645:
10646: OKL_AM_LEASE_LOAN_TRMNT_PVT.get_set_quote_dates(
10647: p_qte_id => l_term_rec.p_quote_id,
10646: OKL_AM_LEASE_LOAN_TRMNT_PVT.get_set_quote_dates(
10647: p_qte_id => l_term_rec.p_quote_id,
10648: x_return_status => l_return_status);
10649: IF (is_debug_statement_on) THEN
10650: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called OKL_AM_LEASE_LOAN_TRMNT_PVT.get_set_quote_dates');
10651: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_return_status = '||l_return_status);
10652: END IF;
10653:
10654: -- Rollback if error setting activity for api
10647: p_qte_id => l_term_rec.p_quote_id,
10648: x_return_status => l_return_status);
10649: IF (is_debug_statement_on) THEN
10650: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called OKL_AM_LEASE_LOAN_TRMNT_PVT.get_set_quote_dates');
10651: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_return_status = '||l_return_status);
10652: END IF;
10653:
10654: -- Rollback if error setting activity for api
10655: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10678: p_return_status => l_return_status,
10679: px_overall_status => l_overall_status);
10680:
10681: IF (is_debug_statement_on) THEN
10682: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_term_rec.p_control_flag = '||l_term_rec.p_control_flag);
10683: END IF;
10684:
10685: IF (l_term_rec.p_control_flag = 'BATCH_PROCESS') THEN
10686:
10684:
10685: IF (l_term_rec.p_control_flag = 'BATCH_PROCESS') THEN
10686:
10687: IF (is_debug_statement_on) THEN
10688: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_AM_LEASE_LOAN_TRMNT_PUB.validate_contract');
10689: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_term_rec.p_contract_id = '||l_term_rec.p_contract_id);
10690: END IF;
10691:
10692: -- Since batch process is not checked initially in LLT check here
10685: IF (l_term_rec.p_control_flag = 'BATCH_PROCESS') THEN
10686:
10687: IF (is_debug_statement_on) THEN
10688: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling OKL_AM_LEASE_LOAN_TRMNT_PUB.validate_contract');
10689: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_term_rec.p_contract_id = '||l_term_rec.p_contract_id);
10690: END IF;
10691:
10692: -- Since batch process is not checked initially in LLT check here
10693: OKL_AM_LEASE_LOAN_TRMNT_PUB.validate_contract(
10699: p_contract_id => l_term_rec.p_contract_id,
10700: p_control_flag => l_term_rec.p_control_flag,
10701: x_contract_status => lx_contract_status);
10702: IF (is_debug_statement_on) THEN
10703: 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);
10704: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_validate = '||l_validate);
10705: END IF;
10706:
10707: -- Store the highest validation return status
10700: p_control_flag => l_term_rec.p_control_flag,
10701: x_contract_status => lx_contract_status);
10702: IF (is_debug_statement_on) THEN
10703: 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);
10704: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'l_validate = '||l_validate);
10705: END IF;
10706:
10707: -- Store the highest validation return status
10708: -- To capture the return status of validate lease called above
11206:
11207:
11208: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
11209: IF (is_debug_procedure_on) THEN
11210: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
11211: END IF;
11212: EXCEPTION
11213: WHEN G_EXCEPTION_HALT_VALIDATION THEN
11214: IF (is_debug_exception_on) THEN
11211: END IF;
11212: EXCEPTION
11213: WHEN G_EXCEPTION_HALT_VALIDATION THEN
11214: IF (is_debug_exception_on) THEN
11215: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_HALT_VALIDATION');
11216: END IF;
11217:
11218: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11219: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11217:
11218: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11219: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11220: IF (is_debug_exception_on) THEN
11221: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
11222: END IF;
11223:
11224: x_return_status := OKL_API.HANDLE_EXCEPTIONS
11225: (
11231: '_PVT'
11232: );
11233: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11234: IF (is_debug_exception_on) THEN
11235: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
11236: END IF;
11237:
11238: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
11239: (
11245: '_PVT'
11246: );
11247: WHEN OTHERS THEN
11248: IF (is_debug_exception_on) THEN
11249: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: ' || sqlcode || ' , SQLERRM : ' || sqlerrm);
11250: END IF;
11251:
11252: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
11253: (