[Home] [Help]
54:
55: BEGIN
56:
57: -- initialize return status
58: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
59:
60: OPEN eligible_csr (p_chr_id);
61: FETCH eligible_csr INTO l_eg_eligible;
62: CLOSE eligible_csr;
67: CLOSE deal_type_csr;
68:
69: IF (NVL(l_deal_type,'X') IN ('LOAN', 'LOAN-REVOLVING')) THEN
70:
71: Okl_Api.set_message(
72: p_app_name => G_APP_NAME,
73: p_msg_name => 'OKL_EVERGREEN_NOT_ALLOWED',
74: p_token1 => 'DEAL_TYPE',
75: p_token1_value => l_deal_type);
73: p_msg_name => 'OKL_EVERGREEN_NOT_ALLOWED',
74: p_token1 => 'DEAL_TYPE',
75: p_token1_value => l_deal_type);
76:
77: x_return_status := Okl_Api.G_RET_STS_ERROR;
78:
79: END IF;
80: END IF;
81:
81:
82: EXCEPTION
83: WHEN OTHERS THEN
84: -- store SQL error message on message stack
85: Okl_Api.SET_MESSAGE(
86: p_app_name => G_APP_NAME,
87: p_msg_name => G_UNEXPECTED_ERROR,
88: p_token1 => G_SQLCODE_TOKEN,
89: p_token1_value => SQLCODE,
88: p_token1 => G_SQLCODE_TOKEN,
89: p_token1_value => SQLCODE,
90: p_token2 => G_SQLERRM_TOKEN,
91: p_token2_value => SQLERRM);
92: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
93:
94: IF eligible_csr%ISOPEN THEN
95: CLOSE eligible_csr;
96: END IF;
144: l_deal_type OKL_K_HEADERS.DEAL_TYPE%TYPE;
145: BEGIN
146:
147: -- initialize return status
148: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
149:
150: OPEN eligible_csr (p_chr_id);
151: FETCH eligible_csr INTO l_eg_eligible;
152: CLOSE eligible_csr;
163: CLOSE evergreen_passthru_csr;
164:
165: IF (l_eg_passthru_vendor IS NULL OR l_eg_passthru_vendor_site IS NULL) THEN
166:
167: Okl_Api.set_message(
168: p_app_name => G_APP_NAME,
169: p_msg_name => 'OKL_REQ_EVERGREEN_PTH');
170:
171: x_return_status := Okl_Api.G_RET_STS_ERROR;
167: Okl_Api.set_message(
168: p_app_name => G_APP_NAME,
169: p_msg_name => 'OKL_REQ_EVERGREEN_PTH');
170:
171: x_return_status := Okl_Api.G_RET_STS_ERROR;
172: END IF;
173: END IF;
174: END IF;
175:
175:
176: EXCEPTION
177: WHEN OTHERS THEN
178: -- store SQL error message on message stack
179: Okl_Api.SET_MESSAGE(
180: p_app_name => G_APP_NAME,
181: p_msg_name => G_UNEXPECTED_ERROR,
182: p_token1 => G_SQLCODE_TOKEN,
183: p_token1_value => SQLCODE,
182: p_token1 => G_SQLCODE_TOKEN,
183: p_token1_value => SQLCODE,
184: p_token2 => G_SQLERRM_TOKEN,
185: p_token2_value => SQLERRM);
186: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
187:
188: IF eligible_csr%ISOPEN THEN
189: CLOSE eligible_csr;
190: END IF;
222:
223: bill_to_failed EXCEPTION;
224:
225: BEGIN
226: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
227:
228: x_bill_to_id := NULL;
229: OPEN bill_to_csr (p_chr_id);
230: FETCH bill_to_csr INTO x_bill_to_id;
245: IF bill_to_csr%ISOPEN THEN
246: CLOSE bill_to_csr;
247: END IF;
248:
249: x_return_status := Okl_Api.G_RET_STS_ERROR;
250:
251: WHEN OTHERS THEN
252: x_return_status := Okc_Api.G_RET_STS_ERROR;
253:
276:
277: cust_acc_failed EXCEPTION;
278:
279: BEGIN
280: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
281:
282: x_cust_acc_id := NULL;
283: OPEN cust_acc_csr (p_chr_id);
284: FETCH cust_acc_csr INTO x_cust_acc_id;
299: IF cust_acc_csr%ISOPEN THEN
300: CLOSE cust_acc_csr;
301: END IF;
302:
303: x_return_status := Okl_Api.G_RET_STS_ERROR;
304:
305: WHEN OTHERS THEN
306: x_return_status := Okc_Api.G_RET_STS_ERROR;
307:
463:
464: BEGIN
465:
466: -- initialize return status
467: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
468:
469: Okl_Service_Integration_Pub.get_service_link_line (
470: p_api_version => 1.0,
471: p_init_msg_list => Okl_Api.G_FALSE,
467: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
468:
469: Okl_Service_Integration_Pub.get_service_link_line (
470: p_api_version => 1.0,
471: p_init_msg_list => Okl_Api.G_FALSE,
472: x_return_status => x_return_status,
473: x_msg_count => x_msg_count,
474: x_msg_data => x_msg_data,
475: p_lease_contract_id => p_chr_id,
475: p_lease_contract_id => p_chr_id,
476: x_link_line_tbl => x_link_line_tbl,
477: x_service_contract_id => x_service_contract_id);
478:
479: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
480: RAISE G_EXCEPTION_HALT_VALIDATION;
481: END IF;
482:
483: IF ( NVL(x_service_contract_id, -1 ) = -1 ) THEN
480: RAISE G_EXCEPTION_HALT_VALIDATION;
481: END IF;
482:
483: IF ( NVL(x_service_contract_id, -1 ) = -1 ) THEN
484: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
485: Okl_Api.set_message(
486: p_app_name => G_APP_NAME,
487: p_msg_name => G_QA_SUCCESS);
488: RETURN;
481: END IF;
482:
483: IF ( NVL(x_service_contract_id, -1 ) = -1 ) THEN
484: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
485: Okl_Api.set_message(
486: p_app_name => G_APP_NAME,
487: p_msg_name => G_QA_SUCCESS);
488: RETURN;
489: END IF;
496: FETCH l_hdr_csr INTO l_hdr_rec2;
497: CLOSE l_hdr_csr;
498:
499: IF ( l_hdr_rec1.CURRENCY_CODE <> l_hdr_rec2.CURRENCY_CODE ) THEN
500: Okl_Api.set_message(
501: p_app_name => G_APP_NAME,
502: p_msg_name => 'OKL_QA_OKL_OKS_CURR');
503: x_return_status := Okl_Api.G_RET_STS_ERROR;
504: END IF;
499: IF ( l_hdr_rec1.CURRENCY_CODE <> l_hdr_rec2.CURRENCY_CODE ) THEN
500: Okl_Api.set_message(
501: p_app_name => G_APP_NAME,
502: p_msg_name => 'OKL_QA_OKL_OKS_CURR');
503: x_return_status := Okl_Api.G_RET_STS_ERROR;
504: END IF;
505:
506: OPEN cust_csr('LESSEE', p_chr_id );
507: FETCH cust_csr INTO cust_rec1;
511: FETCH cust_csr INTO cust_rec2;
512: CLOSE cust_csr;
513:
514: IF ( cust_rec1.Object1_id1 <> cust_rec2.Object1_id1 ) THEN
515: Okl_Api.set_message(
516: p_app_name => G_APP_NAME,
517: p_msg_name => 'OKL_QA_OKL_OKS_CUST');
518: x_return_status := Okl_Api.G_RET_STS_ERROR;
519: END IF;
514: IF ( cust_rec1.Object1_id1 <> cust_rec2.Object1_id1 ) THEN
515: Okl_Api.set_message(
516: p_app_name => G_APP_NAME,
517: p_msg_name => 'OKL_QA_OKL_OKS_CUST');
518: x_return_status := Okl_Api.G_RET_STS_ERROR;
519: END IF;
520:
521: /* Rule migration
522:
543: );
544:
545: --If( l_hdrrl_rec.object1_id1 <> l_oksrl_rec.object1_id1 ) Then
546: IF( l_okl_bill_to_id <> l_oks_bill_to_id) THEN
547: Okl_Api.set_message(
548: p_app_name => G_APP_NAME,
549: p_msg_name => 'OKL_QA_OKL_OKS_BTO');
550: -- notify caller of an error
551: x_return_status := Okl_Api.G_RET_STS_ERROR;
547: Okl_Api.set_message(
548: p_app_name => G_APP_NAME,
549: p_msg_name => 'OKL_QA_OKL_OKS_BTO');
550: -- notify caller of an error
551: x_return_status := Okl_Api.G_RET_STS_ERROR;
552: END IF;
553:
554: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
555: Okl_Api.set_message(
550: -- notify caller of an error
551: x_return_status := Okl_Api.G_RET_STS_ERROR;
552: END IF;
553:
554: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
555: Okl_Api.set_message(
556: p_app_name => G_APP_NAME,
557: p_msg_name => G_QA_SUCCESS);
558: END IF;
551: x_return_status := Okl_Api.G_RET_STS_ERROR;
552: END IF;
553:
554: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
555: Okl_Api.set_message(
556: p_app_name => G_APP_NAME,
557: p_msg_name => G_QA_SUCCESS);
558: END IF;
559:
563: NULL;
564: -- no processing necessary; validation can continue with next column
565: WHEN OTHERS THEN
566: -- store SQL error message on message stack
567: Okl_Api.SET_MESSAGE(
568: p_app_name => G_APP_NAME,
569: p_msg_name => G_UNEXPECTED_ERROR,
570: p_token1 => G_SQLCODE_TOKEN,
571: p_token1_value => SQLCODE,
571: p_token1_value => SQLCODE,
572: p_token2 => G_SQLERRM_TOKEN,
573: p_token2_value => SQLERRM);
574:
575: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
576:
577: END check_service_line_hdr;
578:
579:
590: x_return_status OUT NOCOPY VARCHAR2,
591: p_chr_id IN NUMBER
592: ) IS
593:
594: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
595:
596: x_msg_count NUMBER;
597: x_msg_data VARCHAR2(256);
598: x_link_line_tbl Okl_Service_Integration_Pub.LINK_LINE_TBL_TYPE;
605:
606: BEGIN
607:
608: -- initialize return status
609: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
610:
611: Okl_Service_Integration_Pub.get_service_link_line (
612: p_api_version => 1.0,
613: p_init_msg_list => Okl_Api.G_FALSE,
609: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
610:
611: Okl_Service_Integration_Pub.get_service_link_line (
612: p_api_version => 1.0,
613: p_init_msg_list => Okl_Api.G_FALSE,
614: x_return_status => x_return_status,
615: x_msg_count => x_msg_count,
616: x_msg_data => x_msg_data,
617: p_lease_contract_id => p_chr_id,
617: p_lease_contract_id => p_chr_id,
618: x_link_line_tbl => x_link_line_tbl,
619: x_service_contract_id => x_service_contract_id);
620:
621: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
622: RAISE G_EXCEPTION_HALT_VALIDATION;
623: END IF;
624:
625: IF ( NVL(x_service_contract_id, -1 ) = -1 ) THEN
622: RAISE G_EXCEPTION_HALT_VALIDATION;
623: END IF;
624:
625: IF ( NVL(x_service_contract_id, -1 ) = -1 ) THEN
626: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
627: Okl_Api.set_message(
628: p_app_name => G_APP_NAME,
629: p_msg_name => G_QA_SUCCESS);
630: RETURN;
623: END IF;
624:
625: IF ( NVL(x_service_contract_id, -1 ) = -1 ) THEN
626: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
627: Okl_Api.set_message(
628: p_app_name => G_APP_NAME,
629: p_msg_name => G_QA_SUCCESS);
630: RETURN;
631: END IF;
636: n := n+1;
637: END LOOP;
638:
639: IF ( n > x_link_line_tbl.COUNT ) THEN
640: Okl_Api.set_message(
641: p_app_name => G_APP_NAME,
642: p_msg_name => 'OKL_QA_OKL_OKS_COV');
643: x_return_status := Okl_Api.G_RET_STS_ERROR;
644: END IF;
639: IF ( n > x_link_line_tbl.COUNT ) THEN
640: Okl_Api.set_message(
641: p_app_name => G_APP_NAME,
642: p_msg_name => 'OKL_QA_OKL_OKS_COV');
643: x_return_status := Okl_Api.G_RET_STS_ERROR;
644: END IF;
645:
646:
647: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
643: x_return_status := Okl_Api.G_RET_STS_ERROR;
644: END IF;
645:
646:
647: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
648: Okl_Api.set_message(
649: p_app_name => G_APP_NAME,
650: p_msg_name => G_QA_SUCCESS);
651: END IF;
644: END IF;
645:
646:
647: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
648: Okl_Api.set_message(
649: p_app_name => G_APP_NAME,
650: p_msg_name => G_QA_SUCCESS);
651: END IF;
652:
656: NULL;
657: -- no processing necessary; validation can continue with next column
658: WHEN OTHERS THEN
659: -- store SQL error message on message stack
660: Okl_Api.SET_MESSAGE(
661: p_app_name => G_APP_NAME,
662: p_msg_name => G_UNEXPECTED_ERROR,
663: p_token1 => G_SQLCODE_TOKEN,
664: p_token1_value => SQLCODE,
664: p_token1_value => SQLCODE,
665: p_token2 => G_SQLERRM_TOKEN,
666: p_token2_value => SQLERRM);
667:
668: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
669:
670: END check_cov_service_lines;
671:
672: -- Start of comments
709:
710: BEGIN
711:
712: -- initialize return status
713: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
714:
715: Okl_Service_Integration_Pub.get_service_link_line (
716: p_api_version => 1.0,
717: p_init_msg_list => Okl_Api.G_FALSE,
713: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
714:
715: Okl_Service_Integration_Pub.get_service_link_line (
716: p_api_version => 1.0,
717: p_init_msg_list => Okl_Api.G_FALSE,
718: x_return_status => x_return_status,
719: x_msg_count => x_msg_count,
720: x_msg_data => x_msg_data,
721: p_lease_contract_id => p_chr_id,
721: p_lease_contract_id => p_chr_id,
722: x_link_line_tbl => x_link_line_tbl,
723: x_service_contract_id => x_service_contract_id);
724:
725: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
726: RAISE G_EXCEPTION_HALT_VALIDATION;
727: END IF;
728:
729: IF ( NVL(x_service_contract_id, -1 ) = -1 ) THEN
726: RAISE G_EXCEPTION_HALT_VALIDATION;
727: END IF;
728:
729: IF ( NVL(x_service_contract_id, -1 ) = -1 ) THEN
730: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
731: Okl_Api.set_message(
732: p_app_name => G_APP_NAME,
733: p_msg_name => G_QA_SUCCESS);
734: RETURN;
727: END IF;
728:
729: IF ( NVL(x_service_contract_id, -1 ) = -1 ) THEN
730: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
731: Okl_Api.set_message(
732: p_app_name => G_APP_NAME,
733: p_msg_name => G_QA_SUCCESS);
734: RETURN;
735: END IF;
750: END IF;
751: END LOOP;
752:
753: IF ( j = -1 ) THEN
754: Okl_Api.set_message(
755: p_app_name => G_APP_NAME,
756: p_msg_name => 'OKL_QA_OKL_OKS_LNK');
757: x_return_status := Okl_Api.G_RET_STS_ERROR;
758: EXIT;
753: IF ( j = -1 ) THEN
754: Okl_Api.set_message(
755: p_app_name => G_APP_NAME,
756: p_msg_name => 'OKL_QA_OKL_OKS_LNK');
757: x_return_status := Okl_Api.G_RET_STS_ERROR;
758: EXIT;
759: END IF;
760: END LOOP;
761:
777: CLOSE srv_csr;
778:
779: IF ( l_svclne.inventory_item_id <> l_sublne.object1_id1 ) THEN
780:
781: Okl_Api.set_message(
782: p_app_name => G_APP_NAME,
783: p_msg_name => 'OKL_QA_OKL_OKS_ITMS',
784: p_token1 => 'line',
785: p_token1_value => l_sublne.name);
782: p_app_name => G_APP_NAME,
783: p_msg_name => 'OKL_QA_OKL_OKS_ITMS',
784: p_token1 => 'line',
785: p_token1_value => l_sublne.name);
786: x_return_status := Okl_Api.G_RET_STS_ERROR;
787:
788: END IF;
789:
790: IF ( l_svclne.quantity <> l_sublne.number_of_items ) THEN
788: END IF;
789:
790: IF ( l_svclne.quantity <> l_sublne.number_of_items ) THEN
791:
792: Okl_Api.set_message(
793: p_app_name => G_APP_NAME,
794: p_msg_name => 'OKL_QA_OKL_OKS_NITMS',
795: p_token1 => 'line',
796: p_token1_value => l_sublne.name);
794: p_msg_name => 'OKL_QA_OKL_OKS_NITMS',
795: p_token1 => 'line',
796: p_token1_value => l_sublne.name);
797:
798: x_return_status := Okl_Api.G_RET_STS_ERROR;
799:
800: END IF;
801:
802:
806:
807: OPEN l_rl_csr1( 'LALEVL', 'LASLL', p_chr_id, l_toplne.id);
808: FETCH l_rl_csr1 INTO l_rl_rec1;
809: IF ( l_rl_csr1%FOUND ) THEN
810: Okl_Api.set_message(
811: p_app_name => G_APP_NAME,
812: p_msg_name => 'OKL_QA_OKL_OKS_PYMNTS',
813: p_token1 => 'line',
814: p_token1_value => l_toplne.name);
811: p_app_name => G_APP_NAME,
812: p_msg_name => 'OKL_QA_OKL_OKS_PYMNTS',
813: p_token1 => 'line',
814: p_token1_value => l_toplne.name);
815: x_return_status := Okl_Api.G_RET_STS_ERROR;
816: END IF;
817: CLOSE l_rl_csr1;
818:
819: END LOOP;
817: CLOSE l_rl_csr1;
818:
819: END LOOP;
820:
821: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
822: Okl_Api.set_message(
823: p_app_name => G_APP_NAME,
824: p_msg_name => G_QA_SUCCESS);
825: END IF;
818:
819: END LOOP;
820:
821: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
822: Okl_Api.set_message(
823: p_app_name => G_APP_NAME,
824: p_msg_name => G_QA_SUCCESS);
825: END IF;
826:
832: END IF;
833: -- no processing necessary; validation can continue with next column
834: WHEN OTHERS THEN
835: -- store SQL error message on message stack
836: Okl_Api.SET_MESSAGE(
837: p_app_name => G_APP_NAME,
838: p_msg_name => G_UNEXPECTED_ERROR,
839: p_token1 => G_SQLCODE_TOKEN,
840: p_token1_value => SQLCODE,
840: p_token1_value => SQLCODE,
841: p_token2 => G_SQLERRM_TOKEN,
842: p_token2_value => SQLERRM);
843:
844: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
845:
846: IF ( l_toplne_csr%ISOPEN ) THEN
847: CLOSE l_toplne_csr;
848: END IF;
862: x_return_status OUT NOCOPY VARCHAR2,
863: p_chr_id IN NUMBER
864: ) IS
865:
866: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
867:
868: x_msg_count NUMBER;
869: x_msg_data VARCHAR2(256);
870: x_link_line_tbl Okl_Service_Integration_Pub.LINK_LINE_TBL_TYPE;
888:
889: BEGIN
890:
891: -- initialize return status
892: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
893:
894: Okl_Service_Integration_Pub.get_service_link_line (
895: p_api_version => 1.0,
896: p_init_msg_list => Okl_Api.G_FALSE,
892: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
893:
894: Okl_Service_Integration_Pub.get_service_link_line (
895: p_api_version => 1.0,
896: p_init_msg_list => Okl_Api.G_FALSE,
897: x_return_status => x_return_status,
898: x_msg_count => x_msg_count,
899: x_msg_data => x_msg_data,
900: p_lease_contract_id => p_chr_id,
900: p_lease_contract_id => p_chr_id,
901: x_link_line_tbl => x_link_line_tbl,
902: x_service_contract_id => x_service_contract_id);
903:
904: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
905: RAISE G_EXCEPTION_HALT_VALIDATION;
906: END IF;
907:
908: IF ( NVL(x_service_contract_id, -1 ) = -1 ) THEN
905: RAISE G_EXCEPTION_HALT_VALIDATION;
906: END IF;
907:
908: IF ( NVL(x_service_contract_id, -1 ) = -1 ) THEN
909: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
910: Okl_Api.set_message(
911: p_app_name => G_APP_NAME,
912: p_msg_name => G_QA_SUCCESS);
913: RETURN;
906: END IF;
907:
908: IF ( NVL(x_service_contract_id, -1 ) = -1 ) THEN
909: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
910: Okl_Api.set_message(
911: p_app_name => G_APP_NAME,
912: p_msg_name => G_QA_SUCCESS);
913: RETURN;
914: END IF;
935: amount1 := NVL(l_svclne.amount, -1);
936: CLOSE srv_amt_csr;
937:
938: IF ( amount1 <> amount2 ) THEN
939: Okl_Api.set_message(
940: p_app_name => G_APP_NAME,
941: p_msg_name => 'OKL_QA_OKL_OKS_AMNTS',
942: p_token1 => 'line',
943: p_token1_value => l_lne.line_number);
940: p_app_name => G_APP_NAME,
941: p_msg_name => 'OKL_QA_OKL_OKS_AMNTS',
942: p_token1 => 'line',
943: p_token1_value => l_lne.line_number);
944: x_return_status := Okl_Api.G_RET_STS_ERROR;
945: END IF;
946:
947: END LOOP;
948:
945: END IF;
946:
947: END LOOP;
948:
949: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
950: Okl_Api.set_message(
951: p_app_name => G_APP_NAME,
952: p_msg_name => G_QA_SUCCESS);
953: END IF;
946:
947: END LOOP;
948:
949: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
950: Okl_Api.set_message(
951: p_app_name => G_APP_NAME,
952: p_msg_name => G_QA_SUCCESS);
953: END IF;
954:
960: END IF;
961: -- no processing necessary; validation can continue with next column
962: WHEN OTHERS THEN
963: -- store SQL error message on message stack
964: Okl_Api.SET_MESSAGE(
965: p_app_name => G_APP_NAME,
966: p_msg_name => G_UNEXPECTED_ERROR,
967: p_token1 => G_SQLCODE_TOKEN,
968: p_token1_value => SQLCODE,
968: p_token1_value => SQLCODE,
969: p_token2 => G_SQLERRM_TOKEN,
970: p_token2_value => SQLERRM);
971:
972: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
973:
974: IF ( l_toplne_csr%ISOPEN ) THEN
975: CLOSE l_toplne_csr;
976: END IF;
990: x_return_status OUT NOCOPY VARCHAR2,
991: p_chr_id IN NUMBER
992: ) IS
993:
994: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
995:
996: l_hdr_rec l_hdr_csr%ROWTYPE;
997:
998: BEGIN
997:
998: BEGIN
999:
1000: -- initialize return status
1001: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1002:
1003: OPEN l_hdr_csr( p_chr_id );
1004: FETCH l_hdr_csr INTO l_hdr_rec;
1005: CLOSE l_hdr_csr;
1004: FETCH l_hdr_csr INTO l_hdr_rec;
1005: CLOSE l_hdr_csr;
1006:
1007: IF ( l_hdr_rec.accepted_date IS NULL) THEN
1008: Okl_Api.set_message(
1009: p_app_name => G_APP_NAME,
1010: p_msg_name => 'OKL_QA_NO_ACCPTD_DATE');
1011: x_return_status := Okl_Api.G_RET_STS_ERROR;
1012: END IF;
1007: IF ( l_hdr_rec.accepted_date IS NULL) THEN
1008: Okl_Api.set_message(
1009: p_app_name => G_APP_NAME,
1010: p_msg_name => 'OKL_QA_NO_ACCPTD_DATE');
1011: x_return_status := Okl_Api.G_RET_STS_ERROR;
1012: END IF;
1013:
1014: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
1015: Okl_Api.set_message(
1010: p_msg_name => 'OKL_QA_NO_ACCPTD_DATE');
1011: x_return_status := Okl_Api.G_RET_STS_ERROR;
1012: END IF;
1013:
1014: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
1015: Okl_Api.set_message(
1016: p_app_name => G_APP_NAME,
1017: p_msg_name => G_QA_SUCCESS);
1018: END IF;
1011: x_return_status := Okl_Api.G_RET_STS_ERROR;
1012: END IF;
1013:
1014: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
1015: Okl_Api.set_message(
1016: p_app_name => G_APP_NAME,
1017: p_msg_name => G_QA_SUCCESS);
1018: END IF;
1019:
1025: END IF;
1026: -- no processing necessary; validation can continue with next column
1027: WHEN OTHERS THEN
1028: -- store SQL error message on message stack
1029: Okl_Api.SET_MESSAGE(
1030: p_app_name => G_APP_NAME,
1031: p_msg_name => G_UNEXPECTED_ERROR,
1032: p_token1 => G_SQLCODE_TOKEN,
1033: p_token1_value => SQLCODE,
1033: p_token1_value => SQLCODE,
1034: p_token2 => G_SQLERRM_TOKEN,
1035: p_token2_value => SQLERRM);
1036: -- notify caller of an error as UNEXPETED error
1037: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1038: -- verify that cursor was closed
1039: IF l_hdr_csr%ISOPEN THEN
1040: CLOSE l_hdr_csr;
1041: END IF;
1158: END IF;
1159: END;
1160:
1161: BEGIN
1162: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1163: l_payment_table_counter := 1;
1164: OPEN l_payment_lines_csr;
1165: LOOP
1166: FETCH l_payment_lines_csr BULK COLLECT INTO l_payment_table2 LIMIT l_limit;
1259:
1260: EXCEPTION
1261: WHEN schedule_mismatch
1262: THEN
1263: x_return_status := Okl_Api.G_RET_STS_ERROR;
1264: Okl_Api.set_message(
1265: p_app_name => G_APP_NAME,
1266: p_msg_name => p_message_name);
1267: WHEN OTHERS
1260: EXCEPTION
1261: WHEN schedule_mismatch
1262: THEN
1263: x_return_status := Okl_Api.G_RET_STS_ERROR;
1264: Okl_Api.set_message(
1265: p_app_name => G_APP_NAME,
1266: p_msg_name => p_message_name);
1267: WHEN OTHERS
1268: THEN
1265: p_app_name => G_APP_NAME,
1266: p_msg_name => p_message_name);
1267: WHEN OTHERS
1268: THEN
1269: x_return_status := Okl_Api.G_RET_STS_ERROR;
1270: Okl_Api.set_message(
1271: p_app_name => G_APP_NAME,
1272: p_msg_name => p_message_name);
1273:
1266: p_msg_name => p_message_name);
1267: WHEN OTHERS
1268: THEN
1269: x_return_status := Okl_Api.G_RET_STS_ERROR;
1270: Okl_Api.set_message(
1271: p_app_name => G_APP_NAME,
1272: p_msg_name => p_message_name);
1273:
1274: END;
1289: x_return_status OUT NOCOPY VARCHAR2,
1290: p_chr_id IN NUMBER
1291: ) IS
1292:
1293: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1294: l_dummy VARCHAR2(1) := '?';
1295: l_count NUMBER := 0;
1296: l_row_notfound BOOLEAN;
1297: l_token VARCHAR2(2000);
1611: BEGIN
1612: IF (G_DEBUG_ENABLED = 'Y') THEN
1613: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1614: END IF;
1615: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1616: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1617: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'In tot_unsched_prin_payment: 0...');
1618: END IF;
1619: --print('In tot_unsched_prin_payment: p_chr_id= ' || p_chr_id || ' p_kle_id=' || p_kle_id);
1633: RETURN(l_tot_amount);
1634:
1635: EXCEPTION WHEN OTHERS THEN
1636: --print('Exception In tot_unsched_prin_payment...sqlcode=' || sqlcode || ' sqlerrm=' || sqlerrm);
1637: x_return_status := Okl_Api.G_RET_STS_ERROR;
1638: RETURN(0);
1639: END; -- tot_unsched_prin_payment
1640:
1641: BEGIN
1640:
1641: BEGIN
1642:
1643: -- initialize return status
1644: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1645:
1646: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1647: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'In Check Payment Type...');
1648: END IF;
1658:
1659: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1660: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'In Check Payment Type:After get_product...x_return_status='||x_return_status);
1661: END IF;
1662: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
1663: Okc_Api.set_message(
1664: p_app_name => G_APP_NAME,
1665: p_msg_name => G_PROD_PARAMS_NOT_FOUND,
1666: p_token1 => G_PROD_NAME_TOKEN ,
1664: p_app_name => G_APP_NAME,
1665: p_msg_name => G_PROD_PARAMS_NOT_FOUND,
1666: p_token1 => G_PROD_NAME_TOKEN ,
1667: p_token1_value => l_deal_type);
1668: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1669: END IF;
1670:
1671: l_deal_type := x_pdt_parameter_rec.deal_type;
1672: l_interest_calculation_basis := x_pdt_parameter_rec.interest_calculation_basis;
1758:
1759: --Added by bkatraga for bug 13478101
1760: l_pymnt_start_date := Fnd_Date.canonical_to_date(l_pmnt_lns_in_hdr_rec.rule_information2);
1761: IF(l_start_day IS NULL OR
1762: (l_var_stub_days IS NOT NULL AND l_var_stub_days <> OKL_API.G_MISS_CHAR)) THEN
1763: l_start_day := TO_CHAR(l_pymnt_start_date,'DD');
1764: END IF;
1765: l_var_stub_days := l_pmnt_lns_in_hdr_rec.rule_information7;
1766: l_frequency := l_pmnt_lns_in_hdr_rec.OBJECT1_ID1;
1784: -- non Level
1785: IF (l_pmnt_lns_in_hdr_rec.rule_information7 IS NOT NULL AND
1786: l_pmnt_lns_in_hdr_rec.rule_information8 IS NOT NULL ) THEN
1787:
1788: Okl_Api.set_message(
1789: p_app_name => G_APP_NAME,
1790: p_msg_name => 'OKL_QA_PAYMENT_STUB_NA');
1791: x_return_status := Okl_Api.G_RET_STS_ERROR;
1792: END IF;
1787:
1788: Okl_Api.set_message(
1789: p_app_name => G_APP_NAME,
1790: p_msg_name => 'OKL_QA_PAYMENT_STUB_NA');
1791: x_return_status := Okl_Api.G_RET_STS_ERROR;
1792: END IF;
1793: END IF;
1794: END IF;
1795: -- Bug 4547537 End
1803: FETCH get_principal_basis INTO l_principal_basis;
1804: CLOSE get_principal_basis;
1805:
1806: IF(l_rent_amt_zero = TRUE AND l_principal_basis = 'SCHEDULED') THEN
1807: Okl_Api.set_message(
1808: p_app_name => G_APP_NAME,
1809: p_msg_name => 'OKL_LA_RENT_PAYMENT_ZERO',
1810: p_token1 => 'STRM_TYPE',
1811: p_token1_value => l_rent_strm_name);
1808: p_app_name => G_APP_NAME,
1809: p_msg_name => 'OKL_LA_RENT_PAYMENT_ZERO',
1810: p_token1 => 'STRM_TYPE',
1811: p_token1_value => l_rent_strm_name);
1812: x_return_status := Okl_Api.G_RET_STS_ERROR;
1813: END IF;
1814: END IF;
1815:
1816: IF (l_var_int_schedule_defined) THEN
1813: END IF;
1814: END IF;
1815:
1816: IF (l_var_int_schedule_defined) THEN
1817: IF(l_var_stub_days IS NOT NULL AND l_var_stub_days <> OKL_API.G_MISS_CHAR) THEN
1818: l_pymnt_end_date := l_pymnt_start_date + to_number(l_var_stub_days) - 1;
1819: ELSE
1820: IF(l_frequency = 'M') THEN
1821: l_factor := 1;
1831: p_start_day => l_start_day);
1832: END IF;
1833:
1834: IF(l_pymnt_end_date > l_contract_end_date) THEN
1835: Okl_Api.set_message(
1836: p_app_name => G_APP_NAME,
1837: p_msg_name => 'OKL_LA_PAYMENT_END_DATE',
1838: p_token1 => 'STRM_TYPE',
1839: p_token1_value => l_var_int_strm_name);
1836: p_app_name => G_APP_NAME,
1837: p_msg_name => 'OKL_LA_PAYMENT_END_DATE',
1838: p_token1 => 'STRM_TYPE',
1839: p_token1_value => l_var_int_strm_name);
1840: x_return_status := Okl_Api.G_RET_STS_ERROR;
1841: END IF;
1842:
1843: --Added by bkatraga for bug 14111538
1844: IF(l_var_int_amount_non_zero) THEN
1841: END IF;
1842:
1843: --Added by bkatraga for bug 14111538
1844: IF(l_var_int_amount_non_zero) THEN
1845: Okl_Api.set_message(
1846: p_app_name => G_APP_NAME,
1847: p_msg_name => 'OKL_VAR_INT_AMOUNT_ZERO');
1848: x_return_status := Okl_Api.G_RET_STS_ERROR;
1849: END IF;
1844: IF(l_var_int_amount_non_zero) THEN
1845: Okl_Api.set_message(
1846: p_app_name => G_APP_NAME,
1847: p_msg_name => 'OKL_VAR_INT_AMOUNT_ZERO');
1848: x_return_status := Okl_Api.G_RET_STS_ERROR;
1849: END IF;
1850: END IF;
1851: --end bkatraga
1852:
1854: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'In Check Payment Type:Before first check...x_return_status='||x_return_status);
1855: END IF;
1856: -- Both RENT and PRINCIPAL_PAYMENT not allowed
1857: IF (l_rent_payment_found AND l_principal_payment_found) THEN
1858: Okl_Api.set_message(
1859: p_app_name => G_APP_NAME,
1860: p_msg_name => 'OKL_LA_VAR_RATE_PAYMENT');
1861: x_return_status := Okl_Api.G_RET_STS_ERROR;
1862: END IF;
1857: IF (l_rent_payment_found AND l_principal_payment_found) THEN
1858: Okl_Api.set_message(
1859: p_app_name => G_APP_NAME,
1860: p_msg_name => 'OKL_LA_VAR_RATE_PAYMENT');
1861: x_return_status := Okl_Api.G_RET_STS_ERROR;
1862: END IF;
1863: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1864: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'In Check Payment Type:Before second check...x_return_status='||x_return_status);
1865: END IF;
1869: IF (l_deal_type = 'LOAN' AND
1870: l_interest_calculation_basis = 'FLOAT' AND
1871: l_revenue_recognition_method IN ('ESTIMATED_AND_BILLED', 'ACTUAL')) THEN
1872: --Modified the message by bkatraga for bug 14111538
1873: Okl_Api.set_message(
1874: p_app_name => G_APP_NAME,
1875: p_msg_name => 'OKL_ADVANCE_PMNT_NOT_ALLOWED',
1876: p_token1 => 'STRM_TYPE',
1877: p_token1_value => l_stream_type_name);
1874: p_app_name => G_APP_NAME,
1875: p_msg_name => 'OKL_ADVANCE_PMNT_NOT_ALLOWED',
1876: p_token1 => 'STRM_TYPE',
1877: p_token1_value => l_stream_type_name);
1878: x_return_status := Okl_Api.G_RET_STS_ERROR;
1879: END IF;
1880:
1881: -- 4918119: For REAMORT contracts, advance payment is not allowed
1882: -- Disable this QA check: 5114544
1883: IF (l_interest_calculation_basis = 'REAMORT') THEN
1884: IF (l_deal_type IN ('LEASEOP', 'LEASEST', 'LEASEDF') ) THEN
1885: NULL;
1886: ELSE
1887: Okl_Api.set_message(
1888: p_app_name => G_APP_NAME,
1889: p_msg_name => 'OKL_LA_VAR_RATE_ADVANCE',
1890: p_token1 => 'DEAL_TYPE',
1891: p_token1_value => l_deal_type,
1890: p_token1 => 'DEAL_TYPE',
1891: p_token1_value => l_deal_type,
1892: p_token2 => 'ICB',
1893: p_token2_value => l_interest_calculation_basis);
1894: x_return_status := Okl_Api.G_RET_STS_ERROR;
1895: END IF;
1896: END IF;
1897: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1898: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'In Check Payment Type:Before rate_delay_csr...');
1924: AND l_revenue_recognition_method <> 'STREAMS'
1925: THEN
1926: IF ((l_rate_delay IS NOT NULL AND l_cust_print_lead_days IS NOT NULL) AND
1927: (l_rate_delay <= l_cust_print_lead_days)) THEN
1928: Okl_Api.set_message(
1929: p_app_name => G_APP_NAME,
1930: p_msg_name => 'OKL_LLA_VAR_RATE_RATE_DELAY',
1931: p_token1 => 'CONT_ID',
1932: p_token1_value => l_contract_number);
1929: p_app_name => G_APP_NAME,
1930: p_msg_name => 'OKL_LLA_VAR_RATE_RATE_DELAY',
1931: p_token1 => 'CONT_ID',
1932: p_token1_value => l_contract_number);
1933: x_return_status := Okl_Api.G_RET_STS_ERROR;
1934: END IF;
1935: END IF;
1936: END IF;
1937: -- udhenuko End bug#6786775
1947: x_base_rate_defined => l_base_rate_defined,
1948: x_return_status => l_return_status);
1949:
1950: --print('l_return_status=' || l_return_status);
1951: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
1952: x_return_status := l_return_status;
1953: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1954: END IF;
1955:
1949:
1950: --print('l_return_status=' || l_return_status);
1951: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
1952: x_return_status := l_return_status;
1953: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1954: END IF;
1955:
1956: IF NOT(l_base_rate_defined) THEN
1957: -- 4907390
1954: END IF;
1955:
1956: IF NOT(l_base_rate_defined) THEN
1957: -- 4907390
1958: Okl_Api.set_message(Okc_Api.G_APP_NAME, G_REQUIRED_VALUE,
1959: G_COL_NAME_TOKEN, 'Base Rate');
1960: /*OKL_API.set_message(
1961: p_app_name => G_APP_NAME,
1962: p_msg_name => 'OKL_LLA_VAR_RATE_BASE_MISSING',
1956: IF NOT(l_base_rate_defined) THEN
1957: -- 4907390
1958: Okl_Api.set_message(Okc_Api.G_APP_NAME, G_REQUIRED_VALUE,
1959: G_COL_NAME_TOKEN, 'Base Rate');
1960: /*OKL_API.set_message(
1961: p_app_name => G_APP_NAME,
1962: p_msg_name => 'OKL_LLA_VAR_RATE_BASE_MISSING',
1963: p_token1 => 'CONT_ID',
1964: p_token1_value => p_chr_id); */
1961: p_app_name => G_APP_NAME,
1962: p_msg_name => 'OKL_LLA_VAR_RATE_BASE_MISSING',
1963: p_token1 => 'CONT_ID',
1964: p_token1_value => p_chr_id); */
1965: x_return_status := Okl_Api.G_RET_STS_ERROR;
1966: --ELSE
1967: --print('base_rate defined...');
1968: END IF;
1969: END IF;
1981: IF NOT(l_var_int_schedule_defined) THEN
1982: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1983: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Var Int Schedule Not Defined...');
1984: END IF;
1985: Okl_Api.set_message(
1986: p_app_name => G_APP_NAME,
1987: p_msg_name => 'OKL_LA_VAR_SCHEDULED_ALLOWED');
1988: x_return_status := Okl_Api.G_RET_STS_ERROR;
1989: ELSE
1984: END IF;
1985: Okl_Api.set_message(
1986: p_app_name => G_APP_NAME,
1987: p_msg_name => 'OKL_LA_VAR_SCHEDULED_ALLOWED');
1988: x_return_status := Okl_Api.G_RET_STS_ERROR;
1989: ELSE
1990: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1991: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Var Int Schedule Defined...');
1992: END IF;
1992: END IF;
1993: END IF;
1994: ELSE -- Bug 4742650 (Do not allow var int sched for other type of contracts)
1995: IF (l_var_int_schedule_defined) THEN
1996: Okl_Api.set_message(
1997: p_app_name => G_APP_NAME,
1998: p_msg_name => 'OKL_LLA_VAR_RATE_SCHEDULE_NA');
1999: x_return_status := Okl_Api.G_RET_STS_ERROR;
2000: END IF;
1995: IF (l_var_int_schedule_defined) THEN
1996: Okl_Api.set_message(
1997: p_app_name => G_APP_NAME,
1998: p_msg_name => 'OKL_LLA_VAR_RATE_SCHEDULE_NA');
1999: x_return_status := Okl_Api.G_RET_STS_ERROR;
2000: END IF;
2001: END IF;
2002:
2003: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2021: (l_principal_start_date = l_variable_start_date AND
2022: l_principal_periods = l_variable_periods )) THEN
2023: NULL;
2024: ELSE
2025: OKL_API.set_message(
2026: p_app_name => G_APP_NAME,
2027: p_msg_name => 'OKL_LLA_VAR_RATE_SCHEDULE',
2028: p_token1 => 'CONT_ID',
2029: p_token1_value => p_chr_id);
2026: p_app_name => G_APP_NAME,
2027: p_msg_name => 'OKL_LLA_VAR_RATE_SCHEDULE',
2028: p_token1 => 'CONT_ID',
2029: p_token1_value => p_chr_id);
2030: x_return_status := OKL_API.G_RET_STS_ERROR;
2031: END IF;
2032: END IF;
2033: */
2034:
2048: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2049: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_contract_start_date=' || l_contract_start_date);
2050: END IF;
2051: IF (l_variable_start_date <> l_contract_start_date) THEN
2052: OKL_API.set_message(
2053: p_app_name => G_APP_NAME,
2054: p_msg_name => 'OKL_LLA_VAR_RATE_SCHEDULE2');
2055: x_return_status := OKL_API.G_RET_STS_ERROR;
2056: END IF;
2051: IF (l_variable_start_date <> l_contract_start_date) THEN
2052: OKL_API.set_message(
2053: p_app_name => G_APP_NAME,
2054: p_msg_name => 'OKL_LLA_VAR_RATE_SCHEDULE2');
2055: x_return_status := OKL_API.G_RET_STS_ERROR;
2056: END IF;
2057: END IF;
2058:
2059: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2077: ELSE
2078: l_payment_date2 := FND_DATE.canonical_to_date(l_pmnt_lns_in_hdr_rec.rule_information2);
2079: print('l_payment_date2=' || l_payment_date2);
2080: IF (l_payment_date <> l_payment_date2) THEN
2081: OKL_API.set_message(
2082: p_app_name => G_APP_NAME,
2083: p_msg_name => 'OKL_LLA_VAR_RATE_PAYMENT_DATE',
2084: p_token1 => 'CONT_ID',
2085: p_token1_value => p_chr_id,
2084: p_token1 => 'CONT_ID',
2085: p_token1_value => p_chr_id,
2086: p_token2 => 'PAYMENT_TYPE',
2087: p_token2_value => 'RENT');
2088: x_return_status := OKL_API.G_RET_STS_ERROR;
2089: END IF;
2090: End If;
2091: END Loop;
2092: END LOOP;
2151: OR l_pmnt_lns_in_hdr_rec_comp.object1_id1
2152: <> l_pmnt_lns_in_hdr_rec.object1_id1
2153: OR l_pmnt_lns_in_hdr_rec_comp.object1_id2
2154: <> l_pmnt_lns_in_hdr_rec.object1_id2 ) Then
2155: x_return_status := OKL_API.G_RET_STS_ERROR;
2156: RAISE l_mismatch_exception;
2157: End If;
2158: End If;
2159: End If;
2164: Elsif(l_global_total_periods <> l_line_total_periods) Then
2165: RAISE l_mismatch_exception;
2166: END IF;
2167: EXCEPTION WHEN l_mismatch_exception Then
2168: x_return_status := OKL_API.G_RET_STS_ERROR;
2169: --message
2170: OKL_API.set_message(
2171: p_app_name => G_APP_NAME,
2172: p_msg_name => 'OKL_QA_VARINT_SLL_MISMATCH');
2166: END IF;
2167: EXCEPTION WHEN l_mismatch_exception Then
2168: x_return_status := OKL_API.G_RET_STS_ERROR;
2169: --message
2170: OKL_API.set_message(
2171: p_app_name => G_APP_NAME,
2172: p_msg_name => 'OKL_QA_VARINT_SLL_MISMATCH');
2173: END;
2174: END LOOP;
2195: x_return_status => l_return_status, -- 4907390
2196: p_chr_id => p_chr_id,
2197: p_stream_purpose_code => 'RENT',
2198: p_message_name => 'OKL_QA_VARINT_SLL_MISMATCH');
2199: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN -- 4907390
2200: x_return_status := l_return_status;
2201: END IF;
2202:
2203: --veramach bug 6389295 start
2207: x_return_status => l_return_status, -- 4907390
2208: p_chr_id => p_chr_id,
2209: p_stream_purpose_code => 'PRINCIPAL_PAYMENT',
2210: p_message_name => 'OKL_QA_VARINT_SLL_MISMATCH');
2211: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN -- 4907390
2212: x_return_status := l_return_status;
2213: END IF;
2214: --veramach bug 6389295 start
2215: END IF;
2244: l_line_ind := 1;
2245: ELSE
2246: l_payment_date2 := FND_DATE.canonical_to_date(l_pmnt_lns_in_hdr_rec.rule_information2);
2247: IF (l_payment_date <> l_payment_date2) THEN
2248: OKL_API.set_message(
2249: p_app_name => G_APP_NAME,
2250: p_msg_name => 'OKL_LLA_VAR_RATE_PAYMENT_DATE',
2251: p_token1 => 'CONT_ID',
2252: p_token1_value => p_chr_id,
2251: p_token1 => 'CONT_ID',
2252: p_token1_value => p_chr_id,
2253: p_token2 => 'PAYMENT_TYPE',
2254: p_token2_value => 'PRINCIPAL_PAYMENT');
2255: x_return_status := OKL_API.G_RET_STS_ERROR;
2256: END IF;
2257: END IF;
2258: END IF; */
2259:
2301: -- gboomina Bug 6401848 - Start
2302: -- 4898747
2303: Okl_Subsidy_Process_Pvt.get_asset_subsidy_amount(
2304: p_api_version => 1.0,
2305: p_init_msg_list => Okl_Api.G_FALSE,
2306: x_return_status => l_return_status,
2307: x_msg_count => x_msg_count,
2308: x_msg_data => x_msg_data,
2309: p_asset_cle_id => l_curr_cle_id,
2324: END IF;
2325: END IF;
2326: /* IF (ABS(l_capital_amount - l_net_subsidy_amount - -- 4898747
2327: (l_tot_principal_payment+l_tot_unsched_prin_payment)) > 0.01) OR
2328: (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN -- 4907390 */
2329: IF (ABS(l_capital_amount - l_non_cap_down_payment_amount - -- 7131756
2330: (l_tot_principal_payment+l_tot_unsched_prin_payment)) > 0.01) THEN
2331: Okl_Api.set_message(
2332: p_app_name => G_APP_NAME,
2327: (l_tot_principal_payment+l_tot_unsched_prin_payment)) > 0.01) OR
2328: (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN -- 4907390 */
2329: IF (ABS(l_capital_amount - l_non_cap_down_payment_amount - -- 7131756
2330: (l_tot_principal_payment+l_tot_unsched_prin_payment)) > 0.01) THEN
2331: Okl_Api.set_message(
2332: p_app_name => G_APP_NAME,
2333: p_msg_name => 'OKL_QA_PRIN_MISMATCH');
2334: x_return_status := Okl_Api.G_RET_STS_ERROR;
2335: END IF;
2330: (l_tot_principal_payment+l_tot_unsched_prin_payment)) > 0.01) THEN
2331: Okl_Api.set_message(
2332: p_app_name => G_APP_NAME,
2333: p_msg_name => 'OKL_QA_PRIN_MISMATCH');
2334: x_return_status := Okl_Api.G_RET_STS_ERROR;
2335: END IF;
2336: -- gboomina Bug 6401848 - End
2337: END IF;
2338: l_tot_principal_payment := 0;
2344: END IF;
2345: Okl_Streams_Util.get_pricing_engine(p_khr_id => p_chr_id,
2346: x_pricing_engine => l_pricing_engine,
2347: x_return_status => l_return_status);
2348: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2349: x_return_status := l_return_status;
2350: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2351: END IF;
2352:
2346: x_pricing_engine => l_pricing_engine,
2347: x_return_status => l_return_status);
2348: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2349: x_return_status := l_return_status;
2350: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2351: END IF;
2352:
2353: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2354: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'In Check Payment Type:Before eighth check...x_return_status='||x_return_status);
2356: IF (l_deal_type IN ('LEASEOP', 'LEASEST', 'LEASEDF') ) AND
2357: (l_interest_Calculation_basis IN ('FIXED', 'REAMORT', 'FLOAT_FACTORS'))
2358: THEN
2359: IF NOT(l_rent_payment_found) THEN
2360: Okl_Api.set_message(
2361: p_app_name => G_APP_NAME,
2362: p_msg_name => 'OKL_LLA_VAR_RATE_RENT_MISSING');
2363: x_return_status := Okl_Api.G_RET_STS_ERROR;
2364: --return;
2359: IF NOT(l_rent_payment_found) THEN
2360: Okl_Api.set_message(
2361: p_app_name => G_APP_NAME,
2362: p_msg_name => 'OKL_LLA_VAR_RATE_RENT_MISSING');
2363: x_return_status := Okl_Api.G_RET_STS_ERROR;
2364: --return;
2365: ELSE -- RENT defined
2366: -- Bug 4748524
2367: IF (l_interest_calculation_basis = 'FLOAT_FACTORS') AND
2365: ELSE -- RENT defined
2366: -- Bug 4748524
2367: IF (l_interest_calculation_basis = 'FLOAT_FACTORS') AND
2368: (l_rent_payment_in_advance) THEN
2369: Okl_Api.set_message(
2370: p_app_name => G_APP_NAME,
2371: p_msg_name => 'OKL_LLA_VAR_RATE_ARREARS_1');
2372: x_return_status := Okl_Api.G_RET_STS_ERROR;
2373: END IF;
2368: (l_rent_payment_in_advance) THEN
2369: Okl_Api.set_message(
2370: p_app_name => G_APP_NAME,
2371: p_msg_name => 'OKL_LLA_VAR_RATE_ARREARS_1');
2372: x_return_status := Okl_Api.G_RET_STS_ERROR;
2373: END IF;
2374: END IF;
2375: IF (l_principal_payment_found) THEN
2376: Okl_Api.set_message(
2372: x_return_status := Okl_Api.G_RET_STS_ERROR;
2373: END IF;
2374: END IF;
2375: IF (l_principal_payment_found) THEN
2376: Okl_Api.set_message(
2377: p_app_name => G_APP_NAME,
2378: p_msg_name => 'OKL_LLA_VAR_RATE_PRIN_ERROR');
2379: x_return_status := Okl_Api.G_RET_STS_ERROR;
2380: --return;
2375: IF (l_principal_payment_found) THEN
2376: Okl_Api.set_message(
2377: p_app_name => G_APP_NAME,
2378: p_msg_name => 'OKL_LLA_VAR_RATE_PRIN_ERROR');
2379: x_return_status := Okl_Api.G_RET_STS_ERROR;
2380: --return;
2381: END IF;
2382: END IF;
2383:
2392: THEN
2393: IF NOT(l_rent_payment_found) THEN
2394: IF (l_principal_payment_found) THEN
2395: IF (l_pricing_engine <> 'EXTERNAL') THEN
2396: Okl_Api.set_message(
2397: p_app_name => G_APP_NAME,
2398: --p_msg_name => 'OKL_LLA_VAR_RATE_PRIN_MISSING');
2399: p_msg_name => 'OKL_LLA_VAR_RATE_PRIN_ISG');
2400: x_return_status := Okl_Api.G_RET_STS_ERROR;
2396: Okl_Api.set_message(
2397: p_app_name => G_APP_NAME,
2398: --p_msg_name => 'OKL_LLA_VAR_RATE_PRIN_MISSING');
2399: p_msg_name => 'OKL_LLA_VAR_RATE_PRIN_ISG');
2400: x_return_status := Okl_Api.G_RET_STS_ERROR;
2401: --return;
2402: END IF;
2403: ELSE
2404: Okl_Api.set_message(
2400: x_return_status := Okl_Api.G_RET_STS_ERROR;
2401: --return;
2402: END IF;
2403: ELSE
2404: Okl_Api.set_message(
2405: p_app_name => G_APP_NAME,
2406: p_msg_name => 'OKL_LLA_VAR_RATE_RENT_MISSING');
2407: x_return_status := Okl_Api.G_RET_STS_ERROR;
2408: --return;
2403: ELSE
2404: Okl_Api.set_message(
2405: p_app_name => G_APP_NAME,
2406: p_msg_name => 'OKL_LLA_VAR_RATE_RENT_MISSING');
2407: x_return_status := Okl_Api.G_RET_STS_ERROR;
2408: --return;
2409: END IF;
2410: END IF;
2411: /*IF (l_principal_payment_found) THEN
2409: END IF;
2410: END IF;
2411: /*IF (l_principal_payment_found) THEN
2412: IF (l_pricing_engine <> 'EXTERNAL') THEN
2413: OKL_API.set_message(
2414: p_app_name => G_APP_NAME,
2415: --p_msg_name => 'OKL_LLA_VAR_RATE_PRIN_MISSING');
2416: p_msg_name => 'OKL_LLA_VAR_RATE_PRIN_ISG');
2417: x_return_status := OKL_API.G_RET_STS_ERROR;
2413: OKL_API.set_message(
2414: p_app_name => G_APP_NAME,
2415: --p_msg_name => 'OKL_LLA_VAR_RATE_PRIN_MISSING');
2416: p_msg_name => 'OKL_LLA_VAR_RATE_PRIN_ISG');
2417: x_return_status := OKL_API.G_RET_STS_ERROR;
2418: return;
2419: END IF;*/
2420: /*ELSE
2421: IF (l_pricing_engine = 'INTERNAL') THEN
2418: return;
2419: END IF;*/
2420: /*ELSE
2421: IF (l_pricing_engine = 'INTERNAL') THEN
2422: OKL_API.set_message(
2423: p_app_name => G_APP_NAME,
2424: p_msg_name => 'OKL_LLA_VAR_RATE_PRIN_ISG');
2425: x_return_status := OKL_API.G_RET_STS_ERROR;
2426: return;
2421: IF (l_pricing_engine = 'INTERNAL') THEN
2422: OKL_API.set_message(
2423: p_app_name => G_APP_NAME,
2424: p_msg_name => 'OKL_LLA_VAR_RATE_PRIN_ISG');
2425: x_return_status := OKL_API.G_RET_STS_ERROR;
2426: return;
2427: END IF;*/
2428: /*END IF;*/
2429: END IF;
2434: IF ((l_deal_type = 'LOAN-REVONVING' ) AND
2435: (l_interest_Calculation_basis = 'FLOAT'))
2436: THEN
2437: IF (l_rent_payment_found) THEN
2438: Okl_Api.set_message(
2439: p_app_name => G_APP_NAME,
2440: p_msg_name => 'OKL_LLA_VAR_RATE_RENT_ERROR');
2441: x_return_status := Okl_Api.G_RET_STS_ERROR;
2442: --return;
2437: IF (l_rent_payment_found) THEN
2438: Okl_Api.set_message(
2439: p_app_name => G_APP_NAME,
2440: p_msg_name => 'OKL_LLA_VAR_RATE_RENT_ERROR');
2441: x_return_status := Okl_Api.G_RET_STS_ERROR;
2442: --return;
2443: END IF;
2444: IF (l_principal_payment_found) THEN
2445: Okl_Api.set_message(
2441: x_return_status := Okl_Api.G_RET_STS_ERROR;
2442: --return;
2443: END IF;
2444: IF (l_principal_payment_found) THEN
2445: Okl_Api.set_message(
2446: p_app_name => G_APP_NAME,
2447: p_msg_name => 'OKL_LLA_VAR_RATE_PRIN_ERROR');
2448: x_return_status := Okl_Api.G_RET_STS_ERROR;
2449: --RETURN;
2444: IF (l_principal_payment_found) THEN
2445: Okl_Api.set_message(
2446: p_app_name => G_APP_NAME,
2447: p_msg_name => 'OKL_LLA_VAR_RATE_PRIN_ERROR');
2448: x_return_status := Okl_Api.G_RET_STS_ERROR;
2449: --RETURN;
2450: END IF;
2451: END IF;
2452:
2464: p_transaction_type => 'Rebook',
2465: p_transaction_date => NVL(l_rbk_rec.date_transaction_occurred,l_contract_start_date),
2466: x_return_status => l_return_status);
2467: --Added by bkatraga for bug 13693187
2468: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2469: x_return_status := l_return_status;
2470: END IF;
2471: END IF;
2472:
2474: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before exitting: x_return_status=' || x_return_status);
2475: END IF;
2476:
2477: --Bug# 13002041: Moved this to check_variable_rate procedure
2478: /* IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
2479: Okl_Api.set_message(
2480: p_app_name => G_APP_NAME,
2481: p_msg_name => G_QA_SUCCESS);
2482: END IF; */
2475: END IF;
2476:
2477: --Bug# 13002041: Moved this to check_variable_rate procedure
2478: /* IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
2479: Okl_Api.set_message(
2480: p_app_name => G_APP_NAME,
2481: p_msg_name => G_QA_SUCCESS);
2482: END IF; */
2483:
2490: CLOSE l_rl_csr1;
2491: END IF;
2492: WHEN OTHERS THEN
2493: -- store SQL error message on message stack
2494: Okl_Api.SET_MESSAGE(
2495: p_app_name => G_APP_NAME,
2496: p_msg_name => G_UNEXPECTED_ERROR,
2497: p_token1 => G_SQLCODE_TOKEN,
2498: p_token1_value => SQLCODE,
2498: p_token1_value => SQLCODE,
2499: p_token2 => G_SQLERRM_TOKEN,
2500: p_token2_value => SQLERRM);
2501: -- notify caller of an error as UNEXPETED error
2502: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
2503: -- verify that cursor was closed
2504: IF l_lne_csr%ISOPEN THEN
2505: CLOSE l_lne_csr;
2506: END IF;
2533: BEGIN
2534: IF (G_DEBUG_ENABLED = 'Y') THEN
2535: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2536: END IF;
2537: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
2538:
2539: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2540: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before calling validate_k_rate_params...');
2541: END IF;
2540: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before calling validate_k_rate_params...');
2541: END IF;
2542: Okl_K_Rate_Params_Pvt.validate_k_rate_params(
2543: p_api_version => 1,
2544: p_init_msg_list => Okl_Api.G_FALSE,
2545: x_return_status => x_return_status,
2546: x_msg_count => x_msg_count,
2547: x_msg_data => x_msg_data,
2548: p_khr_id => p_chr_id,
2550:
2551: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2552: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After validate_k_rate_params x_return_status=' || x_return_status);
2553: END IF;
2554: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2555: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2556: --RAISE OKL_API.G_EXCEPTION_HALT_VALIDATION;
2557: x_return_status := Okl_Api.G_RET_STS_ERROR;
2558: END IF;
2551: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2552: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After validate_k_rate_params x_return_status=' || x_return_status);
2553: END IF;
2554: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2555: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2556: --RAISE OKL_API.G_EXCEPTION_HALT_VALIDATION;
2557: x_return_status := Okl_Api.G_RET_STS_ERROR;
2558: END IF;
2559:
2552: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After validate_k_rate_params x_return_status=' || x_return_status);
2553: END IF;
2554: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2555: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2556: --RAISE OKL_API.G_EXCEPTION_HALT_VALIDATION;
2557: x_return_status := Okl_Api.G_RET_STS_ERROR;
2558: END IF;
2559:
2560: l_return_status := Okl_Api.G_RET_STS_SUCCESS;
2553: END IF;
2554: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2555: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2556: --RAISE OKL_API.G_EXCEPTION_HALT_VALIDATION;
2557: x_return_status := Okl_Api.G_RET_STS_ERROR;
2558: END IF;
2559:
2560: l_return_status := Okl_Api.G_RET_STS_SUCCESS;
2561: check_payment_type(
2556: --RAISE OKL_API.G_EXCEPTION_HALT_VALIDATION;
2557: x_return_status := Okl_Api.G_RET_STS_ERROR;
2558: END IF;
2559:
2560: l_return_status := Okl_Api.G_RET_STS_SUCCESS;
2561: check_payment_type(
2562: x_return_status => l_return_status,
2563: p_chr_id => p_chr_id);
2564: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2564: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2565: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After check_payment_type l_return_status=' || l_return_status);
2566: END IF;
2567:
2568: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2569: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2570: RAISE G_EXCEPTION_HALT_VALIDATION;
2571: END IF;
2572:
2565: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After check_payment_type l_return_status=' || l_return_status);
2566: END IF;
2567:
2568: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2569: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2570: RAISE G_EXCEPTION_HALT_VALIDATION;
2571: END IF;
2572:
2573: --Bug# 13002041: Set success message only when all variable rate validations are done successfully
2570: RAISE G_EXCEPTION_HALT_VALIDATION;
2571: END IF;
2572:
2573: --Bug# 13002041: Set success message only when all variable rate validations are done successfully
2574: IF (x_return_status = Okl_Api.G_RET_STS_SUCCESS AND l_return_status = Okl_Api.G_RET_STS_SUCCESS) THEN
2575: Okl_Api.set_message(
2576: p_app_name => G_APP_NAME,
2577: p_msg_name => G_QA_SUCCESS);
2578: END IF;
2571: END IF;
2572:
2573: --Bug# 13002041: Set success message only when all variable rate validations are done successfully
2574: IF (x_return_status = Okl_Api.G_RET_STS_SUCCESS AND l_return_status = Okl_Api.G_RET_STS_SUCCESS) THEN
2575: Okl_Api.set_message(
2576: p_app_name => G_APP_NAME,
2577: p_msg_name => G_QA_SUCCESS);
2578: END IF;
2579:
2580: EXCEPTION
2581:
2582: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2583: NULL;
2584: x_return_status := Okl_Api.G_RET_STS_ERROR;
2585: -- Close cursors if still open
2586: WHEN OTHERS THEN
2587: -- store SQL error message on message stack
2588: Okl_Api.SET_MESSAGE(
2584: x_return_status := Okl_Api.G_RET_STS_ERROR;
2585: -- Close cursors if still open
2586: WHEN OTHERS THEN
2587: -- store SQL error message on message stack
2588: Okl_Api.SET_MESSAGE(
2589: p_app_name => G_APP_NAME,
2590: p_msg_name => G_UNEXPECTED_ERROR,
2591: p_token1 => G_SQLCODE_TOKEN,
2592: p_token1_value => SQLCODE,
2592: p_token1_value => SQLCODE,
2593: p_token2 => G_SQLERRM_TOKEN,
2594: p_token2_value => SQLERRM);
2595: -- notify caller of an error as UNEXPETED error
2596: --x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2597: x_return_status := Okl_Api.G_RET_STS_ERROR;
2598: -- verify that cursor was closed
2599:
2600: END check_variable_rate;
2593: p_token2 => G_SQLERRM_TOKEN,
2594: p_token2_value => SQLERRM);
2595: -- notify caller of an error as UNEXPETED error
2596: --x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2597: x_return_status := Okl_Api.G_RET_STS_ERROR;
2598: -- verify that cursor was closed
2599:
2600: END check_variable_rate;
2601:
2614: x_return_status OUT NOCOPY VARCHAR2,
2615: p_chr_id IN NUMBER
2616: ) IS
2617:
2618: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2619:
2620: l_hdr_rec l_hdr_csr%ROWTYPE;
2621: l_hdrrl_rec l_hdrrl_csr%ROWTYPE;
2622: index_rec index_csr%ROWTYPE;
2721: PROCEDURE l_formula_processing(x_return_status OUT NOCOPY VARCHAR2,
2722: p_chr_id IN OKC_K_HEADERS_B.ID%TYPE) IS
2723: BEGIN
2724: -- initialize return status
2725: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
2726: ind := 0;
2727: --Bug#3931587
2728: --FOR l_pmnt_strm_check_rec IN l_pmnt_strm_check('LALEVL','LASLH','VARIABLE INTEREST SCHEDULE',p_chr_id)
2729: --FOR l_pmnt_strm_check_rec IN l_pmnt_strm_check('LALEVL','LASLH','VARIABLE_INTEREST',p_chr_id)
2730: FOR l_pmnt_strm_check_rec IN l_pmnt_strm_check('LALEVL','LASLH','VARIABLE_INTEREST_SCHEDULE',p_chr_id)
2731: LOOP
2732: ind := ind + 1;
2733: IF (l_pmnt_strm_check_rec.cle_id IS NOT NULL) THEN
2734: x_return_status := Okl_Api.G_RET_STS_ERROR;
2735: --message
2736: Okl_Api.set_message(
2737: p_app_name => G_APP_NAME,
2738: p_msg_name => 'OKL_QA_VARINT_LINE_LEVEL');
2732: ind := ind + 1;
2733: IF (l_pmnt_strm_check_rec.cle_id IS NOT NULL) THEN
2734: x_return_status := Okl_Api.G_RET_STS_ERROR;
2735: --message
2736: Okl_Api.set_message(
2737: p_app_name => G_APP_NAME,
2738: p_msg_name => 'OKL_QA_VARINT_LINE_LEVEL');
2739: END IF;
2740: l_no_pmnt_lns_found := 0;
2742: LOOP
2743: l_no_pmnt_lns_found := l_no_pmnt_lns_found + 1 ;
2744: EXIT WHEN l_pmnt_lns_in_hdr%NOTFOUND;
2745: IF ( l_pmnt_lns_in_hdr_rec.rule_information6 <> 0 ) THEN
2746: x_return_status := Okl_Api.G_RET_STS_ERROR;
2747: --message
2748: Okl_Api.set_message(
2749: p_app_name => G_APP_NAME,
2750: p_msg_name => 'OKL_QA_VARINT_SLL_AMOUNT');
2744: EXIT WHEN l_pmnt_lns_in_hdr%NOTFOUND;
2745: IF ( l_pmnt_lns_in_hdr_rec.rule_information6 <> 0 ) THEN
2746: x_return_status := Okl_Api.G_RET_STS_ERROR;
2747: --message
2748: Okl_Api.set_message(
2749: p_app_name => G_APP_NAME,
2750: p_msg_name => 'OKL_QA_VARINT_SLL_AMOUNT');
2751: END IF;
2752: IF ( ( l_hdr_rec.deal_type = 'LOAN' OR l_hdr_rec.deal_type = 'LOAN-REVOLVING')
2751: END IF;
2752: IF ( ( l_hdr_rec.deal_type = 'LOAN' OR l_hdr_rec.deal_type = 'LOAN-REVOLVING')
2753: AND
2754: ( NVL(l_pmnt_lns_in_hdr_rec.rule_information10,'N') = 'N' ) ) THEN
2755: x_return_status := Okl_Api.G_RET_STS_ERROR;
2756: --message
2757: Okl_Api.set_message(
2758: p_app_name => G_APP_NAME,
2759: p_msg_name => 'OKL_QA_VARINT_ADV');
2753: AND
2754: ( NVL(l_pmnt_lns_in_hdr_rec.rule_information10,'N') = 'N' ) ) THEN
2755: x_return_status := Okl_Api.G_RET_STS_ERROR;
2756: --message
2757: Okl_Api.set_message(
2758: p_app_name => G_APP_NAME,
2759: p_msg_name => 'OKL_QA_VARINT_ADV');
2760: END IF;
2761: END LOOP;
2759: p_msg_name => 'OKL_QA_VARINT_ADV');
2760: END IF;
2761: END LOOP;
2762: IF(l_no_pmnt_lns_found = 0) THEN
2763: x_return_status := Okl_Api.G_RET_STS_ERROR;
2764: --message
2765: Okl_Api.set_message(
2766: p_app_name => G_APP_NAME,
2767: p_msg_name => 'OKL_QA_VARINT_NO_SLL');
2761: END LOOP;
2762: IF(l_no_pmnt_lns_found = 0) THEN
2763: x_return_status := Okl_Api.G_RET_STS_ERROR;
2764: --message
2765: Okl_Api.set_message(
2766: p_app_name => G_APP_NAME,
2767: p_msg_name => 'OKL_QA_VARINT_NO_SLL');
2768: END IF;
2769: END LOOP;
2767: p_msg_name => 'OKL_QA_VARINT_NO_SLL');
2768: END IF;
2769: END LOOP;
2770: IF (ind = 0) THEN
2771: x_return_status := Okl_Api.G_RET_STS_ERROR;
2772: --message
2773: Okl_Api.set_message(
2774: p_app_name => G_APP_NAME,
2775: p_msg_name => 'OKL_QA_VARINT_NOT_DEFINED');
2769: END LOOP;
2770: IF (ind = 0) THEN
2771: x_return_status := Okl_Api.G_RET_STS_ERROR;
2772: --message
2773: Okl_Api.set_message(
2774: p_app_name => G_APP_NAME,
2775: p_msg_name => 'OKL_QA_VARINT_NOT_DEFINED');
2776: END IF;
2777:
2774: p_app_name => G_APP_NAME,
2775: p_msg_name => 'OKL_QA_VARINT_NOT_DEFINED');
2776: END IF;
2777:
2778: --IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
2779: -- OKL_API.set_message(
2780: -- p_app_name => G_APP_NAME,
2781: -- p_msg_name => G_QA_SUCCESS);
2782: --END IF;
2775: p_msg_name => 'OKL_QA_VARINT_NOT_DEFINED');
2776: END IF;
2777:
2778: --IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
2779: -- OKL_API.set_message(
2780: -- p_app_name => G_APP_NAME,
2781: -- p_msg_name => G_QA_SUCCESS);
2782: --END IF;
2783:
2799:
2800: BEGIN
2801:
2802: -- initialize return status
2803: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
2804:
2805: OPEN l_hdr_csr( p_chr_id );
2806: FETCH l_hdr_csr INTO l_hdr_rec;
2807: CLOSE l_hdr_csr;
2818: IF (l_variable_int_yn) THEN -- dedey
2819: IF ( l_hdrrl_csr%NOTFOUND ) OR
2820: ( l_hdrrl_rec.rule_information1 IS NULL ) OR
2821: ( l_hdrrl_rec.rule_information2 IS NULL ) THEN
2822: Okl_Api.set_message(
2823: p_app_name => G_APP_NAME,
2824: p_msg_name => 'OKL_QA_NO_VARMETH');
2825: x_return_status := Okl_Api.G_RET_STS_ERROR;
2826: END IF;
2821: ( l_hdrrl_rec.rule_information2 IS NULL ) THEN
2822: Okl_Api.set_message(
2823: p_app_name => G_APP_NAME,
2824: p_msg_name => 'OKL_QA_NO_VARMETH');
2825: x_return_status := Okl_Api.G_RET_STS_ERROR;
2826: END IF;
2827: END IF;
2828: CLOSE l_hdrrl_csr;
2829: var_meth := l_hdrrl_rec.rule_information1;
2841: IF (l_deal_type = 'LOAN') THEN
2842: IF (l_variable_int_yn ) THEN
2843: IF (var_meth = 'FLOAT' AND calc_meth = 'FORMULA') THEN
2844: l_formula_processing(x_return_status => lx_return_status, p_chr_id => p_chr_id) ;
2845: IF (lx_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2846: x_return_status := lx_return_status;
2847: END IF;
2848: ELSIF (var_meth = 'FIXEDADJUST' AND calc_meth = 'REAMORT') THEN
2849: -- variable interest schedule payments not allowed for reamort.
2852: RAISE l_invalid_combination;
2853: END IF;
2854: ELSIF (NOT l_variable_int_yn ) THEN
2855: --return success
2856: Okl_Api.set_message(
2857: p_app_name => G_APP_NAME,
2858: p_msg_name => G_QA_SUCCESS);
2859: RETURN;
2860: END IF;
2861: ELSIF(l_deal_type = 'LOAN-REVOLVING') THEN
2862: IF (l_variable_int_yn) THEN
2863: IF (var_meth = 'FLOAT' AND calc_meth = 'FORMULA') THEN
2864: l_formula_processing(x_return_status => lx_return_status, p_chr_id => p_chr_id) ;
2865: IF (lx_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2866: x_return_status := lx_return_status;
2867: END IF;
2868: ELSE
2869: RAISE l_invalid_combination;
2880: RAISE l_invalid_combination;
2881: END IF;
2882: ELSIF (NOT l_variable_int_yn ) THEN
2883: --return success
2884: Okl_Api.set_message(
2885: p_app_name => G_APP_NAME,
2886: p_msg_name => G_QA_SUCCESS);
2887: RETURN;
2888: END IF;
2890: -----------------------------------------------
2891: EXCEPTION
2892: -----------------------------------------------
2893: WHEN l_invalid_combination THEN
2894: x_return_status := Okl_Api.G_RET_STS_ERROR;
2895: Okl_Api.set_message(
2896: p_app_name => G_APP_NAME,
2897: p_msg_name => 'OKL_QA_VARIABLE_INV_COMB',
2898: p_token1 => 'VAR_METHOD',
2891: EXCEPTION
2892: -----------------------------------------------
2893: WHEN l_invalid_combination THEN
2894: x_return_status := Okl_Api.G_RET_STS_ERROR;
2895: Okl_Api.set_message(
2896: p_app_name => G_APP_NAME,
2897: p_msg_name => 'OKL_QA_VARIABLE_INV_COMB',
2898: p_token1 => 'VAR_METHOD',
2899: p_token1_value => var_meth,
2899: p_token1_value => var_meth,
2900: p_token2 => 'CALC_METHOD',
2901: p_token2_value => calc_meth);
2902: WHEN l_loan_rev_var_rate THEN
2903: x_return_status := Okl_Api.G_RET_STS_ERROR;
2904: Okl_Api.set_message(
2905: p_app_name => G_APP_NAME,
2906: p_msg_name => 'OKL_QA_LV_VARINT');
2907: WHEN l_var_rate_reamort_exception THEN
2900: p_token2 => 'CALC_METHOD',
2901: p_token2_value => calc_meth);
2902: WHEN l_loan_rev_var_rate THEN
2903: x_return_status := Okl_Api.G_RET_STS_ERROR;
2904: Okl_Api.set_message(
2905: p_app_name => G_APP_NAME,
2906: p_msg_name => 'OKL_QA_LV_VARINT');
2907: WHEN l_var_rate_reamort_exception THEN
2908: --Bug#3365616
2913: --OPEN l_pmnt_strm_check('LALEVL','LASLH','VARIABLE_INTEREST',p_chr_id);
2914: OPEN l_pmnt_strm_check('LALEVL','LASLH','VARIABLE_INTEREST_SCHEDULE',p_chr_id);
2915: FETCH l_pmnt_strm_check INTO l_pmnt_strm_check_rec;
2916: IF( l_pmnt_strm_check%FOUND) THEN
2917: Okl_Api.set_message(
2918: p_app_name => G_APP_NAME,
2919: p_msg_name => 'OKL_QA_LN_VARINT_REAMORT');
2920: x_return_status := Okl_Api.G_RET_STS_ERROR;
2921: END IF;
2916: IF( l_pmnt_strm_check%FOUND) THEN
2917: Okl_Api.set_message(
2918: p_app_name => G_APP_NAME,
2919: p_msg_name => 'OKL_QA_LN_VARINT_REAMORT');
2920: x_return_status := Okl_Api.G_RET_STS_ERROR;
2921: END IF;
2922: CLOSE l_pmnt_strm_check;
2923: END IF;
2924: END;
2941:
2942: /*
2943: *--Bug#3369032
2944: *If (l_hdr_rec.deal_type = 'LOAN-REVOLVING') Then
2945: * OKL_API.set_message(
2946: * p_app_name => G_APP_NAME,
2947: * p_msg_name => 'OKL_QA_LN_REV_REAMORT');
2948: * x_return_status := OKL_API.G_RET_STS_ERROR;
2949: *End If;
2944: *If (l_hdr_rec.deal_type = 'LOAN-REVOLVING') Then
2945: * OKL_API.set_message(
2946: * p_app_name => G_APP_NAME,
2947: * p_msg_name => 'OKL_QA_LN_REV_REAMORT');
2948: * x_return_status := OKL_API.G_RET_STS_ERROR;
2949: *End If;
2950: */
2951:
2952: ind := 0;
2986: OR l_pmnt_lns_in_hdr_rec_comp.object1_id1
2987: <> l_pmnt_lns_in_hdr_rec.object1_id1
2988: OR l_pmnt_lns_in_hdr_rec_comp.object1_id2
2989: <> l_pmnt_lns_in_hdr_rec.object1_id2 ) THEN
2990: x_return_status := Okl_Api.G_RET_STS_ERROR;
2991: RAISE l_mismatch_exception;
2992: END IF;
2993: END IF;
2994: END IF;
2999: ELSIF(l_global_total_periods <> l_line_total_periods) THEN
3000: RAISE l_mismatch_exception;
3001: END IF;
3002: EXCEPTION WHEN l_mismatch_exception THEN
3003: x_return_status := Okl_Api.G_RET_STS_ERROR;
3004: --message
3005: Okl_Api.set_message(
3006: p_app_name => G_APP_NAME,
3007: p_msg_name => 'OKL_QA_VARINT_SLL_MISMATCH');
3001: END IF;
3002: EXCEPTION WHEN l_mismatch_exception THEN
3003: x_return_status := Okl_Api.G_RET_STS_ERROR;
3004: --message
3005: Okl_Api.set_message(
3006: p_app_name => G_APP_NAME,
3007: p_msg_name => 'OKL_QA_VARINT_SLL_MISMATCH');
3008: END;
3009: END LOOP;
3024: FETCH l_hdrrl_csr INTO l_hdrrl_rec;
3025: If ( l_hdrrl_csr%NOTFOUND ) OR
3026: ( nvl(l_hdrrl_rec.rule_information1, 'N') = 'N' )Then
3027: CLOSE l_hdrrl_csr;
3028: OKL_API.set_message(
3029: p_app_name => G_APP_NAME,
3030: p_msg_name => G_QA_SUCCESS);
3031: return;
3032: End If;
3032: End If;
3033:
3034: If (l_hdrrl_rec.RULE_INFORMATION1 = 'Y') AND
3035: (INSTR(l_hdr_rec.deal_type,'LOAN') < 1) Then
3036: OKL_API.set_message(
3037: p_app_name => G_APP_NAME,
3038: p_msg_name => 'OKL_QA_VAR_RATE_LN');
3039: x_return_status := OKL_API.G_RET_STS_ERROR;
3040: RAISE G_EXCEPTION_HALT_VALIDATION;
3035: (INSTR(l_hdr_rec.deal_type,'LOAN') < 1) Then
3036: OKL_API.set_message(
3037: p_app_name => G_APP_NAME,
3038: p_msg_name => 'OKL_QA_VAR_RATE_LN');
3039: x_return_status := OKL_API.G_RET_STS_ERROR;
3040: RAISE G_EXCEPTION_HALT_VALIDATION;
3041: End If;
3042: CLOSE l_hdrrl_csr;
3043: */
3055: EXIT;
3056: END LOOP;
3057:
3058: IF ( TRUNC(l_hdr_rec.start_date) < TRUNC(index_date) ) THEN
3059: Okl_Api.set_message(
3060: p_app_name => G_APP_NAME,
3061: p_msg_name => 'OKL_QA_INDEXDATE');
3062: x_return_status := Okl_Api.G_RET_STS_ERROR;
3063: END IF;
3058: IF ( TRUNC(l_hdr_rec.start_date) < TRUNC(index_date) ) THEN
3059: Okl_Api.set_message(
3060: p_app_name => G_APP_NAME,
3061: p_msg_name => 'OKL_QA_INDEXDATE');
3062: x_return_status := Okl_Api.G_RET_STS_ERROR;
3063: END IF;
3064:
3065: OPEN l_hdrrl_csr( 'LAIIND', 'LAICLC', p_chr_id );
3066: FETCH l_hdrrl_csr INTO l_hdrrl_rec;
3066: FETCH l_hdrrl_csr INTO l_hdrrl_rec;
3067: IF ( l_hdrrl_csr%NOTFOUND ) OR
3068: ( l_hdrrl_rec.rule_information4 IS NULL ) OR
3069: ( l_hdrrl_rec.rule_information5 IS NULL ) THEN
3070: Okl_Api.set_message(
3071: p_app_name => G_APP_NAME,
3072: p_msg_name => 'OKL_QA_NO_VARCLC');
3073: x_return_status := Okl_Api.G_RET_STS_ERROR;
3074: END IF;
3069: ( l_hdrrl_rec.rule_information5 IS NULL ) THEN
3070: Okl_Api.set_message(
3071: p_app_name => G_APP_NAME,
3072: p_msg_name => 'OKL_QA_NO_VARCLC');
3073: x_return_status := Okl_Api.G_RET_STS_ERROR;
3074: END IF;
3075: CLOSE l_hdrrl_csr;
3076:
3077: calc_meth := l_hdrrl_rec.rule_information5;
3084: > TRUNC(Fnd_Date.canonical_to_date(l_hdrrl_rec.rule_information4)) )
3085: OR
3086: ( TRUNC(l_hdr_rec1.end_date)
3087: < TRUNC(Fnd_Date.canonical_to_date(l_hdrrl_rec.rule_information4)) ) THEN
3088: Okl_Api.set_message(
3089: p_app_name => G_APP_NAME,
3090: p_msg_name => 'OKL_QA_INT_START_DATE_EFF');
3091: x_return_status := Okl_Api.G_RET_STS_ERROR;
3092: END IF;
3087: < TRUNC(Fnd_Date.canonical_to_date(l_hdrrl_rec.rule_information4)) ) THEN
3088: Okl_Api.set_message(
3089: p_app_name => G_APP_NAME,
3090: p_msg_name => 'OKL_QA_INT_START_DATE_EFF');
3091: x_return_status := Okl_Api.G_RET_STS_ERROR;
3092: END IF;
3093:
3094: /*If ( l_hdr_rec.start_date < FND_DATE.canonical_to_date(l_hdrrl_rec.rule_information4) ) Then
3095: OKL_API.set_message(
3091: x_return_status := Okl_Api.G_RET_STS_ERROR;
3092: END IF;
3093:
3094: /*If ( l_hdr_rec.start_date < FND_DATE.canonical_to_date(l_hdrrl_rec.rule_information4) ) Then
3095: OKL_API.set_message(
3096: p_app_name => G_APP_NAME,
3097: p_msg_name => 'OKL_QA_CLCDATE');
3098: x_return_status := OKL_API.G_RET_STS_ERROR;
3099: End If;
3094: /*If ( l_hdr_rec.start_date < FND_DATE.canonical_to_date(l_hdrrl_rec.rule_information4) ) Then
3095: OKL_API.set_message(
3096: p_app_name => G_APP_NAME,
3097: p_msg_name => 'OKL_QA_CLCDATE');
3098: x_return_status := OKL_API.G_RET_STS_ERROR;
3099: End If;
3100: */
3101:
3102: /*
3101:
3102: /*
3103: *If ( var_meth = 'FLOAT' ) AND
3104: * ( calc_meth <> 'FORMULA') Then
3105: * OKL_API.set_message(
3106: * p_app_name => G_APP_NAME,
3107: * p_msg_name => 'OKL_QA_VARFLOAT');
3108: * x_return_status := OKL_API.G_RET_STS_ERROR;
3109: *End If;
3104: * ( calc_meth <> 'FORMULA') Then
3105: * OKL_API.set_message(
3106: * p_app_name => G_APP_NAME,
3107: * p_msg_name => 'OKL_QA_VARFLOAT');
3108: * x_return_status := OKL_API.G_RET_STS_ERROR;
3109: *End If;
3110: */
3111:
3112: /*
3116: OPEN l_hdrrl_csr( 'LAIIND', 'LAFORM', p_chr_id );
3117: FETCH l_hdrrl_csr INTO l_hdrrl_rec;
3118: If ( l_hdrrl_csr%NOTFOUND ) OR
3119: ( l_hdrrl_rec.rule_information1 IS NULL ) Then
3120: OKL_API.set_message(
3121: p_app_name => G_APP_NAME,
3122: p_msg_name => 'OKL_QA_VARNOFORM');
3123: x_return_status := OKL_API.G_RET_STS_ERROR;
3124: RAISE G_EXCEPTION_HALT_VALIDATION;
3119: ( l_hdrrl_rec.rule_information1 IS NULL ) Then
3120: OKL_API.set_message(
3121: p_app_name => G_APP_NAME,
3122: p_msg_name => 'OKL_QA_VARNOFORM');
3123: x_return_status := OKL_API.G_RET_STS_ERROR;
3124: RAISE G_EXCEPTION_HALT_VALIDATION;
3125: End If;
3126: CLOSE l_hdrrl_csr;
3127:
3128: End If;
3129:
3130: */
3131:
3132: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
3133: Okl_Api.set_message(
3134: p_app_name => G_APP_NAME,
3135: p_msg_name => G_QA_SUCCESS);
3136: END IF;
3129:
3130: */
3131:
3132: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
3133: Okl_Api.set_message(
3134: p_app_name => G_APP_NAME,
3135: p_msg_name => G_QA_SUCCESS);
3136: END IF;
3137:
3146: END IF;
3147: -- no processing necessary; validation can continue with next column
3148: WHEN OTHERS THEN
3149: -- store SQL error message on message stack
3150: Okl_Api.SET_MESSAGE(
3151: p_app_name => G_APP_NAME,
3152: p_msg_name => G_UNEXPECTED_ERROR,
3153: p_token1 => G_SQLCODE_TOKEN,
3154: p_token1_value => SQLCODE,
3154: p_token1_value => SQLCODE,
3155: p_token2 => G_SQLERRM_TOKEN,
3156: p_token2_value => SQLERRM);
3157: -- notify caller of an error as UNEXPETED error
3158: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
3159: -- verify that cursor was closed
3160: IF l_hdr_csr%ISOPEN THEN
3161: CLOSE l_hdr_csr;
3162: END IF;
3179: x_return_status OUT NOCOPY VARCHAR2,
3180: p_chr_id IN NUMBER
3181: ) IS
3182:
3183: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3184: l_dummy VARCHAR2(1) := '?';
3185: l_count NUMBER := 0;
3186: l_row_notfound BOOLEAN;
3187: l_token VARCHAR2(2000);
3202:
3203: BEGIN
3204:
3205: -- initialize return status
3206: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
3207:
3208: OPEN l_prefund_csr( p_chr_id );
3209: FETCH l_prefund_csr INTO l_prefund_yn;
3210: IF ( l_prefund_csr%FOUND AND (l_prefund_yn = 'Y')) THEN
3207:
3208: OPEN l_prefund_csr( p_chr_id );
3209: FETCH l_prefund_csr INTO l_prefund_yn;
3210: IF ( l_prefund_csr%FOUND AND (l_prefund_yn = 'Y')) THEN
3211: Okl_Api.set_message(
3212: p_app_name => G_APP_NAME,
3213: p_msg_name => 'OKL_QA_PREFUND_MIN');
3214: x_return_status := Okl_Api.G_RET_STS_ERROR;
3215: END IF;
3210: IF ( l_prefund_csr%FOUND AND (l_prefund_yn = 'Y')) THEN
3211: Okl_Api.set_message(
3212: p_app_name => G_APP_NAME,
3213: p_msg_name => 'OKL_QA_PREFUND_MIN');
3214: x_return_status := Okl_Api.G_RET_STS_ERROR;
3215: END IF;
3216: CLOSE l_prefund_csr;
3217:
3218: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
3214: x_return_status := Okl_Api.G_RET_STS_ERROR;
3215: END IF;
3216: CLOSE l_prefund_csr;
3217:
3218: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
3219: Okl_Api.set_message(
3220: p_app_name => G_APP_NAME,
3221: p_msg_name => G_QA_SUCCESS);
3222: END IF;
3215: END IF;
3216: CLOSE l_prefund_csr;
3217:
3218: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
3219: Okl_Api.set_message(
3220: p_app_name => G_APP_NAME,
3221: p_msg_name => G_QA_SUCCESS);
3222: END IF;
3223:
3230: END IF;
3231: -- no processing necessary; validation can continue with next column
3232: WHEN OTHERS THEN
3233: -- store SQL error message on message stack
3234: Okl_Api.SET_MESSAGE(
3235: p_app_name => G_APP_NAME,
3236: p_msg_name => G_UNEXPECTED_ERROR,
3237: p_token1 => G_SQLCODE_TOKEN,
3238: p_token1_value => SQLCODE,
3238: p_token1_value => SQLCODE,
3239: p_token2 => G_SQLERRM_TOKEN,
3240: p_token2_value => SQLERRM);
3241: -- notify caller of an error as UNEXPETED error
3242: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
3243: -- verify that cursor was closed
3244: IF l_prefund_csr%ISOPEN THEN
3245: CLOSE l_prefund_csr;
3246: END IF;
3550:
3551:
3552: BEGIN
3553:
3554: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
3555:
3556: --Bug 4917691 fmiao start ---------------------------------------
3557:
3558: --1.If evg hdr is defined, all the vendors should have evg pt params defined
3576: END LOOP;
3577:
3578: IF (l_found = 0) THEN
3579:
3580: Okl_Api.set_message(
3581: p_app_name => G_APP_NAME,
3582: p_msg_name => 'OKL_QA_EVG_PT_NO_DTLS');
3583: x_return_status := Okl_Api.G_RET_STS_ERROR;
3584: END IF;
3579:
3580: Okl_Api.set_message(
3581: p_app_name => G_APP_NAME,
3582: p_msg_name => 'OKL_QA_EVG_PT_NO_DTLS');
3583: x_return_status := Okl_Api.G_RET_STS_ERROR;
3584: END IF;
3585: -- end bug 5201664
3586: END IF;
3587:
3617: LOOP
3618: l_payment_amt := pymnt_amt(i);
3619: END LOOP;
3620: IF (l_fixed_amt > l_payment_amt) THEN
3621: Okl_Api.set_message(
3622: p_app_name => G_APP_NAME,
3623: p_msg_name => 'OKL_QA_FIXED_AMT_EXC_PYMNT_AMT',
3624: p_token1 => 'DISB_AMOUNT',
3625: p_token1_value => l_fixed_amt,
3628: p_token3 => 'PYMNT_AMT',
3629: p_token3_value => l_payment_amt,
3630: p_token4 => 'LINE',
3631: p_token4_value => lines_rec.name);
3632: x_return_status := Okl_Api.G_RET_STS_ERROR;
3633: END IF;
3634: END IF;
3635: END IF;
3636: END LOOP;
3656: l_payment_amt := pymnt_amt(i);
3657: END LOOP;
3658:
3659: IF (l_fixed_amt > l_payment_amt) THEN
3660: Okl_Api.set_message(
3661: p_app_name => G_APP_NAME,
3662: p_msg_name => 'OKL_QA_FIXED_AMT_EXC_PYMNT_AMT',
3663: p_token1 => 'DISB_AMOUNT',
3664: p_token1_value => l_fixed_amt,
3667: p_token3 => 'PYMNT_AMT',
3668: p_token3_value => l_payment_amt,
3669: p_token4 => 'LINE',
3670: p_token4_value => lines_rec.name);
3671: x_return_status := Okl_Api.G_RET_STS_ERROR;
3672: END IF;
3673: END IF ;
3674:
3675: IF (payout_basis_rec.passthru_term = 'BASE' AND
3723: -- ex. If period is quarterly - factor = 3, annual - factor =12
3724: l_months_factor := OKL_STREAM_GENERATOR_PVT.get_months_factor(
3725: p_frequency => l_frequency,
3726: x_return_status => x_return_status);
3727: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3728: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3729: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3730: RAISE OKL_API.G_EXCEPTION_ERROR;
3731: END IF;
3724: l_months_factor := OKL_STREAM_GENERATOR_PVT.get_months_factor(
3725: p_frequency => l_frequency,
3726: x_return_status => x_return_status);
3727: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3728: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3729: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3730: RAISE OKL_API.G_EXCEPTION_ERROR;
3731: END IF;
3732:
3725: p_frequency => l_frequency,
3726: x_return_status => x_return_status);
3727: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3728: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3729: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3730: RAISE OKL_API.G_EXCEPTION_ERROR;
3731: END IF;
3732:
3733: -- determine the number of disbursements
3726: x_return_status => x_return_status);
3727: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3728: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3729: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3730: RAISE OKL_API.G_EXCEPTION_ERROR;
3731: END IF;
3732:
3733: -- determine the number of disbursements
3734: OPEN c_num_of_disb(r_pass.CONTRACT_END_DATE, r_pass.PAYMENT_START_DATE, l_frequency);
3746: p_prev_payout_date => NULL,
3747: p_payout_date => l_last_payout_date,
3748: x_bill_amount => l_bill_amount,
3749: x_return_status => x_return_status);
3750: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3751: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3752: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3753: RAISE OKL_API.G_EXCEPTION_ERROR;
3754: END IF;
3747: p_payout_date => l_last_payout_date,
3748: x_bill_amount => l_bill_amount,
3749: x_return_status => x_return_status);
3750: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3751: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3752: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3753: RAISE OKL_API.G_EXCEPTION_ERROR;
3754: END IF;
3755:
3748: x_bill_amount => l_bill_amount,
3749: x_return_status => x_return_status);
3750: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3751: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3752: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3753: RAISE OKL_API.G_EXCEPTION_ERROR;
3754: END IF;
3755:
3756: l_fixed_amt := l_fixed_amt + NVL((l_bill_amount * r_pass.DISBURSEMENT_PERCENT)/100,0);
3749: x_return_status => x_return_status);
3750: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3751: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3752: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3753: RAISE OKL_API.G_EXCEPTION_ERROR;
3754: END IF;
3755:
3756: l_fixed_amt := l_fixed_amt + NVL((l_bill_amount * r_pass.DISBURSEMENT_PERCENT)/100,0);
3757: END IF;
3767: p_prev_payout_date => NULL,
3768: p_payout_date => l_last_payout_date,
3769: x_bill_amount => l_bill_amount,
3770: x_return_status => x_return_status);
3771: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3772: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3773: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3774: RAISE OKL_API.G_EXCEPTION_ERROR;
3775: END IF;
3768: p_payout_date => l_last_payout_date,
3769: x_bill_amount => l_bill_amount,
3770: x_return_status => x_return_status);
3771: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3772: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3773: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3774: RAISE OKL_API.G_EXCEPTION_ERROR;
3775: END IF;
3776: l_fixed_amt := l_fixed_amt + NVL((l_bill_amount * r_pass.PROCESSING_FEE_PERCENT)/100,0);
3769: x_bill_amount => l_bill_amount,
3770: x_return_status => x_return_status);
3771: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3772: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3773: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3774: RAISE OKL_API.G_EXCEPTION_ERROR;
3775: END IF;
3776: l_fixed_amt := l_fixed_amt + NVL((l_bill_amount * r_pass.PROCESSING_FEE_PERCENT)/100,0);
3777: END IF;
3770: x_return_status => x_return_status);
3771: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3772: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3773: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3774: RAISE OKL_API.G_EXCEPTION_ERROR;
3775: END IF;
3776: l_fixed_amt := l_fixed_amt + NVL((l_bill_amount * r_pass.PROCESSING_FEE_PERCENT)/100,0);
3777: END IF;
3778: END LOOP;
3784: --l_payment_amt := NULL;
3785: --END IF;
3786:
3787: IF (l_fixed_amt > l_payment_amt) THEN
3788: Okl_Api.set_message(
3789: p_app_name => G_APP_NAME,
3790: p_msg_name => 'OKL_QA_FIXED_AMT_EXC_PYMNT_AMT',
3791: p_token1 => 'DISB_AMOUNT',
3792: p_token1_value => l_fixed_amt,
3795: p_token3 => 'PYMNT_AMT',
3796: p_token3_value => l_payment_amt,
3797: p_token4 => 'LINE',
3798: p_token4_value => lines_rec.name);
3799: x_return_status := Okl_Api.G_RET_STS_ERROR;
3800: END IF;
3801: END IF;
3802: --END IF;
3803: END LOOP;
3811:
3812: IF (l_disb_basis IS NOT NULL AND
3813: l_disb_basis <> disb_basis_rec.disbursement_basis) THEN
3814:
3815: Okl_Api.set_message(
3816: p_app_name => G_APP_NAME,
3817: p_msg_name => 'OKL_QA_INVALID_VEND_DISB_BASIS',
3818: p_token1 => 'BASIS',
3819: p_token1_value => disb_basis_rec.disbursement_basis,
3820: p_token2 => 'VENDOR',
3821: p_token2_value => disb_basis_rec.vendor_name,
3822: p_token3 => 'LINE',
3823: p_token3_value => lines_rec.name);
3824: x_return_status := Okl_Api.G_RET_STS_ERROR;
3825: END IF;
3826: l_disb_basis := disb_basis_rec.disbursement_basis;
3827:
3828: END LOOP;
3837: CLOSE pth_amount_csr;
3838:
3839: IF (l_proc_fee_amt IS NOT NULL AND l_pth_amt IS NOT NULL AND
3840: l_proc_fee_amt > l_pth_amt) THEN
3841: Okl_Api.set_message(
3842: p_app_name => G_APP_NAME,
3843: p_msg_name => 'OKL_QA_PROC_FEE_GT_LINE_AMT',
3844: p_token1 => 'PROC_AMT',
3845: p_token1_value => l_proc_fee_amt,
3846: p_token2 => 'PTH_AMT',
3847: p_token2_value => l_pth_amt,
3848: p_token3 => 'LINE',
3849: p_token3_value => lines_rec.name);
3850: x_return_status := Okl_Api.G_RET_STS_ERROR;
3851: END IF;
3852: END LOOP;
3853:
3854: --Bug 4917691 fmiao end
3875: -- Bug# 4350255: start
3876: -- Passthru Stream Type is mandatory for Base term
3877: IF (pth_rec.passthru_term = 'BASE') THEN
3878: IF (pth_rec.passthru_stream_type_id IS NULL) THEN
3879: Okl_Api.set_message(
3880: G_APP_NAME,
3881: 'OKL_QA_PASTH_STRM',
3882: 'LINE_TYPE',
3883: pth_rec.line_style,
3883: pth_rec.line_style,
3884: 'STRM_TYPE',
3885: pth_rec.name
3886: );
3887: x_return_status := Okl_Api.G_RET_STS_ERROR;
3888: END IF;
3889:
3890: IF (pth_rec.passthru_start_date
3891: NOT BETWEEN pth_rec.start_date AND pth_rec.end_date) THEN
3888: END IF;
3889:
3890: IF (pth_rec.passthru_start_date
3891: NOT BETWEEN pth_rec.start_date AND pth_rec.end_date) THEN
3892: Okl_Api.set_message(p_app_name => G_APP_NAME,
3893: p_msg_name => 'OKL_QA_PTH_STRT_DATE',
3894: p_token1 => 'LINE',
3895: p_token1_value => pth_rec.line_style||'/'||pth_rec.name);
3896: x_return_status := Okl_Api.G_RET_STS_ERROR;
3892: Okl_Api.set_message(p_app_name => G_APP_NAME,
3893: p_msg_name => 'OKL_QA_PTH_STRT_DATE',
3894: p_token1 => 'LINE',
3895: p_token1_value => pth_rec.line_style||'/'||pth_rec.name);
3896: x_return_status := Okl_Api.G_RET_STS_ERROR;
3897: END IF;
3898: END IF;
3899:
3900: -- Passthru Stream Type should be valid for the contract's
3910: OPEN strm_name_csr ( TO_NUMBER(pth_rec.passthru_stream_type_id) );
3911: FETCH strm_name_csr INTO l_strm_name_rec;
3912: IF strm_name_csr%NOTFOUND THEN
3913: CLOSE strm_name_csr;
3914: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3915: END IF;
3916: CLOSE strm_name_csr;
3917:
3918: Okl_Api.set_message(
3914: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3915: END IF;
3916: CLOSE strm_name_csr;
3917:
3918: Okl_Api.set_message(
3919: p_app_name => G_APP_NAME,
3920: p_msg_name => 'LLA_QA_PTH_STRM_TMPL',
3921: p_token1 => 'STRM_NAME',
3922: p_token1_value => l_strm_name_rec.name,
3922: p_token1_value => l_strm_name_rec.name,
3923: p_token2 => 'LINE_TYPE',
3924: p_token2_value => pth_rec.line_style||'/'||pth_rec.name
3925: );
3926: x_return_status := Okl_Api.G_RET_STS_ERROR;
3927: END IF;
3928: END IF;
3929:
3930: l_pct_sum := 0;
3945: OPEN vendor_csr(p_vendor_id => pth_dtl_rec.vendor_id);
3946: FETCH vendor_csr INTO l_vendor_name;
3947: CLOSE vendor_csr;
3948:
3949: Okl_Api.set_message(p_app_name => G_APP_NAME,
3950: p_msg_name => 'OKL_QA_PYMT_STRT_DATE',
3951: p_token1 => 'LINE',
3952: p_token1_value => pth_rec.line_style||'/'||pth_rec.name,
3953: p_token2 => 'VENDOR',
3951: p_token1 => 'LINE',
3952: p_token1_value => pth_rec.line_style||'/'||pth_rec.name,
3953: p_token2 => 'VENDOR',
3954: p_token2_value => l_vendor_name);
3955: x_return_status := Okl_Api.G_RET_STS_ERROR;
3956: END IF;
3957: END IF;
3958:
3959: END LOOP;
3960:
3961: IF (l_pth_dtl_present_yn = 'N') THEN
3962:
3963: IF (pth_rec.passthru_term = 'BASE') THEN
3964: Okl_Api.set_message(
3965: p_app_name => G_APP_NAME,
3966: p_msg_name => 'OKL_QA_PTH_BASE_NO_DTL',
3967: p_token1 => 'LINE',
3968: p_token1_value => pth_rec.line_style||'/'||pth_rec.name
3966: p_msg_name => 'OKL_QA_PTH_BASE_NO_DTL',
3967: p_token1 => 'LINE',
3968: p_token1_value => pth_rec.line_style||'/'||pth_rec.name
3969: );
3970: x_return_status := Okl_Api.G_RET_STS_ERROR;
3971:
3972: ELSIF (pth_rec.passthru_term = 'EVERGREEN') THEN
3973: Okl_Api.set_message(
3974: p_app_name => G_APP_NAME,
3969: );
3970: x_return_status := Okl_Api.G_RET_STS_ERROR;
3971:
3972: ELSIF (pth_rec.passthru_term = 'EVERGREEN') THEN
3973: Okl_Api.set_message(
3974: p_app_name => G_APP_NAME,
3975: p_msg_name => 'OKL_QA_PTH_EVGN_NO_DTL',
3976: p_token1 => 'LINE',
3977: p_token1_value => pth_rec.line_style||'/'||pth_rec.name
3975: p_msg_name => 'OKL_QA_PTH_EVGN_NO_DTL',
3976: p_token1 => 'LINE',
3977: p_token1_value => pth_rec.line_style||'/'||pth_rec.name
3978: );
3979: x_return_status := Okl_Api.G_RET_STS_ERROR;
3980: END IF;
3981:
3982: END IF;
3983:
3983:
3984: IF (l_pct_sum > 100) THEN
3985:
3986: IF (pth_rec.passthru_term = 'BASE') THEN
3987: Okl_Api.set_message(
3988: p_app_name => G_APP_NAME,
3989: p_msg_name => 'OKL_QA_BASE_PERCENT_SUM',
3990: p_token1 => 'LINE',
3991: p_token1_value => pth_rec.line_style||'/'||pth_rec.name
3989: p_msg_name => 'OKL_QA_BASE_PERCENT_SUM',
3990: p_token1 => 'LINE',
3991: p_token1_value => pth_rec.line_style||'/'||pth_rec.name
3992: );
3993: x_return_status := Okl_Api.G_RET_STS_ERROR;
3994:
3995: ELSIF (pth_rec.passthru_term = 'EVERGREEN') THEN
3996: Okl_Api.set_message(
3997: p_app_name => G_APP_NAME,
3992: );
3993: x_return_status := Okl_Api.G_RET_STS_ERROR;
3994:
3995: ELSIF (pth_rec.passthru_term = 'EVERGREEN') THEN
3996: Okl_Api.set_message(
3997: p_app_name => G_APP_NAME,
3998: p_msg_name => 'OKL_QA_EVGN_PERCENT_SUM',
3999: p_token1 => 'LINE',
4000: p_token1_value => pth_rec.line_style||'/'||pth_rec.name
3998: p_msg_name => 'OKL_QA_EVGN_PERCENT_SUM',
3999: p_token1 => 'LINE',
4000: p_token1_value => pth_rec.line_style||'/'||pth_rec.name
4001: );
4002: x_return_status := Okl_Api.G_RET_STS_ERROR;
4003: END IF;
4004:
4005: END IF;
4006: -- Bug# 4350255: end
4011: EXCEPTION
4012:
4013: WHEN OTHERS THEN
4014: -- store SQL error message on message stack
4015: Okl_Api.SET_MESSAGE(
4016: p_app_name => G_APP_NAME,
4017: p_msg_name => G_UNEXPECTED_ERROR,
4018: p_token1 => G_SQLCODE_TOKEN,
4019: p_token1_value => SQLCODE,
4020: p_token2 => G_SQLERRM_TOKEN,
4021: p_token2_value => SQLERRM);
4022: -- notify caller of an error as UNEXPETED error
4023:
4024: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
4025:
4026: END check_fee_service_ast_pth;
4027:
4028:
4039: x_return_status OUT NOCOPY VARCHAR2,
4040: p_chr_id IN NUMBER
4041: ) IS
4042:
4043: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
4044: l_dummy VARCHAR2(1) := '?';
4045: l_count NUMBER := 0;
4046: l_row_notfound BOOLEAN;
4047: l_token VARCHAR2(2000);
4074:
4075: BEGIN
4076:
4077: -- initialize return status
4078: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
4079:
4080: FOR l_hdrrl_rec IN l_hdrrl_csr ( 'LALEVL', 'LASLH', p_chr_id )
4081: LOOP
4082:
4083: OPEN strm_name_csr ( l_hdrrl_rec.object1_id1 );
4084: FETCH strm_name_csr INTO l_strm_name_rec;
4085: IF strm_name_csr%NOTFOUND THEN
4086: CLOSE strm_name_csr;
4087: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4088: END IF;
4089: CLOSE strm_name_csr;
4090:
4091: --Bug#3931587
4091: --Bug#3931587
4092: --If ( l_strm_name_rec.name = 'ADVANCED RENTALS' ) Then
4093: IF ( l_strm_name_rec.stream_type_purpose = 'ADVANCE_RENT' ) THEN
4094:
4095: Okl_Api.set_message(
4096: p_app_name => G_APP_NAME,
4097: p_msg_name => 'OKL_QA_NOSUP_ADVRENTS',
4098: p_token1 => 'line',
4099: p_token1_value => l_lne.name);
4096: p_app_name => G_APP_NAME,
4097: p_msg_name => 'OKL_QA_NOSUP_ADVRENTS',
4098: p_token1 => 'line',
4099: p_token1_value => l_lne.name);
4100: x_return_status := Okl_Api.G_RET_STS_ERROR;
4101: RETURN;
4102:
4103: END IF;
4104:
4103: END IF;
4104:
4105: END LOOP;
4106:
4107: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
4108: Okl_Api.set_message(
4109: p_app_name => G_APP_NAME,
4110: p_msg_name => G_QA_SUCCESS);
4111: END IF;
4104:
4105: END LOOP;
4106:
4107: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
4108: Okl_Api.set_message(
4109: p_app_name => G_APP_NAME,
4110: p_msg_name => G_QA_SUCCESS);
4111: END IF;
4112:
4119: CLOSE l_rl_csr1;
4120: END IF;
4121: WHEN OTHERS THEN
4122: -- store SQL error message on message stack
4123: Okl_Api.SET_MESSAGE(
4124: p_app_name => G_APP_NAME,
4125: p_msg_name => G_UNEXPECTED_ERROR,
4126: p_token1 => G_SQLCODE_TOKEN,
4127: p_token1_value => SQLCODE,
4127: p_token1_value => SQLCODE,
4128: p_token2 => G_SQLERRM_TOKEN,
4129: p_token2_value => SQLERRM);
4130: -- notify caller of an error as UNEXPETED error
4131: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
4132: -- verify that cursor was closed
4133: IF l_lne_csr%ISOPEN THEN
4134: CLOSE l_lne_csr;
4135: END IF;
4225: l_billtx_method FND_LOOKUPS.MEANING%TYPE;
4226:
4227: BEGIN
4228:
4229: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
4230:
4231: OPEN fnd_csr('OKL_STREAM_TYPE_PURPOSE','ESTIMATED_PROPERTY_TAX');
4232: FETCH fnd_csr INTO l_fnd_rec;
4233: CLOSE fnd_csr;
4239: FETCH est_head_csr INTO l_est_head;
4240: CLOSE est_head_csr;
4241:
4242: IF (l_est_head = 'Y') THEN
4243: Okl_Api.set_message(
4244: p_app_name => G_APP_NAME,
4245: p_msg_name => 'OKL_QA_EST_HEAD',
4246: p_token1 => 'PURPOSE_DESC',
4247: p_token1_value => l_fnd_meaning);
4244: p_app_name => G_APP_NAME,
4245: p_msg_name => 'OKL_QA_EST_HEAD',
4246: p_token1 => 'PURPOSE_DESC',
4247: p_token1_value => l_fnd_meaning);
4248: x_return_status := Okl_Api.G_RET_STS_ERROR;
4249: END IF;
4250: -- Fix Bug 4088346
4251:
4252: FOR l_lne_rec IN l_lne_csr('FREE_FORM1', p_chr_id)
4263: OR l_assetrl_rec.RULE_INFORMATION3 = 'ESTIMATED_AND_ACTUAL') ) THEN
4264: OPEN l_strm_asset_csr('LALEVL','LASLH','ESTIMATED_PROPERTY_TAX',p_chr_id, l_lne_rec.id);
4265: FETCH l_strm_asset_csr INTO l_strm_asset_rec;
4266: IF (l_strm_asset_csr%NOTFOUND) THEN
4267: Okl_Api.set_message(
4268: p_app_name => G_APP_NAME,
4269: p_msg_name => 'OKL_QA_EST_PROPTAX1',
4270: p_token1 => 'ASSET_NUM',
4271: p_token1_value => l_lne_rec.name,
4270: p_token1 => 'ASSET_NUM',
4271: p_token1_value => l_lne_rec.name,
4272: p_token2 => 'PURPOSE_DESC',
4273: p_token2_value => l_fnd_meaning);
4274: x_return_status := Okl_Api.G_RET_STS_ERROR;
4275: END IF;
4276: CLOSE l_strm_asset_csr;
4277: ELSIF (l_rule_not_found OR l_assetrl_rec.RULE_INFORMATION1 = 'N') THEN
4278: OPEN l_strm_asset_csr('LALEVL','LASLH','ESTIMATED_PROPERTY_TAX',p_chr_id, l_lne_rec.id);
4277: ELSIF (l_rule_not_found OR l_assetrl_rec.RULE_INFORMATION1 = 'N') THEN
4278: OPEN l_strm_asset_csr('LALEVL','LASLH','ESTIMATED_PROPERTY_TAX',p_chr_id, l_lne_rec.id);
4279: FETCH l_strm_asset_csr INTO l_strm_asset_rec;
4280: IF (l_strm_asset_csr%FOUND) THEN
4281: Okl_Api.set_message(
4282: p_app_name => G_APP_NAME,
4283: p_msg_name => 'OKL_QA_EST_PROPTAX2',
4284: p_token1 => 'ASSET_NUM',
4285: p_token1_value => l_lne_rec.name,
4284: p_token1 => 'ASSET_NUM',
4285: p_token1_value => l_lne_rec.name,
4286: p_token2 => 'PURPOSE_DESC',
4287: p_token2_value => l_fnd_meaning);
4288: x_return_status := Okl_Api.G_RET_STS_ERROR;
4289: END IF;
4290: CLOSE l_strm_asset_csr;
4291: ELSIF ( l_assetrl_rec.RULE_INFORMATION1 = 'Y'
4292: AND (l_assetrl_rec.RULE_INFORMATION3 IS NULL OR
4302: l_billtx_method := l_fnd_rec.meaning;
4303: ELSE
4304: l_billtx_method := ' ';
4305: END IF;
4306: Okl_Api.set_message(
4307: p_app_name => G_APP_NAME,
4308: p_msg_name => 'OKL_QA_EST_PROPTAX3',
4309: p_token1 => 'ASSET_NUM',
4310: p_token1_value => l_lne_rec.name,
4311: p_token2 => 'PURPOSE_DESC',
4312: p_token2_value => l_fnd_meaning,
4313: p_token3 => 'BILL_TAX',
4314: p_token3_value => l_billtx_method);
4315: x_return_status := Okl_Api.G_RET_STS_ERROR;
4316: END IF;
4317: CLOSE l_strm_asset_csr;
4318: END IF;
4319:
4322: EXCEPTION
4323:
4324: WHEN OTHERS THEN
4325: -- store SQL error message on message stack
4326: Okl_Api.SET_MESSAGE(
4327: p_app_name => G_APP_NAME,
4328: p_msg_name => G_UNEXPECTED_ERROR,
4329: p_token1 => G_SQLCODE_TOKEN,
4330: p_token1_value => SQLCODE,
4331: p_token2 => G_SQLERRM_TOKEN,
4332: p_token2_value => SQLERRM);
4333: -- notify caller of an error as UNEXPETED error
4334:
4335: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
4336:
4337: -- verify that cursor was closed
4338: IF l_lne_csr%ISOPEN THEN
4339: CLOSE l_lne_csr;
4422: l_strm_type okl_strm_type_v.name%TYPE;
4423:
4424: BEGIN
4425:
4426: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
4427: FOR hdr_stub_rec IN hdr_stub_csr (p_chr_id)
4428: LOOP
4429: IF (hdr_stub_rec.only_stub = 'Y') THEN
4430:
4437: --IF (l_strm_type <> 'UNSCHEDULED_PRINCIPAL_PAYMENT') Then
4438: -- Bug 4887014
4439: IF (l_strm_type NOT IN ( 'UNSCHEDULED_PRINCIPAL_PAYMENT',
4440: 'UNSCHEDULED_LOAN_PAYMENT' ) ) THEN
4441: Okl_Api.set_message(
4442: p_app_name => G_APP_NAME,
4443: p_msg_name => 'OKL_QA_HDR_STUB_ONLY',
4444: p_token1 => 'STREAM_TYPE',
4445: p_token1_value => l_strm_type);
4442: p_app_name => G_APP_NAME,
4443: p_msg_name => 'OKL_QA_HDR_STUB_ONLY',
4444: p_token1 => 'STREAM_TYPE',
4445: p_token1_value => l_strm_type);
4446: x_return_status := Okl_Api.G_RET_STS_ERROR;
4447: END IF;
4448: END IF;
4449:
4450: END LOOP;
4462: --IF (l_strm_type <> 'UNSCHEDULED_PRINCIPAL_PAYMENT') Then
4463: -- Bug 4887014
4464: IF (l_strm_type NOT IN ( 'UNSCHEDULED_PRINCIPAL_PAYMENT',
4465: 'UNSCHEDULED_LOAN_PAYMENT' ) ) THEN
4466: Okl_Api.set_message(
4467: p_app_name => G_APP_NAME,
4468: p_msg_name => 'OKL_QA_LINE_STUB_ONLY',
4469: p_token1 => 'LINE_TYPE',
4470: p_token1_value => line_stub_rec.name,
4469: p_token1 => 'LINE_TYPE',
4470: p_token1_value => line_stub_rec.name,
4471: p_token2 => 'STREAM_TYPE',
4472: p_token2_value => l_strm_type);
4473: x_return_status := Okl_Api.G_RET_STS_ERROR;
4474: END IF;
4475:
4476: END IF;
4477:
4480: EXCEPTION
4481:
4482: WHEN OTHERS THEN
4483: -- store SQL error message on message stack
4484: Okl_Api.SET_MESSAGE(
4485: p_app_name => G_APP_NAME,
4486: p_msg_name => G_UNEXPECTED_ERROR,
4487: p_token1 => G_SQLCODE_TOKEN,
4488: p_token1_value => SQLCODE,
4489: p_token2 => G_SQLERRM_TOKEN,
4490: p_token2_value => SQLERRM);
4491: -- notify caller of an error as UNEXPETED error
4492:
4493: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
4494:
4495: END check_stub_payment;
4496:
4497: -- Start of comments
4588: l_chk_new_chr VARCHAR2(1);
4589: --Bug# 16098797
4590:
4591: BEGIN
4592: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
4593:
4594: --Bug# 16098797
4595: l_chk_rebook_chr := OKL_LLA_UTIL_PVT.check_rebook_contract(p_chr_id => p_chr_id);
4596: l_chk_new_chr := OKL_LLA_UTIL_PVT.check_new_contract(p_chr_id => p_chr_id);
4601: FOR ib_rec IN ib_csr (serial_rec.top_id)
4602: LOOP
4603: IF (ib_rec.no_srl <> serial_rec.number_of_items) THEN
4604: --Modified by bkatraga for bug 9770391
4605: Okl_Api.set_message(
4606: G_APP_NAME,
4607: 'OKL_QA_SRL_ITEM_ERROR',
4608: 'ASSET_NUM',
4609: serial_rec.name
4607: 'OKL_QA_SRL_ITEM_ERROR',
4608: 'ASSET_NUM',
4609: serial_rec.name
4610: );
4611: x_return_status := Okl_Api.G_RET_STS_ERROR;
4612: END IF;
4613: END LOOP;
4614:
4615: --Bug# 16098797: Check Serial Number for New contracts or New assets added during online rebook
4613: END LOOP;
4614:
4615: --Bug# 16098797: Check Serial Number for New contracts or New assets added during online rebook
4616: --Bug# 16681373: Do not validate Serial Numbers for Re-lease assets on new or rebook contracts
4617: IF ((NVL(l_chk_rebook_chr,OKL_API.G_MISS_CHAR) = OKL_API.G_TRUE AND serial_rec.orig_system_id1 IS NULL)
4618: OR
4619: (NVL(l_chk_new_chr,OKL_API.G_MISS_CHAR) = OKL_API.G_TRUE)
4620: )
4621: AND (serial_rec.re_lease_yn = 'N') THEN
4615: --Bug# 16098797: Check Serial Number for New contracts or New assets added during online rebook
4616: --Bug# 16681373: Do not validate Serial Numbers for Re-lease assets on new or rebook contracts
4617: IF ((NVL(l_chk_rebook_chr,OKL_API.G_MISS_CHAR) = OKL_API.G_TRUE AND serial_rec.orig_system_id1 IS NULL)
4618: OR
4619: (NVL(l_chk_new_chr,OKL_API.G_MISS_CHAR) = OKL_API.G_TRUE)
4620: )
4621: AND (serial_rec.re_lease_yn = 'N') THEN
4622:
4623: FOR new_ib_srl_rec IN new_ib_srl_csr (serial_rec.top_id)
4627: FETCH srl_num_csr INTO l_csi_srl_number;
4628: CLOSE srl_num_csr;
4629:
4630: IF l_csi_srl_number IS NOT NULL AND l_csi_srl_number = new_ib_srl_rec.serial_number THEN
4631: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4632: p_msg_name => 'OKL_LLA_SERIAL_NUM_DUP',
4633: p_token1 => OKL_API.G_COL_NAME_TOKEN,
4634: p_token1_value => l_csi_srl_number);
4635: x_return_status := OKL_API.G_RET_STS_ERROR;
4629:
4630: IF l_csi_srl_number IS NOT NULL AND l_csi_srl_number = new_ib_srl_rec.serial_number THEN
4631: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4632: p_msg_name => 'OKL_LLA_SERIAL_NUM_DUP',
4633: p_token1 => OKL_API.G_COL_NAME_TOKEN,
4634: p_token1_value => l_csi_srl_number);
4635: x_return_status := OKL_API.G_RET_STS_ERROR;
4636: END IF;
4637: END LOOP;
4631: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4632: p_msg_name => 'OKL_LLA_SERIAL_NUM_DUP',
4633: p_token1 => OKL_API.G_COL_NAME_TOKEN,
4634: p_token1_value => l_csi_srl_number);
4635: x_return_status := OKL_API.G_RET_STS_ERROR;
4636: END IF;
4637: END LOOP;
4638:
4639: END IF;
4644:
4645: EXCEPTION
4646: WHEN OTHERS THEN
4647: -- store SQL error message on message stack
4648: Okl_Api.SET_MESSAGE(
4649: p_app_name => G_APP_NAME,
4650: p_msg_name => G_UNEXPECTED_ERROR,
4651: p_token1 => G_SQLCODE_TOKEN,
4652: p_token1_value => SQLCODE,
4653: p_token2 => G_SQLERRM_TOKEN,
4654: p_token2_value => SQLERRM);
4655: -- notify caller of an error as UNEXPETED error
4656:
4657: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
4658:
4659: END check_serial_asset;
4660:
4661:
4809:
4810:
4811: BEGIN
4812:
4813: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
4814:
4815: l_contract_start_date:= NULL;
4816: l_inv_organization_id := NULL;
4817:
4890: OPEN location_for_party_csr (l_install_location_id);
4891: FETCH location_for_party_csr INTO l_ib_location_name;
4892: CLOSE location_for_party_csr;
4893:
4894: Okl_Api.set_message(
4895: p_app_name => G_APP_NAME,
4896: p_msg_name => 'OKL_QA_IB_LOCATION_ERROR',
4897: p_token1 => 'ASSET_NUM',
4898: p_token1_value => l_asset_num,
4902: p_token3_value => l_okl_location_name,
4903: p_token4 => 'IB_INSTALL_SITE',
4904: p_token4_value => l_ib_location_name
4905: );
4906: x_return_status := Okl_Api.G_RET_STS_ERROR;
4907: END IF;
4908:
4909: ELSIF l_install_location_type_code = 'HZ_LOCATIONS' THEN
4910: l_party_site_id := NULL;
4932: OPEN location_name_csr (l_install_location_id);
4933: FETCH location_name_csr INTO l_ib_location_name;
4934: CLOSE location_name_csr;
4935:
4936: Okl_Api.set_message(
4937: p_app_name => G_APP_NAME,
4938: p_msg_name => 'OKL_QA_IB_LOCATION_ERROR',
4939: p_token1 => 'ASSET_NUM',
4940: p_token1_value => l_asset_num,
4944: p_token3_value => l_okl_location_name,
4945: p_token4 => 'IB_INSTALL_SITE',
4946: p_token4_value => l_ib_location_name
4947: );
4948: x_return_status := Okl_Api.G_RET_STS_ERROR;
4949: END IF;
4950: END IF;
4951: END IF;
4952:
5008: CLOSE header_details_csr;
5009: END IF;
5010:
5011: -- store SQL error message on message stack
5012: Okl_Api.SET_MESSAGE(
5013: p_app_name => G_APP_NAME,
5014: p_msg_name => G_UNEXPECTED_ERROR,
5015: p_token1 => G_SQLCODE_TOKEN,
5016: p_token1_value => SQLCODE,
5017: p_token2 => G_SQLERRM_TOKEN,
5018: p_token2_value => SQLERRM);
5019: -- notify caller of an error as UNEXPETED error
5020:
5021: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
5022:
5023: END check_ib_location;
5024: -- end
5025:
5058: l_loan_yn VARCHAR2(1) := 'N';
5059: l_vendor_present VARCHAR2(1) := 'N';
5060:
5061: BEGIN
5062: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
5063:
5064: l_type := 'X';
5065: l_source := 'X';
5066: OPEN con_type_csr (p_chr_id);
5077: FETCH check_vendor_csr INTO l_vendor_present;
5078: CLOSE check_vendor_csr;
5079:
5080: IF (l_vendor_present = 'N') THEN
5081: Okl_Api.set_message(
5082: p_app_name => G_APP_NAME,
5083: p_msg_name => 'OKL_QA_LESSEE_VENDOR'
5084: );
5085: x_return_status := Okl_Api.G_RET_STS_ERROR;
5081: Okl_Api.set_message(
5082: p_app_name => G_APP_NAME,
5083: p_msg_name => 'OKL_QA_LESSEE_VENDOR'
5084: );
5085: x_return_status := Okl_Api.G_RET_STS_ERROR;
5086: END IF;
5087:
5088: IF (NVL(Okl_Funding_Pvt.get_total_funded(p_chr_id), 0) <> 0) THEN
5089: Okl_Api.set_message(
5085: x_return_status := Okl_Api.G_RET_STS_ERROR;
5086: END IF;
5087:
5088: IF (NVL(Okl_Funding_Pvt.get_total_funded(p_chr_id), 0) <> 0) THEN
5089: Okl_Api.set_message(
5090: p_app_name => G_APP_NAME,
5091: p_msg_name => 'OKL_LA_OVERFUND_CHK_4RL'
5092: );
5093: x_return_status := Okl_Api.G_RET_STS_ERROR;
5089: Okl_Api.set_message(
5090: p_app_name => G_APP_NAME,
5091: p_msg_name => 'OKL_LA_OVERFUND_CHK_4RL'
5092: );
5093: x_return_status := Okl_Api.G_RET_STS_ERROR;
5094: END IF;
5095:
5096: END IF; -- loan_yn
5097:
5098: EXCEPTION
5099:
5100: WHEN OTHERS THEN
5101: -- store SQL error message on message stack
5102: Okl_Api.SET_MESSAGE(
5103: p_app_name => G_APP_NAME,
5104: p_msg_name => G_UNEXPECTED_ERROR,
5105: p_token1 => G_SQLCODE_TOKEN,
5106: p_token1_value => SQLCODE,
5107: p_token2 => G_SQLERRM_TOKEN,
5108: p_token2_value => SQLERRM);
5109: -- notify caller of an error as UNEXPETED error
5110:
5111: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
5112:
5113: END check_lessee_as_vendor;
5114: -- Start of comments
5115: --
5288:
5289:
5290: BEGIN
5291:
5292: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
5293:
5294: --l_strm_profile := 'NONE';
5295: Okl_Streams_Util.get_pricing_engine(p_khr_id => p_chr_id,
5296: x_pricing_engine => l_strm_profile,
5294: --l_strm_profile := 'NONE';
5295: Okl_Streams_Util.get_pricing_engine(p_khr_id => p_chr_id,
5296: x_pricing_engine => l_strm_profile,
5297: x_return_status => lx_return_status);
5298: IF (lx_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5299: x_return_status := lx_return_status;
5300: END IF;
5301:
5302: /*
5338: l_strm_sll_periods := TO_NUMBER(l_strm_sll.periods);
5339:
5340: IF(l_strm_sll_start_date IS NULL) THEN
5341:
5342: Okl_Api.set_message(
5343: G_APP_NAME,
5344: 'OKL_NO_SLL_SDATE'
5345: );
5346: x_return_status := Okl_Api.G_RET_STS_ERROR;
5342: Okl_Api.set_message(
5343: G_APP_NAME,
5344: 'OKL_NO_SLL_SDATE'
5345: );
5346: x_return_status := Okl_Api.G_RET_STS_ERROR;
5347:
5348: ELSE
5349: -- START: cklee/mvasudev,06-02-2005,Bug#4392051/okl. 4437938
5350: --IF (TRUNC(ADD_MONTHS(l_strm_sll_start_date, l_strm_sll_periods*l_strm_sll.mpp) - 1))
5351: IF (TRUNC(Okl_Lla_Util_Pvt.calculate_end_date(l_strm_sll_start_date, l_strm_sll_periods*l_strm_sll.mpp,l_start_day, l_end_date ))) --Bug#5441811
5352: --IF (TRUNC(Okl_Lla_Util_Pvt.calculate_end_date(l_strm_sll_start_date, l_strm_sll_periods*l_strm_sll.mpp,l_start_day)))
5353: -- END: cklee/mvasudev,06-02-2005,Bug#4392051/okl. 4437938
5354: > (TRUNC(l_end_date)) THEN
5355: Okl_Api.set_message(
5356: G_APP_NAME,
5357: 'OKL_QA_INVALID_STRM_END_DATE',
5358: 'STRM_TYPE',
5359: l_strm_sll.stream_type,
5359: l_strm_sll.stream_type,
5360: 'LINE_TYPE',
5361: l_fin_fee.line_type
5362: );
5363: x_return_status := Okl_Api.G_RET_STS_ERROR;
5364: exit;
5365: --raise payment_end_date_invalid; --5189866
5366:
5367: END IF;
5367: END IF;
5368: /* already there, check_pmnt_start_dt()
5369:
5370: IF (l_strm_sll_start_date < l_start_date) THEN
5371: OKL_API.set_message(
5372: G_APP_NAME,
5373: 'OKL_QA_INVALID_STRM_START_DATE',
5374: 'STRM_TYPE',
5375: l_strm_sll.stream_type,
5375: l_strm_sll.stream_type,
5376: 'LINE_TYPE',
5377: l_fin_fee.line_type
5378: );
5379: x_return_status := OKL_API.G_RET_STS_ERROR;
5380: END IF;
5381:
5382: */
5383: END IF;
5451: -- 5189866
5452: l_pmnt_end_date := l_pmnt_end_date - 1;
5453: IF ( TRUNC(l_pmnt_end_date) > TRUNC(l_end_date)) THEN
5454:
5455: Okl_Api.set_message(
5456: G_APP_NAME,
5457: 'OKL_QA_INVALID_STRM_END_DATE',
5458: 'STRM_TYPE',
5459: l_strm_slh_ext.stream_type,
5459: l_strm_slh_ext.stream_type,
5460: 'LINE_TYPE',
5461: l_fin_fee.line_type
5462: );
5463: x_return_status := Okl_Api.G_RET_STS_ERROR;
5464: --raise payment_end_date_invalid;
5465: exit;
5466: END IF;
5467:
5479:
5480: --5189866
5481: /*IF ( TRUNC(l_pmnt_end_date) > TRUNC(l_end_date)) THEN
5482:
5483: Okl_Api.set_message(
5484: G_APP_NAME,
5485: 'OKL_QA_INVALID_STRM_END_DATE',
5486: 'STRM_TYPE',
5487: l_strm_slh_ext.stream_type,
5487: l_strm_slh_ext.stream_type,
5488: 'LINE_TYPE',
5489: l_fin_fee.line_type
5490: );
5491: x_return_status := Okl_Api.G_RET_STS_ERROR;
5492: END IF;*/
5493:
5494: END LOOP;
5495:
5501: WHEN payment_end_date_invalid THEN -- 5189866
5502: NULL;
5503: WHEN OTHERS THEN
5504: -- store SQL error message on message stack
5505: Okl_Api.SET_MESSAGE(
5506: p_app_name => G_APP_NAME,
5507: p_msg_name => G_UNEXPECTED_ERROR,
5508: p_token1 => G_SQLCODE_TOKEN,
5509: p_token1_value => SQLCODE,
5510: p_token2 => G_SQLERRM_TOKEN,
5511: p_token2_value => SQLERRM);
5512: -- notify caller of an error as UNEXPETED error
5513:
5514: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
5515:
5516: -- verify that cursor was closed
5517: /*
5518: *IF strm_profile_csr%ISOPEN THEN
5541: x_return_status OUT NOCOPY VARCHAR2,
5542: p_chr_id IN NUMBER
5543: ) IS
5544:
5545: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5546: l_dummy VARCHAR2(1) := '?';
5547: l_count NUMBER := 0;
5548: l_row_notfound BOOLEAN;
5549: l_token VARCHAR2(2000);
5579:
5580: BEGIN
5581:
5582: -- initialize return status
5583: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5584:
5585: FOR l_lne IN l_lne_csr('FEE', p_chr_id)
5586: LOOP
5587:
5608: END LOOP;
5609:
5610: If ( n > 1 ) Then
5611:
5612: OKL_API.set_message(
5613: p_app_name => G_APP_NAME,
5614: p_msg_name => 'OKL_QA_ONLY_1PAY',
5615: p_token1 => 'line',
5616: p_token1_value => l_fee_strm_type_rec.strm_name);
5613: p_app_name => G_APP_NAME,
5614: p_msg_name => 'OKL_QA_ONLY_1PAY',
5615: p_token1 => 'line',
5616: p_token1_value => l_fee_strm_type_rec.strm_name);
5617: x_return_status := OKL_API.G_RET_STS_ERROR;
5618: RAISE G_EXCEPTION_HALT_VALIDATION;
5619:
5620: End If;
5621:
5631: OPEN strm_name_csr ( l_rl_rec1.object1_id1 );
5632: FETCH strm_name_csr into l_strm_name_rec;
5633: IF strm_name_csr%NOTFOUND THEN
5634: CLOSE strm_name_csr;
5635: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5636: END IF;
5637: CLOSE strm_name_csr;
5638:
5639: If ( l_strm_name_rec.name <> l_fee_strm_type_rec.strm_name ) Then
5637: CLOSE strm_name_csr;
5638:
5639: If ( l_strm_name_rec.name <> l_fee_strm_type_rec.strm_name ) Then
5640:
5641: OKL_API.set_message(
5642: p_app_name => G_APP_NAME,
5643: p_msg_name => 'OKL_QA_STRM_DONT_MATCH',
5644: p_token1 => 'line',
5645: p_token1_value => l_fee_strm_type_rec.strm_name);
5642: p_app_name => G_APP_NAME,
5643: p_msg_name => 'OKL_QA_STRM_DONT_MATCH',
5644: p_token1 => 'line',
5645: p_token1_value => l_fee_strm_type_rec.strm_name);
5646: x_return_status := OKL_API.G_RET_STS_ERROR;
5647: RAISE G_EXCEPTION_HALT_VALIDATION;
5648:
5649: End If;
5650:
5652:
5653: If ( ( l_fee_strm_type_rec.capitalize_yn = 'Y' ) AND
5654: ( l_outflow_defined_yn = 'Y' OR l_inflow_defined_yn = 'Y' ) ) Then
5655:
5656: OKL_API.set_message(
5657: p_app_name => G_APP_NAME,
5658: p_msg_name => 'OKL_QA_NO_FLOWS_CAPFEE',
5659: p_token1 => 'line',
5660: p_token1_value => l_fee_strm_type_rec.strm_name);
5657: p_app_name => G_APP_NAME,
5658: p_msg_name => 'OKL_QA_NO_FLOWS_CAPFEE',
5659: p_token1 => 'line',
5660: p_token1_value => l_fee_strm_type_rec.strm_name);
5661: x_return_status := OKL_API.G_RET_STS_ERROR;
5662: RAISE G_EXCEPTION_HALT_VALIDATION;
5663:
5664: End If;
5665:
5664: End If;
5665:
5666: If ( l_fee_strm_type_rec.stream_type_class <> 'EXPENSE' AND l_outflow_defined_yn = 'Y' ) Then
5667:
5668: OKL_API.set_message(
5669: p_app_name => G_APP_NAME,
5670: p_msg_name => 'OKL_QA_NO_OUTFLOWS_EXPENSE',
5671: p_token1 => 'line',
5672: p_token1_value => l_fee_strm_type_rec.strm_name);
5669: p_app_name => G_APP_NAME,
5670: p_msg_name => 'OKL_QA_NO_OUTFLOWS_EXPENSE',
5671: p_token1 => 'line',
5672: p_token1_value => l_fee_strm_type_rec.strm_name);
5673: x_return_status := OKL_API.G_RET_STS_ERROR;
5674:
5675: End If;
5676:
5677: If ( l_outflow_defined_yn = 'Y' AND l_inflow_defined_yn = 'Y' ) Then
5674:
5675: End If;
5676:
5677: If ( l_outflow_defined_yn = 'Y' AND l_inflow_defined_yn = 'Y' ) Then
5678: OKL_API.set_message(
5679: p_app_name => G_APP_NAME,
5680: p_msg_name => 'OKL_QA_NO_INOUT_FLOWS',
5681: p_token1 => 'line',
5682: p_token1_value => l_fee_strm_type_rec.strm_name);
5679: p_app_name => G_APP_NAME,
5680: p_msg_name => 'OKL_QA_NO_INOUT_FLOWS',
5681: p_token1 => 'line',
5682: p_token1_value => l_fee_strm_type_rec.strm_name);
5683: x_return_status := OKL_API.G_RET_STS_ERROR;
5684: End If;
5685:
5686: End If;
5687:
5686: End If;
5687:
5688: END LOOP;
5689:
5690: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
5691: OKL_API.set_message(
5692: p_app_name => G_APP_NAME,
5693: p_msg_name => G_QA_SUCCESS);
5694: END IF;
5687:
5688: END LOOP;
5689:
5690: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
5691: OKL_API.set_message(
5692: p_app_name => G_APP_NAME,
5693: p_msg_name => G_QA_SUCCESS);
5694: END IF;
5695:
5702: CLOSE l_rl_csr1;
5703: END IF;
5704: WHEN OTHERS THEN
5705: -- store SQL error message on message stack
5706: OKL_API.SET_MESSAGE(
5707: p_app_name => G_APP_NAME,
5708: p_msg_name => G_UNEXPECTED_ERROR,
5709: p_token1 => G_SQLCODE_TOKEN,
5710: p_token1_value => SQLCODE,
5710: p_token1_value => SQLCODE,
5711: p_token2 => G_SQLERRM_TOKEN,
5712: p_token2_value => SQLERRM);
5713: -- notify caller of an error as UNEXPETED error
5714: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5715: -- verify that cursor was closed
5716: IF l_lne_csr%ISOPEN THEN
5717: CLOSE l_lne_csr;
5718: END IF;
5829: l_mult_factor NUMBER;
5830:
5831: BEGIN
5832:
5833: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
5834:
5835: l_tot_secdep := 0;
5836: FOR fee_line_rec IN fee_line_csr (p_chr_id)
5837: LOOP
5846: -- gk added
5847: IF fee_line_rec.fee_type NOT IN ('FINANCED','ROLLOVER','CAPITALIZED') THEN
5848:
5849: IF Are_assets_associated(p_chr_id => p_chr_id, p_kle_id => fee_line_rec.ID ) = 'Y' THEN
5850: Okl_Api.set_message(
5851: p_app_name => G_APP_NAME,
5852: p_msg_name => 'OKL_QA_ASSET_CANT_ASSOC',
5853: p_token1 => 'fee_type',
5854: p_token1_value => l_fee_type,
5856: p_token2_value => fee_line_rec.name
5857:
5858: );
5859:
5860: x_return_status := Okl_Api.G_RET_STS_ERROR;
5861: END IF;
5862: END IF;
5863: -- gk added
5864:
5872: END LOOP;
5873:
5874: IF ( l_tot_pmnt > 1 ) THEN
5875:
5876: Okl_Api.set_message(
5877: p_app_name => G_APP_NAME,
5878: p_msg_name => 'OKL_QA_ONLY_1PAY',
5879: p_token1 => 'line',
5880: p_token1_value => fee_line_rec.name
5879: p_token1 => 'line',
5880: p_token1_value => fee_line_rec.name
5881: );
5882:
5883: x_return_status := Okl_Api.G_RET_STS_ERROR;
5884:
5885: END IF;
5886:
5887: --
5897: l_tot_pmnt := l_tot_pmnt + 1;
5898: END LOOP;
5899:
5900: IF (l_tot_pmnt = 0) THEN
5901: Okl_Api.set_message(
5902: p_app_name => G_APP_NAME,
5903: p_msg_name => 'OKL_QA_NO_PMNT',
5904: p_token1 => 'FEE_TYPE',
5905: p_token1_value => l_fee_type,
5906: p_token2 => 'STRM_TYPE',
5907: p_token2_value => fee_line_rec.name
5908: );
5909:
5910: x_return_status := Okl_Api.G_RET_STS_ERROR;
5911: END IF;
5912:
5913: END IF; -- check 2
5914:
5935: l_exp_freq := l_rl_rec1.object1_id1;
5936: END LOOP;
5937:
5938: IF (l_exp_present <> 'Y') THEN
5939: Okl_Api.set_message(
5940: p_app_name => G_APP_NAME,
5941: p_msg_name => 'OKL_QA_NO_EXP',
5942: p_token1 => 'FEE_TYPE',
5943: p_token1_value => l_fee_type,
5944: p_token2 => 'STRM_TYPE',
5945: p_token2_value => fee_line_rec.name
5946: );
5947:
5948: x_return_status := Okl_Api.G_RET_STS_ERROR;
5949:
5950: ELSE
5951:
5952: --
5963: l_mult_factor := 12;
5964: END IF;
5965:
5966: IF (TRUNC(fee_line_rec.end_date) < (TRUNC(ADD_MONTHS(fee_line_rec.start_date, l_exp_period * l_mult_factor)-1))) THEN
5967: Okl_Api.set_message(
5968: G_APP_NAME,
5969: 'OKL_QA_RECUR_PERIOD',
5970: 'STRM_TYPE',
5971: fee_line_rec.name
5969: 'OKL_QA_RECUR_PERIOD',
5970: 'STRM_TYPE',
5971: fee_line_rec.name
5972: );
5973: x_return_status := Okl_Api.G_RET_STS_ERROR;
5974: END IF;
5975:
5976: l_exp_amount := l_exp_amount * l_exp_period;
5977: --l_exp_amount := l_exp_amount * l_exp_period * l_mult_factor;
5976: l_exp_amount := l_exp_amount * l_exp_period;
5977: --l_exp_amount := l_exp_amount * l_exp_period * l_mult_factor;
5978:
5979: IF (fee_line_rec.amount <> l_exp_amount) THEN
5980: Okl_Api.set_message(
5981: G_APP_NAME,
5982: 'OKL_QA_EXP_AMT_MISMATCH',
5983: 'FEE_TYPE',
5984: l_fee_type,
5984: l_fee_type,
5985: 'STRM_TYPE',
5986: fee_line_rec.name
5987: );
5988: x_return_status := Okl_Api.G_RET_STS_ERROR;
5989: END IF;
5990:
5991: END IF; -- expense
5992:
6006: l_pth_present := 'Y';
6007: END LOOP;
6008:
6009: IF (l_pth_present <> 'Y') THEN
6010: Okl_Api.set_message(
6011: p_app_name => G_APP_NAME,
6012: p_msg_name => 'OKL_QA_NO_PTH',
6013: p_token1 => 'STRM_TYPE',
6014: p_token1_value => fee_line_rec.name
6013: p_token1 => 'STRM_TYPE',
6014: p_token1_value => fee_line_rec.name
6015: );
6016:
6017: x_return_status := Okl_Api.G_RET_STS_ERROR;
6018: END IF;
6019:
6020: END IF; -- check 4
6021:
6029: --
6030: -- 6. No GENERAL Fee type should be there on a contract
6031: --
6032: IF (fee_line_rec.fee_type = 'GENERAL') THEN
6033: Okl_Api.set_message(
6034: p_app_name => G_APP_NAME,
6035: p_msg_name => 'OKL_QA_GEN_NOTALLOW'
6036: );
6037:
6034: p_app_name => G_APP_NAME,
6035: p_msg_name => 'OKL_QA_GEN_NOTALLOW'
6036: );
6037:
6038: x_return_status := Okl_Api.G_RET_STS_ERROR;
6039: --GOTO check_next_line;
6040: END IF;
6041:
6042: --
6058:
6059: IF (fee_line_rec.fee_type = 'SECDEPOSIT'
6060: AND
6061: l_rl_rec1.rule_information7 IS NOT NULL) THEN
6062: Okl_Api.set_message(
6063: G_APP_NAME,
6064: 'OKL_QA_SECR_STUB',
6065: 'STRM_TYPE',
6066: fee_line_rec.name
6064: 'OKL_QA_SECR_STUB',
6065: 'STRM_TYPE',
6066: fee_line_rec.name
6067: );
6068: x_return_status := Okl_Api.G_RET_STS_ERROR;
6069: END IF;
6070: END LOOP;
6071:
6072: IF (l_pmnt_amount <> fee_line_rec.amount) THEN
6069: END IF;
6070: END LOOP;
6071:
6072: IF (l_pmnt_amount <> fee_line_rec.amount) THEN
6073: Okl_Api.set_message(
6074: G_APP_NAME,
6075: 'OKL_QA_SECR_PAYMENT',
6076: 'FEE_TYPE',
6077: l_fee_type,
6077: l_fee_type,
6078: 'STRM_TYPE',
6079: fee_line_rec.name
6080: );
6081: x_return_status := Okl_Api.G_RET_STS_ERROR;
6082: END IF;
6083:
6084: END IF; --7
6085:
6086: END LOOP; -- fee_line_csr
6087:
6088: -- check 5 cont.
6089: IF (l_tot_secdep > 1) THEN
6090: Okl_Api.set_message(
6091: p_app_name => G_APP_NAME,
6092: p_msg_name => 'OKL_QA_SECDEP_MORE1'
6093: );
6094:
6091: p_app_name => G_APP_NAME,
6092: p_msg_name => 'OKL_QA_SECDEP_MORE1'
6093: );
6094:
6095: x_return_status := Okl_Api.G_RET_STS_ERROR;
6096: END IF;
6097:
6098: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
6099: Okl_Api.set_message(
6094:
6095: x_return_status := Okl_Api.G_RET_STS_ERROR;
6096: END IF;
6097:
6098: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
6099: Okl_Api.set_message(
6100: p_app_name => G_APP_NAME,
6101: p_msg_name => G_QA_SUCCESS);
6102: END IF;
6095: x_return_status := Okl_Api.G_RET_STS_ERROR;
6096: END IF;
6097:
6098: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
6099: Okl_Api.set_message(
6100: p_app_name => G_APP_NAME,
6101: p_msg_name => G_QA_SUCCESS);
6102: END IF;
6103:
6128: x_return_status OUT NOCOPY VARCHAR2,
6129: p_chr_id IN NUMBER) IS
6130:
6131:
6132: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
6133: l_api_version CONSTANT NUMBER := 1.0;
6134: l_init_msg_list VARCHAR2(1) DEFAULT Okc_Api.G_FALSE;
6135: l_msg_count NUMBER;
6136: l_msg_data VARCHAR2(1000);
6275: l_top_ln_pmt_exist BOOLEAN := FALSE;
6276: l_rq_sln_fee_amt_chk BOOLEAN := FALSE; -- If there are sub-lines payments exists.
6277:
6278: BEGIN
6279: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
6280:
6281: -- OPEN l_rq_top_fee_ln_csr ( chrID => p_chr_id );
6282: FOR l_rq_top_fee_ln IN l_rq_top_fee_ln_csr ( chrID => p_chr_id )
6283: LOOP
6305: p_qte_id => l_rq_top_fee_ln.qte_id,
6306: p_for_qa_check => TRUE);
6307:
6308: -- dedey 01/21/05 Bug 4134571
6309: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6310: x_return_status := Okl_Api.G_RET_STS_ERROR;
6311: END IF;
6312:
6313: /* Check Payments for the top fee line if they exist. If there are multiple
6306: p_for_qa_check => TRUE);
6307:
6308: -- dedey 01/21/05 Bug 4134571
6309: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6310: x_return_status := Okl_Api.G_RET_STS_ERROR;
6311: END IF;
6312:
6313: /* Check Payments for the top fee line if they exist. If there are multiple
6314: payments for the top line error out.
6324: IF (l_payment_top_ln_cnt > 1) THEN
6325: OPEN l_qte_number_csr(qteID => l_rq_top_fee_ln.qte_id);
6326: FETCH l_qte_number_csr INTO l_qte_num;
6327: CLOSE l_qte_number_csr;
6328: x_return_status := OKL_API.G_RET_STS_ERROR;
6329: OKL_API.set_message(
6330: p_app_name => G_APP_NAME,
6331: p_msg_name => 'OKL_QA_RQ_MLTP_PMTS_TOP_LN',
6332: p_token1 => 'quoteNum',
6325: OPEN l_qte_number_csr(qteID => l_rq_top_fee_ln.qte_id);
6326: FETCH l_qte_number_csr INTO l_qte_num;
6327: CLOSE l_qte_number_csr;
6328: x_return_status := OKL_API.G_RET_STS_ERROR;
6329: OKL_API.set_message(
6330: p_app_name => G_APP_NAME,
6331: p_msg_name => 'OKL_QA_RQ_MLTP_PMTS_TOP_LN',
6332: p_token1 => 'quoteNum',
6333: p_token1_value => l_qte_num);
6347: IF ( l_rq_dup_trm_qt_cnt > 1 ) THEN
6348: OPEN l_qte_number_csr(qteID => l_rq_top_fee_ln.qte_id);
6349: FETCH l_qte_number_csr INTO l_qte_num;
6350: CLOSE l_qte_number_csr;
6351: x_return_status := Okl_Api.G_RET_STS_ERROR;
6352: Okl_Api.set_message(
6353: p_app_name => G_APP_NAME,
6354: p_msg_name => 'OKL_QA_DUP_TERM_QUOTE');
6355: END IF;
6348: OPEN l_qte_number_csr(qteID => l_rq_top_fee_ln.qte_id);
6349: FETCH l_qte_number_csr INTO l_qte_num;
6350: CLOSE l_qte_number_csr;
6351: x_return_status := Okl_Api.G_RET_STS_ERROR;
6352: Okl_Api.set_message(
6353: p_app_name => G_APP_NAME,
6354: p_msg_name => 'OKL_QA_DUP_TERM_QUOTE');
6355: END IF;
6356: END IF;
6382:
6383: FOR l_rq_fee_pmtH IN l_rq_fee_pmtH_csr ( chrID => p_chr_id, feeLine => l_rq_sub_ln_fee.id )
6384: LOOP
6385: IF (l_top_ln_pmt_exist) THEN
6386: x_return_status := Okl_Api.G_RET_STS_ERROR;
6387: Okl_Api.set_message(
6388: p_app_name => G_APP_NAME,
6389: p_msg_name => 'OKL_QA_RQ_PMTS_TOP_SUB_EXIST',
6390: p_token1 => 'QUOTE_NUMBER',
6383: FOR l_rq_fee_pmtH IN l_rq_fee_pmtH_csr ( chrID => p_chr_id, feeLine => l_rq_sub_ln_fee.id )
6384: LOOP
6385: IF (l_top_ln_pmt_exist) THEN
6386: x_return_status := Okl_Api.G_RET_STS_ERROR;
6387: Okl_Api.set_message(
6388: p_app_name => G_APP_NAME,
6389: p_msg_name => 'OKL_QA_RQ_PMTS_TOP_SUB_EXIST',
6390: p_token1 => 'QUOTE_NUMBER',
6391: p_token1_value => l_qte_num);
6409: /* Check if the there are multiple payments for the rollover quote
6410: fee sub-line, if so error out.
6411:
6412: IF (l_pmt_dup_sub_ln_cnt > 1) THEN
6413: x_return_status := OKL_API.G_RET_STS_ERROR;
6414: OKL_API.set_message(
6415: p_app_name => G_APP_NAME,
6416: p_msg_name => 'OKL_QA_RQ_MLTP_PMTS_SLN',
6417: p_token1 => 'quoteNum',
6410: fee sub-line, if so error out.
6411:
6412: IF (l_pmt_dup_sub_ln_cnt > 1) THEN
6413: x_return_status := OKL_API.G_RET_STS_ERROR;
6414: OKL_API.set_message(
6415: p_app_name => G_APP_NAME,
6416: p_msg_name => 'OKL_QA_RQ_MLTP_PMTS_SLN',
6417: p_token1 => 'quoteNum',
6418: p_token1_value => l_qte_num);
6427: /* Check if the payment end date is within in the rollover quote
6428: fee sub-line's end date, if not error out. */
6429:
6430: IF ( TRUNC(l_rq_fee_pmt.end_date) > TRUNC(l_rq_sub_ln_fee.end_date) ) THEN
6431: x_return_status := Okl_Api.G_RET_STS_ERROR;
6432: Okl_Api.set_message(
6433: p_app_name => G_APP_NAME,
6434: p_msg_name => 'OKL_QA_RQ_SLN_PMT_ED',
6435: p_token1 => 'QUOTE_NUMBER',
6428: fee sub-line's end date, if not error out. */
6429:
6430: IF ( TRUNC(l_rq_fee_pmt.end_date) > TRUNC(l_rq_sub_ln_fee.end_date) ) THEN
6431: x_return_status := Okl_Api.G_RET_STS_ERROR;
6432: Okl_Api.set_message(
6433: p_app_name => G_APP_NAME,
6434: p_msg_name => 'OKL_QA_RQ_SLN_PMT_ED',
6435: p_token1 => 'QUOTE_NUMBER',
6436: p_token1_value => l_qte_num);
6443: /* Check if a rollover top line fee amount is not equal to sub-line fee amount,
6444: if exists, if not error out. */
6445:
6446: IF ( (l_rq_sln_fee_amt_chk) AND (l_rq_top_ln_fee_amt <> l_rq_sub_ln_fee_amt) ) THEN
6447: x_return_status := Okl_Api.G_RET_STS_ERROR;
6448: Okl_Api.set_message(
6449: p_app_name => G_APP_NAME,
6450: p_msg_name => 'OKL_QA_RQ_FEE_AMT_NEQ',
6451: p_token1 => 'QUOTE_NUMBER',
6444: if exists, if not error out. */
6445:
6446: IF ( (l_rq_sln_fee_amt_chk) AND (l_rq_top_ln_fee_amt <> l_rq_sub_ln_fee_amt) ) THEN
6447: x_return_status := Okl_Api.G_RET_STS_ERROR;
6448: Okl_Api.set_message(
6449: p_app_name => G_APP_NAME,
6450: p_msg_name => 'OKL_QA_RQ_FEE_AMT_NEQ',
6451: p_token1 => 'QUOTE_NUMBER',
6452: p_token1_value => l_qte_num);
6456:
6457: /* If no payments are defiend for the fee line then error out. */
6458:
6459: IF ((NOT l_top_ln_pmt_exist) AND (NOT l_rq_sln_fee_amt_chk)) THEN
6460: x_return_status := Okl_Api.G_RET_STS_ERROR;
6461: Okl_Api.set_message(
6462: p_app_name => G_APP_NAME,
6463: p_msg_name => 'OKL_QA_RQ_NO_PMTS',
6464: p_token1 => 'FEE_LINE',
6457: /* If no payments are defiend for the fee line then error out. */
6458:
6459: IF ((NOT l_top_ln_pmt_exist) AND (NOT l_rq_sln_fee_amt_chk)) THEN
6460: x_return_status := Okl_Api.G_RET_STS_ERROR;
6461: Okl_Api.set_message(
6462: p_app_name => G_APP_NAME,
6463: p_msg_name => 'OKL_QA_RQ_NO_PMTS',
6464: p_token1 => 'FEE_LINE',
6465: p_token1_value => l_top_fee_ln_name);
6471: if not error out. If there are multiple payments defiend for a rollover quote
6472: fee sub-line HEADER error out. */
6473:
6474: IF ((NOT l_top_ln_pmt_exist) AND (l_rq_sub_ln_fee_cnt > l_payment_sub_ln_cnt)) THEN
6475: x_return_status := Okl_Api.G_RET_STS_ERROR;
6476: Okl_Api.set_message(
6477: p_app_name => G_APP_NAME,
6478: p_msg_name => 'OKL_QA_RQ_PMTS_MISS_SLN',
6479: p_token1 => 'QUOTE_NUMBER',
6472: fee sub-line HEADER error out. */
6473:
6474: IF ((NOT l_top_ln_pmt_exist) AND (l_rq_sub_ln_fee_cnt > l_payment_sub_ln_cnt)) THEN
6475: x_return_status := Okl_Api.G_RET_STS_ERROR;
6476: Okl_Api.set_message(
6477: p_app_name => G_APP_NAME,
6478: p_msg_name => 'OKL_QA_RQ_PMTS_MISS_SLN',
6479: p_token1 => 'QUOTE_NUMBER',
6480: p_token1_value => l_qte_num);
6478: p_msg_name => 'OKL_QA_RQ_PMTS_MISS_SLN',
6479: p_token1 => 'QUOTE_NUMBER',
6480: p_token1_value => l_qte_num);
6481: ELSIF ((NOT l_top_ln_pmt_exist) AND (l_rq_sub_ln_fee_cnt < l_payment_sub_ln_cnt)) THEN
6482: x_return_status := Okl_Api.G_RET_STS_ERROR;
6483: Okl_Api.set_message(
6484: p_app_name => G_APP_NAME,
6485: p_msg_name => 'OKL_QA_RQ_MUL_SLN_PMTS',
6486: p_token1 => 'QUOTE_NUMBER',
6479: p_token1 => 'QUOTE_NUMBER',
6480: p_token1_value => l_qte_num);
6481: ELSIF ((NOT l_top_ln_pmt_exist) AND (l_rq_sub_ln_fee_cnt < l_payment_sub_ln_cnt)) THEN
6482: x_return_status := Okl_Api.G_RET_STS_ERROR;
6483: Okl_Api.set_message(
6484: p_app_name => G_APP_NAME,
6485: p_msg_name => 'OKL_QA_RQ_MUL_SLN_PMTS',
6486: p_token1 => 'QUOTE_NUMBER',
6487: p_token1_value => l_qte_num);
6499: --TURN_ON_THE_FUNC_CONSTRAINTS;
6500:
6501: EXCEPTION
6502:
6503: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
6504: x_return_status := Okl_Api.G_RET_STS_ERROR;
6505:
6506: IF l_rq_top_fee_ln_csr%ISOPEN THEN
6507: CLOSE l_rq_top_fee_ln_csr;
6500:
6501: EXCEPTION
6502:
6503: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
6504: x_return_status := Okl_Api.G_RET_STS_ERROR;
6505:
6506: IF l_rq_top_fee_ln_csr%ISOPEN THEN
6507: CLOSE l_rq_top_fee_ln_csr;
6508: END IF;
6522: IF l_rq_fee_pmt_csr%ISOPEN THEN
6523: CLOSE l_rq_fee_pmt_csr;
6524: END IF;
6525:
6526: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6527: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
6528:
6529: IF l_rq_top_fee_ln_csr%ISOPEN THEN
6530: CLOSE l_rq_top_fee_ln_csr;
6523: CLOSE l_rq_fee_pmt_csr;
6524: END IF;
6525:
6526: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6527: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
6528:
6529: IF l_rq_top_fee_ln_csr%ISOPEN THEN
6530: CLOSE l_rq_top_fee_ln_csr;
6531: END IF;
6546: CLOSE l_rq_fee_pmt_csr;
6547: END IF;
6548:
6549: WHEN OTHERS THEN
6550: x_return_status := Okl_Api.G_RET_STS_ERROR;
6551:
6552: IF l_rq_top_fee_ln_csr%ISOPEN THEN
6553: CLOSE l_rq_top_fee_ln_csr;
6554: END IF;
6570: END IF;
6571:
6572: /*
6573:
6574: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6575: p_api_name => l_api_name,
6576: p_pkg_name => g_pkg_name,
6577: p_exc_name => 'OTHERS',
6578: x_msg_count => l_msg_count,
6599: x_return_status OUT NOCOPY VARCHAR2,
6600: p_chr_id IN NUMBER) IS
6601:
6602:
6603: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
6604: l_api_version CONSTANT NUMBER := 1.0;
6605: l_init_msg_list VARCHAR2(1) DEFAULT Okc_Api.G_FALSE;
6606: l_msg_count NUMBER;
6607: l_msg_data VARCHAR2(1000);
6712: l_top_ln_pmt_exist BOOLEAN := FALSE;
6713: l_fn_sln_fee_amt_chk BOOLEAN := FALSE; -- If there are sub-lines payments exists.
6714:
6715: BEGIN
6716: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
6717:
6718: FOR l_fn_top_fee_ln IN l_fn_top_fee_ln_csr ( chrID => p_chr_id )
6719: LOOP
6720:
6748:
6749: FOR l_fn_fee_pmtH IN l_fn_fee_pmtH_csr ( chrID => p_chr_id, feeLine => l_fn_sub_ln_fee.id )
6750: LOOP
6751: IF (l_top_ln_pmt_exist) THEN
6752: x_return_status := Okl_Api.G_RET_STS_ERROR;
6753: Okl_Api.set_message(
6754: p_app_name => G_APP_NAME,
6755: p_msg_name => 'OKL_QA_FN_PMTS_TOP_SUB_EXIST',
6756: p_token1 => 'FEE_LINE',
6749: FOR l_fn_fee_pmtH IN l_fn_fee_pmtH_csr ( chrID => p_chr_id, feeLine => l_fn_sub_ln_fee.id )
6750: LOOP
6751: IF (l_top_ln_pmt_exist) THEN
6752: x_return_status := Okl_Api.G_RET_STS_ERROR;
6753: Okl_Api.set_message(
6754: p_app_name => G_APP_NAME,
6755: p_msg_name => 'OKL_QA_FN_PMTS_TOP_SUB_EXIST',
6756: p_token1 => 'FEE_LINE',
6757: p_token1_value => l_top_fee_ln_name);
6769: -- added for bug 5115701 - start
6770:
6771: IF ( TRUNC(l_fn_fee_pmt.start_date) < TRUNC(l_fn_sub_ln_fee.start_date) ) THEN
6772:
6773: x_return_status := Okl_Api.G_RET_STS_ERROR;
6774: Okl_Api.set_message(
6775: p_app_name => G_APP_NAME,
6776: p_msg_name => 'OKL_QA_FN_SLN_PMT_SD',
6777: p_token1 => 'FEE_LINE',
6770:
6771: IF ( TRUNC(l_fn_fee_pmt.start_date) < TRUNC(l_fn_sub_ln_fee.start_date) ) THEN
6772:
6773: x_return_status := Okl_Api.G_RET_STS_ERROR;
6774: Okl_Api.set_message(
6775: p_app_name => G_APP_NAME,
6776: p_msg_name => 'OKL_QA_FN_SLN_PMT_SD',
6777: p_token1 => 'FEE_LINE',
6778: p_token1_value => l_top_fee_ln_name);
6780:
6781: -- added for bug 5115701 - end
6782:
6783: IF ( TRUNC(l_fn_fee_pmt.end_date) > TRUNC(l_fn_sub_ln_fee.end_date) ) THEN
6784: x_return_status := Okl_Api.G_RET_STS_ERROR;
6785: Okl_Api.set_message(
6786: p_app_name => G_APP_NAME,
6787: p_msg_name => 'OKL_QA_FN_SLN_PMT_ED',
6788: p_token1 => 'FEE_LINE',
6781: -- added for bug 5115701 - end
6782:
6783: IF ( TRUNC(l_fn_fee_pmt.end_date) > TRUNC(l_fn_sub_ln_fee.end_date) ) THEN
6784: x_return_status := Okl_Api.G_RET_STS_ERROR;
6785: Okl_Api.set_message(
6786: p_app_name => G_APP_NAME,
6787: p_msg_name => 'OKL_QA_FN_SLN_PMT_ED',
6788: p_token1 => 'FEE_LINE',
6789: p_token1_value => l_top_fee_ln_name);
6795: /* Check if a financed top line fee amount is not equal to sub-line fee amount,
6796: if exists, if not error out. */
6797:
6798: IF ( (l_fn_sln_fee_amt_chk) AND (l_fn_top_ln_fee_amt <> l_fn_sub_ln_fee_amt) ) THEN
6799: x_return_status := Okl_Api.G_RET_STS_ERROR;
6800: Okl_Api.set_message(
6801: p_app_name => G_APP_NAME,
6802: p_msg_name => 'OKL_QA_FN_FEE_AMT_NEQ',
6803: p_token1 => 'FEE_LINE',
6796: if exists, if not error out. */
6797:
6798: IF ( (l_fn_sln_fee_amt_chk) AND (l_fn_top_ln_fee_amt <> l_fn_sub_ln_fee_amt) ) THEN
6799: x_return_status := Okl_Api.G_RET_STS_ERROR;
6800: Okl_Api.set_message(
6801: p_app_name => G_APP_NAME,
6802: p_msg_name => 'OKL_QA_FN_FEE_AMT_NEQ',
6803: p_token1 => 'FEE_LINE',
6804: p_token1_value => l_top_fee_ln_name);
6808:
6809: /* If no payments are defiend for the fee line then error out. */
6810:
6811: IF ((NOT l_top_ln_pmt_exist) AND (NOT l_fn_sln_fee_amt_chk)) THEN
6812: x_return_status := Okl_Api.G_RET_STS_ERROR;
6813: Okl_Api.set_message(
6814: p_app_name => G_APP_NAME,
6815: p_msg_name => 'OKL_QA_RQ_NO_PMTS',
6816: p_token1 => 'FEE_LINE',
6809: /* If no payments are defiend for the fee line then error out. */
6810:
6811: IF ((NOT l_top_ln_pmt_exist) AND (NOT l_fn_sln_fee_amt_chk)) THEN
6812: x_return_status := Okl_Api.G_RET_STS_ERROR;
6813: Okl_Api.set_message(
6814: p_app_name => G_APP_NAME,
6815: p_msg_name => 'OKL_QA_RQ_NO_PMTS',
6816: p_token1 => 'FEE_LINE',
6817: p_token1_value => l_top_fee_ln_name);
6823: if not error out. If there are multiple payments defiend for a financed
6824: fee sub-line HEADER error out. */
6825:
6826: IF ((NOT l_top_ln_pmt_exist) AND (l_fn_sub_ln_fee_cnt > l_payment_sub_ln_cnt)) THEN
6827: x_return_status := Okl_Api.G_RET_STS_ERROR;
6828: Okl_Api.set_message(
6829: p_app_name => G_APP_NAME,
6830: p_msg_name => 'OKL_QA_FN_PMTS_MISS_SLN',
6831: p_token1 => 'FEE_LINE',
6824: fee sub-line HEADER error out. */
6825:
6826: IF ((NOT l_top_ln_pmt_exist) AND (l_fn_sub_ln_fee_cnt > l_payment_sub_ln_cnt)) THEN
6827: x_return_status := Okl_Api.G_RET_STS_ERROR;
6828: Okl_Api.set_message(
6829: p_app_name => G_APP_NAME,
6830: p_msg_name => 'OKL_QA_FN_PMTS_MISS_SLN',
6831: p_token1 => 'FEE_LINE',
6832: p_token1_value => l_top_fee_ln_name);
6830: p_msg_name => 'OKL_QA_FN_PMTS_MISS_SLN',
6831: p_token1 => 'FEE_LINE',
6832: p_token1_value => l_top_fee_ln_name);
6833: ELSIF ((NOT l_top_ln_pmt_exist) AND (l_fn_sub_ln_fee_cnt < l_payment_sub_ln_cnt)) THEN
6834: x_return_status := Okl_Api.G_RET_STS_ERROR;
6835: Okl_Api.set_message(
6836: p_app_name => G_APP_NAME,
6837: p_msg_name => 'OKL_QA_FN_MUL_SLN_PMTS',
6838: p_token1 => 'FEE_LINE',
6831: p_token1 => 'FEE_LINE',
6832: p_token1_value => l_top_fee_ln_name);
6833: ELSIF ((NOT l_top_ln_pmt_exist) AND (l_fn_sub_ln_fee_cnt < l_payment_sub_ln_cnt)) THEN
6834: x_return_status := Okl_Api.G_RET_STS_ERROR;
6835: Okl_Api.set_message(
6836: p_app_name => G_APP_NAME,
6837: p_msg_name => 'OKL_QA_FN_MUL_SLN_PMTS',
6838: p_token1 => 'FEE_LINE',
6839: p_token1_value => l_top_fee_ln_name);
6849: END LOOP;
6850:
6851: EXCEPTION
6852:
6853: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
6854: x_return_status := Okl_Api.G_RET_STS_ERROR;
6855:
6856: IF l_fn_top_fee_ln_csr%ISOPEN THEN
6857: CLOSE l_fn_top_fee_ln_csr;
6850:
6851: EXCEPTION
6852:
6853: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
6854: x_return_status := Okl_Api.G_RET_STS_ERROR;
6855:
6856: IF l_fn_top_fee_ln_csr%ISOPEN THEN
6857: CLOSE l_fn_top_fee_ln_csr;
6858: END IF;
6864: IF l_fn_fee_pmt_csr%ISOPEN THEN
6865: CLOSE l_fn_fee_pmt_csr;
6866: END IF;
6867:
6868: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6869: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
6870:
6871: IF l_fn_top_fee_ln_csr%ISOPEN THEN
6872: CLOSE l_fn_top_fee_ln_csr;
6865: CLOSE l_fn_fee_pmt_csr;
6866: END IF;
6867:
6868: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6869: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
6870:
6871: IF l_fn_top_fee_ln_csr%ISOPEN THEN
6872: CLOSE l_fn_top_fee_ln_csr;
6873: END IF;
6880: CLOSE l_fn_fee_pmt_csr;
6881: END IF;
6882:
6883: WHEN OTHERS THEN
6884: x_return_status := Okl_Api.G_RET_STS_ERROR;
6885:
6886: IF l_fn_top_fee_ln_csr%ISOPEN THEN
6887: CLOSE l_fn_top_fee_ln_csr;
6888: END IF;
6915: x_return_status OUT NOCOPY VARCHAR2,
6916: p_chr_id IN NUMBER) IS
6917:
6918: --p_api_version VARCHAR2(4000) := '1.0';
6919: p_init_msg_list VARCHAR2(4000) DEFAULT Okl_Api.G_FALSE;
6920:
6921: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
6922: l_in_future BOOLEAN := FALSE;
6923: l_found VARCHAR2(1);
6917:
6918: --p_api_version VARCHAR2(4000) := '1.0';
6919: p_init_msg_list VARCHAR2(4000) DEFAULT Okl_Api.G_FALSE;
6920:
6921: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
6922: l_in_future BOOLEAN := FALSE;
6923: l_found VARCHAR2(1);
6924: x_msg_count NUMBER;
6925: x_msg_data VARCHAR2(256);
6943: WHERE okcsts.code = cleb.sts_code
6944: AND okcsts.ste_code IN ('EXPIRED','HOLD','CANCELLED','TERMINATED', 'ABANDONED'));
6945:
6946: BEGIN
6947: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
6948:
6949: /* Check if the if the contract has a rollover fee and it's start date
6950: is not in the future date (less than or equal sysdate). */
6951:
6954: l_in_future := l_k_std_csr%FOUND; -- IN future
6955: CLOSE l_k_std_csr;
6956:
6957: IF( l_in_future ) THEN -- Contract Start date in future
6958: x_return_status := Okl_Api.G_RET_STS_ERROR;
6959: l_in_future := NULL;
6960: l_found := NULL;
6961: Okl_Api.set_message(
6962: p_app_name => G_APP_NAME,
6957: IF( l_in_future ) THEN -- Contract Start date in future
6958: x_return_status := Okl_Api.G_RET_STS_ERROR;
6959: l_in_future := NULL;
6960: l_found := NULL;
6961: Okl_Api.set_message(
6962: p_app_name => G_APP_NAME,
6963: p_msg_name => 'OKL_LLA_RQ_SD_IN_FUTURE');
6964: RAISE Okl_Api.G_EXCEPTION_ERROR;
6965: END IF;
6960: l_found := NULL;
6961: Okl_Api.set_message(
6962: p_app_name => G_APP_NAME,
6963: p_msg_name => 'OKL_LLA_RQ_SD_IN_FUTURE');
6964: RAISE Okl_Api.G_EXCEPTION_ERROR;
6965: END IF;
6966:
6967: EXCEPTION
6968:
6965: END IF;
6966:
6967: EXCEPTION
6968:
6969: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
6970: x_return_status := Okl_Api.G_RET_STS_ERROR;
6971:
6972: IF l_k_std_csr%ISOPEN THEN
6973: CLOSE l_k_std_csr;
6966:
6967: EXCEPTION
6968:
6969: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
6970: x_return_status := Okl_Api.G_RET_STS_ERROR;
6971:
6972: IF l_k_std_csr%ISOPEN THEN
6973: CLOSE l_k_std_csr;
6974: END IF;
6981: END IF;
6982:
6983: WHEN OTHERS THEN
6984: -- store SQL error message on message stack
6985: Okl_Api.SET_MESSAGE(
6986: p_app_name => G_APP_NAME,
6987: p_msg_name => G_UNEXPECTED_ERROR,
6988: p_token1 => G_SQLCODE_TOKEN,
6989: p_token1_value => SQLCODE,
6993: IF l_k_std_csr%ISOPEN THEN
6994: CLOSE l_k_std_csr;
6995: END IF;
6996:
6997: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
6998:
6999: END check_rollover_lines;
7000:
7001: -- Start of comments
7012: x_return_status OUT NOCOPY VARCHAR2,
7013: p_chr_id IN NUMBER
7014: ) IS
7015:
7016: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
7017:
7018: CURSOR l_lne_pmnt_csr(chrid OKL_K_HEADERS.KHR_ID%TYPE) IS
7019: SELECT ls.lty_code,
7020: ls.name line_type,
7054:
7055: BEGIN
7056:
7057: -- initialize return status
7058: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
7059:
7060: -- check for header payment
7061: FOR l_hdr_pmnt_rec IN l_hdr_pmnt_csr (p_chr_id)
7062: LOOP
7069: OPEN strm_name_csr ( TO_NUMBER(l_hdr_pmnt_rec.object1_id1) );
7070: FETCH strm_name_csr INTO l_strm_name_rec;
7071: IF strm_name_csr%NOTFOUND THEN
7072: CLOSE strm_name_csr;
7073: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
7074: END IF;
7075: CLOSE strm_name_csr;
7076:
7077: Okl_Api.set_message(
7073: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
7074: END IF;
7075: CLOSE strm_name_csr;
7076:
7077: Okl_Api.set_message(
7078: p_app_name => G_APP_NAME,
7079: p_msg_name => 'LLA_QA_HDRPMNT_STRMTMPL',
7080: p_token1 => 'STRM_NAME',
7081: p_token1_value => l_strm_name_rec.name
7079: p_msg_name => 'LLA_QA_HDRPMNT_STRMTMPL',
7080: p_token1 => 'STRM_NAME',
7081: p_token1_value => l_strm_name_rec.name
7082: );
7083: x_return_status := Okl_Api.G_RET_STS_ERROR;
7084: END IF;
7085:
7086: END LOOP;
7087:
7102: OPEN strm_name_csr ( TO_NUMBER(l_rl_rec1.object1_id1) );
7103: FETCH strm_name_csr INTO l_strm_name_rec;
7104: IF strm_name_csr%NOTFOUND THEN
7105: CLOSE strm_name_csr;
7106: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
7107: END IF;
7108: CLOSE strm_name_csr;
7109:
7110: Okl_Api.set_message(
7106: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
7107: END IF;
7108: CLOSE strm_name_csr;
7109:
7110: Okl_Api.set_message(
7111: p_app_name => G_APP_NAME,
7112: p_msg_name => 'LLA_QA_PMNT_STRM_TMPL',
7113: p_token1 => 'STRM_NAME',
7114: p_token1_value => l_strm_name_rec.name,
7114: p_token1_value => l_strm_name_rec.name,
7115: p_token2 => 'LINE_TYPE',
7116: p_token2_value => l_lne_pmnt.line_type||'/'||l_lne_pmnt.name
7117: );
7118: x_return_status := Okl_Api.G_RET_STS_ERROR;
7119: END IF;
7120:
7121: END LOOP;
7122:
7135: OPEN strm_name_csr ( l_fee_strm_rec.object1_id1 );
7136: FETCH strm_name_csr INTO l_strm_name_rec;
7137: IF strm_name_csr%NOTFOUND THEN
7138: CLOSE strm_name_csr;
7139: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
7140: END IF;
7141: CLOSE strm_name_csr;
7142:
7143: Okl_Api.set_message(
7139: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
7140: END IF;
7141: CLOSE strm_name_csr;
7142:
7143: Okl_Api.set_message(
7144: p_app_name => G_APP_NAME,
7145: p_msg_name => 'LLA_QA_FEE_STRM_TMPL',
7146: p_token1 => 'STRM_NAME',
7147: p_token1_value => l_strm_name_rec.name,
7147: p_token1_value => l_strm_name_rec.name,
7148: p_token2 => 'LINE_TYPE',
7149: p_token2_value => l_lne_pmnt.line_type||'/'||l_lne_pmnt.name
7150: );
7151: x_return_status := Okl_Api.G_RET_STS_ERROR;
7152: END IF;
7153: END LOOP;
7154: END IF; -- Fee Line
7155:
7157:
7158: EXCEPTION
7159:
7160: WHEN G_EXCEPTION_HALT_VALIDATION THEN
7161: x_return_status := Okl_Api.G_RET_STS_ERROR;
7162: IF l_hdr_csr%ISOPEN THEN
7163: CLOSE l_hdr_csr;
7164: END IF;
7165: -- no processing necessary; validation can continue with next column
7164: END IF;
7165: -- no processing necessary; validation can continue with next column
7166: WHEN OTHERS THEN
7167: -- store SQL error message on message stack
7168: Okl_Api.SET_MESSAGE(
7169: p_app_name => G_APP_NAME,
7170: p_msg_name => G_UNEXPECTED_ERROR,
7171: p_token1 => G_SQLCODE_TOKEN,
7172: p_token1_value => SQLCODE,
7172: p_token1_value => SQLCODE,
7173: p_token2 => G_SQLERRM_TOKEN,
7174: p_token2_value => SQLERRM);
7175: -- notify caller of an error as UNEXPETED error
7176: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
7177: -- verify that cursor was closed
7178: IF l_hdr_csr%ISOPEN THEN
7179: CLOSE l_hdr_csr;
7180: END IF;
7205: l_release_contract_yn VARCHAR2(1);
7206: l_oec NUMBER;
7207:
7208: BEGIN
7209: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
7210: OPEN l_hdrrl_csr('LATOWN', 'LATOWN', TO_NUMBER(p_chr_id));
7211: FETCH l_hdrrl_csr INTO l_hdrrl_rec;
7212: CLOSE l_hdrrl_csr;
7213: l_tax_owner := l_hdrrl_rec.RULE_INFORMATION1;
7212: CLOSE l_hdrrl_csr;
7213: l_tax_owner := l_hdrrl_rec.RULE_INFORMATION1;
7214:
7215: --Bug# 4631549
7216: l_release_contract_yn := okl_api.g_false;
7217: l_release_contract_yn := okl_lla_util_pvt.check_release_contract(p_chr_id => p_chr_id);
7218:
7219: FOR l_lne IN l_lne_csr('FREE_FORM1', p_chr_id)
7220: LOOP
7219: FOR l_lne IN l_lne_csr('FREE_FORM1', p_chr_id)
7220: LOOP
7221:
7222: --Bug# 4631549
7223: If l_release_contract_yn = okl_api.g_true then
7224: l_oec := l_lne.expected_asset_cost;
7225: else
7226: l_oec := l_lne.oec;
7227: end if;
7228:
7229: --Bug# 4631549
7230: IF (( nvl(l_lne.residual_value,0) < (0.2 * l_OEC)) AND (l_tax_owner = 'LESSOR')) THEN
7231: --IF (( NVL(l_lne.residual_value,0) < (0.2 * l_lne.OEC)) AND (l_tax_owner = 'LESSOR')) THEN
7232: Okl_Api.set_message(
7233: p_app_name => G_APP_NAME,
7234: p_msg_name => 'OKL_QA_RV_OEC_TOWN',
7235: p_token1 => 'line',
7236: p_token1_value => l_lne.name);
7233: p_app_name => G_APP_NAME,
7234: p_msg_name => 'OKL_QA_RV_OEC_TOWN',
7235: p_token1 => 'line',
7236: p_token1_value => l_lne.name);
7237: x_return_status := Okl_Api.G_RET_STS_ERROR;
7238: END IF;
7239:
7240: END LOOP;
7241:
7238: END IF;
7239:
7240: END LOOP;
7241:
7242: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
7243: Okl_Api.set_message(
7244: p_app_name => G_APP_NAME,
7245: p_msg_name => G_QA_SUCCESS);
7246: END IF;
7239:
7240: END LOOP;
7241:
7242: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
7243: Okl_Api.set_message(
7244: p_app_name => G_APP_NAME,
7245: p_msg_name => G_QA_SUCCESS);
7246: END IF;
7247:
7247:
7248: EXCEPTION
7249: WHEN OTHERS THEN
7250: -- store SQL error message on message stack
7251: Okl_Api.SET_MESSAGE(
7252: p_app_name => G_APP_NAME,
7253: p_msg_name => G_UNEXPECTED_ERROR,
7254: p_token1 => G_SQLCODE_TOKEN,
7255: p_token1_value => SQLCODE,
7254: p_token1 => G_SQLCODE_TOKEN,
7255: p_token1_value => SQLCODE,
7256: p_token2 => G_SQLERRM_TOKEN,
7257: p_token2_value => SQLERRM);
7258: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
7259: IF l_hdrrl_csr%ISOPEN THEN
7260: CLOSE l_hdrrl_csr;
7261: END IF;
7262:
7275: x_return_status OUT NOCOPY VARCHAR2,
7276: p_chr_id IN NUMBER
7277: ) IS
7278:
7279: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
7280:
7281: CURSOR chk_product_status (p_chr_id IN NUMBER) IS
7282: SELECT
7283: pdt.name
7294: l_product_name okl_products_v.NAME%TYPE;
7295: BEGIN
7296:
7297: -- initialize return status
7298: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
7299:
7300: -- check for header payment
7301: OPEN chk_product_status (p_chr_id => TO_NUMBER(p_chr_id));
7302: FETCH chk_product_status INTO l_product_name,l_product_status_code;
7302: FETCH chk_product_status INTO l_product_name,l_product_status_code;
7303: CLOSE chk_product_status;
7304:
7305: IF (l_product_status_code = 'INVALID') THEN
7306: -- x_return_status := OKL_API.G_RET_STS_SUCCESS;
7307:
7308: Okl_Api.set_message(
7309: p_app_name => G_APP_NAME,
7310: p_msg_name => 'OKL_LLA_INVALID_PRODUCT',
7304:
7305: IF (l_product_status_code = 'INVALID') THEN
7306: -- x_return_status := OKL_API.G_RET_STS_SUCCESS;
7307:
7308: Okl_Api.set_message(
7309: p_app_name => G_APP_NAME,
7310: p_msg_name => 'OKL_LLA_INVALID_PRODUCT',
7311: p_token1 => 'PRODUCT_NAME',
7312: p_token1_value => l_product_name);
7309: p_app_name => G_APP_NAME,
7310: p_msg_name => 'OKL_LLA_INVALID_PRODUCT',
7311: p_token1 => 'PRODUCT_NAME',
7312: p_token1_value => l_product_name);
7313: x_return_status := Okl_Api.G_RET_STS_ERROR;
7314:
7315: END IF;
7316: /*IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
7317: OKL_API.set_message(
7312: p_token1_value => l_product_name);
7313: x_return_status := Okl_Api.G_RET_STS_ERROR;
7314:
7315: END IF;
7316: /*IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
7317: OKL_API.set_message(
7318: p_app_name => G_APP_NAME,
7319: p_msg_name => G_QA_SUCCESS);
7320: END IF;*/
7313: x_return_status := Okl_Api.G_RET_STS_ERROR;
7314:
7315: END IF;
7316: /*IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
7317: OKL_API.set_message(
7318: p_app_name => G_APP_NAME,
7319: p_msg_name => G_QA_SUCCESS);
7320: END IF;*/
7321:
7326: WHEN G_EXCEPTION_HALT_VALIDATION THEN
7327: NULL; -- error reported, just exit from this process
7328: WHEN OTHERS THEN
7329: -- store SQL error message on message stack
7330: Okl_Api.SET_MESSAGE(
7331: p_app_name => G_APP_NAME,
7332: p_msg_name => G_UNEXPECTED_ERROR,
7333: p_token1 => G_SQLCODE_TOKEN,
7334: p_token1_value => SQLCODE,
7334: p_token1_value => SQLCODE,
7335: p_token2 => G_SQLERRM_TOKEN,
7336: p_token2_value => SQLERRM);
7337:
7338: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
7339:
7340: IF chk_product_status%ISOPEN THEN
7341: CLOSE chk_product_status;
7342: END IF;
7357: x_return_status OUT NOCOPY VARCHAR2,
7358: p_chr_id IN NUMBER
7359: ) IS
7360:
7361: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
7362:
7363: CURSOR chk_deal_type (p_chr_id IN NUMBER) IS
7364: select 'Y'
7365: from okl_k_headers
7427: l_payment_amount okl_k_lines.capital_amount%type;
7428: l_deal_type_yn varchar2(1) := 'N';
7429: BEGIN
7430: -- initialize return status
7431: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
7432:
7433: --chk_deal_type for loan contract
7434: OPEN chk_deal_type (p_chr_id);
7435: FETCH chk_deal_type INTO l_deal_type_yn;
7450: FETCH get_payment_line_amt INTO l_payment_amount;
7451: CLOSE get_payment_line_amt;
7452:
7453: IF(l_payment_amount < l_capital_amount) THEN
7454: Okl_Api.set_message(
7455: p_app_name => G_APP_NAME,
7456: p_msg_name => 'OKL_LLA_INVALID_PAYMNT_AMT',
7457: p_token1 => 'AST_NUMBER',
7458: p_token1_value => l_ast_name);
7455: p_app_name => G_APP_NAME,
7456: p_msg_name => 'OKL_LLA_INVALID_PAYMNT_AMT',
7457: p_token1 => 'AST_NUMBER',
7458: p_token1_value => l_ast_name);
7459: x_return_status := Okl_Api.G_RET_STS_ERROR;
7460: END IF;
7461:
7462: END LOOP;
7463:
7463:
7464: END IF;
7465:
7466: --Bug# 9690217
7467: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
7468: OKL_API.set_message(
7469: p_app_name => G_APP_NAME,
7470: p_msg_name => G_QA_SUCCESS);
7471: END IF;
7464: END IF;
7465:
7466: --Bug# 9690217
7467: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
7468: OKL_API.set_message(
7469: p_app_name => G_APP_NAME,
7470: p_msg_name => G_QA_SUCCESS);
7471: END IF;
7472:
7475: WHEN G_EXCEPTION_HALT_VALIDATION THEN
7476: NULL; -- error reported, just exit from this process
7477: WHEN OTHERS THEN
7478: -- store SQL error message on message stack
7479: Okl_Api.SET_MESSAGE(
7480: p_app_name => G_APP_NAME,
7481: p_msg_name => G_UNEXPECTED_ERROR,
7482: p_token1 => G_SQLCODE_TOKEN,
7483: p_token1_value => SQLCODE,
7483: p_token1_value => SQLCODE,
7484: p_token2 => G_SQLERRM_TOKEN,
7485: p_token2_value => SQLERRM);
7486:
7487: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
7488:
7489: END check_loan_payment;
7490:
7491: --akrangan bug 5362977 start
7649: l_svc_chr_id NUMBER;
7650: l_svc_chr_exists VARCHAR2(1);
7651: BEGIN
7652:
7653: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7654:
7655: --check for rebook contract
7656: l_rbk_khr := '?';
7657: OPEN l_chk_rbk_csr (p_chr_id => p_chr_id);
7729: END LOOP;
7730: END IF;
7731:
7732: IF l_svc_chr_exists = 'Y' THEN
7733: OKL_API.set_message(
7734: p_app_name => G_APP_NAME,
7735: p_msg_name => 'OKL_QA_CANNOT_DEL_IB_INST',
7736: p_token1 => 'ASSET_NUMBER',
7737: p_token1_value => l_line_rec.asset_number);
7734: p_app_name => G_APP_NAME,
7735: p_msg_name => 'OKL_QA_CANNOT_DEL_IB_INST',
7736: p_token1 => 'ASSET_NUMBER',
7737: p_token1_value => l_line_rec.asset_number);
7738: x_return_status := OKL_API.G_RET_STS_ERROR;
7739: EXIT;
7740: END IF;
7741:
7742: End Loop;
7744:
7745: EXCEPTION
7746: WHEN OTHERS THEN
7747: -- store SQL error message on message stack
7748: OKL_API.SET_MESSAGE(
7749: p_app_name => G_APP_NAME,
7750: p_msg_name => G_UNEXPECTED_ERROR,
7751: p_token1 => G_SQLCODE_TOKEN,
7752: p_token1_value => SQLCODE,
7752: p_token1_value => SQLCODE,
7753: p_token2 => G_SQLERRM_TOKEN,
7754: p_token2_value => SQLERRM);
7755:
7756: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7757:
7758: END check_service_contracts;
7759: --akrangan bug 5362977 end
7760:
7857: -- Start fix for bug 7131895
7858: l_pricing_engine VARCHAR2(30);
7859: l_hdrrl_rec l_hdrrl_csr%ROWTYPE;
7860: l_tax_owner VARCHAR2(100);
7861: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
7862: -- End fix for bug 7131895
7863:
7864: BEGIN
7865:
7862: -- End fix for bug 7131895
7863:
7864: BEGIN
7865:
7866: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
7867: l_asset_tradein_yes := FALSE;
7868: l_asset_tradein_amt := 0;
7869:
7870: l_hdr_tradein_amt := NULL;
7900: CLOSE l_down_pmnt_check_csr;
7901:
7902: IF (NOT l_exists) THEN
7903: --RAISE ERROR no down payments exist.
7904: Okl_Api.set_message(
7905: p_app_name => G_APP_NAME,
7906: p_msg_name => 'OKL_QA_SQ_NO_DOWN_PMNT');
7907: x_return_status := Okl_Api.G_RET_STS_ERROR;
7908:
7903: --RAISE ERROR no down payments exist.
7904: Okl_Api.set_message(
7905: p_app_name => G_APP_NAME,
7906: p_msg_name => 'OKL_QA_SQ_NO_DOWN_PMNT');
7907: x_return_status := Okl_Api.G_RET_STS_ERROR;
7908:
7909: END IF;
7910:
7911: IF ( l_down_pmnt_check_rec.cle_id IS NULL) THEN
7909: END IF;
7910:
7911: IF ( l_down_pmnt_check_rec.cle_id IS NULL) THEN
7912: --RAISE ERROR cannot define at contract header level.
7913: Okl_Api.set_message(
7914: p_app_name => G_APP_NAME,
7915: p_msg_name => 'OKL_QA_SQ_DOWN_PMNT_HDR');
7916: x_return_status := Okl_Api.G_RET_STS_ERROR;
7917: END IF;
7912: --RAISE ERROR cannot define at contract header level.
7913: Okl_Api.set_message(
7914: p_app_name => G_APP_NAME,
7915: p_msg_name => 'OKL_QA_SQ_DOWN_PMNT_HDR');
7916: x_return_status := Okl_Api.G_RET_STS_ERROR;
7917: END IF;
7918:
7919: l_num_pmnt_lines := 0;
7920:
7923: --check for number of payments also.
7924:
7925: l_num_pmnt_lines := l_num_pmnt_lines + 1;
7926: IF(l_down_pmnt_line_rec.rule_information3 <> 1) THEN
7927: Okl_Api.set_message(
7928: p_app_name => G_APP_NAME,
7929: p_msg_name => 'OKL_QA_SQ_PERIOD_MISMATCH');
7930: x_return_status := Okl_Api.G_RET_STS_ERROR;
7931: END IF;
7926: IF(l_down_pmnt_line_rec.rule_information3 <> 1) THEN
7927: Okl_Api.set_message(
7928: p_app_name => G_APP_NAME,
7929: p_msg_name => 'OKL_QA_SQ_PERIOD_MISMATCH');
7930: x_return_status := Okl_Api.G_RET_STS_ERROR;
7931: END IF;
7932:
7933: --Bug 6417667 Start
7934: --Bug# 8652738: Added ROUND() for forward port of Bug 7601328
7935: -- Not using NVL function because Down payment amount or percent value can be zero.
7936: IF((l_line_rec.capital_reduction IS NOT NULL AND l_line_rec.capital_reduction <> l_down_pmnt_line_rec.rule_information6)
7937: OR (l_line_rec.capital_reduction_percent IS NOT NULL AND ROUND(((l_line_rec.capital_reduction_percent/100)*l_line_rec.oec),2) <> l_down_pmnt_line_rec.rule_information6)) THEN
7938: --Bug 6417667 End
7939: Okl_Api.set_message(
7940: p_app_name => G_APP_NAME,
7941: p_msg_name => 'OKL_QA_SQ_DOWN_PMNT_MISMATCH');
7942: x_return_status := Okl_Api.G_RET_STS_ERROR;
7943: END IF;
7938: --Bug 6417667 End
7939: Okl_Api.set_message(
7940: p_app_name => G_APP_NAME,
7941: p_msg_name => 'OKL_QA_SQ_DOWN_PMNT_MISMATCH');
7942: x_return_status := Okl_Api.G_RET_STS_ERROR;
7943: END IF;
7944:
7945: END LOOP;
7946:
7945: END LOOP;
7946:
7947: IF (l_num_pmnt_lines > 1) THEN
7948: --RAISE ERROR cannot have more than one down payment line.
7949: Okl_Api.set_message(
7950: p_app_name => G_APP_NAME,
7951: p_msg_name => 'OKL_QA_SQ_DOWN_PMNT_LN_GT1');
7952: x_return_status := Okl_Api.G_RET_STS_ERROR;
7953: END IF;
7948: --RAISE ERROR cannot have more than one down payment line.
7949: Okl_Api.set_message(
7950: p_app_name => G_APP_NAME,
7951: p_msg_name => 'OKL_QA_SQ_DOWN_PMNT_LN_GT1');
7952: x_return_status := Okl_Api.G_RET_STS_ERROR;
7953: END IF;
7954:
7955: ELSE -- Capitalize Flag = 'Y', Start fix for bug 7131895
7956: Okl_Streams_Util.get_pricing_engine(p_khr_id => p_chr_id,
7955: ELSE -- Capitalize Flag = 'Y', Start fix for bug 7131895
7956: Okl_Streams_Util.get_pricing_engine(p_khr_id => p_chr_id,
7957: x_pricing_engine => l_pricing_engine,
7958: x_return_status => l_return_status);
7959: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7960: x_return_status := l_return_status;
7961: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
7962: END IF;
7963:
7957: x_pricing_engine => l_pricing_engine,
7958: x_return_status => l_return_status);
7959: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7960: x_return_status := l_return_status;
7961: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
7962: END IF;
7963:
7964: --RAISE ERROR if pricing engine is 'EXTERNAL' and tax owner='LESSOR'
7965: IF ((l_pricing_engine = 'EXTERNAL') AND (l_tax_owner ='LESSOR')) THEN
7962: END IF;
7963:
7964: --RAISE ERROR if pricing engine is 'EXTERNAL' and tax owner='LESSOR'
7965: IF ((l_pricing_engine = 'EXTERNAL') AND (l_tax_owner ='LESSOR')) THEN
7966: Okl_Api.set_message(
7967: p_app_name => G_APP_NAME,
7968: p_msg_name => 'OKL_QA_SQ_DOWN_PMNT_TAXOWNER');
7969: x_return_status := Okl_Api.G_RET_STS_ERROR;
7970: END IF;
7965: IF ((l_pricing_engine = 'EXTERNAL') AND (l_tax_owner ='LESSOR')) THEN
7966: Okl_Api.set_message(
7967: p_app_name => G_APP_NAME,
7968: p_msg_name => 'OKL_QA_SQ_DOWN_PMNT_TAXOWNER');
7969: x_return_status := Okl_Api.G_RET_STS_ERROR;
7970: END IF;
7971: -- End fix for bug 7131895
7972: --if payment existence throw error
7973: OPEN l_down_pmnt_check_csr(l_line_rec.id);
7976: CLOSE l_down_pmnt_check_csr;
7977:
7978: IF (l_exists) THEN
7979: --RAISE ERROR no payment required for non capitalized assets.
7980: Okl_Api.set_message(
7981: p_app_name => G_APP_NAME,
7982: p_msg_name => 'OKL_QA_SQ_CAPITALIZED_AST');
7983: x_return_status := Okl_Api.G_RET_STS_ERROR;
7984:
7979: --RAISE ERROR no payment required for non capitalized assets.
7980: Okl_Api.set_message(
7981: p_app_name => G_APP_NAME,
7982: p_msg_name => 'OKL_QA_SQ_CAPITALIZED_AST');
7983: x_return_status := Okl_Api.G_RET_STS_ERROR;
7984:
7985: END IF;
7986:
7987: END IF;
8001: END IF;
8002: END LOOP;
8003:
8004: IF (l_asset_tradein_amt <> l_hdr_tradein_amt) THEN
8005: Okl_Api.set_message(
8006: p_app_name => G_APP_NAME,
8007: p_msg_name => 'OKL_QA_SQ_TRADEIN_AMT');
8008: x_return_status := Okl_Api.G_RET_STS_ERROR;
8009: END IF;
8004: IF (l_asset_tradein_amt <> l_hdr_tradein_amt) THEN
8005: Okl_Api.set_message(
8006: p_app_name => G_APP_NAME,
8007: p_msg_name => 'OKL_QA_SQ_TRADEIN_AMT');
8008: x_return_status := Okl_Api.G_RET_STS_ERROR;
8009: END IF;
8010: END IF;
8011:
8012: IF (NOT l_asset_tradein_yes) THEN
8009: END IF;
8010: END IF;
8011:
8012: IF (NOT l_asset_tradein_yes) THEN
8013: Okl_Api.set_message(
8014: p_app_name => G_APP_NAME,
8015: p_msg_name => 'OKL_QA_SQ_TRADEIN_ASSOC');
8016: x_return_status := Okl_Api.G_RET_STS_ERROR;
8017: END IF;
8012: IF (NOT l_asset_tradein_yes) THEN
8013: Okl_Api.set_message(
8014: p_app_name => G_APP_NAME,
8015: p_msg_name => 'OKL_QA_SQ_TRADEIN_ASSOC');
8016: x_return_status := Okl_Api.G_RET_STS_ERROR;
8017: END IF;
8018:
8019: EXCEPTION
8020:
8022: -- no processing necessary; validation can continue with next column
8023: NULL;
8024: WHEN OTHERS THEN
8025: -- store SQL error message on message stack
8026: Okl_Api.SET_MESSAGE(
8027: p_app_name => G_APP_NAME,
8028: p_msg_name => G_UNEXPECTED_ERROR,
8029: p_token1 => G_SQLCODE_TOKEN,
8030: p_token1_value => SQLCODE,
8030: p_token1_value => SQLCODE,
8031: p_token2 => G_SQLERRM_TOKEN,
8032: p_token2_value => SQLERRM);
8033: -- notify caller of an error as UNEXPETED error
8034: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
8035: -- verify that cursor was closed
8036: IF l_hdr_csr%ISOPEN THEN
8037: CLOSE l_hdr_csr;
8038: END IF;
8055: x_return_status OUT NOCOPY VARCHAR2,
8056: p_chr_id IN NUMBER
8057: ) IS
8058:
8059: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
8060: l_dummy VARCHAR2(1) := '?';
8061: l_count NUMBER := 0;
8062: l_row_notfound BOOLEAN;
8063: l_token VARCHAR2(2000);
8156: l_passthru_vendor_id OKC_K_PARTY_ROLES_B.OBJECT1_ID1%TYPE;
8157: l_site_valid VARCHAR2(1) := '?';
8158: l_passthru_present VARCHAR2(1) := 'N';
8159:
8160: lx_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
8161: x_msg_count NUMBER;
8162: x_msg_data VARCHAR2(1000);
8163: --l_tax_owner VARCHAR2(100);
8164:
8301:
8302: BEGIN
8303:
8304: -- initialize return status
8305: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
8306:
8307: /*Bug#4186455
8308: *--Bug#3877032
8309: *OPEN l_hdrrl_csr('LATOWN', 'LATOWN', TO_NUMBER(p_chr_id));
8338: CLOSE chk_rpt_prod_id;
8339:
8340: IF (NVL(l_secondary_rep_method, '?') = 'NOT_APPLICABLE') THEN
8341: IF (l_reporting_pdt_id IS NOT NULL AND
8342: l_reporting_pdt_id <> OKL_API.G_MISS_NUM) THEN
8343: Okl_Api.set_message(
8344: p_app_name => G_APP_NAME,
8345: p_msg_name => 'OKL_QA_RPT_MISMATCH'); -- MGAAP 7263041
8346: x_return_status := Okl_Api.G_RET_STS_ERROR;
8339:
8340: IF (NVL(l_secondary_rep_method, '?') = 'NOT_APPLICABLE') THEN
8341: IF (l_reporting_pdt_id IS NOT NULL AND
8342: l_reporting_pdt_id <> OKL_API.G_MISS_NUM) THEN
8343: Okl_Api.set_message(
8344: p_app_name => G_APP_NAME,
8345: p_msg_name => 'OKL_QA_RPT_MISMATCH'); -- MGAAP 7263041
8346: x_return_status := Okl_Api.G_RET_STS_ERROR;
8347: RAISE G_EXCEPTION_HALT_VALIDATION;
8342: l_reporting_pdt_id <> OKL_API.G_MISS_NUM) THEN
8343: Okl_Api.set_message(
8344: p_app_name => G_APP_NAME,
8345: p_msg_name => 'OKL_QA_RPT_MISMATCH'); -- MGAAP 7263041
8346: x_return_status := Okl_Api.G_RET_STS_ERROR;
8347: RAISE G_EXCEPTION_HALT_VALIDATION;
8348: END IF;
8349: END IF;
8350:
8349: END IF;
8350:
8351: /*Bug# 3670104
8352: *If( l_hdr.DATE_SIGNED >= l_hdr.START_DATE) Then
8353: * OKL_API.set_message(
8354: * p_app_name => G_APP_NAME,
8355: * p_msg_name => 'OKL_QA_DATESIGNED_LT_START');
8356: * -- notify caller of an error
8357: * x_return_status := OKL_API.G_RET_STS_ERROR;
8353: * OKL_API.set_message(
8354: * p_app_name => G_APP_NAME,
8355: * p_msg_name => 'OKL_QA_DATESIGNED_LT_START');
8356: * -- notify caller of an error
8357: * x_return_status := OKL_API.G_RET_STS_ERROR;
8358: *End If;
8359: */
8360:
8361: OPEN l_contract_name(l_hdr.contract_number);
8367: CLOSE l_contract_name;
8368:
8369: /*
8370: *If( l_cn.cnt > 1) Then
8371: * OKL_API.set_message(
8372: * p_app_name => G_APP_NAME,
8373: * p_msg_name => 'OKL_QA_CN_NOTUNQ');
8374: * -- notify caller of an error
8375: * x_return_status := OKL_API.G_RET_STS_ERROR;
8371: * OKL_API.set_message(
8372: * p_app_name => G_APP_NAME,
8373: * p_msg_name => 'OKL_QA_CN_NOTUNQ');
8374: * -- notify caller of an error
8375: * x_return_status := OKL_API.G_RET_STS_ERROR;
8376: *End If;
8377: */
8378:
8379:
8386:
8387: END LOOP;
8388:
8389: IF( ( l_structure > 3) AND (l_hdr.DEAL_TYPE <> 'LOAN-REVOLVING')) THEN
8390: Okl_Api.set_message(
8391: p_app_name => G_APP_NAME,
8392: p_msg_name => 'OKL_QA_STRUCTURE_NA');
8393: -- notify caller of an error
8394: x_return_status := Okl_Api.G_RET_STS_ERROR;
8390: Okl_Api.set_message(
8391: p_app_name => G_APP_NAME,
8392: p_msg_name => 'OKL_QA_STRUCTURE_NA');
8393: -- notify caller of an error
8394: x_return_status := Okl_Api.G_RET_STS_ERROR;
8395: END IF;
8396:
8397: --bug# 2753114
8398: IF( l_hdr.report_pdt_id <> -1 ) THEN
8403: FETCH l_rpt_csr INTO l_rpt_rec;
8404: --Bug#3877032
8405: IF ( l_rpt_csr%NOTFOUND ) THEN
8406: --IF ( nvl(l_rpt_rec.isThere, 'N' ) = 'N' ) THEN
8407: Okl_Api.set_message(
8408: p_app_name => G_APP_NAME,
8409: p_msg_name => 'OKL_QA_NO_REPTXBK');
8410: -- notify caller of an error
8411: x_return_status := Okl_Api.G_RET_STS_ERROR;
8407: Okl_Api.set_message(
8408: p_app_name => G_APP_NAME,
8409: p_msg_name => 'OKL_QA_NO_REPTXBK');
8410: -- notify caller of an error
8411: x_return_status := Okl_Api.G_RET_STS_ERROR;
8412: END IF;
8413: CLOSE l_rpt_csr;
8414:
8415: END IF;
8416:
8417: OPEN l_lne_csr('FREE_FORM1', p_chr_id);
8418: FETCH l_lne_csr INTO l_lne;
8419: IF( (l_hdr.DEAL_TYPE = 'LOAN-REVOLVING') AND l_lne_csr%FOUND AND (l_hdr.report_pdt_id = -1) ) THEN
8420: Okl_Api.set_message(
8421: p_app_name => G_APP_NAME,
8422: p_msg_name => 'OKL_QA_ASST_LNR');
8423: -- notify caller of an error
8424: x_return_status := Okl_Api.G_RET_STS_ERROR;
8420: Okl_Api.set_message(
8421: p_app_name => G_APP_NAME,
8422: p_msg_name => 'OKL_QA_ASST_LNR');
8423: -- notify caller of an error
8424: x_return_status := Okl_Api.G_RET_STS_ERROR;
8425: CLOSE l_lne_csr;
8426: RAISE G_EXCEPTION_HALT_VALIDATION;
8427: ELSIF( (l_hdr.DEAL_TYPE <> 'LOAN-REVOLVING') AND l_lne_csr%NOTFOUND ) THEN
8428: Okl_Api.set_message(
8424: x_return_status := Okl_Api.G_RET_STS_ERROR;
8425: CLOSE l_lne_csr;
8426: RAISE G_EXCEPTION_HALT_VALIDATION;
8427: ELSIF( (l_hdr.DEAL_TYPE <> 'LOAN-REVOLVING') AND l_lne_csr%NOTFOUND ) THEN
8428: Okl_Api.set_message(
8429: p_app_name => G_APP_NAME,
8430: p_msg_name => 'OKL_QA_NO_ASSETS');
8431: -- notify caller of an error
8432: x_return_status := Okl_Api.G_RET_STS_ERROR;
8428: Okl_Api.set_message(
8429: p_app_name => G_APP_NAME,
8430: p_msg_name => 'OKL_QA_NO_ASSETS');
8431: -- notify caller of an error
8432: x_return_status := Okl_Api.G_RET_STS_ERROR;
8433: END IF;
8434: CLOSE l_lne_csr;
8435:
8436: --Bug# 4631549
8433: END IF;
8434: CLOSE l_lne_csr;
8435:
8436: --Bug# 4631549
8437: l_release_contract_yn := okl_api.g_false;
8438: l_release_contract_yn := okl_lla_util_pvt.check_release_contract(p_chr_id => p_chr_id);
8439:
8440: FOR l_lne IN l_lne_csr('FREE_FORM1', p_chr_id)
8441: LOOP
8448: END IF;
8449: CLOSE l_line_name;
8450:
8451: If( l_ln.cnt > 1) Then
8452: OKL_API.set_message(
8453: p_app_name => G_APP_NAME,
8454: p_msg_name => 'OKL_QA_AN_NOTUNQ');
8455: -- notify caller of an error
8456: x_return_status := OKL_API.G_RET_STS_ERROR;
8452: OKL_API.set_message(
8453: p_app_name => G_APP_NAME,
8454: p_msg_name => 'OKL_QA_AN_NOTUNQ');
8455: -- notify caller of an error
8456: x_return_status := OKL_API.G_RET_STS_ERROR;
8457: End If;
8458:
8459: */
8460:
8458:
8459: */
8460:
8461: --Bug# 4631549
8462: If l_release_contract_yn = okl_api.g_true then
8463: l_oec := l_lne.expected_asset_cost;
8464: else
8465: l_oec := l_lne.oec;
8466: end if;
8467:
8468: --Bug# 4631549
8469: IF ( l_lne.RESIDUAL_VALUE > l_OEC ) Then
8470: --IF ( l_lne.RESIDUAL_VALUE > l_lne.OEC ) THEN
8471: Okl_Api.set_message(
8472: p_app_name => G_APP_NAME,
8473: p_msg_name => 'OKL_QA_RES_GT_OEC',
8474: p_token1 => 'line',
8475: p_token1_value => l_lne.name);
8473: p_msg_name => 'OKL_QA_RES_GT_OEC',
8474: p_token1 => 'line',
8475: p_token1_value => l_lne.name);
8476: -- notify caller of an error
8477: x_return_status := Okl_Api.G_RET_STS_ERROR;
8478: END IF;
8479:
8480: --Bug# 4631549
8481: If ( l_lne.CAPITAL_REDUCTION > l_OEC) Then
8479:
8480: --Bug# 4631549
8481: If ( l_lne.CAPITAL_REDUCTION > l_OEC) Then
8482: --IF ( l_lne.CAPITAL_REDUCTION > l_lne.OEC) THEN
8483: Okl_Api.set_message(
8484: p_app_name => G_APP_NAME,
8485: p_msg_name => 'OKL_QA_CAPRED_LT_OEC',
8486: p_token1 => 'line',
8487: p_token1_value => l_lne.name);
8485: p_msg_name => 'OKL_QA_CAPRED_LT_OEC',
8486: p_token1 => 'line',
8487: p_token1_value => l_lne.name);
8488: -- notify caller of an error
8489: x_return_status := Okl_Api.G_RET_STS_ERROR;
8490: END IF;
8491: --Bug# 4631549
8492: If ( l_lne.TRADEIN_AMOUNT > l_OEC) Then
8493: --IF ( l_lne.TRADEIN_AMOUNT > l_lne.OEC) THEN
8490: END IF;
8491: --Bug# 4631549
8492: If ( l_lne.TRADEIN_AMOUNT > l_OEC) Then
8493: --IF ( l_lne.TRADEIN_AMOUNT > l_lne.OEC) THEN
8494: Okl_Api.set_message(
8495: p_app_name => G_APP_NAME,
8496: p_msg_name => 'OKL_QA_TRADN_LT_CAP',
8497: p_token1 => 'line',
8498: p_token1_value => l_lne.name);
8495: p_app_name => G_APP_NAME,
8496: p_msg_name => 'OKL_QA_TRADN_LT_CAP',
8497: p_token1 => 'line',
8498: p_token1_value => l_lne.name);
8499: x_return_status := Okl_Api.G_RET_STS_ERROR;
8500: END IF;
8501:
8502: IF (( UPPER(l_lne.residual_code) = 'NONE') AND (l_lne.residual_grnty_amount IS NOT NULL)) THEN
8503: Okl_Api.set_message(
8499: x_return_status := Okl_Api.G_RET_STS_ERROR;
8500: END IF;
8501:
8502: IF (( UPPER(l_lne.residual_code) = 'NONE') AND (l_lne.residual_grnty_amount IS NOT NULL)) THEN
8503: Okl_Api.set_message(
8504: p_app_name => G_APP_NAME,
8505: p_msg_name => 'OKL_QA_NO_RESIDUAL_GRNTY',
8506: p_token1 => 'line',
8507: p_token1_value => l_lne.name);
8504: p_app_name => G_APP_NAME,
8505: p_msg_name => 'OKL_QA_NO_RESIDUAL_GRNTY',
8506: p_token1 => 'line',
8507: p_token1_value => l_lne.name);
8508: x_return_status := Okl_Api.G_RET_STS_ERROR;
8509: END IF;
8510:
8511: IF ((INSTR( l_hdr.DEAL_TYPE, 'OP' )>0) AND ( l_lne.RVI_PREMIUM IS NOT NULL)) THEN
8512: Okl_Api.set_message(
8508: x_return_status := Okl_Api.G_RET_STS_ERROR;
8509: END IF;
8510:
8511: IF ((INSTR( l_hdr.DEAL_TYPE, 'OP' )>0) AND ( l_lne.RVI_PREMIUM IS NOT NULL)) THEN
8512: Okl_Api.set_message(
8513: p_app_name => G_APP_NAME,
8514: p_msg_name => 'OKL_QA_OP_NORVINSU',
8515: p_token1 => 'line',
8516: p_token1_value => l_lne.name);
8513: p_app_name => G_APP_NAME,
8514: p_msg_name => 'OKL_QA_OP_NORVINSU',
8515: p_token1 => 'line',
8516: p_token1_value => l_lne.name);
8517: x_return_status := Okl_Api.G_RET_STS_ERROR;
8518: END IF;
8519:
8520: i := 0;
8521: IF ( l_structure > 0 ) THEN
8525: i := i + 1;
8526: END IF;
8527: END LOOP;
8528: IF (i > 1) THEN
8529: Okl_Api.set_message(
8530: p_app_name => G_APP_NAME,
8531: p_msg_name => 'OKL_QA_GT_ONE_PMT',
8532: p_token1 => 'line',
8533: p_token1_value => l_lne.name);
8530: p_app_name => G_APP_NAME,
8531: p_msg_name => 'OKL_QA_GT_ONE_PMT',
8532: p_token1 => 'line',
8533: p_token1_value => l_lne.name);
8534: x_return_status := Okl_Api.G_RET_STS_ERROR;
8535: END IF;
8536: END IF;
8537:
8538: OPEN asst_qty_csr(FinAsstId => l_lne.id);
8546: OPEN l_txl_csr(l_asst.fa_id);
8547: FETCH l_txl_csr INTO l_txl;
8548: IF l_txl_csr%NOTFOUND THEN
8549: CLOSE l_txl_csr;
8550: Okl_Api.set_message(
8551: p_app_name => G_APP_NAME,
8552: p_msg_name => 'OKL_QA_NO_DEPRECIATION',
8553: p_token1 => 'line',
8554: p_token1_value => l_lne.name);
8551: p_app_name => G_APP_NAME,
8552: p_msg_name => 'OKL_QA_NO_DEPRECIATION',
8553: p_token1 => 'line',
8554: p_token1_value => l_lne.name);
8555: x_return_status := Okl_Api.G_RET_STS_ERROR;
8556: RAISE G_EXCEPTION_HALT_VALIDATION;
8557: END IF;
8558: CLOSE l_txl_csr;
8559:
8557: END IF;
8558: CLOSE l_txl_csr;
8559:
8560: IF( l_txl.fa_location_id IS NULL ) THEN
8561: Okl_Api.set_message(
8562: p_app_name => G_APP_NAME,
8563: p_msg_name => 'OKL_QA_NO_FA_LOCATION',
8564: p_token1 => 'line',
8565: p_token1_value => l_lne.name);
8562: p_app_name => G_APP_NAME,
8563: p_msg_name => 'OKL_QA_NO_FA_LOCATION',
8564: p_token1 => 'line',
8565: p_token1_value => l_lne.name);
8566: x_return_status := Okl_Api.G_RET_STS_ERROR;
8567: END IF;
8568:
8569: OPEN l_txd_csr(l_asst.fa_id);
8570: FETCH l_txd_csr INTO l_txd;
8569: OPEN l_txd_csr(l_asst.fa_id);
8570: FETCH l_txd_csr INTO l_txd;
8571: IF l_txd_csr%NOTFOUND THEN
8572: CLOSE l_txd_csr;
8573: Okl_Api.set_message(
8574: p_app_name => G_APP_NAME,
8575: p_msg_name => 'OKL_QA_NO_TAX',
8576: p_token1 => 'line',
8577: p_token1_value => l_lne.name);
8574: p_app_name => G_APP_NAME,
8575: p_msg_name => 'OKL_QA_NO_TAX',
8576: p_token1 => 'line',
8577: p_token1_value => l_lne.name);
8578: x_return_status := Okl_Api.G_RET_STS_ERROR;
8579: RAISE G_EXCEPTION_HALT_VALIDATION;
8580: END IF;
8581: CLOSE l_txd_csr;
8582:
8586: (l_txl.deprn_method IS NULL)OR(l_txl.in_service_date IS NULL)OR
8587: ((nvl(l_txl.salvage_value,0) IS NULL)AND(nvl(l_txl.percent_salvage_value,0) IS NULL))OR(l_txl.depreciation_cost IS NULL))THEN
8588: --|end 28-Oct-2008 cklee Fixed Bug 7492324 |
8589:
8590: Okl_Api.set_message(
8591: p_app_name => G_APP_NAME,
8592: p_msg_name => 'OKL_QA_NO_DEPRECIATION',
8593: p_token1 => 'line',
8594: p_token1_value => l_lne.name);
8591: p_app_name => G_APP_NAME,
8592: p_msg_name => 'OKL_QA_NO_DEPRECIATION',
8593: p_token1 => 'line',
8594: p_token1_value => l_lne.name);
8595: x_return_status := Okl_Api.G_RET_STS_ERROR;
8596: ELSIF((l_txd.cost IS NULL)OR(l_txd.deprn_method_tax IS NULL))THEN
8597: Okl_Api.set_message(
8598: p_app_name => G_APP_NAME,
8599: p_msg_name => 'OKL_QA_NO_TAX',
8593: p_token1 => 'line',
8594: p_token1_value => l_lne.name);
8595: x_return_status := Okl_Api.G_RET_STS_ERROR;
8596: ELSIF((l_txd.cost IS NULL)OR(l_txd.deprn_method_tax IS NULL))THEN
8597: Okl_Api.set_message(
8598: p_app_name => G_APP_NAME,
8599: p_msg_name => 'OKL_QA_NO_TAX',
8600: p_token1 => 'line',
8601: p_token1_value => l_lne.name);
8598: p_app_name => G_APP_NAME,
8599: p_msg_name => 'OKL_QA_NO_TAX',
8600: p_token1 => 'line',
8601: p_token1_value => l_lne.name);
8602: x_return_status := Okl_Api.G_RET_STS_ERROR;
8603:
8604: /* made a separate process check_tax_book_cost()
8605:
8606: ElsIf(l_txd.cost < l_txl.depreciation_cost)Then
8603:
8604: /* made a separate process check_tax_book_cost()
8605:
8606: ElsIf(l_txd.cost < l_txl.depreciation_cost)Then
8607: OKL_API.set_message(
8608: p_app_name => G_APP_NAME,
8609: p_msg_name => 'OKL_QA_BASISPCNT_GT_100',
8610: p_token1 => 'line',
8611: p_token1_value => l_lne.name);
8608: p_app_name => G_APP_NAME,
8609: p_msg_name => 'OKL_QA_BASISPCNT_GT_100',
8610: p_token1 => 'line',
8611: p_token1_value => l_lne.name);
8612: x_return_status := OKL_API.G_RET_STS_ERROR;
8613: */
8614: IF(l_hdr.term > ( 0.75*l_txl.life_in_months))THEN
8615: Okl_Api.set_message(
8616: p_app_name => G_APP_NAME,
8611: p_token1_value => l_lne.name);
8612: x_return_status := OKL_API.G_RET_STS_ERROR;
8613: */
8614: IF(l_hdr.term > ( 0.75*l_txl.life_in_months))THEN
8615: Okl_Api.set_message(
8616: p_app_name => G_APP_NAME,
8617: p_msg_name => 'OKL_QA_OP_TERM_LIM',
8618: p_token1 => 'line',
8619: p_token1_value => l_lne.name);
8616: p_app_name => G_APP_NAME,
8617: p_msg_name => 'OKL_QA_OP_TERM_LIM',
8618: p_token1 => 'line',
8619: p_token1_value => l_lne.name);
8620: x_return_status := Okl_Api.G_RET_STS_ERROR;
8621: END IF;
8622: END IF;
8623:
8624: --
8626: --
8627: FOR l_txd_rec1 IN txd_csr1 (l_asst.fa_id)
8628: LOOP
8629: IF (l_txd_rec1.book_count > 1) THEN
8630: Okl_Api.set_message(
8631: p_app_name => G_APP_NAME,
8632: p_msg_name => 'OKL_QA_MULTI_TAX_BOOK',
8633: p_token1 => 'ASSET_NUM',
8634: p_token1_value => l_lne.name,
8633: p_token1 => 'ASSET_NUM',
8634: p_token1_value => l_lne.name,
8635: p_token2 => 'BOOK_TYPE',
8636: p_token2_value => l_txd_rec1.book_type);
8637: x_return_status := Okl_Api.G_RET_STS_ERROR;
8638:
8639: END IF;
8640: END LOOP;
8641:
8647: FETCH l_corpbook_csr INTO l_valid_corpbook;
8648: CLOSE l_corpbook_csr;
8649:
8650: IF l_valid_corpbook = '?' THEN
8651: Okl_Api.set_message(
8652: p_app_name => G_APP_NAME,
8653: p_msg_name => 'OKL_QA_INVALID_CORP_BOOK',
8654: p_token1 => 'ASSET_NUMBER',
8655: p_token1_value => l_lne.name);
8652: p_app_name => G_APP_NAME,
8653: p_msg_name => 'OKL_QA_INVALID_CORP_BOOK',
8654: p_token1 => 'ASSET_NUMBER',
8655: p_token1_value => l_lne.name);
8656: x_return_status := Okl_Api.G_RET_STS_ERROR;
8657: END IF;
8658:
8659: IF (l_txl.corporate_book <> l_system_corp_book) THEN
8660: Okl_Api.set_message(
8656: x_return_status := Okl_Api.G_RET_STS_ERROR;
8657: END IF;
8658:
8659: IF (l_txl.corporate_book <> l_system_corp_book) THEN
8660: Okl_Api.set_message(
8661: p_app_name => G_APP_NAME,
8662: p_msg_name => 'OKL_QA_CORP_MISMATCH'); -- MGAAP 7263041
8663: x_return_status := Okl_Api.G_RET_STS_ERROR;
8664: END IF;
8659: IF (l_txl.corporate_book <> l_system_corp_book) THEN
8660: Okl_Api.set_message(
8661: p_app_name => G_APP_NAME,
8662: p_msg_name => 'OKL_QA_CORP_MISMATCH'); -- MGAAP 7263041
8663: x_return_status := Okl_Api.G_RET_STS_ERROR;
8664: END IF;
8665:
8666: --------------
8667: --Bug# 4103361
8684: NULL;
8685: END IF;
8686: CLOSE l_fa_cat_csr;
8687:
8688: Okl_Api.set_message(
8689: p_app_name => G_APP_NAME,
8690: p_msg_name => 'OKL_QA_INVALID_FA_BOOK_CAT',
8691: p_token1 => 'FA_CATEGORY',
8692: p_token1_value => l_fa_cat_name,
8693: p_token2 => 'FA_BOOK',
8694: p_token2_value => l_txl.corporate_book,
8695: p_token3 => 'line',
8696: p_token3_value => l_lne.name);
8697: x_return_status := Okl_Api.G_RET_STS_ERROR;
8698: END IF;
8699:
8700: --check asset category-book combination for tax books
8701: FOR l_txd_rec IN l_txd_csr(kleid => l_asst.fa_id)
8717: NULL;
8718: END IF;
8719: CLOSE l_fa_cat_csr;
8720:
8721: Okl_Api.set_message(
8722: p_app_name => G_APP_NAME,
8723: p_msg_name => 'OKL_QA_INVALID_FA_BOOK_CAT',
8724: p_token1 => 'FA_CATEGORY',
8725: p_token1_value => l_fa_cat_name,
8726: p_token2 => 'FA_BOOK',
8727: p_token2_value => l_txd_rec.tax_book,
8728: p_token3 => 'line',
8729: p_token3_value => l_lne.name);
8730: x_return_status := Okl_Api.G_RET_STS_ERROR;
8731: END IF;
8732: END LOOP;
8733: --------------
8734: --Bug# 4103361
8747: IF((l_lne.RESIDUAL_VALUE > 0)OR
8748: (l_txl.salvage_value > 0)OR
8749: (l_txl.percent_salvage_value > 0)) THEN
8750:
8751: Okl_Api.set_message(
8752: p_app_name => G_APP_NAME,
8753: p_msg_name => 'OKL_QA_LNCTRT_NORVSV',
8754: p_token1 => 'line',
8755: p_token1_value => l_lne.name);
8752: p_app_name => G_APP_NAME,
8753: p_msg_name => 'OKL_QA_LNCTRT_NORVSV',
8754: p_token1 => 'line',
8755: p_token1_value => l_lne.name);
8756: x_return_status := Okl_Api.G_RET_STS_ERROR;
8757:
8758: END IF;
8759:
8760: IF( l_txl.fa_location_id IS NOT NULL ) THEN
8757:
8758: END IF;
8759:
8760: IF( l_txl.fa_location_id IS NOT NULL ) THEN
8761: Okl_Api.set_message(
8762: p_app_name => G_APP_NAME,
8763: p_msg_name => 'OKL_QA_LOAN_FA_LOCATION',
8764: p_token1 => 'line',
8765: p_token1_value => l_lne.name);
8762: p_app_name => G_APP_NAME,
8763: p_msg_name => 'OKL_QA_LOAN_FA_LOCATION',
8764: p_token1 => 'line',
8765: p_token1_value => l_lne.name);
8766: x_return_status := Okl_Api.G_RET_STS_ERROR;
8767: END IF;
8768:
8769: END IF;
8770:
8775: -- bug 5034519. changed from contract start date to asset start date
8776: -- also changed message from OKL_QA_VNDRDATES_GT_STARTDATE
8777: --ELSIF( l_supp_rec.date_invoiced > l_hdr.start_date ) THEN
8778: ELSIF( l_supp_rec.date_invoiced > l_lne.start_date ) THEN
8779: Okl_Api.set_message(
8780: p_app_name => G_APP_NAME,
8781: --p_msg_name => 'OKL_QA_VNDRDATES_GT_STARTDATE',
8782: p_msg_name => 'OKL_QA_INV_SUPPDATE',
8783: p_token1 => 'line',
8781: --p_msg_name => 'OKL_QA_VNDRDATES_GT_STARTDATE',
8782: p_msg_name => 'OKL_QA_INV_SUPPDATE',
8783: p_token1 => 'line',
8784: p_token1_value => l_lne.name);
8785: x_return_status := Okl_Api.G_RET_STS_ERROR;
8786: END IF;
8787: CLOSE supp_csr;
8788:
8789: /*Bug#3877032
8794:
8795: /*Bug#4186455
8796: *If (( l_lne.residual_value < (0.2 * l_lne.OEC)) AND (l_tax_owner = 'LESSOR')) then
8797: *--If (( l_lne.residual_value < (0.2 * l_lne.OEC)) AND (l_hdrrl_rec.RULE_INFORMATION1 = 'LESSOR')) then
8798: * OKL_API.set_message(
8799: * p_app_name => G_APP_NAME,
8800: * p_msg_name => 'OKL_QA_RV_OEC_TOWN',
8801: * p_token1 => 'line',
8802: * p_token1_value => l_lne.name);
8799: * p_app_name => G_APP_NAME,
8800: * p_msg_name => 'OKL_QA_RV_OEC_TOWN',
8801: * p_token1 => 'line',
8802: * p_token1_value => l_lne.name);
8803: * x_return_status := OKL_API.G_RET_STS_ERROR;
8804: *END IF;
8805: */
8806:
8807: OPEN l_rl_csr1( 'LALEVL', 'LASLH', TO_NUMBER(p_chr_id), l_lne.id );
8806:
8807: OPEN l_rl_csr1( 'LALEVL', 'LASLH', TO_NUMBER(p_chr_id), l_lne.id );
8808: FETCH l_rl_csr1 INTO l_rl_rec1;
8809: IF l_rl_csr1%NOTFOUND THEN
8810: Okl_Api.set_message(
8811: p_app_name => G_APP_NAME,
8812: p_msg_name => 'OKL_QA_NO_PAYMENTS',
8813: p_token1 => 'line',
8814: p_token1_value => l_lne.name);
8811: p_app_name => G_APP_NAME,
8812: p_msg_name => 'OKL_QA_NO_PAYMENTS',
8813: p_token1 => 'line',
8814: p_token1_value => l_lne.name);
8815: x_return_status := Okl_Api.G_RET_STS_ERROR;
8816: END IF;
8817: CLOSE l_rl_csr1;
8818:
8819:
8829: OPEN asst_qty_csr(FinAsstId => l_itm.FinAssetId);
8830: FETCH asst_qty_csr INTO l_asst;
8831: IF asst_qty_csr%NOTFOUND THEN
8832: CLOSE asst_qty_csr;
8833: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
8834: ELSE
8835: OPEN ib_qty_csr(FinAsstId => l_itm.FinAssetId);
8836: FETCH ib_qty_csr INTO l_ib_qty;
8837: IF ib_qty_csr%NOTFOUND THEN
8835: OPEN ib_qty_csr(FinAsstId => l_itm.FinAssetId);
8836: FETCH ib_qty_csr INTO l_ib_qty;
8837: IF ib_qty_csr%NOTFOUND THEN
8838: CLOSE ib_qty_csr;
8839: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
8840: END IF;
8841: CLOSE ib_qty_csr;
8842: END IF;
8843: CLOSE asst_qty_csr;
8843: CLOSE asst_qty_csr;
8844: i := i + 1;
8845:
8846: IF l_asst.number_of_items <> l_ib_qty THEN
8847: Okl_Api.set_message(
8848: p_app_name => G_APP_NAME,
8849: p_msg_name => 'OKL_QA_USAGE_1ITM',
8850: p_token1 => 'usage line',
8851: p_token1_value => TO_CHAR(i));
8848: p_app_name => G_APP_NAME,
8849: p_msg_name => 'OKL_QA_USAGE_1ITM',
8850: p_token1 => 'usage line',
8851: p_token1_value => TO_CHAR(i));
8852: x_return_status := Okl_Api.G_RET_STS_ERROR;
8853: END IF;
8854:
8855: END LOOP;
8856:
8855: END LOOP;
8856:
8857:
8858: IF ( i = 0 ) THEN
8859: Okl_Api.set_message(
8860: p_app_name => G_APP_NAME,
8861: p_msg_name => 'OKL_QA_UBB_1ASSET');
8862: x_return_status := Okl_Api.G_RET_STS_ERROR;
8863: END IF;
8858: IF ( i = 0 ) THEN
8859: Okl_Api.set_message(
8860: p_app_name => G_APP_NAME,
8861: p_msg_name => 'OKL_QA_UBB_1ASSET');
8862: x_return_status := Okl_Api.G_RET_STS_ERROR;
8863: END IF;
8864:
8865: END LOOP;
8866:
8890: CLOSE vendor_csr;
8891:
8892: IF (pth_dtl_rec.passthru_term = 'BASE') THEN
8893:
8894: Okl_Api.set_message(
8895: p_app_name => G_APP_NAME,
8896: p_msg_name => 'OKL_QA_INVLD_BASE_PTH_SITE',
8897: p_token1 => 'LINE',
8898: p_token1_value => l_lne.line_style||'/'||l_lne.name,
8897: p_token1 => 'LINE',
8898: p_token1_value => l_lne.line_style||'/'||l_lne.name,
8899: p_token2 => 'VENDOR',
8900: p_token2_value => l_vendor_name);
8901: x_return_status := Okl_Api.G_RET_STS_ERROR;
8902:
8903: ELSIF (pth_dtl_rec.passthru_term = 'EVERGREEN') THEN
8904:
8905: Okl_Api.set_message(
8901: x_return_status := Okl_Api.G_RET_STS_ERROR;
8902:
8903: ELSIF (pth_dtl_rec.passthru_term = 'EVERGREEN') THEN
8904:
8905: Okl_Api.set_message(
8906: p_app_name => G_APP_NAME,
8907: p_msg_name => 'OKL_QA_INVLD_EVGN_PTH_SITE',
8908: p_token1 => 'LINE',
8909: p_token1_value => l_lne.line_style||'/'||l_lne.name,
8908: p_token1 => 'LINE',
8909: p_token1_value => l_lne.line_style||'/'||l_lne.name,
8910: p_token2 => 'VENDOR',
8911: p_token2_value => l_vendor_name);
8912: x_return_status := Okl_Api.G_RET_STS_ERROR;
8913:
8914: END IF;
8915: END IF;
8916: END LOOP;
8928: FETCH party_csr INTO l_vendor_id;
8929: CLOSE party_csr;
8930:
8931: IF (l_vendor_id IS NULL) THEN
8932: Okl_Api.set_message(
8933: G_APP_NAME,
8934: 'OKL_QA_SERVICE_VENDOR',
8935: 'LINE',
8936: l_lne.name
8934: 'OKL_QA_SERVICE_VENDOR',
8935: 'LINE',
8936: l_lne.name
8937: );
8938: x_return_status := Okl_Api.G_RET_STS_ERROR;
8939: END IF;
8940:
8941: -- Payments are mandatory for Service Line if
8942: -- Passthrough has been defined
8968: IF l_rl_csr1%NOTFOUND THEN
8969: -- Bug 5216135 : kbbhavsa : 29-May-06 : start
8970: IF l_link_cle_id IS NULL THEN
8971: -- service not linked to asset, and payment not found at top service line
8972: Okl_Api.set_message(
8973: p_app_name => G_APP_NAME,
8974: p_msg_name => 'OKL_QA_PTH_NO_PAYMENTS',
8975: p_token1 => 'LINE',
8976: p_token1_value => l_lne.name);
8973: p_app_name => G_APP_NAME,
8974: p_msg_name => 'OKL_QA_PTH_NO_PAYMENTS',
8975: p_token1 => 'LINE',
8976: p_token1_value => l_lne.name);
8977: x_return_status := Okl_Api.G_RET_STS_ERROR;
8978: ELSE
8979: -- service linked to asset, and payment not found at linked service asset sub line
8980: IF l_rl_csr1%ISOPEN THEN
8981: CLOSE l_rl_csr1;
8984: OPEN l_rl_csr1( 'LALEVL', 'LASLH', TO_NUMBER(p_chr_id), l_lne.id );
8985: FETCH l_rl_csr1 INTO l_rl_rec1;
8986: IF l_rl_csr1%NOTFOUND THEN
8987: -- service linked to asset, and payment not found at top service line
8988: Okl_Api.set_message(
8989: p_app_name => G_APP_NAME,
8990: p_msg_name => 'OKL_QA_PTH_NO_PAYMENTS',
8991: p_token1 => 'LINE',
8992: p_token1_value => l_lne.name);
8989: p_app_name => G_APP_NAME,
8990: p_msg_name => 'OKL_QA_PTH_NO_PAYMENTS',
8991: p_token1 => 'LINE',
8992: p_token1_value => l_lne.name);
8993: x_return_status := Okl_Api.G_RET_STS_ERROR;
8994: END IF;
8995: END IF;
8996: -- Bug 5216135 : kbbhavsa : 29-May-06 : end
8997: END IF;
9015: CLOSE vendor_csr;
9016:
9017: IF (pth_dtl_rec.passthru_term = 'BASE') THEN
9018:
9019: Okl_Api.set_message(
9020: p_app_name => G_APP_NAME,
9021: p_msg_name => 'OKL_QA_INVLD_BASE_PTH_SITE',
9022: p_token1 => 'LINE',
9023: p_token1_value => l_lne.line_style||'/'||l_lne.name,
9022: p_token1 => 'LINE',
9023: p_token1_value => l_lne.line_style||'/'||l_lne.name,
9024: p_token2 => 'VENDOR',
9025: p_token2_value => l_vendor_name);
9026: x_return_status := Okl_Api.G_RET_STS_ERROR;
9027:
9028: ELSIF (pth_dtl_rec.passthru_term = 'EVERGREEN') THEN
9029:
9030: Okl_Api.set_message(
9026: x_return_status := Okl_Api.G_RET_STS_ERROR;
9027:
9028: ELSIF (pth_dtl_rec.passthru_term = 'EVERGREEN') THEN
9029:
9030: Okl_Api.set_message(
9031: p_app_name => G_APP_NAME,
9032: p_msg_name => 'OKL_QA_INVLD_EVGN_PTH_SITE',
9033: p_token1 => 'LINE',
9034: p_token1_value => l_lne.line_style||'/'||l_lne.name,
9033: p_token1 => 'LINE',
9034: p_token1_value => l_lne.line_style||'/'||l_lne.name,
9035: p_token2 => 'VENDOR',
9036: p_token2_value => l_vendor_name);
9037: x_return_status := Okl_Api.G_RET_STS_ERROR;
9038:
9039: END IF;
9040: END IF;
9041: END LOOP;
9066: CLOSE vendor_csr;
9067:
9068: IF (pth_dtl_rec.passthru_term = 'BASE') THEN
9069:
9070: Okl_Api.set_message(
9071: p_app_name => G_APP_NAME,
9072: p_msg_name => 'OKL_QA_INVLD_BASE_PTH_SITE',
9073: p_token1 => 'LINE',
9074: p_token1_value => l_lne.line_style||'/'||l_lne.name,
9073: p_token1 => 'LINE',
9074: p_token1_value => l_lne.line_style||'/'||l_lne.name,
9075: p_token2 => 'VENDOR',
9076: p_token2_value => l_vendor_name);
9077: x_return_status := Okl_Api.G_RET_STS_ERROR;
9078:
9079: ELSIF (pth_dtl_rec.passthru_term = 'EVERGREEN') THEN
9080:
9081: Okl_Api.set_message(
9077: x_return_status := Okl_Api.G_RET_STS_ERROR;
9078:
9079: ELSIF (pth_dtl_rec.passthru_term = 'EVERGREEN') THEN
9080:
9081: Okl_Api.set_message(
9082: p_app_name => G_APP_NAME,
9083: p_msg_name => 'OKL_QA_INVLD_EVGN_PTH_SITE',
9084: p_token1 => 'LINE',
9085: p_token1_value => l_lne.line_style||'/'||l_lne.name,
9084: p_token1 => 'LINE',
9085: p_token1_value => l_lne.line_style||'/'||l_lne.name,
9086: p_token2 => 'VENDOR',
9087: p_token2_value => l_vendor_name);
9088: x_return_status := Okl_Api.G_RET_STS_ERROR;
9089:
9090: END IF;
9091: END IF;
9092: END LOOP;
9102: FETCH sub_line_amt_csr INTO l_tot_sub_line_amt;
9103: CLOSE sub_line_amt_csr;
9104:
9105: IF (l_tot_sub_line_amt <> line_amt_rec.amount) THEN
9106: Okl_Api.set_message(
9107: G_APP_NAME,
9108: 'OKL_QA_SRV_AMT_MISMATCH',
9109: 'LINE_TYPE',
9110: 'SERVICE',
9110: 'SERVICE',
9111: 'LINE_NUMBER',
9112: line_amt_rec.line_number
9113: );
9114: x_return_status := Okl_Api.G_RET_STS_ERROR;
9115: END IF;
9116:
9117: END LOOP;
9118: -- Bug# 3064121
9125: p_chr_id => p_chr_id,
9126: x_return_status => lx_return_status
9127: );
9128:
9129: IF (lx_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9130: x_return_status := lx_return_status;
9131: END IF;
9132:
9133: --
9135: -- Check credit lines
9136: --
9137: Okl_La_Validation_Util_Pvt.validate_crdtln_err (
9138: p_api_version => 1.0,
9139: p_init_msg_list => Okl_Api.G_FALSE,
9140: x_return_status => lx_return_status,
9141: x_msg_count => x_msg_count,
9142: x_msg_data => x_msg_data,
9143: p_chr_id => p_chr_id
9142: x_msg_data => x_msg_data,
9143: p_chr_id => p_chr_id
9144: );
9145:
9146: IF (lx_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9147: x_return_status := lx_return_status;
9148: END IF;
9149:
9150: -- Bug# 4350255
9157: p_chr_id => p_chr_id,
9158: x_return_status => lx_return_status
9159: );
9160:
9161: IF (lx_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9162: x_return_status := lx_return_status;
9163: END IF;
9164:
9165: --
9169: p_chr_id => p_chr_id,
9170: x_return_status => lx_return_status
9171: );
9172:
9173: IF (lx_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9174: x_return_status := lx_return_status;
9175: END IF;
9176:
9177: --
9181: p_chr_id => p_chr_id,
9182: x_return_status => lx_return_status
9183: );
9184:
9185: IF (lx_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9186: x_return_status := lx_return_status;
9187: END IF;
9188:
9189: --
9194: p_chr_id => p_chr_id,
9195: x_return_status => lx_return_status
9196: );
9197:
9198: IF (lx_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9199: x_return_status := lx_return_status;
9200: END IF;
9201:
9202: -- bug 6760186 start
9207: p_chr_id => p_chr_id,
9208: x_return_status => lx_return_status
9209: );
9210:
9211: IF (lx_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9212: x_return_status := lx_return_status;
9213: END IF;
9214: -- bug 6760186 end
9215:
9220: p_chr_id => p_chr_id,
9221: x_return_status => lx_return_status
9222: );
9223:
9224: IF (lx_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9225: x_return_status := lx_return_status;
9226: END IF;
9227:
9228: /* Manu 30-Aug-2004 END */
9232: p_chr_id => p_chr_id,
9233: x_return_status => lx_return_status
9234: );
9235:
9236: IF (lx_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9237: x_return_status := lx_return_status;
9238: END IF;
9239: --Bug# 4996899
9240:
9242: p_chr_id => p_chr_id,
9243: x_return_status => lx_return_status
9244: );
9245:
9246: IF (lx_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9247: x_return_status := lx_return_status;
9248: END IF;
9249:
9250: --Bug#4622438
9252: p_chr_id => p_chr_id,
9253: x_return_status => lx_return_status
9254: );
9255:
9256: IF (lx_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9257: x_return_status := lx_return_status;
9258: END IF;
9259:
9260: --Bug#4373029
9261: Okl_La_Sales_Tax_Pvt.check_sales_tax(
9262: p_chr_id => p_chr_id,
9263: x_return_status => lx_return_status
9264: );
9265: IF (lx_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9266: x_return_status := lx_return_status;
9267: END IF;
9268:
9269: --akrangan bug 5362977 starts
9271: p_chr_id => p_chr_id,
9272: x_return_status => lx_return_status
9273: );
9274:
9275: IF (lx_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9276: x_return_status := lx_return_status;
9277: END IF;
9278: --akrangan bug 5362977 ends
9279:
9281: check_sales_quote(
9282: p_chr_id => p_chr_id,
9283: x_return_status => lx_return_status
9284: );
9285: IF (lx_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9286: x_return_status := lx_return_status;
9287: END IF;
9288:
9289: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
9285: IF (lx_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9286: x_return_status := lx_return_status;
9287: END IF;
9288:
9289: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
9290: Okl_Api.set_message(
9291: p_app_name => G_APP_NAME,
9292: p_msg_name => G_QA_SUCCESS);
9293: END IF;
9286: x_return_status := lx_return_status;
9287: END IF;
9288:
9289: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
9290: Okl_Api.set_message(
9291: p_app_name => G_APP_NAME,
9292: p_msg_name => G_QA_SUCCESS);
9293: END IF;
9294:
9299: check_loan_payment(
9300: p_chr_id => p_chr_id,
9301: x_return_status => lx_return_status
9302: );
9303: IF (lx_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9304: x_return_status := lx_return_status;
9305: END IF;
9306: */
9307:
9304: x_return_status := lx_return_status;
9305: END IF;
9306: */
9307:
9308: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
9309: Okl_Api.set_message(
9310: p_app_name => G_APP_NAME,
9311: p_msg_name => G_QA_SUCCESS);
9312: END IF;
9305: END IF;
9306: */
9307:
9308: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
9309: Okl_Api.set_message(
9310: p_app_name => G_APP_NAME,
9311: p_msg_name => G_QA_SUCCESS);
9312: END IF;
9313:
9326: END IF;
9327: NULL;
9328: WHEN OTHERS THEN
9329: -- store SQL error message on message stack
9330: Okl_Api.SET_MESSAGE(
9331: p_app_name => G_APP_NAME,
9332: p_msg_name => G_UNEXPECTED_ERROR,
9333: p_token1 => G_SQLCODE_TOKEN,
9334: p_token1_value => SQLCODE,
9334: p_token1_value => SQLCODE,
9335: p_token2 => G_SQLERRM_TOKEN,
9336: p_token2_value => SQLERRM);
9337: -- notify caller of an error as UNEXPETED error
9338: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
9339: -- verify that cursor was closed
9340: IF l_lne_csr%ISOPEN THEN
9341: CLOSE l_lne_csr;
9342: END IF;
9365: ) IS
9366:
9367: --l_hdr l_hdr_csr%ROWTYPE;
9368: l_hdrrl_rec l_hdrrl_csr%ROWTYPE;
9369: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
9370: l_tax_owner okc_rules_b.RULE_INFORMATION1%TYPE;
9371: l_purchase_opt_type okc_rules_b.RULE_INFORMATION11%TYPE;
9372: l_contract_residual_value NUMBER;
9373: l_msg_count NUMBER;
9389: AND sts.ste_code NOT IN ( 'HOLD', 'TERMINATED', 'EXPIRED', 'CANCELLED');
9390:
9391: BEGIN
9392:
9393: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
9394:
9395: /*
9396: OPEN l_hdr_csr(p_chr_id);
9397: FETCH l_hdr_csr into l_hdr;
9417: END IF;
9418: CLOSE l_hdrrl_csr;
9419:
9420: IF ((l_purchase_opt_type = '$1BO') AND (l_tax_owner = 'LESSOR')) THEN
9421: Okl_Api.set_message(
9422: p_app_name => G_APP_NAME,
9423: p_msg_name => 'OKL_QA_NO_TOWN_1DBO');
9424: x_return_status := Okl_Api.G_RET_STS_ERROR;
9425: END IF;
9420: IF ((l_purchase_opt_type = '$1BO') AND (l_tax_owner = 'LESSOR')) THEN
9421: Okl_Api.set_message(
9422: p_app_name => G_APP_NAME,
9423: p_msg_name => 'OKL_QA_NO_TOWN_1DBO');
9424: x_return_status := Okl_Api.G_RET_STS_ERROR;
9425: END IF;
9426: */
9427:
9428: --Bug#4778020 Tax owner warning message for early termination.
9432: l_purchase_opt_type := l_hdrrl_rec.RULE_INFORMATION11;
9433: END IF;
9434: CLOSE l_hdrrl_csr;
9435: IF ((l_purchase_opt_type = '$1BO') AND (l_tax_owner = 'LESSOR')) THEN
9436: Okl_Api.set_message(
9437: p_app_name => G_APP_NAME,
9438: p_msg_name => 'OKL_QA_NO_TOWN_1DBO');
9439: x_return_status := Okl_Api.G_RET_STS_ERROR;
9440: END IF;
9435: IF ((l_purchase_opt_type = '$1BO') AND (l_tax_owner = 'LESSOR')) THEN
9436: Okl_Api.set_message(
9437: p_app_name => G_APP_NAME,
9438: p_msg_name => 'OKL_QA_NO_TOWN_1DBO');
9439: x_return_status := Okl_Api.G_RET_STS_ERROR;
9440: END IF;
9441:
9442: -- Bug 5000754 : End of term purchase
9443: OPEN l_hdrrl_csr('AMTFOC', 'AMBPOC', TO_NUMBER(p_chr_id));
9447: END IF;
9448: CLOSE l_hdrrl_csr;
9449:
9450: IF ((l_purchase_opt_type = '$1BO') AND (l_tax_owner = 'LESSOR')) THEN
9451: Okl_Api.set_message(
9452: p_app_name => G_APP_NAME,
9453: p_msg_name => 'OKL_QA_NO_TOWN_1DBO');
9454: x_return_status := Okl_Api.G_RET_STS_ERROR;
9455: END IF;
9450: IF ((l_purchase_opt_type = '$1BO') AND (l_tax_owner = 'LESSOR')) THEN
9451: Okl_Api.set_message(
9452: p_app_name => G_APP_NAME,
9453: p_msg_name => 'OKL_QA_NO_TOWN_1DBO');
9454: x_return_status := Okl_Api.G_RET_STS_ERROR;
9455: END IF;
9456:
9457: /*OKL_EXECUTE_FORMULA_PUB.EXECUTE(p_api_version =>1.0
9458: ,p_init_msg_list => 'F'
9462: ,p_formula_name =>'CONTRACT_RESIDUAL_VALUE'
9463: ,p_contract_id =>p_chr_id
9464: ,x_value =>l_contract_residual_value);
9465:
9466: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9467: x_return_status := l_return_status;
9468: END IF;
9469: */
9470:
9470:
9471: FOR l_asset_rec IN l_asset_csr
9472: LOOP
9473: IF (l_purchase_opt_type = '$1BO' AND l_asset_rec.residual_value> 1.0) THEN
9474: Okl_Api.set_message(
9475: p_app_name => G_APP_NAME,
9476: p_msg_name => 'OKL_QA_CNTRCT_RES_VAL_GT1',
9477: p_token1 => 'ASSET_NUM',
9478: p_token1_value => l_asset_rec.name);
9475: p_app_name => G_APP_NAME,
9476: p_msg_name => 'OKL_QA_CNTRCT_RES_VAL_GT1',
9477: p_token1 => 'ASSET_NUM',
9478: p_token1_value => l_asset_rec.name);
9479: x_return_status := Okl_Api.G_RET_STS_ERROR;
9480: END IF;
9481: END LOOP;
9482:
9483: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
9479: x_return_status := Okl_Api.G_RET_STS_ERROR;
9480: END IF;
9481: END LOOP;
9482:
9483: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
9484: Okl_Api.set_message(
9485: p_app_name => G_APP_NAME,
9486: p_msg_name => G_QA_SUCCESS);
9487: END IF;
9480: END IF;
9481: END LOOP;
9482:
9483: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
9484: Okl_Api.set_message(
9485: p_app_name => G_APP_NAME,
9486: p_msg_name => G_QA_SUCCESS);
9487: END IF;
9488:
9488:
9489: EXCEPTION
9490: WHEN OTHERS THEN
9491: -- store SQL error message on message stack
9492: Okl_Api.SET_MESSAGE(
9493: p_app_name => G_APP_NAME,
9494: p_msg_name => G_UNEXPECTED_ERROR,
9495: p_token1 => G_SQLCODE_TOKEN,
9496: p_token1_value => SQLCODE,
9496: p_token1_value => SQLCODE,
9497: p_token2 => G_SQLERRM_TOKEN,
9498: p_token2_value => SQLERRM);
9499:
9500: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
9501:
9502: IF l_hdr_csr%ISOPEN THEN
9503: CLOSE l_hdr_csr;
9504: END IF;
9522: x_return_status OUT NOCOPY VARCHAR2,
9523: p_chr_id IN NUMBER
9524: ) IS
9525:
9526: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
9527: l_dummy VARCHAR2(1) := '?';
9528: l_count NUMBER := 0;
9529: l_row_notfound BOOLEAN;
9530: l_token VARCHAR2(2000);
9684:
9685: BEGIN
9686:
9687: -- initialize return status
9688: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
9689:
9690: OPEN l_hdr_csr(p_chr_id);
9691: FETCH l_hdr_csr INTO l_hdr;
9692: IF l_hdr_csr%NOTFOUND THEN
9702: );
9703:
9704: --If( l_hdrrl_csr%NOTFOUND ) Then
9705: IF( l_bto_site_use_id IS NULL) THEN
9706: Okl_Api.set_message(
9707: p_app_name => G_APP_NAME,
9708: p_msg_name => 'OKL_QA_NOBTO');
9709: -- notify caller of an error
9710: x_return_status := Okl_Api.G_RET_STS_ERROR;
9706: Okl_Api.set_message(
9707: p_app_name => G_APP_NAME,
9708: p_msg_name => 'OKL_QA_NOBTO');
9709: -- notify caller of an error
9710: x_return_status := Okl_Api.G_RET_STS_ERROR;
9711: ELSE
9712:
9713: get_cust_account(
9714: x_return_status => x_return_status,
9720: OPEN cust_site_csr(l_bto_site_use_id, l_cust_acct_id, 'BILL_TO');
9721: FETCH cust_site_csr INTO cust_site_rec;
9722: CLOSE cust_site_csr;
9723: IF ( NVL(cust_site_rec.isThere, 'N') = 'N' ) THEN
9724: Okl_Api.set_message(
9725: p_app_name => G_APP_NAME,
9726: p_msg_name => 'OKL_QA_BILLTO_ACCNT');
9727: -- notify caller of an error
9728: x_return_status := Okl_Api.G_RET_STS_ERROR;
9724: Okl_Api.set_message(
9725: p_app_name => G_APP_NAME,
9726: p_msg_name => 'OKL_QA_BILLTO_ACCNT');
9727: -- notify caller of an error
9728: x_return_status := Okl_Api.G_RET_STS_ERROR;
9729: END IF;
9730:
9731: OPEN cust_csr('LESSEE', TO_NUMBER(p_chr_id));
9732: FETCH cust_csr INTO cust_rec;
9741: OPEN l_party_uses_csr(l_inst_site_id, l_party_site_id, 'INSTALL_AT');
9742: FETCH l_party_uses_csr INTO l_party_uses_rec;
9743: CLOSE l_party_uses_csr;
9744: IF ( NVL(l_party_uses_rec.isThere, 'N') = 'N' ) THEN
9745: Okl_Api.set_message(
9746: p_app_name => G_APP_NAME,
9747: p_msg_name => 'OKL_QA_INST_ACCN');
9748: -- notify caller of an error
9749: x_return_status := Okl_Api.G_RET_STS_ERROR;
9745: Okl_Api.set_message(
9746: p_app_name => G_APP_NAME,
9747: p_msg_name => 'OKL_QA_INST_ACCN');
9748: -- notify caller of an error
9749: x_return_status := Okl_Api.G_RET_STS_ERROR;
9750: END IF;
9751:
9752: END LOOP;
9753:
9761: OPEN cust_site_csr(l_bto_site_use_id, l_shipto_id, 'SHIP_TO');
9762: FETCH cust_site_csr INTO cust_site_rec;
9763: CLOSE cust_site_csr;
9764: IF ( NVL(cust_site_rec.isThere, 'N') = 'N' ) THEN
9765: Okl_Api.set_message(
9766: p_app_name => G_APP_NAME,
9767: p_msg_name => 'OKL_QA_BTO_SHIPTO');
9768: -- notify caller of an error
9769: x_return_status := Okl_Api.G_RET_STS_ERROR;
9765: Okl_Api.set_message(
9766: p_app_name => G_APP_NAME,
9767: p_msg_name => 'OKL_QA_BTO_SHIPTO');
9768: -- notify caller of an error
9769: x_return_status := Okl_Api.G_RET_STS_ERROR;
9770: END IF;
9771:
9772: END IF;
9773:
9788: FETCH pymt_method_csr INTO l_pymt_method_valid_yn;
9789: CLOSE pymt_method_csr;
9790:
9791: IF (l_pymt_method_valid_yn = 'N') THEN
9792: Okl_Api.set_message(
9793: p_app_name => G_APP_NAME,
9794: p_msg_name => 'OKL_QA_PYMT_METHOD_INVALID');
9795: x_return_status := Okl_Api.G_RET_STS_ERROR;
9796: END IF;
9791: IF (l_pymt_method_valid_yn = 'N') THEN
9792: Okl_Api.set_message(
9793: p_app_name => G_APP_NAME,
9794: p_msg_name => 'OKL_QA_PYMT_METHOD_INVALID');
9795: x_return_status := Okl_Api.G_RET_STS_ERROR;
9796: END IF;
9797: END IF;
9798:
9799: l_hdrrl_rec := NULL;
9810: FETCH bank_acct_csr INTO l_bank_acct_valid_yn;
9811: CLOSE bank_acct_csr;
9812:
9813: IF (l_bank_acct_valid_yn = 'N') THEN
9814: Okl_Api.set_message(
9815: p_app_name => G_APP_NAME,
9816: p_msg_name => 'OKL_QA_BANK_ACCT_INVALID');
9817: x_return_status := Okl_Api.G_RET_STS_ERROR;
9818: END IF;
9813: IF (l_bank_acct_valid_yn = 'N') THEN
9814: Okl_Api.set_message(
9815: p_app_name => G_APP_NAME,
9816: p_msg_name => 'OKL_QA_BANK_ACCT_INVALID');
9817: x_return_status := Okl_Api.G_RET_STS_ERROR;
9818: END IF;
9819: END IF;
9820: --Bug# 8219011
9821:
9829: p_chr_id => p_chr_id,
9830: x_return_status => l_return_status
9831: );
9832:
9833: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9834: x_return_status := l_return_status;
9835: END IF;
9836:
9837: -- Bug 4915341 (redundant check commented out)
9838: /*
9839: -- Bug#4872437 ramurt
9840: check_evergreen_pth(l_return_status, p_chr_id);
9841:
9842: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9843: x_return_status := l_return_status;
9844: END IF;
9845: -- Bug#4872437 changes end
9846: */
9851:
9852: IF(( l_hdrrl_csr%FOUND ) AND
9853: (l_hdrrl_rec.RULE_INFORMATION1 IS NOT NULL) AND
9854: ( TRUNC(Fnd_Date.canonical_to_date(l_hdrrl_rec.RULE_INFORMATION1)) < TRUNC(l_hdr.START_DATE) )) THEN
9855: Okl_Api.set_message(
9856: p_app_name => G_APP_NAME,
9857: p_msg_name => 'OKL_QA_LATE_CH_DATE');
9858: -- notify caller of an error
9859: x_return_status := Okl_Api.G_RET_STS_ERROR;
9855: Okl_Api.set_message(
9856: p_app_name => G_APP_NAME,
9857: p_msg_name => 'OKL_QA_LATE_CH_DATE');
9858: -- notify caller of an error
9859: x_return_status := Okl_Api.G_RET_STS_ERROR;
9860: END IF;
9861: CLOSE l_hdrrl_csr;
9862: */
9863: /* commented out for bug 5032883
9866:
9867: IF(( l_hdrrl_csr%FOUND ) AND
9868: (l_hdrrl_rec.RULE_INFORMATION1 IS NOT NULL) AND
9869: (TRUNC( Fnd_Date.canonical_to_date(l_hdrrl_rec.RULE_INFORMATION1)) < TRUNC(l_hdr.START_DATE) )) THEN
9870: Okl_Api.set_message(
9871: p_app_name => G_APP_NAME,
9872: p_msg_name => 'OKL_QA_LATE_INT_DATE');
9873: -- notify caller of an error
9874: x_return_status := Okl_Api.G_RET_STS_ERROR;
9870: Okl_Api.set_message(
9871: p_app_name => G_APP_NAME,
9872: p_msg_name => 'OKL_QA_LATE_INT_DATE');
9873: -- notify caller of an error
9874: x_return_status := Okl_Api.G_RET_STS_ERROR;
9875: END IF;
9876: CLOSE l_hdrrl_csr;
9877: */
9878: OPEN l_hdrrl_csr('LAREBL', 'LAREBL', TO_NUMBER(p_chr_id));
9880:
9881: IF((l_hdrrl_csr%FOUND)AND
9882: (l_hdrrl_rec.RULE_INFORMATION1 IS NOT NULL) AND
9883: (TRUNC( Fnd_Date.canonical_to_date(l_hdrrl_rec.RULE_INFORMATION1)) < TRUNC(l_hdr.START_DATE))) THEN
9884: Okl_Api.set_message(
9885: p_app_name => G_APP_NAME,
9886: p_msg_name => 'OKL_QA_REBOOK_LMT_DATE');
9887: -- notify caller of an error
9888: x_return_status := Okl_Api.G_RET_STS_ERROR;
9884: Okl_Api.set_message(
9885: p_app_name => G_APP_NAME,
9886: p_msg_name => 'OKL_QA_REBOOK_LMT_DATE');
9887: -- notify caller of an error
9888: x_return_status := Okl_Api.G_RET_STS_ERROR;
9889: END IF;
9890: CLOSE l_hdrrl_csr;
9891:
9892: OPEN l_hdrrl_csr('AMTEOC', 'AMBPOC', TO_NUMBER(p_chr_id));
9921:
9922: IF(( (INSTR( l_hdr.DEAL_TYPE, 'LOAN' )<1) OR (l_hdr.report_pdt_id <> -1)) AND
9923: (l_options(1).purchase_option_type IS NULL ) AND
9924: (l_options(2).purchase_option_type IS NULL)) THEN
9925: Okl_Api.set_message(
9926: p_app_name => G_APP_NAME,
9927: p_msg_name => 'OKL_QA_NO_PURCHASE_OPTNS');
9928: -- notify caller of an error
9929: x_return_status := Okl_Api.G_RET_STS_ERROR;
9925: Okl_Api.set_message(
9926: p_app_name => G_APP_NAME,
9927: p_msg_name => 'OKL_QA_NO_PURCHASE_OPTNS');
9928: -- notify caller of an error
9929: x_return_status := Okl_Api.G_RET_STS_ERROR;
9930: END IF;
9931:
9932:
9933: IF( INSTR( l_hdr.DEAL_TYPE, 'LOAN' )<1) THEN
9935: FOR i IN 1..l_options.COUNT
9936: LOOP
9937:
9938: IF((l_options(i).formula_name IS NULL)AND(l_options(i).purchase_option = 'USE_FORMULA')) THEN
9939: Okl_Api.set_message(
9940: p_app_name => G_APP_NAME,
9941: p_msg_name => 'OKL_QA_NO_FORMULA');
9942: -- notify caller of an error
9943: x_return_status := Okl_Api.G_RET_STS_ERROR;
9939: Okl_Api.set_message(
9940: p_app_name => G_APP_NAME,
9941: p_msg_name => 'OKL_QA_NO_FORMULA');
9942: -- notify caller of an error
9943: x_return_status := Okl_Api.G_RET_STS_ERROR;
9944: END IF;
9945:
9946: IF((INSTR( l_hdr.DEAL_TYPE, 'LOAN' )>0)AND(l_options(i).purchase_option_type <> 'NONE')) THEN
9947: --FND Lookup change from NONE.
9944: END IF;
9945:
9946: IF((INSTR( l_hdr.DEAL_TYPE, 'LOAN' )>0)AND(l_options(i).purchase_option_type <> 'NONE')) THEN
9947: --FND Lookup change from NONE.
9948: Okl_Api.set_message(
9949: p_app_name => G_APP_NAME,
9950: p_msg_name => 'OKL_QA_LNCTRT_NOFMV');
9951: -- notify caller of an error
9952: x_return_status := Okl_Api.G_RET_STS_ERROR;
9948: Okl_Api.set_message(
9949: p_app_name => G_APP_NAME,
9950: p_msg_name => 'OKL_QA_LNCTRT_NOFMV');
9951: -- notify caller of an error
9952: x_return_status := Okl_Api.G_RET_STS_ERROR;
9953: END IF;
9954:
9955:
9956: IF((l_options(i).purchase_option_type = 'FMV')AND(l_options(i).purchase_option_amount IS NOT NULL)) THEN
9953: END IF;
9954:
9955:
9956: IF((l_options(i).purchase_option_type = 'FMV')AND(l_options(i).purchase_option_amount IS NOT NULL)) THEN
9957: Okl_Api.set_message(
9958: p_app_name => G_APP_NAME,
9959: p_msg_name => 'OKL_QA_FMV_NO_FLD');
9960: -- notify caller of an error
9961: x_return_status := Okl_Api.G_RET_STS_ERROR;
9957: Okl_Api.set_message(
9958: p_app_name => G_APP_NAME,
9959: p_msg_name => 'OKL_QA_FMV_NO_FLD');
9960: -- notify caller of an error
9961: x_return_status := Okl_Api.G_RET_STS_ERROR;
9962: END IF;
9963:
9964: IF((l_options(i).purchase_option_type = 'FRV')AND(l_options(i).purchase_option_amount IS NOT NULL)) THEN
9965: Okl_Api.set_message(
9961: x_return_status := Okl_Api.G_RET_STS_ERROR;
9962: END IF;
9963:
9964: IF((l_options(i).purchase_option_type = 'FRV')AND(l_options(i).purchase_option_amount IS NOT NULL)) THEN
9965: Okl_Api.set_message(
9966: p_app_name => G_APP_NAME,
9967: p_msg_name => 'OKL_QA_FRV_NO_FLD');
9968: -- notify caller of an error
9969: x_return_status := Okl_Api.G_RET_STS_ERROR;
9965: Okl_Api.set_message(
9966: p_app_name => G_APP_NAME,
9967: p_msg_name => 'OKL_QA_FRV_NO_FLD');
9968: -- notify caller of an error
9969: x_return_status := Okl_Api.G_RET_STS_ERROR;
9970: END IF;
9971:
9972:
9973:
9971:
9972:
9973:
9974: IF ((INSTR( l_hdr.DEAL_TYPE,'OP') > 0 ) AND (l_options(i).purchase_option_type = '$1BO')) THEN
9975: Okl_Api.set_message(
9976: p_app_name => G_APP_NAME,
9977: p_msg_name => 'OKL_QA_NO_OP_1DBO');
9978: -- notify caller of an error
9979: x_return_status := Okl_Api.G_RET_STS_ERROR;
9975: Okl_Api.set_message(
9976: p_app_name => G_APP_NAME,
9977: p_msg_name => 'OKL_QA_NO_OP_1DBO');
9978: -- notify caller of an error
9979: x_return_status := Okl_Api.G_RET_STS_ERROR;
9980: END IF;
9981:
9982: END LOOP;
9983:
9985:
9986: -- End of term.
9987: IF((l_options(2).purchase_option_type IS NOT NULL)AND(l_options(2).purchase_option_type <> 'FMV')AND
9988: (l_hdrrl_rec.RULE_INFORMATION1 IS NULL )AND(l_options(2).purchase_option_amount IS NULL)) THEN
9989: Okl_Api.set_message(
9990: p_app_name => G_APP_NAME,
9991: p_msg_name => 'OKL_QA_EOTOPTIONS_NOTSET');
9992: -- notify caller of an error
9993: x_return_status := Okl_Api.G_RET_STS_ERROR;
9989: Okl_Api.set_message(
9990: p_app_name => G_APP_NAME,
9991: p_msg_name => 'OKL_QA_EOTOPTIONS_NOTSET');
9992: -- notify caller of an error
9993: x_return_status := Okl_Api.G_RET_STS_ERROR;
9994: END IF;
9995:
9996: END IF;
9997:
10000: CLOSE l_hdrrl_csr;
10001:
10002:
10003: IF ((INSTR( l_hdr.DEAL_TYPE,'OP') > 0 ) AND (l_hdrrl_rec.RULE_INFORMATION1 <> 'LESSOR')) THEN
10004: Okl_Api.set_message(
10005: p_app_name => G_APP_NAME,
10006: p_msg_name => 'OKL_QA_OP_LESSOR');
10007: -- notify caller of an error
10008: x_return_status := Okl_Api.G_RET_STS_ERROR;
10004: Okl_Api.set_message(
10005: p_app_name => G_APP_NAME,
10006: p_msg_name => 'OKL_QA_OP_LESSOR');
10007: -- notify caller of an error
10008: x_return_status := Okl_Api.G_RET_STS_ERROR;
10009: END IF;
10010:
10011: /*If ((INSTR( l_hdr.DEAL_TYPE,'ST') > 0 ) AND (l_hdrrl_rec.RULE_INFORMATION1 <> 'LESSEE')) then
10012: OKL_API.set_message(
10008: x_return_status := Okl_Api.G_RET_STS_ERROR;
10009: END IF;
10010:
10011: /*If ((INSTR( l_hdr.DEAL_TYPE,'ST') > 0 ) AND (l_hdrrl_rec.RULE_INFORMATION1 <> 'LESSEE')) then
10012: OKL_API.set_message(
10013: p_app_name => G_APP_NAME,
10014: p_msg_name => 'OKL_QA_ST_LESSEE');
10015: -- notify caller of an error
10016: x_return_status := OKL_API.G_RET_STS_ERROR;
10012: OKL_API.set_message(
10013: p_app_name => G_APP_NAME,
10014: p_msg_name => 'OKL_QA_ST_LESSEE');
10015: -- notify caller of an error
10016: x_return_status := OKL_API.G_RET_STS_ERROR;
10017: End If;*/
10018:
10019: IF ((l_hdr.DEAL_TYPE = 'LOAN') AND (l_hdrrl_rec.RULE_INFORMATION1 <> 'LESSEE')) THEN
10020: Okl_Api.set_message(
10016: x_return_status := OKL_API.G_RET_STS_ERROR;
10017: End If;*/
10018:
10019: IF ((l_hdr.DEAL_TYPE = 'LOAN') AND (l_hdrrl_rec.RULE_INFORMATION1 <> 'LESSEE')) THEN
10020: Okl_Api.set_message(
10021: p_app_name => G_APP_NAME,
10022: p_msg_name => 'OKL_QA_LOAN_LESSEE');
10023: -- notify caller of an error
10024: x_return_status := Okl_Api.G_RET_STS_ERROR;
10020: Okl_Api.set_message(
10021: p_app_name => G_APP_NAME,
10022: p_msg_name => 'OKL_QA_LOAN_LESSEE');
10023: -- notify caller of an error
10024: x_return_status := Okl_Api.G_RET_STS_ERROR;
10025: END IF;
10026:
10027: /* Bug#4778020 tax owner message for early termination also moved to procedure check_purchase_option.
10028: If( INSTR( l_hdr.DEAL_TYPE, 'LOAN' )<1) Then
10032: --FOR i in 1..l_options.COUNT
10033: --LOOP
10034: -- If ((l_options(i).purchase_option_type = '$1BO') AND (l_hdrrl_rec.RULE_INFORMATION1 = 'LESSOR')) then
10035: If ((l_options(1).purchase_option_type = '$1BO') AND (l_hdrrl_rec.RULE_INFORMATION1 = 'LESSOR')) then
10036: OKL_API.set_message(
10037: p_app_name => G_APP_NAME,
10038: p_msg_name => 'OKL_QA_NO_TOWN_1DBO');
10039: -- notify caller of an error
10040: x_return_status := OKL_API.G_RET_STS_ERROR;
10036: OKL_API.set_message(
10037: p_app_name => G_APP_NAME,
10038: p_msg_name => 'OKL_QA_NO_TOWN_1DBO');
10039: -- notify caller of an error
10040: x_return_status := OKL_API.G_RET_STS_ERROR;
10041: End If;
10042:
10043: --END LOOP;
10044: End If;
10060: CLOSE l_hdrrl_csr;
10061: IF (NVL(l_auto_fixed_pur_opt_yn,'N') = 'Y'
10062: AND NVL(l_purchase_opt_type,'XXX') NOT IN ('FPO','$1BO')) THEN
10063: --error message
10064: Okl_Api.set_message(
10065: p_app_name => G_APP_NAME,
10066: p_msg_name => 'OKL_QA_AUTO_PUR_OPT_TYPE');
10067: x_return_status := Okl_Api.G_RET_STS_ERROR;
10068: END IF;
10063: --error message
10064: Okl_Api.set_message(
10065: p_app_name => G_APP_NAME,
10066: p_msg_name => 'OKL_QA_AUTO_PUR_OPT_TYPE');
10067: x_return_status := Okl_Api.G_RET_STS_ERROR;
10068: END IF;
10069:
10070: OPEN l_hdrrl_csr('LAEVEL', 'LAEVEL', TO_NUMBER(p_chr_id));
10071: FETCH l_hdrrl_csr INTO l_hdrrl_rec;
10075: CLOSE l_hdrrl_csr;
10076:
10077: IF (NVL(l_evergreen_flag,'N') = 'Y' AND NVL(l_auto_fixed_pur_opt_yn,'N') = 'Y') THEN
10078: --error message
10079: Okl_Api.set_message(
10080: p_app_name => G_APP_NAME,
10081: p_msg_name => 'OKL_QA_EVG_AUTO_FIXED_PUR_OPT');
10082: x_return_status := Okl_Api.G_RET_STS_ERROR;
10083: END IF;
10078: --error message
10079: Okl_Api.set_message(
10080: p_app_name => G_APP_NAME,
10081: p_msg_name => 'OKL_QA_EVG_AUTO_FIXED_PUR_OPT');
10082: x_return_status := Okl_Api.G_RET_STS_ERROR;
10083: END IF;
10084: --$1Buyout changes End
10085:
10086: OPEN l_hdrrl_csr('LARVIN', 'LARVAU', TO_NUMBER(p_chr_id));
10091: OPEN l_hdrrl_csr('LARVIN', 'LARVAM', TO_NUMBER(p_chr_id));
10092: FETCH l_hdrrl_csr INTO l_hdrrl_rec;
10093:
10094: IF ( l_hdrrl_csr%NOTFOUND OR l_hdrrl_rec.RULE_INFORMATION4 IS NULL) THEN
10095: Okl_Api.set_message(
10096: p_app_name => G_APP_NAME,
10097: p_msg_name => 'OKL_QA_RVI_RATE');
10098: x_return_status := Okl_Api.G_RET_STS_ERROR;
10099: ELSIF(TO_NUMBER(l_hdrrl_rec.RULE_INFORMATION4) > 100) THEN
10094: IF ( l_hdrrl_csr%NOTFOUND OR l_hdrrl_rec.RULE_INFORMATION4 IS NULL) THEN
10095: Okl_Api.set_message(
10096: p_app_name => G_APP_NAME,
10097: p_msg_name => 'OKL_QA_RVI_RATE');
10098: x_return_status := Okl_Api.G_RET_STS_ERROR;
10099: ELSIF(TO_NUMBER(l_hdrrl_rec.RULE_INFORMATION4) > 100) THEN
10100: Okl_Api.set_message(
10101: p_app_name => G_APP_NAME,
10102: p_msg_name => 'OKL_QA_RVI_GT_100');
10096: p_app_name => G_APP_NAME,
10097: p_msg_name => 'OKL_QA_RVI_RATE');
10098: x_return_status := Okl_Api.G_RET_STS_ERROR;
10099: ELSIF(TO_NUMBER(l_hdrrl_rec.RULE_INFORMATION4) > 100) THEN
10100: Okl_Api.set_message(
10101: p_app_name => G_APP_NAME,
10102: p_msg_name => 'OKL_QA_RVI_GT_100');
10103: -- notify caller of an error
10104: x_return_status := Okl_Api.G_RET_STS_ERROR;
10100: Okl_Api.set_message(
10101: p_app_name => G_APP_NAME,
10102: p_msg_name => 'OKL_QA_RVI_GT_100');
10103: -- notify caller of an error
10104: x_return_status := Okl_Api.G_RET_STS_ERROR;
10105: END IF;
10106:
10107: END IF;
10108: CLOSE l_hdrrl_csr;
10109:
10110: OPEN l_rl_csr('LARNOP', 'LAEOTR', p_chr_id);
10111: FETCH l_rl_csr INTO l_rl;
10112: IF ((l_rl_csr%FOUND)AND(INSTR(l_hdr.DEAL_TYPE,'DF') > 0) AND (l_rl.RULE_INFORMATION1 = 'FMV')) THEN
10113: Okl_Api.set_message(
10114: p_app_name => G_APP_NAME,
10115: p_msg_name => 'OKL_QA_CTRTDF_NOFMV');
10116: -- notify caller of an error
10117: x_return_status := Okl_Api.G_RET_STS_ERROR;
10113: Okl_Api.set_message(
10114: p_app_name => G_APP_NAME,
10115: p_msg_name => 'OKL_QA_CTRTDF_NOFMV');
10116: -- notify caller of an error
10117: x_return_status := Okl_Api.G_RET_STS_ERROR;
10118: END IF;
10119: CLOSE l_rl_csr;
10120:
10121: OPEN l_rl_csr('LARNOP', 'LAMITR', p_chr_id);
10120:
10121: OPEN l_rl_csr('LARNOP', 'LAMITR', p_chr_id);
10122: FETCH l_rl_csr INTO l_rl;
10123: IF ((l_rl_csr%FOUND)AND(INSTR( l_hdr.DEAL_TYPE,'DF') > 0) AND (l_rl.RULE_INFORMATION1 = 'FMV')) THEN
10124: Okl_Api.set_message(
10125: p_app_name => G_APP_NAME,
10126: p_msg_name => 'OKL_QA_CTRTDF_NOFMV');
10127: -- notify caller of an error
10128: x_return_status := Okl_Api.G_RET_STS_ERROR;
10124: Okl_Api.set_message(
10125: p_app_name => G_APP_NAME,
10126: p_msg_name => 'OKL_QA_CTRTDF_NOFMV');
10127: -- notify caller of an error
10128: x_return_status := Okl_Api.G_RET_STS_ERROR;
10129: END IF;
10130: CLOSE l_rl_csr;
10131:
10132: OPEN l_rl_csr('LAASTX', 'LAASTX', p_chr_id);
10131:
10132: OPEN l_rl_csr('LAASTX', 'LAASTX', p_chr_id);
10133: FETCH l_rl_csr INTO l_rl;
10134: IF ((l_rl_csr%FOUND)AND(l_rl.RULE_INFORMATION1 = 'Y') AND (l_rl.RULE_INFORMATION2 IS NULL)) THEN
10135: Okl_Api.set_message(
10136: p_app_name => G_APP_NAME,
10137: p_msg_name => 'OKL_QA_EXEMPT');
10138: -- notify caller of an error
10139: x_return_status := Okl_Api.G_RET_STS_ERROR;
10135: Okl_Api.set_message(
10136: p_app_name => G_APP_NAME,
10137: p_msg_name => 'OKL_QA_EXEMPT');
10138: -- notify caller of an error
10139: x_return_status := Okl_Api.G_RET_STS_ERROR;
10140: END IF;
10141: CLOSE l_rl_csr;
10142:
10143: OPEN l_rl_csr('LAASTX', 'LAAVTX', p_chr_id);
10142:
10143: OPEN l_rl_csr('LAASTX', 'LAAVTX', p_chr_id);
10144: FETCH l_rl_csr INTO l_rl;
10145: IF ((l_rl_csr%FOUND)AND(l_rl.RULE_INFORMATION1 = 'Y') AND (l_rl.RULE_INFORMATION2 IS NULL)) THEN
10146: Okl_Api.set_message(
10147: p_app_name => G_APP_NAME,
10148: p_msg_name => 'OKL_QA_EXEMPT');
10149: -- notify caller of an error
10150: x_return_status := Okl_Api.G_RET_STS_ERROR;
10146: Okl_Api.set_message(
10147: p_app_name => G_APP_NAME,
10148: p_msg_name => 'OKL_QA_EXEMPT');
10149: -- notify caller of an error
10150: x_return_status := Okl_Api.G_RET_STS_ERROR;
10151: END IF;
10152: CLOSE l_rl_csr;
10153:
10154: OPEN l_rl_csr('LAGRNP', 'LAGRNP', p_chr_id);
10153:
10154: OPEN l_rl_csr('LAGRNP', 'LAGRNP', p_chr_id);
10155: FETCH l_rl_csr INTO l_rl;
10156: IF ((l_rl_csr%FOUND)AND(l_rl.RULE_INFORMATION1 = 'Y') AND (l_rl.RULE_INFORMATION2 IS NULL)) THEN
10157: Okl_Api.set_message(
10158: p_app_name => G_APP_NAME,
10159: p_msg_name => 'OKL_QA_GUARANTEE');
10160: x_return_status := Okl_Api.G_RET_STS_ERROR;
10161: END IF;
10156: IF ((l_rl_csr%FOUND)AND(l_rl.RULE_INFORMATION1 = 'Y') AND (l_rl.RULE_INFORMATION2 IS NULL)) THEN
10157: Okl_Api.set_message(
10158: p_app_name => G_APP_NAME,
10159: p_msg_name => 'OKL_QA_GUARANTEE');
10160: x_return_status := Okl_Api.G_RET_STS_ERROR;
10161: END IF;
10162: CLOSE l_rl_csr;
10163:
10164: OPEN l_rl_csr('LARNOP', 'LAREND', p_chr_id);
10163:
10164: OPEN l_rl_csr('LARNOP', 'LAREND', p_chr_id);
10165: FETCH l_rl_csr INTO l_rl;
10166: IF ((l_rl_csr%FOUND)AND(l_rl.RULE_INFORMATION1 = 'Y') AND (l_rl.RULE_INFORMATION2 IS NULL)) THEN
10167: Okl_Api.set_message(
10168: p_app_name => G_APP_NAME,
10169: p_msg_name => 'OKL_QA_RENEWAL_NOTICE');
10170: x_return_status := Okl_Api.G_RET_STS_ERROR;
10171: END IF;
10166: IF ((l_rl_csr%FOUND)AND(l_rl.RULE_INFORMATION1 = 'Y') AND (l_rl.RULE_INFORMATION2 IS NULL)) THEN
10167: Okl_Api.set_message(
10168: p_app_name => G_APP_NAME,
10169: p_msg_name => 'OKL_QA_RENEWAL_NOTICE');
10170: x_return_status := Okl_Api.G_RET_STS_ERROR;
10171: END IF;
10172: CLOSE l_rl_csr;
10173:
10174: /* Bug 3825314
10179: *
10180: * OPEN l_rl_csr('LASYND', 'LASYST', l_synd_rec.syndId);
10181: * FETCH l_rl_csr INTO l_rl;
10182: * IF(l_rl_csr%FOUND)AND(to_number(nvl(l_rl.RULE_INFORMATION2,-1)) > 100) THEN
10183: * OKL_API.set_message(
10184: * p_app_name => G_APP_NAME,
10185: * p_msg_name => 'OKL_QA_SYND_STAKE');
10186: * x_return_status := OKL_API.G_RET_STS_ERROR;
10187: * END IF;
10182: * IF(l_rl_csr%FOUND)AND(to_number(nvl(l_rl.RULE_INFORMATION2,-1)) > 100) THEN
10183: * OKL_API.set_message(
10184: * p_app_name => G_APP_NAME,
10185: * p_msg_name => 'OKL_QA_SYND_STAKE');
10186: * x_return_status := OKL_API.G_RET_STS_ERROR;
10187: * END IF;
10188: * CLOSE l_rl_csr;
10189: *
10190: * END IF;
10194:
10195: OPEN l_rl_csr('LAEVEL', 'LAEOTR', p_chr_id);
10196: FETCH l_rl_csr INTO l_rl;
10197: IF ((l_rl_csr%FOUND)AND(l_rl.RULE_INFORMATION1 = 'FMV') AND (l_rl.RULE_INFORMATION2 IS NOT NULL)) THEN
10198: Okl_Api.set_message(
10199: p_app_name => G_APP_NAME,
10200: p_msg_name => 'OKL_QA_EVERGREEN');
10201: x_return_status := Okl_Api.G_RET_STS_ERROR;
10202: END IF;
10197: IF ((l_rl_csr%FOUND)AND(l_rl.RULE_INFORMATION1 = 'FMV') AND (l_rl.RULE_INFORMATION2 IS NOT NULL)) THEN
10198: Okl_Api.set_message(
10199: p_app_name => G_APP_NAME,
10200: p_msg_name => 'OKL_QA_EVERGREEN');
10201: x_return_status := Okl_Api.G_RET_STS_ERROR;
10202: END IF;
10203: CLOSE l_rl_csr;
10204:
10205: --Check for Termination Quote Rules
10222: l_eot_tolerance_days := l_rl.RULE_INFORMATION1;
10223:
10224: IF (l_row_notfound OR l_quote_eff_days IS NULL OR l_quote_eff_max_days IS NULL
10225: OR l_eot_tolerance_days IS NULL ) THEN
10226: Okl_Api.set_message(
10227: p_app_name => G_APP_NAME,
10228: p_msg_name => 'OKL_QA_TERMINATION_QUOTE');
10229: x_return_status := Okl_Api.G_RET_STS_ERROR;
10230: END IF;
10225: OR l_eot_tolerance_days IS NULL ) THEN
10226: Okl_Api.set_message(
10227: p_app_name => G_APP_NAME,
10228: p_msg_name => 'OKL_QA_TERMINATION_QUOTE');
10229: x_return_status := Okl_Api.G_RET_STS_ERROR;
10230: END IF;
10231:
10232:
10233: i := 0;
10245: OPEN fnd_csr('OKS_USAGE_TYPE', l_rl1.RULE_INFORMATION6);
10246: FETCH fnd_csr INTO fnd_rec;
10247: CLOSE fnd_csr;
10248:
10249: Okl_Api.set_message(
10250: p_app_name => G_APP_NAME,
10251: p_msg_name => 'OKL_QA_USAGE_CHECK',
10252: p_token1 => 'LINE_NUM',
10253: p_token1_value => TO_CHAR(i),
10253: p_token1_value => TO_CHAR(i),
10254: p_token2 => 'USAGE_TYPE',
10255: p_token2_value => fnd_rec.meaning);
10256:
10257: x_return_status := Okl_Api.G_RET_STS_ERROR;
10258:
10259: ELSIF (( NVL(l_rl1.RULE_INFORMATION6, 'XXX') = 'FRT' ) AND ( l_rl1.RULE_INFORMATION7 IS NULL )) THEN
10260:
10261: OPEN fnd_csr('OKS_USAGE_TYPE', l_rl1.RULE_INFORMATION6);
10261: OPEN fnd_csr('OKS_USAGE_TYPE', l_rl1.RULE_INFORMATION6);
10262: FETCH fnd_csr INTO fnd_rec;
10263: CLOSE fnd_csr;
10264:
10265: Okl_Api.set_message(
10266: p_app_name => G_APP_NAME,
10267: p_msg_name => 'OKL_QA_FIXED_USAGE',
10268: p_token1 => 'LINE_NUM',
10269: p_token1_value => TO_CHAR(i),
10269: p_token1_value => TO_CHAR(i),
10270: p_token2 => 'USAGE_TYPE',
10271: p_token2_value => fnd_rec.meaning);
10272:
10273: x_return_status := Okl_Api.G_RET_STS_ERROR;
10274:
10275: END IF;
10276:
10277: END LOOP;
10285: IF (nvl(l_rl.RULE_INFORMATION1,'N') = 'Y') THEN
10286: IF (INSTR( l_hdr.DEAL_TYPE,'DF') > 0) THEN
10287: NULL;
10288: ELSE
10289: Okl_Api.set_message(
10290: p_app_name => G_APP_NAME,
10291: p_msg_name => 'OKL_QA_RVI_NA',
10292: p_token1 => 'BOOK_CLASS',
10293: p_token1_value => l_hdr.deal_type);
10290: p_app_name => G_APP_NAME,
10291: p_msg_name => 'OKL_QA_RVI_NA',
10292: p_token1 => 'BOOK_CLASS',
10293: p_token1_value => l_hdr.deal_type);
10294: x_return_status := Okl_Api.G_RET_STS_ERROR;
10295: END IF;
10296: END IF; -- If 'Y'
10297: END IF; -- IF found
10298: CLOSE l_rl_csr;
10310: IF (l_rl_csr%FOUND) THEN
10311: CLOSE l_rl_csr;
10312: IF (l_late_charge_policy IS NOT NULL AND
10313: l_rl2.rule_information1 = 'Y') THEN
10314: Okl_Api.set_message(
10315: p_app_name => G_APP_NAME,
10316: p_msg_name => 'OKL_QA_LATE_CHARGE_ERROR');
10317: x_return_status := Okl_Api.G_RET_STS_ERROR;
10318: END IF;
10313: l_rl2.rule_information1 = 'Y') THEN
10314: Okl_Api.set_message(
10315: p_app_name => G_APP_NAME,
10316: p_msg_name => 'OKL_QA_LATE_CHARGE_ERROR');
10317: x_return_status := Okl_Api.G_RET_STS_ERROR;
10318: END IF;
10319: ELSE
10320: CLOSE l_rl_csr;
10321: END IF;
10323: CLOSE l_rl_csr;
10324: END IF;
10325:
10326:
10327: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
10328: Okl_Api.set_message(
10329: p_app_name => G_APP_NAME,
10330: p_msg_name => G_QA_SUCCESS);
10331: END IF;
10324: END IF;
10325:
10326:
10327: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
10328: Okl_Api.set_message(
10329: p_app_name => G_APP_NAME,
10330: p_msg_name => G_QA_SUCCESS);
10331: END IF;
10332:
10343: CLOSE fnd_csr;
10344: END IF;
10345: WHEN OTHERS THEN
10346: -- store SQL error message on message stack
10347: Okl_Api.SET_MESSAGE(
10348: p_app_name => G_APP_NAME,
10349: p_msg_name => G_UNEXPECTED_ERROR,
10350: p_token1 => G_SQLCODE_TOKEN,
10351: p_token1_value => SQLCODE,
10351: p_token1_value => SQLCODE,
10352: p_token2 => G_SQLERRM_TOKEN,
10353: p_token2_value => SQLERRM);
10354: -- notify caller of an error as UNEXPETED error
10355: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
10356: -- verify that cursor was closed
10357: IF l_rl_csr%ISOPEN THEN
10358: CLOSE l_rl_csr;
10359: END IF;
10369: x_return_status OUT NOCOPY VARCHAR2,
10370: p_chr_id IN NUMBER
10371: ) IS
10372:
10373: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
10374: l_dummy VARCHAR2(1) := '?';
10375: l_count NUMBER := 0;
10376: l_row_notfound BOOLEAN;
10377: l_token VARCHAR2(2000);
10433:
10434: BEGIN
10435:
10436: -- initialize return status
10437: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
10438:
10439: OPEN l_hdr_csr(p_chr_id);
10440: FETCH l_hdr_csr INTO l_hdr;
10441: IF l_hdr_csr%NOTFOUND THEN
10455: );
10456:
10457: --If( l_hdrrl_csr%NOTFOUND ) Then
10458: IF( l_okl_bill_to_id IS NULL ) THEN
10459: Okl_Api.set_message(
10460: p_app_name => G_APP_NAME,
10461: p_msg_name => 'OKL_QA_NOBTO');
10462: -- notify caller of an error
10463: x_return_status := Okl_Api.G_RET_STS_ERROR;
10459: Okl_Api.set_message(
10460: p_app_name => G_APP_NAME,
10461: p_msg_name => 'OKL_QA_NOBTO');
10462: -- notify caller of an error
10463: x_return_status := Okl_Api.G_RET_STS_ERROR;
10464: END IF;
10465: --CLOSE l_hdrrl_csr;
10466:
10467: --Bug# 8219011
10488: FETCH pymt_method_csr INTO l_pymt_method_valid_yn;
10489: CLOSE pymt_method_csr;
10490:
10491: IF (l_pymt_method_valid_yn = 'N') THEN
10492: Okl_Api.set_message(
10493: p_app_name => G_APP_NAME,
10494: p_msg_name => 'OKL_QA_PYMT_METHOD_INVALID');
10495: END IF;
10496: END IF;
10509: FETCH bank_acct_csr INTO l_bank_acct_valid_yn;
10510: CLOSE bank_acct_csr;
10511:
10512: IF (l_bank_acct_valid_yn = 'N') THEN
10513: Okl_Api.set_message(
10514: p_app_name => G_APP_NAME,
10515: p_msg_name => 'OKL_QA_BANK_ACCT_INVALID');
10516: END IF;
10517: END IF;
10517: END IF;
10518: END IF;
10519: --Bug# 8219011
10520:
10521: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
10522: Okl_Api.set_message(
10523: p_app_name => G_APP_NAME,
10524: p_msg_name => G_QA_SUCCESS);
10525: END IF;
10518: END IF;
10519: --Bug# 8219011
10520:
10521: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
10522: Okl_Api.set_message(
10523: p_app_name => G_APP_NAME,
10524: p_msg_name => G_QA_SUCCESS);
10525: END IF;
10526:
10529: -- no processing necessary; validation can continue with next column
10530: NULL;
10531: WHEN OTHERS THEN
10532: -- store SQL error message on message stack
10533: Okl_Api.SET_MESSAGE(
10534: p_app_name => G_APP_NAME,
10535: p_msg_name => G_UNEXPECTED_ERROR,
10536: p_token1 => G_SQLCODE_TOKEN,
10537: p_token1_value => SQLCODE,
10537: p_token1_value => SQLCODE,
10538: p_token2 => G_SQLERRM_TOKEN,
10539: p_token2_value => SQLERRM);
10540: -- notify caller of an error as UNEXPETED error
10541: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
10542: -- verify that cursor was closed
10543: IF l_rl_csr%ISOPEN THEN
10544: CLOSE l_rl_csr;
10545: END IF;
10552: x_return_status OUT NOCOPY VARCHAR2,
10553: p_chr_id IN NUMBER
10554: ) IS
10555:
10556: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
10557: l_dummy VARCHAR2(1) := '?';
10558: l_count NUMBER := 0;
10559: l_row_notfound BOOLEAN;
10560: l_token VARCHAR2(2000);
10577:
10578: BEGIN
10579:
10580: -- initialize return status
10581: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
10582:
10583: OPEN Product_csr(p_chr_id);
10584: FETCH Product_csr INTO l_pdt_rec;
10585: IF Product_csr%NOTFOUND THEN
10596: ELSE
10597: check_rule_4new_lnrev(x_return_status, p_chr_id);
10598: END IF;
10599:
10600: IF (x_return_status = Okl_Api.G_RET_STS_ERROR ) THEN
10601: RAISE G_EXCEPTION_HALT_VALIDATION;
10602: END IF;
10603:
10604: -- Bug 4917116
10602: END IF;
10603:
10604: -- Bug 4917116
10605: check_evergreen_allowed(x_return_status, p_chr_id);
10606: IF (x_return_status = Okl_Api.G_RET_STS_ERROR ) THEN
10607: RAISE G_EXCEPTION_HALT_VALIDATION;
10608: END IF;
10609:
10610: EXCEPTION
10612: -- no processing necessary; validation can continue with next column
10613: NULL;
10614: WHEN OTHERS THEN
10615: -- store SQL error message on message stack
10616: Okl_Api.SET_MESSAGE(
10617: p_app_name => G_APP_NAME,
10618: p_msg_name => G_UNEXPECTED_ERROR,
10619: p_token1 => G_SQLCODE_TOKEN,
10620: p_token1_value => SQLCODE,
10620: p_token1_value => SQLCODE,
10621: p_token2 => G_SQLERRM_TOKEN,
10622: p_token2_value => SQLERRM);
10623: -- notify caller of an error as UNEXPETED error
10624: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
10625: -- verify that cursor was closed
10626: IF Product_csr%ISOPEN THEN
10627: CLOSE Product_csr;
10628: END IF;
10633: x_return_status OUT NOCOPY VARCHAR2,
10634: p_chr_id IN NUMBER
10635: ) IS
10636:
10637: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
10638: l_dummy VARCHAR2(1) := '?';
10639: l_count NUMBER := 0;
10640: l_row_notfound BOOLEAN;
10641: l_token VARCHAR2(2000);
10722:
10723: BEGIN
10724:
10725: -- initialize return status
10726: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
10727:
10728: --start:| 23-May-2008 cklee fixed bug: 6781324 |
10729: For l_salvage_rec In l_salvage_csr(p_chr_id => p_chr_id)
10730: Loop
10798:
10799: --Bug# 4869443
10800: --Bug# 16681373: Removed Check for Re-lease asset from IF condition as the check will be done
10801: -- at line level in cursor l_orig_ast_csr
10802: If (nvl(l_pdt_rec.orig_system_source_code,OKL_API.G_MISS_CHAR) <> 'OKL_RELEASE') then
10803: Open l_orig_ast_csr(p_chr_id => p_chr_id);
10804: Loop
10805: Fetch l_orig_ast_csr into l_orig_ast_rec;
10806: Exit when l_orig_ast_csr%NOTFOUND;
10811:
10812: l_termination_date := to_char(l_orig_ast_rec.date_terminated,l_icx_date_format);
10813: l_k_start_date := to_char(l_pdt_rec.start_date,l_icx_date_format);
10814:
10815: OKL_API.set_message(p_app_name => G_APP_NAME,
10816: p_msg_name => 'OKL_LA_RELEASE_AST_TRMN_DATE',
10817: p_token1 => 'TERMINATION_DATE',
10818: p_token1_value => l_termination_date,
10819: p_token2 => 'ASSET_NUMBER',
10819: p_token2 => 'ASSET_NUMBER',
10820: p_token2_value => l_orig_ast_rec.asset_number,
10821: p_token3 => 'CONTRACT_START_DATE',
10822: p_token3_value => l_k_start_date);
10823: x_return_status := OKL_API.G_RET_STS_ERROR;
10824: End If;
10825: End Loop;
10826: Close l_orig_ast_csr;
10827:
10824: End If;
10825: End Loop;
10826: Close l_orig_ast_csr;
10827:
10828: IF (x_return_status = OKL_API.G_RET_STS_ERROR ) THEN
10829: RAISE G_EXCEPTION_HALT_VALIDATION;
10830: END IF;
10831: End If;
10832: --End Bug# 4869443
10835: OPEN con_le_roll_qt_le_csr(p_chr_id);
10836: FETCH con_le_roll_qt_le_csr INTO l_diff;
10837: CLOSE con_le_roll_qt_le_csr;
10838: IF l_diff = 1 THEN
10839: x_return_status := OKL_API.G_RET_STS_ERROR;
10840: OKL_API.set_message(p_app_name => G_APP_NAME,
10841: p_msg_name => 'OKL_LA_ROLLOVER_QUOTE_CONTRACT');
10842: RAISE G_EXCEPTION_HALT_VALIDATION;
10843: END IF;
10836: FETCH con_le_roll_qt_le_csr INTO l_diff;
10837: CLOSE con_le_roll_qt_le_csr;
10838: IF l_diff = 1 THEN
10839: x_return_status := OKL_API.G_RET_STS_ERROR;
10840: OKL_API.set_message(p_app_name => G_APP_NAME,
10841: p_msg_name => 'OKL_LA_ROLLOVER_QUOTE_CONTRACT');
10842: RAISE G_EXCEPTION_HALT_VALIDATION;
10843: END IF;
10844:
10846: IF Are_Assets_Inactive(p_chr_id => p_chr_id) = 'Y' THEN
10847: check_func_constrs_4new(x_return_status, p_chr_id);
10848: END IF;
10849:
10850: IF (x_return_status = Okl_Api.G_RET_STS_ERROR ) THEN
10851: RAISE G_EXCEPTION_HALT_VALIDATION;
10852: END IF;
10853:
10854: EXCEPTION
10856: -- no processing necessary; validation can continue with next column
10857: NULL;
10858: WHEN OTHERS THEN
10859: -- store SQL error message on message stack
10860: Okl_Api.SET_MESSAGE(
10861: p_app_name => G_APP_NAME,
10862: p_msg_name => G_UNEXPECTED_ERROR,
10863: p_token1 => G_SQLCODE_TOKEN,
10864: p_token1_value => SQLCODE,
10864: p_token1_value => SQLCODE,
10865: p_token2 => G_SQLERRM_TOKEN,
10866: p_token2_value => SQLERRM);
10867: -- notify caller of an error as UNEXPETED error
10868: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
10869: -- verify that cursor was closed
10870: IF Product_csr%ISOPEN THEN
10871: CLOSE Product_csr;
10872: END IF;
10909: AND txl.kle_id = kleid;
10910:
10911: BEGIN
10912:
10913: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
10914:
10915: OPEN l_hdr_csr(p_chr_id);
10916: FETCH l_hdr_csr INTO l_hdr;
10917: IF l_hdr_csr%NOTFOUND THEN
10940:
10941: FOR l_txd_rec IN txd_csr (l_asst.fa_id)
10942: LOOP
10943: IF (l_txd_rec.cost < l_txl.depreciation_cost) THEN
10944: Okl_Api.set_message(
10945: p_app_name => G_APP_NAME,
10946: p_msg_name => 'OKL_QA_BASISPCNT_GT_100',
10947: p_token1 => 'Line',
10948: p_token1_value => l_lne.name,
10948: p_token1_value => l_lne.name,
10949: p_token2 => 'Tax Book',
10950: p_token2_value => l_txd_rec.tax_book);
10951:
10952: x_return_status := Okl_Api.G_RET_STS_ERROR;
10953: END IF;
10954: END LOOP;
10955:
10956: END LOOP; -- l_lne_csr
10957:
10958: END IF; -- OP and DF lease
10959:
10960:
10961: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
10962: Okl_Api.set_message(
10963: p_app_name => G_APP_NAME,
10964: p_msg_name => G_QA_SUCCESS);
10965: END IF;
10958: END IF; -- OP and DF lease
10959:
10960:
10961: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
10962: Okl_Api.set_message(
10963: p_app_name => G_APP_NAME,
10964: p_msg_name => G_QA_SUCCESS);
10965: END IF;
10966:
10971: NULL; -- Do not do anything
10972:
10973: WHEN OTHERS THEN
10974: -- store SQL error message on message stack
10975: Okl_Api.SET_MESSAGE(
10976: p_app_name => G_APP_NAME,
10977: p_msg_name => G_UNEXPECTED_ERROR,
10978: p_token1 => G_SQLCODE_TOKEN,
10979: p_token1_value => SQLCODE,
10979: p_token1_value => SQLCODE,
10980: p_token2 => G_SQLERRM_TOKEN,
10981: p_token2_value => SQLERRM);
10982:
10983: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
10984:
10985: IF l_hdr_csr%ISOPEN THEN
10986: CLOSE l_hdr_csr;
10987: END IF;
11075: l_sub_cap_amt NUMBER;
11076:
11077: BEGIN
11078:
11079: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
11080:
11081: /*
11082: OPEN contract_csr (p_chr_id);
11083: FETCH contract_csr INTO l_contract_start_date;
11088: LOOP
11089:
11090: /* Checked against linked asset line
11091: IF (l_contract_start_date <> fee_topline_rec.start_date) THEN
11092: OKL_API.set_message(
11093: p_app_name => G_APP_NAME,
11094: p_msg_name => 'OKL_QA_CAP_FEE_ST_DATE',
11095: p_token1 => 'FEE_TYPE',
11096: p_token1_value => fee_topline_rec.strm_type
11095: p_token1 => 'FEE_TYPE',
11096: p_token1_value => fee_topline_rec.strm_type
11097: );
11098:
11099: x_return_status := OKL_API.G_RET_STS_ERROR;
11100: END IF;
11101: */
11102: l_subline_present := 'N';
11103: l_sub_cap_amt := 0;
11112: FETCH link_asset_csr INTO l_asset_start_date;
11113: CLOSE link_asset_csr;
11114:
11115: IF (l_asset_start_date <> fee_topline_rec.start_date) THEN
11116: OKL_API.set_message(
11117: p_app_name => G_APP_NAME,
11118: p_msg_name => 'OKL_QA_CAP_FEE_ST_DATE',
11119: p_token1 => 'FEE_TYPE',
11120: p_token1_value => fee_topline_rec.strm_type
11119: p_token1 => 'FEE_TYPE',
11120: p_token1_value => fee_topline_rec.strm_type
11121: );
11122:
11123: x_return_status := OKL_API.G_RET_STS_ERROR;
11124: END IF;
11125: */
11126: END LOOP;
11127:
11125: */
11126: END LOOP;
11127:
11128: IF (l_subline_present = 'N') THEN
11129: Okl_Api.set_message(
11130: p_app_name => G_APP_NAME,
11131: p_msg_name => 'OKL_QA_CAP_FEE_NO_SUBLINE',
11132: p_token1 => 'FEE_TYPE',
11133: p_token1_value => fee_topline_rec.strm_type
11132: p_token1 => 'FEE_TYPE',
11133: p_token1_value => fee_topline_rec.strm_type
11134: );
11135:
11136: x_return_status := Okl_Api.G_RET_STS_ERROR;
11137:
11138: ELSIF (fee_topline_rec.capital_amount <> l_sub_cap_amt) THEN
11139: Okl_Api.set_message(
11140: p_app_name => G_APP_NAME,
11135:
11136: x_return_status := Okl_Api.G_RET_STS_ERROR;
11137:
11138: ELSIF (fee_topline_rec.capital_amount <> l_sub_cap_amt) THEN
11139: Okl_Api.set_message(
11140: p_app_name => G_APP_NAME,
11141: p_msg_name => 'OKL_QA_CAP_FEE_AMT_ERROR',
11142: p_token1 => 'FEE_TYPE',
11143: p_token1_value => fee_topline_rec.strm_type
11142: p_token1 => 'FEE_TYPE',
11143: p_token1_value => fee_topline_rec.strm_type
11144: );
11145:
11146: x_return_status := Okl_Api.G_RET_STS_ERROR;
11147: END IF;
11148:
11149: END LOOP;
11150:
11147: END IF;
11148:
11149: END LOOP;
11150:
11151: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
11152: Okl_Api.set_message(
11153: p_app_name => G_APP_NAME,
11154: p_msg_name => G_QA_SUCCESS);
11155: END IF;
11148:
11149: END LOOP;
11150:
11151: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
11152: Okl_Api.set_message(
11153: p_app_name => G_APP_NAME,
11154: p_msg_name => G_QA_SUCCESS);
11155: END IF;
11156:
11156:
11157: EXCEPTION
11158: WHEN OTHERS THEN
11159: -- store SQL error message on message stack
11160: Okl_Api.SET_MESSAGE(
11161: p_app_name => G_APP_NAME,
11162: p_msg_name => G_UNEXPECTED_ERROR,
11163: p_token1 => G_SQLCODE_TOKEN,
11164: p_token1_value => SQLCODE,
11164: p_token1_value => SQLCODE,
11165: p_token2 => G_SQLERRM_TOKEN,
11166: p_token2_value => SQLERRM);
11167:
11168: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
11169:
11170: END check_capital_fee;
11171:
11172: -- Start of comments
11209:
11210: l_count NUMBER := 0;
11211:
11212: BEGIN
11213: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
11214:
11215: -- Check for RENT on FEE line
11216:
11217: l_count := 0;
11220: FETCH pmnt_csr INTO l_count;
11221: CLOSE pmnt_csr;
11222:
11223: IF (l_count <> 0) THEN
11224: Okl_Api.set_message(
11225: G_APP_NAME,
11226: 'OKL_QA_INVALID_PMNT_TYPE',
11227: 'LINE_TYPE',
11228: 'FEE'
11226: 'OKL_QA_INVALID_PMNT_TYPE',
11227: 'LINE_TYPE',
11228: 'FEE'
11229: );
11230: x_return_status := Okl_Api.G_RET_STS_ERROR;
11231: END IF;
11232:
11233: -- Check for RENT on SERVICE line
11234: l_count := 0;
11237: FETCH pmnt_csr INTO l_count;
11238: CLOSE pmnt_csr;
11239:
11240: IF (l_count <> 0) THEN
11241: Okl_Api.set_message(
11242: G_APP_NAME,
11243: 'OKL_QA_INVALID_PMNT_TYPE',
11244: 'LINE_TYPE',
11245: 'SERVICE'
11243: 'OKL_QA_INVALID_PMNT_TYPE',
11244: 'LINE_TYPE',
11245: 'SERVICE'
11246: );
11247: x_return_status := Okl_Api.G_RET_STS_ERROR;
11248: END IF;
11249:
11250: END check_fee_service_payment;
11251:
11262: x_return_status OUT NOCOPY VARCHAR2,
11263: p_chr_id IN NUMBER
11264: ) IS
11265:
11266: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
11267:
11268: CURSOR l_lne_pmnt_csr(ltycode VARCHAR2, chrid OKL_K_HEADERS.KHR_ID%TYPE) IS
11269: SELECT kle.name,
11270: kle.CURRENCY_CODE,
11297: l_strm_name_rec strm_name_csr%ROWTYPE;
11298: BEGIN
11299:
11300: -- initialize return status
11301: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
11302:
11303: OPEN l_hdr_csr( p_chr_id );
11304: FETCH l_hdr_csr INTO l_hdr_rec;
11305: CLOSE l_hdr_csr;
11313: OPEN strm_name_csr ( l_rl_rec1.object1_id1 );
11314: FETCH strm_name_csr INTO l_strm_name_rec;
11315: IF strm_name_csr%NOTFOUND THEN
11316: CLOSE strm_name_csr;
11317: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11318: END IF;
11319: CLOSE strm_name_csr;
11320:
11321: FOR l_rl_rec IN l_rl_csr (l_rl_rec1.slh_id, 'LALEVL', 'LASLL', TO_NUMBER(p_chr_id), l_lne_pmnt.id )
11322: LOOP
11323: IF(( l_rl_rec.rule_information2 IS NOT NULL) AND
11324: (TRUNC( Fnd_Date.canonical_to_date(l_rl_rec.rule_information2)) < TRUNC(l_lne_pmnt.start_date)))THEN
11325:
11326: Okl_Api.set_message(
11327: p_app_name => G_APP_NAME,
11328: p_msg_name => 'OKL_QA_PMNT_LN_START_DT',
11329: p_token1 => 'line',
11330: p_token1_value => l_lne_pmnt.name,
11329: p_token1 => 'line',
11330: p_token1_value => l_lne_pmnt.name,
11331: p_token2 => 'payment type',
11332: p_token2_value => l_strm_name_rec.name);
11333: x_return_status := Okl_Api.G_RET_STS_ERROR;
11334: END IF;
11335: END LOOP;
11336: END LOOP;
11337: END LOOP;
11347: OPEN fee_strm_type_csr ( l_lne_pmnt.id, 'FEE' );
11348: FETCH fee_strm_type_csr INTO l_fee_strm_type_rec;
11349: CLOSE fee_strm_type_csr;
11350:
11351: Okl_Api.set_message(
11352: p_app_name => G_APP_NAME,
11353: p_msg_name => 'OKL_QA_PMNT_LN_START_DT',
11354: p_token1 => 'line',
11355: p_token1_value => l_fee_strm_type_rec.strm_name);
11352: p_app_name => G_APP_NAME,
11353: p_msg_name => 'OKL_QA_PMNT_LN_START_DT',
11354: p_token1 => 'line',
11355: p_token1_value => l_fee_strm_type_rec.strm_name);
11356: x_return_status := Okl_Api.G_RET_STS_ERROR;
11357: END IF;
11358: END LOOP;
11359: END LOOP;
11360:
11364: FOR l_rl_rec1 IN l_rl_csr1 ( 'LALEVL', 'LASLL', TO_NUMBER(p_chr_id), l_lne_pmnt.id )
11365: LOOP
11366: IF(( l_rl_rec1.rule_information2 IS NOT NULL) AND
11367: ( TRUNC(Fnd_Date.canonical_to_date(l_rl_rec1.rule_information2)) < TRUNC(l_lne_pmnt.start_date)))THEN
11368: Okl_Api.set_message(
11369: p_app_name => G_APP_NAME,
11370: p_msg_name => 'OKL_QA_PMNT_LN_START_DT',
11371: p_token1 => 'line',
11372: p_token1_value => l_lne_pmnt.name);
11369: p_app_name => G_APP_NAME,
11370: p_msg_name => 'OKL_QA_PMNT_LN_START_DT',
11371: p_token1 => 'line',
11372: p_token1_value => l_lne_pmnt.name);
11373: x_return_status := Okl_Api.G_RET_STS_ERROR;
11374: END IF;
11375: END LOOP;
11376: END LOOP;
11377:
11378: FOR l_rl_rec1 IN l_rl_csr1 ( 'LALEVL', 'LASLL', TO_NUMBER(p_chr_id), -1 )
11379: LOOP
11380: IF(( l_rl_rec1.rule_information2 IS NOT NULL) AND
11381: ( TRUNC(Fnd_Date.canonical_to_date(l_rl_rec1.rule_information2)) < TRUNC(l_hdr_rec.start_date)))THEN
11382: Okl_Api.set_message(
11383: p_app_name => G_APP_NAME,
11384: p_msg_name => 'OKL_QA_PMNT_START_DT');
11385: x_return_status := Okl_Api.G_RET_STS_ERROR;
11386: END IF;
11381: ( TRUNC(Fnd_Date.canonical_to_date(l_rl_rec1.rule_information2)) < TRUNC(l_hdr_rec.start_date)))THEN
11382: Okl_Api.set_message(
11383: p_app_name => G_APP_NAME,
11384: p_msg_name => 'OKL_QA_PMNT_START_DT');
11385: x_return_status := Okl_Api.G_RET_STS_ERROR;
11386: END IF;
11387: END LOOP;
11388:
11389: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
11385: x_return_status := Okl_Api.G_RET_STS_ERROR;
11386: END IF;
11387: END LOOP;
11388:
11389: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
11390: Okl_Api.set_message(
11391: p_app_name => G_APP_NAME,
11392: p_msg_name => G_QA_SUCCESS);
11393: END IF;
11386: END IF;
11387: END LOOP;
11388:
11389: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
11390: Okl_Api.set_message(
11391: p_app_name => G_APP_NAME,
11392: p_msg_name => G_QA_SUCCESS);
11393: END IF;
11394:
11400: END IF;
11401: -- no processing necessary; validation can continue with next column
11402: WHEN OTHERS THEN
11403: -- store SQL error message on message stack
11404: Okl_Api.SET_MESSAGE(
11405: p_app_name => G_APP_NAME,
11406: p_msg_name => G_UNEXPECTED_ERROR,
11407: p_token1 => G_SQLCODE_TOKEN,
11408: p_token1_value => SQLCODE,
11408: p_token1_value => SQLCODE,
11409: p_token2 => G_SQLERRM_TOKEN,
11410: p_token2_value => SQLERRM);
11411: -- notify caller of an error as UNEXPETED error
11412: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
11413: -- verify that cursor was closed
11414: IF l_hdr_csr%ISOPEN THEN
11415: CLOSE l_hdr_csr;
11416: END IF;
11471: tax_failed EXCEPTION;
11472:
11473: BEGIN
11474:
11475: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
11476:
11477: FOR asset_line_rec IN asset_line_csr (p_chr_id)
11478: LOOP
11479: FOR tax_rule_rec IN tax_rule_csr ('LAASTX',
11484:
11485: IF (tax_rule_rec.rule_information1 = 'E' -- Exempt
11486: AND
11487: tax_rule_rec.rule_information2 IS NULL) THEN
11488: Okl_Api.set_message(
11489: G_APP_NAME,
11490: 'OKL_QA_EXEMPT_ERROR',
11491: 'ASSET_NUM',
11492: asset_line_rec.name);
11489: G_APP_NAME,
11490: 'OKL_QA_EXEMPT_ERROR',
11491: 'ASSET_NUM',
11492: asset_line_rec.name);
11493: x_return_status := Okl_Api.G_RET_STS_ERROR;
11494: --RAISE tax_failed;
11495: ELSIF (tax_rule_rec.rule_information1 IS NULL -- Null
11496: AND
11497: tax_rule_rec.rule_information2 IS NOT NULL) THEN
11494: --RAISE tax_failed;
11495: ELSIF (tax_rule_rec.rule_information1 IS NULL -- Null
11496: AND
11497: tax_rule_rec.rule_information2 IS NOT NULL) THEN
11498: Okl_Api.set_message(
11499: G_APP_NAME,
11500: 'OKL_QA_TAX_NULL',
11501: 'ASSET_NUM',
11502: asset_line_rec.name);
11499: G_APP_NAME,
11500: 'OKL_QA_TAX_NULL',
11501: 'ASSET_NUM',
11502: asset_line_rec.name);
11503: x_return_status := Okl_Api.G_RET_STS_ERROR;
11504: --RAISE tax_failed;
11505: END IF;
11506: END LOOP;
11507:
11506: END LOOP;
11507:
11508: END LOOP;
11509:
11510: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
11511: Okl_Api.set_message(
11512: p_app_name => G_APP_NAME,
11513: p_msg_name => G_QA_SUCCESS);
11514: END IF;
11507:
11508: END LOOP;
11509:
11510: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
11511: Okl_Api.set_message(
11512: p_app_name => G_APP_NAME,
11513: p_msg_name => G_QA_SUCCESS);
11514: END IF;
11515:
11518: WHEN tax_failed THEN
11519: NULL; -- error reported, just exit from this process
11520: WHEN OTHERS THEN
11521: -- store SQL error message on message stack
11522: Okl_Api.SET_MESSAGE(
11523: p_app_name => G_APP_NAME,
11524: p_msg_name => G_UNEXPECTED_ERROR,
11525: p_token1 => G_SQLCODE_TOKEN,
11526: p_token1_value => SQLCODE,
11526: p_token1_value => SQLCODE,
11527: p_token2 => G_SQLERRM_TOKEN,
11528: p_token2_value => SQLERRM);
11529:
11530: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
11531:
11532: END check_asset_tax;
11533:
11534:
11536: x_return_status OUT NOCOPY VARCHAR2,
11537: p_chr_id IN NUMBER) IS
11538:
11539: --p_api_version VARCHAR2(4000) := '1.0';
11540: p_init_msg_list VARCHAR2(4000) DEFAULT Okl_Api.G_FALSE;
11541: x_msg_count NUMBER;
11542: x_msg_data VARCHAR2(256);
11543: subsidy_applicable_yn VARCHAR2(10);
11544: l_subsidy_id NUMBER;
11610: is_debug_statement_on BOOLEAN;
11611:
11612:
11613: BEGIN
11614: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
11615:
11616: -- check if debug is enabled
11617: l_debug_enabled := Okl_Debug_Pub.check_log_enabled;
11618: -- check for logging on STATEMENT level
11626: x_msg_data => x_msg_data,
11627: p_chr_id => p_chr_id,
11628: x_subsidized => x_subsidized);
11629:
11630: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
11631: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11632: ELSIF x_return_status = Okl_Api.G_RET_STS_ERROR THEN
11633: RAISE Okl_Api.G_EXCEPTION_ERROR;
11634: END IF;
11627: p_chr_id => p_chr_id,
11628: x_subsidized => x_subsidized);
11629:
11630: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
11631: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11632: ELSIF x_return_status = Okl_Api.G_RET_STS_ERROR THEN
11633: RAISE Okl_Api.G_EXCEPTION_ERROR;
11634: END IF;
11635:
11628: x_subsidized => x_subsidized);
11629:
11630: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
11631: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11632: ELSIF x_return_status = Okl_Api.G_RET_STS_ERROR THEN
11633: RAISE Okl_Api.G_EXCEPTION_ERROR;
11634: END IF;
11635:
11636: IF (x_subsidized = Okl_Api.G_FALSE) THEN
11629:
11630: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
11631: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11632: ELSIF x_return_status = Okl_Api.G_RET_STS_ERROR THEN
11633: RAISE Okl_Api.G_EXCEPTION_ERROR;
11634: END IF;
11635:
11636: IF (x_subsidized = Okl_Api.G_FALSE) THEN
11637: Okl_Api.set_message(
11632: ELSIF x_return_status = Okl_Api.G_RET_STS_ERROR THEN
11633: RAISE Okl_Api.G_EXCEPTION_ERROR;
11634: END IF;
11635:
11636: IF (x_subsidized = Okl_Api.G_FALSE) THEN
11637: Okl_Api.set_message(
11638: p_app_name => G_APP_NAME,
11639: p_msg_name => G_QA_SUCCESS);
11640: RETURN;
11633: RAISE Okl_Api.G_EXCEPTION_ERROR;
11634: END IF;
11635:
11636: IF (x_subsidized = Okl_Api.G_FALSE) THEN
11637: Okl_Api.set_message(
11638: p_app_name => G_APP_NAME,
11639: p_msg_name => G_QA_SUCCESS);
11640: RETURN;
11641: END IF;
11659: * END code changes
11660: */
11661:
11662: IF (subsidy_applicable_yn = 'N') THEN
11663: Okl_Api.set_message(
11664: p_app_name => G_APP_NAME,
11665: p_msg_name => 'OKL_SUBSIDY_CRITERIA_MATCH',
11666: p_token1 => 'SUBSIDY_NAME',
11667: p_token1_value => get_subsidy_for_asset_rec.subsidy_name,
11666: p_token1 => 'SUBSIDY_NAME',
11667: p_token1_value => get_subsidy_for_asset_rec.subsidy_name,
11668: p_token2 => 'ASSET_NUMBER',
11669: p_token2_value => get_subsidy_for_asset_rec.asset_number);
11670: x_return_status := Okl_Api.G_RET_STS_ERROR;
11671: RAISE G_EXCEPTION_HALT_VALIDATION;
11672: END IF;
11673:
11674: OPEN check_subsidy_recourse(get_subsidy_for_asset_rec.subsidy_id);
11677: IF (recourse_yn = 'Y') THEN
11678: OPEN check_refund_details(get_subsidy_for_asset_rec.subsidy_cle_id);
11679: FETCH check_refund_details INTO check_refund_details_rec;
11680: IF (check_refund_details%NOTFOUND) THEN
11681: x_return_status := Okl_Api.G_RET_STS_ERROR;
11682: Okl_Api.set_message(
11683: p_app_name => G_APP_NAME,
11684: p_msg_name => 'OKL_LA_SUBSIDY_PARTY_PYMT',
11685: p_token1 => 'SUBSIDY_NAME',
11678: OPEN check_refund_details(get_subsidy_for_asset_rec.subsidy_cle_id);
11679: FETCH check_refund_details INTO check_refund_details_rec;
11680: IF (check_refund_details%NOTFOUND) THEN
11681: x_return_status := Okl_Api.G_RET_STS_ERROR;
11682: Okl_Api.set_message(
11683: p_app_name => G_APP_NAME,
11684: p_msg_name => 'OKL_LA_SUBSIDY_PARTY_PYMT',
11685: p_token1 => 'SUBSIDY_NAME',
11686: p_token1_value => get_subsidy_for_asset_rec.subsidy_name ,
11713: -- if the pool status code is not ACTIVE then no date comparision would be done.
11714: lv_subsidy_pool_applicable_yn := Okl_Asset_Subsidy_Pvt.is_sub_pool_active(p_subsidy_pool_id => lx_subsidy_pool_id
11715: ,x_pool_status => lx_pool_status );
11716: IF(lv_subsidy_pool_applicable_yn <> 'Y')THEN
11717: x_return_status := Okl_Api.G_RET_STS_ERROR;
11718: Okl_Api.set_message(
11719: p_app_name => G_APP_NAME,
11720: p_msg_name => G_SUB_POOL_NOT_ACTIVE,
11721: p_token1 => 'SUBSIDY_NAME',
11714: lv_subsidy_pool_applicable_yn := Okl_Asset_Subsidy_Pvt.is_sub_pool_active(p_subsidy_pool_id => lx_subsidy_pool_id
11715: ,x_pool_status => lx_pool_status );
11716: IF(lv_subsidy_pool_applicable_yn <> 'Y')THEN
11717: x_return_status := Okl_Api.G_RET_STS_ERROR;
11718: Okl_Api.set_message(
11719: p_app_name => G_APP_NAME,
11720: p_msg_name => G_SUB_POOL_NOT_ACTIVE,
11721: p_token1 => 'SUBSIDY_NAME',
11722: p_token1_value => get_subsidy_for_asset_rec.subsidy_name ,
11727: -- validate if the asset start date lies between the effective dates of the subsidy pool
11728: lv_subsidy_pool_applicable_yn := Okl_Asset_Subsidy_Pvt.is_sub_pool_active_by_date(p_subsidy_pool_id => lx_subsidy_pool_id
11729: ,p_asset_date => get_subsidy_for_asset_rec.asset_start_date );
11730: IF(lv_subsidy_pool_applicable_yn <> 'Y')THEN
11731: x_return_status := Okl_Api.G_RET_STS_ERROR;
11732: Okl_Api.set_message(
11733: p_app_name => G_APP_NAME,
11734: p_msg_name => G_SUB_POOL_ASSET_DATES_GAP,
11735: p_token1 => 'SUBSIDY_NAME',
11728: lv_subsidy_pool_applicable_yn := Okl_Asset_Subsidy_Pvt.is_sub_pool_active_by_date(p_subsidy_pool_id => lx_subsidy_pool_id
11729: ,p_asset_date => get_subsidy_for_asset_rec.asset_start_date );
11730: IF(lv_subsidy_pool_applicable_yn <> 'Y')THEN
11731: x_return_status := Okl_Api.G_RET_STS_ERROR;
11732: Okl_Api.set_message(
11733: p_app_name => G_APP_NAME,
11734: p_msg_name => G_SUB_POOL_ASSET_DATES_GAP,
11735: p_token1 => 'SUBSIDY_NAME',
11736: p_token1_value => get_subsidy_for_asset_rec.subsidy_name ,
11742: lx_pool_balance := 0;
11743: lv_subsidy_pool_applicable_yn := Okl_Asset_Subsidy_Pvt.is_balance_valid_before_add(p_subsidy_pool_id => lx_subsidy_pool_id
11744: ,x_pool_balance => lx_pool_balance);
11745: IF(lv_subsidy_pool_applicable_yn <> 'Y')THEN
11746: x_return_status := Okl_Api.G_RET_STS_ERROR;
11747: Okl_Api.set_message(
11748: p_app_name => G_APP_NAME,
11749: p_msg_name => G_SUB_POOL_BALANCE_INVALID,
11750: p_token1 => 'SUBSIDY_NAME',
11743: lv_subsidy_pool_applicable_yn := Okl_Asset_Subsidy_Pvt.is_balance_valid_before_add(p_subsidy_pool_id => lx_subsidy_pool_id
11744: ,x_pool_balance => lx_pool_balance);
11745: IF(lv_subsidy_pool_applicable_yn <> 'Y')THEN
11746: x_return_status := Okl_Api.G_RET_STS_ERROR;
11747: Okl_Api.set_message(
11748: p_app_name => G_APP_NAME,
11749: p_msg_name => G_SUB_POOL_BALANCE_INVALID,
11750: p_token1 => 'SUBSIDY_NAME',
11751: p_token1_value => get_subsidy_for_asset_rec.subsidy_name ,
11772: 'okl_asset_subsidy_pvt.is_balance_valid_after_add returned with '|| x_return_status||' x_msg_data '||x_msg_data
11773: );
11774: END IF; -- end of NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on
11775: EXCEPTION WHEN OTHERS THEN
11776: x_return_status := Okl_Api.G_RET_STS_ERROR;
11777: /*comment out to avoid duplicated error: cklee 09/12/2005
11778: OKL_API.set_message(
11779: p_app_name => G_APP_NAME,
11780: p_msg_name => G_SUB_POOL_BALANCE_INVALID,
11774: END IF; -- end of NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on
11775: EXCEPTION WHEN OTHERS THEN
11776: x_return_status := Okl_Api.G_RET_STS_ERROR;
11777: /*comment out to avoid duplicated error: cklee 09/12/2005
11778: OKL_API.set_message(
11779: p_app_name => G_APP_NAME,
11780: p_msg_name => G_SUB_POOL_BALANCE_INVALID,
11781: p_token1 => 'SUBSIDY_NAME',
11782: p_token1_value => get_subsidy_for_asset_rec.subsidy_name ,
11793: * END
11794: */
11795: END LOOP;
11796:
11797: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
11798: Okl_Api.set_message(
11799: p_app_name => G_APP_NAME,
11800: p_msg_name => G_QA_SUCCESS);
11801: END IF;
11794: */
11795: END LOOP;
11796:
11797: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
11798: Okl_Api.set_message(
11799: p_app_name => G_APP_NAME,
11800: p_msg_name => G_QA_SUCCESS);
11801: END IF;
11802:
11805: WHEN G_EXCEPTION_HALT_VALIDATION THEN
11806: NULL; -- error reported, just exit from this process
11807: WHEN OTHERS THEN
11808: -- store SQL error message on message stack
11809: Okl_Api.SET_MESSAGE(
11810: p_app_name => G_APP_NAME,
11811: p_msg_name => G_UNEXPECTED_ERROR,
11812: p_token1 => G_SQLCODE_TOKEN,
11813: p_token1_value => SQLCODE,
11813: p_token1_value => SQLCODE,
11814: p_token2 => G_SQLERRM_TOKEN,
11815: p_token2_value => SQLERRM);
11816:
11817: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
11818:
11819: IF check_subsidy_recourse%ISOPEN THEN
11820: CLOSE check_subsidy_recourse;
11821: END IF;
11830: x_return_status OUT NOCOPY VARCHAR2,
11831: p_chr_id IN NUMBER) IS
11832:
11833: --p_api_version VARCHAR2(4000) := '1.0';
11834: p_init_msg_list VARCHAR2(4000) DEFAULT Okl_Api.G_FALSE;
11835: stored_subsidy_amount NUMBER;
11836: calc_subsidy_amount NUMBER;
11837: x_subsidy_amount NUMBER;
11838: x_msg_count NUMBER;
11839: x_msg_data VARCHAR2(256);
11840: x_subsidized VARCHAR2(1);
11841:
11842: BEGIN
11843: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
11844:
11845: Okl_Subsidy_Process_Pvt.is_contract_subsidized(
11846: p_api_version => 1.0,
11847: p_init_msg_list => p_init_msg_list,
11850: x_msg_data => x_msg_data,
11851: p_chr_id => p_chr_id,
11852: x_subsidized => x_subsidized);
11853:
11854: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
11855: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11856: ELSIF x_return_status = Okl_Api.G_RET_STS_ERROR THEN
11857: RAISE Okl_Api.G_EXCEPTION_ERROR;
11858: END IF;
11851: p_chr_id => p_chr_id,
11852: x_subsidized => x_subsidized);
11853:
11854: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
11855: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11856: ELSIF x_return_status = Okl_Api.G_RET_STS_ERROR THEN
11857: RAISE Okl_Api.G_EXCEPTION_ERROR;
11858: END IF;
11859:
11852: x_subsidized => x_subsidized);
11853:
11854: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
11855: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11856: ELSIF x_return_status = Okl_Api.G_RET_STS_ERROR THEN
11857: RAISE Okl_Api.G_EXCEPTION_ERROR;
11858: END IF;
11859:
11860: IF (x_subsidized = Okl_Api.G_FALSE) THEN
11853:
11854: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
11855: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11856: ELSIF x_return_status = Okl_Api.G_RET_STS_ERROR THEN
11857: RAISE Okl_Api.G_EXCEPTION_ERROR;
11858: END IF;
11859:
11860: IF (x_subsidized = Okl_Api.G_FALSE) THEN
11861: Okl_Api.set_message(
11856: ELSIF x_return_status = Okl_Api.G_RET_STS_ERROR THEN
11857: RAISE Okl_Api.G_EXCEPTION_ERROR;
11858: END IF;
11859:
11860: IF (x_subsidized = Okl_Api.G_FALSE) THEN
11861: Okl_Api.set_message(
11862: p_app_name => G_APP_NAME,
11863: p_msg_name => G_QA_SUCCESS);
11864: RETURN;
11857: RAISE Okl_Api.G_EXCEPTION_ERROR;
11858: END IF;
11859:
11860: IF (x_subsidized = Okl_Api.G_FALSE) THEN
11861: Okl_Api.set_message(
11862: p_app_name => G_APP_NAME,
11863: p_msg_name => G_QA_SUCCESS);
11864: RETURN;
11865: END IF;
11864: RETURN;
11865: END IF;
11866:
11867: Okl_Subsidy_Process_Pvt.get_contract_subsidy_amount(p_api_version => 1.0,
11868: p_init_msg_list => Okl_Api.G_FALSE,
11869: x_return_status => x_return_status,
11870: x_msg_count => x_msg_count,
11871: x_msg_data => x_msg_data,
11872: p_chr_id => p_chr_id,
11870: x_msg_count => x_msg_count,
11871: x_msg_data => x_msg_data,
11872: p_chr_id => p_chr_id,
11873: x_subsidy_amount => x_subsidy_amount);
11874: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
11875: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11876: ELSIF x_return_status = Okl_Api.G_RET_STS_ERROR THEN
11877: RAISE Okl_Api.G_EXCEPTION_ERROR;
11878: END IF;
11871: x_msg_data => x_msg_data,
11872: p_chr_id => p_chr_id,
11873: x_subsidy_amount => x_subsidy_amount);
11874: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
11875: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11876: ELSIF x_return_status = Okl_Api.G_RET_STS_ERROR THEN
11877: RAISE Okl_Api.G_EXCEPTION_ERROR;
11878: END IF;
11879:
11872: p_chr_id => p_chr_id,
11873: x_subsidy_amount => x_subsidy_amount);
11874: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
11875: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11876: ELSIF x_return_status = Okl_Api.G_RET_STS_ERROR THEN
11877: RAISE Okl_Api.G_EXCEPTION_ERROR;
11878: END IF;
11879:
11880: stored_subsidy_amount := x_subsidy_amount;
11873: x_subsidy_amount => x_subsidy_amount);
11874: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
11875: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11876: ELSIF x_return_status = Okl_Api.G_RET_STS_ERROR THEN
11877: RAISE Okl_Api.G_EXCEPTION_ERROR;
11878: END IF;
11879:
11880: stored_subsidy_amount := x_subsidy_amount;
11881: Okl_Subsidy_Process_Pvt.calculate_contract_subsidy(p_api_version => 1.0,
11878: END IF;
11879:
11880: stored_subsidy_amount := x_subsidy_amount;
11881: Okl_Subsidy_Process_Pvt.calculate_contract_subsidy(p_api_version => 1.0,
11882: p_init_msg_list => Okl_Api.G_FALSE,
11883: x_return_status => x_return_status,
11884: x_msg_count => x_msg_count,
11885: x_msg_data => x_msg_data,
11886: p_chr_id => p_chr_id,
11885: x_msg_data => x_msg_data,
11886: p_chr_id => p_chr_id,
11887: x_subsidy_amount => x_subsidy_amount);
11888:
11889: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
11890: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11891: ELSIF x_return_status = Okl_Api.G_RET_STS_ERROR THEN
11892: RAISE Okl_Api.G_EXCEPTION_ERROR;
11893: END IF;
11886: p_chr_id => p_chr_id,
11887: x_subsidy_amount => x_subsidy_amount);
11888:
11889: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
11890: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11891: ELSIF x_return_status = Okl_Api.G_RET_STS_ERROR THEN
11892: RAISE Okl_Api.G_EXCEPTION_ERROR;
11893: END IF;
11894:
11887: x_subsidy_amount => x_subsidy_amount);
11888:
11889: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
11890: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11891: ELSIF x_return_status = Okl_Api.G_RET_STS_ERROR THEN
11892: RAISE Okl_Api.G_EXCEPTION_ERROR;
11893: END IF;
11894:
11895: calc_subsidy_amount := x_subsidy_amount;
11888:
11889: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
11890: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11891: ELSIF x_return_status = Okl_Api.G_RET_STS_ERROR THEN
11892: RAISE Okl_Api.G_EXCEPTION_ERROR;
11893: END IF;
11894:
11895: calc_subsidy_amount := x_subsidy_amount;
11896: IF (stored_subsidy_amount <> calc_subsidy_amount) THEN
11893: END IF;
11894:
11895: calc_subsidy_amount := x_subsidy_amount;
11896: IF (stored_subsidy_amount <> calc_subsidy_amount) THEN
11897: Okl_Api.set_message(
11898: p_app_name => G_APP_NAME,
11899: p_msg_name => 'OKL_SUBSIDY_AMOUNT_MATCH');
11900: x_return_status := Okl_Api.G_RET_STS_ERROR;
11901: RAISE G_EXCEPTION_HALT_VALIDATION;
11896: IF (stored_subsidy_amount <> calc_subsidy_amount) THEN
11897: Okl_Api.set_message(
11898: p_app_name => G_APP_NAME,
11899: p_msg_name => 'OKL_SUBSIDY_AMOUNT_MATCH');
11900: x_return_status := Okl_Api.G_RET_STS_ERROR;
11901: RAISE G_EXCEPTION_HALT_VALIDATION;
11902: END IF;
11903:
11904: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
11900: x_return_status := Okl_Api.G_RET_STS_ERROR;
11901: RAISE G_EXCEPTION_HALT_VALIDATION;
11902: END IF;
11903:
11904: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
11905: Okl_Api.set_message(
11906: p_app_name => G_APP_NAME,
11907: p_msg_name => G_QA_SUCCESS);
11908: END IF;
11901: RAISE G_EXCEPTION_HALT_VALIDATION;
11902: END IF;
11903:
11904: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
11905: Okl_Api.set_message(
11906: p_app_name => G_APP_NAME,
11907: p_msg_name => G_QA_SUCCESS);
11908: END IF;
11909:
11912: WHEN G_EXCEPTION_HALT_VALIDATION THEN
11913: NULL; -- error reported, just exit from this process
11914: WHEN OTHERS THEN
11915: -- store SQL error message on message stack
11916: Okl_Api.SET_MESSAGE(
11917: p_app_name => G_APP_NAME,
11918: p_msg_name => G_UNEXPECTED_ERROR,
11919: p_token1 => G_SQLCODE_TOKEN,
11920: p_token1_value => SQLCODE,
11920: p_token1_value => SQLCODE,
11921: p_token2 => G_SQLERRM_TOKEN,
11922: p_token2_value => SQLERRM);
11923:
11924: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
11925:
11926: END;
11927:
11928: -- Start of comments
11938: x_return_status OUT NOCOPY VARCHAR2,
11939: p_chr_id IN NUMBER
11940: ) IS
11941:
11942: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
11943: x_msg_count NUMBER;
11944: x_msg_data VARCHAR2(1000);
11945:
11946: BEGIN
11946: BEGIN
11947: --
11948: -- Check credit lines
11949: --
11950: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
11951:
11952: Okl_La_Validation_Util_Pvt.validate_crdtln_wrng (
11953: p_api_version => 1.0,
11954: p_init_msg_list => Okl_Api.G_FALSE,
11950: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
11951:
11952: Okl_La_Validation_Util_Pvt.validate_crdtln_wrng (
11953: p_api_version => 1.0,
11954: p_init_msg_list => Okl_Api.G_FALSE,
11955: x_return_status => l_return_status,
11956: x_msg_count => x_msg_count,
11957: x_msg_data => x_msg_data,
11958: p_chr_id => p_chr_id
11957: x_msg_data => x_msg_data,
11958: p_chr_id => p_chr_id
11959: );
11960:
11961: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
11962: x_return_status := l_return_status;
11963: END IF;
11964:
11965: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
11961: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
11962: x_return_status := l_return_status;
11963: END IF;
11964:
11965: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
11966: Okl_Api.set_message(
11967: p_app_name => G_APP_NAME,
11968: p_msg_name => G_QA_SUCCESS);
11969: END IF;
11962: x_return_status := l_return_status;
11963: END IF;
11964:
11965: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
11966: Okl_Api.set_message(
11967: p_app_name => G_APP_NAME,
11968: p_msg_name => G_QA_SUCCESS);
11969: END IF;
11970:
11983: x_return_status OUT NOCOPY VARCHAR2,
11984: p_chr_id IN NUMBER
11985: ) IS
11986:
11987: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
11988: x_msg_count NUMBER;
11989: x_msg_data VARCHAR2(1000);
11990: l_invoice_format OKC_RULES_B.RULE_INFORMATION1%TYPE;
11991:
12003: BEGIN
12004: --
12005: -- Check invoice format
12006: --
12007: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
12008:
12009: OPEN l_invoice_format_csr;
12010: FETCH l_invoice_format_csr INTO l_invoice_format;
12011: IF (l_invoice_format_csr%NOTFOUND OR l_invoice_format IS NULL) THEN
12008:
12009: OPEN l_invoice_format_csr;
12010: FETCH l_invoice_format_csr INTO l_invoice_format;
12011: IF (l_invoice_format_csr%NOTFOUND OR l_invoice_format IS NULL) THEN
12012: x_return_status := Okl_Api.G_RET_STS_ERROR;
12013: Okl_Api.set_message(
12014: p_app_name => G_APP_NAME,
12015: p_msg_name => 'OKL_QA_NO_INV_FORMAT');
12016: END IF;
12009: OPEN l_invoice_format_csr;
12010: FETCH l_invoice_format_csr INTO l_invoice_format;
12011: IF (l_invoice_format_csr%NOTFOUND OR l_invoice_format IS NULL) THEN
12012: x_return_status := Okl_Api.G_RET_STS_ERROR;
12013: Okl_Api.set_message(
12014: p_app_name => G_APP_NAME,
12015: p_msg_name => 'OKL_QA_NO_INV_FORMAT');
12016: END IF;
12017: CLOSE l_invoice_format_csr;
12016: END IF;
12017: CLOSE l_invoice_format_csr;
12018:
12019:
12020: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
12021: Okl_Api.set_message(
12022: p_app_name => G_APP_NAME,
12023: p_msg_name => G_QA_SUCCESS);
12024: END IF;
12017: CLOSE l_invoice_format_csr;
12018:
12019:
12020: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
12021: Okl_Api.set_message(
12022: p_app_name => G_APP_NAME,
12023: p_msg_name => G_QA_SUCCESS);
12024: END IF;
12025:
12073: AND sgn.sgn_code = 'STMP';
12074:
12075: l_assets_txl_lines_rec l_assets_txl_lines%ROWTYPE;
12076: l_tax_mapping_found VARCHAR2(1) DEFAULT 'N';
12077: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
12078:
12079: BEGIN
12080:
12081: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
12077: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
12078:
12079: BEGIN
12080:
12081: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
12082:
12083: FOR l_assets_txl_lines_rec IN l_assets_txl_lines
12084: LOOP
12085: l_tax_mapping_found := 'N';
12085: l_tax_mapping_found := 'N';
12086: OPEN l_check_tax_map_for_asset(l_assets_txl_lines_rec.tax_book);
12087: FETCH l_check_tax_map_for_asset INTO l_tax_mapping_found;
12088: IF (l_check_tax_map_for_asset%NOTFOUND) THEN
12089: Okl_Api.set_message(
12090: p_app_name => G_APP_NAME,
12091: p_msg_name => 'OKL_QA_NO_TAX_MAP',
12092: p_token1 => 'TAX_BOOK',
12093: p_token1_value => l_assets_txl_lines_rec.tax_book,
12092: p_token1 => 'TAX_BOOK',
12093: p_token1_value => l_assets_txl_lines_rec.tax_book,
12094: p_token2 => 'ASSET_NUM',
12095: p_token2_value => l_assets_txl_lines_rec.asset_num);
12096: x_return_status := Okl_Api.G_RET_STS_ERROR;
12097: END IF;
12098: CLOSE l_check_tax_map_for_asset;
12099: END LOOP;
12100:
12097: END IF;
12098: CLOSE l_check_tax_map_for_asset;
12099: END LOOP;
12100:
12101: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
12102: Okl_Api.set_message(
12103: p_app_name => G_APP_NAME,
12104: p_msg_name => G_QA_SUCCESS);
12105: END IF;
12098: CLOSE l_check_tax_map_for_asset;
12099: END LOOP;
12100:
12101: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
12102: Okl_Api.set_message(
12103: p_app_name => G_APP_NAME,
12104: p_msg_name => G_QA_SUCCESS);
12105: END IF;
12106:
12106:
12107: EXCEPTION
12108: WHEN OTHERS THEN
12109: -- store SQL error message on message stack
12110: Okl_Api.SET_MESSAGE(
12111: p_app_name => G_APP_NAME,
12112: p_msg_name => G_UNEXPECTED_ERROR,
12113: p_token1 => G_SQLCODE_TOKEN,
12114: p_token1_value => SQLCODE,
12114: p_token1_value => SQLCODE,
12115: p_token2 => G_SQLERRM_TOKEN,
12116: p_token2_value => SQLERRM);
12117:
12118: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
12119:
12120: IF l_check_tax_map_for_asset%ISOPEN THEN
12121: CLOSE l_check_tax_map_for_asset;
12122: END IF;
12140: ) IS
12141:
12142: l_hdr l_hdr_csr%ROWTYPE;
12143: l_hdrrl_rec l_hdrrl_csr%ROWTYPE;
12144: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
12145:
12146: BEGIN
12147:
12148: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
12144: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
12145:
12146: BEGIN
12147:
12148: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
12149:
12150: OPEN l_hdr_csr(p_chr_id);
12151: FETCH l_hdr_csr INTO l_hdr;
12152: IF l_hdr_csr%NOTFOUND THEN
12159: FETCH l_hdrrl_csr INTO l_hdrrl_rec;
12160: CLOSE l_hdrrl_csr;
12161:
12162: IF ((INSTR( l_hdr.DEAL_TYPE,'ST') > 0 ) AND (l_hdrrl_rec.RULE_INFORMATION1 <> 'LESSEE')) THEN
12163: Okl_Api.set_message(
12164: p_app_name => G_APP_NAME,
12165: p_msg_name => 'OKL_QA_ST_LESSEE');
12166: -- notify caller of an error
12167: x_return_status := Okl_Api.G_RET_STS_ERROR;
12163: Okl_Api.set_message(
12164: p_app_name => G_APP_NAME,
12165: p_msg_name => 'OKL_QA_ST_LESSEE');
12166: -- notify caller of an error
12167: x_return_status := Okl_Api.G_RET_STS_ERROR;
12168: END IF;
12169:
12170: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
12171: Okl_Api.set_message(
12166: -- notify caller of an error
12167: x_return_status := Okl_Api.G_RET_STS_ERROR;
12168: END IF;
12169:
12170: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
12171: Okl_Api.set_message(
12172: p_app_name => G_APP_NAME,
12173: p_msg_name => G_QA_SUCCESS);
12174: END IF;
12167: x_return_status := Okl_Api.G_RET_STS_ERROR;
12168: END IF;
12169:
12170: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
12171: Okl_Api.set_message(
12172: p_app_name => G_APP_NAME,
12173: p_msg_name => G_QA_SUCCESS);
12174: END IF;
12175:
12175:
12176: EXCEPTION
12177: WHEN OTHERS THEN
12178: -- store SQL error message on message stack
12179: Okl_Api.SET_MESSAGE(
12180: p_app_name => G_APP_NAME,
12181: p_msg_name => G_UNEXPECTED_ERROR,
12182: p_token1 => G_SQLCODE_TOKEN,
12183: p_token1_value => SQLCODE,
12183: p_token1_value => SQLCODE,
12184: p_token2 => G_SQLERRM_TOKEN,
12185: p_token2_value => SQLERRM);
12186:
12187: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
12188:
12189: IF l_hdr_csr%ISOPEN THEN
12190: CLOSE l_hdr_csr;
12191: END IF;
12212: x_return_status OUT NOCOPY VARCHAR2,
12213: p_chr_id IN NUMBER
12214: ) IS
12215:
12216: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
12217: x_msg_count NUMBER;
12218: x_msg_data VARCHAR2(1000);
12219: l_invoice_format OKC_RULES_B.RULE_INFORMATION1%TYPE;
12220:
12286: --
12287: -- Check payment lines for similar structure
12288: -- No 2 consecutive payment lines have same amount
12289: --
12290: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
12291:
12292: FOR l_chr_rec IN l_chr_csr (p_chr_id)
12293: LOOP
12294: IF (l_chr_rec.deal_type IN ('LOAN','LOAN-REVOLVING')) THEN
12311: AND -- Bug 4766555
12312: (TO_NUMBER(NVL(l_prev_rate,0)) = TO_NUMBER(NVL(l_strm_sll_rec.rate,'0')))
12313: THEN
12314: -- Error
12315: Okl_Api.set_message(
12316: G_APP_NAME,
12317: 'OKL_QA_INVALID_PMNT',
12318: 'LINE_TYPE',
12319: l_lne_rec.line_type,
12319: l_lne_rec.line_type,
12320: 'PMNT_TYPE',
12321: l_strm_slh_rec.stream_type
12322: );
12323: x_return_status := Okl_Api.G_RET_STS_ERROR;
12324: ELSE
12325: l_prev_pmnt := TO_NUMBER(NVL(l_strm_sll_rec.amt,'0'));
12326: l_prev_rate := TO_NUMBER(NVL(l_strm_sll_rec.rate,'0'));
12327: END IF; --check
12346: ELSE
12347: -- Check payment amount here
12348: IF (l_prev_pmnt = TO_NUMBER(NVL(l_strm_sll_rec.amt,'0'))) THEN
12349: -- Error
12350: Okl_Api.set_message(
12351: G_APP_NAME,
12352: 'OKL_QA_INVALID_PMNT_HDR',
12353: 'PMNT_TYPE',
12354: l_strm_slh_rec.stream_type
12352: 'OKL_QA_INVALID_PMNT_HDR',
12353: 'PMNT_TYPE',
12354: l_strm_slh_rec.stream_type
12355: );
12356: x_return_status := Okl_Api.G_RET_STS_ERROR;
12357: ELSE
12358: l_prev_pmnt := TO_NUMBER(NVL(l_strm_sll_rec.amt,'0'));
12359: END IF; --check
12360:
12379: ELSE
12380: -- Check payment amount here
12381: IF (l_prev_pmnt = TO_NUMBER(NVL(l_strm_sll_rec.amt,'0'))) THEN
12382: -- Error
12383: Okl_Api.set_message(
12384: G_APP_NAME,
12385: 'OKL_QA_INVALID_PMNT',
12386: 'LINE_TYPE',
12387: l_financed_rec.line_type,
12387: l_financed_rec.line_type,
12388: 'PMNT_TYPE',
12389: l_strm_slh_rec.stream_type
12390: );
12391: x_return_status := Okl_Api.G_RET_STS_ERROR;
12392: ELSE
12393: l_prev_pmnt := TO_NUMBER(NVL(l_strm_sll_rec.amt,'0'));
12394: END IF; --check
12395:
12401:
12402: END IF;-- deal_type
12403: END LOOP; --l_chr_csr;
12404:
12405: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
12406: Okl_Api.set_message(
12407: p_app_name => G_APP_NAME,
12408: p_msg_name => G_QA_SUCCESS);
12409: END IF;
12402: END IF;-- deal_type
12403: END LOOP; --l_chr_csr;
12404:
12405: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
12406: Okl_Api.set_message(
12407: p_app_name => G_APP_NAME,
12408: p_msg_name => G_QA_SUCCESS);
12409: END IF;
12410:
12410:
12411: EXCEPTION
12412: WHEN OTHERS THEN
12413: -- store SQL error message on message stack
12414: Okl_Api.SET_MESSAGE(
12415: p_app_name => G_APP_NAME,
12416: p_msg_name => G_UNEXPECTED_ERROR,
12417: p_token1 => G_SQLCODE_TOKEN,
12418: p_token1_value => SQLCODE,
12418: p_token1_value => SQLCODE,
12419: p_token2 => G_SQLERRM_TOKEN,
12420: p_token2_value => SQLERRM);
12421:
12422: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
12423:
12424: END check_payment_struct;
12425:
12426: -- Start of comments
12440:
12441: l_hdr l_hdr_csr%ROWTYPE;
12442:
12443: BEGIN
12444: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
12445:
12446: OPEN l_hdr_csr(p_chr_id);
12447: FETCH l_hdr_csr INTO l_hdr;
12448: IF l_hdr_csr%NOTFOUND THEN
12451: END IF;
12452: CLOSE l_hdr_csr;
12453:
12454: IF( l_hdr.DATE_SIGNED >= l_hdr.START_DATE) THEN
12455: Okl_Api.set_message(
12456: p_app_name => G_APP_NAME,
12457: p_msg_name => 'OKL_QA_DATESIGNED_LT_START');
12458: -- notify caller of an error
12459: x_return_status := Okl_Api.G_RET_STS_ERROR;
12455: Okl_Api.set_message(
12456: p_app_name => G_APP_NAME,
12457: p_msg_name => 'OKL_QA_DATESIGNED_LT_START');
12458: -- notify caller of an error
12459: x_return_status := Okl_Api.G_RET_STS_ERROR;
12460: END IF;
12461:
12462: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
12463: Okl_Api.set_message(
12458: -- notify caller of an error
12459: x_return_status := Okl_Api.G_RET_STS_ERROR;
12460: END IF;
12461:
12462: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
12463: Okl_Api.set_message(
12464: p_app_name => G_APP_NAME,
12465: p_msg_name => G_QA_SUCCESS);
12466: END IF;
12459: x_return_status := Okl_Api.G_RET_STS_ERROR;
12460: END IF;
12461:
12462: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
12463: Okl_Api.set_message(
12464: p_app_name => G_APP_NAME,
12465: p_msg_name => G_QA_SUCCESS);
12466: END IF;
12467:
12470: WHEN G_EXCEPTION_HALT_VALIDATION THEN
12471: NULL; -- error reported, just exit from this process
12472: WHEN OTHERS THEN
12473: -- store SQL error message on message stack
12474: Okl_Api.SET_MESSAGE(
12475: p_app_name => G_APP_NAME,
12476: p_msg_name => G_UNEXPECTED_ERROR,
12477: p_token1 => G_SQLCODE_TOKEN,
12478: p_token1_value => SQLCODE,
12478: p_token1_value => SQLCODE,
12479: p_token2 => G_SQLERRM_TOKEN,
12480: p_token2_value => SQLERRM);
12481:
12482: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
12483:
12484: IF l_hdr_csr%ISOPEN THEN
12485: CLOSE l_hdr_csr;
12486: END IF;
12561: and fab.transaction_header_id_out is null;
12562:
12563: BEGIN
12564:
12565: x_return_status := OKL_API.G_RET_STS_SUCCESS;
12566:
12567: --check for rebook contract
12568: l_rbk_khr := '?';
12569: OPEN l_chk_rbk_csr (p_chr_id => p_chr_id);
12576: Loop
12577:
12578: If NVL(l_corp_book_rec.original_cost,0) <> NVL(l_corp_book_rec.new_cost,0) Then
12579:
12580: OKL_API.set_message(
12581: p_app_name => G_APP_NAME,
12582: p_msg_name => 'OKL_LA_DEPRN_COST_CHG',
12583: p_token1 => 'ASSET_NUMBER',
12584: p_token1_value => l_corp_book_rec.asset_number);
12581: p_app_name => G_APP_NAME,
12582: p_msg_name => 'OKL_LA_DEPRN_COST_CHG',
12583: p_token1 => 'ASSET_NUMBER',
12584: p_token1_value => l_corp_book_rec.asset_number);
12585: x_return_status := OKL_API.G_RET_STS_ERROR;
12586:
12587: Else
12588:
12589: For l_tax_book_rec In l_tax_book_csr(p_tal_id => l_corp_book_rec.tal_id)
12589: For l_tax_book_rec In l_tax_book_csr(p_tal_id => l_corp_book_rec.tal_id)
12590: Loop
12591:
12592: If NVL(l_tax_book_rec.original_cost,0) <> NVL(l_tax_book_rec.new_cost,0) Then
12593: OKL_API.set_message(
12594: p_app_name => G_APP_NAME,
12595: p_msg_name => 'OKL_LA_DEPRN_COST_CHG',
12596: p_token1 => 'ASSET_NUMBER',
12597: p_token1_value => l_tax_book_rec.asset_number);
12594: p_app_name => G_APP_NAME,
12595: p_msg_name => 'OKL_LA_DEPRN_COST_CHG',
12596: p_token1 => 'ASSET_NUMBER',
12597: p_token1_value => l_tax_book_rec.asset_number);
12598: x_return_status := OKL_API.G_RET_STS_ERROR;
12599:
12600: Exit;
12601: End If;
12602:
12604: End If;
12605: End Loop;
12606: End If;
12607:
12608: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
12609: OKL_API.set_message(
12610: p_app_name => G_APP_NAME,
12611: p_msg_name => G_QA_SUCCESS);
12612: END IF;
12605: End Loop;
12606: End If;
12607:
12608: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
12609: OKL_API.set_message(
12610: p_app_name => G_APP_NAME,
12611: p_msg_name => G_QA_SUCCESS);
12612: END IF;
12613:
12613:
12614: EXCEPTION
12615: WHEN OTHERS THEN
12616: -- store SQL error message on message stack
12617: OKL_API.SET_MESSAGE(
12618: p_app_name => G_APP_NAME,
12619: p_msg_name => G_UNEXPECTED_ERROR,
12620: p_token1 => G_SQLCODE_TOKEN,
12621: p_token1_value => SQLCODE,
12621: p_token1_value => SQLCODE,
12622: p_token2 => G_SQLERRM_TOKEN,
12623: p_token2_value => SQLERRM);
12624:
12625: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
12626:
12627: END check_asset_deprn_cost;
12628: --Bug# 4899328: End
12629:
12641: PROCEDURE check_late_int_date(
12642: x_return_status OUT NOCOPY VARCHAR2,
12643: p_chr_id IN NUMBER
12644: ) IS
12645: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
12646: l_hdrrl_rec l_hdrrl_csr%ROWTYPE;
12647: l_hdr l_hdr_csr%ROWTYPE;
12648: BEGIN
12649:
12646: l_hdrrl_rec l_hdrrl_csr%ROWTYPE;
12647: l_hdr l_hdr_csr%ROWTYPE;
12648: BEGIN
12649:
12650: x_return_status := OKL_API.G_RET_STS_SUCCESS;
12651:
12652: OPEN l_hdr_csr(p_chr_id);
12653: FETCH l_hdr_csr into l_hdr;
12654: IF l_hdr_csr%NOTFOUND THEN
12663:
12664: If(( l_hdrrl_csr%FOUND ) AND
12665: (l_hdrrl_rec.RULE_INFORMATION1 IS NOT NULL) AND
12666: (TRUNC( FND_DATE.canonical_to_date(l_hdrrl_rec.RULE_INFORMATION1)) < TRUNC(l_hdr.START_DATE) )) Then
12667: OKL_API.set_message(
12668: p_app_name => G_APP_NAME,
12669: p_msg_name => 'OKL_QA_LATE_INT_DATE');
12670: -- notify caller of an error
12671: x_return_status := OKL_API.G_RET_STS_ERROR;
12667: OKL_API.set_message(
12668: p_app_name => G_APP_NAME,
12669: p_msg_name => 'OKL_QA_LATE_INT_DATE');
12670: -- notify caller of an error
12671: x_return_status := OKL_API.G_RET_STS_ERROR;
12672: End If;
12673: CLOSE l_hdrrl_csr;
12674:
12675: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
12671: x_return_status := OKL_API.G_RET_STS_ERROR;
12672: End If;
12673: CLOSE l_hdrrl_csr;
12674:
12675: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
12676: OKL_API.set_message(
12677: p_app_name => G_APP_NAME,
12678: p_msg_name => G_QA_SUCCESS);
12679: END IF;
12672: End If;
12673: CLOSE l_hdrrl_csr;
12674:
12675: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
12676: OKL_API.set_message(
12677: p_app_name => G_APP_NAME,
12678: p_msg_name => G_QA_SUCCESS);
12679: END IF;
12680:
12680:
12681: EXCEPTION
12682: WHEN OTHERS THEN
12683: -- store SQL error message on message stack
12684: OKL_API.SET_MESSAGE(
12685: p_app_name => G_APP_NAME,
12686: p_msg_name => G_UNEXPECTED_ERROR,
12687: p_token1 => G_SQLCODE_TOKEN,
12688: p_token1_value => SQLCODE,
12688: p_token1_value => SQLCODE,
12689: p_token2 => G_SQLERRM_TOKEN,
12690: p_token2_value => SQLERRM);
12691:
12692: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
12693:
12694: END check_late_int_date;
12695: -- bug 5032883 end;
12696:
12708: PROCEDURE check_late_charge_date(
12709: x_return_status OUT NOCOPY VARCHAR2,
12710: p_chr_id IN NUMBER
12711: ) IS
12712: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
12713: l_hdrrl_rec l_hdrrl_csr%ROWTYPE;
12714: l_hdr l_hdr_csr%ROWTYPE;
12715: BEGIN
12716:
12713: l_hdrrl_rec l_hdrrl_csr%ROWTYPE;
12714: l_hdr l_hdr_csr%ROWTYPE;
12715: BEGIN
12716:
12717: x_return_status := OKL_API.G_RET_STS_SUCCESS;
12718:
12719: OPEN l_hdr_csr(p_chr_id);
12720: FETCH l_hdr_csr into l_hdr;
12721: IF l_hdr_csr%NOTFOUND THEN
12730:
12731: If(( l_hdrrl_csr%FOUND ) AND
12732: (l_hdrrl_rec.RULE_INFORMATION1 IS NOT NULL) AND
12733: ( TRUNC(FND_DATE.canonical_to_date(l_hdrrl_rec.RULE_INFORMATION1)) < TRUNC(l_hdr.START_DATE) )) Then
12734: OKL_API.set_message(
12735: p_app_name => G_APP_NAME,
12736: p_msg_name => 'OKL_QA_LATE_CH_DATE');
12737: -- notify caller of an error
12738: x_return_status := OKL_API.G_RET_STS_ERROR;
12734: OKL_API.set_message(
12735: p_app_name => G_APP_NAME,
12736: p_msg_name => 'OKL_QA_LATE_CH_DATE');
12737: -- notify caller of an error
12738: x_return_status := OKL_API.G_RET_STS_ERROR;
12739: End If;
12740: CLOSE l_hdrrl_csr;
12741:
12742: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
12738: x_return_status := OKL_API.G_RET_STS_ERROR;
12739: End If;
12740: CLOSE l_hdrrl_csr;
12741:
12742: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
12743: OKL_API.set_message(
12744: p_app_name => G_APP_NAME,
12745: p_msg_name => G_QA_SUCCESS);
12746: END IF;
12739: End If;
12740: CLOSE l_hdrrl_csr;
12741:
12742: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
12743: OKL_API.set_message(
12744: p_app_name => G_APP_NAME,
12745: p_msg_name => G_QA_SUCCESS);
12746: END IF;
12747:
12747:
12748: EXCEPTION
12749: WHEN OTHERS THEN
12750: -- store SQL error message on message stack
12751: OKL_API.SET_MESSAGE(
12752: p_app_name => G_APP_NAME,
12753: p_msg_name => G_UNEXPECTED_ERROR,
12754: p_token1 => G_SQLCODE_TOKEN,
12755: p_token1_value => SQLCODE,
12755: p_token1_value => SQLCODE,
12756: p_token2 => G_SQLERRM_TOKEN,
12757: p_token2_value => SQLERRM);
12758:
12759: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
12760:
12761: END check_late_charge_date;
12762: -- bug 5032883 end;
12763:
12776: x_return_status OUT NOCOPY VARCHAR2,
12777: p_chr_id IN NUMBER
12778: )
12779: IS
12780: l_return_status VARCHAR2 (1) := OKL_API.G_RET_STS_SUCCESS;
12781: l_product_rec l_product_csr%ROWTYPE;
12782: l_rep_strm_rec l_rep_strm_csr%ROWTYPE;
12783:
12784: -- bug 14082267: new var added
12848: elsif l_prin_pymt_csr%ISOPEN then
12849: CLOSE l_prin_pymt_csr;
12850: end if;
12851:
12852: OKL_API.set_message (p_app_name => G_APP_NAME,
12853: p_msg_name => 'OKL_QA_CHK_REP_PDT_STRM',
12854: p_token1 => 'STREAM_TYPE',
12855: p_token1_value => l_payment_strm_rec.stream_name
12856: );
12855: p_token1_value => l_payment_strm_rec.stream_name
12856: );
12857:
12858: -- notify caller of an error
12859: x_return_status := OKL_API.G_RET_STS_ERROR;
12860: Return;
12861: END IF;
12862:
12863: if l_rep_strm_csr%ISOPEN then
12866: CLOSE l_prin_pymt_csr;
12867: end if;
12868: END LOOP;
12869:
12870: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
12871: OKL_API.set_message(
12872: p_app_name => G_APP_NAME,
12873: p_msg_name => G_QA_SUCCESS);
12874: END IF;
12867: end if;
12868: END LOOP;
12869:
12870: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
12871: OKL_API.set_message(
12872: p_app_name => G_APP_NAME,
12873: p_msg_name => G_QA_SUCCESS);
12874: END IF;
12875:
12875:
12876: EXCEPTION
12877: WHEN OTHERS THEN
12878: -- store SQL error message on message stack
12879: OKL_API.SET_MESSAGE(
12880: p_app_name => G_APP_NAME,
12881: p_msg_name => G_UNEXPECTED_ERROR,
12882: p_token1 => G_SQLCODE_TOKEN,
12883: p_token1_value => SQLCODE,
12883: p_token1_value => SQLCODE,
12884: p_token2 => G_SQLERRM_TOKEN,
12885: p_token2_value => SQLERRM);
12886:
12887: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
12888:
12889: END;
12890:
12891: -- Bug 5716089 rkuttiya end
12977: l_fa_rec l_fa_csr%ROWTYPE;
12978:
12979: BEGIN
12980:
12981: x_return_status := OKL_API.G_RET_STS_SUCCESS;
12982:
12983: --check for rebook contract
12984: l_rbk_khr := '?';
12985: OPEN l_chk_rbk_csr (p_chr_id => p_chr_id);
13025: -- for the new Inventory Item.
13026: IF (l_inv_item_rec.asset_category_id IS NOT NULL AND
13027: l_inv_item_rec.asset_category_id <> l_fa_rec.asset_category_id) THEN
13028:
13029: OKL_API.set_message(
13030: p_app_name => G_APP_NAME,
13031: p_msg_name => 'OKL_QA_DFLT_ASSET_CATEGORY',
13032: p_token1 => 'ASSET_NUMBER',
13033: p_token1_value => l_fa_rec.asset_number);
13030: p_app_name => G_APP_NAME,
13031: p_msg_name => 'OKL_QA_DFLT_ASSET_CATEGORY',
13032: p_token1 => 'ASSET_NUMBER',
13033: p_token1_value => l_fa_rec.asset_number);
13034: x_return_status := OKL_API.G_RET_STS_ERROR;
13035:
13036: END IF;
13037: END IF;
13038: End Loop;
13037: END IF;
13038: End Loop;
13039: End If;
13040:
13041: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
13042: OKL_API.set_message(
13043: p_app_name => G_APP_NAME,
13044: p_msg_name => G_QA_SUCCESS);
13045: END IF;
13038: End Loop;
13039: End If;
13040:
13041: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
13042: OKL_API.set_message(
13043: p_app_name => G_APP_NAME,
13044: p_msg_name => G_QA_SUCCESS);
13045: END IF;
13046:
13046:
13047: EXCEPTION
13048: WHEN OTHERS THEN
13049: -- store SQL error message on message stack
13050: OKL_API.SET_MESSAGE(
13051: p_app_name => G_APP_NAME,
13052: p_msg_name => G_UNEXPECTED_ERROR,
13053: p_token1 => G_SQLCODE_TOKEN,
13054: p_token1_value => SQLCODE,
13054: p_token1_value => SQLCODE,
13055: p_token2 => G_SQLERRM_TOKEN,
13056: p_token2_value => SQLERRM);
13057:
13058: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
13059:
13060: END check_asset_category;
13061:
13062: --akrangan bug 5362977 ends
13081: vend_end_date DATE;
13082: vend_name varchar(240);
13083:
13084: begin
13085: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
13086:
13087: open contract_dtls(p_chr_id);
13088: fetch contract_dtls into cnt_start_date, cnt_end_date;
13089: close contract_dtls;
13098: If vend_end_date is not null then
13099: if (trunc(vend_end_date)>=trunc(cnt_start_date)
13100: and trunc(vend_end_date)<=trunc(cnt_end_date) )
13101: or (trunc(vend_end_date)
13103: p_app_name => G_APP_NAME,
13104: p_msg_name => 'OKL_QA_VNDR_START_DT',
13105: p_token1 => 'NAME',
13106: p_token1_value => vend_name);
13103: p_app_name => G_APP_NAME,
13104: p_msg_name => 'OKL_QA_VNDR_START_DT',
13105: p_token1 => 'NAME',
13106: p_token1_value => vend_name);
13107: x_return_status := Okl_Api.G_RET_STS_ERROR;
13108: end if;
13109: end if;
13110:
13111: /*
13112: if( trunc(cnt_start_date) < trunc(vend_start_date) OR
13113: (trunc(cnt_start_date) >= trunc(vend_start_date) AND
13114: trunc(cnt_start_date) > trunc(vend_end_date))
13115: )THEN
13116: Okl_Api.set_message(
13117: p_app_name => G_APP_NAME,
13118: p_msg_name => 'OKL_QA_VNDR_START_DT',
13119: p_token1 => 'NAME',
13120: p_token1_value => vend_name);
13117: p_app_name => G_APP_NAME,
13118: p_msg_name => 'OKL_QA_VNDR_START_DT',
13119: p_token1 => 'NAME',
13120: p_token1_value => vend_name);
13121: x_return_status := Okl_Api.G_RET_STS_ERROR;
13122: end if;
13123: */
13124: --bug 7213709 end
13125:
13124: --bug 7213709 end
13125:
13126: end loop;
13127:
13128: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
13129: OKL_API.set_message(
13130: p_app_name => G_APP_NAME,
13131: p_msg_name => G_QA_SUCCESS);
13132: END IF;
13125:
13126: end loop;
13127:
13128: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
13129: OKL_API.set_message(
13130: p_app_name => G_APP_NAME,
13131: p_msg_name => G_QA_SUCCESS);
13132: END IF;
13133:
13133:
13134: EXCEPTION
13135: WHEN OTHERS THEN
13136: -- store SQL error message on message stack
13137: OKL_API.SET_MESSAGE(
13138: p_app_name => G_APP_NAME,
13139: p_msg_name => G_UNEXPECTED_ERROR,
13140: p_token1 => G_SQLCODE_TOKEN,
13141: p_token1_value => SQLCODE,
13141: p_token1_value => SQLCODE,
13142: p_token2 => G_SQLERRM_TOKEN,
13143: p_token2_value => SQLERRM);
13144:
13145: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
13146: End check_vendor_active;
13147:
13148: -- Start of comments
13149: --
13165: vend_name varchar(240);
13166:
13167: begin
13168:
13169: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
13170: open contract_dtls(p_chr_id);
13171: fetch contract_dtls into cnt_start_date, cnt_end_date;
13172: close contract_dtls;
13173:
13181: trunc(cnt_start_date) <= trunc(vend_end_date) AND
13182: trunc(cnt_end_date) > trunc(vend_end_date)
13183: )THEN
13184:
13185: Okl_Api.set_message(
13186: p_app_name => G_APP_NAME,
13187: p_msg_name => 'OKL_QA_VNDR_END_DT',
13188: p_token1 => 'NAME',
13189: p_token1_value => vend_name,
13188: p_token1 => 'NAME',
13189: p_token1_value => vend_name,
13190: p_token2 => 'VNDR_END_DT',
13191: p_token2_value => to_char(vend_end_date));
13192: x_return_status := Okl_Api.G_RET_STS_ERROR;
13193:
13194:
13195: end if;
13196:
13195: end if;
13196:
13197: end loop;
13198:
13199: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
13200: OKL_API.set_message(
13201: p_app_name => G_APP_NAME,
13202: p_msg_name => G_QA_SUCCESS);
13203: END IF;
13196:
13197: end loop;
13198:
13199: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
13200: OKL_API.set_message(
13201: p_app_name => G_APP_NAME,
13202: p_msg_name => G_QA_SUCCESS);
13203: END IF;
13204:
13204:
13205: EXCEPTION
13206: WHEN OTHERS THEN
13207: -- store SQL error message on message stack
13208: OKL_API.SET_MESSAGE(
13209: p_app_name => G_APP_NAME,
13210: p_msg_name => G_UNEXPECTED_ERROR,
13211: p_token1 => G_SQLCODE_TOKEN,
13212: p_token1_value => SQLCODE,
13212: p_token1_value => SQLCODE,
13213: p_token2 => G_SQLERRM_TOKEN,
13214: p_token2_value => SQLERRM);
13215:
13216: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
13217: End check_vendor_end_date;
13218:
13219: -- Start of comments
13220: --
13245: cust_acct_status varchar(1);
13246: cust_acct_desc varchar(30);
13247:
13248: begin
13249: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
13250:
13251: for party_rec in party_id_csr('LESSEE', p_chr_id)
13252: loop
13253: open cust_dtls(party_rec.OBJECT1_ID1);
13254: fetch cust_dtls into cust_status, cust_name;
13255: close cust_dtls;
13256:
13257: if( cust_status is not null AND cust_status <> 'A')THEN
13258: Okl_Api.set_message(
13259: p_app_name => G_APP_NAME,
13260: p_msg_name => 'OKL_QA_CUST_NOT_ACTIVE'
13261: );
13262: x_return_status := Okl_Api.G_RET_STS_ERROR;
13258: Okl_Api.set_message(
13259: p_app_name => G_APP_NAME,
13260: p_msg_name => 'OKL_QA_CUST_NOT_ACTIVE'
13261: );
13262: x_return_status := Okl_Api.G_RET_STS_ERROR;
13263:
13264: end if;
13265:
13266: end loop;
13263:
13264: end if;
13265:
13266: end loop;
13267: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
13268: open cust_acct_dtls(p_chr_id);
13269: fetch cust_acct_dtls into cust_acct_status, cust_acct_desc;
13270: close cust_acct_dtls;
13271:
13270: close cust_acct_dtls;
13271:
13272: if(cust_acct_status is not null and cust_acct_status <> 'A')THEN
13273:
13274: Okl_Api.set_message(
13275: p_app_name => G_APP_NAME,
13276: p_msg_name => 'OKL_QA_CUST_ACCT_INACTIVE',
13277: p_token1 => 'ACCT',
13278: p_token1_value => cust_acct_desc
13276: p_msg_name => 'OKL_QA_CUST_ACCT_INACTIVE',
13277: p_token1 => 'ACCT',
13278: p_token1_value => cust_acct_desc
13279: );
13280: x_return_status := Okl_Api.G_RET_STS_ERROR;
13281:
13282:
13283: end if;
13284: END IF;
13282:
13283: end if;
13284: END IF;
13285:
13286: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
13287: OKL_API.set_message(
13288: p_app_name => G_APP_NAME,
13289: p_msg_name => G_QA_SUCCESS);
13290: END IF;
13283: end if;
13284: END IF;
13285:
13286: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
13287: OKL_API.set_message(
13288: p_app_name => G_APP_NAME,
13289: p_msg_name => G_QA_SUCCESS);
13290: END IF;
13291:
13291:
13292: EXCEPTION
13293: WHEN OTHERS THEN
13294: -- store SQL error message on message stack
13295: OKL_API.SET_MESSAGE(
13296: p_app_name => G_APP_NAME,
13297: p_msg_name => G_UNEXPECTED_ERROR,
13298: p_token1 => G_SQLCODE_TOKEN,
13299: p_token1_value => SQLCODE,
13299: p_token1_value => SQLCODE,
13300: p_token2 => G_SQLERRM_TOKEN,
13301: p_token2_value => SQLERRM);
13302:
13303: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
13304: End check_cust_active;
13305: --rviriyal Bug# 5982201 End
13306: -- Start of comments
13307: --
13342: l_product_name okl_products_v.NAME%TYPE;
13343: l_lne l_lne_csr%ROWTYPE;
13344:
13345: BEGIN
13346: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
13347:
13348: OPEN l_hdr_csr(p_chr_id);
13349: FETCH l_hdr_csr INTO l_hdr;
13350: IF l_hdr_csr%NOTFOUND THEN
13362:
13363: OPEN l_lne_csr('FREE_FORM1', p_chr_id);
13364: FETCH l_lne_csr INTO l_lne;
13365: IF ( l_lne_csr%NOTFOUND ) THEN
13366: Okl_Api.set_message(
13367: p_app_name => G_APP_NAME,
13368: p_msg_name => 'OKL_QA_NO_ASSETS');
13369: -- notify caller of an error
13370: x_return_status := Okl_Api.G_RET_STS_ERROR;
13366: Okl_Api.set_message(
13367: p_app_name => G_APP_NAME,
13368: p_msg_name => 'OKL_QA_NO_ASSETS');
13369: -- notify caller of an error
13370: x_return_status := Okl_Api.G_RET_STS_ERROR;
13371:
13372: ELSE
13373:
13374: OKL_GENERATE_PV_RENT_PVT.generate_total_pv_rent
13372: ELSE
13373:
13374: OKL_GENERATE_PV_RENT_PVT.generate_total_pv_rent
13375: (p_api_version => 1.0
13376: ,p_init_msg_list => Okl_Api.G_FALSE
13377: ,p_khr_id => p_chr_id
13378: ,x_total_pv_rent => x_total_pv_rent
13379: ,x_return_status => x_return_status
13380: ,x_msg_count => x_msg_count
13380: ,x_msg_count => x_msg_count
13381: ,x_msg_data => x_msg_data
13382: );
13383:
13384: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
13385: RAISE G_EXCEPTION_HALT_VALIDATION;
13386: END IF;
13387:
13388: OKL_EXECUTE_FORMULA_PUB.EXECUTE(p_api_version =>1.0
13385: RAISE G_EXCEPTION_HALT_VALIDATION;
13386: END IF;
13387:
13388: OKL_EXECUTE_FORMULA_PUB.EXECUTE(p_api_version =>1.0
13389: ,p_init_msg_list => Okl_Api.G_FALSE
13390: ,x_return_status =>x_return_status
13391: ,x_msg_count =>x_msg_count
13392: ,x_msg_data =>x_msg_data
13393: ,p_formula_name =>'FAIR_VALUE_ASSETS'
13393: ,p_formula_name =>'FAIR_VALUE_ASSETS'
13394: ,p_contract_id =>p_chr_id
13395: ,x_value =>x_fair_value_assets);
13396:
13397: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
13398: RAISE G_EXCEPTION_HALT_VALIDATION;
13399: END IF;
13400:
13401: x_fair_value_assets := x_fair_value_assets * 0.9;
13400:
13401: x_fair_value_assets := x_fair_value_assets * 0.9;
13402: IF (l_hdr.DEAL_TYPE = 'LEASEOP') THEN
13403: IF (x_total_pv_rent >= x_fair_value_assets) THEN
13404: Okl_Api.set_message(
13405: p_app_name => G_APP_NAME,
13406: p_msg_name => 'OKL_QA_OP_FASB_MSG',
13407: p_token1 => 'PRODUCT_NAME',
13408: p_token1_value => l_product_name);
13406: p_msg_name => 'OKL_QA_OP_FASB_MSG',
13407: p_token1 => 'PRODUCT_NAME',
13408: p_token1_value => l_product_name);
13409:
13410: x_return_status := Okl_Api.G_RET_STS_ERROR;
13411:
13412: END IF;
13413: ELSIF (l_hdr.DEAL_TYPE IN ('LEASEDF','LEASEST')) THEN
13414: IF (x_total_pv_rent < x_fair_value_assets) THEN
13412: END IF;
13413: ELSIF (l_hdr.DEAL_TYPE IN ('LEASEDF','LEASEST')) THEN
13414: IF (x_total_pv_rent < x_fair_value_assets) THEN
13415:
13416: Okl_Api.set_message(
13417: p_app_name => G_APP_NAME,
13418: p_msg_name => 'OKL_QA_DF_FASB_MSG',
13419: p_token1 => 'PRODUCT_NAME',
13420: p_token1_value => l_product_name);
13418: p_msg_name => 'OKL_QA_DF_FASB_MSG',
13419: p_token1 => 'PRODUCT_NAME',
13420: p_token1_value => l_product_name);
13421:
13422: x_return_status := Okl_Api.G_RET_STS_ERROR;
13423:
13424: END IF;
13425: END IF;
13426: END IF;
13428:
13429: END IF;
13430: --Bug# 13002041
13431:
13432: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
13433: Okl_Api.set_message(
13434: p_app_name => G_APP_NAME,
13435: p_msg_name => G_QA_SUCCESS);
13436: END IF;
13429: END IF;
13430: --Bug# 13002041
13431:
13432: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
13433: Okl_Api.set_message(
13434: p_app_name => G_APP_NAME,
13435: p_msg_name => G_QA_SUCCESS);
13436: END IF;
13437:
13437:
13438: EXCEPTION
13439:
13440: WHEN G_EXCEPTION_HALT_VALIDATION THEN
13441: x_return_status := Okl_Api.G_RET_STS_ERROR;
13442: IF l_hdr_csr%ISOPEN THEN
13443: CLOSE l_hdr_csr;
13444: END IF;
13445: IF l_lne_csr%ISOPEN THEN
13451:
13452: -- error reported, just exit from this process
13453: WHEN OTHERS THEN
13454: -- store SQL error message on message stack
13455: Okl_Api.SET_MESSAGE(
13456: p_app_name => G_APP_NAME,
13457: p_msg_name => G_UNEXPECTED_ERROR,
13458: p_token1 => G_SQLCODE_TOKEN,
13459: p_token1_value => SQLCODE,
13459: p_token1_value => SQLCODE,
13460: p_token2 => G_SQLERRM_TOKEN,
13461: p_token2_value => SQLERRM);
13462:
13463: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
13464:
13465: IF l_hdr_csr%ISOPEN THEN
13466: CLOSE l_hdr_csr;
13467: END IF;
13530: AND NVL(kle_fin.re_lease_yn,'N') = 'N';
13531:
13532: BEGIN
13533:
13534: x_return_status := OKL_API.G_RET_STS_SUCCESS;
13535:
13536: OPEN l_chr_csr(p_chr_id => p_chr_id);
13537: FETCH l_chr_csr INTO l_chr_rec;
13538: CLOSE l_chr_csr;
13550:
13551: IF (l_corp_book_rec.in_service_date IS NOT NULL AND
13552: l_chr_rec.expected_delivery_date <> l_corp_book_rec.in_service_date) THEN
13553:
13554: OKL_API.set_message(
13555: p_app_name => G_APP_NAME,
13556: p_msg_name => 'OKL_QA_EXP_DELIVERY_DATE_WRN',
13557: p_token1 => 'ASSET_NUMBER',
13558: p_token1_value => l_corp_book_rec.asset_number);
13556: p_msg_name => 'OKL_QA_EXP_DELIVERY_DATE_WRN',
13557: p_token1 => 'ASSET_NUMBER',
13558: p_token1_value => l_corp_book_rec.asset_number);
13559:
13560: x_return_status := OKL_API.G_RET_STS_ERROR;
13561:
13562: END IF;
13563: END LOOP;
13564:
13561:
13562: END IF;
13563: END LOOP;
13564:
13565: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
13566: OKL_API.set_message(
13567: p_app_name => G_APP_NAME,
13568: p_msg_name => G_QA_SUCCESS);
13569: END IF;
13562: END IF;
13563: END LOOP;
13564:
13565: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
13566: OKL_API.set_message(
13567: p_app_name => G_APP_NAME,
13568: p_msg_name => G_QA_SUCCESS);
13569: END IF;
13570:
13572:
13573: EXCEPTION
13574: WHEN OTHERS THEN
13575: -- store SQL error message on message stack
13576: OKL_API.SET_MESSAGE(
13577: p_app_name => G_APP_NAME,
13578: p_msg_name => G_UNEXPECTED_ERROR,
13579: p_token1 => G_SQLCODE_TOKEN,
13580: p_token1_value => SQLCODE,
13580: p_token1_value => SQLCODE,
13581: p_token2 => G_SQLERRM_TOKEN,
13582: p_token2_value => SQLERRM);
13583:
13584: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
13585:
13586: END check_exp_delivery_date;
13587: --Bug# 8652738: End
13588:
13616: l_pre_funding_rec l_pre_funding_csr%ROWTYPE;
13617:
13618: BEGIN
13619:
13620: x_return_status := OKL_API.G_RET_STS_SUCCESS;
13621:
13622: OPEN l_pre_funding_csr(p_chr_id => p_chr_id);
13623: FETCH l_pre_funding_csr INTO l_pre_funding_rec;
13624: CLOSE l_pre_funding_csr;
13624: CLOSE l_pre_funding_csr;
13625:
13626: IF (l_pre_funding_rec.amount <> 0) THEN
13627:
13628: OKL_API.set_message(
13629: p_app_name => G_APP_NAME,
13630: p_msg_name => 'OKL_QA_PRE_FUNDING_WRN');
13631:
13632: x_return_status := OKL_API.G_RET_STS_ERROR;
13628: OKL_API.set_message(
13629: p_app_name => G_APP_NAME,
13630: p_msg_name => 'OKL_QA_PRE_FUNDING_WRN');
13631:
13632: x_return_status := OKL_API.G_RET_STS_ERROR;
13633:
13634: END IF;
13635:
13636: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
13632: x_return_status := OKL_API.G_RET_STS_ERROR;
13633:
13634: END IF;
13635:
13636: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
13637: OKL_API.set_message(
13638: p_app_name => G_APP_NAME,
13639: p_msg_name => G_QA_SUCCESS);
13640: END IF;
13633:
13634: END IF;
13635:
13636: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
13637: OKL_API.set_message(
13638: p_app_name => G_APP_NAME,
13639: p_msg_name => G_QA_SUCCESS);
13640: END IF;
13641:
13641:
13642: EXCEPTION
13643: WHEN OTHERS THEN
13644: -- store SQL error message on message stack
13645: OKL_API.SET_MESSAGE(
13646: p_app_name => G_APP_NAME,
13647: p_msg_name => G_UNEXPECTED_ERROR,
13648: p_token1 => G_SQLCODE_TOKEN,
13649: p_token1_value => SQLCODE,
13649: p_token1_value => SQLCODE,
13650: p_token2 => G_SQLERRM_TOKEN,
13651: p_token2_value => SQLERRM);
13652:
13653: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
13654:
13655: END check_pre_funding;
13656: --Bug# 5690875: End
13657:
13664: l_gen_streams VARCHAR2(1);
13665: l_return_status VARCHAR2(1);
13666: BEGIN
13667:
13668: x_return_status := OKL_API.G_RET_STS_SUCCESS;
13669:
13670: OKL_EVERGREEN_BILLING_PVT.CHECK_FEE_EVERGREEN_BILL(
13671: x_return_status => l_return_status,
13672: p_chr_id => p_chr_id,
13671: x_return_status => l_return_status,
13672: p_chr_id => p_chr_id,
13673: x_gen_streams => l_gen_streams);
13674:
13675: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13676: /*
13677: OKL_API.set_message(
13678: p_app_name => G_APP_NAME,
13679: p_msg_name => 'OKL_QA_BILL_EVG_WRN',
13673: x_gen_streams => l_gen_streams);
13674:
13675: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
13676: /*
13677: OKL_API.set_message(
13678: p_app_name => G_APP_NAME,
13679: p_msg_name => 'OKL_QA_BILL_EVG_WRN',
13680: p_token1 => 'FEE_LINE_NAME',
13681: p_token1_value => );
13679: p_msg_name => 'OKL_QA_BILL_EVG_WRN',
13680: p_token1 => 'FEE_LINE_NAME',
13681: p_token1_value => );
13682: */
13683: x_return_status := OKL_API.G_RET_STS_ERROR;
13684:
13685: END IF;
13686:
13687: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
13683: x_return_status := OKL_API.G_RET_STS_ERROR;
13684:
13685: END IF;
13686:
13687: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
13688: x_return_status := OKL_API.G_RET_STS_SUCCESS;
13689: OKL_API.set_message(
13690: p_app_name => G_APP_NAME,
13691: p_msg_name => G_QA_SUCCESS);
13684:
13685: END IF;
13686:
13687: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
13688: x_return_status := OKL_API.G_RET_STS_SUCCESS;
13689: OKL_API.set_message(
13690: p_app_name => G_APP_NAME,
13691: p_msg_name => G_QA_SUCCESS);
13692: END IF;
13685: END IF;
13686:
13687: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
13688: x_return_status := OKL_API.G_RET_STS_SUCCESS;
13689: OKL_API.set_message(
13690: p_app_name => G_APP_NAME,
13691: p_msg_name => G_QA_SUCCESS);
13692: END IF;
13693:
13693:
13694: EXCEPTION
13695: WHEN OTHERS THEN
13696: -- store SQL error message on message stack
13697: OKL_API.SET_MESSAGE(
13698: p_app_name => G_APP_NAME,
13699: p_msg_name => G_UNEXPECTED_ERROR,
13700: p_token1 => G_SQLCODE_TOKEN,
13701: p_token1_value => SQLCODE,
13701: p_token1_value => SQLCODE,
13702: p_token2 => G_SQLERRM_TOKEN,
13703: p_token2_value => SQLERRM);
13704:
13705: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
13706: END CHECK_FEE_EVERGREEN_BILL;
13707:
13708: --Bug# 11787205: End
13709:
13815: AND sts.ste_code NOT IN ('HOLD', 'TERMINATED', 'EXPIRED', 'CANCELLED');
13816:
13817: BEGIN
13818:
13819: x_return_status := OKL_API.G_RET_STS_SUCCESS;
13820:
13821: -- Check if contract is undergoing online rebook and fetch rebook effective date
13822: l_chk_rbk_rec := NULL;
13823: OPEN l_chk_rbk_csr(p_chr_id => p_chr_id);
13838:
13839: IF ( l_fin_asset_rec.new_capital_amount <> l_fin_asset_rec.orig_capital_amount )
13840: AND ( l_chk_rbk_rec.date_transaction_occurred <> l_fin_asset_rec.start_date ) THEN
13841:
13842: OKL_API.set_message(
13843: p_app_name => G_APP_NAME,
13844: p_msg_name => 'OKL_QA_FIN_COST_ERR',
13845: p_token1 => 'NAME',
13846: p_token1_value => l_fin_asset_rec.name);
13844: p_msg_name => 'OKL_QA_FIN_COST_ERR',
13845: p_token1 => 'NAME',
13846: p_token1_value => l_fin_asset_rec.name);
13847:
13848: x_return_status := OKL_API.G_RET_STS_ERROR;
13849:
13850: END IF;
13851: END LOOP;
13852:
13854:
13855: IF ( l_fin_fee_rec.new_amount <> l_fin_fee_rec.orig_amount )
13856: AND ( l_chk_rbk_rec.date_transaction_occurred <> l_fin_fee_rec.start_date ) THEN
13857:
13858: OKL_API.set_message(
13859: p_app_name => G_APP_NAME,
13860: p_msg_name => 'OKL_QA_FIN_COST_ERR',
13861: p_token1 => 'NAME',
13862: p_token1_value => l_fin_fee_rec.name);
13860: p_msg_name => 'OKL_QA_FIN_COST_ERR',
13861: p_token1 => 'NAME',
13862: p_token1_value => l_fin_fee_rec.name);
13863:
13864: x_return_status := OKL_API.G_RET_STS_ERROR;
13865:
13866: END IF;
13867: END LOOP;
13868:
13869: END IF; -- Check Effective Dated Rebook
13870:
13871: END IF; -- Check Online Rebook
13872:
13873: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS AND p_upfront_tax_fee_yn = 'N') THEN
13874: OKL_API.set_message(
13875: p_app_name => G_APP_NAME,
13876: p_msg_name => G_QA_SUCCESS);
13877: END IF;
13870:
13871: END IF; -- Check Online Rebook
13872:
13873: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS AND p_upfront_tax_fee_yn = 'N') THEN
13874: OKL_API.set_message(
13875: p_app_name => G_APP_NAME,
13876: p_msg_name => G_QA_SUCCESS);
13877: END IF;
13878:
13878:
13879: EXCEPTION
13880: WHEN OTHERS THEN
13881: -- store SQL error message on message stack
13882: OKL_API.SET_MESSAGE(
13883: p_app_name => G_APP_NAME,
13884: p_msg_name => G_UNEXPECTED_ERROR,
13885: p_token1 => G_SQLCODE_TOKEN,
13886: p_token1_value => SQLCODE,
13886: p_token1_value => SQLCODE,
13887: p_token2 => G_SQLERRM_TOKEN,
13888: p_token2_value => SQLERRM);
13889:
13890: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
13891:
13892: END check_rbk_financed_cost;
13893: --Bug# 12807203: End
13894:
14032: AND sts.ste_code NOT IN ('HOLD', 'TERMINATED', 'EXPIRED', 'CANCELLED');
14033:
14034: BEGIN
14035:
14036: x_return_status := OKL_API.G_RET_STS_SUCCESS;
14037:
14038: -- Check if contract is undergoing online rebook and fetch rebook effective date
14039: l_chk_rbk_rec := NULL;
14040: OPEN l_chk_rbk_csr(p_chr_id => p_chr_id);
14074: OR ( l_orig_payment_dtl_rec.arrears_yn <> l_rbk_payment_dtl_rec.arrears_yn )
14075: OR ( l_orig_payment_dtl_rec.structure <> l_rbk_payment_dtl_rec.structure ))
14076: AND ( l_chk_rbk_rec.date_transaction_occurred <> l_fin_asset_rec.start_date ) THEN
14077:
14078: OKL_API.set_message(
14079: p_app_name => G_APP_NAME,
14080: p_msg_name => 'OKL_QA_RBK_PYMT_STRUC_ERR',
14081: p_token1 => 'NAME',
14082: p_token1_value => l_fin_asset_rec.name);
14080: p_msg_name => 'OKL_QA_RBK_PYMT_STRUC_ERR',
14081: p_token1 => 'NAME',
14082: p_token1_value => l_fin_asset_rec.name);
14083:
14084: x_return_status := OKL_API.G_RET_STS_ERROR;
14085:
14086: END IF;
14087: END LOOP;
14088:
14111: OR ( l_orig_payment_dtl_rec.arrears_yn <> l_rbk_payment_dtl_rec.arrears_yn )
14112: OR ( l_orig_payment_dtl_rec.structure <> l_rbk_payment_dtl_rec.structure ))
14113: AND ( l_chk_rbk_rec.date_transaction_occurred <> l_fin_roll_fee_rec.start_date ) THEN
14114:
14115: OKL_API.set_message(
14116: p_app_name => G_APP_NAME,
14117: p_msg_name => 'OKL_QA_RBK_PYMT_STRUC_ERR',
14118: p_token1 => 'NAME',
14119: p_token1_value => l_fin_roll_fee_rec.name);
14117: p_msg_name => 'OKL_QA_RBK_PYMT_STRUC_ERR',
14118: p_token1 => 'NAME',
14119: p_token1_value => l_fin_roll_fee_rec.name);
14120:
14121: x_return_status := OKL_API.G_RET_STS_ERROR;
14122:
14123: END IF;
14124: END LOOP;
14125:
14128: END IF; -- Check Effective Dated Rebook
14129:
14130: END IF; -- Check Online Rebook
14131:
14132: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS AND p_upfront_tax_fee_yn = 'N') THEN
14133: OKL_API.set_message(
14134: p_app_name => G_APP_NAME,
14135: p_msg_name => G_QA_SUCCESS);
14136: END IF;
14129:
14130: END IF; -- Check Online Rebook
14131:
14132: IF (x_return_status = OKL_API.G_RET_STS_SUCCESS AND p_upfront_tax_fee_yn = 'N') THEN
14133: OKL_API.set_message(
14134: p_app_name => G_APP_NAME,
14135: p_msg_name => G_QA_SUCCESS);
14136: END IF;
14137:
14137:
14138: EXCEPTION
14139: WHEN OTHERS THEN
14140: -- store SQL error message on message stack
14141: OKL_API.SET_MESSAGE(
14142: p_app_name => G_APP_NAME,
14143: p_msg_name => G_UNEXPECTED_ERROR,
14144: p_token1 => G_SQLCODE_TOKEN,
14145: p_token1_value => SQLCODE,
14145: p_token1_value => SQLCODE,
14146: p_token2 => G_SQLERRM_TOKEN,
14147: p_token2_value => SQLERRM);
14148:
14149: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
14150:
14151: END check_rbk_pymt_structure;
14152: --Bug# 12807203: End
14153:
14188: AND sts.ste_code NOT IN ('HOLD', 'TERMINATED', 'EXPIRED', 'CANCELLED');
14189:
14190: BEGIN
14191:
14192: x_return_status := OKL_API.G_RET_STS_SUCCESS;
14193:
14194: FOR l_fin_asset_rec IN l_fin_asset_csr(p_chr_id => p_chr_id) LOOP
14195:
14196: IF ( l_fin_asset_rec.date_delivery_expected IS NOT NULL AND
14197: l_fin_asset_rec.date_delivery_expected > l_fin_asset_rec.start_date )
14198: OR ( l_fin_asset_rec.date_funding_expected IS NOT NULL AND
14199: l_fin_asset_rec.date_funding_expected > l_fin_asset_rec.start_date ) THEN
14200:
14201: OKL_API.set_message(
14202: p_app_name => G_APP_NAME,
14203: p_msg_name => 'OKL_QA_DEL_FUND_DT_ERR',
14204: p_token1 => 'NAME',
14205: p_token1_value => l_fin_asset_rec.name);
14203: p_msg_name => 'OKL_QA_DEL_FUND_DT_ERR',
14204: p_token1 => 'NAME',
14205: p_token1_value => l_fin_asset_rec.name);
14206:
14207: x_return_status := OKL_API.G_RET_STS_ERROR;
14208:
14209: END IF;
14210: END LOOP;
14211:
14208:
14209: END IF;
14210: END LOOP;
14211:
14212: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
14213: OKL_API.set_message(
14214: p_app_name => G_APP_NAME,
14215: p_msg_name => G_QA_SUCCESS);
14216: END IF;
14209: END IF;
14210: END LOOP;
14211:
14212: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
14213: OKL_API.set_message(
14214: p_app_name => G_APP_NAME,
14215: p_msg_name => G_QA_SUCCESS);
14216: END IF;
14217:
14217:
14218: EXCEPTION
14219: WHEN OTHERS THEN
14220: -- store SQL error message on message stack
14221: OKL_API.SET_MESSAGE(
14222: p_app_name => G_APP_NAME,
14223: p_msg_name => G_UNEXPECTED_ERROR,
14224: p_token1 => G_SQLCODE_TOKEN,
14225: p_token1_value => SQLCODE,
14225: p_token1_value => SQLCODE,
14226: p_token2 => G_SQLERRM_TOKEN,
14227: p_token2_value => SQLERRM);
14228:
14229: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
14230:
14231: END check_exp_dlvry_fund_date;
14232: --Bug# 12807203: End
14233:
14249:
14250: l_release_contract_yn VARCHAR2(1);
14251: l_oec NUMBER;
14252: BEGIN
14253: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
14254: l_release_contract_yn := okl_api.g_false;
14255: l_release_contract_yn := okl_lla_util_pvt.check_release_contract(p_chr_id => p_chr_id);
14256:
14257: FOR l_lne IN l_lne_csr('FREE_FORM1', p_chr_id)
14250: l_release_contract_yn VARCHAR2(1);
14251: l_oec NUMBER;
14252: BEGIN
14253: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
14254: l_release_contract_yn := okl_api.g_false;
14255: l_release_contract_yn := okl_lla_util_pvt.check_release_contract(p_chr_id => p_chr_id);
14256:
14257: FOR l_lne IN l_lne_csr('FREE_FORM1', p_chr_id)
14258: LOOP
14255: l_release_contract_yn := okl_lla_util_pvt.check_release_contract(p_chr_id => p_chr_id);
14256:
14257: FOR l_lne IN l_lne_csr('FREE_FORM1', p_chr_id)
14258: LOOP
14259: IF l_release_contract_yn = OKL_API.G_TRUE
14260: THEN
14261: l_oec := l_lne.expected_asset_cost;
14262: ELSE
14263: l_oec := l_lne.oec;
14264: END IF;
14265: -- Check if Asset Cost is ZERO or not, if ZERO, then throw the error
14266: IF ( l_oec = 0 )
14267: THEN
14268: Okl_Api.set_message(
14269: p_app_name => G_APP_NAME,
14270: p_msg_name => 'OKL_QA_ZERO_ASSET_COST',
14271: p_token1 => 'ASSET_NUM',
14272: p_token1_value => l_lne.name);
14269: p_app_name => G_APP_NAME,
14270: p_msg_name => 'OKL_QA_ZERO_ASSET_COST',
14271: p_token1 => 'ASSET_NUM',
14272: p_token1_value => l_lne.name);
14273: x_return_status := Okl_Api.G_RET_STS_ERROR;
14274: END IF;
14275: END LOOP;
14276:
14277: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
14273: x_return_status := Okl_Api.G_RET_STS_ERROR;
14274: END IF;
14275: END LOOP;
14276:
14277: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
14278: Okl_Api.set_message(
14279: p_app_name => G_APP_NAME,
14280: p_msg_name => G_QA_SUCCESS);
14281: END IF;
14274: END IF;
14275: END LOOP;
14276:
14277: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
14278: Okl_Api.set_message(
14279: p_app_name => G_APP_NAME,
14280: p_msg_name => G_QA_SUCCESS);
14281: END IF;
14282:
14282:
14283: EXCEPTION
14284: WHEN OTHERS
14285: THEN
14286: Okl_Api.SET_MESSAGE(
14287: p_app_name => G_APP_NAME,
14288: p_msg_name => G_UNEXPECTED_ERROR,
14289: p_token1 => G_SQLCODE_TOKEN,
14290: p_token1_value => SQLCODE,
14289: p_token1 => G_SQLCODE_TOKEN,
14290: p_token1_value => SQLCODE,
14291: p_token2 => G_SQLERRM_TOKEN,
14292: p_token2_value => SQLERRM);
14293: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
14294: END check_zero_asset_cost;
14295: -- Bug # 13243190 : End
14296:
14297: --Bug# 13478101: Start
14328: l_vir_params_rec vir_params_csr%ROWTYPE;
14329:
14330: BEGIN
14331:
14332: x_return_status := OKL_API.G_RET_STS_SUCCESS;
14333:
14334: OPEN chr_csr(p_chr_id => p_chr_id);
14335: FETCH chr_csr INTO l_chr_rec;
14336: CLOSE chr_csr;
14341:
14342: IF (l_vir_params_rec.interest_start_date IS NOT NULL AND
14343: l_vir_params_rec.interest_start_date <> l_chr_rec.start_date) THEN
14344:
14345: OKL_API.set_message(
14346: p_app_name => G_APP_NAME,
14347: p_msg_name => 'OKL_QA_INT_START_DT_WRN');
14348:
14349: x_return_status := OKL_API.G_RET_STS_ERROR;
14345: OKL_API.set_message(
14346: p_app_name => G_APP_NAME,
14347: p_msg_name => 'OKL_QA_INT_START_DT_WRN');
14348:
14349: x_return_status := OKL_API.G_RET_STS_ERROR;
14350:
14351: END IF;
14352:
14353: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
14349: x_return_status := OKL_API.G_RET_STS_ERROR;
14350:
14351: END IF;
14352:
14353: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
14354: OKL_API.set_message(
14355: p_app_name => G_APP_NAME,
14356: p_msg_name => G_QA_SUCCESS);
14357: END IF;
14350:
14351: END IF;
14352:
14353: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
14354: OKL_API.set_message(
14355: p_app_name => G_APP_NAME,
14356: p_msg_name => G_QA_SUCCESS);
14357: END IF;
14358:
14358:
14359: EXCEPTION
14360: WHEN OTHERS THEN
14361: -- store SQL error message on message stack
14362: OKL_API.SET_MESSAGE(
14363: p_app_name => G_APP_NAME,
14364: p_msg_name => G_UNEXPECTED_ERROR,
14365: p_token1 => G_SQLCODE_TOKEN,
14366: p_token1_value => SQLCODE,
14366: p_token1_value => SQLCODE,
14367: p_token2 => G_SQLERRM_TOKEN,
14368: p_token2_value => SQLERRM);
14369:
14370: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
14371:
14372: END check_interest_start_date;
14373: --Bug# 13478101: End
14374: