15: G_LEASE_TYPE CONSTANT VARCHAR2(30) := 'LEASE_TYPE';
16: G_INT_BASIS CONSTANT VARCHAR2(30) := 'INT_BASIS';
17: G_OKL_LLA_VAR_RATE_MISSING CONSTANT VARCHAR2(30) := 'OKL_LLA_VAR_RATE_MISSING';
18: G_CONT_ID CONSTANT VARCHAR2(30) := 'CONT_ID';
19: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
20: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
21:
22: -- smadhava Bug#4542290 - 22-Aug-2005 - Added - Start
23: G_OKL_LLA_REBOOK_INVALID CONSTANT VARCHAR2(30) := 'OKL_LLA_REBOOK_INVALID';
16: G_INT_BASIS CONSTANT VARCHAR2(30) := 'INT_BASIS';
17: G_OKL_LLA_VAR_RATE_MISSING CONSTANT VARCHAR2(30) := 'OKL_LLA_VAR_RATE_MISSING';
18: G_CONT_ID CONSTANT VARCHAR2(30) := 'CONT_ID';
19: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
20: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
21:
22: -- smadhava Bug#4542290 - 22-Aug-2005 - Added - Start
23: G_OKL_LLA_REBOOK_INVALID CONSTANT VARCHAR2(30) := 'OKL_LLA_REBOOK_INVALID';
24: G_OKL_LLA_RBK_INT_PROC_INVAL CONSTANT VARCHAR2(30) := 'OKL_LLA_RBK_INT_PROCESS_INVAL';
240: FROM OKL_K_RATE_PARAMS
241: WHERE KHR_ID = p_id
242: AND EFFECTIVE_TO_DATE IS NULL;
243: BEGIN
244: x_return_status := OKL_API.G_RET_STS_SUCCESS;
245:
246: OPEN effective_from_date_csr(p_chr_id);
247: FETCH effective_from_date_csr
248: INTO x_effective_from_date;
252: x_no_data_found := FALSE;
253: END IF;
254: CLOSE effective_from_date_csr;
255: EXCEPTION WHEN OTHERS THEN
256: x_return_status := OKL_API.G_RET_STS_ERROR;
257: END;
258:
259: procedure get_product(
260: p_api_version IN NUMBER,
289:
290: l_hdr_rec l_hdr_csr%ROWTYPE;
291:
292: begin
293: x_return_status := OKL_API.G_RET_STS_SUCCESS;
294: OPEN l_hdr_csr(p_khr_id);
295: FETCH l_hdr_csr INTO l_hdr_rec;
296: IF l_hdr_csr%NOTFOUND THEN
297: CLOSE l_hdr_csr;
294: OPEN l_hdr_csr(p_khr_id);
295: FETCH l_hdr_csr INTO l_hdr_rec;
296: IF l_hdr_csr%NOTFOUND THEN
297: CLOSE l_hdr_csr;
298: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
299: END IF;
300: CLOSE l_hdr_csr;
301:
302: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
315: p_pdtv_rec => p_pdtv_rec,
316: x_no_data_found => x_no_data_found,
317: p_pdt_parameter_rec => x_pdt_parameter_rec);
318:
319: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
320: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
321: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
322: RAISE OKL_API.G_EXCEPTION_ERROR;
323: ELSIF NVL(x_pdt_parameter_rec.Name,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR THEN
316: x_no_data_found => x_no_data_found,
317: p_pdt_parameter_rec => x_pdt_parameter_rec);
318:
319: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
320: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
321: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
322: RAISE OKL_API.G_EXCEPTION_ERROR;
323: ELSIF NVL(x_pdt_parameter_rec.Name,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR THEN
324: x_return_status := OKL_API.G_RET_STS_ERROR;
317: p_pdt_parameter_rec => x_pdt_parameter_rec);
318:
319: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
320: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
321: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
322: RAISE OKL_API.G_EXCEPTION_ERROR;
323: ELSIF NVL(x_pdt_parameter_rec.Name,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR THEN
324: x_return_status := OKL_API.G_RET_STS_ERROR;
325: RAISE OKL_API.G_EXCEPTION_ERROR;
318:
319: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
320: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
321: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
322: RAISE OKL_API.G_EXCEPTION_ERROR;
323: ELSIF NVL(x_pdt_parameter_rec.Name,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR THEN
324: x_return_status := OKL_API.G_RET_STS_ERROR;
325: RAISE OKL_API.G_EXCEPTION_ERROR;
326: END IF;
319: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
320: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
321: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
322: RAISE OKL_API.G_EXCEPTION_ERROR;
323: ELSIF NVL(x_pdt_parameter_rec.Name,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR THEN
324: x_return_status := OKL_API.G_RET_STS_ERROR;
325: RAISE OKL_API.G_EXCEPTION_ERROR;
326: END IF;
327: --x_pdt_parameter_rec := x_pdt_parameter_rec2;
320: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
321: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
322: RAISE OKL_API.G_EXCEPTION_ERROR;
323: ELSIF NVL(x_pdt_parameter_rec.Name,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR THEN
324: x_return_status := OKL_API.G_RET_STS_ERROR;
325: RAISE OKL_API.G_EXCEPTION_ERROR;
326: END IF;
327: --x_pdt_parameter_rec := x_pdt_parameter_rec2;
328: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
321: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
322: RAISE OKL_API.G_EXCEPTION_ERROR;
323: ELSIF NVL(x_pdt_parameter_rec.Name,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR THEN
324: x_return_status := OKL_API.G_RET_STS_ERROR;
325: RAISE OKL_API.G_EXCEPTION_ERROR;
326: END IF;
327: --x_pdt_parameter_rec := x_pdt_parameter_rec2;
328: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
329: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'x_pdt_parameter_rec.name=' || x_pdt_parameter_rec.name);
368:
369: l_hdr_rec l_hdr_csr%ROWTYPE;
370:
371: begin
372: x_return_status := OKL_API.G_RET_STS_SUCCESS;
373: OPEN l_hdr_csr(p_khr_id);
374: FETCH l_hdr_csr INTO l_hdr_rec;
375: IF l_hdr_csr%NOTFOUND THEN
376: CLOSE l_hdr_csr;
373: OPEN l_hdr_csr(p_khr_id);
374: FETCH l_hdr_csr INTO l_hdr_rec;
375: IF l_hdr_csr%NOTFOUND THEN
376: CLOSE l_hdr_csr;
377: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
378: END IF;
379: CLOSE l_hdr_csr;
380:
381: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
395: p_pdtv_rec => p_pdtv_rec,
396: x_no_data_found => x_no_data_found,
397: p_pdt_parameter_rec => x_pdt_parameter_rec);
398:
399: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
400: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
401: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
402: RAISE OKL_API.G_EXCEPTION_ERROR;
403: ELSIF NVL(x_pdt_parameter_rec.Name,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR THEN
396: x_no_data_found => x_no_data_found,
397: p_pdt_parameter_rec => x_pdt_parameter_rec);
398:
399: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
400: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
401: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
402: RAISE OKL_API.G_EXCEPTION_ERROR;
403: ELSIF NVL(x_pdt_parameter_rec.Name,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR THEN
404: x_return_status := OKL_API.G_RET_STS_ERROR;
397: p_pdt_parameter_rec => x_pdt_parameter_rec);
398:
399: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
400: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
401: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
402: RAISE OKL_API.G_EXCEPTION_ERROR;
403: ELSIF NVL(x_pdt_parameter_rec.Name,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR THEN
404: x_return_status := OKL_API.G_RET_STS_ERROR;
405: RAISE OKL_API.G_EXCEPTION_ERROR;
398:
399: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
400: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
401: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
402: RAISE OKL_API.G_EXCEPTION_ERROR;
403: ELSIF NVL(x_pdt_parameter_rec.Name,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR THEN
404: x_return_status := OKL_API.G_RET_STS_ERROR;
405: RAISE OKL_API.G_EXCEPTION_ERROR;
406: END IF;
399: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
400: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
401: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
402: RAISE OKL_API.G_EXCEPTION_ERROR;
403: ELSIF NVL(x_pdt_parameter_rec.Name,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR THEN
404: x_return_status := OKL_API.G_RET_STS_ERROR;
405: RAISE OKL_API.G_EXCEPTION_ERROR;
406: END IF;
407: --x_pdt_parameter_rec := x_pdt_parameter_rec2;
400: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
401: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
402: RAISE OKL_API.G_EXCEPTION_ERROR;
403: ELSIF NVL(x_pdt_parameter_rec.Name,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR THEN
404: x_return_status := OKL_API.G_RET_STS_ERROR;
405: RAISE OKL_API.G_EXCEPTION_ERROR;
406: END IF;
407: --x_pdt_parameter_rec := x_pdt_parameter_rec2;
408: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
401: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
402: RAISE OKL_API.G_EXCEPTION_ERROR;
403: ELSIF NVL(x_pdt_parameter_rec.Name,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR THEN
404: x_return_status := OKL_API.G_RET_STS_ERROR;
405: RAISE OKL_API.G_EXCEPTION_ERROR;
406: END IF;
407: --x_pdt_parameter_rec := x_pdt_parameter_rec2;
408: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
409: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'x_pdt_parameter_rec.name=' || x_pdt_parameter_rec.name);
578: l_product_id NUMBER;
579: l_contract_start_date DATE;
580:
581: begin
582: x_return_status := OKL_API.G_RET_STS_SUCCESS;
583:
584: x_return_status := OKL_API.START_ACTIVITY(
585: p_api_name => l_api_name,
586: p_pkg_name => g_pkg_name,
580:
581: begin
582: x_return_status := OKL_API.G_RET_STS_SUCCESS;
583:
584: x_return_status := OKL_API.START_ACTIVITY(
585: p_api_name => l_api_name,
586: p_pkg_name => g_pkg_name,
587: p_init_msg_list => p_init_msg_list,
588: l_api_version => l_api_version,
600: p_khr_id => p_krpv_rec.khr_id,
601: x_product_id => l_product_id,
602: x_pdt_parameter_rec => l_pdt_parameter_rec);
603:
604: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
605: RAISE OKL_API.G_EXCEPTION_ERROR;
606: END IF;
607:
608: l_deal_type := l_pdt_parameter_rec.deal_type;
601: x_product_id => l_product_id,
602: x_pdt_parameter_rec => l_pdt_parameter_rec);
603:
604: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
605: RAISE OKL_API.G_EXCEPTION_ERROR;
606: END IF;
607:
608: l_deal_type := l_pdt_parameter_rec.deal_type;
609: l_interest_calculation_basis := l_pdt_parameter_rec.interest_calculation_basis;
665: ,p_token1 => 'PARAMETER_NAME'
666: ,p_token1_value => 'BASE_RATE'
667: ,p_token2 => 'CONTRACT_NUMBER'
668: ,p_token2_value => l_contract_number);
669: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
670: END IF;
671:
672: IF ((l_orig_rate_rec.INTEREST_START_DATE IS NOT NULL AND
673: l_orig_rate_rec.INTEREST_START_DATE <> G_MISS_DATE) OR
679: ,p_token1 => 'PARAMETER_NAME'
680: ,p_token1_value => 'INTEREST_START_DATE'
681: ,p_token2 => 'CONTRACT_NUMBER'
682: ,p_token2_value => l_contract_number);
683: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
684: END IF;
685:
686: IF ((l_orig_rate_rec.PRINCIPAL_BASIS_CODE IS NOT NULL AND
687: l_orig_rate_rec.PRINCIPAL_BASIS_CODE <> G_MISS_CHAR) OR
693: ,p_token1 => 'PARAMETER_NAME'
694: ,p_token1_value => 'PRINCIPAL_BASIS_CODE'
695: ,p_token2 => 'CONTRACT_NUMBER'
696: ,p_token2_value => l_contract_number);
697: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
698: END IF;
699:
700: IF ((l_orig_rate_rec.DAYS_IN_A_MONTH_CODE IS NOT NULL AND
701: l_orig_rate_rec.DAYS_IN_A_MONTH_CODE <> G_MISS_CHAR) OR
707: ,p_token1 => 'PARAMETER_NAME'
708: ,p_token1_value => 'DAYS_IN_A_MONTH_CODE'
709: ,p_token2 => 'CONTRACT_NUMBER'
710: ,p_token2_value => l_contract_number);
711: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
712: END IF;
713:
714: IF ((l_orig_rate_rec.DAYS_IN_A_YEAR_CODE IS NOT NULL AND
715: l_orig_rate_rec.DAYS_IN_A_YEAR_CODE <> G_MISS_CHAR) OR
721: ,p_token1 => 'PARAMETER_NAME'
722: ,p_token1_value => 'DAYS_IN_A_YEAR_CODE'
723: ,p_token2 => 'CONTRACT_NUMBER'
724: ,p_token2_value => l_contract_number);
725: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
726: END IF;
727:
728: IF ((l_orig_rate_rec.CATCHUP_START_DATE IS NOT NULL AND
729: l_orig_rate_rec.CATCHUP_START_DATE <> G_MISS_DATE) OR
735: ,p_token1 => 'PARAMETER_NAME'
736: ,p_token1_value => 'CATCHUP_START_DATE'
737: ,p_token2 => 'CONTRACT_NUMBER'
738: ,p_token2_value => l_contract_number);
739: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
740: END IF;
741:
742: IF ((l_orig_rate_rec.CATCHUP_SETTLEMENT_CODE IS NOT NULL AND
743: l_orig_rate_rec.CATCHUP_SETTLEMENT_CODE <> G_MISS_CHAR) OR
749: ,p_token1 => 'PARAMETER_NAME'
750: ,p_token1_value => 'CATCHUP_SETTLEMENT_CODE'
751: ,p_token2 => 'CONTRACT_NUMBER'
752: ,p_token2_value => l_contract_number);
753: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
754: END IF;
755:
756: IF ((l_orig_rate_rec.RATE_CHANGE_START_DATE IS NOT NULL AND
757: l_orig_rate_rec.RATE_CHANGE_START_DATE <> G_MISS_DATE) OR
763: ,p_token1 => 'PARAMETER_NAME'
764: ,p_token1_value => 'RATE_CHANGE_START_DATE'
765: ,p_token2 => 'CONTRACT_NUMBER'
766: ,p_token2_value => l_contract_number);
767: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
768: END IF;
769: END IF; -- no_data
770: END IF; -- rebook_copy
771:
839: IF (p_krpv_rec.EFFECTIVE_FROM_DATE < l_orig_rate_rec.EFFECTIVE_FROM_DATE) THEN
840: OKC_API.SET_MESSAGE(
841: p_app_name => G_APP_NAME
842: ,p_msg_name => 'OKL_LLA_VAR_RATE_EFF_DATE');
843: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
844: END IF;
845: ELSIF (l_deal_type IN ('LEASEOP', 'LEASEDF', 'LEASEST') AND
846: l_interest_calculation_basis = 'REAMORT' ) THEN
847: IF (p_krpv_rec.EFFECTIVE_FROM_DATE <= l_rebook_date) OR
849: THEN
850: OKC_API.SET_MESSAGE(
851: p_app_name => G_APP_NAME
852: ,p_msg_name => 'OKL_LLA_VAR_RATE_RBK_DATE');
853: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
854: END IF;
855: ELSIF ((l_deal_type = 'LOAN') AND
856: l_interest_calculation_basis IN
857: ('FIXED', 'FLOAT', 'CATCHUP/CLEANUP' )) THEN
862: IF (p_krpv_rec.EFFECTIVE_FROM_DATE < l_orig_rate_rec.EFFECTIVE_FROM_DATE) THEN
863: OKC_API.SET_MESSAGE(
864: p_app_name => G_APP_NAME
865: ,p_msg_name => 'OKL_LLA_VAR_RATE_EFF_DATE');
866: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
867: END IF;
868: ELSIF (l_deal_type = 'LOAN' AND
869: l_interest_calculation_basis = 'REAMORT') THEN
870: IF (p_krpv_rec.EFFECTIVE_FROM_DATE <= l_rebook_date) OR
872: THEN
873: OKC_API.SET_MESSAGE(
874: p_app_name => G_APP_NAME
875: ,p_msg_name => 'OKL_LLA_VAR_RATE_RBK_DATE');
876: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
877: END IF;
878: ELSIF (l_deal_type = 'LOAN-REVOLVING' AND
879: l_interest_calculation_basis = 'FLOAT') THEN
880: IF (p_krpv_rec.EFFECTIVE_FROM_DATE < l_orig_rate_rec.EFFECTIVE_FROM_DATE) THEN
880: IF (p_krpv_rec.EFFECTIVE_FROM_DATE < l_orig_rate_rec.EFFECTIVE_FROM_DATE) THEN
881: OKC_API.SET_MESSAGE(
882: p_app_name => G_APP_NAME
883: ,p_msg_name => 'OKL_LLA_VAR_RATE_EFF_DATE');
884: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
885: END IF;
886: END IF; -- if deal_type
887: END IF; -- if any rate params changed
888:
887: END IF; -- if any rate params changed
888:
889: END IF; -- if no_data
890:
891: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
892:
893: EXCEPTION
894: WHEN OKL_API.G_EXCEPTION_ERROR THEN
895: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
890:
891: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
892:
893: EXCEPTION
894: WHEN OKL_API.G_EXCEPTION_ERROR THEN
895: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
896: p_api_name => l_api_name,
897: p_pkg_name => g_pkg_name,
898: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
891: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
892:
893: EXCEPTION
894: WHEN OKL_API.G_EXCEPTION_ERROR THEN
895: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
896: p_api_name => l_api_name,
897: p_pkg_name => g_pkg_name,
898: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
899: x_msg_count => x_msg_count,
894: WHEN OKL_API.G_EXCEPTION_ERROR THEN
895: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
896: p_api_name => l_api_name,
897: p_pkg_name => g_pkg_name,
898: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
899: x_msg_count => x_msg_count,
900: x_msg_data => x_msg_data,
901: p_api_type => g_api_type);
902:
899: x_msg_count => x_msg_count,
900: x_msg_data => x_msg_data,
901: p_api_type => g_api_type);
902:
903: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
904: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
905: p_api_name => l_api_name,
906: p_pkg_name => g_pkg_name,
907: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
900: x_msg_data => x_msg_data,
901: p_api_type => g_api_type);
902:
903: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
904: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
905: p_api_name => l_api_name,
906: p_pkg_name => g_pkg_name,
907: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
908: x_msg_count => x_msg_count,
903: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
904: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
905: p_api_name => l_api_name,
906: p_pkg_name => g_pkg_name,
907: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
908: x_msg_count => x_msg_count,
909: x_msg_data => x_msg_data,
910: p_api_type => g_api_type);
911:
909: x_msg_data => x_msg_data,
910: p_api_type => g_api_type);
911:
912: WHEN OTHERS THEN
913: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
914: p_api_name => l_api_name,
915: p_pkg_name => g_pkg_name,
916: p_exc_name => 'OTHERS',
917: x_msg_count => x_msg_count,
1002: l_last_billed_due_date DATE;
1003: --Bug# 7566308
1004: begin
1005:
1006: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1007:
1008: x_return_status := OKL_API.START_ACTIVITY(
1009: p_api_name => l_api_name,
1010: p_pkg_name => g_pkg_name,
1004: begin
1005:
1006: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1007:
1008: x_return_status := OKL_API.START_ACTIVITY(
1009: p_api_name => l_api_name,
1010: p_pkg_name => g_pkg_name,
1011: p_init_msg_list => p_init_msg_list,
1012: l_api_version => l_api_version,
1035: x_msg_data => x_msg_data,
1036: p_krpv_rec => p_krpv_rec,
1037: p_orig_eff_from_date => l_effective_from_date);
1038:
1039: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1040: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1041: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1042: RAISE OKL_API.G_EXCEPTION_ERROR;
1043: END IF;
1036: p_krpv_rec => p_krpv_rec,
1037: p_orig_eff_from_date => l_effective_from_date);
1038:
1039: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1040: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1041: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1042: RAISE OKL_API.G_EXCEPTION_ERROR;
1043: END IF;
1044:
1037: p_orig_eff_from_date => l_effective_from_date);
1038:
1039: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1040: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1041: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1042: RAISE OKL_API.G_EXCEPTION_ERROR;
1043: END IF;
1044:
1045: END IF;
1038:
1039: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1040: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1041: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1042: RAISE OKL_API.G_EXCEPTION_ERROR;
1043: END IF;
1044:
1045: END IF;
1046: --Bug# 7566308
1062:
1063: IF (l_rate_count > 0) THEN
1064: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
1065: ,p_msg_name => 'OKL_LLA_VAR_RATE_EXISTS');
1066: RAISE OKL_API.G_EXCEPTION_ERROR;
1067: END IF;
1068: END IF;
1069: --Bug# 7566308
1070:
1128: p_product_id => l_product_id,
1129: p_k_rate_tbl => l_k_rate_tbl,
1130: p_validate_flag => p_validate_flag);
1131:
1132: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1133: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1134: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1135: RAISE OKL_API.G_EXCEPTION_ERROR;
1136: END IF;
1129: p_k_rate_tbl => l_k_rate_tbl,
1130: p_validate_flag => p_validate_flag);
1131:
1132: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1133: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1134: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1135: RAISE OKL_API.G_EXCEPTION_ERROR;
1136: END IF;
1137:
1130: p_validate_flag => p_validate_flag);
1131:
1132: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1133: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1134: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1135: RAISE OKL_API.G_EXCEPTION_ERROR;
1136: END IF;
1137:
1138: -- Bug 4722746
1131:
1132: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1133: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1134: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1135: RAISE OKL_API.G_EXCEPTION_ERROR;
1136: END IF;
1137:
1138: -- Bug 4722746
1139: IF (l_pdt_parameter_rec.interest_calculation_basis = 'CATCHUP/CLEANUP'
1168: OKC_API.set_message(p_app_name => G_APP_NAME,
1169: p_msg_name => G_REQUIRED_VALUE,
1170: p_token1 => G_COL_NAME_TOKEN,
1171: p_token1_value => 'CATCHUP FREQUENCY');
1172: RAISE OKL_API.G_EXCEPTION_ERROR;
1173: END IF;
1174:
1175: ELSE
1176: -- One of the four is not null
1181: OKC_API.set_message(p_app_name => G_APP_NAME,
1182: p_msg_name => G_REQUIRED_VALUE,
1183: p_token1 => G_COL_NAME_TOKEN,
1184: p_token1_value => 'Catchup Frequency');
1185: RAISE OKL_API.G_EXCEPTION_ERROR;
1186: END IF;
1187:
1188: --print('Catchup :2');
1189: IF (l_krpv_rec.catchup_start_date is NOT NULL AND
1202: OKC_API.set_message(p_app_name => G_APP_NAME,
1203: p_msg_name => G_REQUIRED_VALUE,
1204: p_token1 => G_COL_NAME_TOKEN,
1205: p_token1_value => 'Catchup Settlement');
1206: RAISE OKL_API.G_EXCEPTION_ERROR;
1207: END IF;
1208:
1209: --print('Catchup :4');
1210: IF (l_krpv_rec.catchup_basis_code is NOT NULL AND
1214: OKC_API.set_message(p_app_name => G_APP_NAME,
1215: p_msg_name => G_REQUIRED_VALUE,
1216: p_token1 => G_COL_NAME_TOKEN,
1217: p_token1_value => 'Catchup Basis');
1218: RAISE OKL_API.G_EXCEPTION_ERROR;
1219: END IF;
1220:
1221:
1222: END IF;
1251: p_token1 => 'EFF_DATE',
1252: p_token1_value => p_krpv_rec.effective_from_Date,
1253: p_token2 => 'INTEREST_DATE',
1254: p_token2_value => l_last_billed_due_date);
1255: RAISE OKL_API.G_EXCEPTION_ERROR;
1256: END IF;
1257: END IF;
1258:
1259: -- Bug 4999888
1265: p_token1 => 'EFF_DATE',
1266: p_token1_value => p_krpv_rec.effective_from_Date,
1267: p_token2 => 'INTEREST_DATE',
1268: p_token2_value => l_last_interest_cal_date);
1269: RAISE OKL_API.G_EXCEPTION_ERROR;
1270: END IF;
1271: END IF;
1272: END IF;
1273: END IF;
1314: END IF;
1315: --Bug# 7566308
1316: END IF;
1317:
1318: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1319: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1320: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1321: RAISE OKL_API.G_EXCEPTION_ERROR;
1322: END IF;
1315: --Bug# 7566308
1316: END IF;
1317:
1318: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1319: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1320: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1321: RAISE OKL_API.G_EXCEPTION_ERROR;
1322: END IF;
1323:
1316: END IF;
1317:
1318: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1319: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1320: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1321: RAISE OKL_API.G_EXCEPTION_ERROR;
1322: END IF;
1323:
1324: okl_contract_status_pub.cascade_lease_status_edit
1317:
1318: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1319: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1320: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1321: RAISE OKL_API.G_EXCEPTION_ERROR;
1322: END IF;
1323:
1324: okl_contract_status_pub.cascade_lease_status_edit
1325: (p_api_version => p_api_version,
1328: x_msg_count => x_msg_count,
1329: x_msg_data => x_msg_data,
1330: p_chr_id => l_krpv_rec.khr_id);
1331:
1332: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1333: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1334: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1335: raise OKL_API.G_EXCEPTION_ERROR;
1336: End If;
1329: x_msg_data => x_msg_data,
1330: p_chr_id => l_krpv_rec.khr_id);
1331:
1332: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1333: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1334: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1335: raise OKL_API.G_EXCEPTION_ERROR;
1336: End If;
1337:
1330: p_chr_id => l_krpv_rec.khr_id);
1331:
1332: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1333: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1334: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1335: raise OKL_API.G_EXCEPTION_ERROR;
1336: End If;
1337:
1338: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1331:
1332: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1333: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1334: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1335: raise OKL_API.G_EXCEPTION_ERROR;
1336: End If;
1337:
1338: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1339:
1334: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1335: raise OKL_API.G_EXCEPTION_ERROR;
1336: End If;
1337:
1338: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1339:
1340: EXCEPTION
1341: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1342: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1337:
1338: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1339:
1340: EXCEPTION
1341: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1342: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1343: p_api_name => l_api_name,
1344: p_pkg_name => g_pkg_name,
1345: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1338: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1339:
1340: EXCEPTION
1341: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1342: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1343: p_api_name => l_api_name,
1344: p_pkg_name => g_pkg_name,
1345: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1346: x_msg_count => x_msg_count,
1341: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1342: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1343: p_api_name => l_api_name,
1344: p_pkg_name => g_pkg_name,
1345: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1346: x_msg_count => x_msg_count,
1347: x_msg_data => x_msg_data,
1348: p_api_type => g_api_type);
1349:
1346: x_msg_count => x_msg_count,
1347: x_msg_data => x_msg_data,
1348: p_api_type => g_api_type);
1349:
1350: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1351: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1352: p_api_name => l_api_name,
1353: p_pkg_name => g_pkg_name,
1354: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1347: x_msg_data => x_msg_data,
1348: p_api_type => g_api_type);
1349:
1350: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1351: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1352: p_api_name => l_api_name,
1353: p_pkg_name => g_pkg_name,
1354: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1355: x_msg_count => x_msg_count,
1350: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1351: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1352: p_api_name => l_api_name,
1353: p_pkg_name => g_pkg_name,
1354: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1355: x_msg_count => x_msg_count,
1356: x_msg_data => x_msg_data,
1357: p_api_type => g_api_type);
1358:
1356: x_msg_data => x_msg_data,
1357: p_api_type => g_api_type);
1358:
1359: WHEN OTHERS THEN
1360: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1361: p_api_name => l_api_name,
1362: p_pkg_name => g_pkg_name,
1363: p_exc_name => 'OTHERS',
1364: x_msg_count => x_msg_count,
1385: l_count NUMBER;
1386:
1387: begin
1388:
1389: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1390:
1391: x_return_status := OKL_API.START_ACTIVITY(
1392: p_api_name => l_api_name,
1393: p_pkg_name => g_pkg_name,
1387: begin
1388:
1389: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1390:
1391: x_return_status := OKL_API.START_ACTIVITY(
1392: p_api_name => l_api_name,
1393: p_pkg_name => g_pkg_name,
1394: p_init_msg_list => p_init_msg_list,
1395: l_api_version => l_api_version,
1437: l_krpv_rec,
1438: x_krpv_rec);
1439: END IF;
1440:
1441: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1442: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1443: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1444: RAISE OKL_API.G_EXCEPTION_ERROR;
1445: END IF;
1438: x_krpv_rec);
1439: END IF;
1440:
1441: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1442: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1443: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1444: RAISE OKL_API.G_EXCEPTION_ERROR;
1445: END IF;
1446:
1439: END IF;
1440:
1441: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1442: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1443: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1444: RAISE OKL_API.G_EXCEPTION_ERROR;
1445: END IF;
1446:
1447: x_krpr_rec.khr_id := x_krpv_rec.khr_id;
1440:
1441: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1442: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1443: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1444: RAISE OKL_API.G_EXCEPTION_ERROR;
1445: END IF;
1446:
1447: x_krpr_rec.khr_id := x_krpv_rec.khr_id;
1448: x_krpr_rec.parameter_type_code := x_krpv_rec.parameter_type_code;
1458: x_krpr_rec.days_in_a_month_code := x_krpv_rec.days_in_a_month_code;
1459: x_krpr_rec.days_in_a_year_code := x_krpv_rec.days_in_a_year_code;
1460: x_krpr_rec.interest_basis_code := x_krpv_rec.interest_basis_code;
1461:
1462: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1463:
1464: EXCEPTION
1465: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1466: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1461:
1462: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1463:
1464: EXCEPTION
1465: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1466: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1467: p_api_name => l_api_name,
1468: p_pkg_name => g_pkg_name,
1469: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1462: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1463:
1464: EXCEPTION
1465: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1466: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1467: p_api_name => l_api_name,
1468: p_pkg_name => g_pkg_name,
1469: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1470: x_msg_count => x_msg_count,
1465: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1466: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1467: p_api_name => l_api_name,
1468: p_pkg_name => g_pkg_name,
1469: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1470: x_msg_count => x_msg_count,
1471: x_msg_data => x_msg_data,
1472: p_api_type => g_api_type);
1473:
1470: x_msg_count => x_msg_count,
1471: x_msg_data => x_msg_data,
1472: p_api_type => g_api_type);
1473:
1474: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1475: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1476: p_api_name => l_api_name,
1477: p_pkg_name => g_pkg_name,
1478: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1471: x_msg_data => x_msg_data,
1472: p_api_type => g_api_type);
1473:
1474: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1475: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1476: p_api_name => l_api_name,
1477: p_pkg_name => g_pkg_name,
1478: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1479: x_msg_count => x_msg_count,
1474: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1475: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1476: p_api_name => l_api_name,
1477: p_pkg_name => g_pkg_name,
1478: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1479: x_msg_count => x_msg_count,
1480: x_msg_data => x_msg_data,
1481: p_api_type => g_api_type);
1482:
1480: x_msg_data => x_msg_data,
1481: p_api_type => g_api_type);
1482:
1483: WHEN OTHERS THEN
1484: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1485: p_api_name => l_api_name,
1486: p_pkg_name => g_pkg_name,
1487: p_exc_name => 'OTHERS',
1488: x_msg_count => x_msg_count,
1507: x_krpv_rec krpv_rec_type;
1508: l_count NUMBER;
1509:
1510: begin
1511: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1512:
1513: x_return_status := OKL_API.START_ACTIVITY(
1514: p_api_name => l_api_name,
1515: p_pkg_name => g_pkg_name,
1509:
1510: begin
1511: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1512:
1513: x_return_status := OKL_API.START_ACTIVITY(
1514: p_api_name => l_api_name,
1515: p_pkg_name => g_pkg_name,
1516: p_init_msg_list => p_init_msg_list,
1517: l_api_version => l_api_version,
1559: l_krpv_rec,
1560: x_krpv_rec);
1561: END IF;
1562:
1563: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1564: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1565: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1566: RAISE OKL_API.G_EXCEPTION_ERROR;
1567: END IF;
1560: x_krpv_rec);
1561: END IF;
1562:
1563: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1564: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1565: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1566: RAISE OKL_API.G_EXCEPTION_ERROR;
1567: END IF;
1568:
1561: END IF;
1562:
1563: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1564: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1565: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1566: RAISE OKL_API.G_EXCEPTION_ERROR;
1567: END IF;
1568:
1569: x_krpar_rec.khr_id := x_krpv_rec.khr_id;
1562:
1563: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1564: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1565: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1566: RAISE OKL_API.G_EXCEPTION_ERROR;
1567: END IF;
1568:
1569: x_krpar_rec.khr_id := x_krpv_rec.khr_id;
1570: x_krpar_rec.parameter_type_code := x_krpv_rec.parameter_type_code;
1580: x_krpar_rec.rate_change_start_date := x_krpv_rec.rate_change_start_date;
1581: x_krpar_rec.rate_change_frequency_code := x_krpv_rec.rate_change_frequency_code;
1582: x_krpar_rec.rate_change_value := x_krpv_rec.rate_change_value;
1583:
1584: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1585:
1586: EXCEPTION
1587: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1588: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1583:
1584: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1585:
1586: EXCEPTION
1587: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1588: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1589: p_api_name => l_api_name,
1590: p_pkg_name => g_pkg_name,
1591: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1584: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1585:
1586: EXCEPTION
1587: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1588: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1589: p_api_name => l_api_name,
1590: p_pkg_name => g_pkg_name,
1591: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1592: x_msg_count => x_msg_count,
1587: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1588: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1589: p_api_name => l_api_name,
1590: p_pkg_name => g_pkg_name,
1591: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1592: x_msg_count => x_msg_count,
1593: x_msg_data => x_msg_data,
1594: p_api_type => g_api_type);
1595:
1592: x_msg_count => x_msg_count,
1593: x_msg_data => x_msg_data,
1594: p_api_type => g_api_type);
1595:
1596: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1597: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1598: p_api_name => l_api_name,
1599: p_pkg_name => g_pkg_name,
1600: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1593: x_msg_data => x_msg_data,
1594: p_api_type => g_api_type);
1595:
1596: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1597: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1598: p_api_name => l_api_name,
1599: p_pkg_name => g_pkg_name,
1600: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1601: x_msg_count => x_msg_count,
1596: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1597: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1598: p_api_name => l_api_name,
1599: p_pkg_name => g_pkg_name,
1600: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1601: x_msg_count => x_msg_count,
1602: x_msg_data => x_msg_data,
1603: p_api_type => g_api_type);
1604:
1602: x_msg_data => x_msg_data,
1603: p_api_type => g_api_type);
1604:
1605: WHEN OTHERS THEN
1606: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1607: p_api_name => l_api_name,
1608: p_pkg_name => g_pkg_name,
1609: p_exc_name => 'OTHERS',
1610: x_msg_count => x_msg_count,
1628: x_krpv_rec krpv_rec_type;
1629: l_count NUMBER;
1630:
1631: begin
1632: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1633:
1634: x_return_status := OKL_API.START_ACTIVITY(
1635: p_api_name => l_api_name,
1636: p_pkg_name => g_pkg_name,
1630:
1631: begin
1632: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1633:
1634: x_return_status := OKL_API.START_ACTIVITY(
1635: p_api_name => l_api_name,
1636: p_pkg_name => g_pkg_name,
1637: p_init_msg_list => p_init_msg_list,
1638: l_api_version => l_api_version,
1673: l_krpv_rec,
1674: x_krpv_rec);
1675: END IF;
1676:
1677: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1678: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1679: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1680: RAISE OKL_API.G_EXCEPTION_ERROR;
1681: END IF;
1674: x_krpv_rec);
1675: END IF;
1676:
1677: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1678: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1679: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1680: RAISE OKL_API.G_EXCEPTION_ERROR;
1681: END IF;
1682:
1675: END IF;
1676:
1677: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1678: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1679: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1680: RAISE OKL_API.G_EXCEPTION_ERROR;
1681: END IF;
1682:
1683: x_krpc_rec.khr_id := x_krpv_rec.khr_id;
1676:
1677: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1678: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1679: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1680: RAISE OKL_API.G_EXCEPTION_ERROR;
1681: END IF;
1682:
1683: x_krpc_rec.khr_id := x_krpv_rec.khr_id;
1684: x_krpc_rec.parameter_type_code := x_krpv_rec.parameter_type_code;
1687: x_krpc_rec.conversion_option_code := x_krpv_rec.conversion_option_code;
1688: x_krpc_rec.next_conversion_date := x_krpv_rec.next_conversion_date;
1689: x_krpc_rec.conversion_type_code := x_krpv_rec.conversion_type_code;
1690:
1691: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1692:
1693: EXCEPTION
1694: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1695: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1690:
1691: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1692:
1693: EXCEPTION
1694: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1695: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1696: p_api_name => l_api_name,
1697: p_pkg_name => g_pkg_name,
1698: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1691: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1692:
1693: EXCEPTION
1694: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1695: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1696: p_api_name => l_api_name,
1697: p_pkg_name => g_pkg_name,
1698: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1699: x_msg_count => x_msg_count,
1694: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1695: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1696: p_api_name => l_api_name,
1697: p_pkg_name => g_pkg_name,
1698: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1699: x_msg_count => x_msg_count,
1700: x_msg_data => x_msg_data,
1701: p_api_type => g_api_type);
1702:
1699: x_msg_count => x_msg_count,
1700: x_msg_data => x_msg_data,
1701: p_api_type => g_api_type);
1702:
1703: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1704: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1705: p_api_name => l_api_name,
1706: p_pkg_name => g_pkg_name,
1707: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1700: x_msg_data => x_msg_data,
1701: p_api_type => g_api_type);
1702:
1703: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1704: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1705: p_api_name => l_api_name,
1706: p_pkg_name => g_pkg_name,
1707: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1708: x_msg_count => x_msg_count,
1703: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1704: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1705: p_api_name => l_api_name,
1706: p_pkg_name => g_pkg_name,
1707: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1708: x_msg_count => x_msg_count,
1709: x_msg_data => x_msg_data,
1710: p_api_type => g_api_type);
1711:
1709: x_msg_data => x_msg_data,
1710: p_api_type => g_api_type);
1711:
1712: WHEN OTHERS THEN
1713: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1714: p_api_name => l_api_name,
1715: p_pkg_name => g_pkg_name,
1716: p_exc_name => 'OTHERS',
1717: x_msg_count => x_msg_count,
1764: l_contract_start_date DATE;
1765: l_krpv_tbl krpv_tbl_type;
1766: --l_k_rate_tbl krpv_tbl_type;
1767: begin
1768: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1769:
1770: x_return_status := OKL_API.START_ACTIVITY(
1771: p_api_name => l_api_name,
1772: p_pkg_name => g_pkg_name,
1766: --l_k_rate_tbl krpv_tbl_type;
1767: begin
1768: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1769:
1770: x_return_status := OKL_API.START_ACTIVITY(
1771: p_api_name => l_api_name,
1772: p_pkg_name => g_pkg_name,
1773: p_init_msg_list => p_init_msg_list,
1774: l_api_version => l_api_version,
1790: p_khr_id => p_krpv_rec.khr_id,
1791: x_product_id => l_product_id,
1792: x_pdt_parameter_rec => l_pdt_parameter_rec);
1793:
1794: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1795: RAISE OKL_API.G_EXCEPTION_ERROR;
1796: END IF;
1797:
1798: l_deal_type := l_pdt_parameter_rec.deal_type;
1791: x_product_id => l_product_id,
1792: x_pdt_parameter_rec => l_pdt_parameter_rec);
1793:
1794: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1795: RAISE OKL_API.G_EXCEPTION_ERROR;
1796: END IF;
1797:
1798: l_deal_type := l_pdt_parameter_rec.deal_type;
1799: l_interest_calculation_basis := l_pdt_parameter_rec.interest_calculation_basis;
1809: x_msg_count => x_msg_count,
1810: x_msg_data => x_msg_data,
1811: p_krpv_rec => p_krpv_rec);
1812:
1813: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1814: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1815: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1816: RAISE OKL_API.G_EXCEPTION_ERROR;
1817: END IF;
1810: x_msg_data => x_msg_data,
1811: p_krpv_rec => p_krpv_rec);
1812:
1813: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1814: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1815: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1816: RAISE OKL_API.G_EXCEPTION_ERROR;
1817: END IF;
1818: END IF;
1811: p_krpv_rec => p_krpv_rec);
1812:
1813: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1814: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1815: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1816: RAISE OKL_API.G_EXCEPTION_ERROR;
1817: END IF;
1818: END IF;
1819: --Bug# 7566308
1812:
1813: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1814: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1815: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1816: RAISE OKL_API.G_EXCEPTION_ERROR;
1817: END IF;
1818: END IF;
1819: --Bug# 7566308
1820:
1869: p_product_id => l_product_id,
1870: p_k_rate_tbl => l_krpv_tbl,
1871: p_validate_flag => 'F');
1872:
1873: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1874: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1875: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1876: RAISE OKL_API.G_EXCEPTION_ERROR;
1877: END IF;
1870: p_k_rate_tbl => l_krpv_tbl,
1871: p_validate_flag => 'F');
1872:
1873: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1874: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1875: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1876: RAISE OKL_API.G_EXCEPTION_ERROR;
1877: END IF;
1878:
1871: p_validate_flag => 'F');
1872:
1873: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1874: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1875: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1876: RAISE OKL_API.G_EXCEPTION_ERROR;
1877: END IF;
1878:
1879: -- Bug 4722746
1872:
1873: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1874: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1875: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1876: RAISE OKL_API.G_EXCEPTION_ERROR;
1877: END IF;
1878:
1879: -- Bug 4722746
1880: IF (l_pdt_parameter_rec.interest_calculation_basis = 'CATCHUP/CLEANUP'
1911: OKC_API.set_message(p_app_name => G_APP_NAME,
1912: p_msg_name => G_REQUIRED_VALUE,
1913: p_token1 => G_COL_NAME_TOKEN,
1914: p_token1_value => 'CATCHUP FREQUENCY');
1915: RAISE OKL_API.G_EXCEPTION_ERROR;
1916: END IF;
1917:
1918: ELSE
1919: -- One of the four is not null
1927: OKC_API.set_message(p_app_name => G_APP_NAME,
1928: p_msg_name => G_REQUIRED_VALUE,
1929: p_token1 => G_COL_NAME_TOKEN,
1930: p_token1_value => 'Catchup Frequency');
1931: RAISE OKL_API.G_EXCEPTION_ERROR;
1932: END IF;
1933:
1934: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1935: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Catchup :6');
1952: OKC_API.set_message(p_app_name => G_APP_NAME,
1953: p_msg_name => G_REQUIRED_VALUE,
1954: p_token1 => G_COL_NAME_TOKEN,
1955: p_token1_value => 'Catchup Settlement');
1956: RAISE OKL_API.G_EXCEPTION_ERROR;
1957: END IF;
1958:
1959: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1960: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Catchup :8');
1966: OKC_API.set_message(p_app_name => G_APP_NAME,
1967: p_msg_name => G_REQUIRED_VALUE,
1968: p_token1 => G_COL_NAME_TOKEN,
1969: p_token1_value => 'Catchup Basis');
1970: RAISE OKL_API.G_EXCEPTION_ERROR;
1971: END IF;
1972:
1973:
1974: END IF;
1989:
1990: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1991: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After update_row() finished');
1992: END IF;
1993: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1994: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1995: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1996: RAISE OKL_API.G_EXCEPTION_ERROR;
1997: END IF;
1990: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1991: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After update_row() finished');
1992: END IF;
1993: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1994: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1995: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1996: RAISE OKL_API.G_EXCEPTION_ERROR;
1997: END IF;
1998:
1991: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After update_row() finished');
1992: END IF;
1993: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1994: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1995: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1996: RAISE OKL_API.G_EXCEPTION_ERROR;
1997: END IF;
1998:
1999: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1992: END IF;
1993: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1994: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1995: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1996: RAISE OKL_API.G_EXCEPTION_ERROR;
1997: END IF;
1998:
1999: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2000: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before calling cascade_lease_status_update...');
2006: x_msg_count => x_msg_count,
2007: x_msg_data => x_msg_data,
2008: p_chr_id => l_krpv_rec.khr_id);
2009:
2010: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2011: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2012: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2013: raise OKL_API.G_EXCEPTION_ERROR;
2014: End If;
2007: x_msg_data => x_msg_data,
2008: p_chr_id => l_krpv_rec.khr_id);
2009:
2010: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2011: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2012: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2013: raise OKL_API.G_EXCEPTION_ERROR;
2014: End If;
2015: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2008: p_chr_id => l_krpv_rec.khr_id);
2009:
2010: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2011: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2012: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2013: raise OKL_API.G_EXCEPTION_ERROR;
2014: End If;
2015: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2016: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After cascade_lease_status_update finished ...');
2009:
2010: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2011: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2012: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2013: raise OKL_API.G_EXCEPTION_ERROR;
2014: End If;
2015: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2016: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After cascade_lease_status_update finished ...');
2017: END IF;
2015: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2016: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After cascade_lease_status_update finished ...');
2017: END IF;
2018:
2019: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2020:
2021: EXCEPTION
2022: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2023: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2018:
2019: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2020:
2021: EXCEPTION
2022: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2023: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2024: p_api_name => l_api_name,
2025: p_pkg_name => g_pkg_name,
2026: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2019: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2020:
2021: EXCEPTION
2022: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2023: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2024: p_api_name => l_api_name,
2025: p_pkg_name => g_pkg_name,
2026: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2027: x_msg_count => x_msg_count,
2022: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2023: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2024: p_api_name => l_api_name,
2025: p_pkg_name => g_pkg_name,
2026: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2027: x_msg_count => x_msg_count,
2028: x_msg_data => x_msg_data,
2029: p_api_type => g_api_type);
2030:
2027: x_msg_count => x_msg_count,
2028: x_msg_data => x_msg_data,
2029: p_api_type => g_api_type);
2030:
2031: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2032: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2033: p_api_name => l_api_name,
2034: p_pkg_name => g_pkg_name,
2035: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2028: x_msg_data => x_msg_data,
2029: p_api_type => g_api_type);
2030:
2031: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2032: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2033: p_api_name => l_api_name,
2034: p_pkg_name => g_pkg_name,
2035: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2036: x_msg_count => x_msg_count,
2031: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2032: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2033: p_api_name => l_api_name,
2034: p_pkg_name => g_pkg_name,
2035: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2036: x_msg_count => x_msg_count,
2037: x_msg_data => x_msg_data,
2038: p_api_type => g_api_type);
2039:
2037: x_msg_data => x_msg_data,
2038: p_api_type => g_api_type);
2039:
2040: WHEN OTHERS THEN
2041: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2042: p_api_name => l_api_name,
2043: p_pkg_name => g_pkg_name,
2044: p_exc_name => 'OTHERS',
2045: x_msg_count => x_msg_count,
2063: x_krpv_rec krpv_rec_type;
2064: l_count NUMBER;
2065:
2066: begin
2067: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2068:
2069: x_return_status := OKL_API.START_ACTIVITY(
2070: p_api_name => l_api_name,
2071: p_pkg_name => g_pkg_name,
2065:
2066: begin
2067: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2068:
2069: x_return_status := OKL_API.START_ACTIVITY(
2070: p_api_name => l_api_name,
2071: p_pkg_name => g_pkg_name,
2072: p_init_msg_list => p_init_msg_list,
2073: l_api_version => l_api_version,
2098: x_msg_data,
2099: l_krpv_rec,
2100: x_krpv_rec);
2101:
2102: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2103: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2104: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2105: RAISE OKL_API.G_EXCEPTION_ERROR;
2106: END IF;
2099: l_krpv_rec,
2100: x_krpv_rec);
2101:
2102: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2103: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2104: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2105: RAISE OKL_API.G_EXCEPTION_ERROR;
2106: END IF;
2107:
2100: x_krpv_rec);
2101:
2102: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2103: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2104: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2105: RAISE OKL_API.G_EXCEPTION_ERROR;
2106: END IF;
2107:
2108: x_krpr_rec.khr_id := x_krpv_rec.khr_id;
2101:
2102: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2103: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2104: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2105: RAISE OKL_API.G_EXCEPTION_ERROR;
2106: END IF;
2107:
2108: x_krpr_rec.khr_id := x_krpv_rec.khr_id;
2109: x_krpr_rec.parameter_type_code := x_krpv_rec.parameter_type_code;
2119: x_krpr_rec.days_in_a_month_code := x_krpv_rec.days_in_a_month_code;
2120: x_krpr_rec.days_in_a_year_code := x_krpv_rec.days_in_a_year_code;
2121: x_krpr_rec.interest_basis_code := x_krpv_rec.interest_basis_code;
2122:
2123: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2124:
2125: EXCEPTION
2126: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2127: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2122:
2123: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2124:
2125: EXCEPTION
2126: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2127: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2128: p_api_name => l_api_name,
2129: p_pkg_name => g_pkg_name,
2130: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2123: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2124:
2125: EXCEPTION
2126: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2127: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2128: p_api_name => l_api_name,
2129: p_pkg_name => g_pkg_name,
2130: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2131: x_msg_count => x_msg_count,
2126: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2127: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2128: p_api_name => l_api_name,
2129: p_pkg_name => g_pkg_name,
2130: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2131: x_msg_count => x_msg_count,
2132: x_msg_data => x_msg_data,
2133: p_api_type => g_api_type);
2134:
2131: x_msg_count => x_msg_count,
2132: x_msg_data => x_msg_data,
2133: p_api_type => g_api_type);
2134:
2135: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2136: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2137: p_api_name => l_api_name,
2138: p_pkg_name => g_pkg_name,
2139: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2132: x_msg_data => x_msg_data,
2133: p_api_type => g_api_type);
2134:
2135: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2136: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2137: p_api_name => l_api_name,
2138: p_pkg_name => g_pkg_name,
2139: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2140: x_msg_count => x_msg_count,
2135: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2136: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2137: p_api_name => l_api_name,
2138: p_pkg_name => g_pkg_name,
2139: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2140: x_msg_count => x_msg_count,
2141: x_msg_data => x_msg_data,
2142: p_api_type => g_api_type);
2143:
2141: x_msg_data => x_msg_data,
2142: p_api_type => g_api_type);
2143:
2144: WHEN OTHERS THEN
2145: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2146: p_api_name => l_api_name,
2147: p_pkg_name => g_pkg_name,
2148: p_exc_name => 'OTHERS',
2149: x_msg_count => x_msg_count,
2167: x_krpv_rec krpv_rec_type;
2168: l_count NUMBER;
2169:
2170: begin
2171: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2172:
2173: x_return_status := OKL_API.START_ACTIVITY(
2174: p_api_name => l_api_name,
2175: p_pkg_name => g_pkg_name,
2169:
2170: begin
2171: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2172:
2173: x_return_status := OKL_API.START_ACTIVITY(
2174: p_api_name => l_api_name,
2175: p_pkg_name => g_pkg_name,
2176: p_init_msg_list => p_init_msg_list,
2177: l_api_version => l_api_version,
2202: x_msg_data,
2203: l_krpv_rec,
2204: x_krpv_rec);
2205:
2206: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2207: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2208: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2209: RAISE OKL_API.G_EXCEPTION_ERROR;
2210: END IF;
2203: l_krpv_rec,
2204: x_krpv_rec);
2205:
2206: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2207: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2208: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2209: RAISE OKL_API.G_EXCEPTION_ERROR;
2210: END IF;
2211:
2204: x_krpv_rec);
2205:
2206: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2207: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2208: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2209: RAISE OKL_API.G_EXCEPTION_ERROR;
2210: END IF;
2211:
2212: x_krpar_rec.khr_id := x_krpv_rec.khr_id;
2205:
2206: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2207: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2208: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2209: RAISE OKL_API.G_EXCEPTION_ERROR;
2210: END IF;
2211:
2212: x_krpar_rec.khr_id := x_krpv_rec.khr_id;
2213: x_krpar_rec.parameter_type_code := x_krpv_rec.parameter_type_code;
2223: x_krpar_rec.rate_change_start_date := x_krpv_rec.rate_change_start_date;
2224: x_krpar_rec.rate_change_frequency_code := x_krpv_rec.rate_change_frequency_code;
2225: x_krpar_rec.rate_change_value := x_krpv_rec.rate_change_value;
2226:
2227: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2228:
2229: EXCEPTION
2230: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2231: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2226:
2227: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2228:
2229: EXCEPTION
2230: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2231: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2232: p_api_name => l_api_name,
2233: p_pkg_name => g_pkg_name,
2234: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2227: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2228:
2229: EXCEPTION
2230: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2231: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2232: p_api_name => l_api_name,
2233: p_pkg_name => g_pkg_name,
2234: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2235: x_msg_count => x_msg_count,
2230: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2231: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2232: p_api_name => l_api_name,
2233: p_pkg_name => g_pkg_name,
2234: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2235: x_msg_count => x_msg_count,
2236: x_msg_data => x_msg_data,
2237: p_api_type => g_api_type);
2238:
2235: x_msg_count => x_msg_count,
2236: x_msg_data => x_msg_data,
2237: p_api_type => g_api_type);
2238:
2239: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2240: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2241: p_api_name => l_api_name,
2242: p_pkg_name => g_pkg_name,
2243: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2236: x_msg_data => x_msg_data,
2237: p_api_type => g_api_type);
2238:
2239: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2240: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2241: p_api_name => l_api_name,
2242: p_pkg_name => g_pkg_name,
2243: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2244: x_msg_count => x_msg_count,
2239: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2240: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2241: p_api_name => l_api_name,
2242: p_pkg_name => g_pkg_name,
2243: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2244: x_msg_count => x_msg_count,
2245: x_msg_data => x_msg_data,
2246: p_api_type => g_api_type);
2247:
2245: x_msg_data => x_msg_data,
2246: p_api_type => g_api_type);
2247:
2248: WHEN OTHERS THEN
2249: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2250: p_api_name => l_api_name,
2251: p_pkg_name => g_pkg_name,
2252: p_exc_name => 'OTHERS',
2253: x_msg_count => x_msg_count,
2271: x_krpv_rec krpv_rec_type;
2272: l_count NUMBER;
2273:
2274: begin
2275: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2276:
2277: x_return_status := OKL_API.START_ACTIVITY(
2278: p_api_name => l_api_name,
2279: p_pkg_name => g_pkg_name,
2273:
2274: begin
2275: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2276:
2277: x_return_status := OKL_API.START_ACTIVITY(
2278: p_api_name => l_api_name,
2279: p_pkg_name => g_pkg_name,
2280: p_init_msg_list => p_init_msg_list,
2281: l_api_version => l_api_version,
2299: x_msg_data,
2300: l_krpv_rec,
2301: x_krpv_rec);
2302:
2303: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2304: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2305: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2306: RAISE OKL_API.G_EXCEPTION_ERROR;
2307: END IF;
2300: l_krpv_rec,
2301: x_krpv_rec);
2302:
2303: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2304: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2305: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2306: RAISE OKL_API.G_EXCEPTION_ERROR;
2307: END IF;
2308:
2301: x_krpv_rec);
2302:
2303: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2304: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2305: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2306: RAISE OKL_API.G_EXCEPTION_ERROR;
2307: END IF;
2308:
2309: x_krpc_rec.khr_id := x_krpv_rec.khr_id;
2302:
2303: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2304: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2305: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2306: RAISE OKL_API.G_EXCEPTION_ERROR;
2307: END IF;
2308:
2309: x_krpc_rec.khr_id := x_krpv_rec.khr_id;
2310: x_krpc_rec.parameter_type_code := x_krpv_rec.parameter_type_code;
2313: x_krpc_rec.conversion_option_code := x_krpv_rec.conversion_option_code;
2314: x_krpc_rec.next_conversion_date := x_krpv_rec.next_conversion_date;
2315: x_krpc_rec.conversion_type_code := x_krpv_rec.conversion_type_code;
2316:
2317: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2318:
2319: EXCEPTION
2320: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2321: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2316:
2317: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2318:
2319: EXCEPTION
2320: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2321: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2322: p_api_name => l_api_name,
2323: p_pkg_name => g_pkg_name,
2324: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2317: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2318:
2319: EXCEPTION
2320: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2321: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2322: p_api_name => l_api_name,
2323: p_pkg_name => g_pkg_name,
2324: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2325: x_msg_count => x_msg_count,
2320: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2321: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2322: p_api_name => l_api_name,
2323: p_pkg_name => g_pkg_name,
2324: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2325: x_msg_count => x_msg_count,
2326: x_msg_data => x_msg_data,
2327: p_api_type => g_api_type);
2328:
2325: x_msg_count => x_msg_count,
2326: x_msg_data => x_msg_data,
2327: p_api_type => g_api_type);
2328:
2329: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2330: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2331: p_api_name => l_api_name,
2332: p_pkg_name => g_pkg_name,
2333: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2326: x_msg_data => x_msg_data,
2327: p_api_type => g_api_type);
2328:
2329: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2330: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2331: p_api_name => l_api_name,
2332: p_pkg_name => g_pkg_name,
2333: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2334: x_msg_count => x_msg_count,
2329: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2330: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2331: p_api_name => l_api_name,
2332: p_pkg_name => g_pkg_name,
2333: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2334: x_msg_count => x_msg_count,
2335: x_msg_data => x_msg_data,
2336: p_api_type => g_api_type);
2337:
2335: x_msg_data => x_msg_data,
2336: p_api_type => g_api_type);
2337:
2338: WHEN OTHERS THEN
2339: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2340: p_api_name => l_api_name,
2341: p_pkg_name => g_pkg_name,
2342: p_exc_name => 'OTHERS',
2343: x_msg_count => x_msg_count,
2392: l_orig_effective_from_date DATE;
2393: l_del_count NUMBER := 0; -- Bug 4874280
2394: l_khr_id NUMBER;
2395: begin
2396: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2397:
2398: x_return_status := OKL_API.START_ACTIVITY(
2399: p_api_name => l_api_name,
2400: p_pkg_name => g_pkg_name,
2394: l_khr_id NUMBER;
2395: begin
2396: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2397:
2398: x_return_status := OKL_API.START_ACTIVITY(
2399: p_api_name => l_api_name,
2400: p_pkg_name => g_pkg_name,
2401: p_init_msg_list => p_init_msg_list,
2402: l_api_version => l_api_version,
2425: l_parameter_type_code := 'CONVERSION';
2426: ELSE
2427: OKC_API.set_message(p_app_name => G_APP_NAME,
2428: p_msg_name => 'OKL_LLA_VAR_RATE_INV_PARAM');
2429: RAISE OKL_API.G_EXCEPTION_ERROR;
2430: END IF;
2431:
2432: FOR r IN get_effective_to_date_csr(
2433: p_krpdel_tbl(i).khr_id,
2446: END IF;
2447: IF (l_effective_to_date IS NOT NULL) THEN
2448: OKC_API.set_message(p_app_name => G_APP_NAME,
2449: p_msg_name => 'OKL_LLA_VAR_RATE_DELETE_ERR');
2450: RAISE OKL_API.G_EXCEPTION_ERROR;
2451: END IF;
2452:
2453: --Bug# 7440232
2454: IF (l_sts_code = 'BOOKED') THEN
2453: --Bug# 7440232
2454: IF (l_sts_code = 'BOOKED') THEN
2455: OKC_API.set_message(p_app_name => G_APP_NAME,
2456: p_msg_name => 'OKL_LLA_VAR_RATE_DELETE_ERR1');
2457: RAISE OKL_API.G_EXCEPTION_ERROR;
2458: END IF;
2459:
2460: IF (l_orig_system_source_code = 'OKL_REBOOK') THEN
2461:
2477: IF (l_orig_effective_from_date =
2478: p_krpdel_tbl(i).effective_from_date) THEN
2479: OKC_API.set_message(p_app_name => G_APP_NAME,
2480: p_msg_name => 'OKL_LLA_VAR_RATE_DELETE_ERR2');
2481: RAISE OKL_API.G_EXCEPTION_ERROR;
2482: END IF;
2483:
2484: /*UPDATE OKL_K_RATE_PARAMS
2485: SET EFFECTIVE_TO_DATE = NULL
2638: x_msg_count,
2639: x_msg_data,
2640: l_krpv_rec2);
2641:
2642: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2643: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2644: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2645: RAISE OKL_API.G_EXCEPTION_ERROR;
2646: END IF;
2639: x_msg_data,
2640: l_krpv_rec2);
2641:
2642: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2643: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2644: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2645: RAISE OKL_API.G_EXCEPTION_ERROR;
2646: END IF;
2647:
2640: l_krpv_rec2);
2641:
2642: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2643: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2644: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2645: RAISE OKL_API.G_EXCEPTION_ERROR;
2646: END IF;
2647:
2648: IF (l_orig_system_source_code = 'OKL_REBOOK') THEN
2641:
2642: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2643: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2644: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2645: RAISE OKL_API.G_EXCEPTION_ERROR;
2646: END IF;
2647:
2648: IF (l_orig_system_source_code = 'OKL_REBOOK') THEN
2649:
2661: IF (l_orig_effective_from_date =
2662: p_krpdel_tbl(i).effective_from_date) THEN
2663: OKC_API.set_message(p_app_name => G_APP_NAME,
2664: p_msg_name => 'OKL_LA_VAR_RATE_DELETE_ERR2');
2665: RAISE OKL_API.G_EXCEPTION_ERROR;
2666: END IF;*/
2667:
2668: UPDATE OKL_K_RATE_PARAMS
2669: SET EFFECTIVE_TO_DATE = NULL
2689: x_msg_count => x_msg_count,
2690: x_msg_data => x_msg_data,
2691: p_chr_id => l_khr_id);
2692:
2693: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2694: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2695: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2696: raise OKL_API.G_EXCEPTION_ERROR;
2697: End If;
2690: x_msg_data => x_msg_data,
2691: p_chr_id => l_khr_id);
2692:
2693: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2694: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2695: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2696: raise OKL_API.G_EXCEPTION_ERROR;
2697: End If;
2698: END IF;
2691: p_chr_id => l_khr_id);
2692:
2693: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2694: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2695: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2696: raise OKL_API.G_EXCEPTION_ERROR;
2697: End If;
2698: END IF;
2699:
2692:
2693: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2694: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2695: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2696: raise OKL_API.G_EXCEPTION_ERROR;
2697: End If;
2698: END IF;
2699:
2700: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2696: raise OKL_API.G_EXCEPTION_ERROR;
2697: End If;
2698: END IF;
2699:
2700: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2701:
2702: EXCEPTION
2703: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2704: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2699:
2700: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2701:
2702: EXCEPTION
2703: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2704: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2705: p_api_name => l_api_name,
2706: p_pkg_name => g_pkg_name,
2707: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2700: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2701:
2702: EXCEPTION
2703: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2704: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2705: p_api_name => l_api_name,
2706: p_pkg_name => g_pkg_name,
2707: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2708: x_msg_count => x_msg_count,
2703: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2704: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2705: p_api_name => l_api_name,
2706: p_pkg_name => g_pkg_name,
2707: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2708: x_msg_count => x_msg_count,
2709: x_msg_data => x_msg_data,
2710: p_api_type => g_api_type);
2711:
2708: x_msg_count => x_msg_count,
2709: x_msg_data => x_msg_data,
2710: p_api_type => g_api_type);
2711:
2712: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2713: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2714: p_api_name => l_api_name,
2715: p_pkg_name => g_pkg_name,
2716: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2709: x_msg_data => x_msg_data,
2710: p_api_type => g_api_type);
2711:
2712: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2713: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2714: p_api_name => l_api_name,
2715: p_pkg_name => g_pkg_name,
2716: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2717: x_msg_count => x_msg_count,
2712: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2713: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2714: p_api_name => l_api_name,
2715: p_pkg_name => g_pkg_name,
2716: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2717: x_msg_count => x_msg_count,
2718: x_msg_data => x_msg_data,
2719: p_api_type => g_api_type);
2720:
2718: x_msg_data => x_msg_data,
2719: p_api_type => g_api_type);
2720:
2721: WHEN OTHERS THEN
2722: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2723: p_api_name => l_api_name,
2724: p_pkg_name => g_pkg_name,
2725: p_exc_name => 'OTHERS',
2726: x_msg_count => x_msg_count,
2821: l_deal_type VARCHAR2(30);
2822: l_interest_calculation_basis VARCHAR2(30);
2823: l_revenue_recognition_method VARCHAR2(30);
2824: begin
2825: x_return_status := OKL_API.START_ACTIVITY(
2826: p_api_name => l_api_name,
2827: p_pkg_name => g_pkg_name,
2828: p_init_msg_list => p_init_msg_list,
2829: l_api_version => l_api_version,
2833:
2834: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2835: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'In validate_k_rate_params QA checker' || to_char(sysdate,'HH24:MI:SS') || ' with p_khr_id= ' || p_khr_id || ' ...');
2836: END IF;
2837: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2838: OPEN l_hdr_csr(p_khr_id);
2839: FETCH l_hdr_csr INTO l_hdr_rec;
2840: IF l_hdr_csr%NOTFOUND THEN
2841: CLOSE l_hdr_csr;
2838: OPEN l_hdr_csr(p_khr_id);
2839: FETCH l_hdr_csr INTO l_hdr_rec;
2840: IF l_hdr_csr%NOTFOUND THEN
2841: CLOSE l_hdr_csr;
2842: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2843: END IF;
2844: CLOSE l_hdr_csr;
2845:
2846: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2858: p_pdtv_rec => p_pdtv_rec,
2859: x_no_data_found => x_no_data_found,
2860: p_pdt_parameter_rec => x_pdt_parameter_rec);
2861:
2862: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2863: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2864: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2865: RAISE OKL_API.G_EXCEPTION_ERROR;
2866: ELSIF NVL(x_pdt_parameter_rec.Name,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR THEN
2859: x_no_data_found => x_no_data_found,
2860: p_pdt_parameter_rec => x_pdt_parameter_rec);
2861:
2862: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2863: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2864: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2865: RAISE OKL_API.G_EXCEPTION_ERROR;
2866: ELSIF NVL(x_pdt_parameter_rec.Name,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR THEN
2867: x_return_status := OKL_API.G_RET_STS_ERROR;
2860: p_pdt_parameter_rec => x_pdt_parameter_rec);
2861:
2862: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2863: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2864: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2865: RAISE OKL_API.G_EXCEPTION_ERROR;
2866: ELSIF NVL(x_pdt_parameter_rec.Name,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR THEN
2867: x_return_status := OKL_API.G_RET_STS_ERROR;
2868: RAISE OKL_API.G_EXCEPTION_ERROR;
2861:
2862: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2863: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2864: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2865: RAISE OKL_API.G_EXCEPTION_ERROR;
2866: ELSIF NVL(x_pdt_parameter_rec.Name,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR THEN
2867: x_return_status := OKL_API.G_RET_STS_ERROR;
2868: RAISE OKL_API.G_EXCEPTION_ERROR;
2869: END IF;
2862: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2863: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2864: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2865: RAISE OKL_API.G_EXCEPTION_ERROR;
2866: ELSIF NVL(x_pdt_parameter_rec.Name,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR THEN
2867: x_return_status := OKL_API.G_RET_STS_ERROR;
2868: RAISE OKL_API.G_EXCEPTION_ERROR;
2869: END IF;
2870:
2863: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2864: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2865: RAISE OKL_API.G_EXCEPTION_ERROR;
2866: ELSIF NVL(x_pdt_parameter_rec.Name,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR THEN
2867: x_return_status := OKL_API.G_RET_STS_ERROR;
2868: RAISE OKL_API.G_EXCEPTION_ERROR;
2869: END IF;
2870:
2871: --print('Product_subclass=' || x_pdt_parameter_rec.product_subclass);
2864: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2865: RAISE OKL_API.G_EXCEPTION_ERROR;
2866: ELSIF NVL(x_pdt_parameter_rec.Name,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR THEN
2867: x_return_status := OKL_API.G_RET_STS_ERROR;
2868: RAISE OKL_API.G_EXCEPTION_ERROR;
2869: END IF;
2870:
2871: --print('Product_subclass=' || x_pdt_parameter_rec.product_subclass);
2872: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2907: ,p_token1 => G_LEASE_TYPE
2908: ,p_token1_value => 'LEASEOP,LEASEDF,LEASEST'
2909: ,p_token2 => G_INT_BASIS
2910: ,p_token2_value => 'FIXED,REAMORT');
2911: RAISE OKL_API.G_EXCEPTION_ERROR;
2912: END IF;
2913: ELS */
2914: IF (((l_deal_type IN ('LEASEOP', 'LEASEDF', 'LEASEST')) AND
2915: (l_interest_calculation_basis IN ( 'FLOAT_FACTORS', 'REAMORT'))) OR
2928: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
2929: ,p_msg_name => G_OKL_LLA_VAR_RATE_MISSING
2930: ,p_token1 => G_CONT_ID
2931: ,p_token1_value => p_khr_id);
2932: RAISE OKL_API.G_EXCEPTION_ERROR;
2933: END IF;
2934:
2935: END IF;
2936:
2974: OKC_API.set_message(p_app_name => G_APP_NAME,
2975: p_msg_name => G_REQUIRED_VALUE,
2976: p_token1 => G_COL_NAME_TOKEN,
2977: p_token1_value => 'Catchup Frequency');
2978: RAISE OKL_API.G_EXCEPTION_ERROR;
2979: END IF;
2980:
2981: --print('Catchup :2');
2982: /*IF (l_k_rate_tbl(i).catchup_start_date is NOT NULL AND
2994: OKC_API.set_message(p_app_name => G_APP_NAME,
2995: p_msg_name => G_REQUIRED_VALUE,
2996: p_token1 => G_COL_NAME_TOKEN,
2997: p_token1_value => 'Catchup Settlement');
2998: RAISE OKL_API.G_EXCEPTION_ERROR;
2999: END IF;
3000:
3001: --print('Catchup :4');
3002: IF (l_k_rate_tbl(i).catchup_basis_code is NOT NULL AND
3006: OKC_API.set_message(p_app_name => G_APP_NAME,
3007: p_msg_name => G_REQUIRED_VALUE,
3008: p_token1 => G_COL_NAME_TOKEN,
3009: p_token1_value => 'Catchup Basis');
3010: RAISE OKL_API.G_EXCEPTION_ERROR;
3011: END IF;
3012: END LOOP;
3013:
3014: END IF;
3013:
3014: END IF;
3015:
3016:
3017: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3018:
3019: EXCEPTION
3020: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3021: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3016:
3017: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3018:
3019: EXCEPTION
3020: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3021: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3022: p_api_name => l_api_name,
3023: p_pkg_name => g_pkg_name,
3024: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3017: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3018:
3019: EXCEPTION
3020: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3021: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3022: p_api_name => l_api_name,
3023: p_pkg_name => g_pkg_name,
3024: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3025: x_msg_count => x_msg_count,
3020: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3021: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3022: p_api_name => l_api_name,
3023: p_pkg_name => g_pkg_name,
3024: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3025: x_msg_count => x_msg_count,
3026: x_msg_data => x_msg_data,
3027: p_api_type => g_api_type);
3028:
3025: x_msg_count => x_msg_count,
3026: x_msg_data => x_msg_data,
3027: p_api_type => g_api_type);
3028:
3029: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3030: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3031: p_api_name => l_api_name,
3032: p_pkg_name => g_pkg_name,
3033: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3026: x_msg_data => x_msg_data,
3027: p_api_type => g_api_type);
3028:
3029: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3030: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3031: p_api_name => l_api_name,
3032: p_pkg_name => g_pkg_name,
3033: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3034: x_msg_count => x_msg_count,
3029: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3030: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3031: p_api_name => l_api_name,
3032: p_pkg_name => g_pkg_name,
3033: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3034: x_msg_count => x_msg_count,
3035: x_msg_data => x_msg_data,
3036: p_api_type => g_api_type);
3037:
3035: x_msg_data => x_msg_data,
3036: p_api_type => g_api_type);
3037:
3038: WHEN OTHERS THEN
3039: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3040: p_api_name => l_api_name,
3041: p_pkg_name => g_pkg_name,
3042: p_exc_name => 'OTHERS',
3043: x_msg_count => x_msg_count,
3092: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3093: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'x_return_status=' || x_return_status);
3094: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'name=' || x_pdt_parameter_rec.name);
3095: END IF;
3096: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3097: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3098: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3099: RAISE OKL_API.G_EXCEPTION_ERROR;
3100: /*ELSIF NVL(x_pdt_parameter_rec.Name,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR THEN
3093: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'x_return_status=' || x_return_status);
3094: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'name=' || x_pdt_parameter_rec.name);
3095: END IF;
3096: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3097: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3098: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3099: RAISE OKL_API.G_EXCEPTION_ERROR;
3100: /*ELSIF NVL(x_pdt_parameter_rec.Name,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR THEN
3101: x_return_status := OKL_API.G_RET_STS_ERROR;
3094: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'name=' || x_pdt_parameter_rec.name);
3095: END IF;
3096: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3097: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3098: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3099: RAISE OKL_API.G_EXCEPTION_ERROR;
3100: /*ELSIF NVL(x_pdt_parameter_rec.Name,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR THEN
3101: x_return_status := OKL_API.G_RET_STS_ERROR;
3102: RAISE OKL_API.G_EXCEPTION_ERROR;*/
3095: END IF;
3096: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3097: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3098: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3099: RAISE OKL_API.G_EXCEPTION_ERROR;
3100: /*ELSIF NVL(x_pdt_parameter_rec.Name,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR THEN
3101: x_return_status := OKL_API.G_RET_STS_ERROR;
3102: RAISE OKL_API.G_EXCEPTION_ERROR;*/
3103: END IF;
3096: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3097: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3098: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3099: RAISE OKL_API.G_EXCEPTION_ERROR;
3100: /*ELSIF NVL(x_pdt_parameter_rec.Name,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR THEN
3101: x_return_status := OKL_API.G_RET_STS_ERROR;
3102: RAISE OKL_API.G_EXCEPTION_ERROR;*/
3103: END IF;
3104:
3097: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3098: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3099: RAISE OKL_API.G_EXCEPTION_ERROR;
3100: /*ELSIF NVL(x_pdt_parameter_rec.Name,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR THEN
3101: x_return_status := OKL_API.G_RET_STS_ERROR;
3102: RAISE OKL_API.G_EXCEPTION_ERROR;*/
3103: END IF;
3104:
3105: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3098: ELSIF ( x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3099: RAISE OKL_API.G_EXCEPTION_ERROR;
3100: /*ELSIF NVL(x_pdt_parameter_rec.Name,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR THEN
3101: x_return_status := OKL_API.G_RET_STS_ERROR;
3102: RAISE OKL_API.G_EXCEPTION_ERROR;*/
3103: END IF;
3104:
3105: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3106: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Deal_type=' || x_pdt_parameter_rec.Deal_type);
3197: l_addl_int_rate_exist BOOLEAN;
3198: l_conv_basis_exist BOOLEAN;
3199:
3200: BEGIN
3201: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3202:
3203: x_return_status := OKL_API.START_ACTIVITY(
3204: p_api_name => l_api_name,
3205: p_pkg_name => g_pkg_name,
3199:
3200: BEGIN
3201: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3202:
3203: x_return_status := OKL_API.START_ACTIVITY(
3204: p_api_name => l_api_name,
3205: p_pkg_name => g_pkg_name,
3206: p_init_msg_list => p_init_msg_list,
3207: l_api_version => l_api_version,
3296: END IF;
3297: END LOOP;
3298:
3299: --dbms_output.put_line('here4');
3300: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3301:
3302: EXCEPTION
3303: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3304: --Close all cursors if open
3299: --dbms_output.put_line('here4');
3300: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3301:
3302: EXCEPTION
3303: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3304: --Close all cursors if open
3305: IF c_int_rate_param%ISOPEN THEN
3306: CLOSE c_int_rate_param;
3307: END IF;
3304: --Close all cursors if open
3305: IF c_int_rate_param%ISOPEN THEN
3306: CLOSE c_int_rate_param;
3307: END IF;
3308: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3309: l_api_name,
3310: G_PKG_NAME,
3311: 'OKL_API.G_RET_STS_ERROR',
3312: x_msg_count,
3307: END IF;
3308: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3309: l_api_name,
3310: G_PKG_NAME,
3311: 'OKL_API.G_RET_STS_ERROR',
3312: x_msg_count,
3313: x_msg_data,
3314: '_PVT');
3315:
3312: x_msg_count,
3313: x_msg_data,
3314: '_PVT');
3315:
3316: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3317: --Close all cursors if open
3318: IF c_int_rate_param%ISOPEN THEN
3319: CLOSE c_int_rate_param;
3320: END IF;
3317: --Close all cursors if open
3318: IF c_int_rate_param%ISOPEN THEN
3319: CLOSE c_int_rate_param;
3320: END IF;
3321: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3322: l_api_name,
3323: G_PKG_NAME,
3324: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3325: x_msg_count,
3320: END IF;
3321: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3322: l_api_name,
3323: G_PKG_NAME,
3324: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3325: x_msg_count,
3326: x_msg_data,
3327: '_PVT');
3328:
3330: --Close all cursors if open
3331: IF c_int_rate_param%ISOPEN THEN
3332: CLOSE c_int_rate_param;
3333: END IF;
3334: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3335: l_api_name,
3336: G_PKG_NAME,
3337: 'OTHERS',
3338: x_msg_count,
3489:
3490:
3491: BEGIN
3492: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3493: x_return_status := OKL_API.START_ACTIVITY(
3494: p_api_name => l_api_name,
3495: p_pkg_name => g_pkg_name,
3496: p_init_msg_list => p_init_msg_list,
3497: l_api_version => l_api_version,
3533: ,p_token1_value =>
3534: 'INTEREST_START_DATE,RATE_CHANGE_START_DATE,CATCHUP_START_DATE'
3535: ,p_token2 => 'CONTRACT_NUMBER'
3536: ,p_token2_value => l_contract_number);
3537: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3538: END IF;
3539:
3540: IF (l_pdt_parameter_rec.DEAL_TYPE IN ('LEASEOP', 'LEASEDF', 'LEASEST') AND
3541: l_pdt_parameter_rec.interest_calculation_basis IN
3564: p_chr_id ,
3565: l_effective_from_date,
3566: l_no_data_found);
3567: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3568: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3569: END IF;
3570:
3571: IF NOT(l_no_data_found) THEN
3572: l_krpv_rec.khr_id := p_chr_id;
3604: p_krpv_rec => l_krpv_rec,
3605: x_krpv_rec => x_krpv_rec);
3606: --p_validate_flag => 'Y');
3607: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3608: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3609: END IF; */
3610:
3611: update okl_k_rate_params
3612: set effective_from_date = p_new_start_date
3628: END IF;
3629:
3630: END IF;
3631:
3632: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3633:
3634: EXCEPTION
3635: WHEN OTHERS THEN
3636: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3632: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3633:
3634: EXCEPTION
3635: WHEN OTHERS THEN
3636: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3637: p_api_name => l_api_name,
3638: p_pkg_name => g_pkg_name,
3639: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3640: x_msg_count => x_msg_count,
3635: WHEN OTHERS THEN
3636: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3637: p_api_name => l_api_name,
3638: p_pkg_name => g_pkg_name,
3639: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3640: x_msg_count => x_msg_count,
3641: x_msg_data => x_msg_data,
3642: p_api_type => g_api_type);
3643:
3797: BEGIN
3798: IF (G_DEBUG_ENABLED = 'Y') THEN
3799: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
3800: END IF;
3801: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3802: -- Call start_activity to create savepoint, check compatibility
3803: -- and initialize message list
3804: x_return_status := OKL_API.START_ACTIVITY (
3805: l_api_name
3800: END IF;
3801: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3802: -- Call start_activity to create savepoint, check compatibility
3803: -- and initialize message list
3804: x_return_status := OKL_API.START_ACTIVITY (
3805: l_api_name
3806: ,p_init_msg_list
3807: ,'_PVT'
3808: ,x_return_status);
3806: ,p_init_msg_list
3807: ,'_PVT'
3808: ,x_return_status);
3809: -- Check if activity started successfully
3810: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3811: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3812: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3813: RAISE OKL_API.G_EXCEPTION_ERROR;
3814: END IF;
3807: ,'_PVT'
3808: ,x_return_status);
3809: -- Check if activity started successfully
3810: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3811: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3812: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3813: RAISE OKL_API.G_EXCEPTION_ERROR;
3814: END IF;
3815:
3808: ,x_return_status);
3809: -- Check if activity started successfully
3810: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3811: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3812: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3813: RAISE OKL_API.G_EXCEPTION_ERROR;
3814: END IF;
3815:
3816: -- Obtain the contract details - Book classification, Interest Calculation Basis, Revenue Recognition Method, Interest Processed flag
3809: -- Check if activity started successfully
3810: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3811: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3812: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3813: RAISE OKL_API.G_EXCEPTION_ERROR;
3814: END IF;
3815:
3816: -- Obtain the contract details - Book classification, Interest Calculation Basis, Revenue Recognition Method, Interest Processed flag
3817: OKL_K_RATE_PARAMS_PVT.get_product(
3822: x_msg_data => x_msg_data,
3823: p_khr_id => p_chr_id,
3824: x_pdt_parameter_rec => l_pdt_params_rec);
3825:
3826: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3827: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3828: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3829: RAISE OKL_API.G_EXCEPTION_ERROR;
3830: END IF;
3823: p_khr_id => p_chr_id,
3824: x_pdt_parameter_rec => l_pdt_params_rec);
3825:
3826: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3827: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3828: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3829: RAISE OKL_API.G_EXCEPTION_ERROR;
3830: END IF;
3831:
3824: x_pdt_parameter_rec => l_pdt_params_rec);
3825:
3826: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3827: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3828: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3829: RAISE OKL_API.G_EXCEPTION_ERROR;
3830: END IF;
3831:
3832: l_book_class := l_pdt_params_rec.deal_type;
3825:
3826: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3827: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3828: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3829: RAISE OKL_API.G_EXCEPTION_ERROR;
3830: END IF;
3831:
3832: l_book_class := l_pdt_params_rec.deal_type;
3833: l_interest_calc_basis := l_pdt_params_rec.interest_calculation_basis;
3871: ,p_token1 => G_BOOK_CLASS
3872: ,p_token1_value => l_book_class_meaning
3873: ,p_token2 => G_INT_CALC_BASIS
3874: ,p_token2_value => l_interest_calc_meaning);
3875: RAISE OKL_API.G_EXCEPTION_ERROR;
3876: END IF;
3877:
3878: IF ( l_interest_calc_basis = G_ICB_REAMORT) THEN
3879: -- Donot allow Rebook if interest has been processed
3877:
3878: IF ( l_interest_calc_basis = G_ICB_REAMORT) THEN
3879: -- Donot allow Rebook if interest has been processed
3880: IF ( l_interest_proc_date IS NOT NULL ) THEN
3881: IF (l_mass_rebook_flag = OKL_API.G_TRUE) THEN -- 4766555
3882: NULL;
3883: ELSE
3884: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
3885: ,p_msg_name => G_OKL_LLA_RBK_INT_PROC_INVAL
3884: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
3885: ,p_msg_name => G_OKL_LLA_RBK_INT_PROC_INVAL
3886: ,p_token1 => G_COL_NAME
3887: ,p_token1_value => l_contract_number);
3888: RAISE OKL_API.G_EXCEPTION_ERROR;
3889: END IF;
3890: ELSE
3891: -- Get the due date of the Rental stream that was last billed
3892: OPEN get_last_billed_due_date(p_chr_id, G_STRM_RENT);
3907: ,p_token1 => G_STREAM
3908: ,p_token1_value => l_stream_name
3909: ,p_token2 => G_DUE_DATE
3910: ,p_token2_value => l_last_billed_due_date);
3911: RAISE OKL_API.G_EXCEPTION_ERROR;
3912: /*ELSIF ( l_last_accrued_due_date IS NOT NULL
3913: AND p_rebook_date <= l_last_accrued_due_date) THEN
3914: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
3915: ,p_msg_name => G_OKL_LLA_RBK_DATE_ACCR_INVAL
3916: ,p_token1 => G_STREAM
3917: ,p_token1_value => l_stream_name
3918: ,p_token2 => G_DUE_DATE
3919: ,p_token2_value => l_last_accrued_due_date);
3920: RAISE OKL_API.G_EXCEPTION_ERROR; */ -- Bug 5000110
3921: END IF; -- end of check for rebook date
3922: END IF; -- end of check for interest rate processed
3923:
3924: END IF; -- end of REAMORT check
3932: ,p_token1 => G_BOOK_CLASS
3933: ,p_token1_value => l_book_class_meaning
3934: ,p_token2 => G_INT_CALC_BASIS
3935: ,p_token2_value => l_interest_calc_meaning);
3936: RAISE OKL_API.G_EXCEPTION_ERROR;
3937: END IF;
3938: IF ( l_interest_calc_basis = G_ICB_REAMORT) THEN
3939: -- Donot allow Rebook if interest has been processed
3940: IF ( l_interest_proc_date IS NOT NULL ) THEN
3937: END IF;
3938: IF ( l_interest_calc_basis = G_ICB_REAMORT) THEN
3939: -- Donot allow Rebook if interest has been processed
3940: IF ( l_interest_proc_date IS NOT NULL ) THEN
3941: IF (l_mass_rebook_flag = OKL_API.G_TRUE) THEN -- 4766555
3942: NULL;
3943: ELSE
3944: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
3945: ,p_msg_name => G_OKL_LLA_RBK_INT_PROC_INVAL
3944: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
3945: ,p_msg_name => G_OKL_LLA_RBK_INT_PROC_INVAL
3946: ,p_token1 => G_COL_NAME
3947: ,p_token1_value => l_contract_number);
3948: RAISE OKL_API.G_EXCEPTION_ERROR;
3949: END IF;
3950: ELSE
3951: -- Get the due date of the Rental stream that was last billed
3952: OPEN get_last_billed_due_date(p_chr_id, G_STRM_RENT);
3968: ,p_token1 => G_STREAM
3969: ,p_token1_value => l_stream_name
3970: ,p_token2 => G_DUE_DATE
3971: ,p_token2_value => l_last_billed_due_date);
3972: RAISE OKL_API.G_EXCEPTION_ERROR;
3973: /*ELSIF ( l_last_accrued_due_date IS NOT NULL AND
3974: p_rebook_date <= l_last_accrued_due_date) THEN
3975: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
3976: ,p_msg_name => G_OKL_LLA_RBK_DATE_ACCR_INVAL
3977: ,p_token1 => G_STREAM
3978: ,p_token1_value => l_stream_name
3979: ,p_token2 => G_DUE_DATE
3980: ,p_token2_value => l_last_accrued_due_date);
3981: RAISE OKL_API.G_EXCEPTION_ERROR; */ -- Bug 5000110
3982: END IF; -- end of check for rebook date
3983: END IF; -- end of check for interest rate processed
3984:
3985: END IF; -- end of REAMORT check
3993: ,p_token1 => G_BOOK_CLASS
3994: ,p_token1_value => l_book_class_meaning
3995: ,p_token2 => G_INT_CALC_BASIS
3996: ,p_token2_value => l_interest_calc_meaning);
3997: RAISE OKL_API.G_EXCEPTION_ERROR;
3998: END IF;
3999:
4000: IF ( l_interest_calc_basis = G_ICB_REAMORT) THEN
4001: -- Donot allow Rebook if interest has been processed
3999:
4000: IF ( l_interest_calc_basis = G_ICB_REAMORT) THEN
4001: -- Donot allow Rebook if interest has been processed
4002: IF ( l_interest_proc_date IS NOT NULL ) THEN
4003: IF (l_mass_rebook_flag = OKL_API.G_TRUE) THEN -- 4766555
4004: NULL;
4005: ELSE
4006: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
4007: ,p_msg_name => G_OKL_LLA_RBK_INT_PROC_INVAL
4006: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
4007: ,p_msg_name => G_OKL_LLA_RBK_INT_PROC_INVAL
4008: ,p_token1 => G_COL_NAME
4009: ,p_token1_value => l_contract_number);
4010: RAISE OKL_API.G_EXCEPTION_ERROR;
4011: END IF;
4012: ELSE
4013: -- Get the due date of the rent stream that was last billed
4014: OPEN get_last_billed_due_date(p_chr_id, G_STRM_RENT);
4030: ,p_token1 => G_STREAM
4031: ,p_token1_value => l_stream_name
4032: ,p_token2 => G_DUE_DATE
4033: ,p_token2_value => l_last_billed_due_date);
4034: RAISE OKL_API.G_EXCEPTION_ERROR;
4035: /*ELSIF ( l_last_accrued_due_date IS NOT NULL AND
4036: p_rebook_date <= l_last_accrued_due_date) THEN
4037: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
4038: ,p_msg_name => G_OKL_LLA_RBK_DATE_ACCR_INVAL
4039: ,p_token1 => G_STREAM
4040: ,p_token1_value => l_stream_name
4041: ,p_token2 => G_DUE_DATE
4042: ,p_token2_value => l_last_accrued_due_date);
4043: RAISE OKL_API.G_EXCEPTION_ERROR; */ -- Bug 5000110
4044: END IF; -- end of check for rebook date
4045: END IF; -- end of check for interest rate processed
4046:
4047: END IF; -- end of REAMORT check
4055: ,p_token1 => G_BOOK_CLASS
4056: ,p_token1_value => l_book_class_meaning
4057: ,p_token2 => G_INT_CALC_BASIS
4058: ,p_token2_value => l_interest_calc_meaning);
4059: RAISE OKL_API.G_EXCEPTION_ERROR;
4060: END IF;
4061:
4062: IF ( l_interest_calc_basis = G_ICB_REAMORT) THEN
4063: IF ( l_interest_proc_date IS NOT NULL ) THEN
4060: END IF;
4061:
4062: IF ( l_interest_calc_basis = G_ICB_REAMORT) THEN
4063: IF ( l_interest_proc_date IS NOT NULL ) THEN
4064: IF (l_mass_rebook_flag = OKL_API.G_TRUE) THEN -- 4766555
4065: NULL;
4066: ELSE
4067: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
4068: ,p_msg_name => G_OKL_LLA_RBK_INT_PROC_INVAL
4067: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
4068: ,p_msg_name => G_OKL_LLA_RBK_INT_PROC_INVAL
4069: ,p_token1 => G_COL_NAME
4070: ,p_token1_value => l_contract_number);
4071: RAISE OKL_API.G_EXCEPTION_ERROR;
4072: END IF;
4073: ELSE
4074: -- Get the due date of the rent stream that was last billed
4075: OPEN get_last_billed_due_date(p_chr_id, G_STRM_RENT);
4091: ,p_token1 => G_STREAM
4092: ,p_token1_value => l_stream_name
4093: ,p_token2 => G_DUE_DATE
4094: ,p_token2_value => l_last_billed_due_date);
4095: RAISE OKL_API.G_EXCEPTION_ERROR;
4096: /*ELSIF ( l_last_accrued_due_date IS NOT NULL AND
4097: p_rebook_date <= l_last_accrued_due_date) THEN
4098: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
4099: ,p_msg_name => G_OKL_LLA_RBK_DATE_ACCR_INVAL
4100: ,p_token1 => G_STREAM
4101: ,p_token1_value => l_stream_name
4102: ,p_token2 => G_DUE_DATE
4103: ,p_token2_value => l_last_accrued_due_date);
4104: RAISE OKL_API.G_EXCEPTION_ERROR; */ -- Bug 5000110
4105: END IF; -- end of check for rebook date
4106: END IF; -- end of check for interest rate processed
4107:
4108: END IF; -- end of REAMORT check
4130: ,p_token1 => G_STREAM
4131: ,p_token1_value => l_stream_name
4132: ,p_token2 => G_DUE_DATE
4133: ,p_token2_value => l_last_billed_due_date);
4134: RAISE OKL_API.G_EXCEPTION_ERROR;
4135: /*ELSIF ( l_last_accrued_due_date IS NOT NULL AND
4136: p_rebook_date <= l_last_accrued_due_date) THEN
4137: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
4138: ,p_msg_name => G_OKL_LLA_RBK_DATE_ACCR_INVAL
4139: ,p_token1 => G_STREAM
4140: ,p_token1_value => l_stream_name
4141: ,p_token2 => G_DUE_DATE
4142: ,p_token2_value => l_last_accrued_due_date);
4143: RAISE OKL_API.G_EXCEPTION_ERROR; */ -- Bug 5000110
4144: END IF; -- end of check for rebook date
4145: -- Check if the Revenue Recognition Method is Actual
4146: ELSIF ( l_rev_recog_method = G_RRM_ACTUAL) THEN
4147: -- Get the due date of the Variable Loan Payment stream that was last billed
4164: ,p_token1 => G_STREAM
4165: ,p_token1_value => l_stream_name
4166: ,p_token2 => G_DUE_DATE
4167: ,p_token2_value => l_last_billed_due_date);
4168: RAISE OKL_API.G_EXCEPTION_ERROR;
4169: /*ELSIF ( l_last_accrued_due_date IS NOT NULL AND
4170: p_rebook_date <= l_last_accrued_due_date) THEN
4171: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
4172: ,p_msg_name => G_OKL_LLA_RBK_DATE_ACCR_INVAL
4173: ,p_token1 => G_STREAM
4174: ,p_token1_value => l_stream_name
4175: ,p_token2 => G_DUE_DATE
4176: ,p_token2_value => l_last_accrued_due_date);
4177: RAISE OKL_API.G_EXCEPTION_ERROR; */ -- Bug 5000110
4178: END IF; -- end of check for rebook date
4179: END IF; -- end of check for Revenue Recognition Method
4180: END IF; -- end of check for Interest Calculation Basis=FLOAT
4181:
4187: ,p_token1 => G_BOOK_CLASS
4188: ,p_token1_value => l_book_class_meaning
4189: ,p_token2 => G_INT_CALC_BASIS
4190: ,p_token2_value => l_interest_calc_meaning);
4191: RAISE OKL_API.G_EXCEPTION_ERROR;
4192: ELSE
4193: -- Check if the Revenue Recognition Method is Estimated and Actual
4194: IF ( l_rev_recog_method = G_RRM_EST_ACTUAL) THEN
4195: -- Get the due date of the Variable Interest Income stream that was last billed
4212: ,p_token1 => G_STREAM
4213: ,p_token1_value => l_stream_name
4214: ,p_token2 => G_DUE_DATE
4215: ,p_token2_value => l_last_billed_due_date);
4216: RAISE OKL_API.G_EXCEPTION_ERROR;
4217: /*ELSIF ( l_last_accrued_due_date IS NOT NULL AND
4218: p_rebook_date <= l_last_accrued_due_date) THEN
4219: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
4220: ,p_msg_name => G_OKL_LLA_RBK_DATE_ACCR_INVAL
4221: ,p_token1 => G_STREAM
4222: ,p_token1_value => l_stream_name
4223: ,p_token2 => G_DUE_DATE
4224: ,p_token2_value => l_last_accrued_due_date);
4225: RAISE OKL_API.G_EXCEPTION_ERROR; */ -- Bug 5000110
4226: END IF; -- end of check for rebook date
4227: -- Check if the Revenue Recognition Method is Actual
4228: ELSIF ( l_rev_recog_method = G_RRM_ACTUAL) THEN
4229: -- Get the due date of the Variable Loan Payment stream that was last billed
4246: ,p_token1 => G_STREAM
4247: ,p_token1_value => l_stream_name
4248: ,p_token2 => G_DUE_DATE
4249: ,p_token2_value => l_last_billed_due_date);
4250: RAISE OKL_API.G_EXCEPTION_ERROR;
4251: /*ELSIF ( l_last_accrued_due_date IS NOT NULL AND
4252: p_rebook_date <= l_last_accrued_due_date) THEN
4253: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
4254: ,p_msg_name => G_OKL_LLA_RBK_DATE_ACCR_INVAL
4255: ,p_token1 => G_STREAM
4256: ,p_token1_value => l_stream_name
4257: ,p_token2 => G_DUE_DATE
4258: ,p_token2_value => l_last_accrued_due_date);
4259: RAISE OKL_API.G_EXCEPTION_ERROR; */ -- Bug 5000110
4260: END IF; -- end of check for rebook date
4261: END IF; -- end of check for Revenue Recognition Method
4262: END IF; -- end of check for Interest Calculation Basis=FLOAT
4263: /*-- Raise an error if the book classification is not valid.
4261: END IF; -- end of check for Revenue Recognition Method
4262: END IF; -- end of check for Interest Calculation Basis=FLOAT
4263: /*-- Raise an error if the book classification is not valid.
4264: ELSE
4265: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR; */
4266: END IF;
4267:
4268: OKL_API.END_ACTIVITY (x_msg_count,
4269: x_msg_data );
4264: ELSE
4265: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR; */
4266: END IF;
4267:
4268: OKL_API.END_ACTIVITY (x_msg_count,
4269: x_msg_data );
4270:
4271: EXCEPTION
4272: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4268: OKL_API.END_ACTIVITY (x_msg_count,
4269: x_msg_data );
4270:
4271: EXCEPTION
4272: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4273: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4274: l_api_name,
4275: G_PKG_NAME,
4276: 'OKL_API.G_RET_STS_ERROR',
4269: x_msg_data );
4270:
4271: EXCEPTION
4272: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4273: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4274: l_api_name,
4275: G_PKG_NAME,
4276: 'OKL_API.G_RET_STS_ERROR',
4277: x_msg_count,
4272: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4273: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4274: l_api_name,
4275: G_PKG_NAME,
4276: 'OKL_API.G_RET_STS_ERROR',
4277: x_msg_count,
4278: x_msg_data,
4279: '_PVT');
4280: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4276: 'OKL_API.G_RET_STS_ERROR',
4277: x_msg_count,
4278: x_msg_data,
4279: '_PVT');
4280: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4281: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4282: l_api_name,
4283: G_PKG_NAME,
4284: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4277: x_msg_count,
4278: x_msg_data,
4279: '_PVT');
4280: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4281: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4282: l_api_name,
4283: G_PKG_NAME,
4284: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4285: x_msg_count,
4280: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4281: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4282: l_api_name,
4283: G_PKG_NAME,
4284: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4285: x_msg_count,
4286: x_msg_data,
4287: '_PVT');
4288: WHEN OTHERS THEN
4285: x_msg_count,
4286: x_msg_data,
4287: '_PVT');
4288: WHEN OTHERS THEN
4289: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4290: l_api_name,
4291: G_PKG_NAME,
4292: 'OTHERS',
4293: x_msg_count,
4600: END IF;
4601:
4602: EXCEPTION WHEN OTHERS THEN
4603:
4604: --x_return_status := OKL_API.G_RET_STS_ERROR;
4605: /* DEBUG */
4606: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4607: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'sqlcode=' || SQLCODE || ':sqlerrm=' || SQLERRM);
4608: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Printing copy_var_int_rate_params:l_kkhr_id_tab.count=' || l_kkhr_id_tab.COUNT || ' ...');
4681: INTO l_base_rate;
4682: CLOSE base_rate_csr;
4683:
4684: IF (l_base_rate IS NULL OR
4685: l_base_rate = OKL_API.G_MISS_NUM) THEN
4686: x_base_rate_defined := FALSE;
4687: ELSE
4688: x_base_rate_defined := TRUE;
4689: END IF;
4686: x_base_rate_defined := FALSE;
4687: ELSE
4688: x_base_rate_defined := TRUE;
4689: END IF;
4690: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4691:
4692: EXCEPTION
4693: WHEN NO_DATA_FOUND THEN -- Bug 4905142
4694: x_base_rate_defined := FALSE;
4691:
4692: EXCEPTION
4693: WHEN NO_DATA_FOUND THEN -- Bug 4905142
4694: x_base_rate_defined := FALSE;
4695: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4696: WHEN OTHERS THEN
4697: x_return_status := OKL_API.G_RET_STS_ERROR;
4698: x_base_rate_defined := FALSE;
4699: END;
4693: WHEN NO_DATA_FOUND THEN -- Bug 4905142
4694: x_base_rate_defined := FALSE;
4695: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4696: WHEN OTHERS THEN
4697: x_return_status := OKL_API.G_RET_STS_ERROR;
4698: x_base_rate_defined := FALSE;
4699: END;
4700:
4701: PROCEDURE check_principal_payment(
4732: l_api_version NUMBER := 1;
4733: l_api_name VARCHAR2(30) := 'check_principal_payment';
4734:
4735: BEGIN
4736: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4737: x_principal_payment_defined := FALSE;
4738:
4739: x_return_status := OKL_API.START_ACTIVITY(
4740: p_api_name => l_api_name,
4735: BEGIN
4736: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4737: x_principal_payment_defined := FALSE;
4738:
4739: x_return_status := OKL_API.START_ACTIVITY(
4740: p_api_name => l_api_name,
4741: p_pkg_name => g_pkg_name,
4742: p_init_msg_list => p_init_msg_list,
4743: l_api_version => l_api_version,
4750: OPEN strm_name_csr ( l_hdrrl_rec.object1_id1 );
4751: FETCH strm_name_csr into l_strm_name_rec;
4752: IF strm_name_csr%NOTFOUND THEN
4753: CLOSE strm_name_csr;
4754: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4755: END IF;
4756: CLOSE strm_name_csr;
4757:
4758: IF ( l_strm_name_rec.stream_type_purpose = 'PRINCIPAL_PAYMENT' ) Then
4759: x_principal_payment_defined := TRUE;
4760: END IF;
4761: END LOOP;
4762:
4763: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
4764:
4765: EXCEPTION
4766: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4767: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4762:
4763: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
4764:
4765: EXCEPTION
4766: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4767: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4768: p_api_name => l_api_name,
4769: p_pkg_name => g_pkg_name,
4770: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4763: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
4764:
4765: EXCEPTION
4766: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4767: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4768: p_api_name => l_api_name,
4769: p_pkg_name => g_pkg_name,
4770: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4771: x_msg_count => x_msg_count,
4766: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4767: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4768: p_api_name => l_api_name,
4769: p_pkg_name => g_pkg_name,
4770: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4771: x_msg_count => x_msg_count,
4772: x_msg_data => x_msg_data,
4773: p_api_type => g_api_type);
4774:
4771: x_msg_count => x_msg_count,
4772: x_msg_data => x_msg_data,
4773: p_api_type => g_api_type);
4774:
4775: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4776: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4777: p_api_name => l_api_name,
4778: p_pkg_name => g_pkg_name,
4779: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4772: x_msg_data => x_msg_data,
4773: p_api_type => g_api_type);
4774:
4775: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4776: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4777: p_api_name => l_api_name,
4778: p_pkg_name => g_pkg_name,
4779: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4780: x_msg_count => x_msg_count,
4775: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4776: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4777: p_api_name => l_api_name,
4778: p_pkg_name => g_pkg_name,
4779: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4780: x_msg_count => x_msg_count,
4781: x_msg_data => x_msg_data,
4782: p_api_type => g_api_type);
4783:
4781: x_msg_data => x_msg_data,
4782: p_api_type => g_api_type);
4783:
4784: WHEN OTHERS THEN
4785: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4786: p_api_name => l_api_name,
4787: p_pkg_name => g_pkg_name,
4788: p_exc_name => 'OTHERS',
4789: x_msg_count => x_msg_count,
4873:
4874: l_last_billed_due_date DATE;
4875: BEGIN
4876:
4877: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4878:
4879: x_return_status := OKL_API.START_ACTIVITY(
4880: p_api_name => l_api_name,
4881: p_pkg_name => g_pkg_name,
4875: BEGIN
4876:
4877: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4878:
4879: x_return_status := OKL_API.START_ACTIVITY(
4880: p_api_name => l_api_name,
4881: p_pkg_name => g_pkg_name,
4882: p_init_msg_list => p_init_msg_list,
4883: l_api_version => 1,
4893: x_msg_data => x_msg_data,
4894: p_khr_id => p_khr_id,
4895: x_pdt_parameter_rec => l_pdt_params_rec);
4896:
4897: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4898: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4899: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4900: RAISE OKL_API.G_EXCEPTION_ERROR;
4901: END IF;
4894: p_khr_id => p_khr_id,
4895: x_pdt_parameter_rec => l_pdt_params_rec);
4896:
4897: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4898: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4899: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4900: RAISE OKL_API.G_EXCEPTION_ERROR;
4901: END IF;
4902:
4895: x_pdt_parameter_rec => l_pdt_params_rec);
4896:
4897: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4898: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4899: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4900: RAISE OKL_API.G_EXCEPTION_ERROR;
4901: END IF;
4902:
4903: l_interest_calc_basis := l_pdt_params_rec.interest_calculation_basis;
4896:
4897: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4898: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4899: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4900: RAISE OKL_API.G_EXCEPTION_ERROR;
4901: END IF;
4902:
4903: l_interest_calc_basis := l_pdt_params_rec.interest_calculation_basis;
4904: l_rev_recog_method := l_pdt_params_rec.revenue_recognition_method;
4910: l_parameter_type_code := 'CONVERSION';
4911: ELSE
4912: OKC_API.set_message(p_app_name => G_APP_NAME,
4913: p_msg_name => 'OKL_LLA_VAR_RATE_INV_PARAM');
4914: RAISE OKL_API.G_EXCEPTION_ERROR;
4915: END IF;
4916:
4917: l_effective_from_date := null;
4918: FOR r IN get_effective_from_date_csr(p_khr_id, l_parameter_type_code)
4930: END IF;
4931: IF (l_effective_from_date is NULL) THEN
4932: l_krpv_rec.effective_from_date := NULL;
4933: x_krpv_rec := l_krpv_rec;
4934: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4935: x_msg_data => x_msg_data);
4936: return;
4937: END IF;
4938:
4941: END IF;
4942: IF (l_orig_system_source_code <> 'OKL_REBOOK') THEN
4943: OKC_API.set_message(p_app_name => G_APP_NAME,
4944: p_msg_name => 'OKL_LLA_VAR_RATE_COPY_NA');
4945: RAISE OKL_API.G_EXCEPTION_ERROR;
4946: END IF;
4947:
4948: -- Bug 4999888
4949: IF (l_interest_calc_basis = 'FIXED' and l_rev_recog_method='ACTUAL') THEN
4966: p_token1 => 'EFF_DATE',
4967: p_token1_value => p_effective_from_date,
4968: p_token2 => 'INTEREST_DATE',
4969: p_token2_value => l_last_billed_due_date);
4970: RAISE OKL_API.G_EXCEPTION_ERROR;
4971: END IF;
4972: END IF;
4973:
4974: -- Bug 4999888
4981: p_token1 => 'EFF_DATE',
4982: p_token1_value => p_effective_from_date,
4983: p_token2 => 'INTEREST_DATE',
4984: p_token2_value => l_last_interest_cal_date);
4985: RAISE OKL_API.G_EXCEPTION_ERROR;
4986: END IF;
4987: END IF;
4988: END IF;
4989:
5001: IF (l_orig_effective_from_date <> l_effective_from_date) THEN
5002: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5003: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'copy:Yes, inside...');
5004: END IF;
5005: x_return_status := OKL_API.G_RET_STS_ERROR;
5006: OKC_API.set_message(p_app_name => G_APP_NAME,
5007: p_msg_name => 'OKL_LLA_VAR_RATE_EXISTS');
5008: RAISE OKL_API.G_EXCEPTION_ERROR;
5009: END IF;
5004: END IF;
5005: x_return_status := OKL_API.G_RET_STS_ERROR;
5006: OKC_API.set_message(p_app_name => G_APP_NAME,
5007: p_msg_name => 'OKL_LLA_VAR_RATE_EXISTS');
5008: RAISE OKL_API.G_EXCEPTION_ERROR;
5009: END IF;
5010:
5011: SELECT
5012: KHR_ID, l_parameter_type_code, p_effective_from_date,
5094: AND PARAMETER_TYPE_CODE = l_parameter_type_code
5095: AND EFFECTIVE_FROM_DATE = l_effective_from_date
5096: AND EFFECTIVE_TO_DATE IS NULL;
5097:
5098: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
5099:
5100: EXCEPTION
5101: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5102: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5097:
5098: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
5099:
5100: EXCEPTION
5101: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5102: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5103: p_api_name => l_api_name,
5104: p_pkg_name => g_pkg_name,
5105: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5098: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
5099:
5100: EXCEPTION
5101: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5102: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5103: p_api_name => l_api_name,
5104: p_pkg_name => g_pkg_name,
5105: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5106: x_msg_count => x_msg_count,
5101: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5102: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5103: p_api_name => l_api_name,
5104: p_pkg_name => g_pkg_name,
5105: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5106: x_msg_count => x_msg_count,
5107: x_msg_data => x_msg_data,
5108: p_api_type => g_api_type);
5109:
5106: x_msg_count => x_msg_count,
5107: x_msg_data => x_msg_data,
5108: p_api_type => g_api_type);
5109:
5110: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5111: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5112: p_api_name => l_api_name,
5113: p_pkg_name => g_pkg_name,
5114: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5107: x_msg_data => x_msg_data,
5108: p_api_type => g_api_type);
5109:
5110: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5111: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5112: p_api_name => l_api_name,
5113: p_pkg_name => g_pkg_name,
5114: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5115: x_msg_count => x_msg_count,
5110: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5111: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5112: p_api_name => l_api_name,
5113: p_pkg_name => g_pkg_name,
5114: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5115: x_msg_count => x_msg_count,
5116: x_msg_data => x_msg_data,
5117: p_api_type => g_api_type);
5118:
5116: x_msg_data => x_msg_data,
5117: p_api_type => g_api_type);
5118:
5119: WHEN OTHERS THEN
5120: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5121: p_api_name => l_api_name,
5122: p_pkg_name => g_pkg_name,
5123: p_exc_name => 'OTHERS',
5124: x_msg_count => x_msg_count,
5148:
5149: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5150: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'In Sync_base_rate procedure...');
5151: END IF;
5152: x_return_status := OKL_API.START_ACTIVITY(
5153: p_api_name => l_api_name,
5154: p_pkg_name => g_pkg_name,
5155: p_init_msg_list => p_init_msg_list,
5156: l_api_version => 1,
5184: AND EFFECTIVE_TO_DATE IS NULL
5185: AND BASE_RATE IS NULL;
5186: END IF;
5187:
5188: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
5189:
5190: EXCEPTION
5191: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5192: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5187:
5188: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
5189:
5190: EXCEPTION
5191: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5192: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5193: p_api_name => l_api_name,
5194: p_pkg_name => g_pkg_name,
5195: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5188: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
5189:
5190: EXCEPTION
5191: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5192: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5193: p_api_name => l_api_name,
5194: p_pkg_name => g_pkg_name,
5195: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5196: x_msg_count => x_msg_count,
5191: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5192: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5193: p_api_name => l_api_name,
5194: p_pkg_name => g_pkg_name,
5195: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5196: x_msg_count => x_msg_count,
5197: x_msg_data => x_msg_data,
5198: p_api_type => g_api_type);
5199:
5196: x_msg_count => x_msg_count,
5197: x_msg_data => x_msg_data,
5198: p_api_type => g_api_type);
5199:
5200: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5201: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5202: p_api_name => l_api_name,
5203: p_pkg_name => g_pkg_name,
5204: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5197: x_msg_data => x_msg_data,
5198: p_api_type => g_api_type);
5199:
5200: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5201: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5202: p_api_name => l_api_name,
5203: p_pkg_name => g_pkg_name,
5204: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5205: x_msg_count => x_msg_count,
5200: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5201: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5202: p_api_name => l_api_name,
5203: p_pkg_name => g_pkg_name,
5204: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5205: x_msg_count => x_msg_count,
5206: x_msg_data => x_msg_data,
5207: p_api_type => g_api_type);
5208:
5206: x_msg_data => x_msg_data,
5207: p_api_type => g_api_type);
5208:
5209: WHEN OTHERS THEN
5210: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5211: p_api_name => l_api_name,
5212: p_pkg_name => g_pkg_name,
5213: p_exc_name => 'OTHERS',
5214: x_msg_count => x_msg_count,