[Home] [Help]
48: l_rev_rec_method VARCHAR2(300);
49: l_int_cal_basis VARCHAR2(300);
50: l_tax_owner VARCHAR2(300);
51: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_int_calc_done';
52: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
53: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
54: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
55:
56: -- rmunjulu BUG 5050158
49: l_int_cal_basis VARCHAR2(300);
50: l_tax_owner VARCHAR2(300);
51: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_int_calc_done';
52: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
53: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
54: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
55:
56: -- rmunjulu BUG 5050158
57: l_contract_end_date DATE;
50: l_tax_owner VARCHAR2(300);
51: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_int_calc_done';
52: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
53: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
54: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
55:
56: -- rmunjulu BUG 5050158
57: l_contract_end_date DATE;
58: -- added for bug 14049528
60: l_trn_date DATE;
61:
62: BEGIN
63: IF (is_debug_procedure_on) THEN
64: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
65: END IF;
66: IF (is_debug_statement_on) THEN
67: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
68: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_number: '|| p_contract_number);
63: IF (is_debug_procedure_on) THEN
64: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
65: END IF;
66: IF (is_debug_statement_on) THEN
67: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
68: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_number: '|| p_contract_number);
69: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_quote_number: '|| p_quote_number);
70: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_source: '|| p_source);
71: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trn_date: '|| p_trn_date);
64: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
65: END IF;
66: IF (is_debug_statement_on) THEN
67: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
68: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_number: '|| p_contract_number);
69: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_quote_number: '|| p_quote_number);
70: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_source: '|| p_source);
71: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trn_date: '|| p_trn_date);
72: END IF;
65: END IF;
66: IF (is_debug_statement_on) THEN
67: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
68: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_number: '|| p_contract_number);
69: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_quote_number: '|| p_quote_number);
70: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_source: '|| p_source);
71: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trn_date: '|| p_trn_date);
72: END IF;
73:
66: IF (is_debug_statement_on) THEN
67: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
68: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_number: '|| p_contract_number);
69: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_quote_number: '|| p_quote_number);
70: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_source: '|| p_source);
71: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trn_date: '|| p_trn_date);
72: END IF;
73:
74: IF (is_debug_statement_on) THEN
67: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
68: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_number: '|| p_contract_number);
69: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_quote_number: '|| p_quote_number);
70: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_source: '|| p_source);
71: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trn_date: '|| p_trn_date);
72: END IF;
73:
74: IF (is_debug_statement_on) THEN
75: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_UTIL_PVT.get_contract_product_details');
71: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trn_date: '|| p_trn_date);
72: END IF;
73:
74: IF (is_debug_statement_on) THEN
75: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_UTIL_PVT.get_contract_product_details');
76: END IF;
77: -- Get the contract product details
78: OKL_AM_UTIL_PVT.get_contract_product_details(
79: p_khr_id => p_contract_id,
82: x_int_cal_basis => l_int_cal_basis,
83: x_tax_owner => l_tax_owner,
84: x_return_status => l_return_status);
85: IF (is_debug_statement_on) THEN
86: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.get_contract_product_details , return status: ' || l_return_status);
87: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_deal_type: ' || l_deal_type);
88: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rev_rec_method: ' || l_rev_rec_method);
89: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_int_cal_basis: ' || l_int_cal_basis);
90: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_tax_owner: ' || l_tax_owner);
83: x_tax_owner => l_tax_owner,
84: x_return_status => l_return_status);
85: IF (is_debug_statement_on) THEN
86: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.get_contract_product_details , return status: ' || l_return_status);
87: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_deal_type: ' || l_deal_type);
88: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rev_rec_method: ' || l_rev_rec_method);
89: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_int_cal_basis: ' || l_int_cal_basis);
90: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_tax_owner: ' || l_tax_owner);
91: END IF;
84: x_return_status => l_return_status);
85: IF (is_debug_statement_on) THEN
86: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.get_contract_product_details , return status: ' || l_return_status);
87: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_deal_type: ' || l_deal_type);
88: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rev_rec_method: ' || l_rev_rec_method);
89: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_int_cal_basis: ' || l_int_cal_basis);
90: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_tax_owner: ' || l_tax_owner);
91: END IF;
92:
85: IF (is_debug_statement_on) THEN
86: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.get_contract_product_details , return status: ' || l_return_status);
87: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_deal_type: ' || l_deal_type);
88: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rev_rec_method: ' || l_rev_rec_method);
89: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_int_cal_basis: ' || l_int_cal_basis);
90: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_tax_owner: ' || l_tax_owner);
91: END IF;
92:
93: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
86: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.get_contract_product_details , return status: ' || l_return_status);
87: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_deal_type: ' || l_deal_type);
88: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rev_rec_method: ' || l_rev_rec_method);
89: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_int_cal_basis: ' || l_int_cal_basis);
90: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_tax_owner: ' || l_tax_owner);
91: END IF;
92:
93: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
94: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
103: (l_deal_type LIKE 'LEASE%' AND l_int_cal_basis IN ('FLOAT_FACTORS','REAMORT') ) -- SECHAWLA 20-JAN-06 4970009 : added
104: ) THEN
105:
106: IF (is_debug_statement_on) THEN
107: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_VARIABLE_INT_UTIL_PVT.get_last_interim_int_calc_date');
108: END IF;
109: -- get last interest calculation till date
110: l_last_int_calc_till_date := OKL_VARIABLE_INT_UTIL_PVT.get_last_interim_int_calc_date(
111: x_return_status => l_return_status,
110: l_last_int_calc_till_date := OKL_VARIABLE_INT_UTIL_PVT.get_last_interim_int_calc_date(
111: x_return_status => l_return_status,
112: p_khr_id => p_contract_id);
113: IF (is_debug_statement_on) THEN
114: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_VARIABLE_INT_UTIL_PVT.get_last_interim_int_calc_date , return status: ' || l_return_status);
115: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_last_int_calc_till_date: ' || l_last_int_calc_till_date);
116: END IF;
117:
118: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
111: x_return_status => l_return_status,
112: p_khr_id => p_contract_id);
113: IF (is_debug_statement_on) THEN
114: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_VARIABLE_INT_UTIL_PVT.get_last_interim_int_calc_date , return status: ' || l_return_status);
115: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_last_int_calc_till_date: ' || l_last_int_calc_till_date);
116: END IF;
117:
118: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
119: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
140:
141: -- get last scheduled interest calculation date before termination date
142:
143: IF (is_debug_statement_on) THEN
144: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_VARIABLE_INT_UTIL_PVT.get_last_sch_int_calc_date');
145: END IF;
146: -- added for bug 14049528
147: IF (p_trn_date > sysdate) THEN
148: l_trn_date := sysdate;
153: x_return_status => l_return_status,
154: p_khr_id => p_contract_id,
155: p_effective_date => l_trn_date);
156: IF (is_debug_statement_on) THEN
157: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_VARIABLE_INT_UTIL_PVT.get_last_sch_int_calc_date , return status: ' || l_return_status);
158: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_last_sch_int_calc_date: ' || l_last_sch_int_calc_date);
159: END IF;
160:
161: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
154: p_khr_id => p_contract_id,
155: p_effective_date => l_trn_date);
156: IF (is_debug_statement_on) THEN
157: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_VARIABLE_INT_UTIL_PVT.get_last_sch_int_calc_date , return status: ' || l_return_status);
158: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_last_sch_int_calc_date: ' || l_last_sch_int_calc_date);
159: END IF;
160:
161: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
162: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
288: END IF; -- rmunjulu BUG 5050158
289: */
290: END IF;
291: IF (is_debug_statement_on) THEN
292: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Returning Y');
293: END IF;
294: IF (is_debug_procedure_on) THEN
295: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
296: END IF;
291: IF (is_debug_statement_on) THEN
292: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Returning Y');
293: END IF;
294: IF (is_debug_procedure_on) THEN
295: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
296: END IF;
297:
298: RETURN 'Y';
299:
300: EXCEPTION
301:
302: WHEN OKL_API.G_EXCEPTION_ERROR THEN
303: IF (is_debug_exception_on) THEN
304: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
305: END IF;
306: RETURN NULL;
307:
308: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
306: RETURN NULL;
307:
308: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
309: IF (is_debug_exception_on) THEN
310: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
311: END IF;
312: RETURN NULL;
313:
314: WHEN OTHERS THEN
312: RETURN NULL;
313:
314: WHEN OTHERS THEN
315: IF (is_debug_exception_on) THEN
316: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
317: || sqlcode || ' , SQLERRM : ' || sqlerrm);
318: END IF;
319:
320: OKL_API.set_message(
348: WHERE TMG.trx_id = p_trx_id;
349:
350: l_last_run NUMBER := 0;
351: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_last_run';
352: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
353: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
354: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
355:
356:
349:
350: l_last_run NUMBER := 0;
351: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_last_run';
352: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
353: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
354: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
355:
356:
357: BEGIN
350: l_last_run NUMBER := 0;
351: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_last_run';
352: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
353: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
354: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
355:
356:
357: BEGIN
358: IF (is_debug_procedure_on) THEN
355:
356:
357: BEGIN
358: IF (is_debug_procedure_on) THEN
359: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
360: END IF;
361: IF (is_debug_statement_on) THEN
362: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trx_id: '|| p_trx_id);
363: END IF;
358: IF (is_debug_procedure_on) THEN
359: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
360: END IF;
361: IF (is_debug_statement_on) THEN
362: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trx_id: '|| p_trx_id);
363: END IF;
364:
365: -- Get the last run
366: FOR get_last_run_rec IN get_last_run_csr(p_trx_id) LOOP
370: END LOOP;
371:
372: x_last_run := l_last_run;
373: IF (is_debug_procedure_on) THEN
374: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
375: END IF;
376:
377: EXCEPTION
378:
377: EXCEPTION
378:
379: WHEN OTHERS THEN
380: IF (is_debug_exception_on) THEN
381: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
382: || sqlcode || ' , SQLERRM : ' || sqlerrm);
383: END IF;
384: -- Set the oracle error message
385: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
424: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
425: l_msg_data VARCHAR2(2000);
426: i NUMBER := 1;
427: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_set_tmg_run';
428: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
429: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
430: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
431:
432:
425: l_msg_data VARCHAR2(2000);
426: i NUMBER := 1;
427: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_set_tmg_run';
428: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
429: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
430: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
431:
432:
433: BEGIN
426: i NUMBER := 1;
427: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_set_tmg_run';
428: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
429: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
430: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
431:
432:
433: BEGIN
434: IF (is_debug_procedure_on) THEN
431:
432:
433: BEGIN
434: IF (is_debug_procedure_on) THEN
435: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
436: END IF;
437: IF (is_debug_statement_on) THEN
438: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trx_id: '|| p_trx_id);
439: END IF;
434: IF (is_debug_procedure_on) THEN
435: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
436: END IF;
437: IF (is_debug_statement_on) THEN
438: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trx_id: '|| p_trx_id);
439: END IF;
440:
441: -- Get the last run
442: get_last_run(
442: get_last_run(
443: p_trx_id => p_trx_id,
444: x_last_run => l_last_run);
445: IF (is_debug_statement_on) THEN
446: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called get_last_run , l_last_run: ' || l_last_run);
447: END IF;
448:
449: -- increment the last run
450: l_last_run := l_last_run + 1;
463: -- Update the TMG_RUN of OKL_TRX_MSGS with l_last_run+1 for the TRX_ID with null TMG_RUN
464: IF (lp_tmgv_tbl.COUNT > 0) THEN
465:
466: IF (is_debug_statement_on) THEN
467: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_TRX_MSGS_PUB.update_trx_msgs');
468: END IF;
469: OKL_TRX_MSGS_PUB.update_trx_msgs (
470: p_api_version => l_api_version,
471: p_init_msg_list => OKL_API.G_FALSE,
474: x_msg_data => l_msg_data,
475: p_tmgv_tbl => lp_tmgv_tbl,
476: x_tmgv_tbl => lx_tmgv_tbl);
477: IF (is_debug_statement_on) THEN
478: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_TRX_MSGS_PUB.update_trx_msgs , return status: ' || l_return_status);
479: END IF;
480:
481: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
482: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
487: END IF;
488:
489: x_return_status := l_return_status;
490: IF (is_debug_procedure_on) THEN
491: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
492: END IF;
493:
494: EXCEPTION
495:
494: EXCEPTION
495:
496: WHEN OKL_API.G_EXCEPTION_ERROR THEN
497: IF (is_debug_exception_on) THEN
498: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
499: END IF;
500: x_return_status := OKL_API.G_RET_STS_ERROR;
501:
502: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
500: x_return_status := OKL_API.G_RET_STS_ERROR;
501:
502: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
503: IF (is_debug_exception_on) THEN
504: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
505: END IF;
506: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
507:
508: WHEN OTHERS THEN
506: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
507:
508: WHEN OTHERS THEN
509: IF (is_debug_exception_on) THEN
510: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
511: || sqlcode || ' , SQLERRM : ' || sqlerrm);
512: END IF;
513: -- Set the oracle error message
514: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
550: l_api_version CONSTANT NUMBER := 1;
551: l_okl_chr_id OKC_K_HEADERS_V.ID%TYPE;
552: l_oks_chr_id OKC_K_HEADERS_V.ID%TYPE;
553: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_service_link';
554: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
555: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
556: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
557:
558: G_API_TYPE VARCHAR2(20) := '_PVT';
551: l_okl_chr_id OKC_K_HEADERS_V.ID%TYPE;
552: l_oks_chr_id OKC_K_HEADERS_V.ID%TYPE;
553: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_service_link';
554: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
555: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
556: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
557:
558: G_API_TYPE VARCHAR2(20) := '_PVT';
559:
552: l_oks_chr_id OKC_K_HEADERS_V.ID%TYPE;
553: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_service_link';
554: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
555: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
556: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
557:
558: G_API_TYPE VARCHAR2(20) := '_PVT';
559:
560:
586: AND LNK_SRV_CIM.object1_id1 = p_kle_id;
587:
588: BEGIN -- main process begins here
589: IF (is_debug_procedure_on) THEN
590: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
591: END IF;
592: IF (is_debug_statement_on) THEN
593: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_lease_asset_id: '|| p_lease_asset_id);
594: END IF;
589: IF (is_debug_procedure_on) THEN
590: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
591: END IF;
592: IF (is_debug_statement_on) THEN
593: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_lease_asset_id: '|| p_lease_asset_id);
594: END IF;
595:
596: x_return_status := OKL_API.G_RET_STS_SUCCESS;
597:
618: l_okl_chr_id := link_rec.okl_contract_id;
619: END LOOP;
620:
621: IF (is_debug_statement_on) THEN
622: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_SERVICE_INTEGRATION_PVT.check_service_link');
623: END IF;
624: -- Get the Service Contract for the Leased Contract
625: OKL_SERVICE_INTEGRATION_PVT.check_service_link (
626: p_api_version => p_api_version,
630: x_msg_data => x_msg_data,
631: p_lease_contract_id => l_okl_chr_id ,
632: x_service_contract_id => l_oks_chr_id);
633: IF (is_debug_statement_on) THEN
634: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_SERVICE_INTEGRATION_PVT.check_service_link , return status: ' || x_return_status);
635: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_oks_chr_id: ' || l_oks_chr_id);
636: END IF;
637:
638: x_service_contract_id := l_oks_chr_id;
631: p_lease_contract_id => l_okl_chr_id ,
632: x_service_contract_id => l_oks_chr_id);
633: IF (is_debug_statement_on) THEN
634: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_SERVICE_INTEGRATION_PVT.check_service_link , return status: ' || x_return_status);
635: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_oks_chr_id: ' || l_oks_chr_id);
636: END IF;
637:
638: x_service_contract_id := l_oks_chr_id;
639:
639:
640: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
641: x_msg_data => x_msg_data);
642: IF (is_debug_procedure_on) THEN
643: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
644: END IF;
645:
646: EXCEPTION
647: WHEN OKL_API.G_EXCEPTION_ERROR THEN
645:
646: EXCEPTION
647: WHEN OKL_API.G_EXCEPTION_ERROR THEN
648: IF (is_debug_exception_on) THEN
649: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
650: END IF;
651: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
652: p_api_name => l_api_name,
653: p_pkg_name => G_PKG_NAME,
657: p_api_type => G_API_TYPE);
658:
659: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
660: IF (is_debug_exception_on) THEN
661: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
662: END IF;
663: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
664: p_api_name => l_api_name,
665: p_pkg_name => G_PKG_NAME,
669: p_api_type => G_API_TYPE);
670:
671: WHEN OTHERS THEN
672: IF (is_debug_exception_on) THEN
673: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
674: || sqlcode || ' , SQLERRM : ' || sqlerrm);
675: END IF;
676: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
677: p_api_name => l_api_name,
733: l_quote_assets_no NUMBER;
734: l_contract_assets_no NUMBER;
735: l_true_partial_quote VARCHAR2(1) := 'N';
736: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_true_partial_quote';
737: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
738: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
739: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
740:
741: BEGIN
734: l_contract_assets_no NUMBER;
735: l_true_partial_quote VARCHAR2(1) := 'N';
736: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_true_partial_quote';
737: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
738: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
739: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
740:
741: BEGIN
742: IF (is_debug_procedure_on) THEN
735: l_true_partial_quote VARCHAR2(1) := 'N';
736: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_true_partial_quote';
737: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
738: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
739: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
740:
741: BEGIN
742: IF (is_debug_procedure_on) THEN
743: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
739: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
740:
741: BEGIN
742: IF (is_debug_procedure_on) THEN
743: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
744: END IF;
745: IF (is_debug_statement_on) THEN
746: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_quote_id: '|| p_quote_id);
747: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
742: IF (is_debug_procedure_on) THEN
743: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
744: END IF;
745: IF (is_debug_statement_on) THEN
746: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_quote_id: '|| p_quote_id);
747: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
748: END IF;
749:
750: -- Get the no of assets in quote
743: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
744: END IF;
745: IF (is_debug_statement_on) THEN
746: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_quote_id: '|| p_quote_id);
747: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
748: END IF;
749:
750: -- Get the no of assets in quote
751: FOR get_quote_assets_no_rec
785: l_true_partial_quote := 'Y';
786:
787: END IF;
788: IF (is_debug_statement_on) THEN
789: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Returning l_true_partial_quote: '||l_true_partial_quote);
790: END IF;
791: IF (is_debug_procedure_on) THEN
792: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
793: END IF;
788: IF (is_debug_statement_on) THEN
789: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Returning l_true_partial_quote: '||l_true_partial_quote);
790: END IF;
791: IF (is_debug_procedure_on) THEN
792: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
793: END IF;
794:
795: RETURN l_true_partial_quote;
796:
797: EXCEPTION
798:
799: WHEN OTHERS THEN
800: IF (is_debug_exception_on) THEN
801: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
802: || sqlcode || ' , SQLERRM : ' || sqlerrm);
803: END IF;
804:
805: OKL_API.set_message(
858: l_contract_assets_no NUMBER;
859: l_true_partial_quote VARCHAR2(1) := 'N';
860: l_additional_assets_yn VARCHAR2(3);
861: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_true_partial_quote_yn';
862: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
863: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
864: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
865: BEGIN
866: IF (is_debug_procedure_on) THEN
859: l_true_partial_quote VARCHAR2(1) := 'N';
860: l_additional_assets_yn VARCHAR2(3);
861: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_true_partial_quote_yn';
862: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
863: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
864: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
865: BEGIN
866: IF (is_debug_procedure_on) THEN
867: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
860: l_additional_assets_yn VARCHAR2(3);
861: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_true_partial_quote_yn';
862: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
863: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
864: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
865: BEGIN
866: IF (is_debug_procedure_on) THEN
867: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
868: END IF;
863: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
864: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
865: BEGIN
866: IF (is_debug_procedure_on) THEN
867: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
868: END IF;
869: IF (is_debug_statement_on) THEN
870: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_quote_id: '|| p_quote_id);
871: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
866: IF (is_debug_procedure_on) THEN
867: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
868: END IF;
869: IF (is_debug_statement_on) THEN
870: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_quote_id: '|| p_quote_id);
871: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
872: END IF;
873:
874: -- Check if any more assets exist in contract which have not been quoted
867: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
868: END IF;
869: IF (is_debug_statement_on) THEN
870: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_quote_id: '|| p_quote_id);
871: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
872: END IF;
873:
874: -- Check if any more assets exist in contract which have not been quoted
875: FOR get_additional_assets_rec IN get_additional_assets_csr (p_contract_id,p_quote_id) LOOP
901: l_true_partial_quote := 'Y';
902:
903: END IF;
904: IF (is_debug_procedure_on) THEN
905: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
906: END IF;
907: IF (is_debug_statement_on) THEN
908: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Returning l_true_partial_quote: '||l_true_partial_quote);
909: END IF;
904: IF (is_debug_procedure_on) THEN
905: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
906: END IF;
907: IF (is_debug_statement_on) THEN
908: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Returning l_true_partial_quote: '||l_true_partial_quote);
909: END IF;
910:
911: RETURN l_true_partial_quote;
912:
913: EXCEPTION
914:
915: WHEN OTHERS THEN
916: IF (is_debug_exception_on) THEN
917: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
918: || sqlcode || ' , SQLERRM : ' || sqlerrm);
919: END IF;
920:
921: OKL_API.set_message(
957: l_api_version CONSTANT NUMBER := 1;
958: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
959: l_msg_data VARCHAR2(2000);
960: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_service_k_int_needed';
961: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
962: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
963: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
964:
965: BEGIN
958: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
959: l_msg_data VARCHAR2(2000);
960: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_service_k_int_needed';
961: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
962: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
963: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
964:
965: BEGIN
966: IF (is_debug_procedure_on) THEN
959: l_msg_data VARCHAR2(2000);
960: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_service_k_int_needed';
961: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
962: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
963: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
964:
965: BEGIN
966: IF (is_debug_procedure_on) THEN
967: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
963: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
964:
965: BEGIN
966: IF (is_debug_procedure_on) THEN
967: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
968: END IF;
969: IF (is_debug_statement_on) THEN
970: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_partial_yn: '|| p_partial_yn);
971: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_asset_id: '|| p_asset_id);
966: IF (is_debug_procedure_on) THEN
967: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
968: END IF;
969: IF (is_debug_statement_on) THEN
970: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_partial_yn: '|| p_partial_yn);
971: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_asset_id: '|| p_asset_id);
972: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_source: '|| p_source);
973: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
974: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
967: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
968: END IF;
969: IF (is_debug_statement_on) THEN
970: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_partial_yn: '|| p_partial_yn);
971: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_asset_id: '|| p_asset_id);
972: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_source: '|| p_source);
973: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
974: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
975: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.tmt_recycle_yn: '||p_tcnv_rec.tmt_recycle_yn);
968: END IF;
969: IF (is_debug_statement_on) THEN
970: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_partial_yn: '|| p_partial_yn);
971: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_asset_id: '|| p_asset_id);
972: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_source: '|| p_source);
973: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
974: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
975: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.tmt_recycle_yn: '||p_tcnv_rec.tmt_recycle_yn);
976: END IF;
969: IF (is_debug_statement_on) THEN
970: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_partial_yn: '|| p_partial_yn);
971: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_asset_id: '|| p_asset_id);
972: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_source: '|| p_source);
973: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
974: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
975: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.tmt_recycle_yn: '||p_tcnv_rec.tmt_recycle_yn);
976: END IF;
977:
970: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_partial_yn: '|| p_partial_yn);
971: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_asset_id: '|| p_asset_id);
972: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_source: '|| p_source);
973: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
974: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
975: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.tmt_recycle_yn: '||p_tcnv_rec.tmt_recycle_yn);
976: END IF;
977:
978: -- IF SOURCE = 'TERMINATION'
971: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_asset_id: '|| p_asset_id);
972: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_source: '|| p_source);
973: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
974: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
975: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.tmt_recycle_yn: '||p_tcnv_rec.tmt_recycle_yn);
976: END IF;
977:
978: -- IF SOURCE = 'TERMINATION'
979: -- If Recycle YN = 'N' AND Linked Lease AND Full Termination THEN
998: -- OR p_tcnv_rec.tmt_recycle_yn = OKL_API.G_MISS_CHAR THEN
999:
1000: -- Get the linked lease details
1001: IF (is_debug_statement_on) THEN
1002: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_SERVICE_INTEGRATION_PVT.check_service_link');
1003: END IF;
1004: OKL_SERVICE_INTEGRATION_PVT.check_service_link (
1005: p_api_version => l_api_version,
1006: p_init_msg_list => OKL_API.G_FALSE,
1010: p_lease_contract_id => p_term_rec.p_contract_id ,
1011: x_service_contract_id => l_oks_chr_id);
1012:
1013: IF (is_debug_statement_on) THEN
1014: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_SERVICE_INTEGRATION_PVT.check_service_link , return status: ' || l_return_status);
1015: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_oks_chr_id: ' || l_oks_chr_id);
1016: END IF;
1017: -- If linked Lease
1018: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
1011: x_service_contract_id => l_oks_chr_id);
1012:
1013: IF (is_debug_statement_on) THEN
1014: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_SERVICE_INTEGRATION_PVT.check_service_link , return status: ' || l_return_status);
1015: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_oks_chr_id: ' || l_oks_chr_id);
1016: END IF;
1017: -- If linked Lease
1018: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
1019: AND l_oks_chr_id IS NOT NULL THEN
1025: l_true_partial_quote := check_true_partial_quote_yn( -- rmunjulu 4997075
1026: p_quote_id => p_term_rec.p_quote_id,
1027: p_contract_id => p_term_rec.p_contract_id);
1028: IF (is_debug_statement_on) THEN
1029: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called check_true_partial_quote_yn , l_true_partial_quote: ' || l_true_partial_quote);
1030: END IF;
1031:
1032: ELSE -- Partial_YN = 'N'
1033:
1063: x_msg_data => l_msg_data,
1064: p_lease_asset_id => p_asset_id ,
1065: x_service_contract_id => l_oks_chr_id);
1066: IF (is_debug_statement_on) THEN
1067: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called check_service_link , l_oks_chr_id: ' || l_oks_chr_id);
1068: END IF;
1069:
1070: -- If linked Lease
1071: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
1080: END IF;
1081:
1082: END IF;
1083: IF (is_debug_procedure_on) THEN
1084: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
1085: END IF;
1086:
1087: IF (is_debug_statement_on) THEN
1088: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Returning l_service_integration_needed: '||l_service_integration_needed);
1084: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
1085: END IF;
1086:
1087: IF (is_debug_statement_on) THEN
1088: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Returning l_service_integration_needed: '||l_service_integration_needed);
1089: END IF;
1090: -- Set the RETURN value
1091: RETURN l_service_integration_needed;
1092:
1093: EXCEPTION
1094:
1095: WHEN OTHERS THEN
1096: IF (is_debug_exception_on) THEN
1097: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1098: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1099: END IF;
1100:
1101: OKL_API.set_message(
1147: l_wf_source VARCHAR2(20);
1148: l_termination_date DATE;
1149: l_quote_id NUMBER := NULL;
1150: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'service_k_integration';
1151: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1152: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1153: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1154:
1155: l_api_version CONSTANT NUMBER := 1;
1148: l_termination_date DATE;
1149: l_quote_id NUMBER := NULL;
1150: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'service_k_integration';
1151: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1152: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1153: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1154:
1155: l_api_version CONSTANT NUMBER := 1;
1156: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
1149: l_quote_id NUMBER := NULL;
1150: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'service_k_integration';
1151: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1152: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1153: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1154:
1155: l_api_version CONSTANT NUMBER := 1;
1156: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
1157: l_msg_data VARCHAR2(2000);
1170: l_sts_code OKC_K_HEADERS_B.sts_code%TYPE;
1171:
1172: BEGIN
1173: IF (is_debug_procedure_on) THEN
1174: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1175: END IF;
1176: IF (is_debug_statement_on) THEN
1177: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_transaction_id: '|| p_transaction_id);
1178: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_transaction_date: '|| p_transaction_date);
1173: IF (is_debug_procedure_on) THEN
1174: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1175: END IF;
1176: IF (is_debug_statement_on) THEN
1177: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_transaction_id: '|| p_transaction_id);
1178: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_transaction_date: '|| p_transaction_date);
1179: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_source: '|| p_source);
1180: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_service_integration_needed: '|| p_service_integration_needed);
1181: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
1174: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1175: END IF;
1176: IF (is_debug_statement_on) THEN
1177: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_transaction_id: '|| p_transaction_id);
1178: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_transaction_date: '|| p_transaction_date);
1179: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_source: '|| p_source);
1180: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_service_integration_needed: '|| p_service_integration_needed);
1181: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
1182: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
1175: END IF;
1176: IF (is_debug_statement_on) THEN
1177: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_transaction_id: '|| p_transaction_id);
1178: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_transaction_date: '|| p_transaction_date);
1179: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_source: '|| p_source);
1180: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_service_integration_needed: '|| p_service_integration_needed);
1181: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
1182: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
1183: END IF;
1176: IF (is_debug_statement_on) THEN
1177: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_transaction_id: '|| p_transaction_id);
1178: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_transaction_date: '|| p_transaction_date);
1179: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_source: '|| p_source);
1180: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_service_integration_needed: '|| p_service_integration_needed);
1181: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
1182: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
1183: END IF;
1184:
1177: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_transaction_id: '|| p_transaction_id);
1178: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_transaction_date: '|| p_transaction_date);
1179: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_source: '|| p_source);
1180: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_service_integration_needed: '|| p_service_integration_needed);
1181: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
1182: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
1183: END IF;
1184:
1185: -- If Service Integration Needed
1178: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_transaction_date: '|| p_transaction_date);
1179: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_source: '|| p_source);
1180: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_service_integration_needed: '|| p_service_integration_needed);
1181: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
1182: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
1183: END IF;
1184:
1185: -- If Service Integration Needed
1186: IF NVL(p_service_integration_needed,'N') = 'Y' THEN
1210:
1211: -- RMUNJULU 23-DEC-03 SERVICE K UPDATES
1212: -- Get the OKS contract ID before delink since after delink we loose that info
1213: IF (is_debug_statement_on) THEN
1214: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_SERVICE_INTEGRATION_PVT.check_service_link');
1215: END IF;
1216: OKL_SERVICE_INTEGRATION_PVT.check_service_link (
1217: p_api_version => l_api_version,
1218: p_init_msg_list => OKL_API.G_FALSE,
1221: x_msg_data => l_msg_data,
1222: p_lease_contract_id => p_term_rec.p_contract_id ,
1223: x_service_contract_id => l_oks_chr_id);
1224: IF (is_debug_statement_on) THEN
1225: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_SERVICE_INTEGRATION_PVT.check_service_link , return status: ' || l_return_status);
1226: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_oks_chr_id: ' || l_oks_chr_id);
1227: END IF;
1228:
1229: IF (is_debug_statement_on) THEN
1222: p_lease_contract_id => p_term_rec.p_contract_id ,
1223: x_service_contract_id => l_oks_chr_id);
1224: IF (is_debug_statement_on) THEN
1225: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_SERVICE_INTEGRATION_PVT.check_service_link , return status: ' || l_return_status);
1226: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_oks_chr_id: ' || l_oks_chr_id);
1227: END IF;
1228:
1229: IF (is_debug_statement_on) THEN
1230: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_SERVICE_INTEGRATION_PVT.delink_service_contract');
1226: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_oks_chr_id: ' || l_oks_chr_id);
1227: END IF;
1228:
1229: IF (is_debug_statement_on) THEN
1230: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_SERVICE_INTEGRATION_PVT.delink_service_contract');
1231: END IF;
1232: -- De-link Lease from Service
1233: OKL_SERVICE_INTEGRATION_PVT.delink_service_contract(
1234: p_api_version => l_api_version,
1237: x_msg_count => l_msg_count,
1238: x_msg_data => l_msg_data,
1239: p_okl_chr_id => p_term_rec.p_contract_id);
1240: IF (is_debug_statement_on) THEN
1241: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_SERVICE_INTEGRATION_PVT.delink_service_contract , return status: ' || l_return_status);
1242: END IF;
1243: -- If De-link successful
1244: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN -- SUCCESS
1245: l_wf_source := 'SUCCESS';
1278: END IF;
1279:
1280: -- Raise event to launch the service k integration workflow
1281: IF (is_debug_statement_on) THEN
1282: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event');
1283: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_contract_id : ' || p_term_rec.p_contract_id);
1284: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_wf_source : ' || l_wf_source);
1285: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_quote_id : ' || l_quote_id);
1286: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_oks_chr_id : ' || l_oks_chr_id);
1279:
1280: -- Raise event to launch the service k integration workflow
1281: IF (is_debug_statement_on) THEN
1282: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event');
1283: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_contract_id : ' || p_term_rec.p_contract_id);
1284: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_wf_source : ' || l_wf_source);
1285: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_quote_id : ' || l_quote_id);
1286: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_oks_chr_id : ' || l_oks_chr_id);
1287: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_termination_date : ' || l_termination_date);
1280: -- Raise event to launch the service k integration workflow
1281: IF (is_debug_statement_on) THEN
1282: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event');
1283: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_contract_id : ' || p_term_rec.p_contract_id);
1284: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_wf_source : ' || l_wf_source);
1285: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_quote_id : ' || l_quote_id);
1286: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_oks_chr_id : ' || l_oks_chr_id);
1287: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_termination_date : ' || l_termination_date);
1288: END IF;
1281: IF (is_debug_statement_on) THEN
1282: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event');
1283: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_contract_id : ' || p_term_rec.p_contract_id);
1284: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_wf_source : ' || l_wf_source);
1285: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_quote_id : ' || l_quote_id);
1286: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_oks_chr_id : ' || l_oks_chr_id);
1287: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_termination_date : ' || l_termination_date);
1288: END IF;
1289: OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event(
1282: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event');
1283: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_contract_id : ' || p_term_rec.p_contract_id);
1284: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_wf_source : ' || l_wf_source);
1285: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_quote_id : ' || l_quote_id);
1286: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_oks_chr_id : ' || l_oks_chr_id);
1287: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_termination_date : ' || l_termination_date);
1288: END IF;
1289: OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event(
1290: p_transaction_id => p_term_rec.p_contract_id,
1283: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_contract_id : ' || p_term_rec.p_contract_id);
1284: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_wf_source : ' || l_wf_source);
1285: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_quote_id : ' || l_quote_id);
1286: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_oks_chr_id : ' || l_oks_chr_id);
1287: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_termination_date : ' || l_termination_date);
1288: END IF;
1289: OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event(
1290: p_transaction_id => p_term_rec.p_contract_id,
1291: p_source => l_wf_source,
1292: p_quote_id => l_quote_id,
1293: p_oks_contract => l_oks_chr_id, -- RMUNJULU 23-DEC-03 SERVICE K UPDATES Pass OKS contract to WF
1294: p_transaction_date => l_termination_date);
1295: IF (is_debug_statement_on) THEN
1296: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event');
1297: END IF;
1298:
1299: END IF;
1300: ELSIF p_source = 'RETURN' THEN -- Request from Asset Return
1305:
1306: l_wf_source := 'RETURN';
1307:
1308: IF (is_debug_statement_on) THEN
1309: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event');
1310: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_id : ' || p_transaction_id);
1311: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_wf_source : ' || l_wf_source);
1312: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_date : ' || p_transaction_date);
1313: END IF;
1306: l_wf_source := 'RETURN';
1307:
1308: IF (is_debug_statement_on) THEN
1309: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event');
1310: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_id : ' || p_transaction_id);
1311: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_wf_source : ' || l_wf_source);
1312: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_date : ' || p_transaction_date);
1313: END IF;
1314: -- Raise event to launch the service k integration workflow
1307:
1308: IF (is_debug_statement_on) THEN
1309: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event');
1310: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_id : ' || p_transaction_id);
1311: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_wf_source : ' || l_wf_source);
1312: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_date : ' || p_transaction_date);
1313: END IF;
1314: -- Raise event to launch the service k integration workflow
1315: OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event(
1308: IF (is_debug_statement_on) THEN
1309: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event');
1310: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_id : ' || p_transaction_id);
1311: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_wf_source : ' || l_wf_source);
1312: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_date : ' || p_transaction_date);
1313: END IF;
1314: -- Raise event to launch the service k integration workflow
1315: OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event(
1316: p_transaction_id => p_transaction_id,
1316: p_transaction_id => p_transaction_id,
1317: p_source => l_wf_source,
1318: p_transaction_date => p_transaction_date);
1319: IF (is_debug_statement_on) THEN
1320: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event');
1321: END IF;
1322:
1323:
1324: ELSIF p_source = 'DISPOSE_1' THEN -- Request from Asset Dispose_1
1332:
1333: l_wf_source := 'DISPOSE';
1334:
1335: IF (is_debug_statement_on) THEN
1336: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event');
1337: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_id : ' || p_transaction_id);
1338: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_wf_source : ' || l_wf_source);
1339: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_date : ' || p_transaction_date);
1340: END IF;
1333: l_wf_source := 'DISPOSE';
1334:
1335: IF (is_debug_statement_on) THEN
1336: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event');
1337: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_id : ' || p_transaction_id);
1338: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_wf_source : ' || l_wf_source);
1339: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_date : ' || p_transaction_date);
1340: END IF;
1341: -- Raise event to launch the service k integration workflow
1334:
1335: IF (is_debug_statement_on) THEN
1336: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event');
1337: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_id : ' || p_transaction_id);
1338: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_wf_source : ' || l_wf_source);
1339: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_date : ' || p_transaction_date);
1340: END IF;
1341: -- Raise event to launch the service k integration workflow
1342: OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event(
1335: IF (is_debug_statement_on) THEN
1336: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event');
1337: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_id : ' || p_transaction_id);
1338: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_wf_source : ' || l_wf_source);
1339: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_date : ' || p_transaction_date);
1340: END IF;
1341: -- Raise event to launch the service k integration workflow
1342: OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event(
1343: p_transaction_id => p_transaction_id,
1343: p_transaction_id => p_transaction_id,
1344: p_source => l_wf_source,
1345: p_transaction_date => p_transaction_date);
1346: IF (is_debug_statement_on) THEN
1347: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event');
1348: END IF;
1349:
1350: ELSIF p_source = 'DISPOSE_2' THEN -- Request from Asset Dispose_2
1351:
1357: -- p_transaction_date is DISPOSE DATE in this case
1358:
1359: l_wf_source := 'DISPOSE';
1360: IF (is_debug_statement_on) THEN
1361: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event');
1362: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_id : ' || p_transaction_id);
1363: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_wf_source : ' || l_wf_source);
1364: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_date : ' || p_transaction_date);
1365: END IF;
1358:
1359: l_wf_source := 'DISPOSE';
1360: IF (is_debug_statement_on) THEN
1361: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event');
1362: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_id : ' || p_transaction_id);
1363: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_wf_source : ' || l_wf_source);
1364: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_date : ' || p_transaction_date);
1365: END IF;
1366: -- Raise event to launch the service k integration workflow
1359: l_wf_source := 'DISPOSE';
1360: IF (is_debug_statement_on) THEN
1361: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event');
1362: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_id : ' || p_transaction_id);
1363: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_wf_source : ' || l_wf_source);
1364: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_date : ' || p_transaction_date);
1365: END IF;
1366: -- Raise event to launch the service k integration workflow
1367: OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event(
1360: IF (is_debug_statement_on) THEN
1361: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event');
1362: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_id : ' || p_transaction_id);
1363: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_wf_source : ' || l_wf_source);
1364: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_date : ' || p_transaction_date);
1365: END IF;
1366: -- Raise event to launch the service k integration workflow
1367: OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event(
1368: p_transaction_id => p_transaction_id,
1368: p_transaction_id => p_transaction_id,
1369: p_source => l_wf_source,
1370: p_transaction_date => p_transaction_date);
1371: IF (is_debug_statement_on) THEN
1372: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event');
1373: END IF;
1374: END IF;
1375: END IF;
1376: IF (is_debug_procedure_on) THEN
1373: END IF;
1374: END IF;
1375: END IF;
1376: IF (is_debug_procedure_on) THEN
1377: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
1378: END IF;
1379:
1380: EXCEPTION
1381:
1380: EXCEPTION
1381:
1382: WHEN OTHERS THEN
1383: IF (is_debug_exception_on) THEN
1384: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1385: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1386: END IF;
1387:
1388: OKL_API.set_message(
1426: l_bill_stat_tbl OKL_BILL_STATUS_PUB.bill_stat_tbl_type; -- RMUNJULU 05-JAN-04 BPD Changed the API name
1427: l_bill_counter NUMBER;
1428: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1429: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_billing_done';
1430: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1431: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1432: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1433:
1434: BEGIN
1427: l_bill_counter NUMBER;
1428: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1429: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_billing_done';
1430: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1431: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1432: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1433:
1434: BEGIN
1435: IF (is_debug_procedure_on) THEN
1428: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1429: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_billing_done';
1430: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1431: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1432: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1433:
1434: BEGIN
1435: IF (is_debug_procedure_on) THEN
1436: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1432: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1433:
1434: BEGIN
1435: IF (is_debug_procedure_on) THEN
1436: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1437: END IF;
1438: IF (is_debug_statement_on) THEN
1439: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
1440: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_number: '|| p_contract_number);
1435: IF (is_debug_procedure_on) THEN
1436: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1437: END IF;
1438: IF (is_debug_statement_on) THEN
1439: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
1440: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_number: '|| p_contract_number);
1441: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_quote_number: '|| p_quote_number);
1442: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trn_date: '|| p_trn_date);
1443: END IF;
1436: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1437: END IF;
1438: IF (is_debug_statement_on) THEN
1439: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
1440: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_number: '|| p_contract_number);
1441: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_quote_number: '|| p_quote_number);
1442: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trn_date: '|| p_trn_date);
1443: END IF;
1444:
1437: END IF;
1438: IF (is_debug_statement_on) THEN
1439: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
1440: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_number: '|| p_contract_number);
1441: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_quote_number: '|| p_quote_number);
1442: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trn_date: '|| p_trn_date);
1443: END IF;
1444:
1445: -- Process Codes and Types decided on
1438: IF (is_debug_statement_on) THEN
1439: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
1440: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_number: '|| p_contract_number);
1441: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_quote_number: '|| p_quote_number);
1442: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trn_date: '|| p_trn_date);
1443: END IF;
1444:
1445: -- Process Codes and Types decided on
1446: -- =================================================
1460:
1461: -- BPD Now provides a API which tells till when the billing was done, use that
1462: -- RMUNJULU 05-JAN-04 BPD Changed the API name
1463: IF (is_debug_statement_on) THEN
1464: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_BILL_STATUS_PUB.billing_status');
1465: END IF;
1466: OKL_BILL_STATUS_PUB.billing_status(
1467: p_api_version => l_api_version,
1468: p_init_msg_list => OKL_API.G_FALSE,
1472: x_bill_stat_tbl => l_bill_stat_tbl,
1473: p_khr_id => p_contract_id,
1474: p_transaction_date => p_trn_date);
1475: IF (is_debug_statement_on) THEN
1476: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_BILL_STATUS_PUB.billing_status , return status: ' || l_return_status);
1477: END IF;
1478:
1479: IF l_bill_stat_tbl.COUNT > 0 THEN -- [1]
1480:
1535: END LOOP;
1536: END IF; --[-1]
1537:
1538: IF (is_debug_statement_on) THEN
1539: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_SERVICE_INTEGRATION_PVT.check_service_link');
1540: END IF;
1541: -- Check if linked service contract exists for the quoted contract
1542: OKL_SERVICE_INTEGRATION_PVT.check_service_link (
1543: p_api_version => l_api_version,
1547: x_msg_data => l_msg_data,
1548: p_lease_contract_id => p_contract_id,
1549: x_service_contract_id => l_oks_chr_id);
1550: IF (is_debug_statement_on) THEN
1551: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_SERVICE_INTEGRATION_PVT.check_service_link , return status: ' || l_return_status);
1552: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_oks_chr_id : ' || l_oks_chr_id);
1553: END IF;
1554:
1555: -- If linked Lease
1548: p_lease_contract_id => p_contract_id,
1549: x_service_contract_id => l_oks_chr_id);
1550: IF (is_debug_statement_on) THEN
1551: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_SERVICE_INTEGRATION_PVT.check_service_link , return status: ' || l_return_status);
1552: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_oks_chr_id : ' || l_oks_chr_id);
1553: END IF;
1554:
1555: -- If linked Lease
1556: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
1606: END LOOP;
1607: END IF; --[-2]
1608: END IF; --[-1]
1609: IF (is_debug_procedure_on) THEN
1610: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
1611: END IF;
1612: IF (is_debug_statement_on) THEN
1613: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Returning Y');
1614: END IF;
1609: IF (is_debug_procedure_on) THEN
1610: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
1611: END IF;
1612: IF (is_debug_statement_on) THEN
1613: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Returning Y');
1614: END IF;
1615:
1616: RETURN 'Y';
1617:
1618: EXCEPTION
1619:
1620: WHEN OTHERS THEN
1621: IF (is_debug_exception_on) THEN
1622: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1623: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1624: END IF;
1625:
1626: OKL_API.set_message(
1660: l_bill_stat_tbl OKL_BILL_STATUS_PUB.bill_stat_tbl_type;
1661: l_bill_counter NUMBER;
1662: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1663: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_stream_billing_done';
1664: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1665: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1666: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1667:
1668: BEGIN
1661: l_bill_counter NUMBER;
1662: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1663: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_stream_billing_done';
1664: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1665: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1666: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1667:
1668: BEGIN
1669: IF (is_debug_procedure_on) THEN
1662: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1663: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_stream_billing_done';
1664: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1665: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1666: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1667:
1668: BEGIN
1669: IF (is_debug_procedure_on) THEN
1670: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1666: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1667:
1668: BEGIN
1669: IF (is_debug_procedure_on) THEN
1670: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1671: END IF;
1672: IF (is_debug_statement_on) THEN
1673: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
1674: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_number: '|| p_contract_number);
1669: IF (is_debug_procedure_on) THEN
1670: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1671: END IF;
1672: IF (is_debug_statement_on) THEN
1673: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
1674: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_number: '|| p_contract_number);
1675: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_quote_number: '|| p_quote_number);
1676: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trn_date: '|| p_trn_date);
1677: END IF;
1670: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1671: END IF;
1672: IF (is_debug_statement_on) THEN
1673: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
1674: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_number: '|| p_contract_number);
1675: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_quote_number: '|| p_quote_number);
1676: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trn_date: '|| p_trn_date);
1677: END IF;
1678:
1671: END IF;
1672: IF (is_debug_statement_on) THEN
1673: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
1674: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_number: '|| p_contract_number);
1675: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_quote_number: '|| p_quote_number);
1676: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trn_date: '|| p_trn_date);
1677: END IF;
1678:
1679: IF (is_debug_statement_on) THEN
1672: IF (is_debug_statement_on) THEN
1673: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
1674: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_number: '|| p_contract_number);
1675: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_quote_number: '|| p_quote_number);
1676: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trn_date: '|| p_trn_date);
1677: END IF;
1678:
1679: IF (is_debug_statement_on) THEN
1680: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_BILL_STATUS_PUB.billing_status');
1676: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trn_date: '|| p_trn_date);
1677: END IF;
1678:
1679: IF (is_debug_statement_on) THEN
1680: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_BILL_STATUS_PUB.billing_status');
1681: END IF;
1682: OKL_BILL_STATUS_PUB.billing_status(
1683: p_api_version => l_api_version,
1684: p_init_msg_list => OKL_API.G_FALSE,
1688: x_bill_stat_tbl => l_bill_stat_tbl,
1689: p_khr_id => p_contract_id,
1690: p_transaction_date => p_trn_date);
1691: IF (is_debug_statement_on) THEN
1692: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_BILL_STATUS_PUB.billing_status , return status: ' || l_return_status);
1693: END IF;
1694:
1695: IF l_bill_stat_tbl.COUNT > 0 THEN -- [1]
1696:
1721: END LOOP;
1722: END IF; --[-1]
1723:
1724: IF (is_debug_procedure_on) THEN
1725: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
1726: END IF;
1727: IF (is_debug_statement_on) THEN
1728: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Returning Y');
1729: END IF;
1724: IF (is_debug_procedure_on) THEN
1725: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
1726: END IF;
1727: IF (is_debug_statement_on) THEN
1728: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Returning Y');
1729: END IF;
1730:
1731: RETURN 'Y';
1732:
1733: EXCEPTION
1734:
1735: WHEN OTHERS THEN
1736: IF (is_debug_exception_on) THEN
1737: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1738: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1739: END IF;
1740:
1741: OKL_API.set_message(
1864: l_ste_code VARCHAR2(30);
1865: l_contract_number VARCHAR2(120);
1866: l_meaning VARCHAR2(90);
1867: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'validate_contract';
1868: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1869: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1870: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1871:
1872:
1865: l_contract_number VARCHAR2(120);
1866: l_meaning VARCHAR2(90);
1867: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'validate_contract';
1868: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1869: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1870: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1871:
1872:
1873: -- RMUNJULU -- 11-DEC-02 Bug # 2484327 -- Added variables for checking
1866: l_meaning VARCHAR2(90);
1867: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'validate_contract';
1868: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1869: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1870: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1871:
1872:
1873: -- RMUNJULU -- 11-DEC-02 Bug # 2484327 -- Added variables for checking
1874: -- related to asset level termination
1882:
1883:
1884: BEGIN
1885: IF (is_debug_procedure_on) THEN
1886: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1887: END IF;
1888: IF (is_debug_statement_on) THEN
1889: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
1890: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_control_flag: '|| p_control_flag);
1885: IF (is_debug_procedure_on) THEN
1886: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1887: END IF;
1888: IF (is_debug_statement_on) THEN
1889: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
1890: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_control_flag: '|| p_control_flag);
1891: END IF;
1892:
1893: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1886: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1887: END IF;
1888: IF (is_debug_statement_on) THEN
1889: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
1890: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_control_flag: '|| p_control_flag);
1891: END IF;
1892:
1893: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1894:
2010: -- *****************
2011:
2012:
2013: IF (is_debug_statement_on) THEN
2014: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_UTIL_PVT.get_contract_transactions');
2015: END IF;
2016: -- Get all the unprocessed transactions for the contract
2017: OKL_AM_UTIL_PVT.get_contract_transactions (
2018: p_khr_id => k_header_rec.id,
2018: p_khr_id => k_header_rec.id,
2019: x_trn_tbl => lx_trn_tbl,
2020: x_return_status => l_return_status);
2021: IF (is_debug_statement_on) THEN
2022: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.get_contract_transactions , return status: ' || l_return_status);
2023: END IF;
2024:
2025:
2026: -- Check the return status
2052: -- IF NO accepted quote with no trn exists for contract then error
2053: -- *****************
2054:
2055: IF (is_debug_statement_on) THEN
2056: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_UTIL_PVT.get_non_trn_contract_quotes');
2057: END IF;
2058: -- Get accepted quote for contract with no trn
2059: OKL_AM_UTIL_PVT.get_non_trn_contract_quotes (
2060: p_khr_id => k_header_rec.id,
2060: p_khr_id => k_header_rec.id,
2061: x_quote_tbl => lx_quote_tbl,
2062: x_return_status => l_return_status);
2063: IF (is_debug_statement_on) THEN
2064: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.get_non_trn_contract_quotes , return status: ' || l_return_status);
2065: END IF;
2066:
2067: -- Check the return status
2068: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2120: -- IF unprocessed FULL termination trn exists for the contract then error
2121: -- *****************
2122:
2123: IF (is_debug_statement_on) THEN
2124: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_UTIL_PVT.get_contract_transactions');
2125: END IF;
2126: -- Get all the unprocessed transactions for the contract
2127: OKL_AM_UTIL_PVT.get_contract_transactions (
2128: p_khr_id => k_header_rec.id,
2128: p_khr_id => k_header_rec.id,
2129: x_trn_tbl => lx_trn_tbl,
2130: x_return_status => l_return_status);
2131: IF (is_debug_statement_on) THEN
2132: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.get_contract_transactions , return status: ' || l_return_status);
2133: END IF;
2134:
2135: -- Check the return status
2136: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2443:
2444: -- Set the return status
2445: x_return_status := l_return_status;
2446: IF (is_debug_procedure_on) THEN
2447: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
2448: END IF;
2449: EXCEPTION
2450: WHEN l_invalid_contract THEN
2451: IF (is_debug_exception_on) THEN
2448: END IF;
2449: EXCEPTION
2450: WHEN l_invalid_contract THEN
2451: IF (is_debug_exception_on) THEN
2452: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'l_invalid_contract');
2453: END IF;
2454: IF k_header_csr%ISOPEN THEN
2455: CLOSE k_header_csr;
2456: END IF;
2472: x_return_status := OKL_API.G_RET_STS_ERROR;
2473:
2474: WHEN OTHERS THEN
2475: IF (is_debug_exception_on) THEN
2476: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
2477: || sqlcode || ' , SQLERRM : ' || sqlerrm);
2478: END IF;
2479: IF k_header_csr%ISOPEN THEN
2480: CLOSE k_header_csr;
2545: l_lease_loan_type VARCHAR2(30) := '$';
2546: l_api_name VARCHAR2(30) := 'check_lease_loan_type';
2547: l_deal_type VARCHAR2(30) := '$';
2548: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_lease_loan_type';
2549: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2550: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2551: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2552:
2553: BEGIN
2546: l_api_name VARCHAR2(30) := 'check_lease_loan_type';
2547: l_deal_type VARCHAR2(30) := '$';
2548: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_lease_loan_type';
2549: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2550: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2551: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2552:
2553: BEGIN
2554: IF (is_debug_procedure_on) THEN
2547: l_deal_type VARCHAR2(30) := '$';
2548: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_lease_loan_type';
2549: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2550: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2551: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2552:
2553: BEGIN
2554: IF (is_debug_procedure_on) THEN
2555: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2551: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2552:
2553: BEGIN
2554: IF (is_debug_procedure_on) THEN
2555: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2556: END IF;
2557: IF (is_debug_statement_on) THEN
2558: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
2559: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
2554: IF (is_debug_procedure_on) THEN
2555: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2556: END IF;
2557: IF (is_debug_statement_on) THEN
2558: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
2559: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
2560: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
2561: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
2562: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
2555: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2556: END IF;
2557: IF (is_debug_statement_on) THEN
2558: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
2559: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
2560: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
2561: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
2562: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
2563: END IF;
2556: END IF;
2557: IF (is_debug_statement_on) THEN
2558: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
2559: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
2560: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
2561: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
2562: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
2563: END IF;
2564: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2557: IF (is_debug_statement_on) THEN
2558: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
2559: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
2560: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
2561: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
2562: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
2563: END IF;
2564: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2565: x_lease_loan_type := l_lease_loan_type;
2558: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
2559: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
2560: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
2561: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
2562: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
2563: END IF;
2564: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2565: x_lease_loan_type := l_lease_loan_type;
2566:
2595: CLOSE k_header_csr;
2596:
2597: x_lease_loan_type := l_lease_loan_type;
2598: IF (is_debug_procedure_on) THEN
2599: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
2600: END IF;
2601: EXCEPTION
2602: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2603: IF (is_debug_exception_on) THEN
2600: END IF;
2601: EXCEPTION
2602: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2603: IF (is_debug_exception_on) THEN
2604: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
2605: END IF;
2606: IF k_header_csr%ISOPEN THEN
2607: CLOSE k_header_csr;
2608: END IF;
2613: x_return_status := OKL_API.G_RET_STS_ERROR;
2614:
2615: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2616: IF (is_debug_exception_on) THEN
2617: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
2618: END IF;
2619: IF k_header_csr%ISOPEN THEN
2620: CLOSE k_header_csr;
2621: END IF;
2626: x_return_status :=OKL_API.G_RET_STS_UNEXP_ERROR;
2627:
2628: WHEN OTHERS THEN
2629: IF (is_debug_exception_on) THEN
2630: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
2631: || sqlcode || ' , SQLERRM : ' || sqlerrm);
2632: END IF;
2633: IF k_header_csr%ISOPEN THEN
2634: CLOSE k_header_csr;
2666: lx_tcnv_rec tcnv_rec_type;
2667: lx_contract_status VARCHAR2(200);
2668: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2669: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_non_batch';
2670: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2671: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2672: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2673:
2674: BEGIN
2667: lx_contract_status VARCHAR2(200);
2668: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2669: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_non_batch';
2670: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2671: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2672: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2673:
2674: BEGIN
2675: IF (is_debug_procedure_on) THEN
2668: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2669: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_non_batch';
2670: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2671: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2672: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2673:
2674: BEGIN
2675: IF (is_debug_procedure_on) THEN
2676: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2672: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2673:
2674: BEGIN
2675: IF (is_debug_procedure_on) THEN
2676: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2677: END IF;
2678: IF (is_debug_statement_on) THEN
2679: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
2680: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
2675: IF (is_debug_procedure_on) THEN
2676: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2677: END IF;
2678: IF (is_debug_statement_on) THEN
2679: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
2680: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
2681: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
2682: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
2683: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
2676: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2677: END IF;
2678: IF (is_debug_statement_on) THEN
2679: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
2680: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
2681: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
2682: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
2683: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
2684: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_control_flag: '|| p_term_rec.p_control_flag);
2677: END IF;
2678: IF (is_debug_statement_on) THEN
2679: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
2680: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
2681: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
2682: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
2683: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
2684: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_control_flag: '|| p_term_rec.p_control_flag);
2685: END IF;
2678: IF (is_debug_statement_on) THEN
2679: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
2680: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
2681: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
2682: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
2683: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
2684: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_control_flag: '|| p_term_rec.p_control_flag);
2685: END IF;
2686:
2679: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
2680: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
2681: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
2682: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
2683: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
2684: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_control_flag: '|| p_term_rec.p_control_flag);
2685: END IF;
2686:
2687: -- Validate the contract
2680: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
2681: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
2682: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
2683: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
2684: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_control_flag: '|| p_term_rec.p_control_flag);
2685: END IF;
2686:
2687: -- Validate the contract
2688: validate_contract(
2694: p_contract_id => p_term_rec.p_contract_id,
2695: p_control_flag => p_term_rec.p_control_flag,
2696: x_contract_status => lx_contract_status);
2697: IF (is_debug_statement_on) THEN
2698: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called validate_contract , return status: ' || l_return_status);
2699: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'lx_contract_status : ' || lx_contract_status);
2700: END IF;
2701:
2702: -- If error abort this contract
2695: p_control_flag => p_term_rec.p_control_flag,
2696: x_contract_status => lx_contract_status);
2697: IF (is_debug_statement_on) THEN
2698: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called validate_contract , return status: ' || l_return_status);
2699: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'lx_contract_status : ' || lx_contract_status);
2700: END IF;
2701:
2702: -- If error abort this contract
2703: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2705: END IF;
2706:
2707: -- get transaction if exists
2708: IF (is_debug_statement_on) THEN
2709: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_BTCH_EXP_LEASE_LOAN_PVT.get_trn_rec');
2710: END IF;
2711: OKL_AM_BTCH_EXP_LEASE_LOAN_PVT.get_trn_rec(
2712: p_contract_id => p_term_rec.p_contract_id,
2713: x_return_status => l_return_status,
2713: x_return_status => l_return_status,
2714: x_trn_exists => l_trn_exists,
2715: x_tcnv_rec => lp_tcnv_rec);
2716: IF (is_debug_statement_on) THEN
2717: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_BTCH_EXP_LEASE_LOAN_PVT.get_trn_rec , return status: ' || l_return_status);
2718: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_trn_exists : ' || l_trn_exists);
2719: END IF;
2720:
2721: -- if error then abort this contract
2714: x_trn_exists => l_trn_exists,
2715: x_tcnv_rec => lp_tcnv_rec);
2716: IF (is_debug_statement_on) THEN
2717: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_BTCH_EXP_LEASE_LOAN_PVT.get_trn_rec , return status: ' || l_return_status);
2718: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_trn_exists : ' || l_trn_exists);
2719: END IF;
2720:
2721: -- if error then abort this contract
2722: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2732:
2733: x_return_status := l_return_status;
2734: x_can_terminate := l_can_terminate;
2735: IF (is_debug_procedure_on) THEN
2736: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
2737: END IF;
2738: EXCEPTION
2739:
2740: WHEN G_EXCEPTION_HALT THEN
2738: EXCEPTION
2739:
2740: WHEN G_EXCEPTION_HALT THEN
2741: IF (is_debug_exception_on) THEN
2742: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_HALT');
2743: END IF;
2744: x_return_status := OKL_API.G_RET_STS_ERROR;
2745: x_can_terminate := 'N';
2746:
2745: x_can_terminate := 'N';
2746:
2747: WHEN OTHERS THEN
2748: IF (is_debug_exception_on) THEN
2749: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
2750: || sqlcode || ' , SQLERRM : ' || sqlerrm);
2751: END IF;
2752: x_return_status := OKL_API.G_RET_STS_ERROR;
2753: x_can_terminate := 'N';
2804: l_can_terminate VARCHAR2(1) := 'Y';
2805: lp_term_rec term_rec_type := p_term_rec;
2806: --l_accepted_qte_rec l_accepted_qte_csr%ROWTYPE;
2807: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'lease_loan_termination';
2808: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2809: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2810: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2811:
2812: -- RMUNJULU Bug # 2484327 : To get the value of the quote whether partial yn
2805: lp_term_rec term_rec_type := p_term_rec;
2806: --l_accepted_qte_rec l_accepted_qte_csr%ROWTYPE;
2807: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'lease_loan_termination';
2808: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2809: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2810: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2811:
2812: -- RMUNJULU Bug # 2484327 : To get the value of the quote whether partial yn
2813: l_partial_yn VARCHAR2(1) := 'N';
2806: --l_accepted_qte_rec l_accepted_qte_csr%ROWTYPE;
2807: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'lease_loan_termination';
2808: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2809: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2810: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2811:
2812: -- RMUNJULU Bug # 2484327 : To get the value of the quote whether partial yn
2813: l_partial_yn VARCHAR2(1) := 'N';
2814:
2820: l_service_integration_needed VARCHAR2(3) := 'N';
2821:
2822: BEGIN
2823: IF (is_debug_procedure_on) THEN
2824: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2825: END IF;
2826: IF (is_debug_statement_on) THEN
2827: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
2828: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
2823: IF (is_debug_procedure_on) THEN
2824: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2825: END IF;
2826: IF (is_debug_statement_on) THEN
2827: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
2828: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
2829: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
2830: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
2831: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
2824: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2825: END IF;
2826: IF (is_debug_statement_on) THEN
2827: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
2828: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
2829: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
2830: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
2831: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
2832: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_control_flag: '|| p_term_rec.p_control_flag);
2825: END IF;
2826: IF (is_debug_statement_on) THEN
2827: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
2828: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
2829: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
2830: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
2831: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
2832: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_control_flag: '|| p_term_rec.p_control_flag);
2833: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.tmt_recycle_yn: '||p_tcnv_rec.tmt_recycle_yn);
2826: IF (is_debug_statement_on) THEN
2827: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
2828: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
2829: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
2830: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
2831: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
2832: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_control_flag: '|| p_term_rec.p_control_flag);
2833: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.tmt_recycle_yn: '||p_tcnv_rec.tmt_recycle_yn);
2834: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.qte_id: '||p_tcnv_rec.qte_id);
2827: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
2828: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
2829: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
2830: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
2831: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
2832: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_control_flag: '|| p_term_rec.p_control_flag);
2833: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.tmt_recycle_yn: '||p_tcnv_rec.tmt_recycle_yn);
2834: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.qte_id: '||p_tcnv_rec.qte_id);
2835: END IF;
2828: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
2829: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
2830: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
2831: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
2832: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_control_flag: '|| p_term_rec.p_control_flag);
2833: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.tmt_recycle_yn: '||p_tcnv_rec.tmt_recycle_yn);
2834: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.qte_id: '||p_tcnv_rec.qte_id);
2835: END IF;
2836:
2829: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
2830: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
2831: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
2832: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_control_flag: '|| p_term_rec.p_control_flag);
2833: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.tmt_recycle_yn: '||p_tcnv_rec.tmt_recycle_yn);
2834: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.qte_id: '||p_tcnv_rec.qte_id);
2835: END IF;
2836:
2837: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2830: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
2831: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
2832: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_control_flag: '|| p_term_rec.p_control_flag);
2833: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.tmt_recycle_yn: '||p_tcnv_rec.tmt_recycle_yn);
2834: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.qte_id: '||p_tcnv_rec.qte_id);
2835: END IF;
2836:
2837: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2838:
2849: p_term_rec => lp_term_rec,
2850: x_tcnv_rec => l_tcnv_rec,
2851: x_can_terminate => l_can_terminate);
2852: IF (is_debug_statement_on) THEN
2853: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called process_non_batch , return status: ' || l_return_status);
2854: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_can_terminate : ' || l_can_terminate);
2855: END IF;
2856:
2857:
2850: x_tcnv_rec => l_tcnv_rec,
2851: x_can_terminate => l_can_terminate);
2852: IF (is_debug_statement_on) THEN
2853: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called process_non_batch , return status: ' || l_return_status);
2854: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_can_terminate : ' || l_can_terminate);
2855: END IF;
2856:
2857:
2858: -- If error abort this contract
2876: x_msg_data => x_msg_data,
2877: p_term_rec => lp_term_rec,
2878: x_lease_loan_type => l_lease_or_loan);
2879: IF (is_debug_statement_on) THEN
2880: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called check_lease_loan_type , return status: ' || l_return_status);
2881: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_lease_or_loan : ' || l_lease_or_loan);
2882: END IF;
2883:
2884:
2877: p_term_rec => lp_term_rec,
2878: x_lease_loan_type => l_lease_or_loan);
2879: IF (is_debug_statement_on) THEN
2880: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called check_lease_loan_type , return status: ' || l_return_status);
2881: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_lease_or_loan : ' || l_lease_or_loan);
2882: END IF;
2883:
2884:
2885:
2941: -- Get accepted quote with no trn if exists for contract
2942: -- *****************
2943:
2944: IF (is_debug_statement_on) THEN
2945: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_UTIL_PVT.get_non_trn_contract_quotes');
2946: END IF;
2947: -- Get accepted quote for contract with no trn
2948: OKL_AM_UTIL_PVT.get_non_trn_contract_quotes (
2949: p_khr_id => lp_term_rec.p_contract_id,
2949: p_khr_id => lp_term_rec.p_contract_id,
2950: x_quote_tbl => lx_quote_tbl,
2951: x_return_status => l_return_status);
2952: IF (is_debug_statement_on) THEN
2953: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.get_non_trn_contract_quotes , return status: ' || l_return_status);
2954: END IF;
2955:
2956: -- Check the return status
2957: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2974: -- RMUNJULU 18-DEC-02 2484327 -- END --
2975:
2976:
2977: IF (is_debug_statement_on) THEN
2978: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'setting okc org context');
2979: END IF;
2980: -- RMUNJULU 02-JAN-03 2699412 Set the okc context
2981: OKL_CONTEXT.set_okc_org_context(p_chr_id => lp_term_rec.p_contract_id);
2982:
2982:
2983: -- ++++++++++++++++++++ service contract integration begin ++++++++++++++++++
2984:
2985: IF (is_debug_statement_on) THEN
2986: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling check_service_k_int_needed');
2987: END IF;
2988: -- RMUNJULU 3061751 27-AUG-2003
2989: -- Checks and sets service_integration_needed flag
2990: -- Need to do this before lines terminated else will not know
2995: p_tcnv_rec => l_tcnv_rec,
2996: p_partial_yn => l_partial_yn,
2997: p_source => 'TERMINATION');
2998: IF (is_debug_statement_on) THEN
2999: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called check_service_k_int_needed');
3000: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_service_integration_needed : ' || l_service_integration_needed);
3001: END IF;
3002:
3003: -- +++++++++++++++++++++ service contract integration end ++++++++++++++++++
2996: p_partial_yn => l_partial_yn,
2997: p_source => 'TERMINATION');
2998: IF (is_debug_statement_on) THEN
2999: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called check_service_k_int_needed');
3000: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_service_integration_needed : ' || l_service_integration_needed);
3001: END IF;
3002:
3003: -- +++++++++++++++++++++ service contract integration end ++++++++++++++++++
3004:
3014: l_partial_yn := check_true_partial_quote_yn( -- rmunjulu 4997075
3015: p_quote_id => lp_term_rec.p_quote_id,
3016: p_contract_id => lp_term_rec.p_contract_id);
3017: IF (is_debug_statement_on) THEN
3018: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called check_true_partial_quote_yn');
3019: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_partial_yn : ' || l_partial_yn);
3020: END IF;
3021: END IF;
3022:
3015: p_quote_id => lp_term_rec.p_quote_id,
3016: p_contract_id => lp_term_rec.p_contract_id);
3017: IF (is_debug_statement_on) THEN
3018: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called check_true_partial_quote_yn');
3019: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_partial_yn : ' || l_partial_yn);
3020: END IF;
3021: END IF;
3022:
3023: -- Call the lease/loan termination api
3023: -- Call the lease/loan termination api
3024: IF (l_partial_yn = 'Y') THEN
3025:
3026: IF (is_debug_statement_on) THEN
3027: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_CNTRCT_LN_TRMNT_PVT.asset_level_termination');
3028: END IF;
3029:
3030: OKL_AM_CNTRCT_LN_TRMNT_PVT.asset_level_termination(
3031: p_api_version => p_api_version,
3035: x_msg_count => x_msg_count,
3036: x_msg_data => x_msg_data,
3037: x_return_status => l_return_status);
3038: IF (is_debug_statement_on) THEN
3039: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_CNTRCT_LN_TRMNT_PVT.asset_level_termination , return status: ' || l_return_status);
3040: END IF;
3041:
3042: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3043: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3047:
3048: ELSIF (l_lease_or_loan = 'LEASE') THEN
3049:
3050: IF (is_debug_statement_on) THEN
3051: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_LEASE_TRMNT_PVT.lease_termination');
3052: END IF;
3053: OKL_AM_LEASE_TRMNT_PVT.lease_termination(
3054: p_api_version => p_api_version,
3055: p_init_msg_list => p_init_msg_list,
3058: x_msg_data => x_msg_data,
3059: p_term_rec => lp_term_rec,
3060: p_tcnv_rec => l_tcnv_rec);
3061: IF (is_debug_statement_on) THEN
3062: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_LEASE_TRMNT_PVT.lease_termination , return status: ' || l_return_status);
3063: END IF;
3064:
3065: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3066: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3070:
3071: ELSIF (l_lease_or_loan = 'LOAN') THEN
3072:
3073: IF (is_debug_statement_on) THEN
3074: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_LOAN_TRMNT_PVT.loan_termination');
3075: END IF;
3076: OKL_AM_LOAN_TRMNT_PVT.loan_termination(
3077: p_api_version => p_api_version,
3078: p_init_msg_list => p_init_msg_list,
3081: x_msg_data => x_msg_data,
3082: p_term_rec => lp_term_rec,
3083: p_tcnv_rec => l_tcnv_rec);
3084: IF (is_debug_statement_on) THEN
3085: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_LOAN_TRMNT_PVT.loan_termination , return status: ' || l_return_status);
3086: END IF;
3087:
3088: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3089: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3126: p_term_rec => lp_term_rec,
3127: p_source => 'TERMINATION',
3128: p_service_integration_needed => l_service_integration_needed);
3129: IF (is_debug_statement_on) THEN
3130: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called service_k_integration');
3131: END IF;
3132:
3133: -- +++++++++++++++++++++ service contract integration end ++++++++++++++++++
3134:
3133: -- +++++++++++++++++++++ service contract integration end ++++++++++++++++++
3134:
3135: x_return_status := l_return_status;
3136: IF (is_debug_procedure_on) THEN
3137: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
3138: END IF;
3139:
3140: EXCEPTION
3141:
3140: EXCEPTION
3141:
3142: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3143: IF (is_debug_exception_on) THEN
3144: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
3145: END IF;
3146:
3147: -- RMUNJULU 18-DEC-02 2484327
3148: IF l_qte_csr%ISOPEN THEN
3152: x_return_status := OKL_API.G_RET_STS_ERROR;
3153:
3154: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3155: IF (is_debug_exception_on) THEN
3156: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
3157: END IF;
3158:
3159: -- RMUNJULU 18-DEC-02 2484327
3160: IF l_qte_csr%ISOPEN THEN
3165: x_return_status :=OKL_API.G_RET_STS_UNEXP_ERROR;
3166:
3167: WHEN OTHERS THEN
3168: IF (is_debug_exception_on) THEN
3169: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
3170: || sqlcode || ' , SQLERRM : ' || sqlerrm);
3171: END IF;
3172:
3173: -- RMUNJULU 18-DEC-02 2484327
3206: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3207: l_api_version CONSTANT NUMBER := 1;
3208: l_api_name CONSTANT VARCHAR2(30) := 'lease_loan_termination';
3209: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'lease_loan_termination';
3210: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3211: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3212: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3213: BEGIN
3214: IF (is_debug_procedure_on) THEN
3207: l_api_version CONSTANT NUMBER := 1;
3208: l_api_name CONSTANT VARCHAR2(30) := 'lease_loan_termination';
3209: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'lease_loan_termination';
3210: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3211: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3212: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3213: BEGIN
3214: IF (is_debug_procedure_on) THEN
3215: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
3208: l_api_name CONSTANT VARCHAR2(30) := 'lease_loan_termination';
3209: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'lease_loan_termination';
3210: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3211: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3212: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3213: BEGIN
3214: IF (is_debug_procedure_on) THEN
3215: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
3216: END IF;
3211: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3212: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3213: BEGIN
3214: IF (is_debug_procedure_on) THEN
3215: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
3216: END IF;
3217:
3218: --Check API version, initialize message list and create savepoint.
3219: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3249: x_msg_data => x_msg_data,
3250: p_term_rec => p_term_tbl(i),
3251: p_tcnv_rec => p_tcnv_tbl(i));
3252: IF (is_debug_statement_on) THEN
3253: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called lease_loan_termination , return status: ' || l_return_status);
3254: END IF;
3255:
3256: -- rollback if terminating contract failed
3257: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3270:
3271: -- end the transaction
3272: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3273: IF (is_debug_procedure_on) THEN
3274: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
3275: END IF;
3276: EXCEPTION
3277: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3278: IF (is_debug_exception_on) THEN
3275: END IF;
3276: EXCEPTION
3277: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3278: IF (is_debug_exception_on) THEN
3279: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
3280: END IF;
3281:
3282: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3283: (
3289: '_PVT'
3290: );
3291: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3292: IF (is_debug_exception_on) THEN
3293: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
3294: END IF;
3295:
3296: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3297: (
3303: '_PVT'
3304: );
3305: WHEN OTHERS THEN
3306: IF (is_debug_exception_on) THEN
3307: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
3308: || sqlcode || ' , SQLERRM : ' || sqlerrm);
3309: END IF;
3310:
3311: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3345: l_accpt DATE;
3346:
3347: l_trn_date DATE;
3348: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_set_quote_dates';
3349: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3350: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3351: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3352:
3353: BEGIN
3346:
3347: l_trn_date DATE;
3348: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_set_quote_dates';
3349: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3350: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3351: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3352:
3353: BEGIN
3354: IF (is_debug_procedure_on) THEN
3347: l_trn_date DATE;
3348: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_set_quote_dates';
3349: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3350: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3351: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3352:
3353: BEGIN
3354: IF (is_debug_procedure_on) THEN
3355: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
3351: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3352:
3353: BEGIN
3354: IF (is_debug_procedure_on) THEN
3355: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
3356: END IF;
3357: IF (is_debug_statement_on) THEN
3358: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_qte_id: '|| p_qte_id);
3359: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trn_date: '|| p_trn_date);
3354: IF (is_debug_procedure_on) THEN
3355: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
3356: END IF;
3357: IF (is_debug_statement_on) THEN
3358: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_qte_id: '|| p_qte_id);
3359: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trn_date: '|| p_trn_date);
3360: END IF;
3361:
3362: x_return_status := OKL_API.g_ret_sts_success;
3355: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
3356: END IF;
3357: IF (is_debug_statement_on) THEN
3358: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_qte_id: '|| p_qte_id);
3359: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trn_date: '|| p_trn_date);
3360: END IF;
3361:
3362: x_return_status := OKL_API.g_ret_sts_success;
3363:
3388: END IF;
3389:
3390: END IF;
3391: IF (is_debug_procedure_on) THEN
3392: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
3393: END IF;
3394:
3395: EXCEPTION
3396:
3395: EXCEPTION
3396:
3397: WHEN OTHERS THEN
3398: IF (is_debug_exception_on) THEN
3399: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
3400: || sqlcode || ' , SQLERRM : ' || sqlerrm);
3401: END IF;
3402:
3403: x_return_status := OKL_API.g_ret_sts_error;
3451: l_date_accepted DATE;
3452: l_subsidy_end_date DATE;
3453: l_contract_end_date DATE;
3454: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_discount_subsidy';
3455: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3456: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3457: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3458: /* sosharma 12-jan-2007
3459: Build: R12
3452: l_subsidy_end_date DATE;
3453: l_contract_end_date DATE;
3454: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_discount_subsidy';
3455: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3456: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3457: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3458: /* sosharma 12-jan-2007
3459: Build: R12
3460: declared table of type okl_tpl_pvt.tplv_tbl_type to be passed as an input to the
3453: l_contract_end_date DATE;
3454: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_discount_subsidy';
3455: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3456: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3457: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3458: /* sosharma 12-jan-2007
3459: Build: R12
3460: declared table of type okl_tpl_pvt.tplv_tbl_type to be passed as an input to the
3461: OKL_CREATE_DISB_TRANS_PVT. create_disb_trx
3651: p_dbseqid IN OUT NOCOPY NUMBER
3652: ) RETURN NUMBER IS
3653: l_row_notfound BOOLEAN := TRUE;
3654: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_invoice_number';
3655: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3656: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3657: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3658: BEGIN
3659: IF (is_debug_procedure_on) THEN
3652: ) RETURN NUMBER IS
3653: l_row_notfound BOOLEAN := TRUE;
3654: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_invoice_number';
3655: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3656: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3657: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3658: BEGIN
3659: IF (is_debug_procedure_on) THEN
3660: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
3653: l_row_notfound BOOLEAN := TRUE;
3654: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_invoice_number';
3655: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3656: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3657: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3658: BEGIN
3659: IF (is_debug_procedure_on) THEN
3660: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
3661: END IF;
3656: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3657: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3658: BEGIN
3659: IF (is_debug_procedure_on) THEN
3660: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
3661: END IF;
3662: IF (is_debug_statement_on) THEN
3663: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_app_id: '|| p_app_id);
3664: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_cat_code: '|| p_cat_code);
3659: IF (is_debug_procedure_on) THEN
3660: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
3661: END IF;
3662: IF (is_debug_statement_on) THEN
3663: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_app_id: '|| p_app_id);
3664: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_cat_code: '|| p_cat_code);
3665: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_sob_id: '|| p_sob_id);
3666: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_met_code: '|| p_met_code);
3667: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trx_date: '|| p_trx_date);
3660: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
3661: END IF;
3662: IF (is_debug_statement_on) THEN
3663: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_app_id: '|| p_app_id);
3664: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_cat_code: '|| p_cat_code);
3665: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_sob_id: '|| p_sob_id);
3666: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_met_code: '|| p_met_code);
3667: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trx_date: '|| p_trx_date);
3668: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_dbseqnum: '|| p_dbseqnum);
3661: END IF;
3662: IF (is_debug_statement_on) THEN
3663: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_app_id: '|| p_app_id);
3664: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_cat_code: '|| p_cat_code);
3665: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_sob_id: '|| p_sob_id);
3666: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_met_code: '|| p_met_code);
3667: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trx_date: '|| p_trx_date);
3668: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_dbseqnum: '|| p_dbseqnum);
3669: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_dbseqid: '|| p_dbseqid);
3662: IF (is_debug_statement_on) THEN
3663: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_app_id: '|| p_app_id);
3664: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_cat_code: '|| p_cat_code);
3665: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_sob_id: '|| p_sob_id);
3666: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_met_code: '|| p_met_code);
3667: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trx_date: '|| p_trx_date);
3668: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_dbseqnum: '|| p_dbseqnum);
3669: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_dbseqid: '|| p_dbseqid);
3670: END IF;
3663: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_app_id: '|| p_app_id);
3664: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_cat_code: '|| p_cat_code);
3665: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_sob_id: '|| p_sob_id);
3666: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_met_code: '|| p_met_code);
3667: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trx_date: '|| p_trx_date);
3668: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_dbseqnum: '|| p_dbseqnum);
3669: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_dbseqid: '|| p_dbseqid);
3670: END IF;
3671: l_tapv_rec.Invoice_Number := fnd_seqnum.get_next_sequence
3664: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_cat_code: '|| p_cat_code);
3665: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_sob_id: '|| p_sob_id);
3666: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_met_code: '|| p_met_code);
3667: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trx_date: '|| p_trx_date);
3668: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_dbseqnum: '|| p_dbseqnum);
3669: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_dbseqid: '|| p_dbseqid);
3670: END IF;
3671: l_tapv_rec.Invoice_Number := fnd_seqnum.get_next_sequence
3672: (appid => p_app_id,
3665: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_sob_id: '|| p_sob_id);
3666: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_met_code: '|| p_met_code);
3667: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trx_date: '|| p_trx_date);
3668: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_dbseqnum: '|| p_dbseqnum);
3669: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_dbseqid: '|| p_dbseqid);
3670: END IF;
3671: l_tapv_rec.Invoice_Number := fnd_seqnum.get_next_sequence
3672: (appid => p_app_id,
3673: cat_code => p_cat_code,
3676: trx_date => p_trx_date,
3677: dbseqnm => p_dbseqnum,
3678: dbseqid => p_dbseqid);
3679: IF (is_debug_procedure_on) THEN
3680: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
3681: END IF;
3682: IF (is_debug_statement_on) THEN
3683: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Returning l_tapv_rec.Invoice_Number: '||l_tapv_rec.Invoice_Number);
3684: END IF;
3679: IF (is_debug_procedure_on) THEN
3680: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
3681: END IF;
3682: IF (is_debug_statement_on) THEN
3683: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Returning l_tapv_rec.Invoice_Number: '||l_tapv_rec.Invoice_Number);
3684: END IF;
3685: RETURN l_tapv_rec.Invoice_Number;
3686:
3687: EXCEPTION
3686:
3687: EXCEPTION
3688: WHEN OTHERS THEN
3689: IF (is_debug_exception_on) THEN
3690: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
3691: || sqlcode || ' , SQLERRM : ' || sqlerrm);
3692: END IF;
3693: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
3694: p_msg_name => 'OKL_UNEXPECTED_ERROR',
3698: p_token2_value => SQLERRM);
3699: END get_invoice_number;
3700: BEGIN
3701: IF (is_debug_procedure_on) THEN
3702: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
3703: END IF;
3704: IF (is_debug_statement_on) THEN
3705: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_call_origin: '|| p_call_origin);
3706: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_termination_date: '|| p_termination_date);
3701: IF (is_debug_procedure_on) THEN
3702: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
3703: END IF;
3704: IF (is_debug_statement_on) THEN
3705: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_call_origin: '|| p_call_origin);
3706: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_termination_date: '|| p_termination_date);
3707: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
3708: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
3709: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
3702: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
3703: END IF;
3704: IF (is_debug_statement_on) THEN
3705: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_call_origin: '|| p_call_origin);
3706: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_termination_date: '|| p_termination_date);
3707: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
3708: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
3709: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
3710: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
3703: END IF;
3704: IF (is_debug_statement_on) THEN
3705: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_call_origin: '|| p_call_origin);
3706: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_termination_date: '|| p_termination_date);
3707: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
3708: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
3709: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
3710: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
3711: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
3704: IF (is_debug_statement_on) THEN
3705: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_call_origin: '|| p_call_origin);
3706: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_termination_date: '|| p_termination_date);
3707: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
3708: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
3709: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
3710: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
3711: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
3712: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_control_flag: '|| p_term_rec.p_control_flag);
3705: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_call_origin: '|| p_call_origin);
3706: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_termination_date: '|| p_termination_date);
3707: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
3708: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
3709: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
3710: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
3711: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
3712: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_control_flag: '|| p_term_rec.p_control_flag);
3713: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_type: '|| p_term_rec.p_quote_type);
3706: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_termination_date: '|| p_termination_date);
3707: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
3708: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
3709: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
3710: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
3711: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
3712: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_control_flag: '|| p_term_rec.p_control_flag);
3713: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_type: '|| p_term_rec.p_quote_type);
3714: END IF;
3707: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
3708: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
3709: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
3710: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
3711: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
3712: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_control_flag: '|| p_term_rec.p_control_flag);
3713: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_type: '|| p_term_rec.p_quote_type);
3714: END IF;
3715: --Check API version, initialize message list and create savepoint.
3708: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
3709: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
3710: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
3711: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
3712: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_control_flag: '|| p_term_rec.p_control_flag);
3713: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_type: '|| p_term_rec.p_quote_type);
3714: END IF;
3715: --Check API version, initialize message list and create savepoint.
3716: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3709: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
3710: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
3711: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
3712: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_control_flag: '|| p_term_rec.p_control_flag);
3713: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_type: '|| p_term_rec.p_quote_type);
3714: END IF;
3715: --Check API version, initialize message list and create savepoint.
3716: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3717: G_PKG_NAME,
3757: -- Determine call origin
3758: IF p_call_origin = 'PARTIAL' THEN -- [1]
3759:
3760: IF (is_debug_statement_on) THEN
3761: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_CNTRCT_LN_TRMNT_PVT.get_lines');
3762: END IF;
3763: -- get line details from OKL_AM_CNTRCT_LN_TRMNT
3764: OKL_AM_CNTRCT_LN_TRMNT_PVT.get_lines(
3765: p_term_rec => p_term_rec,
3765: p_term_rec => p_term_rec,
3766: x_klev_tbl => l_asset_tbl_l,
3767: x_return_status => l_return_status);
3768: IF (is_debug_statement_on) THEN
3769: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_CNTRCT_LN_TRMNT_PVT.get_lines , return status: ' || l_return_status);
3770: END IF;
3771:
3772: IF l_asset_tbl_l.count > 0 THEN --[2]
3773: -- populate local table
3781:
3782: ELSE -- Full Termination
3783:
3784: IF (is_debug_statement_on) THEN
3785: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_LEASE_TRMNT_PVT.get_contract_lines');
3786: END IF;
3787: -- get line details from OKL_AM_LEASE_TRMNT_PVT
3788: OKL_AM_LEASE_TRMNT_PVT.get_contract_lines(
3789: p_api_version => p_api_version,
3793: x_msg_data => l_msg_data,
3794: p_term_rec => p_term_rec,
3795: x_klev_tbl => l_asset_tbl);
3796: IF (is_debug_statement_on) THEN
3797: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_LEASE_TRMNT_PVT.get_contract_lines , return status: ' || l_return_status);
3798: END IF;
3799:
3800: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3801: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3810: FETCH khr_dtls_csr INTO l_scs_code;
3811: CLOSE khr_dtls_csr;
3812:
3813: IF (is_debug_statement_on) THEN
3814: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_SECURITIZATION_PVT.check_khr_ia_associated');
3815: END IF;
3816: -- rmunjulu 4622198 SPECIAL_ACCNT Get special accounting details
3817: OKL_SECURITIZATION_PVT.check_khr_ia_associated(
3818: p_api_version => l_api_version
3826: ,x_fact_synd_code => l_fact_synd_code
3827: ,x_inv_acct_code => l_inv_acct_code
3828: );
3829: IF (is_debug_statement_on) THEN
3830: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_SECURITIZATION_PVT.check_khr_ia_associated , return status: ' || l_return_status);
3831: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_fact_synd_code : ' || l_fact_synd_code);
3832: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_inv_acct_code : ' || l_inv_acct_code);
3833: END IF;
3834:
3827: ,x_inv_acct_code => l_inv_acct_code
3828: );
3829: IF (is_debug_statement_on) THEN
3830: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_SECURITIZATION_PVT.check_khr_ia_associated , return status: ' || l_return_status);
3831: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_fact_synd_code : ' || l_fact_synd_code);
3832: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_inv_acct_code : ' || l_inv_acct_code);
3833: END IF;
3834:
3835: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3828: );
3829: IF (is_debug_statement_on) THEN
3830: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_SECURITIZATION_PVT.check_khr_ia_associated , return status: ' || l_return_status);
3831: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_fact_synd_code : ' || l_fact_synd_code);
3832: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_inv_acct_code : ' || l_inv_acct_code);
3833: END IF;
3834:
3835: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3836: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3851: --for TER_RELEASE_WO_PURCHASE
3852: IF p_term_rec.p_quote_type = 'TER_RELEASE_WO_PURCHASE'
3853: THEN
3854: IF (is_debug_statement_on) THEN
3855: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_SUBSIDY_PROCESS_PVT.GET_RELK_TERMN_BASIS');
3856: END IF;
3857: OKL_SUBSIDY_PROCESS_PVT.GET_RELK_TERMN_BASIS(
3858: p_api_version => p_api_version,
3859: p_init_msg_list => OKL_API.G_FALSE,
3863: p_chr_id => p_term_rec.p_contract_id,
3864: p_subsidy_id => l_sub_rec.subsidy_line_id,
3865: x_release_basis => l_release_basis);
3866: IF (is_debug_statement_on) THEN
3867: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_SUBSIDY_PROCESS_PVT.GET_RELK_TERMN_BASIS , return status: ' || l_return_status);
3868: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_release_basis : ' || l_release_basis);
3869: END IF;
3870:
3871: IF l_sub_rec.accounting_method_code = 'AMORTIZE'
3864: p_subsidy_id => l_sub_rec.subsidy_line_id,
3865: x_release_basis => l_release_basis);
3866: IF (is_debug_statement_on) THEN
3867: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_SUBSIDY_PROCESS_PVT.GET_RELK_TERMN_BASIS , return status: ' || l_return_status);
3868: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_release_basis : ' || l_release_basis);
3869: END IF;
3870:
3871: IF l_sub_rec.accounting_method_code = 'AMORTIZE'
3872: THEN
3873: IF l_release_basis = 'ACCELERATE'
3874: THEN
3875:
3876: IF (is_debug_statement_on) THEN
3877: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_STREAMS_UTIL.get_dependent_stream_type');
3878: END IF;
3879: -- SECHAWLA 29-DEC-05 4911502 : moved from above : begin
3880: -- rmunjulu 4399352 Added the following for bug 4399352 - start
3881: OKL_STREAMS_UTIL.get_dependent_stream_type(
3884: p_dependent_sty_purpose => 'SUBSIDY_INCOME',
3885: x_return_status => l_return_status,
3886: x_dependent_sty_id => l_accrual_sty_id);
3887: IF (is_debug_statement_on) THEN
3888: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_STREAMS_UTIL.get_dependent_stream_type , return status : ' || l_return_status);
3889: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_accrual_sty_id : ' || l_accrual_sty_id);
3890: END IF;
3891:
3892: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3885: x_return_status => l_return_status,
3886: x_dependent_sty_id => l_accrual_sty_id);
3887: IF (is_debug_statement_on) THEN
3888: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_STREAMS_UTIL.get_dependent_stream_type , return status : ' || l_return_status);
3889: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_accrual_sty_id : ' || l_accrual_sty_id);
3890: END IF;
3891:
3892: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3893: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3972: --Accelerate Income Recognization
3973: -- akrangan for bug 5669097 start
3974: IF v_flag ='N' THEN
3975: IF (is_debug_statement_on) THEN
3976: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals');
3977: END IF;
3978: -- akrangan for bug 5669097 End
3979: OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals (
3980: p_api_version => p_api_version,
3984: x_msg_data => l_msg_data,
3985: p_acceleration_rec => l_acceleration_rec,
3986: x_trx_number => l_trx_number);
3987: IF (is_debug_statement_on) THEN
3988: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals , return status : ' || l_return_status);
3989: END IF;
3990:
3991: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3992: OKL_API.set_message(
4012: p_dependent_sty_purpose => 'SUBSIDY_INCOME',
4013: x_return_status => l_return_status,
4014: x_dependent_sty_id => l_accrual_sty_id_rep);
4015: IF (is_debug_statement_on) THEN
4016: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_STREAMS_UTIL.get_dependent_stream_type , return status : ' || l_return_status);
4017: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_accrual_sty_id_rep : ' || l_accrual_sty_id_rep);
4018: END IF;
4019:
4020: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
4013: x_return_status => l_return_status,
4014: x_dependent_sty_id => l_accrual_sty_id_rep);
4015: IF (is_debug_statement_on) THEN
4016: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_STREAMS_UTIL.get_dependent_stream_type , return status : ' || l_return_status);
4017: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_accrual_sty_id_rep : ' || l_accrual_sty_id_rep);
4018: END IF;
4019:
4020: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
4021: l_acceleration_rec.sty_id := l_accrual_sty_id_rep;
4031: p_representation_type => 'SECONDARY',
4032: x_trx_number => l_trx_number);
4033:
4034: IF (is_debug_statement_on) THEN
4035: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals , return status : ' || l_return_status);
4036: END IF;
4037:
4038: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4039: OKL_API.set_message(
4121: l_tapv_rec.TRY_ID := l_trx_type_ID;
4122: l_tapv_rec.AMOUNT := lx_subsidy_amount;
4123: l_tapv_rec.invoice_type := 'STANDARD';
4124: IF (is_debug_statement_on) THEN
4125: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Getting invoice number');
4126: END IF;
4127: l_tapv_rec.Invoice_number := get_invoice_number(
4128: p_app_id => l_app_id,
4129: p_cat_code =>l_document_category,
4183: Build:R12
4184: Added the call to disbursement procedure ,which is having the consolidated functionality of creating AP lines,header and AP accounting
4185: */
4186: IF (is_debug_statement_on) THEN
4187: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_CREATE_DISB_TRANS_PVT.create_disb_trx');
4188: END IF;
4189: OKL_CREATE_DISB_TRANS_PVT.create_disb_trx(p_api_version => l_api_version
4190: ,p_init_msg_list => OKL_API.G_FALSE
4191: ,x_return_status => l_return_status
4196: ,x_tapv_rec => x_tapv_rec
4197: ,x_tplv_tbl => x_tplv_tbl
4198: );
4199: IF (is_debug_statement_on) THEN
4200: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_CREATE_DISB_TRANS_PVT.create_disb_trx , return status : ' || l_return_status);
4201: END IF;
4202: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4203: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4204: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4229:
4230: ELSIF l_sub_rec.accounting_method_code = 'AMORTIZE'THEN
4231:
4232: IF (is_debug_statement_on) THEN
4233: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_STREAMS_UTIL.get_dependent_stream_type');
4234: END IF;
4235: -- SECHAWLA 29-DEC-05 4911502 : added begin
4236: OKL_STREAMS_UTIL.get_dependent_stream_type(
4237: p_khr_id => p_term_rec.p_contract_id,
4239: p_dependent_sty_purpose => 'SUBSIDY_INCOME', -- ***** confirm
4240: x_return_status => l_return_status,
4241: x_dependent_sty_id => l_accrual_sty_id);
4242: IF (is_debug_statement_on) THEN
4243: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_STREAMS_UTIL.get_dependent_stream_type , return status : ' || l_return_status);
4244: END IF;
4245:
4246: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4247: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4342: IF v_flag ='N' THEN
4343: -- akrangan for bug 5669097 End
4344: -- accelerate income recognition
4345: IF (is_debug_statement_on) THEN
4346: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals');
4347: END IF;
4348: OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals (
4349: p_api_version => p_api_version,
4350: p_init_msg_list => OKL_API.G_FALSE,
4353: x_msg_data => l_msg_data,
4354: p_acceleration_rec => l_acceleration_rec,
4355: x_trx_number => l_trx_number);
4356: IF (is_debug_statement_on) THEN
4357: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals , return status : ' || l_return_status);
4358: END IF;
4359:
4360: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4361:
4383: p_dependent_sty_purpose => 'SUBSIDY_INCOME',
4384: x_return_status => l_return_status,
4385: x_dependent_sty_id => l_accrual_sty_id_rep);
4386: IF (is_debug_statement_on) THEN
4387: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_STREAMS_UTIL.get_dependent_stream_type , return status : ' || l_return_status);
4388: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_accrual_sty_id_rep : ' || l_accrual_sty_id_rep);
4389: END IF;
4390:
4391: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
4384: x_return_status => l_return_status,
4385: x_dependent_sty_id => l_accrual_sty_id_rep);
4386: IF (is_debug_statement_on) THEN
4387: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_STREAMS_UTIL.get_dependent_stream_type , return status : ' || l_return_status);
4388: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_accrual_sty_id_rep : ' || l_accrual_sty_id_rep);
4389: END IF;
4390:
4391: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
4392: l_acceleration_rec.sty_id := l_accrual_sty_id_rep;
4402: p_representation_type => 'SECONDARY',
4403: x_trx_number => l_trx_number);
4404:
4405: IF (is_debug_statement_on) THEN
4406: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals , return status : ' || l_return_status);
4407: END IF;
4408:
4409: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4410: OKL_API.set_message(
4444: -- adagur for bug 5669097 start
4445: IF v_flag ='N' THEN
4446: -- adagur for bug 5669097 End
4447: IF (is_debug_statement_on) THEN
4448: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_GENERATE_ACCRUALS_PVT.ACCELERATE_ACCRUALS');
4449: END IF;
4450: -- accelerate income recognition
4451: OKL_GENERATE_ACCRUALS_PVT.ACCELERATE_ACCRUALS(
4452: p_api_version => p_api_version,
4456: x_msg_data => l_msg_data,
4457: p_acceleration_rec => l_acceleration_rec,
4458: x_trx_number => l_trx_number);
4459: IF (is_debug_statement_on) THEN
4460: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.ACCELERATE_ACCRUALS , return status : ' || l_return_status);
4461: END IF;
4462:
4463: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4464:
4486: p_dependent_sty_purpose => 'SUBSIDY_INCOME',
4487: x_return_status => l_return_status,
4488: x_dependent_sty_id => l_accrual_sty_id_rep);
4489: IF (is_debug_statement_on) THEN
4490: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_STREAMS_UTIL.get_dependent_stream_type , return status : ' || l_return_status);
4491: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_accrual_sty_id_rep : ' || l_accrual_sty_id_rep);
4492: END IF;
4493:
4494: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
4487: x_return_status => l_return_status,
4488: x_dependent_sty_id => l_accrual_sty_id_rep);
4489: IF (is_debug_statement_on) THEN
4490: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_STREAMS_UTIL.get_dependent_stream_type , return status : ' || l_return_status);
4491: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_accrual_sty_id_rep : ' || l_accrual_sty_id_rep);
4492: END IF;
4493:
4494: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
4495: l_acceleration_rec.sty_id := l_accrual_sty_id_rep;
4505: p_representation_type => 'SECONDARY',
4506: x_trx_number => l_trx_number);
4507:
4508: IF (is_debug_statement_on) THEN
4509: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals , return status : ' || l_return_status);
4510: END IF;
4511:
4512: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4513: OKL_API.set_message(
4540: IF l_sub_rec.receipt_method_code = 'BILL'
4541: OR l_sub_rec.receipt_method_code = 'FUND' THEN --A/P invoice --[13]
4542:
4543: IF (is_debug_statement_on) THEN
4544: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_EXECUTE_FORMULA_PUB.execute');
4545: END IF;
4546: -- get subsidy amount
4547: OKL_EXECUTE_FORMULA_PUB.execute(
4548: p_api_version => p_api_version,
4555: p_line_id => l_asset_tbl(i).p_kle_id,
4556: p_additional_parameters => okl_execute_formula_pub.G_ADDITIONAL_PARAMETERS_NULL,
4557: x_value =>lx_subsidy_amount);
4558: IF (is_debug_statement_on) THEN
4559: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_EXECUTE_FORMULA_PUB.execute , return status : ' || l_return_status);
4560: END IF;
4561:
4562: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4563: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4631: --** SMODUGA Added for invoice generation
4632: l_tapv_rec.invoice_type := 'STANDARD';
4633: --** END SMODUGA Added for invoice generation
4634: IF (is_debug_statement_on) THEN
4635: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Getting invoice number');
4636: END IF;
4637:
4638: l_tapv_rec.Invoice_number := get_invoice_number(
4639: p_app_id => l_app_id,
4693: Added the call to disbursement procedure ,which is having the consolidated functionality of creating AP lines,header and AP accounting
4694: */
4695: l_tplv_tbl(0):=l_tplv_rec;
4696: IF (is_debug_statement_on) THEN
4697: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_CREATE_DISB_TRANS_PVT.create_disb_trx');
4698: END IF;
4699: OKL_CREATE_DISB_TRANS_PVT.create_disb_trx(p_api_version => l_api_version
4700: ,p_init_msg_list => OKL_API.G_FALSE
4701: ,x_return_status => l_return_status
4706: ,x_tapv_rec => x_tapv_rec
4707: ,x_tplv_tbl => x_tplv_tbl
4708: );
4709: IF (is_debug_statement_on) THEN
4710: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_CREATE_DISB_TRANS_PVT.create_disb_trx , return status : ' || l_return_status);
4711: END IF;
4712: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4713: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4714: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4730:
4731: -- end the transaction
4732: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4733: IF (is_debug_procedure_on) THEN
4734: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
4735: END IF;
4736: EXCEPTION
4737: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4738: IF (is_debug_exception_on) THEN
4735: END IF;
4736: EXCEPTION
4737: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4738: IF (is_debug_exception_on) THEN
4739: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
4740: END IF;
4741:
4742: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4743: (
4749: '_PVT'
4750: );
4751: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4752: IF (is_debug_exception_on) THEN
4753: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
4754: END IF;
4755:
4756: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4757: (
4763: '_PVT'
4764: );
4765: WHEN OTHERS THEN
4766: IF (is_debug_exception_on) THEN
4767: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
4768: || sqlcode || ' , SQLERRM : ' || sqlerrm);
4769: END IF;
4770:
4771: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4807: p_call_origin IN VARCHAR2 DEFAULT NULL,
4808: p_termination_date IN DATE) IS
4809:
4810: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_adjustments';
4811: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4812: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4813: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4814: l_api_name CONSTANT VARCHAR2(30) := 'process_adjustments';
4815: l_api_version CONSTANT NUMBER := 1;
4808: p_termination_date IN DATE) IS
4809:
4810: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_adjustments';
4811: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4812: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4813: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4814: l_api_name CONSTANT VARCHAR2(30) := 'process_adjustments';
4815: l_api_version CONSTANT NUMBER := 1;
4816: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS; -- rmunjulu TNA Defaulted
4809:
4810: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_adjustments';
4811: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4812: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4813: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4814: l_api_name CONSTANT VARCHAR2(30) := 'process_adjustments';
4815: l_api_version CONSTANT NUMBER := 1;
4816: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS; -- rmunjulu TNA Defaulted
4817: l_msg_count NUMBER;
4927: --Bug# 10091594
4928:
4929: BEGIN
4930: IF (is_debug_procedure_on) THEN
4931: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
4932: END IF;
4933: IF (is_debug_statement_on) THEN
4934: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_call_origin: '|| p_call_origin);
4935: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_termination_date: '|| p_termination_date);
4930: IF (is_debug_procedure_on) THEN
4931: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
4932: END IF;
4933: IF (is_debug_statement_on) THEN
4934: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_call_origin: '|| p_call_origin);
4935: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_termination_date: '|| p_termination_date);
4936: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
4937: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
4938: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
4931: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
4932: END IF;
4933: IF (is_debug_statement_on) THEN
4934: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_call_origin: '|| p_call_origin);
4935: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_termination_date: '|| p_termination_date);
4936: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
4937: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
4938: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
4939: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
4932: END IF;
4933: IF (is_debug_statement_on) THEN
4934: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_call_origin: '|| p_call_origin);
4935: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_termination_date: '|| p_termination_date);
4936: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
4937: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
4938: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
4939: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
4940: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
4933: IF (is_debug_statement_on) THEN
4934: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_call_origin: '|| p_call_origin);
4935: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_termination_date: '|| p_termination_date);
4936: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
4937: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
4938: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
4939: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
4940: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
4941: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_control_flag: '|| p_term_rec.p_control_flag);
4934: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_call_origin: '|| p_call_origin);
4935: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_termination_date: '|| p_termination_date);
4936: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
4937: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
4938: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
4939: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
4940: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
4941: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_control_flag: '|| p_term_rec.p_control_flag);
4942: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_type: '|| p_term_rec.p_quote_type);
4935: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_termination_date: '|| p_termination_date);
4936: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
4937: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
4938: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
4939: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
4940: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
4941: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_control_flag: '|| p_term_rec.p_control_flag);
4942: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_type: '|| p_term_rec.p_quote_type);
4943: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.id: '||p_tcnv_rec.id);
4936: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
4937: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
4938: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
4939: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
4940: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
4941: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_control_flag: '|| p_term_rec.p_control_flag);
4942: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_type: '|| p_term_rec.p_quote_type);
4943: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.id: '||p_tcnv_rec.id);
4944: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.tmt_recycle_yn: '||p_tcnv_rec.tmt_recycle_yn);
4937: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
4938: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
4939: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
4940: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
4941: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_control_flag: '|| p_term_rec.p_control_flag);
4942: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_type: '|| p_term_rec.p_quote_type);
4943: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.id: '||p_tcnv_rec.id);
4944: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.tmt_recycle_yn: '||p_tcnv_rec.tmt_recycle_yn);
4945: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.qte_id: '||p_tcnv_rec.qte_id);
4938: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
4939: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
4940: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
4941: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_control_flag: '|| p_term_rec.p_control_flag);
4942: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_type: '|| p_term_rec.p_quote_type);
4943: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.id: '||p_tcnv_rec.id);
4944: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.tmt_recycle_yn: '||p_tcnv_rec.tmt_recycle_yn);
4945: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.qte_id: '||p_tcnv_rec.qte_id);
4946: END IF;
4939: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
4940: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
4941: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_control_flag: '|| p_term_rec.p_control_flag);
4942: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_type: '|| p_term_rec.p_quote_type);
4943: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.id: '||p_tcnv_rec.id);
4944: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.tmt_recycle_yn: '||p_tcnv_rec.tmt_recycle_yn);
4945: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.qte_id: '||p_tcnv_rec.qte_id);
4946: END IF;
4947:
4940: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
4941: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_control_flag: '|| p_term_rec.p_control_flag);
4942: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_type: '|| p_term_rec.p_quote_type);
4943: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.id: '||p_tcnv_rec.id);
4944: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.tmt_recycle_yn: '||p_tcnv_rec.tmt_recycle_yn);
4945: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.qte_id: '||p_tcnv_rec.qte_id);
4946: END IF;
4947:
4948: l_msg_count := x_msg_count;
4941: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_control_flag: '|| p_term_rec.p_control_flag);
4942: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_type: '|| p_term_rec.p_quote_type);
4943: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.id: '||p_tcnv_rec.id);
4944: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.tmt_recycle_yn: '||p_tcnv_rec.tmt_recycle_yn);
4945: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.qte_id: '||p_tcnv_rec.qte_id);
4946: END IF;
4947:
4948: l_msg_count := x_msg_count;
4949: l_msg_data := x_msg_data;
4981: IF p_term_rec.p_quote_type = 'TER_RELEASE_WO_PURCHASE'
4982: AND p_call_origin = 'FULL'
4983: THEN
4984: IF (is_debug_statement_on) THEN
4985: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_LEASE_TRMNT_PVT.get_contract_lines');
4986: END IF;
4987: -- get line details from OKL_AM_LEASE_TRMNT_PVT
4988: OKL_AM_LEASE_TRMNT_PVT.get_contract_lines(
4989: p_api_version => p_api_version,
4993: x_msg_data => l_msg_data,
4994: p_term_rec => p_term_rec,
4995: x_klev_tbl => lx_asset_tbl);
4996: IF (is_debug_statement_on) THEN
4997: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_LEASE_TRMNT_PVT.get_contract_lines , return status : ' || l_return_status);
4998: END IF;
4999:
5000: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
5001: THEN
5014: l_quote_eff_date := p_termination_date;
5015: END IF;
5016:
5017: IF (is_debug_statement_on) THEN
5018: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling okl_am_util_pvt.get_transaction_id');
5019: END IF;
5020: okl_am_util_pvt.get_transaction_id (
5021: p_try_name => 'CREDIT MEMO',
5022: x_return_status => l_return_status,
5021: p_try_name => 'CREDIT MEMO',
5022: x_return_status => l_return_status,
5023: x_try_id => l_cm_try_id);
5024: IF (is_debug_statement_on) THEN
5025: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.get_transaction_id , return status : ' || l_return_status);
5026: END IF;
5027:
5028: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
5029: OR NVL (l_cm_try_id, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM
5092:
5093: l_tilv_tbl(0) := l_tilv_rec; -- Assign the line record in tilv_tbl structure
5094:
5095: IF (is_debug_statement_on) THEN
5096: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling okl_internal_billing_pvt.create_billing_trx');
5097: END IF;
5098: okl_internal_billing_pvt.create_billing_trx(p_api_version => l_api_version,
5099: p_init_msg_list => p_init_msg_list,
5100: x_return_status => x_return_status,
5106: x_taiv_rec => lx_taiv_rec,
5107: x_tilv_tbl => lx_tilv_tbl,
5108: x_tldv_tbl => lx_tldv_tbl);
5109: IF (is_debug_statement_on) THEN
5110: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_internal_billing_pvt.create_billing_trx , return status : ' || x_return_status);
5111: END IF;
5112:
5113: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5114: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5217: END IF;
5218:
5219: -- rmunjulu TNA Get the accrual adjustment streams and amounts for FEE and SERVICE lines
5220: IF (is_debug_statement_on) THEN
5221: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_ACCRUAL_SEC_PVT.Get_Accrual_Adjustment');
5222: END IF;
5223:
5224: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS; -- MGAAP 7263041
5225: OKL_ACCRUAL_SEC_PVT.Get_Accrual_Adjustment(
5232: p_line_id_tbl => l_line_id_tbl,
5233: p_adjustment_date => l_accrual_adjst_date, -- rmunjulu 4769094
5234: x_accrual_adjustment_tbl => lx_accrual_adjustment_tbl);
5235: IF (is_debug_statement_on) THEN
5236: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_ACCRUAL_SEC_PVT.Get_Accrual_Adjustment , return status : ' || l_return_status);
5237: END IF;
5238:
5239: -- rmunjulu TNA Handle return status
5240: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5290:
5291: -- rmunjulu TNA Create the accounting transactions for the accrual adjustments
5292: -- rmunjulu TNA Additional Changes -- Changed the procedure name
5293: IF (is_debug_statement_on) THEN
5294: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_GENERATE_ACCRUALS_PVT.adjust_accruals');
5295: END IF;
5296: OKL_GENERATE_ACCRUALS_PVT.adjust_accruals(
5297: p_api_version => p_api_version,
5298: p_init_msg_list => OKL_API.G_FALSE,
5303: x_trx_tbl => l_trxnum_tbl, -- bug 9191475
5304: p_accrual_rec => l_accrual_rec,
5305: p_stream_tbl => l_stream_tbl);
5306: IF (is_debug_statement_on) THEN
5307: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.adjust_accruals , return status : ' || l_return_status);
5308: END IF;
5309:
5310: -- rmunjulu TNA Handle return status
5311: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5320: -- MGAAP start 7263041
5321: --Bug# 10091594: Added check for Automated Accounting
5322: IF (l_multi_gaap_yn = 'Y') AND (NVL(l_sec_rep_method,'XXX') = 'AUTOMATED') THEN
5323: IF (is_debug_statement_on) THEN
5324: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_ACCRUAL_SEC_PVT.Get_Accrual_Adjustment for SECONDARY');
5325: END IF;
5326:
5327: OKL_STREAMS_SEC_PVT.SET_REPO_STREAMS; -- MGAAP 7263041
5328:
5340:
5341: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS; -- MGAAP 7263041
5342:
5343: IF (is_debug_statement_on) THEN
5344: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_ACCRUAL_SEC_PVT.Get_Accrual_Adjustment , return status : ' || l_return_status);
5345: END IF;
5346:
5347: -- rmunjulu TNA Handle return status
5348: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5373:
5374: -- rmunjulu TNA Create the accounting transactions for the accrual adjustments
5375: -- rmunjulu TNA Additional Changes -- Changed the procedure name
5376: IF (is_debug_statement_on) THEN
5377: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_GENERATE_ACCRUALS_PVT.adjust_accruals');
5378: END IF;
5379: OKL_GENERATE_ACCRUALS_PVT.adjust_accruals(
5380: p_api_version => p_api_version,
5381: p_init_msg_list => OKL_API.G_FALSE,
5387: p_accrual_rec => l_accrual_rec,
5388: p_stream_tbl => l_stream_tbl,
5389: p_representation_type => 'SECONDARY'); -- MGAAP 7263041
5390: IF (is_debug_statement_on) THEN
5391: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.adjust_accruals , return status : ' || l_return_status);
5392: END IF;
5393:
5394: -- rmunjulu TNA Handle return status
5395: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5411:
5412: -- end the transaction
5413: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
5414: IF (is_debug_procedure_on) THEN
5415: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
5416: END IF;
5417: EXCEPTION
5418: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5419: IF (is_debug_exception_on) THEN
5416: END IF;
5417: EXCEPTION
5418: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5419: IF (is_debug_exception_on) THEN
5420: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
5421: END IF;
5422: -- rmunjulu TNA Close cursors in exception block
5423: IF l_qte_dtls_csr%ISOPEN THEN
5424: CLOSE l_qte_dtls_csr;
5436: '_PVT'
5437: );
5438: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5439: IF (is_debug_exception_on) THEN
5440: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
5441: END IF;
5442: -- rmunjulu TNA Close cursors in exception block
5443: IF l_qte_dtls_csr%ISOPEN THEN
5444: CLOSE l_qte_dtls_csr;
5456: '_PVT'
5457: );
5458: WHEN OTHERS THEN
5459: IF (is_debug_exception_on) THEN
5460: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
5461: || sqlcode || ' , SQLERRM : ' || sqlerrm);
5462: END IF;
5463: -- rmunjulu TNA Close cursors in exception block
5464: IF l_qte_dtls_csr%ISOPEN THEN
5497: p_call_origin IN VARCHAR2 DEFAULT NULL,
5498: p_termination_date IN DATE) IS
5499:
5500: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_loan_refunds';
5501: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5502: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5503: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5504: l_api_name CONSTANT VARCHAR2(30) := 'process_loan_refunds';
5505: l_api_version CONSTANT NUMBER := 1;
5498: p_termination_date IN DATE) IS
5499:
5500: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_loan_refunds';
5501: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5502: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5503: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5504: l_api_name CONSTANT VARCHAR2(30) := 'process_loan_refunds';
5505: l_api_version CONSTANT NUMBER := 1;
5506: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5499:
5500: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_loan_refunds';
5501: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5502: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5503: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5504: l_api_name CONSTANT VARCHAR2(30) := 'process_loan_refunds';
5505: l_api_version CONSTANT NUMBER := 1;
5506: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5507: l_msg_count NUMBER;
5540: -- ansethur 23-FEB-07 R12B Added for Billing Enhancement Project End Changes
5541:
5542: BEGIN
5543: IF (is_debug_procedure_on) THEN
5544: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
5545: END IF;
5546: IF (is_debug_statement_on) THEN
5547: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_call_origin: '|| p_call_origin);
5548: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_termination_date: '|| p_termination_date);
5543: IF (is_debug_procedure_on) THEN
5544: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
5545: END IF;
5546: IF (is_debug_statement_on) THEN
5547: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_call_origin: '|| p_call_origin);
5548: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_termination_date: '|| p_termination_date);
5549: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
5550: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
5551: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
5544: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
5545: END IF;
5546: IF (is_debug_statement_on) THEN
5547: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_call_origin: '|| p_call_origin);
5548: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_termination_date: '|| p_termination_date);
5549: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
5550: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
5551: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
5552: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
5545: END IF;
5546: IF (is_debug_statement_on) THEN
5547: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_call_origin: '|| p_call_origin);
5548: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_termination_date: '|| p_termination_date);
5549: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
5550: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
5551: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
5552: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
5553: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
5546: IF (is_debug_statement_on) THEN
5547: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_call_origin: '|| p_call_origin);
5548: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_termination_date: '|| p_termination_date);
5549: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
5550: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
5551: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
5552: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
5553: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
5554: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_control_flag: '|| p_term_rec.p_control_flag);
5547: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_call_origin: '|| p_call_origin);
5548: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_termination_date: '|| p_termination_date);
5549: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
5550: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
5551: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
5552: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
5553: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
5554: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_control_flag: '|| p_term_rec.p_control_flag);
5555: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_type: '|| p_term_rec.p_quote_type);
5548: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_termination_date: '|| p_termination_date);
5549: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
5550: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
5551: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
5552: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
5553: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
5554: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_control_flag: '|| p_term_rec.p_control_flag);
5555: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_type: '|| p_term_rec.p_quote_type);
5556: END IF;
5549: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_id: '|| p_term_rec.p_contract_id);
5550: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
5551: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
5552: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
5553: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
5554: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_control_flag: '|| p_term_rec.p_control_flag);
5555: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_type: '|| p_term_rec.p_quote_type);
5556: END IF;
5557:
5550: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
5551: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
5552: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
5553: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
5554: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_control_flag: '|| p_term_rec.p_control_flag);
5555: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_type: '|| p_term_rec.p_quote_type);
5556: END IF;
5557:
5558: l_msg_count := x_msg_count;
5551: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
5552: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
5553: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
5554: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_control_flag: '|| p_term_rec.p_control_flag);
5555: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_type: '|| p_term_rec.p_quote_type);
5556: END IF;
5557:
5558: l_msg_count := x_msg_count;
5559: l_msg_data := x_msg_data;
5587: END IF;
5588:
5589: -- get excess loan payment amount
5590: IF (is_debug_statement_on) THEN
5591: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_UTIL_PVT.get_excess_loan_payment');
5592: END IF;
5593: l_loan_refund_amount := OKL_AM_UTIL_PVT.get_excess_loan_payment(
5594: x_return_status => l_return_status,
5595: p_khr_id => p_term_rec.p_contract_id);
5593: l_loan_refund_amount := OKL_AM_UTIL_PVT.get_excess_loan_payment(
5594: x_return_status => l_return_status,
5595: p_khr_id => p_term_rec.p_contract_id);
5596: IF (is_debug_statement_on) THEN
5597: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.get_excess_loan_payment , return status : ' || l_return_status);
5598: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_loan_refund_amount : ' || l_loan_refund_amount);
5599: END IF;
5600:
5601: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5594: x_return_status => l_return_status,
5595: p_khr_id => p_term_rec.p_contract_id);
5596: IF (is_debug_statement_on) THEN
5597: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.get_excess_loan_payment , return status : ' || l_return_status);
5598: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_loan_refund_amount : ' || l_loan_refund_amount);
5599: END IF;
5600:
5601: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5602: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5608:
5609: IF l_loan_refund_amount <> 0 THEN
5610:
5611: IF (is_debug_statement_on) THEN
5612: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_UTIL_PVT.get_transaction_id');
5613: END IF;
5614: OKL_AM_UTIL_PVT.get_transaction_id (
5615: p_try_name => 'CREDIT MEMO',
5616: x_return_status => l_return_status,
5615: p_try_name => 'CREDIT MEMO',
5616: x_return_status => l_return_status,
5617: x_try_id => l_cm_try_id);
5618: IF (is_debug_statement_on) THEN
5619: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.get_transaction_id , return status : ' || l_return_status);
5620: END IF;
5621:
5622: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
5623: OR NVL (l_cm_try_id, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM
5634:
5635: l_functional_currency_code := OKL_AM_UTIL_PVT.get_functional_currency();
5636:
5637: IF (is_debug_statement_on) THEN
5638: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_ACCOUNTING_UTIL.convert_to_functional_currency');
5639: END IF;
5640: -- Get the currency conversion details from ACCOUNTING_Util
5641: OKL_ACCOUNTING_UTIL.convert_to_functional_currency(
5642: p_khr_id => p_term_rec.p_contract_id,
5649: x_currency_conversion_rate => l_currency_conversion_rate,
5650: x_currency_conversion_date => l_currency_conversion_date,
5651: x_converted_amount => l_converted_amount);
5652: IF (is_debug_statement_on) THEN
5653: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_ACCOUNTING_UTIL.convert_to_functional_currency , return status : ' || l_return_status);
5654: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_contract_currency_code : ' || l_contract_currency_code);
5655: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_currency_conversion_type : ' || l_currency_conversion_type);
5656: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_currency_conversion_rate : ' || l_currency_conversion_rate);
5657: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_currency_conversion_date : ' || l_currency_conversion_date);
5650: x_currency_conversion_date => l_currency_conversion_date,
5651: x_converted_amount => l_converted_amount);
5652: IF (is_debug_statement_on) THEN
5653: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_ACCOUNTING_UTIL.convert_to_functional_currency , return status : ' || l_return_status);
5654: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_contract_currency_code : ' || l_contract_currency_code);
5655: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_currency_conversion_type : ' || l_currency_conversion_type);
5656: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_currency_conversion_rate : ' || l_currency_conversion_rate);
5657: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_currency_conversion_date : ' || l_currency_conversion_date);
5658: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_converted_amount : ' || l_converted_amount);
5651: x_converted_amount => l_converted_amount);
5652: IF (is_debug_statement_on) THEN
5653: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_ACCOUNTING_UTIL.convert_to_functional_currency , return status : ' || l_return_status);
5654: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_contract_currency_code : ' || l_contract_currency_code);
5655: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_currency_conversion_type : ' || l_currency_conversion_type);
5656: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_currency_conversion_rate : ' || l_currency_conversion_rate);
5657: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_currency_conversion_date : ' || l_currency_conversion_date);
5658: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_converted_amount : ' || l_converted_amount);
5659: END IF;
5652: IF (is_debug_statement_on) THEN
5653: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_ACCOUNTING_UTIL.convert_to_functional_currency , return status : ' || l_return_status);
5654: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_contract_currency_code : ' || l_contract_currency_code);
5655: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_currency_conversion_type : ' || l_currency_conversion_type);
5656: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_currency_conversion_rate : ' || l_currency_conversion_rate);
5657: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_currency_conversion_date : ' || l_currency_conversion_date);
5658: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_converted_amount : ' || l_converted_amount);
5659: END IF;
5660:
5653: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_ACCOUNTING_UTIL.convert_to_functional_currency , return status : ' || l_return_status);
5654: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_contract_currency_code : ' || l_contract_currency_code);
5655: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_currency_conversion_type : ' || l_currency_conversion_type);
5656: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_currency_conversion_rate : ' || l_currency_conversion_rate);
5657: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_currency_conversion_date : ' || l_currency_conversion_date);
5658: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_converted_amount : ' || l_converted_amount);
5659: END IF;
5660:
5661: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5654: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_contract_currency_code : ' || l_contract_currency_code);
5655: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_currency_conversion_type : ' || l_currency_conversion_type);
5656: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_currency_conversion_rate : ' || l_currency_conversion_rate);
5657: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_currency_conversion_date : ' || l_currency_conversion_date);
5658: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_converted_amount : ' || l_converted_amount);
5659: END IF;
5660:
5661: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5662: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5664: RAISE OKL_API.G_EXCEPTION_ERROR;
5665: END IF;
5666:
5667: IF (is_debug_statement_on) THEN
5668: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling okl_streams_util.get_dependent_stream_type');
5669: END IF;
5670: --Bug 6266134 veramach start
5671: okl_streams_util.get_dependent_stream_type(
5672: p_khr_id => p_term_rec.p_contract_id,
5676: x_dependent_sty_id => l_sty_id
5677: );
5678: --Bug 6266134 veramach end
5679: IF (is_debug_statement_on) THEN
5680: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_streams_util.get_dependent_stream_type , return status : ' || l_return_status);
5681: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_sty_id : ' || l_sty_id);
5682: END IF;
5683:
5684: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5677: );
5678: --Bug 6266134 veramach end
5679: IF (is_debug_statement_on) THEN
5680: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_streams_util.get_dependent_stream_type , return status : ' || l_return_status);
5681: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_sty_id : ' || l_sty_id);
5682: END IF;
5683:
5684: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5685: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5713:
5714: l_tilv_tbl(0) := l_tilv_rec; -- Assign the line record in tilv_tbl structure
5715:
5716: IF (is_debug_statement_on) THEN
5717: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling okl_internal_billing_pvt.create_billing_trx');
5718: END IF;
5719: okl_internal_billing_pvt.create_billing_trx(p_api_version => l_api_version,
5720: p_init_msg_list => p_init_msg_list,
5721: x_return_status => x_return_status,
5727: x_taiv_rec => lx_taiv_rec,
5728: x_tilv_tbl => lx_tilv_tbl,
5729: x_tldv_tbl => lx_tldv_tbl);
5730: IF (is_debug_statement_on) THEN
5731: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_internal_billing_pvt.create_billing_trx , return status : ' || x_return_status);
5732: END IF;
5733:
5734: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5735: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5805:
5806: -- end the transaction
5807: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
5808: IF (is_debug_procedure_on) THEN
5809: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
5810: END IF;
5811: EXCEPTION
5812: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5813: IF (is_debug_exception_on) THEN
5810: END IF;
5811: EXCEPTION
5812: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5813: IF (is_debug_exception_on) THEN
5814: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
5815: END IF;
5816:
5817: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5818: (
5824: '_PVT'
5825: );
5826: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5827: IF (is_debug_exception_on) THEN
5828: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
5829: END IF;
5830:
5831: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5832: (
5838: '_PVT'
5839: );
5840: WHEN OTHERS THEN
5841: IF (is_debug_exception_on) THEN
5842: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
5843: || sqlcode || ' , SQLERRM : ' || sqlerrm);
5844: END IF;
5845:
5846: x_return_status :=OKL_API.HANDLE_EXCEPTIONS