713: x_msg_data => x_msg_data,
714: p_rgpv_rec => lp_rgpv_rec,
715: x_rgpv_rec => lx_rgpv_rec);
716:
717: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
718: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
719: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
720: raise OKC_API.G_EXCEPTION_ERROR;
721: End If;
714: p_rgpv_rec => lp_rgpv_rec,
715: x_rgpv_rec => lx_rgpv_rec);
716:
717: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
718: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
719: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
720: raise OKC_API.G_EXCEPTION_ERROR;
721: End If;
722:
715: x_rgpv_rec => lx_rgpv_rec);
716:
717: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
718: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
719: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
720: raise OKC_API.G_EXCEPTION_ERROR;
721: End If;
722:
723: l_rgpv_id := lx_rgpv_rec.id;
716:
717: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
718: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
719: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
720: raise OKC_API.G_EXCEPTION_ERROR;
721: End If;
722:
723: l_rgpv_id := lx_rgpv_rec.id;
724: END IF;
770: x_msg_data => x_msg_data,
771: p_rulv_rec => lp_rulv_rec,
772: x_rulv_rec => lx_rulv_rec);
773:
774: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
775: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
776: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
777: raise OKC_API.G_EXCEPTION_ERROR;
778: End If;
771: p_rulv_rec => lp_rulv_rec,
772: x_rulv_rec => lx_rulv_rec);
773:
774: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
775: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
776: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
777: raise OKC_API.G_EXCEPTION_ERROR;
778: End If;
779:
772: x_rulv_rec => lx_rulv_rec);
773:
774: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
775: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
776: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
777: raise OKC_API.G_EXCEPTION_ERROR;
778: End If;
779:
780: END LOOP;
773:
774: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
775: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
776: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
777: raise OKC_API.G_EXCEPTION_ERROR;
778: End If;
779:
780: END LOOP;
781: CLOSE c_chk_tpl2;
809: x_msg_data => x_msg_data,
810: p_rulv_rec => lp_rulv_rec,
811: x_rulv_rec => lx_rulv_rec);
812:
813: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
814: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
815: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
816: raise OKC_API.G_EXCEPTION_ERROR;
817: End If;
810: p_rulv_rec => lp_rulv_rec,
811: x_rulv_rec => lx_rulv_rec);
812:
813: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
814: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
815: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
816: raise OKC_API.G_EXCEPTION_ERROR;
817: End If;
818:
811: x_rulv_rec => lx_rulv_rec);
812:
813: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
814: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
815: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
816: raise OKC_API.G_EXCEPTION_ERROR;
817: End If;
818:
819: END LOOP;
812:
813: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
814: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
815: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
816: raise OKC_API.G_EXCEPTION_ERROR;
817: End If;
818:
819: END LOOP;
820: END IF;
1093: x_msg_count => x_msg_count,
1094: x_msg_data => x_msg_data,
1095: p_rulv_rec => ldel_rulv_rec);
1096:
1097: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1098: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1099: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1100: raise OKC_API.G_EXCEPTION_ERROR;
1101:
1094: x_msg_data => x_msg_data,
1095: p_rulv_rec => ldel_rulv_rec);
1096:
1097: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1098: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1099: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1100: raise OKC_API.G_EXCEPTION_ERROR;
1101:
1102: End If;
1095: p_rulv_rec => ldel_rulv_rec);
1096:
1097: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1098: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1099: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1100: raise OKC_API.G_EXCEPTION_ERROR;
1101:
1102: End If;
1103:
1096:
1097: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1098: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1099: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1100: raise OKC_API.G_EXCEPTION_ERROR;
1101:
1102: End If;
1103:
1104: END LOOP;
5782: x_msg_count => x_msg_count,
5783: x_msg_data => x_msg_data,
5784: p_fund_req_id => l_tapv_rec.id);
5785:
5786: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5787: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5788: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5789: raise OKC_API.G_EXCEPTION_ERROR;
5790: End If;
5783: x_msg_data => x_msg_data,
5784: p_fund_req_id => l_tapv_rec.id);
5785:
5786: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5787: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5788: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5789: raise OKC_API.G_EXCEPTION_ERROR;
5790: End If;
5791:
5784: p_fund_req_id => l_tapv_rec.id);
5785:
5786: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5787: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5788: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5789: raise OKC_API.G_EXCEPTION_ERROR;
5790: End If;
5791:
5792: l_tapv_rec.trx_status_code := 'APPROVED';
5785:
5786: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5787: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5788: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5789: raise OKC_API.G_EXCEPTION_ERROR;
5790: End If;
5791:
5792: l_tapv_rec.trx_status_code := 'APPROVED';
5793: l_tapv_rec.DATE_FUNDING_APPROVED := sysdate;
5878: x_msg_count => x_msg_count,
5879: x_msg_data => x_msg_data,
5880: p_fund_req_id => l_tapv_rec.id);
5881:
5882: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5883: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5884: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5885: raise OKC_API.G_EXCEPTION_ERROR;
5886: End If;
5879: x_msg_data => x_msg_data,
5880: p_fund_req_id => l_tapv_rec.id);
5881:
5882: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5883: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5884: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5885: raise OKC_API.G_EXCEPTION_ERROR;
5886: End If;
5887:
5880: p_fund_req_id => l_tapv_rec.id);
5881:
5882: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5883: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5884: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5885: raise OKC_API.G_EXCEPTION_ERROR;
5886: End If;
5887:
5888: OKL_FUNDING_WF.raise_approval_event(
5881:
5882: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
5883: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5884: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
5885: raise OKC_API.G_EXCEPTION_ERROR;
5886: End If;
5887:
5888: OKL_FUNDING_WF.raise_approval_event(
5889: p_api_version => p_api_version,
9023: ,x_lease_app_id OUT NOCOPY NUMBER
9024: ,x_credit_id OUT NOCOPY NUMBER
9025: ) IS
9026:
9027: l_lease_app_id number := OKC_API.G_MISS_NUM;
9028: l_lease_app_found boolean := FALSE;
9029: l_dummy number;
9030: l_lease_app_list_found boolean := FALSE;
9031: l_credit_id okc_k_headers_b.id%TYPE;
9028: l_lease_app_found boolean := FALSE;
9029: l_dummy number;
9030: l_lease_app_list_found boolean := FALSE;
9031: l_credit_id okc_k_headers_b.id%TYPE;
9032: l_funding_checklist_tpl okc_rules_b.rule_information2%TYPE := OKC_API.G_MISS_CHAR;
9033:
9034: --------------------------------------------------------------------------------------------
9035: -- Checklists link check
9036: --------------------------------------------------------------------------------------------
9255: x_msg_data => x_msg_data,
9256: p_rulv_tbl => lp_rulv_tbl,
9257: x_rulv_tbl => lx_rulv_tbl);
9258:
9259: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
9260: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
9261: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
9262: raise OKC_API.G_EXCEPTION_ERROR;
9263: End If;
9256: p_rulv_tbl => lp_rulv_tbl,
9257: x_rulv_tbl => lx_rulv_tbl);
9258:
9259: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
9260: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
9261: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
9262: raise OKC_API.G_EXCEPTION_ERROR;
9263: End If;
9264: END IF;
9257: x_rulv_tbl => lx_rulv_tbl);
9258:
9259: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
9260: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
9261: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
9262: raise OKC_API.G_EXCEPTION_ERROR;
9263: End If;
9264: END IF;
9265:
9258:
9259: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
9260: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
9261: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
9262: raise OKC_API.G_EXCEPTION_ERROR;
9263: End If;
9264: END IF;
9265:
9266: /*** End API body ******************************************************/