[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:
483:
484: BEGIN
485:
486: -- initialize return status
487: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
488:
489: Okl_Service_Integration_Pub.get_service_link_line (
490: p_api_version => 1.0,
491: p_init_msg_list => Okl_Api.G_FALSE,
487: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
488:
489: Okl_Service_Integration_Pub.get_service_link_line (
490: p_api_version => 1.0,
491: p_init_msg_list => Okl_Api.G_FALSE,
492: x_return_status => x_return_status,
493: x_msg_count => x_msg_count,
494: x_msg_data => x_msg_data,
495: p_lease_contract_id => p_chr_id,
495: p_lease_contract_id => p_chr_id,
496: x_link_line_tbl => x_link_line_tbl,
497: x_service_contract_id => x_service_contract_id);
498:
499: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
500: RAISE G_EXCEPTION_HALT_VALIDATION;
501: END IF;
502:
503: IF ( NVL(x_service_contract_id, -1 ) = -1 ) THEN
500: RAISE G_EXCEPTION_HALT_VALIDATION;
501: END IF;
502:
503: IF ( NVL(x_service_contract_id, -1 ) = -1 ) THEN
504: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
505: Okl_Api.set_message(
506: p_app_name => G_APP_NAME,
507: p_msg_name => G_QA_SUCCESS);
508: RETURN;
501: END IF;
502:
503: IF ( NVL(x_service_contract_id, -1 ) = -1 ) THEN
504: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
505: Okl_Api.set_message(
506: p_app_name => G_APP_NAME,
507: p_msg_name => G_QA_SUCCESS);
508: RETURN;
509: END IF;
516: FETCH l_hdr_csr INTO l_hdr_rec2;
517: CLOSE l_hdr_csr;
518:
519: IF ( l_hdr_rec1.CURRENCY_CODE <> l_hdr_rec2.CURRENCY_CODE ) THEN
520: Okl_Api.set_message(
521: p_app_name => G_APP_NAME,
522: p_msg_name => 'OKL_QA_OKL_OKS_CURR');
523: x_return_status := Okl_Api.G_RET_STS_ERROR;
524: END IF;
519: IF ( l_hdr_rec1.CURRENCY_CODE <> l_hdr_rec2.CURRENCY_CODE ) THEN
520: Okl_Api.set_message(
521: p_app_name => G_APP_NAME,
522: p_msg_name => 'OKL_QA_OKL_OKS_CURR');
523: x_return_status := Okl_Api.G_RET_STS_ERROR;
524: END IF;
525:
526: OPEN cust_csr('LESSEE', p_chr_id );
527: FETCH cust_csr INTO cust_rec1;
531: FETCH cust_csr INTO cust_rec2;
532: CLOSE cust_csr;
533:
534: IF ( cust_rec1.Object1_id1 <> cust_rec2.Object1_id1 ) THEN
535: Okl_Api.set_message(
536: p_app_name => G_APP_NAME,
537: p_msg_name => 'OKL_QA_OKL_OKS_CUST');
538: x_return_status := Okl_Api.G_RET_STS_ERROR;
539: END IF;
534: IF ( cust_rec1.Object1_id1 <> cust_rec2.Object1_id1 ) THEN
535: Okl_Api.set_message(
536: p_app_name => G_APP_NAME,
537: p_msg_name => 'OKL_QA_OKL_OKS_CUST');
538: x_return_status := Okl_Api.G_RET_STS_ERROR;
539: END IF;
540:
541: /* Rule migration
542:
563: );
564:
565: --If( l_hdrrl_rec.object1_id1 <> l_oksrl_rec.object1_id1 ) Then
566: IF( l_okl_bill_to_id <> l_oks_bill_to_id) THEN
567: Okl_Api.set_message(
568: p_app_name => G_APP_NAME,
569: p_msg_name => 'OKL_QA_OKL_OKS_BTO');
570: -- notify caller of an error
571: x_return_status := Okl_Api.G_RET_STS_ERROR;
567: Okl_Api.set_message(
568: p_app_name => G_APP_NAME,
569: p_msg_name => 'OKL_QA_OKL_OKS_BTO');
570: -- notify caller of an error
571: x_return_status := Okl_Api.G_RET_STS_ERROR;
572: END IF;
573:
574: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
575: Okl_Api.set_message(
570: -- notify caller of an error
571: x_return_status := Okl_Api.G_RET_STS_ERROR;
572: END IF;
573:
574: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
575: Okl_Api.set_message(
576: p_app_name => G_APP_NAME,
577: p_msg_name => G_QA_SUCCESS);
578: END IF;
571: x_return_status := Okl_Api.G_RET_STS_ERROR;
572: END IF;
573:
574: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
575: Okl_Api.set_message(
576: p_app_name => G_APP_NAME,
577: p_msg_name => G_QA_SUCCESS);
578: END IF;
579:
583: NULL;
584: -- no processing necessary; validation can continue with next column
585: WHEN OTHERS THEN
586: -- store SQL error message on message stack
587: Okl_Api.SET_MESSAGE(
588: p_app_name => G_APP_NAME,
589: p_msg_name => G_UNEXPECTED_ERROR,
590: p_token1 => G_SQLCODE_TOKEN,
591: p_token1_value => SQLCODE,
591: p_token1_value => SQLCODE,
592: p_token2 => G_SQLERRM_TOKEN,
593: p_token2_value => SQLERRM);
594:
595: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
596:
597: END check_service_line_hdr;
598:
599:
610: x_return_status OUT NOCOPY VARCHAR2,
611: p_chr_id IN NUMBER
612: ) IS
613:
614: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
615:
616: x_msg_count NUMBER;
617: x_msg_data VARCHAR2(256);
618: x_link_line_tbl Okl_Service_Integration_Pub.LINK_LINE_TBL_TYPE;
625:
626: BEGIN
627:
628: -- initialize return status
629: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
630:
631: Okl_Service_Integration_Pub.get_service_link_line (
632: p_api_version => 1.0,
633: p_init_msg_list => Okl_Api.G_FALSE,
629: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
630:
631: Okl_Service_Integration_Pub.get_service_link_line (
632: p_api_version => 1.0,
633: p_init_msg_list => Okl_Api.G_FALSE,
634: x_return_status => x_return_status,
635: x_msg_count => x_msg_count,
636: x_msg_data => x_msg_data,
637: p_lease_contract_id => p_chr_id,
637: p_lease_contract_id => p_chr_id,
638: x_link_line_tbl => x_link_line_tbl,
639: x_service_contract_id => x_service_contract_id);
640:
641: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
642: RAISE G_EXCEPTION_HALT_VALIDATION;
643: END IF;
644:
645: IF ( NVL(x_service_contract_id, -1 ) = -1 ) THEN
642: RAISE G_EXCEPTION_HALT_VALIDATION;
643: END IF;
644:
645: IF ( NVL(x_service_contract_id, -1 ) = -1 ) THEN
646: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
647: Okl_Api.set_message(
648: p_app_name => G_APP_NAME,
649: p_msg_name => G_QA_SUCCESS);
650: RETURN;
643: END IF;
644:
645: IF ( NVL(x_service_contract_id, -1 ) = -1 ) THEN
646: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
647: Okl_Api.set_message(
648: p_app_name => G_APP_NAME,
649: p_msg_name => G_QA_SUCCESS);
650: RETURN;
651: END IF;
656: n := n+1;
657: END LOOP;
658:
659: IF ( n > x_link_line_tbl.COUNT ) THEN
660: Okl_Api.set_message(
661: p_app_name => G_APP_NAME,
662: p_msg_name => 'OKL_QA_OKL_OKS_COV');
663: x_return_status := Okl_Api.G_RET_STS_ERROR;
664: END IF;
659: IF ( n > x_link_line_tbl.COUNT ) THEN
660: Okl_Api.set_message(
661: p_app_name => G_APP_NAME,
662: p_msg_name => 'OKL_QA_OKL_OKS_COV');
663: x_return_status := Okl_Api.G_RET_STS_ERROR;
664: END IF;
665:
666:
667: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
663: x_return_status := Okl_Api.G_RET_STS_ERROR;
664: END IF;
665:
666:
667: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
668: Okl_Api.set_message(
669: p_app_name => G_APP_NAME,
670: p_msg_name => G_QA_SUCCESS);
671: END IF;
664: END IF;
665:
666:
667: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
668: Okl_Api.set_message(
669: p_app_name => G_APP_NAME,
670: p_msg_name => G_QA_SUCCESS);
671: END IF;
672:
676: NULL;
677: -- no processing necessary; validation can continue with next column
678: WHEN OTHERS THEN
679: -- store SQL error message on message stack
680: Okl_Api.SET_MESSAGE(
681: p_app_name => G_APP_NAME,
682: p_msg_name => G_UNEXPECTED_ERROR,
683: p_token1 => G_SQLCODE_TOKEN,
684: p_token1_value => SQLCODE,
684: p_token1_value => SQLCODE,
685: p_token2 => G_SQLERRM_TOKEN,
686: p_token2_value => SQLERRM);
687:
688: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
689:
690: END check_cov_service_lines;
691:
692: -- Start of comments
729:
730: BEGIN
731:
732: -- initialize return status
733: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
734:
735: Okl_Service_Integration_Pub.get_service_link_line (
736: p_api_version => 1.0,
737: p_init_msg_list => Okl_Api.G_FALSE,
733: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
734:
735: Okl_Service_Integration_Pub.get_service_link_line (
736: p_api_version => 1.0,
737: p_init_msg_list => Okl_Api.G_FALSE,
738: x_return_status => x_return_status,
739: x_msg_count => x_msg_count,
740: x_msg_data => x_msg_data,
741: p_lease_contract_id => p_chr_id,
741: p_lease_contract_id => p_chr_id,
742: x_link_line_tbl => x_link_line_tbl,
743: x_service_contract_id => x_service_contract_id);
744:
745: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
746: RAISE G_EXCEPTION_HALT_VALIDATION;
747: END IF;
748:
749: IF ( NVL(x_service_contract_id, -1 ) = -1 ) THEN
746: RAISE G_EXCEPTION_HALT_VALIDATION;
747: END IF;
748:
749: IF ( NVL(x_service_contract_id, -1 ) = -1 ) THEN
750: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
751: Okl_Api.set_message(
752: p_app_name => G_APP_NAME,
753: p_msg_name => G_QA_SUCCESS);
754: RETURN;
747: END IF;
748:
749: IF ( NVL(x_service_contract_id, -1 ) = -1 ) THEN
750: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
751: Okl_Api.set_message(
752: p_app_name => G_APP_NAME,
753: p_msg_name => G_QA_SUCCESS);
754: RETURN;
755: END IF;
770: END IF;
771: END LOOP;
772:
773: IF ( j = -1 ) THEN
774: Okl_Api.set_message(
775: p_app_name => G_APP_NAME,
776: p_msg_name => 'OKL_QA_OKL_OKS_LNK');
777: x_return_status := Okl_Api.G_RET_STS_ERROR;
778: EXIT;
773: IF ( j = -1 ) THEN
774: Okl_Api.set_message(
775: p_app_name => G_APP_NAME,
776: p_msg_name => 'OKL_QA_OKL_OKS_LNK');
777: x_return_status := Okl_Api.G_RET_STS_ERROR;
778: EXIT;
779: END IF;
780: END LOOP;
781:
797: CLOSE srv_csr;
798:
799: IF ( l_svclne.inventory_item_id <> l_sublne.object1_id1 ) THEN
800:
801: Okl_Api.set_message(
802: p_app_name => G_APP_NAME,
803: p_msg_name => 'OKL_QA_OKL_OKS_ITMS',
804: p_token1 => 'line',
805: p_token1_value => l_sublne.name);
802: p_app_name => G_APP_NAME,
803: p_msg_name => 'OKL_QA_OKL_OKS_ITMS',
804: p_token1 => 'line',
805: p_token1_value => l_sublne.name);
806: x_return_status := Okl_Api.G_RET_STS_ERROR;
807:
808: END IF;
809:
810: IF ( l_svclne.quantity <> l_sublne.number_of_items ) THEN
808: END IF;
809:
810: IF ( l_svclne.quantity <> l_sublne.number_of_items ) THEN
811:
812: Okl_Api.set_message(
813: p_app_name => G_APP_NAME,
814: p_msg_name => 'OKL_QA_OKL_OKS_NITMS',
815: p_token1 => 'line',
816: p_token1_value => l_sublne.name);
814: p_msg_name => 'OKL_QA_OKL_OKS_NITMS',
815: p_token1 => 'line',
816: p_token1_value => l_sublne.name);
817:
818: x_return_status := Okl_Api.G_RET_STS_ERROR;
819:
820: END IF;
821:
822:
826:
827: OPEN l_rl_csr1( 'LALEVL', 'LASLL', p_chr_id, l_toplne.id);
828: FETCH l_rl_csr1 INTO l_rl_rec1;
829: IF ( l_rl_csr1%FOUND ) THEN
830: Okl_Api.set_message(
831: p_app_name => G_APP_NAME,
832: p_msg_name => 'OKL_QA_OKL_OKS_PYMNTS',
833: p_token1 => 'line',
834: p_token1_value => l_toplne.name);
831: p_app_name => G_APP_NAME,
832: p_msg_name => 'OKL_QA_OKL_OKS_PYMNTS',
833: p_token1 => 'line',
834: p_token1_value => l_toplne.name);
835: x_return_status := Okl_Api.G_RET_STS_ERROR;
836: END IF;
837: CLOSE l_rl_csr1;
838:
839: END LOOP;
837: CLOSE l_rl_csr1;
838:
839: END LOOP;
840:
841: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
842: Okl_Api.set_message(
843: p_app_name => G_APP_NAME,
844: p_msg_name => G_QA_SUCCESS);
845: END IF;
838:
839: END LOOP;
840:
841: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
842: Okl_Api.set_message(
843: p_app_name => G_APP_NAME,
844: p_msg_name => G_QA_SUCCESS);
845: END IF;
846:
852: END IF;
853: -- no processing necessary; validation can continue with next column
854: WHEN OTHERS THEN
855: -- store SQL error message on message stack
856: Okl_Api.SET_MESSAGE(
857: p_app_name => G_APP_NAME,
858: p_msg_name => G_UNEXPECTED_ERROR,
859: p_token1 => G_SQLCODE_TOKEN,
860: p_token1_value => SQLCODE,
860: p_token1_value => SQLCODE,
861: p_token2 => G_SQLERRM_TOKEN,
862: p_token2_value => SQLERRM);
863:
864: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
865:
866: IF ( l_toplne_csr%ISOPEN ) THEN
867: CLOSE l_toplne_csr;
868: END IF;
882: x_return_status OUT NOCOPY VARCHAR2,
883: p_chr_id IN NUMBER
884: ) IS
885:
886: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
887:
888: x_msg_count NUMBER;
889: x_msg_data VARCHAR2(256);
890: x_link_line_tbl Okl_Service_Integration_Pub.LINK_LINE_TBL_TYPE;
908:
909: BEGIN
910:
911: -- initialize return status
912: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
913:
914: Okl_Service_Integration_Pub.get_service_link_line (
915: p_api_version => 1.0,
916: p_init_msg_list => Okl_Api.G_FALSE,
912: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
913:
914: Okl_Service_Integration_Pub.get_service_link_line (
915: p_api_version => 1.0,
916: p_init_msg_list => Okl_Api.G_FALSE,
917: x_return_status => x_return_status,
918: x_msg_count => x_msg_count,
919: x_msg_data => x_msg_data,
920: p_lease_contract_id => p_chr_id,
920: p_lease_contract_id => p_chr_id,
921: x_link_line_tbl => x_link_line_tbl,
922: x_service_contract_id => x_service_contract_id);
923:
924: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
925: RAISE G_EXCEPTION_HALT_VALIDATION;
926: END IF;
927:
928: IF ( NVL(x_service_contract_id, -1 ) = -1 ) THEN
925: RAISE G_EXCEPTION_HALT_VALIDATION;
926: END IF;
927:
928: IF ( NVL(x_service_contract_id, -1 ) = -1 ) THEN
929: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
930: Okl_Api.set_message(
931: p_app_name => G_APP_NAME,
932: p_msg_name => G_QA_SUCCESS);
933: RETURN;
926: END IF;
927:
928: IF ( NVL(x_service_contract_id, -1 ) = -1 ) THEN
929: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
930: Okl_Api.set_message(
931: p_app_name => G_APP_NAME,
932: p_msg_name => G_QA_SUCCESS);
933: RETURN;
934: END IF;
955: amount1 := NVL(l_svclne.amount, -1);
956: CLOSE srv_amt_csr;
957:
958: IF ( amount1 <> amount2 ) THEN
959: Okl_Api.set_message(
960: p_app_name => G_APP_NAME,
961: p_msg_name => 'OKL_QA_OKL_OKS_AMNTS',
962: p_token1 => 'line',
963: p_token1_value => l_lne.line_number);
960: p_app_name => G_APP_NAME,
961: p_msg_name => 'OKL_QA_OKL_OKS_AMNTS',
962: p_token1 => 'line',
963: p_token1_value => l_lne.line_number);
964: x_return_status := Okl_Api.G_RET_STS_ERROR;
965: END IF;
966:
967: END LOOP;
968:
965: END IF;
966:
967: END LOOP;
968:
969: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
970: Okl_Api.set_message(
971: p_app_name => G_APP_NAME,
972: p_msg_name => G_QA_SUCCESS);
973: END IF;
966:
967: END LOOP;
968:
969: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
970: Okl_Api.set_message(
971: p_app_name => G_APP_NAME,
972: p_msg_name => G_QA_SUCCESS);
973: END IF;
974:
980: END IF;
981: -- no processing necessary; validation can continue with next column
982: WHEN OTHERS THEN
983: -- store SQL error message on message stack
984: Okl_Api.SET_MESSAGE(
985: p_app_name => G_APP_NAME,
986: p_msg_name => G_UNEXPECTED_ERROR,
987: p_token1 => G_SQLCODE_TOKEN,
988: p_token1_value => SQLCODE,
988: p_token1_value => SQLCODE,
989: p_token2 => G_SQLERRM_TOKEN,
990: p_token2_value => SQLERRM);
991:
992: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
993:
994: IF ( l_toplne_csr%ISOPEN ) THEN
995: CLOSE l_toplne_csr;
996: END IF;
1010: x_return_status OUT NOCOPY VARCHAR2,
1011: p_chr_id IN NUMBER
1012: ) IS
1013:
1014: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1015:
1016: l_hdr_rec l_hdr_csr%ROWTYPE;
1017:
1018: BEGIN
1017:
1018: BEGIN
1019:
1020: -- initialize return status
1021: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1022:
1023: OPEN l_hdr_csr( p_chr_id );
1024: FETCH l_hdr_csr INTO l_hdr_rec;
1025: CLOSE l_hdr_csr;
1024: FETCH l_hdr_csr INTO l_hdr_rec;
1025: CLOSE l_hdr_csr;
1026:
1027: IF ( l_hdr_rec.accepted_date IS NULL) THEN
1028: Okl_Api.set_message(
1029: p_app_name => G_APP_NAME,
1030: p_msg_name => 'OKL_QA_NO_ACCPTD_DATE');
1031: x_return_status := Okl_Api.G_RET_STS_ERROR;
1032: END IF;
1027: IF ( l_hdr_rec.accepted_date IS NULL) THEN
1028: Okl_Api.set_message(
1029: p_app_name => G_APP_NAME,
1030: p_msg_name => 'OKL_QA_NO_ACCPTD_DATE');
1031: x_return_status := Okl_Api.G_RET_STS_ERROR;
1032: END IF;
1033:
1034: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
1035: Okl_Api.set_message(
1030: p_msg_name => 'OKL_QA_NO_ACCPTD_DATE');
1031: x_return_status := Okl_Api.G_RET_STS_ERROR;
1032: END IF;
1033:
1034: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
1035: Okl_Api.set_message(
1036: p_app_name => G_APP_NAME,
1037: p_msg_name => G_QA_SUCCESS);
1038: END IF;
1031: x_return_status := Okl_Api.G_RET_STS_ERROR;
1032: END IF;
1033:
1034: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
1035: Okl_Api.set_message(
1036: p_app_name => G_APP_NAME,
1037: p_msg_name => G_QA_SUCCESS);
1038: END IF;
1039:
1045: END IF;
1046: -- no processing necessary; validation can continue with next column
1047: WHEN OTHERS THEN
1048: -- store SQL error message on message stack
1049: Okl_Api.SET_MESSAGE(
1050: p_app_name => G_APP_NAME,
1051: p_msg_name => G_UNEXPECTED_ERROR,
1052: p_token1 => G_SQLCODE_TOKEN,
1053: p_token1_value => SQLCODE,
1053: p_token1_value => SQLCODE,
1054: p_token2 => G_SQLERRM_TOKEN,
1055: p_token2_value => SQLERRM);
1056: -- notify caller of an error as UNEXPETED error
1057: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1058: -- verify that cursor was closed
1059: IF l_hdr_csr%ISOPEN THEN
1060: CLOSE l_hdr_csr;
1061: END IF;
1176: END IF;
1177: END;
1178:
1179: BEGIN
1180: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1181: l_payment_table_counter := 1;
1182: OPEN l_payment_lines_csr;
1183: LOOP
1184: FETCH l_payment_lines_csr BULK COLLECT INTO l_payment_table2 LIMIT l_limit;
1277:
1278: EXCEPTION
1279: WHEN schedule_mismatch
1280: THEN
1281: x_return_status := Okl_Api.G_RET_STS_ERROR;
1282: Okl_Api.set_message(
1283: p_app_name => G_APP_NAME,
1284: p_msg_name => p_message_name);
1285: WHEN OTHERS
1278: EXCEPTION
1279: WHEN schedule_mismatch
1280: THEN
1281: x_return_status := Okl_Api.G_RET_STS_ERROR;
1282: Okl_Api.set_message(
1283: p_app_name => G_APP_NAME,
1284: p_msg_name => p_message_name);
1285: WHEN OTHERS
1286: THEN
1283: p_app_name => G_APP_NAME,
1284: p_msg_name => p_message_name);
1285: WHEN OTHERS
1286: THEN
1287: x_return_status := Okl_Api.G_RET_STS_ERROR;
1288: Okl_Api.set_message(
1289: p_app_name => G_APP_NAME,
1290: p_msg_name => p_message_name);
1291:
1284: p_msg_name => p_message_name);
1285: WHEN OTHERS
1286: THEN
1287: x_return_status := Okl_Api.G_RET_STS_ERROR;
1288: Okl_Api.set_message(
1289: p_app_name => G_APP_NAME,
1290: p_msg_name => p_message_name);
1291:
1292: END;
1307: x_return_status OUT NOCOPY VARCHAR2,
1308: p_chr_id IN NUMBER
1309: ) IS
1310:
1311: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1312: l_dummy VARCHAR2(1) := '?';
1313: l_count NUMBER := 0;
1314: l_row_notfound BOOLEAN;
1315: l_token VARCHAR2(2000);
1585: BEGIN
1586: IF (G_DEBUG_ENABLED = 'Y') THEN
1587: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1588: END IF;
1589: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1590: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1591: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'In tot_unsched_prin_payment: 0...');
1592: END IF;
1593: --print('In tot_unsched_prin_payment: p_chr_id= ' || p_chr_id || ' p_kle_id=' || p_kle_id);
1607: RETURN(l_tot_amount);
1608:
1609: EXCEPTION WHEN OTHERS THEN
1610: --print('Exception In tot_unsched_prin_payment...sqlcode=' || sqlcode || ' sqlerrm=' || sqlerrm);
1611: x_return_status := Okl_Api.G_RET_STS_ERROR;
1612: RETURN(0);
1613: END; -- tot_unsched_prin_payment
1614:
1615: BEGIN
1614:
1615: BEGIN
1616:
1617: -- initialize return status
1618: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1619:
1620: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1621: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'In Check Payment Type...');
1622: END IF;
1632:
1633: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1634: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'In Check Payment Type:After get_product...x_return_status='||x_return_status);
1635: END IF;
1636: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
1637: Okc_Api.set_message(
1638: p_app_name => G_APP_NAME,
1639: p_msg_name => G_PROD_PARAMS_NOT_FOUND,
1640: p_token1 => G_PROD_NAME_TOKEN ,
1638: p_app_name => G_APP_NAME,
1639: p_msg_name => G_PROD_PARAMS_NOT_FOUND,
1640: p_token1 => G_PROD_NAME_TOKEN ,
1641: p_token1_value => l_deal_type);
1642: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1643: END IF;
1644:
1645: l_deal_type := x_pdt_parameter_rec.deal_type;
1646: l_interest_calculation_basis := x_pdt_parameter_rec.interest_calculation_basis;
1712: -- non Level
1713: IF (l_pmnt_lns_in_hdr_rec.rule_information7 IS NOT NULL AND
1714: l_pmnt_lns_in_hdr_rec.rule_information8 IS NOT NULL ) THEN
1715:
1716: Okl_Api.set_message(
1717: p_app_name => G_APP_NAME,
1718: p_msg_name => 'OKL_QA_PAYMENT_STUB_NA');
1719: x_return_status := Okl_Api.G_RET_STS_ERROR;
1720: END IF;
1715:
1716: Okl_Api.set_message(
1717: p_app_name => G_APP_NAME,
1718: p_msg_name => 'OKL_QA_PAYMENT_STUB_NA');
1719: x_return_status := Okl_Api.G_RET_STS_ERROR;
1720: END IF;
1721: END IF;
1722: END IF;
1723: -- Bug 4547537 End
1729: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'In Check Payment Type:Before first check...x_return_status='||x_return_status);
1730: END IF;
1731: -- Both RENT and PRINCIPAL_PAYMENT not allowed
1732: IF (l_rent_payment_found AND l_principal_payment_found) THEN
1733: Okl_Api.set_message(
1734: p_app_name => G_APP_NAME,
1735: p_msg_name => 'OKL_LA_VAR_RATE_PAYMENT');
1736: x_return_status := Okl_Api.G_RET_STS_ERROR;
1737: END IF;
1732: IF (l_rent_payment_found AND l_principal_payment_found) THEN
1733: Okl_Api.set_message(
1734: p_app_name => G_APP_NAME,
1735: p_msg_name => 'OKL_LA_VAR_RATE_PAYMENT');
1736: x_return_status := Okl_Api.G_RET_STS_ERROR;
1737: END IF;
1738: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1739: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'In Check Payment Type:Before second check...x_return_status='||x_return_status);
1740: END IF;
1743: NULL; -- Todo: AKP
1744: IF (l_deal_type = 'LOAN' AND
1745: l_interest_calculation_basis = 'FLOAT' AND
1746: l_revenue_recognition_method IN ('ESTIMATED_AND_BILLED', 'ACTUAL')) THEN
1747: Okl_Api.set_message(
1748: p_app_name => G_APP_NAME,
1749: p_msg_name => 'OKL_LA_VAR_RATE_ADVANCE',
1750: p_token1 => 'DEAL_TYPE',
1751: p_token1_value => l_deal_type,
1750: p_token1 => 'DEAL_TYPE',
1751: p_token1_value => l_deal_type,
1752: p_token2 => 'ICB',
1753: p_token2_value => l_interest_calculation_basis);
1754: x_return_status := Okl_Api.G_RET_STS_ERROR;
1755: END IF;
1756:
1757: -- 4918119: For REAMORT contracts, advance payment is not allowed
1758: -- Disable this QA check: 5114544
1759: IF (l_interest_calculation_basis = 'REAMORT') THEN
1760: IF (l_deal_type IN ('LEASEOP', 'LEASEST', 'LEASEDF') ) THEN
1761: NULL;
1762: ELSE
1763: Okl_Api.set_message(
1764: p_app_name => G_APP_NAME,
1765: p_msg_name => 'OKL_LA_VAR_RATE_ADVANCE',
1766: p_token1 => 'DEAL_TYPE',
1767: p_token1_value => l_deal_type,
1766: p_token1 => 'DEAL_TYPE',
1767: p_token1_value => l_deal_type,
1768: p_token2 => 'ICB',
1769: p_token2_value => l_interest_calculation_basis);
1770: x_return_status := Okl_Api.G_RET_STS_ERROR;
1771: END IF;
1772: END IF;
1773: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1774: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'In Check Payment Type:Before rate_delay_csr...');
1800: AND l_revenue_recognition_method <> 'STREAMS'
1801: THEN
1802: IF ((l_rate_delay IS NOT NULL AND l_cust_print_lead_days IS NOT NULL) AND
1803: (l_rate_delay <= l_cust_print_lead_days)) THEN
1804: Okl_Api.set_message(
1805: p_app_name => G_APP_NAME,
1806: p_msg_name => 'OKL_LLA_VAR_RATE_RATE_DELAY',
1807: p_token1 => 'CONT_ID',
1808: p_token1_value => l_contract_number);
1805: p_app_name => G_APP_NAME,
1806: p_msg_name => 'OKL_LLA_VAR_RATE_RATE_DELAY',
1807: p_token1 => 'CONT_ID',
1808: p_token1_value => l_contract_number);
1809: x_return_status := Okl_Api.G_RET_STS_ERROR;
1810: END IF;
1811: END IF;
1812: END IF;
1813: -- udhenuko End bug#6786775
1823: x_base_rate_defined => l_base_rate_defined,
1824: x_return_status => l_return_status);
1825:
1826: --print('l_return_status=' || l_return_status);
1827: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
1828: x_return_status := l_return_status;
1829: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1830: END IF;
1831:
1825:
1826: --print('l_return_status=' || l_return_status);
1827: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
1828: x_return_status := l_return_status;
1829: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1830: END IF;
1831:
1832: IF NOT(l_base_rate_defined) THEN
1833: -- 4907390
1830: END IF;
1831:
1832: IF NOT(l_base_rate_defined) THEN
1833: -- 4907390
1834: Okl_Api.set_message(Okc_Api.G_APP_NAME, G_REQUIRED_VALUE,
1835: G_COL_NAME_TOKEN, 'Base Rate');
1836: /*OKL_API.set_message(
1837: p_app_name => G_APP_NAME,
1838: p_msg_name => 'OKL_LLA_VAR_RATE_BASE_MISSING',
1832: IF NOT(l_base_rate_defined) THEN
1833: -- 4907390
1834: Okl_Api.set_message(Okc_Api.G_APP_NAME, G_REQUIRED_VALUE,
1835: G_COL_NAME_TOKEN, 'Base Rate');
1836: /*OKL_API.set_message(
1837: p_app_name => G_APP_NAME,
1838: p_msg_name => 'OKL_LLA_VAR_RATE_BASE_MISSING',
1839: p_token1 => 'CONT_ID',
1840: p_token1_value => p_chr_id); */
1837: p_app_name => G_APP_NAME,
1838: p_msg_name => 'OKL_LLA_VAR_RATE_BASE_MISSING',
1839: p_token1 => 'CONT_ID',
1840: p_token1_value => p_chr_id); */
1841: x_return_status := Okl_Api.G_RET_STS_ERROR;
1842: --ELSE
1843: --print('base_rate defined...');
1844: END IF;
1845: END IF;
1857: IF NOT(l_var_int_schedule_defined) THEN
1858: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1859: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Var Int Schedule Not Defined...');
1860: END IF;
1861: Okl_Api.set_message(
1862: p_app_name => G_APP_NAME,
1863: p_msg_name => 'OKL_LA_VAR_SCHEDULED_ALLOWED');
1864: x_return_status := Okl_Api.G_RET_STS_ERROR;
1865: ELSE
1860: END IF;
1861: Okl_Api.set_message(
1862: p_app_name => G_APP_NAME,
1863: p_msg_name => 'OKL_LA_VAR_SCHEDULED_ALLOWED');
1864: x_return_status := Okl_Api.G_RET_STS_ERROR;
1865: ELSE
1866: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1867: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Var Int Schedule Defined...');
1868: END IF;
1868: END IF;
1869: END IF;
1870: ELSE -- Bug 4742650 (Do not allow var int sched for other type of contracts)
1871: IF (l_var_int_schedule_defined) THEN
1872: Okl_Api.set_message(
1873: p_app_name => G_APP_NAME,
1874: p_msg_name => 'OKL_LLA_VAR_RATE_SCHEDULE_NA');
1875: x_return_status := Okl_Api.G_RET_STS_ERROR;
1876: END IF;
1871: IF (l_var_int_schedule_defined) THEN
1872: Okl_Api.set_message(
1873: p_app_name => G_APP_NAME,
1874: p_msg_name => 'OKL_LLA_VAR_RATE_SCHEDULE_NA');
1875: x_return_status := Okl_Api.G_RET_STS_ERROR;
1876: END IF;
1877: END IF;
1878:
1879: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1897: (l_principal_start_date = l_variable_start_date AND
1898: l_principal_periods = l_variable_periods )) THEN
1899: NULL;
1900: ELSE
1901: OKL_API.set_message(
1902: p_app_name => G_APP_NAME,
1903: p_msg_name => 'OKL_LLA_VAR_RATE_SCHEDULE',
1904: p_token1 => 'CONT_ID',
1905: p_token1_value => p_chr_id);
1902: p_app_name => G_APP_NAME,
1903: p_msg_name => 'OKL_LLA_VAR_RATE_SCHEDULE',
1904: p_token1 => 'CONT_ID',
1905: p_token1_value => p_chr_id);
1906: x_return_status := OKL_API.G_RET_STS_ERROR;
1907: END IF;
1908: END IF;
1909: */
1910:
1920: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1921: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_contract_start_date=' || l_contract_start_date);
1922: END IF;
1923: IF (l_variable_start_date <> l_contract_start_date) THEN
1924: OKL_API.set_message(
1925: p_app_name => G_APP_NAME,
1926: p_msg_name => 'OKL_LLA_VAR_RATE_SCHEDULE2');
1927: x_return_status := OKL_API.G_RET_STS_ERROR;
1928: END IF;
1923: IF (l_variable_start_date <> l_contract_start_date) THEN
1924: OKL_API.set_message(
1925: p_app_name => G_APP_NAME,
1926: p_msg_name => 'OKL_LLA_VAR_RATE_SCHEDULE2');
1927: x_return_status := OKL_API.G_RET_STS_ERROR;
1928: END IF;
1929: END IF;
1930:
1931: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1949: ELSE
1950: l_payment_date2 := FND_DATE.canonical_to_date(l_pmnt_lns_in_hdr_rec.rule_information2);
1951: print('l_payment_date2=' || l_payment_date2);
1952: IF (l_payment_date <> l_payment_date2) THEN
1953: OKL_API.set_message(
1954: p_app_name => G_APP_NAME,
1955: p_msg_name => 'OKL_LLA_VAR_RATE_PAYMENT_DATE',
1956: p_token1 => 'CONT_ID',
1957: p_token1_value => p_chr_id,
1956: p_token1 => 'CONT_ID',
1957: p_token1_value => p_chr_id,
1958: p_token2 => 'PAYMENT_TYPE',
1959: p_token2_value => 'RENT');
1960: x_return_status := OKL_API.G_RET_STS_ERROR;
1961: END IF;
1962: End If;
1963: END Loop;
1964: END LOOP;
2023: OR l_pmnt_lns_in_hdr_rec_comp.object1_id1
2024: <> l_pmnt_lns_in_hdr_rec.object1_id1
2025: OR l_pmnt_lns_in_hdr_rec_comp.object1_id2
2026: <> l_pmnt_lns_in_hdr_rec.object1_id2 ) Then
2027: x_return_status := OKL_API.G_RET_STS_ERROR;
2028: RAISE l_mismatch_exception;
2029: End If;
2030: End If;
2031: End If;
2036: Elsif(l_global_total_periods <> l_line_total_periods) Then
2037: RAISE l_mismatch_exception;
2038: END IF;
2039: EXCEPTION WHEN l_mismatch_exception Then
2040: x_return_status := OKL_API.G_RET_STS_ERROR;
2041: --message
2042: OKL_API.set_message(
2043: p_app_name => G_APP_NAME,
2044: p_msg_name => 'OKL_QA_VARINT_SLL_MISMATCH');
2038: END IF;
2039: EXCEPTION WHEN l_mismatch_exception Then
2040: x_return_status := OKL_API.G_RET_STS_ERROR;
2041: --message
2042: OKL_API.set_message(
2043: p_app_name => G_APP_NAME,
2044: p_msg_name => 'OKL_QA_VARINT_SLL_MISMATCH');
2045: END;
2046: END LOOP;
2067: x_return_status => l_return_status, -- 4907390
2068: p_chr_id => p_chr_id,
2069: p_stream_purpose_code => 'RENT',
2070: p_message_name => 'OKL_QA_VARINT_SLL_MISMATCH');
2071: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN -- 4907390
2072: x_return_status := l_return_status;
2073: END IF;
2074:
2075: --veramach bug 6389295 start
2079: x_return_status => l_return_status, -- 4907390
2080: p_chr_id => p_chr_id,
2081: p_stream_purpose_code => 'PRINCIPAL_PAYMENT',
2082: p_message_name => 'OKL_QA_VARINT_SLL_MISMATCH');
2083: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN -- 4907390
2084: x_return_status := l_return_status;
2085: END IF;
2086: --veramach bug 6389295 start
2087: END IF;
2116: l_line_ind := 1;
2117: ELSE
2118: l_payment_date2 := FND_DATE.canonical_to_date(l_pmnt_lns_in_hdr_rec.rule_information2);
2119: IF (l_payment_date <> l_payment_date2) THEN
2120: OKL_API.set_message(
2121: p_app_name => G_APP_NAME,
2122: p_msg_name => 'OKL_LLA_VAR_RATE_PAYMENT_DATE',
2123: p_token1 => 'CONT_ID',
2124: p_token1_value => p_chr_id,
2123: p_token1 => 'CONT_ID',
2124: p_token1_value => p_chr_id,
2125: p_token2 => 'PAYMENT_TYPE',
2126: p_token2_value => 'PRINCIPAL_PAYMENT');
2127: x_return_status := OKL_API.G_RET_STS_ERROR;
2128: END IF;
2129: END IF;
2130: END IF; */
2131:
2173: -- gboomina Bug 6401848 - Start
2174: -- 4898747
2175: Okl_Subsidy_Process_Pvt.get_asset_subsidy_amount(
2176: p_api_version => 1.0,
2177: p_init_msg_list => Okl_Api.G_FALSE,
2178: x_return_status => l_return_status,
2179: x_msg_count => x_msg_count,
2180: x_msg_data => x_msg_data,
2181: p_asset_cle_id => l_curr_cle_id,
2196: END IF;
2197: END IF;
2198: /* IF (ABS(l_capital_amount - l_net_subsidy_amount - -- 4898747
2199: (l_tot_principal_payment+l_tot_unsched_prin_payment)) > 0.01) OR
2200: (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN -- 4907390 */
2201: IF (ABS(l_capital_amount - l_non_cap_down_payment_amount - -- 7131756
2202: (l_tot_principal_payment+l_tot_unsched_prin_payment)) > 0.01) THEN
2203: Okl_Api.set_message(
2204: p_app_name => G_APP_NAME,
2199: (l_tot_principal_payment+l_tot_unsched_prin_payment)) > 0.01) OR
2200: (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN -- 4907390 */
2201: IF (ABS(l_capital_amount - l_non_cap_down_payment_amount - -- 7131756
2202: (l_tot_principal_payment+l_tot_unsched_prin_payment)) > 0.01) THEN
2203: Okl_Api.set_message(
2204: p_app_name => G_APP_NAME,
2205: p_msg_name => 'OKL_QA_PRIN_MISMATCH');
2206: x_return_status := Okl_Api.G_RET_STS_ERROR;
2207: END IF;
2202: (l_tot_principal_payment+l_tot_unsched_prin_payment)) > 0.01) THEN
2203: Okl_Api.set_message(
2204: p_app_name => G_APP_NAME,
2205: p_msg_name => 'OKL_QA_PRIN_MISMATCH');
2206: x_return_status := Okl_Api.G_RET_STS_ERROR;
2207: END IF;
2208: -- gboomina Bug 6401848 - End
2209: END IF;
2210: l_tot_principal_payment := 0;
2216: END IF;
2217: Okl_Streams_Util.get_pricing_engine(p_khr_id => p_chr_id,
2218: x_pricing_engine => l_pricing_engine,
2219: x_return_status => l_return_status);
2220: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2221: x_return_status := l_return_status;
2222: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2223: END IF;
2224:
2218: x_pricing_engine => l_pricing_engine,
2219: x_return_status => l_return_status);
2220: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2221: x_return_status := l_return_status;
2222: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2223: END IF;
2224:
2225: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2226: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'In Check Payment Type:Before eighth check...x_return_status='||x_return_status);
2228: IF (l_deal_type IN ('LEASEOP', 'LEASEST', 'LEASEDF') ) AND
2229: (l_interest_Calculation_basis IN ('FIXED', 'REAMORT', 'FLOAT_FACTORS'))
2230: THEN
2231: IF NOT(l_rent_payment_found) THEN
2232: Okl_Api.set_message(
2233: p_app_name => G_APP_NAME,
2234: p_msg_name => 'OKL_LLA_VAR_RATE_RENT_MISSING');
2235: x_return_status := Okl_Api.G_RET_STS_ERROR;
2236: --return;
2231: IF NOT(l_rent_payment_found) THEN
2232: Okl_Api.set_message(
2233: p_app_name => G_APP_NAME,
2234: p_msg_name => 'OKL_LLA_VAR_RATE_RENT_MISSING');
2235: x_return_status := Okl_Api.G_RET_STS_ERROR;
2236: --return;
2237: ELSE -- RENT defined
2238: -- Bug 4748524
2239: IF (l_interest_calculation_basis = 'FLOAT_FACTORS') AND
2237: ELSE -- RENT defined
2238: -- Bug 4748524
2239: IF (l_interest_calculation_basis = 'FLOAT_FACTORS') AND
2240: (l_rent_payment_in_advance) THEN
2241: Okl_Api.set_message(
2242: p_app_name => G_APP_NAME,
2243: p_msg_name => 'OKL_LLA_VAR_RATE_ARREARS_1');
2244: x_return_status := Okl_Api.G_RET_STS_ERROR;
2245: END IF;
2240: (l_rent_payment_in_advance) THEN
2241: Okl_Api.set_message(
2242: p_app_name => G_APP_NAME,
2243: p_msg_name => 'OKL_LLA_VAR_RATE_ARREARS_1');
2244: x_return_status := Okl_Api.G_RET_STS_ERROR;
2245: END IF;
2246: END IF;
2247: IF (l_principal_payment_found) THEN
2248: Okl_Api.set_message(
2244: x_return_status := Okl_Api.G_RET_STS_ERROR;
2245: END IF;
2246: END IF;
2247: IF (l_principal_payment_found) THEN
2248: Okl_Api.set_message(
2249: p_app_name => G_APP_NAME,
2250: p_msg_name => 'OKL_LLA_VAR_RATE_PRIN_ERROR');
2251: x_return_status := Okl_Api.G_RET_STS_ERROR;
2252: --return;
2247: IF (l_principal_payment_found) THEN
2248: Okl_Api.set_message(
2249: p_app_name => G_APP_NAME,
2250: p_msg_name => 'OKL_LLA_VAR_RATE_PRIN_ERROR');
2251: x_return_status := Okl_Api.G_RET_STS_ERROR;
2252: --return;
2253: END IF;
2254: END IF;
2255:
2264: THEN
2265: IF NOT(l_rent_payment_found) THEN
2266: IF (l_principal_payment_found) THEN
2267: IF (l_pricing_engine <> 'EXTERNAL') THEN
2268: Okl_Api.set_message(
2269: p_app_name => G_APP_NAME,
2270: --p_msg_name => 'OKL_LLA_VAR_RATE_PRIN_MISSING');
2271: p_msg_name => 'OKL_LLA_VAR_RATE_PRIN_ISG');
2272: x_return_status := Okl_Api.G_RET_STS_ERROR;
2268: Okl_Api.set_message(
2269: p_app_name => G_APP_NAME,
2270: --p_msg_name => 'OKL_LLA_VAR_RATE_PRIN_MISSING');
2271: p_msg_name => 'OKL_LLA_VAR_RATE_PRIN_ISG');
2272: x_return_status := Okl_Api.G_RET_STS_ERROR;
2273: --return;
2274: END IF;
2275: ELSE
2276: Okl_Api.set_message(
2272: x_return_status := Okl_Api.G_RET_STS_ERROR;
2273: --return;
2274: END IF;
2275: ELSE
2276: Okl_Api.set_message(
2277: p_app_name => G_APP_NAME,
2278: p_msg_name => 'OKL_LLA_VAR_RATE_RENT_MISSING');
2279: x_return_status := Okl_Api.G_RET_STS_ERROR;
2280: --return;
2275: ELSE
2276: Okl_Api.set_message(
2277: p_app_name => G_APP_NAME,
2278: p_msg_name => 'OKL_LLA_VAR_RATE_RENT_MISSING');
2279: x_return_status := Okl_Api.G_RET_STS_ERROR;
2280: --return;
2281: END IF;
2282: END IF;
2283: /*IF (l_principal_payment_found) THEN
2281: END IF;
2282: END IF;
2283: /*IF (l_principal_payment_found) THEN
2284: IF (l_pricing_engine <> 'EXTERNAL') THEN
2285: OKL_API.set_message(
2286: p_app_name => G_APP_NAME,
2287: --p_msg_name => 'OKL_LLA_VAR_RATE_PRIN_MISSING');
2288: p_msg_name => 'OKL_LLA_VAR_RATE_PRIN_ISG');
2289: x_return_status := OKL_API.G_RET_STS_ERROR;
2285: OKL_API.set_message(
2286: p_app_name => G_APP_NAME,
2287: --p_msg_name => 'OKL_LLA_VAR_RATE_PRIN_MISSING');
2288: p_msg_name => 'OKL_LLA_VAR_RATE_PRIN_ISG');
2289: x_return_status := OKL_API.G_RET_STS_ERROR;
2290: return;
2291: END IF;*/
2292: /*ELSE
2293: IF (l_pricing_engine = 'INTERNAL') THEN
2290: return;
2291: END IF;*/
2292: /*ELSE
2293: IF (l_pricing_engine = 'INTERNAL') THEN
2294: OKL_API.set_message(
2295: p_app_name => G_APP_NAME,
2296: p_msg_name => 'OKL_LLA_VAR_RATE_PRIN_ISG');
2297: x_return_status := OKL_API.G_RET_STS_ERROR;
2298: return;
2293: IF (l_pricing_engine = 'INTERNAL') THEN
2294: OKL_API.set_message(
2295: p_app_name => G_APP_NAME,
2296: p_msg_name => 'OKL_LLA_VAR_RATE_PRIN_ISG');
2297: x_return_status := OKL_API.G_RET_STS_ERROR;
2298: return;
2299: END IF;*/
2300: /*END IF;*/
2301: END IF;
2306: IF ((l_deal_type = 'LOAN-REVONVING' ) AND
2307: (l_interest_Calculation_basis = 'FLOAT'))
2308: THEN
2309: IF (l_rent_payment_found) THEN
2310: Okl_Api.set_message(
2311: p_app_name => G_APP_NAME,
2312: p_msg_name => 'OKL_LLA_VAR_RATE_RENT_ERROR');
2313: x_return_status := Okl_Api.G_RET_STS_ERROR;
2314: --return;
2309: IF (l_rent_payment_found) THEN
2310: Okl_Api.set_message(
2311: p_app_name => G_APP_NAME,
2312: p_msg_name => 'OKL_LLA_VAR_RATE_RENT_ERROR');
2313: x_return_status := Okl_Api.G_RET_STS_ERROR;
2314: --return;
2315: END IF;
2316: IF (l_principal_payment_found) THEN
2317: Okl_Api.set_message(
2313: x_return_status := Okl_Api.G_RET_STS_ERROR;
2314: --return;
2315: END IF;
2316: IF (l_principal_payment_found) THEN
2317: Okl_Api.set_message(
2318: p_app_name => G_APP_NAME,
2319: p_msg_name => 'OKL_LLA_VAR_RATE_PRIN_ERROR');
2320: x_return_status := Okl_Api.G_RET_STS_ERROR;
2321: RETURN;
2316: IF (l_principal_payment_found) THEN
2317: Okl_Api.set_message(
2318: p_app_name => G_APP_NAME,
2319: p_msg_name => 'OKL_LLA_VAR_RATE_PRIN_ERROR');
2320: x_return_status := Okl_Api.G_RET_STS_ERROR;
2321: RETURN;
2322: END IF;
2323: END IF;
2324:
2324:
2325: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2326: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before exitting: x_return_status=' || x_return_status);
2327: END IF;
2328: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
2329: Okl_Api.set_message(
2330: p_app_name => G_APP_NAME,
2331: p_msg_name => G_QA_SUCCESS);
2332: END IF;
2325: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2326: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before exitting: x_return_status=' || x_return_status);
2327: END IF;
2328: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
2329: Okl_Api.set_message(
2330: p_app_name => G_APP_NAME,
2331: p_msg_name => G_QA_SUCCESS);
2332: END IF;
2333:
2340: CLOSE l_rl_csr1;
2341: END IF;
2342: WHEN OTHERS THEN
2343: -- store SQL error message on message stack
2344: Okl_Api.SET_MESSAGE(
2345: p_app_name => G_APP_NAME,
2346: p_msg_name => G_UNEXPECTED_ERROR,
2347: p_token1 => G_SQLCODE_TOKEN,
2348: p_token1_value => SQLCODE,
2348: p_token1_value => SQLCODE,
2349: p_token2 => G_SQLERRM_TOKEN,
2350: p_token2_value => SQLERRM);
2351: -- notify caller of an error as UNEXPETED error
2352: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
2353: -- verify that cursor was closed
2354: IF l_lne_csr%ISOPEN THEN
2355: CLOSE l_lne_csr;
2356: END IF;
2383: BEGIN
2384: IF (G_DEBUG_ENABLED = 'Y') THEN
2385: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2386: END IF;
2387: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
2388:
2389: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2390: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before calling validate_k_rate_params...');
2391: END IF;
2390: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before calling validate_k_rate_params...');
2391: END IF;
2392: Okl_K_Rate_Params_Pvt.validate_k_rate_params(
2393: p_api_version => 1,
2394: p_init_msg_list => Okl_Api.G_FALSE,
2395: x_return_status => x_return_status,
2396: x_msg_count => x_msg_count,
2397: x_msg_data => x_msg_data,
2398: p_khr_id => p_chr_id,
2400:
2401: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2402: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After validate_k_rate_params x_return_status=' || x_return_status);
2403: END IF;
2404: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2405: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2406: --RAISE OKL_API.G_EXCEPTION_HALT_VALIDATION;
2407: x_return_status := Okl_Api.G_RET_STS_ERROR;
2408: END IF;
2401: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2402: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After validate_k_rate_params x_return_status=' || x_return_status);
2403: END IF;
2404: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2405: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2406: --RAISE OKL_API.G_EXCEPTION_HALT_VALIDATION;
2407: x_return_status := Okl_Api.G_RET_STS_ERROR;
2408: END IF;
2409:
2402: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After validate_k_rate_params x_return_status=' || x_return_status);
2403: END IF;
2404: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2405: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2406: --RAISE OKL_API.G_EXCEPTION_HALT_VALIDATION;
2407: x_return_status := Okl_Api.G_RET_STS_ERROR;
2408: END IF;
2409:
2410: l_return_status := Okl_Api.G_RET_STS_SUCCESS;
2403: END IF;
2404: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2405: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2406: --RAISE OKL_API.G_EXCEPTION_HALT_VALIDATION;
2407: x_return_status := Okl_Api.G_RET_STS_ERROR;
2408: END IF;
2409:
2410: l_return_status := Okl_Api.G_RET_STS_SUCCESS;
2411: check_payment_type(
2406: --RAISE OKL_API.G_EXCEPTION_HALT_VALIDATION;
2407: x_return_status := Okl_Api.G_RET_STS_ERROR;
2408: END IF;
2409:
2410: l_return_status := Okl_Api.G_RET_STS_SUCCESS;
2411: check_payment_type(
2412: x_return_status => l_return_status,
2413: p_chr_id => p_chr_id);
2414: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2414: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2415: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After check_payment_type l_return_status=' || l_return_status);
2416: END IF;
2417:
2418: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2419: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2420: RAISE G_EXCEPTION_HALT_VALIDATION;
2421: END IF;
2422:
2415: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After check_payment_type l_return_status=' || l_return_status);
2416: END IF;
2417:
2418: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2419: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2420: RAISE G_EXCEPTION_HALT_VALIDATION;
2421: END IF;
2422:
2423: EXCEPTION
2423: EXCEPTION
2424:
2425: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2426: NULL;
2427: x_return_status := Okl_Api.G_RET_STS_ERROR;
2428: -- Close cursors if still open
2429: WHEN OTHERS THEN
2430: -- store SQL error message on message stack
2431: Okl_Api.SET_MESSAGE(
2427: x_return_status := Okl_Api.G_RET_STS_ERROR;
2428: -- Close cursors if still open
2429: WHEN OTHERS THEN
2430: -- store SQL error message on message stack
2431: Okl_Api.SET_MESSAGE(
2432: p_app_name => G_APP_NAME,
2433: p_msg_name => G_UNEXPECTED_ERROR,
2434: p_token1 => G_SQLCODE_TOKEN,
2435: p_token1_value => SQLCODE,
2435: p_token1_value => SQLCODE,
2436: p_token2 => G_SQLERRM_TOKEN,
2437: p_token2_value => SQLERRM);
2438: -- notify caller of an error as UNEXPETED error
2439: --x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2440: x_return_status := Okl_Api.G_RET_STS_ERROR;
2441: -- verify that cursor was closed
2442:
2443: END check_variable_rate;
2436: p_token2 => G_SQLERRM_TOKEN,
2437: p_token2_value => SQLERRM);
2438: -- notify caller of an error as UNEXPETED error
2439: --x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2440: x_return_status := Okl_Api.G_RET_STS_ERROR;
2441: -- verify that cursor was closed
2442:
2443: END check_variable_rate;
2444:
2457: x_return_status OUT NOCOPY VARCHAR2,
2458: p_chr_id IN NUMBER
2459: ) IS
2460:
2461: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2462:
2463: l_hdr_rec l_hdr_csr%ROWTYPE;
2464: l_hdrrl_rec l_hdrrl_csr%ROWTYPE;
2465: index_rec index_csr%ROWTYPE;
2564: PROCEDURE l_formula_processing(x_return_status OUT NOCOPY VARCHAR2,
2565: p_chr_id IN OKC_K_HEADERS_B.ID%TYPE) IS
2566: BEGIN
2567: -- initialize return status
2568: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
2569: ind := 0;
2570: --Bug#3931587
2571: --FOR l_pmnt_strm_check_rec IN l_pmnt_strm_check('LALEVL','LASLH','VARIABLE INTEREST SCHEDULE',p_chr_id)
2572: --FOR l_pmnt_strm_check_rec IN l_pmnt_strm_check('LALEVL','LASLH','VARIABLE_INTEREST',p_chr_id)
2573: FOR l_pmnt_strm_check_rec IN l_pmnt_strm_check('LALEVL','LASLH','VARIABLE_INTEREST_SCHEDULE',p_chr_id)
2574: LOOP
2575: ind := ind + 1;
2576: IF (l_pmnt_strm_check_rec.cle_id IS NOT NULL) THEN
2577: x_return_status := Okl_Api.G_RET_STS_ERROR;
2578: --message
2579: Okl_Api.set_message(
2580: p_app_name => G_APP_NAME,
2581: p_msg_name => 'OKL_QA_VARINT_LINE_LEVEL');
2575: ind := ind + 1;
2576: IF (l_pmnt_strm_check_rec.cle_id IS NOT NULL) THEN
2577: x_return_status := Okl_Api.G_RET_STS_ERROR;
2578: --message
2579: Okl_Api.set_message(
2580: p_app_name => G_APP_NAME,
2581: p_msg_name => 'OKL_QA_VARINT_LINE_LEVEL');
2582: END IF;
2583: l_no_pmnt_lns_found := 0;
2585: LOOP
2586: l_no_pmnt_lns_found := l_no_pmnt_lns_found + 1 ;
2587: EXIT WHEN l_pmnt_lns_in_hdr%NOTFOUND;
2588: IF ( l_pmnt_lns_in_hdr_rec.rule_information6 <> 0 ) THEN
2589: x_return_status := Okl_Api.G_RET_STS_ERROR;
2590: --message
2591: Okl_Api.set_message(
2592: p_app_name => G_APP_NAME,
2593: p_msg_name => 'OKL_QA_VARINT_SLL_AMOUNT');
2587: EXIT WHEN l_pmnt_lns_in_hdr%NOTFOUND;
2588: IF ( l_pmnt_lns_in_hdr_rec.rule_information6 <> 0 ) THEN
2589: x_return_status := Okl_Api.G_RET_STS_ERROR;
2590: --message
2591: Okl_Api.set_message(
2592: p_app_name => G_APP_NAME,
2593: p_msg_name => 'OKL_QA_VARINT_SLL_AMOUNT');
2594: END IF;
2595: IF ( ( l_hdr_rec.deal_type = 'LOAN' OR l_hdr_rec.deal_type = 'LOAN-REVOLVING')
2594: END IF;
2595: IF ( ( l_hdr_rec.deal_type = 'LOAN' OR l_hdr_rec.deal_type = 'LOAN-REVOLVING')
2596: AND
2597: ( NVL(l_pmnt_lns_in_hdr_rec.rule_information10,'N') = 'N' ) ) THEN
2598: x_return_status := Okl_Api.G_RET_STS_ERROR;
2599: --message
2600: Okl_Api.set_message(
2601: p_app_name => G_APP_NAME,
2602: p_msg_name => 'OKL_QA_VARINT_ADV');
2596: AND
2597: ( NVL(l_pmnt_lns_in_hdr_rec.rule_information10,'N') = 'N' ) ) THEN
2598: x_return_status := Okl_Api.G_RET_STS_ERROR;
2599: --message
2600: Okl_Api.set_message(
2601: p_app_name => G_APP_NAME,
2602: p_msg_name => 'OKL_QA_VARINT_ADV');
2603: END IF;
2604: END LOOP;
2602: p_msg_name => 'OKL_QA_VARINT_ADV');
2603: END IF;
2604: END LOOP;
2605: IF(l_no_pmnt_lns_found = 0) THEN
2606: x_return_status := Okl_Api.G_RET_STS_ERROR;
2607: --message
2608: Okl_Api.set_message(
2609: p_app_name => G_APP_NAME,
2610: p_msg_name => 'OKL_QA_VARINT_NO_SLL');
2604: END LOOP;
2605: IF(l_no_pmnt_lns_found = 0) THEN
2606: x_return_status := Okl_Api.G_RET_STS_ERROR;
2607: --message
2608: Okl_Api.set_message(
2609: p_app_name => G_APP_NAME,
2610: p_msg_name => 'OKL_QA_VARINT_NO_SLL');
2611: END IF;
2612: END LOOP;
2610: p_msg_name => 'OKL_QA_VARINT_NO_SLL');
2611: END IF;
2612: END LOOP;
2613: IF (ind = 0) THEN
2614: x_return_status := Okl_Api.G_RET_STS_ERROR;
2615: --message
2616: Okl_Api.set_message(
2617: p_app_name => G_APP_NAME,
2618: p_msg_name => 'OKL_QA_VARINT_NOT_DEFINED');
2612: END LOOP;
2613: IF (ind = 0) THEN
2614: x_return_status := Okl_Api.G_RET_STS_ERROR;
2615: --message
2616: Okl_Api.set_message(
2617: p_app_name => G_APP_NAME,
2618: p_msg_name => 'OKL_QA_VARINT_NOT_DEFINED');
2619: END IF;
2620:
2617: p_app_name => G_APP_NAME,
2618: p_msg_name => 'OKL_QA_VARINT_NOT_DEFINED');
2619: END IF;
2620:
2621: --IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
2622: -- OKL_API.set_message(
2623: -- p_app_name => G_APP_NAME,
2624: -- p_msg_name => G_QA_SUCCESS);
2625: --END IF;
2618: p_msg_name => 'OKL_QA_VARINT_NOT_DEFINED');
2619: END IF;
2620:
2621: --IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
2622: -- OKL_API.set_message(
2623: -- p_app_name => G_APP_NAME,
2624: -- p_msg_name => G_QA_SUCCESS);
2625: --END IF;
2626:
2642:
2643: BEGIN
2644:
2645: -- initialize return status
2646: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
2647:
2648: OPEN l_hdr_csr( p_chr_id );
2649: FETCH l_hdr_csr INTO l_hdr_rec;
2650: CLOSE l_hdr_csr;
2661: IF (l_variable_int_yn) THEN -- dedey
2662: IF ( l_hdrrl_csr%NOTFOUND ) OR
2663: ( l_hdrrl_rec.rule_information1 IS NULL ) OR
2664: ( l_hdrrl_rec.rule_information2 IS NULL ) THEN
2665: Okl_Api.set_message(
2666: p_app_name => G_APP_NAME,
2667: p_msg_name => 'OKL_QA_NO_VARMETH');
2668: x_return_status := Okl_Api.G_RET_STS_ERROR;
2669: END IF;
2664: ( l_hdrrl_rec.rule_information2 IS NULL ) THEN
2665: Okl_Api.set_message(
2666: p_app_name => G_APP_NAME,
2667: p_msg_name => 'OKL_QA_NO_VARMETH');
2668: x_return_status := Okl_Api.G_RET_STS_ERROR;
2669: END IF;
2670: END IF;
2671: CLOSE l_hdrrl_csr;
2672: var_meth := l_hdrrl_rec.rule_information1;
2684: IF (l_deal_type = 'LOAN') THEN
2685: IF (l_variable_int_yn ) THEN
2686: IF (var_meth = 'FLOAT' AND calc_meth = 'FORMULA') THEN
2687: l_formula_processing(x_return_status => lx_return_status, p_chr_id => p_chr_id) ;
2688: IF (lx_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2689: x_return_status := lx_return_status;
2690: END IF;
2691: ELSIF (var_meth = 'FIXEDADJUST' AND calc_meth = 'REAMORT') THEN
2692: -- variable interest schedule payments not allowed for reamort.
2695: RAISE l_invalid_combination;
2696: END IF;
2697: ELSIF (NOT l_variable_int_yn ) THEN
2698: --return success
2699: Okl_Api.set_message(
2700: p_app_name => G_APP_NAME,
2701: p_msg_name => G_QA_SUCCESS);
2702: RETURN;
2703: END IF;
2704: ELSIF(l_deal_type = 'LOAN-REVOLVING') THEN
2705: IF (l_variable_int_yn) THEN
2706: IF (var_meth = 'FLOAT' AND calc_meth = 'FORMULA') THEN
2707: l_formula_processing(x_return_status => lx_return_status, p_chr_id => p_chr_id) ;
2708: IF (lx_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2709: x_return_status := lx_return_status;
2710: END IF;
2711: ELSE
2712: RAISE l_invalid_combination;
2723: RAISE l_invalid_combination;
2724: END IF;
2725: ELSIF (NOT l_variable_int_yn ) THEN
2726: --return success
2727: Okl_Api.set_message(
2728: p_app_name => G_APP_NAME,
2729: p_msg_name => G_QA_SUCCESS);
2730: RETURN;
2731: END IF;
2733: -----------------------------------------------
2734: EXCEPTION
2735: -----------------------------------------------
2736: WHEN l_invalid_combination THEN
2737: x_return_status := Okl_Api.G_RET_STS_ERROR;
2738: Okl_Api.set_message(
2739: p_app_name => G_APP_NAME,
2740: p_msg_name => 'OKL_QA_VARIABLE_INV_COMB',
2741: p_token1 => 'VAR_METHOD',
2734: EXCEPTION
2735: -----------------------------------------------
2736: WHEN l_invalid_combination THEN
2737: x_return_status := Okl_Api.G_RET_STS_ERROR;
2738: Okl_Api.set_message(
2739: p_app_name => G_APP_NAME,
2740: p_msg_name => 'OKL_QA_VARIABLE_INV_COMB',
2741: p_token1 => 'VAR_METHOD',
2742: p_token1_value => var_meth,
2742: p_token1_value => var_meth,
2743: p_token2 => 'CALC_METHOD',
2744: p_token2_value => calc_meth);
2745: WHEN l_loan_rev_var_rate THEN
2746: x_return_status := Okl_Api.G_RET_STS_ERROR;
2747: Okl_Api.set_message(
2748: p_app_name => G_APP_NAME,
2749: p_msg_name => 'OKL_QA_LV_VARINT');
2750: WHEN l_var_rate_reamort_exception THEN
2743: p_token2 => 'CALC_METHOD',
2744: p_token2_value => calc_meth);
2745: WHEN l_loan_rev_var_rate THEN
2746: x_return_status := Okl_Api.G_RET_STS_ERROR;
2747: Okl_Api.set_message(
2748: p_app_name => G_APP_NAME,
2749: p_msg_name => 'OKL_QA_LV_VARINT');
2750: WHEN l_var_rate_reamort_exception THEN
2751: --Bug#3365616
2756: --OPEN l_pmnt_strm_check('LALEVL','LASLH','VARIABLE_INTEREST',p_chr_id);
2757: OPEN l_pmnt_strm_check('LALEVL','LASLH','VARIABLE_INTEREST_SCHEDULE',p_chr_id);
2758: FETCH l_pmnt_strm_check INTO l_pmnt_strm_check_rec;
2759: IF( l_pmnt_strm_check%FOUND) THEN
2760: Okl_Api.set_message(
2761: p_app_name => G_APP_NAME,
2762: p_msg_name => 'OKL_QA_LN_VARINT_REAMORT');
2763: x_return_status := Okl_Api.G_RET_STS_ERROR;
2764: END IF;
2759: IF( l_pmnt_strm_check%FOUND) THEN
2760: Okl_Api.set_message(
2761: p_app_name => G_APP_NAME,
2762: p_msg_name => 'OKL_QA_LN_VARINT_REAMORT');
2763: x_return_status := Okl_Api.G_RET_STS_ERROR;
2764: END IF;
2765: CLOSE l_pmnt_strm_check;
2766: END IF;
2767: END;
2784:
2785: /*
2786: *--Bug#3369032
2787: *If (l_hdr_rec.deal_type = 'LOAN-REVOLVING') Then
2788: * OKL_API.set_message(
2789: * p_app_name => G_APP_NAME,
2790: * p_msg_name => 'OKL_QA_LN_REV_REAMORT');
2791: * x_return_status := OKL_API.G_RET_STS_ERROR;
2792: *End If;
2787: *If (l_hdr_rec.deal_type = 'LOAN-REVOLVING') Then
2788: * OKL_API.set_message(
2789: * p_app_name => G_APP_NAME,
2790: * p_msg_name => 'OKL_QA_LN_REV_REAMORT');
2791: * x_return_status := OKL_API.G_RET_STS_ERROR;
2792: *End If;
2793: */
2794:
2795: ind := 0;
2829: OR l_pmnt_lns_in_hdr_rec_comp.object1_id1
2830: <> l_pmnt_lns_in_hdr_rec.object1_id1
2831: OR l_pmnt_lns_in_hdr_rec_comp.object1_id2
2832: <> l_pmnt_lns_in_hdr_rec.object1_id2 ) THEN
2833: x_return_status := Okl_Api.G_RET_STS_ERROR;
2834: RAISE l_mismatch_exception;
2835: END IF;
2836: END IF;
2837: END IF;
2842: ELSIF(l_global_total_periods <> l_line_total_periods) THEN
2843: RAISE l_mismatch_exception;
2844: END IF;
2845: EXCEPTION WHEN l_mismatch_exception THEN
2846: x_return_status := Okl_Api.G_RET_STS_ERROR;
2847: --message
2848: Okl_Api.set_message(
2849: p_app_name => G_APP_NAME,
2850: p_msg_name => 'OKL_QA_VARINT_SLL_MISMATCH');
2844: END IF;
2845: EXCEPTION WHEN l_mismatch_exception THEN
2846: x_return_status := Okl_Api.G_RET_STS_ERROR;
2847: --message
2848: Okl_Api.set_message(
2849: p_app_name => G_APP_NAME,
2850: p_msg_name => 'OKL_QA_VARINT_SLL_MISMATCH');
2851: END;
2852: END LOOP;
2867: FETCH l_hdrrl_csr INTO l_hdrrl_rec;
2868: If ( l_hdrrl_csr%NOTFOUND ) OR
2869: ( nvl(l_hdrrl_rec.rule_information1, 'N') = 'N' )Then
2870: CLOSE l_hdrrl_csr;
2871: OKL_API.set_message(
2872: p_app_name => G_APP_NAME,
2873: p_msg_name => G_QA_SUCCESS);
2874: return;
2875: End If;
2875: End If;
2876:
2877: If (l_hdrrl_rec.RULE_INFORMATION1 = 'Y') AND
2878: (INSTR(l_hdr_rec.deal_type,'LOAN') < 1) Then
2879: OKL_API.set_message(
2880: p_app_name => G_APP_NAME,
2881: p_msg_name => 'OKL_QA_VAR_RATE_LN');
2882: x_return_status := OKL_API.G_RET_STS_ERROR;
2883: RAISE G_EXCEPTION_HALT_VALIDATION;
2878: (INSTR(l_hdr_rec.deal_type,'LOAN') < 1) Then
2879: OKL_API.set_message(
2880: p_app_name => G_APP_NAME,
2881: p_msg_name => 'OKL_QA_VAR_RATE_LN');
2882: x_return_status := OKL_API.G_RET_STS_ERROR;
2883: RAISE G_EXCEPTION_HALT_VALIDATION;
2884: End If;
2885: CLOSE l_hdrrl_csr;
2886: */
2898: EXIT;
2899: END LOOP;
2900:
2901: IF ( TRUNC(l_hdr_rec.start_date) < TRUNC(index_date) ) THEN
2902: Okl_Api.set_message(
2903: p_app_name => G_APP_NAME,
2904: p_msg_name => 'OKL_QA_INDEXDATE');
2905: x_return_status := Okl_Api.G_RET_STS_ERROR;
2906: END IF;
2901: IF ( TRUNC(l_hdr_rec.start_date) < TRUNC(index_date) ) THEN
2902: Okl_Api.set_message(
2903: p_app_name => G_APP_NAME,
2904: p_msg_name => 'OKL_QA_INDEXDATE');
2905: x_return_status := Okl_Api.G_RET_STS_ERROR;
2906: END IF;
2907:
2908: OPEN l_hdrrl_csr( 'LAIIND', 'LAICLC', p_chr_id );
2909: FETCH l_hdrrl_csr INTO l_hdrrl_rec;
2909: FETCH l_hdrrl_csr INTO l_hdrrl_rec;
2910: IF ( l_hdrrl_csr%NOTFOUND ) OR
2911: ( l_hdrrl_rec.rule_information4 IS NULL ) OR
2912: ( l_hdrrl_rec.rule_information5 IS NULL ) THEN
2913: Okl_Api.set_message(
2914: p_app_name => G_APP_NAME,
2915: p_msg_name => 'OKL_QA_NO_VARCLC');
2916: x_return_status := Okl_Api.G_RET_STS_ERROR;
2917: END IF;
2912: ( l_hdrrl_rec.rule_information5 IS NULL ) THEN
2913: Okl_Api.set_message(
2914: p_app_name => G_APP_NAME,
2915: p_msg_name => 'OKL_QA_NO_VARCLC');
2916: x_return_status := Okl_Api.G_RET_STS_ERROR;
2917: END IF;
2918: CLOSE l_hdrrl_csr;
2919:
2920: calc_meth := l_hdrrl_rec.rule_information5;
2927: > TRUNC(Fnd_Date.canonical_to_date(l_hdrrl_rec.rule_information4)) )
2928: OR
2929: ( TRUNC(l_hdr_rec1.end_date)
2930: < TRUNC(Fnd_Date.canonical_to_date(l_hdrrl_rec.rule_information4)) ) THEN
2931: Okl_Api.set_message(
2932: p_app_name => G_APP_NAME,
2933: p_msg_name => 'OKL_QA_INT_START_DATE_EFF');
2934: x_return_status := Okl_Api.G_RET_STS_ERROR;
2935: END IF;
2930: < TRUNC(Fnd_Date.canonical_to_date(l_hdrrl_rec.rule_information4)) ) THEN
2931: Okl_Api.set_message(
2932: p_app_name => G_APP_NAME,
2933: p_msg_name => 'OKL_QA_INT_START_DATE_EFF');
2934: x_return_status := Okl_Api.G_RET_STS_ERROR;
2935: END IF;
2936:
2937: /*If ( l_hdr_rec.start_date < FND_DATE.canonical_to_date(l_hdrrl_rec.rule_information4) ) Then
2938: OKL_API.set_message(
2934: x_return_status := Okl_Api.G_RET_STS_ERROR;
2935: END IF;
2936:
2937: /*If ( l_hdr_rec.start_date < FND_DATE.canonical_to_date(l_hdrrl_rec.rule_information4) ) Then
2938: OKL_API.set_message(
2939: p_app_name => G_APP_NAME,
2940: p_msg_name => 'OKL_QA_CLCDATE');
2941: x_return_status := OKL_API.G_RET_STS_ERROR;
2942: End If;
2937: /*If ( l_hdr_rec.start_date < FND_DATE.canonical_to_date(l_hdrrl_rec.rule_information4) ) Then
2938: OKL_API.set_message(
2939: p_app_name => G_APP_NAME,
2940: p_msg_name => 'OKL_QA_CLCDATE');
2941: x_return_status := OKL_API.G_RET_STS_ERROR;
2942: End If;
2943: */
2944:
2945: /*
2944:
2945: /*
2946: *If ( var_meth = 'FLOAT' ) AND
2947: * ( calc_meth <> 'FORMULA') Then
2948: * OKL_API.set_message(
2949: * p_app_name => G_APP_NAME,
2950: * p_msg_name => 'OKL_QA_VARFLOAT');
2951: * x_return_status := OKL_API.G_RET_STS_ERROR;
2952: *End If;
2947: * ( calc_meth <> 'FORMULA') Then
2948: * OKL_API.set_message(
2949: * p_app_name => G_APP_NAME,
2950: * p_msg_name => 'OKL_QA_VARFLOAT');
2951: * x_return_status := OKL_API.G_RET_STS_ERROR;
2952: *End If;
2953: */
2954:
2955: /*
2959: OPEN l_hdrrl_csr( 'LAIIND', 'LAFORM', p_chr_id );
2960: FETCH l_hdrrl_csr INTO l_hdrrl_rec;
2961: If ( l_hdrrl_csr%NOTFOUND ) OR
2962: ( l_hdrrl_rec.rule_information1 IS NULL ) Then
2963: OKL_API.set_message(
2964: p_app_name => G_APP_NAME,
2965: p_msg_name => 'OKL_QA_VARNOFORM');
2966: x_return_status := OKL_API.G_RET_STS_ERROR;
2967: RAISE G_EXCEPTION_HALT_VALIDATION;
2962: ( l_hdrrl_rec.rule_information1 IS NULL ) Then
2963: OKL_API.set_message(
2964: p_app_name => G_APP_NAME,
2965: p_msg_name => 'OKL_QA_VARNOFORM');
2966: x_return_status := OKL_API.G_RET_STS_ERROR;
2967: RAISE G_EXCEPTION_HALT_VALIDATION;
2968: End If;
2969: CLOSE l_hdrrl_csr;
2970:
2971: End If;
2972:
2973: */
2974:
2975: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
2976: Okl_Api.set_message(
2977: p_app_name => G_APP_NAME,
2978: p_msg_name => G_QA_SUCCESS);
2979: END IF;
2972:
2973: */
2974:
2975: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
2976: Okl_Api.set_message(
2977: p_app_name => G_APP_NAME,
2978: p_msg_name => G_QA_SUCCESS);
2979: END IF;
2980:
2989: END IF;
2990: -- no processing necessary; validation can continue with next column
2991: WHEN OTHERS THEN
2992: -- store SQL error message on message stack
2993: Okl_Api.SET_MESSAGE(
2994: p_app_name => G_APP_NAME,
2995: p_msg_name => G_UNEXPECTED_ERROR,
2996: p_token1 => G_SQLCODE_TOKEN,
2997: p_token1_value => SQLCODE,
2997: p_token1_value => SQLCODE,
2998: p_token2 => G_SQLERRM_TOKEN,
2999: p_token2_value => SQLERRM);
3000: -- notify caller of an error as UNEXPETED error
3001: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
3002: -- verify that cursor was closed
3003: IF l_hdr_csr%ISOPEN THEN
3004: CLOSE l_hdr_csr;
3005: END IF;
3022: x_return_status OUT NOCOPY VARCHAR2,
3023: p_chr_id IN NUMBER
3024: ) IS
3025:
3026: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3027: l_dummy VARCHAR2(1) := '?';
3028: l_count NUMBER := 0;
3029: l_row_notfound BOOLEAN;
3030: l_token VARCHAR2(2000);
3045:
3046: BEGIN
3047:
3048: -- initialize return status
3049: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
3050:
3051: OPEN l_prefund_csr( p_chr_id );
3052: FETCH l_prefund_csr INTO l_prefund_yn;
3053: IF ( l_prefund_csr%FOUND AND (l_prefund_yn = 'Y')) THEN
3050:
3051: OPEN l_prefund_csr( p_chr_id );
3052: FETCH l_prefund_csr INTO l_prefund_yn;
3053: IF ( l_prefund_csr%FOUND AND (l_prefund_yn = 'Y')) THEN
3054: Okl_Api.set_message(
3055: p_app_name => G_APP_NAME,
3056: p_msg_name => 'OKL_QA_PREFUND_MIN');
3057: x_return_status := Okl_Api.G_RET_STS_ERROR;
3058: END IF;
3053: IF ( l_prefund_csr%FOUND AND (l_prefund_yn = 'Y')) THEN
3054: Okl_Api.set_message(
3055: p_app_name => G_APP_NAME,
3056: p_msg_name => 'OKL_QA_PREFUND_MIN');
3057: x_return_status := Okl_Api.G_RET_STS_ERROR;
3058: END IF;
3059: CLOSE l_prefund_csr;
3060:
3061: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
3057: x_return_status := Okl_Api.G_RET_STS_ERROR;
3058: END IF;
3059: CLOSE l_prefund_csr;
3060:
3061: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
3062: Okl_Api.set_message(
3063: p_app_name => G_APP_NAME,
3064: p_msg_name => G_QA_SUCCESS);
3065: END IF;
3058: END IF;
3059: CLOSE l_prefund_csr;
3060:
3061: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
3062: Okl_Api.set_message(
3063: p_app_name => G_APP_NAME,
3064: p_msg_name => G_QA_SUCCESS);
3065: END IF;
3066:
3073: END IF;
3074: -- no processing necessary; validation can continue with next column
3075: WHEN OTHERS THEN
3076: -- store SQL error message on message stack
3077: Okl_Api.SET_MESSAGE(
3078: p_app_name => G_APP_NAME,
3079: p_msg_name => G_UNEXPECTED_ERROR,
3080: p_token1 => G_SQLCODE_TOKEN,
3081: p_token1_value => SQLCODE,
3081: p_token1_value => SQLCODE,
3082: p_token2 => G_SQLERRM_TOKEN,
3083: p_token2_value => SQLERRM);
3084: -- notify caller of an error as UNEXPETED error
3085: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
3086: -- verify that cursor was closed
3087: IF l_prefund_csr%ISOPEN THEN
3088: CLOSE l_prefund_csr;
3089: END IF;
3331: i NUMBER := 1;
3332: l_found NUMBER := 0; -- Added for bug 5201664
3333: BEGIN
3334:
3335: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
3336:
3337: --Bug 4917691 fmiao start ---------------------------------------
3338:
3339: --1.If evg hdr is defined, all the vendors should have evg pt params defined
3357: END LOOP;
3358:
3359: IF (l_found = 0) THEN
3360:
3361: Okl_Api.set_message(
3362: p_app_name => G_APP_NAME,
3363: p_msg_name => 'OKL_QA_EVG_PT_NO_DTLS');
3364: x_return_status := Okl_Api.G_RET_STS_ERROR;
3365: END IF;
3360:
3361: Okl_Api.set_message(
3362: p_app_name => G_APP_NAME,
3363: p_msg_name => 'OKL_QA_EVG_PT_NO_DTLS');
3364: x_return_status := Okl_Api.G_RET_STS_ERROR;
3365: END IF;
3366: -- end bug 5201664
3367: END IF;
3368:
3398: LOOP
3399: l_payment_amt := pymnt_amt(i);
3400: END LOOP;
3401: IF (l_fixed_amt > l_payment_amt) THEN
3402: Okl_Api.set_message(
3403: p_app_name => G_APP_NAME,
3404: p_msg_name => 'OKL_QA_FIXED_AMT_EXC_PYMNT_AMT',
3405: p_token1 => 'DISB_AMOUNT',
3406: p_token1_value => l_fixed_amt,
3409: p_token3 => 'PYMNT_AMT',
3410: p_token3_value => l_payment_amt,
3411: p_token4 => 'LINE',
3412: p_token4_value => lines_rec.name);
3413: x_return_status := Okl_Api.G_RET_STS_ERROR;
3414: END IF;
3415: END IF;
3416: END IF;
3417: END LOOP;
3436: l_payment_amt := pymnt_amt(i);
3437: END LOOP;
3438:
3439: IF (l_fixed_amt > l_payment_amt) THEN
3440: Okl_Api.set_message(
3441: p_app_name => G_APP_NAME,
3442: p_msg_name => 'OKL_QA_FIXED_AMT_EXC_PYMNT_AMT',
3443: p_token1 => 'DISB_AMOUNT',
3444: p_token1_value => l_fixed_amt,
3447: p_token3 => 'PYMNT_AMT',
3448: p_token3_value => l_payment_amt,
3449: p_token4 => 'LINE',
3450: p_token4_value => lines_rec.name);
3451: x_return_status := Okl_Api.G_RET_STS_ERROR;
3452: END IF;
3453: END IF ;
3454:
3455: IF (payout_basis_rec.passthru_term = 'BASE' AND
3461: l_payment_amt := NULL;
3462: END IF;
3463:
3464: IF (l_fixed_amt > l_payment_amt) THEN
3465: Okl_Api.set_message(
3466: p_app_name => G_APP_NAME,
3467: p_msg_name => 'OKL_QA_FIXED_AMT_EXC_PYMNT_AMT',
3468: p_token1 => 'DISB_AMOUNT',
3469: p_token1_value => l_fixed_amt,
3472: p_token3 => 'PYMNT_AMT',
3473: p_token3_value => l_payment_amt,
3474: p_token4 => 'LINE',
3475: p_token4_value => lines_rec.name);
3476: x_return_status := Okl_Api.G_RET_STS_ERROR;
3477: END IF;
3478: END IF;
3479:
3480: END IF;
3489:
3490: IF (l_disb_basis IS NOT NULL AND
3491: l_disb_basis <> disb_basis_rec.disbursement_basis) THEN
3492:
3493: Okl_Api.set_message(
3494: p_app_name => G_APP_NAME,
3495: p_msg_name => 'OKL_QA_INVALID_VEND_DISB_BASIS',
3496: p_token1 => 'BASIS',
3497: p_token1_value => disb_basis_rec.disbursement_basis,
3498: p_token2 => 'VENDOR',
3499: p_token2_value => disb_basis_rec.vendor_name,
3500: p_token3 => 'LINE',
3501: p_token3_value => lines_rec.name);
3502: x_return_status := Okl_Api.G_RET_STS_ERROR;
3503: END IF;
3504: l_disb_basis := disb_basis_rec.disbursement_basis;
3505:
3506: END LOOP;
3515: CLOSE pth_amount_csr;
3516:
3517: IF (l_proc_fee_amt IS NOT NULL AND l_pth_amt IS NOT NULL AND
3518: l_proc_fee_amt > l_pth_amt) THEN
3519: Okl_Api.set_message(
3520: p_app_name => G_APP_NAME,
3521: p_msg_name => 'OKL_QA_PROC_FEE_GT_LINE_AMT',
3522: p_token1 => 'PROC_AMT',
3523: p_token1_value => l_proc_fee_amt,
3524: p_token2 => 'PTH_AMT',
3525: p_token2_value => l_pth_amt,
3526: p_token3 => 'LINE',
3527: p_token3_value => lines_rec.name);
3528: x_return_status := Okl_Api.G_RET_STS_ERROR;
3529: END IF;
3530: END LOOP;
3531:
3532: --Bug 4917691 fmiao end
3553: -- Bug# 4350255: start
3554: -- Passthru Stream Type is mandatory for Base term
3555: IF (pth_rec.passthru_term = 'BASE') THEN
3556: IF (pth_rec.passthru_stream_type_id IS NULL) THEN
3557: Okl_Api.set_message(
3558: G_APP_NAME,
3559: 'OKL_QA_PASTH_STRM',
3560: 'LINE_TYPE',
3561: pth_rec.line_style,
3561: pth_rec.line_style,
3562: 'STRM_TYPE',
3563: pth_rec.name
3564: );
3565: x_return_status := Okl_Api.G_RET_STS_ERROR;
3566: END IF;
3567:
3568: IF (pth_rec.passthru_start_date
3569: NOT BETWEEN pth_rec.start_date AND pth_rec.end_date) THEN
3566: END IF;
3567:
3568: IF (pth_rec.passthru_start_date
3569: NOT BETWEEN pth_rec.start_date AND pth_rec.end_date) THEN
3570: Okl_Api.set_message(p_app_name => G_APP_NAME,
3571: p_msg_name => 'OKL_QA_PTH_STRT_DATE',
3572: p_token1 => 'LINE',
3573: p_token1_value => pth_rec.line_style||'/'||pth_rec.name);
3574: x_return_status := Okl_Api.G_RET_STS_ERROR;
3570: Okl_Api.set_message(p_app_name => G_APP_NAME,
3571: p_msg_name => 'OKL_QA_PTH_STRT_DATE',
3572: p_token1 => 'LINE',
3573: p_token1_value => pth_rec.line_style||'/'||pth_rec.name);
3574: x_return_status := Okl_Api.G_RET_STS_ERROR;
3575: END IF;
3576: END IF;
3577:
3578: -- Passthru Stream Type should be valid for the contract's
3588: OPEN strm_name_csr ( TO_NUMBER(pth_rec.passthru_stream_type_id) );
3589: FETCH strm_name_csr INTO l_strm_name_rec;
3590: IF strm_name_csr%NOTFOUND THEN
3591: CLOSE strm_name_csr;
3592: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3593: END IF;
3594: CLOSE strm_name_csr;
3595:
3596: Okl_Api.set_message(
3592: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3593: END IF;
3594: CLOSE strm_name_csr;
3595:
3596: Okl_Api.set_message(
3597: p_app_name => G_APP_NAME,
3598: p_msg_name => 'LLA_QA_PTH_STRM_TMPL',
3599: p_token1 => 'STRM_NAME',
3600: p_token1_value => l_strm_name_rec.name,
3600: p_token1_value => l_strm_name_rec.name,
3601: p_token2 => 'LINE_TYPE',
3602: p_token2_value => pth_rec.line_style||'/'||pth_rec.name
3603: );
3604: x_return_status := Okl_Api.G_RET_STS_ERROR;
3605: END IF;
3606: END IF;
3607:
3608: l_pct_sum := 0;
3623: OPEN vendor_csr(p_vendor_id => pth_dtl_rec.vendor_id);
3624: FETCH vendor_csr INTO l_vendor_name;
3625: CLOSE vendor_csr;
3626:
3627: Okl_Api.set_message(p_app_name => G_APP_NAME,
3628: p_msg_name => 'OKL_QA_PYMT_STRT_DATE',
3629: p_token1 => 'LINE',
3630: p_token1_value => pth_rec.line_style||'/'||pth_rec.name,
3631: p_token2 => 'VENDOR',
3629: p_token1 => 'LINE',
3630: p_token1_value => pth_rec.line_style||'/'||pth_rec.name,
3631: p_token2 => 'VENDOR',
3632: p_token2_value => l_vendor_name);
3633: x_return_status := Okl_Api.G_RET_STS_ERROR;
3634: END IF;
3635: END IF;
3636:
3637: END LOOP;
3638:
3639: IF (l_pth_dtl_present_yn = 'N') THEN
3640:
3641: IF (pth_rec.passthru_term = 'BASE') THEN
3642: Okl_Api.set_message(
3643: p_app_name => G_APP_NAME,
3644: p_msg_name => 'OKL_QA_PTH_BASE_NO_DTL',
3645: p_token1 => 'LINE',
3646: p_token1_value => pth_rec.line_style||'/'||pth_rec.name
3644: p_msg_name => 'OKL_QA_PTH_BASE_NO_DTL',
3645: p_token1 => 'LINE',
3646: p_token1_value => pth_rec.line_style||'/'||pth_rec.name
3647: );
3648: x_return_status := Okl_Api.G_RET_STS_ERROR;
3649:
3650: ELSIF (pth_rec.passthru_term = 'EVERGREEN') THEN
3651: Okl_Api.set_message(
3652: p_app_name => G_APP_NAME,
3647: );
3648: x_return_status := Okl_Api.G_RET_STS_ERROR;
3649:
3650: ELSIF (pth_rec.passthru_term = 'EVERGREEN') THEN
3651: Okl_Api.set_message(
3652: p_app_name => G_APP_NAME,
3653: p_msg_name => 'OKL_QA_PTH_EVGN_NO_DTL',
3654: p_token1 => 'LINE',
3655: p_token1_value => pth_rec.line_style||'/'||pth_rec.name
3653: p_msg_name => 'OKL_QA_PTH_EVGN_NO_DTL',
3654: p_token1 => 'LINE',
3655: p_token1_value => pth_rec.line_style||'/'||pth_rec.name
3656: );
3657: x_return_status := Okl_Api.G_RET_STS_ERROR;
3658: END IF;
3659:
3660: END IF;
3661:
3661:
3662: IF (l_pct_sum > 100) THEN
3663:
3664: IF (pth_rec.passthru_term = 'BASE') THEN
3665: Okl_Api.set_message(
3666: p_app_name => G_APP_NAME,
3667: p_msg_name => 'OKL_QA_BASE_PERCENT_SUM',
3668: p_token1 => 'LINE',
3669: p_token1_value => pth_rec.line_style||'/'||pth_rec.name
3667: p_msg_name => 'OKL_QA_BASE_PERCENT_SUM',
3668: p_token1 => 'LINE',
3669: p_token1_value => pth_rec.line_style||'/'||pth_rec.name
3670: );
3671: x_return_status := Okl_Api.G_RET_STS_ERROR;
3672:
3673: ELSIF (pth_rec.passthru_term = 'EVERGREEN') THEN
3674: Okl_Api.set_message(
3675: p_app_name => G_APP_NAME,
3670: );
3671: x_return_status := Okl_Api.G_RET_STS_ERROR;
3672:
3673: ELSIF (pth_rec.passthru_term = 'EVERGREEN') THEN
3674: Okl_Api.set_message(
3675: p_app_name => G_APP_NAME,
3676: p_msg_name => 'OKL_QA_EVGN_PERCENT_SUM',
3677: p_token1 => 'LINE',
3678: p_token1_value => pth_rec.line_style||'/'||pth_rec.name
3676: p_msg_name => 'OKL_QA_EVGN_PERCENT_SUM',
3677: p_token1 => 'LINE',
3678: p_token1_value => pth_rec.line_style||'/'||pth_rec.name
3679: );
3680: x_return_status := Okl_Api.G_RET_STS_ERROR;
3681: END IF;
3682:
3683: END IF;
3684: -- Bug# 4350255: end
3689: EXCEPTION
3690:
3691: WHEN OTHERS THEN
3692: -- store SQL error message on message stack
3693: Okl_Api.SET_MESSAGE(
3694: p_app_name => G_APP_NAME,
3695: p_msg_name => G_UNEXPECTED_ERROR,
3696: p_token1 => G_SQLCODE_TOKEN,
3697: p_token1_value => SQLCODE,
3698: p_token2 => G_SQLERRM_TOKEN,
3699: p_token2_value => SQLERRM);
3700: -- notify caller of an error as UNEXPETED error
3701:
3702: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
3703:
3704: END check_fee_service_ast_pth;
3705:
3706:
3717: x_return_status OUT NOCOPY VARCHAR2,
3718: p_chr_id IN NUMBER
3719: ) IS
3720:
3721: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3722: l_dummy VARCHAR2(1) := '?';
3723: l_count NUMBER := 0;
3724: l_row_notfound BOOLEAN;
3725: l_token VARCHAR2(2000);
3752:
3753: BEGIN
3754:
3755: -- initialize return status
3756: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
3757:
3758: FOR l_hdrrl_rec IN l_hdrrl_csr ( 'LALEVL', 'LASLH', p_chr_id )
3759: LOOP
3760:
3761: OPEN strm_name_csr ( l_hdrrl_rec.object1_id1 );
3762: FETCH strm_name_csr INTO l_strm_name_rec;
3763: IF strm_name_csr%NOTFOUND THEN
3764: CLOSE strm_name_csr;
3765: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3766: END IF;
3767: CLOSE strm_name_csr;
3768:
3769: --Bug#3931587
3769: --Bug#3931587
3770: --If ( l_strm_name_rec.name = 'ADVANCED RENTALS' ) Then
3771: IF ( l_strm_name_rec.stream_type_purpose = 'ADVANCE_RENT' ) THEN
3772:
3773: Okl_Api.set_message(
3774: p_app_name => G_APP_NAME,
3775: p_msg_name => 'OKL_QA_NOSUP_ADVRENTS',
3776: p_token1 => 'line',
3777: p_token1_value => l_lne.name);
3774: p_app_name => G_APP_NAME,
3775: p_msg_name => 'OKL_QA_NOSUP_ADVRENTS',
3776: p_token1 => 'line',
3777: p_token1_value => l_lne.name);
3778: x_return_status := Okl_Api.G_RET_STS_ERROR;
3779: RETURN;
3780:
3781: END IF;
3782:
3781: END IF;
3782:
3783: END LOOP;
3784:
3785: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
3786: Okl_Api.set_message(
3787: p_app_name => G_APP_NAME,
3788: p_msg_name => G_QA_SUCCESS);
3789: END IF;
3782:
3783: END LOOP;
3784:
3785: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
3786: Okl_Api.set_message(
3787: p_app_name => G_APP_NAME,
3788: p_msg_name => G_QA_SUCCESS);
3789: END IF;
3790:
3797: CLOSE l_rl_csr1;
3798: END IF;
3799: WHEN OTHERS THEN
3800: -- store SQL error message on message stack
3801: Okl_Api.SET_MESSAGE(
3802: p_app_name => G_APP_NAME,
3803: p_msg_name => G_UNEXPECTED_ERROR,
3804: p_token1 => G_SQLCODE_TOKEN,
3805: p_token1_value => SQLCODE,
3805: p_token1_value => SQLCODE,
3806: p_token2 => G_SQLERRM_TOKEN,
3807: p_token2_value => SQLERRM);
3808: -- notify caller of an error as UNEXPETED error
3809: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
3810: -- verify that cursor was closed
3811: IF l_lne_csr%ISOPEN THEN
3812: CLOSE l_lne_csr;
3813: END IF;
3903: l_billtx_method FND_LOOKUPS.MEANING%TYPE;
3904:
3905: BEGIN
3906:
3907: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
3908:
3909: OPEN fnd_csr('OKL_STREAM_TYPE_PURPOSE','ESTIMATED_PROPERTY_TAX');
3910: FETCH fnd_csr INTO l_fnd_rec;
3911: CLOSE fnd_csr;
3917: FETCH est_head_csr INTO l_est_head;
3918: CLOSE est_head_csr;
3919:
3920: IF (l_est_head = 'Y') THEN
3921: Okl_Api.set_message(
3922: p_app_name => G_APP_NAME,
3923: p_msg_name => 'OKL_QA_EST_HEAD',
3924: p_token1 => 'PURPOSE_DESC',
3925: p_token1_value => l_fnd_meaning);
3922: p_app_name => G_APP_NAME,
3923: p_msg_name => 'OKL_QA_EST_HEAD',
3924: p_token1 => 'PURPOSE_DESC',
3925: p_token1_value => l_fnd_meaning);
3926: x_return_status := Okl_Api.G_RET_STS_ERROR;
3927: END IF;
3928: -- Fix Bug 4088346
3929:
3930: FOR l_lne_rec IN l_lne_csr('FREE_FORM1', p_chr_id)
3941: OR l_assetrl_rec.RULE_INFORMATION3 = 'ESTIMATED_AND_ACTUAL') ) THEN
3942: OPEN l_strm_asset_csr('LALEVL','LASLH','ESTIMATED_PROPERTY_TAX',p_chr_id, l_lne_rec.id);
3943: FETCH l_strm_asset_csr INTO l_strm_asset_rec;
3944: IF (l_strm_asset_csr%NOTFOUND) THEN
3945: Okl_Api.set_message(
3946: p_app_name => G_APP_NAME,
3947: p_msg_name => 'OKL_QA_EST_PROPTAX1',
3948: p_token1 => 'ASSET_NUM',
3949: p_token1_value => l_lne_rec.name,
3948: p_token1 => 'ASSET_NUM',
3949: p_token1_value => l_lne_rec.name,
3950: p_token2 => 'PURPOSE_DESC',
3951: p_token2_value => l_fnd_meaning);
3952: x_return_status := Okl_Api.G_RET_STS_ERROR;
3953: END IF;
3954: CLOSE l_strm_asset_csr;
3955: ELSIF (l_rule_not_found OR l_assetrl_rec.RULE_INFORMATION1 = 'N') THEN
3956: OPEN l_strm_asset_csr('LALEVL','LASLH','ESTIMATED_PROPERTY_TAX',p_chr_id, l_lne_rec.id);
3955: ELSIF (l_rule_not_found OR l_assetrl_rec.RULE_INFORMATION1 = 'N') THEN
3956: OPEN l_strm_asset_csr('LALEVL','LASLH','ESTIMATED_PROPERTY_TAX',p_chr_id, l_lne_rec.id);
3957: FETCH l_strm_asset_csr INTO l_strm_asset_rec;
3958: IF (l_strm_asset_csr%FOUND) THEN
3959: Okl_Api.set_message(
3960: p_app_name => G_APP_NAME,
3961: p_msg_name => 'OKL_QA_EST_PROPTAX2',
3962: p_token1 => 'ASSET_NUM',
3963: p_token1_value => l_lne_rec.name,
3962: p_token1 => 'ASSET_NUM',
3963: p_token1_value => l_lne_rec.name,
3964: p_token2 => 'PURPOSE_DESC',
3965: p_token2_value => l_fnd_meaning);
3966: x_return_status := Okl_Api.G_RET_STS_ERROR;
3967: END IF;
3968: CLOSE l_strm_asset_csr;
3969: ELSIF ( l_assetrl_rec.RULE_INFORMATION1 = 'Y'
3970: AND (l_assetrl_rec.RULE_INFORMATION3 IS NULL OR
3980: l_billtx_method := l_fnd_rec.meaning;
3981: ELSE
3982: l_billtx_method := ' ';
3983: END IF;
3984: Okl_Api.set_message(
3985: p_app_name => G_APP_NAME,
3986: p_msg_name => 'OKL_QA_EST_PROPTAX3',
3987: p_token1 => 'ASSET_NUM',
3988: p_token1_value => l_lne_rec.name,
3989: p_token2 => 'PURPOSE_DESC',
3990: p_token2_value => l_fnd_meaning,
3991: p_token3 => 'BILL_TAX',
3992: p_token3_value => l_billtx_method);
3993: x_return_status := Okl_Api.G_RET_STS_ERROR;
3994: END IF;
3995: CLOSE l_strm_asset_csr;
3996: END IF;
3997:
4000: EXCEPTION
4001:
4002: WHEN OTHERS THEN
4003: -- store SQL error message on message stack
4004: Okl_Api.SET_MESSAGE(
4005: p_app_name => G_APP_NAME,
4006: p_msg_name => G_UNEXPECTED_ERROR,
4007: p_token1 => G_SQLCODE_TOKEN,
4008: p_token1_value => SQLCODE,
4009: p_token2 => G_SQLERRM_TOKEN,
4010: p_token2_value => SQLERRM);
4011: -- notify caller of an error as UNEXPETED error
4012:
4013: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
4014:
4015: -- verify that cursor was closed
4016: IF l_lne_csr%ISOPEN THEN
4017: CLOSE l_lne_csr;
4100: l_strm_type okl_strm_type_v.name%TYPE;
4101:
4102: BEGIN
4103:
4104: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
4105: FOR hdr_stub_rec IN hdr_stub_csr (p_chr_id)
4106: LOOP
4107: IF (hdr_stub_rec.only_stub = 'Y') THEN
4108:
4115: --IF (l_strm_type <> 'UNSCHEDULED_PRINCIPAL_PAYMENT') Then
4116: -- Bug 4887014
4117: IF (l_strm_type NOT IN ( 'UNSCHEDULED_PRINCIPAL_PAYMENT',
4118: 'UNSCHEDULED_LOAN_PAYMENT' ) ) THEN
4119: Okl_Api.set_message(
4120: p_app_name => G_APP_NAME,
4121: p_msg_name => 'OKL_QA_HDR_STUB_ONLY',
4122: p_token1 => 'STREAM_TYPE',
4123: p_token1_value => l_strm_type);
4120: p_app_name => G_APP_NAME,
4121: p_msg_name => 'OKL_QA_HDR_STUB_ONLY',
4122: p_token1 => 'STREAM_TYPE',
4123: p_token1_value => l_strm_type);
4124: x_return_status := Okl_Api.G_RET_STS_ERROR;
4125: END IF;
4126: END IF;
4127:
4128: END LOOP;
4140: --IF (l_strm_type <> 'UNSCHEDULED_PRINCIPAL_PAYMENT') Then
4141: -- Bug 4887014
4142: IF (l_strm_type NOT IN ( 'UNSCHEDULED_PRINCIPAL_PAYMENT',
4143: 'UNSCHEDULED_LOAN_PAYMENT' ) ) THEN
4144: Okl_Api.set_message(
4145: p_app_name => G_APP_NAME,
4146: p_msg_name => 'OKL_QA_LINE_STUB_ONLY',
4147: p_token1 => 'LINE_TYPE',
4148: p_token1_value => line_stub_rec.name,
4147: p_token1 => 'LINE_TYPE',
4148: p_token1_value => line_stub_rec.name,
4149: p_token2 => 'STREAM_TYPE',
4150: p_token2_value => l_strm_type);
4151: x_return_status := Okl_Api.G_RET_STS_ERROR;
4152: END IF;
4153:
4154: END IF;
4155:
4158: EXCEPTION
4159:
4160: WHEN OTHERS THEN
4161: -- store SQL error message on message stack
4162: Okl_Api.SET_MESSAGE(
4163: p_app_name => G_APP_NAME,
4164: p_msg_name => G_UNEXPECTED_ERROR,
4165: p_token1 => G_SQLCODE_TOKEN,
4166: p_token1_value => SQLCODE,
4167: p_token2 => G_SQLERRM_TOKEN,
4168: p_token2_value => SQLERRM);
4169: -- notify caller of an error as UNEXPETED error
4170:
4171: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
4172:
4173: END check_stub_payment;
4174:
4175: -- Start of comments
4230: AND f2.id = ib.cle_id
4231: AND ib.id = inst.kle_id;
4232:
4233: BEGIN
4234: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
4235:
4236: FOR serial_rec IN serial_csr (p_chr_id)
4237: LOOP
4238: IF (serial_rec.serial_number_control_code <> 1) THEN -- serialized item
4238: IF (serial_rec.serial_number_control_code <> 1) THEN -- serialized item
4239: FOR ib_rec IN ib_csr (serial_rec.top_id)
4240: LOOP
4241: IF (ib_rec.no_srl <> serial_rec.number_of_items) THEN
4242: Okl_Api.set_message(
4243: G_APP_NAME,
4244: 'OKL_QA_SRL_ITEM_ERROR',
4245: 'ASSET_NUM',
4246: serial_rec.name,
4248: serial_rec.description,
4249: 'NO_ITEM',
4250: serial_rec.number_of_items
4251: );
4252: x_return_status := Okl_Api.G_RET_STS_ERROR;
4253: END IF;
4254: END LOOP;
4255: END IF;
4256: END LOOP;
4257:
4258: EXCEPTION
4259: WHEN OTHERS THEN
4260: -- store SQL error message on message stack
4261: Okl_Api.SET_MESSAGE(
4262: p_app_name => G_APP_NAME,
4263: p_msg_name => G_UNEXPECTED_ERROR,
4264: p_token1 => G_SQLCODE_TOKEN,
4265: p_token1_value => SQLCODE,
4266: p_token2 => G_SQLERRM_TOKEN,
4267: p_token2_value => SQLERRM);
4268: -- notify caller of an error as UNEXPETED error
4269:
4270: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
4271:
4272: END check_serial_asset;
4273:
4274:
4422:
4423:
4424: BEGIN
4425:
4426: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
4427:
4428: l_contract_start_date:= NULL;
4429: l_inv_organization_id := NULL;
4430:
4503: OPEN location_for_party_csr (l_install_location_id);
4504: FETCH location_for_party_csr INTO l_ib_location_name;
4505: CLOSE location_for_party_csr;
4506:
4507: Okl_Api.set_message(
4508: p_app_name => G_APP_NAME,
4509: p_msg_name => 'OKL_QA_IB_LOCATION_ERROR',
4510: p_token1 => 'ASSET_NUM',
4511: p_token1_value => l_asset_num,
4515: p_token3_value => l_okl_location_name,
4516: p_token4 => 'IB_INSTALL_SITE',
4517: p_token4_value => l_ib_location_name
4518: );
4519: x_return_status := Okl_Api.G_RET_STS_ERROR;
4520: END IF;
4521:
4522: ELSIF l_install_location_type_code = 'HZ_LOCATIONS' THEN
4523: l_party_site_id := NULL;
4545: OPEN location_name_csr (l_install_location_id);
4546: FETCH location_name_csr INTO l_ib_location_name;
4547: CLOSE location_name_csr;
4548:
4549: Okl_Api.set_message(
4550: p_app_name => G_APP_NAME,
4551: p_msg_name => 'OKL_QA_IB_LOCATION_ERROR',
4552: p_token1 => 'ASSET_NUM',
4553: p_token1_value => l_asset_num,
4557: p_token3_value => l_okl_location_name,
4558: p_token4 => 'IB_INSTALL_SITE',
4559: p_token4_value => l_ib_location_name
4560: );
4561: x_return_status := Okl_Api.G_RET_STS_ERROR;
4562: END IF;
4563: END IF;
4564: END IF;
4565:
4621: CLOSE header_details_csr;
4622: END IF;
4623:
4624: -- store SQL error message on message stack
4625: Okl_Api.SET_MESSAGE(
4626: p_app_name => G_APP_NAME,
4627: p_msg_name => G_UNEXPECTED_ERROR,
4628: p_token1 => G_SQLCODE_TOKEN,
4629: p_token1_value => SQLCODE,
4630: p_token2 => G_SQLERRM_TOKEN,
4631: p_token2_value => SQLERRM);
4632: -- notify caller of an error as UNEXPETED error
4633:
4634: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
4635:
4636: END check_ib_location;
4637: -- end
4638:
4671: l_loan_yn VARCHAR2(1) := 'N';
4672: l_vendor_present VARCHAR2(1) := 'N';
4673:
4674: BEGIN
4675: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
4676:
4677: l_type := 'X';
4678: l_source := 'X';
4679: OPEN con_type_csr (p_chr_id);
4690: FETCH check_vendor_csr INTO l_vendor_present;
4691: CLOSE check_vendor_csr;
4692:
4693: IF (l_vendor_present = 'N') THEN
4694: Okl_Api.set_message(
4695: p_app_name => G_APP_NAME,
4696: p_msg_name => 'OKL_QA_LESSEE_VENDOR'
4697: );
4698: x_return_status := Okl_Api.G_RET_STS_ERROR;
4694: Okl_Api.set_message(
4695: p_app_name => G_APP_NAME,
4696: p_msg_name => 'OKL_QA_LESSEE_VENDOR'
4697: );
4698: x_return_status := Okl_Api.G_RET_STS_ERROR;
4699: END IF;
4700:
4701: IF (NVL(Okl_Funding_Pvt.get_total_funded(p_chr_id), 0) <> 0) THEN
4702: Okl_Api.set_message(
4698: x_return_status := Okl_Api.G_RET_STS_ERROR;
4699: END IF;
4700:
4701: IF (NVL(Okl_Funding_Pvt.get_total_funded(p_chr_id), 0) <> 0) THEN
4702: Okl_Api.set_message(
4703: p_app_name => G_APP_NAME,
4704: p_msg_name => 'OKL_LA_OVERFUND_CHK_4RL'
4705: );
4706: x_return_status := Okl_Api.G_RET_STS_ERROR;
4702: Okl_Api.set_message(
4703: p_app_name => G_APP_NAME,
4704: p_msg_name => 'OKL_LA_OVERFUND_CHK_4RL'
4705: );
4706: x_return_status := Okl_Api.G_RET_STS_ERROR;
4707: END IF;
4708:
4709: END IF; -- loan_yn
4710:
4711: EXCEPTION
4712:
4713: WHEN OTHERS THEN
4714: -- store SQL error message on message stack
4715: Okl_Api.SET_MESSAGE(
4716: p_app_name => G_APP_NAME,
4717: p_msg_name => G_UNEXPECTED_ERROR,
4718: p_token1 => G_SQLCODE_TOKEN,
4719: p_token1_value => SQLCODE,
4720: p_token2 => G_SQLERRM_TOKEN,
4721: p_token2_value => SQLERRM);
4722: -- notify caller of an error as UNEXPETED error
4723:
4724: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
4725:
4726: END check_lessee_as_vendor;
4727: -- Start of comments
4728: --
4901:
4902:
4903: BEGIN
4904:
4905: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
4906:
4907: --l_strm_profile := 'NONE';
4908: Okl_Streams_Util.get_pricing_engine(p_khr_id => p_chr_id,
4909: x_pricing_engine => l_strm_profile,
4907: --l_strm_profile := 'NONE';
4908: Okl_Streams_Util.get_pricing_engine(p_khr_id => p_chr_id,
4909: x_pricing_engine => l_strm_profile,
4910: x_return_status => lx_return_status);
4911: IF (lx_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4912: x_return_status := lx_return_status;
4913: END IF;
4914:
4915: /*
4951: l_strm_sll_periods := TO_NUMBER(l_strm_sll.periods);
4952:
4953: IF(l_strm_sll_start_date IS NULL) THEN
4954:
4955: Okl_Api.set_message(
4956: G_APP_NAME,
4957: 'OKL_NO_SLL_SDATE'
4958: );
4959: x_return_status := Okl_Api.G_RET_STS_ERROR;
4955: Okl_Api.set_message(
4956: G_APP_NAME,
4957: 'OKL_NO_SLL_SDATE'
4958: );
4959: x_return_status := Okl_Api.G_RET_STS_ERROR;
4960:
4961: ELSE
4962: -- START: cklee/mvasudev,06-02-2005,Bug#4392051/okl. 4437938
4963: --IF (TRUNC(ADD_MONTHS(l_strm_sll_start_date, l_strm_sll_periods*l_strm_sll.mpp) - 1))
4964: 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
4965: --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)))
4966: -- END: cklee/mvasudev,06-02-2005,Bug#4392051/okl. 4437938
4967: > (TRUNC(l_end_date)) THEN
4968: Okl_Api.set_message(
4969: G_APP_NAME,
4970: 'OKL_QA_INVALID_STRM_END_DATE',
4971: 'STRM_TYPE',
4972: l_strm_sll.stream_type,
4972: l_strm_sll.stream_type,
4973: 'LINE_TYPE',
4974: l_fin_fee.line_type
4975: );
4976: x_return_status := Okl_Api.G_RET_STS_ERROR;
4977: exit;
4978: --raise payment_end_date_invalid; --5189866
4979:
4980: END IF;
4980: END IF;
4981: /* already there, check_pmnt_start_dt()
4982:
4983: IF (l_strm_sll_start_date < l_start_date) THEN
4984: OKL_API.set_message(
4985: G_APP_NAME,
4986: 'OKL_QA_INVALID_STRM_START_DATE',
4987: 'STRM_TYPE',
4988: l_strm_sll.stream_type,
4988: l_strm_sll.stream_type,
4989: 'LINE_TYPE',
4990: l_fin_fee.line_type
4991: );
4992: x_return_status := OKL_API.G_RET_STS_ERROR;
4993: END IF;
4994:
4995: */
4996: END IF;
5064: -- 5189866
5065: l_pmnt_end_date := l_pmnt_end_date - 1;
5066: IF ( TRUNC(l_pmnt_end_date) > TRUNC(l_end_date)) THEN
5067:
5068: Okl_Api.set_message(
5069: G_APP_NAME,
5070: 'OKL_QA_INVALID_STRM_END_DATE',
5071: 'STRM_TYPE',
5072: l_strm_slh_ext.stream_type,
5072: l_strm_slh_ext.stream_type,
5073: 'LINE_TYPE',
5074: l_fin_fee.line_type
5075: );
5076: x_return_status := Okl_Api.G_RET_STS_ERROR;
5077: --raise payment_end_date_invalid;
5078: exit;
5079: END IF;
5080:
5092:
5093: --5189866
5094: /*IF ( TRUNC(l_pmnt_end_date) > TRUNC(l_end_date)) THEN
5095:
5096: Okl_Api.set_message(
5097: G_APP_NAME,
5098: 'OKL_QA_INVALID_STRM_END_DATE',
5099: 'STRM_TYPE',
5100: l_strm_slh_ext.stream_type,
5100: l_strm_slh_ext.stream_type,
5101: 'LINE_TYPE',
5102: l_fin_fee.line_type
5103: );
5104: x_return_status := Okl_Api.G_RET_STS_ERROR;
5105: END IF;*/
5106:
5107: END LOOP;
5108:
5114: WHEN payment_end_date_invalid THEN -- 5189866
5115: NULL;
5116: WHEN OTHERS THEN
5117: -- store SQL error message on message stack
5118: Okl_Api.SET_MESSAGE(
5119: p_app_name => G_APP_NAME,
5120: p_msg_name => G_UNEXPECTED_ERROR,
5121: p_token1 => G_SQLCODE_TOKEN,
5122: p_token1_value => SQLCODE,
5123: p_token2 => G_SQLERRM_TOKEN,
5124: p_token2_value => SQLERRM);
5125: -- notify caller of an error as UNEXPETED error
5126:
5127: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
5128:
5129: -- verify that cursor was closed
5130: /*
5131: *IF strm_profile_csr%ISOPEN THEN
5154: x_return_status OUT NOCOPY VARCHAR2,
5155: p_chr_id IN NUMBER
5156: ) IS
5157:
5158: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5159: l_dummy VARCHAR2(1) := '?';
5160: l_count NUMBER := 0;
5161: l_row_notfound BOOLEAN;
5162: l_token VARCHAR2(2000);
5192:
5193: BEGIN
5194:
5195: -- initialize return status
5196: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5197:
5198: FOR l_lne IN l_lne_csr('FEE', p_chr_id)
5199: LOOP
5200:
5221: END LOOP;
5222:
5223: If ( n > 1 ) Then
5224:
5225: OKL_API.set_message(
5226: p_app_name => G_APP_NAME,
5227: p_msg_name => 'OKL_QA_ONLY_1PAY',
5228: p_token1 => 'line',
5229: p_token1_value => l_fee_strm_type_rec.strm_name);
5226: p_app_name => G_APP_NAME,
5227: p_msg_name => 'OKL_QA_ONLY_1PAY',
5228: p_token1 => 'line',
5229: p_token1_value => l_fee_strm_type_rec.strm_name);
5230: x_return_status := OKL_API.G_RET_STS_ERROR;
5231: RAISE G_EXCEPTION_HALT_VALIDATION;
5232:
5233: End If;
5234:
5244: OPEN strm_name_csr ( l_rl_rec1.object1_id1 );
5245: FETCH strm_name_csr into l_strm_name_rec;
5246: IF strm_name_csr%NOTFOUND THEN
5247: CLOSE strm_name_csr;
5248: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5249: END IF;
5250: CLOSE strm_name_csr;
5251:
5252: If ( l_strm_name_rec.name <> l_fee_strm_type_rec.strm_name ) Then
5250: CLOSE strm_name_csr;
5251:
5252: If ( l_strm_name_rec.name <> l_fee_strm_type_rec.strm_name ) Then
5253:
5254: OKL_API.set_message(
5255: p_app_name => G_APP_NAME,
5256: p_msg_name => 'OKL_QA_STRM_DONT_MATCH',
5257: p_token1 => 'line',
5258: p_token1_value => l_fee_strm_type_rec.strm_name);
5255: p_app_name => G_APP_NAME,
5256: p_msg_name => 'OKL_QA_STRM_DONT_MATCH',
5257: p_token1 => 'line',
5258: p_token1_value => l_fee_strm_type_rec.strm_name);
5259: x_return_status := OKL_API.G_RET_STS_ERROR;
5260: RAISE G_EXCEPTION_HALT_VALIDATION;
5261:
5262: End If;
5263:
5265:
5266: If ( ( l_fee_strm_type_rec.capitalize_yn = 'Y' ) AND
5267: ( l_outflow_defined_yn = 'Y' OR l_inflow_defined_yn = 'Y' ) ) Then
5268:
5269: OKL_API.set_message(
5270: p_app_name => G_APP_NAME,
5271: p_msg_name => 'OKL_QA_NO_FLOWS_CAPFEE',
5272: p_token1 => 'line',
5273: p_token1_value => l_fee_strm_type_rec.strm_name);
5270: p_app_name => G_APP_NAME,
5271: p_msg_name => 'OKL_QA_NO_FLOWS_CAPFEE',
5272: p_token1 => 'line',
5273: p_token1_value => l_fee_strm_type_rec.strm_name);
5274: x_return_status := OKL_API.G_RET_STS_ERROR;
5275: RAISE G_EXCEPTION_HALT_VALIDATION;
5276:
5277: End If;
5278:
5277: End If;
5278:
5279: If ( l_fee_strm_type_rec.stream_type_class <> 'EXPENSE' AND l_outflow_defined_yn = 'Y' ) Then
5280:
5281: OKL_API.set_message(
5282: p_app_name => G_APP_NAME,
5283: p_msg_name => 'OKL_QA_NO_OUTFLOWS_EXPENSE',
5284: p_token1 => 'line',
5285: p_token1_value => l_fee_strm_type_rec.strm_name);
5282: p_app_name => G_APP_NAME,
5283: p_msg_name => 'OKL_QA_NO_OUTFLOWS_EXPENSE',
5284: p_token1 => 'line',
5285: p_token1_value => l_fee_strm_type_rec.strm_name);
5286: x_return_status := OKL_API.G_RET_STS_ERROR;
5287:
5288: End If;
5289:
5290: If ( l_outflow_defined_yn = 'Y' AND l_inflow_defined_yn = 'Y' ) Then
5287:
5288: End If;
5289:
5290: If ( l_outflow_defined_yn = 'Y' AND l_inflow_defined_yn = 'Y' ) Then
5291: OKL_API.set_message(
5292: p_app_name => G_APP_NAME,
5293: p_msg_name => 'OKL_QA_NO_INOUT_FLOWS',
5294: p_token1 => 'line',
5295: p_token1_value => l_fee_strm_type_rec.strm_name);
5292: p_app_name => G_APP_NAME,
5293: p_msg_name => 'OKL_QA_NO_INOUT_FLOWS',
5294: p_token1 => 'line',
5295: p_token1_value => l_fee_strm_type_rec.strm_name);
5296: x_return_status := OKL_API.G_RET_STS_ERROR;
5297: End If;
5298:
5299: End If;
5300:
5299: End If;
5300:
5301: END LOOP;
5302:
5303: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
5304: OKL_API.set_message(
5305: p_app_name => G_APP_NAME,
5306: p_msg_name => G_QA_SUCCESS);
5307: END IF;
5300:
5301: END LOOP;
5302:
5303: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
5304: OKL_API.set_message(
5305: p_app_name => G_APP_NAME,
5306: p_msg_name => G_QA_SUCCESS);
5307: END IF;
5308:
5315: CLOSE l_rl_csr1;
5316: END IF;
5317: WHEN OTHERS THEN
5318: -- store SQL error message on message stack
5319: OKL_API.SET_MESSAGE(
5320: p_app_name => G_APP_NAME,
5321: p_msg_name => G_UNEXPECTED_ERROR,
5322: p_token1 => G_SQLCODE_TOKEN,
5323: p_token1_value => SQLCODE,
5323: p_token1_value => SQLCODE,
5324: p_token2 => G_SQLERRM_TOKEN,
5325: p_token2_value => SQLERRM);
5326: -- notify caller of an error as UNEXPETED error
5327: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5328: -- verify that cursor was closed
5329: IF l_lne_csr%ISOPEN THEN
5330: CLOSE l_lne_csr;
5331: END IF;
5442: l_mult_factor NUMBER;
5443:
5444: BEGIN
5445:
5446: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
5447:
5448: l_tot_secdep := 0;
5449: FOR fee_line_rec IN fee_line_csr (p_chr_id)
5450: LOOP
5459: -- gk added
5460: IF fee_line_rec.fee_type NOT IN ('FINANCED','ROLLOVER','CAPITALIZED') THEN
5461:
5462: IF Are_assets_associated(p_chr_id => p_chr_id, p_kle_id => fee_line_rec.ID ) = 'Y' THEN
5463: Okl_Api.set_message(
5464: p_app_name => G_APP_NAME,
5465: p_msg_name => 'OKL_QA_ASSET_CANT_ASSOC',
5466: p_token1 => 'fee_type',
5467: p_token1_value => l_fee_type,
5469: p_token2_value => fee_line_rec.name
5470:
5471: );
5472:
5473: x_return_status := Okl_Api.G_RET_STS_ERROR;
5474: END IF;
5475: END IF;
5476: -- gk added
5477:
5485: END LOOP;
5486:
5487: IF ( l_tot_pmnt > 1 ) THEN
5488:
5489: Okl_Api.set_message(
5490: p_app_name => G_APP_NAME,
5491: p_msg_name => 'OKL_QA_ONLY_1PAY',
5492: p_token1 => 'line',
5493: p_token1_value => fee_line_rec.name
5492: p_token1 => 'line',
5493: p_token1_value => fee_line_rec.name
5494: );
5495:
5496: x_return_status := Okl_Api.G_RET_STS_ERROR;
5497:
5498: END IF;
5499:
5500: --
5510: l_tot_pmnt := l_tot_pmnt + 1;
5511: END LOOP;
5512:
5513: IF (l_tot_pmnt = 0) THEN
5514: Okl_Api.set_message(
5515: p_app_name => G_APP_NAME,
5516: p_msg_name => 'OKL_QA_NO_PMNT',
5517: p_token1 => 'FEE_TYPE',
5518: p_token1_value => l_fee_type,
5519: p_token2 => 'STRM_TYPE',
5520: p_token2_value => fee_line_rec.name
5521: );
5522:
5523: x_return_status := Okl_Api.G_RET_STS_ERROR;
5524: END IF;
5525:
5526: END IF; -- check 2
5527:
5548: l_exp_freq := l_rl_rec1.object1_id1;
5549: END LOOP;
5550:
5551: IF (l_exp_present <> 'Y') THEN
5552: Okl_Api.set_message(
5553: p_app_name => G_APP_NAME,
5554: p_msg_name => 'OKL_QA_NO_EXP',
5555: p_token1 => 'FEE_TYPE',
5556: p_token1_value => l_fee_type,
5557: p_token2 => 'STRM_TYPE',
5558: p_token2_value => fee_line_rec.name
5559: );
5560:
5561: x_return_status := Okl_Api.G_RET_STS_ERROR;
5562:
5563: ELSE
5564:
5565: --
5576: l_mult_factor := 12;
5577: END IF;
5578:
5579: IF (TRUNC(fee_line_rec.end_date) < (TRUNC(ADD_MONTHS(fee_line_rec.start_date, l_exp_period * l_mult_factor)-1))) THEN
5580: Okl_Api.set_message(
5581: G_APP_NAME,
5582: 'OKL_QA_RECUR_PERIOD',
5583: 'STRM_TYPE',
5584: fee_line_rec.name
5582: 'OKL_QA_RECUR_PERIOD',
5583: 'STRM_TYPE',
5584: fee_line_rec.name
5585: );
5586: x_return_status := Okl_Api.G_RET_STS_ERROR;
5587: END IF;
5588:
5589: l_exp_amount := l_exp_amount * l_exp_period;
5590: --l_exp_amount := l_exp_amount * l_exp_period * l_mult_factor;
5589: l_exp_amount := l_exp_amount * l_exp_period;
5590: --l_exp_amount := l_exp_amount * l_exp_period * l_mult_factor;
5591:
5592: IF (fee_line_rec.amount <> l_exp_amount) THEN
5593: Okl_Api.set_message(
5594: G_APP_NAME,
5595: 'OKL_QA_EXP_AMT_MISMATCH',
5596: 'FEE_TYPE',
5597: l_fee_type,
5597: l_fee_type,
5598: 'STRM_TYPE',
5599: fee_line_rec.name
5600: );
5601: x_return_status := Okl_Api.G_RET_STS_ERROR;
5602: END IF;
5603:
5604: END IF; -- expense
5605:
5619: l_pth_present := 'Y';
5620: END LOOP;
5621:
5622: IF (l_pth_present <> 'Y') THEN
5623: Okl_Api.set_message(
5624: p_app_name => G_APP_NAME,
5625: p_msg_name => 'OKL_QA_NO_PTH',
5626: p_token1 => 'STRM_TYPE',
5627: p_token1_value => fee_line_rec.name
5626: p_token1 => 'STRM_TYPE',
5627: p_token1_value => fee_line_rec.name
5628: );
5629:
5630: x_return_status := Okl_Api.G_RET_STS_ERROR;
5631: END IF;
5632:
5633: END IF; -- check 4
5634:
5642: --
5643: -- 6. No GENERAL Fee type should be there on a contract
5644: --
5645: IF (fee_line_rec.fee_type = 'GENERAL') THEN
5646: Okl_Api.set_message(
5647: p_app_name => G_APP_NAME,
5648: p_msg_name => 'OKL_QA_GEN_NOTALLOW'
5649: );
5650:
5647: p_app_name => G_APP_NAME,
5648: p_msg_name => 'OKL_QA_GEN_NOTALLOW'
5649: );
5650:
5651: x_return_status := Okl_Api.G_RET_STS_ERROR;
5652: --GOTO check_next_line;
5653: END IF;
5654:
5655: --
5671:
5672: IF (fee_line_rec.fee_type = 'SECDEPOSIT'
5673: AND
5674: l_rl_rec1.rule_information7 IS NOT NULL) THEN
5675: Okl_Api.set_message(
5676: G_APP_NAME,
5677: 'OKL_QA_SECR_STUB',
5678: 'STRM_TYPE',
5679: fee_line_rec.name
5677: 'OKL_QA_SECR_STUB',
5678: 'STRM_TYPE',
5679: fee_line_rec.name
5680: );
5681: x_return_status := Okl_Api.G_RET_STS_ERROR;
5682: END IF;
5683: END LOOP;
5684:
5685: IF (l_pmnt_amount <> fee_line_rec.amount) THEN
5682: END IF;
5683: END LOOP;
5684:
5685: IF (l_pmnt_amount <> fee_line_rec.amount) THEN
5686: Okl_Api.set_message(
5687: G_APP_NAME,
5688: 'OKL_QA_SECR_PAYMENT',
5689: 'FEE_TYPE',
5690: l_fee_type,
5690: l_fee_type,
5691: 'STRM_TYPE',
5692: fee_line_rec.name
5693: );
5694: x_return_status := Okl_Api.G_RET_STS_ERROR;
5695: END IF;
5696:
5697: END IF; --7
5698:
5699: END LOOP; -- fee_line_csr
5700:
5701: -- check 5 cont.
5702: IF (l_tot_secdep > 1) THEN
5703: Okl_Api.set_message(
5704: p_app_name => G_APP_NAME,
5705: p_msg_name => 'OKL_QA_SECDEP_MORE1'
5706: );
5707:
5704: p_app_name => G_APP_NAME,
5705: p_msg_name => 'OKL_QA_SECDEP_MORE1'
5706: );
5707:
5708: x_return_status := Okl_Api.G_RET_STS_ERROR;
5709: END IF;
5710:
5711: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
5712: Okl_Api.set_message(
5707:
5708: x_return_status := Okl_Api.G_RET_STS_ERROR;
5709: END IF;
5710:
5711: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
5712: Okl_Api.set_message(
5713: p_app_name => G_APP_NAME,
5714: p_msg_name => G_QA_SUCCESS);
5715: END IF;
5708: x_return_status := Okl_Api.G_RET_STS_ERROR;
5709: END IF;
5710:
5711: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
5712: Okl_Api.set_message(
5713: p_app_name => G_APP_NAME,
5714: p_msg_name => G_QA_SUCCESS);
5715: END IF;
5716:
5741: x_return_status OUT NOCOPY VARCHAR2,
5742: p_chr_id IN NUMBER) IS
5743:
5744:
5745: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
5746: l_api_version CONSTANT NUMBER := 1.0;
5747: l_init_msg_list VARCHAR2(1) DEFAULT Okc_Api.G_FALSE;
5748: l_msg_count NUMBER;
5749: l_msg_data VARCHAR2(1000);
5888: l_top_ln_pmt_exist BOOLEAN := FALSE;
5889: l_rq_sln_fee_amt_chk BOOLEAN := FALSE; -- If there are sub-lines payments exists.
5890:
5891: BEGIN
5892: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
5893:
5894: -- OPEN l_rq_top_fee_ln_csr ( chrID => p_chr_id );
5895: FOR l_rq_top_fee_ln IN l_rq_top_fee_ln_csr ( chrID => p_chr_id )
5896: LOOP
5918: p_qte_id => l_rq_top_fee_ln.qte_id,
5919: p_for_qa_check => TRUE);
5920:
5921: -- dedey 01/21/05 Bug 4134571
5922: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5923: x_return_status := Okl_Api.G_RET_STS_ERROR;
5924: END IF;
5925:
5926: /* Check Payments for the top fee line if they exist. If there are multiple
5919: p_for_qa_check => TRUE);
5920:
5921: -- dedey 01/21/05 Bug 4134571
5922: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5923: x_return_status := Okl_Api.G_RET_STS_ERROR;
5924: END IF;
5925:
5926: /* Check Payments for the top fee line if they exist. If there are multiple
5927: payments for the top line error out.
5937: IF (l_payment_top_ln_cnt > 1) THEN
5938: OPEN l_qte_number_csr(qteID => l_rq_top_fee_ln.qte_id);
5939: FETCH l_qte_number_csr INTO l_qte_num;
5940: CLOSE l_qte_number_csr;
5941: x_return_status := OKL_API.G_RET_STS_ERROR;
5942: OKL_API.set_message(
5943: p_app_name => G_APP_NAME,
5944: p_msg_name => 'OKL_QA_RQ_MLTP_PMTS_TOP_LN',
5945: p_token1 => 'quoteNum',
5938: OPEN l_qte_number_csr(qteID => l_rq_top_fee_ln.qte_id);
5939: FETCH l_qte_number_csr INTO l_qte_num;
5940: CLOSE l_qte_number_csr;
5941: x_return_status := OKL_API.G_RET_STS_ERROR;
5942: OKL_API.set_message(
5943: p_app_name => G_APP_NAME,
5944: p_msg_name => 'OKL_QA_RQ_MLTP_PMTS_TOP_LN',
5945: p_token1 => 'quoteNum',
5946: p_token1_value => l_qte_num);
5960: IF ( l_rq_dup_trm_qt_cnt > 1 ) THEN
5961: OPEN l_qte_number_csr(qteID => l_rq_top_fee_ln.qte_id);
5962: FETCH l_qte_number_csr INTO l_qte_num;
5963: CLOSE l_qte_number_csr;
5964: x_return_status := Okl_Api.G_RET_STS_ERROR;
5965: Okl_Api.set_message(
5966: p_app_name => G_APP_NAME,
5967: p_msg_name => 'OKL_QA_DUP_TERM_QUOTE');
5968: END IF;
5961: OPEN l_qte_number_csr(qteID => l_rq_top_fee_ln.qte_id);
5962: FETCH l_qte_number_csr INTO l_qte_num;
5963: CLOSE l_qte_number_csr;
5964: x_return_status := Okl_Api.G_RET_STS_ERROR;
5965: Okl_Api.set_message(
5966: p_app_name => G_APP_NAME,
5967: p_msg_name => 'OKL_QA_DUP_TERM_QUOTE');
5968: END IF;
5969: END IF;
5995:
5996: FOR l_rq_fee_pmtH IN l_rq_fee_pmtH_csr ( chrID => p_chr_id, feeLine => l_rq_sub_ln_fee.id )
5997: LOOP
5998: IF (l_top_ln_pmt_exist) THEN
5999: x_return_status := Okl_Api.G_RET_STS_ERROR;
6000: Okl_Api.set_message(
6001: p_app_name => G_APP_NAME,
6002: p_msg_name => 'OKL_QA_RQ_PMTS_TOP_SUB_EXIST',
6003: p_token1 => 'QUOTE_NUMBER',
5996: FOR l_rq_fee_pmtH IN l_rq_fee_pmtH_csr ( chrID => p_chr_id, feeLine => l_rq_sub_ln_fee.id )
5997: LOOP
5998: IF (l_top_ln_pmt_exist) THEN
5999: x_return_status := Okl_Api.G_RET_STS_ERROR;
6000: Okl_Api.set_message(
6001: p_app_name => G_APP_NAME,
6002: p_msg_name => 'OKL_QA_RQ_PMTS_TOP_SUB_EXIST',
6003: p_token1 => 'QUOTE_NUMBER',
6004: p_token1_value => l_qte_num);
6022: /* Check if the there are multiple payments for the rollover quote
6023: fee sub-line, if so error out.
6024:
6025: IF (l_pmt_dup_sub_ln_cnt > 1) THEN
6026: x_return_status := OKL_API.G_RET_STS_ERROR;
6027: OKL_API.set_message(
6028: p_app_name => G_APP_NAME,
6029: p_msg_name => 'OKL_QA_RQ_MLTP_PMTS_SLN',
6030: p_token1 => 'quoteNum',
6023: fee sub-line, if so error out.
6024:
6025: IF (l_pmt_dup_sub_ln_cnt > 1) THEN
6026: x_return_status := OKL_API.G_RET_STS_ERROR;
6027: OKL_API.set_message(
6028: p_app_name => G_APP_NAME,
6029: p_msg_name => 'OKL_QA_RQ_MLTP_PMTS_SLN',
6030: p_token1 => 'quoteNum',
6031: p_token1_value => l_qte_num);
6040: /* Check if the payment end date is within in the rollover quote
6041: fee sub-line's end date, if not error out. */
6042:
6043: IF ( TRUNC(l_rq_fee_pmt.end_date) > TRUNC(l_rq_sub_ln_fee.end_date) ) THEN
6044: x_return_status := Okl_Api.G_RET_STS_ERROR;
6045: Okl_Api.set_message(
6046: p_app_name => G_APP_NAME,
6047: p_msg_name => 'OKL_QA_RQ_SLN_PMT_ED',
6048: p_token1 => 'QUOTE_NUMBER',
6041: fee sub-line's end date, if not error out. */
6042:
6043: IF ( TRUNC(l_rq_fee_pmt.end_date) > TRUNC(l_rq_sub_ln_fee.end_date) ) THEN
6044: x_return_status := Okl_Api.G_RET_STS_ERROR;
6045: Okl_Api.set_message(
6046: p_app_name => G_APP_NAME,
6047: p_msg_name => 'OKL_QA_RQ_SLN_PMT_ED',
6048: p_token1 => 'QUOTE_NUMBER',
6049: p_token1_value => l_qte_num);
6056: /* Check if a rollover top line fee amount is not equal to sub-line fee amount,
6057: if exists, if not error out. */
6058:
6059: IF ( (l_rq_sln_fee_amt_chk) AND (l_rq_top_ln_fee_amt <> l_rq_sub_ln_fee_amt) ) THEN
6060: x_return_status := Okl_Api.G_RET_STS_ERROR;
6061: Okl_Api.set_message(
6062: p_app_name => G_APP_NAME,
6063: p_msg_name => 'OKL_QA_RQ_FEE_AMT_NEQ',
6064: p_token1 => 'QUOTE_NUMBER',
6057: if exists, if not error out. */
6058:
6059: IF ( (l_rq_sln_fee_amt_chk) AND (l_rq_top_ln_fee_amt <> l_rq_sub_ln_fee_amt) ) THEN
6060: x_return_status := Okl_Api.G_RET_STS_ERROR;
6061: Okl_Api.set_message(
6062: p_app_name => G_APP_NAME,
6063: p_msg_name => 'OKL_QA_RQ_FEE_AMT_NEQ',
6064: p_token1 => 'QUOTE_NUMBER',
6065: p_token1_value => l_qte_num);
6069:
6070: /* If no payments are defiend for the fee line then error out. */
6071:
6072: IF ((NOT l_top_ln_pmt_exist) AND (NOT l_rq_sln_fee_amt_chk)) THEN
6073: x_return_status := Okl_Api.G_RET_STS_ERROR;
6074: Okl_Api.set_message(
6075: p_app_name => G_APP_NAME,
6076: p_msg_name => 'OKL_QA_RQ_NO_PMTS',
6077: p_token1 => 'FEE_LINE',
6070: /* If no payments are defiend for the fee line then error out. */
6071:
6072: IF ((NOT l_top_ln_pmt_exist) AND (NOT l_rq_sln_fee_amt_chk)) THEN
6073: x_return_status := Okl_Api.G_RET_STS_ERROR;
6074: Okl_Api.set_message(
6075: p_app_name => G_APP_NAME,
6076: p_msg_name => 'OKL_QA_RQ_NO_PMTS',
6077: p_token1 => 'FEE_LINE',
6078: p_token1_value => l_top_fee_ln_name);
6084: if not error out. If there are multiple payments defiend for a rollover quote
6085: fee sub-line HEADER error out. */
6086:
6087: IF ((NOT l_top_ln_pmt_exist) AND (l_rq_sub_ln_fee_cnt > l_payment_sub_ln_cnt)) THEN
6088: x_return_status := Okl_Api.G_RET_STS_ERROR;
6089: Okl_Api.set_message(
6090: p_app_name => G_APP_NAME,
6091: p_msg_name => 'OKL_QA_RQ_PMTS_MISS_SLN',
6092: p_token1 => 'QUOTE_NUMBER',
6085: fee sub-line HEADER error out. */
6086:
6087: IF ((NOT l_top_ln_pmt_exist) AND (l_rq_sub_ln_fee_cnt > l_payment_sub_ln_cnt)) THEN
6088: x_return_status := Okl_Api.G_RET_STS_ERROR;
6089: Okl_Api.set_message(
6090: p_app_name => G_APP_NAME,
6091: p_msg_name => 'OKL_QA_RQ_PMTS_MISS_SLN',
6092: p_token1 => 'QUOTE_NUMBER',
6093: p_token1_value => l_qte_num);
6091: p_msg_name => 'OKL_QA_RQ_PMTS_MISS_SLN',
6092: p_token1 => 'QUOTE_NUMBER',
6093: p_token1_value => l_qte_num);
6094: ELSIF ((NOT l_top_ln_pmt_exist) AND (l_rq_sub_ln_fee_cnt < l_payment_sub_ln_cnt)) THEN
6095: x_return_status := Okl_Api.G_RET_STS_ERROR;
6096: Okl_Api.set_message(
6097: p_app_name => G_APP_NAME,
6098: p_msg_name => 'OKL_QA_RQ_MUL_SLN_PMTS',
6099: p_token1 => 'QUOTE_NUMBER',
6092: p_token1 => 'QUOTE_NUMBER',
6093: p_token1_value => l_qte_num);
6094: ELSIF ((NOT l_top_ln_pmt_exist) AND (l_rq_sub_ln_fee_cnt < l_payment_sub_ln_cnt)) THEN
6095: x_return_status := Okl_Api.G_RET_STS_ERROR;
6096: Okl_Api.set_message(
6097: p_app_name => G_APP_NAME,
6098: p_msg_name => 'OKL_QA_RQ_MUL_SLN_PMTS',
6099: p_token1 => 'QUOTE_NUMBER',
6100: p_token1_value => l_qte_num);
6112: --TURN_ON_THE_FUNC_CONSTRAINTS;
6113:
6114: EXCEPTION
6115:
6116: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
6117: x_return_status := Okl_Api.G_RET_STS_ERROR;
6118:
6119: IF l_rq_top_fee_ln_csr%ISOPEN THEN
6120: CLOSE l_rq_top_fee_ln_csr;
6113:
6114: EXCEPTION
6115:
6116: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
6117: x_return_status := Okl_Api.G_RET_STS_ERROR;
6118:
6119: IF l_rq_top_fee_ln_csr%ISOPEN THEN
6120: CLOSE l_rq_top_fee_ln_csr;
6121: END IF;
6135: IF l_rq_fee_pmt_csr%ISOPEN THEN
6136: CLOSE l_rq_fee_pmt_csr;
6137: END IF;
6138:
6139: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6140: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
6141:
6142: IF l_rq_top_fee_ln_csr%ISOPEN THEN
6143: CLOSE l_rq_top_fee_ln_csr;
6136: CLOSE l_rq_fee_pmt_csr;
6137: END IF;
6138:
6139: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6140: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
6141:
6142: IF l_rq_top_fee_ln_csr%ISOPEN THEN
6143: CLOSE l_rq_top_fee_ln_csr;
6144: END IF;
6159: CLOSE l_rq_fee_pmt_csr;
6160: END IF;
6161:
6162: WHEN OTHERS THEN
6163: x_return_status := Okl_Api.G_RET_STS_ERROR;
6164:
6165: IF l_rq_top_fee_ln_csr%ISOPEN THEN
6166: CLOSE l_rq_top_fee_ln_csr;
6167: END IF;
6183: END IF;
6184:
6185: /*
6186:
6187: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6188: p_api_name => l_api_name,
6189: p_pkg_name => g_pkg_name,
6190: p_exc_name => 'OTHERS',
6191: x_msg_count => l_msg_count,
6212: x_return_status OUT NOCOPY VARCHAR2,
6213: p_chr_id IN NUMBER) IS
6214:
6215:
6216: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
6217: l_api_version CONSTANT NUMBER := 1.0;
6218: l_init_msg_list VARCHAR2(1) DEFAULT Okc_Api.G_FALSE;
6219: l_msg_count NUMBER;
6220: l_msg_data VARCHAR2(1000);
6325: l_top_ln_pmt_exist BOOLEAN := FALSE;
6326: l_fn_sln_fee_amt_chk BOOLEAN := FALSE; -- If there are sub-lines payments exists.
6327:
6328: BEGIN
6329: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
6330:
6331: FOR l_fn_top_fee_ln IN l_fn_top_fee_ln_csr ( chrID => p_chr_id )
6332: LOOP
6333:
6361:
6362: FOR l_fn_fee_pmtH IN l_fn_fee_pmtH_csr ( chrID => p_chr_id, feeLine => l_fn_sub_ln_fee.id )
6363: LOOP
6364: IF (l_top_ln_pmt_exist) THEN
6365: x_return_status := Okl_Api.G_RET_STS_ERROR;
6366: Okl_Api.set_message(
6367: p_app_name => G_APP_NAME,
6368: p_msg_name => 'OKL_QA_FN_PMTS_TOP_SUB_EXIST',
6369: p_token1 => 'FEE_LINE',
6362: FOR l_fn_fee_pmtH IN l_fn_fee_pmtH_csr ( chrID => p_chr_id, feeLine => l_fn_sub_ln_fee.id )
6363: LOOP
6364: IF (l_top_ln_pmt_exist) THEN
6365: x_return_status := Okl_Api.G_RET_STS_ERROR;
6366: Okl_Api.set_message(
6367: p_app_name => G_APP_NAME,
6368: p_msg_name => 'OKL_QA_FN_PMTS_TOP_SUB_EXIST',
6369: p_token1 => 'FEE_LINE',
6370: p_token1_value => l_top_fee_ln_name);
6382: -- added for bug 5115701 - start
6383:
6384: IF ( TRUNC(l_fn_fee_pmt.start_date) < TRUNC(l_fn_sub_ln_fee.start_date) ) THEN
6385:
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_FN_SLN_PMT_SD',
6390: p_token1 => 'FEE_LINE',
6383:
6384: IF ( TRUNC(l_fn_fee_pmt.start_date) < TRUNC(l_fn_sub_ln_fee.start_date) ) THEN
6385:
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_FN_SLN_PMT_SD',
6390: p_token1 => 'FEE_LINE',
6391: p_token1_value => l_top_fee_ln_name);
6393:
6394: -- added for bug 5115701 - end
6395:
6396: IF ( TRUNC(l_fn_fee_pmt.end_date) > TRUNC(l_fn_sub_ln_fee.end_date) ) THEN
6397: x_return_status := Okl_Api.G_RET_STS_ERROR;
6398: Okl_Api.set_message(
6399: p_app_name => G_APP_NAME,
6400: p_msg_name => 'OKL_QA_FN_SLN_PMT_ED',
6401: p_token1 => 'FEE_LINE',
6394: -- added for bug 5115701 - end
6395:
6396: IF ( TRUNC(l_fn_fee_pmt.end_date) > TRUNC(l_fn_sub_ln_fee.end_date) ) THEN
6397: x_return_status := Okl_Api.G_RET_STS_ERROR;
6398: Okl_Api.set_message(
6399: p_app_name => G_APP_NAME,
6400: p_msg_name => 'OKL_QA_FN_SLN_PMT_ED',
6401: p_token1 => 'FEE_LINE',
6402: p_token1_value => l_top_fee_ln_name);
6408: /* Check if a financed top line fee amount is not equal to sub-line fee amount,
6409: if exists, if not error out. */
6410:
6411: IF ( (l_fn_sln_fee_amt_chk) AND (l_fn_top_ln_fee_amt <> l_fn_sub_ln_fee_amt) ) THEN
6412: x_return_status := Okl_Api.G_RET_STS_ERROR;
6413: Okl_Api.set_message(
6414: p_app_name => G_APP_NAME,
6415: p_msg_name => 'OKL_QA_FN_FEE_AMT_NEQ',
6416: p_token1 => 'FEE_LINE',
6409: if exists, if not error out. */
6410:
6411: IF ( (l_fn_sln_fee_amt_chk) AND (l_fn_top_ln_fee_amt <> l_fn_sub_ln_fee_amt) ) THEN
6412: x_return_status := Okl_Api.G_RET_STS_ERROR;
6413: Okl_Api.set_message(
6414: p_app_name => G_APP_NAME,
6415: p_msg_name => 'OKL_QA_FN_FEE_AMT_NEQ',
6416: p_token1 => 'FEE_LINE',
6417: p_token1_value => l_top_fee_ln_name);
6421:
6422: /* If no payments are defiend for the fee line then error out. */
6423:
6424: IF ((NOT l_top_ln_pmt_exist) AND (NOT l_fn_sln_fee_amt_chk)) THEN
6425: x_return_status := Okl_Api.G_RET_STS_ERROR;
6426: Okl_Api.set_message(
6427: p_app_name => G_APP_NAME,
6428: p_msg_name => 'OKL_QA_RQ_NO_PMTS',
6429: p_token1 => 'FEE_LINE',
6422: /* If no payments are defiend for the fee line then error out. */
6423:
6424: IF ((NOT l_top_ln_pmt_exist) AND (NOT l_fn_sln_fee_amt_chk)) THEN
6425: x_return_status := Okl_Api.G_RET_STS_ERROR;
6426: Okl_Api.set_message(
6427: p_app_name => G_APP_NAME,
6428: p_msg_name => 'OKL_QA_RQ_NO_PMTS',
6429: p_token1 => 'FEE_LINE',
6430: p_token1_value => l_top_fee_ln_name);
6436: if not error out. If there are multiple payments defiend for a financed
6437: fee sub-line HEADER error out. */
6438:
6439: IF ((NOT l_top_ln_pmt_exist) AND (l_fn_sub_ln_fee_cnt > l_payment_sub_ln_cnt)) THEN
6440: x_return_status := Okl_Api.G_RET_STS_ERROR;
6441: Okl_Api.set_message(
6442: p_app_name => G_APP_NAME,
6443: p_msg_name => 'OKL_QA_FN_PMTS_MISS_SLN',
6444: p_token1 => 'FEE_LINE',
6437: fee sub-line HEADER error out. */
6438:
6439: IF ((NOT l_top_ln_pmt_exist) AND (l_fn_sub_ln_fee_cnt > l_payment_sub_ln_cnt)) THEN
6440: x_return_status := Okl_Api.G_RET_STS_ERROR;
6441: Okl_Api.set_message(
6442: p_app_name => G_APP_NAME,
6443: p_msg_name => 'OKL_QA_FN_PMTS_MISS_SLN',
6444: p_token1 => 'FEE_LINE',
6445: p_token1_value => l_top_fee_ln_name);
6443: p_msg_name => 'OKL_QA_FN_PMTS_MISS_SLN',
6444: p_token1 => 'FEE_LINE',
6445: p_token1_value => l_top_fee_ln_name);
6446: ELSIF ((NOT l_top_ln_pmt_exist) AND (l_fn_sub_ln_fee_cnt < l_payment_sub_ln_cnt)) 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_FN_MUL_SLN_PMTS',
6451: p_token1 => 'FEE_LINE',
6444: p_token1 => 'FEE_LINE',
6445: p_token1_value => l_top_fee_ln_name);
6446: ELSIF ((NOT l_top_ln_pmt_exist) AND (l_fn_sub_ln_fee_cnt < l_payment_sub_ln_cnt)) 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_FN_MUL_SLN_PMTS',
6451: p_token1 => 'FEE_LINE',
6452: p_token1_value => l_top_fee_ln_name);
6462: END LOOP;
6463:
6464: EXCEPTION
6465:
6466: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
6467: x_return_status := Okl_Api.G_RET_STS_ERROR;
6468:
6469: IF l_fn_top_fee_ln_csr%ISOPEN THEN
6470: CLOSE l_fn_top_fee_ln_csr;
6463:
6464: EXCEPTION
6465:
6466: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
6467: x_return_status := Okl_Api.G_RET_STS_ERROR;
6468:
6469: IF l_fn_top_fee_ln_csr%ISOPEN THEN
6470: CLOSE l_fn_top_fee_ln_csr;
6471: END IF;
6477: IF l_fn_fee_pmt_csr%ISOPEN THEN
6478: CLOSE l_fn_fee_pmt_csr;
6479: END IF;
6480:
6481: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6482: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
6483:
6484: IF l_fn_top_fee_ln_csr%ISOPEN THEN
6485: CLOSE l_fn_top_fee_ln_csr;
6478: CLOSE l_fn_fee_pmt_csr;
6479: END IF;
6480:
6481: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6482: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
6483:
6484: IF l_fn_top_fee_ln_csr%ISOPEN THEN
6485: CLOSE l_fn_top_fee_ln_csr;
6486: END IF;
6493: CLOSE l_fn_fee_pmt_csr;
6494: END IF;
6495:
6496: WHEN OTHERS THEN
6497: x_return_status := Okl_Api.G_RET_STS_ERROR;
6498:
6499: IF l_fn_top_fee_ln_csr%ISOPEN THEN
6500: CLOSE l_fn_top_fee_ln_csr;
6501: END IF;
6528: x_return_status OUT NOCOPY VARCHAR2,
6529: p_chr_id IN NUMBER) IS
6530:
6531: --p_api_version VARCHAR2(4000) := '1.0';
6532: p_init_msg_list VARCHAR2(4000) DEFAULT Okl_Api.G_FALSE;
6533:
6534: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
6535: l_in_future BOOLEAN := FALSE;
6536: l_found VARCHAR2(1);
6530:
6531: --p_api_version VARCHAR2(4000) := '1.0';
6532: p_init_msg_list VARCHAR2(4000) DEFAULT Okl_Api.G_FALSE;
6533:
6534: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
6535: l_in_future BOOLEAN := FALSE;
6536: l_found VARCHAR2(1);
6537: x_msg_count NUMBER;
6538: x_msg_data VARCHAR2(256);
6556: WHERE okcsts.code = cleb.sts_code
6557: AND okcsts.ste_code IN ('EXPIRED','HOLD','CANCELLED','TERMINATED', 'ABANDONED'));
6558:
6559: BEGIN
6560: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
6561:
6562: /* Check if the if the contract has a rollover fee and it's start date
6563: is not in the future date (less than or equal sysdate). */
6564:
6567: l_in_future := l_k_std_csr%FOUND; -- IN future
6568: CLOSE l_k_std_csr;
6569:
6570: IF( l_in_future ) THEN -- Contract Start date in future
6571: x_return_status := Okl_Api.G_RET_STS_ERROR;
6572: l_in_future := NULL;
6573: l_found := NULL;
6574: Okl_Api.set_message(
6575: p_app_name => G_APP_NAME,
6570: IF( l_in_future ) THEN -- Contract Start date in future
6571: x_return_status := Okl_Api.G_RET_STS_ERROR;
6572: l_in_future := NULL;
6573: l_found := NULL;
6574: Okl_Api.set_message(
6575: p_app_name => G_APP_NAME,
6576: p_msg_name => 'OKL_LLA_RQ_SD_IN_FUTURE');
6577: RAISE Okl_Api.G_EXCEPTION_ERROR;
6578: END IF;
6573: l_found := NULL;
6574: Okl_Api.set_message(
6575: p_app_name => G_APP_NAME,
6576: p_msg_name => 'OKL_LLA_RQ_SD_IN_FUTURE');
6577: RAISE Okl_Api.G_EXCEPTION_ERROR;
6578: END IF;
6579:
6580: EXCEPTION
6581:
6578: END IF;
6579:
6580: EXCEPTION
6581:
6582: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
6583: x_return_status := Okl_Api.G_RET_STS_ERROR;
6584:
6585: IF l_k_std_csr%ISOPEN THEN
6586: CLOSE l_k_std_csr;
6579:
6580: EXCEPTION
6581:
6582: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
6583: x_return_status := Okl_Api.G_RET_STS_ERROR;
6584:
6585: IF l_k_std_csr%ISOPEN THEN
6586: CLOSE l_k_std_csr;
6587: END IF;
6594: END IF;
6595:
6596: WHEN OTHERS THEN
6597: -- store SQL error message on message stack
6598: Okl_Api.SET_MESSAGE(
6599: p_app_name => G_APP_NAME,
6600: p_msg_name => G_UNEXPECTED_ERROR,
6601: p_token1 => G_SQLCODE_TOKEN,
6602: p_token1_value => SQLCODE,
6606: IF l_k_std_csr%ISOPEN THEN
6607: CLOSE l_k_std_csr;
6608: END IF;
6609:
6610: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
6611:
6612: END check_rollover_lines;
6613:
6614: -- Start of comments
6625: x_return_status OUT NOCOPY VARCHAR2,
6626: p_chr_id IN NUMBER
6627: ) IS
6628:
6629: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
6630:
6631: CURSOR l_lne_pmnt_csr(chrid OKL_K_HEADERS.KHR_ID%TYPE) IS
6632: SELECT ls.lty_code,
6633: ls.name line_type,
6667:
6668: BEGIN
6669:
6670: -- initialize return status
6671: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
6672:
6673: -- check for header payment
6674: FOR l_hdr_pmnt_rec IN l_hdr_pmnt_csr (p_chr_id)
6675: LOOP
6682: OPEN strm_name_csr ( TO_NUMBER(l_hdr_pmnt_rec.object1_id1) );
6683: FETCH strm_name_csr INTO l_strm_name_rec;
6684: IF strm_name_csr%NOTFOUND THEN
6685: CLOSE strm_name_csr;
6686: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6687: END IF;
6688: CLOSE strm_name_csr;
6689:
6690: Okl_Api.set_message(
6686: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6687: END IF;
6688: CLOSE strm_name_csr;
6689:
6690: Okl_Api.set_message(
6691: p_app_name => G_APP_NAME,
6692: p_msg_name => 'LLA_QA_HDRPMNT_STRMTMPL',
6693: p_token1 => 'STRM_NAME',
6694: p_token1_value => l_strm_name_rec.name
6692: p_msg_name => 'LLA_QA_HDRPMNT_STRMTMPL',
6693: p_token1 => 'STRM_NAME',
6694: p_token1_value => l_strm_name_rec.name
6695: );
6696: x_return_status := Okl_Api.G_RET_STS_ERROR;
6697: END IF;
6698:
6699: END LOOP;
6700:
6715: OPEN strm_name_csr ( TO_NUMBER(l_rl_rec1.object1_id1) );
6716: FETCH strm_name_csr INTO l_strm_name_rec;
6717: IF strm_name_csr%NOTFOUND THEN
6718: CLOSE strm_name_csr;
6719: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6720: END IF;
6721: CLOSE strm_name_csr;
6722:
6723: Okl_Api.set_message(
6719: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6720: END IF;
6721: CLOSE strm_name_csr;
6722:
6723: Okl_Api.set_message(
6724: p_app_name => G_APP_NAME,
6725: p_msg_name => 'LLA_QA_PMNT_STRM_TMPL',
6726: p_token1 => 'STRM_NAME',
6727: p_token1_value => l_strm_name_rec.name,
6727: p_token1_value => l_strm_name_rec.name,
6728: p_token2 => 'LINE_TYPE',
6729: p_token2_value => l_lne_pmnt.line_type||'/'||l_lne_pmnt.name
6730: );
6731: x_return_status := Okl_Api.G_RET_STS_ERROR;
6732: END IF;
6733:
6734: END LOOP;
6735:
6748: OPEN strm_name_csr ( l_fee_strm_rec.object1_id1 );
6749: FETCH strm_name_csr INTO l_strm_name_rec;
6750: IF strm_name_csr%NOTFOUND THEN
6751: CLOSE strm_name_csr;
6752: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6753: END IF;
6754: CLOSE strm_name_csr;
6755:
6756: Okl_Api.set_message(
6752: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6753: END IF;
6754: CLOSE strm_name_csr;
6755:
6756: Okl_Api.set_message(
6757: p_app_name => G_APP_NAME,
6758: p_msg_name => 'LLA_QA_FEE_STRM_TMPL',
6759: p_token1 => 'STRM_NAME',
6760: p_token1_value => l_strm_name_rec.name,
6760: p_token1_value => l_strm_name_rec.name,
6761: p_token2 => 'LINE_TYPE',
6762: p_token2_value => l_lne_pmnt.line_type||'/'||l_lne_pmnt.name
6763: );
6764: x_return_status := Okl_Api.G_RET_STS_ERROR;
6765: END IF;
6766: END LOOP;
6767: END IF; -- Fee Line
6768:
6770:
6771: EXCEPTION
6772:
6773: WHEN G_EXCEPTION_HALT_VALIDATION THEN
6774: x_return_status := Okl_Api.G_RET_STS_ERROR;
6775: IF l_hdr_csr%ISOPEN THEN
6776: CLOSE l_hdr_csr;
6777: END IF;
6778: -- no processing necessary; validation can continue with next column
6777: END IF;
6778: -- no processing necessary; validation can continue with next column
6779: WHEN OTHERS THEN
6780: -- store SQL error message on message stack
6781: Okl_Api.SET_MESSAGE(
6782: p_app_name => G_APP_NAME,
6783: p_msg_name => G_UNEXPECTED_ERROR,
6784: p_token1 => G_SQLCODE_TOKEN,
6785: p_token1_value => SQLCODE,
6785: p_token1_value => SQLCODE,
6786: p_token2 => G_SQLERRM_TOKEN,
6787: p_token2_value => SQLERRM);
6788: -- notify caller of an error as UNEXPETED error
6789: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
6790: -- verify that cursor was closed
6791: IF l_hdr_csr%ISOPEN THEN
6792: CLOSE l_hdr_csr;
6793: END IF;
6818: l_release_contract_yn VARCHAR2(1);
6819: l_oec NUMBER;
6820:
6821: BEGIN
6822: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
6823: OPEN l_hdrrl_csr('LATOWN', 'LATOWN', TO_NUMBER(p_chr_id));
6824: FETCH l_hdrrl_csr INTO l_hdrrl_rec;
6825: CLOSE l_hdrrl_csr;
6826: l_tax_owner := l_hdrrl_rec.RULE_INFORMATION1;
6825: CLOSE l_hdrrl_csr;
6826: l_tax_owner := l_hdrrl_rec.RULE_INFORMATION1;
6827:
6828: --Bug# 4631549
6829: l_release_contract_yn := okl_api.g_false;
6830: l_release_contract_yn := okl_lla_util_pvt.check_release_contract(p_chr_id => p_chr_id);
6831:
6832: FOR l_lne IN l_lne_csr('FREE_FORM1', p_chr_id)
6833: LOOP
6832: FOR l_lne IN l_lne_csr('FREE_FORM1', p_chr_id)
6833: LOOP
6834:
6835: --Bug# 4631549
6836: If l_release_contract_yn = okl_api.g_true then
6837: l_oec := l_lne.expected_asset_cost;
6838: else
6839: l_oec := l_lne.oec;
6840: end if;
6841:
6842: --Bug# 4631549
6843: IF (( nvl(l_lne.residual_value,0) < (0.2 * l_OEC)) AND (l_tax_owner = 'LESSOR')) THEN
6844: --IF (( NVL(l_lne.residual_value,0) < (0.2 * l_lne.OEC)) AND (l_tax_owner = 'LESSOR')) THEN
6845: Okl_Api.set_message(
6846: p_app_name => G_APP_NAME,
6847: p_msg_name => 'OKL_QA_RV_OEC_TOWN',
6848: p_token1 => 'line',
6849: p_token1_value => l_lne.name);
6846: p_app_name => G_APP_NAME,
6847: p_msg_name => 'OKL_QA_RV_OEC_TOWN',
6848: p_token1 => 'line',
6849: p_token1_value => l_lne.name);
6850: x_return_status := Okl_Api.G_RET_STS_ERROR;
6851: END IF;
6852:
6853: END LOOP;
6854:
6851: END IF;
6852:
6853: END LOOP;
6854:
6855: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
6856: Okl_Api.set_message(
6857: p_app_name => G_APP_NAME,
6858: p_msg_name => G_QA_SUCCESS);
6859: END IF;
6852:
6853: END LOOP;
6854:
6855: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
6856: Okl_Api.set_message(
6857: p_app_name => G_APP_NAME,
6858: p_msg_name => G_QA_SUCCESS);
6859: END IF;
6860:
6860:
6861: EXCEPTION
6862: WHEN OTHERS THEN
6863: -- store SQL error message on message stack
6864: Okl_Api.SET_MESSAGE(
6865: p_app_name => G_APP_NAME,
6866: p_msg_name => G_UNEXPECTED_ERROR,
6867: p_token1 => G_SQLCODE_TOKEN,
6868: p_token1_value => SQLCODE,
6867: p_token1 => G_SQLCODE_TOKEN,
6868: p_token1_value => SQLCODE,
6869: p_token2 => G_SQLERRM_TOKEN,
6870: p_token2_value => SQLERRM);
6871: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
6872: IF l_hdrrl_csr%ISOPEN THEN
6873: CLOSE l_hdrrl_csr;
6874: END IF;
6875:
6888: x_return_status OUT NOCOPY VARCHAR2,
6889: p_chr_id IN NUMBER
6890: ) IS
6891:
6892: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
6893:
6894: CURSOR chk_product_status (p_chr_id IN NUMBER) IS
6895: SELECT
6896: pdt.name
6907: l_product_name okl_products_v.NAME%TYPE;
6908: BEGIN
6909:
6910: -- initialize return status
6911: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
6912:
6913: -- check for header payment
6914: OPEN chk_product_status (p_chr_id => TO_NUMBER(p_chr_id));
6915: FETCH chk_product_status INTO l_product_name,l_product_status_code;
6915: FETCH chk_product_status INTO l_product_name,l_product_status_code;
6916: CLOSE chk_product_status;
6917:
6918: IF (l_product_status_code = 'INVALID') THEN
6919: -- x_return_status := OKL_API.G_RET_STS_SUCCESS;
6920:
6921: Okl_Api.set_message(
6922: p_app_name => G_APP_NAME,
6923: p_msg_name => 'OKL_LLA_INVALID_PRODUCT',
6917:
6918: IF (l_product_status_code = 'INVALID') THEN
6919: -- x_return_status := OKL_API.G_RET_STS_SUCCESS;
6920:
6921: Okl_Api.set_message(
6922: p_app_name => G_APP_NAME,
6923: p_msg_name => 'OKL_LLA_INVALID_PRODUCT',
6924: p_token1 => 'PRODUCT_NAME',
6925: p_token1_value => l_product_name);
6922: p_app_name => G_APP_NAME,
6923: p_msg_name => 'OKL_LLA_INVALID_PRODUCT',
6924: p_token1 => 'PRODUCT_NAME',
6925: p_token1_value => l_product_name);
6926: x_return_status := Okl_Api.G_RET_STS_ERROR;
6927:
6928: END IF;
6929: /*IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
6930: OKL_API.set_message(
6925: p_token1_value => l_product_name);
6926: x_return_status := Okl_Api.G_RET_STS_ERROR;
6927:
6928: END IF;
6929: /*IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
6930: OKL_API.set_message(
6931: p_app_name => G_APP_NAME,
6932: p_msg_name => G_QA_SUCCESS);
6933: END IF;*/
6926: x_return_status := Okl_Api.G_RET_STS_ERROR;
6927:
6928: END IF;
6929: /*IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
6930: OKL_API.set_message(
6931: p_app_name => G_APP_NAME,
6932: p_msg_name => G_QA_SUCCESS);
6933: END IF;*/
6934:
6939: WHEN G_EXCEPTION_HALT_VALIDATION THEN
6940: NULL; -- error reported, just exit from this process
6941: WHEN OTHERS THEN
6942: -- store SQL error message on message stack
6943: Okl_Api.SET_MESSAGE(
6944: p_app_name => G_APP_NAME,
6945: p_msg_name => G_UNEXPECTED_ERROR,
6946: p_token1 => G_SQLCODE_TOKEN,
6947: p_token1_value => SQLCODE,
6947: p_token1_value => SQLCODE,
6948: p_token2 => G_SQLERRM_TOKEN,
6949: p_token2_value => SQLERRM);
6950:
6951: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
6952:
6953: IF chk_product_status%ISOPEN THEN
6954: CLOSE chk_product_status;
6955: END IF;
6970: x_return_status OUT NOCOPY VARCHAR2,
6971: p_chr_id IN NUMBER
6972: ) IS
6973:
6974: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
6975:
6976: CURSOR chk_deal_type (p_chr_id IN NUMBER) IS
6977: select 'Y'
6978: from okl_k_headers
7040: l_payment_amount okl_k_lines.capital_amount%type;
7041: l_deal_type_yn varchar2(1) := 'N';
7042: BEGIN
7043: -- initialize return status
7044: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
7045:
7046: --chk_deal_type for loan contract
7047: OPEN chk_deal_type (p_chr_id);
7048: FETCH chk_deal_type INTO l_deal_type_yn;
7063: FETCH get_payment_line_amt INTO l_payment_amount;
7064: CLOSE get_payment_line_amt;
7065:
7066: IF(l_payment_amount < l_capital_amount) THEN
7067: Okl_Api.set_message(
7068: p_app_name => G_APP_NAME,
7069: p_msg_name => 'OKL_LLA_INVALID_PAYMNT_AMT',
7070: p_token1 => 'AST_NUMBER',
7071: p_token1_value => l_ast_name);
7068: p_app_name => G_APP_NAME,
7069: p_msg_name => 'OKL_LLA_INVALID_PAYMNT_AMT',
7070: p_token1 => 'AST_NUMBER',
7071: p_token1_value => l_ast_name);
7072: x_return_status := Okl_Api.G_RET_STS_ERROR;
7073: END IF;
7074:
7075: END LOOP;
7076:
7081: WHEN G_EXCEPTION_HALT_VALIDATION THEN
7082: NULL; -- error reported, just exit from this process
7083: WHEN OTHERS THEN
7084: -- store SQL error message on message stack
7085: Okl_Api.SET_MESSAGE(
7086: p_app_name => G_APP_NAME,
7087: p_msg_name => G_UNEXPECTED_ERROR,
7088: p_token1 => G_SQLCODE_TOKEN,
7089: p_token1_value => SQLCODE,
7089: p_token1_value => SQLCODE,
7090: p_token2 => G_SQLERRM_TOKEN,
7091: p_token2_value => SQLERRM);
7092:
7093: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
7094:
7095: END check_loan_payment;
7096:
7097: --akrangan bug 5362977 start
7255: l_svc_chr_id NUMBER;
7256: l_svc_chr_exists VARCHAR2(1);
7257: BEGIN
7258:
7259: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7260:
7261: --check for rebook contract
7262: l_rbk_khr := '?';
7263: OPEN l_chk_rbk_csr (p_chr_id => p_chr_id);
7335: END LOOP;
7336: END IF;
7337:
7338: IF l_svc_chr_exists = 'Y' THEN
7339: OKL_API.set_message(
7340: p_app_name => G_APP_NAME,
7341: p_msg_name => 'OKL_QA_CANNOT_DEL_IB_INST',
7342: p_token1 => 'ASSET_NUMBER',
7343: p_token1_value => l_line_rec.asset_number);
7340: p_app_name => G_APP_NAME,
7341: p_msg_name => 'OKL_QA_CANNOT_DEL_IB_INST',
7342: p_token1 => 'ASSET_NUMBER',
7343: p_token1_value => l_line_rec.asset_number);
7344: x_return_status := OKL_API.G_RET_STS_ERROR;
7345: EXIT;
7346: END IF;
7347:
7348: End Loop;
7350:
7351: EXCEPTION
7352: WHEN OTHERS THEN
7353: -- store SQL error message on message stack
7354: OKL_API.SET_MESSAGE(
7355: p_app_name => G_APP_NAME,
7356: p_msg_name => G_UNEXPECTED_ERROR,
7357: p_token1 => G_SQLCODE_TOKEN,
7358: p_token1_value => SQLCODE,
7358: p_token1_value => SQLCODE,
7359: p_token2 => G_SQLERRM_TOKEN,
7360: p_token2_value => SQLERRM);
7361:
7362: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7363:
7364: END check_service_contracts;
7365: --akrangan bug 5362977 end
7366:
7447: -- Start fix for bug 7131895
7448: l_pricing_engine VARCHAR2(30);
7449: l_hdrrl_rec l_hdrrl_csr%ROWTYPE;
7450: l_tax_owner VARCHAR2(100);
7451: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
7452: -- End fix for bug 7131895
7453:
7454: BEGIN
7455:
7452: -- End fix for bug 7131895
7453:
7454: BEGIN
7455:
7456: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
7457: l_asset_tradein_yes := FALSE;
7458: l_asset_tradein_amt := 0;
7459:
7460: l_hdr_tradein_amt := NULL;
7494: CLOSE l_down_pmnt_check_csr;
7495:
7496: IF (NOT l_exists) THEN
7497: --RAISE ERROR no down payments exist.
7498: Okl_Api.set_message(
7499: p_app_name => G_APP_NAME,
7500: p_msg_name => 'OKL_QA_SQ_NO_DOWN_PMNT');
7501: x_return_status := Okl_Api.G_RET_STS_ERROR;
7502:
7497: --RAISE ERROR no down payments exist.
7498: Okl_Api.set_message(
7499: p_app_name => G_APP_NAME,
7500: p_msg_name => 'OKL_QA_SQ_NO_DOWN_PMNT');
7501: x_return_status := Okl_Api.G_RET_STS_ERROR;
7502:
7503: END IF;
7504:
7505: IF ( l_down_pmnt_check_rec.cle_id IS NULL) THEN
7503: END IF;
7504:
7505: IF ( l_down_pmnt_check_rec.cle_id IS NULL) THEN
7506: --RAISE ERROR cannot define at contract header level.
7507: Okl_Api.set_message(
7508: p_app_name => G_APP_NAME,
7509: p_msg_name => 'OKL_QA_SQ_DOWN_PMNT_HDR');
7510: x_return_status := Okl_Api.G_RET_STS_ERROR;
7511: END IF;
7506: --RAISE ERROR cannot define at contract header level.
7507: Okl_Api.set_message(
7508: p_app_name => G_APP_NAME,
7509: p_msg_name => 'OKL_QA_SQ_DOWN_PMNT_HDR');
7510: x_return_status := Okl_Api.G_RET_STS_ERROR;
7511: END IF;
7512:
7513: l_num_pmnt_lines := 0;
7514:
7517: --check for number of payments also.
7518:
7519: l_num_pmnt_lines := l_num_pmnt_lines + 1;
7520: IF(l_down_pmnt_line_rec.rule_information3 <> 1) THEN
7521: Okl_Api.set_message(
7522: p_app_name => G_APP_NAME,
7523: p_msg_name => 'OKL_QA_SQ_PERIOD_MISMATCH');
7524: x_return_status := Okl_Api.G_RET_STS_ERROR;
7525: END IF;
7520: IF(l_down_pmnt_line_rec.rule_information3 <> 1) THEN
7521: Okl_Api.set_message(
7522: p_app_name => G_APP_NAME,
7523: p_msg_name => 'OKL_QA_SQ_PERIOD_MISMATCH');
7524: x_return_status := Okl_Api.G_RET_STS_ERROR;
7525: END IF;
7526:
7527: --Bug 6417667 Start
7528: -- Not using NVL function because Down payment amount or percent value can be zero.
7528: -- Not using NVL function because Down payment amount or percent value can be zero.
7529: IF((l_line_rec.capital_reduction IS NOT NULL AND l_line_rec.capital_reduction <> l_down_pmnt_line_rec.rule_information6)
7530: OR (l_line_rec.capital_reduction_percent IS NOT NULL AND ((l_line_rec.capital_reduction_percent/100)*l_line_rec.oec) <> l_down_pmnt_line_rec.rule_information6)) THEN
7531: --Bug 6417667 End
7532: Okl_Api.set_message(
7533: p_app_name => G_APP_NAME,
7534: p_msg_name => 'OKL_QA_SQ_DOWN_PMNT_MISMATCH');
7535: x_return_status := Okl_Api.G_RET_STS_ERROR;
7536: END IF;
7531: --Bug 6417667 End
7532: Okl_Api.set_message(
7533: p_app_name => G_APP_NAME,
7534: p_msg_name => 'OKL_QA_SQ_DOWN_PMNT_MISMATCH');
7535: x_return_status := Okl_Api.G_RET_STS_ERROR;
7536: END IF;
7537:
7538: END LOOP;
7539:
7538: END LOOP;
7539:
7540: IF (l_num_pmnt_lines > 1) THEN
7541: --RAISE ERROR cannot have more than one down payment line.
7542: Okl_Api.set_message(
7543: p_app_name => G_APP_NAME,
7544: p_msg_name => 'OKL_QA_SQ_DOWN_PMNT_LN_GT1');
7545: x_return_status := Okl_Api.G_RET_STS_ERROR;
7546: END IF;
7541: --RAISE ERROR cannot have more than one down payment line.
7542: Okl_Api.set_message(
7543: p_app_name => G_APP_NAME,
7544: p_msg_name => 'OKL_QA_SQ_DOWN_PMNT_LN_GT1');
7545: x_return_status := Okl_Api.G_RET_STS_ERROR;
7546: END IF;
7547:
7548: ELSE -- Capitalize Flag = 'Y', Start fix for bug 7131895
7549: Okl_Streams_Util.get_pricing_engine(p_khr_id => p_chr_id,
7548: ELSE -- Capitalize Flag = 'Y', Start fix for bug 7131895
7549: Okl_Streams_Util.get_pricing_engine(p_khr_id => p_chr_id,
7550: x_pricing_engine => l_pricing_engine,
7551: x_return_status => l_return_status);
7552: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7553: x_return_status := l_return_status;
7554: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
7555: END IF;
7556:
7550: x_pricing_engine => l_pricing_engine,
7551: x_return_status => l_return_status);
7552: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7553: x_return_status := l_return_status;
7554: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
7555: END IF;
7556:
7557: --RAISE ERROR if pricing engine is 'EXTERNAL' and tax owner='LESSOR'
7558: IF ((l_pricing_engine = 'EXTERNAL') AND (l_tax_owner ='LESSOR')) THEN
7555: END IF;
7556:
7557: --RAISE ERROR if pricing engine is 'EXTERNAL' and tax owner='LESSOR'
7558: IF ((l_pricing_engine = 'EXTERNAL') AND (l_tax_owner ='LESSOR')) THEN
7559: Okl_Api.set_message(
7560: p_app_name => G_APP_NAME,
7561: p_msg_name => 'OKL_QA_SQ_DOWN_PMNT_TAXOWNER');
7562: x_return_status := Okl_Api.G_RET_STS_ERROR;
7563: END IF;
7558: IF ((l_pricing_engine = 'EXTERNAL') AND (l_tax_owner ='LESSOR')) THEN
7559: Okl_Api.set_message(
7560: p_app_name => G_APP_NAME,
7561: p_msg_name => 'OKL_QA_SQ_DOWN_PMNT_TAXOWNER');
7562: x_return_status := Okl_Api.G_RET_STS_ERROR;
7563: END IF;
7564: -- End fix for bug 7131895
7565: --if payment existence throw error
7566: OPEN l_down_pmnt_check_csr(l_line_rec.id);
7569: CLOSE l_down_pmnt_check_csr;
7570:
7571: IF (l_exists) THEN
7572: --RAISE ERROR no payment required for non capitalized assets.
7573: Okl_Api.set_message(
7574: p_app_name => G_APP_NAME,
7575: p_msg_name => 'OKL_QA_SQ_CAPITALIZED_AST');
7576: x_return_status := Okl_Api.G_RET_STS_ERROR;
7577:
7572: --RAISE ERROR no payment required for non capitalized assets.
7573: Okl_Api.set_message(
7574: p_app_name => G_APP_NAME,
7575: p_msg_name => 'OKL_QA_SQ_CAPITALIZED_AST');
7576: x_return_status := Okl_Api.G_RET_STS_ERROR;
7577:
7578: END IF;
7579:
7580: END IF;
7584: END LOOP;
7585:
7586: IF(l_hdr_tradein_amt IS NOT NULL) THEN
7587: IF (l_asset_tradein_amt <> l_hdr_tradein_amt) THEN
7588: Okl_Api.set_message(
7589: p_app_name => G_APP_NAME,
7590: p_msg_name => 'OKL_QA_SQ_TRADEIN_AMT');
7591: x_return_status := Okl_Api.G_RET_STS_ERROR;
7592: END IF;
7587: IF (l_asset_tradein_amt <> l_hdr_tradein_amt) THEN
7588: Okl_Api.set_message(
7589: p_app_name => G_APP_NAME,
7590: p_msg_name => 'OKL_QA_SQ_TRADEIN_AMT');
7591: x_return_status := Okl_Api.G_RET_STS_ERROR;
7592: END IF;
7593: END IF;
7594:
7595: IF (NOT l_asset_tradein_yes) THEN
7592: END IF;
7593: END IF;
7594:
7595: IF (NOT l_asset_tradein_yes) THEN
7596: Okl_Api.set_message(
7597: p_app_name => G_APP_NAME,
7598: p_msg_name => 'OKL_QA_SQ_TRADEIN_ASSOC');
7599: x_return_status := Okl_Api.G_RET_STS_ERROR;
7600: END IF;
7595: IF (NOT l_asset_tradein_yes) THEN
7596: Okl_Api.set_message(
7597: p_app_name => G_APP_NAME,
7598: p_msg_name => 'OKL_QA_SQ_TRADEIN_ASSOC');
7599: x_return_status := Okl_Api.G_RET_STS_ERROR;
7600: END IF;
7601:
7602: EXCEPTION
7603:
7605: -- no processing necessary; validation can continue with next column
7606: NULL;
7607: WHEN OTHERS THEN
7608: -- store SQL error message on message stack
7609: Okl_Api.SET_MESSAGE(
7610: p_app_name => G_APP_NAME,
7611: p_msg_name => G_UNEXPECTED_ERROR,
7612: p_token1 => G_SQLCODE_TOKEN,
7613: p_token1_value => SQLCODE,
7613: p_token1_value => SQLCODE,
7614: p_token2 => G_SQLERRM_TOKEN,
7615: p_token2_value => SQLERRM);
7616: -- notify caller of an error as UNEXPETED error
7617: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
7618: -- verify that cursor was closed
7619: IF l_hdr_csr%ISOPEN THEN
7620: CLOSE l_hdr_csr;
7621: END IF;
7638: x_return_status OUT NOCOPY VARCHAR2,
7639: p_chr_id IN NUMBER
7640: ) IS
7641:
7642: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
7643: l_dummy VARCHAR2(1) := '?';
7644: l_count NUMBER := 0;
7645: l_row_notfound BOOLEAN;
7646: l_token VARCHAR2(2000);
7739: l_passthru_vendor_id OKC_K_PARTY_ROLES_B.OBJECT1_ID1%TYPE;
7740: l_site_valid VARCHAR2(1) := '?';
7741: l_passthru_present VARCHAR2(1) := 'N';
7742:
7743: lx_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
7744: x_msg_count NUMBER;
7745: x_msg_data VARCHAR2(1000);
7746: --l_tax_owner VARCHAR2(100);
7747:
7884:
7885: BEGIN
7886:
7887: -- initialize return status
7888: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
7889:
7890: /*Bug#4186455
7891: *--Bug#3877032
7892: *OPEN l_hdrrl_csr('LATOWN', 'LATOWN', TO_NUMBER(p_chr_id));
7921: CLOSE chk_rpt_prod_id;
7922:
7923: IF (NVL(l_secondary_rep_method, '?') = 'NOT_APPLICABLE') THEN
7924: IF (l_reporting_pdt_id IS NOT NULL AND
7925: l_reporting_pdt_id <> OKL_API.G_MISS_NUM) THEN
7926: Okl_Api.set_message(
7927: p_app_name => G_APP_NAME,
7928: p_msg_name => 'OKL_QA_RPT_MISMATCH'); -- MGAAP 7263041
7929: x_return_status := Okl_Api.G_RET_STS_ERROR;
7922:
7923: IF (NVL(l_secondary_rep_method, '?') = 'NOT_APPLICABLE') THEN
7924: IF (l_reporting_pdt_id IS NOT NULL AND
7925: l_reporting_pdt_id <> OKL_API.G_MISS_NUM) THEN
7926: Okl_Api.set_message(
7927: p_app_name => G_APP_NAME,
7928: p_msg_name => 'OKL_QA_RPT_MISMATCH'); -- MGAAP 7263041
7929: x_return_status := Okl_Api.G_RET_STS_ERROR;
7930: RAISE G_EXCEPTION_HALT_VALIDATION;
7925: l_reporting_pdt_id <> OKL_API.G_MISS_NUM) THEN
7926: Okl_Api.set_message(
7927: p_app_name => G_APP_NAME,
7928: p_msg_name => 'OKL_QA_RPT_MISMATCH'); -- MGAAP 7263041
7929: x_return_status := Okl_Api.G_RET_STS_ERROR;
7930: RAISE G_EXCEPTION_HALT_VALIDATION;
7931: END IF;
7932: END IF;
7933:
7932: END IF;
7933:
7934: /*Bug# 3670104
7935: *If( l_hdr.DATE_SIGNED >= l_hdr.START_DATE) Then
7936: * OKL_API.set_message(
7937: * p_app_name => G_APP_NAME,
7938: * p_msg_name => 'OKL_QA_DATESIGNED_LT_START');
7939: * -- notify caller of an error
7940: * x_return_status := OKL_API.G_RET_STS_ERROR;
7936: * OKL_API.set_message(
7937: * p_app_name => G_APP_NAME,
7938: * p_msg_name => 'OKL_QA_DATESIGNED_LT_START');
7939: * -- notify caller of an error
7940: * x_return_status := OKL_API.G_RET_STS_ERROR;
7941: *End If;
7942: */
7943:
7944: OPEN l_contract_name(l_hdr.contract_number);
7950: CLOSE l_contract_name;
7951:
7952: /*
7953: *If( l_cn.cnt > 1) Then
7954: * OKL_API.set_message(
7955: * p_app_name => G_APP_NAME,
7956: * p_msg_name => 'OKL_QA_CN_NOTUNQ');
7957: * -- notify caller of an error
7958: * x_return_status := OKL_API.G_RET_STS_ERROR;
7954: * OKL_API.set_message(
7955: * p_app_name => G_APP_NAME,
7956: * p_msg_name => 'OKL_QA_CN_NOTUNQ');
7957: * -- notify caller of an error
7958: * x_return_status := OKL_API.G_RET_STS_ERROR;
7959: *End If;
7960: */
7961:
7962:
7969:
7970: END LOOP;
7971:
7972: IF( ( l_structure > 3) AND (l_hdr.DEAL_TYPE <> 'LOAN-REVOLVING')) THEN
7973: Okl_Api.set_message(
7974: p_app_name => G_APP_NAME,
7975: p_msg_name => 'OKL_QA_STRUCTURE_NA');
7976: -- notify caller of an error
7977: x_return_status := Okl_Api.G_RET_STS_ERROR;
7973: Okl_Api.set_message(
7974: p_app_name => G_APP_NAME,
7975: p_msg_name => 'OKL_QA_STRUCTURE_NA');
7976: -- notify caller of an error
7977: x_return_status := Okl_Api.G_RET_STS_ERROR;
7978: END IF;
7979:
7980: --bug# 2753114
7981: IF( l_hdr.report_pdt_id <> -1 ) THEN
7986: FETCH l_rpt_csr INTO l_rpt_rec;
7987: --Bug#3877032
7988: IF ( l_rpt_csr%NOTFOUND ) THEN
7989: --IF ( nvl(l_rpt_rec.isThere, 'N' ) = 'N' ) THEN
7990: Okl_Api.set_message(
7991: p_app_name => G_APP_NAME,
7992: p_msg_name => 'OKL_QA_NO_REPTXBK');
7993: -- notify caller of an error
7994: x_return_status := Okl_Api.G_RET_STS_ERROR;
7990: Okl_Api.set_message(
7991: p_app_name => G_APP_NAME,
7992: p_msg_name => 'OKL_QA_NO_REPTXBK');
7993: -- notify caller of an error
7994: x_return_status := Okl_Api.G_RET_STS_ERROR;
7995: END IF;
7996: CLOSE l_rpt_csr;
7997:
7998: END IF;
7999:
8000: OPEN l_lne_csr('FREE_FORM1', p_chr_id);
8001: FETCH l_lne_csr INTO l_lne;
8002: IF( (l_hdr.DEAL_TYPE = 'LOAN-REVOLVING') AND l_lne_csr%FOUND AND (l_hdr.report_pdt_id = -1) ) THEN
8003: Okl_Api.set_message(
8004: p_app_name => G_APP_NAME,
8005: p_msg_name => 'OKL_QA_ASST_LNR');
8006: -- notify caller of an error
8007: x_return_status := Okl_Api.G_RET_STS_ERROR;
8003: Okl_Api.set_message(
8004: p_app_name => G_APP_NAME,
8005: p_msg_name => 'OKL_QA_ASST_LNR');
8006: -- notify caller of an error
8007: x_return_status := Okl_Api.G_RET_STS_ERROR;
8008: CLOSE l_lne_csr;
8009: RAISE G_EXCEPTION_HALT_VALIDATION;
8010: ELSIF( (l_hdr.DEAL_TYPE <> 'LOAN-REVOLVING') AND l_lne_csr%NOTFOUND ) THEN
8011: Okl_Api.set_message(
8007: x_return_status := Okl_Api.G_RET_STS_ERROR;
8008: CLOSE l_lne_csr;
8009: RAISE G_EXCEPTION_HALT_VALIDATION;
8010: ELSIF( (l_hdr.DEAL_TYPE <> 'LOAN-REVOLVING') AND l_lne_csr%NOTFOUND ) THEN
8011: Okl_Api.set_message(
8012: p_app_name => G_APP_NAME,
8013: p_msg_name => 'OKL_QA_NO_ASSETS');
8014: -- notify caller of an error
8015: x_return_status := Okl_Api.G_RET_STS_ERROR;
8011: Okl_Api.set_message(
8012: p_app_name => G_APP_NAME,
8013: p_msg_name => 'OKL_QA_NO_ASSETS');
8014: -- notify caller of an error
8015: x_return_status := Okl_Api.G_RET_STS_ERROR;
8016: END IF;
8017: CLOSE l_lne_csr;
8018:
8019: --Bug# 4631549
8016: END IF;
8017: CLOSE l_lne_csr;
8018:
8019: --Bug# 4631549
8020: l_release_contract_yn := okl_api.g_false;
8021: l_release_contract_yn := okl_lla_util_pvt.check_release_contract(p_chr_id => p_chr_id);
8022:
8023: FOR l_lne IN l_lne_csr('FREE_FORM1', p_chr_id)
8024: LOOP
8031: END IF;
8032: CLOSE l_line_name;
8033:
8034: If( l_ln.cnt > 1) Then
8035: OKL_API.set_message(
8036: p_app_name => G_APP_NAME,
8037: p_msg_name => 'OKL_QA_AN_NOTUNQ');
8038: -- notify caller of an error
8039: x_return_status := OKL_API.G_RET_STS_ERROR;
8035: OKL_API.set_message(
8036: p_app_name => G_APP_NAME,
8037: p_msg_name => 'OKL_QA_AN_NOTUNQ');
8038: -- notify caller of an error
8039: x_return_status := OKL_API.G_RET_STS_ERROR;
8040: End If;
8041:
8042: */
8043:
8041:
8042: */
8043:
8044: --Bug# 4631549
8045: If l_release_contract_yn = okl_api.g_true then
8046: l_oec := l_lne.expected_asset_cost;
8047: else
8048: l_oec := l_lne.oec;
8049: end if;
8050:
8051: --Bug# 4631549
8052: IF ( l_lne.RESIDUAL_VALUE > l_OEC ) Then
8053: --IF ( l_lne.RESIDUAL_VALUE > l_lne.OEC ) THEN
8054: Okl_Api.set_message(
8055: p_app_name => G_APP_NAME,
8056: p_msg_name => 'OKL_QA_RES_GT_OEC',
8057: p_token1 => 'line',
8058: p_token1_value => l_lne.name);
8056: p_msg_name => 'OKL_QA_RES_GT_OEC',
8057: p_token1 => 'line',
8058: p_token1_value => l_lne.name);
8059: -- notify caller of an error
8060: x_return_status := Okl_Api.G_RET_STS_ERROR;
8061: END IF;
8062:
8063: --Bug# 4631549
8064: If ( l_lne.CAPITAL_REDUCTION > l_OEC) Then
8062:
8063: --Bug# 4631549
8064: If ( l_lne.CAPITAL_REDUCTION > l_OEC) Then
8065: --IF ( l_lne.CAPITAL_REDUCTION > l_lne.OEC) THEN
8066: Okl_Api.set_message(
8067: p_app_name => G_APP_NAME,
8068: p_msg_name => 'OKL_QA_CAPRED_LT_OEC',
8069: p_token1 => 'line',
8070: p_token1_value => l_lne.name);
8068: p_msg_name => 'OKL_QA_CAPRED_LT_OEC',
8069: p_token1 => 'line',
8070: p_token1_value => l_lne.name);
8071: -- notify caller of an error
8072: x_return_status := Okl_Api.G_RET_STS_ERROR;
8073: END IF;
8074: --Bug# 4631549
8075: If ( l_lne.TRADEIN_AMOUNT > l_OEC) Then
8076: --IF ( l_lne.TRADEIN_AMOUNT > l_lne.OEC) THEN
8073: END IF;
8074: --Bug# 4631549
8075: If ( l_lne.TRADEIN_AMOUNT > l_OEC) Then
8076: --IF ( l_lne.TRADEIN_AMOUNT > l_lne.OEC) THEN
8077: Okl_Api.set_message(
8078: p_app_name => G_APP_NAME,
8079: p_msg_name => 'OKL_QA_TRADN_LT_CAP',
8080: p_token1 => 'line',
8081: p_token1_value => l_lne.name);
8078: p_app_name => G_APP_NAME,
8079: p_msg_name => 'OKL_QA_TRADN_LT_CAP',
8080: p_token1 => 'line',
8081: p_token1_value => l_lne.name);
8082: x_return_status := Okl_Api.G_RET_STS_ERROR;
8083: END IF;
8084:
8085: IF (( UPPER(l_lne.residual_code) = 'NONE') AND (l_lne.residual_grnty_amount IS NOT NULL)) THEN
8086: Okl_Api.set_message(
8082: x_return_status := Okl_Api.G_RET_STS_ERROR;
8083: END IF;
8084:
8085: IF (( UPPER(l_lne.residual_code) = 'NONE') AND (l_lne.residual_grnty_amount IS NOT NULL)) THEN
8086: Okl_Api.set_message(
8087: p_app_name => G_APP_NAME,
8088: p_msg_name => 'OKL_QA_NO_RESIDUAL_GRNTY',
8089: p_token1 => 'line',
8090: p_token1_value => l_lne.name);
8087: p_app_name => G_APP_NAME,
8088: p_msg_name => 'OKL_QA_NO_RESIDUAL_GRNTY',
8089: p_token1 => 'line',
8090: p_token1_value => l_lne.name);
8091: x_return_status := Okl_Api.G_RET_STS_ERROR;
8092: END IF;
8093:
8094: IF ((INSTR( l_hdr.DEAL_TYPE, 'OP' )>0) AND ( l_lne.RVI_PREMIUM IS NOT NULL)) THEN
8095: Okl_Api.set_message(
8091: x_return_status := Okl_Api.G_RET_STS_ERROR;
8092: END IF;
8093:
8094: IF ((INSTR( l_hdr.DEAL_TYPE, 'OP' )>0) AND ( l_lne.RVI_PREMIUM IS NOT NULL)) THEN
8095: Okl_Api.set_message(
8096: p_app_name => G_APP_NAME,
8097: p_msg_name => 'OKL_QA_OP_NORVINSU',
8098: p_token1 => 'line',
8099: p_token1_value => l_lne.name);
8096: p_app_name => G_APP_NAME,
8097: p_msg_name => 'OKL_QA_OP_NORVINSU',
8098: p_token1 => 'line',
8099: p_token1_value => l_lne.name);
8100: x_return_status := Okl_Api.G_RET_STS_ERROR;
8101: END IF;
8102:
8103: i := 0;
8104: IF ( l_structure > 0 ) THEN
8108: i := i + 1;
8109: END IF;
8110: END LOOP;
8111: IF (i > 1) THEN
8112: Okl_Api.set_message(
8113: p_app_name => G_APP_NAME,
8114: p_msg_name => 'OKL_QA_GT_ONE_PMT',
8115: p_token1 => 'line',
8116: p_token1_value => l_lne.name);
8113: p_app_name => G_APP_NAME,
8114: p_msg_name => 'OKL_QA_GT_ONE_PMT',
8115: p_token1 => 'line',
8116: p_token1_value => l_lne.name);
8117: x_return_status := Okl_Api.G_RET_STS_ERROR;
8118: END IF;
8119: END IF;
8120:
8121: OPEN asst_qty_csr(FinAsstId => l_lne.id);
8129: OPEN l_txl_csr(l_asst.fa_id);
8130: FETCH l_txl_csr INTO l_txl;
8131: IF l_txl_csr%NOTFOUND THEN
8132: CLOSE l_txl_csr;
8133: Okl_Api.set_message(
8134: p_app_name => G_APP_NAME,
8135: p_msg_name => 'OKL_QA_NO_DEPRECIATION',
8136: p_token1 => 'line',
8137: p_token1_value => l_lne.name);
8134: p_app_name => G_APP_NAME,
8135: p_msg_name => 'OKL_QA_NO_DEPRECIATION',
8136: p_token1 => 'line',
8137: p_token1_value => l_lne.name);
8138: x_return_status := Okl_Api.G_RET_STS_ERROR;
8139: RAISE G_EXCEPTION_HALT_VALIDATION;
8140: END IF;
8141: CLOSE l_txl_csr;
8142:
8140: END IF;
8141: CLOSE l_txl_csr;
8142:
8143: IF( l_txl.fa_location_id IS NULL ) THEN
8144: Okl_Api.set_message(
8145: p_app_name => G_APP_NAME,
8146: p_msg_name => 'OKL_QA_NO_FA_LOCATION',
8147: p_token1 => 'line',
8148: p_token1_value => l_lne.name);
8145: p_app_name => G_APP_NAME,
8146: p_msg_name => 'OKL_QA_NO_FA_LOCATION',
8147: p_token1 => 'line',
8148: p_token1_value => l_lne.name);
8149: x_return_status := Okl_Api.G_RET_STS_ERROR;
8150: END IF;
8151:
8152: OPEN l_txd_csr(l_asst.fa_id);
8153: FETCH l_txd_csr INTO l_txd;
8152: OPEN l_txd_csr(l_asst.fa_id);
8153: FETCH l_txd_csr INTO l_txd;
8154: IF l_txd_csr%NOTFOUND THEN
8155: CLOSE l_txd_csr;
8156: Okl_Api.set_message(
8157: p_app_name => G_APP_NAME,
8158: p_msg_name => 'OKL_QA_NO_TAX',
8159: p_token1 => 'line',
8160: p_token1_value => l_lne.name);
8157: p_app_name => G_APP_NAME,
8158: p_msg_name => 'OKL_QA_NO_TAX',
8159: p_token1 => 'line',
8160: p_token1_value => l_lne.name);
8161: x_return_status := Okl_Api.G_RET_STS_ERROR;
8162: RAISE G_EXCEPTION_HALT_VALIDATION;
8163: END IF;
8164: CLOSE l_txd_csr;
8165:
8169: (l_txl.deprn_method IS NULL)OR(l_txl.in_service_date IS NULL)OR
8170: ((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
8171: --|end 28-Oct-2008 cklee Fixed Bug 7492324 |
8172:
8173: Okl_Api.set_message(
8174: p_app_name => G_APP_NAME,
8175: p_msg_name => 'OKL_QA_NO_DEPRECIATION',
8176: p_token1 => 'line',
8177: p_token1_value => l_lne.name);
8174: p_app_name => G_APP_NAME,
8175: p_msg_name => 'OKL_QA_NO_DEPRECIATION',
8176: p_token1 => 'line',
8177: p_token1_value => l_lne.name);
8178: x_return_status := Okl_Api.G_RET_STS_ERROR;
8179: ELSIF((l_txd.cost IS NULL)OR(l_txd.deprn_method_tax IS NULL))THEN
8180: Okl_Api.set_message(
8181: p_app_name => G_APP_NAME,
8182: p_msg_name => 'OKL_QA_NO_TAX',
8176: p_token1 => 'line',
8177: p_token1_value => l_lne.name);
8178: x_return_status := Okl_Api.G_RET_STS_ERROR;
8179: ELSIF((l_txd.cost IS NULL)OR(l_txd.deprn_method_tax IS NULL))THEN
8180: Okl_Api.set_message(
8181: p_app_name => G_APP_NAME,
8182: p_msg_name => 'OKL_QA_NO_TAX',
8183: p_token1 => 'line',
8184: p_token1_value => l_lne.name);
8181: p_app_name => G_APP_NAME,
8182: p_msg_name => 'OKL_QA_NO_TAX',
8183: p_token1 => 'line',
8184: p_token1_value => l_lne.name);
8185: x_return_status := Okl_Api.G_RET_STS_ERROR;
8186:
8187: /* made a separate process check_tax_book_cost()
8188:
8189: ElsIf(l_txd.cost < l_txl.depreciation_cost)Then
8186:
8187: /* made a separate process check_tax_book_cost()
8188:
8189: ElsIf(l_txd.cost < l_txl.depreciation_cost)Then
8190: OKL_API.set_message(
8191: p_app_name => G_APP_NAME,
8192: p_msg_name => 'OKL_QA_BASISPCNT_GT_100',
8193: p_token1 => 'line',
8194: p_token1_value => l_lne.name);
8191: p_app_name => G_APP_NAME,
8192: p_msg_name => 'OKL_QA_BASISPCNT_GT_100',
8193: p_token1 => 'line',
8194: p_token1_value => l_lne.name);
8195: x_return_status := OKL_API.G_RET_STS_ERROR;
8196: */
8197: IF(l_hdr.term > ( 0.75*l_txl.life_in_months))THEN
8198: Okl_Api.set_message(
8199: p_app_name => G_APP_NAME,
8194: p_token1_value => l_lne.name);
8195: x_return_status := OKL_API.G_RET_STS_ERROR;
8196: */
8197: IF(l_hdr.term > ( 0.75*l_txl.life_in_months))THEN
8198: Okl_Api.set_message(
8199: p_app_name => G_APP_NAME,
8200: p_msg_name => 'OKL_QA_OP_TERM_LIM',
8201: p_token1 => 'line',
8202: p_token1_value => l_lne.name);
8199: p_app_name => G_APP_NAME,
8200: p_msg_name => 'OKL_QA_OP_TERM_LIM',
8201: p_token1 => 'line',
8202: p_token1_value => l_lne.name);
8203: x_return_status := Okl_Api.G_RET_STS_ERROR;
8204: END IF;
8205: END IF;
8206:
8207: --
8209: --
8210: FOR l_txd_rec1 IN txd_csr1 (l_asst.fa_id)
8211: LOOP
8212: IF (l_txd_rec1.book_count > 1) THEN
8213: Okl_Api.set_message(
8214: p_app_name => G_APP_NAME,
8215: p_msg_name => 'OKL_QA_MULTI_TAX_BOOK',
8216: p_token1 => 'ASSET_NUM',
8217: p_token1_value => l_lne.name,
8216: p_token1 => 'ASSET_NUM',
8217: p_token1_value => l_lne.name,
8218: p_token2 => 'BOOK_TYPE',
8219: p_token2_value => l_txd_rec1.book_type);
8220: x_return_status := Okl_Api.G_RET_STS_ERROR;
8221:
8222: END IF;
8223: END LOOP;
8224:
8230: FETCH l_corpbook_csr INTO l_valid_corpbook;
8231: CLOSE l_corpbook_csr;
8232:
8233: IF l_valid_corpbook = '?' THEN
8234: Okl_Api.set_message(
8235: p_app_name => G_APP_NAME,
8236: p_msg_name => 'OKL_QA_INVALID_CORP_BOOK',
8237: p_token1 => 'ASSET_NUMBER',
8238: p_token1_value => l_lne.name);
8235: p_app_name => G_APP_NAME,
8236: p_msg_name => 'OKL_QA_INVALID_CORP_BOOK',
8237: p_token1 => 'ASSET_NUMBER',
8238: p_token1_value => l_lne.name);
8239: x_return_status := Okl_Api.G_RET_STS_ERROR;
8240: END IF;
8241:
8242: IF (l_txl.corporate_book <> l_system_corp_book) THEN
8243: Okl_Api.set_message(
8239: x_return_status := Okl_Api.G_RET_STS_ERROR;
8240: END IF;
8241:
8242: IF (l_txl.corporate_book <> l_system_corp_book) THEN
8243: Okl_Api.set_message(
8244: p_app_name => G_APP_NAME,
8245: p_msg_name => 'OKL_QA_CORP_MISMATCH'); -- MGAAP 7263041
8246: x_return_status := Okl_Api.G_RET_STS_ERROR;
8247: END IF;
8242: IF (l_txl.corporate_book <> l_system_corp_book) THEN
8243: Okl_Api.set_message(
8244: p_app_name => G_APP_NAME,
8245: p_msg_name => 'OKL_QA_CORP_MISMATCH'); -- MGAAP 7263041
8246: x_return_status := Okl_Api.G_RET_STS_ERROR;
8247: END IF;
8248:
8249: --------------
8250: --Bug# 4103361
8267: NULL;
8268: END IF;
8269: CLOSE l_fa_cat_csr;
8270:
8271: Okl_Api.set_message(
8272: p_app_name => G_APP_NAME,
8273: p_msg_name => 'OKL_QA_INVALID_FA_BOOK_CAT',
8274: p_token1 => 'FA_CATEGORY',
8275: p_token1_value => l_fa_cat_name,
8276: p_token2 => 'FA_BOOK',
8277: p_token2_value => l_txl.corporate_book,
8278: p_token3 => 'line',
8279: p_token3_value => l_lne.name);
8280: x_return_status := Okl_Api.G_RET_STS_ERROR;
8281: END IF;
8282:
8283: --check asset category-book combination for tax books
8284: FOR l_txd_rec IN l_txd_csr(kleid => l_asst.fa_id)
8300: NULL;
8301: END IF;
8302: CLOSE l_fa_cat_csr;
8303:
8304: Okl_Api.set_message(
8305: p_app_name => G_APP_NAME,
8306: p_msg_name => 'OKL_QA_INVALID_FA_BOOK_CAT',
8307: p_token1 => 'FA_CATEGORY',
8308: p_token1_value => l_fa_cat_name,
8309: p_token2 => 'FA_BOOK',
8310: p_token2_value => l_txd_rec.tax_book,
8311: p_token3 => 'line',
8312: p_token3_value => l_lne.name);
8313: x_return_status := Okl_Api.G_RET_STS_ERROR;
8314: END IF;
8315: END LOOP;
8316: --------------
8317: --Bug# 4103361
8330: IF((l_lne.RESIDUAL_VALUE > 0)OR
8331: (l_txl.salvage_value > 0)OR
8332: (l_txl.percent_salvage_value > 0)) THEN
8333:
8334: Okl_Api.set_message(
8335: p_app_name => G_APP_NAME,
8336: p_msg_name => 'OKL_QA_LNCTRT_NORVSV',
8337: p_token1 => 'line',
8338: p_token1_value => l_lne.name);
8335: p_app_name => G_APP_NAME,
8336: p_msg_name => 'OKL_QA_LNCTRT_NORVSV',
8337: p_token1 => 'line',
8338: p_token1_value => l_lne.name);
8339: x_return_status := Okl_Api.G_RET_STS_ERROR;
8340:
8341: END IF;
8342:
8343: IF( l_txl.fa_location_id IS NOT NULL ) THEN
8340:
8341: END IF;
8342:
8343: IF( l_txl.fa_location_id IS NOT NULL ) THEN
8344: Okl_Api.set_message(
8345: p_app_name => G_APP_NAME,
8346: p_msg_name => 'OKL_QA_LOAN_FA_LOCATION',
8347: p_token1 => 'line',
8348: p_token1_value => l_lne.name);
8345: p_app_name => G_APP_NAME,
8346: p_msg_name => 'OKL_QA_LOAN_FA_LOCATION',
8347: p_token1 => 'line',
8348: p_token1_value => l_lne.name);
8349: x_return_status := Okl_Api.G_RET_STS_ERROR;
8350: END IF;
8351:
8352: END IF;
8353:
8358: -- bug 5034519. changed from contract start date to asset start date
8359: -- also changed message from OKL_QA_VNDRDATES_GT_STARTDATE
8360: --ELSIF( l_supp_rec.date_invoiced > l_hdr.start_date ) THEN
8361: ELSIF( l_supp_rec.date_invoiced > l_lne.start_date ) THEN
8362: Okl_Api.set_message(
8363: p_app_name => G_APP_NAME,
8364: --p_msg_name => 'OKL_QA_VNDRDATES_GT_STARTDATE',
8365: p_msg_name => 'OKL_QA_INV_SUPPDATE',
8366: p_token1 => 'line',
8364: --p_msg_name => 'OKL_QA_VNDRDATES_GT_STARTDATE',
8365: p_msg_name => 'OKL_QA_INV_SUPPDATE',
8366: p_token1 => 'line',
8367: p_token1_value => l_lne.name);
8368: x_return_status := Okl_Api.G_RET_STS_ERROR;
8369: END IF;
8370: CLOSE supp_csr;
8371:
8372: /*Bug#3877032
8377:
8378: /*Bug#4186455
8379: *If (( l_lne.residual_value < (0.2 * l_lne.OEC)) AND (l_tax_owner = 'LESSOR')) then
8380: *--If (( l_lne.residual_value < (0.2 * l_lne.OEC)) AND (l_hdrrl_rec.RULE_INFORMATION1 = 'LESSOR')) then
8381: * OKL_API.set_message(
8382: * p_app_name => G_APP_NAME,
8383: * p_msg_name => 'OKL_QA_RV_OEC_TOWN',
8384: * p_token1 => 'line',
8385: * p_token1_value => l_lne.name);
8382: * p_app_name => G_APP_NAME,
8383: * p_msg_name => 'OKL_QA_RV_OEC_TOWN',
8384: * p_token1 => 'line',
8385: * p_token1_value => l_lne.name);
8386: * x_return_status := OKL_API.G_RET_STS_ERROR;
8387: *END IF;
8388: */
8389:
8390: OPEN l_rl_csr1( 'LALEVL', 'LASLH', TO_NUMBER(p_chr_id), l_lne.id );
8389:
8390: OPEN l_rl_csr1( 'LALEVL', 'LASLH', TO_NUMBER(p_chr_id), l_lne.id );
8391: FETCH l_rl_csr1 INTO l_rl_rec1;
8392: IF l_rl_csr1%NOTFOUND THEN
8393: Okl_Api.set_message(
8394: p_app_name => G_APP_NAME,
8395: p_msg_name => 'OKL_QA_NO_PAYMENTS',
8396: p_token1 => 'line',
8397: p_token1_value => l_lne.name);
8394: p_app_name => G_APP_NAME,
8395: p_msg_name => 'OKL_QA_NO_PAYMENTS',
8396: p_token1 => 'line',
8397: p_token1_value => l_lne.name);
8398: x_return_status := Okl_Api.G_RET_STS_ERROR;
8399: END IF;
8400: CLOSE l_rl_csr1;
8401:
8402:
8412: OPEN asst_qty_csr(FinAsstId => l_itm.FinAssetId);
8413: FETCH asst_qty_csr INTO l_asst;
8414: IF asst_qty_csr%NOTFOUND THEN
8415: CLOSE asst_qty_csr;
8416: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
8417: ELSE
8418: OPEN ib_qty_csr(FinAsstId => l_itm.FinAssetId);
8419: FETCH ib_qty_csr INTO l_ib_qty;
8420: IF ib_qty_csr%NOTFOUND THEN
8418: OPEN ib_qty_csr(FinAsstId => l_itm.FinAssetId);
8419: FETCH ib_qty_csr INTO l_ib_qty;
8420: IF ib_qty_csr%NOTFOUND THEN
8421: CLOSE ib_qty_csr;
8422: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
8423: END IF;
8424: CLOSE ib_qty_csr;
8425: END IF;
8426: CLOSE asst_qty_csr;
8426: CLOSE asst_qty_csr;
8427: i := i + 1;
8428:
8429: IF l_asst.number_of_items <> l_ib_qty THEN
8430: Okl_Api.set_message(
8431: p_app_name => G_APP_NAME,
8432: p_msg_name => 'OKL_QA_USAGE_1ITM',
8433: p_token1 => 'usage line',
8434: p_token1_value => TO_CHAR(i));
8431: p_app_name => G_APP_NAME,
8432: p_msg_name => 'OKL_QA_USAGE_1ITM',
8433: p_token1 => 'usage line',
8434: p_token1_value => TO_CHAR(i));
8435: x_return_status := Okl_Api.G_RET_STS_ERROR;
8436: END IF;
8437:
8438: END LOOP;
8439:
8438: END LOOP;
8439:
8440:
8441: IF ( i = 0 ) THEN
8442: Okl_Api.set_message(
8443: p_app_name => G_APP_NAME,
8444: p_msg_name => 'OKL_QA_UBB_1ASSET');
8445: x_return_status := Okl_Api.G_RET_STS_ERROR;
8446: END IF;
8441: IF ( i = 0 ) THEN
8442: Okl_Api.set_message(
8443: p_app_name => G_APP_NAME,
8444: p_msg_name => 'OKL_QA_UBB_1ASSET');
8445: x_return_status := Okl_Api.G_RET_STS_ERROR;
8446: END IF;
8447:
8448: END LOOP;
8449:
8473: CLOSE vendor_csr;
8474:
8475: IF (pth_dtl_rec.passthru_term = 'BASE') THEN
8476:
8477: Okl_Api.set_message(
8478: p_app_name => G_APP_NAME,
8479: p_msg_name => 'OKL_QA_INVLD_BASE_PTH_SITE',
8480: p_token1 => 'LINE',
8481: p_token1_value => l_lne.line_style||'/'||l_lne.name,
8480: p_token1 => 'LINE',
8481: p_token1_value => l_lne.line_style||'/'||l_lne.name,
8482: p_token2 => 'VENDOR',
8483: p_token2_value => l_vendor_name);
8484: x_return_status := Okl_Api.G_RET_STS_ERROR;
8485:
8486: ELSIF (pth_dtl_rec.passthru_term = 'EVERGREEN') THEN
8487:
8488: Okl_Api.set_message(
8484: x_return_status := Okl_Api.G_RET_STS_ERROR;
8485:
8486: ELSIF (pth_dtl_rec.passthru_term = 'EVERGREEN') THEN
8487:
8488: Okl_Api.set_message(
8489: p_app_name => G_APP_NAME,
8490: p_msg_name => 'OKL_QA_INVLD_EVGN_PTH_SITE',
8491: p_token1 => 'LINE',
8492: p_token1_value => l_lne.line_style||'/'||l_lne.name,
8491: p_token1 => 'LINE',
8492: p_token1_value => l_lne.line_style||'/'||l_lne.name,
8493: p_token2 => 'VENDOR',
8494: p_token2_value => l_vendor_name);
8495: x_return_status := Okl_Api.G_RET_STS_ERROR;
8496:
8497: END IF;
8498: END IF;
8499: END LOOP;
8511: FETCH party_csr INTO l_vendor_id;
8512: CLOSE party_csr;
8513:
8514: IF (l_vendor_id IS NULL) THEN
8515: Okl_Api.set_message(
8516: G_APP_NAME,
8517: 'OKL_QA_SERVICE_VENDOR',
8518: 'LINE',
8519: l_lne.name
8517: 'OKL_QA_SERVICE_VENDOR',
8518: 'LINE',
8519: l_lne.name
8520: );
8521: x_return_status := Okl_Api.G_RET_STS_ERROR;
8522: END IF;
8523:
8524: -- Payments are mandatory for Service Line if
8525: -- Passthrough has been defined
8551: IF l_rl_csr1%NOTFOUND THEN
8552: -- Bug 5216135 : kbbhavsa : 29-May-06 : start
8553: IF l_link_cle_id IS NULL THEN
8554: -- service not linked to asset, and payment not found at top service line
8555: Okl_Api.set_message(
8556: p_app_name => G_APP_NAME,
8557: p_msg_name => 'OKL_QA_PTH_NO_PAYMENTS',
8558: p_token1 => 'LINE',
8559: p_token1_value => l_lne.name);
8556: p_app_name => G_APP_NAME,
8557: p_msg_name => 'OKL_QA_PTH_NO_PAYMENTS',
8558: p_token1 => 'LINE',
8559: p_token1_value => l_lne.name);
8560: x_return_status := Okl_Api.G_RET_STS_ERROR;
8561: ELSE
8562: -- service linked to asset, and payment not found at linked service asset sub line
8563: IF l_rl_csr1%ISOPEN THEN
8564: CLOSE l_rl_csr1;
8567: OPEN l_rl_csr1( 'LALEVL', 'LASLH', TO_NUMBER(p_chr_id), l_lne.id );
8568: FETCH l_rl_csr1 INTO l_rl_rec1;
8569: IF l_rl_csr1%NOTFOUND THEN
8570: -- service linked to asset, and payment not found at top service line
8571: Okl_Api.set_message(
8572: p_app_name => G_APP_NAME,
8573: p_msg_name => 'OKL_QA_PTH_NO_PAYMENTS',
8574: p_token1 => 'LINE',
8575: p_token1_value => l_lne.name);
8572: p_app_name => G_APP_NAME,
8573: p_msg_name => 'OKL_QA_PTH_NO_PAYMENTS',
8574: p_token1 => 'LINE',
8575: p_token1_value => l_lne.name);
8576: x_return_status := Okl_Api.G_RET_STS_ERROR;
8577: END IF;
8578: END IF;
8579: -- Bug 5216135 : kbbhavsa : 29-May-06 : end
8580: END IF;
8598: CLOSE vendor_csr;
8599:
8600: IF (pth_dtl_rec.passthru_term = 'BASE') THEN
8601:
8602: Okl_Api.set_message(
8603: p_app_name => G_APP_NAME,
8604: p_msg_name => 'OKL_QA_INVLD_BASE_PTH_SITE',
8605: p_token1 => 'LINE',
8606: p_token1_value => l_lne.line_style||'/'||l_lne.name,
8605: p_token1 => 'LINE',
8606: p_token1_value => l_lne.line_style||'/'||l_lne.name,
8607: p_token2 => 'VENDOR',
8608: p_token2_value => l_vendor_name);
8609: x_return_status := Okl_Api.G_RET_STS_ERROR;
8610:
8611: ELSIF (pth_dtl_rec.passthru_term = 'EVERGREEN') THEN
8612:
8613: Okl_Api.set_message(
8609: x_return_status := Okl_Api.G_RET_STS_ERROR;
8610:
8611: ELSIF (pth_dtl_rec.passthru_term = 'EVERGREEN') THEN
8612:
8613: Okl_Api.set_message(
8614: p_app_name => G_APP_NAME,
8615: p_msg_name => 'OKL_QA_INVLD_EVGN_PTH_SITE',
8616: p_token1 => 'LINE',
8617: p_token1_value => l_lne.line_style||'/'||l_lne.name,
8616: p_token1 => 'LINE',
8617: p_token1_value => l_lne.line_style||'/'||l_lne.name,
8618: p_token2 => 'VENDOR',
8619: p_token2_value => l_vendor_name);
8620: x_return_status := Okl_Api.G_RET_STS_ERROR;
8621:
8622: END IF;
8623: END IF;
8624: END LOOP;
8649: CLOSE vendor_csr;
8650:
8651: IF (pth_dtl_rec.passthru_term = 'BASE') THEN
8652:
8653: Okl_Api.set_message(
8654: p_app_name => G_APP_NAME,
8655: p_msg_name => 'OKL_QA_INVLD_BASE_PTH_SITE',
8656: p_token1 => 'LINE',
8657: p_token1_value => l_lne.line_style||'/'||l_lne.name,
8656: p_token1 => 'LINE',
8657: p_token1_value => l_lne.line_style||'/'||l_lne.name,
8658: p_token2 => 'VENDOR',
8659: p_token2_value => l_vendor_name);
8660: x_return_status := Okl_Api.G_RET_STS_ERROR;
8661:
8662: ELSIF (pth_dtl_rec.passthru_term = 'EVERGREEN') THEN
8663:
8664: Okl_Api.set_message(
8660: x_return_status := Okl_Api.G_RET_STS_ERROR;
8661:
8662: ELSIF (pth_dtl_rec.passthru_term = 'EVERGREEN') THEN
8663:
8664: Okl_Api.set_message(
8665: p_app_name => G_APP_NAME,
8666: p_msg_name => 'OKL_QA_INVLD_EVGN_PTH_SITE',
8667: p_token1 => 'LINE',
8668: p_token1_value => l_lne.line_style||'/'||l_lne.name,
8667: p_token1 => 'LINE',
8668: p_token1_value => l_lne.line_style||'/'||l_lne.name,
8669: p_token2 => 'VENDOR',
8670: p_token2_value => l_vendor_name);
8671: x_return_status := Okl_Api.G_RET_STS_ERROR;
8672:
8673: END IF;
8674: END IF;
8675: END LOOP;
8685: FETCH sub_line_amt_csr INTO l_tot_sub_line_amt;
8686: CLOSE sub_line_amt_csr;
8687:
8688: IF (l_tot_sub_line_amt <> line_amt_rec.amount) THEN
8689: Okl_Api.set_message(
8690: G_APP_NAME,
8691: 'OKL_QA_SRV_AMT_MISMATCH',
8692: 'LINE_TYPE',
8693: 'SERVICE',
8693: 'SERVICE',
8694: 'LINE_NUMBER',
8695: line_amt_rec.line_number
8696: );
8697: x_return_status := Okl_Api.G_RET_STS_ERROR;
8698: END IF;
8699:
8700: END LOOP;
8701: -- Bug# 3064121
8708: p_chr_id => p_chr_id,
8709: x_return_status => lx_return_status
8710: );
8711:
8712: IF (lx_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8713: x_return_status := lx_return_status;
8714: END IF;
8715:
8716: --
8718: -- Check credit lines
8719: --
8720: Okl_La_Validation_Util_Pvt.validate_crdtln_err (
8721: p_api_version => 1.0,
8722: p_init_msg_list => Okl_Api.G_FALSE,
8723: x_return_status => lx_return_status,
8724: x_msg_count => x_msg_count,
8725: x_msg_data => x_msg_data,
8726: p_chr_id => p_chr_id
8725: x_msg_data => x_msg_data,
8726: p_chr_id => p_chr_id
8727: );
8728:
8729: IF (lx_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8730: x_return_status := lx_return_status;
8731: END IF;
8732:
8733: -- Bug# 4350255
8740: p_chr_id => p_chr_id,
8741: x_return_status => lx_return_status
8742: );
8743:
8744: IF (lx_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8745: x_return_status := lx_return_status;
8746: END IF;
8747:
8748: --
8752: p_chr_id => p_chr_id,
8753: x_return_status => lx_return_status
8754: );
8755:
8756: IF (lx_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8757: x_return_status := lx_return_status;
8758: END IF;
8759:
8760: --
8764: p_chr_id => p_chr_id,
8765: x_return_status => lx_return_status
8766: );
8767:
8768: IF (lx_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8769: x_return_status := lx_return_status;
8770: END IF;
8771:
8772: --
8777: p_chr_id => p_chr_id,
8778: x_return_status => lx_return_status
8779: );
8780:
8781: IF (lx_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8782: x_return_status := lx_return_status;
8783: END IF;
8784:
8785: -- bug 6760186 start
8790: p_chr_id => p_chr_id,
8791: x_return_status => lx_return_status
8792: );
8793:
8794: IF (lx_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8795: x_return_status := lx_return_status;
8796: END IF;
8797: -- bug 6760186 end
8798:
8803: p_chr_id => p_chr_id,
8804: x_return_status => lx_return_status
8805: );
8806:
8807: IF (lx_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8808: x_return_status := lx_return_status;
8809: END IF;
8810:
8811: /* Manu 30-Aug-2004 END */
8815: p_chr_id => p_chr_id,
8816: x_return_status => lx_return_status
8817: );
8818:
8819: IF (lx_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8820: x_return_status := lx_return_status;
8821: END IF;
8822: --Bug# 4996899
8823:
8825: p_chr_id => p_chr_id,
8826: x_return_status => lx_return_status
8827: );
8828:
8829: IF (lx_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8830: x_return_status := lx_return_status;
8831: END IF;
8832:
8833: --Bug#4622438
8835: p_chr_id => p_chr_id,
8836: x_return_status => lx_return_status
8837: );
8838:
8839: IF (lx_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8840: x_return_status := lx_return_status;
8841: END IF;
8842:
8843: --Bug#4373029
8844: Okl_La_Sales_Tax_Pvt.check_sales_tax(
8845: p_chr_id => p_chr_id,
8846: x_return_status => lx_return_status
8847: );
8848: IF (lx_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8849: x_return_status := lx_return_status;
8850: END IF;
8851:
8852: --akrangan bug 5362977 starts
8854: p_chr_id => p_chr_id,
8855: x_return_status => lx_return_status
8856: );
8857:
8858: IF (lx_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8859: x_return_status := lx_return_status;
8860: END IF;
8861: --akrangan bug 5362977 ends
8862:
8864: check_sales_quote(
8865: p_chr_id => p_chr_id,
8866: x_return_status => lx_return_status
8867: );
8868: IF (lx_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8869: x_return_status := lx_return_status;
8870: END IF;
8871:
8872: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
8868: IF (lx_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8869: x_return_status := lx_return_status;
8870: END IF;
8871:
8872: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
8873: Okl_Api.set_message(
8874: p_app_name => G_APP_NAME,
8875: p_msg_name => G_QA_SUCCESS);
8876: END IF;
8869: x_return_status := lx_return_status;
8870: END IF;
8871:
8872: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
8873: Okl_Api.set_message(
8874: p_app_name => G_APP_NAME,
8875: p_msg_name => G_QA_SUCCESS);
8876: END IF;
8877:
8879: check_loan_payment(
8880: p_chr_id => p_chr_id,
8881: x_return_status => lx_return_status
8882: );
8883: IF (lx_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8884: x_return_status := lx_return_status;
8885: END IF;
8886:
8887: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
8883: IF (lx_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
8884: x_return_status := lx_return_status;
8885: END IF;
8886:
8887: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
8888: Okl_Api.set_message(
8889: p_app_name => G_APP_NAME,
8890: p_msg_name => G_QA_SUCCESS);
8891: END IF;
8884: x_return_status := lx_return_status;
8885: END IF;
8886:
8887: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
8888: Okl_Api.set_message(
8889: p_app_name => G_APP_NAME,
8890: p_msg_name => G_QA_SUCCESS);
8891: END IF;
8892:
8905: END IF;
8906: NULL;
8907: WHEN OTHERS THEN
8908: -- store SQL error message on message stack
8909: Okl_Api.SET_MESSAGE(
8910: p_app_name => G_APP_NAME,
8911: p_msg_name => G_UNEXPECTED_ERROR,
8912: p_token1 => G_SQLCODE_TOKEN,
8913: p_token1_value => SQLCODE,
8913: p_token1_value => SQLCODE,
8914: p_token2 => G_SQLERRM_TOKEN,
8915: p_token2_value => SQLERRM);
8916: -- notify caller of an error as UNEXPETED error
8917: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
8918: -- verify that cursor was closed
8919: IF l_lne_csr%ISOPEN THEN
8920: CLOSE l_lne_csr;
8921: END IF;
8944: ) IS
8945:
8946: --l_hdr l_hdr_csr%ROWTYPE;
8947: l_hdrrl_rec l_hdrrl_csr%ROWTYPE;
8948: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
8949: l_tax_owner okc_rules_b.RULE_INFORMATION1%TYPE;
8950: l_purchase_opt_type okc_rules_b.RULE_INFORMATION11%TYPE;
8951: l_contract_residual_value NUMBER;
8952: l_msg_count NUMBER;
8968: AND sts.ste_code NOT IN ( 'HOLD', 'TERMINATED', 'EXPIRED', 'CANCELLED');
8969:
8970: BEGIN
8971:
8972: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
8973:
8974: /*
8975: OPEN l_hdr_csr(p_chr_id);
8976: FETCH l_hdr_csr into l_hdr;
8996: END IF;
8997: CLOSE l_hdrrl_csr;
8998:
8999: IF ((l_purchase_opt_type = '$1BO') AND (l_tax_owner = 'LESSOR')) THEN
9000: Okl_Api.set_message(
9001: p_app_name => G_APP_NAME,
9002: p_msg_name => 'OKL_QA_NO_TOWN_1DBO');
9003: x_return_status := Okl_Api.G_RET_STS_ERROR;
9004: END IF;
8999: IF ((l_purchase_opt_type = '$1BO') AND (l_tax_owner = 'LESSOR')) THEN
9000: Okl_Api.set_message(
9001: p_app_name => G_APP_NAME,
9002: p_msg_name => 'OKL_QA_NO_TOWN_1DBO');
9003: x_return_status := Okl_Api.G_RET_STS_ERROR;
9004: END IF;
9005: */
9006:
9007: --Bug#4778020 Tax owner warning message for early termination.
9011: l_purchase_opt_type := l_hdrrl_rec.RULE_INFORMATION11;
9012: END IF;
9013: CLOSE l_hdrrl_csr;
9014: IF ((l_purchase_opt_type = '$1BO') AND (l_tax_owner = 'LESSOR')) THEN
9015: Okl_Api.set_message(
9016: p_app_name => G_APP_NAME,
9017: p_msg_name => 'OKL_QA_NO_TOWN_1DBO');
9018: x_return_status := Okl_Api.G_RET_STS_ERROR;
9019: END IF;
9014: IF ((l_purchase_opt_type = '$1BO') AND (l_tax_owner = 'LESSOR')) THEN
9015: Okl_Api.set_message(
9016: p_app_name => G_APP_NAME,
9017: p_msg_name => 'OKL_QA_NO_TOWN_1DBO');
9018: x_return_status := Okl_Api.G_RET_STS_ERROR;
9019: END IF;
9020:
9021: -- Bug 5000754 : End of term purchase
9022: OPEN l_hdrrl_csr('AMTFOC', 'AMBPOC', TO_NUMBER(p_chr_id));
9026: END IF;
9027: CLOSE l_hdrrl_csr;
9028:
9029: IF ((l_purchase_opt_type = '$1BO') AND (l_tax_owner = 'LESSOR')) THEN
9030: Okl_Api.set_message(
9031: p_app_name => G_APP_NAME,
9032: p_msg_name => 'OKL_QA_NO_TOWN_1DBO');
9033: x_return_status := Okl_Api.G_RET_STS_ERROR;
9034: END IF;
9029: IF ((l_purchase_opt_type = '$1BO') AND (l_tax_owner = 'LESSOR')) THEN
9030: Okl_Api.set_message(
9031: p_app_name => G_APP_NAME,
9032: p_msg_name => 'OKL_QA_NO_TOWN_1DBO');
9033: x_return_status := Okl_Api.G_RET_STS_ERROR;
9034: END IF;
9035:
9036: /*OKL_EXECUTE_FORMULA_PUB.EXECUTE(p_api_version =>1.0
9037: ,p_init_msg_list => 'F'
9041: ,p_formula_name =>'CONTRACT_RESIDUAL_VALUE'
9042: ,p_contract_id =>p_chr_id
9043: ,x_value =>l_contract_residual_value);
9044:
9045: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9046: x_return_status := l_return_status;
9047: END IF;
9048: */
9049:
9049:
9050: FOR l_asset_rec IN l_asset_csr
9051: LOOP
9052: IF (l_purchase_opt_type = '$1BO' AND l_asset_rec.residual_value> 1.0) THEN
9053: Okl_Api.set_message(
9054: p_app_name => G_APP_NAME,
9055: p_msg_name => 'OKL_QA_CNTRCT_RES_VAL_GT1',
9056: p_token1 => 'ASSET_NUM',
9057: p_token1_value => l_asset_rec.name);
9054: p_app_name => G_APP_NAME,
9055: p_msg_name => 'OKL_QA_CNTRCT_RES_VAL_GT1',
9056: p_token1 => 'ASSET_NUM',
9057: p_token1_value => l_asset_rec.name);
9058: x_return_status := Okl_Api.G_RET_STS_ERROR;
9059: END IF;
9060: END LOOP;
9061:
9062: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
9058: x_return_status := Okl_Api.G_RET_STS_ERROR;
9059: END IF;
9060: END LOOP;
9061:
9062: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
9063: Okl_Api.set_message(
9064: p_app_name => G_APP_NAME,
9065: p_msg_name => G_QA_SUCCESS);
9066: END IF;
9059: END IF;
9060: END LOOP;
9061:
9062: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
9063: Okl_Api.set_message(
9064: p_app_name => G_APP_NAME,
9065: p_msg_name => G_QA_SUCCESS);
9066: END IF;
9067:
9067:
9068: EXCEPTION
9069: WHEN OTHERS THEN
9070: -- store SQL error message on message stack
9071: Okl_Api.SET_MESSAGE(
9072: p_app_name => G_APP_NAME,
9073: p_msg_name => G_UNEXPECTED_ERROR,
9074: p_token1 => G_SQLCODE_TOKEN,
9075: p_token1_value => SQLCODE,
9075: p_token1_value => SQLCODE,
9076: p_token2 => G_SQLERRM_TOKEN,
9077: p_token2_value => SQLERRM);
9078:
9079: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
9080:
9081: IF l_hdr_csr%ISOPEN THEN
9082: CLOSE l_hdr_csr;
9083: END IF;
9101: x_return_status OUT NOCOPY VARCHAR2,
9102: p_chr_id IN NUMBER
9103: ) IS
9104:
9105: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
9106: l_dummy VARCHAR2(1) := '?';
9107: l_count NUMBER := 0;
9108: l_row_notfound BOOLEAN;
9109: l_token VARCHAR2(2000);
9263:
9264: BEGIN
9265:
9266: -- initialize return status
9267: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
9268:
9269: OPEN l_hdr_csr(p_chr_id);
9270: FETCH l_hdr_csr INTO l_hdr;
9271: IF l_hdr_csr%NOTFOUND THEN
9281: );
9282:
9283: --If( l_hdrrl_csr%NOTFOUND ) Then
9284: IF( l_bto_site_use_id IS NULL) THEN
9285: Okl_Api.set_message(
9286: p_app_name => G_APP_NAME,
9287: p_msg_name => 'OKL_QA_NOBTO');
9288: -- notify caller of an error
9289: x_return_status := Okl_Api.G_RET_STS_ERROR;
9285: Okl_Api.set_message(
9286: p_app_name => G_APP_NAME,
9287: p_msg_name => 'OKL_QA_NOBTO');
9288: -- notify caller of an error
9289: x_return_status := Okl_Api.G_RET_STS_ERROR;
9290: ELSE
9291:
9292: get_cust_account(
9293: x_return_status => x_return_status,
9299: OPEN cust_site_csr(l_bto_site_use_id, l_cust_acct_id, 'BILL_TO');
9300: FETCH cust_site_csr INTO cust_site_rec;
9301: CLOSE cust_site_csr;
9302: IF ( NVL(cust_site_rec.isThere, 'N') = 'N' ) THEN
9303: Okl_Api.set_message(
9304: p_app_name => G_APP_NAME,
9305: p_msg_name => 'OKL_QA_BILLTO_ACCNT');
9306: -- notify caller of an error
9307: x_return_status := Okl_Api.G_RET_STS_ERROR;
9303: Okl_Api.set_message(
9304: p_app_name => G_APP_NAME,
9305: p_msg_name => 'OKL_QA_BILLTO_ACCNT');
9306: -- notify caller of an error
9307: x_return_status := Okl_Api.G_RET_STS_ERROR;
9308: END IF;
9309:
9310: OPEN cust_csr('LESSEE', TO_NUMBER(p_chr_id));
9311: FETCH cust_csr INTO cust_rec;
9320: OPEN l_party_uses_csr(l_inst_site_id, l_party_site_id, 'INSTALL_AT');
9321: FETCH l_party_uses_csr INTO l_party_uses_rec;
9322: CLOSE l_party_uses_csr;
9323: IF ( NVL(l_party_uses_rec.isThere, 'N') = 'N' ) THEN
9324: Okl_Api.set_message(
9325: p_app_name => G_APP_NAME,
9326: p_msg_name => 'OKL_QA_INST_ACCN');
9327: -- notify caller of an error
9328: x_return_status := Okl_Api.G_RET_STS_ERROR;
9324: Okl_Api.set_message(
9325: p_app_name => G_APP_NAME,
9326: p_msg_name => 'OKL_QA_INST_ACCN');
9327: -- notify caller of an error
9328: x_return_status := Okl_Api.G_RET_STS_ERROR;
9329: END IF;
9330:
9331: END LOOP;
9332:
9340: OPEN cust_site_csr(l_bto_site_use_id, l_shipto_id, 'SHIP_TO');
9341: FETCH cust_site_csr INTO cust_site_rec;
9342: CLOSE cust_site_csr;
9343: IF ( NVL(cust_site_rec.isThere, 'N') = 'N' ) THEN
9344: Okl_Api.set_message(
9345: p_app_name => G_APP_NAME,
9346: p_msg_name => 'OKL_QA_BTO_SHIPTO');
9347: -- notify caller of an error
9348: x_return_status := Okl_Api.G_RET_STS_ERROR;
9344: Okl_Api.set_message(
9345: p_app_name => G_APP_NAME,
9346: p_msg_name => 'OKL_QA_BTO_SHIPTO');
9347: -- notify caller of an error
9348: x_return_status := Okl_Api.G_RET_STS_ERROR;
9349: END IF;
9350:
9351: END IF;
9352:
9367: FETCH pymt_method_csr INTO l_pymt_method_valid_yn;
9368: CLOSE pymt_method_csr;
9369:
9370: IF (l_pymt_method_valid_yn = 'N') THEN
9371: Okl_Api.set_message(
9372: p_app_name => G_APP_NAME,
9373: p_msg_name => 'OKL_QA_PYMT_METHOD_INVALID');
9374: x_return_status := Okl_Api.G_RET_STS_ERROR;
9375: END IF;
9370: IF (l_pymt_method_valid_yn = 'N') THEN
9371: Okl_Api.set_message(
9372: p_app_name => G_APP_NAME,
9373: p_msg_name => 'OKL_QA_PYMT_METHOD_INVALID');
9374: x_return_status := Okl_Api.G_RET_STS_ERROR;
9375: END IF;
9376: END IF;
9377:
9378: l_hdrrl_rec := NULL;
9389: FETCH bank_acct_csr INTO l_bank_acct_valid_yn;
9390: CLOSE bank_acct_csr;
9391:
9392: IF (l_bank_acct_valid_yn = 'N') THEN
9393: Okl_Api.set_message(
9394: p_app_name => G_APP_NAME,
9395: p_msg_name => 'OKL_QA_BANK_ACCT_INVALID');
9396: x_return_status := Okl_Api.G_RET_STS_ERROR;
9397: END IF;
9392: IF (l_bank_acct_valid_yn = 'N') THEN
9393: Okl_Api.set_message(
9394: p_app_name => G_APP_NAME,
9395: p_msg_name => 'OKL_QA_BANK_ACCT_INVALID');
9396: x_return_status := Okl_Api.G_RET_STS_ERROR;
9397: END IF;
9398: END IF;
9399: --Bug# 8219011
9400:
9408: p_chr_id => p_chr_id,
9409: x_return_status => l_return_status
9410: );
9411:
9412: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
9413: x_return_status := l_return_status;
9414: END IF;
9415:
9416: -- Bug 4915341 (redundant check commented out)
9417: /*
9418: -- Bug#4872437 ramurt
9419: check_evergreen_pth(l_return_status, p_chr_id);
9420:
9421: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9422: x_return_status := l_return_status;
9423: END IF;
9424: -- Bug#4872437 changes end
9425: */
9430:
9431: IF(( l_hdrrl_csr%FOUND ) AND
9432: (l_hdrrl_rec.RULE_INFORMATION1 IS NOT NULL) AND
9433: ( TRUNC(Fnd_Date.canonical_to_date(l_hdrrl_rec.RULE_INFORMATION1)) < TRUNC(l_hdr.START_DATE) )) THEN
9434: Okl_Api.set_message(
9435: p_app_name => G_APP_NAME,
9436: p_msg_name => 'OKL_QA_LATE_CH_DATE');
9437: -- notify caller of an error
9438: x_return_status := Okl_Api.G_RET_STS_ERROR;
9434: Okl_Api.set_message(
9435: p_app_name => G_APP_NAME,
9436: p_msg_name => 'OKL_QA_LATE_CH_DATE');
9437: -- notify caller of an error
9438: x_return_status := Okl_Api.G_RET_STS_ERROR;
9439: END IF;
9440: CLOSE l_hdrrl_csr;
9441: */
9442: /* commented out for bug 5032883
9445:
9446: IF(( l_hdrrl_csr%FOUND ) AND
9447: (l_hdrrl_rec.RULE_INFORMATION1 IS NOT NULL) AND
9448: (TRUNC( Fnd_Date.canonical_to_date(l_hdrrl_rec.RULE_INFORMATION1)) < TRUNC(l_hdr.START_DATE) )) THEN
9449: Okl_Api.set_message(
9450: p_app_name => G_APP_NAME,
9451: p_msg_name => 'OKL_QA_LATE_INT_DATE');
9452: -- notify caller of an error
9453: x_return_status := Okl_Api.G_RET_STS_ERROR;
9449: Okl_Api.set_message(
9450: p_app_name => G_APP_NAME,
9451: p_msg_name => 'OKL_QA_LATE_INT_DATE');
9452: -- notify caller of an error
9453: x_return_status := Okl_Api.G_RET_STS_ERROR;
9454: END IF;
9455: CLOSE l_hdrrl_csr;
9456: */
9457: OPEN l_hdrrl_csr('LAREBL', 'LAREBL', TO_NUMBER(p_chr_id));
9459:
9460: IF((l_hdrrl_csr%FOUND)AND
9461: (l_hdrrl_rec.RULE_INFORMATION1 IS NOT NULL) AND
9462: (TRUNC( Fnd_Date.canonical_to_date(l_hdrrl_rec.RULE_INFORMATION1)) < TRUNC(l_hdr.START_DATE))) THEN
9463: Okl_Api.set_message(
9464: p_app_name => G_APP_NAME,
9465: p_msg_name => 'OKL_QA_REBOOK_LMT_DATE');
9466: -- notify caller of an error
9467: x_return_status := Okl_Api.G_RET_STS_ERROR;
9463: Okl_Api.set_message(
9464: p_app_name => G_APP_NAME,
9465: p_msg_name => 'OKL_QA_REBOOK_LMT_DATE');
9466: -- notify caller of an error
9467: x_return_status := Okl_Api.G_RET_STS_ERROR;
9468: END IF;
9469: CLOSE l_hdrrl_csr;
9470:
9471: OPEN l_hdrrl_csr('AMTEOC', 'AMBPOC', TO_NUMBER(p_chr_id));
9500:
9501: IF(( (INSTR( l_hdr.DEAL_TYPE, 'LOAN' )<1) OR (l_hdr.report_pdt_id <> -1)) AND
9502: (l_options(1).purchase_option_type IS NULL ) AND
9503: (l_options(2).purchase_option_type IS NULL)) THEN
9504: Okl_Api.set_message(
9505: p_app_name => G_APP_NAME,
9506: p_msg_name => 'OKL_QA_NO_PURCHASE_OPTNS');
9507: -- notify caller of an error
9508: x_return_status := Okl_Api.G_RET_STS_ERROR;
9504: Okl_Api.set_message(
9505: p_app_name => G_APP_NAME,
9506: p_msg_name => 'OKL_QA_NO_PURCHASE_OPTNS');
9507: -- notify caller of an error
9508: x_return_status := Okl_Api.G_RET_STS_ERROR;
9509: END IF;
9510:
9511:
9512: IF( INSTR( l_hdr.DEAL_TYPE, 'LOAN' )<1) THEN
9514: FOR i IN 1..l_options.COUNT
9515: LOOP
9516:
9517: IF((l_options(i).formula_name IS NULL)AND(l_options(i).purchase_option = 'USE_FORMULA')) THEN
9518: Okl_Api.set_message(
9519: p_app_name => G_APP_NAME,
9520: p_msg_name => 'OKL_QA_NO_FORMULA');
9521: -- notify caller of an error
9522: x_return_status := Okl_Api.G_RET_STS_ERROR;
9518: Okl_Api.set_message(
9519: p_app_name => G_APP_NAME,
9520: p_msg_name => 'OKL_QA_NO_FORMULA');
9521: -- notify caller of an error
9522: x_return_status := Okl_Api.G_RET_STS_ERROR;
9523: END IF;
9524:
9525: IF((INSTR( l_hdr.DEAL_TYPE, 'LOAN' )>0)AND(l_options(i).purchase_option_type <> 'NONE')) THEN
9526: --FND Lookup change from NONE.
9523: END IF;
9524:
9525: IF((INSTR( l_hdr.DEAL_TYPE, 'LOAN' )>0)AND(l_options(i).purchase_option_type <> 'NONE')) THEN
9526: --FND Lookup change from NONE.
9527: Okl_Api.set_message(
9528: p_app_name => G_APP_NAME,
9529: p_msg_name => 'OKL_QA_LNCTRT_NOFMV');
9530: -- notify caller of an error
9531: x_return_status := Okl_Api.G_RET_STS_ERROR;
9527: Okl_Api.set_message(
9528: p_app_name => G_APP_NAME,
9529: p_msg_name => 'OKL_QA_LNCTRT_NOFMV');
9530: -- notify caller of an error
9531: x_return_status := Okl_Api.G_RET_STS_ERROR;
9532: END IF;
9533:
9534:
9535: IF((l_options(i).purchase_option_type = 'FMV')AND(l_options(i).purchase_option_amount IS NOT NULL)) THEN
9532: END IF;
9533:
9534:
9535: IF((l_options(i).purchase_option_type = 'FMV')AND(l_options(i).purchase_option_amount IS NOT NULL)) THEN
9536: Okl_Api.set_message(
9537: p_app_name => G_APP_NAME,
9538: p_msg_name => 'OKL_QA_FMV_NO_FLD');
9539: -- notify caller of an error
9540: x_return_status := Okl_Api.G_RET_STS_ERROR;
9536: Okl_Api.set_message(
9537: p_app_name => G_APP_NAME,
9538: p_msg_name => 'OKL_QA_FMV_NO_FLD');
9539: -- notify caller of an error
9540: x_return_status := Okl_Api.G_RET_STS_ERROR;
9541: END IF;
9542:
9543: IF((l_options(i).purchase_option_type = 'FRV')AND(l_options(i).purchase_option_amount IS NOT NULL)) THEN
9544: Okl_Api.set_message(
9540: x_return_status := Okl_Api.G_RET_STS_ERROR;
9541: END IF;
9542:
9543: IF((l_options(i).purchase_option_type = 'FRV')AND(l_options(i).purchase_option_amount IS NOT NULL)) THEN
9544: Okl_Api.set_message(
9545: p_app_name => G_APP_NAME,
9546: p_msg_name => 'OKL_QA_FRV_NO_FLD');
9547: -- notify caller of an error
9548: x_return_status := Okl_Api.G_RET_STS_ERROR;
9544: Okl_Api.set_message(
9545: p_app_name => G_APP_NAME,
9546: p_msg_name => 'OKL_QA_FRV_NO_FLD');
9547: -- notify caller of an error
9548: x_return_status := Okl_Api.G_RET_STS_ERROR;
9549: END IF;
9550:
9551:
9552:
9550:
9551:
9552:
9553: IF ((INSTR( l_hdr.DEAL_TYPE,'OP') > 0 ) AND (l_options(i).purchase_option_type = '$1BO')) THEN
9554: Okl_Api.set_message(
9555: p_app_name => G_APP_NAME,
9556: p_msg_name => 'OKL_QA_NO_OP_1DBO');
9557: -- notify caller of an error
9558: x_return_status := Okl_Api.G_RET_STS_ERROR;
9554: Okl_Api.set_message(
9555: p_app_name => G_APP_NAME,
9556: p_msg_name => 'OKL_QA_NO_OP_1DBO');
9557: -- notify caller of an error
9558: x_return_status := Okl_Api.G_RET_STS_ERROR;
9559: END IF;
9560:
9561: END LOOP;
9562:
9564:
9565: -- End of term.
9566: IF((l_options(2).purchase_option_type IS NOT NULL)AND(l_options(2).purchase_option_type <> 'FMV')AND
9567: (l_hdrrl_rec.RULE_INFORMATION1 IS NULL )AND(l_options(2).purchase_option_amount IS NULL)) THEN
9568: Okl_Api.set_message(
9569: p_app_name => G_APP_NAME,
9570: p_msg_name => 'OKL_QA_EOTOPTIONS_NOTSET');
9571: -- notify caller of an error
9572: x_return_status := Okl_Api.G_RET_STS_ERROR;
9568: Okl_Api.set_message(
9569: p_app_name => G_APP_NAME,
9570: p_msg_name => 'OKL_QA_EOTOPTIONS_NOTSET');
9571: -- notify caller of an error
9572: x_return_status := Okl_Api.G_RET_STS_ERROR;
9573: END IF;
9574:
9575: END IF;
9576:
9579: CLOSE l_hdrrl_csr;
9580:
9581:
9582: IF ((INSTR( l_hdr.DEAL_TYPE,'OP') > 0 ) AND (l_hdrrl_rec.RULE_INFORMATION1 <> 'LESSOR')) THEN
9583: Okl_Api.set_message(
9584: p_app_name => G_APP_NAME,
9585: p_msg_name => 'OKL_QA_OP_LESSOR');
9586: -- notify caller of an error
9587: x_return_status := Okl_Api.G_RET_STS_ERROR;
9583: Okl_Api.set_message(
9584: p_app_name => G_APP_NAME,
9585: p_msg_name => 'OKL_QA_OP_LESSOR');
9586: -- notify caller of an error
9587: x_return_status := Okl_Api.G_RET_STS_ERROR;
9588: END IF;
9589:
9590: /*If ((INSTR( l_hdr.DEAL_TYPE,'ST') > 0 ) AND (l_hdrrl_rec.RULE_INFORMATION1 <> 'LESSEE')) then
9591: OKL_API.set_message(
9587: x_return_status := Okl_Api.G_RET_STS_ERROR;
9588: END IF;
9589:
9590: /*If ((INSTR( l_hdr.DEAL_TYPE,'ST') > 0 ) AND (l_hdrrl_rec.RULE_INFORMATION1 <> 'LESSEE')) then
9591: OKL_API.set_message(
9592: p_app_name => G_APP_NAME,
9593: p_msg_name => 'OKL_QA_ST_LESSEE');
9594: -- notify caller of an error
9595: x_return_status := OKL_API.G_RET_STS_ERROR;
9591: OKL_API.set_message(
9592: p_app_name => G_APP_NAME,
9593: p_msg_name => 'OKL_QA_ST_LESSEE');
9594: -- notify caller of an error
9595: x_return_status := OKL_API.G_RET_STS_ERROR;
9596: End If;*/
9597:
9598: IF ((l_hdr.DEAL_TYPE = 'LOAN') AND (l_hdrrl_rec.RULE_INFORMATION1 <> 'LESSEE')) THEN
9599: Okl_Api.set_message(
9595: x_return_status := OKL_API.G_RET_STS_ERROR;
9596: End If;*/
9597:
9598: IF ((l_hdr.DEAL_TYPE = 'LOAN') AND (l_hdrrl_rec.RULE_INFORMATION1 <> 'LESSEE')) THEN
9599: Okl_Api.set_message(
9600: p_app_name => G_APP_NAME,
9601: p_msg_name => 'OKL_QA_LOAN_LESSEE');
9602: -- notify caller of an error
9603: x_return_status := Okl_Api.G_RET_STS_ERROR;
9599: Okl_Api.set_message(
9600: p_app_name => G_APP_NAME,
9601: p_msg_name => 'OKL_QA_LOAN_LESSEE');
9602: -- notify caller of an error
9603: x_return_status := Okl_Api.G_RET_STS_ERROR;
9604: END IF;
9605:
9606: /* Bug#4778020 tax owner message for early termination also moved to procedure check_purchase_option.
9607: If( INSTR( l_hdr.DEAL_TYPE, 'LOAN' )<1) Then
9611: --FOR i in 1..l_options.COUNT
9612: --LOOP
9613: -- If ((l_options(i).purchase_option_type = '$1BO') AND (l_hdrrl_rec.RULE_INFORMATION1 = 'LESSOR')) then
9614: If ((l_options(1).purchase_option_type = '$1BO') AND (l_hdrrl_rec.RULE_INFORMATION1 = 'LESSOR')) then
9615: OKL_API.set_message(
9616: p_app_name => G_APP_NAME,
9617: p_msg_name => 'OKL_QA_NO_TOWN_1DBO');
9618: -- notify caller of an error
9619: x_return_status := OKL_API.G_RET_STS_ERROR;
9615: OKL_API.set_message(
9616: p_app_name => G_APP_NAME,
9617: p_msg_name => 'OKL_QA_NO_TOWN_1DBO');
9618: -- notify caller of an error
9619: x_return_status := OKL_API.G_RET_STS_ERROR;
9620: End If;
9621:
9622: --END LOOP;
9623: End If;
9639: CLOSE l_hdrrl_csr;
9640: IF (NVL(l_auto_fixed_pur_opt_yn,'N') = 'Y'
9641: AND NVL(l_purchase_opt_type,'XXX') NOT IN ('FPO','$1BO')) THEN
9642: --error message
9643: Okl_Api.set_message(
9644: p_app_name => G_APP_NAME,
9645: p_msg_name => 'OKL_QA_AUTO_PUR_OPT_TYPE');
9646: x_return_status := Okl_Api.G_RET_STS_ERROR;
9647: END IF;
9642: --error message
9643: Okl_Api.set_message(
9644: p_app_name => G_APP_NAME,
9645: p_msg_name => 'OKL_QA_AUTO_PUR_OPT_TYPE');
9646: x_return_status := Okl_Api.G_RET_STS_ERROR;
9647: END IF;
9648:
9649: OPEN l_hdrrl_csr('LAEVEL', 'LAEVEL', TO_NUMBER(p_chr_id));
9650: FETCH l_hdrrl_csr INTO l_hdrrl_rec;
9654: CLOSE l_hdrrl_csr;
9655:
9656: IF (NVL(l_evergreen_flag,'N') = 'Y' AND NVL(l_auto_fixed_pur_opt_yn,'N') = 'Y') THEN
9657: --error message
9658: Okl_Api.set_message(
9659: p_app_name => G_APP_NAME,
9660: p_msg_name => 'OKL_QA_EVG_AUTO_FIXED_PUR_OPT');
9661: x_return_status := Okl_Api.G_RET_STS_ERROR;
9662: END IF;
9657: --error message
9658: Okl_Api.set_message(
9659: p_app_name => G_APP_NAME,
9660: p_msg_name => 'OKL_QA_EVG_AUTO_FIXED_PUR_OPT');
9661: x_return_status := Okl_Api.G_RET_STS_ERROR;
9662: END IF;
9663: --$1Buyout changes End
9664:
9665: OPEN l_hdrrl_csr('LARVIN', 'LARVAU', TO_NUMBER(p_chr_id));
9670: OPEN l_hdrrl_csr('LARVIN', 'LARVAM', TO_NUMBER(p_chr_id));
9671: FETCH l_hdrrl_csr INTO l_hdrrl_rec;
9672:
9673: IF ( l_hdrrl_csr%NOTFOUND OR l_hdrrl_rec.RULE_INFORMATION4 IS NULL) THEN
9674: Okl_Api.set_message(
9675: p_app_name => G_APP_NAME,
9676: p_msg_name => 'OKL_QA_RVI_RATE');
9677: x_return_status := Okl_Api.G_RET_STS_ERROR;
9678: ELSIF(TO_NUMBER(l_hdrrl_rec.RULE_INFORMATION4) > 100) THEN
9673: IF ( l_hdrrl_csr%NOTFOUND OR l_hdrrl_rec.RULE_INFORMATION4 IS NULL) THEN
9674: Okl_Api.set_message(
9675: p_app_name => G_APP_NAME,
9676: p_msg_name => 'OKL_QA_RVI_RATE');
9677: x_return_status := Okl_Api.G_RET_STS_ERROR;
9678: ELSIF(TO_NUMBER(l_hdrrl_rec.RULE_INFORMATION4) > 100) THEN
9679: Okl_Api.set_message(
9680: p_app_name => G_APP_NAME,
9681: p_msg_name => 'OKL_QA_RVI_GT_100');
9675: p_app_name => G_APP_NAME,
9676: p_msg_name => 'OKL_QA_RVI_RATE');
9677: x_return_status := Okl_Api.G_RET_STS_ERROR;
9678: ELSIF(TO_NUMBER(l_hdrrl_rec.RULE_INFORMATION4) > 100) THEN
9679: Okl_Api.set_message(
9680: p_app_name => G_APP_NAME,
9681: p_msg_name => 'OKL_QA_RVI_GT_100');
9682: -- notify caller of an error
9683: x_return_status := Okl_Api.G_RET_STS_ERROR;
9679: Okl_Api.set_message(
9680: p_app_name => G_APP_NAME,
9681: p_msg_name => 'OKL_QA_RVI_GT_100');
9682: -- notify caller of an error
9683: x_return_status := Okl_Api.G_RET_STS_ERROR;
9684: END IF;
9685:
9686: END IF;
9687: CLOSE l_hdrrl_csr;
9688:
9689: OPEN l_rl_csr('LARNOP', 'LAEOTR', p_chr_id);
9690: FETCH l_rl_csr INTO l_rl;
9691: IF ((l_rl_csr%FOUND)AND(INSTR(l_hdr.DEAL_TYPE,'DF') > 0) AND (l_rl.RULE_INFORMATION1 = 'FMV')) THEN
9692: Okl_Api.set_message(
9693: p_app_name => G_APP_NAME,
9694: p_msg_name => 'OKL_QA_CTRTDF_NOFMV');
9695: -- notify caller of an error
9696: x_return_status := Okl_Api.G_RET_STS_ERROR;
9692: Okl_Api.set_message(
9693: p_app_name => G_APP_NAME,
9694: p_msg_name => 'OKL_QA_CTRTDF_NOFMV');
9695: -- notify caller of an error
9696: x_return_status := Okl_Api.G_RET_STS_ERROR;
9697: END IF;
9698: CLOSE l_rl_csr;
9699:
9700: OPEN l_rl_csr('LARNOP', 'LAMITR', p_chr_id);
9699:
9700: OPEN l_rl_csr('LARNOP', 'LAMITR', p_chr_id);
9701: FETCH l_rl_csr INTO l_rl;
9702: IF ((l_rl_csr%FOUND)AND(INSTR( l_hdr.DEAL_TYPE,'DF') > 0) AND (l_rl.RULE_INFORMATION1 = 'FMV')) THEN
9703: Okl_Api.set_message(
9704: p_app_name => G_APP_NAME,
9705: p_msg_name => 'OKL_QA_CTRTDF_NOFMV');
9706: -- notify caller of an error
9707: x_return_status := Okl_Api.G_RET_STS_ERROR;
9703: Okl_Api.set_message(
9704: p_app_name => G_APP_NAME,
9705: p_msg_name => 'OKL_QA_CTRTDF_NOFMV');
9706: -- notify caller of an error
9707: x_return_status := Okl_Api.G_RET_STS_ERROR;
9708: END IF;
9709: CLOSE l_rl_csr;
9710:
9711: OPEN l_rl_csr('LAASTX', 'LAASTX', p_chr_id);
9710:
9711: OPEN l_rl_csr('LAASTX', 'LAASTX', p_chr_id);
9712: FETCH l_rl_csr INTO l_rl;
9713: IF ((l_rl_csr%FOUND)AND(l_rl.RULE_INFORMATION1 = 'Y') AND (l_rl.RULE_INFORMATION2 IS NULL)) THEN
9714: Okl_Api.set_message(
9715: p_app_name => G_APP_NAME,
9716: p_msg_name => 'OKL_QA_EXEMPT');
9717: -- notify caller of an error
9718: x_return_status := Okl_Api.G_RET_STS_ERROR;
9714: Okl_Api.set_message(
9715: p_app_name => G_APP_NAME,
9716: p_msg_name => 'OKL_QA_EXEMPT');
9717: -- notify caller of an error
9718: x_return_status := Okl_Api.G_RET_STS_ERROR;
9719: END IF;
9720: CLOSE l_rl_csr;
9721:
9722: OPEN l_rl_csr('LAASTX', 'LAAVTX', p_chr_id);
9721:
9722: OPEN l_rl_csr('LAASTX', 'LAAVTX', p_chr_id);
9723: FETCH l_rl_csr INTO l_rl;
9724: IF ((l_rl_csr%FOUND)AND(l_rl.RULE_INFORMATION1 = 'Y') AND (l_rl.RULE_INFORMATION2 IS NULL)) THEN
9725: Okl_Api.set_message(
9726: p_app_name => G_APP_NAME,
9727: p_msg_name => 'OKL_QA_EXEMPT');
9728: -- notify caller of an error
9729: x_return_status := Okl_Api.G_RET_STS_ERROR;
9725: Okl_Api.set_message(
9726: p_app_name => G_APP_NAME,
9727: p_msg_name => 'OKL_QA_EXEMPT');
9728: -- notify caller of an error
9729: x_return_status := Okl_Api.G_RET_STS_ERROR;
9730: END IF;
9731: CLOSE l_rl_csr;
9732:
9733: OPEN l_rl_csr('LAGRNP', 'LAGRNP', p_chr_id);
9732:
9733: OPEN l_rl_csr('LAGRNP', 'LAGRNP', p_chr_id);
9734: FETCH l_rl_csr INTO l_rl;
9735: IF ((l_rl_csr%FOUND)AND(l_rl.RULE_INFORMATION1 = 'Y') AND (l_rl.RULE_INFORMATION2 IS NULL)) THEN
9736: Okl_Api.set_message(
9737: p_app_name => G_APP_NAME,
9738: p_msg_name => 'OKL_QA_GUARANTEE');
9739: x_return_status := Okl_Api.G_RET_STS_ERROR;
9740: END IF;
9735: IF ((l_rl_csr%FOUND)AND(l_rl.RULE_INFORMATION1 = 'Y') AND (l_rl.RULE_INFORMATION2 IS NULL)) THEN
9736: Okl_Api.set_message(
9737: p_app_name => G_APP_NAME,
9738: p_msg_name => 'OKL_QA_GUARANTEE');
9739: x_return_status := Okl_Api.G_RET_STS_ERROR;
9740: END IF;
9741: CLOSE l_rl_csr;
9742:
9743: OPEN l_rl_csr('LARNOP', 'LAREND', p_chr_id);
9742:
9743: OPEN l_rl_csr('LARNOP', 'LAREND', p_chr_id);
9744: FETCH l_rl_csr INTO l_rl;
9745: IF ((l_rl_csr%FOUND)AND(l_rl.RULE_INFORMATION1 = 'Y') AND (l_rl.RULE_INFORMATION2 IS NULL)) THEN
9746: Okl_Api.set_message(
9747: p_app_name => G_APP_NAME,
9748: p_msg_name => 'OKL_QA_RENEWAL_NOTICE');
9749: x_return_status := Okl_Api.G_RET_STS_ERROR;
9750: END IF;
9745: IF ((l_rl_csr%FOUND)AND(l_rl.RULE_INFORMATION1 = 'Y') AND (l_rl.RULE_INFORMATION2 IS NULL)) THEN
9746: Okl_Api.set_message(
9747: p_app_name => G_APP_NAME,
9748: p_msg_name => 'OKL_QA_RENEWAL_NOTICE');
9749: x_return_status := Okl_Api.G_RET_STS_ERROR;
9750: END IF;
9751: CLOSE l_rl_csr;
9752:
9753: /* Bug 3825314
9758: *
9759: * OPEN l_rl_csr('LASYND', 'LASYST', l_synd_rec.syndId);
9760: * FETCH l_rl_csr INTO l_rl;
9761: * IF(l_rl_csr%FOUND)AND(to_number(nvl(l_rl.RULE_INFORMATION2,-1)) > 100) THEN
9762: * OKL_API.set_message(
9763: * p_app_name => G_APP_NAME,
9764: * p_msg_name => 'OKL_QA_SYND_STAKE');
9765: * x_return_status := OKL_API.G_RET_STS_ERROR;
9766: * END IF;
9761: * IF(l_rl_csr%FOUND)AND(to_number(nvl(l_rl.RULE_INFORMATION2,-1)) > 100) THEN
9762: * OKL_API.set_message(
9763: * p_app_name => G_APP_NAME,
9764: * p_msg_name => 'OKL_QA_SYND_STAKE');
9765: * x_return_status := OKL_API.G_RET_STS_ERROR;
9766: * END IF;
9767: * CLOSE l_rl_csr;
9768: *
9769: * END IF;
9773:
9774: OPEN l_rl_csr('LAEVEL', 'LAEOTR', p_chr_id);
9775: FETCH l_rl_csr INTO l_rl;
9776: IF ((l_rl_csr%FOUND)AND(l_rl.RULE_INFORMATION1 = 'FMV') AND (l_rl.RULE_INFORMATION2 IS NOT NULL)) THEN
9777: Okl_Api.set_message(
9778: p_app_name => G_APP_NAME,
9779: p_msg_name => 'OKL_QA_EVERGREEN');
9780: x_return_status := Okl_Api.G_RET_STS_ERROR;
9781: END IF;
9776: IF ((l_rl_csr%FOUND)AND(l_rl.RULE_INFORMATION1 = 'FMV') AND (l_rl.RULE_INFORMATION2 IS NOT NULL)) THEN
9777: Okl_Api.set_message(
9778: p_app_name => G_APP_NAME,
9779: p_msg_name => 'OKL_QA_EVERGREEN');
9780: x_return_status := Okl_Api.G_RET_STS_ERROR;
9781: END IF;
9782: CLOSE l_rl_csr;
9783:
9784: --Check for Termination Quote Rules
9801: l_eot_tolerance_days := l_rl.RULE_INFORMATION1;
9802:
9803: IF (l_row_notfound OR l_quote_eff_days IS NULL OR l_quote_eff_max_days IS NULL
9804: OR l_eot_tolerance_days IS NULL ) THEN
9805: Okl_Api.set_message(
9806: p_app_name => G_APP_NAME,
9807: p_msg_name => 'OKL_QA_TERMINATION_QUOTE');
9808: x_return_status := Okl_Api.G_RET_STS_ERROR;
9809: END IF;
9804: OR l_eot_tolerance_days IS NULL ) THEN
9805: Okl_Api.set_message(
9806: p_app_name => G_APP_NAME,
9807: p_msg_name => 'OKL_QA_TERMINATION_QUOTE');
9808: x_return_status := Okl_Api.G_RET_STS_ERROR;
9809: END IF;
9810:
9811:
9812: i := 0;
9824: OPEN fnd_csr('OKS_USAGE_TYPE', l_rl1.RULE_INFORMATION6);
9825: FETCH fnd_csr INTO fnd_rec;
9826: CLOSE fnd_csr;
9827:
9828: Okl_Api.set_message(
9829: p_app_name => G_APP_NAME,
9830: p_msg_name => 'OKL_QA_USAGE_CHECK',
9831: p_token1 => 'LINE_NUM',
9832: p_token1_value => TO_CHAR(i),
9832: p_token1_value => TO_CHAR(i),
9833: p_token2 => 'USAGE_TYPE',
9834: p_token2_value => fnd_rec.meaning);
9835:
9836: x_return_status := Okl_Api.G_RET_STS_ERROR;
9837:
9838: ELSIF (( NVL(l_rl1.RULE_INFORMATION6, 'XXX') = 'FRT' ) AND ( l_rl1.RULE_INFORMATION7 IS NULL )) THEN
9839:
9840: OPEN fnd_csr('OKS_USAGE_TYPE', l_rl1.RULE_INFORMATION6);
9840: OPEN fnd_csr('OKS_USAGE_TYPE', l_rl1.RULE_INFORMATION6);
9841: FETCH fnd_csr INTO fnd_rec;
9842: CLOSE fnd_csr;
9843:
9844: Okl_Api.set_message(
9845: p_app_name => G_APP_NAME,
9846: p_msg_name => 'OKL_QA_FIXED_USAGE',
9847: p_token1 => 'LINE_NUM',
9848: p_token1_value => TO_CHAR(i),
9848: p_token1_value => TO_CHAR(i),
9849: p_token2 => 'USAGE_TYPE',
9850: p_token2_value => fnd_rec.meaning);
9851:
9852: x_return_status := Okl_Api.G_RET_STS_ERROR;
9853:
9854: END IF;
9855:
9856: END LOOP;
9864: IF (nvl(l_rl.RULE_INFORMATION1,'N') = 'Y') THEN
9865: IF (INSTR( l_hdr.DEAL_TYPE,'DF') > 0) THEN
9866: NULL;
9867: ELSE
9868: Okl_Api.set_message(
9869: p_app_name => G_APP_NAME,
9870: p_msg_name => 'OKL_QA_RVI_NA',
9871: p_token1 => 'BOOK_CLASS',
9872: p_token1_value => l_hdr.deal_type);
9869: p_app_name => G_APP_NAME,
9870: p_msg_name => 'OKL_QA_RVI_NA',
9871: p_token1 => 'BOOK_CLASS',
9872: p_token1_value => l_hdr.deal_type);
9873: x_return_status := Okl_Api.G_RET_STS_ERROR;
9874: END IF;
9875: END IF; -- If 'Y'
9876: END IF; -- IF found
9877: CLOSE l_rl_csr;
9889: IF (l_rl_csr%FOUND) THEN
9890: CLOSE l_rl_csr;
9891: IF (l_late_charge_policy IS NOT NULL AND
9892: l_rl2.rule_information1 = 'Y') THEN
9893: Okl_Api.set_message(
9894: p_app_name => G_APP_NAME,
9895: p_msg_name => 'OKL_QA_LATE_CHARGE_ERROR');
9896: x_return_status := Okl_Api.G_RET_STS_ERROR;
9897: END IF;
9892: l_rl2.rule_information1 = 'Y') THEN
9893: Okl_Api.set_message(
9894: p_app_name => G_APP_NAME,
9895: p_msg_name => 'OKL_QA_LATE_CHARGE_ERROR');
9896: x_return_status := Okl_Api.G_RET_STS_ERROR;
9897: END IF;
9898: ELSE
9899: CLOSE l_rl_csr;
9900: END IF;
9902: CLOSE l_rl_csr;
9903: END IF;
9904:
9905:
9906: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
9907: Okl_Api.set_message(
9908: p_app_name => G_APP_NAME,
9909: p_msg_name => G_QA_SUCCESS);
9910: END IF;
9903: END IF;
9904:
9905:
9906: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
9907: Okl_Api.set_message(
9908: p_app_name => G_APP_NAME,
9909: p_msg_name => G_QA_SUCCESS);
9910: END IF;
9911:
9922: CLOSE fnd_csr;
9923: END IF;
9924: WHEN OTHERS THEN
9925: -- store SQL error message on message stack
9926: Okl_Api.SET_MESSAGE(
9927: p_app_name => G_APP_NAME,
9928: p_msg_name => G_UNEXPECTED_ERROR,
9929: p_token1 => G_SQLCODE_TOKEN,
9930: p_token1_value => SQLCODE,
9930: p_token1_value => SQLCODE,
9931: p_token2 => G_SQLERRM_TOKEN,
9932: p_token2_value => SQLERRM);
9933: -- notify caller of an error as UNEXPETED error
9934: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
9935: -- verify that cursor was closed
9936: IF l_rl_csr%ISOPEN THEN
9937: CLOSE l_rl_csr;
9938: END IF;
9948: x_return_status OUT NOCOPY VARCHAR2,
9949: p_chr_id IN NUMBER
9950: ) IS
9951:
9952: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
9953: l_dummy VARCHAR2(1) := '?';
9954: l_count NUMBER := 0;
9955: l_row_notfound BOOLEAN;
9956: l_token VARCHAR2(2000);
10012:
10013: BEGIN
10014:
10015: -- initialize return status
10016: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
10017:
10018: OPEN l_hdr_csr(p_chr_id);
10019: FETCH l_hdr_csr INTO l_hdr;
10020: IF l_hdr_csr%NOTFOUND THEN
10034: );
10035:
10036: --If( l_hdrrl_csr%NOTFOUND ) Then
10037: IF( l_okl_bill_to_id IS NULL ) THEN
10038: Okl_Api.set_message(
10039: p_app_name => G_APP_NAME,
10040: p_msg_name => 'OKL_QA_NOBTO');
10041: -- notify caller of an error
10042: x_return_status := Okl_Api.G_RET_STS_ERROR;
10038: Okl_Api.set_message(
10039: p_app_name => G_APP_NAME,
10040: p_msg_name => 'OKL_QA_NOBTO');
10041: -- notify caller of an error
10042: x_return_status := Okl_Api.G_RET_STS_ERROR;
10043: END IF;
10044: --CLOSE l_hdrrl_csr;
10045:
10046: --Bug# 8219011
10067: FETCH pymt_method_csr INTO l_pymt_method_valid_yn;
10068: CLOSE pymt_method_csr;
10069:
10070: IF (l_pymt_method_valid_yn = 'N') THEN
10071: Okl_Api.set_message(
10072: p_app_name => G_APP_NAME,
10073: p_msg_name => 'OKL_QA_PYMT_METHOD_INVALID');
10074: END IF;
10075: END IF;
10088: FETCH bank_acct_csr INTO l_bank_acct_valid_yn;
10089: CLOSE bank_acct_csr;
10090:
10091: IF (l_bank_acct_valid_yn = 'N') THEN
10092: Okl_Api.set_message(
10093: p_app_name => G_APP_NAME,
10094: p_msg_name => 'OKL_QA_BANK_ACCT_INVALID');
10095: END IF;
10096: END IF;
10096: END IF;
10097: END IF;
10098: --Bug# 8219011
10099:
10100: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
10101: Okl_Api.set_message(
10102: p_app_name => G_APP_NAME,
10103: p_msg_name => G_QA_SUCCESS);
10104: END IF;
10097: END IF;
10098: --Bug# 8219011
10099:
10100: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
10101: Okl_Api.set_message(
10102: p_app_name => G_APP_NAME,
10103: p_msg_name => G_QA_SUCCESS);
10104: END IF;
10105:
10108: -- no processing necessary; validation can continue with next column
10109: NULL;
10110: WHEN OTHERS THEN
10111: -- store SQL error message on message stack
10112: Okl_Api.SET_MESSAGE(
10113: p_app_name => G_APP_NAME,
10114: p_msg_name => G_UNEXPECTED_ERROR,
10115: p_token1 => G_SQLCODE_TOKEN,
10116: p_token1_value => SQLCODE,
10116: p_token1_value => SQLCODE,
10117: p_token2 => G_SQLERRM_TOKEN,
10118: p_token2_value => SQLERRM);
10119: -- notify caller of an error as UNEXPETED error
10120: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
10121: -- verify that cursor was closed
10122: IF l_rl_csr%ISOPEN THEN
10123: CLOSE l_rl_csr;
10124: END IF;
10131: x_return_status OUT NOCOPY VARCHAR2,
10132: p_chr_id IN NUMBER
10133: ) IS
10134:
10135: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
10136: l_dummy VARCHAR2(1) := '?';
10137: l_count NUMBER := 0;
10138: l_row_notfound BOOLEAN;
10139: l_token VARCHAR2(2000);
10156:
10157: BEGIN
10158:
10159: -- initialize return status
10160: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
10161:
10162: OPEN Product_csr(p_chr_id);
10163: FETCH Product_csr INTO l_pdt_rec;
10164: IF Product_csr%NOTFOUND THEN
10175: ELSE
10176: check_rule_4new_lnrev(x_return_status, p_chr_id);
10177: END IF;
10178:
10179: IF (x_return_status = Okl_Api.G_RET_STS_ERROR ) THEN
10180: RAISE G_EXCEPTION_HALT_VALIDATION;
10181: END IF;
10182:
10183: -- Bug 4917116
10181: END IF;
10182:
10183: -- Bug 4917116
10184: check_evergreen_allowed(x_return_status, p_chr_id);
10185: IF (x_return_status = Okl_Api.G_RET_STS_ERROR ) THEN
10186: RAISE G_EXCEPTION_HALT_VALIDATION;
10187: END IF;
10188:
10189: EXCEPTION
10191: -- no processing necessary; validation can continue with next column
10192: NULL;
10193: WHEN OTHERS THEN
10194: -- store SQL error message on message stack
10195: Okl_Api.SET_MESSAGE(
10196: p_app_name => G_APP_NAME,
10197: p_msg_name => G_UNEXPECTED_ERROR,
10198: p_token1 => G_SQLCODE_TOKEN,
10199: p_token1_value => SQLCODE,
10199: p_token1_value => SQLCODE,
10200: p_token2 => G_SQLERRM_TOKEN,
10201: p_token2_value => SQLERRM);
10202: -- notify caller of an error as UNEXPETED error
10203: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
10204: -- verify that cursor was closed
10205: IF Product_csr%ISOPEN THEN
10206: CLOSE Product_csr;
10207: END IF;
10212: x_return_status OUT NOCOPY VARCHAR2,
10213: p_chr_id IN NUMBER
10214: ) IS
10215:
10216: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
10217: l_dummy VARCHAR2(1) := '?';
10218: l_count NUMBER := 0;
10219: l_row_notfound BOOLEAN;
10220: l_token VARCHAR2(2000);
10300:
10301: BEGIN
10302:
10303: -- initialize return status
10304: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
10305:
10306: --start:| 23-May-2008 cklee fixed bug: 6781324 |
10307: For l_salvage_rec In l_salvage_csr(p_chr_id => p_chr_id)
10308: Loop
10374: END IF;
10375: CLOSE Product_csr;
10376:
10377: --Bug# 4869443
10378: If (nvl(l_pdt_rec.orig_system_source_code,OKL_API.G_MISS_CHAR) <> 'OKL_RELEASE') and
10379: (nvl(l_pdt_rec.release_Asset_yn,'N') = 'Y') then
10380: Open l_orig_ast_csr(p_chr_id => p_chr_id);
10381: Loop
10382: Fetch l_orig_ast_csr into l_orig_ast_rec;
10388:
10389: l_termination_date := to_char(l_orig_ast_rec.date_terminated,l_icx_date_format);
10390: l_k_start_date := to_char(l_pdt_rec.start_date,l_icx_date_format);
10391:
10392: OKL_API.set_message(p_app_name => G_APP_NAME,
10393: p_msg_name => 'OKL_LA_RELEASE_AST_TRMN_DATE',
10394: p_token1 => 'TERMINATION_DATE',
10395: p_token1_value => l_termination_date,
10396: p_token2 => 'ASSET_NUMBER',
10396: p_token2 => 'ASSET_NUMBER',
10397: p_token2_value => l_orig_ast_rec.asset_number,
10398: p_token3 => 'CONTRACT_START_DATE',
10399: p_token3_value => l_k_start_date);
10400: x_return_status := OKL_API.G_RET_STS_ERROR;
10401: End If;
10402: End Loop;
10403: Close l_orig_ast_csr;
10404:
10401: End If;
10402: End Loop;
10403: Close l_orig_ast_csr;
10404:
10405: IF (x_return_status = OKL_API.G_RET_STS_ERROR ) THEN
10406: RAISE G_EXCEPTION_HALT_VALIDATION;
10407: END IF;
10408: End If;
10409: --End Bug# 4869443
10412: OPEN con_le_roll_qt_le_csr(p_chr_id);
10413: FETCH con_le_roll_qt_le_csr INTO l_diff;
10414: CLOSE con_le_roll_qt_le_csr;
10415: IF l_diff = 1 THEN
10416: x_return_status := OKL_API.G_RET_STS_ERROR;
10417: OKL_API.set_message(p_app_name => G_APP_NAME,
10418: p_msg_name => 'OKL_LA_ROLLOVER_QUOTE_CONTRACT');
10419: RAISE G_EXCEPTION_HALT_VALIDATION;
10420: END IF;
10413: FETCH con_le_roll_qt_le_csr INTO l_diff;
10414: CLOSE con_le_roll_qt_le_csr;
10415: IF l_diff = 1 THEN
10416: x_return_status := OKL_API.G_RET_STS_ERROR;
10417: OKL_API.set_message(p_app_name => G_APP_NAME,
10418: p_msg_name => 'OKL_LA_ROLLOVER_QUOTE_CONTRACT');
10419: RAISE G_EXCEPTION_HALT_VALIDATION;
10420: END IF;
10421:
10423: IF Are_Assets_Inactive(p_chr_id => p_chr_id) = 'Y' THEN
10424: check_func_constrs_4new(x_return_status, p_chr_id);
10425: END IF;
10426:
10427: IF (x_return_status = Okl_Api.G_RET_STS_ERROR ) THEN
10428: RAISE G_EXCEPTION_HALT_VALIDATION;
10429: END IF;
10430:
10431: EXCEPTION
10433: -- no processing necessary; validation can continue with next column
10434: NULL;
10435: WHEN OTHERS THEN
10436: -- store SQL error message on message stack
10437: Okl_Api.SET_MESSAGE(
10438: p_app_name => G_APP_NAME,
10439: p_msg_name => G_UNEXPECTED_ERROR,
10440: p_token1 => G_SQLCODE_TOKEN,
10441: p_token1_value => SQLCODE,
10441: p_token1_value => SQLCODE,
10442: p_token2 => G_SQLERRM_TOKEN,
10443: p_token2_value => SQLERRM);
10444: -- notify caller of an error as UNEXPETED error
10445: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
10446: -- verify that cursor was closed
10447: IF Product_csr%ISOPEN THEN
10448: CLOSE Product_csr;
10449: END IF;
10486: AND txl.kle_id = kleid;
10487:
10488: BEGIN
10489:
10490: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
10491:
10492: OPEN l_hdr_csr(p_chr_id);
10493: FETCH l_hdr_csr INTO l_hdr;
10494: IF l_hdr_csr%NOTFOUND THEN
10517:
10518: FOR l_txd_rec IN txd_csr (l_asst.fa_id)
10519: LOOP
10520: IF (l_txd_rec.cost < l_txl.depreciation_cost) THEN
10521: Okl_Api.set_message(
10522: p_app_name => G_APP_NAME,
10523: p_msg_name => 'OKL_QA_BASISPCNT_GT_100',
10524: p_token1 => 'Line',
10525: p_token1_value => l_lne.name,
10525: p_token1_value => l_lne.name,
10526: p_token2 => 'Tax Book',
10527: p_token2_value => l_txd_rec.tax_book);
10528:
10529: x_return_status := Okl_Api.G_RET_STS_ERROR;
10530: END IF;
10531: END LOOP;
10532:
10533: END LOOP; -- l_lne_csr
10534:
10535: END IF; -- OP and DF lease
10536:
10537:
10538: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
10539: Okl_Api.set_message(
10540: p_app_name => G_APP_NAME,
10541: p_msg_name => G_QA_SUCCESS);
10542: END IF;
10535: END IF; -- OP and DF lease
10536:
10537:
10538: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
10539: Okl_Api.set_message(
10540: p_app_name => G_APP_NAME,
10541: p_msg_name => G_QA_SUCCESS);
10542: END IF;
10543:
10548: NULL; -- Do not do anything
10549:
10550: WHEN OTHERS THEN
10551: -- store SQL error message on message stack
10552: Okl_Api.SET_MESSAGE(
10553: p_app_name => G_APP_NAME,
10554: p_msg_name => G_UNEXPECTED_ERROR,
10555: p_token1 => G_SQLCODE_TOKEN,
10556: p_token1_value => SQLCODE,
10556: p_token1_value => SQLCODE,
10557: p_token2 => G_SQLERRM_TOKEN,
10558: p_token2_value => SQLERRM);
10559:
10560: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
10561:
10562: IF l_hdr_csr%ISOPEN THEN
10563: CLOSE l_hdr_csr;
10564: END IF;
10652: l_sub_cap_amt NUMBER;
10653:
10654: BEGIN
10655:
10656: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
10657:
10658: /*
10659: OPEN contract_csr (p_chr_id);
10660: FETCH contract_csr INTO l_contract_start_date;
10665: LOOP
10666:
10667: /* Checked against linked asset line
10668: IF (l_contract_start_date <> fee_topline_rec.start_date) THEN
10669: OKL_API.set_message(
10670: p_app_name => G_APP_NAME,
10671: p_msg_name => 'OKL_QA_CAP_FEE_ST_DATE',
10672: p_token1 => 'FEE_TYPE',
10673: p_token1_value => fee_topline_rec.strm_type
10672: p_token1 => 'FEE_TYPE',
10673: p_token1_value => fee_topline_rec.strm_type
10674: );
10675:
10676: x_return_status := OKL_API.G_RET_STS_ERROR;
10677: END IF;
10678: */
10679: l_subline_present := 'N';
10680: l_sub_cap_amt := 0;
10689: FETCH link_asset_csr INTO l_asset_start_date;
10690: CLOSE link_asset_csr;
10691:
10692: IF (l_asset_start_date <> fee_topline_rec.start_date) THEN
10693: OKL_API.set_message(
10694: p_app_name => G_APP_NAME,
10695: p_msg_name => 'OKL_QA_CAP_FEE_ST_DATE',
10696: p_token1 => 'FEE_TYPE',
10697: p_token1_value => fee_topline_rec.strm_type
10696: p_token1 => 'FEE_TYPE',
10697: p_token1_value => fee_topline_rec.strm_type
10698: );
10699:
10700: x_return_status := OKL_API.G_RET_STS_ERROR;
10701: END IF;
10702: */
10703: END LOOP;
10704:
10702: */
10703: END LOOP;
10704:
10705: IF (l_subline_present = 'N') THEN
10706: Okl_Api.set_message(
10707: p_app_name => G_APP_NAME,
10708: p_msg_name => 'OKL_QA_CAP_FEE_NO_SUBLINE',
10709: p_token1 => 'FEE_TYPE',
10710: p_token1_value => fee_topline_rec.strm_type
10709: p_token1 => 'FEE_TYPE',
10710: p_token1_value => fee_topline_rec.strm_type
10711: );
10712:
10713: x_return_status := Okl_Api.G_RET_STS_ERROR;
10714:
10715: ELSIF (fee_topline_rec.capital_amount <> l_sub_cap_amt) THEN
10716: Okl_Api.set_message(
10717: p_app_name => G_APP_NAME,
10712:
10713: x_return_status := Okl_Api.G_RET_STS_ERROR;
10714:
10715: ELSIF (fee_topline_rec.capital_amount <> l_sub_cap_amt) THEN
10716: Okl_Api.set_message(
10717: p_app_name => G_APP_NAME,
10718: p_msg_name => 'OKL_QA_CAP_FEE_AMT_ERROR',
10719: p_token1 => 'FEE_TYPE',
10720: p_token1_value => fee_topline_rec.strm_type
10719: p_token1 => 'FEE_TYPE',
10720: p_token1_value => fee_topline_rec.strm_type
10721: );
10722:
10723: x_return_status := Okl_Api.G_RET_STS_ERROR;
10724: END IF;
10725:
10726: END LOOP;
10727:
10724: END IF;
10725:
10726: END LOOP;
10727:
10728: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
10729: Okl_Api.set_message(
10730: p_app_name => G_APP_NAME,
10731: p_msg_name => G_QA_SUCCESS);
10732: END IF;
10725:
10726: END LOOP;
10727:
10728: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
10729: Okl_Api.set_message(
10730: p_app_name => G_APP_NAME,
10731: p_msg_name => G_QA_SUCCESS);
10732: END IF;
10733:
10733:
10734: EXCEPTION
10735: WHEN OTHERS THEN
10736: -- store SQL error message on message stack
10737: Okl_Api.SET_MESSAGE(
10738: p_app_name => G_APP_NAME,
10739: p_msg_name => G_UNEXPECTED_ERROR,
10740: p_token1 => G_SQLCODE_TOKEN,
10741: p_token1_value => SQLCODE,
10741: p_token1_value => SQLCODE,
10742: p_token2 => G_SQLERRM_TOKEN,
10743: p_token2_value => SQLERRM);
10744:
10745: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
10746:
10747: END check_capital_fee;
10748:
10749: -- Start of comments
10786:
10787: l_count NUMBER := 0;
10788:
10789: BEGIN
10790: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
10791:
10792: -- Check for RENT on FEE line
10793:
10794: l_count := 0;
10797: FETCH pmnt_csr INTO l_count;
10798: CLOSE pmnt_csr;
10799:
10800: IF (l_count <> 0) THEN
10801: Okl_Api.set_message(
10802: G_APP_NAME,
10803: 'OKL_QA_INVALID_PMNT_TYPE',
10804: 'LINE_TYPE',
10805: 'FEE'
10803: 'OKL_QA_INVALID_PMNT_TYPE',
10804: 'LINE_TYPE',
10805: 'FEE'
10806: );
10807: x_return_status := Okl_Api.G_RET_STS_ERROR;
10808: END IF;
10809:
10810: -- Check for RENT on SERVICE line
10811: l_count := 0;
10814: FETCH pmnt_csr INTO l_count;
10815: CLOSE pmnt_csr;
10816:
10817: IF (l_count <> 0) THEN
10818: Okl_Api.set_message(
10819: G_APP_NAME,
10820: 'OKL_QA_INVALID_PMNT_TYPE',
10821: 'LINE_TYPE',
10822: 'SERVICE'
10820: 'OKL_QA_INVALID_PMNT_TYPE',
10821: 'LINE_TYPE',
10822: 'SERVICE'
10823: );
10824: x_return_status := Okl_Api.G_RET_STS_ERROR;
10825: END IF;
10826:
10827: END check_fee_service_payment;
10828:
10839: x_return_status OUT NOCOPY VARCHAR2,
10840: p_chr_id IN NUMBER
10841: ) IS
10842:
10843: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
10844:
10845: CURSOR l_lne_pmnt_csr(ltycode VARCHAR2, chrid OKL_K_HEADERS.KHR_ID%TYPE) IS
10846: SELECT kle.name,
10847: kle.CURRENCY_CODE,
10874: l_strm_name_rec strm_name_csr%ROWTYPE;
10875: BEGIN
10876:
10877: -- initialize return status
10878: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
10879:
10880: OPEN l_hdr_csr( p_chr_id );
10881: FETCH l_hdr_csr INTO l_hdr_rec;
10882: CLOSE l_hdr_csr;
10890: OPEN strm_name_csr ( l_rl_rec1.object1_id1 );
10891: FETCH strm_name_csr INTO l_strm_name_rec;
10892: IF strm_name_csr%NOTFOUND THEN
10893: CLOSE strm_name_csr;
10894: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
10895: END IF;
10896: CLOSE strm_name_csr;
10897:
10898: FOR l_rl_rec IN l_rl_csr (l_rl_rec1.slh_id, 'LALEVL', 'LASLL', TO_NUMBER(p_chr_id), l_lne_pmnt.id )
10899: LOOP
10900: IF(( l_rl_rec.rule_information2 IS NOT NULL) AND
10901: (TRUNC( Fnd_Date.canonical_to_date(l_rl_rec.rule_information2)) < TRUNC(l_lne_pmnt.start_date)))THEN
10902:
10903: Okl_Api.set_message(
10904: p_app_name => G_APP_NAME,
10905: p_msg_name => 'OKL_QA_PMNT_LN_START_DT',
10906: p_token1 => 'line',
10907: p_token1_value => l_lne_pmnt.name,
10906: p_token1 => 'line',
10907: p_token1_value => l_lne_pmnt.name,
10908: p_token2 => 'payment type',
10909: p_token2_value => l_strm_name_rec.name);
10910: x_return_status := Okl_Api.G_RET_STS_ERROR;
10911: END IF;
10912: END LOOP;
10913: END LOOP;
10914: END LOOP;
10924: OPEN fee_strm_type_csr ( l_lne_pmnt.id, 'FEE' );
10925: FETCH fee_strm_type_csr INTO l_fee_strm_type_rec;
10926: CLOSE fee_strm_type_csr;
10927:
10928: Okl_Api.set_message(
10929: p_app_name => G_APP_NAME,
10930: p_msg_name => 'OKL_QA_PMNT_LN_START_DT',
10931: p_token1 => 'line',
10932: p_token1_value => l_fee_strm_type_rec.strm_name);
10929: p_app_name => G_APP_NAME,
10930: p_msg_name => 'OKL_QA_PMNT_LN_START_DT',
10931: p_token1 => 'line',
10932: p_token1_value => l_fee_strm_type_rec.strm_name);
10933: x_return_status := Okl_Api.G_RET_STS_ERROR;
10934: END IF;
10935: END LOOP;
10936: END LOOP;
10937:
10941: FOR l_rl_rec1 IN l_rl_csr1 ( 'LALEVL', 'LASLL', TO_NUMBER(p_chr_id), l_lne_pmnt.id )
10942: LOOP
10943: IF(( l_rl_rec1.rule_information2 IS NOT NULL) AND
10944: ( TRUNC(Fnd_Date.canonical_to_date(l_rl_rec1.rule_information2)) < TRUNC(l_lne_pmnt.start_date)))THEN
10945: Okl_Api.set_message(
10946: p_app_name => G_APP_NAME,
10947: p_msg_name => 'OKL_QA_PMNT_LN_START_DT',
10948: p_token1 => 'line',
10949: p_token1_value => l_lne_pmnt.name);
10946: p_app_name => G_APP_NAME,
10947: p_msg_name => 'OKL_QA_PMNT_LN_START_DT',
10948: p_token1 => 'line',
10949: p_token1_value => l_lne_pmnt.name);
10950: x_return_status := Okl_Api.G_RET_STS_ERROR;
10951: END IF;
10952: END LOOP;
10953: END LOOP;
10954:
10955: FOR l_rl_rec1 IN l_rl_csr1 ( 'LALEVL', 'LASLL', TO_NUMBER(p_chr_id), -1 )
10956: LOOP
10957: IF(( l_rl_rec1.rule_information2 IS NOT NULL) AND
10958: ( TRUNC(Fnd_Date.canonical_to_date(l_rl_rec1.rule_information2)) < TRUNC(l_hdr_rec.start_date)))THEN
10959: Okl_Api.set_message(
10960: p_app_name => G_APP_NAME,
10961: p_msg_name => 'OKL_QA_PMNT_START_DT');
10962: x_return_status := Okl_Api.G_RET_STS_ERROR;
10963: END IF;
10958: ( TRUNC(Fnd_Date.canonical_to_date(l_rl_rec1.rule_information2)) < TRUNC(l_hdr_rec.start_date)))THEN
10959: Okl_Api.set_message(
10960: p_app_name => G_APP_NAME,
10961: p_msg_name => 'OKL_QA_PMNT_START_DT');
10962: x_return_status := Okl_Api.G_RET_STS_ERROR;
10963: END IF;
10964: END LOOP;
10965:
10966: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
10962: x_return_status := Okl_Api.G_RET_STS_ERROR;
10963: END IF;
10964: END LOOP;
10965:
10966: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
10967: Okl_Api.set_message(
10968: p_app_name => G_APP_NAME,
10969: p_msg_name => G_QA_SUCCESS);
10970: END IF;
10963: END IF;
10964: END LOOP;
10965:
10966: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
10967: Okl_Api.set_message(
10968: p_app_name => G_APP_NAME,
10969: p_msg_name => G_QA_SUCCESS);
10970: END IF;
10971:
10977: END IF;
10978: -- no processing necessary; validation can continue with next column
10979: WHEN OTHERS THEN
10980: -- store SQL error message on message stack
10981: Okl_Api.SET_MESSAGE(
10982: p_app_name => G_APP_NAME,
10983: p_msg_name => G_UNEXPECTED_ERROR,
10984: p_token1 => G_SQLCODE_TOKEN,
10985: p_token1_value => SQLCODE,
10985: p_token1_value => SQLCODE,
10986: p_token2 => G_SQLERRM_TOKEN,
10987: p_token2_value => SQLERRM);
10988: -- notify caller of an error as UNEXPETED error
10989: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
10990: -- verify that cursor was closed
10991: IF l_hdr_csr%ISOPEN THEN
10992: CLOSE l_hdr_csr;
10993: END IF;
11048: tax_failed EXCEPTION;
11049:
11050: BEGIN
11051:
11052: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
11053:
11054: FOR asset_line_rec IN asset_line_csr (p_chr_id)
11055: LOOP
11056: FOR tax_rule_rec IN tax_rule_csr ('LAASTX',
11061:
11062: IF (tax_rule_rec.rule_information1 = 'E' -- Exempt
11063: AND
11064: tax_rule_rec.rule_information2 IS NULL) THEN
11065: Okl_Api.set_message(
11066: G_APP_NAME,
11067: 'OKL_QA_EXEMPT_ERROR',
11068: 'ASSET_NUM',
11069: asset_line_rec.name);
11066: G_APP_NAME,
11067: 'OKL_QA_EXEMPT_ERROR',
11068: 'ASSET_NUM',
11069: asset_line_rec.name);
11070: x_return_status := Okl_Api.G_RET_STS_ERROR;
11071: --RAISE tax_failed;
11072: ELSIF (tax_rule_rec.rule_information1 IS NULL -- Null
11073: AND
11074: tax_rule_rec.rule_information2 IS NOT NULL) THEN
11071: --RAISE tax_failed;
11072: ELSIF (tax_rule_rec.rule_information1 IS NULL -- Null
11073: AND
11074: tax_rule_rec.rule_information2 IS NOT NULL) THEN
11075: Okl_Api.set_message(
11076: G_APP_NAME,
11077: 'OKL_QA_TAX_NULL',
11078: 'ASSET_NUM',
11079: asset_line_rec.name);
11076: G_APP_NAME,
11077: 'OKL_QA_TAX_NULL',
11078: 'ASSET_NUM',
11079: asset_line_rec.name);
11080: x_return_status := Okl_Api.G_RET_STS_ERROR;
11081: --RAISE tax_failed;
11082: END IF;
11083: END LOOP;
11084:
11083: END LOOP;
11084:
11085: END LOOP;
11086:
11087: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
11088: Okl_Api.set_message(
11089: p_app_name => G_APP_NAME,
11090: p_msg_name => G_QA_SUCCESS);
11091: END IF;
11084:
11085: END LOOP;
11086:
11087: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
11088: Okl_Api.set_message(
11089: p_app_name => G_APP_NAME,
11090: p_msg_name => G_QA_SUCCESS);
11091: END IF;
11092:
11095: WHEN tax_failed THEN
11096: NULL; -- error reported, just exit from this process
11097: WHEN OTHERS THEN
11098: -- store SQL error message on message stack
11099: Okl_Api.SET_MESSAGE(
11100: p_app_name => G_APP_NAME,
11101: p_msg_name => G_UNEXPECTED_ERROR,
11102: p_token1 => G_SQLCODE_TOKEN,
11103: p_token1_value => SQLCODE,
11103: p_token1_value => SQLCODE,
11104: p_token2 => G_SQLERRM_TOKEN,
11105: p_token2_value => SQLERRM);
11106:
11107: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
11108:
11109: END check_asset_tax;
11110:
11111:
11113: x_return_status OUT NOCOPY VARCHAR2,
11114: p_chr_id IN NUMBER) IS
11115:
11116: --p_api_version VARCHAR2(4000) := '1.0';
11117: p_init_msg_list VARCHAR2(4000) DEFAULT Okl_Api.G_FALSE;
11118: x_msg_count NUMBER;
11119: x_msg_data VARCHAR2(256);
11120: subsidy_applicable_yn VARCHAR2(10);
11121: l_subsidy_id NUMBER;
11187: is_debug_statement_on BOOLEAN;
11188:
11189:
11190: BEGIN
11191: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
11192:
11193: -- check if debug is enabled
11194: l_debug_enabled := Okl_Debug_Pub.check_log_enabled;
11195: -- check for logging on STATEMENT level
11203: x_msg_data => x_msg_data,
11204: p_chr_id => p_chr_id,
11205: x_subsidized => x_subsidized);
11206:
11207: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
11208: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11209: ELSIF x_return_status = Okl_Api.G_RET_STS_ERROR THEN
11210: RAISE Okl_Api.G_EXCEPTION_ERROR;
11211: END IF;
11204: p_chr_id => p_chr_id,
11205: x_subsidized => x_subsidized);
11206:
11207: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
11208: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11209: ELSIF x_return_status = Okl_Api.G_RET_STS_ERROR THEN
11210: RAISE Okl_Api.G_EXCEPTION_ERROR;
11211: END IF;
11212:
11205: x_subsidized => x_subsidized);
11206:
11207: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
11208: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11209: ELSIF x_return_status = Okl_Api.G_RET_STS_ERROR THEN
11210: RAISE Okl_Api.G_EXCEPTION_ERROR;
11211: END IF;
11212:
11213: IF (x_subsidized = Okl_Api.G_FALSE) THEN
11206:
11207: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
11208: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11209: ELSIF x_return_status = Okl_Api.G_RET_STS_ERROR THEN
11210: RAISE Okl_Api.G_EXCEPTION_ERROR;
11211: END IF;
11212:
11213: IF (x_subsidized = Okl_Api.G_FALSE) THEN
11214: Okl_Api.set_message(
11209: ELSIF x_return_status = Okl_Api.G_RET_STS_ERROR THEN
11210: RAISE Okl_Api.G_EXCEPTION_ERROR;
11211: END IF;
11212:
11213: IF (x_subsidized = Okl_Api.G_FALSE) THEN
11214: Okl_Api.set_message(
11215: p_app_name => G_APP_NAME,
11216: p_msg_name => G_QA_SUCCESS);
11217: RETURN;
11210: RAISE Okl_Api.G_EXCEPTION_ERROR;
11211: END IF;
11212:
11213: IF (x_subsidized = Okl_Api.G_FALSE) THEN
11214: Okl_Api.set_message(
11215: p_app_name => G_APP_NAME,
11216: p_msg_name => G_QA_SUCCESS);
11217: RETURN;
11218: END IF;
11236: * END code changes
11237: */
11238:
11239: IF (subsidy_applicable_yn = 'N') THEN
11240: Okl_Api.set_message(
11241: p_app_name => G_APP_NAME,
11242: p_msg_name => 'OKL_SUBSIDY_CRITERIA_MATCH',
11243: p_token1 => 'SUBSIDY_NAME',
11244: p_token1_value => get_subsidy_for_asset_rec.subsidy_name,
11243: p_token1 => 'SUBSIDY_NAME',
11244: p_token1_value => get_subsidy_for_asset_rec.subsidy_name,
11245: p_token2 => 'ASSET_NUMBER',
11246: p_token2_value => get_subsidy_for_asset_rec.asset_number);
11247: x_return_status := Okl_Api.G_RET_STS_ERROR;
11248: RAISE G_EXCEPTION_HALT_VALIDATION;
11249: END IF;
11250:
11251: OPEN check_subsidy_recourse(get_subsidy_for_asset_rec.subsidy_id);
11254: IF (recourse_yn = 'Y') THEN
11255: OPEN check_refund_details(get_subsidy_for_asset_rec.subsidy_cle_id);
11256: FETCH check_refund_details INTO check_refund_details_rec;
11257: IF (check_refund_details%NOTFOUND) THEN
11258: x_return_status := Okl_Api.G_RET_STS_ERROR;
11259: Okl_Api.set_message(
11260: p_app_name => G_APP_NAME,
11261: p_msg_name => 'OKL_LA_SUBSIDY_PARTY_PYMT',
11262: p_token1 => 'SUBSIDY_NAME',
11255: OPEN check_refund_details(get_subsidy_for_asset_rec.subsidy_cle_id);
11256: FETCH check_refund_details INTO check_refund_details_rec;
11257: IF (check_refund_details%NOTFOUND) THEN
11258: x_return_status := Okl_Api.G_RET_STS_ERROR;
11259: Okl_Api.set_message(
11260: p_app_name => G_APP_NAME,
11261: p_msg_name => 'OKL_LA_SUBSIDY_PARTY_PYMT',
11262: p_token1 => 'SUBSIDY_NAME',
11263: p_token1_value => get_subsidy_for_asset_rec.subsidy_name ,
11290: -- if the pool status code is not ACTIVE then no date comparision would be done.
11291: lv_subsidy_pool_applicable_yn := Okl_Asset_Subsidy_Pvt.is_sub_pool_active(p_subsidy_pool_id => lx_subsidy_pool_id
11292: ,x_pool_status => lx_pool_status );
11293: IF(lv_subsidy_pool_applicable_yn <> 'Y')THEN
11294: x_return_status := Okl_Api.G_RET_STS_ERROR;
11295: Okl_Api.set_message(
11296: p_app_name => G_APP_NAME,
11297: p_msg_name => G_SUB_POOL_NOT_ACTIVE,
11298: p_token1 => 'SUBSIDY_NAME',
11291: lv_subsidy_pool_applicable_yn := Okl_Asset_Subsidy_Pvt.is_sub_pool_active(p_subsidy_pool_id => lx_subsidy_pool_id
11292: ,x_pool_status => lx_pool_status );
11293: IF(lv_subsidy_pool_applicable_yn <> 'Y')THEN
11294: x_return_status := Okl_Api.G_RET_STS_ERROR;
11295: Okl_Api.set_message(
11296: p_app_name => G_APP_NAME,
11297: p_msg_name => G_SUB_POOL_NOT_ACTIVE,
11298: p_token1 => 'SUBSIDY_NAME',
11299: p_token1_value => get_subsidy_for_asset_rec.subsidy_name ,
11304: -- validate if the asset start date lies between the effective dates of the subsidy pool
11305: lv_subsidy_pool_applicable_yn := Okl_Asset_Subsidy_Pvt.is_sub_pool_active_by_date(p_subsidy_pool_id => lx_subsidy_pool_id
11306: ,p_asset_date => get_subsidy_for_asset_rec.asset_start_date );
11307: IF(lv_subsidy_pool_applicable_yn <> 'Y')THEN
11308: x_return_status := Okl_Api.G_RET_STS_ERROR;
11309: Okl_Api.set_message(
11310: p_app_name => G_APP_NAME,
11311: p_msg_name => G_SUB_POOL_ASSET_DATES_GAP,
11312: p_token1 => 'SUBSIDY_NAME',
11305: lv_subsidy_pool_applicable_yn := Okl_Asset_Subsidy_Pvt.is_sub_pool_active_by_date(p_subsidy_pool_id => lx_subsidy_pool_id
11306: ,p_asset_date => get_subsidy_for_asset_rec.asset_start_date );
11307: IF(lv_subsidy_pool_applicable_yn <> 'Y')THEN
11308: x_return_status := Okl_Api.G_RET_STS_ERROR;
11309: Okl_Api.set_message(
11310: p_app_name => G_APP_NAME,
11311: p_msg_name => G_SUB_POOL_ASSET_DATES_GAP,
11312: p_token1 => 'SUBSIDY_NAME',
11313: p_token1_value => get_subsidy_for_asset_rec.subsidy_name ,
11319: lx_pool_balance := 0;
11320: lv_subsidy_pool_applicable_yn := Okl_Asset_Subsidy_Pvt.is_balance_valid_before_add(p_subsidy_pool_id => lx_subsidy_pool_id
11321: ,x_pool_balance => lx_pool_balance);
11322: IF(lv_subsidy_pool_applicable_yn <> 'Y')THEN
11323: x_return_status := Okl_Api.G_RET_STS_ERROR;
11324: Okl_Api.set_message(
11325: p_app_name => G_APP_NAME,
11326: p_msg_name => G_SUB_POOL_BALANCE_INVALID,
11327: p_token1 => 'SUBSIDY_NAME',
11320: lv_subsidy_pool_applicable_yn := Okl_Asset_Subsidy_Pvt.is_balance_valid_before_add(p_subsidy_pool_id => lx_subsidy_pool_id
11321: ,x_pool_balance => lx_pool_balance);
11322: IF(lv_subsidy_pool_applicable_yn <> 'Y')THEN
11323: x_return_status := Okl_Api.G_RET_STS_ERROR;
11324: Okl_Api.set_message(
11325: p_app_name => G_APP_NAME,
11326: p_msg_name => G_SUB_POOL_BALANCE_INVALID,
11327: p_token1 => 'SUBSIDY_NAME',
11328: p_token1_value => get_subsidy_for_asset_rec.subsidy_name ,
11349: 'okl_asset_subsidy_pvt.is_balance_valid_after_add returned with '|| x_return_status||' x_msg_data '||x_msg_data
11350: );
11351: END IF; -- end of NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on
11352: EXCEPTION WHEN OTHERS THEN
11353: x_return_status := Okl_Api.G_RET_STS_ERROR;
11354: /*comment out to avoid duplicated error: cklee 09/12/2005
11355: OKL_API.set_message(
11356: p_app_name => G_APP_NAME,
11357: p_msg_name => G_SUB_POOL_BALANCE_INVALID,
11351: END IF; -- end of NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on
11352: EXCEPTION WHEN OTHERS THEN
11353: x_return_status := Okl_Api.G_RET_STS_ERROR;
11354: /*comment out to avoid duplicated error: cklee 09/12/2005
11355: OKL_API.set_message(
11356: p_app_name => G_APP_NAME,
11357: p_msg_name => G_SUB_POOL_BALANCE_INVALID,
11358: p_token1 => 'SUBSIDY_NAME',
11359: p_token1_value => get_subsidy_for_asset_rec.subsidy_name ,
11370: * END
11371: */
11372: END LOOP;
11373:
11374: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
11375: Okl_Api.set_message(
11376: p_app_name => G_APP_NAME,
11377: p_msg_name => G_QA_SUCCESS);
11378: END IF;
11371: */
11372: END LOOP;
11373:
11374: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
11375: Okl_Api.set_message(
11376: p_app_name => G_APP_NAME,
11377: p_msg_name => G_QA_SUCCESS);
11378: END IF;
11379:
11382: WHEN G_EXCEPTION_HALT_VALIDATION THEN
11383: NULL; -- error reported, just exit from this process
11384: WHEN OTHERS THEN
11385: -- store SQL error message on message stack
11386: Okl_Api.SET_MESSAGE(
11387: p_app_name => G_APP_NAME,
11388: p_msg_name => G_UNEXPECTED_ERROR,
11389: p_token1 => G_SQLCODE_TOKEN,
11390: p_token1_value => SQLCODE,
11390: p_token1_value => SQLCODE,
11391: p_token2 => G_SQLERRM_TOKEN,
11392: p_token2_value => SQLERRM);
11393:
11394: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
11395:
11396: IF check_subsidy_recourse%ISOPEN THEN
11397: CLOSE check_subsidy_recourse;
11398: END IF;
11407: x_return_status OUT NOCOPY VARCHAR2,
11408: p_chr_id IN NUMBER) IS
11409:
11410: --p_api_version VARCHAR2(4000) := '1.0';
11411: p_init_msg_list VARCHAR2(4000) DEFAULT Okl_Api.G_FALSE;
11412: stored_subsidy_amount NUMBER;
11413: calc_subsidy_amount NUMBER;
11414: x_subsidy_amount NUMBER;
11415: x_msg_count NUMBER;
11416: x_msg_data VARCHAR2(256);
11417: x_subsidized VARCHAR2(1);
11418:
11419: BEGIN
11420: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
11421:
11422: Okl_Subsidy_Process_Pvt.is_contract_subsidized(
11423: p_api_version => 1.0,
11424: p_init_msg_list => p_init_msg_list,
11427: x_msg_data => x_msg_data,
11428: p_chr_id => p_chr_id,
11429: x_subsidized => x_subsidized);
11430:
11431: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
11432: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11433: ELSIF x_return_status = Okl_Api.G_RET_STS_ERROR THEN
11434: RAISE Okl_Api.G_EXCEPTION_ERROR;
11435: END IF;
11428: p_chr_id => p_chr_id,
11429: x_subsidized => x_subsidized);
11430:
11431: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
11432: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11433: ELSIF x_return_status = Okl_Api.G_RET_STS_ERROR THEN
11434: RAISE Okl_Api.G_EXCEPTION_ERROR;
11435: END IF;
11436:
11429: x_subsidized => x_subsidized);
11430:
11431: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
11432: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11433: ELSIF x_return_status = Okl_Api.G_RET_STS_ERROR THEN
11434: RAISE Okl_Api.G_EXCEPTION_ERROR;
11435: END IF;
11436:
11437: IF (x_subsidized = Okl_Api.G_FALSE) THEN
11430:
11431: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
11432: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11433: ELSIF x_return_status = Okl_Api.G_RET_STS_ERROR THEN
11434: RAISE Okl_Api.G_EXCEPTION_ERROR;
11435: END IF;
11436:
11437: IF (x_subsidized = Okl_Api.G_FALSE) THEN
11438: Okl_Api.set_message(
11433: ELSIF x_return_status = Okl_Api.G_RET_STS_ERROR THEN
11434: RAISE Okl_Api.G_EXCEPTION_ERROR;
11435: END IF;
11436:
11437: IF (x_subsidized = Okl_Api.G_FALSE) THEN
11438: Okl_Api.set_message(
11439: p_app_name => G_APP_NAME,
11440: p_msg_name => G_QA_SUCCESS);
11441: RETURN;
11434: RAISE Okl_Api.G_EXCEPTION_ERROR;
11435: END IF;
11436:
11437: IF (x_subsidized = Okl_Api.G_FALSE) THEN
11438: Okl_Api.set_message(
11439: p_app_name => G_APP_NAME,
11440: p_msg_name => G_QA_SUCCESS);
11441: RETURN;
11442: END IF;
11441: RETURN;
11442: END IF;
11443:
11444: Okl_Subsidy_Process_Pvt.get_contract_subsidy_amount(p_api_version => 1.0,
11445: p_init_msg_list => Okl_Api.G_FALSE,
11446: x_return_status => x_return_status,
11447: x_msg_count => x_msg_count,
11448: x_msg_data => x_msg_data,
11449: p_chr_id => p_chr_id,
11447: x_msg_count => x_msg_count,
11448: x_msg_data => x_msg_data,
11449: p_chr_id => p_chr_id,
11450: x_subsidy_amount => x_subsidy_amount);
11451: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
11452: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11453: ELSIF x_return_status = Okl_Api.G_RET_STS_ERROR THEN
11454: RAISE Okl_Api.G_EXCEPTION_ERROR;
11455: END IF;
11448: x_msg_data => x_msg_data,
11449: p_chr_id => p_chr_id,
11450: x_subsidy_amount => x_subsidy_amount);
11451: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
11452: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11453: ELSIF x_return_status = Okl_Api.G_RET_STS_ERROR THEN
11454: RAISE Okl_Api.G_EXCEPTION_ERROR;
11455: END IF;
11456:
11449: p_chr_id => p_chr_id,
11450: x_subsidy_amount => x_subsidy_amount);
11451: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
11452: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11453: ELSIF x_return_status = Okl_Api.G_RET_STS_ERROR THEN
11454: RAISE Okl_Api.G_EXCEPTION_ERROR;
11455: END IF;
11456:
11457: stored_subsidy_amount := x_subsidy_amount;
11450: x_subsidy_amount => x_subsidy_amount);
11451: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
11452: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11453: ELSIF x_return_status = Okl_Api.G_RET_STS_ERROR THEN
11454: RAISE Okl_Api.G_EXCEPTION_ERROR;
11455: END IF;
11456:
11457: stored_subsidy_amount := x_subsidy_amount;
11458: Okl_Subsidy_Process_Pvt.calculate_contract_subsidy(p_api_version => 1.0,
11455: END IF;
11456:
11457: stored_subsidy_amount := x_subsidy_amount;
11458: Okl_Subsidy_Process_Pvt.calculate_contract_subsidy(p_api_version => 1.0,
11459: p_init_msg_list => Okl_Api.G_FALSE,
11460: x_return_status => x_return_status,
11461: x_msg_count => x_msg_count,
11462: x_msg_data => x_msg_data,
11463: p_chr_id => p_chr_id,
11462: x_msg_data => x_msg_data,
11463: p_chr_id => p_chr_id,
11464: x_subsidy_amount => x_subsidy_amount);
11465:
11466: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
11467: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11468: ELSIF x_return_status = Okl_Api.G_RET_STS_ERROR THEN
11469: RAISE Okl_Api.G_EXCEPTION_ERROR;
11470: END IF;
11463: p_chr_id => p_chr_id,
11464: x_subsidy_amount => x_subsidy_amount);
11465:
11466: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
11467: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11468: ELSIF x_return_status = Okl_Api.G_RET_STS_ERROR THEN
11469: RAISE Okl_Api.G_EXCEPTION_ERROR;
11470: END IF;
11471:
11464: x_subsidy_amount => x_subsidy_amount);
11465:
11466: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
11467: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11468: ELSIF x_return_status = Okl_Api.G_RET_STS_ERROR THEN
11469: RAISE Okl_Api.G_EXCEPTION_ERROR;
11470: END IF;
11471:
11472: calc_subsidy_amount := x_subsidy_amount;
11465:
11466: IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
11467: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11468: ELSIF x_return_status = Okl_Api.G_RET_STS_ERROR THEN
11469: RAISE Okl_Api.G_EXCEPTION_ERROR;
11470: END IF;
11471:
11472: calc_subsidy_amount := x_subsidy_amount;
11473: IF (stored_subsidy_amount <> calc_subsidy_amount) THEN
11470: END IF;
11471:
11472: calc_subsidy_amount := x_subsidy_amount;
11473: IF (stored_subsidy_amount <> calc_subsidy_amount) THEN
11474: Okl_Api.set_message(
11475: p_app_name => G_APP_NAME,
11476: p_msg_name => 'OKL_SUBSIDY_AMOUNT_MATCH');
11477: x_return_status := Okl_Api.G_RET_STS_ERROR;
11478: RAISE G_EXCEPTION_HALT_VALIDATION;
11473: IF (stored_subsidy_amount <> calc_subsidy_amount) THEN
11474: Okl_Api.set_message(
11475: p_app_name => G_APP_NAME,
11476: p_msg_name => 'OKL_SUBSIDY_AMOUNT_MATCH');
11477: x_return_status := Okl_Api.G_RET_STS_ERROR;
11478: RAISE G_EXCEPTION_HALT_VALIDATION;
11479: END IF;
11480:
11481: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
11477: x_return_status := Okl_Api.G_RET_STS_ERROR;
11478: RAISE G_EXCEPTION_HALT_VALIDATION;
11479: END IF;
11480:
11481: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
11482: Okl_Api.set_message(
11483: p_app_name => G_APP_NAME,
11484: p_msg_name => G_QA_SUCCESS);
11485: END IF;
11478: RAISE G_EXCEPTION_HALT_VALIDATION;
11479: END IF;
11480:
11481: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
11482: Okl_Api.set_message(
11483: p_app_name => G_APP_NAME,
11484: p_msg_name => G_QA_SUCCESS);
11485: END IF;
11486:
11489: WHEN G_EXCEPTION_HALT_VALIDATION THEN
11490: NULL; -- error reported, just exit from this process
11491: WHEN OTHERS THEN
11492: -- store SQL error message on message stack
11493: Okl_Api.SET_MESSAGE(
11494: p_app_name => G_APP_NAME,
11495: p_msg_name => G_UNEXPECTED_ERROR,
11496: p_token1 => G_SQLCODE_TOKEN,
11497: p_token1_value => SQLCODE,
11497: p_token1_value => SQLCODE,
11498: p_token2 => G_SQLERRM_TOKEN,
11499: p_token2_value => SQLERRM);
11500:
11501: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
11502:
11503: END;
11504:
11505: -- Start of comments
11515: x_return_status OUT NOCOPY VARCHAR2,
11516: p_chr_id IN NUMBER
11517: ) IS
11518:
11519: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
11520: x_msg_count NUMBER;
11521: x_msg_data VARCHAR2(1000);
11522:
11523: BEGIN
11523: BEGIN
11524: --
11525: -- Check credit lines
11526: --
11527: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
11528:
11529: Okl_La_Validation_Util_Pvt.validate_crdtln_wrng (
11530: p_api_version => 1.0,
11531: p_init_msg_list => Okl_Api.G_FALSE,
11527: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
11528:
11529: Okl_La_Validation_Util_Pvt.validate_crdtln_wrng (
11530: p_api_version => 1.0,
11531: p_init_msg_list => Okl_Api.G_FALSE,
11532: x_return_status => l_return_status,
11533: x_msg_count => x_msg_count,
11534: x_msg_data => x_msg_data,
11535: p_chr_id => p_chr_id
11534: x_msg_data => x_msg_data,
11535: p_chr_id => p_chr_id
11536: );
11537:
11538: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
11539: x_return_status := l_return_status;
11540: END IF;
11541:
11542: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
11538: IF (l_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
11539: x_return_status := l_return_status;
11540: END IF;
11541:
11542: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
11543: Okl_Api.set_message(
11544: p_app_name => G_APP_NAME,
11545: p_msg_name => G_QA_SUCCESS);
11546: END IF;
11539: x_return_status := l_return_status;
11540: END IF;
11541:
11542: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
11543: Okl_Api.set_message(
11544: p_app_name => G_APP_NAME,
11545: p_msg_name => G_QA_SUCCESS);
11546: END IF;
11547:
11560: x_return_status OUT NOCOPY VARCHAR2,
11561: p_chr_id IN NUMBER
11562: ) IS
11563:
11564: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
11565: x_msg_count NUMBER;
11566: x_msg_data VARCHAR2(1000);
11567: l_invoice_format OKC_RULES_B.RULE_INFORMATION1%TYPE;
11568:
11580: BEGIN
11581: --
11582: -- Check invoice format
11583: --
11584: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
11585:
11586: OPEN l_invoice_format_csr;
11587: FETCH l_invoice_format_csr INTO l_invoice_format;
11588: IF (l_invoice_format_csr%NOTFOUND OR l_invoice_format IS NULL) THEN
11585:
11586: OPEN l_invoice_format_csr;
11587: FETCH l_invoice_format_csr INTO l_invoice_format;
11588: IF (l_invoice_format_csr%NOTFOUND OR l_invoice_format IS NULL) THEN
11589: x_return_status := Okl_Api.G_RET_STS_ERROR;
11590: Okl_Api.set_message(
11591: p_app_name => G_APP_NAME,
11592: p_msg_name => 'OKL_QA_NO_INV_FORMAT');
11593: END IF;
11586: OPEN l_invoice_format_csr;
11587: FETCH l_invoice_format_csr INTO l_invoice_format;
11588: IF (l_invoice_format_csr%NOTFOUND OR l_invoice_format IS NULL) THEN
11589: x_return_status := Okl_Api.G_RET_STS_ERROR;
11590: Okl_Api.set_message(
11591: p_app_name => G_APP_NAME,
11592: p_msg_name => 'OKL_QA_NO_INV_FORMAT');
11593: END IF;
11594: CLOSE l_invoice_format_csr;
11593: END IF;
11594: CLOSE l_invoice_format_csr;
11595:
11596:
11597: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
11598: Okl_Api.set_message(
11599: p_app_name => G_APP_NAME,
11600: p_msg_name => G_QA_SUCCESS);
11601: END IF;
11594: CLOSE l_invoice_format_csr;
11595:
11596:
11597: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
11598: Okl_Api.set_message(
11599: p_app_name => G_APP_NAME,
11600: p_msg_name => G_QA_SUCCESS);
11601: END IF;
11602:
11650: AND sgn.sgn_code = 'STMP';
11651:
11652: l_assets_txl_lines_rec l_assets_txl_lines%ROWTYPE;
11653: l_tax_mapping_found VARCHAR2(1) DEFAULT 'N';
11654: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
11655:
11656: BEGIN
11657:
11658: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
11654: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
11655:
11656: BEGIN
11657:
11658: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
11659:
11660: FOR l_assets_txl_lines_rec IN l_assets_txl_lines
11661: LOOP
11662: l_tax_mapping_found := 'N';
11662: l_tax_mapping_found := 'N';
11663: OPEN l_check_tax_map_for_asset(l_assets_txl_lines_rec.tax_book);
11664: FETCH l_check_tax_map_for_asset INTO l_tax_mapping_found;
11665: IF (l_check_tax_map_for_asset%NOTFOUND) THEN
11666: Okl_Api.set_message(
11667: p_app_name => G_APP_NAME,
11668: p_msg_name => 'OKL_QA_NO_TAX_MAP',
11669: p_token1 => 'TAX_BOOK',
11670: p_token1_value => l_assets_txl_lines_rec.tax_book,
11669: p_token1 => 'TAX_BOOK',
11670: p_token1_value => l_assets_txl_lines_rec.tax_book,
11671: p_token2 => 'ASSET_NUM',
11672: p_token2_value => l_assets_txl_lines_rec.asset_num);
11673: x_return_status := Okl_Api.G_RET_STS_ERROR;
11674: END IF;
11675: CLOSE l_check_tax_map_for_asset;
11676: END LOOP;
11677:
11674: END IF;
11675: CLOSE l_check_tax_map_for_asset;
11676: END LOOP;
11677:
11678: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
11679: Okl_Api.set_message(
11680: p_app_name => G_APP_NAME,
11681: p_msg_name => G_QA_SUCCESS);
11682: END IF;
11675: CLOSE l_check_tax_map_for_asset;
11676: END LOOP;
11677:
11678: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
11679: Okl_Api.set_message(
11680: p_app_name => G_APP_NAME,
11681: p_msg_name => G_QA_SUCCESS);
11682: END IF;
11683:
11683:
11684: EXCEPTION
11685: WHEN OTHERS THEN
11686: -- store SQL error message on message stack
11687: Okl_Api.SET_MESSAGE(
11688: p_app_name => G_APP_NAME,
11689: p_msg_name => G_UNEXPECTED_ERROR,
11690: p_token1 => G_SQLCODE_TOKEN,
11691: p_token1_value => SQLCODE,
11691: p_token1_value => SQLCODE,
11692: p_token2 => G_SQLERRM_TOKEN,
11693: p_token2_value => SQLERRM);
11694:
11695: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
11696:
11697: IF l_check_tax_map_for_asset%ISOPEN THEN
11698: CLOSE l_check_tax_map_for_asset;
11699: END IF;
11717: ) IS
11718:
11719: l_hdr l_hdr_csr%ROWTYPE;
11720: l_hdrrl_rec l_hdrrl_csr%ROWTYPE;
11721: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
11722:
11723: BEGIN
11724:
11725: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
11721: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
11722:
11723: BEGIN
11724:
11725: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
11726:
11727: OPEN l_hdr_csr(p_chr_id);
11728: FETCH l_hdr_csr INTO l_hdr;
11729: IF l_hdr_csr%NOTFOUND THEN
11736: FETCH l_hdrrl_csr INTO l_hdrrl_rec;
11737: CLOSE l_hdrrl_csr;
11738:
11739: IF ((INSTR( l_hdr.DEAL_TYPE,'ST') > 0 ) AND (l_hdrrl_rec.RULE_INFORMATION1 <> 'LESSEE')) THEN
11740: Okl_Api.set_message(
11741: p_app_name => G_APP_NAME,
11742: p_msg_name => 'OKL_QA_ST_LESSEE');
11743: -- notify caller of an error
11744: x_return_status := Okl_Api.G_RET_STS_ERROR;
11740: Okl_Api.set_message(
11741: p_app_name => G_APP_NAME,
11742: p_msg_name => 'OKL_QA_ST_LESSEE');
11743: -- notify caller of an error
11744: x_return_status := Okl_Api.G_RET_STS_ERROR;
11745: END IF;
11746:
11747: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
11748: Okl_Api.set_message(
11743: -- notify caller of an error
11744: x_return_status := Okl_Api.G_RET_STS_ERROR;
11745: END IF;
11746:
11747: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
11748: Okl_Api.set_message(
11749: p_app_name => G_APP_NAME,
11750: p_msg_name => G_QA_SUCCESS);
11751: END IF;
11744: x_return_status := Okl_Api.G_RET_STS_ERROR;
11745: END IF;
11746:
11747: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
11748: Okl_Api.set_message(
11749: p_app_name => G_APP_NAME,
11750: p_msg_name => G_QA_SUCCESS);
11751: END IF;
11752:
11752:
11753: EXCEPTION
11754: WHEN OTHERS THEN
11755: -- store SQL error message on message stack
11756: Okl_Api.SET_MESSAGE(
11757: p_app_name => G_APP_NAME,
11758: p_msg_name => G_UNEXPECTED_ERROR,
11759: p_token1 => G_SQLCODE_TOKEN,
11760: p_token1_value => SQLCODE,
11760: p_token1_value => SQLCODE,
11761: p_token2 => G_SQLERRM_TOKEN,
11762: p_token2_value => SQLERRM);
11763:
11764: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
11765:
11766: IF l_hdr_csr%ISOPEN THEN
11767: CLOSE l_hdr_csr;
11768: END IF;
11789: x_return_status OUT NOCOPY VARCHAR2,
11790: p_chr_id IN NUMBER
11791: ) IS
11792:
11793: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
11794: x_msg_count NUMBER;
11795: x_msg_data VARCHAR2(1000);
11796: l_invoice_format OKC_RULES_B.RULE_INFORMATION1%TYPE;
11797:
11863: --
11864: -- Check payment lines for similar structure
11865: -- No 2 consecutive payment lines have same amount
11866: --
11867: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
11868:
11869: FOR l_chr_rec IN l_chr_csr (p_chr_id)
11870: LOOP
11871: IF (l_chr_rec.deal_type IN ('LOAN','LOAN-REVOLVING')) THEN
11888: AND -- Bug 4766555
11889: (TO_NUMBER(NVL(l_prev_rate,0)) = TO_NUMBER(NVL(l_strm_sll_rec.rate,'0')))
11890: THEN
11891: -- Error
11892: Okl_Api.set_message(
11893: G_APP_NAME,
11894: 'OKL_QA_INVALID_PMNT',
11895: 'LINE_TYPE',
11896: l_lne_rec.line_type,
11896: l_lne_rec.line_type,
11897: 'PMNT_TYPE',
11898: l_strm_slh_rec.stream_type
11899: );
11900: x_return_status := Okl_Api.G_RET_STS_ERROR;
11901: ELSE
11902: l_prev_pmnt := TO_NUMBER(NVL(l_strm_sll_rec.amt,'0'));
11903: l_prev_rate := TO_NUMBER(NVL(l_strm_sll_rec.rate,'0'));
11904: END IF; --check
11923: ELSE
11924: -- Check payment amount here
11925: IF (l_prev_pmnt = TO_NUMBER(NVL(l_strm_sll_rec.amt,'0'))) THEN
11926: -- Error
11927: Okl_Api.set_message(
11928: G_APP_NAME,
11929: 'OKL_QA_INVALID_PMNT_HDR',
11930: 'PMNT_TYPE',
11931: l_strm_slh_rec.stream_type
11929: 'OKL_QA_INVALID_PMNT_HDR',
11930: 'PMNT_TYPE',
11931: l_strm_slh_rec.stream_type
11932: );
11933: x_return_status := Okl_Api.G_RET_STS_ERROR;
11934: ELSE
11935: l_prev_pmnt := TO_NUMBER(NVL(l_strm_sll_rec.amt,'0'));
11936: END IF; --check
11937:
11956: ELSE
11957: -- Check payment amount here
11958: IF (l_prev_pmnt = TO_NUMBER(NVL(l_strm_sll_rec.amt,'0'))) THEN
11959: -- Error
11960: Okl_Api.set_message(
11961: G_APP_NAME,
11962: 'OKL_QA_INVALID_PMNT',
11963: 'LINE_TYPE',
11964: l_financed_rec.line_type,
11964: l_financed_rec.line_type,
11965: 'PMNT_TYPE',
11966: l_strm_slh_rec.stream_type
11967: );
11968: x_return_status := Okl_Api.G_RET_STS_ERROR;
11969: ELSE
11970: l_prev_pmnt := TO_NUMBER(NVL(l_strm_sll_rec.amt,'0'));
11971: END IF; --check
11972:
11978:
11979: END IF;-- deal_type
11980: END LOOP; --l_chr_csr;
11981:
11982: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
11983: Okl_Api.set_message(
11984: p_app_name => G_APP_NAME,
11985: p_msg_name => G_QA_SUCCESS);
11986: END IF;
11979: END IF;-- deal_type
11980: END LOOP; --l_chr_csr;
11981:
11982: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
11983: Okl_Api.set_message(
11984: p_app_name => G_APP_NAME,
11985: p_msg_name => G_QA_SUCCESS);
11986: END IF;
11987:
11987:
11988: EXCEPTION
11989: WHEN OTHERS THEN
11990: -- store SQL error message on message stack
11991: Okl_Api.SET_MESSAGE(
11992: p_app_name => G_APP_NAME,
11993: p_msg_name => G_UNEXPECTED_ERROR,
11994: p_token1 => G_SQLCODE_TOKEN,
11995: p_token1_value => SQLCODE,
11995: p_token1_value => SQLCODE,
11996: p_token2 => G_SQLERRM_TOKEN,
11997: p_token2_value => SQLERRM);
11998:
11999: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
12000:
12001: END check_payment_struct;
12002:
12003: -- Start of comments
12017:
12018: l_hdr l_hdr_csr%ROWTYPE;
12019:
12020: BEGIN
12021: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
12022:
12023: OPEN l_hdr_csr(p_chr_id);
12024: FETCH l_hdr_csr INTO l_hdr;
12025: IF l_hdr_csr%NOTFOUND THEN
12028: END IF;
12029: CLOSE l_hdr_csr;
12030:
12031: IF( l_hdr.DATE_SIGNED >= l_hdr.START_DATE) THEN
12032: Okl_Api.set_message(
12033: p_app_name => G_APP_NAME,
12034: p_msg_name => 'OKL_QA_DATESIGNED_LT_START');
12035: -- notify caller of an error
12036: x_return_status := Okl_Api.G_RET_STS_ERROR;
12032: Okl_Api.set_message(
12033: p_app_name => G_APP_NAME,
12034: p_msg_name => 'OKL_QA_DATESIGNED_LT_START');
12035: -- notify caller of an error
12036: x_return_status := Okl_Api.G_RET_STS_ERROR;
12037: END IF;
12038:
12039: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
12040: Okl_Api.set_message(
12035: -- notify caller of an error
12036: x_return_status := Okl_Api.G_RET_STS_ERROR;
12037: END IF;
12038:
12039: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
12040: Okl_Api.set_message(
12041: p_app_name => G_APP_NAME,
12042: p_msg_name => G_QA_SUCCESS);
12043: END IF;
12036: x_return_status := Okl_Api.G_RET_STS_ERROR;
12037: END IF;
12038:
12039: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
12040: Okl_Api.set_message(
12041: p_app_name => G_APP_NAME,
12042: p_msg_name => G_QA_SUCCESS);
12043: END IF;
12044:
12047: WHEN G_EXCEPTION_HALT_VALIDATION THEN
12048: NULL; -- error reported, just exit from this process
12049: WHEN OTHERS THEN
12050: -- store SQL error message on message stack
12051: Okl_Api.SET_MESSAGE(
12052: p_app_name => G_APP_NAME,
12053: p_msg_name => G_UNEXPECTED_ERROR,
12054: p_token1 => G_SQLCODE_TOKEN,
12055: p_token1_value => SQLCODE,
12055: p_token1_value => SQLCODE,
12056: p_token2 => G_SQLERRM_TOKEN,
12057: p_token2_value => SQLERRM);
12058:
12059: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
12060:
12061: IF l_hdr_csr%ISOPEN THEN
12062: CLOSE l_hdr_csr;
12063: END IF;
12138: and fab.transaction_header_id_out is null;
12139:
12140: BEGIN
12141:
12142: x_return_status := OKL_API.G_RET_STS_SUCCESS;
12143:
12144: --check for rebook contract
12145: l_rbk_khr := '?';
12146: OPEN l_chk_rbk_csr (p_chr_id => p_chr_id);
12153: Loop
12154:
12155: If NVL(l_corp_book_rec.original_cost,0) <> NVL(l_corp_book_rec.new_cost,0) Then
12156:
12157: OKL_API.set_message(
12158: p_app_name => G_APP_NAME,
12159: p_msg_name => 'OKL_LA_DEPRN_COST_CHG',
12160: p_token1 => 'ASSET_NUMBER',
12161: p_token1_value => l_corp_book_rec.asset_number);
12158: p_app_name => G_APP_NAME,
12159: p_msg_name => 'OKL_LA_DEPRN_COST_CHG',
12160: p_token1 => 'ASSET_NUMBER',
12161: p_token1_value => l_corp_book_rec.asset_number);
12162: x_return_status := OKL_API.G_RET_STS_ERROR;
12163:
12164: Else
12165:
12166: For l_tax_book_rec In l_tax_book_csr(p_tal_id => l_corp_book_rec.tal_id)
12166: For l_tax_book_rec In l_tax_book_csr(p_tal_id => l_corp_book_rec.tal_id)
12167: Loop
12168:
12169: If NVL(l_tax_book_rec.original_cost,0) <> NVL(l_tax_book_rec.new_cost,0) Then
12170: OKL_API.set_message(
12171: p_app_name => G_APP_NAME,
12172: p_msg_name => 'OKL_LA_DEPRN_COST_CHG',
12173: p_token1 => 'ASSET_NUMBER',
12174: p_token1_value => l_tax_book_rec.asset_number);
12171: p_app_name => G_APP_NAME,
12172: p_msg_name => 'OKL_LA_DEPRN_COST_CHG',
12173: p_token1 => 'ASSET_NUMBER',
12174: p_token1_value => l_tax_book_rec.asset_number);
12175: x_return_status := OKL_API.G_RET_STS_ERROR;
12176:
12177: Exit;
12178: End If;
12179:
12181: End If;
12182: End Loop;
12183: End If;
12184:
12185: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
12186: OKL_API.set_message(
12187: p_app_name => G_APP_NAME,
12188: p_msg_name => G_QA_SUCCESS);
12189: END IF;
12182: End Loop;
12183: End If;
12184:
12185: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
12186: OKL_API.set_message(
12187: p_app_name => G_APP_NAME,
12188: p_msg_name => G_QA_SUCCESS);
12189: END IF;
12190:
12190:
12191: EXCEPTION
12192: WHEN OTHERS THEN
12193: -- store SQL error message on message stack
12194: OKL_API.SET_MESSAGE(
12195: p_app_name => G_APP_NAME,
12196: p_msg_name => G_UNEXPECTED_ERROR,
12197: p_token1 => G_SQLCODE_TOKEN,
12198: p_token1_value => SQLCODE,
12198: p_token1_value => SQLCODE,
12199: p_token2 => G_SQLERRM_TOKEN,
12200: p_token2_value => SQLERRM);
12201:
12202: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
12203:
12204: END check_asset_deprn_cost;
12205: --Bug# 4899328: End
12206:
12218: PROCEDURE check_late_int_date(
12219: x_return_status OUT NOCOPY VARCHAR2,
12220: p_chr_id IN NUMBER
12221: ) IS
12222: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
12223: l_hdrrl_rec l_hdrrl_csr%ROWTYPE;
12224: l_hdr l_hdr_csr%ROWTYPE;
12225: BEGIN
12226:
12223: l_hdrrl_rec l_hdrrl_csr%ROWTYPE;
12224: l_hdr l_hdr_csr%ROWTYPE;
12225: BEGIN
12226:
12227: x_return_status := OKL_API.G_RET_STS_SUCCESS;
12228:
12229: OPEN l_hdr_csr(p_chr_id);
12230: FETCH l_hdr_csr into l_hdr;
12231: IF l_hdr_csr%NOTFOUND THEN
12240:
12241: If(( l_hdrrl_csr%FOUND ) AND
12242: (l_hdrrl_rec.RULE_INFORMATION1 IS NOT NULL) AND
12243: (TRUNC( FND_DATE.canonical_to_date(l_hdrrl_rec.RULE_INFORMATION1)) < TRUNC(l_hdr.START_DATE) )) Then
12244: OKL_API.set_message(
12245: p_app_name => G_APP_NAME,
12246: p_msg_name => 'OKL_QA_LATE_INT_DATE');
12247: -- notify caller of an error
12248: x_return_status := OKL_API.G_RET_STS_ERROR;
12244: OKL_API.set_message(
12245: p_app_name => G_APP_NAME,
12246: p_msg_name => 'OKL_QA_LATE_INT_DATE');
12247: -- notify caller of an error
12248: x_return_status := OKL_API.G_RET_STS_ERROR;
12249: End If;
12250: CLOSE l_hdrrl_csr;
12251:
12252: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
12248: x_return_status := OKL_API.G_RET_STS_ERROR;
12249: End If;
12250: CLOSE l_hdrrl_csr;
12251:
12252: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
12253: OKL_API.set_message(
12254: p_app_name => G_APP_NAME,
12255: p_msg_name => G_QA_SUCCESS);
12256: END IF;
12249: End If;
12250: CLOSE l_hdrrl_csr;
12251:
12252: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
12253: OKL_API.set_message(
12254: p_app_name => G_APP_NAME,
12255: p_msg_name => G_QA_SUCCESS);
12256: END IF;
12257:
12257:
12258: EXCEPTION
12259: WHEN OTHERS THEN
12260: -- store SQL error message on message stack
12261: OKL_API.SET_MESSAGE(
12262: p_app_name => G_APP_NAME,
12263: p_msg_name => G_UNEXPECTED_ERROR,
12264: p_token1 => G_SQLCODE_TOKEN,
12265: p_token1_value => SQLCODE,
12265: p_token1_value => SQLCODE,
12266: p_token2 => G_SQLERRM_TOKEN,
12267: p_token2_value => SQLERRM);
12268:
12269: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
12270:
12271: END check_late_int_date;
12272: -- bug 5032883 end;
12273:
12285: PROCEDURE check_late_charge_date(
12286: x_return_status OUT NOCOPY VARCHAR2,
12287: p_chr_id IN NUMBER
12288: ) IS
12289: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
12290: l_hdrrl_rec l_hdrrl_csr%ROWTYPE;
12291: l_hdr l_hdr_csr%ROWTYPE;
12292: BEGIN
12293:
12290: l_hdrrl_rec l_hdrrl_csr%ROWTYPE;
12291: l_hdr l_hdr_csr%ROWTYPE;
12292: BEGIN
12293:
12294: x_return_status := OKL_API.G_RET_STS_SUCCESS;
12295:
12296: OPEN l_hdr_csr(p_chr_id);
12297: FETCH l_hdr_csr into l_hdr;
12298: IF l_hdr_csr%NOTFOUND THEN
12307:
12308: If(( l_hdrrl_csr%FOUND ) AND
12309: (l_hdrrl_rec.RULE_INFORMATION1 IS NOT NULL) AND
12310: ( TRUNC(FND_DATE.canonical_to_date(l_hdrrl_rec.RULE_INFORMATION1)) < TRUNC(l_hdr.START_DATE) )) Then
12311: OKL_API.set_message(
12312: p_app_name => G_APP_NAME,
12313: p_msg_name => 'OKL_QA_LATE_CH_DATE');
12314: -- notify caller of an error
12315: x_return_status := OKL_API.G_RET_STS_ERROR;
12311: OKL_API.set_message(
12312: p_app_name => G_APP_NAME,
12313: p_msg_name => 'OKL_QA_LATE_CH_DATE');
12314: -- notify caller of an error
12315: x_return_status := OKL_API.G_RET_STS_ERROR;
12316: End If;
12317: CLOSE l_hdrrl_csr;
12318:
12319: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
12315: x_return_status := OKL_API.G_RET_STS_ERROR;
12316: End If;
12317: CLOSE l_hdrrl_csr;
12318:
12319: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
12320: OKL_API.set_message(
12321: p_app_name => G_APP_NAME,
12322: p_msg_name => G_QA_SUCCESS);
12323: END IF;
12316: End If;
12317: CLOSE l_hdrrl_csr;
12318:
12319: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
12320: OKL_API.set_message(
12321: p_app_name => G_APP_NAME,
12322: p_msg_name => G_QA_SUCCESS);
12323: END IF;
12324:
12324:
12325: EXCEPTION
12326: WHEN OTHERS THEN
12327: -- store SQL error message on message stack
12328: OKL_API.SET_MESSAGE(
12329: p_app_name => G_APP_NAME,
12330: p_msg_name => G_UNEXPECTED_ERROR,
12331: p_token1 => G_SQLCODE_TOKEN,
12332: p_token1_value => SQLCODE,
12332: p_token1_value => SQLCODE,
12333: p_token2 => G_SQLERRM_TOKEN,
12334: p_token2_value => SQLERRM);
12335:
12336: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
12337:
12338: END check_late_charge_date;
12339: -- bug 5032883 end;
12340:
12425: l_fa_rec l_fa_csr%ROWTYPE;
12426:
12427: BEGIN
12428:
12429: x_return_status := OKL_API.G_RET_STS_SUCCESS;
12430:
12431: --check for rebook contract
12432: l_rbk_khr := '?';
12433: OPEN l_chk_rbk_csr (p_chr_id => p_chr_id);
12473: -- for the new Inventory Item.
12474: IF (l_inv_item_rec.asset_category_id IS NOT NULL AND
12475: l_inv_item_rec.asset_category_id <> l_fa_rec.asset_category_id) THEN
12476:
12477: OKL_API.set_message(
12478: p_app_name => G_APP_NAME,
12479: p_msg_name => 'OKL_QA_DFLT_ASSET_CATEGORY',
12480: p_token1 => 'ASSET_NUMBER',
12481: p_token1_value => l_fa_rec.asset_number);
12478: p_app_name => G_APP_NAME,
12479: p_msg_name => 'OKL_QA_DFLT_ASSET_CATEGORY',
12480: p_token1 => 'ASSET_NUMBER',
12481: p_token1_value => l_fa_rec.asset_number);
12482: x_return_status := OKL_API.G_RET_STS_ERROR;
12483:
12484: END IF;
12485: END IF;
12486: End Loop;
12485: END IF;
12486: End Loop;
12487: End If;
12488:
12489: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
12490: OKL_API.set_message(
12491: p_app_name => G_APP_NAME,
12492: p_msg_name => G_QA_SUCCESS);
12493: END IF;
12486: End Loop;
12487: End If;
12488:
12489: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
12490: OKL_API.set_message(
12491: p_app_name => G_APP_NAME,
12492: p_msg_name => G_QA_SUCCESS);
12493: END IF;
12494:
12494:
12495: EXCEPTION
12496: WHEN OTHERS THEN
12497: -- store SQL error message on message stack
12498: OKL_API.SET_MESSAGE(
12499: p_app_name => G_APP_NAME,
12500: p_msg_name => G_UNEXPECTED_ERROR,
12501: p_token1 => G_SQLCODE_TOKEN,
12502: p_token1_value => SQLCODE,
12502: p_token1_value => SQLCODE,
12503: p_token2 => G_SQLERRM_TOKEN,
12504: p_token2_value => SQLERRM);
12505:
12506: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
12507:
12508: END check_asset_category;
12509:
12510: --akrangan bug 5362977 ends
12529: vend_end_date DATE;
12530: vend_name varchar(240);
12531:
12532: begin
12533: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
12534:
12535: open contract_dtls(p_chr_id);
12536: fetch contract_dtls into cnt_start_date, cnt_end_date;
12537: close contract_dtls;
12546: If vend_end_date is not null then
12547: if (trunc(vend_end_date)>=trunc(cnt_start_date)
12548: and trunc(vend_end_date)<=trunc(cnt_end_date) )
12549: or (trunc(vend_end_date)
12551: p_app_name => G_APP_NAME,
12552: p_msg_name => 'OKL_QA_VNDR_START_DT',
12553: p_token1 => 'NAME',
12554: p_token1_value => vend_name);
12551: p_app_name => G_APP_NAME,
12552: p_msg_name => 'OKL_QA_VNDR_START_DT',
12553: p_token1 => 'NAME',
12554: p_token1_value => vend_name);
12555: x_return_status := Okl_Api.G_RET_STS_ERROR;
12556: end if;
12557: end if;
12558:
12559: /*
12560: if( trunc(cnt_start_date) < trunc(vend_start_date) OR
12561: (trunc(cnt_start_date) >= trunc(vend_start_date) AND
12562: trunc(cnt_start_date) > trunc(vend_end_date))
12563: )THEN
12564: Okl_Api.set_message(
12565: p_app_name => G_APP_NAME,
12566: p_msg_name => 'OKL_QA_VNDR_START_DT',
12567: p_token1 => 'NAME',
12568: p_token1_value => vend_name);
12565: p_app_name => G_APP_NAME,
12566: p_msg_name => 'OKL_QA_VNDR_START_DT',
12567: p_token1 => 'NAME',
12568: p_token1_value => vend_name);
12569: x_return_status := Okl_Api.G_RET_STS_ERROR;
12570: end if;
12571: */
12572: --bug 7213709 end
12573:
12572: --bug 7213709 end
12573:
12574: end loop;
12575:
12576: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
12577: OKL_API.set_message(
12578: p_app_name => G_APP_NAME,
12579: p_msg_name => G_QA_SUCCESS);
12580: END IF;
12573:
12574: end loop;
12575:
12576: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
12577: OKL_API.set_message(
12578: p_app_name => G_APP_NAME,
12579: p_msg_name => G_QA_SUCCESS);
12580: END IF;
12581:
12581:
12582: EXCEPTION
12583: WHEN OTHERS THEN
12584: -- store SQL error message on message stack
12585: OKL_API.SET_MESSAGE(
12586: p_app_name => G_APP_NAME,
12587: p_msg_name => G_UNEXPECTED_ERROR,
12588: p_token1 => G_SQLCODE_TOKEN,
12589: p_token1_value => SQLCODE,
12589: p_token1_value => SQLCODE,
12590: p_token2 => G_SQLERRM_TOKEN,
12591: p_token2_value => SQLERRM);
12592:
12593: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
12594: End check_vendor_active;
12595:
12596: -- Start of comments
12597: --
12613: vend_name varchar(240);
12614:
12615: begin
12616:
12617: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
12618: open contract_dtls(p_chr_id);
12619: fetch contract_dtls into cnt_start_date, cnt_end_date;
12620: close contract_dtls;
12621:
12629: trunc(cnt_start_date) <= trunc(vend_end_date) AND
12630: trunc(cnt_end_date) > trunc(vend_end_date)
12631: )THEN
12632:
12633: Okl_Api.set_message(
12634: p_app_name => G_APP_NAME,
12635: p_msg_name => 'OKL_QA_VNDR_END_DT',
12636: p_token1 => 'NAME',
12637: p_token1_value => vend_name,
12636: p_token1 => 'NAME',
12637: p_token1_value => vend_name,
12638: p_token2 => 'VNDR_END_DT',
12639: p_token2_value => to_char(vend_end_date));
12640: x_return_status := Okl_Api.G_RET_STS_ERROR;
12641:
12642:
12643: end if;
12644:
12643: end if;
12644:
12645: end loop;
12646:
12647: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
12648: OKL_API.set_message(
12649: p_app_name => G_APP_NAME,
12650: p_msg_name => G_QA_SUCCESS);
12651: END IF;
12644:
12645: end loop;
12646:
12647: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
12648: OKL_API.set_message(
12649: p_app_name => G_APP_NAME,
12650: p_msg_name => G_QA_SUCCESS);
12651: END IF;
12652:
12652:
12653: EXCEPTION
12654: WHEN OTHERS THEN
12655: -- store SQL error message on message stack
12656: OKL_API.SET_MESSAGE(
12657: p_app_name => G_APP_NAME,
12658: p_msg_name => G_UNEXPECTED_ERROR,
12659: p_token1 => G_SQLCODE_TOKEN,
12660: p_token1_value => SQLCODE,
12660: p_token1_value => SQLCODE,
12661: p_token2 => G_SQLERRM_TOKEN,
12662: p_token2_value => SQLERRM);
12663:
12664: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
12665: End check_vendor_end_date;
12666:
12667: -- Start of comments
12668: --
12693: cust_acct_status varchar(1);
12694: cust_acct_desc varchar(30);
12695:
12696: begin
12697: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
12698:
12699: for party_rec in party_id_csr('LESSEE', p_chr_id)
12700: loop
12701: open cust_dtls(party_rec.OBJECT1_ID1);
12702: fetch cust_dtls into cust_status, cust_name;
12703: close cust_dtls;
12704:
12705: if( cust_status is not null AND cust_status <> 'A')THEN
12706: Okl_Api.set_message(
12707: p_app_name => G_APP_NAME,
12708: p_msg_name => 'OKL_QA_CUST_NOT_ACTIVE'
12709: );
12710: x_return_status := Okl_Api.G_RET_STS_ERROR;
12706: Okl_Api.set_message(
12707: p_app_name => G_APP_NAME,
12708: p_msg_name => 'OKL_QA_CUST_NOT_ACTIVE'
12709: );
12710: x_return_status := Okl_Api.G_RET_STS_ERROR;
12711:
12712: end if;
12713:
12714: end loop;
12711:
12712: end if;
12713:
12714: end loop;
12715: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
12716: open cust_acct_dtls(p_chr_id);
12717: fetch cust_acct_dtls into cust_acct_status, cust_acct_desc;
12718: close cust_acct_dtls;
12719:
12718: close cust_acct_dtls;
12719:
12720: if(cust_acct_status is not null and cust_acct_status <> 'A')THEN
12721:
12722: Okl_Api.set_message(
12723: p_app_name => G_APP_NAME,
12724: p_msg_name => 'OKL_QA_CUST_ACCT_INACTIVE',
12725: p_token1 => 'ACCT',
12726: p_token1_value => cust_acct_desc
12724: p_msg_name => 'OKL_QA_CUST_ACCT_INACTIVE',
12725: p_token1 => 'ACCT',
12726: p_token1_value => cust_acct_desc
12727: );
12728: x_return_status := Okl_Api.G_RET_STS_ERROR;
12729:
12730:
12731: end if;
12732: END IF;
12730:
12731: end if;
12732: END IF;
12733:
12734: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
12735: OKL_API.set_message(
12736: p_app_name => G_APP_NAME,
12737: p_msg_name => G_QA_SUCCESS);
12738: END IF;
12731: end if;
12732: END IF;
12733:
12734: IF x_return_status = OKL_API.G_RET_STS_SUCCESS THEN
12735: OKL_API.set_message(
12736: p_app_name => G_APP_NAME,
12737: p_msg_name => G_QA_SUCCESS);
12738: END IF;
12739:
12739:
12740: EXCEPTION
12741: WHEN OTHERS THEN
12742: -- store SQL error message on message stack
12743: OKL_API.SET_MESSAGE(
12744: p_app_name => G_APP_NAME,
12745: p_msg_name => G_UNEXPECTED_ERROR,
12746: p_token1 => G_SQLCODE_TOKEN,
12747: p_token1_value => SQLCODE,
12747: p_token1_value => SQLCODE,
12748: p_token2 => G_SQLERRM_TOKEN,
12749: p_token2_value => SQLERRM);
12750:
12751: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
12752: End check_cust_active;
12753: --rviriyal Bug# 5982201 End
12754: -- Start of comments
12755: --
12790: l_product_name okl_products_v.NAME%TYPE;
12791: l_lne l_lne_csr%ROWTYPE;
12792:
12793: BEGIN
12794: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
12795:
12796: OPEN l_hdr_csr(p_chr_id);
12797: FETCH l_hdr_csr INTO l_hdr;
12798: IF l_hdr_csr%NOTFOUND THEN
12807:
12808: OPEN l_lne_csr('FREE_FORM1', p_chr_id);
12809: FETCH l_lne_csr INTO l_lne;
12810: IF ( l_lne_csr%NOTFOUND ) THEN
12811: Okl_Api.set_message(
12812: p_app_name => G_APP_NAME,
12813: p_msg_name => 'OKL_QA_NO_ASSETS');
12814: -- notify caller of an error
12815: x_return_status := Okl_Api.G_RET_STS_ERROR;
12811: Okl_Api.set_message(
12812: p_app_name => G_APP_NAME,
12813: p_msg_name => 'OKL_QA_NO_ASSETS');
12814: -- notify caller of an error
12815: x_return_status := Okl_Api.G_RET_STS_ERROR;
12816:
12817: ELSE
12818:
12819: OKL_GENERATE_PV_RENT_PVT.generate_total_pv_rent
12817: ELSE
12818:
12819: OKL_GENERATE_PV_RENT_PVT.generate_total_pv_rent
12820: (p_api_version => 1.0
12821: ,p_init_msg_list => Okl_Api.G_FALSE
12822: ,p_khr_id => p_chr_id
12823: ,x_total_pv_rent => x_total_pv_rent
12824: ,x_return_status => x_return_status
12825: ,x_msg_count => x_msg_count
12825: ,x_msg_count => x_msg_count
12826: ,x_msg_data => x_msg_data
12827: );
12828:
12829: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
12830: RAISE G_EXCEPTION_HALT_VALIDATION;
12831: END IF;
12832:
12833: OKL_EXECUTE_FORMULA_PUB.EXECUTE(p_api_version =>1.0
12830: RAISE G_EXCEPTION_HALT_VALIDATION;
12831: END IF;
12832:
12833: OKL_EXECUTE_FORMULA_PUB.EXECUTE(p_api_version =>1.0
12834: ,p_init_msg_list => Okl_Api.G_FALSE
12835: ,x_return_status =>x_return_status
12836: ,x_msg_count =>x_msg_count
12837: ,x_msg_data =>x_msg_data
12838: ,p_formula_name =>'FAIR_VALUE_ASSETS'
12838: ,p_formula_name =>'FAIR_VALUE_ASSETS'
12839: ,p_contract_id =>p_chr_id
12840: ,x_value =>x_fair_value_assets);
12841:
12842: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
12843: RAISE G_EXCEPTION_HALT_VALIDATION;
12844: END IF;
12845:
12846: x_fair_value_assets := x_fair_value_assets * 0.9;
12845:
12846: x_fair_value_assets := x_fair_value_assets * 0.9;
12847: IF (l_hdr.DEAL_TYPE = 'LEASEOP') THEN
12848: IF (x_total_pv_rent >= x_fair_value_assets) THEN
12849: Okl_Api.set_message(
12850: p_app_name => G_APP_NAME,
12851: p_msg_name => 'OKL_QA_OP_FASB_MSG',
12852: p_token1 => 'PRODUCT_NAME',
12853: p_token1_value => l_product_name);
12851: p_msg_name => 'OKL_QA_OP_FASB_MSG',
12852: p_token1 => 'PRODUCT_NAME',
12853: p_token1_value => l_product_name);
12854:
12855: x_return_status := Okl_Api.G_RET_STS_ERROR;
12856:
12857: END IF;
12858: ELSIF (l_hdr.DEAL_TYPE IN ('LEASEDF','LEASEST')) THEN
12859: IF (x_total_pv_rent < x_fair_value_assets) THEN
12857: END IF;
12858: ELSIF (l_hdr.DEAL_TYPE IN ('LEASEDF','LEASEST')) THEN
12859: IF (x_total_pv_rent < x_fair_value_assets) THEN
12860:
12861: Okl_Api.set_message(
12862: p_app_name => G_APP_NAME,
12863: p_msg_name => 'OKL_QA_DF_FASB_MSG',
12864: p_token1 => 'PRODUCT_NAME',
12865: p_token1_value => l_product_name);
12863: p_msg_name => 'OKL_QA_DF_FASB_MSG',
12864: p_token1 => 'PRODUCT_NAME',
12865: p_token1_value => l_product_name);
12866:
12867: x_return_status := Okl_Api.G_RET_STS_ERROR;
12868:
12869: END IF;
12870: END IF;
12871: END IF;
12869: END IF;
12870: END IF;
12871: END IF;
12872: CLOSE l_lne_csr;
12873: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
12874: Okl_Api.set_message(
12875: p_app_name => G_APP_NAME,
12876: p_msg_name => G_QA_SUCCESS);
12877: END IF;
12870: END IF;
12871: END IF;
12872: CLOSE l_lne_csr;
12873: IF x_return_status = Okl_Api.G_RET_STS_SUCCESS THEN
12874: Okl_Api.set_message(
12875: p_app_name => G_APP_NAME,
12876: p_msg_name => G_QA_SUCCESS);
12877: END IF;
12878:
12878:
12879: EXCEPTION
12880:
12881: WHEN G_EXCEPTION_HALT_VALIDATION THEN
12882: x_return_status := Okl_Api.G_RET_STS_ERROR;
12883: IF l_hdr_csr%ISOPEN THEN
12884: CLOSE l_hdr_csr;
12885: END IF;
12886: IF l_lne_csr%ISOPEN THEN
12892:
12893: -- error reported, just exit from this process
12894: WHEN OTHERS THEN
12895: -- store SQL error message on message stack
12896: Okl_Api.SET_MESSAGE(
12897: p_app_name => G_APP_NAME,
12898: p_msg_name => G_UNEXPECTED_ERROR,
12899: p_token1 => G_SQLCODE_TOKEN,
12900: p_token1_value => SQLCODE,
12900: p_token1_value => SQLCODE,
12901: p_token2 => G_SQLERRM_TOKEN,
12902: p_token2_value => SQLERRM);
12903:
12904: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
12905:
12906: IF l_hdr_csr%ISOPEN THEN
12907: CLOSE l_hdr_csr;
12908: END IF;