8:
9: --Global Variables
10: G_INIT_NUMBER NUMBER := -9999;
11: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_MASS_REBOOK_PVT';
12: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
13: G_API_TYPE CONSTANT VARCHAR2(4) := '_PVT';
14:
15: g_stream_trx_number NUMBER; -- Stream Trx number, updated only from rebook_contract
16:
55: x_msg_out VARCHAR2(2000);
56:
57: BEGIN
58:
59: okl_api.end_activity(
60: X_msg_count => x_msg_count,
61: X_msg_data => x_msg_data
62: );
63: FOR i in 1..x_msg_count
108: END IF;
109: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
110: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
111: END IF;
112: x_return_status := OKL_API.G_RET_STS_SUCCESS;
113:
114: -- Check for NUMBER and CHARACTER
115: BEGIN
116: l_dummy_number := TO_NUMBER(p_orig_value);
122:
123: RETURN;
124: EXCEPTION
125: WHEN OTHERS THEN
126: x_return_status := OKL_API.G_RET_STS_ERROR;
127: END get_formated_value;
128:
129: ------------------------------------------------------------------------------
130: -- PROCEDURE get_qcl_id
146: l_id NUMBER;
147:
148: BEGIN
149:
150: x_return_status := OKL_API.G_RET_STS_SUCCESS;
151:
152: OPEN qcl_csr(p_qcl_name);
153: FETCH qcl_csr INTO l_id;
154: CLOSE qcl_csr;
206: BEGIN
207: IF (G_DEBUG_ENABLED = 'Y') THEN
208: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
209: END IF;
210: x_return_status := OKL_API.G_RET_STS_SUCCESS;
211:
212: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
213: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
214: END IF;
225:
226: OPEN crit_csr (rbk_rec.criteria_code);
227: FETCH crit_csr INTO l_present;
228: IF crit_csr%NOTFOUND THEN
229: okl_api.set_message(
230: G_APP_NAME,
231: G_INVALID_CODE,
232: 'VALUE',
233: rbk_rec.criteria_code
253: x_return_status => x_return_status,
254: p_orig_value => rbk_rec.criteria_value1,
255: x_fmt_value => l_fmt_value
256: );
257: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
258: okl_api.set_message(
259: G_APP_NAME,
260: G_FORMAT_ERROR
261: );
254: p_orig_value => rbk_rec.criteria_value1,
255: x_fmt_value => l_fmt_value
256: );
257: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
258: okl_api.set_message(
259: G_APP_NAME,
260: G_FORMAT_ERROR
261: );
262: RAISE build_error;
272: x_return_status => x_return_status,
273: p_orig_value => rbk_rec.criteria_value2,
274: x_fmt_value => l_fmt_value
275: );
276: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
277: okl_api.set_message(
278: G_APP_NAME,
279: G_FORMAT_ERROR
280: );
273: p_orig_value => rbk_rec.criteria_value2,
274: x_fmt_value => l_fmt_value
275: );
276: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
277: okl_api.set_message(
278: G_APP_NAME,
279: G_FORMAT_ERROR
280: );
281: RAISE build_error;
401: -- Add authoring org restriction
402:
403: IF (i = 0) THEN
404: -- Error 1
405: okl_api.set_message(
406: G_APP_NAME,
407: G_NOT_VALID_REQUEST,
408: 'REQ_NAME',
409: p_request_name
422: IF crit_csr%ISOPEN THEN
423: CLOSE crit_csr;
424: END IF;
425:
426: x_return_status := OKL_API.G_RET_STS_ERROR;
427:
428: WHEN OTHERS THEN
429: okl_api.set_message(
430: G_APP_NAME,
425:
426: x_return_status := OKL_API.G_RET_STS_ERROR;
427:
428: WHEN OTHERS THEN
429: okl_api.set_message(
430: G_APP_NAME,
431: G_UNEXPECTED_ERROR,
432: 'OKL_SQLCODE',
433: SQLCODE,
433: SQLCODE,
434: 'OKL_SQLERRM',
435: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
436: );
437: x_return_status := OKL_API.G_RET_STS_ERROR;
438: END build_selection;
439:
440:
441: ------------------------------------------------------------------------------
490:
491: OPEN req_csr (p_request_name);
492: FETCH req_csr INTO l_dummy;
493: IF req_csr%FOUND THEN
494: okl_api.set_message(
495: G_APP_NAME,
496: G_DUPLICATE_REQUEST,
497: 'REQ_NAME',
498: p_request_name
496: G_DUPLICATE_REQUEST,
497: 'REQ_NAME',
498: p_request_name
499: );
500: x_return_status := OKL_API.G_RET_STS_ERROR;
501: RAISE get_contract_failed;
502: END IF;
503:
504: CLOSE req_csr;
515: p_transaction_date => p_transaction_date,
516: x_statement => l_statement
517: );
518:
519: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
520: raise get_contract_failed;
521: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
522: raise get_contract_failed;
523: END IF;
517: );
518:
519: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
520: raise get_contract_failed;
521: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
522: raise get_contract_failed;
523: END IF;
524:
525: --insert into dd_dummy values (l_statement);
543: --x_rbk_tbl := l_rbk_tbl;
544: x_rbk_count := l_rbk_tbl.COUNT;
545:
546: IF (x_rbk_count = 0) THEN
547: okl_api.set_message(
548: G_APP_NAME,
549: G_NO_MATCH_FOUND
550: );
551: x_return_status := OKL_API.G_RET_STS_ERROR;
547: okl_api.set_message(
548: G_APP_NAME,
549: G_NO_MATCH_FOUND
550: );
551: x_return_status := OKL_API.G_RET_STS_ERROR;
552: RAISE get_contract_failed;
553: ELSE
554: --
555: -- Populate Selection Table with these Contracts
571: END IF;
572:
573: okl_mst_pvt.insert_row(
574: p_api_version => 1.0,
575: p_init_msg_list => OKL_API.G_FALSE,
576: x_return_status => x_return_status,
577: x_msg_count => x_msg_count,
578: x_msg_data => x_msg_data,
579: p_mstv_tbl => l_mstv_tbl,
579: p_mstv_tbl => l_mstv_tbl,
580: x_mstv_tbl => x_mstv_tbl
581: );
582:
583: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
584: raise get_contract_failed;
585: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
586: raise get_contract_failed;
587: END IF;
581: );
582:
583: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
584: raise get_contract_failed;
585: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
586: raise get_contract_failed;
587: END IF;
588:
589: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
597: WHEN get_contract_failed THEN
598: RETURN;
599:
600: when OTHERS then
601: okl_api.set_message(
602: G_APP_NAME,
603: G_UNEXPECTED_ERROR,
604: 'OKL_SQLCODE',
605: SQLCODE,
605: SQLCODE,
606: 'OKL_SQLERRM',
607: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
608: );
609: x_return_status := OKL_API.G_RET_STS_ERROR;
610:
611: END get_contract;
612:
613: ------------------------------------------------------------------------------
640: BEGIN
641: IF (G_DEBUG_ENABLED = 'Y') THEN
642: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
643: END IF;
644: x_return_status := OKL_API.G_RET_STS_SUCCESS;
645: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
646: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
647: END IF;
648:
659: LOOP
660: IF (p_mrbv_tbl(i).criteria_code = 'CONTRACT_NUMBER') THEN
661:
662: IF (p_mrbv_tbl(i).operand NOT IN ('LIKE','=')) THEN
663: okl_api.set_message(
664: G_APP_NAME,
665: G_INVALID_OPERAND,
666: 'OPERAND',
667: p_mrbv_tbl(i).operand,
667: p_mrbv_tbl(i).operand,
668: 'CRIT_CODE',
669: p_mrbv_tbl(i).criteria_code
670: );
671: x_return_status := OKL_API.G_RET_STS_ERROR;
672: END IF;
673:
674: IF (p_mrbv_tbl(i).set_value IS NOT NULL) THEN
675: okl_api.set_message(
671: x_return_status := OKL_API.G_RET_STS_ERROR;
672: END IF;
673:
674: IF (p_mrbv_tbl(i).set_value IS NOT NULL) THEN
675: okl_api.set_message(
676: G_APP_NAME,
677: G_INVALID_SET_VALUE,
678: 'CRIT_CODE',
679: p_mrbv_tbl(i).criteria_code
677: G_INVALID_SET_VALUE,
678: 'CRIT_CODE',
679: p_mrbv_tbl(i).criteria_code
680: );
681: x_return_status := OKL_API.G_RET_STS_ERROR;
682: END IF;
683:
684: ELSIF (p_mrbv_tbl(i).criteria_code = 'START_DATE') THEN
685:
683:
684: ELSIF (p_mrbv_tbl(i).criteria_code = 'START_DATE') THEN
685:
686: IF (p_mrbv_tbl(i).operand NOT IN ('BETWEEN', '<=', '>=')) THEN
687: okl_api.set_message(
688: G_APP_NAME,
689: G_INVALID_OPERAND,
690: 'OPERAND',
691: p_mrbv_tbl(i).operand,
691: p_mrbv_tbl(i).operand,
692: 'CRIT_CODE',
693: p_mrbv_tbl(i).criteria_code
694: );
695: x_return_status := OKL_API.G_RET_STS_ERROR;
696: END IF;
697: --Check for Date Integrity
698: IF((p_mrbv_tbl(i).operand = 'BETWEEN') AND
699: ((FND_DATE.string_to_date(p_mrbv_tbl(i).CRITERIA_VALUE1,l_nls_date_format)) > (FND_DATE.string_to_date(p_mrbv_tbl(i).CRITERIA_VALUE2,l_nls_date_format)))) THEN
697: --Check for Date Integrity
698: IF((p_mrbv_tbl(i).operand = 'BETWEEN') AND
699: ((FND_DATE.string_to_date(p_mrbv_tbl(i).CRITERIA_VALUE1,l_nls_date_format)) > (FND_DATE.string_to_date(p_mrbv_tbl(i).CRITERIA_VALUE2,l_nls_date_format)))) THEN
700: -- NAMED INVALID DATE RANGE
701: okl_api.set_message(
702: 'FND',
703: 'NAMED INVALID DATE RANGE',
704: 'RANGE',
705: 'CONTRACT_START_DATE');
702: 'FND',
703: 'NAMED INVALID DATE RANGE',
704: 'RANGE',
705: 'CONTRACT_START_DATE');
706: x_return_status := OKL_API.G_RET_STS_ERROR;
707:
708: END IF;
709: IF (p_mrbv_tbl(i).set_value IS NOT NULL) THEN
710: okl_api.set_message(
706: x_return_status := OKL_API.G_RET_STS_ERROR;
707:
708: END IF;
709: IF (p_mrbv_tbl(i).set_value IS NOT NULL) THEN
710: okl_api.set_message(
711: G_APP_NAME,
712: G_INVALID_SET_VALUE,
713: 'CRIT_CODE',
714: p_mrbv_tbl(i).criteria_code
712: G_INVALID_SET_VALUE,
713: 'CRIT_CODE',
714: p_mrbv_tbl(i).criteria_code
715: );
716: x_return_status := OKL_API.G_RET_STS_ERROR;
717: END IF;
718:
719: ELSIF (p_mrbv_tbl(i).criteria_code = 'BOOK_TYPE_CODE') THEN
720:
718:
719: ELSIF (p_mrbv_tbl(i).criteria_code = 'BOOK_TYPE_CODE') THEN
720:
721: IF (p_mrbv_tbl(i).operand NOT IN ('=')) THEN
722: okl_api.set_message(
723: G_APP_NAME,
724: G_INVALID_OPERAND,
725: 'OPERAND',
726: p_mrbv_tbl(i).operand,
726: p_mrbv_tbl(i).operand,
727: 'CRIT_CODE',
728: p_mrbv_tbl(i).criteria_code
729: );
730: x_return_status := OKL_API.G_RET_STS_ERROR;
731: END IF;
732:
733: IF (p_mrbv_tbl(i).set_value IS NOT NULL) THEN
734: okl_api.set_message(
730: x_return_status := OKL_API.G_RET_STS_ERROR;
731: END IF;
732:
733: IF (p_mrbv_tbl(i).set_value IS NOT NULL) THEN
734: okl_api.set_message(
735: G_APP_NAME,
736: G_INVALID_SET_VALUE,
737: 'CRIT_CODE',
738: p_mrbv_tbl(i).criteria_code
736: G_INVALID_SET_VALUE,
737: 'CRIT_CODE',
738: p_mrbv_tbl(i).criteria_code
739: );
740: x_return_status := OKL_API.G_RET_STS_ERROR;
741: END IF;
742: ELSIF (p_mrbv_tbl(i).criteria_code = 'DEPRN_METHOD_CODE') THEN
743: IF (p_mrbv_tbl(i).operand IS NOT NULL
744: AND
742: ELSIF (p_mrbv_tbl(i).criteria_code = 'DEPRN_METHOD_CODE') THEN
743: IF (p_mrbv_tbl(i).operand IS NOT NULL
744: AND
745: p_mrbv_tbl(i).operand <> '=') THEN
746: okl_api.set_message(
747: G_APP_NAME,
748: G_INVALID_OPERAND,
749: 'OPERAND',
750: p_mrbv_tbl(i).operand,
750: p_mrbv_tbl(i).operand,
751: 'CRIT_CODE',
752: p_mrbv_tbl(i).criteria_code
753: );
754: x_return_status := OKL_API.G_RET_STS_ERROR;
755: END IF;
756:
757: IF (p_mrbv_tbl(i).set_value IS NOT NULL) THEN
758: l_set_value_present := 'Y';
761: ELSIF (p_mrbv_tbl(i).criteria_code = 'DATE_PLACED_IN_SERVICE') THEN
762: IF (p_mrbv_tbl(i).operand IS NOT NULL
763: AND
764: p_mrbv_tbl(i).operand NOT IN('BETWEEN', '<=', '>=')) THEN
765: okl_api.set_message(
766: G_APP_NAME,
767: G_INVALID_OPERAND,
768: 'OPERAND',
769: p_mrbv_tbl(i).operand,
769: p_mrbv_tbl(i).operand,
770: 'CRIT_CODE',
771: p_mrbv_tbl(i).criteria_code
772: );
773: x_return_status := OKL_API.G_RET_STS_ERROR;
774: END IF;
775: --Check for Date Integrity
776: IF((p_mrbv_tbl(i).operand = 'BETWEEN') AND
777: ((FND_DATE.string_to_date(p_mrbv_tbl(i).CRITERIA_VALUE1,l_nls_date_format)) > (FND_DATE.string_to_date(p_mrbv_tbl(i).CRITERIA_VALUE2,l_nls_date_format)))) THEN
775: --Check for Date Integrity
776: IF((p_mrbv_tbl(i).operand = 'BETWEEN') AND
777: ((FND_DATE.string_to_date(p_mrbv_tbl(i).CRITERIA_VALUE1,l_nls_date_format)) > (FND_DATE.string_to_date(p_mrbv_tbl(i).CRITERIA_VALUE2,l_nls_date_format)))) THEN
778: -- NAMED INVALID DATE RANGE
779: okl_api.set_message(
780: 'FND',
781: 'NAMED INVALID DATE RANGE',
782: 'RANGE',
783: 'INSERVICE_DATE');
780: 'FND',
781: 'NAMED INVALID DATE RANGE',
782: 'RANGE',
783: 'INSERVICE_DATE');
784: x_return_status := OKL_API.G_RET_STS_ERROR;
785: END IF;
786: IF (p_mrbv_tbl(i).set_value IS NOT NULL) THEN
787: l_set_value_present := 'Y';
788: END IF;
788: END IF;
789:
790: ELSIF (p_mrbv_tbl(i).criteria_code = 'ASSET_CATEGORY_ID') THEN
791: IF (p_mrbv_tbl(i).operand <> '=') THEN
792: okl_api.set_message(
793: G_APP_NAME,
794: G_INVALID_OPERAND,
795: 'OPERAND',
796: p_mrbv_tbl(i).operand,
796: p_mrbv_tbl(i).operand,
797: 'CRIT_CODE',
798: p_mrbv_tbl(i).criteria_code
799: );
800: x_return_status := OKL_API.G_RET_STS_ERROR;
801: END IF;
802:
803: IF (p_mrbv_tbl(i).set_value IS NOT NULL) THEN
804: okl_api.set_message(
800: x_return_status := OKL_API.G_RET_STS_ERROR;
801: END IF;
802:
803: IF (p_mrbv_tbl(i).set_value IS NOT NULL) THEN
804: okl_api.set_message(
805: G_APP_NAME,
806: G_INVALID_SET_VALUE,
807: 'CRIT_CODE',
808: p_mrbv_tbl(i).criteria_code
806: G_INVALID_SET_VALUE,
807: 'CRIT_CODE',
808: p_mrbv_tbl(i).criteria_code
809: );
810: x_return_status := OKL_API.G_RET_STS_ERROR;
811: END IF;
812: /* ELSIF (p_mrbv_tbl(i).criteria_code = 'LIFE_IN_MONTHS'
813: OR
814: p_mrbv_tbl(i).criteria_code = 'BASIC_RATE'
819: OR
820: p_mrbv_tbl(i).criteria_value1 IS NOT NULL
821: OR
822: p_mrbv_tbl(i).criteria_value2 IS NOT NULL) THEN
823: okl_api.set_message(
824: G_APP_NAME,
825: G_INVALID_MATCH_OPTION,
826: 'CRIT_CODE',
827: p_mrbv_tbl(i).criteria_code
825: G_INVALID_MATCH_OPTION,
826: 'CRIT_CODE',
827: p_mrbv_tbl(i).criteria_code
828: );
829: x_return_status := OKL_API.G_RET_STS_ERROR;
830: END IF;
831:
832: IF (p_mrbv_tbl(i).set_value IS NOT NULL) THEN
833: l_set_value_present := 'Y';
837:
838: END LOOP;
839:
840: /* IF (l_set_value_present = 'N') THEN
841: okl_api.set_message(
842: G_APP_NAME,
843: G_NO_SET_VALUE,
844: 'REQ_NAME',
845: p_request_name
843: G_NO_SET_VALUE,
844: 'REQ_NAME',
845: p_request_name
846: );
847: x_return_status := OKL_API.G_RET_STS_ERROR;
848: END IF; */
849:
850: EXCEPTION
851: WHEN request_failed THEN
848: END IF; */
849:
850: EXCEPTION
851: WHEN request_failed THEN
852: x_return_status := OKL_API.G_RET_STS_ERROR;
853: END validate_request;
854:
855: ------------------------------------------------------------------------------
856: -- PROCEDURE build_and_get_contracts
888: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
889: END IF;
890: -- call START_ACTIVITY to create savepoint, check compatibility
891: -- and initialize message list
892: x_return_status := OKL_API.START_ACTIVITY(
893: p_api_name => l_api_name,
894: p_pkg_name => G_PKG_NAME,
895: p_init_msg_list => p_init_msg_list,
896: l_api_version => l_api_version,
898: p_api_type => G_API_TYPE,
899: x_return_status => x_return_status);
900:
901: -- check if activity started successfully
902: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
903: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
904: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
905: raise OKL_API.G_EXCEPTION_ERROR;
906: END IF;
899: x_return_status => x_return_status);
900:
901: -- check if activity started successfully
902: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
903: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
904: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
905: raise OKL_API.G_EXCEPTION_ERROR;
906: END IF;
907:
900:
901: -- check if activity started successfully
902: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
903: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
904: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
905: raise OKL_API.G_EXCEPTION_ERROR;
906: END IF;
907:
908: --
901: -- check if activity started successfully
902: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
903: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
904: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
905: raise OKL_API.G_EXCEPTION_ERROR;
906: END IF;
907:
908: --
909: -- Validate incoming data
915: p_request_name => p_request_name,
916: p_mrbv_tbl => p_mrbv_tbl
917: );
918:
919: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
920: raise OKL_API.G_EXCEPTION_ERROR;
921: END IF;
922:
923: --
916: p_mrbv_tbl => p_mrbv_tbl
917: );
918:
919: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
920: raise OKL_API.G_EXCEPTION_ERROR;
921: END IF;
922:
923: --
924: -- Insert Selection criteria
932: p_mrbv_tbl => p_mrbv_tbl,
933: x_mrbv_tbl => x_mrbv_tbl
934: );
935:
936: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
937: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
938: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
939: raise OKL_API.G_EXCEPTION_ERROR;
940: END IF;
933: x_mrbv_tbl => x_mrbv_tbl
934: );
935:
936: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
937: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
938: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
939: raise OKL_API.G_EXCEPTION_ERROR;
940: END IF;
941:
934: );
935:
936: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
937: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
938: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
939: raise OKL_API.G_EXCEPTION_ERROR;
940: END IF;
941:
942: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
935:
936: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
937: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
938: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
939: raise OKL_API.G_EXCEPTION_ERROR;
940: END IF;
941:
942: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
943: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Insert');
956: x_mstv_tbl => x_mstv_tbl,
957: x_rbk_count => x_rbk_count
958: );
959:
960: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
961: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
962: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
963: raise OKL_API.G_EXCEPTION_ERROR;
964: END IF;
957: x_rbk_count => x_rbk_count
958: );
959:
960: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
961: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
962: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
963: raise OKL_API.G_EXCEPTION_ERROR;
964: END IF;
965:
958: );
959:
960: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
961: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
962: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
963: raise OKL_API.G_EXCEPTION_ERROR;
964: END IF;
965:
966: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
959:
960: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
961: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
962: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
963: raise OKL_API.G_EXCEPTION_ERROR;
964: END IF;
965:
966: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
967: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Get Contract');
966: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
967: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Get Contract');
968: END IF;
969:
970: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
971: x_msg_data => x_msg_data);
972:
973:
974: RETURN;
973:
974: RETURN;
975:
976: EXCEPTION
977: when OKL_API.G_EXCEPTION_ERROR then
978: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
979: p_api_name => l_api_name,
980: p_pkg_name => G_PKG_NAME,
981: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
974: RETURN;
975:
976: EXCEPTION
977: when OKL_API.G_EXCEPTION_ERROR then
978: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
979: p_api_name => l_api_name,
980: p_pkg_name => G_PKG_NAME,
981: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
982: x_msg_count => x_msg_count,
977: when OKL_API.G_EXCEPTION_ERROR then
978: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
979: p_api_name => l_api_name,
980: p_pkg_name => G_PKG_NAME,
981: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
982: x_msg_count => x_msg_count,
983: x_msg_data => x_msg_data,
984: p_api_type => G_API_TYPE);
985:
982: x_msg_count => x_msg_count,
983: x_msg_data => x_msg_data,
984: p_api_type => G_API_TYPE);
985:
986: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
987: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
988: p_api_name => l_api_name,
989: p_pkg_name => G_PKG_NAME,
990: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
983: x_msg_data => x_msg_data,
984: p_api_type => G_API_TYPE);
985:
986: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
987: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
988: p_api_name => l_api_name,
989: p_pkg_name => G_PKG_NAME,
990: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
991: x_msg_count => x_msg_count,
986: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
987: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
988: p_api_name => l_api_name,
989: p_pkg_name => G_PKG_NAME,
990: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
991: x_msg_count => x_msg_count,
992: x_msg_data => x_msg_data,
993: p_api_type => G_API_TYPE);
994:
992: x_msg_data => x_msg_data,
993: p_api_type => G_API_TYPE);
994:
995: when OTHERS then
996: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
997: p_api_name => l_api_name,
998: p_pkg_name => G_PKG_NAME,
999: p_exc_name => 'OTHERS',
1000: x_msg_count => x_msg_count,
1037: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1038: END IF;
1039: -- call START_ACTIVITY to create savepoint, check compatibility
1040: -- and initialize message list
1041: x_return_status := OKL_API.START_ACTIVITY(
1042: p_api_name => l_api_name,
1043: p_pkg_name => G_PKG_NAME,
1044: p_init_msg_list => p_init_msg_list,
1045: l_api_version => l_api_version,
1047: p_api_type => G_API_TYPE,
1048: x_return_status => x_return_status);
1049:
1050: -- check if activity started successfully
1051: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1052: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1053: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
1054: raise OKL_API.G_EXCEPTION_ERROR;
1055: END IF;
1048: x_return_status => x_return_status);
1049:
1050: -- check if activity started successfully
1051: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1052: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1053: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
1054: raise OKL_API.G_EXCEPTION_ERROR;
1055: END IF;
1056:
1049:
1050: -- check if activity started successfully
1051: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1052: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1053: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
1054: raise OKL_API.G_EXCEPTION_ERROR;
1055: END IF;
1056:
1057: --
1050: -- check if activity started successfully
1051: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1052: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1053: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
1054: raise OKL_API.G_EXCEPTION_ERROR;
1055: END IF;
1056:
1057: --
1058: -- Validate incoming data
1064: p_request_name => p_request_name,
1065: p_mrbv_tbl => p_mrbv_tbl
1066: );
1067:
1068: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
1069: raise OKL_API.G_EXCEPTION_ERROR;
1070: END IF;
1071:
1072: --
1065: p_mrbv_tbl => p_mrbv_tbl
1066: );
1067:
1068: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
1069: raise OKL_API.G_EXCEPTION_ERROR;
1070: END IF;
1071:
1072: --
1073: -- Insert Selection criteria
1081: p_mrbv_tbl => p_mrbv_tbl,
1082: x_mrbv_tbl => x_mrbv_tbl
1083: );
1084:
1085: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1086: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1087: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
1088: raise OKL_API.G_EXCEPTION_ERROR;
1089: END IF;
1082: x_mrbv_tbl => x_mrbv_tbl
1083: );
1084:
1085: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1086: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1087: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
1088: raise OKL_API.G_EXCEPTION_ERROR;
1089: END IF;
1090:
1083: );
1084:
1085: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1086: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1087: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
1088: raise OKL_API.G_EXCEPTION_ERROR;
1089: END IF;
1090:
1091: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1084:
1085: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1086: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1087: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
1088: raise OKL_API.G_EXCEPTION_ERROR;
1089: END IF;
1090:
1091: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1092: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Insert');
1104: x_mstv_tbl => x_mstv_tbl,
1105: x_rbk_count => x_rbk_count
1106: );
1107:
1108: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1109: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1110: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
1111: raise OKL_API.G_EXCEPTION_ERROR;
1112: END IF;
1105: x_rbk_count => x_rbk_count
1106: );
1107:
1108: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1109: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1110: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
1111: raise OKL_API.G_EXCEPTION_ERROR;
1112: END IF;
1113:
1106: );
1107:
1108: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1109: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1110: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
1111: raise OKL_API.G_EXCEPTION_ERROR;
1112: END IF;
1113:
1114: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1107:
1108: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1109: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1110: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
1111: raise OKL_API.G_EXCEPTION_ERROR;
1112: END IF;
1113:
1114: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1115: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Get Contract');
1114: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1115: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Get Contract');
1116: END IF;
1117:
1118: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1119: x_msg_data => x_msg_data);
1120:
1121:
1122: RETURN;
1121:
1122: RETURN;
1123:
1124: EXCEPTION
1125: when OKL_API.G_EXCEPTION_ERROR then
1126: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1127: p_api_name => l_api_name,
1128: p_pkg_name => G_PKG_NAME,
1129: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1122: RETURN;
1123:
1124: EXCEPTION
1125: when OKL_API.G_EXCEPTION_ERROR then
1126: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1127: p_api_name => l_api_name,
1128: p_pkg_name => G_PKG_NAME,
1129: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1130: x_msg_count => x_msg_count,
1125: when OKL_API.G_EXCEPTION_ERROR then
1126: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1127: p_api_name => l_api_name,
1128: p_pkg_name => G_PKG_NAME,
1129: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1130: x_msg_count => x_msg_count,
1131: x_msg_data => x_msg_data,
1132: p_api_type => G_API_TYPE);
1133:
1130: x_msg_count => x_msg_count,
1131: x_msg_data => x_msg_data,
1132: p_api_type => G_API_TYPE);
1133:
1134: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1135: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1136: p_api_name => l_api_name,
1137: p_pkg_name => G_PKG_NAME,
1138: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1131: x_msg_data => x_msg_data,
1132: p_api_type => G_API_TYPE);
1133:
1134: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1135: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1136: p_api_name => l_api_name,
1137: p_pkg_name => G_PKG_NAME,
1138: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1139: x_msg_count => x_msg_count,
1134: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1135: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1136: p_api_name => l_api_name,
1137: p_pkg_name => G_PKG_NAME,
1138: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1139: x_msg_count => x_msg_count,
1140: x_msg_data => x_msg_data,
1141: p_api_type => G_API_TYPE);
1142:
1140: x_msg_data => x_msg_data,
1141: p_api_type => G_API_TYPE);
1142:
1143: when OTHERS then
1144: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1145: p_api_name => l_api_name,
1146: p_pkg_name => G_PKG_NAME,
1147: p_exc_name => 'OTHERS',
1148: x_msg_count => x_msg_count,
1198: IF (G_DEBUG_ENABLED = 'Y') THEN
1199: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1200: END IF;
1201:
1202: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1203:
1204: i := 1;
1205: FOR mstv_rec IN mstv_csr(p_request_name,
1206: p_chr_id)
1233: --debug_message('Indise ID'||i||' : '||mstv_rec.id);
1234: --debug_message('Indise ID'||i||' : '||x_mstv_tbl(i).id);
1235: END LOOP;
1236: IF (i = 0) THEN
1237: x_return_status := OKL_API.G_RET_STS_ERROR;
1238: okl_api.set_message(
1239: G_APP_NAME,
1240: G_NO_SEL_CONTRACT,
1241: 'REQ_NAME',
1234: --debug_message('Indise ID'||i||' : '||x_mstv_tbl(i).id);
1235: END LOOP;
1236: IF (i = 0) THEN
1237: x_return_status := OKL_API.G_RET_STS_ERROR;
1238: okl_api.set_message(
1239: G_APP_NAME,
1240: G_NO_SEL_CONTRACT,
1241: 'REQ_NAME',
1242: p_request_name
1250: -- store SQL error message on message stack for caller
1251: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1252: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'WHEN OTHERS occurred');
1253: END IF;
1254: OKL_API.set_message(
1255: G_APP_NAME,
1256: G_UNEXPECTED_ERROR,
1257: 'SQLcode',
1258: SQLCODE,
1258: SQLCODE,
1259: 'SQLerrm',
1260: SQLERRM);
1261: -- notify caller of an UNEXPECTED error
1262: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1263: END get_rec;
1264:
1265: ------------------------------------------------------------------------------
1266: -- PROCEDURE update_residual_value
1296: IF (G_DEBUG_ENABLED = 'Y') THEN
1297: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1298: END IF;
1299:
1300: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1301:
1302: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1303: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1304: END IF;
1447: IF (G_DEBUG_ENABLED = 'Y') THEN
1448: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1449: END IF;
1450:
1451: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1452: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1453: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1454: END IF;
1455:
1474: -- get the contract number
1475: OPEN contract_num_csr(p_khr_id);
1476: FETCH contract_num_csr INTO l_cntrct_number;
1477: CLOSE contract_num_csr;
1478: Okl_Api.set_message(p_app_name => g_app_name,
1479: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
1480: p_token1 => 'CONTRACT_NUMBER',
1481: p_token1_value => l_cntrct_number);
1482: RAISE OKL_API.G_EXCEPTION_ERROR;
1478: Okl_Api.set_message(p_app_name => g_app_name,
1479: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
1480: p_token1 => 'CONTRACT_NUMBER',
1481: p_token1_value => l_cntrct_number);
1482: RAISE OKL_API.G_EXCEPTION_ERROR;
1483: END IF;
1484:
1485: okl_trx_assets_pub.create_trx_ass_h_def(
1486: p_api_version => 1.0,
1483: END IF;
1484:
1485: okl_trx_assets_pub.create_trx_ass_h_def(
1486: p_api_version => 1.0,
1487: p_init_msg_list => OKL_API.G_FALSE,
1488: x_return_status => x_return_status,
1489: x_msg_count => x_msg_count,
1490: x_msg_data => x_msg_data,
1491: p_thpv_rec => l_thpv_rec,
1491: p_thpv_rec => l_thpv_rec,
1492: x_thpv_rec => x_thpv_rec
1493: );
1494:
1495: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1496: RAISE asset_change_failed;
1497: END IF;
1498:
1499: -- Populate TXLs
1578: END IF;
1579:
1580: okl_txl_assets_pub.create_txl_asset_def(
1581: p_api_version => 1.0,
1582: p_init_msg_list => OKL_API.G_FALSE,
1583: x_return_status => x_return_status,
1584: x_msg_count => x_msg_count,
1585: x_msg_data => x_msg_data,
1586: p_tlpv_rec => l_tlpv_rec,
1586: p_tlpv_rec => l_tlpv_rec,
1587: x_tlpv_rec => x_tlpv_rec
1588: );
1589:
1590: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1591: RAISE asset_change_failed;
1592: END IF;
1593:
1594: END IF;
1643: END IF;
1644:
1645: okl_txd_assets_pub.create_txd_asset_def(
1646: p_api_version => 1.0,
1647: p_init_msg_list => OKL_API.G_FALSE,
1648: x_return_status => x_return_status,
1649: x_msg_count => x_msg_count,
1650: x_msg_data => x_msg_data,
1651: p_adpv_tbl => l_adpv_tbl,
1651: p_adpv_tbl => l_adpv_tbl,
1652: x_adpv_tbl => x_adpv_tbl
1653: );
1654:
1655: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1656: RAISE asset_change_failed;
1657: END IF;
1658: END IF;
1659:
1738: IF (G_DEBUG_ENABLED = 'Y') THEN
1739: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1740: END IF;
1741:
1742: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1743: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1744: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1745: END IF;
1746:
1777: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before Rule group creation');
1778: END IF;
1779: OKL_RULE_PUB.create_rule_group(
1780: p_api_version => 1.0,
1781: p_init_msg_list => OKL_API.G_FALSE,
1782: x_return_status => x_return_status,
1783: x_msg_count => x_msg_count,
1784: x_msg_data => x_msg_data,
1785: p_rgpv_rec => l_rgpv_rec,
1784: x_msg_data => x_msg_data,
1785: p_rgpv_rec => l_rgpv_rec,
1786: x_rgpv_rec => x_rgpv_rec
1787: );
1788: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1789: raise update_failed;
1790: END IF;
1791: l_rgp_id := x_rgpv_rec.id;
1792:
1816: x_msg_count => x_msg_count,
1817: x_msg_data => x_msg_data,
1818: p_rulv_rec => l_rulv_rec
1819: );
1820: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1821: RAISE update_failed;
1822: END IF;
1823:
1824: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1839: x_msg_count => x_msg_count,
1840: x_msg_data => x_msg_data,
1841: p_rulv_tbl => l_rulv_tbl
1842: );
1843: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1844: RAISE update_failed;
1845: END IF;
1846:
1847: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1984: WHEN update_failed THEN
1985: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1986: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'update failed in update_slh_sll');
1987: END IF;
1988: x_return_status := OKL_API.G_RET_STS_ERROR;
1989: --raise; -- handle error in called routine
1990: END update_slh_sll;
1991:
1992: ------------------------------------------------------------------------------
2063: IF (G_DEBUG_ENABLED = 'Y') THEN
2064: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2065: END IF;
2066:
2067: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2068: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2069: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
2070: END IF;
2071:
2126: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before Rule group creation');
2127: END IF;
2128: OKL_RULE_PUB.create_rule_group(
2129: p_api_version => 1.0,
2130: p_init_msg_list => OKL_API.G_FALSE,
2131: x_return_status => x_return_status,
2132: x_msg_count => x_msg_count,
2133: x_msg_data => x_msg_data,
2134: p_rgpv_rec => l_rgpv_rec,
2133: x_msg_data => x_msg_data,
2134: p_rgpv_rec => l_rgpv_rec,
2135: x_rgpv_rec => x_rgpv_rec
2136: );
2137: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2138: raise update_failed;
2139: END IF;
2140: l_rgp_id := x_rgpv_rec.id;
2141:
2165: x_msg_count => x_msg_count,
2166: x_msg_data => x_msg_data,
2167: p_rulv_rec => l_rulv_rec
2168: );
2169: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2170: RAISE update_failed;
2171: END IF;
2172:
2173: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2188: x_msg_count => x_msg_count,
2189: x_msg_data => x_msg_data,
2190: p_rulv_tbl => l_rulv_tbl
2191: );
2192: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2193: RAISE update_failed;
2194: END IF;
2195:
2196: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2334: WHEN update_failed THEN
2335: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2336: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'update failed in update_ppd_amount');
2337: END IF;
2338: x_return_status := OKL_API.G_RET_STS_ERROR;
2339: NULL; -- handle error in called routine
2340: --raise;
2341: END update_ppd_amount;
2342:
2464: END IF;
2465:
2466: IF (p_transaction_date IS NULL
2467: OR
2468: p_transaction_date = OKL_API.G_MISS_DATE) THEN
2469:
2470: l_transaction_date := TRUNC(SYSDATE);
2471: ELSE
2472: l_transaction_date := p_transaction_date;
2486: -- for all mass rebooks other than partial termination
2487: IF (G_TERMINATION_TRX_ID IS NULL) THEN
2488: OKL_LLA_UTIL_PVT.check_rebook_upgrade
2489: (p_api_version => 1.0,
2490: p_init_msg_list => OKL_API.G_FALSE,
2491: x_return_status => x_return_status,
2492: x_msg_count => x_msg_count,
2493: x_msg_data => x_msg_data,
2494: p_chr_id => p_khr_id);
2492: x_msg_count => x_msg_count,
2493: x_msg_data => x_msg_data,
2494: p_chr_id => p_khr_id);
2495:
2496: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2497: RAISE rebook_contract_failed;
2498: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2499: RAISE rebook_contract_failed;
2500: END IF;
2494: p_chr_id => p_khr_id);
2495:
2496: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2497: RAISE rebook_contract_failed;
2498: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2499: RAISE rebook_contract_failed;
2500: END IF;
2501: END IF;
2502:
2514: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Req: '||l_mstv_rec.request_name);
2515: END IF;
2516: okl_mst_pvt.insert_row(
2517: p_api_version => 1.0,
2518: p_init_msg_list => OKL_API.G_FALSE,
2519: x_return_status => x_return_status,
2520: x_msg_count => x_msg_count,
2521: x_msg_data => x_msg_data,
2522: p_mstv_rec => l_mstv_rec,
2522: p_mstv_rec => l_mstv_rec,
2523: x_mstv_rec => x_mstv_rec
2524: );
2525:
2526: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2527: RAISE rebook_contract_failed;
2528: END IF;
2529: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2530: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Line ID: '||p_kle_tbl(i).id);
2553: x_return_status => x_return_status,
2554: x_msg_count => x_msg_count,
2555: x_msg_data => x_msg_data,
2556: p_cvmv_rec => l_cvmv_rec,
2557: p_commit => OKL_API.G_FALSE,
2558: x_cvmv_rec => x_cvmv_rec
2559: );
2560:
2561: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2574: -- Create Transaction for the rebook-ed contract
2575:
2576: okl_transaction_pvt.create_transaction(
2577: p_api_version => l_api_version,
2578: p_init_msg_list => OKL_API.G_FALSE,
2579: x_return_status => x_return_status,
2580: x_msg_count => x_msg_count,
2581: x_msg_data => x_msg_data,
2582: p_chr_id => p_khr_id,
2587: p_trx_type => 'REBOOK',
2588: x_tcnv_rec => x_tcnv_rec
2589: );
2590:
2591: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2592: RAISE rebook_contract_failed;
2593: END IF;
2594:
2595: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2600:
2601: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2602: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'after get_rec : '||x_return_status);
2603: END IF;
2604: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2605: RAISE rebook_contract_failed;
2606: END IF;
2607:
2608: FOR i IN 1..l_mstv_tbl.COUNT
2616: END LOOP;
2617:
2618: okl_mst_pvt.update_row(
2619: p_api_version => l_api_version,
2620: p_init_msg_list => OKL_API.G_FALSE,
2621: x_return_status => x_return_status,
2622: x_msg_count => x_msg_count,
2623: x_msg_data => x_msg_data,
2624: p_mstv_tbl => l_mstv_tbl,
2627:
2628: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2629: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'after update mst :'|| x_return_status);
2630: END IF;
2631: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2632: RAISE rebook_contract_failed;
2633: END IF;
2634:
2635: -- Termination specific logic here
2636: IF (G_TERMINATION_TRX_ID IS NOT NULL) THEN
2637: --
2638: -- Update Mass rebook Transaction with source trx.
2639: --
2640: okl_api.set_message('OKL', 'AM', 'Termination Trx ID: ', G_TERMINATION_TRX_ID);
2641: l_tcnv_rec.id := x_tcnv_rec.id;
2642: l_tcnv_rec.source_trx_id := G_TERMINATION_TRX_ID;
2643: l_tcnv_rec.source_trx_type := G_TERMINATION_TRX_TYPE;
2644: G_MASS_RBK_TRX_ID := x_tcnv_rec.id;
2644: G_MASS_RBK_TRX_ID := x_tcnv_rec.id;
2645:
2646: Okl_Trx_Contracts_Pub.update_trx_contracts(
2647: p_api_version => l_api_version,
2648: p_init_msg_list => OKL_API.G_FALSE,
2649: x_return_status => x_return_status,
2650: x_msg_count => x_msg_count,
2651: x_msg_data => x_msg_data,
2652: p_tcnv_rec => l_tcnv_rec,
2655:
2656: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2657: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After update transaction: '||x_return_status);
2658: END IF;
2659: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2660: RAISE OKL_API.G_EXCEPTION_ERROR;
2661: END IF;
2662:
2663: END IF;
2656: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2657: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After update transaction: '||x_return_status);
2658: END IF;
2659: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2660: RAISE OKL_API.G_EXCEPTION_ERROR;
2661: END IF;
2662:
2663: END IF;
2664: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2670: IF (G_PPD_TRX_ID IS NOT NULL) THEN
2671: --
2672: -- Update Mass rebook Transaction with source trx.
2673: --
2674: okl_api.set_message('OKL', 'AM', 'Termination Trx ID: ', G_TERMINATION_TRX_ID);
2675: l_tcnv_rec.id := x_tcnv_rec.id;
2676: l_tcnv_rec.source_trx_id := G_PPD_TRX_ID;
2677: --l_tcnv_rec.source_trx_type := G_PPD_TRX_TYPE;
2678: l_tcnv_rec.source_trx_type := 'TCN';
2679: G_MASS_RBK_TRX_ID := x_tcnv_rec.id;
2680:
2681: Okl_Trx_Contracts_Pub.update_trx_contracts(
2682: p_api_version => l_api_version,
2683: p_init_msg_list => OKL_API.G_FALSE,
2684: x_return_status => x_return_status,
2685: x_msg_count => x_msg_count,
2686: x_msg_data => x_msg_data,
2687: p_tcnv_rec => l_tcnv_rec,
2690:
2691: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2692: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After update transaction: '||x_return_status);
2693: END IF;
2694: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2695: RAISE OKL_API.G_EXCEPTION_ERROR;
2696: END IF;
2697:
2698: END IF;
2691: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2692: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After update transaction: '||x_return_status);
2693: END IF;
2694: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2695: RAISE OKL_API.G_EXCEPTION_ERROR;
2696: END IF;
2697:
2698: END IF;
2699:
2746: --ndani - 20-Mar-2013, End - Mass Rebook accounting fix
2747:
2748: OKL_LA_JE_PVT.GENERATE_JOURNAL_ENTRIES(
2749: p_api_version => l_api_version,
2750: p_init_msg_list => OKL_API.G_FALSE,
2751: p_commit => OKL_API.G_FALSE,
2752: p_contract_id => p_khr_id,
2753: p_transaction_type => l_acct_trans_type,--'Rebook',--ndani - 20-Mar-2013, Bug# 16526329- Mass Rebook accounting fix
2754: p_transaction_date => l_transaction_date, --trunc(SYSDATE),
2747:
2748: OKL_LA_JE_PVT.GENERATE_JOURNAL_ENTRIES(
2749: p_api_version => l_api_version,
2750: p_init_msg_list => OKL_API.G_FALSE,
2751: p_commit => OKL_API.G_FALSE,
2752: p_contract_id => p_khr_id,
2753: p_transaction_type => l_acct_trans_type,--'Rebook',--ndani - 20-Mar-2013, Bug# 16526329- Mass Rebook accounting fix
2754: p_transaction_date => l_transaction_date, --trunc(SYSDATE),
2755: p_draft_yn => OKL_API.G_FALSE,
2751: p_commit => OKL_API.G_FALSE,
2752: p_contract_id => p_khr_id,
2753: p_transaction_type => l_acct_trans_type,--'Rebook',--ndani - 20-Mar-2013, Bug# 16526329- Mass Rebook accounting fix
2754: p_transaction_date => l_transaction_date, --trunc(SYSDATE),
2755: p_draft_yn => OKL_API.G_FALSE,
2756: x_return_status => x_return_status,
2757: x_msg_count => x_msg_count,
2758: x_msg_data => x_msg_data
2759: );
2760:
2761: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2762: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'after generate journal entries ');
2763: END IF;
2764: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2765: RAISE rebook_contract_failed;
2766: END IF;
2767:
2768: --ndani - 20-Mar-2013, Start - Mass Rebook accounting fix
2774: IF l_acc_call_rel_flag = 'Y' THEN
2775:
2776: OKL_LA_JE_PVT.GENERATE_JOURNAL_ENTRIES(
2777: p_api_version => l_api_version,
2778: p_init_msg_list => OKL_API.G_FALSE,
2779: p_commit => OKL_API.G_FALSE,
2780: p_contract_id => p_khr_id,
2781: p_transaction_type => 'Rebook-Release',
2782: p_transaction_date => l_transaction_date, --trunc(SYSDATE),
2775:
2776: OKL_LA_JE_PVT.GENERATE_JOURNAL_ENTRIES(
2777: p_api_version => l_api_version,
2778: p_init_msg_list => OKL_API.G_FALSE,
2779: p_commit => OKL_API.G_FALSE,
2780: p_contract_id => p_khr_id,
2781: p_transaction_type => 'Rebook-Release',
2782: p_transaction_date => l_transaction_date, --trunc(SYSDATE),
2783: p_draft_yn => OKL_API.G_FALSE,
2779: p_commit => OKL_API.G_FALSE,
2780: p_contract_id => p_khr_id,
2781: p_transaction_type => 'Rebook-Release',
2782: p_transaction_date => l_transaction_date, --trunc(SYSDATE),
2783: p_draft_yn => OKL_API.G_FALSE,
2784: x_return_status => x_return_status,
2785: x_msg_count => x_msg_count,
2786: x_msg_data => x_msg_data
2787: );
2788:
2789: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2790: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'after generate journal entries ');
2791: END IF;
2792: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2793: RAISE rebook_contract_failed;
2794: END IF;
2795:
2796: END IF;
2823:
2824: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2825: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'after populate asset change ');
2826: END IF;
2827: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2828: RAISE rebook_contract_failed;
2829: END IF;
2830:
2831: --
2839: p_kle_tbl => p_kle_tbl,
2840: p_residual_value => p_residual_value
2841: );
2842:
2843: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2844: RAISE rebook_contract_failed;
2845: END IF;
2846: END IF;
2847:
2876:
2877: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2878: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'after calling update_ppd_amount');
2879: END IF;
2880: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2881: RAISE rebook_contract_failed;
2882: END IF;
2883: END IF;
2884:
2888: --
2889: --Bug#5955320
2890: OKL_INSURANCE_POLICIES_PUB.cancel_create_policies(
2891: p_api_version => 1.0,
2892: p_init_msg_list => OKL_API.G_FALSE,
2893: x_return_status => x_return_status,
2894: x_msg_count => x_msg_count,
2895: x_msg_data => x_msg_data,
2896: p_khr_id => p_khr_id,
2900: p_transaction_id => G_MASS_RBK_TRX_ID,
2901: x_ignore_flag => x_ignore_flag
2902: );
2903:
2904: IF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2905: IF (x_ignore_flag = OKL_API.G_FALSE) THEN
2906: raise rebook_contract_failed;
2907: ELSE
2908: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2901: x_ignore_flag => x_ignore_flag
2902: );
2903:
2904: IF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2905: IF (x_ignore_flag = OKL_API.G_FALSE) THEN
2906: raise rebook_contract_failed;
2907: ELSE
2908: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2909: END IF;
2904: IF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2905: IF (x_ignore_flag = OKL_API.G_FALSE) THEN
2906: raise rebook_contract_failed;
2907: ELSE
2908: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2909: END IF;
2910: ELSIF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2911: raise rebook_contract_failed;
2912: END IF;
2906: raise rebook_contract_failed;
2907: ELSE
2908: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2909: END IF;
2910: ELSIF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2911: raise rebook_contract_failed;
2912: END IF;
2913:
2914: -- Run QA Checker
2924: END IF;
2925: l_qa_check_status := 'S';
2926: okl_contract_book_pub.execute_qa_check_list(
2927: p_api_version => 1.0,
2928: p_init_msg_list => OKL_API.G_FALSE,
2929: x_return_status => x_return_status,
2930: x_msg_count => x_msg_count,
2931: x_msg_data => x_msg_data,
2932: p_qcl_id => l_qcl_id,
2962: -- The below call will only update the status of the Calculate Upfront Tax
2963: -- task to Complete.
2964: OKL_CONTRACT_BOOK_PVT.calculate_upfront_tax(
2965: p_api_version => 1.0,
2966: p_init_msg_list => OKL_API.G_FALSE,
2967: x_return_status => x_return_status,
2968: x_msg_count => x_msg_count,
2969: x_msg_data => x_msg_data,
2970: p_chr_id => p_khr_id,
2969: x_msg_data => x_msg_data,
2970: p_chr_id => p_khr_id,
2971: x_process_status => l_upfront_tax_status);
2972:
2973: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2974: RAISE rebook_contract_failed;
2975: END IF;
2976:
2977: -- Generate Stream
2983: --OKL_GENERATE_STREAMS_PUB.GENERATE_STREAMS(
2984: --
2985: OKL_LA_STREAM_PUB.GEN_INTR_EXTR_STREAM (
2986: p_api_version => 1.0,
2987: p_init_msg_list => OKL_API.G_FALSE,
2988: p_khr_id => p_khr_id,
2989: p_generation_ctx_code => 'AUTH',
2990: x_trx_number => x_trx_number,
2991: x_trx_status => x_trx_status,
2993: x_msg_count => x_msg_count,
2994: x_msg_data => x_msg_data
2995: );
2996:
2997: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2998: RAISE rebook_contract_failed;
2999: END IF;
3000:
3001: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3013: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3014: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rebook_contract_failed');
3015: END IF;
3016: g_stream_trx_number := NULL;
3017: x_return_status := OKL_API.G_RET_STS_ERROR;
3018: --raise; -- propagate error to caller
3019: WHEN others THEN
3020: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3021: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rebook_contract_failed');
3020: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3021: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rebook_contract_failed');
3022: END IF;
3023: g_stream_trx_number := NULL;
3024: x_return_status := OKL_API.G_RET_STS_ERROR;
3025: --raise; -- propagate error to caller
3026:
3027: END rebook_contract;
3028:
3066: END IF;
3067: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3068: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
3069: END IF;
3070: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3071:
3072: -- call START_ACTIVITY to create savepoint, check compatibility
3073: -- and initialize message list
3074: x_return_status := OKL_API.START_ACTIVITY(
3070: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3071:
3072: -- call START_ACTIVITY to create savepoint, check compatibility
3073: -- and initialize message list
3074: x_return_status := OKL_API.START_ACTIVITY(
3075: p_api_name => l_api_name,
3076: p_pkg_name => G_PKG_NAME,
3077: p_init_msg_list => p_init_msg_list,
3078: l_api_version => l_api_version,
3080: p_api_type => G_API_TYPE,
3081: x_return_status => x_return_status);
3082:
3083: -- check if activity started successfully
3084: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3085: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3086: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3087: raise OKL_API.G_EXCEPTION_ERROR;
3088: END IF;
3081: x_return_status => x_return_status);
3082:
3083: -- check if activity started successfully
3084: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3085: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3086: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3087: raise OKL_API.G_EXCEPTION_ERROR;
3088: END IF;
3089:
3082:
3083: -- check if activity started successfully
3084: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3085: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3086: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3087: raise OKL_API.G_EXCEPTION_ERROR;
3088: END IF;
3089:
3090: l_upd_count := 1;
3083: -- check if activity started successfully
3084: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3085: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3086: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3087: raise OKL_API.G_EXCEPTION_ERROR;
3088: END IF;
3089:
3090: l_upd_count := 1;
3091: FOR i IN 1..p_mstv_tbl.COUNT
3119: p_mstv_tbl => l_mstv_upd_tbl,
3120: x_mstv_tbl => x_mstv_upd_tbl
3121: );
3122:
3123: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3124: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3125: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3126: raise OKL_API.G_EXCEPTION_ERROR;
3127: END IF;
3120: x_mstv_tbl => x_mstv_upd_tbl
3121: );
3122:
3123: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3124: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3125: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3126: raise OKL_API.G_EXCEPTION_ERROR;
3127: END IF;
3128:
3121: );
3122:
3123: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3124: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3125: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3126: raise OKL_API.G_EXCEPTION_ERROR;
3127: END IF;
3128:
3129: --insert into dd_dummy values (3.2, 'After update');
3122:
3123: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3124: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3125: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3126: raise OKL_API.G_EXCEPTION_ERROR;
3127: END IF;
3128:
3129: --insert into dd_dummy values (3.2, 'After update');
3130: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3126: raise OKL_API.G_EXCEPTION_ERROR;
3127: END IF;
3128:
3129: --insert into dd_dummy values (3.2, 'After update');
3130: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3131: x_msg_data => x_msg_data);
3132:
3133: RETURN;
3134:
3133: RETURN;
3134:
3135: EXCEPTION
3136: WHEN update_failed THEN
3137: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3138:
3139: when OKL_API.G_EXCEPTION_ERROR then
3140: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3141: p_api_name => l_api_name,
3135: EXCEPTION
3136: WHEN update_failed THEN
3137: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3138:
3139: when OKL_API.G_EXCEPTION_ERROR then
3140: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3141: p_api_name => l_api_name,
3142: p_pkg_name => G_PKG_NAME,
3143: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3136: WHEN update_failed THEN
3137: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3138:
3139: when OKL_API.G_EXCEPTION_ERROR then
3140: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3141: p_api_name => l_api_name,
3142: p_pkg_name => G_PKG_NAME,
3143: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3144: x_msg_count => x_msg_count,
3139: when OKL_API.G_EXCEPTION_ERROR then
3140: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3141: p_api_name => l_api_name,
3142: p_pkg_name => G_PKG_NAME,
3143: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3144: x_msg_count => x_msg_count,
3145: x_msg_data => x_msg_data,
3146: p_api_type => G_API_TYPE);
3147:
3144: x_msg_count => x_msg_count,
3145: x_msg_data => x_msg_data,
3146: p_api_type => G_API_TYPE);
3147:
3148: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3149: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3150: p_api_name => l_api_name,
3151: p_pkg_name => G_PKG_NAME,
3152: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3145: x_msg_data => x_msg_data,
3146: p_api_type => G_API_TYPE);
3147:
3148: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3149: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3150: p_api_name => l_api_name,
3151: p_pkg_name => G_PKG_NAME,
3152: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3153: x_msg_count => x_msg_count,
3148: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3149: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3150: p_api_name => l_api_name,
3151: p_pkg_name => G_PKG_NAME,
3152: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3153: x_msg_count => x_msg_count,
3154: x_msg_data => x_msg_data,
3155: p_api_type => G_API_TYPE);
3156:
3154: x_msg_data => x_msg_data,
3155: p_api_type => G_API_TYPE);
3156:
3157: when OTHERS then
3158: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3159: p_api_name => l_api_name,
3160: p_pkg_name => G_PKG_NAME,
3161: p_exc_name => 'OTHERS',
3162: x_msg_count => x_msg_count,
3207: x_thpv_rec thpv_rec_type;
3208:
3209: BEGIN
3210:
3211: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3212:
3213: FOR trx_rec IN trx_csr(p_chr_id)
3214: LOOP
3215: l_thpv_rec.id := trx_rec.id;
3216: l_thpv_rec.tsu_code := p_status;
3217:
3218: okl_trx_assets_pub.update_trx_ass_h_def(
3219: p_api_version => 1.0,
3220: p_init_msg_list => OKL_API.G_FALSE,
3221: x_return_status => x_return_status,
3222: x_msg_count => x_msg_count,
3223: x_msg_data => x_msg_data,
3224: p_thpv_rec => l_thpv_rec,
3347: x_value => lx_value,
3348: x_inv_agmt_chr_id_tbl => lx_inv_agmt_chr_id_tbl
3349: );
3350:
3351: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3352: RAISE secu_failed;
3353: END IF;
3354:
3355: IF (lx_value = OKL_API.G_TRUE) THEN
3351: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3352: RAISE secu_failed;
3353: END IF;
3354:
3355: IF (lx_value = OKL_API.G_TRUE) THEN
3356: --
3357: -- HISTorize disbursement streams, with subclass = 'INVESTOR_DISBURSEMENT'
3358: --
3359: FOR disb_strm_rec IN disb_strm_csr (p_chr_id)
3564: -- Generate Investor accrual streams
3565: --
3566: OKL_ACCRUAL_SEC_PVT.CREATE_STREAMS(
3567: p_api_version => 1.0,
3568: p_init_msg_list => OKL_API.G_FALSE,
3569: x_return_status => x_return_status,
3570: x_msg_count => x_msg_count,
3571: x_msg_data => x_msg_data,
3572: p_khr_id => p_chr_id
3697:
3698: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3699: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
3700: END IF;
3701: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3702:
3703: -- call START_ACTIVITY to create savepoint, check compatibility
3704: -- and initialize message list
3705: x_return_status := OKL_API.START_ACTIVITY(
3701: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3702:
3703: -- call START_ACTIVITY to create savepoint, check compatibility
3704: -- and initialize message list
3705: x_return_status := OKL_API.START_ACTIVITY(
3706: p_api_name => l_api_name,
3707: p_pkg_name => G_PKG_NAME,
3708: p_init_msg_list => p_init_msg_list,
3709: l_api_version => l_api_version,
3711: p_api_type => G_API_TYPE,
3712: x_return_status => x_return_status);
3713:
3714: -- check if activity started successfully
3715: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3716: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3717: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3718: raise OKL_API.G_EXCEPTION_ERROR;
3719: END IF;
3712: x_return_status => x_return_status);
3713:
3714: -- check if activity started successfully
3715: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3716: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3717: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3718: raise OKL_API.G_EXCEPTION_ERROR;
3719: END IF;
3720:
3713:
3714: -- check if activity started successfully
3715: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3716: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3717: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3718: raise OKL_API.G_EXCEPTION_ERROR;
3719: END IF;
3720:
3721: --
3714: -- check if activity started successfully
3715: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3716: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3717: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3718: raise OKL_API.G_EXCEPTION_ERROR;
3719: END IF;
3720:
3721: --
3722: -- Check contract for Mass Rebook
3753: x_msg_data => x_msg_data,
3754: p_chr_id => p_chr_id
3755: );
3756:
3757: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3758: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3759: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3760: RAISE Okl_Api.G_EXCEPTION_ERROR;
3761: END IF;
3754: p_chr_id => p_chr_id
3755: );
3756:
3757: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3758: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3759: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3760: RAISE Okl_Api.G_EXCEPTION_ERROR;
3761: END IF;
3762:
3755: );
3756:
3757: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3758: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3759: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3760: RAISE Okl_Api.G_EXCEPTION_ERROR;
3761: END IF;
3762:
3763: -- dedey,Bug#4264314
3756:
3757: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3758: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3759: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3760: RAISE Okl_Api.G_EXCEPTION_ERROR;
3761: END IF;
3762:
3763: -- dedey,Bug#4264314
3764:
3775: p_trx_date => sysdate, -- 4583578 passing sysdate instead of rebook date
3776: x_accrual_rec => l_accrual_rec,
3777: x_stream_tbl => l_stream_tbl);
3778:
3779: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3780: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3781: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3782: RAISE Okl_Api.G_EXCEPTION_ERROR;
3783: END IF;
3776: x_accrual_rec => l_accrual_rec,
3777: x_stream_tbl => l_stream_tbl);
3778:
3779: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3780: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3781: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3782: RAISE Okl_Api.G_EXCEPTION_ERROR;
3783: END IF;
3784:
3777: x_stream_tbl => l_stream_tbl);
3778:
3779: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3780: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3781: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3782: RAISE Okl_Api.G_EXCEPTION_ERROR;
3783: END IF;
3784:
3785: -- dedey,Bug#4264314
3778:
3779: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3780: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3781: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3782: RAISE Okl_Api.G_EXCEPTION_ERROR;
3783: END IF;
3784:
3785: -- dedey,Bug#4264314
3786:
3793: x_return_status => x_return_status,
3794: x_msg_count => x_msg_count,
3795: x_msg_data => x_msg_data);
3796:
3797: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3798: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3799: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3800: raise OKL_API.G_EXCEPTION_ERROR;
3801: END IF;
3794: x_msg_count => x_msg_count,
3795: x_msg_data => x_msg_data);
3796:
3797: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3798: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3799: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3800: raise OKL_API.G_EXCEPTION_ERROR;
3801: END IF;
3802: -- Bug# 4398936
3795: x_msg_data => x_msg_data);
3796:
3797: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3798: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3799: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3800: raise OKL_API.G_EXCEPTION_ERROR;
3801: END IF;
3802: -- Bug# 4398936
3803:
3796:
3797: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3798: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3799: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3800: raise OKL_API.G_EXCEPTION_ERROR;
3801: END IF;
3802: -- Bug# 4398936
3803:
3804: --insert into dd_dummy values (2, 'Approval Done');
3814: x_msg_data => x_msg_data,
3815: p_chr_id => p_chr_id
3816: );
3817:
3818: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3819: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3820: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3821: raise OKL_API.G_EXCEPTION_ERROR;
3822: END IF;
3815: p_chr_id => p_chr_id
3816: );
3817:
3818: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3819: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3820: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3821: raise OKL_API.G_EXCEPTION_ERROR;
3822: END IF;
3823:
3816: );
3817:
3818: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3819: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3820: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3821: raise OKL_API.G_EXCEPTION_ERROR;
3822: END IF;
3823:
3824: -- R12B Authoring OA Migration
3817:
3818: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3819: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3820: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3821: raise OKL_API.G_EXCEPTION_ERROR;
3822: END IF;
3823:
3824: -- R12B Authoring OA Migration
3825: -- Update the status of the Submit Contract task to Complete
3832: p_khr_id => p_chr_id ,
3833: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_SUBMIT_CONTRACT,
3834: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
3835:
3836: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3837: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3838: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3839: raise OKL_API.G_EXCEPTION_ERROR;
3840: END IF;
3833: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_SUBMIT_CONTRACT,
3834: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
3835:
3836: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3837: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3838: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3839: raise OKL_API.G_EXCEPTION_ERROR;
3840: END IF;
3841:
3834: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
3835:
3836: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3837: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3838: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3839: raise OKL_API.G_EXCEPTION_ERROR;
3840: END IF;
3841:
3842: --insert into dd_dummy values (3, 'Activation Done');
3835:
3836: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3837: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3838: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3839: raise OKL_API.G_EXCEPTION_ERROR;
3840: END IF;
3841:
3842: --insert into dd_dummy values (3, 'Activation Done');
3843: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3862: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3863: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After call create_inv_disb_adjustment'||x_return_status);
3864: END IF;
3865:
3866: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3867: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3868: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3869: raise OKL_API.G_EXCEPTION_ERROR;
3870: END IF;
3863: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After call create_inv_disb_adjustment'||x_return_status);
3864: END IF;
3865:
3866: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3867: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3868: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3869: raise OKL_API.G_EXCEPTION_ERROR;
3870: END IF;
3871: -- Bug# 4775555: End
3864: END IF;
3865:
3866: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3867: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3868: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3869: raise OKL_API.G_EXCEPTION_ERROR;
3870: END IF;
3871: -- Bug# 4775555: End
3872:
3865:
3866: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3867: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3868: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3869: raise OKL_API.G_EXCEPTION_ERROR;
3870: END IF;
3871: -- Bug# 4775555: End
3872:
3873: --Bug# 4107330
3892: p_stream_tbl => l_stream_tbl);
3893:
3894: -- dedey,Bug#4264314
3895:
3896: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3897: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3898: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3899: RAISE Okl_Api.G_EXCEPTION_ERROR;
3900: END IF;
3893:
3894: -- dedey,Bug#4264314
3895:
3896: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3897: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3898: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3899: RAISE Okl_Api.G_EXCEPTION_ERROR;
3900: END IF;
3901:
3894: -- dedey,Bug#4264314
3895:
3896: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3897: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3898: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3899: RAISE Okl_Api.G_EXCEPTION_ERROR;
3900: END IF;
3901:
3902: -- dedey,Bug#4264314
3895:
3896: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3897: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3898: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3899: RAISE Okl_Api.G_EXCEPTION_ERROR;
3900: END IF;
3901:
3902: -- dedey,Bug#4264314
3903: END IF;
3922: x_stream_tbl => l_stream_tbl);
3923:
3924: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS; -- MGAAP 7263041
3925:
3926: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3927: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3928: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3929: RAISE Okl_Api.G_EXCEPTION_ERROR;
3930: END IF;
3923:
3924: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS; -- MGAAP 7263041
3925:
3926: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3927: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3928: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3929: RAISE Okl_Api.G_EXCEPTION_ERROR;
3930: END IF;
3931:
3924: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS; -- MGAAP 7263041
3925:
3926: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3927: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3928: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3929: RAISE Okl_Api.G_EXCEPTION_ERROR;
3930: END IF;
3931:
3932: IF(l_stream_tbl.COUNT>0) THEN
3925:
3926: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3927: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3928: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3929: RAISE Okl_Api.G_EXCEPTION_ERROR;
3930: END IF;
3931:
3932: IF(l_stream_tbl.COUNT>0) THEN
3933: --Bug# 9191475
3946: p_stream_tbl => l_stream_tbl,
3947: p_representation_type => 'SECONDARY');
3948:
3949:
3950: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3951: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3952: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3953: RAISE Okl_Api.G_EXCEPTION_ERROR;
3954: END IF;
3947: p_representation_type => 'SECONDARY');
3948:
3949:
3950: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3951: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3952: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3953: RAISE Okl_Api.G_EXCEPTION_ERROR;
3954: END IF;
3955:
3948:
3949:
3950: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3951: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3952: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3953: RAISE Okl_Api.G_EXCEPTION_ERROR;
3954: END IF;
3955:
3956: END IF;
3949:
3950: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3951: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3952: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3953: RAISE Okl_Api.G_EXCEPTION_ERROR;
3954: END IF;
3955:
3956: END IF;
3957:
3982: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3983: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After call calc_inv_acc_adjustment'||x_return_status);
3984: END IF;
3985:
3986: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3987: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3988: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3989: raise OKL_API.G_EXCEPTION_ERROR;
3990: END IF;
3983: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After call calc_inv_acc_adjustment'||x_return_status);
3984: END IF;
3985:
3986: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3987: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3988: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3989: raise OKL_API.G_EXCEPTION_ERROR;
3990: END IF;
3991:
3984: END IF;
3985:
3986: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3987: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3988: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3989: raise OKL_API.G_EXCEPTION_ERROR;
3990: END IF;
3991:
3992: lx_trx_number := null; -- MGAAP 7263041
3985:
3986: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3987: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3988: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3989: raise OKL_API.G_EXCEPTION_ERROR;
3990: END IF;
3991:
3992: lx_trx_number := null; -- MGAAP 7263041
3993: --Bug# 9191475
4004: x_trx_tbl => lx_trxnum_tbl,
4005: p_accrual_rec => l_inv_accrual_rec,
4006: p_stream_tbl => l_inv_stream_tbl);
4007:
4008: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4009: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4010: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4011: RAISE Okl_Api.G_EXCEPTION_ERROR;
4012: END IF;
4005: p_accrual_rec => l_inv_accrual_rec,
4006: p_stream_tbl => l_inv_stream_tbl);
4007:
4008: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4009: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4010: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4011: RAISE Okl_Api.G_EXCEPTION_ERROR;
4012: END IF;
4013: END IF;
4006: p_stream_tbl => l_inv_stream_tbl);
4007:
4008: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4009: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4010: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4011: RAISE Okl_Api.G_EXCEPTION_ERROR;
4012: END IF;
4013: END IF;
4014: -- Bug# 4775555: End
4007:
4008: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4009: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4010: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4011: RAISE Okl_Api.G_EXCEPTION_ERROR;
4012: END IF;
4013: END IF;
4014: -- Bug# 4775555: End
4015:
4039: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4040: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After call calc_inv_acc_adjustment'||x_return_status);
4041: END IF;
4042:
4043: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4044: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4045: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4046: raise OKL_API.G_EXCEPTION_ERROR;
4047: END IF;
4040: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After call calc_inv_acc_adjustment'||x_return_status);
4041: END IF;
4042:
4043: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4044: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4045: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4046: raise OKL_API.G_EXCEPTION_ERROR;
4047: END IF;
4048:
4041: END IF;
4042:
4043: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4044: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4045: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4046: raise OKL_API.G_EXCEPTION_ERROR;
4047: END IF;
4048:
4049: IF (l_inv_stream_tbl.COUNT > 0) THEN
4042:
4043: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4044: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4045: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4046: raise OKL_API.G_EXCEPTION_ERROR;
4047: END IF;
4048:
4049: IF (l_inv_stream_tbl.COUNT > 0) THEN
4050: --Bug# 9191475
4061: p_accrual_rec => l_inv_accrual_rec,
4062: p_stream_tbl => l_inv_stream_tbl,
4063: p_representation_type => 'SECONDARY');
4064:
4065: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4066: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4067: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4068: RAISE Okl_Api.G_EXCEPTION_ERROR;
4069: END IF;
4062: p_stream_tbl => l_inv_stream_tbl,
4063: p_representation_type => 'SECONDARY');
4064:
4065: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4066: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4067: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4068: RAISE Okl_Api.G_EXCEPTION_ERROR;
4069: END IF;
4070: END IF;
4063: p_representation_type => 'SECONDARY');
4064:
4065: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4066: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4067: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4068: RAISE Okl_Api.G_EXCEPTION_ERROR;
4069: END IF;
4070: END IF;
4071:
4064:
4065: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4066: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4067: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4068: RAISE Okl_Api.G_EXCEPTION_ERROR;
4069: END IF;
4070: END IF;
4071:
4072: END IF;
4088: open parent_tcn_type_csr(parent_trx_rec.source_trx_id);
4089: FETCH parent_tcn_type_csr INTO l_parent_tcn_type;
4090:
4091: IF parent_tcn_type_csr%NOTFOUND THEN
4092: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4093: CLOSE parent_tcn_type_csr;
4094: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4095: END IF;
4096: CLOSE parent_tcn_type_csr;
4090:
4091: IF parent_tcn_type_csr%NOTFOUND THEN
4092: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4093: CLOSE parent_tcn_type_csr;
4094: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4095: END IF;
4096: CLOSE parent_tcn_type_csr;
4097: end;
4098:
4109: END IF;
4110:
4111: Okl_Trx_Contracts_Pub.update_trx_contracts(
4112: p_api_version => l_api_version,
4113: p_init_msg_list => OKL_API.G_FALSE,
4114: x_return_status => x_return_status,
4115: x_msg_count => x_msg_count,
4116: x_msg_data => x_msg_data,
4117: p_tcnv_rec => l_am_tcnv_rec,
4121: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4122: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'update_trx_contracts: '||x_return_status);
4123: END IF;
4124:
4125: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4126: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4127: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4128: raise OKL_API.G_EXCEPTION_ERROR;
4129: END IF;
4122: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'update_trx_contracts: '||x_return_status);
4123: END IF;
4124:
4125: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4126: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4127: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4128: raise OKL_API.G_EXCEPTION_ERROR;
4129: END IF;
4130:
4123: END IF;
4124:
4125: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4126: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4127: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4128: raise OKL_API.G_EXCEPTION_ERROR;
4129: END IF;
4130:
4131: okl_api.set_message('OKL','AM','Term trx updated', parent_trx_rec.source_trx_id);
4124:
4125: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4126: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4127: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4128: raise OKL_API.G_EXCEPTION_ERROR;
4129: END IF;
4130:
4131: okl_api.set_message('OKL','AM','Term trx updated', parent_trx_rec.source_trx_id);
4132:
4127: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4128: raise OKL_API.G_EXCEPTION_ERROR;
4129: END IF;
4130:
4131: okl_api.set_message('OKL','AM','Term trx updated', parent_trx_rec.source_trx_id);
4132:
4133: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4134: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before Cancel PPD : '||x_return_status);
4135: END IF;
4134: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before Cancel PPD : '||x_return_status);
4135: END IF;
4136: OKL_CS_PRINCIPAL_PAYDOWN_PUB.cancel_ppd(
4137: p_api_version => 1.0,
4138: p_init_msg_list => OKL_API.G_FALSE,
4139: x_return_status => x_return_status,
4140: x_msg_count => x_msg_count,
4141: x_msg_data => x_msg_data,
4142: p_khr_id => p_chr_id
4144: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4145: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Cancel PPD : '||x_return_status);
4146: END IF;
4147:
4148: okl_api.set_message('OKL','AM','After cancel PPD Amount', x_return_status);
4149:
4150: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4151: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4152: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4146: END IF;
4147:
4148: okl_api.set_message('OKL','AM','After cancel PPD Amount', x_return_status);
4149:
4150: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4151: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4152: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4153: raise OKL_API.G_EXCEPTION_ERROR;
4154: END IF;
4147:
4148: okl_api.set_message('OKL','AM','After cancel PPD Amount', x_return_status);
4149:
4150: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4151: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4152: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4153: raise OKL_API.G_EXCEPTION_ERROR;
4154: END IF;
4155:
4148: okl_api.set_message('OKL','AM','After cancel PPD Amount', x_return_status);
4149:
4150: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4151: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4152: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4153: raise OKL_API.G_EXCEPTION_ERROR;
4154: END IF;
4155:
4156:
4149:
4150: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4151: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4152: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4153: raise OKL_API.G_EXCEPTION_ERROR;
4154: END IF;
4155:
4156:
4157: ELSIF (l_parent_tcn_type = 'ALT') THEN
4167: END IF;
4168:
4169: Okl_Trx_Contracts_Pub.update_trx_contracts(
4170: p_api_version => l_api_version,
4171: p_init_msg_list => OKL_API.G_FALSE,
4172: x_return_status => x_return_status,
4173: x_msg_count => x_msg_count,
4174: x_msg_data => x_msg_data,
4175: p_tcnv_rec => l_am_tcnv_rec,
4179: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4180: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'update_trx_contracts: '||x_return_status);
4181: END IF;
4182:
4183: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4184: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4185: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4186: raise OKL_API.G_EXCEPTION_ERROR;
4187: END IF;
4180: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'update_trx_contracts: '||x_return_status);
4181: END IF;
4182:
4183: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4184: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4185: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4186: raise OKL_API.G_EXCEPTION_ERROR;
4187: END IF;
4188:
4181: END IF;
4182:
4183: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4184: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4185: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4186: raise OKL_API.G_EXCEPTION_ERROR;
4187: END IF;
4188:
4189: okl_api.set_message('OKL','AM','Term trx updated', parent_trx_rec.source_trx_id);
4182:
4183: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4184: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4185: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4186: raise OKL_API.G_EXCEPTION_ERROR;
4187: END IF;
4188:
4189: okl_api.set_message('OKL','AM','Term trx updated', parent_trx_rec.source_trx_id);
4190:
4185: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4186: raise OKL_API.G_EXCEPTION_ERROR;
4187: END IF;
4188:
4189: okl_api.set_message('OKL','AM','Term trx updated', parent_trx_rec.source_trx_id);
4190:
4191: -- Bug 4556370
4192: -- Cancel Termination Quote, if any
4193: --
4195: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before Cancel Termination : '||x_return_status);
4196: END IF;
4197: OKL_AM_INTEGRATION_PVT.cancel_termination_quotes (
4198: p_api_version => 1.0,
4199: p_init_msg_list => OKL_API.G_FALSE,
4200: p_khr_id => p_chr_id,
4201: p_source_trx_id => parent_trx_rec.source_trx_id,
4202: p_source => l_parent_tcn_type, -- 'ALT'
4203: x_return_status => x_return_status,
4207: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4208: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Cancel Termination : '||x_return_status);
4209: END IF;
4210:
4211: okl_api.set_message('OKL','AM','After cancel term quote', x_return_status);
4212:
4213: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4214: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4215: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4209: END IF;
4210:
4211: okl_api.set_message('OKL','AM','After cancel term quote', x_return_status);
4212:
4213: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4214: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4215: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4216: raise OKL_API.G_EXCEPTION_ERROR;
4217: END IF;
4210:
4211: okl_api.set_message('OKL','AM','After cancel term quote', x_return_status);
4212:
4213: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4214: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4215: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4216: raise OKL_API.G_EXCEPTION_ERROR;
4217: END IF;
4218:
4211: okl_api.set_message('OKL','AM','After cancel term quote', x_return_status);
4212:
4213: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4214: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4215: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4216: raise OKL_API.G_EXCEPTION_ERROR;
4217: END IF;
4218:
4219: END IF;
4212:
4213: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4214: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4215: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4216: raise OKL_API.G_EXCEPTION_ERROR;
4217: END IF;
4218:
4219: END IF;
4220: END IF;
4230: l_mstv_tbl(1).status := 'PROCESSED';
4231:
4232: okl_mass_rebook_pvt.update_mass_rbk_contract(
4233: p_api_version => l_api_version,
4234: p_init_msg_list => OKL_API.G_FALSE,
4235: x_return_status => x_return_status,
4236: x_msg_count => x_msg_count,
4237: x_msg_data => x_msg_data,
4238: p_mstv_tbl => l_mstv_tbl,
4243: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4244: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'update_mas_rbk_contract: '||x_return_status);
4245: END IF;
4246:
4247: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4248: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4249: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4250: raise OKL_API.G_EXCEPTION_ERROR;
4251: END IF;
4244: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'update_mas_rbk_contract: '||x_return_status);
4245: END IF;
4246:
4247: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4248: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4249: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4250: raise OKL_API.G_EXCEPTION_ERROR;
4251: END IF;
4252: --insert into dd_dummy values (4, 'update mass rebook status');
4245: END IF;
4246:
4247: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4248: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4249: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4250: raise OKL_API.G_EXCEPTION_ERROR;
4251: END IF;
4252: --insert into dd_dummy values (4, 'update mass rebook status');
4253:
4246:
4247: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4248: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4249: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4250: raise OKL_API.G_EXCEPTION_ERROR;
4251: END IF;
4252: --insert into dd_dummy values (4, 'update mass rebook status');
4253:
4254: l_tcnv_rec.id := l_rbk_transaction_id;
4256:
4257:
4258: Okl_Trx_Contracts_Pub.update_trx_contracts(
4259: p_api_version => l_api_version,
4260: p_init_msg_list => OKL_API.G_FALSE,
4261: x_return_status => x_return_status,
4262: x_msg_count => x_msg_count,
4263: x_msg_data => x_msg_data,
4264: p_tcnv_rec => l_tcnv_rec,
4268: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4269: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'update_trx_contracts : '||x_return_status);
4270: END IF;
4271:
4272: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4273: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4274: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4275: raise OKL_API.G_EXCEPTION_ERROR;
4276: END IF;
4269: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'update_trx_contracts : '||x_return_status);
4270: END IF;
4271:
4272: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4273: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4274: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4275: raise OKL_API.G_EXCEPTION_ERROR;
4276: END IF;
4277:
4270: END IF;
4271:
4272: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4273: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4274: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4275: raise OKL_API.G_EXCEPTION_ERROR;
4276: END IF;
4277:
4278: --insert into dd_dummy values (5, 'update trx status');
4271:
4272: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4273: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4274: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4275: raise OKL_API.G_EXCEPTION_ERROR;
4276: END IF;
4277:
4278: --insert into dd_dummy values (5, 'update trx status');
4279: --
4286: p_chr_id => p_chr_id,
4287: p_status => 'PROCESSED'
4288: );
4289:
4290: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4291: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4292: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4293: raise OKL_API.G_EXCEPTION_ERROR;
4294: END IF;
4287: p_status => 'PROCESSED'
4288: );
4289:
4290: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4291: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4292: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4293: raise OKL_API.G_EXCEPTION_ERROR;
4294: END IF;
4295:
4288: );
4289:
4290: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4291: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4292: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4293: raise OKL_API.G_EXCEPTION_ERROR;
4294: END IF;
4295:
4296: --insert into dd_dummy values (6, 'update trx asset status');
4289:
4290: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4291: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4292: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4293: raise OKL_API.G_EXCEPTION_ERROR;
4294: END IF;
4295:
4296: --insert into dd_dummy values (6, 'update trx asset status');
4297:
4301: --Create AR invoice for principal amount
4302: --Call BPD API to create AR journal entries
4303: OKL_CS_PRINCIPAL_PAYDOWN_PUB.invoice_apply_ppd(
4304: p_api_version => l_api_version,
4305: p_init_msg_list => OKL_API.G_FALSE,
4306: x_return_status => x_return_status,
4307: x_msg_count => x_msg_count,
4308: x_msg_data => x_msg_data,
4309: p_khr_id => p_chr_id,
4308: x_msg_data => x_msg_data,
4309: p_khr_id => p_chr_id,
4310: p_trx_id => l_rbk_transaction_id );
4311:
4312: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4313: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4314: END IF;
4315:
4316: EXCEPTION WHEN OTHERS THEN
4309: p_khr_id => p_chr_id,
4310: p_trx_id => l_rbk_transaction_id );
4311:
4312: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4313: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4314: END IF;
4315:
4316: EXCEPTION WHEN OTHERS THEN
4317: null; -- For any errors during journal creation, we just ignore
4314: END IF;
4315:
4316: EXCEPTION WHEN OTHERS THEN
4317: null; -- For any errors during journal creation, we just ignore
4318: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4319: END;
4320: --END IF;
4321:
4322: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4318: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4319: END;
4320: --END IF;
4321:
4322: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4323: x_msg_data => x_msg_data);
4324:
4325:
4326: --insert into dd_dummy values (7, 'returning after yield');
4327: RETURN;
4328:
4329: EXCEPTION
4330: WHEN not_to_process THEN
4331: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4332:
4333: when OKL_API.G_EXCEPTION_ERROR then
4334: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4335: p_api_name => l_api_name,
4329: EXCEPTION
4330: WHEN not_to_process THEN
4331: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4332:
4333: when OKL_API.G_EXCEPTION_ERROR then
4334: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4335: p_api_name => l_api_name,
4336: p_pkg_name => G_PKG_NAME,
4337: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4330: WHEN not_to_process THEN
4331: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4332:
4333: when OKL_API.G_EXCEPTION_ERROR then
4334: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4335: p_api_name => l_api_name,
4336: p_pkg_name => G_PKG_NAME,
4337: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4338: x_msg_count => x_msg_count,
4333: when OKL_API.G_EXCEPTION_ERROR then
4334: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4335: p_api_name => l_api_name,
4336: p_pkg_name => G_PKG_NAME,
4337: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4338: x_msg_count => x_msg_count,
4339: x_msg_data => x_msg_data,
4340: p_api_type => G_API_TYPE);
4341:
4338: x_msg_count => x_msg_count,
4339: x_msg_data => x_msg_data,
4340: p_api_type => G_API_TYPE);
4341:
4342: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4343: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4344: p_api_name => l_api_name,
4345: p_pkg_name => G_PKG_NAME,
4346: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4339: x_msg_data => x_msg_data,
4340: p_api_type => G_API_TYPE);
4341:
4342: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4343: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4344: p_api_name => l_api_name,
4345: p_pkg_name => G_PKG_NAME,
4346: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4347: x_msg_count => x_msg_count,
4342: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4343: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4344: p_api_name => l_api_name,
4345: p_pkg_name => G_PKG_NAME,
4346: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4347: x_msg_count => x_msg_count,
4348: x_msg_data => x_msg_data,
4349: p_api_type => G_API_TYPE);
4350:
4351: when OTHERS then
4352: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4353: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error...');
4354: END IF;
4355: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4356: p_api_name => l_api_name,
4357: p_pkg_name => G_PKG_NAME,
4358: p_exc_name => 'OTHERS',
4359: x_msg_count => x_msg_count,
4411:
4412: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4413: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
4414: END IF;
4415: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4416:
4417: -- call START_ACTIVITY to create savepoint, check compatibility
4418: -- and initialize message list
4419: x_return_status := OKL_API.START_ACTIVITY(
4415: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4416:
4417: -- call START_ACTIVITY to create savepoint, check compatibility
4418: -- and initialize message list
4419: x_return_status := OKL_API.START_ACTIVITY(
4420: p_api_name => l_api_name,
4421: p_pkg_name => G_PKG_NAME,
4422: p_init_msg_list => p_init_msg_list,
4423: l_api_version => l_api_version,
4425: p_api_type => G_API_TYPE,
4426: x_return_status => x_return_status);
4427:
4428: -- check if activity started successfully
4429: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4430: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4431: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4432: raise OKL_API.G_EXCEPTION_ERROR;
4433: END IF;
4426: x_return_status => x_return_status);
4427:
4428: -- check if activity started successfully
4429: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4430: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4431: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4432: raise OKL_API.G_EXCEPTION_ERROR;
4433: END IF;
4434:
4427:
4428: -- check if activity started successfully
4429: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4430: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4431: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4432: raise OKL_API.G_EXCEPTION_ERROR;
4433: END IF;
4434:
4435: --
4428: -- check if activity started successfully
4429: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4430: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4431: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4432: raise OKL_API.G_EXCEPTION_ERROR;
4433: END IF;
4434:
4435: --
4436: -- Check contract for Mass Rebook
4459: x_msg_data => x_msg_data,
4460: p_chr_id => p_chr_id
4461: );
4462:
4463: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4464: raise after_yield_failed;
4465: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4466: raise after_yield_failed;
4467: END IF;
4461: );
4462:
4463: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4464: raise after_yield_failed;
4465: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4466: raise after_yield_failed;
4467: END IF;
4468:
4469: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4465: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4466: raise after_yield_failed;
4467: END IF;
4468:
4469: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4470: x_msg_data => x_msg_data);
4471:
4472:
4473: --insert into dd_dummy values (7, 'returning after yield');
4474: RETURN;
4475:
4476: EXCEPTION
4477: WHEN not_to_process THEN
4478: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4479:
4480: WHEN after_yield_failed THEN
4481:
4482: -- Bug# 5038395
4482: -- Bug# 5038395
4483: -- Update status of Submit Contract task to Error
4484: OKL_BOOK_CONTROLLER_PVT.update_book_controller_trx(
4485: p_api_version => p_api_version,
4486: p_init_msg_list => OKL_API.G_FALSE, --To retain message stack
4487: x_return_status => x_return_status,
4488: x_msg_count => x_msg_count,
4489: x_msg_data => x_msg_data,
4490: p_khr_id => p_chr_id ,
4490: p_khr_id => p_chr_id ,
4491: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_SUBMIT_CONTRACT ,
4492: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_ERROR);
4493:
4494: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4495:
4496: when OKL_API.G_EXCEPTION_ERROR then
4497: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4498: p_api_name => l_api_name,
4492: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_ERROR);
4493:
4494: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4495:
4496: when OKL_API.G_EXCEPTION_ERROR then
4497: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4498: p_api_name => l_api_name,
4499: p_pkg_name => G_PKG_NAME,
4500: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4493:
4494: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4495:
4496: when OKL_API.G_EXCEPTION_ERROR then
4497: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4498: p_api_name => l_api_name,
4499: p_pkg_name => G_PKG_NAME,
4500: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4501: x_msg_count => x_msg_count,
4496: when OKL_API.G_EXCEPTION_ERROR then
4497: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4498: p_api_name => l_api_name,
4499: p_pkg_name => G_PKG_NAME,
4500: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4501: x_msg_count => x_msg_count,
4502: x_msg_data => x_msg_data,
4503: p_api_type => G_API_TYPE);
4504:
4501: x_msg_count => x_msg_count,
4502: x_msg_data => x_msg_data,
4503: p_api_type => G_API_TYPE);
4504:
4505: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4506: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4507: p_api_name => l_api_name,
4508: p_pkg_name => G_PKG_NAME,
4509: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4502: x_msg_data => x_msg_data,
4503: p_api_type => G_API_TYPE);
4504:
4505: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4506: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4507: p_api_name => l_api_name,
4508: p_pkg_name => G_PKG_NAME,
4509: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4510: x_msg_count => x_msg_count,
4505: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4506: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4507: p_api_name => l_api_name,
4508: p_pkg_name => G_PKG_NAME,
4509: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4510: x_msg_count => x_msg_count,
4511: x_msg_data => x_msg_data,
4512: p_api_type => G_API_TYPE);
4513:
4514: when OTHERS then
4515: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4516: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error...');
4517: END IF;
4518: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4519: p_api_name => l_api_name,
4520: p_pkg_name => G_PKG_NAME,
4521: p_exc_name => 'OTHERS',
4522: x_msg_count => x_msg_count,
4560: IF (G_DEBUG_ENABLED = 'Y') THEN
4561: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4562: END IF;
4563:
4564: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4565: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4566: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
4567: END IF;
4568:
4578: l_mstv_tbl(1).status := 'CANCELED';
4579:
4580: okl_mass_rebook_pvt.update_mass_rbk_contract(
4581: p_api_version => 1.0,
4582: p_init_msg_list => OKL_API.G_FALSE,
4583: x_return_status => x_return_status,
4584: x_msg_count => x_msg_count,
4585: x_msg_data => x_msg_data,
4586: p_mstv_tbl => l_mstv_tbl,
4586: p_mstv_tbl => l_mstv_tbl,
4587: x_mstv_tbl => x_mstv_tbl
4588: );
4589:
4590: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4591: RAISE cancel_failed;
4592: END IF;
4593: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4594: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After mass rebook trx update: '||x_return_status);
4598: l_tcnv_rec.tsu_code := 'CANCELED';
4599:
4600: Okl_Trx_Contracts_Pub.update_trx_contracts(
4601: p_api_version => 1.0,
4602: p_init_msg_list => OKL_API.G_FALSE,
4603: x_return_status => x_return_status,
4604: x_msg_count => x_msg_count,
4605: x_msg_data => x_msg_data,
4606: p_tcnv_rec => l_tcnv_rec,
4606: p_tcnv_rec => l_tcnv_rec,
4607: x_tcnv_rec => x_tcnv_rec
4608: );
4609:
4610: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4611: RAISE cancel_failed;
4612: END IF;
4613:
4614: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4619:
4620: EXCEPTION
4621:
4622: when cancel_failed then
4623: x_return_status := OKL_API.G_RET_STS_ERROR;
4624:
4625: when OTHERS then
4626: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4627: p_api_name => l_api_name,
4622: when cancel_failed then
4623: x_return_status := OKL_API.G_RET_STS_ERROR;
4624:
4625: when OTHERS then
4626: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4627: p_api_name => l_api_name,
4628: p_pkg_name => G_PKG_NAME,
4629: p_exc_name => 'OTHERS',
4630: x_msg_count => x_msg_count,
4721: END IF;
4722:
4723: -- call START_ACTIVITY to create savepoint, check compatibility
4724: -- and initialize message list
4725: x_return_status := OKL_API.START_ACTIVITY(
4726: p_api_name => l_api_name,
4727: p_pkg_name => G_PKG_NAME,
4728: p_init_msg_list => p_init_msg_list,
4729: l_api_version => l_api_version,
4731: p_api_type => G_API_TYPE,
4732: x_return_status => x_return_status);
4733:
4734: -- check if activity started successfully
4735: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4736: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4737: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4738: raise OKL_API.G_EXCEPTION_ERROR;
4739: END IF;
4732: x_return_status => x_return_status);
4733:
4734: -- check if activity started successfully
4735: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4736: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4737: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4738: raise OKL_API.G_EXCEPTION_ERROR;
4739: END IF;
4740:
4733:
4734: -- check if activity started successfully
4735: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4736: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4737: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4738: raise OKL_API.G_EXCEPTION_ERROR;
4739: END IF;
4740:
4741: --
4734: -- check if activity started successfully
4735: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4736: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4737: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4738: raise OKL_API.G_EXCEPTION_ERROR;
4739: END IF;
4740:
4741: --
4742: -- Get SET_VALUE for ALl contracts to be processed
4765: l_adjusted_rate := TO_NUMBER(rbk_set_rec.set_value);
4766: ELSIF (rbk_set_rec.criteria_code = 'BOOK_TYPE_CODE') THEN
4767: l_book_type_code := rbk_set_rec.criteria_value1; -- For selection only, do not Set value
4768: ELSE
4769: okl_api.set_message(
4770: G_APP_NAME,
4771: G_INVALID_SET_VALUE,
4772: 'CRIT_CODE',
4773: rbk_set_rec.criteria_code
4771: G_INVALID_SET_VALUE,
4772: 'CRIT_CODE',
4773: rbk_set_rec.criteria_code
4774: );
4775: x_return_status := OKL_API.G_RET_STS_ERROR;
4776: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4777: END IF;
4778:
4779: END LOOP;
4772: 'CRIT_CODE',
4773: rbk_set_rec.criteria_code
4774: );
4775: x_return_status := OKL_API.G_RET_STS_ERROR;
4776: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4777: END IF;
4778:
4779: END LOOP;
4780:
4778:
4779: END LOOP;
4780:
4781: IF (l_set_count = 0) THEN
4782: okl_api.set_message(
4783: G_APP_NAME,
4784: G_NO_SET_VALUE,
4785: 'REQ_NAME',
4786: P_request_name
4784: G_NO_SET_VALUE,
4785: 'REQ_NAME',
4786: P_request_name
4787: );
4788: x_return_status := OKL_API.G_RET_STS_ERROR;
4789: RAISE OKL_API.G_EXCEPTION_ERROR;
4790: END IF;
4791:
4792: l_contract_count := 0;
4785: 'REQ_NAME',
4786: P_request_name
4787: );
4788: x_return_status := OKL_API.G_RET_STS_ERROR;
4789: RAISE OKL_API.G_EXCEPTION_ERROR;
4790: END IF;
4791:
4792: l_contract_count := 0;
4793: l_line_count := 0;
4804: x_msg_data => x_msg_data,
4805: p_khr_id => rbk_rec.khr_id,
4806: x_pdt_parameter_rec => l_pdt_params_rec);
4807:
4808: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4809: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4810: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4811: RAISE OKL_API.G_EXCEPTION_ERROR;
4812: END IF;
4805: p_khr_id => rbk_rec.khr_id,
4806: x_pdt_parameter_rec => l_pdt_params_rec);
4807:
4808: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4809: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4810: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4811: RAISE OKL_API.G_EXCEPTION_ERROR;
4812: END IF;
4813: -- Bug#4542290 - smadhava - 26-AUG-2005 - Added - End
4806: x_pdt_parameter_rec => l_pdt_params_rec);
4807:
4808: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4809: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4810: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4811: RAISE OKL_API.G_EXCEPTION_ERROR;
4812: END IF;
4813: -- Bug#4542290 - smadhava - 26-AUG-2005 - Added - End
4814:
4807:
4808: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4809: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4810: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4811: RAISE OKL_API.G_EXCEPTION_ERROR;
4812: END IF;
4813: -- Bug#4542290 - smadhava - 26-AUG-2005 - Added - End
4814:
4815: l_transaction_date := rbk_rec.transaction_date;
4846: p_residual_value => NULL, -- Not for On-Line Rebook
4847: p_strm_lalevl_tbl => l_strm_lalevl_tbl, -- Not for On-Line Rebook
4848: p_transaction_date => l_transaction_date
4849: );
4850: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
4851: raise OKL_API.G_EXCEPTION_ERROR;
4852: END IF;
4853: -- Bug#4542290 - smadhava - 26-AUG-2005 - Added - Start
4854: -- Updating the Last interest calculation date to the rebook
4847: p_strm_lalevl_tbl => l_strm_lalevl_tbl, -- Not for On-Line Rebook
4848: p_transaction_date => l_transaction_date
4849: );
4850: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
4851: raise OKL_API.G_EXCEPTION_ERROR;
4852: END IF;
4853: -- Bug#4542290 - smadhava - 26-AUG-2005 - Added - Start
4854: -- Updating the Last interest calculation date to the rebook
4855: -- transaction date if the Interest Calc. Basis=REAMORT and
4871: , x_msg_data => x_msg_data
4872: , p_khrv_rec => lp_khrv_rec
4873: , x_khrv_rec => lx_khrv_rec);
4874:
4875: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4876: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4877: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4878: RAISE OKL_API.G_EXCEPTION_ERROR;
4879: END IF;
4872: , p_khrv_rec => lp_khrv_rec
4873: , x_khrv_rec => lx_khrv_rec);
4874:
4875: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4876: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4877: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4878: RAISE OKL_API.G_EXCEPTION_ERROR;
4879: END IF;
4880: END IF; -- end of check for ICB and RRM
4873: , x_khrv_rec => lx_khrv_rec);
4874:
4875: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4876: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4877: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4878: RAISE OKL_API.G_EXCEPTION_ERROR;
4879: END IF;
4880: END IF; -- end of check for ICB and RRM
4881: -- Bug#4542290 - smadhava - 26-AUG-2005 - Added - End
4874:
4875: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4876: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4877: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4878: RAISE OKL_API.G_EXCEPTION_ERROR;
4879: END IF;
4880: END IF; -- end of check for ICB and RRM
4881: -- Bug#4542290 - smadhava - 26-AUG-2005 - Added - End
4882:
4888: END IF;
4889: END LOOP;
4890:
4891: IF (l_contract_count = 0 ) THEN
4892: okl_api.set_message(
4893: G_APP_NAME,
4894: G_NO_SEL_CONTRACT,
4895: 'REQ_NAME',
4896: p_request_name
4894: G_NO_SEL_CONTRACT,
4895: 'REQ_NAME',
4896: p_request_name
4897: );
4898: RAISE OKL_API.G_EXCEPTION_ERROR;
4899: END IF;
4900:
4901: -- Final Call for last contract
4902: rebook_contract(
4917: p_residual_value => NULL, -- Not for On-Line Rebook
4918: p_strm_lalevl_tbl => l_strm_lalevl_tbl, -- Not for On-Line Rebook
4919: p_transaction_date => l_transaction_date
4920: );
4921: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
4922: raise OKL_API.G_EXCEPTION_ERROR;
4923: END IF;
4924: -- Bug#4542290 - smadhava - 26-AUG-2005 - Added - Start
4925: -- Updating the Last interest calculation date to the rebook
4918: p_strm_lalevl_tbl => l_strm_lalevl_tbl, -- Not for On-Line Rebook
4919: p_transaction_date => l_transaction_date
4920: );
4921: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
4922: raise OKL_API.G_EXCEPTION_ERROR;
4923: END IF;
4924: -- Bug#4542290 - smadhava - 26-AUG-2005 - Added - Start
4925: -- Updating the Last interest calculation date to the rebook
4926: -- transaction date if the Interest Calc. Basis=REAMORT and
4942: , x_msg_data => x_msg_data
4943: , p_khrv_rec => lp_khrv_rec
4944: , x_khrv_rec => lx_khrv_rec);
4945:
4946: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4947: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4948: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4949: RAISE OKL_API.G_EXCEPTION_ERROR;
4950: END IF;
4943: , p_khrv_rec => lp_khrv_rec
4944: , x_khrv_rec => lx_khrv_rec);
4945:
4946: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4947: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4948: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4949: RAISE OKL_API.G_EXCEPTION_ERROR;
4950: END IF;
4951: END IF; -- end of check for ICB and RRM
4944: , x_khrv_rec => lx_khrv_rec);
4945:
4946: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4947: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4948: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4949: RAISE OKL_API.G_EXCEPTION_ERROR;
4950: END IF;
4951: END IF; -- end of check for ICB and RRM
4952: -- Bug#4542290 - smadhava - 26-AUG-2005 - Added - End
4945:
4946: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4947: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4948: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4949: RAISE OKL_API.G_EXCEPTION_ERROR;
4950: END IF;
4951: END IF; -- end of check for ICB and RRM
4952: -- Bug#4542290 - smadhava - 26-AUG-2005 - Added - End
4953:
4950: END IF;
4951: END IF; -- end of check for ICB and RRM
4952: -- Bug#4542290 - smadhava - 26-AUG-2005 - Added - End
4953:
4954: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4955: x_msg_data => x_msg_data);
4956:
4957: RETURN;
4958:
4956:
4957: RETURN;
4958:
4959: EXCEPTION
4960: when OKL_API.G_EXCEPTION_ERROR then
4961: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4962: p_api_name => l_api_name,
4963: p_pkg_name => G_PKG_NAME,
4964: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4957: RETURN;
4958:
4959: EXCEPTION
4960: when OKL_API.G_EXCEPTION_ERROR then
4961: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4962: p_api_name => l_api_name,
4963: p_pkg_name => G_PKG_NAME,
4964: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4965: x_msg_count => x_msg_count,
4960: when OKL_API.G_EXCEPTION_ERROR then
4961: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4962: p_api_name => l_api_name,
4963: p_pkg_name => G_PKG_NAME,
4964: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4965: x_msg_count => x_msg_count,
4966: x_msg_data => x_msg_data,
4967: p_api_type => G_API_TYPE);
4968:
4965: x_msg_count => x_msg_count,
4966: x_msg_data => x_msg_data,
4967: p_api_type => G_API_TYPE);
4968:
4969: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4970: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4971: p_api_name => l_api_name,
4972: p_pkg_name => G_PKG_NAME,
4973: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4966: x_msg_data => x_msg_data,
4967: p_api_type => G_API_TYPE);
4968:
4969: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4970: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4971: p_api_name => l_api_name,
4972: p_pkg_name => G_PKG_NAME,
4973: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4974: x_msg_count => x_msg_count,
4969: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4970: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4971: p_api_name => l_api_name,
4972: p_pkg_name => G_PKG_NAME,
4973: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4974: x_msg_count => x_msg_count,
4975: x_msg_data => x_msg_data,
4976: p_api_type => G_API_TYPE);
4977:
4975: x_msg_data => x_msg_data,
4976: p_api_type => G_API_TYPE);
4977:
4978: when OTHERS then
4979: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4980: p_api_name => l_api_name,
4981: p_pkg_name => G_PKG_NAME,
4982: p_exc_name => 'OTHERS',
4983: x_msg_count => x_msg_count,
5028: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
5029: END IF;
5030: -- call START_ACTIVITY to create savepoint, check compatibility
5031: -- and initialize message list
5032: x_return_status := OKL_API.START_ACTIVITY(
5033: p_api_name => l_api_name,
5034: p_pkg_name => G_PKG_NAME,
5035: p_init_msg_list => p_init_msg_list,
5036: l_api_version => l_api_version,
5038: p_api_type => G_API_TYPE,
5039: x_return_status => x_return_status);
5040:
5041: -- check if activity started successfully
5042: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5043: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5044: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5045: raise OKL_API.G_EXCEPTION_ERROR;
5046: END IF;
5039: x_return_status => x_return_status);
5040:
5041: -- check if activity started successfully
5042: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5043: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5044: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5045: raise OKL_API.G_EXCEPTION_ERROR;
5046: END IF;
5047:
5040:
5041: -- check if activity started successfully
5042: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5043: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5044: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5045: raise OKL_API.G_EXCEPTION_ERROR;
5046: END IF;
5047:
5048: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5041: -- check if activity started successfully
5042: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5043: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5044: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5045: raise OKL_API.G_EXCEPTION_ERROR;
5046: END IF;
5047:
5048: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5049: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Count: '||p_rbk_tbl.COUNT);
5085: p_adjusted_rate => p_adjusted_rate,
5086: p_residual_value => p_residual_value,
5087: p_strm_lalevl_tbl => p_strm_lalevl_tbl
5088: );
5089: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5090: raise OKL_API.G_EXCEPTION_ERROR;
5091: END IF;
5092: l_line_count := 1;
5093: l_kle_tbl(l_line_count).id := p_rbk_tbl(i).kle_id;
5086: p_residual_value => p_residual_value,
5087: p_strm_lalevl_tbl => p_strm_lalevl_tbl
5088: );
5089: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5090: raise OKL_API.G_EXCEPTION_ERROR;
5091: END IF;
5092: l_line_count := 1;
5093: l_kle_tbl(l_line_count).id := p_rbk_tbl(i).kle_id;
5094: l_contract_id := p_rbk_tbl(i).khr_id;
5116:
5117: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5118: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rebook Contract status: '||x_return_status);
5119: END IF;
5120: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5121: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5122: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5123: raise OKL_API.G_EXCEPTION_ERROR;
5124: END IF;
5117: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5118: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rebook Contract status: '||x_return_status);
5119: END IF;
5120: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5121: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5122: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5123: raise OKL_API.G_EXCEPTION_ERROR;
5124: END IF;
5125:
5118: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rebook Contract status: '||x_return_status);
5119: END IF;
5120: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5121: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5122: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5123: raise OKL_API.G_EXCEPTION_ERROR;
5124: END IF;
5125:
5126: ELSE
5119: END IF;
5120: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5121: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5122: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5123: raise OKL_API.G_EXCEPTION_ERROR;
5124: END IF;
5125:
5126: ELSE
5127: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5126: ELSE
5127: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5128: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Nothing to Process...');
5129: END IF;
5130: x_return_status := OKL_API.G_RET_STS_ERROR;
5131: RAISE OKL_API.G_EXCEPTION_ERROR;
5132: END IF;
5133:
5134: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5127: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5128: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Nothing to Process...');
5129: END IF;
5130: x_return_status := OKL_API.G_RET_STS_ERROR;
5131: RAISE OKL_API.G_EXCEPTION_ERROR;
5132: END IF;
5133:
5134: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5135: x_msg_data => x_msg_data);
5130: x_return_status := OKL_API.G_RET_STS_ERROR;
5131: RAISE OKL_API.G_EXCEPTION_ERROR;
5132: END IF;
5133:
5134: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5135: x_msg_data => x_msg_data);
5136:
5137:
5138: RETURN;
5137:
5138: RETURN;
5139:
5140: EXCEPTION
5141: when OKL_API.G_EXCEPTION_ERROR then
5142: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5143: p_api_name => l_api_name,
5144: p_pkg_name => G_PKG_NAME,
5145: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5138: RETURN;
5139:
5140: EXCEPTION
5141: when OKL_API.G_EXCEPTION_ERROR then
5142: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5143: p_api_name => l_api_name,
5144: p_pkg_name => G_PKG_NAME,
5145: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5146: x_msg_count => x_msg_count,
5141: when OKL_API.G_EXCEPTION_ERROR then
5142: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5143: p_api_name => l_api_name,
5144: p_pkg_name => G_PKG_NAME,
5145: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5146: x_msg_count => x_msg_count,
5147: x_msg_data => x_msg_data,
5148: p_api_type => G_API_TYPE);
5149:
5146: x_msg_count => x_msg_count,
5147: x_msg_data => x_msg_data,
5148: p_api_type => G_API_TYPE);
5149:
5150: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5151: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5152: p_api_name => l_api_name,
5153: p_pkg_name => G_PKG_NAME,
5154: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5147: x_msg_data => x_msg_data,
5148: p_api_type => G_API_TYPE);
5149:
5150: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5151: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5152: p_api_name => l_api_name,
5153: p_pkg_name => G_PKG_NAME,
5154: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5155: x_msg_count => x_msg_count,
5150: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5151: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5152: p_api_name => l_api_name,
5153: p_pkg_name => G_PKG_NAME,
5154: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5155: x_msg_count => x_msg_count,
5156: x_msg_data => x_msg_data,
5157: p_api_type => G_API_TYPE);
5158:
5156: x_msg_data => x_msg_data,
5157: p_api_type => G_API_TYPE);
5158:
5159: when OTHERS then
5160: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5161: p_api_name => l_api_name,
5162: p_pkg_name => G_PKG_NAME,
5163: p_exc_name => 'OTHERS',
5164: x_msg_count => x_msg_count,
5212: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
5213: END IF;
5214: -- call START_ACTIVITY to create savepoint, check compatibility
5215: -- and initialize message list
5216: x_return_status := OKL_API.START_ACTIVITY(
5217: p_api_name => l_api_name,
5218: p_pkg_name => G_PKG_NAME,
5219: p_init_msg_list => p_init_msg_list,
5220: l_api_version => l_api_version,
5222: p_api_type => G_API_TYPE,
5223: x_return_status => x_return_status);
5224:
5225: -- check if activity started successfully
5226: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5227: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5228: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5229: raise OKL_API.G_EXCEPTION_ERROR;
5230: END IF;
5223: x_return_status => x_return_status);
5224:
5225: -- check if activity started successfully
5226: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5227: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5228: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5229: raise OKL_API.G_EXCEPTION_ERROR;
5230: END IF;
5231:
5224:
5225: -- check if activity started successfully
5226: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5227: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5228: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5229: raise OKL_API.G_EXCEPTION_ERROR;
5230: END IF;
5231:
5232:
5225: -- check if activity started successfully
5226: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5227: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5228: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5229: raise OKL_API.G_EXCEPTION_ERROR;
5230: END IF;
5231:
5232:
5233: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5271: p_residual_value => p_residual_value,
5272: p_strm_lalevl_tbl => p_strm_lalevl_tbl
5273: );
5274:
5275: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5276: raise OKL_API.G_EXCEPTION_ERROR;
5277: END IF;
5278:
5279: x_stream_trx_tbl(l_contract_count).chr_id := l_contract_id;
5272: p_strm_lalevl_tbl => p_strm_lalevl_tbl
5273: );
5274:
5275: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5276: raise OKL_API.G_EXCEPTION_ERROR;
5277: END IF;
5278:
5279: x_stream_trx_tbl(l_contract_count).chr_id := l_contract_id;
5280: x_stream_trx_tbl(l_contract_count).trx_number := g_stream_trx_number;
5307:
5308: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5309: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rebook Contract status: '||x_return_status);
5310: END IF;
5311: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5312: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5313: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5314: raise OKL_API.G_EXCEPTION_ERROR;
5315: END IF;
5308: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5309: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rebook Contract status: '||x_return_status);
5310: END IF;
5311: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5312: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5313: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5314: raise OKL_API.G_EXCEPTION_ERROR;
5315: END IF;
5316:
5309: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rebook Contract status: '||x_return_status);
5310: END IF;
5311: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5312: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5313: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5314: raise OKL_API.G_EXCEPTION_ERROR;
5315: END IF;
5316:
5317: --l_contract_count := l_contract_count + 1;
5310: END IF;
5311: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5312: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5313: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5314: raise OKL_API.G_EXCEPTION_ERROR;
5315: END IF;
5316:
5317: --l_contract_count := l_contract_count + 1;
5318: x_stream_trx_tbl(l_contract_count).chr_id := l_contract_id;
5321: ELSE
5322: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5323: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Nothing to Process...');
5324: END IF;
5325: x_return_status := OKL_API.G_RET_STS_ERROR;
5326: RAISE OKL_API.G_EXCEPTION_ERROR;
5327: END IF;
5328:
5329: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5322: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5323: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Nothing to Process...');
5324: END IF;
5325: x_return_status := OKL_API.G_RET_STS_ERROR;
5326: RAISE OKL_API.G_EXCEPTION_ERROR;
5327: END IF;
5328:
5329: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5330: x_msg_data => x_msg_data);
5325: x_return_status := OKL_API.G_RET_STS_ERROR;
5326: RAISE OKL_API.G_EXCEPTION_ERROR;
5327: END IF;
5328:
5329: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5330: x_msg_data => x_msg_data);
5331:
5332:
5333: RETURN;
5332:
5333: RETURN;
5334:
5335: EXCEPTION
5336: when OKL_API.G_EXCEPTION_ERROR then
5337: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5338: p_api_name => l_api_name,
5339: p_pkg_name => G_PKG_NAME,
5340: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5333: RETURN;
5334:
5335: EXCEPTION
5336: when OKL_API.G_EXCEPTION_ERROR then
5337: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5338: p_api_name => l_api_name,
5339: p_pkg_name => G_PKG_NAME,
5340: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5341: x_msg_count => x_msg_count,
5336: when OKL_API.G_EXCEPTION_ERROR then
5337: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5338: p_api_name => l_api_name,
5339: p_pkg_name => G_PKG_NAME,
5340: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5341: x_msg_count => x_msg_count,
5342: x_msg_data => x_msg_data,
5343: p_api_type => G_API_TYPE);
5344:
5341: x_msg_count => x_msg_count,
5342: x_msg_data => x_msg_data,
5343: p_api_type => G_API_TYPE);
5344:
5345: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5346: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5347: p_api_name => l_api_name,
5348: p_pkg_name => G_PKG_NAME,
5349: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5342: x_msg_data => x_msg_data,
5343: p_api_type => G_API_TYPE);
5344:
5345: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5346: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5347: p_api_name => l_api_name,
5348: p_pkg_name => G_PKG_NAME,
5349: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5350: x_msg_count => x_msg_count,
5345: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5346: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5347: p_api_name => l_api_name,
5348: p_pkg_name => G_PKG_NAME,
5349: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5350: x_msg_count => x_msg_count,
5351: x_msg_data => x_msg_data,
5352: p_api_type => G_API_TYPE);
5353:
5351: x_msg_data => x_msg_data,
5352: p_api_type => G_API_TYPE);
5353:
5354: when OTHERS then
5355: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5356: p_api_name => l_api_name,
5357: p_pkg_name => G_PKG_NAME,
5358: p_exc_name => 'OTHERS',
5359: x_msg_count => x_msg_count,
5411: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
5412: END IF;
5413: -- call START_ACTIVITY to create savepoint, check compatibility
5414: -- and initialize message list
5415: x_return_status := OKL_API.START_ACTIVITY(
5416: p_api_name => l_api_name,
5417: p_pkg_name => G_PKG_NAME,
5418: p_init_msg_list => p_init_msg_list,
5419: l_api_version => l_api_version,
5421: p_api_type => G_API_TYPE,
5422: x_return_status => x_return_status);
5423:
5424: -- check if activity started successfully
5425: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5426: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5427: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5428: raise OKL_API.G_EXCEPTION_ERROR;
5429: END IF;
5422: x_return_status => x_return_status);
5423:
5424: -- check if activity started successfully
5425: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5426: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5427: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5428: raise OKL_API.G_EXCEPTION_ERROR;
5429: END IF;
5430:
5423:
5424: -- check if activity started successfully
5425: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5426: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5427: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5428: raise OKL_API.G_EXCEPTION_ERROR;
5429: END IF;
5430:
5431:
5424: -- check if activity started successfully
5425: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5426: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5427: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5428: raise OKL_API.G_EXCEPTION_ERROR;
5429: END IF;
5430:
5431:
5432: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5471: p_strm_lalevl_tbl => p_strm_lalevl_tbl,
5472: p_transaction_date => p_transaction_date
5473: );
5474:
5475: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5476: raise OKL_API.G_EXCEPTION_ERROR;
5477: END IF;
5478:
5479: x_stream_trx_tbl(l_contract_count).chr_id := l_contract_id;
5472: p_transaction_date => p_transaction_date
5473: );
5474:
5475: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5476: raise OKL_API.G_EXCEPTION_ERROR;
5477: END IF;
5478:
5479: x_stream_trx_tbl(l_contract_count).chr_id := l_contract_id;
5480: x_stream_trx_tbl(l_contract_count).trx_number := g_stream_trx_number;
5508:
5509: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5510: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rebook Contract status: '||x_return_status);
5511: END IF;
5512: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5513: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5514: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5515: raise OKL_API.G_EXCEPTION_ERROR;
5516: END IF;
5509: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5510: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rebook Contract status: '||x_return_status);
5511: END IF;
5512: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5513: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5514: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5515: raise OKL_API.G_EXCEPTION_ERROR;
5516: END IF;
5517:
5510: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rebook Contract status: '||x_return_status);
5511: END IF;
5512: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5513: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5514: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5515: raise OKL_API.G_EXCEPTION_ERROR;
5516: END IF;
5517:
5518: --l_contract_count := l_contract_count + 1;
5511: END IF;
5512: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5513: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5514: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5515: raise OKL_API.G_EXCEPTION_ERROR;
5516: END IF;
5517:
5518: --l_contract_count := l_contract_count + 1;
5519: x_stream_trx_tbl(l_contract_count).chr_id := l_contract_id;
5522: ELSE
5523: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5524: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Nothing to Process...');
5525: END IF;
5526: x_return_status := OKL_API.G_RET_STS_ERROR;
5527: RAISE OKL_API.G_EXCEPTION_ERROR;
5528: END IF;
5529:
5530: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5523: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5524: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Nothing to Process...');
5525: END IF;
5526: x_return_status := OKL_API.G_RET_STS_ERROR;
5527: RAISE OKL_API.G_EXCEPTION_ERROR;
5528: END IF;
5529:
5530: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5531: x_msg_data => x_msg_data);
5526: x_return_status := OKL_API.G_RET_STS_ERROR;
5527: RAISE OKL_API.G_EXCEPTION_ERROR;
5528: END IF;
5529:
5530: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5531: x_msg_data => x_msg_data);
5532:
5533:
5534: RETURN;
5533:
5534: RETURN;
5535:
5536: EXCEPTION
5537: when OKL_API.G_EXCEPTION_ERROR then
5538: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5539: p_api_name => l_api_name,
5540: p_pkg_name => G_PKG_NAME,
5541: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5534: RETURN;
5535:
5536: EXCEPTION
5537: when OKL_API.G_EXCEPTION_ERROR then
5538: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5539: p_api_name => l_api_name,
5540: p_pkg_name => G_PKG_NAME,
5541: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5542: x_msg_count => x_msg_count,
5537: when OKL_API.G_EXCEPTION_ERROR then
5538: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5539: p_api_name => l_api_name,
5540: p_pkg_name => G_PKG_NAME,
5541: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5542: x_msg_count => x_msg_count,
5543: x_msg_data => x_msg_data,
5544: p_api_type => G_API_TYPE);
5545:
5542: x_msg_count => x_msg_count,
5543: x_msg_data => x_msg_data,
5544: p_api_type => G_API_TYPE);
5545:
5546: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5547: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5548: p_api_name => l_api_name,
5549: p_pkg_name => G_PKG_NAME,
5550: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5543: x_msg_data => x_msg_data,
5544: p_api_type => G_API_TYPE);
5545:
5546: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5547: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5548: p_api_name => l_api_name,
5549: p_pkg_name => G_PKG_NAME,
5550: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5551: x_msg_count => x_msg_count,
5546: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5547: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5548: p_api_name => l_api_name,
5549: p_pkg_name => G_PKG_NAME,
5550: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5551: x_msg_count => x_msg_count,
5552: x_msg_data => x_msg_data,
5553: p_api_type => G_API_TYPE);
5554:
5552: x_msg_data => x_msg_data,
5553: p_api_type => G_API_TYPE);
5554:
5555: when OTHERS then
5556: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5557: p_api_name => l_api_name,
5558: p_pkg_name => G_PKG_NAME,
5559: p_exc_name => 'OTHERS',
5560: x_msg_count => x_msg_count,
5615: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
5616: END IF;
5617: -- call START_ACTIVITY to create savepoint, check compatibility
5618: -- and initialize message list
5619: x_return_status := OKL_API.START_ACTIVITY(
5620: p_api_name => l_api_name,
5621: p_pkg_name => G_PKG_NAME,
5622: p_init_msg_list => p_init_msg_list,
5623: l_api_version => l_api_version,
5625: p_api_type => G_API_TYPE,
5626: x_return_status => x_return_status);
5627:
5628: -- check if activity started successfully
5629: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5630: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5631: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5632: raise OKL_API.G_EXCEPTION_ERROR;
5633: END IF;
5626: x_return_status => x_return_status);
5627:
5628: -- check if activity started successfully
5629: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5630: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5631: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5632: raise OKL_API.G_EXCEPTION_ERROR;
5633: END IF;
5634:
5627:
5628: -- check if activity started successfully
5629: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5630: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5631: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5632: raise OKL_API.G_EXCEPTION_ERROR;
5633: END IF;
5634:
5635: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5628: -- check if activity started successfully
5629: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5630: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5631: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5632: raise OKL_API.G_EXCEPTION_ERROR;
5633: END IF;
5634:
5635: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5636: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->Count: '||p_rbk_tbl.COUNT);
5667:
5668: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5669: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After cancel_transaction: '||x_return_status);
5670: END IF;
5671: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5672: raise OKL_API.G_EXCEPTION_ERROR;
5673: END IF;
5674:
5675: G_TERMINATION_TRX_ID := p_source_trx_id;
5668: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5669: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After cancel_transaction: '||x_return_status);
5670: END IF;
5671: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5672: raise OKL_API.G_EXCEPTION_ERROR;
5673: END IF;
5674:
5675: G_TERMINATION_TRX_ID := p_source_trx_id;
5676: G_TERMINATION_TRX_TYPE := p_source_trx_type;
5675: G_TERMINATION_TRX_ID := p_source_trx_id;
5676: G_TERMINATION_TRX_TYPE := p_source_trx_type;
5677: G_MASS_RBK_TRX_ID := NULL;
5678:
5679: okl_api.set_message('OKL', 'AM', 'Before Term Trx ID: ', G_TERMINATION_TRX_ID);
5680:
5681: -- Call Rebook_Contract
5682: rebook_contract(
5683: x_return_status => x_return_status,
5699: );
5700: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5701: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After rebook_contract: '||x_return_status);
5702: END IF;
5703: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5704: raise OKL_API.G_EXCEPTION_ERROR;
5705: END IF;
5706:
5707: x_mass_rebook_trx_id := G_MASS_RBK_TRX_ID;
5700: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5701: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After rebook_contract: '||x_return_status);
5702: END IF;
5703: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5704: raise OKL_API.G_EXCEPTION_ERROR;
5705: END IF;
5706:
5707: x_mass_rebook_trx_id := G_MASS_RBK_TRX_ID;
5708:
5725:
5726: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5727: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After cancel_transaction: '||x_return_status);
5728: END IF;
5729: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5730: raise OKL_API.G_EXCEPTION_ERROR;
5731: END IF;
5732:
5733:
5726: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5727: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After cancel_transaction: '||x_return_status);
5728: END IF;
5729: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5730: raise OKL_API.G_EXCEPTION_ERROR;
5731: END IF;
5732:
5733:
5734: G_TERMINATION_TRX_ID := p_source_trx_id;
5734: G_TERMINATION_TRX_ID := p_source_trx_id;
5735: G_TERMINATION_TRX_TYPE := p_source_trx_type;
5736: G_MASS_RBK_TRX_ID := NULL;
5737:
5738: okl_api.set_message('OKL', 'AM', 'Before Term Trx ID: ', G_TERMINATION_TRX_ID);
5739:
5740: rebook_contract(
5741: x_return_status => x_return_status,
5742: x_msg_count => x_msg_count,
5758:
5759: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5760: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->rebook Contract status: '||x_return_status);
5761: END IF;
5762: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5763: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5764: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5765: raise OKL_API.G_EXCEPTION_ERROR;
5766: END IF;
5759: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5760: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->rebook Contract status: '||x_return_status);
5761: END IF;
5762: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5763: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5764: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5765: raise OKL_API.G_EXCEPTION_ERROR;
5766: END IF;
5767:
5760: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->rebook Contract status: '||x_return_status);
5761: END IF;
5762: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5763: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5764: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5765: raise OKL_API.G_EXCEPTION_ERROR;
5766: END IF;
5767:
5768: x_mass_rebook_trx_id := G_MASS_RBK_TRX_ID;
5761: END IF;
5762: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5763: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5764: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5765: raise OKL_API.G_EXCEPTION_ERROR;
5766: END IF;
5767:
5768: x_mass_rebook_trx_id := G_MASS_RBK_TRX_ID;
5769:
5770: ELSE
5771: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5772: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Nothing to Process...');
5773: END IF;
5774: x_return_status := OKL_API.G_RET_STS_ERROR;
5775: RAISE OKL_API.G_EXCEPTION_ERROR;
5776: END IF;
5777:
5778: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5771: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5772: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Nothing to Process...');
5773: END IF;
5774: x_return_status := OKL_API.G_RET_STS_ERROR;
5775: RAISE OKL_API.G_EXCEPTION_ERROR;
5776: END IF;
5777:
5778: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5779: x_msg_data => x_msg_data);
5774: x_return_status := OKL_API.G_RET_STS_ERROR;
5775: RAISE OKL_API.G_EXCEPTION_ERROR;
5776: END IF;
5777:
5778: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5779: x_msg_data => x_msg_data);
5780:
5781:
5782: RETURN;
5781:
5782: RETURN;
5783:
5784: EXCEPTION
5785: when OKL_API.G_EXCEPTION_ERROR then
5786: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5787: p_api_name => l_api_name,
5788: p_pkg_name => G_PKG_NAME,
5789: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5782: RETURN;
5783:
5784: EXCEPTION
5785: when OKL_API.G_EXCEPTION_ERROR then
5786: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5787: p_api_name => l_api_name,
5788: p_pkg_name => G_PKG_NAME,
5789: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5790: x_msg_count => x_msg_count,
5785: when OKL_API.G_EXCEPTION_ERROR then
5786: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5787: p_api_name => l_api_name,
5788: p_pkg_name => G_PKG_NAME,
5789: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5790: x_msg_count => x_msg_count,
5791: x_msg_data => x_msg_data,
5792: p_api_type => G_API_TYPE);
5793:
5790: x_msg_count => x_msg_count,
5791: x_msg_data => x_msg_data,
5792: p_api_type => G_API_TYPE);
5793:
5794: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5795: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5796: p_api_name => l_api_name,
5797: p_pkg_name => G_PKG_NAME,
5798: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5791: x_msg_data => x_msg_data,
5792: p_api_type => G_API_TYPE);
5793:
5794: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5795: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5796: p_api_name => l_api_name,
5797: p_pkg_name => G_PKG_NAME,
5798: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5799: x_msg_count => x_msg_count,
5794: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5795: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5796: p_api_name => l_api_name,
5797: p_pkg_name => G_PKG_NAME,
5798: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5799: x_msg_count => x_msg_count,
5800: x_msg_data => x_msg_data,
5801: p_api_type => G_API_TYPE);
5802:
5800: x_msg_data => x_msg_data,
5801: p_api_type => G_API_TYPE);
5802:
5803: when OTHERS then
5804: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5805: p_api_name => l_api_name,
5806: p_pkg_name => G_PKG_NAME,
5807: p_exc_name => 'OTHERS',
5808: x_msg_count => x_msg_count,
5862: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
5863: END IF;
5864: -- call START_ACTIVITY to create savepoint, check compatibility
5865: -- and initialize message list
5866: x_return_status := OKL_API.START_ACTIVITY(
5867: p_api_name => l_api_name,
5868: p_pkg_name => G_PKG_NAME,
5869: p_init_msg_list => p_init_msg_list,
5870: l_api_version => l_api_version,
5872: p_api_type => G_API_TYPE,
5873: x_return_status => x_return_status);
5874:
5875: -- check if activity started successfully
5876: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5877: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5878: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5879: raise OKL_API.G_EXCEPTION_ERROR;
5880: END IF;
5873: x_return_status => x_return_status);
5874:
5875: -- check if activity started successfully
5876: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5877: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5878: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5879: raise OKL_API.G_EXCEPTION_ERROR;
5880: END IF;
5881:
5874:
5875: -- check if activity started successfully
5876: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5877: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5878: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5879: raise OKL_API.G_EXCEPTION_ERROR;
5880: END IF;
5881:
5882: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5875: -- check if activity started successfully
5876: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5877: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5878: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5879: raise OKL_API.G_EXCEPTION_ERROR;
5880: END IF;
5881:
5882: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5883: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->Count: '||p_rbk_tbl.COUNT);
5914:
5915: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5916: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After cancel_transaction: '||x_return_status);
5917: END IF;
5918: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5919: raise OKL_API.G_EXCEPTION_ERROR;
5920: END IF;
5921:
5922: G_TERMINATION_TRX_ID := p_source_trx_id;
5915: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5916: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After cancel_transaction: '||x_return_status);
5917: END IF;
5918: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5919: raise OKL_API.G_EXCEPTION_ERROR;
5920: END IF;
5921:
5922: G_TERMINATION_TRX_ID := p_source_trx_id;
5923: G_TERMINATION_TRX_TYPE := p_source_trx_type;
5922: G_TERMINATION_TRX_ID := p_source_trx_id;
5923: G_TERMINATION_TRX_TYPE := p_source_trx_type;
5924: G_MASS_RBK_TRX_ID := NULL;
5925:
5926: okl_api.set_message('OKL', 'AM', 'Before Term Trx ID: ', G_TERMINATION_TRX_ID);
5927:
5928: -- Call Rebook_Contract
5929: rebook_contract(
5930: x_return_status => x_return_status,
5947: );
5948: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5949: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After rebook_contract: '||x_return_status);
5950: END IF;
5951: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5952: raise OKL_API.G_EXCEPTION_ERROR;
5953: END IF;
5954:
5955: x_mass_rebook_trx_id := G_MASS_RBK_TRX_ID;
5948: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5949: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After rebook_contract: '||x_return_status);
5950: END IF;
5951: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5952: raise OKL_API.G_EXCEPTION_ERROR;
5953: END IF;
5954:
5955: x_mass_rebook_trx_id := G_MASS_RBK_TRX_ID;
5956:
5973:
5974: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5975: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After cancel_transaction: '||x_return_status);
5976: END IF;
5977: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5978: raise OKL_API.G_EXCEPTION_ERROR;
5979: END IF;
5980:
5981:
5974: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5975: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After cancel_transaction: '||x_return_status);
5976: END IF;
5977: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5978: raise OKL_API.G_EXCEPTION_ERROR;
5979: END IF;
5980:
5981:
5982: G_TERMINATION_TRX_ID := p_source_trx_id;
5982: G_TERMINATION_TRX_ID := p_source_trx_id;
5983: G_TERMINATION_TRX_TYPE := p_source_trx_type;
5984: G_MASS_RBK_TRX_ID := NULL;
5985:
5986: okl_api.set_message('OKL', 'AM', 'Before Term Trx ID: ', G_TERMINATION_TRX_ID);
5987:
5988: rebook_contract(
5989: x_return_status => x_return_status,
5990: x_msg_count => x_msg_count,
6007:
6008: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6009: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->rebook Contract status: '||x_return_status);
6010: END IF;
6011: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6012: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6013: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6014: raise OKL_API.G_EXCEPTION_ERROR;
6015: END IF;
6008: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6009: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->rebook Contract status: '||x_return_status);
6010: END IF;
6011: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6012: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6013: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6014: raise OKL_API.G_EXCEPTION_ERROR;
6015: END IF;
6016:
6009: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->rebook Contract status: '||x_return_status);
6010: END IF;
6011: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6012: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6013: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6014: raise OKL_API.G_EXCEPTION_ERROR;
6015: END IF;
6016:
6017: x_mass_rebook_trx_id := G_MASS_RBK_TRX_ID;
6010: END IF;
6011: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6012: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6013: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6014: raise OKL_API.G_EXCEPTION_ERROR;
6015: END IF;
6016:
6017: x_mass_rebook_trx_id := G_MASS_RBK_TRX_ID;
6018:
6019: ELSE
6020: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6021: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Nothing to Process...');
6022: END IF;
6023: x_return_status := OKL_API.G_RET_STS_ERROR;
6024: RAISE OKL_API.G_EXCEPTION_ERROR;
6025: END IF;
6026:
6027: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
6020: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6021: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Nothing to Process...');
6022: END IF;
6023: x_return_status := OKL_API.G_RET_STS_ERROR;
6024: RAISE OKL_API.G_EXCEPTION_ERROR;
6025: END IF;
6026:
6027: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
6028: x_msg_data => x_msg_data);
6023: x_return_status := OKL_API.G_RET_STS_ERROR;
6024: RAISE OKL_API.G_EXCEPTION_ERROR;
6025: END IF;
6026:
6027: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
6028: x_msg_data => x_msg_data);
6029:
6030:
6031: RETURN;
6030:
6031: RETURN;
6032:
6033: EXCEPTION
6034: when OKL_API.G_EXCEPTION_ERROR then
6035: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6036: p_api_name => l_api_name,
6037: p_pkg_name => G_PKG_NAME,
6038: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6031: RETURN;
6032:
6033: EXCEPTION
6034: when OKL_API.G_EXCEPTION_ERROR then
6035: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6036: p_api_name => l_api_name,
6037: p_pkg_name => G_PKG_NAME,
6038: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6039: x_msg_count => x_msg_count,
6034: when OKL_API.G_EXCEPTION_ERROR then
6035: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6036: p_api_name => l_api_name,
6037: p_pkg_name => G_PKG_NAME,
6038: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6039: x_msg_count => x_msg_count,
6040: x_msg_data => x_msg_data,
6041: p_api_type => G_API_TYPE);
6042:
6039: x_msg_count => x_msg_count,
6040: x_msg_data => x_msg_data,
6041: p_api_type => G_API_TYPE);
6042:
6043: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6044: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6045: p_api_name => l_api_name,
6046: p_pkg_name => G_PKG_NAME,
6047: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6040: x_msg_data => x_msg_data,
6041: p_api_type => G_API_TYPE);
6042:
6043: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6044: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6045: p_api_name => l_api_name,
6046: p_pkg_name => G_PKG_NAME,
6047: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6048: x_msg_count => x_msg_count,
6043: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6044: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6045: p_api_name => l_api_name,
6046: p_pkg_name => G_PKG_NAME,
6047: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6048: x_msg_count => x_msg_count,
6049: x_msg_data => x_msg_data,
6050: p_api_type => G_API_TYPE);
6051:
6049: x_msg_data => x_msg_data,
6050: p_api_type => G_API_TYPE);
6051:
6052: when OTHERS then
6053: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6054: p_api_name => l_api_name,
6055: p_pkg_name => G_PKG_NAME,
6056: p_exc_name => 'OTHERS',
6057: x_msg_count => x_msg_count,
6108: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
6109: END IF;
6110: -- call START_ACTIVITY to create savepoint, check compatibility
6111: -- and initialize message list
6112: x_return_status := OKL_API.START_ACTIVITY(
6113: p_api_name => l_api_name,
6114: p_pkg_name => G_PKG_NAME,
6115: p_init_msg_list => p_init_msg_list,
6116: l_api_version => l_api_version,
6118: p_api_type => G_API_TYPE,
6119: x_return_status => x_return_status);
6120:
6121: -- check if activity started successfully
6122: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6123: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6124: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6125: raise OKL_API.G_EXCEPTION_ERROR;
6126: END IF;
6119: x_return_status => x_return_status);
6120:
6121: -- check if activity started successfully
6122: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6123: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6124: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6125: raise OKL_API.G_EXCEPTION_ERROR;
6126: END IF;
6127:
6120:
6121: -- check if activity started successfully
6122: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6123: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6124: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6125: raise OKL_API.G_EXCEPTION_ERROR;
6126: END IF;
6127:
6128:
6121: -- check if activity started successfully
6122: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6123: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6124: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6125: raise OKL_API.G_EXCEPTION_ERROR;
6126: END IF;
6127:
6128:
6129: --
6139:
6140: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6141: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After cancel_transaction: '||x_return_status);
6142: END IF;
6143: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
6144: raise OKL_API.G_EXCEPTION_ERROR;
6145: END IF;
6146:
6147:
6140: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6141: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After cancel_transaction: '||x_return_status);
6142: END IF;
6143: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
6144: raise OKL_API.G_EXCEPTION_ERROR;
6145: END IF;
6146:
6147:
6148: /* DEBUG */
6150: G_PPD_TRX_ID := p_source_trx_id;
6151: G_PPD_TRX_TYPE := p_source_trx_type;
6152: G_MASS_RBK_TRX_ID := NULL;
6153:
6154: --okl_api.set_message('OKL', 'AM', 'Before Term Trx ID: ', G_TERMINATION_TRX_ID);
6155:
6156: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6157: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before calling rebook contract...');
6158: END IF;
6180: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6181: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->rebook Contract status: '||x_return_status);
6182: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After rebook contract: x_return_status=' || x_return_status);
6183: END IF;
6184: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6185: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6186: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Raising OKL_API.G_RET_STS_UNEXP_ERROR:');
6187: END IF;
6188: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6182: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After rebook contract: x_return_status=' || x_return_status);
6183: END IF;
6184: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6185: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6186: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Raising OKL_API.G_RET_STS_UNEXP_ERROR:');
6187: END IF;
6188: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6189: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6190: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6184: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6185: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6186: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Raising OKL_API.G_RET_STS_UNEXP_ERROR:');
6187: END IF;
6188: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6189: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6190: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6191: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Raising OKL_API.G_EXCEPTION_ERROR:');
6192: END IF;
6185: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6186: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Raising OKL_API.G_RET_STS_UNEXP_ERROR:');
6187: END IF;
6188: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6189: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6190: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6191: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Raising OKL_API.G_EXCEPTION_ERROR:');
6192: END IF;
6193: raise OKL_API.G_EXCEPTION_ERROR;
6187: END IF;
6188: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6189: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6190: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6191: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Raising OKL_API.G_EXCEPTION_ERROR:');
6192: END IF;
6193: raise OKL_API.G_EXCEPTION_ERROR;
6194: END IF;
6195:
6189: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6190: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6191: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Raising OKL_API.G_EXCEPTION_ERROR:');
6192: END IF;
6193: raise OKL_API.G_EXCEPTION_ERROR;
6194: END IF;
6195:
6196: x_mass_rebook_trx_id := G_MASS_RBK_TRX_ID;
6197:
6194: END IF;
6195:
6196: x_mass_rebook_trx_id := G_MASS_RBK_TRX_ID;
6197:
6198: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
6199: x_msg_data => x_msg_data);
6200:
6201:
6202: RETURN;
6201:
6202: RETURN;
6203:
6204: EXCEPTION
6205: when OKL_API.G_EXCEPTION_ERROR then
6206: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6207: p_api_name => l_api_name,
6208: p_pkg_name => G_PKG_NAME,
6209: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6202: RETURN;
6203:
6204: EXCEPTION
6205: when OKL_API.G_EXCEPTION_ERROR then
6206: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6207: p_api_name => l_api_name,
6208: p_pkg_name => G_PKG_NAME,
6209: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6210: x_msg_count => x_msg_count,
6205: when OKL_API.G_EXCEPTION_ERROR then
6206: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6207: p_api_name => l_api_name,
6208: p_pkg_name => G_PKG_NAME,
6209: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6210: x_msg_count => x_msg_count,
6211: x_msg_data => x_msg_data,
6212: p_api_type => G_API_TYPE);
6213: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6213: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6214: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After HANDLE_EXCEPTIONS: x_return_status='|| x_return_status);
6215: END IF;
6216:
6217: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6218: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6219: p_api_name => l_api_name,
6220: p_pkg_name => G_PKG_NAME,
6221: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6214: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After HANDLE_EXCEPTIONS: x_return_status='|| x_return_status);
6215: END IF;
6216:
6217: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6218: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6219: p_api_name => l_api_name,
6220: p_pkg_name => G_PKG_NAME,
6221: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6222: x_msg_count => x_msg_count,
6217: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6218: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6219: p_api_name => l_api_name,
6220: p_pkg_name => G_PKG_NAME,
6221: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6222: x_msg_count => x_msg_count,
6223: x_msg_data => x_msg_data,
6224: p_api_type => G_API_TYPE);
6225:
6223: x_msg_data => x_msg_data,
6224: p_api_type => G_API_TYPE);
6225:
6226: when OTHERS then
6227: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6228: p_api_name => l_api_name,
6229: p_pkg_name => G_PKG_NAME,
6230: p_exc_name => 'OTHERS',
6231: x_msg_count => x_msg_count,
6268: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
6269: END IF;
6270: -- call START_ACTIVITY to create savepoint, check compatibility
6271: -- and initialize message list
6272: x_return_status := OKL_API.START_ACTIVITY(
6273: p_api_name => l_api_name,
6274: p_pkg_name => G_PKG_NAME,
6275: p_init_msg_list => p_init_msg_list,
6276: l_api_version => l_api_version,
6278: p_api_type => G_API_TYPE,
6279: x_return_status => x_return_status);
6280:
6281: -- check if activity started successfully
6282: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6283: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6284: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6285: raise OKL_API.G_EXCEPTION_ERROR;
6286: END IF;
6279: x_return_status => x_return_status);
6280:
6281: -- check if activity started successfully
6282: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6283: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6284: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6285: raise OKL_API.G_EXCEPTION_ERROR;
6286: END IF;
6287: --Validate the Set Values Data
6280:
6281: -- check if activity started successfully
6282: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6283: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6284: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6285: raise OKL_API.G_EXCEPTION_ERROR;
6286: END IF;
6287: --Validate the Set Values Data
6288: --Atleast one Set Value should be Present
6281: -- check if activity started successfully
6282: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6283: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6284: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6285: raise OKL_API.G_EXCEPTION_ERROR;
6286: END IF;
6287: --Validate the Set Values Data
6288: --Atleast one Set Value should be Present
6289: FOR i IN p_mrbv_tbl.FIRST..p_mrbv_tbl.LAST
6299: OR
6300: p_mrbv_tbl(i).criteria_value1 IS NOT NULL
6301: OR
6302: p_mrbv_tbl(i).criteria_value2 IS NOT NULL) THEN
6303: okl_api.set_message(
6304: G_APP_NAME,
6305: G_INVALID_MATCH_OPTION,
6306: 'CRIT_CODE',
6307: p_mrbv_tbl(i).criteria_code
6305: G_INVALID_MATCH_OPTION,
6306: 'CRIT_CODE',
6307: p_mrbv_tbl(i).criteria_code
6308: );
6309: RAISE OKL_API.G_EXCEPTION_ERROR;
6310: END IF;
6311: END IF;
6312: --Check for Data Integrity
6313: IF(p_mrbv_tbl(i).criteria_code = 'LIFE_IN_MONTHS' AND
6312: --Check for Data Integrity
6313: IF(p_mrbv_tbl(i).criteria_code = 'LIFE_IN_MONTHS' AND
6314: p_mrbv_tbl(i).set_value IS NOT NULL) THEN
6315: IF(p_mrbv_tbl(i).set_value <= 0 OR TRUNC(p_mrbv_tbl(i).set_value)<>(p_mrbv_tbl(i).set_value)) THEN
6316: okl_api.set_message(
6317: G_APP_NAME,
6318: 'OKL_CONTRACTS_INVALID_VALUE',
6319: 'COL_NAME',
6320: 'LIFE_IN_MONTHS');
6317: G_APP_NAME,
6318: 'OKL_CONTRACTS_INVALID_VALUE',
6319: 'COL_NAME',
6320: 'LIFE_IN_MONTHS');
6321: RAISE OKL_API.G_EXCEPTION_ERROR;
6322: END IF;
6323:
6324: END IF;
6325: IF(p_mrbv_tbl(i).criteria_code = 'BASIC_RATE' AND
6324: END IF;
6325: IF(p_mrbv_tbl(i).criteria_code = 'BASIC_RATE' AND
6326: p_mrbv_tbl(i).set_value IS NOT NULL) THEN
6327: IF(p_mrbv_tbl(i).set_value <= 0 ) THEN
6328: okl_api.set_message(
6329: G_APP_NAME,
6330: 'OKL_CONTRACTS_INVALID_VALUE',
6331: 'COL_NAME',
6332: 'BASIC_RATE');
6329: G_APP_NAME,
6330: 'OKL_CONTRACTS_INVALID_VALUE',
6331: 'COL_NAME',
6332: 'BASIC_RATE');
6333: RAISE OKL_API.G_EXCEPTION_ERROR;
6334: END IF;
6335:
6336: END IF;
6337: IF(p_mrbv_tbl(i).criteria_code = 'ADJUSTED_RATE' AND
6336: END IF;
6337: IF(p_mrbv_tbl(i).criteria_code = 'ADJUSTED_RATE' AND
6338: p_mrbv_tbl(i).set_value IS NOT NULL) THEN
6339: IF(p_mrbv_tbl(i).set_value <= 0 ) THEN
6340: okl_api.set_message(
6341: G_APP_NAME,
6342: 'OKL_CONTRACTS_INVALID_VALUE',
6343: 'COL_NAME',
6344: 'ADJUSTED_RATE');
6341: G_APP_NAME,
6342: 'OKL_CONTRACTS_INVALID_VALUE',
6343: 'COL_NAME',
6344: 'ADJUSTED_RATE');
6345: RAISE OKL_API.G_EXCEPTION_ERROR;
6346: END IF;
6347:
6348: END IF;
6349: IF (p_mrbv_tbl(i).set_value IS NOT NULL) THEN
6352:
6353: END IF;
6354: END LOOP;
6355: IF (l_set_value_present = 'N') THEN
6356: okl_api.set_message(
6357: G_APP_NAME,
6358: G_NO_SET_VALUE,
6359: 'REQ_NAME',
6360: p_request_name
6358: G_NO_SET_VALUE,
6359: 'REQ_NAME',
6360: p_request_name
6361: );
6362: x_return_status := OKL_API.G_RET_STS_ERROR;
6363: END IF;
6364: --
6365: -- Insert Selection criteria
6366: --
6373: p_mrbv_tbl => p_mrbv_tbl,
6374: x_mrbv_tbl => x_mrbv_tbl
6375: );
6376:
6377: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6378: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6379: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6380: raise OKL_API.G_EXCEPTION_ERROR;
6381: END IF;
6374: x_mrbv_tbl => x_mrbv_tbl
6375: );
6376:
6377: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6378: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6379: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6380: raise OKL_API.G_EXCEPTION_ERROR;
6381: END IF;
6382:
6375: );
6376:
6377: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6378: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6379: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6380: raise OKL_API.G_EXCEPTION_ERROR;
6381: END IF;
6382:
6383: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
6376:
6377: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6378: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6379: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6380: raise OKL_API.G_EXCEPTION_ERROR;
6381: END IF;
6382:
6383: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
6384: x_msg_data => x_msg_data);
6379: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6380: raise OKL_API.G_EXCEPTION_ERROR;
6381: END IF;
6382:
6383: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
6384: x_msg_data => x_msg_data);
6385:
6386:
6387: EXCEPTION
6384: x_msg_data => x_msg_data);
6385:
6386:
6387: EXCEPTION
6388: when OKL_API.G_EXCEPTION_ERROR then
6389: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6390: p_api_name => l_api_name,
6391: p_pkg_name => G_PKG_NAME,
6392: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6385:
6386:
6387: EXCEPTION
6388: when OKL_API.G_EXCEPTION_ERROR then
6389: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6390: p_api_name => l_api_name,
6391: p_pkg_name => G_PKG_NAME,
6392: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6393: x_msg_count => x_msg_count,
6388: when OKL_API.G_EXCEPTION_ERROR then
6389: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6390: p_api_name => l_api_name,
6391: p_pkg_name => G_PKG_NAME,
6392: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6393: x_msg_count => x_msg_count,
6394: x_msg_data => x_msg_data,
6395: p_api_type => G_API_TYPE);
6396: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6396: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6397: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After HANDLE_EXCEPTIONS: x_return_status='|| x_return_status);
6398: END IF;
6399:
6400: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6401: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6402: p_api_name => l_api_name,
6403: p_pkg_name => G_PKG_NAME,
6404: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6397: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After HANDLE_EXCEPTIONS: x_return_status='|| x_return_status);
6398: END IF;
6399:
6400: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6401: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6402: p_api_name => l_api_name,
6403: p_pkg_name => G_PKG_NAME,
6404: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6405: x_msg_count => x_msg_count,
6400: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6401: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6402: p_api_name => l_api_name,
6403: p_pkg_name => G_PKG_NAME,
6404: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6405: x_msg_count => x_msg_count,
6406: x_msg_data => x_msg_data,
6407: p_api_type => G_API_TYPE);
6408:
6406: x_msg_data => x_msg_data,
6407: p_api_type => G_API_TYPE);
6408:
6409: when OTHERS then
6410: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6411: p_api_name => l_api_name,
6412: p_pkg_name => G_PKG_NAME,
6413: p_exc_name => 'OTHERS',
6414: x_msg_count => x_msg_count,