20: RETURN lease_qte_rec_type IS
21: -- Variables Declarations
22: l_api_version CONSTANT NUMBER DEFAULT 1.0;
23: l_api_name CONSTANT VARCHAR2(30) DEFAULT 'POPULATE_QUOTE_REC';
24: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
25: l_debug_enabled VARCHAR2(10);
26:
27: -- Record/Table Type Declarations
28: l_lsqv_rec lease_qte_rec_type;
208: RETURN fee_rec_type IS
209: -- Variables Declarations
210: l_api_version CONSTANT NUMBER DEFAULT 1.0;
211: l_api_name CONSTANT VARCHAR2(30) DEFAULT 'POPULATE_FEE_REC';
212: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
213: l_debug_enabled VARCHAR2(10);
214:
215: -- Record/Table Type Declarations
216: l_feev_rec fee_rec_type;
330: RETURN asset_rec_type IS
331: -- Variables Declarations
332: l_api_version CONSTANT NUMBER DEFAULT 1.0;
333: l_api_name CONSTANT VARCHAR2(30) DEFAULT 'POPULATE_ASSET_REC';
334: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
335: l_debug_enabled VARCHAR2(10);
336:
337: -- Record/Table Type Declarations
338: l_assv_rec asset_rec_type;
435: RETURN VARCHAR2 IS
436: -- Variables Declarations
437: l_api_version CONSTANT NUMBER DEFAULT 1.0;
438: l_api_name CONSTANT VARCHAR2(30) DEFAULT 'all_lns_ovr';
439: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
440: l_all_lines_overriden VARCHAR2(3) := 'N';
441: l_ovr_cnt NUMBER;
442: l_ast_cnt NUMBER;
443: CURSOR llo_flag_csr IS
526: RETURN VARCHAR2 IS
527: -- Variables Declarations
528: l_api_version CONSTANT NUMBER DEFAULT 1.0;
529: l_api_name CONSTANT VARCHAR2(30) DEFAULT 'qte_pr_entr';
530: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
531: l_falg VARCHAR2(3) := 'N';
532: BEGIN
533: IF p_lease_qte_rec.pricing_method = 'SY' THEN
534: IF p_payment_count <> 0 THEN
597: ,x_msg_data OUT NOCOPY VARCHAR2) IS
598: -- Variables Declarations
599: l_api_version CONSTANT NUMBER DEFAULT 1.0;
600: l_api_name CONSTANT VARCHAR2(30) DEFAULT 'VALIDATE';
601: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
602: l_debug_enabled VARCHAR2(10);
603:
604: l_object_type VARCHAR2(15):= 'LEASEQUOTE';
605:
607: l_lease_qte_rec lease_qte_rec_type;
608: lx_lease_qte_rec lease_qte_rec_type;
609:
610: BEGIN
611: x_return_status := OKL_API.G_RET_STS_SUCCESS;
612: -- check for logging on PROCEDURE level
613: l_debug_enabled := okl_debug_pub.check_log_enabled;
614: -- call START_ACTIVITY to create savepoint, check compatibility
615: -- and initialize message list
612: -- check for logging on PROCEDURE level
613: l_debug_enabled := okl_debug_pub.check_log_enabled;
614: -- call START_ACTIVITY to create savepoint, check compatibility
615: -- and initialize message list
616: l_return_status := OKL_API.START_ACTIVITY( p_api_name => l_api_name
617: ,p_pkg_name => G_PKG_NAME
618: ,p_init_msg_list => p_init_msg_list
619: ,l_api_version => l_api_version
620: ,p_api_version => p_api_version
620: ,p_api_version => p_api_version
621: ,p_api_type => g_api_type
622: ,x_return_status => x_return_status);
623: -- check if activity started successfully
624: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
625: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
626: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
627: RAISE OKL_API.G_EXCEPTION_ERROR;
628: END IF;
621: ,p_api_type => g_api_type
622: ,x_return_status => x_return_status);
623: -- check if activity started successfully
624: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
625: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
626: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
627: RAISE OKL_API.G_EXCEPTION_ERROR;
628: END IF;
629: --Pupulate lease quote rec
622: ,x_return_status => x_return_status);
623: -- check if activity started successfully
624: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
625: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
626: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
627: RAISE OKL_API.G_EXCEPTION_ERROR;
628: END IF;
629: --Pupulate lease quote rec
630: l_lease_qte_rec := populate_quote_rec(p_quote_id,x_return_status);
623: -- check if activity started successfully
624: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
625: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
626: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
627: RAISE OKL_API.G_EXCEPTION_ERROR;
628: END IF;
629: --Pupulate lease quote rec
630: l_lease_qte_rec := populate_quote_rec(p_quote_id,x_return_status);
631:
629: --Pupulate lease quote rec
630: l_lease_qte_rec := populate_quote_rec(p_quote_id,x_return_status);
631:
632: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
633: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
634: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
635: RAISE OKL_API.G_EXCEPTION_ERROR;
636: END IF;
637:
631:
632: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
633: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
634: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
635: RAISE OKL_API.G_EXCEPTION_ERROR;
636: END IF;
637:
638: IF(l_debug_enabled='Y') THEN
639: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.OKL_SALES_QUOTE_QA_PVT.run_qa_checker'
653: ,'end debug call run_qa_checker');
654: END IF;
655:
656: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
657: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
658: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
659: RAISE OKL_API.G_EXCEPTION_ERROR;
660: END IF;
661:
655:
656: IF(x_return_status = G_RET_STS_UNEXP_ERROR) THEN
657: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
658: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
659: RAISE OKL_API.G_EXCEPTION_ERROR;
660: END IF;
661:
662: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
663: ,x_msg_data => x_msg_data);
658: ELSIF(x_return_status = G_RET_STS_ERROR) THEN
659: RAISE OKL_API.G_EXCEPTION_ERROR;
660: END IF;
661:
662: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
663: ,x_msg_data => x_msg_data);
664: EXCEPTION
665: WHEN OKL_API.G_EXCEPTION_ERROR THEN
666: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
661:
662: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
663: ,x_msg_data => x_msg_data);
664: EXCEPTION
665: WHEN OKL_API.G_EXCEPTION_ERROR THEN
666: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
667: p_api_name => l_api_name,
668: p_pkg_name => G_PKG_NAME,
669: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
662: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
663: ,x_msg_data => x_msg_data);
664: EXCEPTION
665: WHEN OKL_API.G_EXCEPTION_ERROR THEN
666: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
667: p_api_name => l_api_name,
668: p_pkg_name => G_PKG_NAME,
669: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
670: x_msg_count => x_msg_count,
665: WHEN OKL_API.G_EXCEPTION_ERROR THEN
666: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
667: p_api_name => l_api_name,
668: p_pkg_name => G_PKG_NAME,
669: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
670: x_msg_count => x_msg_count,
671: x_msg_data => x_msg_data,
672: p_api_type => g_api_type);
673: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
669: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
670: x_msg_count => x_msg_count,
671: x_msg_data => x_msg_data,
672: p_api_type => g_api_type);
673: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
674: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
675: p_api_name => l_api_name,
676: p_pkg_name => G_PKG_NAME,
677: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
670: x_msg_count => x_msg_count,
671: x_msg_data => x_msg_data,
672: p_api_type => g_api_type);
673: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
674: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
675: p_api_name => l_api_name,
676: p_pkg_name => G_PKG_NAME,
677: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
678: x_msg_count => x_msg_count,
673: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
674: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
675: p_api_name => l_api_name,
676: p_pkg_name => G_PKG_NAME,
677: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
678: x_msg_count => x_msg_count,
679: x_msg_data => x_msg_data,
680: p_api_type => g_api_type);
681: WHEN OTHERS THEN
678: x_msg_count => x_msg_count,
679: x_msg_data => x_msg_data,
680: p_api_type => g_api_type);
681: WHEN OTHERS THEN
682: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
683: p_api_name => l_api_name,
684: p_pkg_name => G_PKG_NAME,
685: p_exc_name => 'OTHERS',
686: x_msg_count => x_msg_count,
713: ) IS
714: -- Variables Declarations
715: l_api_version CONSTANT NUMBER DEFAULT 1.0;
716: l_api_name CONSTANT VARCHAR2(30) DEFAULT 'PRICE';
717: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
718: l_debug_enabled VARCHAR2(10);
719:
720: l_quote_id OKL_LEASE_QUOTES_B.ID%TYPE;
721:
722: -- Record/Table Type Declarations
723:
724:
725: BEGIN
726: x_return_status := OKL_API.G_RET_STS_SUCCESS;
727: -- check for logging on PROCEDURE level
728: l_debug_enabled := okl_debug_pub.check_log_enabled;
729: -- call START_ACTIVITY to create savepoint, check compatibility
730: -- and initialize message list
727: -- check for logging on PROCEDURE level
728: l_debug_enabled := okl_debug_pub.check_log_enabled;
729: -- call START_ACTIVITY to create savepoint, check compatibility
730: -- and initialize message list
731: l_return_status := OKL_API.START_ACTIVITY( p_api_name => l_api_name
732: ,p_pkg_name => G_PKG_NAME
733: ,p_init_msg_list => p_init_msg_list
734: ,l_api_version => l_api_version
735: ,p_api_version => p_api_version
735: ,p_api_version => p_api_version
736: ,p_api_type => g_api_type
737: ,x_return_status => x_return_status);
738: -- check if activity started successfully
739: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
740: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
741: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
742: RAISE OKL_API.G_EXCEPTION_ERROR;
743: END IF;
736: ,p_api_type => g_api_type
737: ,x_return_status => x_return_status);
738: -- check if activity started successfully
739: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
740: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
741: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
742: RAISE OKL_API.G_EXCEPTION_ERROR;
743: END IF;
744: l_quote_id := p_quote_id;
737: ,x_return_status => x_return_status);
738: -- check if activity started successfully
739: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
740: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
741: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
742: RAISE OKL_API.G_EXCEPTION_ERROR;
743: END IF;
744: l_quote_id := p_quote_id;
745:
738: -- check if activity started successfully
739: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
740: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
741: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
742: RAISE OKL_API.G_EXCEPTION_ERROR;
743: END IF;
744: l_quote_id := p_quote_id;
745:
746: IF(l_debug_enabled='Y') THEN
759: ,'end debug call price_standard_quote');
760: END IF;
761:
762: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
764: ELSIF x_return_status = G_RET_STS_ERROR THEN
765: RAISE OKL_API.G_EXCEPTION_ERROR;
766: END IF;
767:
761:
762: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
764: ELSIF x_return_status = G_RET_STS_ERROR THEN
765: RAISE OKL_API.G_EXCEPTION_ERROR;
766: END IF;
767:
768: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
769: ,x_msg_data => x_msg_data);
764: ELSIF x_return_status = G_RET_STS_ERROR THEN
765: RAISE OKL_API.G_EXCEPTION_ERROR;
766: END IF;
767:
768: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
769: ,x_msg_data => x_msg_data);
770: EXCEPTION
771: WHEN OKL_API.G_EXCEPTION_ERROR THEN
772: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
767:
768: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
769: ,x_msg_data => x_msg_data);
770: EXCEPTION
771: WHEN OKL_API.G_EXCEPTION_ERROR THEN
772: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
773: p_api_name => l_api_name,
774: p_pkg_name => G_PKG_NAME,
775: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
768: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
769: ,x_msg_data => x_msg_data);
770: EXCEPTION
771: WHEN OKL_API.G_EXCEPTION_ERROR THEN
772: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
773: p_api_name => l_api_name,
774: p_pkg_name => G_PKG_NAME,
775: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
776: x_msg_count => x_msg_count,
771: WHEN OKL_API.G_EXCEPTION_ERROR THEN
772: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
773: p_api_name => l_api_name,
774: p_pkg_name => G_PKG_NAME,
775: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
776: x_msg_count => x_msg_count,
777: x_msg_data => x_msg_data,
778: p_api_type => g_api_type);
779: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
775: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
776: x_msg_count => x_msg_count,
777: x_msg_data => x_msg_data,
778: p_api_type => g_api_type);
779: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
780: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
781: p_api_name => l_api_name,
782: p_pkg_name => G_PKG_NAME,
783: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
776: x_msg_count => x_msg_count,
777: x_msg_data => x_msg_data,
778: p_api_type => g_api_type);
779: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
780: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
781: p_api_name => l_api_name,
782: p_pkg_name => G_PKG_NAME,
783: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
784: x_msg_count => x_msg_count,
779: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
780: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
781: p_api_name => l_api_name,
782: p_pkg_name => G_PKG_NAME,
783: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
784: x_msg_count => x_msg_count,
785: x_msg_data => x_msg_data,
786: p_api_type => g_api_type);
787: WHEN OTHERS THEN
784: x_msg_count => x_msg_count,
785: x_msg_data => x_msg_data,
786: p_api_type => g_api_type);
787: WHEN OTHERS THEN
788: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
789: p_api_name => l_api_name,
790: p_pkg_name => G_PKG_NAME,
791: p_exc_name => 'OTHERS',
792: x_msg_count => x_msg_count,
820: ) IS
821: -- Variables Declarations
822: l_api_version CONSTANT NUMBER DEFAULT 1.0;
823: l_api_name CONSTANT VARCHAR2(30) DEFAULT 'CALCULATE TAX';
824: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
825: l_debug_enabled VARCHAR2(10);
826:
827: l_source_table VARCHAR2(30):= 'OKL_LEASE_QUOTES_B';
828: l_source_trx_name VARCHAR2(15):='Quoting';
831: -- Record/Table Type Declarations
832:
833:
834: BEGIN
835: x_return_status := OKL_API.G_RET_STS_SUCCESS;
836: -- check for logging on PROCEDURE level
837: l_debug_enabled := okl_debug_pub.check_log_enabled;
838: -- call START_ACTIVITY to create savepoint, check compatibility
839: -- and initialize message list
836: -- check for logging on PROCEDURE level
837: l_debug_enabled := okl_debug_pub.check_log_enabled;
838: -- call START_ACTIVITY to create savepoint, check compatibility
839: -- and initialize message list
840: l_return_status := OKL_API.START_ACTIVITY( p_api_name => l_api_name
841: ,p_pkg_name => G_PKG_NAME
842: ,p_init_msg_list => p_init_msg_list
843: ,l_api_version => l_api_version
844: ,p_api_version => p_api_version
844: ,p_api_version => p_api_version
845: ,p_api_type => g_api_type
846: ,x_return_status => x_return_status);
847: -- check if activity started successfully
848: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
849: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
850: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
851: RAISE OKL_API.G_EXCEPTION_ERROR;
852: END IF;
845: ,p_api_type => g_api_type
846: ,x_return_status => x_return_status);
847: -- check if activity started successfully
848: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
849: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
850: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
851: RAISE OKL_API.G_EXCEPTION_ERROR;
852: END IF;
853: l_quote_id := p_quote_id;
846: ,x_return_status => x_return_status);
847: -- check if activity started successfully
848: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
849: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
850: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
851: RAISE OKL_API.G_EXCEPTION_ERROR;
852: END IF;
853: l_quote_id := p_quote_id;
854:
847: -- check if activity started successfully
848: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
849: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
850: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
851: RAISE OKL_API.G_EXCEPTION_ERROR;
852: END IF;
853: l_quote_id := p_quote_id;
854:
855: IF(l_debug_enabled='Y') THEN
871: ,'end debug call price_standard_quote');
872: END IF;
873:
874: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
875: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
876: ELSIF x_return_status = G_RET_STS_ERROR THEN
877: RAISE OKL_API.G_EXCEPTION_ERROR;
878: END IF;
879:
873:
874: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
875: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
876: ELSIF x_return_status = G_RET_STS_ERROR THEN
877: RAISE OKL_API.G_EXCEPTION_ERROR;
878: END IF;
879:
880: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
881: ,x_msg_data => x_msg_data);
876: ELSIF x_return_status = G_RET_STS_ERROR THEN
877: RAISE OKL_API.G_EXCEPTION_ERROR;
878: END IF;
879:
880: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
881: ,x_msg_data => x_msg_data);
882: EXCEPTION
883: WHEN OKL_API.G_EXCEPTION_ERROR THEN
884: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
879:
880: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
881: ,x_msg_data => x_msg_data);
882: EXCEPTION
883: WHEN OKL_API.G_EXCEPTION_ERROR THEN
884: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
885: p_api_name => l_api_name,
886: p_pkg_name => G_PKG_NAME,
887: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
880: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
881: ,x_msg_data => x_msg_data);
882: EXCEPTION
883: WHEN OKL_API.G_EXCEPTION_ERROR THEN
884: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
885: p_api_name => l_api_name,
886: p_pkg_name => G_PKG_NAME,
887: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
888: x_msg_count => x_msg_count,
883: WHEN OKL_API.G_EXCEPTION_ERROR THEN
884: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
885: p_api_name => l_api_name,
886: p_pkg_name => G_PKG_NAME,
887: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
888: x_msg_count => x_msg_count,
889: x_msg_data => x_msg_data,
890: p_api_type => g_api_type);
891: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
887: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
888: x_msg_count => x_msg_count,
889: x_msg_data => x_msg_data,
890: p_api_type => g_api_type);
891: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
892: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
893: p_api_name => l_api_name,
894: p_pkg_name => G_PKG_NAME,
895: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
888: x_msg_count => x_msg_count,
889: x_msg_data => x_msg_data,
890: p_api_type => g_api_type);
891: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
892: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
893: p_api_name => l_api_name,
894: p_pkg_name => G_PKG_NAME,
895: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
896: x_msg_count => x_msg_count,
891: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
892: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
893: p_api_name => l_api_name,
894: p_pkg_name => G_PKG_NAME,
895: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
896: x_msg_count => x_msg_count,
897: x_msg_data => x_msg_data,
898: p_api_type => g_api_type);
899: WHEN OTHERS THEN
896: x_msg_count => x_msg_count,
897: x_msg_data => x_msg_data,
898: p_api_type => g_api_type);
899: WHEN OTHERS THEN
900: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
901: p_api_name => l_api_name,
902: p_pkg_name => G_PKG_NAME,
903: p_exc_name => 'OTHERS',
904: x_msg_count => x_msg_count,
934:
935: -- Variables Declarations
936: l_api_version CONSTANT NUMBER DEFAULT 1.0;
937: l_api_name CONSTANT VARCHAR2(30) DEFAULT 'HNDL_PRNT_STS';
938: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
939: l_debug_enabled VARCHAR2(10);
940: lx_return_status VARCHAR2(1);
941:
942: x_lapv_rec OKL_LAP_PVT.LAPV_REC_TYPE;
952: WHERE parent_object_id =p_parent_object_id
953: AND primary_quote = 'Y';
954:
955: BEGIN
956: x_return_status := OKL_API.G_RET_STS_SUCCESS;
957: -- check for logging on PROCEDURE level
958: l_debug_enabled := okl_debug_pub.check_log_enabled;
959: -- call START_ACTIVITY to create savepoint, check compatibility
960: -- and initialize message list
957: -- check for logging on PROCEDURE level
958: l_debug_enabled := okl_debug_pub.check_log_enabled;
959: -- call START_ACTIVITY to create savepoint, check compatibility
960: -- and initialize message list
961: l_return_status := OKL_API.START_ACTIVITY( p_api_name => l_api_name
962: ,p_pkg_name => G_PKG_NAME
963: ,p_init_msg_list => p_init_msg_list
964: ,l_api_version => l_api_version
965: ,p_api_version => p_api_version
965: ,p_api_version => p_api_version
966: ,p_api_type => g_api_type
967: ,x_return_status => x_return_status);
968: -- check if activity started successfully
969: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
970: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
971: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
972: RAISE OKL_API.G_EXCEPTION_ERROR;
973: END IF;
966: ,p_api_type => g_api_type
967: ,x_return_status => x_return_status);
968: -- check if activity started successfully
969: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
970: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
971: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
972: RAISE OKL_API.G_EXCEPTION_ERROR;
973: END IF;
974:
967: ,x_return_status => x_return_status);
968: -- check if activity started successfully
969: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
970: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
971: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
972: RAISE OKL_API.G_EXCEPTION_ERROR;
973: END IF;
974:
975: IF(l_debug_enabled='Y') THEN
968: -- check if activity started successfully
969: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
970: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
971: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
972: RAISE OKL_API.G_EXCEPTION_ERROR;
973: END IF;
974:
975: IF(l_debug_enabled='Y') THEN
976: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.OKL_LEASE_APP_PVT.populate_lease_app'
985:
986: l_lsqv_rec := populate_quote_rec ( p_quote_id => l_quote_id,
987: x_return_status => x_return_status );
988:
989: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
990: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
991: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
992: RAISE OKL_API.G_EXCEPTION_ERROR;
993: END IF;
986: l_lsqv_rec := populate_quote_rec ( p_quote_id => l_quote_id,
987: x_return_status => x_return_status );
988:
989: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
990: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
991: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
992: RAISE OKL_API.G_EXCEPTION_ERROR;
993: END IF;
994: l_lsqv_rec.STATUS := 'PR-INCOMPLETE';
987: x_return_status => x_return_status );
988:
989: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
990: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
991: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
992: RAISE OKL_API.G_EXCEPTION_ERROR;
993: END IF;
994: l_lsqv_rec.STATUS := 'PR-INCOMPLETE';
995:
988:
989: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
990: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
991: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
992: RAISE OKL_API.G_EXCEPTION_ERROR;
993: END IF;
994: l_lsqv_rec.STATUS := 'PR-INCOMPLETE';
995:
996: OKL_LEASE_QUOTE_PVT.update_lease_qte(
1003: ,x_msg_count => x_msg_count
1004: ,x_msg_data => x_msg_data);
1005:
1006: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1007: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1008: ELSIF x_return_status = G_RET_STS_ERROR THEN
1009: RAISE OKL_API.G_EXCEPTION_ERROR;
1010: END IF;
1011:
1005:
1006: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1007: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1008: ELSIF x_return_status = G_RET_STS_ERROR THEN
1009: RAISE OKL_API.G_EXCEPTION_ERROR;
1010: END IF;
1011:
1012:
1013: OKL_LEASE_APP_PVT.populate_lease_app(p_api_version => p_api_version,
1021: IF(l_debug_enabled='Y') THEN
1022: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.OKL_LEASE_APP_PVT.populate_lease_app'
1023: ,'end debug call populate_lease_app');
1024: END IF;
1025: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1026: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1027: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1028: RAISE OKL_API.G_EXCEPTION_ERROR;
1029: END IF;
1022: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.OKL_LEASE_APP_PVT.populate_lease_app'
1023: ,'end debug call populate_lease_app');
1024: END IF;
1025: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1026: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1027: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1028: RAISE OKL_API.G_EXCEPTION_ERROR;
1029: END IF;
1030:
1023: ,'end debug call populate_lease_app');
1024: END IF;
1025: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1026: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1027: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1028: RAISE OKL_API.G_EXCEPTION_ERROR;
1029: END IF;
1030:
1031: IF x_lapv_rec.APPLICATION_STATUS IN ('PR-COMPLETE', 'PR-APPROVED','PR-REJECTED') THEN
1024: END IF;
1025: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1026: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1027: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1028: RAISE OKL_API.G_EXCEPTION_ERROR;
1029: END IF;
1030:
1031: IF x_lapv_rec.APPLICATION_STATUS IN ('PR-COMPLETE', 'PR-APPROVED','PR-REJECTED') THEN
1032: x_lapv_rec.APPLICATION_STATUS := 'INCOMPLETE';
1046: IF(l_debug_enabled='Y') THEN
1047: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.OKL_LEASE_APP_PVT.lease_app_upd'
1048: ,'end debug call lease_app_upd');
1049: END IF;
1050: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1051: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1052: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1053: RAISE OKL_API.G_EXCEPTION_ERROR;
1054: END IF;
1047: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.OKL_LEASE_APP_PVT.lease_app_upd'
1048: ,'end debug call lease_app_upd');
1049: END IF;
1050: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1051: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1052: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1053: RAISE OKL_API.G_EXCEPTION_ERROR;
1054: END IF;
1055: END IF;
1048: ,'end debug call lease_app_upd');
1049: END IF;
1050: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1051: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1052: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1053: RAISE OKL_API.G_EXCEPTION_ERROR;
1054: END IF;
1055: END IF;
1056: END IF;
1049: END IF;
1050: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1051: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1052: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1053: RAISE OKL_API.G_EXCEPTION_ERROR;
1054: END IF;
1055: END IF;
1056: END IF;
1057:
1055: END IF;
1056: END IF;
1057:
1058: x_return_status := okc_api.G_RET_STS_SUCCESS;
1059: OKL_API.END_ACTIVITY(
1060: x_msg_count => x_msg_count
1061: ,x_msg_data => x_msg_data);
1062: EXCEPTION
1063: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1059: OKL_API.END_ACTIVITY(
1060: x_msg_count => x_msg_count
1061: ,x_msg_data => x_msg_data);
1062: EXCEPTION
1063: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1064: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1065: p_api_name => l_api_name,
1066: p_pkg_name => G_PKG_NAME,
1067: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1060: x_msg_count => x_msg_count
1061: ,x_msg_data => x_msg_data);
1062: EXCEPTION
1063: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1064: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1065: p_api_name => l_api_name,
1066: p_pkg_name => G_PKG_NAME,
1067: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1068: x_msg_count => x_msg_count,
1063: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1064: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1065: p_api_name => l_api_name,
1066: p_pkg_name => G_PKG_NAME,
1067: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1068: x_msg_count => x_msg_count,
1069: x_msg_data => x_msg_data,
1070: p_api_type => G_API_TYPE);
1071: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1067: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1068: x_msg_count => x_msg_count,
1069: x_msg_data => x_msg_data,
1070: p_api_type => G_API_TYPE);
1071: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1072: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1073: p_api_name => l_api_name,
1074: p_pkg_name => G_PKG_NAME,
1075: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1068: x_msg_count => x_msg_count,
1069: x_msg_data => x_msg_data,
1070: p_api_type => G_API_TYPE);
1071: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1072: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1073: p_api_name => l_api_name,
1074: p_pkg_name => G_PKG_NAME,
1075: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1076: x_msg_count => x_msg_count,
1071: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1072: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1073: p_api_name => l_api_name,
1074: p_pkg_name => G_PKG_NAME,
1075: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1076: x_msg_count => x_msg_count,
1077: x_msg_data => x_msg_data,
1078: p_api_type => G_API_TYPE);
1079: WHEN OTHERS THEN
1076: x_msg_count => x_msg_count,
1077: x_msg_data => x_msg_data,
1078: p_api_type => G_API_TYPE);
1079: WHEN OTHERS THEN
1080: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1081: p_api_name => l_api_name,
1082: p_pkg_name => G_PKG_NAME,
1083: p_exc_name => 'OTHERS',
1084: x_msg_count => x_msg_count,
1115:
1116: -- Variables Declarations
1117: l_api_version CONSTANT NUMBER DEFAULT 1.0;
1118: l_api_name CONSTANT VARCHAR2(30) DEFAULT 'CREATE_UPDATE_PAYMENT';
1119: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1120: l_debug_enabled VARCHAR2(10);
1121:
1122: -- Record/Table Type Declarations
1123: l_payment_header_rec cashflow_hdr_rec_type;
1153: WHERE parent_object_id = lc_quote_id
1154: AND parent_object_code = 'LEASEQUOTE'
1155: AND fee_type <> 'CAPITALIZED';
1156: BEGIN
1157: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1158: -- check for logging on PROCEDURE level
1159: l_debug_enabled := okl_debug_pub.check_log_enabled;
1160: -- call START_ACTIVITY to create savepoint, check compatibility
1161: -- and initialize message list
1158: -- check for logging on PROCEDURE level
1159: l_debug_enabled := okl_debug_pub.check_log_enabled;
1160: -- call START_ACTIVITY to create savepoint, check compatibility
1161: -- and initialize message list
1162: l_return_status := OKL_API.START_ACTIVITY( p_api_name => l_api_name
1163: ,p_pkg_name => G_PKG_NAME
1164: ,p_init_msg_list => p_init_msg_list
1165: ,l_api_version => l_api_version
1166: ,p_api_version => p_api_version
1166: ,p_api_version => p_api_version
1167: ,p_api_type => g_api_type
1168: ,x_return_status => x_return_status);
1169: -- check if activity started successfully
1170: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1171: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1172: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1173: RAISE OKL_API.G_EXCEPTION_ERROR;
1174: END IF;
1167: ,p_api_type => g_api_type
1168: ,x_return_status => x_return_status);
1169: -- check if activity started successfully
1170: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1171: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1172: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1173: RAISE OKL_API.G_EXCEPTION_ERROR;
1174: END IF;
1175: --Pupulate quote record
1168: ,x_return_status => x_return_status);
1169: -- check if activity started successfully
1170: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1171: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1172: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1173: RAISE OKL_API.G_EXCEPTION_ERROR;
1174: END IF;
1175: --Pupulate quote record
1176: l_lease_qte_rec := populate_quote_rec(p_lease_qte_rec.id,x_return_status);
1169: -- check if activity started successfully
1170: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1171: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1172: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1173: RAISE OKL_API.G_EXCEPTION_ERROR;
1174: END IF;
1175: --Pupulate quote record
1176: l_lease_qte_rec := populate_quote_rec(p_lease_qte_rec.id,x_return_status);
1177:
1175: --Pupulate quote record
1176: l_lease_qte_rec := populate_quote_rec(p_lease_qte_rec.id,x_return_status);
1177:
1178: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1180: ELSIF x_return_status = G_RET_STS_ERROR THEN
1181: RAISE OKL_API.G_EXCEPTION_ERROR;
1182: END IF;
1183:
1177:
1178: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1180: ELSIF x_return_status = G_RET_STS_ERROR THEN
1181: RAISE OKL_API.G_EXCEPTION_ERROR;
1182: END IF;
1183:
1184: l_lease_qte_rec.TARGET_RATE_TYPE := p_lease_qte_rec.TARGET_RATE_TYPE;
1185: l_lease_qte_rec.TARGET_RATE := p_lease_qte_rec.TARGET_RATE;
1195:
1196: l_all_lines_overriden := okl_sales_quote_qa_pvt.are_all_lines_overriden(l_lease_qte_rec.id,l_lease_qte_rec.pricing_method,l_lease_qte_rec.LINE_LEVEL_PRICING ,x_return_status);
1197:
1198: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1200: ELSIF x_return_status = G_RET_STS_ERROR THEN
1201: RAISE OKL_API.G_EXCEPTION_ERROR;
1202: END IF;
1203:
1197:
1198: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1200: ELSIF x_return_status = G_RET_STS_ERROR THEN
1201: RAISE OKL_API.G_EXCEPTION_ERROR;
1202: END IF;
1203:
1204: IF l_all_lines_overriden = 'Y' THEN
1205: l_entered := are_qte_pricing_opts_entered(l_lease_qte_rec,p_payment_level_tbl.count,x_return_status);
1204: IF l_all_lines_overriden = 'Y' THEN
1205: l_entered := are_qte_pricing_opts_entered(l_lease_qte_rec,p_payment_level_tbl.count,x_return_status);
1206:
1207: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1208: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1209: ELSIF x_return_status = G_RET_STS_ERROR THEN
1210: RAISE OKL_API.G_EXCEPTION_ERROR;
1211: END IF;
1212:
1206:
1207: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1208: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1209: ELSIF x_return_status = G_RET_STS_ERROR THEN
1210: RAISE OKL_API.G_EXCEPTION_ERROR;
1211: END IF;
1212:
1213: IF l_entered = 'Y' THEN
1214:
1211: END IF;
1212:
1213: IF l_entered = 'Y' THEN
1214:
1215: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1216: p_msg_name => 'OKL_QTE_PMT_ENTERED');
1217: RAISE OKL_API.G_EXCEPTION_ERROR;
1218: END IF;
1219: l_lease_qte_rec.TARGET_RATE_TYPE := NULL;
1213: IF l_entered = 'Y' THEN
1214:
1215: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1216: p_msg_name => 'OKL_QTE_PMT_ENTERED');
1217: RAISE OKL_API.G_EXCEPTION_ERROR;
1218: END IF;
1219: l_lease_qte_rec.TARGET_RATE_TYPE := NULL;
1220: l_lease_qte_rec.TARGET_RATE := NULL;
1221: l_lease_qte_rec.TARGET_AMOUNT := NULL;
1228: l_lease_qte_rec.rate_card_id := NULL;
1229: ELSE
1230: IF l_lease_qte_rec.pricing_method NOT IN ( 'TR','RC','SY') THEN
1231: IF l_lease_qte_rec.structured_pricing = 'N' AND l_lease_qte_rec.rate_template_id IS NULL THEN
1232: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1233: p_msg_name => 'OKL_SRT_MANDATORY');
1234: RAISE OKL_API.G_EXCEPTION_ERROR;
1235: ELSIF l_lease_qte_rec.structured_pricing = 'N' AND l_lease_qte_rec.target_amount IS NULL
1236: AND l_lease_qte_rec.pricing_method NOT IN ('SP','SM')
1230: IF l_lease_qte_rec.pricing_method NOT IN ( 'TR','RC','SY') THEN
1231: IF l_lease_qte_rec.structured_pricing = 'N' AND l_lease_qte_rec.rate_template_id IS NULL THEN
1232: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1233: p_msg_name => 'OKL_SRT_MANDATORY');
1234: RAISE OKL_API.G_EXCEPTION_ERROR;
1235: ELSIF l_lease_qte_rec.structured_pricing = 'N' AND l_lease_qte_rec.target_amount IS NULL
1236: AND l_lease_qte_rec.pricing_method NOT IN ('SP','SM')
1237: THEN
1238: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1234: RAISE OKL_API.G_EXCEPTION_ERROR;
1235: ELSIF l_lease_qte_rec.structured_pricing = 'N' AND l_lease_qte_rec.target_amount IS NULL
1236: AND l_lease_qte_rec.pricing_method NOT IN ('SP','SM')
1237: THEN
1238: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1239: p_msg_name => 'OKL_PA_MANDATORY');
1240: RAISE OKL_API.G_EXCEPTION_ERROR;
1241: END IF;
1242: END IF;
1236: AND l_lease_qte_rec.pricing_method NOT IN ('SP','SM')
1237: THEN
1238: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1239: p_msg_name => 'OKL_PA_MANDATORY');
1240: RAISE OKL_API.G_EXCEPTION_ERROR;
1241: END IF;
1242: END IF;
1243: END IF;
1244: IF l_all_lines_overriden = 'N' OR l_entered = 'N' THEN
1260: ,'end debug call update_lease_qte');
1261: END IF;
1262:
1263: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1264: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1265: ELSIF x_return_status = G_RET_STS_ERROR THEN
1266: RAISE OKL_API.G_EXCEPTION_ERROR;
1267: END IF;
1268: IF l_all_lines_overriden = 'Y' THEN
1262:
1263: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1264: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1265: ELSIF x_return_status = G_RET_STS_ERROR THEN
1266: RAISE OKL_API.G_EXCEPTION_ERROR;
1267: END IF;
1268: IF l_all_lines_overriden = 'Y' THEN
1269: IF(l_debug_enabled='Y') THEN
1270: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_lease_quote_cashflow_pvt.delete_cash_flows'
1284: ,'End debug call okl_lease_quote_cashflow_pvt.delete_cash_flows');
1285: END IF;
1286:
1287: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1288: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1289: ELSIF x_return_status = G_RET_STS_ERROR THEN
1290: RAISE OKL_API.G_EXCEPTION_ERROR;
1291: END IF;
1292:
1286:
1287: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1288: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1289: ELSIF x_return_status = G_RET_STS_ERROR THEN
1290: RAISE OKL_API.G_EXCEPTION_ERROR;
1291: END IF;
1292:
1293: ELSE
1294: l_payment_header_rec := p_payment_header_rec;
1300:
1301: IF ((l_payment_level_tbl.COUNT > 0 AND l_payment_header_rec.stream_type_id IS NULL) OR
1302: (l_payment_header_rec.stream_type_id IS NOT NULL AND l_payment_level_tbl.COUNT = 0 ))
1303: THEN
1304: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1305: p_msg_name => 'OKL_EPT_PAYMENT_NA');
1306: RAISE OKL_API.G_EXCEPTION_ERROR;
1307: ELSE
1308: -- Check if the Cash flows already exists
1302: (l_payment_header_rec.stream_type_id IS NOT NULL AND l_payment_level_tbl.COUNT = 0 ))
1303: THEN
1304: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1305: p_msg_name => 'OKL_EPT_PAYMENT_NA');
1306: RAISE OKL_API.G_EXCEPTION_ERROR;
1307: ELSE
1308: -- Check if the Cash flows already exists
1309: OPEN c_check_cash_flow(p_quote_id => l_payment_header_rec.quote_id);
1310: FETCH c_check_cash_flow into lv_cash_flow_exists;
1330: ,'end debug call update_cashflow');
1331: END IF;
1332:
1333: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1334: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1335: ELSIF x_return_status = G_RET_STS_ERROR THEN
1336: RAISE OKL_API.G_EXCEPTION_ERROR;
1337: END IF;
1338: ELSE
1332:
1333: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1334: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1335: ELSIF x_return_status = G_RET_STS_ERROR THEN
1336: RAISE OKL_API.G_EXCEPTION_ERROR;
1337: END IF;
1338: ELSE
1339: IF(l_debug_enabled='Y') THEN
1340: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.OKL_LEASE_QUOTE_CASHFLOW_PVT.create_cashflow'
1354: ,'end debug call create_cashflow');
1355: END IF;
1356:
1357: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1358: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1359: ELSIF x_return_status = G_RET_STS_ERROR THEN
1360: RAISE OKL_API.G_EXCEPTION_ERROR;
1361: END IF;
1362: END IF;
1356:
1357: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1358: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1359: ELSIF x_return_status = G_RET_STS_ERROR THEN
1360: RAISE OKL_API.G_EXCEPTION_ERROR;
1361: END IF;
1362: END IF;
1363: END IF;
1364: END IF;
1375: ,x_msg_count => x_msg_count
1376: ,x_msg_data => x_msg_data);
1377:
1378: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1379: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1380: ELSIF x_return_status = G_RET_STS_ERROR THEN
1381: RAISE OKL_API.G_EXCEPTION_ERROR;
1382: END IF;
1383:
1377:
1378: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1379: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1380: ELSIF x_return_status = G_RET_STS_ERROR THEN
1381: RAISE OKL_API.G_EXCEPTION_ERROR;
1382: END IF;
1383:
1384: END LOOP;
1385: /* FOR l_quote_fees_rec IN quote_fees_csr(l_lease_qte_rec.id) LOOP
1393: ,x_msg_count => x_msg_count
1394: ,x_msg_data => x_msg_data);
1395:
1396: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1397: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1398: ELSIF x_return_status = G_RET_STS_ERROR THEN
1399: RAISE OKL_API.G_EXCEPTION_ERROR;
1400: END IF;
1401:
1395:
1396: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1397: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1398: ELSIF x_return_status = G_RET_STS_ERROR THEN
1399: RAISE OKL_API.G_EXCEPTION_ERROR;
1400: END IF;
1401:
1402: END LOOP; */
1403: END IF;
1412: ,p_parent_object_id => l_lease_qte_rec.parent_object_id
1413: );
1414:
1415: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1416: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1417: ELSIF x_return_status = G_RET_STS_ERROR THEN
1418: RAISE OKL_API.G_EXCEPTION_ERROR;
1419: END IF;*/
1420:
1414:
1415: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1416: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1417: ELSIF x_return_status = G_RET_STS_ERROR THEN
1418: RAISE OKL_API.G_EXCEPTION_ERROR;
1419: END IF;*/
1420:
1421:
1422: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
1418: RAISE OKL_API.G_EXCEPTION_ERROR;
1419: END IF;*/
1420:
1421:
1422: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
1423: ,x_msg_data => x_msg_data);
1424: EXCEPTION
1425: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1426: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1421:
1422: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
1423: ,x_msg_data => x_msg_data);
1424: EXCEPTION
1425: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1426: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1427: p_api_name => l_api_name,
1428: p_pkg_name => G_PKG_NAME,
1429: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1422: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
1423: ,x_msg_data => x_msg_data);
1424: EXCEPTION
1425: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1426: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1427: p_api_name => l_api_name,
1428: p_pkg_name => G_PKG_NAME,
1429: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1430: x_msg_count => x_msg_count,
1425: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1426: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1427: p_api_name => l_api_name,
1428: p_pkg_name => G_PKG_NAME,
1429: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1430: x_msg_count => x_msg_count,
1431: x_msg_data => x_msg_data,
1432: p_api_type => g_api_type);
1433: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1429: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1430: x_msg_count => x_msg_count,
1431: x_msg_data => x_msg_data,
1432: p_api_type => g_api_type);
1433: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1434: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1435: p_api_name => l_api_name,
1436: p_pkg_name => G_PKG_NAME,
1437: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1430: x_msg_count => x_msg_count,
1431: x_msg_data => x_msg_data,
1432: p_api_type => g_api_type);
1433: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1434: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1435: p_api_name => l_api_name,
1436: p_pkg_name => G_PKG_NAME,
1437: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1438: x_msg_count => x_msg_count,
1433: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1434: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1435: p_api_name => l_api_name,
1436: p_pkg_name => G_PKG_NAME,
1437: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1438: x_msg_count => x_msg_count,
1439: x_msg_data => x_msg_data,
1440: p_api_type => g_api_type);
1441: WHEN OTHERS THEN
1438: x_msg_count => x_msg_count,
1439: x_msg_data => x_msg_data,
1440: p_api_type => g_api_type);
1441: WHEN OTHERS THEN
1442: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1443: p_api_name => l_api_name,
1444: p_pkg_name => G_PKG_NAME,
1445: p_exc_name => 'OTHERS',
1446: x_msg_count => x_msg_count,
1474:
1475: -- Variables Declarations
1476: l_api_version CONSTANT NUMBER DEFAULT 1.0;
1477: l_api_name CONSTANT VARCHAR2(30) DEFAULT 'CREATE_UPDATE_PAYMENT';
1478: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1479: l_debug_enabled VARCHAR2(10);
1480:
1481: -- Record/Table Type Declarations
1482: l_payment_header_rec cashflow_hdr_rec_type;
1503: AND parent_object_code = 'LEASEQUOTE'
1504: AND fee_type <> 'CAPITALIZED';
1505:
1506: BEGIN
1507: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1508: -- check for logging on PROCEDURE level
1509: l_debug_enabled := okl_debug_pub.check_log_enabled;
1510: -- call START_ACTIVITY to create savepoint, check compatibility
1511: -- and initialize message list
1508: -- check for logging on PROCEDURE level
1509: l_debug_enabled := okl_debug_pub.check_log_enabled;
1510: -- call START_ACTIVITY to create savepoint, check compatibility
1511: -- and initialize message list
1512: l_return_status := OKL_API.START_ACTIVITY( p_api_name => l_api_name
1513: ,p_pkg_name => G_PKG_NAME
1514: ,p_init_msg_list => p_init_msg_list
1515: ,l_api_version => l_api_version
1516: ,p_api_version => p_api_version
1516: ,p_api_version => p_api_version
1517: ,p_api_type => g_api_type
1518: ,x_return_status => x_return_status);
1519: -- check if activity started successfully
1520: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1521: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1522: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1523: RAISE OKL_API.G_EXCEPTION_ERROR;
1524: END IF;
1517: ,p_api_type => g_api_type
1518: ,x_return_status => x_return_status);
1519: -- check if activity started successfully
1520: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1521: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1522: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1523: RAISE OKL_API.G_EXCEPTION_ERROR;
1524: END IF;
1525:
1518: ,x_return_status => x_return_status);
1519: -- check if activity started successfully
1520: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1521: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1522: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1523: RAISE OKL_API.G_EXCEPTION_ERROR;
1524: END IF;
1525:
1526: --Populate quote record
1519: -- check if activity started successfully
1520: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1521: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1522: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1523: RAISE OKL_API.G_EXCEPTION_ERROR;
1524: END IF;
1525:
1526: --Populate quote record
1527: l_lease_qte_rec := populate_quote_rec(p_lease_qte_rec.id,x_return_status);
1526: --Populate quote record
1527: l_lease_qte_rec := populate_quote_rec(p_lease_qte_rec.id,x_return_status);
1528:
1529: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1530: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1531: ELSIF x_return_status = G_RET_STS_ERROR THEN
1532: RAISE OKL_API.G_EXCEPTION_ERROR;
1533: END IF;
1534:
1528:
1529: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1530: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1531: ELSIF x_return_status = G_RET_STS_ERROR THEN
1532: RAISE OKL_API.G_EXCEPTION_ERROR;
1533: END IF;
1534:
1535: l_lease_qte_rec.TARGET_RATE_TYPE := p_lease_qte_rec.TARGET_RATE_TYPE;
1536: l_lease_qte_rec.TARGET_RATE := p_lease_qte_rec.TARGET_RATE;
1545: l_lease_qte_rec.rate_card_id := p_lease_qte_rec.rate_card_id;
1546: l_all_lines_overriden := okl_sales_quote_qa_pvt.are_all_lines_overriden(l_lease_qte_rec.id,l_lease_qte_rec.pricing_method,l_lease_qte_rec.LINE_LEVEL_PRICING ,x_return_status);
1547:
1548: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1549: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1550: ELSIF x_return_status = G_RET_STS_ERROR THEN
1551: RAISE OKL_API.G_EXCEPTION_ERROR;
1552: END IF;
1553: IF l_all_lines_overriden = 'Y' THEN
1547:
1548: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1549: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1550: ELSIF x_return_status = G_RET_STS_ERROR THEN
1551: RAISE OKL_API.G_EXCEPTION_ERROR;
1552: END IF;
1553: IF l_all_lines_overriden = 'Y' THEN
1554: l_entered := are_qte_pricing_opts_entered(l_lease_qte_rec,0,x_return_status);
1555:
1553: IF l_all_lines_overriden = 'Y' THEN
1554: l_entered := are_qte_pricing_opts_entered(l_lease_qte_rec,0,x_return_status);
1555:
1556: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1557: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1558: ELSIF x_return_status = G_RET_STS_ERROR THEN
1559: RAISE OKL_API.G_EXCEPTION_ERROR;
1560: END IF;
1561:
1555:
1556: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1557: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1558: ELSIF x_return_status = G_RET_STS_ERROR THEN
1559: RAISE OKL_API.G_EXCEPTION_ERROR;
1560: END IF;
1561:
1562: IF l_entered = 'Y' THEN
1563:
1560: END IF;
1561:
1562: IF l_entered = 'Y' THEN
1563:
1564: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1565: p_msg_name => 'OKL_QTE_PMT_ENTERED');
1566: RAISE OKL_API.G_EXCEPTION_ERROR;
1567: END IF;
1568: l_lease_qte_rec.TARGET_RATE_TYPE := NULL;
1562: IF l_entered = 'Y' THEN
1563:
1564: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1565: p_msg_name => 'OKL_QTE_PMT_ENTERED');
1566: RAISE OKL_API.G_EXCEPTION_ERROR;
1567: END IF;
1568: l_lease_qte_rec.TARGET_RATE_TYPE := NULL;
1569: l_lease_qte_rec.TARGET_RATE := NULL;
1570: l_lease_qte_rec.TARGET_AMOUNT := NULL;
1578: ELSE
1579:
1580: IF l_lease_qte_rec.pricing_method = 'RC' THEN
1581: IF l_lease_qte_rec.structured_pricing = 'N' AND l_lease_qte_rec.rate_card_id IS NULL THEN
1582: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1583: p_msg_name => 'OKL_RC_MANDATORY');
1584: RAISE OKL_API.G_EXCEPTION_ERROR;
1585: ELSIF l_lease_qte_rec.structured_pricing = 'Y' AND l_lease_qte_rec.lease_rate_factor IS NULL THEN
1586: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1580: IF l_lease_qte_rec.pricing_method = 'RC' THEN
1581: IF l_lease_qte_rec.structured_pricing = 'N' AND l_lease_qte_rec.rate_card_id IS NULL THEN
1582: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1583: p_msg_name => 'OKL_RC_MANDATORY');
1584: RAISE OKL_API.G_EXCEPTION_ERROR;
1585: ELSIF l_lease_qte_rec.structured_pricing = 'Y' AND l_lease_qte_rec.lease_rate_factor IS NULL THEN
1586: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1587: p_msg_name => 'OKL_RF_MANDATORY');
1588: RAISE OKL_API.G_EXCEPTION_ERROR;
1582: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1583: p_msg_name => 'OKL_RC_MANDATORY');
1584: RAISE OKL_API.G_EXCEPTION_ERROR;
1585: ELSIF l_lease_qte_rec.structured_pricing = 'Y' AND l_lease_qte_rec.lease_rate_factor IS NULL THEN
1586: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1587: p_msg_name => 'OKL_RF_MANDATORY');
1588: RAISE OKL_API.G_EXCEPTION_ERROR;
1589: END IF;
1590: ELSIF l_lease_qte_rec.pricing_method NOT IN ('TR','SY') THEN
1584: RAISE OKL_API.G_EXCEPTION_ERROR;
1585: ELSIF l_lease_qte_rec.structured_pricing = 'Y' AND l_lease_qte_rec.lease_rate_factor IS NULL THEN
1586: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1587: p_msg_name => 'OKL_RF_MANDATORY');
1588: RAISE OKL_API.G_EXCEPTION_ERROR;
1589: END IF;
1590: ELSIF l_lease_qte_rec.pricing_method NOT IN ('TR','SY') THEN
1591: IF l_lease_qte_rec.structured_pricing = 'N' AND l_lease_qte_rec.rate_template_id IS NULL THEN
1592: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1588: RAISE OKL_API.G_EXCEPTION_ERROR;
1589: END IF;
1590: ELSIF l_lease_qte_rec.pricing_method NOT IN ('TR','SY') THEN
1591: IF l_lease_qte_rec.structured_pricing = 'N' AND l_lease_qte_rec.rate_template_id IS NULL THEN
1592: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1593: p_msg_name => 'OKL_SRT_MANDATORY');
1594: RAISE OKL_API.G_EXCEPTION_ERROR;
1595: ELSIF l_lease_qte_rec.structured_pricing = 'N' AND l_lease_qte_rec.target_amount IS NULL
1596: AND l_lease_qte_rec.pricing_method NOT IN ('SP','SM')
1590: ELSIF l_lease_qte_rec.pricing_method NOT IN ('TR','SY') THEN
1591: IF l_lease_qte_rec.structured_pricing = 'N' AND l_lease_qte_rec.rate_template_id IS NULL THEN
1592: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1593: p_msg_name => 'OKL_SRT_MANDATORY');
1594: RAISE OKL_API.G_EXCEPTION_ERROR;
1595: ELSIF l_lease_qte_rec.structured_pricing = 'N' AND l_lease_qte_rec.target_amount IS NULL
1596: AND l_lease_qte_rec.pricing_method NOT IN ('SP','SM')
1597: THEN
1598: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1594: RAISE OKL_API.G_EXCEPTION_ERROR;
1595: ELSIF l_lease_qte_rec.structured_pricing = 'N' AND l_lease_qte_rec.target_amount IS NULL
1596: AND l_lease_qte_rec.pricing_method NOT IN ('SP','SM')
1597: THEN
1598: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1599: p_msg_name => 'OKL_PA_MANDATORY');
1600: RAISE OKL_API.G_EXCEPTION_ERROR;
1601: END IF;
1602: END IF;
1596: AND l_lease_qte_rec.pricing_method NOT IN ('SP','SM')
1597: THEN
1598: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1599: p_msg_name => 'OKL_PA_MANDATORY');
1600: RAISE OKL_API.G_EXCEPTION_ERROR;
1601: END IF;
1602: END IF;
1603: END IF;
1604: IF l_all_lines_overriden = 'N' OR l_entered = 'N' THEN
1620: ,'End debug call update_lease_qte');
1621: END IF;
1622:
1623: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1624: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1625: ELSIF x_return_status = G_RET_STS_ERROR THEN
1626: RAISE OKL_API.G_EXCEPTION_ERROR;
1627: END IF;
1628:
1622:
1623: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1624: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1625: ELSIF x_return_status = G_RET_STS_ERROR THEN
1626: RAISE OKL_API.G_EXCEPTION_ERROR;
1627: END IF;
1628:
1629: IF(l_debug_enabled='Y') THEN
1630: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_lease_quote_cashflow_pvt.delete_cash_flows'
1644: ,'End debug call okl_lease_quote_cashflow_pvt.delete_cash_flows');
1645: END IF;
1646:
1647: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1648: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1649: ELSIF x_return_status = G_RET_STS_ERROR THEN
1650: RAISE OKL_API.G_EXCEPTION_ERROR;
1651: END IF;
1652: END IF;
1646:
1647: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1648: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1649: ELSIF x_return_status = G_RET_STS_ERROR THEN
1650: RAISE OKL_API.G_EXCEPTION_ERROR;
1651: END IF;
1652: END IF;
1653: IF p_lease_qte_rec.line_level_pricing = 'N' THEN
1654: FOR l_quote_asset_rec IN quote_assets_csr(l_lease_qte_rec.id) LOOP
1662: ,x_msg_count => x_msg_count
1663: ,x_msg_data => x_msg_data);
1664:
1665: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1666: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1667: ELSIF x_return_status = G_RET_STS_ERROR THEN
1668: RAISE OKL_API.G_EXCEPTION_ERROR;
1669: END IF;
1670:
1664:
1665: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1666: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1667: ELSIF x_return_status = G_RET_STS_ERROR THEN
1668: RAISE OKL_API.G_EXCEPTION_ERROR;
1669: END IF;
1670:
1671: END LOOP;
1672: /* FOR l_quote_fees_rec IN quote_fees_csr(l_lease_qte_rec.id) LOOP
1680: ,x_msg_count => x_msg_count
1681: ,x_msg_data => x_msg_data);
1682:
1683: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1684: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1685: ELSIF x_return_status = G_RET_STS_ERROR THEN
1686: RAISE OKL_API.G_EXCEPTION_ERROR;
1687: END IF;
1688:
1682:
1683: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1684: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1685: ELSIF x_return_status = G_RET_STS_ERROR THEN
1686: RAISE OKL_API.G_EXCEPTION_ERROR;
1687: END IF;
1688:
1689: END LOOP; */
1690: END IF;
1699: ,p_parent_object_id => l_lease_qte_rec.parent_object_id
1700: );
1701:
1702: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1703: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1704: ELSIF x_return_status = G_RET_STS_ERROR THEN
1705: RAISE OKL_API.G_EXCEPTION_ERROR;
1706: END IF;*/
1707:
1701:
1702: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1703: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1704: ELSIF x_return_status = G_RET_STS_ERROR THEN
1705: RAISE OKL_API.G_EXCEPTION_ERROR;
1706: END IF;*/
1707:
1708: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
1709: ,x_msg_data => x_msg_data);
1704: ELSIF x_return_status = G_RET_STS_ERROR THEN
1705: RAISE OKL_API.G_EXCEPTION_ERROR;
1706: END IF;*/
1707:
1708: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
1709: ,x_msg_data => x_msg_data);
1710: EXCEPTION
1711: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1712: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1707:
1708: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
1709: ,x_msg_data => x_msg_data);
1710: EXCEPTION
1711: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1712: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1713: p_api_name => l_api_name,
1714: p_pkg_name => G_PKG_NAME,
1715: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1708: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
1709: ,x_msg_data => x_msg_data);
1710: EXCEPTION
1711: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1712: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1713: p_api_name => l_api_name,
1714: p_pkg_name => G_PKG_NAME,
1715: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1716: x_msg_count => x_msg_count,
1711: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1712: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1713: p_api_name => l_api_name,
1714: p_pkg_name => G_PKG_NAME,
1715: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1716: x_msg_count => x_msg_count,
1717: x_msg_data => x_msg_data,
1718: p_api_type => g_api_type);
1719: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1715: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1716: x_msg_count => x_msg_count,
1717: x_msg_data => x_msg_data,
1718: p_api_type => g_api_type);
1719: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1720: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1721: p_api_name => l_api_name,
1722: p_pkg_name => G_PKG_NAME,
1723: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1716: x_msg_count => x_msg_count,
1717: x_msg_data => x_msg_data,
1718: p_api_type => g_api_type);
1719: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1720: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1721: p_api_name => l_api_name,
1722: p_pkg_name => G_PKG_NAME,
1723: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1724: x_msg_count => x_msg_count,
1719: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1720: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1721: p_api_name => l_api_name,
1722: p_pkg_name => G_PKG_NAME,
1723: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1724: x_msg_count => x_msg_count,
1725: x_msg_data => x_msg_data,
1726: p_api_type => g_api_type);
1727: WHEN OTHERS THEN
1724: x_msg_count => x_msg_count,
1725: x_msg_data => x_msg_data,
1726: p_api_type => g_api_type);
1727: WHEN OTHERS THEN
1728: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1729: p_api_name => l_api_name,
1730: p_pkg_name => G_PKG_NAME,
1731: p_exc_name => 'OTHERS',
1732: x_msg_count => x_msg_count,
1764:
1765: -- Variables Declarations
1766: l_api_version CONSTANT NUMBER DEFAULT 1.0;
1767: l_api_name CONSTANT VARCHAR2(30) DEFAULT 'CREATE3';
1768: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1769: l_debug_enabled VARCHAR2(10);
1770:
1771:
1772: -- Record/Table Type Declarations
1802: AND SOURCE_TABLE = 'OKL_FEES_B'
1803: AND SOURCE_ID = p_fee_id;
1804:
1805: BEGIN
1806: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1807: -- check for logging on PROCEDURE level
1808: l_debug_enabled := okl_debug_pub.check_log_enabled;
1809: -- call START_ACTIVITY to create savepoint, check compatibility
1810: -- and initialize message list
1807: -- check for logging on PROCEDURE level
1808: l_debug_enabled := okl_debug_pub.check_log_enabled;
1809: -- call START_ACTIVITY to create savepoint, check compatibility
1810: -- and initialize message list
1811: l_return_status := OKL_API.START_ACTIVITY( p_api_name => l_api_name
1812: ,p_pkg_name => G_PKG_NAME
1813: ,p_init_msg_list => p_init_msg_list
1814: ,l_api_version => l_api_version
1815: ,p_api_version => p_api_version
1815: ,p_api_version => p_api_version
1816: ,p_api_type => g_api_type
1817: ,x_return_status => x_return_status);
1818: -- check if activity started successfully
1819: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1820: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1821: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1822: RAISE OKL_API.G_EXCEPTION_ERROR;
1823: END IF;
1816: ,p_api_type => g_api_type
1817: ,x_return_status => x_return_status);
1818: -- check if activity started successfully
1819: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1820: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1821: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1822: RAISE OKL_API.G_EXCEPTION_ERROR;
1823: END IF;
1824: IF p_payment_header_rec.parent_object_code = 'QUOTED_FEE' THEN
1817: ,x_return_status => x_return_status);
1818: -- check if activity started successfully
1819: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1820: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1821: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1822: RAISE OKL_API.G_EXCEPTION_ERROR;
1823: END IF;
1824: IF p_payment_header_rec.parent_object_code = 'QUOTED_FEE' THEN
1825: --Populate fee record
1818: -- check if activity started successfully
1819: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1820: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1821: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1822: RAISE OKL_API.G_EXCEPTION_ERROR;
1823: END IF;
1824: IF p_payment_header_rec.parent_object_code = 'QUOTED_FEE' THEN
1825: --Populate fee record
1826: l_fee_rec := populate_fee_rec(p_fee_rec.id,x_return_status);
1825: --Populate fee record
1826: l_fee_rec := populate_fee_rec(p_fee_rec.id,x_return_status);
1827:
1828: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1829: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1830: ELSIF x_return_status = G_RET_STS_ERROR THEN
1831: RAISE OKL_API.G_EXCEPTION_ERROR;
1832: END IF;
1833:
1827:
1828: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1829: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1830: ELSIF x_return_status = G_RET_STS_ERROR THEN
1831: RAISE OKL_API.G_EXCEPTION_ERROR;
1832: END IF;
1833:
1834: l_fee_rec.RATE_CARD_ID := p_fee_rec.RATE_CARD_ID;
1835: l_fee_rec.RATE_TEMPLATE_ID := p_fee_rec.RATE_TEMPLATE_ID;
1865: ,'end debug call update_row');
1866: END IF;
1867:
1868: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1869: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1870: ELSIF x_return_status = G_RET_STS_ERROR THEN
1871: RAISE OKL_API.G_EXCEPTION_ERROR;
1872: END IF;
1873:
1867:
1868: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1869: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1870: ELSIF x_return_status = G_RET_STS_ERROR THEN
1871: RAISE OKL_API.G_EXCEPTION_ERROR;
1872: END IF;
1873:
1874: -- Check if the Cash flows already exists
1875: OPEN c_check_fee_cash_flow(p_fee_id => lx_fee_rec.id);
1913: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.OKL_ASS_PVT.update_row'
1914: ,'end debug call update_row');
1915: END IF;
1916: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1917: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1918: ELSIF x_return_status = G_RET_STS_ERROR THEN
1919: RAISE OKL_API.G_EXCEPTION_ERROR;
1920: END IF;
1921:
1915: END IF;
1916: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1917: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1918: ELSIF x_return_status = G_RET_STS_ERROR THEN
1919: RAISE OKL_API.G_EXCEPTION_ERROR;
1920: END IF;
1921:
1922: -- Check if the Cash flows already exists
1923: OPEN c_check_asset_cash_flow(p_asset_id => lx_asset_rec.id);
1942: END IF;
1943: END LOOP;
1944: IF l_missing = 'N' THEN
1945: IF l_sp = 'N' THEN
1946: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1947: p_msg_name => 'OKL_NO_MP_STR');
1948: RAISE OKL_API.G_EXCEPTION_ERROR;
1949: END IF;
1950: END IF;
1944: IF l_missing = 'N' THEN
1945: IF l_sp = 'N' THEN
1946: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1947: p_msg_name => 'OKL_NO_MP_STR');
1948: RAISE OKL_API.G_EXCEPTION_ERROR;
1949: END IF;
1950: END IF;
1951: IF l_missing = 'Y' THEN
1952: IF l_sp = 'N' AND l_srt IS NULL THEN
1949: END IF;
1950: END IF;
1951: IF l_missing = 'Y' THEN
1952: IF l_sp = 'N' AND l_srt IS NULL THEN
1953: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1954: p_msg_name => 'OKL_SRT_MANDATORY');
1955: RAISE OKL_API.G_EXCEPTION_ERROR;
1956: END IF;
1957: END IF;
1951: IF l_missing = 'Y' THEN
1952: IF l_sp = 'N' AND l_srt IS NULL THEN
1953: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1954: p_msg_name => 'OKL_SRT_MANDATORY');
1955: RAISE OKL_API.G_EXCEPTION_ERROR;
1956: END IF;
1957: END IF;
1958: END IF;
1959: IF ((l_payment_level_tbl.COUNT > 0 AND l_payment_header_rec.stream_type_id IS NULL) OR
1957: END IF;
1958: END IF;
1959: IF ((l_payment_level_tbl.COUNT > 0 AND l_payment_header_rec.stream_type_id IS NULL) OR
1960: (l_payment_header_rec.stream_type_id IS NOT NULL AND l_payment_level_tbl.COUNT = 0 )) THEN
1961: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1962: p_msg_name => 'OKL_EPT_PAYMENT_NA');
1963: RAISE OKL_API.G_EXCEPTION_ERROR;
1964: ELSE
1965: IF (lv_cash_flow_exists = 'YES') THEN
1959: IF ((l_payment_level_tbl.COUNT > 0 AND l_payment_header_rec.stream_type_id IS NULL) OR
1960: (l_payment_header_rec.stream_type_id IS NOT NULL AND l_payment_level_tbl.COUNT = 0 )) THEN
1961: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1962: p_msg_name => 'OKL_EPT_PAYMENT_NA');
1963: RAISE OKL_API.G_EXCEPTION_ERROR;
1964: ELSE
1965: IF (lv_cash_flow_exists = 'YES') THEN
1966:
1967: IF(l_debug_enabled='Y') THEN
1982: ,'end debug call update_cashflow');
1983: END IF;
1984:
1985: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1986: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1987: ELSIF x_return_status = G_RET_STS_ERROR THEN
1988: RAISE OKL_API.G_EXCEPTION_ERROR;
1989: END IF;
1990: ELSE
1984:
1985: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1986: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1987: ELSIF x_return_status = G_RET_STS_ERROR THEN
1988: RAISE OKL_API.G_EXCEPTION_ERROR;
1989: END IF;
1990: ELSE
1991:
1992: IF(l_debug_enabled='Y') THEN
2007: ,'end debug call create_cashflow');
2008: END IF;
2009:
2010: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2011: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2012: ELSIF x_return_status = G_RET_STS_ERROR THEN
2013: RAISE OKL_API.G_EXCEPTION_ERROR;
2014: END IF;
2015: END IF;
2009:
2010: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2011: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2012: ELSIF x_return_status = G_RET_STS_ERROR THEN
2013: RAISE OKL_API.G_EXCEPTION_ERROR;
2014: END IF;
2015: END IF;
2016: END IF;
2017:
2015: END IF;
2016: END IF;
2017:
2018: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2019: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2020: ELSIF x_return_status = G_RET_STS_ERROR THEN
2021: RAISE OKL_API.G_EXCEPTION_ERROR;
2022: END IF;
2023:
2017:
2018: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2019: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2020: ELSIF x_return_status = G_RET_STS_ERROR THEN
2021: RAISE OKL_API.G_EXCEPTION_ERROR;
2022: END IF;
2023:
2024: /*SELECT parent_object_id,parent_object_code INTO l_p_id,l_p_code
2025: FROM okl_lease_quotes_b where ID = nvl(l_fee_rec.parent_object_id,l_Asset_rec.parent_object_id);
2034: ,p_parent_object_id => l_p_id
2035: );
2036:
2037: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2038: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2039: ELSIF x_return_status = G_RET_STS_ERROR THEN
2040: RAISE OKL_API.G_EXCEPTION_ERROR;
2041: END IF;*/
2042:
2036:
2037: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2038: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2039: ELSIF x_return_status = G_RET_STS_ERROR THEN
2040: RAISE OKL_API.G_EXCEPTION_ERROR;
2041: END IF;*/
2042:
2043: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
2044: ,x_msg_data => x_msg_data);
2039: ELSIF x_return_status = G_RET_STS_ERROR THEN
2040: RAISE OKL_API.G_EXCEPTION_ERROR;
2041: END IF;*/
2042:
2043: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
2044: ,x_msg_data => x_msg_data);
2045: EXCEPTION
2046: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2047: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2042:
2043: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
2044: ,x_msg_data => x_msg_data);
2045: EXCEPTION
2046: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2047: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2048: p_api_name => l_api_name,
2049: p_pkg_name => G_PKG_NAME,
2050: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2043: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
2044: ,x_msg_data => x_msg_data);
2045: EXCEPTION
2046: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2047: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2048: p_api_name => l_api_name,
2049: p_pkg_name => G_PKG_NAME,
2050: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2051: x_msg_count => x_msg_count,
2046: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2047: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2048: p_api_name => l_api_name,
2049: p_pkg_name => G_PKG_NAME,
2050: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2051: x_msg_count => x_msg_count,
2052: x_msg_data => x_msg_data,
2053: p_api_type => g_api_type);
2054: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2050: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2051: x_msg_count => x_msg_count,
2052: x_msg_data => x_msg_data,
2053: p_api_type => g_api_type);
2054: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2055: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2056: p_api_name => l_api_name,
2057: p_pkg_name => G_PKG_NAME,
2058: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2051: x_msg_count => x_msg_count,
2052: x_msg_data => x_msg_data,
2053: p_api_type => g_api_type);
2054: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2055: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2056: p_api_name => l_api_name,
2057: p_pkg_name => G_PKG_NAME,
2058: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2059: x_msg_count => x_msg_count,
2054: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2055: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2056: p_api_name => l_api_name,
2057: p_pkg_name => G_PKG_NAME,
2058: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2059: x_msg_count => x_msg_count,
2060: x_msg_data => x_msg_data,
2061: p_api_type => g_api_type);
2062: WHEN OTHERS THEN
2059: x_msg_count => x_msg_count,
2060: x_msg_data => x_msg_data,
2061: p_api_type => g_api_type);
2062: WHEN OTHERS THEN
2063: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2064: p_api_name => l_api_name,
2065: p_pkg_name => G_PKG_NAME,
2066: p_exc_name => 'OTHERS',
2067: x_msg_count => x_msg_count,
2095:
2096: -- Variables Declarations
2097: l_api_version CONSTANT NUMBER DEFAULT 1.0;
2098: l_api_name CONSTANT VARCHAR2(30) DEFAULT 'CREAT2';
2099: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2100: l_debug_enabled VARCHAR2(10);
2101:
2102:
2103: -- Record/Table Type Declarations
2114: l_p_code VARCHAR2(30);
2115:
2116:
2117: BEGIN
2118: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2119: -- check for logging on PROCEDURE level
2120: l_debug_enabled := okl_debug_pub.check_log_enabled;
2121: -- call START_ACTIVITY to create savepoint, check compatibility
2122: -- and initialize message list
2119: -- check for logging on PROCEDURE level
2120: l_debug_enabled := okl_debug_pub.check_log_enabled;
2121: -- call START_ACTIVITY to create savepoint, check compatibility
2122: -- and initialize message list
2123: l_return_status := OKL_API.START_ACTIVITY( p_api_name => l_api_name
2124: ,p_pkg_name => G_PKG_NAME
2125: ,p_init_msg_list => p_init_msg_list
2126: ,l_api_version => l_api_version
2127: ,p_api_version => p_api_version
2127: ,p_api_version => p_api_version
2128: ,p_api_type => g_api_type
2129: ,x_return_status => x_return_status);
2130: -- check if activity started successfully
2131: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2132: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2133: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2134: RAISE OKL_API.G_EXCEPTION_ERROR;
2135: END IF;
2128: ,p_api_type => g_api_type
2129: ,x_return_status => x_return_status);
2130: -- check if activity started successfully
2131: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2132: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2133: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2134: RAISE OKL_API.G_EXCEPTION_ERROR;
2135: END IF;
2136: --populate fee record
2129: ,x_return_status => x_return_status);
2130: -- check if activity started successfully
2131: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2132: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2133: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2134: RAISE OKL_API.G_EXCEPTION_ERROR;
2135: END IF;
2136: --populate fee record
2137: l_fee_rec := populate_fee_rec(p_fee_rec.id,x_return_status);
2130: -- check if activity started successfully
2131: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2132: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2133: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2134: RAISE OKL_API.G_EXCEPTION_ERROR;
2135: END IF;
2136: --populate fee record
2137: l_fee_rec := populate_fee_rec(p_fee_rec.id,x_return_status);
2138:
2136: --populate fee record
2137: l_fee_rec := populate_fee_rec(p_fee_rec.id,x_return_status);
2138:
2139: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2140: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2141: ELSIF x_return_status = G_RET_STS_ERROR THEN
2142: RAISE OKL_API.G_EXCEPTION_ERROR;
2143: END IF;
2144:
2138:
2139: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2140: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2141: ELSIF x_return_status = G_RET_STS_ERROR THEN
2142: RAISE OKL_API.G_EXCEPTION_ERROR;
2143: END IF;
2144:
2145: l_fee_rec.RATE_CARD_ID := p_fee_rec.RATE_CARD_ID;
2146: l_fee_rec.RATE_TEMPLATE_ID := p_fee_rec.RATE_TEMPLATE_ID;
2169: ,'end debug call update_row');
2170: END IF;
2171:
2172: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2173: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2174: ELSIF x_return_status = G_RET_STS_ERROR THEN
2175: RAISE OKL_API.G_EXCEPTION_ERROR;
2176: END IF;
2177:
2171:
2172: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2173: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2174: ELSIF x_return_status = G_RET_STS_ERROR THEN
2175: RAISE OKL_API.G_EXCEPTION_ERROR;
2176: END IF;
2177:
2178: IF(l_debug_enabled='Y') THEN
2179: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_lease_quote_cashflow_pvt.delete_cash_flows'
2193: ,'End debug call okl_lease_quote_cashflow_pvt.delete_cash_flows');
2194: END IF;
2195:
2196: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2197: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2198: ELSIF x_return_status = G_RET_STS_ERROR THEN
2199: RAISE OKL_API.G_EXCEPTION_ERROR;
2200: END IF;
2201:
2195:
2196: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2197: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2198: ELSIF x_return_status = G_RET_STS_ERROR THEN
2199: RAISE OKL_API.G_EXCEPTION_ERROR;
2200: END IF;
2201:
2202: /*SELECT parent_object_id,parent_object_code INTO l_p_id,l_p_code
2203: FROM okl_lease_quotes_b where ID = l_fee_rec.parent_object_id;
2212: ,p_parent_object_id => l_p_id
2213: );
2214:
2215: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2216: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2217: ELSIF x_return_status = G_RET_STS_ERROR THEN
2218: RAISE OKL_API.G_EXCEPTION_ERROR;
2219: END IF;*/
2220:
2214:
2215: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2216: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2217: ELSIF x_return_status = G_RET_STS_ERROR THEN
2218: RAISE OKL_API.G_EXCEPTION_ERROR;
2219: END IF;*/
2220:
2221:
2222:
2219: END IF;*/
2220:
2221:
2222:
2223: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
2224: ,x_msg_data => x_msg_data);
2225: EXCEPTION
2226: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2227: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2222:
2223: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
2224: ,x_msg_data => x_msg_data);
2225: EXCEPTION
2226: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2227: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2228: p_api_name => l_api_name,
2229: p_pkg_name => G_PKG_NAME,
2230: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2223: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
2224: ,x_msg_data => x_msg_data);
2225: EXCEPTION
2226: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2227: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2228: p_api_name => l_api_name,
2229: p_pkg_name => G_PKG_NAME,
2230: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2231: x_msg_count => x_msg_count,
2226: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2227: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2228: p_api_name => l_api_name,
2229: p_pkg_name => G_PKG_NAME,
2230: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2231: x_msg_count => x_msg_count,
2232: x_msg_data => x_msg_data,
2233: p_api_type => g_api_type);
2234: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2230: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2231: x_msg_count => x_msg_count,
2232: x_msg_data => x_msg_data,
2233: p_api_type => g_api_type);
2234: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2235: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2236: p_api_name => l_api_name,
2237: p_pkg_name => G_PKG_NAME,
2238: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2231: x_msg_count => x_msg_count,
2232: x_msg_data => x_msg_data,
2233: p_api_type => g_api_type);
2234: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2235: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2236: p_api_name => l_api_name,
2237: p_pkg_name => G_PKG_NAME,
2238: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2239: x_msg_count => x_msg_count,
2234: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2235: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2236: p_api_name => l_api_name,
2237: p_pkg_name => G_PKG_NAME,
2238: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2239: x_msg_count => x_msg_count,
2240: x_msg_data => x_msg_data,
2241: p_api_type => g_api_type);
2242: WHEN OTHERS THEN
2239: x_msg_count => x_msg_count,
2240: x_msg_data => x_msg_data,
2241: p_api_type => g_api_type);
2242: WHEN OTHERS THEN
2243: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2244: p_api_name => l_api_name,
2245: p_pkg_name => G_PKG_NAME,
2246: p_exc_name => 'OTHERS',
2247: x_msg_count => x_msg_count,
2275:
2276: -- Variables Declarations
2277: l_api_version CONSTANT NUMBER DEFAULT 1.0;
2278: l_api_name CONSTANT VARCHAR2(30) DEFAULT 'CREATE1';
2279: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2280: l_debug_enabled VARCHAR2(10);
2281:
2282:
2283: -- Record/Table Type Declarations
2293: l_p_code VARCHAR2(30);
2294:
2295:
2296: BEGIN
2297: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2298: -- check for logging on PROCEDURE level
2299: l_debug_enabled := okl_debug_pub.check_log_enabled;
2300: -- call START_ACTIVITY to create savepoint, check compatibility
2301: -- and initialize message list
2298: -- check for logging on PROCEDURE level
2299: l_debug_enabled := okl_debug_pub.check_log_enabled;
2300: -- call START_ACTIVITY to create savepoint, check compatibility
2301: -- and initialize message list
2302: l_return_status := OKL_API.START_ACTIVITY( p_api_name => l_api_name
2303: ,p_pkg_name => G_PKG_NAME
2304: ,p_init_msg_list => p_init_msg_list
2305: ,l_api_version => l_api_version
2306: ,p_api_version => p_api_version
2306: ,p_api_version => p_api_version
2307: ,p_api_type => g_api_type
2308: ,x_return_status => x_return_status);
2309: -- check if activity started successfully
2310: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2311: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2312: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2313: RAISE OKL_API.G_EXCEPTION_ERROR;
2314: END IF;
2307: ,p_api_type => g_api_type
2308: ,x_return_status => x_return_status);
2309: -- check if activity started successfully
2310: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2311: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2312: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2313: RAISE OKL_API.G_EXCEPTION_ERROR;
2314: END IF;
2315: l_asset_rec := populate_asset_rec(p_asset_rec.id,x_return_status);
2308: ,x_return_status => x_return_status);
2309: -- check if activity started successfully
2310: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2311: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2312: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2313: RAISE OKL_API.G_EXCEPTION_ERROR;
2314: END IF;
2315: l_asset_rec := populate_asset_rec(p_asset_rec.id,x_return_status);
2316:
2309: -- check if activity started successfully
2310: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2311: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2312: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2313: RAISE OKL_API.G_EXCEPTION_ERROR;
2314: END IF;
2315: l_asset_rec := populate_asset_rec(p_asset_rec.id,x_return_status);
2316:
2317: l_asset_rec.RATE_CARD_ID := p_asset_rec.RATE_CARD_ID;
2338: ,'begin debug call update_row');
2339: END IF;
2340:
2341: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2342: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2343: ELSIF x_return_status = G_RET_STS_ERROR THEN
2344: RAISE OKL_API.G_EXCEPTION_ERROR;
2345: END IF;
2346:
2340:
2341: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2342: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2343: ELSIF x_return_status = G_RET_STS_ERROR THEN
2344: RAISE OKL_API.G_EXCEPTION_ERROR;
2345: END IF;
2346:
2347: IF(l_debug_enabled='Y') THEN
2348: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_lease_quote_cashflow_pvt.delete_cash_flows'
2362: ,'End debug call okl_lease_quote_cashflow_pvt.delete_cash_flows');
2363: END IF;
2364:
2365: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2366: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2367: ELSIF x_return_status = G_RET_STS_ERROR THEN
2368: RAISE OKL_API.G_EXCEPTION_ERROR;
2369: END IF;
2370:
2364:
2365: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2366: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2367: ELSIF x_return_status = G_RET_STS_ERROR THEN
2368: RAISE OKL_API.G_EXCEPTION_ERROR;
2369: END IF;
2370:
2371: /*SELECT parent_object_id,parent_object_code INTO l_p_id,l_p_code
2372: FROM okl_lease_quotes_b where ID = l_asset_rec.parent_object_id;
2381: ,p_parent_object_id => l_p_id
2382: );
2383:
2384: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2385: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2386: ELSIF x_return_status = G_RET_STS_ERROR THEN
2387: RAISE OKL_API.G_EXCEPTION_ERROR;
2388: END IF;*/
2389:
2383:
2384: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2385: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2386: ELSIF x_return_status = G_RET_STS_ERROR THEN
2387: RAISE OKL_API.G_EXCEPTION_ERROR;
2388: END IF;*/
2389:
2390:
2391:
2388: END IF;*/
2389:
2390:
2391:
2392: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
2393: ,x_msg_data => x_msg_data);
2394: EXCEPTION
2395: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2396: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2391:
2392: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
2393: ,x_msg_data => x_msg_data);
2394: EXCEPTION
2395: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2396: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2397: p_api_name => l_api_name,
2398: p_pkg_name => G_PKG_NAME,
2399: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2392: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
2393: ,x_msg_data => x_msg_data);
2394: EXCEPTION
2395: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2396: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2397: p_api_name => l_api_name,
2398: p_pkg_name => G_PKG_NAME,
2399: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2400: x_msg_count => x_msg_count,
2395: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2396: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2397: p_api_name => l_api_name,
2398: p_pkg_name => G_PKG_NAME,
2399: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2400: x_msg_count => x_msg_count,
2401: x_msg_data => x_msg_data,
2402: p_api_type => g_api_type);
2403: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2399: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2400: x_msg_count => x_msg_count,
2401: x_msg_data => x_msg_data,
2402: p_api_type => g_api_type);
2403: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2404: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2405: p_api_name => l_api_name,
2406: p_pkg_name => G_PKG_NAME,
2407: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2400: x_msg_count => x_msg_count,
2401: x_msg_data => x_msg_data,
2402: p_api_type => g_api_type);
2403: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2404: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2405: p_api_name => l_api_name,
2406: p_pkg_name => G_PKG_NAME,
2407: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2408: x_msg_count => x_msg_count,
2403: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2404: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2405: p_api_name => l_api_name,
2406: p_pkg_name => G_PKG_NAME,
2407: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2408: x_msg_count => x_msg_count,
2409: x_msg_data => x_msg_data,
2410: p_api_type => g_api_type);
2411: WHEN OTHERS THEN
2408: x_msg_count => x_msg_count,
2409: x_msg_data => x_msg_data,
2410: p_api_type => g_api_type);
2411: WHEN OTHERS THEN
2412: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2413: p_api_name => l_api_name,
2414: p_pkg_name => G_PKG_NAME,
2415: p_exc_name => 'OTHERS',
2416: x_msg_count => x_msg_count,
2445:
2446: -- Variables Declarations
2447: l_api_version CONSTANT NUMBER DEFAULT 1.0;
2448: l_api_name CONSTANT VARCHAR2(30) DEFAULT 'DELETE_LINE_PAYMENT';
2449: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2450: l_debug_enabled VARCHAR2(10);
2451:
2452:
2453: -- Record/Table Type Declarations
2471:
2472:
2473: BEGIN
2474:
2475: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2476: -- check for logging on PROCEDURE level
2477: l_debug_enabled := okl_debug_pub.check_log_enabled;
2478: -- call START_ACTIVITY to create savepoint, check compatibility
2479: -- and initialize message list
2476: -- check for logging on PROCEDURE level
2477: l_debug_enabled := okl_debug_pub.check_log_enabled;
2478: -- call START_ACTIVITY to create savepoint, check compatibility
2479: -- and initialize message list
2480: l_return_status := OKL_API.START_ACTIVITY( p_api_name => l_api_name
2481: ,p_pkg_name => G_PKG_NAME
2482: ,p_init_msg_list => p_init_msg_list
2483: ,l_api_version => l_api_version
2484: ,p_api_version => p_api_version
2484: ,p_api_version => p_api_version
2485: ,p_api_type => g_api_type
2486: ,x_return_status => x_return_status);
2487: -- check if activity started successfully
2488: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2489: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2490: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2491: RAISE OKL_API.G_EXCEPTION_ERROR;
2492: END IF;
2485: ,p_api_type => g_api_type
2486: ,x_return_status => x_return_status);
2487: -- check if activity started successfully
2488: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2489: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2490: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2491: RAISE OKL_API.G_EXCEPTION_ERROR;
2492: END IF;
2493:
2486: ,x_return_status => x_return_status);
2487: -- check if activity started successfully
2488: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2489: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2490: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2491: RAISE OKL_API.G_EXCEPTION_ERROR;
2492: END IF;
2493:
2494: l_source_object_id := p_source_object_id;
2487: -- check if activity started successfully
2488: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2489: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2490: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2491: RAISE OKL_API.G_EXCEPTION_ERROR;
2492: END IF;
2493:
2494: l_source_object_id := p_source_object_id;
2495: l_source_object_code := p_source_object_code;
2498: --Populate fee record
2499: l_fee_rec := populate_fee_rec(l_source_object_id,x_return_status);
2500:
2501: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2502: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2503: ELSIF x_return_status = G_RET_STS_ERROR THEN
2504: RAISE OKL_API.G_EXCEPTION_ERROR;
2505: END IF;
2506:
2500:
2501: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2502: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2503: ELSIF x_return_status = G_RET_STS_ERROR THEN
2504: RAISE OKL_API.G_EXCEPTION_ERROR;
2505: END IF;
2506:
2507: l_fee_rec.RATE_CARD_ID := NULL;
2508: l_fee_rec.RATE_TEMPLATE_ID := NULL;
2529: ,'end debug call update_row');
2530: END IF;
2531:
2532: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2533: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2534: ELSIF x_return_status = G_RET_STS_ERROR THEN
2535: RAISE OKL_API.G_EXCEPTION_ERROR;
2536: END IF;
2537:
2531:
2532: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2533: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2534: ELSIF x_return_status = G_RET_STS_ERROR THEN
2535: RAISE OKL_API.G_EXCEPTION_ERROR;
2536: END IF;
2537:
2538: ELSIF l_source_object_code = 'QUOTED_ASSET' THEN
2539: l_asset_rec := populate_asset_rec(l_source_object_id,x_return_status);
2561: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.OKL_ASS_PVT.update_row'
2562: ,'end debug call update_row');
2563: END IF;
2564: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2565: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2566: ELSIF x_return_status = G_RET_STS_ERROR THEN
2567: RAISE OKL_API.G_EXCEPTION_ERROR;
2568: END IF;
2569: END IF;
2563: END IF;
2564: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2565: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2566: ELSIF x_return_status = G_RET_STS_ERROR THEN
2567: RAISE OKL_API.G_EXCEPTION_ERROR;
2568: END IF;
2569: END IF;
2570: -- Check if the Cash flows already exists
2571: OPEN c_check_cash_flow(p_source_id => l_source_object_id,p_source_code => l_source_object_code);
2593: ,'end debug call delete_cashflows');
2594: END IF;
2595:
2596: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2597: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2598: ELSIF x_return_status = G_RET_STS_ERROR THEN
2599: RAISE OKL_API.G_EXCEPTION_ERROR;
2600: END IF;
2601: END IF;
2595:
2596: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2597: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2598: ELSIF x_return_status = G_RET_STS_ERROR THEN
2599: RAISE OKL_API.G_EXCEPTION_ERROR;
2600: END IF;
2601: END IF;
2602:
2603: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2600: END IF;
2601: END IF;
2602:
2603: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2604: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2605: ELSIF x_return_status = G_RET_STS_ERROR THEN
2606: RAISE OKL_API.G_EXCEPTION_ERROR;
2607: END IF;
2608:
2602:
2603: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2604: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2605: ELSIF x_return_status = G_RET_STS_ERROR THEN
2606: RAISE OKL_API.G_EXCEPTION_ERROR;
2607: END IF;
2608:
2609: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
2610: ,x_msg_data => x_msg_data);
2605: ELSIF x_return_status = G_RET_STS_ERROR THEN
2606: RAISE OKL_API.G_EXCEPTION_ERROR;
2607: END IF;
2608:
2609: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
2610: ,x_msg_data => x_msg_data);
2611: EXCEPTION
2612: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2613: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2608:
2609: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
2610: ,x_msg_data => x_msg_data);
2611: EXCEPTION
2612: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2613: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2614: p_api_name => l_api_name,
2615: p_pkg_name => G_PKG_NAME,
2616: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2609: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
2610: ,x_msg_data => x_msg_data);
2611: EXCEPTION
2612: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2613: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2614: p_api_name => l_api_name,
2615: p_pkg_name => G_PKG_NAME,
2616: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2617: x_msg_count => x_msg_count,
2612: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2613: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2614: p_api_name => l_api_name,
2615: p_pkg_name => G_PKG_NAME,
2616: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2617: x_msg_count => x_msg_count,
2618: x_msg_data => x_msg_data,
2619: p_api_type => g_api_type);
2620: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2616: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2617: x_msg_count => x_msg_count,
2618: x_msg_data => x_msg_data,
2619: p_api_type => g_api_type);
2620: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2621: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2622: p_api_name => l_api_name,
2623: p_pkg_name => G_PKG_NAME,
2624: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2617: x_msg_count => x_msg_count,
2618: x_msg_data => x_msg_data,
2619: p_api_type => g_api_type);
2620: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2621: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2622: p_api_name => l_api_name,
2623: p_pkg_name => G_PKG_NAME,
2624: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2625: x_msg_count => x_msg_count,
2620: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2621: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2622: p_api_name => l_api_name,
2623: p_pkg_name => G_PKG_NAME,
2624: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2625: x_msg_count => x_msg_count,
2626: x_msg_data => x_msg_data,
2627: p_api_type => g_api_type);
2628: WHEN OTHERS THEN
2625: x_msg_count => x_msg_count,
2626: x_msg_data => x_msg_data,
2627: p_api_type => g_api_type);
2628: WHEN OTHERS THEN
2629: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2630: p_api_name => l_api_name,
2631: p_pkg_name => G_PKG_NAME,
2632: p_exc_name => 'OTHERS',
2633: x_msg_count => x_msg_count,