601: p_rulv_migr_rec => p_rulv_migr_tbl(i),
602: p_mode => p_mode
603: );
604:
605: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
606: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
607: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
608: raise OKC_API.G_EXCEPTION_ERROR;
609: End If;
602: p_mode => p_mode
603: );
604:
605: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
606: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
607: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
608: raise OKC_API.G_EXCEPTION_ERROR;
609: End If;
610:
603: );
604:
605: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
606: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
607: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
608: raise OKC_API.G_EXCEPTION_ERROR;
609: End If;
610:
611: EXIT WHEN (i = p_rulv_tbl.LAST);
604:
605: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
606: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
607: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
608: raise OKC_API.G_EXCEPTION_ERROR;
609: End If;
610:
611: EXIT WHEN (i = p_rulv_tbl.LAST);
612: i := p_rulv_tbl.NEXT(i);
761: l_lease_app_list_found boolean := FALSE;
762: l_lease_app_found_str VARCHAR2(10);
763: l_lease_app_list_found_str VARCHAR2(10);
764: l_funding_checklist_tpl okc_rules_b.rule_information2%TYPE;
765: l_chr_id okc_k_headers_b.id%type := OKC_API.G_MISS_NUM;
766: l_rgpv_id okc_rule_groups_b.id%type;
767: l_grp_row_not_found boolean;
768: lp_rgpv_rec okl_okc_migration_pvt.rgpv_rec_type;
769: lx_rgpv_rec okl_okc_migration_pvt.rgpv_rec_type;
821: x_funding_checklist_tpl => l_funding_checklist_tpl,
822: x_lease_app_id => x_lease_app_id,
823: x_credit_id => x_credit_id);
824:
825: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
826: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
827: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
828: raise OKC_API.G_EXCEPTION_ERROR;
829: End If;
822: x_lease_app_id => x_lease_app_id,
823: x_credit_id => x_credit_id);
824:
825: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
826: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
827: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
828: raise OKC_API.G_EXCEPTION_ERROR;
829: End If;
830:
823: x_credit_id => x_credit_id);
824:
825: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
826: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
827: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
828: raise OKC_API.G_EXCEPTION_ERROR;
829: End If;
830:
831: IF (l_lease_app_found_str = 'TRUE') THEN
824:
825: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
826: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
827: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
828: raise OKC_API.G_EXCEPTION_ERROR;
829: End If;
830:
831: IF (l_lease_app_found_str = 'TRUE') THEN
832: l_lease_app_found := TRUE;
859: x_msg_data => x_msg_data,
860: p_rgpv_rec => lp_rgpv_rec,
861: x_rgpv_rec => lx_rgpv_rec);
862:
863: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
864: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
865: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
866: raise OKC_API.G_EXCEPTION_ERROR;
867: End If;
860: p_rgpv_rec => lp_rgpv_rec,
861: x_rgpv_rec => lx_rgpv_rec);
862:
863: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
864: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
865: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
866: raise OKC_API.G_EXCEPTION_ERROR;
867: End If;
868:
861: x_rgpv_rec => lx_rgpv_rec);
862:
863: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
864: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
865: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
866: raise OKC_API.G_EXCEPTION_ERROR;
867: End If;
868:
869: l_rgpv_id := lx_rgpv_rec.id;
862:
863: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
864: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
865: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
866: raise OKC_API.G_EXCEPTION_ERROR;
867: End If;
868:
869: l_rgpv_id := lx_rgpv_rec.id;
870: END IF;
883: p_rulv_migr_tbl => lp_rulv_tbl,
884: p_mode => G_INSERT_MODE
885: );
886:
887: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
888: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
889: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
890: raise OKC_API.G_EXCEPTION_ERROR;
891: End If;
884: p_mode => G_INSERT_MODE
885: );
886:
887: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
888: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
889: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
890: raise OKC_API.G_EXCEPTION_ERROR;
891: End If;
892:
885: );
886:
887: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
888: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
889: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
890: raise OKC_API.G_EXCEPTION_ERROR;
891: End If;
892:
893: --DBMS_OUTPUT.PUT_LINE('after copy_rulv_tbl');
886:
887: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
888: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
889: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
890: raise OKC_API.G_EXCEPTION_ERROR;
891: End If;
892:
893: --DBMS_OUTPUT.PUT_LINE('after copy_rulv_tbl');
894: -- validation
901: x_msg_data => x_msg_data,
902: p_rulv_tbl => lp_rulv_tbl,
903: x_rulv_tbl => lx_rulv_tbl);
904:
905: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
906: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
907: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
908: raise OKC_API.G_EXCEPTION_ERROR;
909: End If;
902: p_rulv_tbl => lp_rulv_tbl,
903: x_rulv_tbl => lx_rulv_tbl);
904:
905: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
906: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
907: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
908: raise OKC_API.G_EXCEPTION_ERROR;
909: End If;
910:
903: x_rulv_tbl => lx_rulv_tbl);
904:
905: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
906: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
907: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
908: raise OKC_API.G_EXCEPTION_ERROR;
909: End If;
910:
911: l_return_status := validate_hdr_attr_aftimg(p_rulv_rec => p_rulv_tbl(p_rulv_tbl.FIRST));
904:
905: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
906: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
907: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
908: raise OKC_API.G_EXCEPTION_ERROR;
909: End If;
910:
911: l_return_status := validate_hdr_attr_aftimg(p_rulv_rec => p_rulv_tbl(p_rulv_tbl.FIRST));
912: --- Store the highest degree of error
1019: p_rulv_migr_tbl => lp_rulv_tbl,
1020: p_mode => G_UPDATE_MODE
1021: );
1022:
1023: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1024: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1025: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1026: raise OKC_API.G_EXCEPTION_ERROR;
1027: End If;
1020: p_mode => G_UPDATE_MODE
1021: );
1022:
1023: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1024: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1025: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1026: raise OKC_API.G_EXCEPTION_ERROR;
1027: End If;
1028:
1021: );
1022:
1023: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1024: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1025: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1026: raise OKC_API.G_EXCEPTION_ERROR;
1027: End If;
1028:
1029: --DBMS_OUTPUT.PUT_LINE('after copy_rulv_tbl');
1022:
1023: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1024: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1025: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1026: raise OKC_API.G_EXCEPTION_ERROR;
1027: End If;
1028:
1029: --DBMS_OUTPUT.PUT_LINE('after copy_rulv_tbl');
1030: -- validation
1037: x_msg_data => x_msg_data,
1038: p_rulv_tbl => lp_rulv_tbl,
1039: x_rulv_tbl => lx_rulv_tbl);
1040:
1041: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1042: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1043: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1044: raise OKC_API.G_EXCEPTION_ERROR;
1045: End If;
1038: p_rulv_tbl => lp_rulv_tbl,
1039: x_rulv_tbl => lx_rulv_tbl);
1040:
1041: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1042: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1043: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1044: raise OKC_API.G_EXCEPTION_ERROR;
1045: End If;
1046:
1039: x_rulv_tbl => lx_rulv_tbl);
1040:
1041: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1042: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1043: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1044: raise OKC_API.G_EXCEPTION_ERROR;
1045: End If;
1046:
1047: l_return_status := validate_hdr_attr_aftimg(p_rulv_rec => p_rulv_tbl(p_rulv_tbl.FIRST));
1040:
1041: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1042: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1043: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1044: raise OKC_API.G_EXCEPTION_ERROR;
1045: End If;
1046:
1047: l_return_status := validate_hdr_attr_aftimg(p_rulv_rec => p_rulv_tbl(p_rulv_tbl.FIRST));
1048: --- Store the highest degree of error
1154: p_rulv_migr_tbl => lp_rulv_tbl,
1155: p_mode => G_DELETE_MODE
1156: );
1157:
1158: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1159: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1160: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1161: raise OKC_API.G_EXCEPTION_ERROR;
1162: End If;
1155: p_mode => G_DELETE_MODE
1156: );
1157:
1158: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1159: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1160: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1161: raise OKC_API.G_EXCEPTION_ERROR;
1162: End If;
1163:
1156: );
1157:
1158: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1159: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1160: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1161: raise OKC_API.G_EXCEPTION_ERROR;
1162: End If;
1163:
1164: --DBMS_OUTPUT.PUT_LINE('after copy_rulv_tbl');
1157:
1158: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1159: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1160: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1161: raise OKC_API.G_EXCEPTION_ERROR;
1162: End If;
1163:
1164: --DBMS_OUTPUT.PUT_LINE('after copy_rulv_tbl');
1165:
1170: x_msg_count => x_msg_count,
1171: x_msg_data => x_msg_data,
1172: p_rulv_tbl => lp_rulv_tbl);
1173:
1174: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1175: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1176: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1177: raise OKC_API.G_EXCEPTION_ERROR;
1178: End If;
1171: x_msg_data => x_msg_data,
1172: p_rulv_tbl => lp_rulv_tbl);
1173:
1174: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1175: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1176: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1177: raise OKC_API.G_EXCEPTION_ERROR;
1178: End If;
1179:
1172: p_rulv_tbl => lp_rulv_tbl);
1173:
1174: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1175: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1176: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1177: raise OKC_API.G_EXCEPTION_ERROR;
1178: End If;
1179:
1180: /*** End API body ******************************************************/
1173:
1174: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1175: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1176: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1177: raise OKC_API.G_EXCEPTION_ERROR;
1178: End If;
1179:
1180: /*** End API body ******************************************************/
1181:
1409: x_msg_data => x_msg_data,
1410: p_rulv_tbl => lp_rulv_tbl,
1411: x_rulv_tbl => lx_rulv_tbl);
1412:
1413: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1414: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1415: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1416: raise OKC_API.G_EXCEPTION_ERROR;
1417: End If;
1410: p_rulv_tbl => lp_rulv_tbl,
1411: x_rulv_tbl => lx_rulv_tbl);
1412:
1413: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1414: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1415: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1416: raise OKC_API.G_EXCEPTION_ERROR;
1417: End If;
1418:
1411: x_rulv_tbl => lx_rulv_tbl);
1412:
1413: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1414: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1415: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1416: raise OKC_API.G_EXCEPTION_ERROR;
1417: End If;
1418:
1419: /*** End API body ******************************************************/
1412:
1413: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1414: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1415: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1416: raise OKC_API.G_EXCEPTION_ERROR;
1417: End If;
1418:
1419: /*** End API body ******************************************************/
1420: