[Home] [Help]
43: l_rev_rec_method VARCHAR2(300);
44: l_int_cal_basis VARCHAR2(300);
45: l_tax_owner VARCHAR2(300);
46: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_int_calc_done';
47: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
48: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
49: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
50:
51: -- rmunjulu BUG 5050158
44: l_int_cal_basis VARCHAR2(300);
45: l_tax_owner VARCHAR2(300);
46: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_int_calc_done';
47: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
48: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
49: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
50:
51: -- rmunjulu BUG 5050158
52: l_contract_end_date DATE;
45: l_tax_owner VARCHAR2(300);
46: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_int_calc_done';
47: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
48: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
49: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
50:
51: -- rmunjulu BUG 5050158
52: l_contract_end_date DATE;
53:
52: l_contract_end_date DATE;
53:
54: BEGIN
55: IF (is_debug_procedure_on) THEN
56: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
57: END IF;
58: IF (is_debug_statement_on) THEN
59: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
60: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_number: '|| p_contract_number);
55: IF (is_debug_procedure_on) THEN
56: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
57: END IF;
58: IF (is_debug_statement_on) THEN
59: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
60: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_number: '|| p_contract_number);
61: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_quote_number: '|| p_quote_number);
62: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_source: '|| p_source);
63: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trn_date: '|| p_trn_date);
56: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
57: END IF;
58: IF (is_debug_statement_on) THEN
59: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
60: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_number: '|| p_contract_number);
61: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_quote_number: '|| p_quote_number);
62: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_source: '|| p_source);
63: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trn_date: '|| p_trn_date);
64: END IF;
57: END IF;
58: IF (is_debug_statement_on) THEN
59: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
60: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_number: '|| p_contract_number);
61: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_quote_number: '|| p_quote_number);
62: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_source: '|| p_source);
63: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trn_date: '|| p_trn_date);
64: END IF;
65:
58: IF (is_debug_statement_on) THEN
59: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
60: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_number: '|| p_contract_number);
61: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_quote_number: '|| p_quote_number);
62: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_source: '|| p_source);
63: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trn_date: '|| p_trn_date);
64: END IF;
65:
66: IF (is_debug_statement_on) THEN
59: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
60: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_number: '|| p_contract_number);
61: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_quote_number: '|| p_quote_number);
62: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_source: '|| p_source);
63: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trn_date: '|| p_trn_date);
64: END IF;
65:
66: IF (is_debug_statement_on) THEN
67: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_UTIL_PVT.get_contract_product_details');
63: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trn_date: '|| p_trn_date);
64: END IF;
65:
66: IF (is_debug_statement_on) THEN
67: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_UTIL_PVT.get_contract_product_details');
68: END IF;
69: -- Get the contract product details
70: OKL_AM_UTIL_PVT.get_contract_product_details(
71: p_khr_id => p_contract_id,
74: x_int_cal_basis => l_int_cal_basis,
75: x_tax_owner => l_tax_owner,
76: x_return_status => l_return_status);
77: IF (is_debug_statement_on) THEN
78: 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);
79: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_deal_type: ' || l_deal_type);
80: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rev_rec_method: ' || l_rev_rec_method);
81: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_int_cal_basis: ' || l_int_cal_basis);
82: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_tax_owner: ' || l_tax_owner);
75: x_tax_owner => l_tax_owner,
76: x_return_status => l_return_status);
77: IF (is_debug_statement_on) THEN
78: 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);
79: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_deal_type: ' || l_deal_type);
80: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rev_rec_method: ' || l_rev_rec_method);
81: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_int_cal_basis: ' || l_int_cal_basis);
82: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_tax_owner: ' || l_tax_owner);
83: END IF;
76: x_return_status => l_return_status);
77: IF (is_debug_statement_on) THEN
78: 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);
79: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_deal_type: ' || l_deal_type);
80: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rev_rec_method: ' || l_rev_rec_method);
81: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_int_cal_basis: ' || l_int_cal_basis);
82: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_tax_owner: ' || l_tax_owner);
83: END IF;
84:
77: IF (is_debug_statement_on) THEN
78: 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);
79: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_deal_type: ' || l_deal_type);
80: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rev_rec_method: ' || l_rev_rec_method);
81: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_int_cal_basis: ' || l_int_cal_basis);
82: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_tax_owner: ' || l_tax_owner);
83: END IF;
84:
85: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
78: 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);
79: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_deal_type: ' || l_deal_type);
80: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rev_rec_method: ' || l_rev_rec_method);
81: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_int_cal_basis: ' || l_int_cal_basis);
82: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_tax_owner: ' || l_tax_owner);
83: END IF;
84:
85: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
86: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
95: (l_deal_type LIKE 'LEASE%' AND l_int_cal_basis IN ('FLOAT_FACTORS','REAMORT') ) -- SECHAWLA 20-JAN-06 4970009 : added
96: ) THEN
97:
98: IF (is_debug_statement_on) THEN
99: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_VARIABLE_INT_UTIL_PVT.get_last_interim_int_calc_date');
100: END IF;
101: -- get last interest calculation till date
102: l_last_int_calc_till_date := OKL_VARIABLE_INT_UTIL_PVT.get_last_interim_int_calc_date(
103: x_return_status => l_return_status,
102: l_last_int_calc_till_date := OKL_VARIABLE_INT_UTIL_PVT.get_last_interim_int_calc_date(
103: x_return_status => l_return_status,
104: p_khr_id => p_contract_id);
105: IF (is_debug_statement_on) THEN
106: 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);
107: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_last_int_calc_till_date: ' || l_last_int_calc_till_date);
108: END IF;
109:
110: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
103: x_return_status => l_return_status,
104: p_khr_id => p_contract_id);
105: IF (is_debug_statement_on) THEN
106: 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);
107: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_last_int_calc_till_date: ' || l_last_int_calc_till_date);
108: END IF;
109:
110: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
111: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
132:
133: -- get last scheduled interest calculation date before termination date
134:
135: IF (is_debug_statement_on) THEN
136: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_VARIABLE_INT_UTIL_PVT.get_last_sch_int_calc_date');
137: END IF;
138: l_last_sch_int_calc_date := OKL_VARIABLE_INT_UTIL_PVT.get_last_sch_int_calc_date(
139: x_return_status => l_return_status,
140: p_khr_id => p_contract_id,
139: x_return_status => l_return_status,
140: p_khr_id => p_contract_id,
141: p_effective_date => p_trn_date);
142: IF (is_debug_statement_on) THEN
143: 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);
144: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_last_sch_int_calc_date: ' || l_last_sch_int_calc_date);
145: END IF;
146:
147: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
140: p_khr_id => p_contract_id,
141: p_effective_date => p_trn_date);
142: IF (is_debug_statement_on) THEN
143: 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);
144: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_last_sch_int_calc_date: ' || l_last_sch_int_calc_date);
145: END IF;
146:
147: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
148: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
266: END IF; -- rmunjulu BUG 5050158
267: */
268: END IF;
269: IF (is_debug_statement_on) THEN
270: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Returning Y');
271: END IF;
272: IF (is_debug_procedure_on) THEN
273: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
274: END IF;
269: IF (is_debug_statement_on) THEN
270: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Returning Y');
271: END IF;
272: IF (is_debug_procedure_on) THEN
273: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
274: END IF;
275:
276: RETURN 'Y';
277:
278: EXCEPTION
279:
280: WHEN OKL_API.G_EXCEPTION_ERROR THEN
281: IF (is_debug_exception_on) THEN
282: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
283: END IF;
284: RETURN NULL;
285:
286: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
284: RETURN NULL;
285:
286: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
287: IF (is_debug_exception_on) THEN
288: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
289: END IF;
290: RETURN NULL;
291:
292: WHEN OTHERS THEN
290: RETURN NULL;
291:
292: WHEN OTHERS THEN
293: IF (is_debug_exception_on) THEN
294: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
295: || sqlcode || ' , SQLERRM : ' || sqlerrm);
296: END IF;
297:
298: OKL_API.set_message(
326: WHERE TMG.trx_id = p_trx_id;
327:
328: l_last_run NUMBER := 0;
329: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_last_run';
330: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
331: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
332: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
333:
334:
327:
328: l_last_run NUMBER := 0;
329: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_last_run';
330: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
331: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
332: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
333:
334:
335: BEGIN
328: l_last_run NUMBER := 0;
329: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_last_run';
330: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
331: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
332: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
333:
334:
335: BEGIN
336: IF (is_debug_procedure_on) THEN
333:
334:
335: BEGIN
336: IF (is_debug_procedure_on) THEN
337: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
338: END IF;
339: IF (is_debug_statement_on) THEN
340: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trx_id: '|| p_trx_id);
341: END IF;
336: IF (is_debug_procedure_on) THEN
337: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
338: END IF;
339: IF (is_debug_statement_on) THEN
340: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trx_id: '|| p_trx_id);
341: END IF;
342:
343: -- Get the last run
344: FOR get_last_run_rec IN get_last_run_csr(p_trx_id) LOOP
348: END LOOP;
349:
350: x_last_run := l_last_run;
351: IF (is_debug_procedure_on) THEN
352: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
353: END IF;
354:
355: EXCEPTION
356:
355: EXCEPTION
356:
357: WHEN OTHERS THEN
358: IF (is_debug_exception_on) THEN
359: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
360: || sqlcode || ' , SQLERRM : ' || sqlerrm);
361: END IF;
362: -- Set the oracle error message
363: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
402: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
403: l_msg_data VARCHAR2(2000);
404: i NUMBER := 1;
405: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_set_tmg_run';
406: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
407: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
408: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
409:
410:
403: l_msg_data VARCHAR2(2000);
404: i NUMBER := 1;
405: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_set_tmg_run';
406: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
407: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
408: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
409:
410:
411: BEGIN
404: i NUMBER := 1;
405: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_set_tmg_run';
406: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
407: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
408: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
409:
410:
411: BEGIN
412: IF (is_debug_procedure_on) THEN
409:
410:
411: BEGIN
412: IF (is_debug_procedure_on) THEN
413: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
414: END IF;
415: IF (is_debug_statement_on) THEN
416: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trx_id: '|| p_trx_id);
417: END IF;
412: IF (is_debug_procedure_on) THEN
413: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
414: END IF;
415: IF (is_debug_statement_on) THEN
416: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trx_id: '|| p_trx_id);
417: END IF;
418:
419: -- Get the last run
420: get_last_run(
420: get_last_run(
421: p_trx_id => p_trx_id,
422: x_last_run => l_last_run);
423: IF (is_debug_statement_on) THEN
424: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called get_last_run , l_last_run: ' || l_last_run);
425: END IF;
426:
427: -- increment the last run
428: l_last_run := l_last_run + 1;
441: -- Update the TMG_RUN of OKL_TRX_MSGS with l_last_run+1 for the TRX_ID with null TMG_RUN
442: IF (lp_tmgv_tbl.COUNT > 0) THEN
443:
444: IF (is_debug_statement_on) THEN
445: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_TRX_MSGS_PUB.update_trx_msgs');
446: END IF;
447: OKL_TRX_MSGS_PUB.update_trx_msgs (
448: p_api_version => l_api_version,
449: p_init_msg_list => OKL_API.G_FALSE,
452: x_msg_data => l_msg_data,
453: p_tmgv_tbl => lp_tmgv_tbl,
454: x_tmgv_tbl => lx_tmgv_tbl);
455: IF (is_debug_statement_on) THEN
456: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_TRX_MSGS_PUB.update_trx_msgs , return status: ' || l_return_status);
457: END IF;
458:
459: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
460: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
465: END IF;
466:
467: x_return_status := l_return_status;
468: IF (is_debug_procedure_on) THEN
469: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
470: END IF;
471:
472: EXCEPTION
473:
472: EXCEPTION
473:
474: WHEN OKL_API.G_EXCEPTION_ERROR THEN
475: IF (is_debug_exception_on) THEN
476: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
477: END IF;
478: x_return_status := OKL_API.G_RET_STS_ERROR;
479:
480: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
478: x_return_status := OKL_API.G_RET_STS_ERROR;
479:
480: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
481: IF (is_debug_exception_on) THEN
482: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
483: END IF;
484: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
485:
486: WHEN OTHERS THEN
484: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
485:
486: WHEN OTHERS THEN
487: IF (is_debug_exception_on) THEN
488: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
489: || sqlcode || ' , SQLERRM : ' || sqlerrm);
490: END IF;
491: -- Set the oracle error message
492: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
528: l_api_version CONSTANT NUMBER := 1;
529: l_okl_chr_id OKC_K_HEADERS_V.ID%TYPE;
530: l_oks_chr_id OKC_K_HEADERS_V.ID%TYPE;
531: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_service_link';
532: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
533: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
534: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
535:
536: G_API_TYPE VARCHAR2(20) := '_PVT';
529: l_okl_chr_id OKC_K_HEADERS_V.ID%TYPE;
530: l_oks_chr_id OKC_K_HEADERS_V.ID%TYPE;
531: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_service_link';
532: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
533: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
534: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
535:
536: G_API_TYPE VARCHAR2(20) := '_PVT';
537:
530: l_oks_chr_id OKC_K_HEADERS_V.ID%TYPE;
531: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_service_link';
532: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
533: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
534: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
535:
536: G_API_TYPE VARCHAR2(20) := '_PVT';
537:
538:
564: AND LNK_SRV_CIM.object1_id1 = p_kle_id;
565:
566: BEGIN -- main process begins here
567: IF (is_debug_procedure_on) THEN
568: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
569: END IF;
570: IF (is_debug_statement_on) THEN
571: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_lease_asset_id: '|| p_lease_asset_id);
572: END IF;
567: IF (is_debug_procedure_on) THEN
568: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
569: END IF;
570: IF (is_debug_statement_on) THEN
571: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_lease_asset_id: '|| p_lease_asset_id);
572: END IF;
573:
574: x_return_status := OKL_API.G_RET_STS_SUCCESS;
575:
596: l_okl_chr_id := link_rec.okl_contract_id;
597: END LOOP;
598:
599: IF (is_debug_statement_on) THEN
600: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_SERVICE_INTEGRATION_PVT.check_service_link');
601: END IF;
602: -- Get the Service Contract for the Leased Contract
603: OKL_SERVICE_INTEGRATION_PVT.check_service_link (
604: p_api_version => p_api_version,
608: x_msg_data => x_msg_data,
609: p_lease_contract_id => l_okl_chr_id ,
610: x_service_contract_id => l_oks_chr_id);
611: IF (is_debug_statement_on) THEN
612: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_SERVICE_INTEGRATION_PVT.check_service_link , return status: ' || x_return_status);
613: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_oks_chr_id: ' || l_oks_chr_id);
614: END IF;
615:
616: x_service_contract_id := l_oks_chr_id;
609: p_lease_contract_id => l_okl_chr_id ,
610: x_service_contract_id => l_oks_chr_id);
611: IF (is_debug_statement_on) THEN
612: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_SERVICE_INTEGRATION_PVT.check_service_link , return status: ' || x_return_status);
613: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_oks_chr_id: ' || l_oks_chr_id);
614: END IF;
615:
616: x_service_contract_id := l_oks_chr_id;
617:
617:
618: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
619: x_msg_data => x_msg_data);
620: IF (is_debug_procedure_on) THEN
621: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
622: END IF;
623:
624: EXCEPTION
625: WHEN OKL_API.G_EXCEPTION_ERROR THEN
623:
624: EXCEPTION
625: WHEN OKL_API.G_EXCEPTION_ERROR THEN
626: IF (is_debug_exception_on) THEN
627: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
628: END IF;
629: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
630: p_api_name => l_api_name,
631: p_pkg_name => G_PKG_NAME,
635: p_api_type => G_API_TYPE);
636:
637: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
638: IF (is_debug_exception_on) THEN
639: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
640: END IF;
641: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
642: p_api_name => l_api_name,
643: p_pkg_name => G_PKG_NAME,
647: p_api_type => G_API_TYPE);
648:
649: WHEN OTHERS THEN
650: IF (is_debug_exception_on) THEN
651: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
652: || sqlcode || ' , SQLERRM : ' || sqlerrm);
653: END IF;
654: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
655: p_api_name => l_api_name,
711: l_quote_assets_no NUMBER;
712: l_contract_assets_no NUMBER;
713: l_true_partial_quote VARCHAR2(1) := 'N';
714: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_true_partial_quote';
715: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
716: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
717: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
718:
719: BEGIN
712: l_contract_assets_no NUMBER;
713: l_true_partial_quote VARCHAR2(1) := 'N';
714: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_true_partial_quote';
715: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
716: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
717: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
718:
719: BEGIN
720: IF (is_debug_procedure_on) THEN
713: l_true_partial_quote VARCHAR2(1) := 'N';
714: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_true_partial_quote';
715: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
716: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
717: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
718:
719: BEGIN
720: IF (is_debug_procedure_on) THEN
721: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
717: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
718:
719: BEGIN
720: IF (is_debug_procedure_on) THEN
721: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
722: END IF;
723: IF (is_debug_statement_on) THEN
724: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_quote_id: '|| p_quote_id);
725: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
720: IF (is_debug_procedure_on) THEN
721: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
722: END IF;
723: IF (is_debug_statement_on) THEN
724: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_quote_id: '|| p_quote_id);
725: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
726: END IF;
727:
728: -- Get the no of assets in quote
721: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
722: END IF;
723: IF (is_debug_statement_on) THEN
724: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_quote_id: '|| p_quote_id);
725: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
726: END IF;
727:
728: -- Get the no of assets in quote
729: FOR get_quote_assets_no_rec
763: l_true_partial_quote := 'Y';
764:
765: END IF;
766: IF (is_debug_statement_on) THEN
767: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Returning l_true_partial_quote: '||l_true_partial_quote);
768: END IF;
769: IF (is_debug_procedure_on) THEN
770: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
771: END IF;
766: IF (is_debug_statement_on) THEN
767: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Returning l_true_partial_quote: '||l_true_partial_quote);
768: END IF;
769: IF (is_debug_procedure_on) THEN
770: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
771: END IF;
772:
773: RETURN l_true_partial_quote;
774:
775: EXCEPTION
776:
777: WHEN OTHERS THEN
778: IF (is_debug_exception_on) THEN
779: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
780: || sqlcode || ' , SQLERRM : ' || sqlerrm);
781: END IF;
782:
783: OKL_API.set_message(
836: l_contract_assets_no NUMBER;
837: l_true_partial_quote VARCHAR2(1) := 'N';
838: l_additional_assets_yn VARCHAR2(3);
839: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_true_partial_quote_yn';
840: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
841: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
842: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
843: BEGIN
844: IF (is_debug_procedure_on) THEN
837: l_true_partial_quote VARCHAR2(1) := 'N';
838: l_additional_assets_yn VARCHAR2(3);
839: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_true_partial_quote_yn';
840: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
841: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
842: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
843: BEGIN
844: IF (is_debug_procedure_on) THEN
845: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
838: l_additional_assets_yn VARCHAR2(3);
839: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_true_partial_quote_yn';
840: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
841: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
842: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
843: BEGIN
844: IF (is_debug_procedure_on) THEN
845: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
846: END IF;
841: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
842: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
843: BEGIN
844: IF (is_debug_procedure_on) THEN
845: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
846: END IF;
847: IF (is_debug_statement_on) THEN
848: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_quote_id: '|| p_quote_id);
849: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
844: IF (is_debug_procedure_on) THEN
845: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
846: END IF;
847: IF (is_debug_statement_on) THEN
848: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_quote_id: '|| p_quote_id);
849: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
850: END IF;
851:
852: -- Check if any more assets exist in contract which have not been quoted
845: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
846: END IF;
847: IF (is_debug_statement_on) THEN
848: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_quote_id: '|| p_quote_id);
849: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
850: END IF;
851:
852: -- Check if any more assets exist in contract which have not been quoted
853: FOR get_additional_assets_rec IN get_additional_assets_csr (p_contract_id,p_quote_id) LOOP
879: l_true_partial_quote := 'Y';
880:
881: END IF;
882: IF (is_debug_procedure_on) THEN
883: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
884: END IF;
885: IF (is_debug_statement_on) THEN
886: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Returning l_true_partial_quote: '||l_true_partial_quote);
887: END IF;
882: IF (is_debug_procedure_on) THEN
883: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
884: END IF;
885: IF (is_debug_statement_on) THEN
886: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Returning l_true_partial_quote: '||l_true_partial_quote);
887: END IF;
888:
889: RETURN l_true_partial_quote;
890:
891: EXCEPTION
892:
893: WHEN OTHERS THEN
894: IF (is_debug_exception_on) THEN
895: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
896: || sqlcode || ' , SQLERRM : ' || sqlerrm);
897: END IF;
898:
899: OKL_API.set_message(
935: l_api_version CONSTANT NUMBER := 1;
936: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
937: l_msg_data VARCHAR2(2000);
938: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_service_k_int_needed';
939: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
940: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
941: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
942:
943: BEGIN
936: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
937: l_msg_data VARCHAR2(2000);
938: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_service_k_int_needed';
939: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
940: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
941: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
942:
943: BEGIN
944: IF (is_debug_procedure_on) THEN
937: l_msg_data VARCHAR2(2000);
938: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_service_k_int_needed';
939: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
940: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
941: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
942:
943: BEGIN
944: IF (is_debug_procedure_on) THEN
945: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
941: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
942:
943: BEGIN
944: IF (is_debug_procedure_on) THEN
945: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
946: END IF;
947: IF (is_debug_statement_on) THEN
948: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_partial_yn: '|| p_partial_yn);
949: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_asset_id: '|| p_asset_id);
944: IF (is_debug_procedure_on) THEN
945: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
946: END IF;
947: IF (is_debug_statement_on) THEN
948: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_partial_yn: '|| p_partial_yn);
949: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_asset_id: '|| p_asset_id);
950: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_source: '|| p_source);
951: 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);
952: 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);
945: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
946: END IF;
947: IF (is_debug_statement_on) THEN
948: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_partial_yn: '|| p_partial_yn);
949: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_asset_id: '|| p_asset_id);
950: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_source: '|| p_source);
951: 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);
952: 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);
953: 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);
946: END IF;
947: IF (is_debug_statement_on) THEN
948: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_partial_yn: '|| p_partial_yn);
949: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_asset_id: '|| p_asset_id);
950: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_source: '|| p_source);
951: 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);
952: 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);
953: 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);
954: END IF;
947: IF (is_debug_statement_on) THEN
948: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_partial_yn: '|| p_partial_yn);
949: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_asset_id: '|| p_asset_id);
950: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_source: '|| p_source);
951: 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);
952: 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);
953: 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);
954: END IF;
955:
948: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_partial_yn: '|| p_partial_yn);
949: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_asset_id: '|| p_asset_id);
950: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_source: '|| p_source);
951: 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);
952: 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);
953: 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);
954: END IF;
955:
956: -- IF SOURCE = 'TERMINATION'
949: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_asset_id: '|| p_asset_id);
950: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_source: '|| p_source);
951: 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);
952: 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);
953: 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);
954: END IF;
955:
956: -- IF SOURCE = 'TERMINATION'
957: -- If Recycle YN = 'N' AND Linked Lease AND Full Termination THEN
976: -- OR p_tcnv_rec.tmt_recycle_yn = OKL_API.G_MISS_CHAR THEN
977:
978: -- Get the linked lease details
979: IF (is_debug_statement_on) THEN
980: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_SERVICE_INTEGRATION_PVT.check_service_link');
981: END IF;
982: OKL_SERVICE_INTEGRATION_PVT.check_service_link (
983: p_api_version => l_api_version,
984: p_init_msg_list => OKL_API.G_FALSE,
988: p_lease_contract_id => p_term_rec.p_contract_id ,
989: x_service_contract_id => l_oks_chr_id);
990:
991: IF (is_debug_statement_on) THEN
992: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_SERVICE_INTEGRATION_PVT.check_service_link , return status: ' || l_return_status);
993: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_oks_chr_id: ' || l_oks_chr_id);
994: END IF;
995: -- If linked Lease
996: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
989: x_service_contract_id => l_oks_chr_id);
990:
991: IF (is_debug_statement_on) THEN
992: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_SERVICE_INTEGRATION_PVT.check_service_link , return status: ' || l_return_status);
993: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_oks_chr_id: ' || l_oks_chr_id);
994: END IF;
995: -- If linked Lease
996: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
997: AND l_oks_chr_id IS NOT NULL THEN
1003: l_true_partial_quote := check_true_partial_quote_yn( -- rmunjulu 4997075
1004: p_quote_id => p_term_rec.p_quote_id,
1005: p_contract_id => p_term_rec.p_contract_id);
1006: IF (is_debug_statement_on) THEN
1007: 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);
1008: END IF;
1009:
1010: ELSE -- Partial_YN = 'N'
1011:
1041: x_msg_data => l_msg_data,
1042: p_lease_asset_id => p_asset_id ,
1043: x_service_contract_id => l_oks_chr_id);
1044: IF (is_debug_statement_on) THEN
1045: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called check_service_link , l_oks_chr_id: ' || l_oks_chr_id);
1046: END IF;
1047:
1048: -- If linked Lease
1049: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
1058: END IF;
1059:
1060: END IF;
1061: IF (is_debug_procedure_on) THEN
1062: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
1063: END IF;
1064:
1065: IF (is_debug_statement_on) THEN
1066: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Returning l_service_integration_needed: '||l_service_integration_needed);
1062: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
1063: END IF;
1064:
1065: IF (is_debug_statement_on) THEN
1066: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Returning l_service_integration_needed: '||l_service_integration_needed);
1067: END IF;
1068: -- Set the RETURN value
1069: RETURN l_service_integration_needed;
1070:
1071: EXCEPTION
1072:
1073: WHEN OTHERS THEN
1074: IF (is_debug_exception_on) THEN
1075: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1076: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1077: END IF;
1078:
1079: OKL_API.set_message(
1125: l_wf_source VARCHAR2(20);
1126: l_termination_date DATE;
1127: l_quote_id NUMBER := NULL;
1128: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'service_k_integration';
1129: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1130: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1131: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1132:
1133: l_api_version CONSTANT NUMBER := 1;
1126: l_termination_date DATE;
1127: l_quote_id NUMBER := NULL;
1128: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'service_k_integration';
1129: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1130: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1131: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1132:
1133: l_api_version CONSTANT NUMBER := 1;
1134: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
1127: l_quote_id NUMBER := NULL;
1128: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'service_k_integration';
1129: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1130: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1131: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1132:
1133: l_api_version CONSTANT NUMBER := 1;
1134: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
1135: l_msg_data VARCHAR2(2000);
1148: l_sts_code OKC_K_HEADERS_B.sts_code%TYPE;
1149:
1150: BEGIN
1151: IF (is_debug_procedure_on) THEN
1152: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1153: END IF;
1154: IF (is_debug_statement_on) THEN
1155: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_transaction_id: '|| p_transaction_id);
1156: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_transaction_date: '|| p_transaction_date);
1151: IF (is_debug_procedure_on) THEN
1152: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1153: END IF;
1154: IF (is_debug_statement_on) THEN
1155: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_transaction_id: '|| p_transaction_id);
1156: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_transaction_date: '|| p_transaction_date);
1157: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_source: '|| p_source);
1158: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_service_integration_needed: '|| p_service_integration_needed);
1159: 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);
1152: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1153: END IF;
1154: IF (is_debug_statement_on) THEN
1155: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_transaction_id: '|| p_transaction_id);
1156: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_transaction_date: '|| p_transaction_date);
1157: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_source: '|| p_source);
1158: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_service_integration_needed: '|| p_service_integration_needed);
1159: 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);
1160: 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);
1153: END IF;
1154: IF (is_debug_statement_on) THEN
1155: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_transaction_id: '|| p_transaction_id);
1156: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_transaction_date: '|| p_transaction_date);
1157: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_source: '|| p_source);
1158: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_service_integration_needed: '|| p_service_integration_needed);
1159: 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);
1160: 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);
1161: END IF;
1154: IF (is_debug_statement_on) THEN
1155: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_transaction_id: '|| p_transaction_id);
1156: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_transaction_date: '|| p_transaction_date);
1157: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_source: '|| p_source);
1158: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_service_integration_needed: '|| p_service_integration_needed);
1159: 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);
1160: 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);
1161: END IF;
1162:
1155: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_transaction_id: '|| p_transaction_id);
1156: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_transaction_date: '|| p_transaction_date);
1157: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_source: '|| p_source);
1158: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_service_integration_needed: '|| p_service_integration_needed);
1159: 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);
1160: 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);
1161: END IF;
1162:
1163: -- If Service Integration Needed
1156: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_transaction_date: '|| p_transaction_date);
1157: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_source: '|| p_source);
1158: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_service_integration_needed: '|| p_service_integration_needed);
1159: 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);
1160: 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);
1161: END IF;
1162:
1163: -- If Service Integration Needed
1164: IF NVL(p_service_integration_needed,'N') = 'Y' THEN
1188:
1189: -- RMUNJULU 23-DEC-03 SERVICE K UPDATES
1190: -- Get the OKS contract ID before delink since after delink we loose that info
1191: IF (is_debug_statement_on) THEN
1192: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_SERVICE_INTEGRATION_PVT.check_service_link');
1193: END IF;
1194: OKL_SERVICE_INTEGRATION_PVT.check_service_link (
1195: p_api_version => l_api_version,
1196: p_init_msg_list => OKL_API.G_FALSE,
1199: x_msg_data => l_msg_data,
1200: p_lease_contract_id => p_term_rec.p_contract_id ,
1201: x_service_contract_id => l_oks_chr_id);
1202: IF (is_debug_statement_on) THEN
1203: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_SERVICE_INTEGRATION_PVT.check_service_link , return status: ' || l_return_status);
1204: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_oks_chr_id: ' || l_oks_chr_id);
1205: END IF;
1206:
1207: IF (is_debug_statement_on) THEN
1200: p_lease_contract_id => p_term_rec.p_contract_id ,
1201: x_service_contract_id => l_oks_chr_id);
1202: IF (is_debug_statement_on) THEN
1203: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_SERVICE_INTEGRATION_PVT.check_service_link , return status: ' || l_return_status);
1204: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_oks_chr_id: ' || l_oks_chr_id);
1205: END IF;
1206:
1207: IF (is_debug_statement_on) THEN
1208: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_SERVICE_INTEGRATION_PVT.delink_service_contract');
1204: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_oks_chr_id: ' || l_oks_chr_id);
1205: END IF;
1206:
1207: IF (is_debug_statement_on) THEN
1208: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_SERVICE_INTEGRATION_PVT.delink_service_contract');
1209: END IF;
1210: -- De-link Lease from Service
1211: OKL_SERVICE_INTEGRATION_PVT.delink_service_contract(
1212: p_api_version => l_api_version,
1215: x_msg_count => l_msg_count,
1216: x_msg_data => l_msg_data,
1217: p_okl_chr_id => p_term_rec.p_contract_id);
1218: IF (is_debug_statement_on) THEN
1219: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_SERVICE_INTEGRATION_PVT.delink_service_contract , return status: ' || l_return_status);
1220: END IF;
1221: -- If De-link successful
1222: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN -- SUCCESS
1223: l_wf_source := 'SUCCESS';
1256: END IF;
1257:
1258: -- Raise event to launch the service k integration workflow
1259: IF (is_debug_statement_on) THEN
1260: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event');
1261: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_contract_id : ' || p_term_rec.p_contract_id);
1262: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_wf_source : ' || l_wf_source);
1263: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_quote_id : ' || l_quote_id);
1264: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_oks_chr_id : ' || l_oks_chr_id);
1257:
1258: -- Raise event to launch the service k integration workflow
1259: IF (is_debug_statement_on) THEN
1260: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event');
1261: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_contract_id : ' || p_term_rec.p_contract_id);
1262: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_wf_source : ' || l_wf_source);
1263: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_quote_id : ' || l_quote_id);
1264: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_oks_chr_id : ' || l_oks_chr_id);
1265: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_termination_date : ' || l_termination_date);
1258: -- Raise event to launch the service k integration workflow
1259: IF (is_debug_statement_on) THEN
1260: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event');
1261: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_contract_id : ' || p_term_rec.p_contract_id);
1262: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_wf_source : ' || l_wf_source);
1263: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_quote_id : ' || l_quote_id);
1264: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_oks_chr_id : ' || l_oks_chr_id);
1265: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_termination_date : ' || l_termination_date);
1266: END IF;
1259: IF (is_debug_statement_on) THEN
1260: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event');
1261: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_contract_id : ' || p_term_rec.p_contract_id);
1262: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_wf_source : ' || l_wf_source);
1263: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_quote_id : ' || l_quote_id);
1264: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_oks_chr_id : ' || l_oks_chr_id);
1265: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_termination_date : ' || l_termination_date);
1266: END IF;
1267: OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event(
1260: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event');
1261: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_contract_id : ' || p_term_rec.p_contract_id);
1262: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_wf_source : ' || l_wf_source);
1263: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_quote_id : ' || l_quote_id);
1264: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_oks_chr_id : ' || l_oks_chr_id);
1265: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_termination_date : ' || l_termination_date);
1266: END IF;
1267: OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event(
1268: p_transaction_id => p_term_rec.p_contract_id,
1261: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_term_rec.p_contract_id : ' || p_term_rec.p_contract_id);
1262: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_wf_source : ' || l_wf_source);
1263: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_quote_id : ' || l_quote_id);
1264: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_oks_chr_id : ' || l_oks_chr_id);
1265: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_termination_date : ' || l_termination_date);
1266: END IF;
1267: OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event(
1268: p_transaction_id => p_term_rec.p_contract_id,
1269: p_source => l_wf_source,
1270: p_quote_id => l_quote_id,
1271: p_oks_contract => l_oks_chr_id, -- RMUNJULU 23-DEC-03 SERVICE K UPDATES Pass OKS contract to WF
1272: p_transaction_date => l_termination_date);
1273: IF (is_debug_statement_on) THEN
1274: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event');
1275: END IF;
1276:
1277: END IF;
1278: ELSIF p_source = 'RETURN' THEN -- Request from Asset Return
1283:
1284: l_wf_source := 'RETURN';
1285:
1286: IF (is_debug_statement_on) THEN
1287: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event');
1288: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_id : ' || p_transaction_id);
1289: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_wf_source : ' || l_wf_source);
1290: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_date : ' || p_transaction_date);
1291: END IF;
1284: l_wf_source := 'RETURN';
1285:
1286: IF (is_debug_statement_on) THEN
1287: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event');
1288: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_id : ' || p_transaction_id);
1289: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_wf_source : ' || l_wf_source);
1290: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_date : ' || p_transaction_date);
1291: END IF;
1292: -- Raise event to launch the service k integration workflow
1285:
1286: IF (is_debug_statement_on) THEN
1287: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event');
1288: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_id : ' || p_transaction_id);
1289: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_wf_source : ' || l_wf_source);
1290: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_date : ' || p_transaction_date);
1291: END IF;
1292: -- Raise event to launch the service k integration workflow
1293: OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event(
1286: IF (is_debug_statement_on) THEN
1287: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event');
1288: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_id : ' || p_transaction_id);
1289: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_wf_source : ' || l_wf_source);
1290: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_date : ' || p_transaction_date);
1291: END IF;
1292: -- Raise event to launch the service k integration workflow
1293: OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event(
1294: p_transaction_id => p_transaction_id,
1294: p_transaction_id => p_transaction_id,
1295: p_source => l_wf_source,
1296: p_transaction_date => p_transaction_date);
1297: IF (is_debug_statement_on) THEN
1298: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event');
1299: END IF;
1300:
1301:
1302: ELSIF p_source = 'DISPOSE_1' THEN -- Request from Asset Dispose_1
1310:
1311: l_wf_source := 'DISPOSE';
1312:
1313: IF (is_debug_statement_on) THEN
1314: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event');
1315: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_id : ' || p_transaction_id);
1316: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_wf_source : ' || l_wf_source);
1317: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_date : ' || p_transaction_date);
1318: END IF;
1311: l_wf_source := 'DISPOSE';
1312:
1313: IF (is_debug_statement_on) THEN
1314: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event');
1315: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_id : ' || p_transaction_id);
1316: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_wf_source : ' || l_wf_source);
1317: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_date : ' || p_transaction_date);
1318: END IF;
1319: -- Raise event to launch the service k integration workflow
1312:
1313: IF (is_debug_statement_on) THEN
1314: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event');
1315: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_id : ' || p_transaction_id);
1316: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_wf_source : ' || l_wf_source);
1317: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_date : ' || p_transaction_date);
1318: END IF;
1319: -- Raise event to launch the service k integration workflow
1320: OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event(
1313: IF (is_debug_statement_on) THEN
1314: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event');
1315: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_id : ' || p_transaction_id);
1316: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_wf_source : ' || l_wf_source);
1317: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_date : ' || p_transaction_date);
1318: END IF;
1319: -- Raise event to launch the service k integration workflow
1320: OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event(
1321: p_transaction_id => p_transaction_id,
1321: p_transaction_id => p_transaction_id,
1322: p_source => l_wf_source,
1323: p_transaction_date => p_transaction_date);
1324: IF (is_debug_statement_on) THEN
1325: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event');
1326: END IF;
1327:
1328: ELSIF p_source = 'DISPOSE_2' THEN -- Request from Asset Dispose_2
1329:
1335: -- p_transaction_date is DISPOSE DATE in this case
1336:
1337: l_wf_source := 'DISPOSE';
1338: IF (is_debug_statement_on) THEN
1339: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event');
1340: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_id : ' || p_transaction_id);
1341: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_wf_source : ' || l_wf_source);
1342: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_date : ' || p_transaction_date);
1343: END IF;
1336:
1337: l_wf_source := 'DISPOSE';
1338: IF (is_debug_statement_on) THEN
1339: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event');
1340: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_id : ' || p_transaction_id);
1341: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_wf_source : ' || l_wf_source);
1342: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_date : ' || p_transaction_date);
1343: END IF;
1344: -- Raise event to launch the service k integration workflow
1337: l_wf_source := 'DISPOSE';
1338: IF (is_debug_statement_on) THEN
1339: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event');
1340: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_id : ' || p_transaction_id);
1341: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_wf_source : ' || l_wf_source);
1342: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_date : ' || p_transaction_date);
1343: END IF;
1344: -- Raise event to launch the service k integration workflow
1345: OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event(
1338: IF (is_debug_statement_on) THEN
1339: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event');
1340: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_id : ' || p_transaction_id);
1341: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_wf_source : ' || l_wf_source);
1342: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'p_transaction_date : ' || p_transaction_date);
1343: END IF;
1344: -- Raise event to launch the service k integration workflow
1345: OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event(
1346: p_transaction_id => p_transaction_id,
1346: p_transaction_id => p_transaction_id,
1347: p_source => l_wf_source,
1348: p_transaction_date => p_transaction_date);
1349: IF (is_debug_statement_on) THEN
1350: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_SERVICE_K_INT_WF.raise_service_k_int_event');
1351: END IF;
1352: END IF;
1353: END IF;
1354: IF (is_debug_procedure_on) THEN
1351: END IF;
1352: END IF;
1353: END IF;
1354: IF (is_debug_procedure_on) THEN
1355: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
1356: END IF;
1357:
1358: EXCEPTION
1359:
1358: EXCEPTION
1359:
1360: WHEN OTHERS THEN
1361: IF (is_debug_exception_on) THEN
1362: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1363: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1364: END IF;
1365:
1366: OKL_API.set_message(
1404: l_bill_stat_tbl OKL_BILL_STATUS_PUB.bill_stat_tbl_type; -- RMUNJULU 05-JAN-04 BPD Changed the API name
1405: l_bill_counter NUMBER;
1406: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1407: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_billing_done';
1408: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1409: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1410: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1411:
1412: BEGIN
1405: l_bill_counter NUMBER;
1406: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1407: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_billing_done';
1408: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1409: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1410: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1411:
1412: BEGIN
1413: IF (is_debug_procedure_on) THEN
1406: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1407: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_billing_done';
1408: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1409: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1410: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1411:
1412: BEGIN
1413: IF (is_debug_procedure_on) THEN
1414: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1410: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1411:
1412: BEGIN
1413: IF (is_debug_procedure_on) THEN
1414: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1415: END IF;
1416: IF (is_debug_statement_on) THEN
1417: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
1418: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_number: '|| p_contract_number);
1413: IF (is_debug_procedure_on) THEN
1414: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1415: END IF;
1416: IF (is_debug_statement_on) THEN
1417: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
1418: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_number: '|| p_contract_number);
1419: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_quote_number: '|| p_quote_number);
1420: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trn_date: '|| p_trn_date);
1421: END IF;
1414: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1415: END IF;
1416: IF (is_debug_statement_on) THEN
1417: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
1418: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_number: '|| p_contract_number);
1419: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_quote_number: '|| p_quote_number);
1420: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trn_date: '|| p_trn_date);
1421: END IF;
1422:
1415: END IF;
1416: IF (is_debug_statement_on) THEN
1417: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
1418: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_number: '|| p_contract_number);
1419: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_quote_number: '|| p_quote_number);
1420: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trn_date: '|| p_trn_date);
1421: END IF;
1422:
1423: -- Process Codes and Types decided on
1416: IF (is_debug_statement_on) THEN
1417: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
1418: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_number: '|| p_contract_number);
1419: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_quote_number: '|| p_quote_number);
1420: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trn_date: '|| p_trn_date);
1421: END IF;
1422:
1423: -- Process Codes and Types decided on
1424: -- =================================================
1438:
1439: -- BPD Now provides a API which tells till when the billing was done, use that
1440: -- RMUNJULU 05-JAN-04 BPD Changed the API name
1441: IF (is_debug_statement_on) THEN
1442: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_BILL_STATUS_PUB.billing_status');
1443: END IF;
1444: OKL_BILL_STATUS_PUB.billing_status(
1445: p_api_version => l_api_version,
1446: p_init_msg_list => OKL_API.G_FALSE,
1450: x_bill_stat_tbl => l_bill_stat_tbl,
1451: p_khr_id => p_contract_id,
1452: p_transaction_date => p_trn_date);
1453: IF (is_debug_statement_on) THEN
1454: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_BILL_STATUS_PUB.billing_status , return status: ' || l_return_status);
1455: END IF;
1456:
1457: IF l_bill_stat_tbl.COUNT > 0 THEN -- [1]
1458:
1513: END LOOP;
1514: END IF; --[-1]
1515:
1516: IF (is_debug_statement_on) THEN
1517: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_SERVICE_INTEGRATION_PVT.check_service_link');
1518: END IF;
1519: -- Check if linked service contract exists for the quoted contract
1520: OKL_SERVICE_INTEGRATION_PVT.check_service_link (
1521: p_api_version => l_api_version,
1525: x_msg_data => l_msg_data,
1526: p_lease_contract_id => p_contract_id,
1527: x_service_contract_id => l_oks_chr_id);
1528: IF (is_debug_statement_on) THEN
1529: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_SERVICE_INTEGRATION_PVT.check_service_link , return status: ' || l_return_status);
1530: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_oks_chr_id : ' || l_oks_chr_id);
1531: END IF;
1532:
1533: -- If linked Lease
1526: p_lease_contract_id => p_contract_id,
1527: x_service_contract_id => l_oks_chr_id);
1528: IF (is_debug_statement_on) THEN
1529: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_SERVICE_INTEGRATION_PVT.check_service_link , return status: ' || l_return_status);
1530: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_oks_chr_id : ' || l_oks_chr_id);
1531: END IF;
1532:
1533: -- If linked Lease
1534: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
1584: END LOOP;
1585: END IF; --[-2]
1586: END IF; --[-1]
1587: IF (is_debug_procedure_on) THEN
1588: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
1589: END IF;
1590: IF (is_debug_statement_on) THEN
1591: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Returning Y');
1592: END IF;
1587: IF (is_debug_procedure_on) THEN
1588: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
1589: END IF;
1590: IF (is_debug_statement_on) THEN
1591: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Returning Y');
1592: END IF;
1593:
1594: RETURN 'Y';
1595:
1596: EXCEPTION
1597:
1598: WHEN OTHERS THEN
1599: IF (is_debug_exception_on) THEN
1600: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1601: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1602: END IF;
1603:
1604: OKL_API.set_message(
1638: l_bill_stat_tbl OKL_BILL_STATUS_PUB.bill_stat_tbl_type;
1639: l_bill_counter NUMBER;
1640: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1641: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_stream_billing_done';
1642: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1643: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1644: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1645:
1646: BEGIN
1639: l_bill_counter NUMBER;
1640: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1641: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_stream_billing_done';
1642: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1643: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1644: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1645:
1646: BEGIN
1647: IF (is_debug_procedure_on) THEN
1640: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1641: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_stream_billing_done';
1642: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1643: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1644: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1645:
1646: BEGIN
1647: IF (is_debug_procedure_on) THEN
1648: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1644: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1645:
1646: BEGIN
1647: IF (is_debug_procedure_on) THEN
1648: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1649: END IF;
1650: IF (is_debug_statement_on) THEN
1651: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
1652: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_number: '|| p_contract_number);
1647: IF (is_debug_procedure_on) THEN
1648: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1649: END IF;
1650: IF (is_debug_statement_on) THEN
1651: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
1652: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_number: '|| p_contract_number);
1653: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_quote_number: '|| p_quote_number);
1654: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trn_date: '|| p_trn_date);
1655: END IF;
1648: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1649: END IF;
1650: IF (is_debug_statement_on) THEN
1651: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
1652: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_number: '|| p_contract_number);
1653: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_quote_number: '|| p_quote_number);
1654: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trn_date: '|| p_trn_date);
1655: END IF;
1656:
1649: END IF;
1650: IF (is_debug_statement_on) THEN
1651: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
1652: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_number: '|| p_contract_number);
1653: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_quote_number: '|| p_quote_number);
1654: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trn_date: '|| p_trn_date);
1655: END IF;
1656:
1657: IF (is_debug_statement_on) THEN
1650: IF (is_debug_statement_on) THEN
1651: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
1652: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_number: '|| p_contract_number);
1653: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_quote_number: '|| p_quote_number);
1654: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trn_date: '|| p_trn_date);
1655: END IF;
1656:
1657: IF (is_debug_statement_on) THEN
1658: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_BILL_STATUS_PUB.billing_status');
1654: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trn_date: '|| p_trn_date);
1655: END IF;
1656:
1657: IF (is_debug_statement_on) THEN
1658: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_BILL_STATUS_PUB.billing_status');
1659: END IF;
1660: OKL_BILL_STATUS_PUB.billing_status(
1661: p_api_version => l_api_version,
1662: p_init_msg_list => OKL_API.G_FALSE,
1666: x_bill_stat_tbl => l_bill_stat_tbl,
1667: p_khr_id => p_contract_id,
1668: p_transaction_date => p_trn_date);
1669: IF (is_debug_statement_on) THEN
1670: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_BILL_STATUS_PUB.billing_status , return status: ' || l_return_status);
1671: END IF;
1672:
1673: IF l_bill_stat_tbl.COUNT > 0 THEN -- [1]
1674:
1699: END LOOP;
1700: END IF; --[-1]
1701:
1702: IF (is_debug_procedure_on) THEN
1703: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
1704: END IF;
1705: IF (is_debug_statement_on) THEN
1706: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Returning Y');
1707: END IF;
1702: IF (is_debug_procedure_on) THEN
1703: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
1704: END IF;
1705: IF (is_debug_statement_on) THEN
1706: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Returning Y');
1707: END IF;
1708:
1709: RETURN 'Y';
1710:
1711: EXCEPTION
1712:
1713: WHEN OTHERS THEN
1714: IF (is_debug_exception_on) THEN
1715: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1716: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1717: END IF;
1718:
1719: OKL_API.set_message(
1842: l_ste_code VARCHAR2(30);
1843: l_contract_number VARCHAR2(120);
1844: l_meaning VARCHAR2(90);
1845: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'validate_contract';
1846: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1847: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1848: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1849:
1850:
1843: l_contract_number VARCHAR2(120);
1844: l_meaning VARCHAR2(90);
1845: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'validate_contract';
1846: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1847: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1848: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1849:
1850:
1851: -- RMUNJULU -- 11-DEC-02 Bug # 2484327 -- Added variables for checking
1844: l_meaning VARCHAR2(90);
1845: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'validate_contract';
1846: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1847: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1848: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1849:
1850:
1851: -- RMUNJULU -- 11-DEC-02 Bug # 2484327 -- Added variables for checking
1852: -- related to asset level termination
1860:
1861:
1862: BEGIN
1863: IF (is_debug_procedure_on) THEN
1864: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1865: END IF;
1866: IF (is_debug_statement_on) THEN
1867: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
1868: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_control_flag: '|| p_control_flag);
1863: IF (is_debug_procedure_on) THEN
1864: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1865: END IF;
1866: IF (is_debug_statement_on) THEN
1867: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
1868: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_control_flag: '|| p_control_flag);
1869: END IF;
1870:
1871: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1864: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
1865: END IF;
1866: IF (is_debug_statement_on) THEN
1867: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
1868: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_control_flag: '|| p_control_flag);
1869: END IF;
1870:
1871: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1872:
1988: -- *****************
1989:
1990:
1991: IF (is_debug_statement_on) THEN
1992: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_UTIL_PVT.get_contract_transactions');
1993: END IF;
1994: -- Get all the unprocessed transactions for the contract
1995: OKL_AM_UTIL_PVT.get_contract_transactions (
1996: p_khr_id => k_header_rec.id,
1996: p_khr_id => k_header_rec.id,
1997: x_trn_tbl => lx_trn_tbl,
1998: x_return_status => l_return_status);
1999: IF (is_debug_statement_on) THEN
2000: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.get_contract_transactions , return status: ' || l_return_status);
2001: END IF;
2002:
2003:
2004: -- Check the return status
2030: -- IF NO accepted quote with no trn exists for contract then error
2031: -- *****************
2032:
2033: IF (is_debug_statement_on) THEN
2034: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_UTIL_PVT.get_non_trn_contract_quotes');
2035: END IF;
2036: -- Get accepted quote for contract with no trn
2037: OKL_AM_UTIL_PVT.get_non_trn_contract_quotes (
2038: p_khr_id => k_header_rec.id,
2038: p_khr_id => k_header_rec.id,
2039: x_quote_tbl => lx_quote_tbl,
2040: x_return_status => l_return_status);
2041: IF (is_debug_statement_on) THEN
2042: 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);
2043: END IF;
2044:
2045: -- Check the return status
2046: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2098: -- IF unprocessed FULL termination trn exists for the contract then error
2099: -- *****************
2100:
2101: IF (is_debug_statement_on) THEN
2102: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_UTIL_PVT.get_contract_transactions');
2103: END IF;
2104: -- Get all the unprocessed transactions for the contract
2105: OKL_AM_UTIL_PVT.get_contract_transactions (
2106: p_khr_id => k_header_rec.id,
2106: p_khr_id => k_header_rec.id,
2107: x_trn_tbl => lx_trn_tbl,
2108: x_return_status => l_return_status);
2109: IF (is_debug_statement_on) THEN
2110: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.get_contract_transactions , return status: ' || l_return_status);
2111: END IF;
2112:
2113: -- Check the return status
2114: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2421:
2422: -- Set the return status
2423: x_return_status := l_return_status;
2424: IF (is_debug_procedure_on) THEN
2425: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
2426: END IF;
2427: EXCEPTION
2428: WHEN l_invalid_contract THEN
2429: IF (is_debug_exception_on) THEN
2426: END IF;
2427: EXCEPTION
2428: WHEN l_invalid_contract THEN
2429: IF (is_debug_exception_on) THEN
2430: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'l_invalid_contract');
2431: END IF;
2432: IF k_header_csr%ISOPEN THEN
2433: CLOSE k_header_csr;
2434: END IF;
2450: x_return_status := OKL_API.G_RET_STS_ERROR;
2451:
2452: WHEN OTHERS THEN
2453: IF (is_debug_exception_on) THEN
2454: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
2455: || sqlcode || ' , SQLERRM : ' || sqlerrm);
2456: END IF;
2457: IF k_header_csr%ISOPEN THEN
2458: CLOSE k_header_csr;
2523: l_lease_loan_type VARCHAR2(30) := '$';
2524: l_api_name VARCHAR2(30) := 'check_lease_loan_type';
2525: l_deal_type VARCHAR2(30) := '$';
2526: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_lease_loan_type';
2527: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2528: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2529: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2530:
2531: BEGIN
2524: l_api_name VARCHAR2(30) := 'check_lease_loan_type';
2525: l_deal_type VARCHAR2(30) := '$';
2526: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_lease_loan_type';
2527: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2528: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2529: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2530:
2531: BEGIN
2532: IF (is_debug_procedure_on) THEN
2525: l_deal_type VARCHAR2(30) := '$';
2526: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_lease_loan_type';
2527: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2528: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2529: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2530:
2531: BEGIN
2532: IF (is_debug_procedure_on) THEN
2533: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2529: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2530:
2531: BEGIN
2532: IF (is_debug_procedure_on) THEN
2533: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2534: END IF;
2535: IF (is_debug_statement_on) THEN
2536: 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);
2537: 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);
2532: IF (is_debug_procedure_on) THEN
2533: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2534: END IF;
2535: IF (is_debug_statement_on) THEN
2536: 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);
2537: 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);
2538: 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);
2539: 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);
2540: 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);
2533: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2534: END IF;
2535: IF (is_debug_statement_on) THEN
2536: 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);
2537: 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);
2538: 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);
2539: 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);
2540: 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);
2541: END IF;
2534: END IF;
2535: IF (is_debug_statement_on) THEN
2536: 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);
2537: 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);
2538: 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);
2539: 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);
2540: 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);
2541: END IF;
2542: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2535: IF (is_debug_statement_on) THEN
2536: 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);
2537: 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);
2538: 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);
2539: 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);
2540: 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);
2541: END IF;
2542: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2543: x_lease_loan_type := l_lease_loan_type;
2536: 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);
2537: 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);
2538: 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);
2539: 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);
2540: 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);
2541: END IF;
2542: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2543: x_lease_loan_type := l_lease_loan_type;
2544:
2573: CLOSE k_header_csr;
2574:
2575: x_lease_loan_type := l_lease_loan_type;
2576: IF (is_debug_procedure_on) THEN
2577: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
2578: END IF;
2579: EXCEPTION
2580: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2581: IF (is_debug_exception_on) THEN
2578: END IF;
2579: EXCEPTION
2580: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2581: IF (is_debug_exception_on) THEN
2582: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
2583: END IF;
2584: IF k_header_csr%ISOPEN THEN
2585: CLOSE k_header_csr;
2586: END IF;
2591: x_return_status := OKL_API.G_RET_STS_ERROR;
2592:
2593: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2594: IF (is_debug_exception_on) THEN
2595: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
2596: END IF;
2597: IF k_header_csr%ISOPEN THEN
2598: CLOSE k_header_csr;
2599: END IF;
2604: x_return_status :=OKL_API.G_RET_STS_UNEXP_ERROR;
2605:
2606: WHEN OTHERS THEN
2607: IF (is_debug_exception_on) THEN
2608: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
2609: || sqlcode || ' , SQLERRM : ' || sqlerrm);
2610: END IF;
2611: IF k_header_csr%ISOPEN THEN
2612: CLOSE k_header_csr;
2644: lx_tcnv_rec tcnv_rec_type;
2645: lx_contract_status VARCHAR2(200);
2646: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2647: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_non_batch';
2648: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2649: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2650: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2651:
2652: BEGIN
2645: lx_contract_status VARCHAR2(200);
2646: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2647: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_non_batch';
2648: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2649: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2650: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2651:
2652: BEGIN
2653: IF (is_debug_procedure_on) THEN
2646: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2647: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_non_batch';
2648: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2649: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2650: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2651:
2652: BEGIN
2653: IF (is_debug_procedure_on) THEN
2654: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2650: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2651:
2652: BEGIN
2653: IF (is_debug_procedure_on) THEN
2654: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2655: END IF;
2656: IF (is_debug_statement_on) THEN
2657: 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);
2658: 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);
2653: IF (is_debug_procedure_on) THEN
2654: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2655: END IF;
2656: IF (is_debug_statement_on) THEN
2657: 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);
2658: 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);
2659: 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);
2660: 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);
2661: 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);
2654: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2655: END IF;
2656: IF (is_debug_statement_on) THEN
2657: 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);
2658: 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);
2659: 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);
2660: 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);
2661: 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);
2662: 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);
2655: END IF;
2656: IF (is_debug_statement_on) THEN
2657: 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);
2658: 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);
2659: 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);
2660: 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);
2661: 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);
2662: 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);
2663: END IF;
2656: IF (is_debug_statement_on) THEN
2657: 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);
2658: 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);
2659: 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);
2660: 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);
2661: 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);
2662: 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);
2663: END IF;
2664:
2657: 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);
2658: 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);
2659: 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);
2660: 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);
2661: 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);
2662: 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);
2663: END IF;
2664:
2665: -- Validate the contract
2658: 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);
2659: 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);
2660: 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);
2661: 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);
2662: 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);
2663: END IF;
2664:
2665: -- Validate the contract
2666: validate_contract(
2672: p_contract_id => p_term_rec.p_contract_id,
2673: p_control_flag => p_term_rec.p_control_flag,
2674: x_contract_status => lx_contract_status);
2675: IF (is_debug_statement_on) THEN
2676: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called validate_contract , return status: ' || l_return_status);
2677: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'lx_contract_status : ' || lx_contract_status);
2678: END IF;
2679:
2680: -- If error abort this contract
2673: p_control_flag => p_term_rec.p_control_flag,
2674: x_contract_status => lx_contract_status);
2675: IF (is_debug_statement_on) THEN
2676: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called validate_contract , return status: ' || l_return_status);
2677: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'lx_contract_status : ' || lx_contract_status);
2678: END IF;
2679:
2680: -- If error abort this contract
2681: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2683: END IF;
2684:
2685: -- get transaction if exists
2686: IF (is_debug_statement_on) THEN
2687: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_BTCH_EXP_LEASE_LOAN_PVT.get_trn_rec');
2688: END IF;
2689: OKL_AM_BTCH_EXP_LEASE_LOAN_PVT.get_trn_rec(
2690: p_contract_id => p_term_rec.p_contract_id,
2691: x_return_status => l_return_status,
2691: x_return_status => l_return_status,
2692: x_trn_exists => l_trn_exists,
2693: x_tcnv_rec => lp_tcnv_rec);
2694: IF (is_debug_statement_on) THEN
2695: 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);
2696: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_trn_exists : ' || l_trn_exists);
2697: END IF;
2698:
2699: -- if error then abort this contract
2692: x_trn_exists => l_trn_exists,
2693: x_tcnv_rec => lp_tcnv_rec);
2694: IF (is_debug_statement_on) THEN
2695: 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);
2696: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_trn_exists : ' || l_trn_exists);
2697: END IF;
2698:
2699: -- if error then abort this contract
2700: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2710:
2711: x_return_status := l_return_status;
2712: x_can_terminate := l_can_terminate;
2713: IF (is_debug_procedure_on) THEN
2714: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
2715: END IF;
2716: EXCEPTION
2717:
2718: WHEN G_EXCEPTION_HALT THEN
2716: EXCEPTION
2717:
2718: WHEN G_EXCEPTION_HALT THEN
2719: IF (is_debug_exception_on) THEN
2720: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_HALT');
2721: END IF;
2722: x_return_status := OKL_API.G_RET_STS_ERROR;
2723: x_can_terminate := 'N';
2724:
2723: x_can_terminate := 'N';
2724:
2725: WHEN OTHERS THEN
2726: IF (is_debug_exception_on) THEN
2727: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
2728: || sqlcode || ' , SQLERRM : ' || sqlerrm);
2729: END IF;
2730: x_return_status := OKL_API.G_RET_STS_ERROR;
2731: x_can_terminate := 'N';
2782: l_can_terminate VARCHAR2(1) := 'Y';
2783: lp_term_rec term_rec_type := p_term_rec;
2784: --l_accepted_qte_rec l_accepted_qte_csr%ROWTYPE;
2785: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'lease_loan_termination';
2786: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2787: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2788: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2789:
2790: -- RMUNJULU Bug # 2484327 : To get the value of the quote whether partial yn
2783: lp_term_rec term_rec_type := p_term_rec;
2784: --l_accepted_qte_rec l_accepted_qte_csr%ROWTYPE;
2785: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'lease_loan_termination';
2786: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2787: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2788: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2789:
2790: -- RMUNJULU Bug # 2484327 : To get the value of the quote whether partial yn
2791: l_partial_yn VARCHAR2(1) := 'N';
2784: --l_accepted_qte_rec l_accepted_qte_csr%ROWTYPE;
2785: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'lease_loan_termination';
2786: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2787: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2788: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2789:
2790: -- RMUNJULU Bug # 2484327 : To get the value of the quote whether partial yn
2791: l_partial_yn VARCHAR2(1) := 'N';
2792:
2798: l_service_integration_needed VARCHAR2(3) := 'N';
2799:
2800: BEGIN
2801: IF (is_debug_procedure_on) THEN
2802: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2803: END IF;
2804: IF (is_debug_statement_on) THEN
2805: 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);
2806: 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);
2801: IF (is_debug_procedure_on) THEN
2802: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2803: END IF;
2804: IF (is_debug_statement_on) THEN
2805: 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);
2806: 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);
2807: 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);
2808: 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);
2809: 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);
2802: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
2803: END IF;
2804: IF (is_debug_statement_on) THEN
2805: 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);
2806: 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);
2807: 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);
2808: 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);
2809: 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);
2810: 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);
2803: END IF;
2804: IF (is_debug_statement_on) THEN
2805: 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);
2806: 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);
2807: 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);
2808: 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);
2809: 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);
2810: 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);
2811: 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);
2804: IF (is_debug_statement_on) THEN
2805: 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);
2806: 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);
2807: 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);
2808: 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);
2809: 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);
2810: 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);
2811: 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);
2812: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.qte_id: '||p_tcnv_rec.qte_id);
2805: 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);
2806: 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);
2807: 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);
2808: 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);
2809: 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);
2810: 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);
2811: 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);
2812: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.qte_id: '||p_tcnv_rec.qte_id);
2813: END IF;
2806: 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);
2807: 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);
2808: 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);
2809: 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);
2810: 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);
2811: 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);
2812: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.qte_id: '||p_tcnv_rec.qte_id);
2813: END IF;
2814:
2807: 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);
2808: 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);
2809: 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);
2810: 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);
2811: 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);
2812: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.qte_id: '||p_tcnv_rec.qte_id);
2813: END IF;
2814:
2815: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2808: 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);
2809: 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);
2810: 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);
2811: 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);
2812: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.qte_id: '||p_tcnv_rec.qte_id);
2813: END IF;
2814:
2815: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2816:
2827: p_term_rec => lp_term_rec,
2828: x_tcnv_rec => l_tcnv_rec,
2829: x_can_terminate => l_can_terminate);
2830: IF (is_debug_statement_on) THEN
2831: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called process_non_batch , return status: ' || l_return_status);
2832: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_can_terminate : ' || l_can_terminate);
2833: END IF;
2834:
2835:
2828: x_tcnv_rec => l_tcnv_rec,
2829: x_can_terminate => l_can_terminate);
2830: IF (is_debug_statement_on) THEN
2831: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called process_non_batch , return status: ' || l_return_status);
2832: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_can_terminate : ' || l_can_terminate);
2833: END IF;
2834:
2835:
2836: -- If error abort this contract
2854: x_msg_data => x_msg_data,
2855: p_term_rec => lp_term_rec,
2856: x_lease_loan_type => l_lease_or_loan);
2857: IF (is_debug_statement_on) THEN
2858: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called check_lease_loan_type , return status: ' || l_return_status);
2859: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_lease_or_loan : ' || l_lease_or_loan);
2860: END IF;
2861:
2862:
2855: p_term_rec => lp_term_rec,
2856: x_lease_loan_type => l_lease_or_loan);
2857: IF (is_debug_statement_on) THEN
2858: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called check_lease_loan_type , return status: ' || l_return_status);
2859: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_lease_or_loan : ' || l_lease_or_loan);
2860: END IF;
2861:
2862:
2863:
2919: -- Get accepted quote with no trn if exists for contract
2920: -- *****************
2921:
2922: IF (is_debug_statement_on) THEN
2923: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_UTIL_PVT.get_non_trn_contract_quotes');
2924: END IF;
2925: -- Get accepted quote for contract with no trn
2926: OKL_AM_UTIL_PVT.get_non_trn_contract_quotes (
2927: p_khr_id => lp_term_rec.p_contract_id,
2927: p_khr_id => lp_term_rec.p_contract_id,
2928: x_quote_tbl => lx_quote_tbl,
2929: x_return_status => l_return_status);
2930: IF (is_debug_statement_on) THEN
2931: 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);
2932: END IF;
2933:
2934: -- Check the return status
2935: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2952: -- RMUNJULU 18-DEC-02 2484327 -- END --
2953:
2954:
2955: IF (is_debug_statement_on) THEN
2956: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'setting okc org context');
2957: END IF;
2958: -- RMUNJULU 02-JAN-03 2699412 Set the okc context
2959: OKL_CONTEXT.set_okc_org_context(p_chr_id => lp_term_rec.p_contract_id);
2960:
2960:
2961: -- ++++++++++++++++++++ service contract integration begin ++++++++++++++++++
2962:
2963: IF (is_debug_statement_on) THEN
2964: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling check_service_k_int_needed');
2965: END IF;
2966: -- RMUNJULU 3061751 27-AUG-2003
2967: -- Checks and sets service_integration_needed flag
2968: -- Need to do this before lines terminated else will not know
2973: p_tcnv_rec => l_tcnv_rec,
2974: p_partial_yn => l_partial_yn,
2975: p_source => 'TERMINATION');
2976: IF (is_debug_statement_on) THEN
2977: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called check_service_k_int_needed');
2978: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_service_integration_needed : ' || l_service_integration_needed);
2979: END IF;
2980:
2981: -- +++++++++++++++++++++ service contract integration end ++++++++++++++++++
2974: p_partial_yn => l_partial_yn,
2975: p_source => 'TERMINATION');
2976: IF (is_debug_statement_on) THEN
2977: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called check_service_k_int_needed');
2978: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_service_integration_needed : ' || l_service_integration_needed);
2979: END IF;
2980:
2981: -- +++++++++++++++++++++ service contract integration end ++++++++++++++++++
2982:
2992: l_partial_yn := check_true_partial_quote_yn( -- rmunjulu 4997075
2993: p_quote_id => lp_term_rec.p_quote_id,
2994: p_contract_id => lp_term_rec.p_contract_id);
2995: IF (is_debug_statement_on) THEN
2996: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called check_true_partial_quote_yn');
2997: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_partial_yn : ' || l_partial_yn);
2998: END IF;
2999: END IF;
3000:
2993: p_quote_id => lp_term_rec.p_quote_id,
2994: p_contract_id => lp_term_rec.p_contract_id);
2995: IF (is_debug_statement_on) THEN
2996: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called check_true_partial_quote_yn');
2997: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_partial_yn : ' || l_partial_yn);
2998: END IF;
2999: END IF;
3000:
3001: -- Call the lease/loan termination api
3001: -- Call the lease/loan termination api
3002: IF (l_partial_yn = 'Y') THEN
3003:
3004: IF (is_debug_statement_on) THEN
3005: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_CNTRCT_LN_TRMNT_PVT.asset_level_termination');
3006: END IF;
3007:
3008: OKL_AM_CNTRCT_LN_TRMNT_PVT.asset_level_termination(
3009: p_api_version => p_api_version,
3013: x_msg_count => x_msg_count,
3014: x_msg_data => x_msg_data,
3015: x_return_status => l_return_status);
3016: IF (is_debug_statement_on) THEN
3017: 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);
3018: END IF;
3019:
3020: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3021: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3025:
3026: ELSIF (l_lease_or_loan = 'LEASE') THEN
3027:
3028: IF (is_debug_statement_on) THEN
3029: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_LEASE_TRMNT_PVT.lease_termination');
3030: END IF;
3031: OKL_AM_LEASE_TRMNT_PVT.lease_termination(
3032: p_api_version => p_api_version,
3033: p_init_msg_list => p_init_msg_list,
3036: x_msg_data => x_msg_data,
3037: p_term_rec => lp_term_rec,
3038: p_tcnv_rec => l_tcnv_rec);
3039: IF (is_debug_statement_on) THEN
3040: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_LEASE_TRMNT_PVT.lease_termination , return status: ' || l_return_status);
3041: END IF;
3042:
3043: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3044: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3048:
3049: ELSIF (l_lease_or_loan = 'LOAN') THEN
3050:
3051: IF (is_debug_statement_on) THEN
3052: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_LOAN_TRMNT_PVT.loan_termination');
3053: END IF;
3054: OKL_AM_LOAN_TRMNT_PVT.loan_termination(
3055: p_api_version => p_api_version,
3056: p_init_msg_list => p_init_msg_list,
3059: x_msg_data => x_msg_data,
3060: p_term_rec => lp_term_rec,
3061: p_tcnv_rec => l_tcnv_rec);
3062: IF (is_debug_statement_on) THEN
3063: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_LOAN_TRMNT_PVT.loan_termination , return status: ' || l_return_status);
3064: END IF;
3065:
3066: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3067: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3104: p_term_rec => lp_term_rec,
3105: p_source => 'TERMINATION',
3106: p_service_integration_needed => l_service_integration_needed);
3107: IF (is_debug_statement_on) THEN
3108: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called service_k_integration');
3109: END IF;
3110:
3111: -- +++++++++++++++++++++ service contract integration end ++++++++++++++++++
3112:
3111: -- +++++++++++++++++++++ service contract integration end ++++++++++++++++++
3112:
3113: x_return_status := l_return_status;
3114: IF (is_debug_procedure_on) THEN
3115: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
3116: END IF;
3117:
3118: EXCEPTION
3119:
3118: EXCEPTION
3119:
3120: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3121: IF (is_debug_exception_on) THEN
3122: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
3123: END IF;
3124:
3125: -- RMUNJULU 18-DEC-02 2484327
3126: IF l_qte_csr%ISOPEN THEN
3130: x_return_status := OKL_API.G_RET_STS_ERROR;
3131:
3132: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3133: IF (is_debug_exception_on) THEN
3134: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
3135: END IF;
3136:
3137: -- RMUNJULU 18-DEC-02 2484327
3138: IF l_qte_csr%ISOPEN THEN
3143: x_return_status :=OKL_API.G_RET_STS_UNEXP_ERROR;
3144:
3145: WHEN OTHERS THEN
3146: IF (is_debug_exception_on) THEN
3147: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
3148: || sqlcode || ' , SQLERRM : ' || sqlerrm);
3149: END IF;
3150:
3151: -- RMUNJULU 18-DEC-02 2484327
3184: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3185: l_api_version CONSTANT NUMBER := 1;
3186: l_api_name CONSTANT VARCHAR2(30) := 'lease_loan_termination';
3187: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'lease_loan_termination';
3188: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3189: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3190: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3191: BEGIN
3192: IF (is_debug_procedure_on) THEN
3185: l_api_version CONSTANT NUMBER := 1;
3186: l_api_name CONSTANT VARCHAR2(30) := 'lease_loan_termination';
3187: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'lease_loan_termination';
3188: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3189: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3190: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3191: BEGIN
3192: IF (is_debug_procedure_on) THEN
3193: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
3186: l_api_name CONSTANT VARCHAR2(30) := 'lease_loan_termination';
3187: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'lease_loan_termination';
3188: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3189: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3190: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3191: BEGIN
3192: IF (is_debug_procedure_on) THEN
3193: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
3194: END IF;
3189: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3190: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3191: BEGIN
3192: IF (is_debug_procedure_on) THEN
3193: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
3194: END IF;
3195:
3196: --Check API version, initialize message list and create savepoint.
3197: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3227: x_msg_data => x_msg_data,
3228: p_term_rec => p_term_tbl(i),
3229: p_tcnv_rec => p_tcnv_tbl(i));
3230: IF (is_debug_statement_on) THEN
3231: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called lease_loan_termination , return status: ' || l_return_status);
3232: END IF;
3233:
3234: -- rollback if terminating contract failed
3235: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3248:
3249: -- end the transaction
3250: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3251: IF (is_debug_procedure_on) THEN
3252: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
3253: END IF;
3254: EXCEPTION
3255: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3256: IF (is_debug_exception_on) THEN
3253: END IF;
3254: EXCEPTION
3255: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3256: IF (is_debug_exception_on) THEN
3257: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
3258: END IF;
3259:
3260: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3261: (
3267: '_PVT'
3268: );
3269: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3270: IF (is_debug_exception_on) THEN
3271: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
3272: END IF;
3273:
3274: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3275: (
3281: '_PVT'
3282: );
3283: WHEN OTHERS THEN
3284: IF (is_debug_exception_on) THEN
3285: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
3286: || sqlcode || ' , SQLERRM : ' || sqlerrm);
3287: END IF;
3288:
3289: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3323: l_accpt DATE;
3324:
3325: l_trn_date DATE;
3326: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_set_quote_dates';
3327: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3328: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3329: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3330:
3331: BEGIN
3324:
3325: l_trn_date DATE;
3326: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_set_quote_dates';
3327: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3328: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3329: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3330:
3331: BEGIN
3332: IF (is_debug_procedure_on) THEN
3325: l_trn_date DATE;
3326: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_set_quote_dates';
3327: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3328: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3329: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3330:
3331: BEGIN
3332: IF (is_debug_procedure_on) THEN
3333: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
3329: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3330:
3331: BEGIN
3332: IF (is_debug_procedure_on) THEN
3333: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
3334: END IF;
3335: IF (is_debug_statement_on) THEN
3336: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_qte_id: '|| p_qte_id);
3337: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trn_date: '|| p_trn_date);
3332: IF (is_debug_procedure_on) THEN
3333: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
3334: END IF;
3335: IF (is_debug_statement_on) THEN
3336: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_qte_id: '|| p_qte_id);
3337: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trn_date: '|| p_trn_date);
3338: END IF;
3339:
3340: x_return_status := OKL_API.g_ret_sts_success;
3333: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
3334: END IF;
3335: IF (is_debug_statement_on) THEN
3336: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_qte_id: '|| p_qte_id);
3337: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trn_date: '|| p_trn_date);
3338: END IF;
3339:
3340: x_return_status := OKL_API.g_ret_sts_success;
3341:
3366: END IF;
3367:
3368: END IF;
3369: IF (is_debug_procedure_on) THEN
3370: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
3371: END IF;
3372:
3373: EXCEPTION
3374:
3373: EXCEPTION
3374:
3375: WHEN OTHERS THEN
3376: IF (is_debug_exception_on) THEN
3377: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
3378: || sqlcode || ' , SQLERRM : ' || sqlerrm);
3379: END IF;
3380:
3381: x_return_status := OKL_API.g_ret_sts_error;
3429: l_date_accepted DATE;
3430: l_subsidy_end_date DATE;
3431: l_contract_end_date DATE;
3432: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_discount_subsidy';
3433: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3434: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3435: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3436: /* sosharma 12-jan-2007
3437: Build: R12
3430: l_subsidy_end_date DATE;
3431: l_contract_end_date DATE;
3432: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_discount_subsidy';
3433: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3434: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3435: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3436: /* sosharma 12-jan-2007
3437: Build: R12
3438: declared table of type okl_tpl_pvt.tplv_tbl_type to be passed as an input to the
3431: l_contract_end_date DATE;
3432: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_discount_subsidy';
3433: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3434: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3435: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3436: /* sosharma 12-jan-2007
3437: Build: R12
3438: declared table of type okl_tpl_pvt.tplv_tbl_type to be passed as an input to the
3439: OKL_CREATE_DISB_TRANS_PVT. create_disb_trx
3629: p_dbseqid IN OUT NOCOPY NUMBER
3630: ) RETURN NUMBER IS
3631: l_row_notfound BOOLEAN := TRUE;
3632: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_invoice_number';
3633: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3634: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3635: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3636: BEGIN
3637: IF (is_debug_procedure_on) THEN
3630: ) RETURN NUMBER IS
3631: l_row_notfound BOOLEAN := TRUE;
3632: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_invoice_number';
3633: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3634: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3635: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3636: BEGIN
3637: IF (is_debug_procedure_on) THEN
3638: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
3631: l_row_notfound BOOLEAN := TRUE;
3632: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_invoice_number';
3633: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3634: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3635: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3636: BEGIN
3637: IF (is_debug_procedure_on) THEN
3638: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
3639: END IF;
3634: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3635: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3636: BEGIN
3637: IF (is_debug_procedure_on) THEN
3638: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
3639: END IF;
3640: IF (is_debug_statement_on) THEN
3641: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_app_id: '|| p_app_id);
3642: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_cat_code: '|| p_cat_code);
3637: IF (is_debug_procedure_on) THEN
3638: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
3639: END IF;
3640: IF (is_debug_statement_on) THEN
3641: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_app_id: '|| p_app_id);
3642: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_cat_code: '|| p_cat_code);
3643: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_sob_id: '|| p_sob_id);
3644: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_met_code: '|| p_met_code);
3645: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trx_date: '|| p_trx_date);
3638: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
3639: END IF;
3640: IF (is_debug_statement_on) THEN
3641: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_app_id: '|| p_app_id);
3642: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_cat_code: '|| p_cat_code);
3643: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_sob_id: '|| p_sob_id);
3644: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_met_code: '|| p_met_code);
3645: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trx_date: '|| p_trx_date);
3646: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_dbseqnum: '|| p_dbseqnum);
3639: END IF;
3640: IF (is_debug_statement_on) THEN
3641: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_app_id: '|| p_app_id);
3642: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_cat_code: '|| p_cat_code);
3643: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_sob_id: '|| p_sob_id);
3644: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_met_code: '|| p_met_code);
3645: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trx_date: '|| p_trx_date);
3646: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_dbseqnum: '|| p_dbseqnum);
3647: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_dbseqid: '|| p_dbseqid);
3640: IF (is_debug_statement_on) THEN
3641: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_app_id: '|| p_app_id);
3642: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_cat_code: '|| p_cat_code);
3643: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_sob_id: '|| p_sob_id);
3644: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_met_code: '|| p_met_code);
3645: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trx_date: '|| p_trx_date);
3646: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_dbseqnum: '|| p_dbseqnum);
3647: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_dbseqid: '|| p_dbseqid);
3648: END IF;
3641: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_app_id: '|| p_app_id);
3642: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_cat_code: '|| p_cat_code);
3643: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_sob_id: '|| p_sob_id);
3644: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_met_code: '|| p_met_code);
3645: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trx_date: '|| p_trx_date);
3646: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_dbseqnum: '|| p_dbseqnum);
3647: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_dbseqid: '|| p_dbseqid);
3648: END IF;
3649: l_tapv_rec.Invoice_Number := fnd_seqnum.get_next_sequence
3642: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_cat_code: '|| p_cat_code);
3643: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_sob_id: '|| p_sob_id);
3644: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_met_code: '|| p_met_code);
3645: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trx_date: '|| p_trx_date);
3646: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_dbseqnum: '|| p_dbseqnum);
3647: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_dbseqid: '|| p_dbseqid);
3648: END IF;
3649: l_tapv_rec.Invoice_Number := fnd_seqnum.get_next_sequence
3650: (appid => p_app_id,
3643: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_sob_id: '|| p_sob_id);
3644: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_met_code: '|| p_met_code);
3645: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trx_date: '|| p_trx_date);
3646: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_dbseqnum: '|| p_dbseqnum);
3647: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_dbseqid: '|| p_dbseqid);
3648: END IF;
3649: l_tapv_rec.Invoice_Number := fnd_seqnum.get_next_sequence
3650: (appid => p_app_id,
3651: cat_code => p_cat_code,
3654: trx_date => p_trx_date,
3655: dbseqnm => p_dbseqnum,
3656: dbseqid => p_dbseqid);
3657: IF (is_debug_procedure_on) THEN
3658: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
3659: END IF;
3660: IF (is_debug_statement_on) THEN
3661: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Returning l_tapv_rec.Invoice_Number: '||l_tapv_rec.Invoice_Number);
3662: END IF;
3657: IF (is_debug_procedure_on) THEN
3658: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
3659: END IF;
3660: IF (is_debug_statement_on) THEN
3661: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Returning l_tapv_rec.Invoice_Number: '||l_tapv_rec.Invoice_Number);
3662: END IF;
3663: RETURN l_tapv_rec.Invoice_Number;
3664:
3665: EXCEPTION
3664:
3665: EXCEPTION
3666: WHEN OTHERS THEN
3667: IF (is_debug_exception_on) THEN
3668: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
3669: || sqlcode || ' , SQLERRM : ' || sqlerrm);
3670: END IF;
3671: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
3672: p_msg_name => 'OKL_UNEXPECTED_ERROR',
3676: p_token2_value => SQLERRM);
3677: END get_invoice_number;
3678: BEGIN
3679: IF (is_debug_procedure_on) THEN
3680: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
3681: END IF;
3682: IF (is_debug_statement_on) THEN
3683: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_call_origin: '|| p_call_origin);
3684: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_termination_date: '|| p_termination_date);
3679: IF (is_debug_procedure_on) THEN
3680: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
3681: END IF;
3682: IF (is_debug_statement_on) THEN
3683: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_call_origin: '|| p_call_origin);
3684: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_termination_date: '|| p_termination_date);
3685: 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);
3686: 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);
3687: 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);
3680: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
3681: END IF;
3682: IF (is_debug_statement_on) THEN
3683: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_call_origin: '|| p_call_origin);
3684: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_termination_date: '|| p_termination_date);
3685: 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);
3686: 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);
3687: 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);
3688: 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);
3681: END IF;
3682: IF (is_debug_statement_on) THEN
3683: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_call_origin: '|| p_call_origin);
3684: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_termination_date: '|| p_termination_date);
3685: 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);
3686: 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);
3687: 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);
3688: 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);
3689: 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);
3682: IF (is_debug_statement_on) THEN
3683: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_call_origin: '|| p_call_origin);
3684: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_termination_date: '|| p_termination_date);
3685: 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);
3686: 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);
3687: 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);
3688: 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);
3689: 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);
3690: 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);
3683: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_call_origin: '|| p_call_origin);
3684: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_termination_date: '|| p_termination_date);
3685: 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);
3686: 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);
3687: 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);
3688: 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);
3689: 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);
3690: 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);
3691: 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);
3684: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_termination_date: '|| p_termination_date);
3685: 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);
3686: 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);
3687: 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);
3688: 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);
3689: 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);
3690: 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);
3691: 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);
3692: END IF;
3685: 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);
3686: 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);
3687: 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);
3688: 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);
3689: 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);
3690: 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);
3691: 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);
3692: END IF;
3693: --Check API version, initialize message list and create savepoint.
3686: 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);
3687: 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);
3688: 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);
3689: 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);
3690: 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);
3691: 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);
3692: END IF;
3693: --Check API version, initialize message list and create savepoint.
3694: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3687: 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);
3688: 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);
3689: 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);
3690: 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);
3691: 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);
3692: END IF;
3693: --Check API version, initialize message list and create savepoint.
3694: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3695: G_PKG_NAME,
3735: -- Determine call origin
3736: IF p_call_origin = 'PARTIAL' THEN -- [1]
3737:
3738: IF (is_debug_statement_on) THEN
3739: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_CNTRCT_LN_TRMNT_PVT.get_lines');
3740: END IF;
3741: -- get line details from OKL_AM_CNTRCT_LN_TRMNT
3742: OKL_AM_CNTRCT_LN_TRMNT_PVT.get_lines(
3743: p_term_rec => p_term_rec,
3743: p_term_rec => p_term_rec,
3744: x_klev_tbl => l_asset_tbl_l,
3745: x_return_status => l_return_status);
3746: IF (is_debug_statement_on) THEN
3747: 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);
3748: END IF;
3749:
3750: IF l_asset_tbl_l.count > 0 THEN --[2]
3751: -- populate local table
3759:
3760: ELSE -- Full Termination
3761:
3762: IF (is_debug_statement_on) THEN
3763: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_LEASE_TRMNT_PVT.get_contract_lines');
3764: END IF;
3765: -- get line details from OKL_AM_LEASE_TRMNT_PVT
3766: OKL_AM_LEASE_TRMNT_PVT.get_contract_lines(
3767: p_api_version => p_api_version,
3771: x_msg_data => l_msg_data,
3772: p_term_rec => p_term_rec,
3773: x_klev_tbl => l_asset_tbl);
3774: IF (is_debug_statement_on) THEN
3775: 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);
3776: END IF;
3777:
3778: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3779: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3788: FETCH khr_dtls_csr INTO l_scs_code;
3789: CLOSE khr_dtls_csr;
3790:
3791: IF (is_debug_statement_on) THEN
3792: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_SECURITIZATION_PVT.check_khr_ia_associated');
3793: END IF;
3794: -- rmunjulu 4622198 SPECIAL_ACCNT Get special accounting details
3795: OKL_SECURITIZATION_PVT.check_khr_ia_associated(
3796: p_api_version => l_api_version
3804: ,x_fact_synd_code => l_fact_synd_code
3805: ,x_inv_acct_code => l_inv_acct_code
3806: );
3807: IF (is_debug_statement_on) THEN
3808: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_SECURITIZATION_PVT.check_khr_ia_associated , return status: ' || l_return_status);
3809: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_fact_synd_code : ' || l_fact_synd_code);
3810: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_inv_acct_code : ' || l_inv_acct_code);
3811: END IF;
3812:
3805: ,x_inv_acct_code => l_inv_acct_code
3806: );
3807: IF (is_debug_statement_on) THEN
3808: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_SECURITIZATION_PVT.check_khr_ia_associated , return status: ' || l_return_status);
3809: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_fact_synd_code : ' || l_fact_synd_code);
3810: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_inv_acct_code : ' || l_inv_acct_code);
3811: END IF;
3812:
3813: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3806: );
3807: IF (is_debug_statement_on) THEN
3808: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_SECURITIZATION_PVT.check_khr_ia_associated , return status: ' || l_return_status);
3809: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_fact_synd_code : ' || l_fact_synd_code);
3810: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_inv_acct_code : ' || l_inv_acct_code);
3811: END IF;
3812:
3813: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3814: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3829: --for TER_RELEASE_WO_PURCHASE
3830: IF p_term_rec.p_quote_type = 'TER_RELEASE_WO_PURCHASE'
3831: THEN
3832: IF (is_debug_statement_on) THEN
3833: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_SUBSIDY_PROCESS_PVT.GET_RELK_TERMN_BASIS');
3834: END IF;
3835: OKL_SUBSIDY_PROCESS_PVT.GET_RELK_TERMN_BASIS(
3836: p_api_version => p_api_version,
3837: p_init_msg_list => OKL_API.G_FALSE,
3841: p_chr_id => p_term_rec.p_contract_id,
3842: p_subsidy_id => l_sub_rec.subsidy_line_id,
3843: x_release_basis => l_release_basis);
3844: IF (is_debug_statement_on) THEN
3845: 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);
3846: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_release_basis : ' || l_release_basis);
3847: END IF;
3848:
3849: IF l_sub_rec.accounting_method_code = 'AMORTIZE'
3842: p_subsidy_id => l_sub_rec.subsidy_line_id,
3843: x_release_basis => l_release_basis);
3844: IF (is_debug_statement_on) THEN
3845: 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);
3846: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_release_basis : ' || l_release_basis);
3847: END IF;
3848:
3849: IF l_sub_rec.accounting_method_code = 'AMORTIZE'
3850: THEN
3851: IF l_release_basis = 'ACCELERATE'
3852: THEN
3853:
3854: IF (is_debug_statement_on) THEN
3855: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_STREAMS_UTIL.get_dependent_stream_type');
3856: END IF;
3857: -- SECHAWLA 29-DEC-05 4911502 : moved from above : begin
3858: -- rmunjulu 4399352 Added the following for bug 4399352 - start
3859: OKL_STREAMS_UTIL.get_dependent_stream_type(
3862: p_dependent_sty_purpose => 'SUBSIDY_INCOME',
3863: x_return_status => l_return_status,
3864: x_dependent_sty_id => l_accrual_sty_id);
3865: IF (is_debug_statement_on) THEN
3866: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_STREAMS_UTIL.get_dependent_stream_type , return status : ' || l_return_status);
3867: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_accrual_sty_id : ' || l_accrual_sty_id);
3868: END IF;
3869:
3870: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3863: x_return_status => l_return_status,
3864: x_dependent_sty_id => l_accrual_sty_id);
3865: IF (is_debug_statement_on) THEN
3866: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_STREAMS_UTIL.get_dependent_stream_type , return status : ' || l_return_status);
3867: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_accrual_sty_id : ' || l_accrual_sty_id);
3868: END IF;
3869:
3870: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3871: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3950: --Accelerate Income Recognization
3951: -- akrangan for bug 5669097 start
3952: IF v_flag ='N' THEN
3953: IF (is_debug_statement_on) THEN
3954: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals');
3955: END IF;
3956: -- akrangan for bug 5669097 End
3957: OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals (
3958: p_api_version => p_api_version,
3962: x_msg_data => l_msg_data,
3963: p_acceleration_rec => l_acceleration_rec,
3964: x_trx_number => l_trx_number);
3965: IF (is_debug_statement_on) THEN
3966: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals , return status : ' || l_return_status);
3967: END IF;
3968:
3969: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3970: OKL_API.set_message(
3990: p_dependent_sty_purpose => 'SUBSIDY_INCOME',
3991: x_return_status => l_return_status,
3992: x_dependent_sty_id => l_accrual_sty_id_rep);
3993: IF (is_debug_statement_on) THEN
3994: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_STREAMS_UTIL.get_dependent_stream_type , return status : ' || l_return_status);
3995: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_accrual_sty_id_rep : ' || l_accrual_sty_id_rep);
3996: END IF;
3997:
3998: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
3991: x_return_status => l_return_status,
3992: x_dependent_sty_id => l_accrual_sty_id_rep);
3993: IF (is_debug_statement_on) THEN
3994: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_STREAMS_UTIL.get_dependent_stream_type , return status : ' || l_return_status);
3995: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_accrual_sty_id_rep : ' || l_accrual_sty_id_rep);
3996: END IF;
3997:
3998: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
3999: l_acceleration_rec.sty_id := l_accrual_sty_id_rep;
4010: x_trx_number => l_trx_number);
4011: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
4012:
4013: IF (is_debug_statement_on) THEN
4014: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals , return status : ' || l_return_status);
4015: END IF;
4016:
4017: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4018: OKL_API.set_message(
4099: l_tapv_rec.TRY_ID := l_trx_type_ID;
4100: l_tapv_rec.AMOUNT := lx_subsidy_amount;
4101: l_tapv_rec.invoice_type := 'STANDARD';
4102: IF (is_debug_statement_on) THEN
4103: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Getting invoice number');
4104: END IF;
4105: l_tapv_rec.Invoice_number := get_invoice_number(
4106: p_app_id => l_app_id,
4107: p_cat_code =>l_document_category,
4161: Build:R12
4162: Added the call to disbursement procedure ,which is having the consolidated functionality of creating AP lines,header and AP accounting
4163: */
4164: IF (is_debug_statement_on) THEN
4165: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_CREATE_DISB_TRANS_PVT.create_disb_trx');
4166: END IF;
4167: OKL_CREATE_DISB_TRANS_PVT.create_disb_trx(p_api_version => l_api_version
4168: ,p_init_msg_list => OKL_API.G_FALSE
4169: ,x_return_status => l_return_status
4174: ,x_tapv_rec => x_tapv_rec
4175: ,x_tplv_tbl => x_tplv_tbl
4176: );
4177: IF (is_debug_statement_on) THEN
4178: 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);
4179: END IF;
4180: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4181: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4182: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4207:
4208: ELSIF l_sub_rec.accounting_method_code = 'AMORTIZE'THEN
4209:
4210: IF (is_debug_statement_on) THEN
4211: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_STREAMS_UTIL.get_dependent_stream_type');
4212: END IF;
4213: -- SECHAWLA 29-DEC-05 4911502 : added begin
4214: OKL_STREAMS_UTIL.get_dependent_stream_type(
4215: p_khr_id => p_term_rec.p_contract_id,
4217: p_dependent_sty_purpose => 'SUBSIDY_INCOME', -- ***** confirm
4218: x_return_status => l_return_status,
4219: x_dependent_sty_id => l_accrual_sty_id);
4220: IF (is_debug_statement_on) THEN
4221: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_STREAMS_UTIL.get_dependent_stream_type , return status : ' || l_return_status);
4222: END IF;
4223:
4224: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4225: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4320: IF v_flag ='N' THEN
4321: -- akrangan for bug 5669097 End
4322: -- accelerate income recognition
4323: IF (is_debug_statement_on) THEN
4324: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals');
4325: END IF;
4326: OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals (
4327: p_api_version => p_api_version,
4328: p_init_msg_list => OKL_API.G_FALSE,
4331: x_msg_data => l_msg_data,
4332: p_acceleration_rec => l_acceleration_rec,
4333: x_trx_number => l_trx_number);
4334: IF (is_debug_statement_on) THEN
4335: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals , return status : ' || l_return_status);
4336: END IF;
4337:
4338: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4339:
4361: p_dependent_sty_purpose => 'SUBSIDY_INCOME',
4362: x_return_status => l_return_status,
4363: x_dependent_sty_id => l_accrual_sty_id_rep);
4364: IF (is_debug_statement_on) THEN
4365: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_STREAMS_UTIL.get_dependent_stream_type , return status : ' || l_return_status);
4366: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_accrual_sty_id_rep : ' || l_accrual_sty_id_rep);
4367: END IF;
4368:
4369: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
4362: x_return_status => l_return_status,
4363: x_dependent_sty_id => l_accrual_sty_id_rep);
4364: IF (is_debug_statement_on) THEN
4365: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_STREAMS_UTIL.get_dependent_stream_type , return status : ' || l_return_status);
4366: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_accrual_sty_id_rep : ' || l_accrual_sty_id_rep);
4367: END IF;
4368:
4369: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
4370: l_acceleration_rec.sty_id := l_accrual_sty_id_rep;
4381: x_trx_number => l_trx_number);
4382: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
4383:
4384: IF (is_debug_statement_on) THEN
4385: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals , return status : ' || l_return_status);
4386: END IF;
4387:
4388: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4389: OKL_API.set_message(
4422: -- adagur for bug 5669097 start
4423: IF v_flag ='N' THEN
4424: -- adagur for bug 5669097 End
4425: IF (is_debug_statement_on) THEN
4426: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_GENERATE_ACCRUALS_PVT.ACCELERATE_ACCRUALS');
4427: END IF;
4428: -- accelerate income recognition
4429: OKL_GENERATE_ACCRUALS_PVT.ACCELERATE_ACCRUALS(
4430: p_api_version => p_api_version,
4434: x_msg_data => l_msg_data,
4435: p_acceleration_rec => l_acceleration_rec,
4436: x_trx_number => l_trx_number);
4437: IF (is_debug_statement_on) THEN
4438: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.ACCELERATE_ACCRUALS , return status : ' || l_return_status);
4439: END IF;
4440:
4441: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4442:
4464: p_dependent_sty_purpose => 'SUBSIDY_INCOME',
4465: x_return_status => l_return_status,
4466: x_dependent_sty_id => l_accrual_sty_id_rep);
4467: IF (is_debug_statement_on) THEN
4468: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_STREAMS_UTIL.get_dependent_stream_type , return status : ' || l_return_status);
4469: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_accrual_sty_id_rep : ' || l_accrual_sty_id_rep);
4470: END IF;
4471:
4472: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
4465: x_return_status => l_return_status,
4466: x_dependent_sty_id => l_accrual_sty_id_rep);
4467: IF (is_debug_statement_on) THEN
4468: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_STREAMS_UTIL.get_dependent_stream_type , return status : ' || l_return_status);
4469: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_accrual_sty_id_rep : ' || l_accrual_sty_id_rep);
4470: END IF;
4471:
4472: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
4473: l_acceleration_rec.sty_id := l_accrual_sty_id_rep;
4484: x_trx_number => l_trx_number);
4485: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
4486:
4487: IF (is_debug_statement_on) THEN
4488: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals , return status : ' || l_return_status);
4489: END IF;
4490:
4491: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4492: OKL_API.set_message(
4518: IF l_sub_rec.receipt_method_code = 'BILL'
4519: OR l_sub_rec.receipt_method_code = 'FUND' THEN --A/P invoice --[13]
4520:
4521: IF (is_debug_statement_on) THEN
4522: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_EXECUTE_FORMULA_PUB.execute');
4523: END IF;
4524: -- get subsidy amount
4525: OKL_EXECUTE_FORMULA_PUB.execute(
4526: p_api_version => p_api_version,
4533: p_line_id => l_asset_tbl(i).p_kle_id,
4534: p_additional_parameters => okl_execute_formula_pub.G_ADDITIONAL_PARAMETERS_NULL,
4535: x_value =>lx_subsidy_amount);
4536: IF (is_debug_statement_on) THEN
4537: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_EXECUTE_FORMULA_PUB.execute , return status : ' || l_return_status);
4538: END IF;
4539:
4540: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4541: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4609: --** SMODUGA Added for invoice generation
4610: l_tapv_rec.invoice_type := 'STANDARD';
4611: --** END SMODUGA Added for invoice generation
4612: IF (is_debug_statement_on) THEN
4613: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'Getting invoice number');
4614: END IF;
4615:
4616: l_tapv_rec.Invoice_number := get_invoice_number(
4617: p_app_id => l_app_id,
4671: Added the call to disbursement procedure ,which is having the consolidated functionality of creating AP lines,header and AP accounting
4672: */
4673: l_tplv_tbl(0):=l_tplv_rec;
4674: IF (is_debug_statement_on) THEN
4675: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_CREATE_DISB_TRANS_PVT.create_disb_trx');
4676: END IF;
4677: OKL_CREATE_DISB_TRANS_PVT.create_disb_trx(p_api_version => l_api_version
4678: ,p_init_msg_list => OKL_API.G_FALSE
4679: ,x_return_status => l_return_status
4684: ,x_tapv_rec => x_tapv_rec
4685: ,x_tplv_tbl => x_tplv_tbl
4686: );
4687: IF (is_debug_statement_on) THEN
4688: 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);
4689: END IF;
4690: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4691: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4692: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4708:
4709: -- end the transaction
4710: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4711: IF (is_debug_procedure_on) THEN
4712: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
4713: END IF;
4714: EXCEPTION
4715: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4716: IF (is_debug_exception_on) THEN
4713: END IF;
4714: EXCEPTION
4715: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4716: IF (is_debug_exception_on) THEN
4717: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
4718: END IF;
4719:
4720: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4721: (
4727: '_PVT'
4728: );
4729: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4730: IF (is_debug_exception_on) THEN
4731: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
4732: END IF;
4733:
4734: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4735: (
4741: '_PVT'
4742: );
4743: WHEN OTHERS THEN
4744: IF (is_debug_exception_on) THEN
4745: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
4746: || sqlcode || ' , SQLERRM : ' || sqlerrm);
4747: END IF;
4748:
4749: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4785: p_call_origin IN VARCHAR2 DEFAULT NULL,
4786: p_termination_date IN DATE) IS
4787:
4788: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_adjustments';
4789: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4790: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4791: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4792: l_api_name CONSTANT VARCHAR2(30) := 'process_adjustments';
4793: l_api_version CONSTANT NUMBER := 1;
4786: p_termination_date IN DATE) IS
4787:
4788: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_adjustments';
4789: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4790: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4791: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4792: l_api_name CONSTANT VARCHAR2(30) := 'process_adjustments';
4793: l_api_version CONSTANT NUMBER := 1;
4794: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS; -- rmunjulu TNA Defaulted
4787:
4788: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_adjustments';
4789: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4790: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4791: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4792: l_api_name CONSTANT VARCHAR2(30) := 'process_adjustments';
4793: l_api_version CONSTANT NUMBER := 1;
4794: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS; -- rmunjulu TNA Defaulted
4795: l_msg_count NUMBER;
4893: -- MGAAP end 7263041
4894:
4895: BEGIN
4896: IF (is_debug_procedure_on) THEN
4897: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
4898: END IF;
4899: IF (is_debug_statement_on) THEN
4900: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_call_origin: '|| p_call_origin);
4901: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_termination_date: '|| p_termination_date);
4896: IF (is_debug_procedure_on) THEN
4897: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
4898: END IF;
4899: IF (is_debug_statement_on) THEN
4900: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_call_origin: '|| p_call_origin);
4901: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_termination_date: '|| p_termination_date);
4902: 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);
4903: 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);
4904: 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);
4897: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
4898: END IF;
4899: IF (is_debug_statement_on) THEN
4900: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_call_origin: '|| p_call_origin);
4901: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_termination_date: '|| p_termination_date);
4902: 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);
4903: 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);
4904: 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);
4905: 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);
4898: END IF;
4899: IF (is_debug_statement_on) THEN
4900: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_call_origin: '|| p_call_origin);
4901: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_termination_date: '|| p_termination_date);
4902: 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);
4903: 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);
4904: 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);
4905: 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);
4906: 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);
4899: IF (is_debug_statement_on) THEN
4900: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_call_origin: '|| p_call_origin);
4901: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_termination_date: '|| p_termination_date);
4902: 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);
4903: 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);
4904: 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);
4905: 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);
4906: 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);
4907: 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);
4900: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_call_origin: '|| p_call_origin);
4901: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_termination_date: '|| p_termination_date);
4902: 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);
4903: 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);
4904: 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);
4905: 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);
4906: 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);
4907: 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);
4908: 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);
4901: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_termination_date: '|| p_termination_date);
4902: 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);
4903: 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);
4904: 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);
4905: 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);
4906: 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);
4907: 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);
4908: 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);
4909: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.id: '||p_tcnv_rec.id);
4902: 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);
4903: 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);
4904: 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);
4905: 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);
4906: 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);
4907: 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);
4908: 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);
4909: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.id: '||p_tcnv_rec.id);
4910: 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);
4903: 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);
4904: 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);
4905: 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);
4906: 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);
4907: 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);
4908: 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);
4909: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.id: '||p_tcnv_rec.id);
4910: 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);
4911: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.qte_id: '||p_tcnv_rec.qte_id);
4904: 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);
4905: 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);
4906: 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);
4907: 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);
4908: 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);
4909: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.id: '||p_tcnv_rec.id);
4910: 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);
4911: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.qte_id: '||p_tcnv_rec.qte_id);
4912: END IF;
4905: 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);
4906: 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);
4907: 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);
4908: 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);
4909: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.id: '||p_tcnv_rec.id);
4910: 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);
4911: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.qte_id: '||p_tcnv_rec.qte_id);
4912: END IF;
4913:
4906: 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);
4907: 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);
4908: 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);
4909: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.id: '||p_tcnv_rec.id);
4910: 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);
4911: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.qte_id: '||p_tcnv_rec.qte_id);
4912: END IF;
4913:
4914: l_msg_count := x_msg_count;
4907: 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);
4908: 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);
4909: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.id: '||p_tcnv_rec.id);
4910: 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);
4911: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.qte_id: '||p_tcnv_rec.qte_id);
4912: END IF;
4913:
4914: l_msg_count := x_msg_count;
4915: l_msg_data := x_msg_data;
4940: IF p_term_rec.p_quote_type = 'TER_RELEASE_WO_PURCHASE'
4941: AND p_call_origin = 'FULL'
4942: THEN
4943: IF (is_debug_statement_on) THEN
4944: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_LEASE_TRMNT_PVT.get_contract_lines');
4945: END IF;
4946: -- get line details from OKL_AM_LEASE_TRMNT_PVT
4947: OKL_AM_LEASE_TRMNT_PVT.get_contract_lines(
4948: p_api_version => p_api_version,
4952: x_msg_data => l_msg_data,
4953: p_term_rec => p_term_rec,
4954: x_klev_tbl => lx_asset_tbl);
4955: IF (is_debug_statement_on) THEN
4956: 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);
4957: END IF;
4958:
4959: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
4960: THEN
4973: l_quote_eff_date := p_termination_date;
4974: END IF;
4975:
4976: IF (is_debug_statement_on) THEN
4977: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling okl_am_util_pvt.get_transaction_id');
4978: END IF;
4979: okl_am_util_pvt.get_transaction_id (
4980: p_try_name => 'CREDIT MEMO',
4981: x_return_status => l_return_status,
4980: p_try_name => 'CREDIT MEMO',
4981: x_return_status => l_return_status,
4982: x_try_id => l_cm_try_id);
4983: IF (is_debug_statement_on) THEN
4984: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.get_transaction_id , return status : ' || l_return_status);
4985: END IF;
4986:
4987: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
4988: OR NVL (l_cm_try_id, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM
5051:
5052: l_tilv_tbl(0) := l_tilv_rec; -- Assign the line record in tilv_tbl structure
5053:
5054: IF (is_debug_statement_on) THEN
5055: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling okl_internal_billing_pvt.create_billing_trx');
5056: END IF;
5057: okl_internal_billing_pvt.create_billing_trx(p_api_version => l_api_version,
5058: p_init_msg_list => p_init_msg_list,
5059: x_return_status => x_return_status,
5065: x_taiv_rec => lx_taiv_rec,
5066: x_tilv_tbl => lx_tilv_tbl,
5067: x_tldv_tbl => lx_tldv_tbl);
5068: IF (is_debug_statement_on) THEN
5069: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_internal_billing_pvt.create_billing_trx , return status : ' || x_return_status);
5070: END IF;
5071:
5072: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5073: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5176: END IF;
5177:
5178: -- rmunjulu TNA Get the accrual adjustment streams and amounts for FEE and SERVICE lines
5179: IF (is_debug_statement_on) THEN
5180: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_ACCRUAL_SEC_PVT.Get_Accrual_Adjustment');
5181: END IF;
5182:
5183: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS; -- MGAAP 7263041
5184: OKL_ACCRUAL_SEC_PVT.Get_Accrual_Adjustment(
5191: p_line_id_tbl => l_line_id_tbl,
5192: p_adjustment_date => l_accrual_adjst_date, -- rmunjulu 4769094
5193: x_accrual_adjustment_tbl => lx_accrual_adjustment_tbl);
5194: IF (is_debug_statement_on) THEN
5195: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_ACCRUAL_SEC_PVT.Get_Accrual_Adjustment , return status : ' || l_return_status);
5196: END IF;
5197:
5198: -- rmunjulu TNA Handle return status
5199: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5249:
5250: -- rmunjulu TNA Create the accounting transactions for the accrual adjustments
5251: -- rmunjulu TNA Additional Changes -- Changed the procedure name
5252: IF (is_debug_statement_on) THEN
5253: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_GENERATE_ACCRUALS_PVT.adjust_accruals');
5254: END IF;
5255: OKL_GENERATE_ACCRUALS_PVT.adjust_accruals(
5256: p_api_version => p_api_version,
5257: p_init_msg_list => OKL_API.G_FALSE,
5261: x_trx_number => lx_trx_number,
5262: p_accrual_rec => l_accrual_rec,
5263: p_stream_tbl => l_stream_tbl);
5264: IF (is_debug_statement_on) THEN
5265: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.adjust_accruals , return status : ' || l_return_status);
5266: END IF;
5267:
5268: -- rmunjulu TNA Handle return status
5269: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5277:
5278: -- MGAAP start 7263041
5279: IF (l_multi_gaap_yn = 'Y') THEN
5280: IF (is_debug_statement_on) THEN
5281: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_ACCRUAL_SEC_PVT.Get_Accrual_Adjustment for SECONDARY');
5282: END IF;
5283:
5284: OKL_STREAMS_SEC_PVT.SET_REPO_STREAMS; -- MGAAP 7263041
5285:
5297:
5298: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS; -- MGAAP 7263041
5299:
5300: IF (is_debug_statement_on) THEN
5301: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_ACCRUAL_SEC_PVT.Get_Accrual_Adjustment , return status : ' || l_return_status);
5302: END IF;
5303:
5304: -- rmunjulu TNA Handle return status
5305: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5330:
5331: -- rmunjulu TNA Create the accounting transactions for the accrual adjustments
5332: -- rmunjulu TNA Additional Changes -- Changed the procedure name
5333: IF (is_debug_statement_on) THEN
5334: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_GENERATE_ACCRUALS_PVT.adjust_accruals');
5335: END IF;
5336: OKL_GENERATE_ACCRUALS_PVT.adjust_accruals(
5337: p_api_version => p_api_version,
5338: p_init_msg_list => OKL_API.G_FALSE,
5343: p_accrual_rec => l_accrual_rec,
5344: p_stream_tbl => l_stream_tbl,
5345: p_representation_type => 'SECONDARY'); -- MGAAP 7263041
5346: IF (is_debug_statement_on) THEN
5347: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.adjust_accruals , return status : ' || l_return_status);
5348: END IF;
5349:
5350: -- rmunjulu TNA Handle return status
5351: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5367:
5368: -- end the transaction
5369: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
5370: IF (is_debug_procedure_on) THEN
5371: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
5372: END IF;
5373: EXCEPTION
5374: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5375: IF (is_debug_exception_on) THEN
5372: END IF;
5373: EXCEPTION
5374: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5375: IF (is_debug_exception_on) THEN
5376: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
5377: END IF;
5378: -- rmunjulu TNA Close cursors in exception block
5379: IF l_qte_dtls_csr%ISOPEN THEN
5380: CLOSE l_qte_dtls_csr;
5392: '_PVT'
5393: );
5394: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5395: IF (is_debug_exception_on) THEN
5396: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
5397: END IF;
5398: -- rmunjulu TNA Close cursors in exception block
5399: IF l_qte_dtls_csr%ISOPEN THEN
5400: CLOSE l_qte_dtls_csr;
5412: '_PVT'
5413: );
5414: WHEN OTHERS THEN
5415: IF (is_debug_exception_on) THEN
5416: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
5417: || sqlcode || ' , SQLERRM : ' || sqlerrm);
5418: END IF;
5419: -- rmunjulu TNA Close cursors in exception block
5420: IF l_qte_dtls_csr%ISOPEN THEN
5453: p_call_origin IN VARCHAR2 DEFAULT NULL,
5454: p_termination_date IN DATE) IS
5455:
5456: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_loan_refunds';
5457: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5458: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5459: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5460: l_api_name CONSTANT VARCHAR2(30) := 'process_loan_refunds';
5461: l_api_version CONSTANT NUMBER := 1;
5454: p_termination_date IN DATE) IS
5455:
5456: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_loan_refunds';
5457: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5458: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5459: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5460: l_api_name CONSTANT VARCHAR2(30) := 'process_loan_refunds';
5461: l_api_version CONSTANT NUMBER := 1;
5462: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5455:
5456: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_loan_refunds';
5457: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5458: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5459: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5460: l_api_name CONSTANT VARCHAR2(30) := 'process_loan_refunds';
5461: l_api_version CONSTANT NUMBER := 1;
5462: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5463: l_msg_count NUMBER;
5496: -- ansethur 23-FEB-07 R12B Added for Billing Enhancement Project End Changes
5497:
5498: BEGIN
5499: IF (is_debug_procedure_on) THEN
5500: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
5501: END IF;
5502: IF (is_debug_statement_on) THEN
5503: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_call_origin: '|| p_call_origin);
5504: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_termination_date: '|| p_termination_date);
5499: IF (is_debug_procedure_on) THEN
5500: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
5501: END IF;
5502: IF (is_debug_statement_on) THEN
5503: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_call_origin: '|| p_call_origin);
5504: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_termination_date: '|| p_termination_date);
5505: 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);
5506: 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);
5507: 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);
5500: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
5501: END IF;
5502: IF (is_debug_statement_on) THEN
5503: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_call_origin: '|| p_call_origin);
5504: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_termination_date: '|| p_termination_date);
5505: 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);
5506: 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);
5507: 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);
5508: 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);
5501: END IF;
5502: IF (is_debug_statement_on) THEN
5503: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_call_origin: '|| p_call_origin);
5504: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_termination_date: '|| p_termination_date);
5505: 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);
5506: 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);
5507: 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);
5508: 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);
5509: 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);
5502: IF (is_debug_statement_on) THEN
5503: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_call_origin: '|| p_call_origin);
5504: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_termination_date: '|| p_termination_date);
5505: 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);
5506: 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);
5507: 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);
5508: 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);
5509: 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);
5510: 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);
5503: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_call_origin: '|| p_call_origin);
5504: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_termination_date: '|| p_termination_date);
5505: 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);
5506: 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);
5507: 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);
5508: 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);
5509: 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);
5510: 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);
5511: 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);
5504: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_termination_date: '|| p_termination_date);
5505: 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);
5506: 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);
5507: 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);
5508: 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);
5509: 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);
5510: 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);
5511: 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);
5512: END IF;
5505: 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);
5506: 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);
5507: 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);
5508: 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);
5509: 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);
5510: 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);
5511: 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);
5512: END IF;
5513:
5506: 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);
5507: 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);
5508: 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);
5509: 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);
5510: 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);
5511: 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);
5512: END IF;
5513:
5514: l_msg_count := x_msg_count;
5507: 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);
5508: 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);
5509: 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);
5510: 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);
5511: 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);
5512: END IF;
5513:
5514: l_msg_count := x_msg_count;
5515: l_msg_data := x_msg_data;
5543: END IF;
5544:
5545: -- get excess loan payment amount
5546: IF (is_debug_statement_on) THEN
5547: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_UTIL_PVT.get_excess_loan_payment');
5548: END IF;
5549: l_loan_refund_amount := OKL_AM_UTIL_PVT.get_excess_loan_payment(
5550: x_return_status => l_return_status,
5551: p_khr_id => p_term_rec.p_contract_id);
5549: l_loan_refund_amount := OKL_AM_UTIL_PVT.get_excess_loan_payment(
5550: x_return_status => l_return_status,
5551: p_khr_id => p_term_rec.p_contract_id);
5552: IF (is_debug_statement_on) THEN
5553: 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);
5554: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_loan_refund_amount : ' || l_loan_refund_amount);
5555: END IF;
5556:
5557: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5550: x_return_status => l_return_status,
5551: p_khr_id => p_term_rec.p_contract_id);
5552: IF (is_debug_statement_on) THEN
5553: 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);
5554: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_loan_refund_amount : ' || l_loan_refund_amount);
5555: END IF;
5556:
5557: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5558: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5564:
5565: IF l_loan_refund_amount <> 0 THEN
5566:
5567: IF (is_debug_statement_on) THEN
5568: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_UTIL_PVT.get_transaction_id');
5569: END IF;
5570: OKL_AM_UTIL_PVT.get_transaction_id (
5571: p_try_name => 'CREDIT MEMO',
5572: x_return_status => l_return_status,
5571: p_try_name => 'CREDIT MEMO',
5572: x_return_status => l_return_status,
5573: x_try_id => l_cm_try_id);
5574: IF (is_debug_statement_on) THEN
5575: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.get_transaction_id , return status : ' || l_return_status);
5576: END IF;
5577:
5578: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
5579: OR NVL (l_cm_try_id, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM
5590:
5591: l_functional_currency_code := OKL_AM_UTIL_PVT.get_functional_currency();
5592:
5593: IF (is_debug_statement_on) THEN
5594: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_ACCOUNTING_UTIL.convert_to_functional_currency');
5595: END IF;
5596: -- Get the currency conversion details from ACCOUNTING_Util
5597: OKL_ACCOUNTING_UTIL.convert_to_functional_currency(
5598: p_khr_id => p_term_rec.p_contract_id,
5605: x_currency_conversion_rate => l_currency_conversion_rate,
5606: x_currency_conversion_date => l_currency_conversion_date,
5607: x_converted_amount => l_converted_amount);
5608: IF (is_debug_statement_on) THEN
5609: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_ACCOUNTING_UTIL.convert_to_functional_currency , return status : ' || l_return_status);
5610: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_contract_currency_code : ' || l_contract_currency_code);
5611: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_currency_conversion_type : ' || l_currency_conversion_type);
5612: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_currency_conversion_rate : ' || l_currency_conversion_rate);
5613: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_currency_conversion_date : ' || l_currency_conversion_date);
5606: x_currency_conversion_date => l_currency_conversion_date,
5607: x_converted_amount => l_converted_amount);
5608: IF (is_debug_statement_on) THEN
5609: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_ACCOUNTING_UTIL.convert_to_functional_currency , return status : ' || l_return_status);
5610: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_contract_currency_code : ' || l_contract_currency_code);
5611: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_currency_conversion_type : ' || l_currency_conversion_type);
5612: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_currency_conversion_rate : ' || l_currency_conversion_rate);
5613: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_currency_conversion_date : ' || l_currency_conversion_date);
5614: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_converted_amount : ' || l_converted_amount);
5607: x_converted_amount => l_converted_amount);
5608: IF (is_debug_statement_on) THEN
5609: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_ACCOUNTING_UTIL.convert_to_functional_currency , return status : ' || l_return_status);
5610: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_contract_currency_code : ' || l_contract_currency_code);
5611: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_currency_conversion_type : ' || l_currency_conversion_type);
5612: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_currency_conversion_rate : ' || l_currency_conversion_rate);
5613: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_currency_conversion_date : ' || l_currency_conversion_date);
5614: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_converted_amount : ' || l_converted_amount);
5615: END IF;
5608: IF (is_debug_statement_on) THEN
5609: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_ACCOUNTING_UTIL.convert_to_functional_currency , return status : ' || l_return_status);
5610: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_contract_currency_code : ' || l_contract_currency_code);
5611: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_currency_conversion_type : ' || l_currency_conversion_type);
5612: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_currency_conversion_rate : ' || l_currency_conversion_rate);
5613: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_currency_conversion_date : ' || l_currency_conversion_date);
5614: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_converted_amount : ' || l_converted_amount);
5615: END IF;
5616:
5609: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_ACCOUNTING_UTIL.convert_to_functional_currency , return status : ' || l_return_status);
5610: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_contract_currency_code : ' || l_contract_currency_code);
5611: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_currency_conversion_type : ' || l_currency_conversion_type);
5612: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_currency_conversion_rate : ' || l_currency_conversion_rate);
5613: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_currency_conversion_date : ' || l_currency_conversion_date);
5614: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_converted_amount : ' || l_converted_amount);
5615: END IF;
5616:
5617: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5610: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_contract_currency_code : ' || l_contract_currency_code);
5611: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_currency_conversion_type : ' || l_currency_conversion_type);
5612: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_currency_conversion_rate : ' || l_currency_conversion_rate);
5613: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_currency_conversion_date : ' || l_currency_conversion_date);
5614: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_converted_amount : ' || l_converted_amount);
5615: END IF;
5616:
5617: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5618: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5620: RAISE OKL_API.G_EXCEPTION_ERROR;
5621: END IF;
5622:
5623: IF (is_debug_statement_on) THEN
5624: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling okl_streams_util.get_dependent_stream_type');
5625: END IF;
5626: --Bug 6266134 veramach start
5627: okl_streams_util.get_dependent_stream_type(
5628: p_khr_id => p_term_rec.p_contract_id,
5632: x_dependent_sty_id => l_sty_id
5633: );
5634: --Bug 6266134 veramach end
5635: IF (is_debug_statement_on) THEN
5636: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_streams_util.get_dependent_stream_type , return status : ' || l_return_status);
5637: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_sty_id : ' || l_sty_id);
5638: END IF;
5639:
5640: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5633: );
5634: --Bug 6266134 veramach end
5635: IF (is_debug_statement_on) THEN
5636: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_streams_util.get_dependent_stream_type , return status : ' || l_return_status);
5637: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_sty_id : ' || l_sty_id);
5638: END IF;
5639:
5640: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5641: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5669:
5670: l_tilv_tbl(0) := l_tilv_rec; -- Assign the line record in tilv_tbl structure
5671:
5672: IF (is_debug_statement_on) THEN
5673: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling okl_internal_billing_pvt.create_billing_trx');
5674: END IF;
5675: okl_internal_billing_pvt.create_billing_trx(p_api_version => l_api_version,
5676: p_init_msg_list => p_init_msg_list,
5677: x_return_status => x_return_status,
5683: x_taiv_rec => lx_taiv_rec,
5684: x_tilv_tbl => lx_tilv_tbl,
5685: x_tldv_tbl => lx_tldv_tbl);
5686: IF (is_debug_statement_on) THEN
5687: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_internal_billing_pvt.create_billing_trx , return status : ' || x_return_status);
5688: END IF;
5689:
5690: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5691: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5761:
5762: -- end the transaction
5763: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
5764: IF (is_debug_procedure_on) THEN
5765: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
5766: END IF;
5767: EXCEPTION
5768: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5769: IF (is_debug_exception_on) THEN
5766: END IF;
5767: EXCEPTION
5768: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5769: IF (is_debug_exception_on) THEN
5770: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
5771: END IF;
5772:
5773: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5774: (
5780: '_PVT'
5781: );
5782: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5783: IF (is_debug_exception_on) THEN
5784: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
5785: END IF;
5786:
5787: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5788: (
5794: '_PVT'
5795: );
5796: WHEN OTHERS THEN
5797: IF (is_debug_exception_on) THEN
5798: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
5799: || sqlcode || ' , SQLERRM : ' || sqlerrm);
5800: END IF;
5801:
5802: x_return_status :=OKL_API.HANDLE_EXCEPTIONS