[Home] [Help]
42: WHERE id = p_contract_id;
43:
44: l_last_int_calc_till_date DATE;
45: l_last_sch_int_calc_date DATE;
46: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
47: l_deal_type VARCHAR2(300);
48: l_rev_rec_method VARCHAR2(300);
49: l_int_cal_basis VARCHAR2(300);
50: l_tax_owner VARCHAR2(300);
89: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_int_cal_basis: ' || l_int_cal_basis);
90: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_tax_owner: ' || l_tax_owner);
91: END IF;
92:
93: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
94: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
95: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
96: RAISE OKL_API.G_EXCEPTION_ERROR;
97: END IF;
90: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_tax_owner: ' || l_tax_owner);
91: END IF;
92:
93: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
94: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
95: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
96: RAISE OKL_API.G_EXCEPTION_ERROR;
97: END IF;
98:
91: END IF;
92:
93: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
94: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
95: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
96: RAISE OKL_API.G_EXCEPTION_ERROR;
97: END IF;
98:
99: -- only for loans check int calc
92:
93: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
94: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
95: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
96: RAISE OKL_API.G_EXCEPTION_ERROR;
97: END IF;
98:
99: -- only for loans check int calc
100: -- rmunjulu LOANS_ENHANCEMENT added condition to check for only some cases
114: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_VARIABLE_INT_UTIL_PVT.get_last_interim_int_calc_date , return status: ' || l_return_status);
115: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_last_int_calc_till_date: ' || l_last_int_calc_till_date);
116: END IF;
117:
118: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
119: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
120: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
121: RAISE OKL_API.G_EXCEPTION_ERROR;
122: END IF;
115: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_last_int_calc_till_date: ' || l_last_int_calc_till_date);
116: END IF;
117:
118: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
119: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
120: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
121: RAISE OKL_API.G_EXCEPTION_ERROR;
122: END IF;
123:
116: END IF;
117:
118: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
119: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
120: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
121: RAISE OKL_API.G_EXCEPTION_ERROR;
122: END IF;
123:
124: -- SECHAWLA 24-JAN-05 4970009 : comparing l_last_int_calc_till_date with
117:
118: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
119: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
120: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
121: RAISE OKL_API.G_EXCEPTION_ERROR;
122: END IF;
123:
124: -- SECHAWLA 24-JAN-05 4970009 : comparing l_last_int_calc_till_date with
125: -- l_last_sch_int_calc_date won't work. e.g K1 (15-Jul-04 - 14-Oct-04)
157: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_VARIABLE_INT_UTIL_PVT.get_last_sch_int_calc_date , return status: ' || l_return_status);
158: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_last_sch_int_calc_date: ' || l_last_sch_int_calc_date);
159: END IF;
160:
161: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
162: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
163: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
164: RAISE OKL_API.G_EXCEPTION_ERROR;
165: END IF;
158: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_last_sch_int_calc_date: ' || l_last_sch_int_calc_date);
159: END IF;
160:
161: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
162: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
163: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
164: RAISE OKL_API.G_EXCEPTION_ERROR;
165: END IF;
166: -- added for bug 14049528
159: END IF;
160:
161: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
162: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
163: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
164: RAISE OKL_API.G_EXCEPTION_ERROR;
165: END IF;
166: -- added for bug 14049528
167: OPEN get_contract_start_date_csr (p_contract_id);
160:
161: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
162: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
163: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
164: RAISE OKL_API.G_EXCEPTION_ERROR;
165: END IF;
166: -- added for bug 14049528
167: OPEN get_contract_start_date_csr (p_contract_id);
168: FETCH get_contract_start_date_csr INTO l_contract_start_date;
194: IF p_source = 'CREATE' THEN
195:
196: -- Termination quote cannot be created. Please process interest calculation
197: -- for contract CONTRACT_NUMBER up to the quote effective from date.
198: OKL_API.set_message (
199: p_app_name => 'OKL',
200: p_msg_name => 'OKL_AM_CREATE_TQ_RUN_INT_CALC',
201: p_token1 => 'CONTRACT_NUMBER',
202: p_token1_value => p_contract_number);
206: ELSIF p_quote_number IS NOT NULL AND p_source = 'UPDATE' THEN
207:
208: -- Quote QUOTE_NUMBER can not be accepted. Please process interest calculation
209: -- for contract CONTRACT_NUMBER up to the quote effective from date.
210: OKL_API.set_message (
211: p_app_name => 'OKL',
212: p_msg_name => 'OKL_AM_UPD_TQ_RUN_INT_CALC',
213: p_token1 => 'QUOTE_NUMBER',
214: p_token1_value => p_quote_number,
220: ELSIF p_source = 'TERMINATE' THEN
221:
222: -- Contract CONTRACT_NUMBER can not be terminated. Please process Regular Stream Billing
223: -- for contract up to the termination date TERMINATION_DATE.
224: OKL_API.set_message (
225: p_app_name => 'OKL',
226: p_msg_name => 'OKL_AM_TERMT_RUN_INT_CALC',
227: p_token1 => 'CONTRACT_NUMBER',
228: p_token1_value => p_contract_number,
244: IF p_source = 'CREATE' THEN
245:
246: -- Termination quote cannot be created. Please process interest calculation
247: -- for contract CONTRACT_NUMBER up to the quote effective from date.
248: OKL_API.set_message (
249: p_app_name => 'OKL',
250: p_msg_name => 'OKL_AM_CREATE_TQ_RUN_INT_CALC',
251: p_token1 => 'CONTRACT_NUMBER',
252: p_token1_value => p_contract_number);
256: ELSIF p_quote_number IS NOT NULL AND p_source = 'UPDATE' THEN
257:
258: -- Quote QUOTE_NUMBER can not be accepted. Please process interest calculation
259: -- for contract CONTRACT_NUMBER up to the quote effective from date.
260: OKL_API.set_message (
261: p_app_name => 'OKL',
262: p_msg_name => 'OKL_AM_UPD_TQ_RUN_INT_CALC',
263: p_token1 => 'QUOTE_NUMBER',
264: p_token1_value => p_quote_number,
270: ELSIF p_source = 'TERMINATE' THEN
271:
272: -- Contract CONTRACT_NUMBER can not be terminated. Please process Regular Stream Billing
273: -- for contract up to the termination date TERMINATION_DATE.
274: OKL_API.set_message (
275: p_app_name => 'OKL',
276: p_msg_name => 'OKL_AM_TERMT_RUN_INT_CALC',
277: p_token1 => 'CONTRACT_NUMBER',
278: p_token1_value => p_contract_number,
298: RETURN 'Y';
299:
300: EXCEPTION
301:
302: WHEN OKL_API.G_EXCEPTION_ERROR THEN
303: IF (is_debug_exception_on) THEN
304: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
305: END IF;
306: RETURN NULL;
304: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
305: END IF;
306: RETURN NULL;
307:
308: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
309: IF (is_debug_exception_on) THEN
310: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
311: END IF;
312: RETURN NULL;
316: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
317: || sqlcode || ' , SQLERRM : ' || sqlerrm);
318: END IF;
319:
320: OKL_API.set_message(
321: p_app_name => OKC_API.G_APP_NAME,
322: p_msg_name => G_UNEXPECTED_ERROR,
323: p_token1 => G_SQLCODE_TOKEN,
324: p_token1_value => SQLCODE,
381: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
382: || sqlcode || ' , SQLERRM : ' || sqlerrm);
383: END IF;
384: -- Set the oracle error message
385: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
386: p_msg_name => g_unexpected_error,
387: p_token1 => g_sqlcode_token,
388: p_token1_value => SQLCODE,
389: p_token2 => g_sqlerrm_token,
417: l_last_run NUMBER;
418: lp_tmgv_tbl OKL_TRX_MSGS_PUB.tmgv_tbl_type;
419: lx_tmgv_tbl OKL_TRX_MSGS_PUB.tmgv_tbl_type;
420:
421: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
422:
423: l_api_version CONSTANT NUMBER := 1;
424: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
425: l_msg_data VARCHAR2(2000);
420:
421: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
422:
423: l_api_version CONSTANT NUMBER := 1;
424: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
425: l_msg_data VARCHAR2(2000);
426: i NUMBER := 1;
427: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_set_tmg_run';
428: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
467: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_TRX_MSGS_PUB.update_trx_msgs');
468: END IF;
469: OKL_TRX_MSGS_PUB.update_trx_msgs (
470: p_api_version => l_api_version,
471: p_init_msg_list => OKL_API.G_FALSE,
472: x_return_status => l_return_status,
473: x_msg_count => l_msg_count,
474: x_msg_data => l_msg_data,
475: p_tmgv_tbl => lp_tmgv_tbl,
477: IF (is_debug_statement_on) THEN
478: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_TRX_MSGS_PUB.update_trx_msgs , return status: ' || l_return_status);
479: END IF;
480:
481: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
482: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
483: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
484: RAISE OKL_API.G_EXCEPTION_ERROR;
485: END IF;
478: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_TRX_MSGS_PUB.update_trx_msgs , return status: ' || l_return_status);
479: END IF;
480:
481: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
482: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
483: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
484: RAISE OKL_API.G_EXCEPTION_ERROR;
485: END IF;
486:
479: END IF;
480:
481: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
482: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
483: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
484: RAISE OKL_API.G_EXCEPTION_ERROR;
485: END IF;
486:
487: END IF;
480:
481: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
482: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
483: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
484: RAISE OKL_API.G_EXCEPTION_ERROR;
485: END IF;
486:
487: END IF;
488:
492: END IF;
493:
494: EXCEPTION
495:
496: WHEN OKL_API.G_EXCEPTION_ERROR THEN
497: IF (is_debug_exception_on) THEN
498: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
499: END IF;
500: x_return_status := OKL_API.G_RET_STS_ERROR;
496: WHEN OKL_API.G_EXCEPTION_ERROR THEN
497: IF (is_debug_exception_on) THEN
498: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
499: END IF;
500: x_return_status := OKL_API.G_RET_STS_ERROR;
501:
502: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
503: IF (is_debug_exception_on) THEN
504: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
498: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
499: END IF;
500: x_return_status := OKL_API.G_RET_STS_ERROR;
501:
502: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
503: IF (is_debug_exception_on) THEN
504: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
505: END IF;
506: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
502: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
503: IF (is_debug_exception_on) THEN
504: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
505: END IF;
506: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
507:
508: WHEN OTHERS THEN
509: IF (is_debug_exception_on) THEN
510: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
510: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
511: || sqlcode || ' , SQLERRM : ' || sqlerrm);
512: END IF;
513: -- Set the oracle error message
514: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
515: p_msg_name => g_unexpected_error,
516: p_token1 => g_sqlcode_token,
517: p_token1_value => SQLCODE,
518: p_token2 => g_sqlerrm_token,
516: p_token1 => g_sqlcode_token,
517: p_token1_value => SQLCODE,
518: p_token2 => g_sqlerrm_token,
519: p_token2_value => SQLERRM);
520: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
521:
522: END get_set_tmg_run;
523:
524:
592: IF (is_debug_statement_on) THEN
593: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_lease_asset_id: '|| p_lease_asset_id);
594: END IF;
595:
596: x_return_status := OKL_API.G_RET_STS_SUCCESS;
597:
598: -- call START_ACTIVITY to create savepoint, check compatibility
599: -- and initialize message list
600: x_return_status := OKL_API.START_ACTIVITY(
596: x_return_status := OKL_API.G_RET_STS_SUCCESS;
597:
598: -- call START_ACTIVITY to create savepoint, check compatibility
599: -- and initialize message list
600: x_return_status := OKL_API.START_ACTIVITY(
601: p_api_name => l_api_name,
602: p_pkg_name => G_PKG_NAME,
603: p_init_msg_list => p_init_msg_list,
604: l_api_version => l_api_version,
606: p_api_type => G_API_TYPE,
607: x_return_status => x_return_status);
608:
609: -- check if activity started successfully
610: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
611: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
612: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
613: raise OKL_API.G_EXCEPTION_ERROR;
614: END IF;
607: x_return_status => x_return_status);
608:
609: -- check if activity started successfully
610: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
611: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
612: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
613: raise OKL_API.G_EXCEPTION_ERROR;
614: END IF;
615:
608:
609: -- check if activity started successfully
610: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
611: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
612: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
613: raise OKL_API.G_EXCEPTION_ERROR;
614: END IF;
615:
616: -- Check if the Financial Asset is Serviced thru OKS
609: -- check if activity started successfully
610: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
611: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
612: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
613: raise OKL_API.G_EXCEPTION_ERROR;
614: END IF;
615:
616: -- Check if the Financial Asset is Serviced thru OKS
617: FOR link_rec IN link_csr(p_lease_asset_id) LOOP
623: END IF;
624: -- Get the Service Contract for the Leased Contract
625: OKL_SERVICE_INTEGRATION_PVT.check_service_link (
626: p_api_version => p_api_version,
627: p_init_msg_list => OKL_API.G_FALSE,
628: x_return_status => x_return_status,
629: x_msg_count => x_msg_count,
630: x_msg_data => x_msg_data,
631: p_lease_contract_id => l_okl_chr_id ,
636: END IF;
637:
638: x_service_contract_id := l_oks_chr_id;
639:
640: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
641: x_msg_data => x_msg_data);
642: IF (is_debug_procedure_on) THEN
643: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
644: END IF;
643: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
644: END IF;
645:
646: EXCEPTION
647: WHEN OKL_API.G_EXCEPTION_ERROR THEN
648: IF (is_debug_exception_on) THEN
649: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
650: END IF;
651: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
647: WHEN OKL_API.G_EXCEPTION_ERROR THEN
648: IF (is_debug_exception_on) THEN
649: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
650: END IF;
651: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
652: p_api_name => l_api_name,
653: p_pkg_name => G_PKG_NAME,
654: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
655: x_msg_count => x_msg_count,
655: x_msg_count => x_msg_count,
656: x_msg_data => x_msg_data,
657: p_api_type => G_API_TYPE);
658:
659: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
660: IF (is_debug_exception_on) THEN
661: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
662: END IF;
663: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
659: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
660: IF (is_debug_exception_on) THEN
661: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
662: END IF;
663: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
664: p_api_name => l_api_name,
665: p_pkg_name => G_PKG_NAME,
666: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
667: x_msg_count => x_msg_count,
672: IF (is_debug_exception_on) THEN
673: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
674: || sqlcode || ' , SQLERRM : ' || sqlerrm);
675: END IF;
676: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
677: p_api_name => l_api_name,
678: p_pkg_name => G_PKG_NAME,
679: p_exc_name => 'OTHERS',
680: x_msg_count => x_msg_count,
801: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
802: || sqlcode || ' , SQLERRM : ' || sqlerrm);
803: END IF;
804:
805: OKL_API.set_message(
806: p_app_name => OKC_API.G_APP_NAME,
807: p_msg_name => G_UNEXPECTED_ERROR,
808: p_token1 => G_SQLCODE_TOKEN,
809: p_token1_value => SQLCODE,
917: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
918: || sqlcode || ' , SQLERRM : ' || sqlerrm);
919: END IF;
920:
921: OKL_API.set_message(
922: p_app_name => OKC_API.G_APP_NAME,
923: p_msg_name => G_UNEXPECTED_ERROR,
924: p_token1 => G_SQLCODE_TOKEN,
925: p_token1_value => SQLCODE,
951:
952: l_service_integration_needed VARCHAR2(1) := 'N';
953: l_true_partial_quote VARCHAR2(1) := 'N';
954: l_oks_chr_id NUMBER;
955: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
956:
957: l_api_version CONSTANT NUMBER := 1;
958: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
959: l_msg_data VARCHAR2(2000);
954: l_oks_chr_id NUMBER;
955: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
956:
957: l_api_version CONSTANT NUMBER := 1;
958: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
959: l_msg_data VARCHAR2(2000);
960: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_service_k_int_needed';
961: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
962: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
994: -- since this procedure is called before the termination we cannot check contract is terminated or not here
995: -- so we will check that in service_k_intergration procedure.
996: -- If Recycle_YN = N
997: -- IF NVL(p_tcnv_rec.tmt_recycle_yn,'N') = 'N'
998: -- OR p_tcnv_rec.tmt_recycle_yn = OKL_API.G_MISS_CHAR THEN
999:
1000: -- Get the linked lease details
1001: IF (is_debug_statement_on) THEN
1002: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_SERVICE_INTEGRATION_PVT.check_service_link');
1002: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_SERVICE_INTEGRATION_PVT.check_service_link');
1003: END IF;
1004: OKL_SERVICE_INTEGRATION_PVT.check_service_link (
1005: p_api_version => l_api_version,
1006: p_init_msg_list => OKL_API.G_FALSE,
1007: x_return_status => l_return_status,
1008: x_msg_count => l_msg_count,
1009: x_msg_data => l_msg_data,
1010: p_lease_contract_id => p_term_rec.p_contract_id ,
1014: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_SERVICE_INTEGRATION_PVT.check_service_link , return status: ' || l_return_status);
1015: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_oks_chr_id: ' || l_oks_chr_id);
1016: END IF;
1017: -- If linked Lease
1018: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
1019: AND l_oks_chr_id IS NOT NULL THEN
1020:
1021: -- Find if Full Termination
1022: IF p_partial_yn = 'Y' THEN
1056: -- Get the linked lease details -- ***
1057: --OKL_SERVICE_INTEGRATION_PVT.check_service_link (
1058: check_service_link(
1059: p_api_version => l_api_version,
1060: p_init_msg_list => OKL_API.G_FALSE,
1061: x_return_status => l_return_status,
1062: x_msg_count => l_msg_count,
1063: x_msg_data => l_msg_data,
1064: p_lease_asset_id => p_asset_id ,
1067: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called check_service_link , l_oks_chr_id: ' || l_oks_chr_id);
1068: END IF;
1069:
1070: -- If linked Lease
1071: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
1072: AND l_oks_chr_id IS NOT NULL THEN
1073:
1074: l_service_integration_needed := 'Y';
1075:
1097: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1098: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1099: END IF;
1100:
1101: OKL_API.set_message(
1102: p_app_name => OKC_API.G_APP_NAME,
1103: p_msg_name => G_UNEXPECTED_ERROR,
1104: p_token1 => G_SQLCODE_TOKEN,
1105: p_token1_value => SQLCODE,
1142: SELECT SYP.delink_yn
1143: FROM OKL_SYSTEM_PARAMS SYP;
1144:
1145: l_delink_needed VARCHAR2(1) := 'N';
1146: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1147: l_wf_source VARCHAR2(20);
1148: l_termination_date DATE;
1149: l_quote_id NUMBER := NULL;
1150: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'service_k_integration';
1152: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1153: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1154:
1155: l_api_version CONSTANT NUMBER := 1;
1156: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
1157: l_msg_data VARCHAR2(2000);
1158:
1159: -- RMUNJULU 23-DEC-03 SERVICE K UPDATES
1160: l_oks_chr_id NUMBER;
1214: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_SERVICE_INTEGRATION_PVT.check_service_link');
1215: END IF;
1216: OKL_SERVICE_INTEGRATION_PVT.check_service_link (
1217: p_api_version => l_api_version,
1218: p_init_msg_list => OKL_API.G_FALSE,
1219: x_return_status => l_return_status,
1220: x_msg_count => l_msg_count,
1221: x_msg_data => l_msg_data,
1222: p_lease_contract_id => p_term_rec.p_contract_id ,
1231: END IF;
1232: -- De-link Lease from Service
1233: OKL_SERVICE_INTEGRATION_PVT.delink_service_contract(
1234: p_api_version => l_api_version,
1235: p_init_msg_list => OKL_API.G_FALSE,
1236: x_return_status => l_return_status,
1237: x_msg_count => l_msg_count,
1238: x_msg_data => l_msg_data,
1239: p_okl_chr_id => p_term_rec.p_contract_id);
1240: IF (is_debug_statement_on) THEN
1241: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_SERVICE_INTEGRATION_PVT.delink_service_contract , return status: ' || l_return_status);
1242: END IF;
1243: -- If De-link successful
1244: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN -- SUCCESS
1245: l_wf_source := 'SUCCESS';
1246: ELSE -- De-link error -- ERROR
1247: l_wf_source := 'ERROR';
1248: END IF;
1253: -- Set the termination date
1254: -- If Quote Exists then Termination date = Acceptance Date
1255: -- Else Termination date = Sysdate (ideal - do this after termination - get trn date)
1256: IF p_term_rec.p_quote_id IS NOT NULL
1257: AND p_term_rec.p_quote_id <> OKL_API.G_MISS_NUM THEN
1258:
1259: -- Get the quote acceptance date
1260: FOR get_quote_acc_dt_rec
1261: IN get_quote_acc_dt_csr(p_term_rec.p_quote_id) LOOP
1270: END IF;
1271:
1272: -- Set the Quote Id if termination request is from Quote
1273: IF p_term_rec.p_quote_id IS NOT NULL
1274: AND p_term_rec.p_quote_id <> OKL_API.G_MISS_NUM THEN
1275:
1276: l_quote_id := p_term_rec.p_quote_id;
1277:
1278: END IF;
1384: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1385: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1386: END IF;
1387:
1388: OKL_API.set_message(
1389: p_app_name => OKC_API.G_APP_NAME,
1390: p_msg_name => G_UNEXPECTED_ERROR,
1391: p_token1 => G_SQLCODE_TOKEN,
1392: p_token1_value => SQLCODE,
1420:
1421: l_service_contract VARCHAR2(300);
1422: l_oks_chr_id NUMBER;
1423: l_api_version NUMBER := 1;
1424: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
1425: l_msg_data VARCHAR2(2000);
1426: l_bill_stat_tbl OKL_BILL_STATUS_PUB.bill_stat_tbl_type; -- RMUNJULU 05-JAN-04 BPD Changed the API name
1427: l_bill_counter NUMBER;
1428: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1424: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
1425: l_msg_data VARCHAR2(2000);
1426: l_bill_stat_tbl OKL_BILL_STATUS_PUB.bill_stat_tbl_type; -- RMUNJULU 05-JAN-04 BPD Changed the API name
1427: l_bill_counter NUMBER;
1428: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1429: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_billing_done';
1430: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1431: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1432: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1464: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_BILL_STATUS_PUB.billing_status');
1465: END IF;
1466: OKL_BILL_STATUS_PUB.billing_status(
1467: p_api_version => l_api_version,
1468: p_init_msg_list => OKL_API.G_FALSE,
1469: x_return_status => l_return_status,
1470: x_msg_count => l_msg_count,
1471: x_msg_data => l_msg_data,
1472: x_bill_stat_tbl => l_bill_stat_tbl,
1504: ELSE -- throw message and return N
1505:
1506: -- Quote QUOTE_NUMBER can not be accepted. Please process Regular Stream billing
1507: -- for contract CONTRACT_NUMBER up to the quote effective from date.
1508: OKL_API.set_message (
1509: p_app_name => 'OKL',
1510: p_msg_name => 'OKL_AM_ACCEPT_TQ_RUN_BILLING',
1511: p_token1 => 'QUOTE_NUMBER',
1512: p_token1_value => p_quote_number,
1518: ELSE -- Give contract message
1519:
1520: -- Contract CONTRACT_NUMBER can not be terminated. Please process Regular Stream Billing
1521: -- for contract up to the termination date TERMINATION_DATE.
1522: OKL_API.set_message (
1523: p_app_name => 'OKL',
1524: p_msg_name => 'OKL_AM_RUN_BILLING',
1525: p_token1 => 'CONTRACT_NUMBER',
1526: p_token1_value => p_contract_number,
1540: END IF;
1541: -- Check if linked service contract exists for the quoted contract
1542: OKL_SERVICE_INTEGRATION_PVT.check_service_link (
1543: p_api_version => l_api_version,
1544: p_init_msg_list => OKL_API.G_FALSE,
1545: x_return_status => l_return_status,
1546: x_msg_count => l_msg_count,
1547: x_msg_data => l_msg_data,
1548: p_lease_contract_id => p_contract_id,
1552: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_oks_chr_id : ' || l_oks_chr_id);
1553: END IF;
1554:
1555: -- If linked Lease
1556: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
1557: AND l_oks_chr_id IS NOT NULL THEN --[1]
1558:
1559: -- Check if OKS Billing Done
1560: IF l_bill_stat_tbl.COUNT > 0 THEN --[2]
1575: IF p_quote_number IS NOT NULL THEN --[5]
1576:
1577: -- Quote QUOTE_NUMBER can not be accepted. Please process service billing
1578: -- for contract CONTRACT_NUMBER up to the quote effective from date.
1579: OKL_API.set_message (
1580: p_app_name => 'OKL',
1581: p_msg_name => 'OKL_AM_ACCEPT_TQ_RUN_SRV_BILL',
1582: p_token1 => 'QUOTE_NUMBER',
1583: p_token1_value => p_quote_number,
1589: ELSE -- Give contract message
1590:
1591: -- Contract CONTRACT_NUMBER can not be terminated. Please process
1592: -- service billing for contract up to the termination date TERMINATION_DATE.
1593: OKL_API.set_message (
1594: p_app_name => 'OKL',
1595: p_msg_name => 'OKL_AM_RUN_SRV_BILLING',
1596: p_token1 => 'CONTRACT_NUMBER',
1597: p_token1_value => p_contract_number,
1622: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1623: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1624: END IF;
1625:
1626: OKL_API.set_message(
1627: p_app_name => OKC_API.G_APP_NAME,
1628: p_msg_name => G_UNEXPECTED_ERROR,
1629: p_token1 => G_SQLCODE_TOKEN,
1630: p_token1_value => SQLCODE,
1654:
1655: l_service_contract VARCHAR2(300);
1656: l_oks_chr_id NUMBER;
1657: l_api_version NUMBER := 1;
1658: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
1659: l_msg_data VARCHAR2(2000);
1660: l_bill_stat_tbl OKL_BILL_STATUS_PUB.bill_stat_tbl_type;
1661: l_bill_counter NUMBER;
1662: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1658: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
1659: l_msg_data VARCHAR2(2000);
1660: l_bill_stat_tbl OKL_BILL_STATUS_PUB.bill_stat_tbl_type;
1661: l_bill_counter NUMBER;
1662: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1663: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_stream_billing_done';
1664: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1665: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1666: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1680: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_BILL_STATUS_PUB.billing_status');
1681: END IF;
1682: OKL_BILL_STATUS_PUB.billing_status(
1683: p_api_version => l_api_version,
1684: p_init_msg_list => OKL_API.G_FALSE,
1685: x_return_status => l_return_status,
1686: x_msg_count => l_msg_count,
1687: x_msg_data => l_msg_data,
1688: x_bill_stat_tbl => l_bill_stat_tbl,
1737: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1738: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1739: END IF;
1740:
1741: OKL_API.set_message(
1742: p_app_name => OKC_API.G_APP_NAME,
1743: p_msg_name => G_UNEXPECTED_ERROR,
1744: p_token1 => G_SQLCODE_TOKEN,
1745: p_token1_value => SQLCODE,
1853:
1854:
1855:
1856: k_header_rec k_header_csr%ROWTYPE;
1857: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1858: l_chg_request_in_process VARCHAR2(1) := '?';
1859: l_service_request VARCHAR2(1) := '?';
1860: l_quotes_exist VARCHAR2(1) := '?';
1861: l_tsu_code VARCHAR2(30) := '?';
1889: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
1890: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_control_flag: '|| p_control_flag);
1891: END IF;
1892:
1893: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1894:
1895: SELECT SYSDATE INTO l_sys_date FROM DUAL;
1896:
1897: OPEN k_header_csr;
1904:
1905: -- Check contract id passed is valid
1906: IF k_header_rec.id IS NULL OR k_header_rec.contract_number IS NULL THEN
1907:
1908: OKL_API.set_message( p_app_name => OKC_API.G_APP_NAME,
1909: p_msg_name => OKC_API.G_INVALID_VALUE,
1910: p_token1 => OKC_API.G_COL_NAME_TOKEN,
1911: p_token1_value => 'contract id');
1912:
1920: OR (k_header_rec.scs_code = 'LEASE'
1921: AND k_header_rec.deal_type LIKE 'LEASE%')-- Lease
1922: ) THEN
1923: -- Contract CONTRACT_NUMBER is neither a Lease nor a Loan.
1924: OKL_API.set_message( p_app_name => G_APP_NAME,
1925: p_msg_name => 'OKL_AM_K_TYPE_ERROR',
1926: p_token1 => 'CONTRACT_NUMBER',
1927: p_token1_value => k_header_rec.contract_number);
1928: RAISE l_invalid_contract;
1961: CLOSE k_service_request_csr;
1962: -- rmunjulu PERF -- End
1963:
1964: -- Check if template
1965: IF k_header_rec.template_yn = OKL_API.G_TRUE THEN
1966: -- Message: This operation is not allowed on contract template-(NUMBER).
1967: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
1968: p_msg_name => 'OKC_K_TEMPLATE',
1969: p_token1 => 'NUMBER',
1963:
1964: -- Check if template
1965: IF k_header_rec.template_yn = OKL_API.G_TRUE THEN
1966: -- Message: This operation is not allowed on contract template-(NUMBER).
1967: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
1968: p_msg_name => 'OKC_K_TEMPLATE',
1969: p_token1 => 'NUMBER',
1970: p_token1_value => k_header_rec.contract_number);
1971: RAISE l_invalid_contract;
1974: -- Check if locked
1975: IF l_chg_request_in_process = 'x' THEN
1976: -- Message: You cannot modify this contract now because a
1977: -- change request is active. Please try later.
1978: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
1979: p_msg_name => 'OKC_K_LOCKED');
1980: RAISE l_invalid_contract;
1981: END IF;
1982:
1983: -- Check if service requests found
1984: IF l_service_request = 'x' THEN
1985: -- Message: You cannot terminate this contract/line because a service
1986: --request is pending against this contract/line. Please try again later.
1987: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
1988: p_msg_name => 'OKC_SR_PENDING');
1989: RAISE l_invalid_contract;
1990: END IF;
1991:
1993:
1994: -- Check user status
1995: IF (k_header_rec.sts_code NOT IN ('BOOKED', 'EVERGREEN')) THEN
1996: -- Message: Contract (CONTRACT_NUMBER) is (STATUS).
1997: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
1998: p_msg_name => 'OKL_AM_CONTRACT_INACTIVE',
1999: p_token1 => 'CONTRACT_NUMBER',
2000: p_token1_value => k_header_rec.contract_number,
2001: p_token2 => 'STATUS',
2023: END IF;
2024:
2025:
2026: -- Check the return status
2027: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2028:
2029: -- Error occured in util proc, message set by util proc raise exp
2030: RAISE l_invalid_contract;
2031:
2036: IF lx_trn_tbl.COUNT > 0 THEN
2037:
2038: -- A termination transaction for the contract CONTRACT_NUMBER
2039: -- is already in progress.
2040: OKL_API.set_message (
2041: p_app_name => 'OKL',
2042: p_msg_name => 'OKL_AM_K_PENDING_TRN_ERROR',
2043: p_token1 => 'CONTRACT_NUMBER',
2044: p_token1_value => k_header_rec.contract_number);
2064: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.get_non_trn_contract_quotes , return status: ' || l_return_status);
2065: END IF;
2066:
2067: -- Check the return status
2068: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2069:
2070: -- Error occured in util proc, message set by util proc raise exp
2071: RAISE l_invalid_contract;
2072:
2078: AND k_header_rec.end_date > l_sys_date THEN
2079:
2080: -- Cannot terminate contract CONTRACT_NUMBER since no
2081: -- accepted quotes exists nor contract has reached its end date.
2082: OKL_API.set_message (
2083: p_app_name => G_APP_NAME,
2084: p_msg_name => 'OKL_AM_QTE_EXIST_NOT_REACH_END',
2085: p_token1 => 'CONTRACT_NUMBER',
2086: p_token1_value => k_header_rec.contract_number);
2102: -- Check user status
2103: IF k_header_rec.sts_code NOT IN ('BOOKED', 'EVERGREEN', 'BANKRUPTCY_HOLD',
2104: 'LITIGATION_HOLD', 'TERMINATION_HOLD') THEN
2105: -- Message: Contract (CONTRACT_NUMBER) is (STATUS).
2106: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
2107: p_msg_name => 'OKL_AM_CONTRACT_INACTIVE',
2108: p_token1 => 'CONTRACT_NUMBER',
2109: p_token1_value => k_header_rec.contract_number,
2110: p_token2 => 'STATUS',
2132: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.get_contract_transactions , return status: ' || l_return_status);
2133: END IF;
2134:
2135: -- Check the return status
2136: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2137:
2138: -- Error occured in util proc, message set by util proc raise exp
2139: RAISE l_invalid_contract;
2140:
2151: --IF lx_trn_tbl(i).tcn_type = 'TMT' THEN -- FULL termination
2152: IF lx_trn_tbl(i).tcn_type in ('TMT', 'EVG') THEN -- akrangan bug 5354501 fix added 'EVG'
2153: -- A termination transaction for the contract CONTRACT_NUMBER
2154: -- is already in progress.
2155: OKL_API.set_message (
2156: p_app_name => 'OKL',
2157: p_msg_name => 'OKL_AM_K_PENDING_TRN_ERROR',
2158: p_token1 => 'CONTRACT_NUMBER',
2159: p_token1_value => k_header_rec.contract_number);
2180: -- Check user status
2181: IF k_header_rec.sts_code NOT IN ( 'BOOKED', 'BANKRUPTCY_HOLD',
2182: 'LITIGATION_HOLD') THEN
2183: -- Message: Contract (CONTRACT_NUMBER) is (STATUS).
2184: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
2185: p_msg_name => 'OKL_AM_CONTRACT_INACTIVE',
2186: p_token1 => 'CONTRACT_NUMBER',
2187: p_token1_value => k_header_rec.contract_number,
2188: p_token2 => 'STATUS',
2201: IF k_header_rec.sts_code NOT IN ( 'TERMINATED','EXPIRED') THEN
2202: -- Message: Contract CONTRACT_NUMBER is still STATUS.
2203: -- Unable to generate the quote until the contract
2204: -- has been terminated or expired.
2205: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
2206: p_msg_name => 'OKL_AM_CONTRACT_STILL_ACTIVE',
2207: p_token1 => 'CONTRACT_NUMBER',
2208: p_token1_value => k_header_rec.contract_number,
2209: p_token2 => 'STATUS',
2221: -- Check user status
2222: IF k_header_rec.sts_code NOT IN ('BOOKED', 'EVERGREEN', 'BANKRUPTCY_HOLD',
2223: 'LITIGATION_HOLD', 'TERMINATION_HOLD') THEN
2224: -- Message: Contract (CONTRACT_NUMBER) is (STATUS).
2225: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
2226: p_msg_name => 'OKL_AM_CONTRACT_INACTIVE',
2227: p_token1 => 'CONTRACT_NUMBER',
2228: p_token1_value => k_header_rec.contract_number,
2229: p_token2 => 'STATUS',
2242: IF k_header_rec.sts_code NOT IN ( 'BOOKED',
2243: 'BANKRUPTCY_HOLD',
2244: 'LITIGATION_HOLD') THEN
2245: -- Message: Contract (CONTRACT_NUMBER) is (STATUS).
2246: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
2247: p_msg_name => 'OKL_AM_CONTRACT_INACTIVE',
2248: p_token1 => 'CONTRACT_NUMBER',
2249: p_token1_value => k_header_rec.contract_number,
2250: p_token2 => 'STATUS',
2263: IF k_header_rec.sts_code NOT IN ( 'TERMINATED','EXPIRED') THEN
2264: -- Message: Contract CONTRACT_NUMBER is still STATUS.
2265: -- Unable to generate the quote until the contract
2266: -- has been terminated or expired.
2267: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
2268: p_msg_name => 'OKL_AM_CONTRACT_STILL_ACTIVE',
2269: p_token1 => 'CONTRACT_NUMBER',
2270: p_token1_value => k_header_rec.contract_number,
2271: p_token2 => 'STATUS',
2280: -- If from batch process
2281: ELSIF (p_control_flag = 'BATCH_PROCESS') THEN
2282:
2283: -- Check if template
2284: IF k_header_rec.template_yn = OKL_API.G_TRUE THEN
2285: -- Message: This operation is not allowed on contract template-(NUMBER).
2286: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
2287: p_msg_name => 'OKC_K_TEMPLATE',
2288: p_token1 => 'NUMBER',
2282:
2283: -- Check if template
2284: IF k_header_rec.template_yn = OKL_API.G_TRUE THEN
2285: -- Message: This operation is not allowed on contract template-(NUMBER).
2286: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
2287: p_msg_name => 'OKC_K_TEMPLATE',
2288: p_token1 => 'NUMBER',
2289: p_token1_value => k_header_rec.contract_number);
2290: RAISE l_invalid_contract;
2294: -- Check if locked
2295: IF l_chg_request_in_process = 'x' THEN
2296: -- Message: You cannot modify this contract now because a
2297: -- change request is active. Please try later.
2298: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
2299: p_msg_name => 'OKC_K_LOCKED');
2300: RAISE l_invalid_contract;
2301: END IF;
2302:
2303: --Check if service requests found
2304: IF l_service_request = 'x' THEN
2305: -- Message: You cannot terminate this contract/line because a service
2306: --request is pending against this contract/line. Please try again later.
2307: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
2308: p_msg_name => 'OKC_SR_PENDING');
2309: RAISE l_invalid_contract;
2310: END IF;
2311: */
2318: -- If from batch process for single contract request
2319: ELSIF (p_control_flag = 'BATCH_PROCESS_CHR') THEN
2320:
2321: -- Check if template
2322: IF k_header_rec.template_yn = OKL_API.G_TRUE THEN
2323: -- Message: This operation is not allowed on contract template-(NUMBER).
2324: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
2325: p_msg_name => 'OKC_K_TEMPLATE',
2326: p_token1 => 'NUMBER',
2320:
2321: -- Check if template
2322: IF k_header_rec.template_yn = OKL_API.G_TRUE THEN
2323: -- Message: This operation is not allowed on contract template-(NUMBER).
2324: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
2325: p_msg_name => 'OKC_K_TEMPLATE',
2326: p_token1 => 'NUMBER',
2327: p_token1_value => k_header_rec.contract_number);
2328: RAISE l_invalid_contract;
2332: -- Check if locked
2333: IF l_chg_request_in_process = 'x' THEN
2334: -- Message: You cannot modify this contract now because a
2335: -- change request is active. Please try later.
2336: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
2337: p_msg_name => 'OKC_K_LOCKED');
2338: RAISE l_invalid_contract;
2339: END IF;
2340:
2341: --Check if service requests found
2342: IF l_service_request = 'x' THEN
2343: -- Message: You cannot terminate this contract/line because a service
2344: --request is pending against this contract/line. Please try again later.
2345: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
2346: p_msg_name => 'OKC_SR_PENDING');
2347: RAISE l_invalid_contract;
2348: END IF;
2349: */
2351: /*
2352: -- Check user status
2353: IF k_header_rec.sts_code <> 'BOOKED' THEN
2354: -- Message: Contract (CONTRACT_NUMBER) is (STATUS).
2355: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
2356: p_msg_name => 'OKL_AM_CONTRACT_INACTIVE',
2357: p_token1 => 'CONTRACT_NUMBER',
2358: p_token1_value => k_header_rec.contract_number,
2359: p_token2 => 'STATUS',
2370: -- Check if accepted quote exists
2371: IF (l_quotes_exist = 'x') THEN
2372: -- Message: Cannot terminate contract (CONTRACT_NUMBER) since
2373: -- accepted quote exists.
2374: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
2375: p_msg_name => 'OKL_AM_QUOTES_EXIST',
2376: p_token1 => 'CONTRACT_NUMBER',
2377: p_token1_value => k_header_rec.contract_number);
2378: RAISE l_invalid_contract;
2389: IF l_ste_code IS NOT NULL AND l_ste_code IN ('ENTERED','SIGNED','CANCELLED') THEN
2390: -- Message: Contract CONTRACT_NUMBER has invalid post-booking status - STATUS.
2391: -- Unable to create asset return for this contract.
2392:
2393: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
2394: p_msg_name => 'OKL_AM_K_INVALID_STATUS',
2395: p_token1 => 'CONTRACT_NUMBER',
2396: p_token1_value => l_contract_number,
2397: p_token2 => 'STATUS',
2409: -- Check user status
2410: IF k_header_rec.sts_code NOT IN ( 'TERMINATED','EXPIRED') THEN
2411: --Message: Contract CONTRACT_NUMBER is still STATUS.
2412: -- Unable to return assets for this contract.
2413: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
2414: p_msg_name => 'OKL_AM_K_INVALID_FOR_ART_ERR',
2415: p_token1 => 'CONTRACT_NUMBER',
2416: p_token1_value => k_header_rec.contract_number,
2417: p_token2 => 'STATUS',
2427:
2428: -- Check user status
2429: IF k_header_rec.sts_code <> 'BOOKED' THEN
2430: -- Message: Contract (CONTRACT_NUMBER) is (STATUS).
2431: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
2432: p_msg_name => 'OKL_AM_CONTRACT_INACTIVE',
2433: p_token1 => 'CONTRACT_NUMBER',
2434: p_token1_value => k_header_rec.contract_number,
2435: p_token2 => 'STATUS',
2468: END IF;
2469:
2470:
2471: -- notify caller of EXPECTED error
2472: x_return_status := OKL_API.G_RET_STS_ERROR;
2473:
2474: WHEN OTHERS THEN
2475: IF (is_debug_exception_on) THEN
2476: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
2492: CLOSE k_accepted_quote_csr;
2493: END IF;
2494:
2495: -- store SQL error message on message stack for caller
2496: OKL_API.SET_MESSAGE (
2497: p_app_name => OKC_API.G_APP_NAME
2498: ,p_msg_name => G_UNEXPECTED_ERROR
2499: ,p_token1 => G_SQLCODE_TOKEN
2500: ,p_token1_value => sqlcode
2501: ,p_token2 => G_SQLERRM_TOKEN
2502: ,p_token2_value => sqlerrm);
2503:
2504: -- notify caller of an UNEXPECTED error
2505: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2506: END validate_contract;
2507:
2508:
2509: -- Start of comments
2560: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
2561: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
2562: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
2563: END IF;
2564: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2565: x_lease_loan_type := l_lease_loan_type;
2566:
2567: OPEN k_header_csr;
2568: FETCH k_header_csr INTO k_header_rec;
2566:
2567: OPEN k_header_csr;
2568: FETCH k_header_csr INTO k_header_rec;
2569: IF k_header_csr%NOTFOUND THEN
2570: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
2571: p_msg_name => 'OKC_K_CHANGED',
2572: p_token1 => 'NUMBER',
2573: p_token1_value => p_term_rec.p_contract_number,
2574: p_token2 => 'MODIFIER',
2573: p_token1_value => p_term_rec.p_contract_number,
2574: p_token2 => 'MODIFIER',
2575: p_token2_value => p_term_rec.p_contract_modifier);
2576: CLOSE k_header_csr;
2577: RAISE OKL_API.G_EXCEPTION_ERROR;
2578: END IF;
2579:
2580: OPEN k_deal_type_csr;
2581: FETCH k_deal_type_csr INTO l_deal_type;
2598: IF (is_debug_procedure_on) THEN
2599: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
2600: END IF;
2601: EXCEPTION
2602: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2603: IF (is_debug_exception_on) THEN
2604: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
2605: END IF;
2606: IF k_header_csr%ISOPEN THEN
2609: IF k_deal_type_csr%ISOPEN THEN
2610: CLOSE k_deal_type_csr;
2611: END IF;
2612: x_lease_loan_type := '$';
2613: x_return_status := OKL_API.G_RET_STS_ERROR;
2614:
2615: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2616: IF (is_debug_exception_on) THEN
2617: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
2611: END IF;
2612: x_lease_loan_type := '$';
2613: x_return_status := OKL_API.G_RET_STS_ERROR;
2614:
2615: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2616: IF (is_debug_exception_on) THEN
2617: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
2618: END IF;
2619: IF k_header_csr%ISOPEN THEN
2622: IF k_deal_type_csr%ISOPEN THEN
2623: CLOSE k_deal_type_csr;
2624: END IF;
2625: x_lease_loan_type := '$';
2626: x_return_status :=OKL_API.G_RET_STS_UNEXP_ERROR;
2627:
2628: WHEN OTHERS THEN
2629: IF (is_debug_exception_on) THEN
2630: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
2636: IF k_deal_type_csr%ISOPEN THEN
2637: CLOSE k_deal_type_csr;
2638: END IF;
2639: x_lease_loan_type := '$';
2640: OKL_API.set_message(p_app_name => okc_api.g_app_name,
2641: p_msg_name => g_unexpected_error,
2642: p_token1 => g_sqlcode_token,
2643: p_token1_value => sqlcode,
2644: p_token2 => g_sqlerrm_token,
2642: p_token1 => g_sqlcode_token,
2643: p_token1_value => sqlcode,
2644: p_token2 => g_sqlerrm_token,
2645: p_token2_value => sqlerrm);
2646: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2647: END check_lease_loan_type;
2648:
2649: ----------------------------------------------------------------------------
2650: -- PROCEDURE : process_non_batch
2664: l_can_terminate VARCHAR2(1) := 'Y';
2665: lp_tcnv_rec tcnv_rec_type;
2666: lx_tcnv_rec tcnv_rec_type;
2667: lx_contract_status VARCHAR2(200);
2668: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2669: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_non_batch';
2670: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2671: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2672: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2699: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'lx_contract_status : ' || lx_contract_status);
2700: END IF;
2701:
2702: -- If error abort this contract
2703: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2704: RAISE G_EXCEPTION_HALT;
2705: END IF;
2706:
2707: -- get transaction if exists
2718: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_trn_exists : ' || l_trn_exists);
2719: END IF;
2720:
2721: -- if error then abort this contract
2722: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2723: RAISE G_EXCEPTION_HALT;
2724: END IF;
2725:
2726: -- If trn exists then set the out tcnv_rec
2740: WHEN G_EXCEPTION_HALT THEN
2741: IF (is_debug_exception_on) THEN
2742: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_HALT');
2743: END IF;
2744: x_return_status := OKL_API.G_RET_STS_ERROR;
2745: x_can_terminate := 'N';
2746:
2747: WHEN OTHERS THEN
2748: IF (is_debug_exception_on) THEN
2748: IF (is_debug_exception_on) THEN
2749: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
2750: || sqlcode || ' , SQLERRM : ' || sqlerrm);
2751: END IF;
2752: x_return_status := OKL_API.G_RET_STS_ERROR;
2753: x_can_terminate := 'N';
2754: END process_non_batch;
2755:
2756:
2795: FROM OKL_TRX_QUOTES_V QTE
2796: WHERE QTE.id = p_qte_id;
2797:
2798:
2799: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2800: l_api_name CONSTANT VARCHAR2(30) := 'lease_loan_termination';
2801: l_lease_or_loan VARCHAR2(200);
2802: l_tcnv_rec tcnv_rec_type := p_tcnv_rec;
2803: l_trn_exists VARCHAR2(1) := 'N';
2833: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.tmt_recycle_yn: '||p_tcnv_rec.tmt_recycle_yn);
2834: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.qte_id: '||p_tcnv_rec.qte_id);
2835: END IF;
2836:
2837: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2838:
2839: -- if not batch process then check if can be terminated
2840: IF NVL(lp_term_rec.p_control_flag,'?') NOT IN ('BATCH_PROCESS','BATCH_PROCESS_CHR') THEN
2841:
2855: END IF;
2856:
2857:
2858: -- If error abort this contract
2859: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2860: RAISE OKL_API.G_EXCEPTION_ERROR;
2861: END IF;
2862: IF (l_can_terminate <> 'Y') THEN
2863: RAISE OKL_API.G_EXCEPTION_ERROR;
2856:
2857:
2858: -- If error abort this contract
2859: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2860: RAISE OKL_API.G_EXCEPTION_ERROR;
2861: END IF;
2862: IF (l_can_terminate <> 'Y') THEN
2863: RAISE OKL_API.G_EXCEPTION_ERROR;
2864: END IF;
2859: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2860: RAISE OKL_API.G_EXCEPTION_ERROR;
2861: END IF;
2862: IF (l_can_terminate <> 'Y') THEN
2863: RAISE OKL_API.G_EXCEPTION_ERROR;
2864: END IF;
2865:
2866: END IF;
2867:
2883:
2884:
2885:
2886: -- If error abort this contract
2887: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2888: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2889: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2890: RAISE OKL_API.G_EXCEPTION_ERROR;
2891: END IF;
2884:
2885:
2886: -- If error abort this contract
2887: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2888: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2889: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2890: RAISE OKL_API.G_EXCEPTION_ERROR;
2891: END IF;
2892:
2885:
2886: -- If error abort this contract
2887: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2888: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2889: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2890: RAISE OKL_API.G_EXCEPTION_ERROR;
2891: END IF;
2892:
2893:
2886: -- If error abort this contract
2887: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2888: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2889: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2890: RAISE OKL_API.G_EXCEPTION_ERROR;
2891: END IF;
2892:
2893:
2894:
2905: -- and it is a full termination
2906:
2907: -- Check if quote id passed to p_term_rec get partial_yn if yes
2908: IF lp_term_rec.p_quote_id IS NOT NULL
2909: AND lp_term_rec.p_quote_id <> OKL_API.G_MISS_NUM THEN
2910:
2911:
2912: -- This condition is from termination quotes
2913: OPEN l_qte_csr ( lp_term_rec.p_quote_id);
2919:
2920:
2921: -- else check if quote id passed to p_tcnv_rec get partial_yn if yes
2922: ELSIF l_tcnv_rec.qte_id IS NOT NULL
2923: AND l_tcnv_rec.qte_id <> OKL_API.G_MISS_NUM THEN
2924:
2925: -- This condition is from batch recycled trns which originated from qte
2926: OPEN l_qte_csr ( l_tcnv_rec.qte_id);
2927: FETCH l_qte_csr INTO l_qte_rec;
2953: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.get_non_trn_contract_quotes , return status: ' || l_return_status);
2954: END IF;
2955:
2956: -- Check the return status
2957: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2958:
2959: -- Error occured in util proc, message set by util proc raise exp
2960: RAISE OKL_API.G_EXCEPTION_ERROR;
2961:
2956: -- Check the return status
2957: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2958:
2959: -- Error occured in util proc, message set by util proc raise exp
2960: RAISE OKL_API.G_EXCEPTION_ERROR;
2961:
2962: END IF;
2963:
2964: -- Check if accepted quote with no trn exists for the contract
3038: IF (is_debug_statement_on) THEN
3039: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_CNTRCT_LN_TRMNT_PVT.asset_level_termination , return status: ' || l_return_status);
3040: END IF;
3041:
3042: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3043: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3044: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3045: RAISE OKL_API.G_EXCEPTION_ERROR;
3046: END IF;
3039: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_CNTRCT_LN_TRMNT_PVT.asset_level_termination , return status: ' || l_return_status);
3040: END IF;
3041:
3042: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3043: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3044: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3045: RAISE OKL_API.G_EXCEPTION_ERROR;
3046: END IF;
3047:
3040: END IF;
3041:
3042: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3043: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3044: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3045: RAISE OKL_API.G_EXCEPTION_ERROR;
3046: END IF;
3047:
3048: ELSIF (l_lease_or_loan = 'LEASE') THEN
3041:
3042: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3043: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3044: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3045: RAISE OKL_API.G_EXCEPTION_ERROR;
3046: END IF;
3047:
3048: ELSIF (l_lease_or_loan = 'LEASE') THEN
3049:
3061: IF (is_debug_statement_on) THEN
3062: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_LEASE_TRMNT_PVT.lease_termination , return status: ' || l_return_status);
3063: END IF;
3064:
3065: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3066: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3067: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3068: RAISE OKL_API.G_EXCEPTION_ERROR;
3069: END IF;
3062: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_LEASE_TRMNT_PVT.lease_termination , return status: ' || l_return_status);
3063: END IF;
3064:
3065: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3066: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3067: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3068: RAISE OKL_API.G_EXCEPTION_ERROR;
3069: END IF;
3070:
3063: END IF;
3064:
3065: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3066: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3067: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3068: RAISE OKL_API.G_EXCEPTION_ERROR;
3069: END IF;
3070:
3071: ELSIF (l_lease_or_loan = 'LOAN') THEN
3064:
3065: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3066: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3067: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3068: RAISE OKL_API.G_EXCEPTION_ERROR;
3069: END IF;
3070:
3071: ELSIF (l_lease_or_loan = 'LOAN') THEN
3072:
3084: IF (is_debug_statement_on) THEN
3085: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_LOAN_TRMNT_PVT.loan_termination , return status: ' || l_return_status);
3086: END IF;
3087:
3088: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3089: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3090: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3091: RAISE OKL_API.G_EXCEPTION_ERROR;
3092: END IF;
3085: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_LOAN_TRMNT_PVT.loan_termination , return status: ' || l_return_status);
3086: END IF;
3087:
3088: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3089: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3090: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3091: RAISE OKL_API.G_EXCEPTION_ERROR;
3092: END IF;
3093:
3086: END IF;
3087:
3088: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3089: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3090: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3091: RAISE OKL_API.G_EXCEPTION_ERROR;
3092: END IF;
3093:
3094: ELSIF (l_lease_or_loan = '$') THEN
3087:
3088: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3089: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3090: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3091: RAISE OKL_API.G_EXCEPTION_ERROR;
3092: END IF;
3093:
3094: ELSIF (l_lease_or_loan = '$') THEN
3095:
3096: -- type not found
3097: -- set message and raise exception
3098: -- Contract type, whether Lease or Loan could not be
3099: -- determined for Contract CONTRACT_NUMBER.
3100: OKL_API.set_message(p_app_name => G_APP_NAME,
3101: p_msg_name => 'OKL_AM_K_TYPE_NOT_FOUND',
3102: p_token1 => 'CONTRACT_NUMBER',
3103: p_token1_value => lp_term_rec.p_contract_number);
3104:
3101: p_msg_name => 'OKL_AM_K_TYPE_NOT_FOUND',
3102: p_token1 => 'CONTRACT_NUMBER',
3103: p_token1_value => lp_term_rec.p_contract_number);
3104:
3105: RAISE OKL_API.G_EXCEPTION_ERROR;
3106:
3107: ELSE
3108:
3109: -- neither lease or loan
3108:
3109: -- neither lease or loan
3110: -- set message and raise exception
3111: -- Contract CONTRACT_NUMBER is neither a Lease nor a Loan.
3112: OKL_API.set_message( p_app_name => G_APP_NAME,
3113: p_msg_name => 'OKL_AM_K_TYPE_ERROR',
3114: p_token1 => 'CONTRACT_NUMBER',
3115: p_token1_value => lp_term_rec.p_contract_number);
3116:
3113: p_msg_name => 'OKL_AM_K_TYPE_ERROR',
3114: p_token1 => 'CONTRACT_NUMBER',
3115: p_token1_value => lp_term_rec.p_contract_number);
3116:
3117: RAISE OKL_API.G_EXCEPTION_ERROR;
3118:
3119: END IF;
3120:
3121:
3138: END IF;
3139:
3140: EXCEPTION
3141:
3142: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3143: IF (is_debug_exception_on) THEN
3144: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
3145: END IF;
3146:
3148: IF l_qte_csr%ISOPEN THEN
3149: CLOSE l_qte_csr;
3150: END IF;
3151:
3152: x_return_status := OKL_API.G_RET_STS_ERROR;
3153:
3154: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3155: IF (is_debug_exception_on) THEN
3156: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
3150: END IF;
3151:
3152: x_return_status := OKL_API.G_RET_STS_ERROR;
3153:
3154: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3155: IF (is_debug_exception_on) THEN
3156: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
3157: END IF;
3158:
3161: CLOSE l_qte_csr;
3162: END IF;
3163:
3164:
3165: x_return_status :=OKL_API.G_RET_STS_UNEXP_ERROR;
3166:
3167: WHEN OTHERS THEN
3168: IF (is_debug_exception_on) THEN
3169: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
3175: CLOSE l_qte_csr;
3176: END IF;
3177:
3178:
3179: OKL_API.set_message(p_app_name => okc_api.g_app_name,
3180: p_msg_name => g_unexpected_error,
3181: p_token1 => g_sqlcode_token,
3182: p_token1_value => sqlcode,
3183: p_token2 => g_sqlerrm_token,
3182: p_token1_value => sqlcode,
3183: p_token2 => g_sqlerrm_token,
3184: p_token2_value => sqlerrm);
3185:
3186: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3187:
3188: END lease_loan_termination;
3189:
3190: ----------------------------------------------------------------------------
3200: x_msg_data OUT NOCOPY VARCHAR2,
3201: p_term_tbl IN term_tbl_type,
3202: p_tcnv_tbl IN tcnv_tbl_type) IS
3203:
3204: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3205: i NUMBER := 0;
3206: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3207: l_api_version CONSTANT NUMBER := 1;
3208: l_api_name CONSTANT VARCHAR2(30) := 'lease_loan_termination';
3202: p_tcnv_tbl IN tcnv_tbl_type) IS
3203:
3204: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3205: i NUMBER := 0;
3206: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3207: l_api_version CONSTANT NUMBER := 1;
3208: l_api_name CONSTANT VARCHAR2(30) := 'lease_loan_termination';
3209: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'lease_loan_termination';
3210: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3215: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
3216: END IF;
3217:
3218: --Check API version, initialize message list and create savepoint.
3219: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3220: G_PKG_NAME,
3221: p_init_msg_list,
3222: l_api_version,
3223: p_api_version,
3222: l_api_version,
3223: p_api_version,
3224: '_PVT',
3225: x_return_status);
3226: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3227: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3228: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3229: RAISE OKL_API.G_EXCEPTION_ERROR;
3230: END IF;
3223: p_api_version,
3224: '_PVT',
3225: x_return_status);
3226: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3227: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3228: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3229: RAISE OKL_API.G_EXCEPTION_ERROR;
3230: END IF;
3231:
3224: '_PVT',
3225: x_return_status);
3226: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3227: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3228: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3229: RAISE OKL_API.G_EXCEPTION_ERROR;
3230: END IF;
3231:
3232: --OKL_API.init_msg_list(p_init_msg_list);
3225: x_return_status);
3226: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3227: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3228: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3229: RAISE OKL_API.G_EXCEPTION_ERROR;
3230: END IF;
3231:
3232: --OKL_API.init_msg_list(p_init_msg_list);
3233: -- Initialize return_status
3228: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3229: RAISE OKL_API.G_EXCEPTION_ERROR;
3230: END IF;
3231:
3232: --OKL_API.init_msg_list(p_init_msg_list);
3233: -- Initialize return_status
3234: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3235: -- Initialize p_init_msg_list to True so that every time the message stack
3236: -- is set or else the messages for the successfull terminated contracts
3230: END IF;
3231:
3232: --OKL_API.init_msg_list(p_init_msg_list);
3233: -- Initialize return_status
3234: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3235: -- Initialize p_init_msg_list to True so that every time the message stack
3236: -- is set or else the messages for the successfull terminated contracts
3237: -- will come here which is not desired
3238: -- This method is called from Contract Termination screen
3242: i := p_term_tbl.FIRST;
3243: LOOP
3244: lease_loan_termination (
3245: p_api_version => p_api_version,
3246: p_init_msg_list => OKL_API.G_TRUE,
3247: x_return_status => l_return_status,
3248: x_msg_count => x_msg_count,
3249: x_msg_data => x_msg_data,
3250: p_term_rec => p_term_tbl(i),
3253: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called lease_loan_termination , return status: ' || l_return_status);
3254: END IF;
3255:
3256: -- rollback if terminating contract failed
3257: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3258: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3259: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3260: RAISE OKL_API.G_EXCEPTION_ERROR;
3261: END IF;
3254: END IF;
3255:
3256: -- rollback if terminating contract failed
3257: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3258: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3259: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3260: RAISE OKL_API.G_EXCEPTION_ERROR;
3261: END IF;
3262: EXIT WHEN (i = p_term_tbl.LAST);
3255:
3256: -- rollback if terminating contract failed
3257: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3258: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3259: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3260: RAISE OKL_API.G_EXCEPTION_ERROR;
3261: END IF;
3262: EXIT WHEN (i = p_term_tbl.LAST);
3263: i := p_term_tbl.NEXT(i);
3256: -- rollback if terminating contract failed
3257: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3258: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3259: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3260: RAISE OKL_API.G_EXCEPTION_ERROR;
3261: END IF;
3262: EXIT WHEN (i = p_term_tbl.LAST);
3263: i := p_term_tbl.NEXT(i);
3264: END LOOP;
3268:
3269: x_return_status := l_return_status;
3270:
3271: -- end the transaction
3272: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3273: IF (is_debug_procedure_on) THEN
3274: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
3275: END IF;
3276: EXCEPTION
3273: IF (is_debug_procedure_on) THEN
3274: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
3275: END IF;
3276: EXCEPTION
3277: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3278: IF (is_debug_exception_on) THEN
3279: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
3280: END IF;
3281:
3278: IF (is_debug_exception_on) THEN
3279: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
3280: END IF;
3281:
3282: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3283: (
3284: l_api_name,
3285: G_PKG_NAME,
3286: 'OKL_API.G_RET_STS_ERROR',
3282: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3283: (
3284: l_api_name,
3285: G_PKG_NAME,
3286: 'OKL_API.G_RET_STS_ERROR',
3287: x_msg_count,
3288: x_msg_data,
3289: '_PVT'
3290: );
3287: x_msg_count,
3288: x_msg_data,
3289: '_PVT'
3290: );
3291: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3292: IF (is_debug_exception_on) THEN
3293: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
3294: END IF;
3295:
3292: IF (is_debug_exception_on) THEN
3293: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
3294: END IF;
3295:
3296: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3297: (
3298: l_api_name,
3299: G_PKG_NAME,
3300: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3296: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3297: (
3298: l_api_name,
3299: G_PKG_NAME,
3300: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3301: x_msg_count,
3302: x_msg_data,
3303: '_PVT'
3304: );
3307: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
3308: || sqlcode || ' , SQLERRM : ' || sqlerrm);
3309: END IF;
3310:
3311: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3312: (
3313: l_api_name,
3314: G_PKG_NAME,
3315: 'OTHERS',
3358: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_qte_id: '|| p_qte_id);
3359: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trn_date: '|| p_trn_date);
3360: END IF;
3361:
3362: x_return_status := OKL_API.g_ret_sts_success;
3363:
3364: SELECT SYSDATE INTO l_trn_date FROM DUAL;
3365:
3366: -- if quote_id exists then
3364: SELECT SYSDATE INTO l_trn_date FROM DUAL;
3365:
3366: -- if quote_id exists then
3367: IF p_qte_id IS NOT NULL
3368: AND p_qte_id <> OKL_API.G_MISS_NUM THEN
3369:
3370: -- get quote dates
3371: OPEN quote_dates_csr (p_qte_id);
3372: FETCH quote_dates_csr INTO l_eff_from, l_accpt;
3399: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
3400: || sqlcode || ' , SQLERRM : ' || sqlerrm);
3401: END IF;
3402:
3403: x_return_status := OKL_API.g_ret_sts_error;
3404:
3405: -- Set the oracle error message
3406: OKL_API.set_message(
3407: p_app_name => OKC_API.G_APP_NAME,
3402:
3403: x_return_status := OKL_API.g_ret_sts_error;
3404:
3405: -- Set the oracle error message
3406: OKL_API.set_message(
3407: p_app_name => OKC_API.G_APP_NAME,
3408: p_msg_name => g_unexpected_error,
3409: p_token1 => g_sqlcode_token,
3410: p_token1_value => SQLCODE,
3433: -- a single call to disbursement API OKL_CREATE_DISB_TRANS_PVT.create_disb_trx
3434: -- End of comments
3435: PROCEDURE process_discount_subsidy(
3436: p_api_version IN NUMBER,
3437: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3438: x_return_status OUT NOCOPY VARCHAR2,
3439: x_msg_count OUT NOCOPY NUMBER,
3440: x_msg_data OUT NOCOPY VARCHAR2,
3441: p_term_rec IN term_rec_type,
3488: l_document_category VARCHAR2(100):= 'OKL Lease Pay Invoices';
3489: lx_dbseqnm VARCHAR2(2000):= '';
3490: lx_dbseqid NUMBER(38):= NULL;
3491: l_formula_name VARCHAR2(150);
3492: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3493: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
3494: l_msg_data VARCHAR2(2000);
3495:
3496: --akrangan for Bug 5669097 Fix Start
3489: lx_dbseqnm VARCHAR2(2000):= '';
3490: lx_dbseqid NUMBER(38):= NULL;
3491: l_formula_name VARCHAR2(150);
3492: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3493: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
3494: l_msg_data VARCHAR2(2000);
3495:
3496: --akrangan for Bug 5669097 Fix Start
3497: v_flag varchar2(1) :='N';
3689: IF (is_debug_exception_on) THEN
3690: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
3691: || sqlcode || ' , SQLERRM : ' || sqlerrm);
3692: END IF;
3693: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
3694: p_msg_name => 'OKL_UNEXPECTED_ERROR',
3695: p_token1 => 'OKL_SQLCODE',
3696: p_token1_value => SQLCODE,
3697: p_token2 => 'OKL_SQLERRM',
3712: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_control_flag: '|| p_term_rec.p_control_flag);
3713: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_type: '|| p_term_rec.p_quote_type);
3714: END IF;
3715: --Check API version, initialize message list and create savepoint.
3716: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3717: G_PKG_NAME,
3718: p_init_msg_list,
3719: l_api_version,
3720: p_api_version,
3719: l_api_version,
3720: p_api_version,
3721: '_PVT',
3722: x_return_status);
3723: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3724: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3725: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3726: RAISE OKL_API.G_EXCEPTION_ERROR;
3727: END IF;
3720: p_api_version,
3721: '_PVT',
3722: x_return_status);
3723: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3724: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3725: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3726: RAISE OKL_API.G_EXCEPTION_ERROR;
3727: END IF;
3728:
3721: '_PVT',
3722: x_return_status);
3723: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3724: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3725: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3726: RAISE OKL_API.G_EXCEPTION_ERROR;
3727: END IF;
3728:
3729:
3722: x_return_status);
3723: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3724: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3725: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3726: RAISE OKL_API.G_EXCEPTION_ERROR;
3727: END IF;
3728:
3729:
3730: -- Initialize return_status
3727: END IF;
3728:
3729:
3730: -- Initialize return_status
3731: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3732:
3733: -- rmunjulu +++++++++ Effective Dated Termination -- start ++++++++++++++++
3734:
3735: -- rmunjulu EDAT
3786: END IF;
3787: -- get line details from OKL_AM_LEASE_TRMNT_PVT
3788: OKL_AM_LEASE_TRMNT_PVT.get_contract_lines(
3789: p_api_version => p_api_version,
3790: p_init_msg_list => OKL_API.G_FALSE,
3791: x_return_status => l_return_status,
3792: x_msg_count => l_msg_count,
3793: x_msg_data => l_msg_data,
3794: p_term_rec => p_term_rec,
3796: IF (is_debug_statement_on) THEN
3797: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_LEASE_TRMNT_PVT.get_contract_lines , return status: ' || l_return_status);
3798: END IF;
3799:
3800: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3801: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3802: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3803: RAISE OKL_API.G_EXCEPTION_ERROR;
3804: END IF;
3797: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_LEASE_TRMNT_PVT.get_contract_lines , return status: ' || l_return_status);
3798: END IF;
3799:
3800: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3801: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3802: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3803: RAISE OKL_API.G_EXCEPTION_ERROR;
3804: END IF;
3805:
3798: END IF;
3799:
3800: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3801: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3802: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3803: RAISE OKL_API.G_EXCEPTION_ERROR;
3804: END IF;
3805:
3806: END IF; -- [1]
3799:
3800: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3801: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3802: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3803: RAISE OKL_API.G_EXCEPTION_ERROR;
3804: END IF;
3805:
3806: END IF; -- [1]
3807:
3815: END IF;
3816: -- rmunjulu 4622198 SPECIAL_ACCNT Get special accounting details
3817: OKL_SECURITIZATION_PVT.check_khr_ia_associated(
3818: p_api_version => l_api_version
3819: ,p_init_msg_list => OKL_API.G_FALSE
3820: ,x_return_status => l_return_status
3821: ,x_msg_count => l_msg_count
3822: ,x_msg_data => l_msg_data
3823: ,p_khr_id => p_term_rec.p_contract_id
3831: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_fact_synd_code : ' || l_fact_synd_code);
3832: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_inv_acct_code : ' || l_inv_acct_code);
3833: END IF;
3834:
3835: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3836: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3837: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3838: RAISE OKL_API.G_EXCEPTION_ERROR;
3839: END IF;
3832: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_inv_acct_code : ' || l_inv_acct_code);
3833: END IF;
3834:
3835: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3836: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3837: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3838: RAISE OKL_API.G_EXCEPTION_ERROR;
3839: END IF;
3840:
3833: END IF;
3834:
3835: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3836: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3837: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3838: RAISE OKL_API.G_EXCEPTION_ERROR;
3839: END IF;
3840:
3841: -- Loop through each asset and process
3834:
3835: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3836: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3837: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3838: RAISE OKL_API.G_EXCEPTION_ERROR;
3839: END IF;
3840:
3841: -- Loop through each asset and process
3842: IF l_asset_tbl.count > 0 THEN
3855: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_SUBSIDY_PROCESS_PVT.GET_RELK_TERMN_BASIS');
3856: END IF;
3857: OKL_SUBSIDY_PROCESS_PVT.GET_RELK_TERMN_BASIS(
3858: p_api_version => p_api_version,
3859: p_init_msg_list => OKL_API.G_FALSE,
3860: x_return_status => l_return_status,
3861: x_msg_count => l_msg_count,
3862: x_msg_data => l_msg_data,
3863: p_chr_id => p_term_rec.p_contract_id,
3888: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_STREAMS_UTIL.get_dependent_stream_type , return status : ' || l_return_status);
3889: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_accrual_sty_id : ' || l_accrual_sty_id);
3890: END IF;
3891:
3892: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3893: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3894: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3895: RAISE OKL_API.G_EXCEPTION_ERROR;
3896: END IF;
3889: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_accrual_sty_id : ' || l_accrual_sty_id);
3890: END IF;
3891:
3892: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3893: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3894: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3895: RAISE OKL_API.G_EXCEPTION_ERROR;
3896: END IF;
3897: -- rmunjulu 4399352 Added the following for bug 4399352 - end
3890: END IF;
3891:
3892: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3893: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3894: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3895: RAISE OKL_API.G_EXCEPTION_ERROR;
3896: END IF;
3897: -- rmunjulu 4399352 Added the following for bug 4399352 - end
3898: -- SECHAWLA 29-DEC-05 4911502 : moved from above : end
3891:
3892: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3893: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3894: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3895: RAISE OKL_API.G_EXCEPTION_ERROR;
3896: END IF;
3897: -- rmunjulu 4399352 Added the following for bug 4399352 - end
3898: -- SECHAWLA 29-DEC-05 4911502 : moved from above : end
3899:
3977: END IF;
3978: -- akrangan for bug 5669097 End
3979: OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals (
3980: p_api_version => p_api_version,
3981: p_init_msg_list => OKL_API.G_FALSE,
3982: x_return_status => l_return_status,
3983: x_msg_count => l_msg_count,
3984: x_msg_data => l_msg_data,
3985: p_acceleration_rec => l_acceleration_rec,
3987: IF (is_debug_statement_on) THEN
3988: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals , return status : ' || l_return_status);
3989: END IF;
3990:
3991: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3992: OKL_API.set_message(
3993: p_app_name => G_APP_NAME,
3994: p_msg_name => 'OKL_AM_SUBSIDY_INC_RECOG',
3995: p_token1 => 'ASSET_NUMBER',
3988: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals , return status : ' || l_return_status);
3989: END IF;
3990:
3991: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3992: OKL_API.set_message(
3993: p_app_name => G_APP_NAME,
3994: p_msg_name => 'OKL_AM_SUBSIDY_INC_RECOG',
3995: p_token1 => 'ASSET_NUMBER',
3996: p_token1_value => l_asset_tbl(i).p_asset_name,
3997: p_token2 => 'CONTRACT_NUMBER',
3998: p_token2_value => p_term_rec.p_contract_number);
3999: END IF;
4000:
4001: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4002: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4003: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4004: RAISE OKL_API.G_EXCEPTION_ERROR;
4005: END IF;
3998: p_token2_value => p_term_rec.p_contract_number);
3999: END IF;
4000:
4001: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4002: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4003: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4004: RAISE OKL_API.G_EXCEPTION_ERROR;
4005: END IF;
4006:
3999: END IF;
4000:
4001: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4002: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4003: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4004: RAISE OKL_API.G_EXCEPTION_ERROR;
4005: END IF;
4006:
4007: -- Start MGAAP 7263041
4000:
4001: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4002: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4003: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4004: RAISE OKL_API.G_EXCEPTION_ERROR;
4005: END IF;
4006:
4007: -- Start MGAAP 7263041
4008: OKL_STREAMS_SEC_PVT.SET_REPO_STREAMS;
4016: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_STREAMS_UTIL.get_dependent_stream_type , return status : ' || l_return_status);
4017: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_accrual_sty_id_rep : ' || l_accrual_sty_id_rep);
4018: END IF;
4019:
4020: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
4021: l_acceleration_rec.sty_id := l_accrual_sty_id_rep;
4022: l_acceleration_rec.trx_number := l_trx_number;
4023:
4024: OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals (
4022: l_acceleration_rec.trx_number := l_trx_number;
4023:
4024: OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals (
4025: p_api_version => p_api_version,
4026: p_init_msg_list => OKL_API.G_FALSE,
4027: x_return_status => l_return_status,
4028: x_msg_count => l_msg_count,
4029: x_msg_data => l_msg_data,
4030: p_acceleration_rec => l_acceleration_rec,
4034: IF (is_debug_statement_on) THEN
4035: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals , return status : ' || l_return_status);
4036: END IF;
4037:
4038: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4039: OKL_API.set_message(
4040: p_app_name => G_APP_NAME,
4041: p_msg_name => 'OKL_AM_SUBSIDY_INC_RECOG',
4042: p_token1 => 'ASSET_NUMBER',
4035: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals , return status : ' || l_return_status);
4036: END IF;
4037:
4038: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4039: OKL_API.set_message(
4040: p_app_name => G_APP_NAME,
4041: p_msg_name => 'OKL_AM_SUBSIDY_INC_RECOG',
4042: p_token1 => 'ASSET_NUMBER',
4043: p_token1_value => l_asset_tbl(i).p_asset_name,
4044: p_token2 => 'CONTRACT_NUMBER',
4045: p_token2_value => p_term_rec.p_contract_number);
4046: END IF;
4047:
4048: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4049: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4050: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4051: RAISE OKL_API.G_EXCEPTION_ERROR;
4052: END IF;
4045: p_token2_value => p_term_rec.p_contract_number);
4046: END IF;
4047:
4048: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4049: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4050: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4051: RAISE OKL_API.G_EXCEPTION_ERROR;
4052: END IF;
4053:
4046: END IF;
4047:
4048: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4049: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4050: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4051: RAISE OKL_API.G_EXCEPTION_ERROR;
4052: END IF;
4053:
4054: END IF;
4047:
4048: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4049: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4050: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4051: RAISE OKL_API.G_EXCEPTION_ERROR;
4052: END IF;
4053:
4054: END IF;
4055: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS; --Added by bkatraga for bug 10032334
4186: IF (is_debug_statement_on) THEN
4187: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_CREATE_DISB_TRANS_PVT.create_disb_trx');
4188: END IF;
4189: OKL_CREATE_DISB_TRANS_PVT.create_disb_trx(p_api_version => l_api_version
4190: ,p_init_msg_list => OKL_API.G_FALSE
4191: ,x_return_status => l_return_status
4192: ,x_msg_count => x_msg_count
4193: ,x_msg_data => x_msg_data
4194: ,p_tapv_rec => l_tapv_rec
4198: );
4199: IF (is_debug_statement_on) THEN
4200: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_CREATE_DISB_TRANS_PVT.create_disb_trx , return status : ' || l_return_status);
4201: END IF;
4202: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4203: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4204: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4205: RAISE OKL_API.G_EXCEPTION_ERROR;
4206: END IF;
4199: IF (is_debug_statement_on) THEN
4200: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_CREATE_DISB_TRANS_PVT.create_disb_trx , return status : ' || l_return_status);
4201: END IF;
4202: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4203: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4204: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4205: RAISE OKL_API.G_EXCEPTION_ERROR;
4206: END IF;
4207:
4200: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_CREATE_DISB_TRANS_PVT.create_disb_trx , return status : ' || l_return_status);
4201: END IF;
4202: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4203: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4204: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4205: RAISE OKL_API.G_EXCEPTION_ERROR;
4206: END IF;
4207:
4208: x_tplv_rec := x_tplv_tbl(x_tplv_tbl.FIRST);
4201: END IF;
4202: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4203: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4204: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4205: RAISE OKL_API.G_EXCEPTION_ERROR;
4206: END IF;
4207:
4208: x_tplv_rec := x_tplv_tbl(x_tplv_tbl.FIRST);
4209:
4242: IF (is_debug_statement_on) THEN
4243: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_STREAMS_UTIL.get_dependent_stream_type , return status : ' || l_return_status);
4244: END IF;
4245:
4246: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4247: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4248: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4249: RAISE OKL_API.G_EXCEPTION_ERROR;
4250: END IF;
4243: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_STREAMS_UTIL.get_dependent_stream_type , return status : ' || l_return_status);
4244: END IF;
4245:
4246: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4247: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4248: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4249: RAISE OKL_API.G_EXCEPTION_ERROR;
4250: END IF;
4251:
4244: END IF;
4245:
4246: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4247: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4248: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4249: RAISE OKL_API.G_EXCEPTION_ERROR;
4250: END IF;
4251:
4252: l_sty_id := l_accrual_sty_id; --l_sub_rec.accrual_stream_type_id; --RMUNJULU *** Changed to pass accrual_stream_type_id
4245:
4246: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4247: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4248: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4249: RAISE OKL_API.G_EXCEPTION_ERROR;
4250: END IF;
4251:
4252: l_sty_id := l_accrual_sty_id; --l_sub_rec.accrual_stream_type_id; --RMUNJULU *** Changed to pass accrual_stream_type_id
4253: -- SECHAWLA 29-DEC-05 4911502 : added end
4346: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals');
4347: END IF;
4348: OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals (
4349: p_api_version => p_api_version,
4350: p_init_msg_list => OKL_API.G_FALSE,
4351: x_return_status => l_return_status,
4352: x_msg_count => l_msg_count,
4353: x_msg_data => l_msg_data,
4354: p_acceleration_rec => l_acceleration_rec,
4356: IF (is_debug_statement_on) THEN
4357: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals , return status : ' || l_return_status);
4358: END IF;
4359:
4360: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4361:
4362: OKL_API.set_message(
4363: p_app_name => G_APP_NAME,
4364: p_msg_name => 'OKL_AM_SUBSIDY_INC_RECOG',
4358: END IF;
4359:
4360: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4361:
4362: OKL_API.set_message(
4363: p_app_name => G_APP_NAME,
4364: p_msg_name => 'OKL_AM_SUBSIDY_INC_RECOG',
4365: p_token1 => 'ASSET_NUMBER',
4366: p_token1_value => l_asset_tbl(i).p_asset_name,
4368: p_token2_value => p_term_rec.p_contract_number);
4369:
4370: END IF;
4371:
4372: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4373: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4374: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4375: RAISE OKL_API.G_EXCEPTION_ERROR;
4376: END IF;
4369:
4370: END IF;
4371:
4372: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4373: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4374: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4375: RAISE OKL_API.G_EXCEPTION_ERROR;
4376: END IF;
4377: -- akrangan for bug 5669097 start
4370: END IF;
4371:
4372: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4373: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4374: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4375: RAISE OKL_API.G_EXCEPTION_ERROR;
4376: END IF;
4377: -- akrangan for bug 5669097 start
4378: -- Start MGAAP 7263041
4371:
4372: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4373: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4374: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4375: RAISE OKL_API.G_EXCEPTION_ERROR;
4376: END IF;
4377: -- akrangan for bug 5669097 start
4378: -- Start MGAAP 7263041
4379: OKL_STREAMS_SEC_PVT.SET_REPO_STREAMS;
4387: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_STREAMS_UTIL.get_dependent_stream_type , return status : ' || l_return_status);
4388: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_accrual_sty_id_rep : ' || l_accrual_sty_id_rep);
4389: END IF;
4390:
4391: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
4392: l_acceleration_rec.sty_id := l_accrual_sty_id_rep;
4393: l_acceleration_rec.trx_number := l_trx_number;
4394:
4395: OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals (
4393: l_acceleration_rec.trx_number := l_trx_number;
4394:
4395: OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals (
4396: p_api_version => p_api_version,
4397: p_init_msg_list => OKL_API.G_FALSE,
4398: x_return_status => l_return_status,
4399: x_msg_count => l_msg_count,
4400: x_msg_data => l_msg_data,
4401: p_acceleration_rec => l_acceleration_rec,
4405: IF (is_debug_statement_on) THEN
4406: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals , return status : ' || l_return_status);
4407: END IF;
4408:
4409: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4410: OKL_API.set_message(
4411: p_app_name => G_APP_NAME,
4412: p_msg_name => 'OKL_AM_SUBSIDY_INC_RECOG',
4413: p_token1 => 'ASSET_NUMBER',
4406: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals , return status : ' || l_return_status);
4407: END IF;
4408:
4409: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4410: OKL_API.set_message(
4411: p_app_name => G_APP_NAME,
4412: p_msg_name => 'OKL_AM_SUBSIDY_INC_RECOG',
4413: p_token1 => 'ASSET_NUMBER',
4414: p_token1_value => l_asset_tbl(i).p_asset_name,
4415: p_token2 => 'CONTRACT_NUMBER',
4416: p_token2_value => p_term_rec.p_contract_number);
4417: END IF;
4418:
4419: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4420: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4421: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4422: RAISE OKL_API.G_EXCEPTION_ERROR;
4423: END IF;
4416: p_token2_value => p_term_rec.p_contract_number);
4417: END IF;
4418:
4419: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4420: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4421: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4422: RAISE OKL_API.G_EXCEPTION_ERROR;
4423: END IF;
4424:
4417: END IF;
4418:
4419: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4420: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4421: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4422: RAISE OKL_API.G_EXCEPTION_ERROR;
4423: END IF;
4424:
4425: END IF;
4418:
4419: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4420: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4421: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4422: RAISE OKL_API.G_EXCEPTION_ERROR;
4423: END IF;
4424:
4425: END IF;
4426: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS; --Added by bkatraga for bug 10032334
4449: END IF;
4450: -- accelerate income recognition
4451: OKL_GENERATE_ACCRUALS_PVT.ACCELERATE_ACCRUALS(
4452: p_api_version => p_api_version,
4453: p_init_msg_list => OKL_API.G_FALSE,
4454: x_return_status => l_return_status,
4455: x_msg_count => l_msg_count,
4456: x_msg_data => l_msg_data,
4457: p_acceleration_rec => l_acceleration_rec,
4459: IF (is_debug_statement_on) THEN
4460: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.ACCELERATE_ACCRUALS , return status : ' || l_return_status);
4461: END IF;
4462:
4463: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4464:
4465: OKL_API.set_message(
4466: p_app_name => G_APP_NAME,
4467: p_msg_name => 'OKL_AM_SUBSIDY_INC_RECOG',
4461: END IF;
4462:
4463: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4464:
4465: OKL_API.set_message(
4466: p_app_name => G_APP_NAME,
4467: p_msg_name => 'OKL_AM_SUBSIDY_INC_RECOG',
4468: p_token1 => 'ASSET_NUMBER',
4469: p_token1_value => l_asset_tbl(i).p_asset_name,
4471: p_token2_value => p_term_rec.p_contract_number);
4472:
4473: END IF;
4474:
4475: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4476: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4477: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4478: RAISE OKL_API.G_EXCEPTION_ERROR;
4479: END IF;
4472:
4473: END IF;
4474:
4475: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4476: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4477: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4478: RAISE OKL_API.G_EXCEPTION_ERROR;
4479: END IF;
4480: -- akrangan for bug 5669097 start
4473: END IF;
4474:
4475: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4476: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4477: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4478: RAISE OKL_API.G_EXCEPTION_ERROR;
4479: END IF;
4480: -- akrangan for bug 5669097 start
4481: -- Start MGAAP 7263041
4474:
4475: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4476: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4477: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4478: RAISE OKL_API.G_EXCEPTION_ERROR;
4479: END IF;
4480: -- akrangan for bug 5669097 start
4481: -- Start MGAAP 7263041
4482: OKL_STREAMS_SEC_PVT.SET_REPO_STREAMS;
4490: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_STREAMS_UTIL.get_dependent_stream_type , return status : ' || l_return_status);
4491: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_accrual_sty_id_rep : ' || l_accrual_sty_id_rep);
4492: END IF;
4493:
4494: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
4495: l_acceleration_rec.sty_id := l_accrual_sty_id_rep;
4496: l_acceleration_rec.trx_number := l_trx_number;
4497:
4498: OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals (
4496: l_acceleration_rec.trx_number := l_trx_number;
4497:
4498: OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals (
4499: p_api_version => p_api_version,
4500: p_init_msg_list => OKL_API.G_FALSE,
4501: x_return_status => l_return_status,
4502: x_msg_count => l_msg_count,
4503: x_msg_data => l_msg_data,
4504: p_acceleration_rec => l_acceleration_rec,
4508: IF (is_debug_statement_on) THEN
4509: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals , return status : ' || l_return_status);
4510: END IF;
4511:
4512: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4513: OKL_API.set_message(
4514: p_app_name => G_APP_NAME,
4515: p_msg_name => 'OKL_AM_SUBSIDY_INC_RECOG',
4516: p_token1 => 'ASSET_NUMBER',
4509: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals , return status : ' || l_return_status);
4510: END IF;
4511:
4512: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4513: OKL_API.set_message(
4514: p_app_name => G_APP_NAME,
4515: p_msg_name => 'OKL_AM_SUBSIDY_INC_RECOG',
4516: p_token1 => 'ASSET_NUMBER',
4517: p_token1_value => l_asset_tbl(i).p_asset_name,
4518: p_token2 => 'CONTRACT_NUMBER',
4519: p_token2_value => p_term_rec.p_contract_number);
4520: END IF;
4521:
4522: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4523: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4524: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4525: RAISE OKL_API.G_EXCEPTION_ERROR;
4526: END IF;
4519: p_token2_value => p_term_rec.p_contract_number);
4520: END IF;
4521:
4522: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4523: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4524: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4525: RAISE OKL_API.G_EXCEPTION_ERROR;
4526: END IF;
4527:
4520: END IF;
4521:
4522: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4523: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4524: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4525: RAISE OKL_API.G_EXCEPTION_ERROR;
4526: END IF;
4527:
4528: END IF;
4521:
4522: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4523: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4524: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4525: RAISE OKL_API.G_EXCEPTION_ERROR;
4526: END IF;
4527:
4528: END IF;
4529: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS; --Added by bkatraga for bug 10032334
4545: END IF;
4546: -- get subsidy amount
4547: OKL_EXECUTE_FORMULA_PUB.execute(
4548: p_api_version => p_api_version,
4549: p_init_msg_list => OKL_API.G_FALSE,
4550: x_return_status => l_return_status,
4551: x_msg_count => l_msg_count,
4552: x_msg_data => l_msg_data,
4553: p_formula_name => l_formula_name,
4558: IF (is_debug_statement_on) THEN
4559: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_EXECUTE_FORMULA_PUB.execute , return status : ' || l_return_status);
4560: END IF;
4561:
4562: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4563: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4564: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4565: RAISE OKL_API.G_EXCEPTION_ERROR;
4566: END IF;
4559: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_EXECUTE_FORMULA_PUB.execute , return status : ' || l_return_status);
4560: END IF;
4561:
4562: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4563: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4564: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4565: RAISE OKL_API.G_EXCEPTION_ERROR;
4566: END IF;
4567: END IF; -- [13]
4560: END IF;
4561:
4562: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4563: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4564: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4565: RAISE OKL_API.G_EXCEPTION_ERROR;
4566: END IF;
4567: END IF; -- [13]
4568: END IF; --[9]
4561:
4562: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4563: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4564: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4565: RAISE OKL_API.G_EXCEPTION_ERROR;
4566: END IF;
4567: END IF; -- [13]
4568: END IF; --[9]
4569: -------------------------------------------------
4696: IF (is_debug_statement_on) THEN
4697: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_CREATE_DISB_TRANS_PVT.create_disb_trx');
4698: END IF;
4699: OKL_CREATE_DISB_TRANS_PVT.create_disb_trx(p_api_version => l_api_version
4700: ,p_init_msg_list => OKL_API.G_FALSE
4701: ,x_return_status => l_return_status
4702: ,x_msg_count => x_msg_count
4703: ,x_msg_data => x_msg_data
4704: ,p_tapv_rec => l_tapv_rec
4708: );
4709: IF (is_debug_statement_on) THEN
4710: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_CREATE_DISB_TRANS_PVT.create_disb_trx , return status : ' || l_return_status);
4711: END IF;
4712: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4713: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4714: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4715: RAISE OKL_API.G_EXCEPTION_ERROR;
4716: END IF;
4709: IF (is_debug_statement_on) THEN
4710: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_CREATE_DISB_TRANS_PVT.create_disb_trx , return status : ' || l_return_status);
4711: END IF;
4712: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4713: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4714: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4715: RAISE OKL_API.G_EXCEPTION_ERROR;
4716: END IF;
4717:
4710: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_CREATE_DISB_TRANS_PVT.create_disb_trx , return status : ' || l_return_status);
4711: END IF;
4712: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4713: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4714: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4715: RAISE OKL_API.G_EXCEPTION_ERROR;
4716: END IF;
4717:
4718: x_tplv_rec := x_tplv_tbl(x_tplv_tbl.FIRST);
4711: END IF;
4712: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4713: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4714: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4715: RAISE OKL_API.G_EXCEPTION_ERROR;
4716: END IF;
4717:
4718: x_tplv_rec := x_tplv_tbl(x_tplv_tbl.FIRST);
4719:
4728: END LOOP; -- Main --[L2]
4729: END IF;
4730:
4731: -- end the transaction
4732: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4733: IF (is_debug_procedure_on) THEN
4734: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
4735: END IF;
4736: EXCEPTION
4733: IF (is_debug_procedure_on) THEN
4734: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
4735: END IF;
4736: EXCEPTION
4737: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4738: IF (is_debug_exception_on) THEN
4739: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
4740: END IF;
4741:
4738: IF (is_debug_exception_on) THEN
4739: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
4740: END IF;
4741:
4742: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4743: (
4744: l_api_name,
4745: G_PKG_NAME,
4746: 'OKL_API.G_RET_STS_ERROR',
4742: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4743: (
4744: l_api_name,
4745: G_PKG_NAME,
4746: 'OKL_API.G_RET_STS_ERROR',
4747: x_msg_count,
4748: x_msg_data,
4749: '_PVT'
4750: );
4747: x_msg_count,
4748: x_msg_data,
4749: '_PVT'
4750: );
4751: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4752: IF (is_debug_exception_on) THEN
4753: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
4754: END IF;
4755:
4752: IF (is_debug_exception_on) THEN
4753: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
4754: END IF;
4755:
4756: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4757: (
4758: l_api_name,
4759: G_PKG_NAME,
4760: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4756: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4757: (
4758: l_api_name,
4759: G_PKG_NAME,
4760: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4761: x_msg_count,
4762: x_msg_data,
4763: '_PVT'
4764: );
4767: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
4768: || sqlcode || ' , SQLERRM : ' || sqlerrm);
4769: END IF;
4770:
4771: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4772: (
4773: l_api_name,
4774: G_PKG_NAME,
4775: 'OTHERS',
4797: -- : 21-Feb-05 rmunjulu Bug 4177025 Handle Return status properly
4798: -- End of comments
4799: PROCEDURE process_adjustments(
4800: p_api_version IN NUMBER,
4801: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4802: x_return_status OUT NOCOPY VARCHAR2,
4803: x_msg_count OUT NOCOPY NUMBER,
4804: x_msg_data OUT NOCOPY VARCHAR2,
4805: p_term_rec IN term_rec_type,
4812: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4813: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4814: l_api_name CONSTANT VARCHAR2(30) := 'process_adjustments';
4815: l_api_version CONSTANT NUMBER := 1;
4816: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS; -- rmunjulu TNA Defaulted
4817: l_msg_count NUMBER;
4818: l_msg_data VARCHAR2(2000);
4819: lx_asset_tbl OKL_AM_LEASE_TRMNT_PVT.klev_tbl_type;
4820: l_taiv_rec taiv_rec_type;
4948: l_msg_count := x_msg_count;
4949: l_msg_data := x_msg_data;
4950:
4951: --Check API version, initialize message list and create savepoint.
4952: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4953: G_PKG_NAME,
4954: p_init_msg_list,
4955: l_api_version,
4956: p_api_version,
4955: l_api_version,
4956: p_api_version,
4957: '_PVT',
4958: x_return_status);
4959: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4960: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4961: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4962: RAISE OKL_API.G_EXCEPTION_ERROR;
4963: END IF;
4956: p_api_version,
4957: '_PVT',
4958: x_return_status);
4959: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4960: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4961: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4962: RAISE OKL_API.G_EXCEPTION_ERROR;
4963: END IF;
4964:
4957: '_PVT',
4958: x_return_status);
4959: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4960: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4961: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4962: RAISE OKL_API.G_EXCEPTION_ERROR;
4963: END IF;
4964:
4965: -- MGAAP start 7263041
4958: x_return_status);
4959: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4960: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4961: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4962: RAISE OKL_API.G_EXCEPTION_ERROR;
4963: END IF;
4964:
4965: -- MGAAP start 7263041
4966: OPEN check_csr(p_term_rec.p_contract_id);
4986: END IF;
4987: -- get line details from OKL_AM_LEASE_TRMNT_PVT
4988: OKL_AM_LEASE_TRMNT_PVT.get_contract_lines(
4989: p_api_version => p_api_version,
4990: p_init_msg_list => OKL_API.G_FALSE,
4991: x_return_status => l_return_status,
4992: x_msg_count => l_msg_count,
4993: x_msg_data => l_msg_data,
4994: p_term_rec => p_term_rec,
4996: IF (is_debug_statement_on) THEN
4997: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_LEASE_TRMNT_PVT.get_contract_lines , return status : ' || l_return_status);
4998: END IF;
4999:
5000: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
5001: THEN
5002: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5003: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
5004: THEN
4998: END IF;
4999:
5000: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
5001: THEN
5002: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5003: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
5004: THEN
5005: RAISE OKL_API.G_EXCEPTION_ERROR;
5006: END IF;
4999:
5000: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
5001: THEN
5002: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5003: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
5004: THEN
5005: RAISE OKL_API.G_EXCEPTION_ERROR;
5006: END IF;
5007: -- If quote exists then accnting date is quote accept date else sysdate
5001: THEN
5002: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5003: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
5004: THEN
5005: RAISE OKL_API.G_EXCEPTION_ERROR;
5006: END IF;
5007: -- If quote exists then accnting date is quote accept date else sysdate
5008: IF nvl(okl_am_lease_loan_trmnt_pvt.g_quote_exists, 'N') = 'Y'
5009: THEN
5024: IF (is_debug_statement_on) THEN
5025: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.get_transaction_id , return status : ' || l_return_status);
5026: END IF;
5027:
5028: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
5029: OR NVL (l_cm_try_id, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM
5030: THEN
5031: l_return_status := OKL_API.G_RET_STS_ERROR;
5032: OKC_API.SET_MESSAGE (
5025: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.get_transaction_id , return status : ' || l_return_status);
5026: END IF;
5027:
5028: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
5029: OR NVL (l_cm_try_id, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM
5030: THEN
5031: l_return_status := OKL_API.G_RET_STS_ERROR;
5032: OKC_API.SET_MESSAGE (
5033: p_app_name => G_APP_NAME,
5027:
5028: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
5029: OR NVL (l_cm_try_id, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM
5030: THEN
5031: l_return_status := OKL_API.G_RET_STS_ERROR;
5032: OKC_API.SET_MESSAGE (
5033: p_app_name => G_APP_NAME,
5034: p_msg_name => G_INVALID_VALUE,
5035: p_token1 => G_COL_NAME_TOKEN,
5036: p_token1_value => 'Transaction Type');
5037: END IF;
5038:
5039: -- rmunjulu TNA Handle return status
5040: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5041: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5042: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5043: RAISE OKL_API.G_EXCEPTION_ERROR;
5044: END IF;
5037: END IF;
5038:
5039: -- rmunjulu TNA Handle return status
5040: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5041: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5042: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5043: RAISE OKL_API.G_EXCEPTION_ERROR;
5044: END IF;
5045:
5038:
5039: -- rmunjulu TNA Handle return status
5040: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5041: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5042: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5043: RAISE OKL_API.G_EXCEPTION_ERROR;
5044: END IF;
5045:
5046:
5039: -- rmunjulu TNA Handle return status
5040: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5041: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5042: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5043: RAISE OKL_API.G_EXCEPTION_ERROR;
5044: END IF;
5045:
5046:
5047: IF lx_asset_tbl.count > 0
5109: IF (is_debug_statement_on) THEN
5110: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_internal_billing_pvt.create_billing_trx , return status : ' || x_return_status);
5111: END IF;
5112:
5113: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5114: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5115: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5116: RAISE OKL_API.G_EXCEPTION_ERROR;
5117: END IF;
5110: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_internal_billing_pvt.create_billing_trx , return status : ' || x_return_status);
5111: END IF;
5112:
5113: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5114: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5115: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5116: RAISE OKL_API.G_EXCEPTION_ERROR;
5117: END IF;
5118:
5111: END IF;
5112:
5113: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5114: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5115: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5116: RAISE OKL_API.G_EXCEPTION_ERROR;
5117: END IF;
5118:
5119: /* --ansethur 23-FEB-2007 commented for R12 B Billing Architecture Begins
5112:
5113: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5114: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5115: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5116: RAISE OKL_API.G_EXCEPTION_ERROR;
5117: END IF;
5118:
5119: /* --ansethur 23-FEB-2007 commented for R12 B Billing Architecture Begins
5120:
5119: /* --ansethur 23-FEB-2007 commented for R12 B Billing Architecture Begins
5120:
5121: okl_trx_ar_invoices_pub.insert_trx_ar_invoices (
5122: p_api_version => P_api_version,
5123: p_init_msg_list => OKL_API.G_FALSE,
5124: x_return_status => l_return_status,
5125: x_msg_count => l_msg_count,
5126: x_msg_data => l_msg_data,
5127: p_taiv_rec => l_taiv_rec,
5127: p_taiv_rec => l_taiv_rec,
5128: x_taiv_rec => lx_taiv_rec);
5129:
5130: -- rmunjulu TNA Handle return status
5131: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5132: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5133: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5134: RAISE OKL_API.G_EXCEPTION_ERROR;
5135: END IF;
5128: x_taiv_rec => lx_taiv_rec);
5129:
5130: -- rmunjulu TNA Handle return status
5131: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5132: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5133: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5134: RAISE OKL_API.G_EXCEPTION_ERROR;
5135: END IF;
5136:
5129:
5130: -- rmunjulu TNA Handle return status
5131: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5132: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5133: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5134: RAISE OKL_API.G_EXCEPTION_ERROR;
5135: END IF;
5136:
5137: l_tilv_rec.line_number := l_counter;
5130: -- rmunjulu TNA Handle return status
5131: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5132: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5133: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5134: RAISE OKL_API.G_EXCEPTION_ERROR;
5135: END IF;
5136:
5137: l_tilv_rec.line_number := l_counter;
5138: l_tilv_rec.kle_id := lx_asset_tbl(l_counter).p_kle_id;
5144:
5145: -- Create Invoice Line
5146: okl_txl_ar_inv_lns_pub.insert_txl_ar_inv_lns (
5147: p_api_version => l_api_version,
5148: p_init_msg_list => OKL_API.G_FALSE,
5149: x_return_status => l_return_status,
5150: x_msg_count => l_msg_count,
5151: x_msg_data => l_msg_data,
5152: p_tilv_rec => l_tilv_rec,
5152: p_tilv_rec => l_tilv_rec,
5153: x_tilv_rec => lx_tilv_rec);
5154:
5155: -- rmunjulu TNA Handle return status
5156: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5157: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5158: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5159: RAISE OKL_API.G_EXCEPTION_ERROR;
5160: END IF;
5153: x_tilv_rec => lx_tilv_rec);
5154:
5155: -- rmunjulu TNA Handle return status
5156: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5157: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5158: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5159: RAISE OKL_API.G_EXCEPTION_ERROR;
5160: END IF;
5161:
5154:
5155: -- rmunjulu TNA Handle return status
5156: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5157: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5158: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5159: RAISE OKL_API.G_EXCEPTION_ERROR;
5160: END IF;
5161:
5162: -- Bug 4177025 PAGARG 10-Feb-2005 Fix start
5155: -- rmunjulu TNA Handle return status
5156: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5157: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5158: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5159: RAISE OKL_API.G_EXCEPTION_ERROR;
5160: END IF;
5161:
5162: -- Bug 4177025 PAGARG 10-Feb-2005 Fix start
5163: -- Added the call to create accounting distributions for the invoice lines
5160: END IF;
5161:
5162: -- Bug 4177025 PAGARG 10-Feb-2005 Fix start
5163: -- Added the call to create accounting distributions for the invoice lines
5164: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
5165: l_bpd_acc_rec.id := lx_tilv_rec.id;
5166: l_bpd_acc_rec.source_table := 'OKL_TXL_AR_INV_LNS_B';
5167:
5168: -- Create Accounting Distribution
5167:
5168: -- Create Accounting Distribution
5169: okl_acc_call_pub.create_acc_trans(
5170: p_api_version => l_api_version,
5171: p_init_msg_list => OKL_API.G_FALSE,
5172: x_return_status => l_return_status,
5173: x_msg_count => l_msg_count,
5174: x_msg_data => l_msg_data,
5175: p_bpd_acc_rec => l_bpd_acc_rec);
5174: x_msg_data => l_msg_data,
5175: p_bpd_acc_rec => l_bpd_acc_rec);
5176:
5177: -- rmunjulu Bug 4177025 Handle Return status properly
5178: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5180: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5181: RAISE OKL_API.G_EXCEPTION_ERROR;
5182: END IF;
5175: p_bpd_acc_rec => l_bpd_acc_rec);
5176:
5177: -- rmunjulu Bug 4177025 Handle Return status properly
5178: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5180: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5181: RAISE OKL_API.G_EXCEPTION_ERROR;
5182: END IF;
5183:
5176:
5177: -- rmunjulu Bug 4177025 Handle Return status properly
5178: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5180: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5181: RAISE OKL_API.G_EXCEPTION_ERROR;
5182: END IF;
5183:
5184: END IF;
5177: -- rmunjulu Bug 4177025 Handle Return status properly
5178: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5180: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5181: RAISE OKL_API.G_EXCEPTION_ERROR;
5182: END IF;
5183:
5184: END IF;
5185:
5223:
5224: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS; -- MGAAP 7263041
5225: OKL_ACCRUAL_SEC_PVT.Get_Accrual_Adjustment(
5226: p_api_version => p_api_version,
5227: p_init_msg_list => OKL_API.G_FALSE,
5228: x_return_status => l_return_status,
5229: x_msg_count => l_msg_count,
5230: x_msg_data => l_msg_data,
5231: p_contract_id => p_term_rec.p_contract_id,
5236: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_ACCRUAL_SEC_PVT.Get_Accrual_Adjustment , return status : ' || l_return_status);
5237: END IF;
5238:
5239: -- rmunjulu TNA Handle return status
5240: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5241: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5242: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5243: RAISE OKL_API.G_EXCEPTION_ERROR;
5244: END IF;
5237: END IF;
5238:
5239: -- rmunjulu TNA Handle return status
5240: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5241: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5242: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5243: RAISE OKL_API.G_EXCEPTION_ERROR;
5244: END IF;
5245:
5238:
5239: -- rmunjulu TNA Handle return status
5240: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5241: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5242: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5243: RAISE OKL_API.G_EXCEPTION_ERROR;
5244: END IF;
5245:
5246: -- rmunjulu TNA check if table has value before looping thru table and calling the other API
5239: -- rmunjulu TNA Handle return status
5240: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5241: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5242: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5243: RAISE OKL_API.G_EXCEPTION_ERROR;
5244: END IF;
5245:
5246: -- rmunjulu TNA check if table has value before looping thru table and calling the other API
5247: IF lx_accrual_adjustment_tbl.COUNT > 0 THEN
5252: p_try_name => 'TERMINATION',
5253: x_return_status => l_return_status,
5254: x_try_id => l_trmnt_try_id);
5255:
5256: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
5257: OR NVL (l_trmnt_try_id, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
5258:
5259: l_return_status := OKL_API.G_RET_STS_ERROR;
5260:
5253: x_return_status => l_return_status,
5254: x_try_id => l_trmnt_try_id);
5255:
5256: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
5257: OR NVL (l_trmnt_try_id, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
5258:
5259: l_return_status := OKL_API.G_RET_STS_ERROR;
5260:
5261: OKC_API.SET_MESSAGE (
5255:
5256: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
5257: OR NVL (l_trmnt_try_id, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
5258:
5259: l_return_status := OKL_API.G_RET_STS_ERROR;
5260:
5261: OKC_API.SET_MESSAGE (
5262: p_app_name => G_APP_NAME,
5263: p_msg_name => G_INVALID_VALUE,
5265: p_token1_value => 'Transaction Type');
5266: END IF;
5267:
5268: -- rmunjulu TNA Handle return status
5269: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5270: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5271: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5272: RAISE OKL_API.G_EXCEPTION_ERROR;
5273: END IF;
5266: END IF;
5267:
5268: -- rmunjulu TNA Handle return status
5269: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5270: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5271: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5272: RAISE OKL_API.G_EXCEPTION_ERROR;
5273: END IF;
5274: */
5267:
5268: -- rmunjulu TNA Handle return status
5269: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5270: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5271: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5272: RAISE OKL_API.G_EXCEPTION_ERROR;
5273: END IF;
5274: */
5275: --Populate online accrual rec type -- rmunjulu TNA set all the values for p_accrual_rec at one place
5268: -- rmunjulu TNA Handle return status
5269: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5270: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5271: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5272: RAISE OKL_API.G_EXCEPTION_ERROR;
5273: END IF;
5274: */
5275: --Populate online accrual rec type -- rmunjulu TNA set all the values for p_accrual_rec at one place
5276: l_accrual_rec.contract_id := p_term_rec.p_contract_id;
5294: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_GENERATE_ACCRUALS_PVT.adjust_accruals');
5295: END IF;
5296: OKL_GENERATE_ACCRUALS_PVT.adjust_accruals(
5297: p_api_version => p_api_version,
5298: p_init_msg_list => OKL_API.G_FALSE,
5299: x_return_status => l_return_status,
5300: x_msg_count => l_msg_count,
5301: x_msg_data => l_msg_data,
5302: --x_trx_number => lx_trx_number,-- bug 9191475
5307: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.adjust_accruals , return status : ' || l_return_status);
5308: END IF;
5309:
5310: -- rmunjulu TNA Handle return status
5311: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5312: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5313: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5314: RAISE OKL_API.G_EXCEPTION_ERROR;
5315: END IF;
5308: END IF;
5309:
5310: -- rmunjulu TNA Handle return status
5311: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5312: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5313: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5314: RAISE OKL_API.G_EXCEPTION_ERROR;
5315: END IF;
5316:
5309:
5310: -- rmunjulu TNA Handle return status
5311: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5312: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5313: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5314: RAISE OKL_API.G_EXCEPTION_ERROR;
5315: END IF;
5316:
5317: --14-Dec-2004 Bug# 3999921 PAGARG Fix end
5310: -- rmunjulu TNA Handle return status
5311: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5312: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5313: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5314: RAISE OKL_API.G_EXCEPTION_ERROR;
5315: END IF;
5316:
5317: --14-Dec-2004 Bug# 3999921 PAGARG Fix end
5318: END IF; -- Check for tbl has records
5327: OKL_STREAMS_SEC_PVT.SET_REPO_STREAMS; -- MGAAP 7263041
5328:
5329: OKL_ACCRUAL_SEC_PVT.Get_Accrual_Adjustment(
5330: p_api_version => p_api_version,
5331: p_init_msg_list => OKL_API.G_FALSE,
5332: x_return_status => l_return_status,
5333: x_msg_count => l_msg_count,
5334: x_msg_data => l_msg_data,
5335: p_contract_id => p_term_rec.p_contract_id,
5344: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_ACCRUAL_SEC_PVT.Get_Accrual_Adjustment , return status : ' || l_return_status);
5345: END IF;
5346:
5347: -- rmunjulu TNA Handle return status
5348: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5349: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5350: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5351: RAISE OKL_API.G_EXCEPTION_ERROR;
5352: END IF;
5345: END IF;
5346:
5347: -- rmunjulu TNA Handle return status
5348: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5349: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5350: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5351: RAISE OKL_API.G_EXCEPTION_ERROR;
5352: END IF;
5353:
5346:
5347: -- rmunjulu TNA Handle return status
5348: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5349: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5350: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5351: RAISE OKL_API.G_EXCEPTION_ERROR;
5352: END IF;
5353:
5354: -- rmunjulu TNA check if table has value before looping thru table and calling the other API
5347: -- rmunjulu TNA Handle return status
5348: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5349: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5350: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5351: RAISE OKL_API.G_EXCEPTION_ERROR;
5352: END IF;
5353:
5354: -- rmunjulu TNA check if table has value before looping thru table and calling the other API
5355: IF lx_accrual_adjustment_tbl.COUNT > 0 THEN
5377: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_GENERATE_ACCRUALS_PVT.adjust_accruals');
5378: END IF;
5379: OKL_GENERATE_ACCRUALS_PVT.adjust_accruals(
5380: p_api_version => p_api_version,
5381: p_init_msg_list => OKL_API.G_FALSE,
5382: x_return_status => l_return_status,
5383: x_msg_count => l_msg_count,
5384: x_msg_data => l_msg_data,
5385: --x_trx_number => lx_trx_number, --bug 9191475
5391: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.adjust_accruals , return status : ' || l_return_status);
5392: END IF;
5393:
5394: -- rmunjulu TNA Handle return status
5395: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5396: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5397: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5398: RAISE OKL_API.G_EXCEPTION_ERROR;
5399: END IF;
5392: END IF;
5393:
5394: -- rmunjulu TNA Handle return status
5395: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5396: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5397: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5398: RAISE OKL_API.G_EXCEPTION_ERROR;
5399: END IF;
5400:
5393:
5394: -- rmunjulu TNA Handle return status
5395: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5396: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5397: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5398: RAISE OKL_API.G_EXCEPTION_ERROR;
5399: END IF;
5400:
5401: --14-Dec-2004 Bug# 3999921 PAGARG Fix end
5394: -- rmunjulu TNA Handle return status
5395: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5396: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5397: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5398: RAISE OKL_API.G_EXCEPTION_ERROR;
5399: END IF;
5400:
5401: --14-Dec-2004 Bug# 3999921 PAGARG Fix end
5402: END IF; -- Check for tbl has records
5409: -- rmunjulu TNA Set the return status properly
5410: x_return_status := l_return_status;
5411:
5412: -- end the transaction
5413: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
5414: IF (is_debug_procedure_on) THEN
5415: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
5416: END IF;
5417: EXCEPTION
5414: IF (is_debug_procedure_on) THEN
5415: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
5416: END IF;
5417: EXCEPTION
5418: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5419: IF (is_debug_exception_on) THEN
5420: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
5421: END IF;
5422: -- rmunjulu TNA Close cursors in exception block
5425: END IF;
5426: IF l_ref_asset_amt_csr%ISOPEN THEN
5427: CLOSE l_ref_asset_amt_csr;
5428: END IF;
5429: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5430: (
5431: l_api_name,
5432: G_PKG_NAME,
5433: 'OKL_API.G_RET_STS_ERROR',
5429: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5430: (
5431: l_api_name,
5432: G_PKG_NAME,
5433: 'OKL_API.G_RET_STS_ERROR',
5434: x_msg_count,
5435: x_msg_data,
5436: '_PVT'
5437: );
5434: x_msg_count,
5435: x_msg_data,
5436: '_PVT'
5437: );
5438: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5439: IF (is_debug_exception_on) THEN
5440: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
5441: END IF;
5442: -- rmunjulu TNA Close cursors in exception block
5445: END IF;
5446: IF l_ref_asset_amt_csr%ISOPEN THEN
5447: CLOSE l_ref_asset_amt_csr;
5448: END IF;
5449: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5450: (
5451: l_api_name,
5452: G_PKG_NAME,
5453: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5449: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5450: (
5451: l_api_name,
5452: G_PKG_NAME,
5453: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5454: x_msg_count,
5455: x_msg_data,
5456: '_PVT'
5457: );
5466: END IF;
5467: IF l_ref_asset_amt_csr%ISOPEN THEN
5468: CLOSE l_ref_asset_amt_csr;
5469: END IF;
5470: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5471: (
5472: l_api_name,
5473: G_PKG_NAME,
5474: 'OTHERS',
5487: -- History : rmunjulu LOANS_ENHANCEMENTS
5488: -- End of comments
5489: PROCEDURE process_loan_refunds(
5490: p_api_version IN NUMBER,
5491: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
5492: x_return_status OUT NOCOPY VARCHAR2,
5493: x_msg_count OUT NOCOPY NUMBER,
5494: x_msg_data OUT NOCOPY VARCHAR2,
5495: p_term_rec IN term_rec_type,
5502: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5503: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5504: l_api_name CONSTANT VARCHAR2(30) := 'process_loan_refunds';
5505: l_api_version CONSTANT NUMBER := 1;
5506: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5507: l_msg_count NUMBER;
5508: l_msg_data VARCHAR2(2000);
5509: l_taiv_rec taiv_rec_type;
5510: lx_taiv_rec taiv_rec_type;
5558: l_msg_count := x_msg_count;
5559: l_msg_data := x_msg_data;
5560:
5561: --Check API version, initialize message list and create savepoint.
5562: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
5563: G_PKG_NAME,
5564: p_init_msg_list,
5565: l_api_version,
5566: p_api_version,
5566: p_api_version,
5567: '_PVT',
5568: x_return_status);
5569:
5570: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5571: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5572: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5573: RAISE OKL_API.G_EXCEPTION_ERROR;
5574: END IF;
5567: '_PVT',
5568: x_return_status);
5569:
5570: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5571: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5572: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5573: RAISE OKL_API.G_EXCEPTION_ERROR;
5574: END IF;
5575:
5568: x_return_status);
5569:
5570: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5571: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5572: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5573: RAISE OKL_API.G_EXCEPTION_ERROR;
5574: END IF;
5575:
5576: -- expiration
5569:
5570: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5571: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5572: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5573: RAISE OKL_API.G_EXCEPTION_ERROR;
5574: END IF;
5575:
5576: -- expiration
5577: IF nvl(okl_am_lease_loan_trmnt_pvt.g_quote_exists, 'N') = 'N' THEN
5597: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.get_excess_loan_payment , return status : ' || l_return_status);
5598: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_loan_refund_amount : ' || l_loan_refund_amount);
5599: END IF;
5600:
5601: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5602: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5603: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5604: RAISE OKL_API.G_EXCEPTION_ERROR;
5605: END IF;
5598: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_loan_refund_amount : ' || l_loan_refund_amount);
5599: END IF;
5600:
5601: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5602: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5603: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5604: RAISE OKL_API.G_EXCEPTION_ERROR;
5605: END IF;
5606:
5599: END IF;
5600:
5601: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5602: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5603: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5604: RAISE OKL_API.G_EXCEPTION_ERROR;
5605: END IF;
5606:
5607: l_loan_refund_amount := nvl(l_loan_refund_amount,0) * -1;
5600:
5601: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5602: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5603: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5604: RAISE OKL_API.G_EXCEPTION_ERROR;
5605: END IF;
5606:
5607: l_loan_refund_amount := nvl(l_loan_refund_amount,0) * -1;
5608:
5618: IF (is_debug_statement_on) THEN
5619: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.get_transaction_id , return status : ' || l_return_status);
5620: END IF;
5621:
5622: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
5623: OR NVL (l_cm_try_id, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM
5624: THEN
5625:
5626: OKC_API.SET_MESSAGE (
5619: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.get_transaction_id , return status : ' || l_return_status);
5620: END IF;
5621:
5622: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
5623: OR NVL (l_cm_try_id, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM
5624: THEN
5625:
5626: OKC_API.SET_MESSAGE (
5627: p_app_name => G_APP_NAME,
5628: p_msg_name => G_INVALID_VALUE,
5629: p_token1 => G_COL_NAME_TOKEN,
5630: p_token1_value => 'Transaction Type');
5631:
5632: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5633: END IF;
5634:
5635: l_functional_currency_code := OKL_AM_UTIL_PVT.get_functional_currency();
5636:
5657: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_currency_conversion_date : ' || l_currency_conversion_date);
5658: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_converted_amount : ' || l_converted_amount);
5659: END IF;
5660:
5661: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5662: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5663: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5664: RAISE OKL_API.G_EXCEPTION_ERROR;
5665: END IF;
5658: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_converted_amount : ' || l_converted_amount);
5659: END IF;
5660:
5661: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5662: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5663: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5664: RAISE OKL_API.G_EXCEPTION_ERROR;
5665: END IF;
5666:
5659: END IF;
5660:
5661: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5662: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5663: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5664: RAISE OKL_API.G_EXCEPTION_ERROR;
5665: END IF;
5666:
5667: IF (is_debug_statement_on) THEN
5660:
5661: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5662: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5663: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5664: RAISE OKL_API.G_EXCEPTION_ERROR;
5665: END IF;
5666:
5667: IF (is_debug_statement_on) THEN
5668: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling okl_streams_util.get_dependent_stream_type');
5680: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_streams_util.get_dependent_stream_type , return status : ' || l_return_status);
5681: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_sty_id : ' || l_sty_id);
5682: END IF;
5683:
5684: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5685: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5686: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5687: RAISE OKL_API.G_EXCEPTION_ERROR;
5688: END IF;
5681: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_sty_id : ' || l_sty_id);
5682: END IF;
5683:
5684: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5685: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5686: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5687: RAISE OKL_API.G_EXCEPTION_ERROR;
5688: END IF;
5689:
5682: END IF;
5683:
5684: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5685: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5686: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5687: RAISE OKL_API.G_EXCEPTION_ERROR;
5688: END IF;
5689:
5690: l_taiv_rec.currency_code := l_contract_currency_code;
5683:
5684: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5685: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5686: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5687: RAISE OKL_API.G_EXCEPTION_ERROR;
5688: END IF;
5689:
5690: l_taiv_rec.currency_code := l_contract_currency_code;
5691: l_taiv_rec.currency_conversion_type := l_currency_conversion_type;
5730: IF (is_debug_statement_on) THEN
5731: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_internal_billing_pvt.create_billing_trx , return status : ' || x_return_status);
5732: END IF;
5733:
5734: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5735: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5736: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5737: RAISE OKL_API.G_EXCEPTION_ERROR;
5738: END IF;
5731: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_internal_billing_pvt.create_billing_trx , return status : ' || x_return_status);
5732: END IF;
5733:
5734: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5735: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5736: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5737: RAISE OKL_API.G_EXCEPTION_ERROR;
5738: END IF;
5739:
5732: END IF;
5733:
5734: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5735: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5736: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5737: RAISE OKL_API.G_EXCEPTION_ERROR;
5738: END IF;
5739:
5740: /* --ansethur 27-FEB-2007 commented for R12 B Billing Architecture Begins
5733:
5734: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5735: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5736: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5737: RAISE OKL_API.G_EXCEPTION_ERROR;
5738: END IF;
5739:
5740: /* --ansethur 27-FEB-2007 commented for R12 B Billing Architecture Begins
5741: -- create invoice header
5740: /* --ansethur 27-FEB-2007 commented for R12 B Billing Architecture Begins
5741: -- create invoice header
5742: OKL_TRX_AR_INVOICES_PUB.insert_trx_ar_invoices (
5743: p_api_version => P_api_version,
5744: p_init_msg_list => OKL_API.G_FALSE,
5745: x_return_status => l_return_status,
5746: x_msg_count => l_msg_count,
5747: x_msg_data => l_msg_data,
5748: p_taiv_rec => l_taiv_rec,
5747: x_msg_data => l_msg_data,
5748: p_taiv_rec => l_taiv_rec,
5749: x_taiv_rec => lx_taiv_rec);
5750:
5751: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5752: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5753: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5754: RAISE OKL_API.G_EXCEPTION_ERROR;
5755: END IF;
5748: p_taiv_rec => l_taiv_rec,
5749: x_taiv_rec => lx_taiv_rec);
5750:
5751: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5752: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5753: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5754: RAISE OKL_API.G_EXCEPTION_ERROR;
5755: END IF;
5756:
5749: x_taiv_rec => lx_taiv_rec);
5750:
5751: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5752: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5753: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5754: RAISE OKL_API.G_EXCEPTION_ERROR;
5755: END IF;
5756:
5757: l_tilv_rec.line_number := l_counter;
5750:
5751: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5752: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5753: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5754: RAISE OKL_API.G_EXCEPTION_ERROR;
5755: END IF;
5756:
5757: l_tilv_rec.line_number := l_counter;
5758: l_tilv_rec.description := 'Loan Refund Amount on Expiration';
5763:
5764: -- Create Invoice Line
5765: OKL_TXL_AR_INV_LNS_PUB.insert_txl_ar_inv_lns (
5766: p_api_version => l_api_version,
5767: p_init_msg_list => OKL_API.G_FALSE,
5768: x_return_status => l_return_status,
5769: x_msg_count => l_msg_count,
5770: x_msg_data => l_msg_data,
5771: p_tilv_rec => l_tilv_rec,
5770: x_msg_data => l_msg_data,
5771: p_tilv_rec => l_tilv_rec,
5772: x_tilv_rec => lx_tilv_rec);
5773:
5774: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5775: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5776: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5777: RAISE OKL_API.G_EXCEPTION_ERROR;
5778: END IF;
5771: p_tilv_rec => l_tilv_rec,
5772: x_tilv_rec => lx_tilv_rec);
5773:
5774: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5775: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5776: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5777: RAISE OKL_API.G_EXCEPTION_ERROR;
5778: END IF;
5779:
5772: x_tilv_rec => lx_tilv_rec);
5773:
5774: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5775: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5776: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5777: RAISE OKL_API.G_EXCEPTION_ERROR;
5778: END IF;
5779:
5780: l_bpd_acc_rec.id := lx_tilv_rec.id;
5773:
5774: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5775: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5776: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5777: RAISE OKL_API.G_EXCEPTION_ERROR;
5778: END IF;
5779:
5780: l_bpd_acc_rec.id := lx_tilv_rec.id;
5781: l_bpd_acc_rec.source_table := 'OKL_TXL_AR_INV_LNS_B';
5782:
5783: -- Create Accounting Distribution
5784: OKL_ACC_CALL_PUB.create_acc_trans(
5785: p_api_version => l_api_version,
5786: p_init_msg_list => OKL_API.G_FALSE,
5787: x_return_status => l_return_status,
5788: x_msg_count => l_msg_count,
5789: x_msg_data => l_msg_data,
5790: p_bpd_acc_rec => l_bpd_acc_rec);
5788: x_msg_count => l_msg_count,
5789: x_msg_data => l_msg_data,
5790: p_bpd_acc_rec => l_bpd_acc_rec);
5791:
5792: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5793: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5794: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5795: RAISE OKL_API.G_EXCEPTION_ERROR;
5796: END IF;
5789: x_msg_data => l_msg_data,
5790: p_bpd_acc_rec => l_bpd_acc_rec);
5791:
5792: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5793: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5794: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5795: RAISE OKL_API.G_EXCEPTION_ERROR;
5796: END IF;
5797:
5790: p_bpd_acc_rec => l_bpd_acc_rec);
5791:
5792: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5793: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5794: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5795: RAISE OKL_API.G_EXCEPTION_ERROR;
5796: END IF;
5797:
5798: --ansethur 23-FEB-2007 commented for R12 B Billing Architecture Ends
5791:
5792: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5793: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5794: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5795: RAISE OKL_API.G_EXCEPTION_ERROR;
5796: END IF;
5797:
5798: --ansethur 23-FEB-2007 commented for R12 B Billing Architecture Ends
5799: */
5803:
5804: x_return_status := l_return_status;
5805:
5806: -- end the transaction
5807: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
5808: IF (is_debug_procedure_on) THEN
5809: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
5810: END IF;
5811: EXCEPTION
5808: IF (is_debug_procedure_on) THEN
5809: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
5810: END IF;
5811: EXCEPTION
5812: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5813: IF (is_debug_exception_on) THEN
5814: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
5815: END IF;
5816:
5813: IF (is_debug_exception_on) THEN
5814: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
5815: END IF;
5816:
5817: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5818: (
5819: l_api_name,
5820: G_PKG_NAME,
5821: 'OKL_API.G_RET_STS_ERROR',
5817: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5818: (
5819: l_api_name,
5820: G_PKG_NAME,
5821: 'OKL_API.G_RET_STS_ERROR',
5822: x_msg_count,
5823: x_msg_data,
5824: '_PVT'
5825: );
5822: x_msg_count,
5823: x_msg_data,
5824: '_PVT'
5825: );
5826: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5827: IF (is_debug_exception_on) THEN
5828: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
5829: END IF;
5830:
5827: IF (is_debug_exception_on) THEN
5828: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
5829: END IF;
5830:
5831: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5832: (
5833: l_api_name,
5834: G_PKG_NAME,
5835: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5831: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5832: (
5833: l_api_name,
5834: G_PKG_NAME,
5835: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5836: x_msg_count,
5837: x_msg_data,
5838: '_PVT'
5839: );
5842: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
5843: || sqlcode || ' , SQLERRM : ' || sqlerrm);
5844: END IF;
5845:
5846: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5847: (
5848: l_api_name,
5849: G_PKG_NAME,
5850: 'OTHERS',