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:
2422: END IF;
2423:
2424: IF (p_transaction_date IS NULL
2425: OR
2426: p_transaction_date = OKL_API.G_MISS_DATE) THEN
2427:
2428: l_transaction_date := TRUNC(SYSDATE);
2429: ELSE
2430: l_transaction_date := p_transaction_date;
2453: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Req: '||l_mstv_rec.request_name);
2454: END IF;
2455: okl_mst_pvt.insert_row(
2456: p_api_version => 1.0,
2457: p_init_msg_list => OKL_API.G_FALSE,
2458: x_return_status => x_return_status,
2459: x_msg_count => x_msg_count,
2460: x_msg_data => x_msg_data,
2461: p_mstv_rec => l_mstv_rec,
2461: p_mstv_rec => l_mstv_rec,
2462: x_mstv_rec => x_mstv_rec
2463: );
2464:
2465: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2466: RAISE rebook_contract_failed;
2467: END IF;
2468: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2469: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Line ID: '||p_kle_tbl(i).id);
2492: x_return_status => x_return_status,
2493: x_msg_count => x_msg_count,
2494: x_msg_data => x_msg_data,
2495: p_cvmv_rec => l_cvmv_rec,
2496: p_commit => OKL_API.G_FALSE,
2497: x_cvmv_rec => x_cvmv_rec
2498: );
2499:
2500: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2513: -- Create Transaction for the rebook-ed contract
2514:
2515: okl_transaction_pvt.create_transaction(
2516: p_api_version => l_api_version,
2517: p_init_msg_list => OKL_API.G_FALSE,
2518: x_return_status => x_return_status,
2519: x_msg_count => x_msg_count,
2520: x_msg_data => x_msg_data,
2521: p_chr_id => p_khr_id,
2526: p_trx_type => 'REBOOK',
2527: x_tcnv_rec => x_tcnv_rec
2528: );
2529:
2530: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2531: RAISE rebook_contract_failed;
2532: END IF;
2533:
2534: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2539:
2540: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2541: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'after get_rec : '||x_return_status);
2542: END IF;
2543: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2544: RAISE rebook_contract_failed;
2545: END IF;
2546:
2547: FOR i IN 1..l_mstv_tbl.COUNT
2555: END LOOP;
2556:
2557: okl_mst_pvt.update_row(
2558: p_api_version => l_api_version,
2559: p_init_msg_list => OKL_API.G_FALSE,
2560: x_return_status => x_return_status,
2561: x_msg_count => x_msg_count,
2562: x_msg_data => x_msg_data,
2563: p_mstv_tbl => l_mstv_tbl,
2566:
2567: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2568: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'after update mst :'|| x_return_status);
2569: END IF;
2570: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2571: RAISE rebook_contract_failed;
2572: END IF;
2573:
2574: -- Termination specific logic here
2575: IF (G_TERMINATION_TRX_ID IS NOT NULL) THEN
2576: --
2577: -- Update Mass rebook Transaction with source trx.
2578: --
2579: okl_api.set_message('OKL', 'AM', 'Termination Trx ID: ', G_TERMINATION_TRX_ID);
2580: l_tcnv_rec.id := x_tcnv_rec.id;
2581: l_tcnv_rec.source_trx_id := G_TERMINATION_TRX_ID;
2582: l_tcnv_rec.source_trx_type := G_TERMINATION_TRX_TYPE;
2583: G_MASS_RBK_TRX_ID := x_tcnv_rec.id;
2583: G_MASS_RBK_TRX_ID := x_tcnv_rec.id;
2584:
2585: Okl_Trx_Contracts_Pub.update_trx_contracts(
2586: p_api_version => l_api_version,
2587: p_init_msg_list => OKL_API.G_FALSE,
2588: x_return_status => x_return_status,
2589: x_msg_count => x_msg_count,
2590: x_msg_data => x_msg_data,
2591: p_tcnv_rec => l_tcnv_rec,
2594:
2595: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2596: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After update transaction: '||x_return_status);
2597: END IF;
2598: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2599: RAISE OKL_API.G_EXCEPTION_ERROR;
2600: END IF;
2601:
2602: END IF;
2595: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2596: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After update transaction: '||x_return_status);
2597: END IF;
2598: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2599: RAISE OKL_API.G_EXCEPTION_ERROR;
2600: END IF;
2601:
2602: END IF;
2603: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2609: IF (G_PPD_TRX_ID IS NOT NULL) THEN
2610: --
2611: -- Update Mass rebook Transaction with source trx.
2612: --
2613: okl_api.set_message('OKL', 'AM', 'Termination Trx ID: ', G_TERMINATION_TRX_ID);
2614: l_tcnv_rec.id := x_tcnv_rec.id;
2615: l_tcnv_rec.source_trx_id := G_PPD_TRX_ID;
2616: --l_tcnv_rec.source_trx_type := G_PPD_TRX_TYPE;
2617: l_tcnv_rec.source_trx_type := 'TCN';
2618: G_MASS_RBK_TRX_ID := x_tcnv_rec.id;
2619:
2620: Okl_Trx_Contracts_Pub.update_trx_contracts(
2621: p_api_version => l_api_version,
2622: p_init_msg_list => OKL_API.G_FALSE,
2623: x_return_status => x_return_status,
2624: x_msg_count => x_msg_count,
2625: x_msg_data => x_msg_data,
2626: p_tcnv_rec => l_tcnv_rec,
2629:
2630: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2631: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After update transaction: '||x_return_status);
2632: END IF;
2633: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2634: RAISE OKL_API.G_EXCEPTION_ERROR;
2635: END IF;
2636:
2637: END IF;
2630: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2631: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After update transaction: '||x_return_status);
2632: END IF;
2633: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2634: RAISE OKL_API.G_EXCEPTION_ERROR;
2635: END IF;
2636:
2637: END IF;
2638:
2655: -- Bug#4542290 - smadhava - 01-SEP-2005 - Added - End
2656:
2657: OKL_LA_JE_PVT.GENERATE_JOURNAL_ENTRIES(
2658: p_api_version => l_api_version,
2659: p_init_msg_list => OKL_API.G_FALSE,
2660: p_commit => OKL_API.G_FALSE,
2661: p_contract_id => p_khr_id,
2662: p_transaction_type => 'Rebook',
2663: p_transaction_date => l_transaction_date, --trunc(SYSDATE),
2656:
2657: OKL_LA_JE_PVT.GENERATE_JOURNAL_ENTRIES(
2658: p_api_version => l_api_version,
2659: p_init_msg_list => OKL_API.G_FALSE,
2660: p_commit => OKL_API.G_FALSE,
2661: p_contract_id => p_khr_id,
2662: p_transaction_type => 'Rebook',
2663: p_transaction_date => l_transaction_date, --trunc(SYSDATE),
2664: p_draft_yn => OKL_API.G_FALSE,
2660: p_commit => OKL_API.G_FALSE,
2661: p_contract_id => p_khr_id,
2662: p_transaction_type => 'Rebook',
2663: p_transaction_date => l_transaction_date, --trunc(SYSDATE),
2664: p_draft_yn => OKL_API.G_FALSE,
2665: x_return_status => x_return_status,
2666: x_msg_count => x_msg_count,
2667: x_msg_data => x_msg_data
2668: );
2669:
2670: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2671: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'after generate journal entries ');
2672: END IF;
2673: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2674: RAISE rebook_contract_failed;
2675: END IF;
2676: -- Bug#4542290 - smadhava - 01-SEP-2005 - Added - Start
2677: END IF; -- end of check for the source transaction
2699:
2700: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2701: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'after populate asset change ');
2702: END IF;
2703: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2704: RAISE rebook_contract_failed;
2705: END IF;
2706:
2707: --
2715: p_kle_tbl => p_kle_tbl,
2716: p_residual_value => p_residual_value
2717: );
2718:
2719: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2720: RAISE rebook_contract_failed;
2721: END IF;
2722: END IF;
2723:
2752:
2753: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2754: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'after calling update_ppd_amount');
2755: END IF;
2756: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2757: RAISE rebook_contract_failed;
2758: END IF;
2759: END IF;
2760:
2764: --
2765: --Bug#5955320
2766: OKL_INSURANCE_POLICIES_PUB.cancel_create_policies(
2767: p_api_version => 1.0,
2768: p_init_msg_list => OKL_API.G_FALSE,
2769: x_return_status => x_return_status,
2770: x_msg_count => x_msg_count,
2771: x_msg_data => x_msg_data,
2772: p_khr_id => p_khr_id,
2776: p_transaction_id => G_MASS_RBK_TRX_ID,
2777: x_ignore_flag => x_ignore_flag
2778: );
2779:
2780: IF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2781: IF (x_ignore_flag = OKL_API.G_FALSE) THEN
2782: raise rebook_contract_failed;
2783: ELSE
2784: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2777: x_ignore_flag => x_ignore_flag
2778: );
2779:
2780: IF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2781: IF (x_ignore_flag = OKL_API.G_FALSE) THEN
2782: raise rebook_contract_failed;
2783: ELSE
2784: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2785: END IF;
2780: IF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2781: IF (x_ignore_flag = OKL_API.G_FALSE) THEN
2782: raise rebook_contract_failed;
2783: ELSE
2784: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2785: END IF;
2786: ELSIF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2787: raise rebook_contract_failed;
2788: END IF;
2782: raise rebook_contract_failed;
2783: ELSE
2784: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2785: END IF;
2786: ELSIF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2787: raise rebook_contract_failed;
2788: END IF;
2789:
2790: -- Run QA Checker
2800: END IF;
2801: l_qa_check_status := 'S';
2802: okl_contract_book_pub.execute_qa_check_list(
2803: p_api_version => 1.0,
2804: p_init_msg_list => OKL_API.G_FALSE,
2805: x_return_status => x_return_status,
2806: x_msg_count => x_msg_count,
2807: x_msg_data => x_msg_data,
2808: p_qcl_id => l_qcl_id,
2838: -- The below call will only update the status of the Calculate Upfront Tax
2839: -- task to Complete.
2840: OKL_CONTRACT_BOOK_PVT.calculate_upfront_tax(
2841: p_api_version => 1.0,
2842: p_init_msg_list => OKL_API.G_FALSE,
2843: x_return_status => x_return_status,
2844: x_msg_count => x_msg_count,
2845: x_msg_data => x_msg_data,
2846: p_chr_id => p_khr_id,
2845: x_msg_data => x_msg_data,
2846: p_chr_id => p_khr_id,
2847: x_process_status => l_upfront_tax_status);
2848:
2849: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2850: RAISE rebook_contract_failed;
2851: END IF;
2852:
2853: -- Generate Stream
2859: --OKL_GENERATE_STREAMS_PUB.GENERATE_STREAMS(
2860: --
2861: OKL_LA_STREAM_PUB.GEN_INTR_EXTR_STREAM (
2862: p_api_version => 1.0,
2863: p_init_msg_list => OKL_API.G_FALSE,
2864: p_khr_id => p_khr_id,
2865: p_generation_ctx_code => 'AUTH',
2866: x_trx_number => x_trx_number,
2867: x_trx_status => x_trx_status,
2869: x_msg_count => x_msg_count,
2870: x_msg_data => x_msg_data
2871: );
2872:
2873: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2874: RAISE rebook_contract_failed;
2875: END IF;
2876:
2877: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2889: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2890: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rebook_contract_failed');
2891: END IF;
2892: g_stream_trx_number := NULL;
2893: x_return_status := OKL_API.G_RET_STS_ERROR;
2894: --raise; -- propagate error to caller
2895: WHEN others THEN
2896: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2897: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rebook_contract_failed');
2896: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2897: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rebook_contract_failed');
2898: END IF;
2899: g_stream_trx_number := NULL;
2900: x_return_status := OKL_API.G_RET_STS_ERROR;
2901: --raise; -- propagate error to caller
2902:
2903: END rebook_contract;
2904:
2942: END IF;
2943: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2944: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
2945: END IF;
2946: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2947:
2948: -- call START_ACTIVITY to create savepoint, check compatibility
2949: -- and initialize message list
2950: x_return_status := OKL_API.START_ACTIVITY(
2946: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2947:
2948: -- call START_ACTIVITY to create savepoint, check compatibility
2949: -- and initialize message list
2950: x_return_status := OKL_API.START_ACTIVITY(
2951: p_api_name => l_api_name,
2952: p_pkg_name => G_PKG_NAME,
2953: p_init_msg_list => p_init_msg_list,
2954: l_api_version => l_api_version,
2956: p_api_type => G_API_TYPE,
2957: x_return_status => x_return_status);
2958:
2959: -- check if activity started successfully
2960: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2961: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2962: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2963: raise OKL_API.G_EXCEPTION_ERROR;
2964: END IF;
2957: x_return_status => x_return_status);
2958:
2959: -- check if activity started successfully
2960: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2961: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2962: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2963: raise OKL_API.G_EXCEPTION_ERROR;
2964: END IF;
2965:
2958:
2959: -- check if activity started successfully
2960: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2961: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2962: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2963: raise OKL_API.G_EXCEPTION_ERROR;
2964: END IF;
2965:
2966: l_upd_count := 1;
2959: -- check if activity started successfully
2960: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2961: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2962: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
2963: raise OKL_API.G_EXCEPTION_ERROR;
2964: END IF;
2965:
2966: l_upd_count := 1;
2967: FOR i IN 1..p_mstv_tbl.COUNT
2995: p_mstv_tbl => l_mstv_upd_tbl,
2996: x_mstv_tbl => x_mstv_upd_tbl
2997: );
2998:
2999: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3000: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3001: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3002: raise OKL_API.G_EXCEPTION_ERROR;
3003: END IF;
2996: x_mstv_tbl => x_mstv_upd_tbl
2997: );
2998:
2999: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3000: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3001: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3002: raise OKL_API.G_EXCEPTION_ERROR;
3003: END IF;
3004:
2997: );
2998:
2999: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3000: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3001: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3002: raise OKL_API.G_EXCEPTION_ERROR;
3003: END IF;
3004:
3005: --insert into dd_dummy values (3.2, 'After update');
2998:
2999: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3000: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3001: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3002: raise OKL_API.G_EXCEPTION_ERROR;
3003: END IF;
3004:
3005: --insert into dd_dummy values (3.2, 'After update');
3006: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3002: raise OKL_API.G_EXCEPTION_ERROR;
3003: END IF;
3004:
3005: --insert into dd_dummy values (3.2, 'After update');
3006: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3007: x_msg_data => x_msg_data);
3008:
3009: RETURN;
3010:
3009: RETURN;
3010:
3011: EXCEPTION
3012: WHEN update_failed THEN
3013: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3014:
3015: when OKL_API.G_EXCEPTION_ERROR then
3016: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3017: p_api_name => l_api_name,
3011: EXCEPTION
3012: WHEN update_failed THEN
3013: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3014:
3015: when OKL_API.G_EXCEPTION_ERROR then
3016: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3017: p_api_name => l_api_name,
3018: p_pkg_name => G_PKG_NAME,
3019: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3012: WHEN update_failed THEN
3013: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3014:
3015: when OKL_API.G_EXCEPTION_ERROR then
3016: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3017: p_api_name => l_api_name,
3018: p_pkg_name => G_PKG_NAME,
3019: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3020: x_msg_count => x_msg_count,
3015: when OKL_API.G_EXCEPTION_ERROR then
3016: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3017: p_api_name => l_api_name,
3018: p_pkg_name => G_PKG_NAME,
3019: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3020: x_msg_count => x_msg_count,
3021: x_msg_data => x_msg_data,
3022: p_api_type => G_API_TYPE);
3023:
3020: x_msg_count => x_msg_count,
3021: x_msg_data => x_msg_data,
3022: p_api_type => G_API_TYPE);
3023:
3024: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3025: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3026: p_api_name => l_api_name,
3027: p_pkg_name => G_PKG_NAME,
3028: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3021: x_msg_data => x_msg_data,
3022: p_api_type => G_API_TYPE);
3023:
3024: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3025: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3026: p_api_name => l_api_name,
3027: p_pkg_name => G_PKG_NAME,
3028: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3029: x_msg_count => x_msg_count,
3024: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3025: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3026: p_api_name => l_api_name,
3027: p_pkg_name => G_PKG_NAME,
3028: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3029: x_msg_count => x_msg_count,
3030: x_msg_data => x_msg_data,
3031: p_api_type => G_API_TYPE);
3032:
3030: x_msg_data => x_msg_data,
3031: p_api_type => G_API_TYPE);
3032:
3033: when OTHERS then
3034: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3035: p_api_name => l_api_name,
3036: p_pkg_name => G_PKG_NAME,
3037: p_exc_name => 'OTHERS',
3038: x_msg_count => x_msg_count,
3083: x_thpv_rec thpv_rec_type;
3084:
3085: BEGIN
3086:
3087: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3088:
3089: FOR trx_rec IN trx_csr(p_chr_id)
3090: LOOP
3091: l_thpv_rec.id := trx_rec.id;
3092: l_thpv_rec.tsu_code := p_status;
3093:
3094: okl_trx_assets_pub.update_trx_ass_h_def(
3095: p_api_version => 1.0,
3096: p_init_msg_list => OKL_API.G_FALSE,
3097: x_return_status => x_return_status,
3098: x_msg_count => x_msg_count,
3099: x_msg_data => x_msg_data,
3100: p_thpv_rec => l_thpv_rec,
3223: x_value => lx_value,
3224: x_inv_agmt_chr_id_tbl => lx_inv_agmt_chr_id_tbl
3225: );
3226:
3227: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3228: RAISE secu_failed;
3229: END IF;
3230:
3231: IF (lx_value = OKL_API.G_TRUE) THEN
3227: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3228: RAISE secu_failed;
3229: END IF;
3230:
3231: IF (lx_value = OKL_API.G_TRUE) THEN
3232: --
3233: -- HISTorize disbursement streams, with subclass = 'INVESTOR_DISBURSEMENT'
3234: --
3235: FOR disb_strm_rec IN disb_strm_csr (p_chr_id)
3440: -- Generate Investor accrual streams
3441: --
3442: OKL_ACCRUAL_SEC_PVT.CREATE_STREAMS(
3443: p_api_version => 1.0,
3444: p_init_msg_list => OKL_API.G_FALSE,
3445: x_return_status => x_return_status,
3446: x_msg_count => x_msg_count,
3447: x_msg_data => x_msg_data,
3448: p_khr_id => p_chr_id
3568:
3569: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3570: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
3571: END IF;
3572: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3573:
3574: -- call START_ACTIVITY to create savepoint, check compatibility
3575: -- and initialize message list
3576: x_return_status := OKL_API.START_ACTIVITY(
3572: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3573:
3574: -- call START_ACTIVITY to create savepoint, check compatibility
3575: -- and initialize message list
3576: x_return_status := OKL_API.START_ACTIVITY(
3577: p_api_name => l_api_name,
3578: p_pkg_name => G_PKG_NAME,
3579: p_init_msg_list => p_init_msg_list,
3580: l_api_version => l_api_version,
3582: p_api_type => G_API_TYPE,
3583: x_return_status => x_return_status);
3584:
3585: -- check if activity started successfully
3586: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3587: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3588: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3589: raise OKL_API.G_EXCEPTION_ERROR;
3590: END IF;
3583: x_return_status => x_return_status);
3584:
3585: -- check if activity started successfully
3586: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3587: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3588: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3589: raise OKL_API.G_EXCEPTION_ERROR;
3590: END IF;
3591:
3584:
3585: -- check if activity started successfully
3586: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3587: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3588: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3589: raise OKL_API.G_EXCEPTION_ERROR;
3590: END IF;
3591:
3592: --
3585: -- check if activity started successfully
3586: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3587: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3588: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3589: raise OKL_API.G_EXCEPTION_ERROR;
3590: END IF;
3591:
3592: --
3593: -- Check contract for Mass Rebook
3624: x_msg_data => x_msg_data,
3625: p_chr_id => p_chr_id
3626: );
3627:
3628: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3629: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3630: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3631: RAISE Okl_Api.G_EXCEPTION_ERROR;
3632: END IF;
3625: p_chr_id => p_chr_id
3626: );
3627:
3628: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3629: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3630: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3631: RAISE Okl_Api.G_EXCEPTION_ERROR;
3632: END IF;
3633:
3626: );
3627:
3628: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3629: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3630: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3631: RAISE Okl_Api.G_EXCEPTION_ERROR;
3632: END IF;
3633:
3634: -- dedey,Bug#4264314
3627:
3628: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3629: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3630: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3631: RAISE Okl_Api.G_EXCEPTION_ERROR;
3632: END IF;
3633:
3634: -- dedey,Bug#4264314
3635:
3646: p_trx_date => sysdate, -- 4583578 passing sysdate instead of rebook date
3647: x_accrual_rec => l_accrual_rec,
3648: x_stream_tbl => l_stream_tbl);
3649:
3650: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3651: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3652: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3653: RAISE Okl_Api.G_EXCEPTION_ERROR;
3654: END IF;
3647: x_accrual_rec => l_accrual_rec,
3648: x_stream_tbl => l_stream_tbl);
3649:
3650: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3651: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3652: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3653: RAISE Okl_Api.G_EXCEPTION_ERROR;
3654: END IF;
3655:
3648: x_stream_tbl => l_stream_tbl);
3649:
3650: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3651: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3652: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3653: RAISE Okl_Api.G_EXCEPTION_ERROR;
3654: END IF;
3655:
3656: -- dedey,Bug#4264314
3649:
3650: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3651: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3652: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3653: RAISE Okl_Api.G_EXCEPTION_ERROR;
3654: END IF;
3655:
3656: -- dedey,Bug#4264314
3657:
3664: x_return_status => x_return_status,
3665: x_msg_count => x_msg_count,
3666: x_msg_data => x_msg_data);
3667:
3668: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3669: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3670: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3671: raise OKL_API.G_EXCEPTION_ERROR;
3672: END IF;
3665: x_msg_count => x_msg_count,
3666: x_msg_data => x_msg_data);
3667:
3668: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3669: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3670: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3671: raise OKL_API.G_EXCEPTION_ERROR;
3672: END IF;
3673: -- Bug# 4398936
3666: x_msg_data => x_msg_data);
3667:
3668: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3669: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3670: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3671: raise OKL_API.G_EXCEPTION_ERROR;
3672: END IF;
3673: -- Bug# 4398936
3674:
3667:
3668: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3669: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3670: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3671: raise OKL_API.G_EXCEPTION_ERROR;
3672: END IF;
3673: -- Bug# 4398936
3674:
3675: --insert into dd_dummy values (2, 'Approval Done');
3685: x_msg_data => x_msg_data,
3686: p_chr_id => p_chr_id
3687: );
3688:
3689: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3690: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3691: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3692: raise OKL_API.G_EXCEPTION_ERROR;
3693: END IF;
3686: p_chr_id => p_chr_id
3687: );
3688:
3689: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3690: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3691: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3692: raise OKL_API.G_EXCEPTION_ERROR;
3693: END IF;
3694:
3687: );
3688:
3689: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3690: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3691: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3692: raise OKL_API.G_EXCEPTION_ERROR;
3693: END IF;
3694:
3695: -- R12B Authoring OA Migration
3688:
3689: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3690: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3691: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3692: raise OKL_API.G_EXCEPTION_ERROR;
3693: END IF;
3694:
3695: -- R12B Authoring OA Migration
3696: -- Update the status of the Submit Contract task to Complete
3703: p_khr_id => p_chr_id ,
3704: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_SUBMIT_CONTRACT,
3705: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
3706:
3707: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3708: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3709: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3710: raise OKL_API.G_EXCEPTION_ERROR;
3711: END IF;
3704: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_SUBMIT_CONTRACT,
3705: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
3706:
3707: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3708: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3709: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3710: raise OKL_API.G_EXCEPTION_ERROR;
3711: END IF;
3712:
3705: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
3706:
3707: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3708: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3709: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3710: raise OKL_API.G_EXCEPTION_ERROR;
3711: END IF;
3712:
3713: --insert into dd_dummy values (3, 'Activation Done');
3706:
3707: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3708: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3709: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3710: raise OKL_API.G_EXCEPTION_ERROR;
3711: END IF;
3712:
3713: --insert into dd_dummy values (3, 'Activation Done');
3714: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3733: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3734: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After call create_inv_disb_adjustment'||x_return_status);
3735: END IF;
3736:
3737: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3738: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3739: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3740: raise OKL_API.G_EXCEPTION_ERROR;
3741: END IF;
3734: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After call create_inv_disb_adjustment'||x_return_status);
3735: END IF;
3736:
3737: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3738: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3739: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3740: raise OKL_API.G_EXCEPTION_ERROR;
3741: END IF;
3742: -- Bug# 4775555: End
3735: END IF;
3736:
3737: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3738: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3739: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3740: raise OKL_API.G_EXCEPTION_ERROR;
3741: END IF;
3742: -- Bug# 4775555: End
3743:
3736:
3737: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3738: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3739: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3740: raise OKL_API.G_EXCEPTION_ERROR;
3741: END IF;
3742: -- Bug# 4775555: End
3743:
3744: --Bug# 4107330
3761: p_stream_tbl => l_stream_tbl);
3762:
3763: -- dedey,Bug#4264314
3764:
3765: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3766: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3767: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3768: RAISE Okl_Api.G_EXCEPTION_ERROR;
3769: END IF;
3762:
3763: -- dedey,Bug#4264314
3764:
3765: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3766: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3767: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3768: RAISE Okl_Api.G_EXCEPTION_ERROR;
3769: END IF;
3770:
3763: -- dedey,Bug#4264314
3764:
3765: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3766: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3767: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3768: RAISE Okl_Api.G_EXCEPTION_ERROR;
3769: END IF;
3770:
3771: -- dedey,Bug#4264314
3764:
3765: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3766: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3767: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3768: RAISE Okl_Api.G_EXCEPTION_ERROR;
3769: END IF;
3770:
3771: -- dedey,Bug#4264314
3772: END IF;
3791: x_stream_tbl => l_stream_tbl);
3792:
3793: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS; -- MGAAP 7263041
3794:
3795: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3796: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3797: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3798: RAISE Okl_Api.G_EXCEPTION_ERROR;
3799: END IF;
3792:
3793: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS; -- MGAAP 7263041
3794:
3795: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3796: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3797: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3798: RAISE Okl_Api.G_EXCEPTION_ERROR;
3799: END IF;
3800:
3793: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS; -- MGAAP 7263041
3794:
3795: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3796: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3797: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3798: RAISE Okl_Api.G_EXCEPTION_ERROR;
3799: END IF;
3800:
3801: IF(l_stream_tbl.COUNT>0) THEN
3794:
3795: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3796: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3797: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3798: RAISE Okl_Api.G_EXCEPTION_ERROR;
3799: END IF;
3800:
3801: IF(l_stream_tbl.COUNT>0) THEN
3802:
3813: p_stream_tbl => l_stream_tbl,
3814: p_representation_type => 'SECONDARY');
3815:
3816:
3817: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3818: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3819: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3820: RAISE Okl_Api.G_EXCEPTION_ERROR;
3821: END IF;
3814: p_representation_type => 'SECONDARY');
3815:
3816:
3817: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3818: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3819: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3820: RAISE Okl_Api.G_EXCEPTION_ERROR;
3821: END IF;
3822:
3815:
3816:
3817: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3818: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3819: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3820: RAISE Okl_Api.G_EXCEPTION_ERROR;
3821: END IF;
3822:
3823: END IF;
3816:
3817: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3818: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3819: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3820: RAISE Okl_Api.G_EXCEPTION_ERROR;
3821: END IF;
3822:
3823: END IF;
3824:
3849: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3850: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After call calc_inv_acc_adjustment'||x_return_status);
3851: END IF;
3852:
3853: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3854: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3855: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3856: raise OKL_API.G_EXCEPTION_ERROR;
3857: END IF;
3850: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After call calc_inv_acc_adjustment'||x_return_status);
3851: END IF;
3852:
3853: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3854: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3855: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3856: raise OKL_API.G_EXCEPTION_ERROR;
3857: END IF;
3858:
3851: END IF;
3852:
3853: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3854: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3855: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3856: raise OKL_API.G_EXCEPTION_ERROR;
3857: END IF;
3858:
3859: lx_trx_number := null; -- MGAAP 7263041
3852:
3853: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3854: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3855: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3856: raise OKL_API.G_EXCEPTION_ERROR;
3857: END IF;
3858:
3859: lx_trx_number := null; -- MGAAP 7263041
3860: IF (l_inv_stream_tbl.COUNT > 0) THEN
3867: x_trx_number => lx_trx_number,
3868: p_accrual_rec => l_inv_accrual_rec,
3869: p_stream_tbl => l_inv_stream_tbl);
3870:
3871: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3872: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3873: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3874: RAISE Okl_Api.G_EXCEPTION_ERROR;
3875: END IF;
3868: p_accrual_rec => l_inv_accrual_rec,
3869: p_stream_tbl => l_inv_stream_tbl);
3870:
3871: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3872: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3873: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3874: RAISE Okl_Api.G_EXCEPTION_ERROR;
3875: END IF;
3876: END IF;
3869: p_stream_tbl => l_inv_stream_tbl);
3870:
3871: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3872: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3873: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3874: RAISE Okl_Api.G_EXCEPTION_ERROR;
3875: END IF;
3876: END IF;
3877: -- Bug# 4775555: End
3870:
3871: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3872: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3873: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3874: RAISE Okl_Api.G_EXCEPTION_ERROR;
3875: END IF;
3876: END IF;
3877: -- Bug# 4775555: End
3878:
3902: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3903: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After call calc_inv_acc_adjustment'||x_return_status);
3904: END IF;
3905:
3906: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3907: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3908: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3909: raise OKL_API.G_EXCEPTION_ERROR;
3910: END IF;
3903: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After call calc_inv_acc_adjustment'||x_return_status);
3904: END IF;
3905:
3906: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3907: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3908: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3909: raise OKL_API.G_EXCEPTION_ERROR;
3910: END IF;
3911:
3904: END IF;
3905:
3906: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3907: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3908: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3909: raise OKL_API.G_EXCEPTION_ERROR;
3910: END IF;
3911:
3912: IF (l_inv_stream_tbl.COUNT > 0) THEN
3905:
3906: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3907: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3908: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3909: raise OKL_API.G_EXCEPTION_ERROR;
3910: END IF;
3911:
3912: IF (l_inv_stream_tbl.COUNT > 0) THEN
3913: l_inv_accrual_rec.trx_number := lx_trx_number;
3921: p_accrual_rec => l_inv_accrual_rec,
3922: p_stream_tbl => l_inv_stream_tbl,
3923: p_representation_type => 'SECONDARY');
3924:
3925: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3926: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3927: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3928: RAISE Okl_Api.G_EXCEPTION_ERROR;
3929: END IF;
3922: p_stream_tbl => l_inv_stream_tbl,
3923: p_representation_type => 'SECONDARY');
3924:
3925: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3926: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3927: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3928: RAISE Okl_Api.G_EXCEPTION_ERROR;
3929: END IF;
3930: END IF;
3923: p_representation_type => 'SECONDARY');
3924:
3925: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3926: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3927: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3928: RAISE Okl_Api.G_EXCEPTION_ERROR;
3929: END IF;
3930: END IF;
3931:
3924:
3925: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3926: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3927: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3928: RAISE Okl_Api.G_EXCEPTION_ERROR;
3929: END IF;
3930: END IF;
3931:
3932: END IF;
3948: open parent_tcn_type_csr(parent_trx_rec.source_trx_id);
3949: FETCH parent_tcn_type_csr INTO l_parent_tcn_type;
3950:
3951: IF parent_tcn_type_csr%NOTFOUND THEN
3952: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3953: CLOSE parent_tcn_type_csr;
3954: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3955: END IF;
3956: CLOSE parent_tcn_type_csr;
3950:
3951: IF parent_tcn_type_csr%NOTFOUND THEN
3952: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3953: CLOSE parent_tcn_type_csr;
3954: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3955: END IF;
3956: CLOSE parent_tcn_type_csr;
3957: end;
3958:
3969: END IF;
3970:
3971: Okl_Trx_Contracts_Pub.update_trx_contracts(
3972: p_api_version => l_api_version,
3973: p_init_msg_list => OKL_API.G_FALSE,
3974: x_return_status => x_return_status,
3975: x_msg_count => x_msg_count,
3976: x_msg_data => x_msg_data,
3977: p_tcnv_rec => l_am_tcnv_rec,
3981: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3982: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'update_trx_contracts: '||x_return_status);
3983: END IF;
3984:
3985: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3986: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3987: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3988: raise OKL_API.G_EXCEPTION_ERROR;
3989: END IF;
3982: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'update_trx_contracts: '||x_return_status);
3983: END IF;
3984:
3985: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3986: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3987: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3988: raise OKL_API.G_EXCEPTION_ERROR;
3989: END IF;
3990:
3983: END IF;
3984:
3985: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3986: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3987: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3988: raise OKL_API.G_EXCEPTION_ERROR;
3989: END IF;
3990:
3991: okl_api.set_message('OKL','AM','Term trx updated', parent_trx_rec.source_trx_id);
3984:
3985: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3986: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3987: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3988: raise OKL_API.G_EXCEPTION_ERROR;
3989: END IF;
3990:
3991: okl_api.set_message('OKL','AM','Term trx updated', parent_trx_rec.source_trx_id);
3992:
3987: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3988: raise OKL_API.G_EXCEPTION_ERROR;
3989: END IF;
3990:
3991: okl_api.set_message('OKL','AM','Term trx updated', parent_trx_rec.source_trx_id);
3992:
3993: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3994: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before Cancel PPD : '||x_return_status);
3995: END IF;
3994: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before Cancel PPD : '||x_return_status);
3995: END IF;
3996: OKL_CS_PRINCIPAL_PAYDOWN_PUB.cancel_ppd(
3997: p_api_version => 1.0,
3998: p_init_msg_list => OKL_API.G_FALSE,
3999: x_return_status => x_return_status,
4000: x_msg_count => x_msg_count,
4001: x_msg_data => x_msg_data,
4002: p_khr_id => p_chr_id
4004: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4005: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Cancel PPD : '||x_return_status);
4006: END IF;
4007:
4008: okl_api.set_message('OKL','AM','After cancel PPD Amount', x_return_status);
4009:
4010: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4011: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4012: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4006: END IF;
4007:
4008: okl_api.set_message('OKL','AM','After cancel PPD Amount', x_return_status);
4009:
4010: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4011: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4012: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4013: raise OKL_API.G_EXCEPTION_ERROR;
4014: END IF;
4007:
4008: okl_api.set_message('OKL','AM','After cancel PPD Amount', x_return_status);
4009:
4010: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4011: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4012: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4013: raise OKL_API.G_EXCEPTION_ERROR;
4014: END IF;
4015:
4008: okl_api.set_message('OKL','AM','After cancel PPD Amount', x_return_status);
4009:
4010: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4011: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4012: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4013: raise OKL_API.G_EXCEPTION_ERROR;
4014: END IF;
4015:
4016:
4009:
4010: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4011: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4012: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4013: raise OKL_API.G_EXCEPTION_ERROR;
4014: END IF;
4015:
4016:
4017: ELSIF (l_parent_tcn_type = 'ALT') THEN
4027: END IF;
4028:
4029: Okl_Trx_Contracts_Pub.update_trx_contracts(
4030: p_api_version => l_api_version,
4031: p_init_msg_list => OKL_API.G_FALSE,
4032: x_return_status => x_return_status,
4033: x_msg_count => x_msg_count,
4034: x_msg_data => x_msg_data,
4035: p_tcnv_rec => l_am_tcnv_rec,
4039: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4040: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'update_trx_contracts: '||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,'update_trx_contracts: '||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: okl_api.set_message('OKL','AM','Term trx updated', parent_trx_rec.source_trx_id);
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: okl_api.set_message('OKL','AM','Term trx updated', parent_trx_rec.source_trx_id);
4050:
4045: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4046: raise OKL_API.G_EXCEPTION_ERROR;
4047: END IF;
4048:
4049: okl_api.set_message('OKL','AM','Term trx updated', parent_trx_rec.source_trx_id);
4050:
4051: -- Bug 4556370
4052: -- Cancel Termination Quote, if any
4053: --
4055: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before Cancel Termination : '||x_return_status);
4056: END IF;
4057: OKL_AM_INTEGRATION_PVT.cancel_termination_quotes (
4058: p_api_version => 1.0,
4059: p_init_msg_list => OKL_API.G_FALSE,
4060: p_khr_id => p_chr_id,
4061: p_source_trx_id => parent_trx_rec.source_trx_id,
4062: p_source => l_parent_tcn_type, -- 'ALT'
4063: x_return_status => x_return_status,
4067: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4068: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Cancel Termination : '||x_return_status);
4069: END IF;
4070:
4071: okl_api.set_message('OKL','AM','After cancel term quote', x_return_status);
4072:
4073: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4074: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4075: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4069: END IF;
4070:
4071: okl_api.set_message('OKL','AM','After cancel term quote', x_return_status);
4072:
4073: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4074: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4075: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4076: raise OKL_API.G_EXCEPTION_ERROR;
4077: END IF;
4070:
4071: okl_api.set_message('OKL','AM','After cancel term quote', x_return_status);
4072:
4073: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4074: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4075: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4076: raise OKL_API.G_EXCEPTION_ERROR;
4077: END IF;
4078:
4071: okl_api.set_message('OKL','AM','After cancel term quote', x_return_status);
4072:
4073: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4074: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4075: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4076: raise OKL_API.G_EXCEPTION_ERROR;
4077: END IF;
4078:
4079: END IF;
4072:
4073: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4074: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4075: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4076: raise OKL_API.G_EXCEPTION_ERROR;
4077: END IF;
4078:
4079: END IF;
4080: END IF;
4090: l_mstv_tbl(1).status := 'PROCESSED';
4091:
4092: okl_mass_rebook_pvt.update_mass_rbk_contract(
4093: p_api_version => l_api_version,
4094: p_init_msg_list => OKL_API.G_FALSE,
4095: x_return_status => x_return_status,
4096: x_msg_count => x_msg_count,
4097: x_msg_data => x_msg_data,
4098: p_mstv_tbl => l_mstv_tbl,
4103: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4104: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'update_mas_rbk_contract: '||x_return_status);
4105: END IF;
4106:
4107: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4108: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4109: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4110: raise OKL_API.G_EXCEPTION_ERROR;
4111: END IF;
4104: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'update_mas_rbk_contract: '||x_return_status);
4105: END IF;
4106:
4107: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4108: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4109: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4110: raise OKL_API.G_EXCEPTION_ERROR;
4111: END IF;
4112: --insert into dd_dummy values (4, 'update mass rebook status');
4105: END IF;
4106:
4107: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4108: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4109: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4110: raise OKL_API.G_EXCEPTION_ERROR;
4111: END IF;
4112: --insert into dd_dummy values (4, 'update mass rebook status');
4113:
4106:
4107: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4108: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4109: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4110: raise OKL_API.G_EXCEPTION_ERROR;
4111: END IF;
4112: --insert into dd_dummy values (4, 'update mass rebook status');
4113:
4114: l_tcnv_rec.id := l_rbk_transaction_id;
4116:
4117:
4118: Okl_Trx_Contracts_Pub.update_trx_contracts(
4119: p_api_version => l_api_version,
4120: p_init_msg_list => OKL_API.G_FALSE,
4121: x_return_status => x_return_status,
4122: x_msg_count => x_msg_count,
4123: x_msg_data => x_msg_data,
4124: p_tcnv_rec => l_tcnv_rec,
4128: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4129: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'update_trx_contracts : '||x_return_status);
4130: END IF;
4131:
4132: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4133: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4134: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4135: raise OKL_API.G_EXCEPTION_ERROR;
4136: END IF;
4129: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'update_trx_contracts : '||x_return_status);
4130: END IF;
4131:
4132: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4133: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4134: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4135: raise OKL_API.G_EXCEPTION_ERROR;
4136: END IF;
4137:
4130: END IF;
4131:
4132: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4133: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4134: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4135: raise OKL_API.G_EXCEPTION_ERROR;
4136: END IF;
4137:
4138: --insert into dd_dummy values (5, 'update trx status');
4131:
4132: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4133: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4134: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4135: raise OKL_API.G_EXCEPTION_ERROR;
4136: END IF;
4137:
4138: --insert into dd_dummy values (5, 'update trx status');
4139: --
4146: p_chr_id => p_chr_id,
4147: p_status => 'PROCESSED'
4148: );
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: p_status => 'PROCESSED'
4148: );
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: );
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: --insert into dd_dummy values (6, 'update trx asset 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: --insert into dd_dummy values (6, 'update trx asset status');
4157:
4161: --Create AR invoice for principal amount
4162: --Call BPD API to create AR journal entries
4163: OKL_CS_PRINCIPAL_PAYDOWN_PUB.invoice_apply_ppd(
4164: p_api_version => l_api_version,
4165: p_init_msg_list => OKL_API.G_FALSE,
4166: x_return_status => x_return_status,
4167: x_msg_count => x_msg_count,
4168: x_msg_data => x_msg_data,
4169: p_khr_id => p_chr_id,
4168: x_msg_data => x_msg_data,
4169: p_khr_id => p_chr_id,
4170: p_trx_id => l_rbk_transaction_id );
4171:
4172: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4173: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4174: END IF;
4175:
4176: EXCEPTION WHEN OTHERS THEN
4169: p_khr_id => p_chr_id,
4170: p_trx_id => l_rbk_transaction_id );
4171:
4172: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4173: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4174: END IF;
4175:
4176: EXCEPTION WHEN OTHERS THEN
4177: null; -- For any errors during journal creation, we just ignore
4174: END IF;
4175:
4176: EXCEPTION WHEN OTHERS THEN
4177: null; -- For any errors during journal creation, we just ignore
4178: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4179: END;
4180: --END IF;
4181:
4182: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4178: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4179: END;
4180: --END IF;
4181:
4182: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4183: x_msg_data => x_msg_data);
4184:
4185:
4186: --insert into dd_dummy values (7, 'returning after yield');
4187: RETURN;
4188:
4189: EXCEPTION
4190: WHEN not_to_process THEN
4191: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4192:
4193: when OKL_API.G_EXCEPTION_ERROR then
4194: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4195: p_api_name => l_api_name,
4189: EXCEPTION
4190: WHEN not_to_process THEN
4191: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4192:
4193: when OKL_API.G_EXCEPTION_ERROR then
4194: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4195: p_api_name => l_api_name,
4196: p_pkg_name => G_PKG_NAME,
4197: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4190: WHEN not_to_process THEN
4191: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4192:
4193: when OKL_API.G_EXCEPTION_ERROR then
4194: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4195: p_api_name => l_api_name,
4196: p_pkg_name => G_PKG_NAME,
4197: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4198: x_msg_count => x_msg_count,
4193: when OKL_API.G_EXCEPTION_ERROR then
4194: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4195: p_api_name => l_api_name,
4196: p_pkg_name => G_PKG_NAME,
4197: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4198: x_msg_count => x_msg_count,
4199: x_msg_data => x_msg_data,
4200: p_api_type => G_API_TYPE);
4201:
4198: x_msg_count => x_msg_count,
4199: x_msg_data => x_msg_data,
4200: p_api_type => G_API_TYPE);
4201:
4202: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4203: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4204: p_api_name => l_api_name,
4205: p_pkg_name => G_PKG_NAME,
4206: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4199: x_msg_data => x_msg_data,
4200: p_api_type => G_API_TYPE);
4201:
4202: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4203: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4204: p_api_name => l_api_name,
4205: p_pkg_name => G_PKG_NAME,
4206: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4207: x_msg_count => x_msg_count,
4202: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4203: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4204: p_api_name => l_api_name,
4205: p_pkg_name => G_PKG_NAME,
4206: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4207: x_msg_count => x_msg_count,
4208: x_msg_data => x_msg_data,
4209: p_api_type => G_API_TYPE);
4210:
4211: when OTHERS then
4212: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4213: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error...');
4214: END IF;
4215: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4216: p_api_name => l_api_name,
4217: p_pkg_name => G_PKG_NAME,
4218: p_exc_name => 'OTHERS',
4219: x_msg_count => x_msg_count,
4271:
4272: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4273: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
4274: END IF;
4275: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4276:
4277: -- call START_ACTIVITY to create savepoint, check compatibility
4278: -- and initialize message list
4279: x_return_status := OKL_API.START_ACTIVITY(
4275: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4276:
4277: -- call START_ACTIVITY to create savepoint, check compatibility
4278: -- and initialize message list
4279: x_return_status := OKL_API.START_ACTIVITY(
4280: p_api_name => l_api_name,
4281: p_pkg_name => G_PKG_NAME,
4282: p_init_msg_list => p_init_msg_list,
4283: l_api_version => l_api_version,
4285: p_api_type => G_API_TYPE,
4286: x_return_status => x_return_status);
4287:
4288: -- check if activity started successfully
4289: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4290: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4291: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4292: raise OKL_API.G_EXCEPTION_ERROR;
4293: END IF;
4286: x_return_status => x_return_status);
4287:
4288: -- check if activity started successfully
4289: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4290: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4291: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4292: raise OKL_API.G_EXCEPTION_ERROR;
4293: END IF;
4294:
4287:
4288: -- check if activity started successfully
4289: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4290: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4291: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4292: raise OKL_API.G_EXCEPTION_ERROR;
4293: END IF;
4294:
4295: --
4288: -- check if activity started successfully
4289: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4290: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4291: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4292: raise OKL_API.G_EXCEPTION_ERROR;
4293: END IF;
4294:
4295: --
4296: -- Check contract for Mass Rebook
4319: x_msg_data => x_msg_data,
4320: p_chr_id => p_chr_id
4321: );
4322:
4323: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4324: raise after_yield_failed;
4325: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4326: raise after_yield_failed;
4327: END IF;
4321: );
4322:
4323: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4324: raise after_yield_failed;
4325: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4326: raise after_yield_failed;
4327: END IF;
4328:
4329: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4325: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4326: raise after_yield_failed;
4327: END IF;
4328:
4329: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4330: x_msg_data => x_msg_data);
4331:
4332:
4333: --insert into dd_dummy values (7, 'returning after yield');
4334: RETURN;
4335:
4336: EXCEPTION
4337: WHEN not_to_process THEN
4338: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4339:
4340: WHEN after_yield_failed THEN
4341:
4342: -- Bug# 5038395
4342: -- Bug# 5038395
4343: -- Update status of Submit Contract task to Error
4344: OKL_BOOK_CONTROLLER_PVT.update_book_controller_trx(
4345: p_api_version => p_api_version,
4346: p_init_msg_list => OKL_API.G_FALSE, --To retain message stack
4347: x_return_status => x_return_status,
4348: x_msg_count => x_msg_count,
4349: x_msg_data => x_msg_data,
4350: p_khr_id => p_chr_id ,
4350: p_khr_id => p_chr_id ,
4351: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_SUBMIT_CONTRACT ,
4352: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_ERROR);
4353:
4354: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4355:
4356: when OKL_API.G_EXCEPTION_ERROR then
4357: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4358: p_api_name => l_api_name,
4352: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_ERROR);
4353:
4354: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4355:
4356: when OKL_API.G_EXCEPTION_ERROR then
4357: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4358: p_api_name => l_api_name,
4359: p_pkg_name => G_PKG_NAME,
4360: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4353:
4354: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4355:
4356: when OKL_API.G_EXCEPTION_ERROR then
4357: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4358: p_api_name => l_api_name,
4359: p_pkg_name => G_PKG_NAME,
4360: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4361: x_msg_count => x_msg_count,
4356: when OKL_API.G_EXCEPTION_ERROR then
4357: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4358: p_api_name => l_api_name,
4359: p_pkg_name => G_PKG_NAME,
4360: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4361: x_msg_count => x_msg_count,
4362: x_msg_data => x_msg_data,
4363: p_api_type => G_API_TYPE);
4364:
4361: x_msg_count => x_msg_count,
4362: x_msg_data => x_msg_data,
4363: p_api_type => G_API_TYPE);
4364:
4365: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4366: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4367: p_api_name => l_api_name,
4368: p_pkg_name => G_PKG_NAME,
4369: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4362: x_msg_data => x_msg_data,
4363: p_api_type => G_API_TYPE);
4364:
4365: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4366: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4367: p_api_name => l_api_name,
4368: p_pkg_name => G_PKG_NAME,
4369: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4370: x_msg_count => x_msg_count,
4365: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4366: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4367: p_api_name => l_api_name,
4368: p_pkg_name => G_PKG_NAME,
4369: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4370: x_msg_count => x_msg_count,
4371: x_msg_data => x_msg_data,
4372: p_api_type => G_API_TYPE);
4373:
4374: when OTHERS then
4375: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4376: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error...');
4377: END IF;
4378: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4379: p_api_name => l_api_name,
4380: p_pkg_name => G_PKG_NAME,
4381: p_exc_name => 'OTHERS',
4382: x_msg_count => x_msg_count,
4420: IF (G_DEBUG_ENABLED = 'Y') THEN
4421: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4422: END IF;
4423:
4424: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4425: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4426: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
4427: END IF;
4428:
4438: l_mstv_tbl(1).status := 'CANCELED';
4439:
4440: okl_mass_rebook_pvt.update_mass_rbk_contract(
4441: p_api_version => 1.0,
4442: p_init_msg_list => OKL_API.G_FALSE,
4443: x_return_status => x_return_status,
4444: x_msg_count => x_msg_count,
4445: x_msg_data => x_msg_data,
4446: p_mstv_tbl => l_mstv_tbl,
4446: p_mstv_tbl => l_mstv_tbl,
4447: x_mstv_tbl => x_mstv_tbl
4448: );
4449:
4450: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4451: RAISE cancel_failed;
4452: END IF;
4453: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4454: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After mass rebook trx update: '||x_return_status);
4458: l_tcnv_rec.tsu_code := 'CANCELED';
4459:
4460: Okl_Trx_Contracts_Pub.update_trx_contracts(
4461: p_api_version => 1.0,
4462: p_init_msg_list => OKL_API.G_FALSE,
4463: x_return_status => x_return_status,
4464: x_msg_count => x_msg_count,
4465: x_msg_data => x_msg_data,
4466: p_tcnv_rec => l_tcnv_rec,
4466: p_tcnv_rec => l_tcnv_rec,
4467: x_tcnv_rec => x_tcnv_rec
4468: );
4469:
4470: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4471: RAISE cancel_failed;
4472: END IF;
4473:
4474: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4479:
4480: EXCEPTION
4481:
4482: when cancel_failed then
4483: x_return_status := OKL_API.G_RET_STS_ERROR;
4484:
4485: when OTHERS then
4486: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4487: p_api_name => l_api_name,
4482: when cancel_failed then
4483: x_return_status := OKL_API.G_RET_STS_ERROR;
4484:
4485: when OTHERS then
4486: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4487: p_api_name => l_api_name,
4488: p_pkg_name => G_PKG_NAME,
4489: p_exc_name => 'OTHERS',
4490: x_msg_count => x_msg_count,
4581: END IF;
4582:
4583: -- call START_ACTIVITY to create savepoint, check compatibility
4584: -- and initialize message list
4585: x_return_status := OKL_API.START_ACTIVITY(
4586: p_api_name => l_api_name,
4587: p_pkg_name => G_PKG_NAME,
4588: p_init_msg_list => p_init_msg_list,
4589: l_api_version => l_api_version,
4591: p_api_type => G_API_TYPE,
4592: x_return_status => x_return_status);
4593:
4594: -- check if activity started successfully
4595: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4596: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4597: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4598: raise OKL_API.G_EXCEPTION_ERROR;
4599: END IF;
4592: x_return_status => x_return_status);
4593:
4594: -- check if activity started successfully
4595: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4596: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4597: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4598: raise OKL_API.G_EXCEPTION_ERROR;
4599: END IF;
4600:
4593:
4594: -- check if activity started successfully
4595: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4596: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4597: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4598: raise OKL_API.G_EXCEPTION_ERROR;
4599: END IF;
4600:
4601: --
4594: -- check if activity started successfully
4595: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4596: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4597: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4598: raise OKL_API.G_EXCEPTION_ERROR;
4599: END IF;
4600:
4601: --
4602: -- Get SET_VALUE for ALl contracts to be processed
4625: l_adjusted_rate := TO_NUMBER(rbk_set_rec.set_value);
4626: ELSIF (rbk_set_rec.criteria_code = 'BOOK_TYPE_CODE') THEN
4627: l_book_type_code := rbk_set_rec.criteria_value1; -- For selection only, do not Set value
4628: ELSE
4629: okl_api.set_message(
4630: G_APP_NAME,
4631: G_INVALID_SET_VALUE,
4632: 'CRIT_CODE',
4633: rbk_set_rec.criteria_code
4631: G_INVALID_SET_VALUE,
4632: 'CRIT_CODE',
4633: rbk_set_rec.criteria_code
4634: );
4635: x_return_status := OKL_API.G_RET_STS_ERROR;
4636: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4637: END IF;
4638:
4639: END LOOP;
4632: 'CRIT_CODE',
4633: rbk_set_rec.criteria_code
4634: );
4635: x_return_status := OKL_API.G_RET_STS_ERROR;
4636: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4637: END IF;
4638:
4639: END LOOP;
4640:
4638:
4639: END LOOP;
4640:
4641: IF (l_set_count = 0) THEN
4642: okl_api.set_message(
4643: G_APP_NAME,
4644: G_NO_SET_VALUE,
4645: 'REQ_NAME',
4646: P_request_name
4644: G_NO_SET_VALUE,
4645: 'REQ_NAME',
4646: P_request_name
4647: );
4648: x_return_status := OKL_API.G_RET_STS_ERROR;
4649: RAISE OKL_API.G_EXCEPTION_ERROR;
4650: END IF;
4651:
4652: l_contract_count := 0;
4645: 'REQ_NAME',
4646: P_request_name
4647: );
4648: x_return_status := OKL_API.G_RET_STS_ERROR;
4649: RAISE OKL_API.G_EXCEPTION_ERROR;
4650: END IF;
4651:
4652: l_contract_count := 0;
4653: l_line_count := 0;
4664: x_msg_data => x_msg_data,
4665: p_khr_id => rbk_rec.khr_id,
4666: x_pdt_parameter_rec => l_pdt_params_rec);
4667:
4668: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4669: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4670: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4671: RAISE OKL_API.G_EXCEPTION_ERROR;
4672: END IF;
4665: p_khr_id => rbk_rec.khr_id,
4666: x_pdt_parameter_rec => l_pdt_params_rec);
4667:
4668: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4669: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4670: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4671: RAISE OKL_API.G_EXCEPTION_ERROR;
4672: END IF;
4673: -- Bug#4542290 - smadhava - 26-AUG-2005 - Added - End
4666: x_pdt_parameter_rec => l_pdt_params_rec);
4667:
4668: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4669: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4670: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4671: RAISE OKL_API.G_EXCEPTION_ERROR;
4672: END IF;
4673: -- Bug#4542290 - smadhava - 26-AUG-2005 - Added - End
4674:
4667:
4668: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4669: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4670: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4671: RAISE OKL_API.G_EXCEPTION_ERROR;
4672: END IF;
4673: -- Bug#4542290 - smadhava - 26-AUG-2005 - Added - End
4674:
4675: l_transaction_date := rbk_rec.transaction_date;
4706: p_residual_value => NULL, -- Not for On-Line Rebook
4707: p_strm_lalevl_tbl => l_strm_lalevl_tbl, -- Not for On-Line Rebook
4708: p_transaction_date => l_transaction_date
4709: );
4710: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
4711: raise OKL_API.G_EXCEPTION_ERROR;
4712: END IF;
4713: -- Bug#4542290 - smadhava - 26-AUG-2005 - Added - Start
4714: -- Updating the Last interest calculation date to the rebook
4707: p_strm_lalevl_tbl => l_strm_lalevl_tbl, -- Not for On-Line Rebook
4708: p_transaction_date => l_transaction_date
4709: );
4710: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
4711: raise OKL_API.G_EXCEPTION_ERROR;
4712: END IF;
4713: -- Bug#4542290 - smadhava - 26-AUG-2005 - Added - Start
4714: -- Updating the Last interest calculation date to the rebook
4715: -- transaction date if the Interest Calc. Basis=REAMORT and
4731: , x_msg_data => x_msg_data
4732: , p_khrv_rec => lp_khrv_rec
4733: , x_khrv_rec => lx_khrv_rec);
4734:
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: , p_khrv_rec => lp_khrv_rec
4733: , x_khrv_rec => lx_khrv_rec);
4734:
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: END IF; -- end of check for ICB and RRM
4733: , x_khrv_rec => lx_khrv_rec);
4734:
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: END IF; -- end of check for ICB and RRM
4741: -- Bug#4542290 - smadhava - 26-AUG-2005 - Added - End
4734:
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: END IF; -- end of check for ICB and RRM
4741: -- Bug#4542290 - smadhava - 26-AUG-2005 - Added - End
4742:
4748: END IF;
4749: END LOOP;
4750:
4751: IF (l_contract_count = 0 ) THEN
4752: okl_api.set_message(
4753: G_APP_NAME,
4754: G_NO_SEL_CONTRACT,
4755: 'REQ_NAME',
4756: p_request_name
4754: G_NO_SEL_CONTRACT,
4755: 'REQ_NAME',
4756: p_request_name
4757: );
4758: RAISE OKL_API.G_EXCEPTION_ERROR;
4759: END IF;
4760:
4761: -- Final Call for last contract
4762: rebook_contract(
4777: p_residual_value => NULL, -- Not for On-Line Rebook
4778: p_strm_lalevl_tbl => l_strm_lalevl_tbl, -- Not for On-Line Rebook
4779: p_transaction_date => l_transaction_date
4780: );
4781: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
4782: raise OKL_API.G_EXCEPTION_ERROR;
4783: END IF;
4784: -- Bug#4542290 - smadhava - 26-AUG-2005 - Added - Start
4785: -- Updating the Last interest calculation date to the rebook
4778: p_strm_lalevl_tbl => l_strm_lalevl_tbl, -- Not for On-Line Rebook
4779: p_transaction_date => l_transaction_date
4780: );
4781: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
4782: raise OKL_API.G_EXCEPTION_ERROR;
4783: END IF;
4784: -- Bug#4542290 - smadhava - 26-AUG-2005 - Added - Start
4785: -- Updating the Last interest calculation date to the rebook
4786: -- transaction date if the Interest Calc. Basis=REAMORT and
4802: , x_msg_data => x_msg_data
4803: , p_khrv_rec => lp_khrv_rec
4804: , x_khrv_rec => lx_khrv_rec);
4805:
4806: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4807: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4808: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4809: RAISE OKL_API.G_EXCEPTION_ERROR;
4810: END IF;
4803: , p_khrv_rec => lp_khrv_rec
4804: , x_khrv_rec => lx_khrv_rec);
4805:
4806: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4807: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4808: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4809: RAISE OKL_API.G_EXCEPTION_ERROR;
4810: END IF;
4811: END IF; -- end of check for ICB and RRM
4804: , x_khrv_rec => lx_khrv_rec);
4805:
4806: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4807: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4808: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4809: RAISE OKL_API.G_EXCEPTION_ERROR;
4810: END IF;
4811: END IF; -- end of check for ICB and RRM
4812: -- Bug#4542290 - smadhava - 26-AUG-2005 - Added - End
4805:
4806: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4807: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4808: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4809: RAISE OKL_API.G_EXCEPTION_ERROR;
4810: END IF;
4811: END IF; -- end of check for ICB and RRM
4812: -- Bug#4542290 - smadhava - 26-AUG-2005 - Added - End
4813:
4810: END IF;
4811: END IF; -- end of check for ICB and RRM
4812: -- Bug#4542290 - smadhava - 26-AUG-2005 - Added - End
4813:
4814: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4815: x_msg_data => x_msg_data);
4816:
4817: RETURN;
4818:
4816:
4817: RETURN;
4818:
4819: EXCEPTION
4820: when OKL_API.G_EXCEPTION_ERROR then
4821: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4822: p_api_name => l_api_name,
4823: p_pkg_name => G_PKG_NAME,
4824: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4817: RETURN;
4818:
4819: EXCEPTION
4820: when OKL_API.G_EXCEPTION_ERROR then
4821: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4822: p_api_name => l_api_name,
4823: p_pkg_name => G_PKG_NAME,
4824: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4825: x_msg_count => x_msg_count,
4820: when OKL_API.G_EXCEPTION_ERROR then
4821: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4822: p_api_name => l_api_name,
4823: p_pkg_name => G_PKG_NAME,
4824: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4825: x_msg_count => x_msg_count,
4826: x_msg_data => x_msg_data,
4827: p_api_type => G_API_TYPE);
4828:
4825: x_msg_count => x_msg_count,
4826: x_msg_data => x_msg_data,
4827: p_api_type => G_API_TYPE);
4828:
4829: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4830: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4831: p_api_name => l_api_name,
4832: p_pkg_name => G_PKG_NAME,
4833: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4826: x_msg_data => x_msg_data,
4827: p_api_type => G_API_TYPE);
4828:
4829: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4830: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4831: p_api_name => l_api_name,
4832: p_pkg_name => G_PKG_NAME,
4833: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4834: x_msg_count => x_msg_count,
4829: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4830: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4831: p_api_name => l_api_name,
4832: p_pkg_name => G_PKG_NAME,
4833: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4834: x_msg_count => x_msg_count,
4835: x_msg_data => x_msg_data,
4836: p_api_type => G_API_TYPE);
4837:
4835: x_msg_data => x_msg_data,
4836: p_api_type => G_API_TYPE);
4837:
4838: when OTHERS then
4839: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4840: p_api_name => l_api_name,
4841: p_pkg_name => G_PKG_NAME,
4842: p_exc_name => 'OTHERS',
4843: x_msg_count => x_msg_count,
4888: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
4889: END IF;
4890: -- call START_ACTIVITY to create savepoint, check compatibility
4891: -- and initialize message list
4892: x_return_status := OKL_API.START_ACTIVITY(
4893: p_api_name => l_api_name,
4894: p_pkg_name => G_PKG_NAME,
4895: p_init_msg_list => p_init_msg_list,
4896: l_api_version => l_api_version,
4898: p_api_type => G_API_TYPE,
4899: x_return_status => x_return_status);
4900:
4901: -- check if activity started successfully
4902: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4903: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4904: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4905: raise OKL_API.G_EXCEPTION_ERROR;
4906: END IF;
4899: x_return_status => x_return_status);
4900:
4901: -- check if activity started successfully
4902: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4903: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4904: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4905: raise OKL_API.G_EXCEPTION_ERROR;
4906: END IF;
4907:
4900:
4901: -- check if activity started successfully
4902: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4903: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4904: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4905: raise OKL_API.G_EXCEPTION_ERROR;
4906: END IF;
4907:
4908: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4901: -- check if activity started successfully
4902: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4903: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4904: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4905: raise OKL_API.G_EXCEPTION_ERROR;
4906: END IF;
4907:
4908: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4909: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Count: '||p_rbk_tbl.COUNT);
4945: p_adjusted_rate => p_adjusted_rate,
4946: p_residual_value => p_residual_value,
4947: p_strm_lalevl_tbl => p_strm_lalevl_tbl
4948: );
4949: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
4950: raise OKL_API.G_EXCEPTION_ERROR;
4951: END IF;
4952: l_line_count := 1;
4953: l_kle_tbl(l_line_count).id := p_rbk_tbl(i).kle_id;
4946: p_residual_value => p_residual_value,
4947: p_strm_lalevl_tbl => p_strm_lalevl_tbl
4948: );
4949: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
4950: raise OKL_API.G_EXCEPTION_ERROR;
4951: END IF;
4952: l_line_count := 1;
4953: l_kle_tbl(l_line_count).id := p_rbk_tbl(i).kle_id;
4954: l_contract_id := p_rbk_tbl(i).khr_id;
4976:
4977: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4978: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rebook Contract status: '||x_return_status);
4979: END IF;
4980: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4981: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4982: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4983: raise OKL_API.G_EXCEPTION_ERROR;
4984: END IF;
4977: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4978: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rebook Contract status: '||x_return_status);
4979: END IF;
4980: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4981: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4982: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4983: raise OKL_API.G_EXCEPTION_ERROR;
4984: END IF;
4985:
4978: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rebook Contract status: '||x_return_status);
4979: END IF;
4980: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4981: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4982: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4983: raise OKL_API.G_EXCEPTION_ERROR;
4984: END IF;
4985:
4986: ELSE
4979: END IF;
4980: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4981: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4982: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4983: raise OKL_API.G_EXCEPTION_ERROR;
4984: END IF;
4985:
4986: ELSE
4987: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4986: ELSE
4987: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4988: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Nothing to Process...');
4989: END IF;
4990: x_return_status := OKL_API.G_RET_STS_ERROR;
4991: RAISE OKL_API.G_EXCEPTION_ERROR;
4992: END IF;
4993:
4994: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4987: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4988: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Nothing to Process...');
4989: END IF;
4990: x_return_status := OKL_API.G_RET_STS_ERROR;
4991: RAISE OKL_API.G_EXCEPTION_ERROR;
4992: END IF;
4993:
4994: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4995: x_msg_data => x_msg_data);
4990: x_return_status := OKL_API.G_RET_STS_ERROR;
4991: RAISE OKL_API.G_EXCEPTION_ERROR;
4992: END IF;
4993:
4994: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4995: x_msg_data => x_msg_data);
4996:
4997:
4998: RETURN;
4997:
4998: RETURN;
4999:
5000: EXCEPTION
5001: when OKL_API.G_EXCEPTION_ERROR then
5002: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5003: p_api_name => l_api_name,
5004: p_pkg_name => G_PKG_NAME,
5005: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4998: RETURN;
4999:
5000: EXCEPTION
5001: when OKL_API.G_EXCEPTION_ERROR then
5002: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5003: p_api_name => l_api_name,
5004: p_pkg_name => G_PKG_NAME,
5005: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5006: x_msg_count => x_msg_count,
5001: when OKL_API.G_EXCEPTION_ERROR then
5002: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5003: p_api_name => l_api_name,
5004: p_pkg_name => G_PKG_NAME,
5005: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5006: x_msg_count => x_msg_count,
5007: x_msg_data => x_msg_data,
5008: p_api_type => G_API_TYPE);
5009:
5006: x_msg_count => x_msg_count,
5007: x_msg_data => x_msg_data,
5008: p_api_type => G_API_TYPE);
5009:
5010: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5011: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5012: p_api_name => l_api_name,
5013: p_pkg_name => G_PKG_NAME,
5014: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5007: x_msg_data => x_msg_data,
5008: p_api_type => G_API_TYPE);
5009:
5010: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5011: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5012: p_api_name => l_api_name,
5013: p_pkg_name => G_PKG_NAME,
5014: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5015: x_msg_count => x_msg_count,
5010: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5011: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5012: p_api_name => l_api_name,
5013: p_pkg_name => G_PKG_NAME,
5014: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5015: x_msg_count => x_msg_count,
5016: x_msg_data => x_msg_data,
5017: p_api_type => G_API_TYPE);
5018:
5016: x_msg_data => x_msg_data,
5017: p_api_type => G_API_TYPE);
5018:
5019: when OTHERS then
5020: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5021: p_api_name => l_api_name,
5022: p_pkg_name => G_PKG_NAME,
5023: p_exc_name => 'OTHERS',
5024: x_msg_count => x_msg_count,
5072: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
5073: END IF;
5074: -- call START_ACTIVITY to create savepoint, check compatibility
5075: -- and initialize message list
5076: x_return_status := OKL_API.START_ACTIVITY(
5077: p_api_name => l_api_name,
5078: p_pkg_name => G_PKG_NAME,
5079: p_init_msg_list => p_init_msg_list,
5080: l_api_version => l_api_version,
5082: p_api_type => G_API_TYPE,
5083: x_return_status => x_return_status);
5084:
5085: -- check if activity started successfully
5086: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5087: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5088: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5089: raise OKL_API.G_EXCEPTION_ERROR;
5090: END IF;
5083: x_return_status => x_return_status);
5084:
5085: -- check if activity started successfully
5086: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5087: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5088: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5089: raise OKL_API.G_EXCEPTION_ERROR;
5090: END IF;
5091:
5084:
5085: -- check if activity started successfully
5086: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5087: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5088: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5089: raise OKL_API.G_EXCEPTION_ERROR;
5090: END IF;
5091:
5092:
5085: -- check if activity started successfully
5086: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5087: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5088: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5089: raise OKL_API.G_EXCEPTION_ERROR;
5090: END IF;
5091:
5092:
5093: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5131: p_residual_value => p_residual_value,
5132: p_strm_lalevl_tbl => p_strm_lalevl_tbl
5133: );
5134:
5135: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5136: raise OKL_API.G_EXCEPTION_ERROR;
5137: END IF;
5138:
5139: x_stream_trx_tbl(l_contract_count).chr_id := l_contract_id;
5132: p_strm_lalevl_tbl => p_strm_lalevl_tbl
5133: );
5134:
5135: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5136: raise OKL_API.G_EXCEPTION_ERROR;
5137: END IF;
5138:
5139: x_stream_trx_tbl(l_contract_count).chr_id := l_contract_id;
5140: x_stream_trx_tbl(l_contract_count).trx_number := g_stream_trx_number;
5167:
5168: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5169: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rebook Contract status: '||x_return_status);
5170: END IF;
5171: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5172: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5173: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5174: raise OKL_API.G_EXCEPTION_ERROR;
5175: END IF;
5168: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5169: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rebook Contract status: '||x_return_status);
5170: END IF;
5171: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5172: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5173: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5174: raise OKL_API.G_EXCEPTION_ERROR;
5175: END IF;
5176:
5169: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rebook Contract status: '||x_return_status);
5170: END IF;
5171: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5172: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5173: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5174: raise OKL_API.G_EXCEPTION_ERROR;
5175: END IF;
5176:
5177: --l_contract_count := l_contract_count + 1;
5170: END IF;
5171: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5172: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5173: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5174: raise OKL_API.G_EXCEPTION_ERROR;
5175: END IF;
5176:
5177: --l_contract_count := l_contract_count + 1;
5178: x_stream_trx_tbl(l_contract_count).chr_id := l_contract_id;
5181: ELSE
5182: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5183: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Nothing to Process...');
5184: END IF;
5185: x_return_status := OKL_API.G_RET_STS_ERROR;
5186: RAISE OKL_API.G_EXCEPTION_ERROR;
5187: END IF;
5188:
5189: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5182: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5183: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Nothing to Process...');
5184: END IF;
5185: x_return_status := OKL_API.G_RET_STS_ERROR;
5186: RAISE OKL_API.G_EXCEPTION_ERROR;
5187: END IF;
5188:
5189: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5190: x_msg_data => x_msg_data);
5185: x_return_status := OKL_API.G_RET_STS_ERROR;
5186: RAISE OKL_API.G_EXCEPTION_ERROR;
5187: END IF;
5188:
5189: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5190: x_msg_data => x_msg_data);
5191:
5192:
5193: RETURN;
5192:
5193: RETURN;
5194:
5195: EXCEPTION
5196: when OKL_API.G_EXCEPTION_ERROR then
5197: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5198: p_api_name => l_api_name,
5199: p_pkg_name => G_PKG_NAME,
5200: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5193: RETURN;
5194:
5195: EXCEPTION
5196: when OKL_API.G_EXCEPTION_ERROR then
5197: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5198: p_api_name => l_api_name,
5199: p_pkg_name => G_PKG_NAME,
5200: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5201: x_msg_count => x_msg_count,
5196: when OKL_API.G_EXCEPTION_ERROR then
5197: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5198: p_api_name => l_api_name,
5199: p_pkg_name => G_PKG_NAME,
5200: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5201: x_msg_count => x_msg_count,
5202: x_msg_data => x_msg_data,
5203: p_api_type => G_API_TYPE);
5204:
5201: x_msg_count => x_msg_count,
5202: x_msg_data => x_msg_data,
5203: p_api_type => G_API_TYPE);
5204:
5205: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5206: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5207: p_api_name => l_api_name,
5208: p_pkg_name => G_PKG_NAME,
5209: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5202: x_msg_data => x_msg_data,
5203: p_api_type => G_API_TYPE);
5204:
5205: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5206: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5207: p_api_name => l_api_name,
5208: p_pkg_name => G_PKG_NAME,
5209: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5210: x_msg_count => x_msg_count,
5205: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5206: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5207: p_api_name => l_api_name,
5208: p_pkg_name => G_PKG_NAME,
5209: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5210: x_msg_count => x_msg_count,
5211: x_msg_data => x_msg_data,
5212: p_api_type => G_API_TYPE);
5213:
5211: x_msg_data => x_msg_data,
5212: p_api_type => G_API_TYPE);
5213:
5214: when OTHERS then
5215: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5216: p_api_name => l_api_name,
5217: p_pkg_name => G_PKG_NAME,
5218: p_exc_name => 'OTHERS',
5219: x_msg_count => x_msg_count,
5271: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
5272: END IF;
5273: -- call START_ACTIVITY to create savepoint, check compatibility
5274: -- and initialize message list
5275: x_return_status := OKL_API.START_ACTIVITY(
5276: p_api_name => l_api_name,
5277: p_pkg_name => G_PKG_NAME,
5278: p_init_msg_list => p_init_msg_list,
5279: l_api_version => l_api_version,
5281: p_api_type => G_API_TYPE,
5282: x_return_status => x_return_status);
5283:
5284: -- check if activity started successfully
5285: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5286: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5287: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5288: raise OKL_API.G_EXCEPTION_ERROR;
5289: END IF;
5282: x_return_status => x_return_status);
5283:
5284: -- check if activity started successfully
5285: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5286: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5287: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5288: raise OKL_API.G_EXCEPTION_ERROR;
5289: END IF;
5290:
5283:
5284: -- check if activity started successfully
5285: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5286: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5287: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5288: raise OKL_API.G_EXCEPTION_ERROR;
5289: END IF;
5290:
5291:
5284: -- check if activity started successfully
5285: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5286: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5287: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5288: raise OKL_API.G_EXCEPTION_ERROR;
5289: END IF;
5290:
5291:
5292: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5331: p_strm_lalevl_tbl => p_strm_lalevl_tbl,
5332: p_transaction_date => p_transaction_date
5333: );
5334:
5335: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5336: raise OKL_API.G_EXCEPTION_ERROR;
5337: END IF;
5338:
5339: x_stream_trx_tbl(l_contract_count).chr_id := l_contract_id;
5332: p_transaction_date => p_transaction_date
5333: );
5334:
5335: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5336: raise OKL_API.G_EXCEPTION_ERROR;
5337: END IF;
5338:
5339: x_stream_trx_tbl(l_contract_count).chr_id := l_contract_id;
5340: x_stream_trx_tbl(l_contract_count).trx_number := g_stream_trx_number;
5368:
5369: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5370: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rebook Contract status: '||x_return_status);
5371: END IF;
5372: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5373: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5374: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5375: raise OKL_API.G_EXCEPTION_ERROR;
5376: END IF;
5369: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5370: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rebook Contract status: '||x_return_status);
5371: END IF;
5372: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5373: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5374: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5375: raise OKL_API.G_EXCEPTION_ERROR;
5376: END IF;
5377:
5370: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'rebook Contract status: '||x_return_status);
5371: END IF;
5372: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5373: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5374: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5375: raise OKL_API.G_EXCEPTION_ERROR;
5376: END IF;
5377:
5378: --l_contract_count := l_contract_count + 1;
5371: END IF;
5372: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5373: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5374: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5375: raise OKL_API.G_EXCEPTION_ERROR;
5376: END IF;
5377:
5378: --l_contract_count := l_contract_count + 1;
5379: x_stream_trx_tbl(l_contract_count).chr_id := l_contract_id;
5382: ELSE
5383: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5384: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Nothing to Process...');
5385: END IF;
5386: x_return_status := OKL_API.G_RET_STS_ERROR;
5387: RAISE OKL_API.G_EXCEPTION_ERROR;
5388: END IF;
5389:
5390: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5383: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5384: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Nothing to Process...');
5385: END IF;
5386: x_return_status := OKL_API.G_RET_STS_ERROR;
5387: RAISE OKL_API.G_EXCEPTION_ERROR;
5388: END IF;
5389:
5390: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5391: x_msg_data => x_msg_data);
5386: x_return_status := OKL_API.G_RET_STS_ERROR;
5387: RAISE OKL_API.G_EXCEPTION_ERROR;
5388: END IF;
5389:
5390: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5391: x_msg_data => x_msg_data);
5392:
5393:
5394: RETURN;
5393:
5394: RETURN;
5395:
5396: EXCEPTION
5397: when OKL_API.G_EXCEPTION_ERROR then
5398: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5399: p_api_name => l_api_name,
5400: p_pkg_name => G_PKG_NAME,
5401: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5394: RETURN;
5395:
5396: EXCEPTION
5397: when OKL_API.G_EXCEPTION_ERROR then
5398: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5399: p_api_name => l_api_name,
5400: p_pkg_name => G_PKG_NAME,
5401: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5402: x_msg_count => x_msg_count,
5397: when OKL_API.G_EXCEPTION_ERROR then
5398: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5399: p_api_name => l_api_name,
5400: p_pkg_name => G_PKG_NAME,
5401: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5402: x_msg_count => x_msg_count,
5403: x_msg_data => x_msg_data,
5404: p_api_type => G_API_TYPE);
5405:
5402: x_msg_count => x_msg_count,
5403: x_msg_data => x_msg_data,
5404: p_api_type => G_API_TYPE);
5405:
5406: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5407: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5408: p_api_name => l_api_name,
5409: p_pkg_name => G_PKG_NAME,
5410: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5403: x_msg_data => x_msg_data,
5404: p_api_type => G_API_TYPE);
5405:
5406: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5407: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5408: p_api_name => l_api_name,
5409: p_pkg_name => G_PKG_NAME,
5410: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5411: x_msg_count => x_msg_count,
5406: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5407: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5408: p_api_name => l_api_name,
5409: p_pkg_name => G_PKG_NAME,
5410: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5411: x_msg_count => x_msg_count,
5412: x_msg_data => x_msg_data,
5413: p_api_type => G_API_TYPE);
5414:
5412: x_msg_data => x_msg_data,
5413: p_api_type => G_API_TYPE);
5414:
5415: when OTHERS then
5416: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5417: p_api_name => l_api_name,
5418: p_pkg_name => G_PKG_NAME,
5419: p_exc_name => 'OTHERS',
5420: x_msg_count => x_msg_count,
5475: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
5476: END IF;
5477: -- call START_ACTIVITY to create savepoint, check compatibility
5478: -- and initialize message list
5479: x_return_status := OKL_API.START_ACTIVITY(
5480: p_api_name => l_api_name,
5481: p_pkg_name => G_PKG_NAME,
5482: p_init_msg_list => p_init_msg_list,
5483: l_api_version => l_api_version,
5485: p_api_type => G_API_TYPE,
5486: x_return_status => x_return_status);
5487:
5488: -- check if activity started successfully
5489: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5490: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5491: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5492: raise OKL_API.G_EXCEPTION_ERROR;
5493: END IF;
5486: x_return_status => x_return_status);
5487:
5488: -- check if activity started successfully
5489: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5490: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5491: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5492: raise OKL_API.G_EXCEPTION_ERROR;
5493: END IF;
5494:
5487:
5488: -- check if activity started successfully
5489: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5490: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5491: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5492: raise OKL_API.G_EXCEPTION_ERROR;
5493: END IF;
5494:
5495: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5488: -- check if activity started successfully
5489: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5490: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5491: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5492: raise OKL_API.G_EXCEPTION_ERROR;
5493: END IF;
5494:
5495: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5496: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->Count: '||p_rbk_tbl.COUNT);
5527:
5528: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5529: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After cancel_transaction: '||x_return_status);
5530: END IF;
5531: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5532: raise OKL_API.G_EXCEPTION_ERROR;
5533: END IF;
5534:
5535: G_TERMINATION_TRX_ID := p_source_trx_id;
5528: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5529: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After cancel_transaction: '||x_return_status);
5530: END IF;
5531: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5532: raise OKL_API.G_EXCEPTION_ERROR;
5533: END IF;
5534:
5535: G_TERMINATION_TRX_ID := p_source_trx_id;
5536: G_TERMINATION_TRX_TYPE := p_source_trx_type;
5535: G_TERMINATION_TRX_ID := p_source_trx_id;
5536: G_TERMINATION_TRX_TYPE := p_source_trx_type;
5537: G_MASS_RBK_TRX_ID := NULL;
5538:
5539: okl_api.set_message('OKL', 'AM', 'Before Term Trx ID: ', G_TERMINATION_TRX_ID);
5540:
5541: -- Call Rebook_Contract
5542: rebook_contract(
5543: x_return_status => x_return_status,
5559: );
5560: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5561: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After rebook_contract: '||x_return_status);
5562: END IF;
5563: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5564: raise OKL_API.G_EXCEPTION_ERROR;
5565: END IF;
5566:
5567: x_mass_rebook_trx_id := G_MASS_RBK_TRX_ID;
5560: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5561: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After rebook_contract: '||x_return_status);
5562: END IF;
5563: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5564: raise OKL_API.G_EXCEPTION_ERROR;
5565: END IF;
5566:
5567: x_mass_rebook_trx_id := G_MASS_RBK_TRX_ID;
5568:
5585:
5586: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5587: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After cancel_transaction: '||x_return_status);
5588: END IF;
5589: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5590: raise OKL_API.G_EXCEPTION_ERROR;
5591: END IF;
5592:
5593:
5586: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5587: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After cancel_transaction: '||x_return_status);
5588: END IF;
5589: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5590: raise OKL_API.G_EXCEPTION_ERROR;
5591: END IF;
5592:
5593:
5594: G_TERMINATION_TRX_ID := p_source_trx_id;
5594: G_TERMINATION_TRX_ID := p_source_trx_id;
5595: G_TERMINATION_TRX_TYPE := p_source_trx_type;
5596: G_MASS_RBK_TRX_ID := NULL;
5597:
5598: okl_api.set_message('OKL', 'AM', 'Before Term Trx ID: ', G_TERMINATION_TRX_ID);
5599:
5600: rebook_contract(
5601: x_return_status => x_return_status,
5602: x_msg_count => x_msg_count,
5618:
5619: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5620: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->rebook Contract status: '||x_return_status);
5621: END IF;
5622: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5623: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5624: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5625: raise OKL_API.G_EXCEPTION_ERROR;
5626: END IF;
5619: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5620: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->rebook Contract status: '||x_return_status);
5621: END IF;
5622: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5623: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5624: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5625: raise OKL_API.G_EXCEPTION_ERROR;
5626: END IF;
5627:
5620: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->rebook Contract status: '||x_return_status);
5621: END IF;
5622: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5623: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5624: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5625: raise OKL_API.G_EXCEPTION_ERROR;
5626: END IF;
5627:
5628: x_mass_rebook_trx_id := G_MASS_RBK_TRX_ID;
5621: END IF;
5622: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5623: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5624: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5625: raise OKL_API.G_EXCEPTION_ERROR;
5626: END IF;
5627:
5628: x_mass_rebook_trx_id := G_MASS_RBK_TRX_ID;
5629:
5630: ELSE
5631: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5632: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Nothing to Process...');
5633: END IF;
5634: x_return_status := OKL_API.G_RET_STS_ERROR;
5635: RAISE OKL_API.G_EXCEPTION_ERROR;
5636: END IF;
5637:
5638: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5631: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5632: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Nothing to Process...');
5633: END IF;
5634: x_return_status := OKL_API.G_RET_STS_ERROR;
5635: RAISE OKL_API.G_EXCEPTION_ERROR;
5636: END IF;
5637:
5638: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5639: x_msg_data => x_msg_data);
5634: x_return_status := OKL_API.G_RET_STS_ERROR;
5635: RAISE OKL_API.G_EXCEPTION_ERROR;
5636: END IF;
5637:
5638: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5639: x_msg_data => x_msg_data);
5640:
5641:
5642: RETURN;
5641:
5642: RETURN;
5643:
5644: EXCEPTION
5645: when OKL_API.G_EXCEPTION_ERROR then
5646: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5647: p_api_name => l_api_name,
5648: p_pkg_name => G_PKG_NAME,
5649: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5642: RETURN;
5643:
5644: EXCEPTION
5645: when OKL_API.G_EXCEPTION_ERROR then
5646: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5647: p_api_name => l_api_name,
5648: p_pkg_name => G_PKG_NAME,
5649: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5650: x_msg_count => x_msg_count,
5645: when OKL_API.G_EXCEPTION_ERROR then
5646: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5647: p_api_name => l_api_name,
5648: p_pkg_name => G_PKG_NAME,
5649: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5650: x_msg_count => x_msg_count,
5651: x_msg_data => x_msg_data,
5652: p_api_type => G_API_TYPE);
5653:
5650: x_msg_count => x_msg_count,
5651: x_msg_data => x_msg_data,
5652: p_api_type => G_API_TYPE);
5653:
5654: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5655: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5656: p_api_name => l_api_name,
5657: p_pkg_name => G_PKG_NAME,
5658: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5651: x_msg_data => x_msg_data,
5652: p_api_type => G_API_TYPE);
5653:
5654: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5655: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5656: p_api_name => l_api_name,
5657: p_pkg_name => G_PKG_NAME,
5658: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5659: x_msg_count => x_msg_count,
5654: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5655: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5656: p_api_name => l_api_name,
5657: p_pkg_name => G_PKG_NAME,
5658: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5659: x_msg_count => x_msg_count,
5660: x_msg_data => x_msg_data,
5661: p_api_type => G_API_TYPE);
5662:
5660: x_msg_data => x_msg_data,
5661: p_api_type => G_API_TYPE);
5662:
5663: when OTHERS then
5664: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5665: p_api_name => l_api_name,
5666: p_pkg_name => G_PKG_NAME,
5667: p_exc_name => 'OTHERS',
5668: x_msg_count => x_msg_count,
5722: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
5723: END IF;
5724: -- call START_ACTIVITY to create savepoint, check compatibility
5725: -- and initialize message list
5726: x_return_status := OKL_API.START_ACTIVITY(
5727: p_api_name => l_api_name,
5728: p_pkg_name => G_PKG_NAME,
5729: p_init_msg_list => p_init_msg_list,
5730: l_api_version => l_api_version,
5732: p_api_type => G_API_TYPE,
5733: x_return_status => x_return_status);
5734:
5735: -- check if activity started successfully
5736: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5737: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5738: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5739: raise OKL_API.G_EXCEPTION_ERROR;
5740: END IF;
5733: x_return_status => x_return_status);
5734:
5735: -- check if activity started successfully
5736: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5737: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5738: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5739: raise OKL_API.G_EXCEPTION_ERROR;
5740: END IF;
5741:
5734:
5735: -- check if activity started successfully
5736: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5737: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5738: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5739: raise OKL_API.G_EXCEPTION_ERROR;
5740: END IF;
5741:
5742: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5735: -- check if activity started successfully
5736: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5737: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5738: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5739: raise OKL_API.G_EXCEPTION_ERROR;
5740: END IF;
5741:
5742: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5743: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->Count: '||p_rbk_tbl.COUNT);
5774:
5775: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5776: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After cancel_transaction: '||x_return_status);
5777: END IF;
5778: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5779: raise OKL_API.G_EXCEPTION_ERROR;
5780: END IF;
5781:
5782: G_TERMINATION_TRX_ID := p_source_trx_id;
5775: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5776: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After cancel_transaction: '||x_return_status);
5777: END IF;
5778: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5779: raise OKL_API.G_EXCEPTION_ERROR;
5780: END IF;
5781:
5782: G_TERMINATION_TRX_ID := p_source_trx_id;
5783: G_TERMINATION_TRX_TYPE := p_source_trx_type;
5782: G_TERMINATION_TRX_ID := p_source_trx_id;
5783: G_TERMINATION_TRX_TYPE := p_source_trx_type;
5784: G_MASS_RBK_TRX_ID := NULL;
5785:
5786: okl_api.set_message('OKL', 'AM', 'Before Term Trx ID: ', G_TERMINATION_TRX_ID);
5787:
5788: -- Call Rebook_Contract
5789: rebook_contract(
5790: x_return_status => x_return_status,
5807: );
5808: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5809: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After rebook_contract: '||x_return_status);
5810: END IF;
5811: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5812: raise OKL_API.G_EXCEPTION_ERROR;
5813: END IF;
5814:
5815: x_mass_rebook_trx_id := G_MASS_RBK_TRX_ID;
5808: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5809: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After rebook_contract: '||x_return_status);
5810: END IF;
5811: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5812: raise OKL_API.G_EXCEPTION_ERROR;
5813: END IF;
5814:
5815: x_mass_rebook_trx_id := G_MASS_RBK_TRX_ID;
5816:
5833:
5834: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5835: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After cancel_transaction: '||x_return_status);
5836: END IF;
5837: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5838: raise OKL_API.G_EXCEPTION_ERROR;
5839: END IF;
5840:
5841:
5834: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5835: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After cancel_transaction: '||x_return_status);
5836: END IF;
5837: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
5838: raise OKL_API.G_EXCEPTION_ERROR;
5839: END IF;
5840:
5841:
5842: G_TERMINATION_TRX_ID := p_source_trx_id;
5842: G_TERMINATION_TRX_ID := p_source_trx_id;
5843: G_TERMINATION_TRX_TYPE := p_source_trx_type;
5844: G_MASS_RBK_TRX_ID := NULL;
5845:
5846: okl_api.set_message('OKL', 'AM', 'Before Term Trx ID: ', G_TERMINATION_TRX_ID);
5847:
5848: rebook_contract(
5849: x_return_status => x_return_status,
5850: x_msg_count => x_msg_count,
5867:
5868: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5869: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->rebook Contract status: '||x_return_status);
5870: END IF;
5871: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5872: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5873: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5874: raise OKL_API.G_EXCEPTION_ERROR;
5875: END IF;
5868: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5869: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->rebook Contract status: '||x_return_status);
5870: END IF;
5871: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5872: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5873: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5874: raise OKL_API.G_EXCEPTION_ERROR;
5875: END IF;
5876:
5869: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->rebook Contract status: '||x_return_status);
5870: END IF;
5871: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5872: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5873: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5874: raise OKL_API.G_EXCEPTION_ERROR;
5875: END IF;
5876:
5877: x_mass_rebook_trx_id := G_MASS_RBK_TRX_ID;
5870: END IF;
5871: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5872: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5873: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5874: raise OKL_API.G_EXCEPTION_ERROR;
5875: END IF;
5876:
5877: x_mass_rebook_trx_id := G_MASS_RBK_TRX_ID;
5878:
5879: ELSE
5880: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5881: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Nothing to Process...');
5882: END IF;
5883: x_return_status := OKL_API.G_RET_STS_ERROR;
5884: RAISE OKL_API.G_EXCEPTION_ERROR;
5885: END IF;
5886:
5887: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5880: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5881: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Nothing to Process...');
5882: END IF;
5883: x_return_status := OKL_API.G_RET_STS_ERROR;
5884: RAISE OKL_API.G_EXCEPTION_ERROR;
5885: END IF;
5886:
5887: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5888: x_msg_data => x_msg_data);
5883: x_return_status := OKL_API.G_RET_STS_ERROR;
5884: RAISE OKL_API.G_EXCEPTION_ERROR;
5885: END IF;
5886:
5887: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5888: x_msg_data => x_msg_data);
5889:
5890:
5891: RETURN;
5890:
5891: RETURN;
5892:
5893: EXCEPTION
5894: when OKL_API.G_EXCEPTION_ERROR then
5895: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5896: p_api_name => l_api_name,
5897: p_pkg_name => G_PKG_NAME,
5898: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5891: RETURN;
5892:
5893: EXCEPTION
5894: when OKL_API.G_EXCEPTION_ERROR then
5895: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5896: p_api_name => l_api_name,
5897: p_pkg_name => G_PKG_NAME,
5898: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5899: x_msg_count => x_msg_count,
5894: when OKL_API.G_EXCEPTION_ERROR then
5895: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5896: p_api_name => l_api_name,
5897: p_pkg_name => G_PKG_NAME,
5898: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5899: x_msg_count => x_msg_count,
5900: x_msg_data => x_msg_data,
5901: p_api_type => G_API_TYPE);
5902:
5899: x_msg_count => x_msg_count,
5900: x_msg_data => x_msg_data,
5901: p_api_type => G_API_TYPE);
5902:
5903: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5904: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5905: p_api_name => l_api_name,
5906: p_pkg_name => G_PKG_NAME,
5907: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5900: x_msg_data => x_msg_data,
5901: p_api_type => G_API_TYPE);
5902:
5903: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5904: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5905: p_api_name => l_api_name,
5906: p_pkg_name => G_PKG_NAME,
5907: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5908: x_msg_count => x_msg_count,
5903: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5904: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5905: p_api_name => l_api_name,
5906: p_pkg_name => G_PKG_NAME,
5907: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5908: x_msg_count => x_msg_count,
5909: x_msg_data => x_msg_data,
5910: p_api_type => G_API_TYPE);
5911:
5909: x_msg_data => x_msg_data,
5910: p_api_type => G_API_TYPE);
5911:
5912: when OTHERS then
5913: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5914: p_api_name => l_api_name,
5915: p_pkg_name => G_PKG_NAME,
5916: p_exc_name => 'OTHERS',
5917: x_msg_count => x_msg_count,
5968: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
5969: END IF;
5970: -- call START_ACTIVITY to create savepoint, check compatibility
5971: -- and initialize message list
5972: x_return_status := OKL_API.START_ACTIVITY(
5973: p_api_name => l_api_name,
5974: p_pkg_name => G_PKG_NAME,
5975: p_init_msg_list => p_init_msg_list,
5976: l_api_version => l_api_version,
5978: p_api_type => G_API_TYPE,
5979: x_return_status => x_return_status);
5980:
5981: -- check if activity started successfully
5982: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5983: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5984: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5985: raise OKL_API.G_EXCEPTION_ERROR;
5986: END IF;
5979: x_return_status => x_return_status);
5980:
5981: -- check if activity started successfully
5982: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5983: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5984: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5985: raise OKL_API.G_EXCEPTION_ERROR;
5986: END IF;
5987:
5980:
5981: -- check if activity started successfully
5982: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5983: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5984: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5985: raise OKL_API.G_EXCEPTION_ERROR;
5986: END IF;
5987:
5988:
5981: -- check if activity started successfully
5982: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5983: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5984: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5985: raise OKL_API.G_EXCEPTION_ERROR;
5986: END IF;
5987:
5988:
5989: --
5999:
6000: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6001: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After cancel_transaction: '||x_return_status);
6002: END IF;
6003: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
6004: raise OKL_API.G_EXCEPTION_ERROR;
6005: END IF;
6006:
6007:
6000: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6001: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After cancel_transaction: '||x_return_status);
6002: END IF;
6003: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
6004: raise OKL_API.G_EXCEPTION_ERROR;
6005: END IF;
6006:
6007:
6008: /* DEBUG */
6010: G_PPD_TRX_ID := p_source_trx_id;
6011: G_PPD_TRX_TYPE := p_source_trx_type;
6012: G_MASS_RBK_TRX_ID := NULL;
6013:
6014: --okl_api.set_message('OKL', 'AM', 'Before Term Trx ID: ', G_TERMINATION_TRX_ID);
6015:
6016: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6017: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before calling rebook contract...');
6018: END IF;
6040: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6041: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->rebook Contract status: '||x_return_status);
6042: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After rebook contract: x_return_status=' || x_return_status);
6043: END IF;
6044: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6045: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6046: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Raising OKL_API.G_RET_STS_UNEXP_ERROR:');
6047: END IF;
6048: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6042: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After rebook contract: x_return_status=' || x_return_status);
6043: END IF;
6044: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6045: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6046: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Raising OKL_API.G_RET_STS_UNEXP_ERROR:');
6047: END IF;
6048: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6049: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6050: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6044: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6045: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6046: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Raising OKL_API.G_RET_STS_UNEXP_ERROR:');
6047: END IF;
6048: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6049: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6050: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6051: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Raising OKL_API.G_EXCEPTION_ERROR:');
6052: END IF;
6045: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6046: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Raising OKL_API.G_RET_STS_UNEXP_ERROR:');
6047: END IF;
6048: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6049: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6050: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6051: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Raising OKL_API.G_EXCEPTION_ERROR:');
6052: END IF;
6053: raise OKL_API.G_EXCEPTION_ERROR;
6047: END IF;
6048: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6049: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6050: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6051: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Raising OKL_API.G_EXCEPTION_ERROR:');
6052: END IF;
6053: raise OKL_API.G_EXCEPTION_ERROR;
6054: END IF;
6055:
6049: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6050: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6051: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Raising OKL_API.G_EXCEPTION_ERROR:');
6052: END IF;
6053: raise OKL_API.G_EXCEPTION_ERROR;
6054: END IF;
6055:
6056: x_mass_rebook_trx_id := G_MASS_RBK_TRX_ID;
6057:
6054: END IF;
6055:
6056: x_mass_rebook_trx_id := G_MASS_RBK_TRX_ID;
6057:
6058: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
6059: x_msg_data => x_msg_data);
6060:
6061:
6062: RETURN;
6061:
6062: RETURN;
6063:
6064: EXCEPTION
6065: when OKL_API.G_EXCEPTION_ERROR then
6066: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6067: p_api_name => l_api_name,
6068: p_pkg_name => G_PKG_NAME,
6069: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6062: RETURN;
6063:
6064: EXCEPTION
6065: when OKL_API.G_EXCEPTION_ERROR then
6066: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6067: p_api_name => l_api_name,
6068: p_pkg_name => G_PKG_NAME,
6069: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6070: x_msg_count => x_msg_count,
6065: when OKL_API.G_EXCEPTION_ERROR then
6066: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6067: p_api_name => l_api_name,
6068: p_pkg_name => G_PKG_NAME,
6069: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6070: x_msg_count => x_msg_count,
6071: x_msg_data => x_msg_data,
6072: p_api_type => G_API_TYPE);
6073: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6073: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6074: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After HANDLE_EXCEPTIONS: x_return_status='|| x_return_status);
6075: END IF;
6076:
6077: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6078: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6079: p_api_name => l_api_name,
6080: p_pkg_name => G_PKG_NAME,
6081: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6074: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After HANDLE_EXCEPTIONS: x_return_status='|| x_return_status);
6075: END IF;
6076:
6077: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6078: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6079: p_api_name => l_api_name,
6080: p_pkg_name => G_PKG_NAME,
6081: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6082: x_msg_count => x_msg_count,
6077: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6078: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6079: p_api_name => l_api_name,
6080: p_pkg_name => G_PKG_NAME,
6081: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6082: x_msg_count => x_msg_count,
6083: x_msg_data => x_msg_data,
6084: p_api_type => G_API_TYPE);
6085:
6083: x_msg_data => x_msg_data,
6084: p_api_type => G_API_TYPE);
6085:
6086: when OTHERS then
6087: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6088: p_api_name => l_api_name,
6089: p_pkg_name => G_PKG_NAME,
6090: p_exc_name => 'OTHERS',
6091: x_msg_count => x_msg_count,
6128: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
6129: END IF;
6130: -- call START_ACTIVITY to create savepoint, check compatibility
6131: -- and initialize message list
6132: x_return_status := OKL_API.START_ACTIVITY(
6133: p_api_name => l_api_name,
6134: p_pkg_name => G_PKG_NAME,
6135: p_init_msg_list => p_init_msg_list,
6136: l_api_version => l_api_version,
6138: p_api_type => G_API_TYPE,
6139: x_return_status => x_return_status);
6140:
6141: -- check if activity started successfully
6142: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6143: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6144: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6145: raise OKL_API.G_EXCEPTION_ERROR;
6146: END IF;
6139: x_return_status => x_return_status);
6140:
6141: -- check if activity started successfully
6142: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6143: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6144: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6145: raise OKL_API.G_EXCEPTION_ERROR;
6146: END IF;
6147: --Validate the Set Values Data
6140:
6141: -- check if activity started successfully
6142: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6143: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6144: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6145: raise OKL_API.G_EXCEPTION_ERROR;
6146: END IF;
6147: --Validate the Set Values Data
6148: --Atleast one Set Value should be Present
6141: -- check if activity started successfully
6142: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6143: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6144: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6145: raise OKL_API.G_EXCEPTION_ERROR;
6146: END IF;
6147: --Validate the Set Values Data
6148: --Atleast one Set Value should be Present
6149: FOR i IN p_mrbv_tbl.FIRST..p_mrbv_tbl.LAST
6159: OR
6160: p_mrbv_tbl(i).criteria_value1 IS NOT NULL
6161: OR
6162: p_mrbv_tbl(i).criteria_value2 IS NOT NULL) THEN
6163: okl_api.set_message(
6164: G_APP_NAME,
6165: G_INVALID_MATCH_OPTION,
6166: 'CRIT_CODE',
6167: p_mrbv_tbl(i).criteria_code
6165: G_INVALID_MATCH_OPTION,
6166: 'CRIT_CODE',
6167: p_mrbv_tbl(i).criteria_code
6168: );
6169: RAISE OKL_API.G_EXCEPTION_ERROR;
6170: END IF;
6171: END IF;
6172: --Check for Data Integrity
6173: IF(p_mrbv_tbl(i).criteria_code = 'LIFE_IN_MONTHS' AND
6172: --Check for Data Integrity
6173: IF(p_mrbv_tbl(i).criteria_code = 'LIFE_IN_MONTHS' AND
6174: p_mrbv_tbl(i).set_value IS NOT NULL) THEN
6175: IF(p_mrbv_tbl(i).set_value <= 0 OR TRUNC(p_mrbv_tbl(i).set_value)<>(p_mrbv_tbl(i).set_value)) THEN
6176: okl_api.set_message(
6177: G_APP_NAME,
6178: 'OKL_CONTRACTS_INVALID_VALUE',
6179: 'COL_NAME',
6180: 'LIFE_IN_MONTHS');
6177: G_APP_NAME,
6178: 'OKL_CONTRACTS_INVALID_VALUE',
6179: 'COL_NAME',
6180: 'LIFE_IN_MONTHS');
6181: RAISE OKL_API.G_EXCEPTION_ERROR;
6182: END IF;
6183:
6184: END IF;
6185: IF(p_mrbv_tbl(i).criteria_code = 'BASIC_RATE' AND
6184: END IF;
6185: IF(p_mrbv_tbl(i).criteria_code = 'BASIC_RATE' AND
6186: p_mrbv_tbl(i).set_value IS NOT NULL) THEN
6187: IF(p_mrbv_tbl(i).set_value <= 0 ) THEN
6188: okl_api.set_message(
6189: G_APP_NAME,
6190: 'OKL_CONTRACTS_INVALID_VALUE',
6191: 'COL_NAME',
6192: 'BASIC_RATE');
6189: G_APP_NAME,
6190: 'OKL_CONTRACTS_INVALID_VALUE',
6191: 'COL_NAME',
6192: 'BASIC_RATE');
6193: RAISE OKL_API.G_EXCEPTION_ERROR;
6194: END IF;
6195:
6196: END IF;
6197: IF(p_mrbv_tbl(i).criteria_code = 'ADJUSTED_RATE' AND
6196: END IF;
6197: IF(p_mrbv_tbl(i).criteria_code = 'ADJUSTED_RATE' AND
6198: p_mrbv_tbl(i).set_value IS NOT NULL) THEN
6199: IF(p_mrbv_tbl(i).set_value <= 0 ) THEN
6200: okl_api.set_message(
6201: G_APP_NAME,
6202: 'OKL_CONTRACTS_INVALID_VALUE',
6203: 'COL_NAME',
6204: 'ADJUSTED_RATE');
6201: G_APP_NAME,
6202: 'OKL_CONTRACTS_INVALID_VALUE',
6203: 'COL_NAME',
6204: 'ADJUSTED_RATE');
6205: RAISE OKL_API.G_EXCEPTION_ERROR;
6206: END IF;
6207:
6208: END IF;
6209: IF (p_mrbv_tbl(i).set_value IS NOT NULL) THEN
6212:
6213: END IF;
6214: END LOOP;
6215: IF (l_set_value_present = 'N') THEN
6216: okl_api.set_message(
6217: G_APP_NAME,
6218: G_NO_SET_VALUE,
6219: 'REQ_NAME',
6220: p_request_name
6218: G_NO_SET_VALUE,
6219: 'REQ_NAME',
6220: p_request_name
6221: );
6222: x_return_status := OKL_API.G_RET_STS_ERROR;
6223: END IF;
6224: --
6225: -- Insert Selection criteria
6226: --
6233: p_mrbv_tbl => p_mrbv_tbl,
6234: x_mrbv_tbl => x_mrbv_tbl
6235: );
6236:
6237: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6238: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6239: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6240: raise OKL_API.G_EXCEPTION_ERROR;
6241: END IF;
6234: x_mrbv_tbl => x_mrbv_tbl
6235: );
6236:
6237: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6238: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6239: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6240: raise OKL_API.G_EXCEPTION_ERROR;
6241: END IF;
6242:
6235: );
6236:
6237: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6238: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6239: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6240: raise OKL_API.G_EXCEPTION_ERROR;
6241: END IF;
6242:
6243: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
6236:
6237: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6238: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6239: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6240: raise OKL_API.G_EXCEPTION_ERROR;
6241: END IF;
6242:
6243: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
6244: x_msg_data => x_msg_data);
6239: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6240: raise OKL_API.G_EXCEPTION_ERROR;
6241: END IF;
6242:
6243: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
6244: x_msg_data => x_msg_data);
6245:
6246:
6247: EXCEPTION
6244: x_msg_data => x_msg_data);
6245:
6246:
6247: EXCEPTION
6248: when OKL_API.G_EXCEPTION_ERROR then
6249: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6250: p_api_name => l_api_name,
6251: p_pkg_name => G_PKG_NAME,
6252: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6245:
6246:
6247: EXCEPTION
6248: when OKL_API.G_EXCEPTION_ERROR then
6249: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6250: p_api_name => l_api_name,
6251: p_pkg_name => G_PKG_NAME,
6252: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6253: x_msg_count => x_msg_count,
6248: when OKL_API.G_EXCEPTION_ERROR then
6249: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6250: p_api_name => l_api_name,
6251: p_pkg_name => G_PKG_NAME,
6252: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6253: x_msg_count => x_msg_count,
6254: x_msg_data => x_msg_data,
6255: p_api_type => G_API_TYPE);
6256: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6256: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6257: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After HANDLE_EXCEPTIONS: x_return_status='|| x_return_status);
6258: END IF;
6259:
6260: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6261: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6262: p_api_name => l_api_name,
6263: p_pkg_name => G_PKG_NAME,
6264: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6257: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After HANDLE_EXCEPTIONS: x_return_status='|| x_return_status);
6258: END IF;
6259:
6260: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6261: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6262: p_api_name => l_api_name,
6263: p_pkg_name => G_PKG_NAME,
6264: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6265: x_msg_count => x_msg_count,
6260: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6261: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6262: p_api_name => l_api_name,
6263: p_pkg_name => G_PKG_NAME,
6264: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6265: x_msg_count => x_msg_count,
6266: x_msg_data => x_msg_data,
6267: p_api_type => G_API_TYPE);
6268:
6266: x_msg_data => x_msg_data,
6267: p_api_type => G_API_TYPE);
6268:
6269: when OTHERS then
6270: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6271: p_api_name => l_api_name,
6272: p_pkg_name => G_PKG_NAME,
6273: p_exc_name => 'OTHERS',
6274: x_msg_count => x_msg_count,