[Home] [Help]
37: WHERE id = p_contract_id;
38:
39: l_last_int_calc_till_date DATE;
40: l_last_sch_int_calc_date DATE;
41: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
42: l_deal_type VARCHAR2(300);
43: l_rev_rec_method VARCHAR2(300);
44: l_int_cal_basis VARCHAR2(300);
45: l_tax_owner VARCHAR2(300);
81: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_int_cal_basis: ' || l_int_cal_basis);
82: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_tax_owner: ' || l_tax_owner);
83: END IF;
84:
85: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
86: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
87: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
88: RAISE OKL_API.G_EXCEPTION_ERROR;
89: END IF;
82: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_tax_owner: ' || l_tax_owner);
83: END IF;
84:
85: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
86: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
87: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
88: RAISE OKL_API.G_EXCEPTION_ERROR;
89: END IF;
90:
83: END IF;
84:
85: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
86: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
87: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
88: RAISE OKL_API.G_EXCEPTION_ERROR;
89: END IF;
90:
91: -- only for loans check int calc
84:
85: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
86: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
87: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
88: RAISE OKL_API.G_EXCEPTION_ERROR;
89: END IF;
90:
91: -- only for loans check int calc
92: -- rmunjulu LOANS_ENHANCEMENT added condition to check for only some cases
106: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_VARIABLE_INT_UTIL_PVT.get_last_interim_int_calc_date , return status: ' || l_return_status);
107: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_last_int_calc_till_date: ' || l_last_int_calc_till_date);
108: END IF;
109:
110: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
111: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
112: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
113: RAISE OKL_API.G_EXCEPTION_ERROR;
114: END IF;
107: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_last_int_calc_till_date: ' || l_last_int_calc_till_date);
108: END IF;
109:
110: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
111: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
112: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
113: RAISE OKL_API.G_EXCEPTION_ERROR;
114: END IF;
115:
108: END IF;
109:
110: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
111: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
112: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
113: RAISE OKL_API.G_EXCEPTION_ERROR;
114: END IF;
115:
116: -- SECHAWLA 24-JAN-05 4970009 : comparing l_last_int_calc_till_date with
109:
110: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
111: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
112: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
113: RAISE OKL_API.G_EXCEPTION_ERROR;
114: END IF;
115:
116: -- SECHAWLA 24-JAN-05 4970009 : comparing l_last_int_calc_till_date with
117: -- l_last_sch_int_calc_date won't work. e.g K1 (15-Jul-04 - 14-Oct-04)
143: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_VARIABLE_INT_UTIL_PVT.get_last_sch_int_calc_date , return status: ' || l_return_status);
144: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_last_sch_int_calc_date: ' || l_last_sch_int_calc_date);
145: END IF;
146:
147: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
148: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
149: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
150: RAISE OKL_API.G_EXCEPTION_ERROR;
151: END IF;
144: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_last_sch_int_calc_date: ' || l_last_sch_int_calc_date);
145: END IF;
146:
147: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
148: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
149: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
150: RAISE OKL_API.G_EXCEPTION_ERROR;
151: END IF;
152:
145: END IF;
146:
147: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
148: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
149: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
150: RAISE OKL_API.G_EXCEPTION_ERROR;
151: END IF;
152:
153: -- rmunjulu BUG 5050158 derive contract end date
146:
147: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
148: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
149: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
150: RAISE OKL_API.G_EXCEPTION_ERROR;
151: END IF;
152:
153: -- rmunjulu BUG 5050158 derive contract end date
154: --OPEN get_contract_end_date_csr (p_contract_id);
172: IF p_source = 'CREATE' THEN
173:
174: -- Termination quote cannot be created. Please process interest calculation
175: -- for contract CONTRACT_NUMBER up to the quote effective from date.
176: OKL_API.set_message (
177: p_app_name => 'OKL',
178: p_msg_name => 'OKL_AM_CREATE_TQ_RUN_INT_CALC',
179: p_token1 => 'CONTRACT_NUMBER',
180: p_token1_value => p_contract_number);
184: ELSIF p_quote_number IS NOT NULL AND p_source = 'UPDATE' THEN
185:
186: -- Quote QUOTE_NUMBER can not be accepted. Please process interest calculation
187: -- for contract CONTRACT_NUMBER up to the quote effective from date.
188: OKL_API.set_message (
189: p_app_name => 'OKL',
190: p_msg_name => 'OKL_AM_UPD_TQ_RUN_INT_CALC',
191: p_token1 => 'QUOTE_NUMBER',
192: p_token1_value => p_quote_number,
198: ELSIF p_source = 'TERMINATE' THEN
199:
200: -- Contract CONTRACT_NUMBER can not be terminated. Please process Regular Stream Billing
201: -- for contract up to the termination date TERMINATION_DATE.
202: OKL_API.set_message (
203: p_app_name => 'OKL',
204: p_msg_name => 'OKL_AM_TERMT_RUN_INT_CALC',
205: p_token1 => 'CONTRACT_NUMBER',
206: p_token1_value => p_contract_number,
222: IF p_source = 'CREATE' THEN
223:
224: -- Termination quote cannot be created. Please process interest calculation
225: -- for contract CONTRACT_NUMBER up to the quote effective from date.
226: OKL_API.set_message (
227: p_app_name => 'OKL',
228: p_msg_name => 'OKL_AM_CREATE_TQ_RUN_INT_CALC',
229: p_token1 => 'CONTRACT_NUMBER',
230: p_token1_value => p_contract_number);
234: ELSIF p_quote_number IS NOT NULL AND p_source = 'UPDATE' THEN
235:
236: -- Quote QUOTE_NUMBER can not be accepted. Please process interest calculation
237: -- for contract CONTRACT_NUMBER up to the quote effective from date.
238: OKL_API.set_message (
239: p_app_name => 'OKL',
240: p_msg_name => 'OKL_AM_UPD_TQ_RUN_INT_CALC',
241: p_token1 => 'QUOTE_NUMBER',
242: p_token1_value => p_quote_number,
248: ELSIF p_source = 'TERMINATE' THEN
249:
250: -- Contract CONTRACT_NUMBER can not be terminated. Please process Regular Stream Billing
251: -- for contract up to the termination date TERMINATION_DATE.
252: OKL_API.set_message (
253: p_app_name => 'OKL',
254: p_msg_name => 'OKL_AM_TERMT_RUN_INT_CALC',
255: p_token1 => 'CONTRACT_NUMBER',
256: p_token1_value => p_contract_number,
276: RETURN 'Y';
277:
278: EXCEPTION
279:
280: WHEN OKL_API.G_EXCEPTION_ERROR THEN
281: IF (is_debug_exception_on) THEN
282: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
283: END IF;
284: RETURN NULL;
282: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
283: END IF;
284: RETURN NULL;
285:
286: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
287: IF (is_debug_exception_on) THEN
288: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
289: END IF;
290: RETURN NULL;
294: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
295: || sqlcode || ' , SQLERRM : ' || sqlerrm);
296: END IF;
297:
298: OKL_API.set_message(
299: p_app_name => OKC_API.G_APP_NAME,
300: p_msg_name => G_UNEXPECTED_ERROR,
301: p_token1 => G_SQLCODE_TOKEN,
302: p_token1_value => SQLCODE,
359: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
360: || sqlcode || ' , SQLERRM : ' || sqlerrm);
361: END IF;
362: -- Set the oracle error message
363: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
364: p_msg_name => g_unexpected_error,
365: p_token1 => g_sqlcode_token,
366: p_token1_value => SQLCODE,
367: p_token2 => g_sqlerrm_token,
395: l_last_run NUMBER;
396: lp_tmgv_tbl OKL_TRX_MSGS_PUB.tmgv_tbl_type;
397: lx_tmgv_tbl OKL_TRX_MSGS_PUB.tmgv_tbl_type;
398:
399: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
400:
401: l_api_version CONSTANT NUMBER := 1;
402: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
403: l_msg_data VARCHAR2(2000);
398:
399: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
400:
401: l_api_version CONSTANT NUMBER := 1;
402: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
403: l_msg_data VARCHAR2(2000);
404: i NUMBER := 1;
405: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'get_set_tmg_run';
406: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
445: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_TRX_MSGS_PUB.update_trx_msgs');
446: END IF;
447: OKL_TRX_MSGS_PUB.update_trx_msgs (
448: p_api_version => l_api_version,
449: p_init_msg_list => OKL_API.G_FALSE,
450: x_return_status => l_return_status,
451: x_msg_count => l_msg_count,
452: x_msg_data => l_msg_data,
453: p_tmgv_tbl => lp_tmgv_tbl,
455: IF (is_debug_statement_on) THEN
456: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_TRX_MSGS_PUB.update_trx_msgs , return status: ' || l_return_status);
457: END IF;
458:
459: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
460: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
461: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
462: RAISE OKL_API.G_EXCEPTION_ERROR;
463: END IF;
456: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_TRX_MSGS_PUB.update_trx_msgs , return status: ' || l_return_status);
457: END IF;
458:
459: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
460: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
461: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
462: RAISE OKL_API.G_EXCEPTION_ERROR;
463: END IF;
464:
457: END IF;
458:
459: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
460: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
461: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
462: RAISE OKL_API.G_EXCEPTION_ERROR;
463: END IF;
464:
465: END IF;
458:
459: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
460: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
461: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
462: RAISE OKL_API.G_EXCEPTION_ERROR;
463: END IF;
464:
465: END IF;
466:
470: END IF;
471:
472: EXCEPTION
473:
474: WHEN OKL_API.G_EXCEPTION_ERROR THEN
475: IF (is_debug_exception_on) THEN
476: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
477: END IF;
478: x_return_status := OKL_API.G_RET_STS_ERROR;
474: WHEN OKL_API.G_EXCEPTION_ERROR THEN
475: IF (is_debug_exception_on) THEN
476: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
477: END IF;
478: x_return_status := OKL_API.G_RET_STS_ERROR;
479:
480: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
481: IF (is_debug_exception_on) THEN
482: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
476: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
477: END IF;
478: x_return_status := OKL_API.G_RET_STS_ERROR;
479:
480: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
481: IF (is_debug_exception_on) THEN
482: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
483: END IF;
484: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
480: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
481: IF (is_debug_exception_on) THEN
482: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
483: END IF;
484: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
485:
486: WHEN OTHERS THEN
487: IF (is_debug_exception_on) THEN
488: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
488: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
489: || sqlcode || ' , SQLERRM : ' || sqlerrm);
490: END IF;
491: -- Set the oracle error message
492: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
493: p_msg_name => g_unexpected_error,
494: p_token1 => g_sqlcode_token,
495: p_token1_value => SQLCODE,
496: p_token2 => g_sqlerrm_token,
494: p_token1 => g_sqlcode_token,
495: p_token1_value => SQLCODE,
496: p_token2 => g_sqlerrm_token,
497: p_token2_value => SQLERRM);
498: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
499:
500: END get_set_tmg_run;
501:
502:
570: IF (is_debug_statement_on) THEN
571: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_lease_asset_id: '|| p_lease_asset_id);
572: END IF;
573:
574: x_return_status := OKL_API.G_RET_STS_SUCCESS;
575:
576: -- call START_ACTIVITY to create savepoint, check compatibility
577: -- and initialize message list
578: x_return_status := OKL_API.START_ACTIVITY(
574: x_return_status := OKL_API.G_RET_STS_SUCCESS;
575:
576: -- call START_ACTIVITY to create savepoint, check compatibility
577: -- and initialize message list
578: x_return_status := OKL_API.START_ACTIVITY(
579: p_api_name => l_api_name,
580: p_pkg_name => G_PKG_NAME,
581: p_init_msg_list => p_init_msg_list,
582: l_api_version => l_api_version,
584: p_api_type => G_API_TYPE,
585: x_return_status => x_return_status);
586:
587: -- check if activity started successfully
588: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
589: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
590: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
591: raise OKL_API.G_EXCEPTION_ERROR;
592: END IF;
585: x_return_status => x_return_status);
586:
587: -- check if activity started successfully
588: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
589: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
590: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
591: raise OKL_API.G_EXCEPTION_ERROR;
592: END IF;
593:
586:
587: -- check if activity started successfully
588: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
589: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
590: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
591: raise OKL_API.G_EXCEPTION_ERROR;
592: END IF;
593:
594: -- Check if the Financial Asset is Serviced thru OKS
587: -- check if activity started successfully
588: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
589: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
590: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
591: raise OKL_API.G_EXCEPTION_ERROR;
592: END IF;
593:
594: -- Check if the Financial Asset is Serviced thru OKS
595: FOR link_rec IN link_csr(p_lease_asset_id) LOOP
601: END IF;
602: -- Get the Service Contract for the Leased Contract
603: OKL_SERVICE_INTEGRATION_PVT.check_service_link (
604: p_api_version => p_api_version,
605: p_init_msg_list => OKL_API.G_FALSE,
606: x_return_status => x_return_status,
607: x_msg_count => x_msg_count,
608: x_msg_data => x_msg_data,
609: p_lease_contract_id => l_okl_chr_id ,
614: END IF;
615:
616: x_service_contract_id := l_oks_chr_id;
617:
618: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
619: x_msg_data => x_msg_data);
620: IF (is_debug_procedure_on) THEN
621: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
622: END IF;
621: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
622: END IF;
623:
624: EXCEPTION
625: WHEN OKL_API.G_EXCEPTION_ERROR THEN
626: IF (is_debug_exception_on) THEN
627: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
628: END IF;
629: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
625: WHEN OKL_API.G_EXCEPTION_ERROR THEN
626: IF (is_debug_exception_on) THEN
627: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
628: END IF;
629: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
630: p_api_name => l_api_name,
631: p_pkg_name => G_PKG_NAME,
632: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
633: x_msg_count => x_msg_count,
633: x_msg_count => x_msg_count,
634: x_msg_data => x_msg_data,
635: p_api_type => G_API_TYPE);
636:
637: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
638: IF (is_debug_exception_on) THEN
639: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
640: END IF;
641: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
637: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
638: IF (is_debug_exception_on) THEN
639: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
640: END IF;
641: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
642: p_api_name => l_api_name,
643: p_pkg_name => G_PKG_NAME,
644: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
645: x_msg_count => x_msg_count,
650: IF (is_debug_exception_on) THEN
651: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
652: || sqlcode || ' , SQLERRM : ' || sqlerrm);
653: END IF;
654: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
655: p_api_name => l_api_name,
656: p_pkg_name => G_PKG_NAME,
657: p_exc_name => 'OTHERS',
658: x_msg_count => x_msg_count,
779: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
780: || sqlcode || ' , SQLERRM : ' || sqlerrm);
781: END IF;
782:
783: OKL_API.set_message(
784: p_app_name => OKC_API.G_APP_NAME,
785: p_msg_name => G_UNEXPECTED_ERROR,
786: p_token1 => G_SQLCODE_TOKEN,
787: p_token1_value => SQLCODE,
895: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
896: || sqlcode || ' , SQLERRM : ' || sqlerrm);
897: END IF;
898:
899: OKL_API.set_message(
900: p_app_name => OKC_API.G_APP_NAME,
901: p_msg_name => G_UNEXPECTED_ERROR,
902: p_token1 => G_SQLCODE_TOKEN,
903: p_token1_value => SQLCODE,
929:
930: l_service_integration_needed VARCHAR2(1) := 'N';
931: l_true_partial_quote VARCHAR2(1) := 'N';
932: l_oks_chr_id NUMBER;
933: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
934:
935: l_api_version CONSTANT NUMBER := 1;
936: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
937: l_msg_data VARCHAR2(2000);
932: l_oks_chr_id NUMBER;
933: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
934:
935: l_api_version CONSTANT NUMBER := 1;
936: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
937: l_msg_data VARCHAR2(2000);
938: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_service_k_int_needed';
939: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
940: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
972: -- since this procedure is called before the termination we cannot check contract is terminated or not here
973: -- so we will check that in service_k_intergration procedure.
974: -- If Recycle_YN = N
975: -- IF NVL(p_tcnv_rec.tmt_recycle_yn,'N') = 'N'
976: -- OR p_tcnv_rec.tmt_recycle_yn = OKL_API.G_MISS_CHAR THEN
977:
978: -- Get the linked lease details
979: IF (is_debug_statement_on) THEN
980: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_SERVICE_INTEGRATION_PVT.check_service_link');
980: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_SERVICE_INTEGRATION_PVT.check_service_link');
981: END IF;
982: OKL_SERVICE_INTEGRATION_PVT.check_service_link (
983: p_api_version => l_api_version,
984: p_init_msg_list => OKL_API.G_FALSE,
985: x_return_status => l_return_status,
986: x_msg_count => l_msg_count,
987: x_msg_data => l_msg_data,
988: p_lease_contract_id => p_term_rec.p_contract_id ,
992: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_SERVICE_INTEGRATION_PVT.check_service_link , return status: ' || l_return_status);
993: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_oks_chr_id: ' || l_oks_chr_id);
994: END IF;
995: -- If linked Lease
996: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
997: AND l_oks_chr_id IS NOT NULL THEN
998:
999: -- Find if Full Termination
1000: IF p_partial_yn = 'Y' THEN
1034: -- Get the linked lease details -- ***
1035: --OKL_SERVICE_INTEGRATION_PVT.check_service_link (
1036: check_service_link(
1037: p_api_version => l_api_version,
1038: p_init_msg_list => OKL_API.G_FALSE,
1039: x_return_status => l_return_status,
1040: x_msg_count => l_msg_count,
1041: x_msg_data => l_msg_data,
1042: p_lease_asset_id => p_asset_id ,
1045: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called check_service_link , l_oks_chr_id: ' || l_oks_chr_id);
1046: END IF;
1047:
1048: -- If linked Lease
1049: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
1050: AND l_oks_chr_id IS NOT NULL THEN
1051:
1052: l_service_integration_needed := 'Y';
1053:
1075: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1076: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1077: END IF;
1078:
1079: OKL_API.set_message(
1080: p_app_name => OKC_API.G_APP_NAME,
1081: p_msg_name => G_UNEXPECTED_ERROR,
1082: p_token1 => G_SQLCODE_TOKEN,
1083: p_token1_value => SQLCODE,
1120: SELECT SYP.delink_yn
1121: FROM OKL_SYSTEM_PARAMS SYP;
1122:
1123: l_delink_needed VARCHAR2(1) := 'N';
1124: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1125: l_wf_source VARCHAR2(20);
1126: l_termination_date DATE;
1127: l_quote_id NUMBER := NULL;
1128: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'service_k_integration';
1130: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1131: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1132:
1133: l_api_version CONSTANT NUMBER := 1;
1134: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
1135: l_msg_data VARCHAR2(2000);
1136:
1137: -- RMUNJULU 23-DEC-03 SERVICE K UPDATES
1138: l_oks_chr_id NUMBER;
1192: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_SERVICE_INTEGRATION_PVT.check_service_link');
1193: END IF;
1194: OKL_SERVICE_INTEGRATION_PVT.check_service_link (
1195: p_api_version => l_api_version,
1196: p_init_msg_list => OKL_API.G_FALSE,
1197: x_return_status => l_return_status,
1198: x_msg_count => l_msg_count,
1199: x_msg_data => l_msg_data,
1200: p_lease_contract_id => p_term_rec.p_contract_id ,
1209: END IF;
1210: -- De-link Lease from Service
1211: OKL_SERVICE_INTEGRATION_PVT.delink_service_contract(
1212: p_api_version => l_api_version,
1213: p_init_msg_list => OKL_API.G_FALSE,
1214: x_return_status => l_return_status,
1215: x_msg_count => l_msg_count,
1216: x_msg_data => l_msg_data,
1217: p_okl_chr_id => p_term_rec.p_contract_id);
1218: IF (is_debug_statement_on) THEN
1219: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_SERVICE_INTEGRATION_PVT.delink_service_contract , return status: ' || l_return_status);
1220: END IF;
1221: -- If De-link successful
1222: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN -- SUCCESS
1223: l_wf_source := 'SUCCESS';
1224: ELSE -- De-link error -- ERROR
1225: l_wf_source := 'ERROR';
1226: END IF;
1231: -- Set the termination date
1232: -- If Quote Exists then Termination date = Acceptance Date
1233: -- Else Termination date = Sysdate (ideal - do this after termination - get trn date)
1234: IF p_term_rec.p_quote_id IS NOT NULL
1235: AND p_term_rec.p_quote_id <> OKL_API.G_MISS_NUM THEN
1236:
1237: -- Get the quote acceptance date
1238: FOR get_quote_acc_dt_rec
1239: IN get_quote_acc_dt_csr(p_term_rec.p_quote_id) LOOP
1248: END IF;
1249:
1250: -- Set the Quote Id if termination request is from Quote
1251: IF p_term_rec.p_quote_id IS NOT NULL
1252: AND p_term_rec.p_quote_id <> OKL_API.G_MISS_NUM THEN
1253:
1254: l_quote_id := p_term_rec.p_quote_id;
1255:
1256: END IF;
1362: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1363: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1364: END IF;
1365:
1366: OKL_API.set_message(
1367: p_app_name => OKC_API.G_APP_NAME,
1368: p_msg_name => G_UNEXPECTED_ERROR,
1369: p_token1 => G_SQLCODE_TOKEN,
1370: p_token1_value => SQLCODE,
1398:
1399: l_service_contract VARCHAR2(300);
1400: l_oks_chr_id NUMBER;
1401: l_api_version NUMBER := 1;
1402: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
1403: l_msg_data VARCHAR2(2000);
1404: l_bill_stat_tbl OKL_BILL_STATUS_PUB.bill_stat_tbl_type; -- RMUNJULU 05-JAN-04 BPD Changed the API name
1405: l_bill_counter NUMBER;
1406: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1402: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
1403: l_msg_data VARCHAR2(2000);
1404: l_bill_stat_tbl OKL_BILL_STATUS_PUB.bill_stat_tbl_type; -- RMUNJULU 05-JAN-04 BPD Changed the API name
1405: l_bill_counter NUMBER;
1406: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1407: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_billing_done';
1408: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1409: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1410: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1442: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_BILL_STATUS_PUB.billing_status');
1443: END IF;
1444: OKL_BILL_STATUS_PUB.billing_status(
1445: p_api_version => l_api_version,
1446: p_init_msg_list => OKL_API.G_FALSE,
1447: x_return_status => l_return_status,
1448: x_msg_count => l_msg_count,
1449: x_msg_data => l_msg_data,
1450: x_bill_stat_tbl => l_bill_stat_tbl,
1482: ELSE -- throw message and return N
1483:
1484: -- Quote QUOTE_NUMBER can not be accepted. Please process Regular Stream billing
1485: -- for contract CONTRACT_NUMBER up to the quote effective from date.
1486: OKL_API.set_message (
1487: p_app_name => 'OKL',
1488: p_msg_name => 'OKL_AM_ACCEPT_TQ_RUN_BILLING',
1489: p_token1 => 'QUOTE_NUMBER',
1490: p_token1_value => p_quote_number,
1496: ELSE -- Give contract message
1497:
1498: -- Contract CONTRACT_NUMBER can not be terminated. Please process Regular Stream Billing
1499: -- for contract up to the termination date TERMINATION_DATE.
1500: OKL_API.set_message (
1501: p_app_name => 'OKL',
1502: p_msg_name => 'OKL_AM_RUN_BILLING',
1503: p_token1 => 'CONTRACT_NUMBER',
1504: p_token1_value => p_contract_number,
1518: END IF;
1519: -- Check if linked service contract exists for the quoted contract
1520: OKL_SERVICE_INTEGRATION_PVT.check_service_link (
1521: p_api_version => l_api_version,
1522: p_init_msg_list => OKL_API.G_FALSE,
1523: x_return_status => l_return_status,
1524: x_msg_count => l_msg_count,
1525: x_msg_data => l_msg_data,
1526: p_lease_contract_id => p_contract_id,
1530: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_oks_chr_id : ' || l_oks_chr_id);
1531: END IF;
1532:
1533: -- If linked Lease
1534: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
1535: AND l_oks_chr_id IS NOT NULL THEN --[1]
1536:
1537: -- Check if OKS Billing Done
1538: IF l_bill_stat_tbl.COUNT > 0 THEN --[2]
1553: IF p_quote_number IS NOT NULL THEN --[5]
1554:
1555: -- Quote QUOTE_NUMBER can not be accepted. Please process service billing
1556: -- for contract CONTRACT_NUMBER up to the quote effective from date.
1557: OKL_API.set_message (
1558: p_app_name => 'OKL',
1559: p_msg_name => 'OKL_AM_ACCEPT_TQ_RUN_SRV_BILL',
1560: p_token1 => 'QUOTE_NUMBER',
1561: p_token1_value => p_quote_number,
1567: ELSE -- Give contract message
1568:
1569: -- Contract CONTRACT_NUMBER can not be terminated. Please process
1570: -- service billing for contract up to the termination date TERMINATION_DATE.
1571: OKL_API.set_message (
1572: p_app_name => 'OKL',
1573: p_msg_name => 'OKL_AM_RUN_SRV_BILLING',
1574: p_token1 => 'CONTRACT_NUMBER',
1575: p_token1_value => p_contract_number,
1600: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1601: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1602: END IF;
1603:
1604: OKL_API.set_message(
1605: p_app_name => OKC_API.G_APP_NAME,
1606: p_msg_name => G_UNEXPECTED_ERROR,
1607: p_token1 => G_SQLCODE_TOKEN,
1608: p_token1_value => SQLCODE,
1632:
1633: l_service_contract VARCHAR2(300);
1634: l_oks_chr_id NUMBER;
1635: l_api_version NUMBER := 1;
1636: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
1637: l_msg_data VARCHAR2(2000);
1638: l_bill_stat_tbl OKL_BILL_STATUS_PUB.bill_stat_tbl_type;
1639: l_bill_counter NUMBER;
1640: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1636: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
1637: l_msg_data VARCHAR2(2000);
1638: l_bill_stat_tbl OKL_BILL_STATUS_PUB.bill_stat_tbl_type;
1639: l_bill_counter NUMBER;
1640: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1641: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'check_stream_billing_done';
1642: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1643: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1644: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1658: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_BILL_STATUS_PUB.billing_status');
1659: END IF;
1660: OKL_BILL_STATUS_PUB.billing_status(
1661: p_api_version => l_api_version,
1662: p_init_msg_list => OKL_API.G_FALSE,
1663: x_return_status => l_return_status,
1664: x_msg_count => l_msg_count,
1665: x_msg_data => l_msg_data,
1666: x_bill_stat_tbl => l_bill_stat_tbl,
1715: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1716: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1717: END IF;
1718:
1719: OKL_API.set_message(
1720: p_app_name => OKC_API.G_APP_NAME,
1721: p_msg_name => G_UNEXPECTED_ERROR,
1722: p_token1 => G_SQLCODE_TOKEN,
1723: p_token1_value => SQLCODE,
1831:
1832:
1833:
1834: k_header_rec k_header_csr%ROWTYPE;
1835: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1836: l_chg_request_in_process VARCHAR2(1) := '?';
1837: l_service_request VARCHAR2(1) := '?';
1838: l_quotes_exist VARCHAR2(1) := '?';
1839: l_tsu_code VARCHAR2(30) := '?';
1867: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_contract_id: '|| p_contract_id);
1868: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_control_flag: '|| p_control_flag);
1869: END IF;
1870:
1871: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1872:
1873: SELECT SYSDATE INTO l_sys_date FROM DUAL;
1874:
1875: OPEN k_header_csr;
1882:
1883: -- Check contract id passed is valid
1884: IF k_header_rec.id IS NULL OR k_header_rec.contract_number IS NULL THEN
1885:
1886: OKL_API.set_message( p_app_name => OKC_API.G_APP_NAME,
1887: p_msg_name => OKC_API.G_INVALID_VALUE,
1888: p_token1 => OKC_API.G_COL_NAME_TOKEN,
1889: p_token1_value => 'contract id');
1890:
1898: OR (k_header_rec.scs_code = 'LEASE'
1899: AND k_header_rec.deal_type LIKE 'LEASE%')-- Lease
1900: ) THEN
1901: -- Contract CONTRACT_NUMBER is neither a Lease nor a Loan.
1902: OKL_API.set_message( p_app_name => G_APP_NAME,
1903: p_msg_name => 'OKL_AM_K_TYPE_ERROR',
1904: p_token1 => 'CONTRACT_NUMBER',
1905: p_token1_value => k_header_rec.contract_number);
1906: RAISE l_invalid_contract;
1939: CLOSE k_service_request_csr;
1940: -- rmunjulu PERF -- End
1941:
1942: -- Check if template
1943: IF k_header_rec.template_yn = OKL_API.G_TRUE THEN
1944: -- Message: This operation is not allowed on contract template-(NUMBER).
1945: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
1946: p_msg_name => 'OKC_K_TEMPLATE',
1947: p_token1 => 'NUMBER',
1941:
1942: -- Check if template
1943: IF k_header_rec.template_yn = OKL_API.G_TRUE THEN
1944: -- Message: This operation is not allowed on contract template-(NUMBER).
1945: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
1946: p_msg_name => 'OKC_K_TEMPLATE',
1947: p_token1 => 'NUMBER',
1948: p_token1_value => k_header_rec.contract_number);
1949: RAISE l_invalid_contract;
1952: -- Check if locked
1953: IF l_chg_request_in_process = 'x' THEN
1954: -- Message: You cannot modify this contract now because a
1955: -- change request is active. Please try later.
1956: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
1957: p_msg_name => 'OKC_K_LOCKED');
1958: RAISE l_invalid_contract;
1959: END IF;
1960:
1961: -- Check if service requests found
1962: IF l_service_request = 'x' THEN
1963: -- Message: You cannot terminate this contract/line because a service
1964: --request is pending against this contract/line. Please try again later.
1965: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
1966: p_msg_name => 'OKC_SR_PENDING');
1967: RAISE l_invalid_contract;
1968: END IF;
1969:
1971:
1972: -- Check user status
1973: IF (k_header_rec.sts_code NOT IN ('BOOKED', 'EVERGREEN')) THEN
1974: -- Message: Contract (CONTRACT_NUMBER) is (STATUS).
1975: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
1976: p_msg_name => 'OKL_AM_CONTRACT_INACTIVE',
1977: p_token1 => 'CONTRACT_NUMBER',
1978: p_token1_value => k_header_rec.contract_number,
1979: p_token2 => 'STATUS',
2001: END IF;
2002:
2003:
2004: -- Check the return status
2005: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2006:
2007: -- Error occured in util proc, message set by util proc raise exp
2008: RAISE l_invalid_contract;
2009:
2014: IF lx_trn_tbl.COUNT > 0 THEN
2015:
2016: -- A termination transaction for the contract CONTRACT_NUMBER
2017: -- is already in progress.
2018: OKL_API.set_message (
2019: p_app_name => 'OKL',
2020: p_msg_name => 'OKL_AM_K_PENDING_TRN_ERROR',
2021: p_token1 => 'CONTRACT_NUMBER',
2022: p_token1_value => k_header_rec.contract_number);
2042: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.get_non_trn_contract_quotes , return status: ' || l_return_status);
2043: END IF;
2044:
2045: -- Check the return status
2046: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2047:
2048: -- Error occured in util proc, message set by util proc raise exp
2049: RAISE l_invalid_contract;
2050:
2056: AND k_header_rec.end_date > l_sys_date THEN
2057:
2058: -- Cannot terminate contract CONTRACT_NUMBER since no
2059: -- accepted quotes exists nor contract has reached its end date.
2060: OKL_API.set_message (
2061: p_app_name => G_APP_NAME,
2062: p_msg_name => 'OKL_AM_QTE_EXIST_NOT_REACH_END',
2063: p_token1 => 'CONTRACT_NUMBER',
2064: p_token1_value => k_header_rec.contract_number);
2080: -- Check user status
2081: IF k_header_rec.sts_code NOT IN ('BOOKED', 'EVERGREEN', 'BANKRUPTCY_HOLD',
2082: 'LITIGATION_HOLD', 'TERMINATION_HOLD') THEN
2083: -- Message: Contract (CONTRACT_NUMBER) is (STATUS).
2084: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
2085: p_msg_name => 'OKL_AM_CONTRACT_INACTIVE',
2086: p_token1 => 'CONTRACT_NUMBER',
2087: p_token1_value => k_header_rec.contract_number,
2088: p_token2 => 'STATUS',
2110: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.get_contract_transactions , return status: ' || l_return_status);
2111: END IF;
2112:
2113: -- Check the return status
2114: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2115:
2116: -- Error occured in util proc, message set by util proc raise exp
2117: RAISE l_invalid_contract;
2118:
2129: --IF lx_trn_tbl(i).tcn_type = 'TMT' THEN -- FULL termination
2130: IF lx_trn_tbl(i).tcn_type in ('TMT', 'EVG') THEN -- akrangan bug 5354501 fix added 'EVG'
2131: -- A termination transaction for the contract CONTRACT_NUMBER
2132: -- is already in progress.
2133: OKL_API.set_message (
2134: p_app_name => 'OKL',
2135: p_msg_name => 'OKL_AM_K_PENDING_TRN_ERROR',
2136: p_token1 => 'CONTRACT_NUMBER',
2137: p_token1_value => k_header_rec.contract_number);
2158: -- Check user status
2159: IF k_header_rec.sts_code NOT IN ( 'BOOKED', 'BANKRUPTCY_HOLD',
2160: 'LITIGATION_HOLD') THEN
2161: -- Message: Contract (CONTRACT_NUMBER) is (STATUS).
2162: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
2163: p_msg_name => 'OKL_AM_CONTRACT_INACTIVE',
2164: p_token1 => 'CONTRACT_NUMBER',
2165: p_token1_value => k_header_rec.contract_number,
2166: p_token2 => 'STATUS',
2179: IF k_header_rec.sts_code NOT IN ( 'TERMINATED','EXPIRED') THEN
2180: -- Message: Contract CONTRACT_NUMBER is still STATUS.
2181: -- Unable to generate the quote until the contract
2182: -- has been terminated or expired.
2183: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
2184: p_msg_name => 'OKL_AM_CONTRACT_STILL_ACTIVE',
2185: p_token1 => 'CONTRACT_NUMBER',
2186: p_token1_value => k_header_rec.contract_number,
2187: p_token2 => 'STATUS',
2199: -- Check user status
2200: IF k_header_rec.sts_code NOT IN ('BOOKED', 'EVERGREEN', 'BANKRUPTCY_HOLD',
2201: 'LITIGATION_HOLD', 'TERMINATION_HOLD') THEN
2202: -- Message: Contract (CONTRACT_NUMBER) is (STATUS).
2203: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
2204: p_msg_name => 'OKL_AM_CONTRACT_INACTIVE',
2205: p_token1 => 'CONTRACT_NUMBER',
2206: p_token1_value => k_header_rec.contract_number,
2207: p_token2 => 'STATUS',
2220: IF k_header_rec.sts_code NOT IN ( 'BOOKED',
2221: 'BANKRUPTCY_HOLD',
2222: 'LITIGATION_HOLD') THEN
2223: -- Message: Contract (CONTRACT_NUMBER) is (STATUS).
2224: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
2225: p_msg_name => 'OKL_AM_CONTRACT_INACTIVE',
2226: p_token1 => 'CONTRACT_NUMBER',
2227: p_token1_value => k_header_rec.contract_number,
2228: p_token2 => 'STATUS',
2241: IF k_header_rec.sts_code NOT IN ( 'TERMINATED','EXPIRED') THEN
2242: -- Message: Contract CONTRACT_NUMBER is still STATUS.
2243: -- Unable to generate the quote until the contract
2244: -- has been terminated or expired.
2245: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
2246: p_msg_name => 'OKL_AM_CONTRACT_STILL_ACTIVE',
2247: p_token1 => 'CONTRACT_NUMBER',
2248: p_token1_value => k_header_rec.contract_number,
2249: p_token2 => 'STATUS',
2258: -- If from batch process
2259: ELSIF (p_control_flag = 'BATCH_PROCESS') THEN
2260:
2261: -- Check if template
2262: IF k_header_rec.template_yn = OKL_API.G_TRUE THEN
2263: -- Message: This operation is not allowed on contract template-(NUMBER).
2264: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
2265: p_msg_name => 'OKC_K_TEMPLATE',
2266: p_token1 => 'NUMBER',
2260:
2261: -- Check if template
2262: IF k_header_rec.template_yn = OKL_API.G_TRUE THEN
2263: -- Message: This operation is not allowed on contract template-(NUMBER).
2264: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
2265: p_msg_name => 'OKC_K_TEMPLATE',
2266: p_token1 => 'NUMBER',
2267: p_token1_value => k_header_rec.contract_number);
2268: RAISE l_invalid_contract;
2272: -- Check if locked
2273: IF l_chg_request_in_process = 'x' THEN
2274: -- Message: You cannot modify this contract now because a
2275: -- change request is active. Please try later.
2276: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
2277: p_msg_name => 'OKC_K_LOCKED');
2278: RAISE l_invalid_contract;
2279: END IF;
2280:
2281: --Check if service requests found
2282: IF l_service_request = 'x' THEN
2283: -- Message: You cannot terminate this contract/line because a service
2284: --request is pending against this contract/line. Please try again later.
2285: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
2286: p_msg_name => 'OKC_SR_PENDING');
2287: RAISE l_invalid_contract;
2288: END IF;
2289: */
2296: -- If from batch process for single contract request
2297: ELSIF (p_control_flag = 'BATCH_PROCESS_CHR') THEN
2298:
2299: -- Check if template
2300: IF k_header_rec.template_yn = OKL_API.G_TRUE THEN
2301: -- Message: This operation is not allowed on contract template-(NUMBER).
2302: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
2303: p_msg_name => 'OKC_K_TEMPLATE',
2304: p_token1 => 'NUMBER',
2298:
2299: -- Check if template
2300: IF k_header_rec.template_yn = OKL_API.G_TRUE THEN
2301: -- Message: This operation is not allowed on contract template-(NUMBER).
2302: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
2303: p_msg_name => 'OKC_K_TEMPLATE',
2304: p_token1 => 'NUMBER',
2305: p_token1_value => k_header_rec.contract_number);
2306: RAISE l_invalid_contract;
2310: -- Check if locked
2311: IF l_chg_request_in_process = 'x' THEN
2312: -- Message: You cannot modify this contract now because a
2313: -- change request is active. Please try later.
2314: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
2315: p_msg_name => 'OKC_K_LOCKED');
2316: RAISE l_invalid_contract;
2317: END IF;
2318:
2319: --Check if service requests found
2320: IF l_service_request = 'x' THEN
2321: -- Message: You cannot terminate this contract/line because a service
2322: --request is pending against this contract/line. Please try again later.
2323: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
2324: p_msg_name => 'OKC_SR_PENDING');
2325: RAISE l_invalid_contract;
2326: END IF;
2327: */
2329: /*
2330: -- Check user status
2331: IF k_header_rec.sts_code <> 'BOOKED' THEN
2332: -- Message: Contract (CONTRACT_NUMBER) is (STATUS).
2333: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
2334: p_msg_name => 'OKL_AM_CONTRACT_INACTIVE',
2335: p_token1 => 'CONTRACT_NUMBER',
2336: p_token1_value => k_header_rec.contract_number,
2337: p_token2 => 'STATUS',
2348: -- Check if accepted quote exists
2349: IF (l_quotes_exist = 'x') THEN
2350: -- Message: Cannot terminate contract (CONTRACT_NUMBER) since
2351: -- accepted quote exists.
2352: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
2353: p_msg_name => 'OKL_AM_QUOTES_EXIST',
2354: p_token1 => 'CONTRACT_NUMBER',
2355: p_token1_value => k_header_rec.contract_number);
2356: RAISE l_invalid_contract;
2367: IF l_ste_code IS NOT NULL AND l_ste_code IN ('ENTERED','SIGNED','CANCELLED') THEN
2368: -- Message: Contract CONTRACT_NUMBER has invalid post-booking status - STATUS.
2369: -- Unable to create asset return for this contract.
2370:
2371: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
2372: p_msg_name => 'OKL_AM_K_INVALID_STATUS',
2373: p_token1 => 'CONTRACT_NUMBER',
2374: p_token1_value => l_contract_number,
2375: p_token2 => 'STATUS',
2387: -- Check user status
2388: IF k_header_rec.sts_code NOT IN ( 'TERMINATED','EXPIRED') THEN
2389: --Message: Contract CONTRACT_NUMBER is still STATUS.
2390: -- Unable to return assets for this contract.
2391: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
2392: p_msg_name => 'OKL_AM_K_INVALID_FOR_ART_ERR',
2393: p_token1 => 'CONTRACT_NUMBER',
2394: p_token1_value => k_header_rec.contract_number,
2395: p_token2 => 'STATUS',
2405:
2406: -- Check user status
2407: IF k_header_rec.sts_code <> 'BOOKED' THEN
2408: -- Message: Contract (CONTRACT_NUMBER) is (STATUS).
2409: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
2410: p_msg_name => 'OKL_AM_CONTRACT_INACTIVE',
2411: p_token1 => 'CONTRACT_NUMBER',
2412: p_token1_value => k_header_rec.contract_number,
2413: p_token2 => 'STATUS',
2446: END IF;
2447:
2448:
2449: -- notify caller of EXPECTED error
2450: x_return_status := OKL_API.G_RET_STS_ERROR;
2451:
2452: WHEN OTHERS THEN
2453: IF (is_debug_exception_on) THEN
2454: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
2470: CLOSE k_accepted_quote_csr;
2471: END IF;
2472:
2473: -- store SQL error message on message stack for caller
2474: OKL_API.SET_MESSAGE (
2475: p_app_name => OKC_API.G_APP_NAME
2476: ,p_msg_name => G_UNEXPECTED_ERROR
2477: ,p_token1 => G_SQLCODE_TOKEN
2478: ,p_token1_value => sqlcode
2479: ,p_token2 => G_SQLERRM_TOKEN
2480: ,p_token2_value => sqlerrm);
2481:
2482: -- notify caller of an UNEXPECTED error
2483: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2484: END validate_contract;
2485:
2486:
2487: -- Start of comments
2538: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_number: '|| p_term_rec.p_contract_number);
2539: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_contract_modifier: '|| p_term_rec.p_contract_modifier);
2540: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_id: '|| p_term_rec.p_quote_id);
2541: END IF;
2542: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2543: x_lease_loan_type := l_lease_loan_type;
2544:
2545: OPEN k_header_csr;
2546: FETCH k_header_csr INTO k_header_rec;
2544:
2545: OPEN k_header_csr;
2546: FETCH k_header_csr INTO k_header_rec;
2547: IF k_header_csr%NOTFOUND THEN
2548: OKL_API.set_message(p_app_name => OKC_API.G_APP_NAME,
2549: p_msg_name => 'OKC_K_CHANGED',
2550: p_token1 => 'NUMBER',
2551: p_token1_value => p_term_rec.p_contract_number,
2552: p_token2 => 'MODIFIER',
2551: p_token1_value => p_term_rec.p_contract_number,
2552: p_token2 => 'MODIFIER',
2553: p_token2_value => p_term_rec.p_contract_modifier);
2554: CLOSE k_header_csr;
2555: RAISE OKL_API.G_EXCEPTION_ERROR;
2556: END IF;
2557:
2558: OPEN k_deal_type_csr;
2559: FETCH k_deal_type_csr INTO l_deal_type;
2576: IF (is_debug_procedure_on) THEN
2577: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
2578: END IF;
2579: EXCEPTION
2580: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2581: IF (is_debug_exception_on) THEN
2582: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
2583: END IF;
2584: IF k_header_csr%ISOPEN THEN
2587: IF k_deal_type_csr%ISOPEN THEN
2588: CLOSE k_deal_type_csr;
2589: END IF;
2590: x_lease_loan_type := '$';
2591: x_return_status := OKL_API.G_RET_STS_ERROR;
2592:
2593: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2594: IF (is_debug_exception_on) THEN
2595: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
2589: END IF;
2590: x_lease_loan_type := '$';
2591: x_return_status := OKL_API.G_RET_STS_ERROR;
2592:
2593: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2594: IF (is_debug_exception_on) THEN
2595: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
2596: END IF;
2597: IF k_header_csr%ISOPEN THEN
2600: IF k_deal_type_csr%ISOPEN THEN
2601: CLOSE k_deal_type_csr;
2602: END IF;
2603: x_lease_loan_type := '$';
2604: x_return_status :=OKL_API.G_RET_STS_UNEXP_ERROR;
2605:
2606: WHEN OTHERS THEN
2607: IF (is_debug_exception_on) THEN
2608: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
2614: IF k_deal_type_csr%ISOPEN THEN
2615: CLOSE k_deal_type_csr;
2616: END IF;
2617: x_lease_loan_type := '$';
2618: OKL_API.set_message(p_app_name => okc_api.g_app_name,
2619: p_msg_name => g_unexpected_error,
2620: p_token1 => g_sqlcode_token,
2621: p_token1_value => sqlcode,
2622: p_token2 => g_sqlerrm_token,
2620: p_token1 => g_sqlcode_token,
2621: p_token1_value => sqlcode,
2622: p_token2 => g_sqlerrm_token,
2623: p_token2_value => sqlerrm);
2624: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2625: END check_lease_loan_type;
2626:
2627: ----------------------------------------------------------------------------
2628: -- PROCEDURE : process_non_batch
2642: l_can_terminate VARCHAR2(1) := 'Y';
2643: lp_tcnv_rec tcnv_rec_type;
2644: lx_tcnv_rec tcnv_rec_type;
2645: lx_contract_status VARCHAR2(200);
2646: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2647: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'process_non_batch';
2648: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2649: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2650: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2677: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'lx_contract_status : ' || lx_contract_status);
2678: END IF;
2679:
2680: -- If error abort this contract
2681: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2682: RAISE G_EXCEPTION_HALT;
2683: END IF;
2684:
2685: -- get transaction if exists
2696: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_trn_exists : ' || l_trn_exists);
2697: END IF;
2698:
2699: -- if error then abort this contract
2700: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2701: RAISE G_EXCEPTION_HALT;
2702: END IF;
2703:
2704: -- If trn exists then set the out tcnv_rec
2718: WHEN G_EXCEPTION_HALT THEN
2719: IF (is_debug_exception_on) THEN
2720: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_HALT');
2721: END IF;
2722: x_return_status := OKL_API.G_RET_STS_ERROR;
2723: x_can_terminate := 'N';
2724:
2725: WHEN OTHERS THEN
2726: IF (is_debug_exception_on) THEN
2726: IF (is_debug_exception_on) THEN
2727: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
2728: || sqlcode || ' , SQLERRM : ' || sqlerrm);
2729: END IF;
2730: x_return_status := OKL_API.G_RET_STS_ERROR;
2731: x_can_terminate := 'N';
2732: END process_non_batch;
2733:
2734:
2773: FROM OKL_TRX_QUOTES_V QTE
2774: WHERE QTE.id = p_qte_id;
2775:
2776:
2777: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2778: l_api_name CONSTANT VARCHAR2(30) := 'lease_loan_termination';
2779: l_lease_or_loan VARCHAR2(200);
2780: l_tcnv_rec tcnv_rec_type := p_tcnv_rec;
2781: l_trn_exists VARCHAR2(1) := 'N';
2811: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.tmt_recycle_yn: '||p_tcnv_rec.tmt_recycle_yn);
2812: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_tcnv_rec.qte_id: '||p_tcnv_rec.qte_id);
2813: END IF;
2814:
2815: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2816:
2817: -- if not batch process then check if can be terminated
2818: IF NVL(lp_term_rec.p_control_flag,'?') NOT IN ('BATCH_PROCESS','BATCH_PROCESS_CHR') THEN
2819:
2833: END IF;
2834:
2835:
2836: -- If error abort this contract
2837: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2838: RAISE OKL_API.G_EXCEPTION_ERROR;
2839: END IF;
2840: IF (l_can_terminate <> 'Y') THEN
2841: RAISE OKL_API.G_EXCEPTION_ERROR;
2834:
2835:
2836: -- If error abort this contract
2837: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2838: RAISE OKL_API.G_EXCEPTION_ERROR;
2839: END IF;
2840: IF (l_can_terminate <> 'Y') THEN
2841: RAISE OKL_API.G_EXCEPTION_ERROR;
2842: END IF;
2837: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2838: RAISE OKL_API.G_EXCEPTION_ERROR;
2839: END IF;
2840: IF (l_can_terminate <> 'Y') THEN
2841: RAISE OKL_API.G_EXCEPTION_ERROR;
2842: END IF;
2843:
2844: END IF;
2845:
2861:
2862:
2863:
2864: -- If error abort this contract
2865: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2866: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2867: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2868: RAISE OKL_API.G_EXCEPTION_ERROR;
2869: END IF;
2862:
2863:
2864: -- If error abort this contract
2865: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2866: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2867: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2868: RAISE OKL_API.G_EXCEPTION_ERROR;
2869: END IF;
2870:
2863:
2864: -- If error abort this contract
2865: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2866: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2867: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2868: RAISE OKL_API.G_EXCEPTION_ERROR;
2869: END IF;
2870:
2871:
2864: -- If error abort this contract
2865: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2866: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2867: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2868: RAISE OKL_API.G_EXCEPTION_ERROR;
2869: END IF;
2870:
2871:
2872:
2883: -- and it is a full termination
2884:
2885: -- Check if quote id passed to p_term_rec get partial_yn if yes
2886: IF lp_term_rec.p_quote_id IS NOT NULL
2887: AND lp_term_rec.p_quote_id <> OKL_API.G_MISS_NUM THEN
2888:
2889:
2890: -- This condition is from termination quotes
2891: OPEN l_qte_csr ( lp_term_rec.p_quote_id);
2897:
2898:
2899: -- else check if quote id passed to p_tcnv_rec get partial_yn if yes
2900: ELSIF l_tcnv_rec.qte_id IS NOT NULL
2901: AND l_tcnv_rec.qte_id <> OKL_API.G_MISS_NUM THEN
2902:
2903: -- This condition is from batch recycled trns which originated from qte
2904: OPEN l_qte_csr ( l_tcnv_rec.qte_id);
2905: FETCH l_qte_csr INTO l_qte_rec;
2931: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.get_non_trn_contract_quotes , return status: ' || l_return_status);
2932: END IF;
2933:
2934: -- Check the return status
2935: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2936:
2937: -- Error occured in util proc, message set by util proc raise exp
2938: RAISE OKL_API.G_EXCEPTION_ERROR;
2939:
2934: -- Check the return status
2935: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2936:
2937: -- Error occured in util proc, message set by util proc raise exp
2938: RAISE OKL_API.G_EXCEPTION_ERROR;
2939:
2940: END IF;
2941:
2942: -- Check if accepted quote with no trn exists for the contract
3016: IF (is_debug_statement_on) THEN
3017: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_CNTRCT_LN_TRMNT_PVT.asset_level_termination , return status: ' || l_return_status);
3018: END IF;
3019:
3020: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3021: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3022: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3023: RAISE OKL_API.G_EXCEPTION_ERROR;
3024: END IF;
3017: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_CNTRCT_LN_TRMNT_PVT.asset_level_termination , return status: ' || l_return_status);
3018: END IF;
3019:
3020: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3021: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3022: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3023: RAISE OKL_API.G_EXCEPTION_ERROR;
3024: END IF;
3025:
3018: END IF;
3019:
3020: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3021: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3022: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3023: RAISE OKL_API.G_EXCEPTION_ERROR;
3024: END IF;
3025:
3026: ELSIF (l_lease_or_loan = 'LEASE') THEN
3019:
3020: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3021: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3022: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3023: RAISE OKL_API.G_EXCEPTION_ERROR;
3024: END IF;
3025:
3026: ELSIF (l_lease_or_loan = 'LEASE') THEN
3027:
3039: IF (is_debug_statement_on) THEN
3040: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_LEASE_TRMNT_PVT.lease_termination , return status: ' || l_return_status);
3041: END IF;
3042:
3043: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3044: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3045: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3046: RAISE OKL_API.G_EXCEPTION_ERROR;
3047: END IF;
3040: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_LEASE_TRMNT_PVT.lease_termination , return status: ' || l_return_status);
3041: END IF;
3042:
3043: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3044: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3045: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3046: RAISE OKL_API.G_EXCEPTION_ERROR;
3047: END IF;
3048:
3041: END IF;
3042:
3043: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3044: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3045: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3046: RAISE OKL_API.G_EXCEPTION_ERROR;
3047: END IF;
3048:
3049: ELSIF (l_lease_or_loan = 'LOAN') THEN
3042:
3043: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3044: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3045: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3046: RAISE OKL_API.G_EXCEPTION_ERROR;
3047: END IF;
3048:
3049: ELSIF (l_lease_or_loan = 'LOAN') THEN
3050:
3062: IF (is_debug_statement_on) THEN
3063: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_LOAN_TRMNT_PVT.loan_termination , return status: ' || l_return_status);
3064: END IF;
3065:
3066: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3067: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3068: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3069: RAISE OKL_API.G_EXCEPTION_ERROR;
3070: END IF;
3063: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_LOAN_TRMNT_PVT.loan_termination , return status: ' || l_return_status);
3064: END IF;
3065:
3066: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3067: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3068: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3069: RAISE OKL_API.G_EXCEPTION_ERROR;
3070: END IF;
3071:
3064: END IF;
3065:
3066: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3067: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3068: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3069: RAISE OKL_API.G_EXCEPTION_ERROR;
3070: END IF;
3071:
3072: ELSIF (l_lease_or_loan = '$') THEN
3065:
3066: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3067: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3068: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3069: RAISE OKL_API.G_EXCEPTION_ERROR;
3070: END IF;
3071:
3072: ELSIF (l_lease_or_loan = '$') THEN
3073:
3074: -- type not found
3075: -- set message and raise exception
3076: -- Contract type, whether Lease or Loan could not be
3077: -- determined for Contract CONTRACT_NUMBER.
3078: OKL_API.set_message(p_app_name => G_APP_NAME,
3079: p_msg_name => 'OKL_AM_K_TYPE_NOT_FOUND',
3080: p_token1 => 'CONTRACT_NUMBER',
3081: p_token1_value => lp_term_rec.p_contract_number);
3082:
3079: p_msg_name => 'OKL_AM_K_TYPE_NOT_FOUND',
3080: p_token1 => 'CONTRACT_NUMBER',
3081: p_token1_value => lp_term_rec.p_contract_number);
3082:
3083: RAISE OKL_API.G_EXCEPTION_ERROR;
3084:
3085: ELSE
3086:
3087: -- neither lease or loan
3086:
3087: -- neither lease or loan
3088: -- set message and raise exception
3089: -- Contract CONTRACT_NUMBER is neither a Lease nor a Loan.
3090: OKL_API.set_message( p_app_name => G_APP_NAME,
3091: p_msg_name => 'OKL_AM_K_TYPE_ERROR',
3092: p_token1 => 'CONTRACT_NUMBER',
3093: p_token1_value => lp_term_rec.p_contract_number);
3094:
3091: p_msg_name => 'OKL_AM_K_TYPE_ERROR',
3092: p_token1 => 'CONTRACT_NUMBER',
3093: p_token1_value => lp_term_rec.p_contract_number);
3094:
3095: RAISE OKL_API.G_EXCEPTION_ERROR;
3096:
3097: END IF;
3098:
3099:
3116: END IF;
3117:
3118: EXCEPTION
3119:
3120: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3121: IF (is_debug_exception_on) THEN
3122: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
3123: END IF;
3124:
3126: IF l_qte_csr%ISOPEN THEN
3127: CLOSE l_qte_csr;
3128: END IF;
3129:
3130: x_return_status := OKL_API.G_RET_STS_ERROR;
3131:
3132: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3133: IF (is_debug_exception_on) THEN
3134: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
3128: END IF;
3129:
3130: x_return_status := OKL_API.G_RET_STS_ERROR;
3131:
3132: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3133: IF (is_debug_exception_on) THEN
3134: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
3135: END IF;
3136:
3139: CLOSE l_qte_csr;
3140: END IF;
3141:
3142:
3143: x_return_status :=OKL_API.G_RET_STS_UNEXP_ERROR;
3144:
3145: WHEN OTHERS THEN
3146: IF (is_debug_exception_on) THEN
3147: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
3153: CLOSE l_qte_csr;
3154: END IF;
3155:
3156:
3157: OKL_API.set_message(p_app_name => okc_api.g_app_name,
3158: p_msg_name => g_unexpected_error,
3159: p_token1 => g_sqlcode_token,
3160: p_token1_value => sqlcode,
3161: p_token2 => g_sqlerrm_token,
3160: p_token1_value => sqlcode,
3161: p_token2 => g_sqlerrm_token,
3162: p_token2_value => sqlerrm);
3163:
3164: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3165:
3166: END lease_loan_termination;
3167:
3168: ----------------------------------------------------------------------------
3178: x_msg_data OUT NOCOPY VARCHAR2,
3179: p_term_tbl IN term_tbl_type,
3180: p_tcnv_tbl IN tcnv_tbl_type) IS
3181:
3182: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3183: i NUMBER := 0;
3184: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3185: l_api_version CONSTANT NUMBER := 1;
3186: l_api_name CONSTANT VARCHAR2(30) := 'lease_loan_termination';
3180: p_tcnv_tbl IN tcnv_tbl_type) IS
3181:
3182: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3183: i NUMBER := 0;
3184: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3185: l_api_version CONSTANT NUMBER := 1;
3186: l_api_name CONSTANT VARCHAR2(30) := 'lease_loan_termination';
3187: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'lease_loan_termination';
3188: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3193: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
3194: END IF;
3195:
3196: --Check API version, initialize message list and create savepoint.
3197: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3198: G_PKG_NAME,
3199: p_init_msg_list,
3200: l_api_version,
3201: p_api_version,
3200: l_api_version,
3201: p_api_version,
3202: '_PVT',
3203: x_return_status);
3204: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3205: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3206: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3207: RAISE OKL_API.G_EXCEPTION_ERROR;
3208: END IF;
3201: p_api_version,
3202: '_PVT',
3203: x_return_status);
3204: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3205: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3206: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3207: RAISE OKL_API.G_EXCEPTION_ERROR;
3208: END IF;
3209:
3202: '_PVT',
3203: x_return_status);
3204: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3205: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3206: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3207: RAISE OKL_API.G_EXCEPTION_ERROR;
3208: END IF;
3209:
3210: --OKL_API.init_msg_list(p_init_msg_list);
3203: x_return_status);
3204: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3205: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3206: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3207: RAISE OKL_API.G_EXCEPTION_ERROR;
3208: END IF;
3209:
3210: --OKL_API.init_msg_list(p_init_msg_list);
3211: -- Initialize return_status
3206: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3207: RAISE OKL_API.G_EXCEPTION_ERROR;
3208: END IF;
3209:
3210: --OKL_API.init_msg_list(p_init_msg_list);
3211: -- Initialize return_status
3212: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3213: -- Initialize p_init_msg_list to True so that every time the message stack
3214: -- is set or else the messages for the successfull terminated contracts
3208: END IF;
3209:
3210: --OKL_API.init_msg_list(p_init_msg_list);
3211: -- Initialize return_status
3212: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3213: -- Initialize p_init_msg_list to True so that every time the message stack
3214: -- is set or else the messages for the successfull terminated contracts
3215: -- will come here which is not desired
3216: -- This method is called from Contract Termination screen
3220: i := p_term_tbl.FIRST;
3221: LOOP
3222: lease_loan_termination (
3223: p_api_version => p_api_version,
3224: p_init_msg_list => OKL_API.G_TRUE,
3225: x_return_status => l_return_status,
3226: x_msg_count => x_msg_count,
3227: x_msg_data => x_msg_data,
3228: p_term_rec => p_term_tbl(i),
3231: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called lease_loan_termination , return status: ' || l_return_status);
3232: END IF;
3233:
3234: -- rollback if terminating contract failed
3235: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3236: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3237: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3238: RAISE OKL_API.G_EXCEPTION_ERROR;
3239: END IF;
3232: END IF;
3233:
3234: -- rollback if terminating contract failed
3235: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3236: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3237: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3238: RAISE OKL_API.G_EXCEPTION_ERROR;
3239: END IF;
3240: EXIT WHEN (i = p_term_tbl.LAST);
3233:
3234: -- rollback if terminating contract failed
3235: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3236: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3237: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3238: RAISE OKL_API.G_EXCEPTION_ERROR;
3239: END IF;
3240: EXIT WHEN (i = p_term_tbl.LAST);
3241: i := p_term_tbl.NEXT(i);
3234: -- rollback if terminating contract failed
3235: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3236: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3237: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3238: RAISE OKL_API.G_EXCEPTION_ERROR;
3239: END IF;
3240: EXIT WHEN (i = p_term_tbl.LAST);
3241: i := p_term_tbl.NEXT(i);
3242: END LOOP;
3246:
3247: x_return_status := l_return_status;
3248:
3249: -- end the transaction
3250: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3251: IF (is_debug_procedure_on) THEN
3252: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
3253: END IF;
3254: EXCEPTION
3251: IF (is_debug_procedure_on) THEN
3252: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
3253: END IF;
3254: EXCEPTION
3255: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3256: IF (is_debug_exception_on) THEN
3257: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
3258: END IF;
3259:
3256: IF (is_debug_exception_on) THEN
3257: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
3258: END IF;
3259:
3260: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3261: (
3262: l_api_name,
3263: G_PKG_NAME,
3264: 'OKL_API.G_RET_STS_ERROR',
3260: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3261: (
3262: l_api_name,
3263: G_PKG_NAME,
3264: 'OKL_API.G_RET_STS_ERROR',
3265: x_msg_count,
3266: x_msg_data,
3267: '_PVT'
3268: );
3265: x_msg_count,
3266: x_msg_data,
3267: '_PVT'
3268: );
3269: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3270: IF (is_debug_exception_on) THEN
3271: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
3272: END IF;
3273:
3270: IF (is_debug_exception_on) THEN
3271: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
3272: END IF;
3273:
3274: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3275: (
3276: l_api_name,
3277: G_PKG_NAME,
3278: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3274: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3275: (
3276: l_api_name,
3277: G_PKG_NAME,
3278: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3279: x_msg_count,
3280: x_msg_data,
3281: '_PVT'
3282: );
3285: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
3286: || sqlcode || ' , SQLERRM : ' || sqlerrm);
3287: END IF;
3288:
3289: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3290: (
3291: l_api_name,
3292: G_PKG_NAME,
3293: 'OTHERS',
3336: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_qte_id: '|| p_qte_id);
3337: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trn_date: '|| p_trn_date);
3338: END IF;
3339:
3340: x_return_status := OKL_API.g_ret_sts_success;
3341:
3342: SELECT SYSDATE INTO l_trn_date FROM DUAL;
3343:
3344: -- if quote_id exists then
3342: SELECT SYSDATE INTO l_trn_date FROM DUAL;
3343:
3344: -- if quote_id exists then
3345: IF p_qte_id IS NOT NULL
3346: AND p_qte_id <> OKL_API.G_MISS_NUM THEN
3347:
3348: -- get quote dates
3349: OPEN quote_dates_csr (p_qte_id);
3350: FETCH quote_dates_csr INTO l_eff_from, l_accpt;
3377: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
3378: || sqlcode || ' , SQLERRM : ' || sqlerrm);
3379: END IF;
3380:
3381: x_return_status := OKL_API.g_ret_sts_error;
3382:
3383: -- Set the oracle error message
3384: OKL_API.set_message(
3385: p_app_name => OKC_API.G_APP_NAME,
3380:
3381: x_return_status := OKL_API.g_ret_sts_error;
3382:
3383: -- Set the oracle error message
3384: OKL_API.set_message(
3385: p_app_name => OKC_API.G_APP_NAME,
3386: p_msg_name => g_unexpected_error,
3387: p_token1 => g_sqlcode_token,
3388: p_token1_value => SQLCODE,
3411: -- a single call to disbursement API OKL_CREATE_DISB_TRANS_PVT.create_disb_trx
3412: -- End of comments
3413: PROCEDURE process_discount_subsidy(
3414: p_api_version IN NUMBER,
3415: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3416: x_return_status OUT NOCOPY VARCHAR2,
3417: x_msg_count OUT NOCOPY NUMBER,
3418: x_msg_data OUT NOCOPY VARCHAR2,
3419: p_term_rec IN term_rec_type,
3466: l_document_category VARCHAR2(100):= 'OKL Lease Pay Invoices';
3467: lx_dbseqnm VARCHAR2(2000):= '';
3468: lx_dbseqid NUMBER(38):= NULL;
3469: l_formula_name VARCHAR2(150);
3470: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3471: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
3472: l_msg_data VARCHAR2(2000);
3473:
3474: --akrangan for Bug 5669097 Fix Start
3467: lx_dbseqnm VARCHAR2(2000):= '';
3468: lx_dbseqid NUMBER(38):= NULL;
3469: l_formula_name VARCHAR2(150);
3470: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3471: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
3472: l_msg_data VARCHAR2(2000);
3473:
3474: --akrangan for Bug 5669097 Fix Start
3475: v_flag varchar2(1) :='N';
3667: IF (is_debug_exception_on) THEN
3668: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
3669: || sqlcode || ' , SQLERRM : ' || sqlerrm);
3670: END IF;
3671: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
3672: p_msg_name => 'OKL_UNEXPECTED_ERROR',
3673: p_token1 => 'OKL_SQLCODE',
3674: p_token1_value => SQLCODE,
3675: p_token2 => 'OKL_SQLERRM',
3690: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_control_flag: '|| p_term_rec.p_control_flag);
3691: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_term_rec.p_quote_type: '|| p_term_rec.p_quote_type);
3692: END IF;
3693: --Check API version, initialize message list and create savepoint.
3694: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3695: G_PKG_NAME,
3696: p_init_msg_list,
3697: l_api_version,
3698: p_api_version,
3697: l_api_version,
3698: p_api_version,
3699: '_PVT',
3700: x_return_status);
3701: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3702: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3703: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3704: RAISE OKL_API.G_EXCEPTION_ERROR;
3705: END IF;
3698: p_api_version,
3699: '_PVT',
3700: x_return_status);
3701: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3702: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3703: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3704: RAISE OKL_API.G_EXCEPTION_ERROR;
3705: END IF;
3706:
3699: '_PVT',
3700: x_return_status);
3701: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3702: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3703: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3704: RAISE OKL_API.G_EXCEPTION_ERROR;
3705: END IF;
3706:
3707:
3700: x_return_status);
3701: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3702: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3703: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3704: RAISE OKL_API.G_EXCEPTION_ERROR;
3705: END IF;
3706:
3707:
3708: -- Initialize return_status
3705: END IF;
3706:
3707:
3708: -- Initialize return_status
3709: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3710:
3711: -- rmunjulu +++++++++ Effective Dated Termination -- start ++++++++++++++++
3712:
3713: -- rmunjulu EDAT
3764: END IF;
3765: -- get line details from OKL_AM_LEASE_TRMNT_PVT
3766: OKL_AM_LEASE_TRMNT_PVT.get_contract_lines(
3767: p_api_version => p_api_version,
3768: p_init_msg_list => OKL_API.G_FALSE,
3769: x_return_status => l_return_status,
3770: x_msg_count => l_msg_count,
3771: x_msg_data => l_msg_data,
3772: p_term_rec => p_term_rec,
3774: IF (is_debug_statement_on) THEN
3775: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_LEASE_TRMNT_PVT.get_contract_lines , return status: ' || l_return_status);
3776: END IF;
3777:
3778: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3779: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3780: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3781: RAISE OKL_API.G_EXCEPTION_ERROR;
3782: END IF;
3775: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_LEASE_TRMNT_PVT.get_contract_lines , return status: ' || l_return_status);
3776: END IF;
3777:
3778: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3779: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3780: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3781: RAISE OKL_API.G_EXCEPTION_ERROR;
3782: END IF;
3783:
3776: END IF;
3777:
3778: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3779: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3780: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3781: RAISE OKL_API.G_EXCEPTION_ERROR;
3782: END IF;
3783:
3784: END IF; -- [1]
3777:
3778: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3779: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3780: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3781: RAISE OKL_API.G_EXCEPTION_ERROR;
3782: END IF;
3783:
3784: END IF; -- [1]
3785:
3793: END IF;
3794: -- rmunjulu 4622198 SPECIAL_ACCNT Get special accounting details
3795: OKL_SECURITIZATION_PVT.check_khr_ia_associated(
3796: p_api_version => l_api_version
3797: ,p_init_msg_list => OKL_API.G_FALSE
3798: ,x_return_status => l_return_status
3799: ,x_msg_count => l_msg_count
3800: ,x_msg_data => l_msg_data
3801: ,p_khr_id => p_term_rec.p_contract_id
3809: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_fact_synd_code : ' || l_fact_synd_code);
3810: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_inv_acct_code : ' || l_inv_acct_code);
3811: END IF;
3812:
3813: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3814: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3815: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3816: RAISE OKL_API.G_EXCEPTION_ERROR;
3817: END IF;
3810: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_inv_acct_code : ' || l_inv_acct_code);
3811: END IF;
3812:
3813: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3814: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3815: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3816: RAISE OKL_API.G_EXCEPTION_ERROR;
3817: END IF;
3818:
3811: END IF;
3812:
3813: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3814: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3815: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3816: RAISE OKL_API.G_EXCEPTION_ERROR;
3817: END IF;
3818:
3819: -- Loop through each asset and process
3812:
3813: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3814: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3815: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3816: RAISE OKL_API.G_EXCEPTION_ERROR;
3817: END IF;
3818:
3819: -- Loop through each asset and process
3820: IF l_asset_tbl.count > 0 THEN
3833: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_SUBSIDY_PROCESS_PVT.GET_RELK_TERMN_BASIS');
3834: END IF;
3835: OKL_SUBSIDY_PROCESS_PVT.GET_RELK_TERMN_BASIS(
3836: p_api_version => p_api_version,
3837: p_init_msg_list => OKL_API.G_FALSE,
3838: x_return_status => l_return_status,
3839: x_msg_count => l_msg_count,
3840: x_msg_data => l_msg_data,
3841: p_chr_id => p_term_rec.p_contract_id,
3866: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_STREAMS_UTIL.get_dependent_stream_type , return status : ' || l_return_status);
3867: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_accrual_sty_id : ' || l_accrual_sty_id);
3868: END IF;
3869:
3870: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3871: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3872: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3873: RAISE OKL_API.G_EXCEPTION_ERROR;
3874: END IF;
3867: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_accrual_sty_id : ' || l_accrual_sty_id);
3868: END IF;
3869:
3870: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3871: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3872: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3873: RAISE OKL_API.G_EXCEPTION_ERROR;
3874: END IF;
3875: -- rmunjulu 4399352 Added the following for bug 4399352 - end
3868: END IF;
3869:
3870: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3871: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3872: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3873: RAISE OKL_API.G_EXCEPTION_ERROR;
3874: END IF;
3875: -- rmunjulu 4399352 Added the following for bug 4399352 - end
3876: -- SECHAWLA 29-DEC-05 4911502 : moved from above : end
3869:
3870: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3871: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3872: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3873: RAISE OKL_API.G_EXCEPTION_ERROR;
3874: END IF;
3875: -- rmunjulu 4399352 Added the following for bug 4399352 - end
3876: -- SECHAWLA 29-DEC-05 4911502 : moved from above : end
3877:
3955: END IF;
3956: -- akrangan for bug 5669097 End
3957: OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals (
3958: p_api_version => p_api_version,
3959: p_init_msg_list => OKL_API.G_FALSE,
3960: x_return_status => l_return_status,
3961: x_msg_count => l_msg_count,
3962: x_msg_data => l_msg_data,
3963: p_acceleration_rec => l_acceleration_rec,
3965: IF (is_debug_statement_on) THEN
3966: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals , return status : ' || l_return_status);
3967: END IF;
3968:
3969: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3970: OKL_API.set_message(
3971: p_app_name => G_APP_NAME,
3972: p_msg_name => 'OKL_AM_SUBSIDY_INC_RECOG',
3973: p_token1 => 'ASSET_NUMBER',
3966: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals , return status : ' || l_return_status);
3967: END IF;
3968:
3969: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3970: OKL_API.set_message(
3971: p_app_name => G_APP_NAME,
3972: p_msg_name => 'OKL_AM_SUBSIDY_INC_RECOG',
3973: p_token1 => 'ASSET_NUMBER',
3974: p_token1_value => l_asset_tbl(i).p_asset_name,
3975: p_token2 => 'CONTRACT_NUMBER',
3976: p_token2_value => p_term_rec.p_contract_number);
3977: END IF;
3978:
3979: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3980: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3981: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3982: RAISE OKL_API.G_EXCEPTION_ERROR;
3983: END IF;
3976: p_token2_value => p_term_rec.p_contract_number);
3977: END IF;
3978:
3979: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3980: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3981: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3982: RAISE OKL_API.G_EXCEPTION_ERROR;
3983: END IF;
3984:
3977: END IF;
3978:
3979: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3980: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3981: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3982: RAISE OKL_API.G_EXCEPTION_ERROR;
3983: END IF;
3984:
3985: -- Start MGAAP 7263041
3978:
3979: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3980: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3981: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3982: RAISE OKL_API.G_EXCEPTION_ERROR;
3983: END IF;
3984:
3985: -- Start MGAAP 7263041
3986: OKL_STREAMS_SEC_PVT.SET_REPO_STREAMS;
3994: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_STREAMS_UTIL.get_dependent_stream_type , return status : ' || l_return_status);
3995: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_accrual_sty_id_rep : ' || l_accrual_sty_id_rep);
3996: END IF;
3997:
3998: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
3999: l_acceleration_rec.sty_id := l_accrual_sty_id_rep;
4000: l_acceleration_rec.trx_number := l_trx_number;
4001:
4002: OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals (
4000: l_acceleration_rec.trx_number := l_trx_number;
4001:
4002: OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals (
4003: p_api_version => p_api_version,
4004: p_init_msg_list => OKL_API.G_FALSE,
4005: x_return_status => l_return_status,
4006: x_msg_count => l_msg_count,
4007: x_msg_data => l_msg_data,
4008: p_acceleration_rec => l_acceleration_rec,
4013: IF (is_debug_statement_on) THEN
4014: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals , return status : ' || l_return_status);
4015: END IF;
4016:
4017: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4018: OKL_API.set_message(
4019: p_app_name => G_APP_NAME,
4020: p_msg_name => 'OKL_AM_SUBSIDY_INC_RECOG',
4021: p_token1 => 'ASSET_NUMBER',
4014: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals , return status : ' || l_return_status);
4015: END IF;
4016:
4017: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4018: OKL_API.set_message(
4019: p_app_name => G_APP_NAME,
4020: p_msg_name => 'OKL_AM_SUBSIDY_INC_RECOG',
4021: p_token1 => 'ASSET_NUMBER',
4022: p_token1_value => l_asset_tbl(i).p_asset_name,
4023: p_token2 => 'CONTRACT_NUMBER',
4024: p_token2_value => p_term_rec.p_contract_number);
4025: END IF;
4026:
4027: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4028: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4029: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4030: RAISE OKL_API.G_EXCEPTION_ERROR;
4031: END IF;
4024: p_token2_value => p_term_rec.p_contract_number);
4025: END IF;
4026:
4027: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4028: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4029: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4030: RAISE OKL_API.G_EXCEPTION_ERROR;
4031: END IF;
4032:
4025: END IF;
4026:
4027: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4028: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4029: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4030: RAISE OKL_API.G_EXCEPTION_ERROR;
4031: END IF;
4032:
4033: END IF;
4026:
4027: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4028: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4029: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4030: RAISE OKL_API.G_EXCEPTION_ERROR;
4031: END IF;
4032:
4033: END IF;
4034: -- end MGAAP 7263041
4164: IF (is_debug_statement_on) THEN
4165: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_CREATE_DISB_TRANS_PVT.create_disb_trx');
4166: END IF;
4167: OKL_CREATE_DISB_TRANS_PVT.create_disb_trx(p_api_version => l_api_version
4168: ,p_init_msg_list => OKL_API.G_FALSE
4169: ,x_return_status => l_return_status
4170: ,x_msg_count => x_msg_count
4171: ,x_msg_data => x_msg_data
4172: ,p_tapv_rec => l_tapv_rec
4176: );
4177: IF (is_debug_statement_on) THEN
4178: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_CREATE_DISB_TRANS_PVT.create_disb_trx , return status : ' || l_return_status);
4179: END IF;
4180: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4181: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4182: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4183: RAISE OKL_API.G_EXCEPTION_ERROR;
4184: END IF;
4177: IF (is_debug_statement_on) THEN
4178: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_CREATE_DISB_TRANS_PVT.create_disb_trx , return status : ' || l_return_status);
4179: END IF;
4180: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4181: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4182: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4183: RAISE OKL_API.G_EXCEPTION_ERROR;
4184: END IF;
4185:
4178: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_CREATE_DISB_TRANS_PVT.create_disb_trx , return status : ' || l_return_status);
4179: END IF;
4180: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4181: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4182: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4183: RAISE OKL_API.G_EXCEPTION_ERROR;
4184: END IF;
4185:
4186: x_tplv_rec := x_tplv_tbl(x_tplv_tbl.FIRST);
4179: END IF;
4180: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4181: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4182: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4183: RAISE OKL_API.G_EXCEPTION_ERROR;
4184: END IF;
4185:
4186: x_tplv_rec := x_tplv_tbl(x_tplv_tbl.FIRST);
4187:
4220: IF (is_debug_statement_on) THEN
4221: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_STREAMS_UTIL.get_dependent_stream_type , return status : ' || l_return_status);
4222: END IF;
4223:
4224: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4225: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4226: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4227: RAISE OKL_API.G_EXCEPTION_ERROR;
4228: END IF;
4221: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_STREAMS_UTIL.get_dependent_stream_type , return status : ' || l_return_status);
4222: END IF;
4223:
4224: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4225: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4226: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4227: RAISE OKL_API.G_EXCEPTION_ERROR;
4228: END IF;
4229:
4222: END IF;
4223:
4224: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4225: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4226: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4227: RAISE OKL_API.G_EXCEPTION_ERROR;
4228: END IF;
4229:
4230: l_sty_id := l_accrual_sty_id; --l_sub_rec.accrual_stream_type_id; --RMUNJULU *** Changed to pass accrual_stream_type_id
4223:
4224: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4225: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4226: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4227: RAISE OKL_API.G_EXCEPTION_ERROR;
4228: END IF;
4229:
4230: l_sty_id := l_accrual_sty_id; --l_sub_rec.accrual_stream_type_id; --RMUNJULU *** Changed to pass accrual_stream_type_id
4231: -- SECHAWLA 29-DEC-05 4911502 : added end
4324: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals');
4325: END IF;
4326: OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals (
4327: p_api_version => p_api_version,
4328: p_init_msg_list => OKL_API.G_FALSE,
4329: x_return_status => l_return_status,
4330: x_msg_count => l_msg_count,
4331: x_msg_data => l_msg_data,
4332: p_acceleration_rec => l_acceleration_rec,
4334: IF (is_debug_statement_on) THEN
4335: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals , return status : ' || l_return_status);
4336: END IF;
4337:
4338: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4339:
4340: OKL_API.set_message(
4341: p_app_name => G_APP_NAME,
4342: p_msg_name => 'OKL_AM_SUBSIDY_INC_RECOG',
4336: END IF;
4337:
4338: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4339:
4340: OKL_API.set_message(
4341: p_app_name => G_APP_NAME,
4342: p_msg_name => 'OKL_AM_SUBSIDY_INC_RECOG',
4343: p_token1 => 'ASSET_NUMBER',
4344: p_token1_value => l_asset_tbl(i).p_asset_name,
4346: p_token2_value => p_term_rec.p_contract_number);
4347:
4348: END IF;
4349:
4350: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4351: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4352: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4353: RAISE OKL_API.G_EXCEPTION_ERROR;
4354: END IF;
4347:
4348: END IF;
4349:
4350: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4351: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4352: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4353: RAISE OKL_API.G_EXCEPTION_ERROR;
4354: END IF;
4355: -- akrangan for bug 5669097 start
4348: END IF;
4349:
4350: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4351: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4352: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4353: RAISE OKL_API.G_EXCEPTION_ERROR;
4354: END IF;
4355: -- akrangan for bug 5669097 start
4356: -- Start MGAAP 7263041
4349:
4350: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4351: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4352: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4353: RAISE OKL_API.G_EXCEPTION_ERROR;
4354: END IF;
4355: -- akrangan for bug 5669097 start
4356: -- Start MGAAP 7263041
4357: OKL_STREAMS_SEC_PVT.SET_REPO_STREAMS;
4365: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_STREAMS_UTIL.get_dependent_stream_type , return status : ' || l_return_status);
4366: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_accrual_sty_id_rep : ' || l_accrual_sty_id_rep);
4367: END IF;
4368:
4369: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
4370: l_acceleration_rec.sty_id := l_accrual_sty_id_rep;
4371: l_acceleration_rec.trx_number := l_trx_number;
4372:
4373: OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals (
4371: l_acceleration_rec.trx_number := l_trx_number;
4372:
4373: OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals (
4374: p_api_version => p_api_version,
4375: p_init_msg_list => OKL_API.G_FALSE,
4376: x_return_status => l_return_status,
4377: x_msg_count => l_msg_count,
4378: x_msg_data => l_msg_data,
4379: p_acceleration_rec => l_acceleration_rec,
4384: IF (is_debug_statement_on) THEN
4385: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals , return status : ' || l_return_status);
4386: END IF;
4387:
4388: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4389: OKL_API.set_message(
4390: p_app_name => G_APP_NAME,
4391: p_msg_name => 'OKL_AM_SUBSIDY_INC_RECOG',
4392: p_token1 => 'ASSET_NUMBER',
4385: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals , return status : ' || l_return_status);
4386: END IF;
4387:
4388: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4389: OKL_API.set_message(
4390: p_app_name => G_APP_NAME,
4391: p_msg_name => 'OKL_AM_SUBSIDY_INC_RECOG',
4392: p_token1 => 'ASSET_NUMBER',
4393: p_token1_value => l_asset_tbl(i).p_asset_name,
4394: p_token2 => 'CONTRACT_NUMBER',
4395: p_token2_value => p_term_rec.p_contract_number);
4396: END IF;
4397:
4398: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4399: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4400: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4401: RAISE OKL_API.G_EXCEPTION_ERROR;
4402: END IF;
4395: p_token2_value => p_term_rec.p_contract_number);
4396: END IF;
4397:
4398: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4399: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4400: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4401: RAISE OKL_API.G_EXCEPTION_ERROR;
4402: END IF;
4403:
4396: END IF;
4397:
4398: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4399: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4400: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4401: RAISE OKL_API.G_EXCEPTION_ERROR;
4402: END IF;
4403:
4404: END IF;
4397:
4398: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4399: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4400: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4401: RAISE OKL_API.G_EXCEPTION_ERROR;
4402: END IF;
4403:
4404: END IF;
4405: -- end MGAAP 7263041
4427: END IF;
4428: -- accelerate income recognition
4429: OKL_GENERATE_ACCRUALS_PVT.ACCELERATE_ACCRUALS(
4430: p_api_version => p_api_version,
4431: p_init_msg_list => OKL_API.G_FALSE,
4432: x_return_status => l_return_status,
4433: x_msg_count => l_msg_count,
4434: x_msg_data => l_msg_data,
4435: p_acceleration_rec => l_acceleration_rec,
4437: IF (is_debug_statement_on) THEN
4438: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.ACCELERATE_ACCRUALS , return status : ' || l_return_status);
4439: END IF;
4440:
4441: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4442:
4443: OKL_API.set_message(
4444: p_app_name => G_APP_NAME,
4445: p_msg_name => 'OKL_AM_SUBSIDY_INC_RECOG',
4439: END IF;
4440:
4441: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4442:
4443: OKL_API.set_message(
4444: p_app_name => G_APP_NAME,
4445: p_msg_name => 'OKL_AM_SUBSIDY_INC_RECOG',
4446: p_token1 => 'ASSET_NUMBER',
4447: p_token1_value => l_asset_tbl(i).p_asset_name,
4449: p_token2_value => p_term_rec.p_contract_number);
4450:
4451: END IF;
4452:
4453: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4454: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4455: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4456: RAISE OKL_API.G_EXCEPTION_ERROR;
4457: END IF;
4450:
4451: END IF;
4452:
4453: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4454: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4455: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4456: RAISE OKL_API.G_EXCEPTION_ERROR;
4457: END IF;
4458: -- akrangan for bug 5669097 start
4451: END IF;
4452:
4453: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4454: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4455: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4456: RAISE OKL_API.G_EXCEPTION_ERROR;
4457: END IF;
4458: -- akrangan for bug 5669097 start
4459: -- Start MGAAP 7263041
4452:
4453: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4454: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4455: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4456: RAISE OKL_API.G_EXCEPTION_ERROR;
4457: END IF;
4458: -- akrangan for bug 5669097 start
4459: -- Start MGAAP 7263041
4460: OKL_STREAMS_SEC_PVT.SET_REPO_STREAMS;
4468: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_STREAMS_UTIL.get_dependent_stream_type , return status : ' || l_return_status);
4469: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_accrual_sty_id_rep : ' || l_accrual_sty_id_rep);
4470: END IF;
4471:
4472: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
4473: l_acceleration_rec.sty_id := l_accrual_sty_id_rep;
4474: l_acceleration_rec.trx_number := l_trx_number;
4475:
4476: OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals (
4474: l_acceleration_rec.trx_number := l_trx_number;
4475:
4476: OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals (
4477: p_api_version => p_api_version,
4478: p_init_msg_list => OKL_API.G_FALSE,
4479: x_return_status => l_return_status,
4480: x_msg_count => l_msg_count,
4481: x_msg_data => l_msg_data,
4482: p_acceleration_rec => l_acceleration_rec,
4487: IF (is_debug_statement_on) THEN
4488: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals , return status : ' || l_return_status);
4489: END IF;
4490:
4491: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4492: OKL_API.set_message(
4493: p_app_name => G_APP_NAME,
4494: p_msg_name => 'OKL_AM_SUBSIDY_INC_RECOG',
4495: p_token1 => 'ASSET_NUMBER',
4488: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.accelerate_accruals , return status : ' || l_return_status);
4489: END IF;
4490:
4491: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4492: OKL_API.set_message(
4493: p_app_name => G_APP_NAME,
4494: p_msg_name => 'OKL_AM_SUBSIDY_INC_RECOG',
4495: p_token1 => 'ASSET_NUMBER',
4496: p_token1_value => l_asset_tbl(i).p_asset_name,
4497: p_token2 => 'CONTRACT_NUMBER',
4498: p_token2_value => p_term_rec.p_contract_number);
4499: END IF;
4500:
4501: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4502: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4503: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4504: RAISE OKL_API.G_EXCEPTION_ERROR;
4505: END IF;
4498: p_token2_value => p_term_rec.p_contract_number);
4499: END IF;
4500:
4501: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4502: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4503: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4504: RAISE OKL_API.G_EXCEPTION_ERROR;
4505: END IF;
4506:
4499: END IF;
4500:
4501: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4502: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4503: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4504: RAISE OKL_API.G_EXCEPTION_ERROR;
4505: END IF;
4506:
4507: END IF;
4500:
4501: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4502: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4503: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4504: RAISE OKL_API.G_EXCEPTION_ERROR;
4505: END IF;
4506:
4507: END IF;
4508: -- end MGAAP 7263041
4523: END IF;
4524: -- get subsidy amount
4525: OKL_EXECUTE_FORMULA_PUB.execute(
4526: p_api_version => p_api_version,
4527: p_init_msg_list => OKL_API.G_FALSE,
4528: x_return_status => l_return_status,
4529: x_msg_count => l_msg_count,
4530: x_msg_data => l_msg_data,
4531: p_formula_name => l_formula_name,
4536: IF (is_debug_statement_on) THEN
4537: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_EXECUTE_FORMULA_PUB.execute , return status : ' || l_return_status);
4538: END IF;
4539:
4540: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4541: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4542: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4543: RAISE OKL_API.G_EXCEPTION_ERROR;
4544: END IF;
4537: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_EXECUTE_FORMULA_PUB.execute , return status : ' || l_return_status);
4538: END IF;
4539:
4540: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4541: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4542: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4543: RAISE OKL_API.G_EXCEPTION_ERROR;
4544: END IF;
4545: END IF; -- [13]
4538: END IF;
4539:
4540: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4541: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4542: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4543: RAISE OKL_API.G_EXCEPTION_ERROR;
4544: END IF;
4545: END IF; -- [13]
4546: END IF; --[9]
4539:
4540: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4541: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4542: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4543: RAISE OKL_API.G_EXCEPTION_ERROR;
4544: END IF;
4545: END IF; -- [13]
4546: END IF; --[9]
4547: -------------------------------------------------
4674: IF (is_debug_statement_on) THEN
4675: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_CREATE_DISB_TRANS_PVT.create_disb_trx');
4676: END IF;
4677: OKL_CREATE_DISB_TRANS_PVT.create_disb_trx(p_api_version => l_api_version
4678: ,p_init_msg_list => OKL_API.G_FALSE
4679: ,x_return_status => l_return_status
4680: ,x_msg_count => x_msg_count
4681: ,x_msg_data => x_msg_data
4682: ,p_tapv_rec => l_tapv_rec
4686: );
4687: IF (is_debug_statement_on) THEN
4688: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_CREATE_DISB_TRANS_PVT.create_disb_trx , return status : ' || l_return_status);
4689: END IF;
4690: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4691: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4692: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4693: RAISE OKL_API.G_EXCEPTION_ERROR;
4694: END IF;
4687: IF (is_debug_statement_on) THEN
4688: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_CREATE_DISB_TRANS_PVT.create_disb_trx , return status : ' || l_return_status);
4689: END IF;
4690: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4691: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4692: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4693: RAISE OKL_API.G_EXCEPTION_ERROR;
4694: END IF;
4695:
4688: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_CREATE_DISB_TRANS_PVT.create_disb_trx , return status : ' || l_return_status);
4689: END IF;
4690: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4691: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4692: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4693: RAISE OKL_API.G_EXCEPTION_ERROR;
4694: END IF;
4695:
4696: x_tplv_rec := x_tplv_tbl(x_tplv_tbl.FIRST);
4689: END IF;
4690: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4691: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4692: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4693: RAISE OKL_API.G_EXCEPTION_ERROR;
4694: END IF;
4695:
4696: x_tplv_rec := x_tplv_tbl(x_tplv_tbl.FIRST);
4697:
4706: END LOOP; -- Main --[L2]
4707: END IF;
4708:
4709: -- end the transaction
4710: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4711: IF (is_debug_procedure_on) THEN
4712: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
4713: END IF;
4714: EXCEPTION
4711: IF (is_debug_procedure_on) THEN
4712: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
4713: END IF;
4714: EXCEPTION
4715: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4716: IF (is_debug_exception_on) THEN
4717: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
4718: END IF;
4719:
4716: IF (is_debug_exception_on) THEN
4717: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
4718: END IF;
4719:
4720: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4721: (
4722: l_api_name,
4723: G_PKG_NAME,
4724: 'OKL_API.G_RET_STS_ERROR',
4720: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4721: (
4722: l_api_name,
4723: G_PKG_NAME,
4724: 'OKL_API.G_RET_STS_ERROR',
4725: x_msg_count,
4726: x_msg_data,
4727: '_PVT'
4728: );
4725: x_msg_count,
4726: x_msg_data,
4727: '_PVT'
4728: );
4729: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4730: IF (is_debug_exception_on) THEN
4731: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
4732: END IF;
4733:
4730: IF (is_debug_exception_on) THEN
4731: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
4732: END IF;
4733:
4734: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4735: (
4736: l_api_name,
4737: G_PKG_NAME,
4738: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4734: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4735: (
4736: l_api_name,
4737: G_PKG_NAME,
4738: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4739: x_msg_count,
4740: x_msg_data,
4741: '_PVT'
4742: );
4745: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
4746: || sqlcode || ' , SQLERRM : ' || sqlerrm);
4747: END IF;
4748:
4749: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4750: (
4751: l_api_name,
4752: G_PKG_NAME,
4753: 'OTHERS',
4775: -- : 21-Feb-05 rmunjulu Bug 4177025 Handle Return status properly
4776: -- End of comments
4777: PROCEDURE process_adjustments(
4778: p_api_version IN NUMBER,
4779: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4780: x_return_status OUT NOCOPY VARCHAR2,
4781: x_msg_count OUT NOCOPY NUMBER,
4782: x_msg_data OUT NOCOPY VARCHAR2,
4783: p_term_rec IN term_rec_type,
4790: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4791: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4792: l_api_name CONSTANT VARCHAR2(30) := 'process_adjustments';
4793: l_api_version CONSTANT NUMBER := 1;
4794: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS; -- rmunjulu TNA Defaulted
4795: l_msg_count NUMBER;
4796: l_msg_data VARCHAR2(2000);
4797: lx_asset_tbl OKL_AM_LEASE_TRMNT_PVT.klev_tbl_type;
4798: l_taiv_rec taiv_rec_type;
4914: l_msg_count := x_msg_count;
4915: l_msg_data := x_msg_data;
4916:
4917: --Check API version, initialize message list and create savepoint.
4918: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4919: G_PKG_NAME,
4920: p_init_msg_list,
4921: l_api_version,
4922: p_api_version,
4921: l_api_version,
4922: p_api_version,
4923: '_PVT',
4924: x_return_status);
4925: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4926: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4927: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4928: RAISE OKL_API.G_EXCEPTION_ERROR;
4929: END IF;
4922: p_api_version,
4923: '_PVT',
4924: x_return_status);
4925: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4926: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4927: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4928: RAISE OKL_API.G_EXCEPTION_ERROR;
4929: END IF;
4930:
4923: '_PVT',
4924: x_return_status);
4925: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4926: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4927: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4928: RAISE OKL_API.G_EXCEPTION_ERROR;
4929: END IF;
4930:
4931: -- MGAAP start 7263041
4924: x_return_status);
4925: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4926: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4927: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4928: RAISE OKL_API.G_EXCEPTION_ERROR;
4929: END IF;
4930:
4931: -- MGAAP start 7263041
4932: OPEN check_csr(p_term_rec.p_contract_id);
4945: END IF;
4946: -- get line details from OKL_AM_LEASE_TRMNT_PVT
4947: OKL_AM_LEASE_TRMNT_PVT.get_contract_lines(
4948: p_api_version => p_api_version,
4949: p_init_msg_list => OKL_API.G_FALSE,
4950: x_return_status => l_return_status,
4951: x_msg_count => l_msg_count,
4952: x_msg_data => l_msg_data,
4953: p_term_rec => p_term_rec,
4955: IF (is_debug_statement_on) THEN
4956: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_LEASE_TRMNT_PVT.get_contract_lines , return status : ' || l_return_status);
4957: END IF;
4958:
4959: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
4960: THEN
4961: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4962: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
4963: THEN
4957: END IF;
4958:
4959: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
4960: THEN
4961: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4962: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
4963: THEN
4964: RAISE OKL_API.G_EXCEPTION_ERROR;
4965: END IF;
4958:
4959: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
4960: THEN
4961: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4962: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
4963: THEN
4964: RAISE OKL_API.G_EXCEPTION_ERROR;
4965: END IF;
4966: -- If quote exists then accnting date is quote accept date else sysdate
4960: THEN
4961: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4962: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
4963: THEN
4964: RAISE OKL_API.G_EXCEPTION_ERROR;
4965: END IF;
4966: -- If quote exists then accnting date is quote accept date else sysdate
4967: IF nvl(okl_am_lease_loan_trmnt_pvt.g_quote_exists, 'N') = 'Y'
4968: THEN
4983: IF (is_debug_statement_on) THEN
4984: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.get_transaction_id , return status : ' || l_return_status);
4985: END IF;
4986:
4987: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
4988: OR NVL (l_cm_try_id, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM
4989: THEN
4990: l_return_status := OKL_API.G_RET_STS_ERROR;
4991: OKC_API.SET_MESSAGE (
4984: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.get_transaction_id , return status : ' || l_return_status);
4985: END IF;
4986:
4987: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
4988: OR NVL (l_cm_try_id, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM
4989: THEN
4990: l_return_status := OKL_API.G_RET_STS_ERROR;
4991: OKC_API.SET_MESSAGE (
4992: p_app_name => G_APP_NAME,
4986:
4987: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
4988: OR NVL (l_cm_try_id, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM
4989: THEN
4990: l_return_status := OKL_API.G_RET_STS_ERROR;
4991: OKC_API.SET_MESSAGE (
4992: p_app_name => G_APP_NAME,
4993: p_msg_name => G_INVALID_VALUE,
4994: p_token1 => G_COL_NAME_TOKEN,
4995: p_token1_value => 'Transaction Type');
4996: END IF;
4997:
4998: -- rmunjulu TNA Handle return status
4999: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5000: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5001: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5002: RAISE OKL_API.G_EXCEPTION_ERROR;
5003: END IF;
4996: END IF;
4997:
4998: -- rmunjulu TNA Handle return status
4999: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5000: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5001: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5002: RAISE OKL_API.G_EXCEPTION_ERROR;
5003: END IF;
5004:
4997:
4998: -- rmunjulu TNA Handle return status
4999: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5000: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5001: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5002: RAISE OKL_API.G_EXCEPTION_ERROR;
5003: END IF;
5004:
5005:
4998: -- rmunjulu TNA Handle return status
4999: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5000: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5001: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5002: RAISE OKL_API.G_EXCEPTION_ERROR;
5003: END IF;
5004:
5005:
5006: IF lx_asset_tbl.count > 0
5068: IF (is_debug_statement_on) THEN
5069: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_internal_billing_pvt.create_billing_trx , return status : ' || x_return_status);
5070: END IF;
5071:
5072: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5073: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5074: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5075: RAISE OKL_API.G_EXCEPTION_ERROR;
5076: END IF;
5069: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_internal_billing_pvt.create_billing_trx , return status : ' || x_return_status);
5070: END IF;
5071:
5072: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5073: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5074: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5075: RAISE OKL_API.G_EXCEPTION_ERROR;
5076: END IF;
5077:
5070: END IF;
5071:
5072: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5073: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5074: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5075: RAISE OKL_API.G_EXCEPTION_ERROR;
5076: END IF;
5077:
5078: /* --ansethur 23-FEB-2007 commented for R12 B Billing Architecture Begins
5071:
5072: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5073: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5074: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5075: RAISE OKL_API.G_EXCEPTION_ERROR;
5076: END IF;
5077:
5078: /* --ansethur 23-FEB-2007 commented for R12 B Billing Architecture Begins
5079:
5078: /* --ansethur 23-FEB-2007 commented for R12 B Billing Architecture Begins
5079:
5080: okl_trx_ar_invoices_pub.insert_trx_ar_invoices (
5081: p_api_version => P_api_version,
5082: p_init_msg_list => OKL_API.G_FALSE,
5083: x_return_status => l_return_status,
5084: x_msg_count => l_msg_count,
5085: x_msg_data => l_msg_data,
5086: p_taiv_rec => l_taiv_rec,
5086: p_taiv_rec => l_taiv_rec,
5087: x_taiv_rec => lx_taiv_rec);
5088:
5089: -- rmunjulu TNA Handle return status
5090: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5091: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5092: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5093: RAISE OKL_API.G_EXCEPTION_ERROR;
5094: END IF;
5087: x_taiv_rec => lx_taiv_rec);
5088:
5089: -- rmunjulu TNA Handle return status
5090: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5091: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5092: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5093: RAISE OKL_API.G_EXCEPTION_ERROR;
5094: END IF;
5095:
5088:
5089: -- rmunjulu TNA Handle return status
5090: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5091: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5092: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5093: RAISE OKL_API.G_EXCEPTION_ERROR;
5094: END IF;
5095:
5096: l_tilv_rec.line_number := l_counter;
5089: -- rmunjulu TNA Handle return status
5090: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5091: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5092: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5093: RAISE OKL_API.G_EXCEPTION_ERROR;
5094: END IF;
5095:
5096: l_tilv_rec.line_number := l_counter;
5097: l_tilv_rec.kle_id := lx_asset_tbl(l_counter).p_kle_id;
5103:
5104: -- Create Invoice Line
5105: okl_txl_ar_inv_lns_pub.insert_txl_ar_inv_lns (
5106: p_api_version => l_api_version,
5107: p_init_msg_list => OKL_API.G_FALSE,
5108: x_return_status => l_return_status,
5109: x_msg_count => l_msg_count,
5110: x_msg_data => l_msg_data,
5111: p_tilv_rec => l_tilv_rec,
5111: p_tilv_rec => l_tilv_rec,
5112: x_tilv_rec => lx_tilv_rec);
5113:
5114: -- rmunjulu TNA Handle return status
5115: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5117: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5118: RAISE OKL_API.G_EXCEPTION_ERROR;
5119: END IF;
5112: x_tilv_rec => lx_tilv_rec);
5113:
5114: -- rmunjulu TNA Handle return status
5115: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5117: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5118: RAISE OKL_API.G_EXCEPTION_ERROR;
5119: END IF;
5120:
5113:
5114: -- rmunjulu TNA Handle return status
5115: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5117: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5118: RAISE OKL_API.G_EXCEPTION_ERROR;
5119: END IF;
5120:
5121: -- Bug 4177025 PAGARG 10-Feb-2005 Fix start
5114: -- rmunjulu TNA Handle return status
5115: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5117: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5118: RAISE OKL_API.G_EXCEPTION_ERROR;
5119: END IF;
5120:
5121: -- Bug 4177025 PAGARG 10-Feb-2005 Fix start
5122: -- Added the call to create accounting distributions for the invoice lines
5119: END IF;
5120:
5121: -- Bug 4177025 PAGARG 10-Feb-2005 Fix start
5122: -- Added the call to create accounting distributions for the invoice lines
5123: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
5124: l_bpd_acc_rec.id := lx_tilv_rec.id;
5125: l_bpd_acc_rec.source_table := 'OKL_TXL_AR_INV_LNS_B';
5126:
5127: -- Create Accounting Distribution
5126:
5127: -- Create Accounting Distribution
5128: okl_acc_call_pub.create_acc_trans(
5129: p_api_version => l_api_version,
5130: p_init_msg_list => OKL_API.G_FALSE,
5131: x_return_status => l_return_status,
5132: x_msg_count => l_msg_count,
5133: x_msg_data => l_msg_data,
5134: p_bpd_acc_rec => l_bpd_acc_rec);
5133: x_msg_data => l_msg_data,
5134: p_bpd_acc_rec => l_bpd_acc_rec);
5135:
5136: -- rmunjulu Bug 4177025 Handle Return status properly
5137: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5138: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5139: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5140: RAISE OKL_API.G_EXCEPTION_ERROR;
5141: END IF;
5134: p_bpd_acc_rec => l_bpd_acc_rec);
5135:
5136: -- rmunjulu Bug 4177025 Handle Return status properly
5137: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5138: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5139: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5140: RAISE OKL_API.G_EXCEPTION_ERROR;
5141: END IF;
5142:
5135:
5136: -- rmunjulu Bug 4177025 Handle Return status properly
5137: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5138: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5139: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5140: RAISE OKL_API.G_EXCEPTION_ERROR;
5141: END IF;
5142:
5143: END IF;
5136: -- rmunjulu Bug 4177025 Handle Return status properly
5137: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5138: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5139: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5140: RAISE OKL_API.G_EXCEPTION_ERROR;
5141: END IF;
5142:
5143: END IF;
5144:
5182:
5183: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS; -- MGAAP 7263041
5184: OKL_ACCRUAL_SEC_PVT.Get_Accrual_Adjustment(
5185: p_api_version => p_api_version,
5186: p_init_msg_list => OKL_API.G_FALSE,
5187: x_return_status => l_return_status,
5188: x_msg_count => l_msg_count,
5189: x_msg_data => l_msg_data,
5190: p_contract_id => p_term_rec.p_contract_id,
5195: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_ACCRUAL_SEC_PVT.Get_Accrual_Adjustment , return status : ' || l_return_status);
5196: END IF;
5197:
5198: -- rmunjulu TNA Handle return status
5199: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5200: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5201: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5202: RAISE OKL_API.G_EXCEPTION_ERROR;
5203: END IF;
5196: END IF;
5197:
5198: -- rmunjulu TNA Handle return status
5199: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5200: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5201: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5202: RAISE OKL_API.G_EXCEPTION_ERROR;
5203: END IF;
5204:
5197:
5198: -- rmunjulu TNA Handle return status
5199: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5200: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5201: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5202: RAISE OKL_API.G_EXCEPTION_ERROR;
5203: END IF;
5204:
5205: -- rmunjulu TNA check if table has value before looping thru table and calling the other API
5198: -- rmunjulu TNA Handle return status
5199: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5200: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5201: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5202: RAISE OKL_API.G_EXCEPTION_ERROR;
5203: END IF;
5204:
5205: -- rmunjulu TNA check if table has value before looping thru table and calling the other API
5206: IF lx_accrual_adjustment_tbl.COUNT > 0 THEN
5211: p_try_name => 'TERMINATION',
5212: x_return_status => l_return_status,
5213: x_try_id => l_trmnt_try_id);
5214:
5215: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
5216: OR NVL (l_trmnt_try_id, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
5217:
5218: l_return_status := OKL_API.G_RET_STS_ERROR;
5219:
5212: x_return_status => l_return_status,
5213: x_try_id => l_trmnt_try_id);
5214:
5215: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
5216: OR NVL (l_trmnt_try_id, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
5217:
5218: l_return_status := OKL_API.G_RET_STS_ERROR;
5219:
5220: OKC_API.SET_MESSAGE (
5214:
5215: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
5216: OR NVL (l_trmnt_try_id, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
5217:
5218: l_return_status := OKL_API.G_RET_STS_ERROR;
5219:
5220: OKC_API.SET_MESSAGE (
5221: p_app_name => G_APP_NAME,
5222: p_msg_name => G_INVALID_VALUE,
5224: p_token1_value => 'Transaction Type');
5225: END IF;
5226:
5227: -- rmunjulu TNA Handle return status
5228: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5229: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5230: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5231: RAISE OKL_API.G_EXCEPTION_ERROR;
5232: END IF;
5225: END IF;
5226:
5227: -- rmunjulu TNA Handle return status
5228: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5229: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5230: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5231: RAISE OKL_API.G_EXCEPTION_ERROR;
5232: END IF;
5233: */
5226:
5227: -- rmunjulu TNA Handle return status
5228: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5229: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5230: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5231: RAISE OKL_API.G_EXCEPTION_ERROR;
5232: END IF;
5233: */
5234: --Populate online accrual rec type -- rmunjulu TNA set all the values for p_accrual_rec at one place
5227: -- rmunjulu TNA Handle return status
5228: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5229: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5230: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5231: RAISE OKL_API.G_EXCEPTION_ERROR;
5232: END IF;
5233: */
5234: --Populate online accrual rec type -- rmunjulu TNA set all the values for p_accrual_rec at one place
5235: l_accrual_rec.contract_id := p_term_rec.p_contract_id;
5253: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_GENERATE_ACCRUALS_PVT.adjust_accruals');
5254: END IF;
5255: OKL_GENERATE_ACCRUALS_PVT.adjust_accruals(
5256: p_api_version => p_api_version,
5257: p_init_msg_list => OKL_API.G_FALSE,
5258: x_return_status => l_return_status,
5259: x_msg_count => l_msg_count,
5260: x_msg_data => l_msg_data,
5261: x_trx_number => lx_trx_number,
5265: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.adjust_accruals , return status : ' || l_return_status);
5266: END IF;
5267:
5268: -- rmunjulu TNA Handle return status
5269: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
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: --14-Dec-2004 Bug# 3999921 PAGARG Fix end
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: --14-Dec-2004 Bug# 3999921 PAGARG Fix end
5276: END IF; -- Check for tbl has records
5284: OKL_STREAMS_SEC_PVT.SET_REPO_STREAMS; -- MGAAP 7263041
5285:
5286: OKL_ACCRUAL_SEC_PVT.Get_Accrual_Adjustment(
5287: p_api_version => p_api_version,
5288: p_init_msg_list => OKL_API.G_FALSE,
5289: x_return_status => l_return_status,
5290: x_msg_count => l_msg_count,
5291: x_msg_data => l_msg_data,
5292: p_contract_id => p_term_rec.p_contract_id,
5301: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_ACCRUAL_SEC_PVT.Get_Accrual_Adjustment , return status : ' || l_return_status);
5302: END IF;
5303:
5304: -- rmunjulu TNA Handle return status
5305: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5306: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5307: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5308: RAISE OKL_API.G_EXCEPTION_ERROR;
5309: END IF;
5302: END IF;
5303:
5304: -- rmunjulu TNA Handle return status
5305: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5306: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5307: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5308: RAISE OKL_API.G_EXCEPTION_ERROR;
5309: END IF;
5310:
5303:
5304: -- rmunjulu TNA Handle return status
5305: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5306: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5307: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5308: RAISE OKL_API.G_EXCEPTION_ERROR;
5309: END IF;
5310:
5311: -- rmunjulu TNA check if table has value before looping thru table and calling the other API
5304: -- rmunjulu TNA Handle return status
5305: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5306: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5307: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5308: RAISE OKL_API.G_EXCEPTION_ERROR;
5309: END IF;
5310:
5311: -- rmunjulu TNA check if table has value before looping thru table and calling the other API
5312: IF lx_accrual_adjustment_tbl.COUNT > 0 THEN
5334: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_GENERATE_ACCRUALS_PVT.adjust_accruals');
5335: END IF;
5336: OKL_GENERATE_ACCRUALS_PVT.adjust_accruals(
5337: p_api_version => p_api_version,
5338: p_init_msg_list => OKL_API.G_FALSE,
5339: x_return_status => l_return_status,
5340: x_msg_count => l_msg_count,
5341: x_msg_data => l_msg_data,
5342: x_trx_number => lx_trx_number,
5347: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_GENERATE_ACCRUALS_PVT.adjust_accruals , return status : ' || l_return_status);
5348: END IF;
5349:
5350: -- rmunjulu TNA Handle return status
5351: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5352: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5353: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5354: RAISE OKL_API.G_EXCEPTION_ERROR;
5355: END IF;
5348: END IF;
5349:
5350: -- rmunjulu TNA Handle return status
5351: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5352: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5353: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5354: RAISE OKL_API.G_EXCEPTION_ERROR;
5355: END IF;
5356:
5349:
5350: -- rmunjulu TNA Handle return status
5351: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5352: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5353: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5354: RAISE OKL_API.G_EXCEPTION_ERROR;
5355: END IF;
5356:
5357: --14-Dec-2004 Bug# 3999921 PAGARG Fix end
5350: -- rmunjulu TNA Handle return status
5351: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5352: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5353: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5354: RAISE OKL_API.G_EXCEPTION_ERROR;
5355: END IF;
5356:
5357: --14-Dec-2004 Bug# 3999921 PAGARG Fix end
5358: END IF; -- Check for tbl has records
5365: -- rmunjulu TNA Set the return status properly
5366: x_return_status := l_return_status;
5367:
5368: -- end the transaction
5369: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
5370: IF (is_debug_procedure_on) THEN
5371: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
5372: END IF;
5373: EXCEPTION
5370: IF (is_debug_procedure_on) THEN
5371: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
5372: END IF;
5373: EXCEPTION
5374: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5375: IF (is_debug_exception_on) THEN
5376: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
5377: END IF;
5378: -- rmunjulu TNA Close cursors in exception block
5381: END IF;
5382: IF l_ref_asset_amt_csr%ISOPEN THEN
5383: CLOSE l_ref_asset_amt_csr;
5384: END IF;
5385: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5386: (
5387: l_api_name,
5388: G_PKG_NAME,
5389: 'OKL_API.G_RET_STS_ERROR',
5385: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5386: (
5387: l_api_name,
5388: G_PKG_NAME,
5389: 'OKL_API.G_RET_STS_ERROR',
5390: x_msg_count,
5391: x_msg_data,
5392: '_PVT'
5393: );
5390: x_msg_count,
5391: x_msg_data,
5392: '_PVT'
5393: );
5394: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5395: IF (is_debug_exception_on) THEN
5396: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
5397: END IF;
5398: -- rmunjulu TNA Close cursors in exception block
5401: END IF;
5402: IF l_ref_asset_amt_csr%ISOPEN THEN
5403: CLOSE l_ref_asset_amt_csr;
5404: END IF;
5405: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5406: (
5407: l_api_name,
5408: G_PKG_NAME,
5409: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5405: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5406: (
5407: l_api_name,
5408: G_PKG_NAME,
5409: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5410: x_msg_count,
5411: x_msg_data,
5412: '_PVT'
5413: );
5422: END IF;
5423: IF l_ref_asset_amt_csr%ISOPEN THEN
5424: CLOSE l_ref_asset_amt_csr;
5425: END IF;
5426: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5427: (
5428: l_api_name,
5429: G_PKG_NAME,
5430: 'OTHERS',
5443: -- History : rmunjulu LOANS_ENHANCEMENTS
5444: -- End of comments
5445: PROCEDURE process_loan_refunds(
5446: p_api_version IN NUMBER,
5447: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
5448: x_return_status OUT NOCOPY VARCHAR2,
5449: x_msg_count OUT NOCOPY NUMBER,
5450: x_msg_data OUT NOCOPY VARCHAR2,
5451: p_term_rec IN term_rec_type,
5458: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5459: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5460: l_api_name CONSTANT VARCHAR2(30) := 'process_loan_refunds';
5461: l_api_version CONSTANT NUMBER := 1;
5462: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5463: l_msg_count NUMBER;
5464: l_msg_data VARCHAR2(2000);
5465: l_taiv_rec taiv_rec_type;
5466: lx_taiv_rec taiv_rec_type;
5514: l_msg_count := x_msg_count;
5515: l_msg_data := x_msg_data;
5516:
5517: --Check API version, initialize message list and create savepoint.
5518: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
5519: G_PKG_NAME,
5520: p_init_msg_list,
5521: l_api_version,
5522: p_api_version,
5522: p_api_version,
5523: '_PVT',
5524: x_return_status);
5525:
5526: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5527: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5528: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5529: RAISE OKL_API.G_EXCEPTION_ERROR;
5530: END IF;
5523: '_PVT',
5524: x_return_status);
5525:
5526: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5527: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5528: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5529: RAISE OKL_API.G_EXCEPTION_ERROR;
5530: END IF;
5531:
5524: x_return_status);
5525:
5526: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5527: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5528: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5529: RAISE OKL_API.G_EXCEPTION_ERROR;
5530: END IF;
5531:
5532: -- expiration
5525:
5526: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5527: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5528: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5529: RAISE OKL_API.G_EXCEPTION_ERROR;
5530: END IF;
5531:
5532: -- expiration
5533: IF nvl(okl_am_lease_loan_trmnt_pvt.g_quote_exists, 'N') = 'N' THEN
5553: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.get_excess_loan_payment , return status : ' || l_return_status);
5554: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_loan_refund_amount : ' || l_loan_refund_amount);
5555: END IF;
5556:
5557: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5558: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5559: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5560: RAISE OKL_API.G_EXCEPTION_ERROR;
5561: END IF;
5554: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_loan_refund_amount : ' || l_loan_refund_amount);
5555: END IF;
5556:
5557: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5558: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5559: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5560: RAISE OKL_API.G_EXCEPTION_ERROR;
5561: END IF;
5562:
5555: END IF;
5556:
5557: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5558: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5559: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5560: RAISE OKL_API.G_EXCEPTION_ERROR;
5561: END IF;
5562:
5563: l_loan_refund_amount := nvl(l_loan_refund_amount,0) * -1;
5556:
5557: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5558: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5559: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5560: RAISE OKL_API.G_EXCEPTION_ERROR;
5561: END IF;
5562:
5563: l_loan_refund_amount := nvl(l_loan_refund_amount,0) * -1;
5564:
5574: IF (is_debug_statement_on) THEN
5575: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.get_transaction_id , return status : ' || l_return_status);
5576: END IF;
5577:
5578: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
5579: OR NVL (l_cm_try_id, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM
5580: THEN
5581:
5582: OKC_API.SET_MESSAGE (
5575: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.get_transaction_id , return status : ' || l_return_status);
5576: END IF;
5577:
5578: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
5579: OR NVL (l_cm_try_id, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM
5580: THEN
5581:
5582: OKC_API.SET_MESSAGE (
5583: p_app_name => G_APP_NAME,
5584: p_msg_name => G_INVALID_VALUE,
5585: p_token1 => G_COL_NAME_TOKEN,
5586: p_token1_value => 'Transaction Type');
5587:
5588: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5589: END IF;
5590:
5591: l_functional_currency_code := OKL_AM_UTIL_PVT.get_functional_currency();
5592:
5613: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_currency_conversion_date : ' || l_currency_conversion_date);
5614: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_converted_amount : ' || l_converted_amount);
5615: END IF;
5616:
5617: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5618: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5619: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5620: RAISE OKL_API.G_EXCEPTION_ERROR;
5621: END IF;
5614: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_converted_amount : ' || l_converted_amount);
5615: END IF;
5616:
5617: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5618: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5619: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5620: RAISE OKL_API.G_EXCEPTION_ERROR;
5621: END IF;
5622:
5615: END IF;
5616:
5617: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5618: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5619: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5620: RAISE OKL_API.G_EXCEPTION_ERROR;
5621: END IF;
5622:
5623: IF (is_debug_statement_on) THEN
5616:
5617: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5618: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5619: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5620: RAISE OKL_API.G_EXCEPTION_ERROR;
5621: END IF;
5622:
5623: IF (is_debug_statement_on) THEN
5624: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling okl_streams_util.get_dependent_stream_type');
5636: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_streams_util.get_dependent_stream_type , return status : ' || l_return_status);
5637: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_sty_id : ' || l_sty_id);
5638: END IF;
5639:
5640: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5641: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5642: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5643: RAISE OKL_API.G_EXCEPTION_ERROR;
5644: END IF;
5637: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_sty_id : ' || l_sty_id);
5638: END IF;
5639:
5640: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5641: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5642: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5643: RAISE OKL_API.G_EXCEPTION_ERROR;
5644: END IF;
5645:
5638: END IF;
5639:
5640: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5641: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5642: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5643: RAISE OKL_API.G_EXCEPTION_ERROR;
5644: END IF;
5645:
5646: l_taiv_rec.currency_code := l_contract_currency_code;
5639:
5640: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5641: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5642: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5643: RAISE OKL_API.G_EXCEPTION_ERROR;
5644: END IF;
5645:
5646: l_taiv_rec.currency_code := l_contract_currency_code;
5647: l_taiv_rec.currency_conversion_type := l_currency_conversion_type;
5686: IF (is_debug_statement_on) THEN
5687: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_internal_billing_pvt.create_billing_trx , return status : ' || x_return_status);
5688: END IF;
5689:
5690: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5691: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5692: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5693: RAISE OKL_API.G_EXCEPTION_ERROR;
5694: END IF;
5687: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_internal_billing_pvt.create_billing_trx , return status : ' || x_return_status);
5688: END IF;
5689:
5690: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5691: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5692: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5693: RAISE OKL_API.G_EXCEPTION_ERROR;
5694: END IF;
5695:
5688: END IF;
5689:
5690: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5691: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5692: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5693: RAISE OKL_API.G_EXCEPTION_ERROR;
5694: END IF;
5695:
5696: /* --ansethur 27-FEB-2007 commented for R12 B Billing Architecture Begins
5689:
5690: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5691: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5692: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5693: RAISE OKL_API.G_EXCEPTION_ERROR;
5694: END IF;
5695:
5696: /* --ansethur 27-FEB-2007 commented for R12 B Billing Architecture Begins
5697: -- create invoice header
5696: /* --ansethur 27-FEB-2007 commented for R12 B Billing Architecture Begins
5697: -- create invoice header
5698: OKL_TRX_AR_INVOICES_PUB.insert_trx_ar_invoices (
5699: p_api_version => P_api_version,
5700: p_init_msg_list => OKL_API.G_FALSE,
5701: x_return_status => l_return_status,
5702: x_msg_count => l_msg_count,
5703: x_msg_data => l_msg_data,
5704: p_taiv_rec => l_taiv_rec,
5703: x_msg_data => l_msg_data,
5704: p_taiv_rec => l_taiv_rec,
5705: x_taiv_rec => lx_taiv_rec);
5706:
5707: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5708: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5709: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5710: RAISE OKL_API.G_EXCEPTION_ERROR;
5711: END IF;
5704: p_taiv_rec => l_taiv_rec,
5705: x_taiv_rec => lx_taiv_rec);
5706:
5707: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5708: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5709: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5710: RAISE OKL_API.G_EXCEPTION_ERROR;
5711: END IF;
5712:
5705: x_taiv_rec => lx_taiv_rec);
5706:
5707: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5708: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5709: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5710: RAISE OKL_API.G_EXCEPTION_ERROR;
5711: END IF;
5712:
5713: l_tilv_rec.line_number := l_counter;
5706:
5707: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5708: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5709: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5710: RAISE OKL_API.G_EXCEPTION_ERROR;
5711: END IF;
5712:
5713: l_tilv_rec.line_number := l_counter;
5714: l_tilv_rec.description := 'Loan Refund Amount on Expiration';
5719:
5720: -- Create Invoice Line
5721: OKL_TXL_AR_INV_LNS_PUB.insert_txl_ar_inv_lns (
5722: p_api_version => l_api_version,
5723: p_init_msg_list => OKL_API.G_FALSE,
5724: x_return_status => l_return_status,
5725: x_msg_count => l_msg_count,
5726: x_msg_data => l_msg_data,
5727: p_tilv_rec => l_tilv_rec,
5726: x_msg_data => l_msg_data,
5727: p_tilv_rec => l_tilv_rec,
5728: x_tilv_rec => lx_tilv_rec);
5729:
5730: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5731: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5732: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5733: RAISE OKL_API.G_EXCEPTION_ERROR;
5734: END IF;
5727: p_tilv_rec => l_tilv_rec,
5728: x_tilv_rec => lx_tilv_rec);
5729:
5730: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5731: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5732: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5733: RAISE OKL_API.G_EXCEPTION_ERROR;
5734: END IF;
5735:
5728: x_tilv_rec => lx_tilv_rec);
5729:
5730: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5731: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5732: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5733: RAISE OKL_API.G_EXCEPTION_ERROR;
5734: END IF;
5735:
5736: l_bpd_acc_rec.id := lx_tilv_rec.id;
5729:
5730: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5731: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5732: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5733: RAISE OKL_API.G_EXCEPTION_ERROR;
5734: END IF;
5735:
5736: l_bpd_acc_rec.id := lx_tilv_rec.id;
5737: l_bpd_acc_rec.source_table := 'OKL_TXL_AR_INV_LNS_B';
5738:
5739: -- Create Accounting Distribution
5740: OKL_ACC_CALL_PUB.create_acc_trans(
5741: p_api_version => l_api_version,
5742: p_init_msg_list => OKL_API.G_FALSE,
5743: x_return_status => l_return_status,
5744: x_msg_count => l_msg_count,
5745: x_msg_data => l_msg_data,
5746: p_bpd_acc_rec => l_bpd_acc_rec);
5744: x_msg_count => l_msg_count,
5745: x_msg_data => l_msg_data,
5746: p_bpd_acc_rec => l_bpd_acc_rec);
5747:
5748: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5749: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5750: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5751: RAISE OKL_API.G_EXCEPTION_ERROR;
5752: END IF;
5745: x_msg_data => l_msg_data,
5746: p_bpd_acc_rec => l_bpd_acc_rec);
5747:
5748: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5749: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5750: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5751: RAISE OKL_API.G_EXCEPTION_ERROR;
5752: END IF;
5753:
5746: p_bpd_acc_rec => l_bpd_acc_rec);
5747:
5748: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5749: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5750: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5751: RAISE OKL_API.G_EXCEPTION_ERROR;
5752: END IF;
5753:
5754: --ansethur 23-FEB-2007 commented for R12 B Billing Architecture Ends
5747:
5748: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5749: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5750: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5751: RAISE OKL_API.G_EXCEPTION_ERROR;
5752: END IF;
5753:
5754: --ansethur 23-FEB-2007 commented for R12 B Billing Architecture Ends
5755: */
5759:
5760: x_return_status := l_return_status;
5761:
5762: -- end the transaction
5763: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
5764: IF (is_debug_procedure_on) THEN
5765: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
5766: END IF;
5767: EXCEPTION
5764: IF (is_debug_procedure_on) THEN
5765: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name,'End(-)');
5766: END IF;
5767: EXCEPTION
5768: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5769: IF (is_debug_exception_on) THEN
5770: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
5771: END IF;
5772:
5769: IF (is_debug_exception_on) THEN
5770: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
5771: END IF;
5772:
5773: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5774: (
5775: l_api_name,
5776: G_PKG_NAME,
5777: 'OKL_API.G_RET_STS_ERROR',
5773: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5774: (
5775: l_api_name,
5776: G_PKG_NAME,
5777: 'OKL_API.G_RET_STS_ERROR',
5778: x_msg_count,
5779: x_msg_data,
5780: '_PVT'
5781: );
5778: x_msg_count,
5779: x_msg_data,
5780: '_PVT'
5781: );
5782: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5783: IF (is_debug_exception_on) THEN
5784: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
5785: END IF;
5786:
5783: IF (is_debug_exception_on) THEN
5784: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
5785: END IF;
5786:
5787: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5788: (
5789: l_api_name,
5790: G_PKG_NAME,
5791: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5787: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5788: (
5789: l_api_name,
5790: G_PKG_NAME,
5791: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5792: x_msg_count,
5793: x_msg_data,
5794: '_PVT'
5795: );
5798: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
5799: || sqlcode || ' , SQLERRM : ' || sqlerrm);
5800: END IF;
5801:
5802: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5803: (
5804: l_api_name,
5805: G_PKG_NAME,
5806: 'OTHERS',