56: i NUMBER;
57: l_found BOOLEAN;
58: l_api_version CONSTANT NUMBER := 1;
59: l_api_name CONSTANT VARCHAR2(30) := 'calculate_ubb_amount';
60: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
61: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
62: l_init_msg_list VARCHAR2(1) ;
63: l_msg_count NUMBER ;
64:
57: l_found BOOLEAN;
58: l_api_version CONSTANT NUMBER := 1;
59: l_api_name CONSTANT VARCHAR2(30) := 'calculate_ubb_amount';
60: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
61: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
62: l_init_msg_list VARCHAR2(1) ;
63: l_msg_count NUMBER ;
64:
65: i NUMBER := 0;
180: IF (G_DEBUG_ENABLED = 'Y') THEN
181: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
182: END IF;
183:
184: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
185: G_PKG_NAME,
186: p_init_msg_list,
187: l_api_version,
188: p_api_version,
189: '_PVT',
190: x_return_status);
191:
192:
193: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
194: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in Starting Activity => '||l_return_status);
195: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
196: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
197: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in Starting Activity => '||l_return_status);
191:
192:
193: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
194: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in Starting Activity => '||l_return_status);
195: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
196: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
197: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in Starting Activity => '||l_return_status);
198: RAISE OKL_API.G_EXCEPTION_ERROR;
199: END IF;
192:
193: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
194: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in Starting Activity => '||l_return_status);
195: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
196: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
197: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in Starting Activity => '||l_return_status);
198: RAISE OKL_API.G_EXCEPTION_ERROR;
199: END IF;
200:
194: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in Starting Activity => '||l_return_status);
195: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
196: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
197: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in Starting Activity => '||l_return_status);
198: RAISE OKL_API.G_EXCEPTION_ERROR;
199: END IF;
200:
201: l_init_msg_list := p_init_msg_list ;
202: l_return_status := x_return_status ;
365: ELSE
366: FND_FILE.PUT_LINE (FND_FILE.LOG, ' -- ERROR: Could not retrieve Stream Id for purpose USAGE_PAYMENT.');
367: END IF;
368:
369: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
370: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
371: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
372: RAISE Okl_Api.G_EXCEPTION_ERROR;
373: END IF;
366: FND_FILE.PUT_LINE (FND_FILE.LOG, ' -- ERROR: Could not retrieve Stream Id for purpose USAGE_PAYMENT.');
367: END IF;
368:
369: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
370: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
371: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
372: RAISE Okl_Api.G_EXCEPTION_ERROR;
373: END IF;
374:
367: END IF;
368:
369: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
370: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
371: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
372: RAISE Okl_Api.G_EXCEPTION_ERROR;
373: END IF;
374:
375: /*
368:
369: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
370: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
371: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
372: RAISE Okl_Api.G_EXCEPTION_ERROR;
373: END IF;
374:
375: /*
376: OPEN l_sty_id_cur;
445: IF x_return_status <> 'S' THEN
446: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
447: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' -- ERROR: Creating Billing Transactions using Billing Engine');
448: END IF;
449: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
450: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
451: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
452: RAISE Okl_Api.G_EXCEPTION_ERROR;
453: END IF;
446: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
447: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' -- ERROR: Creating Billing Transactions using Billing Engine');
448: END IF;
449: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
450: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
451: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
452: RAISE Okl_Api.G_EXCEPTION_ERROR;
453: END IF;
454: END IF;
447: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' -- ERROR: Creating Billing Transactions using Billing Engine');
448: END IF;
449: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
450: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
451: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
452: RAISE Okl_Api.G_EXCEPTION_ERROR;
453: END IF;
454: END IF;
455: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
448: END IF;
449: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
450: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
451: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
452: RAISE Okl_Api.G_EXCEPTION_ERROR;
453: END IF;
454: END IF;
455: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
456: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'--End : Call to Billing Centralized API');
508: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Message Index: '||l_msg_index_out);
509: END IF;
510: END LOOP;
511:
512: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
513: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in Accounting => '||x_msg_data);
514: RAISE ubb_failed;
515: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
516: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in Accounting => '||x_msg_data);
511:
512: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
513: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in Accounting => '||x_msg_data);
514: RAISE ubb_failed;
515: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
516: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in Accounting => '||x_msg_data);
517: RAISE ubb_failed;
518: END IF;*/
519: EXCEPTION
526: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error '||x_msg_data);
527: END;
528:
529: END LOOP;
530: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
531:
532: EXCEPTION
533: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
534: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);
529: END LOOP;
530: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
531:
532: EXCEPTION
533: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
534: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);
535: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
536: (
537: l_api_name,
531:
532: EXCEPTION
533: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
534: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);
535: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
536: (
537: l_api_name,
538: G_PKG_NAME,
539: 'Okl_Api.G_RET_STS_ERROR',
535: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
536: (
537: l_api_name,
538: G_PKG_NAME,
539: 'Okl_Api.G_RET_STS_ERROR',
540: x_msg_count,
541: x_msg_data,
542: '_PVT'
543: );
540: x_msg_count,
541: x_msg_data,
542: '_PVT'
543: );
544: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
545: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (UNEXCP) => '||SQLERRM);
546: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
547: (
548: l_api_name,
542: '_PVT'
543: );
544: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
545: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (UNEXCP) => '||SQLERRM);
546: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
547: (
548: l_api_name,
549: G_PKG_NAME,
550: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
546: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
547: (
548: l_api_name,
549: G_PKG_NAME,
550: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
551: x_msg_count,
552: x_msg_data,
553: '_PVT'
554: );
553: '_PVT'
554: );
555: WHEN OTHERS THEN
556: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (Others) => '||SQLERRM);
557: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
558: (
559: l_api_name,
560: G_PKG_NAME,
561: 'OTHERS',
709: AND opn_code = 'CHECK_RULE';
710:
711: l_api_version CONSTANT NUMBER := 1;
712: l_api_name CONSTANT VARCHAR2(30) := 'billing_status';
713: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
714: l_stream_id NUMBER;
715:
716: -- l_khr_id NUMBER;
717: i NUMBER;
719: l_bill_stat_tbl bill_stat_tbl_type;
720: l_oks_ver VARCHAR2(10);
721: BEGIN
722:
723: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
724: G_PKG_NAME,
725: p_init_msg_list,
726: l_api_version,
727: p_api_version,
728: '_PVT',
729: x_return_status);
730:
731:
732: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
733: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
734: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
735: RAISE OKL_API.G_EXCEPTION_ERROR;
736: END IF;
729: x_return_status);
730:
731:
732: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
733: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
734: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
735: RAISE OKL_API.G_EXCEPTION_ERROR;
736: END IF;
737:
730:
731:
732: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
733: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
734: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
735: RAISE OKL_API.G_EXCEPTION_ERROR;
736: END IF;
737:
738: -- select id into l_khr_id from okc_k_headers_b where contract_number = p_contract_number;
731:
732: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
733: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
734: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
735: RAISE OKL_API.G_EXCEPTION_ERROR;
736: END IF;
737:
738: -- select id into l_khr_id from okc_k_headers_b where contract_number = p_contract_number;
739:
821: END LOOP;
822: END IF;
823:
824: x_bill_stat_tbl := l_bill_stat_tbl;
825: Okl_Api.END_ACTIVITY (
826: x_msg_count => x_msg_count,
827: x_msg_data => x_msg_data);
828:
829: EXCEPTION
826: x_msg_count => x_msg_count,
827: x_msg_data => x_msg_data);
828:
829: EXCEPTION
830: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
831: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);
832: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
833: (
834: l_api_name,
828:
829: EXCEPTION
830: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
831: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);
832: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
833: (
834: l_api_name,
835: G_PKG_NAME,
836: 'Okl_Api.G_RET_STS_ERROR',
832: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
833: (
834: l_api_name,
835: G_PKG_NAME,
836: 'Okl_Api.G_RET_STS_ERROR',
837: x_msg_count,
838: x_msg_data,
839: '_PVT'
840: );
837: x_msg_count,
838: x_msg_data,
839: '_PVT'
840: );
841: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
842: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (UNEXCP) => '||SQLERRM);
843: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
844: (
845: l_api_name,
839: '_PVT'
840: );
841: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
842: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (UNEXCP) => '||SQLERRM);
843: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
844: (
845: l_api_name,
846: G_PKG_NAME,
847: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
843: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
844: (
845: l_api_name,
846: G_PKG_NAME,
847: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
848: x_msg_count,
849: x_msg_data,
850: '_PVT'
851: );
850: '_PVT'
851: );
852: WHEN OTHERS THEN
853: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (Others) => '||SQLERRM);
854: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
855: (
856: l_api_name,
857: G_PKG_NAME,
858: 'OTHERS',
942: ------------------------------------------------------------
943:
944: l_api_version CONSTANT NUMBER := 1;
945: l_api_name CONSTANT VARCHAR2(30) := 'bill_service_contract';
946: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
947:
948: ------------------------------------------------------------
949: -- Declare variables to call Accounting Engine.
950: ------------------------------------------------------------
1002: -- Start processing
1003: ------------------------------------------------------------
1004:
1005: FND_FILE.PUT_LINE (FND_FILE.LOG, '=========================================================================================');
1006: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1007:
1008: l_return_status := Okl_Api.START_ACTIVITY(
1009: p_api_name => l_api_name,
1010: p_pkg_name => G_PKG_NAME,
1004:
1005: FND_FILE.PUT_LINE (FND_FILE.LOG, '=========================================================================================');
1006: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1007:
1008: l_return_status := Okl_Api.START_ACTIVITY(
1009: p_api_name => l_api_name,
1010: p_pkg_name => G_PKG_NAME,
1011: p_init_msg_list => p_init_msg_list,
1012: l_api_version => l_api_version,
1013: p_api_version => p_api_version,
1014: p_api_type => '_PVT',
1015: x_return_status => l_return_status);
1016:
1017: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1018: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1019: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1020: RAISE Okl_Api.G_EXCEPTION_ERROR;
1021: END IF;
1014: p_api_type => '_PVT',
1015: x_return_status => l_return_status);
1016:
1017: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1018: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1019: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1020: RAISE Okl_Api.G_EXCEPTION_ERROR;
1021: END IF;
1022:
1015: x_return_status => l_return_status);
1016:
1017: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1018: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1019: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1020: RAISE Okl_Api.G_EXCEPTION_ERROR;
1021: END IF;
1022:
1023: ------------------------------------------------------------
1016:
1017: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1018: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1019: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1020: RAISE Okl_Api.G_EXCEPTION_ERROR;
1021: END IF;
1022:
1023: ------------------------------------------------------------
1024: -- Initialise local variables
1080: ,x_msg_data
1081: ,u_taiv_rec
1082: ,r_taiv_rec);
1083:
1084: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1085: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1086: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1087: RAISE Okl_Api.G_EXCEPTION_ERROR;
1088: END IF;
1081: ,u_taiv_rec
1082: ,r_taiv_rec);
1083:
1084: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1085: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1086: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1087: RAISE Okl_Api.G_EXCEPTION_ERROR;
1088: END IF;
1089:
1082: ,r_taiv_rec);
1083:
1084: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1085: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1086: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1087: RAISE Okl_Api.G_EXCEPTION_ERROR;
1088: END IF;
1089:
1090: END IF;
1083:
1084: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1085: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1086: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1087: RAISE Okl_Api.G_EXCEPTION_ERROR;
1088: END IF;
1089:
1090: END IF;
1091:
1133: ELSE
1134: FND_FILE.PUT_LINE (FND_FILE.LOG, ' -- ERROR: Creating Internal TXN Header.');
1135: END IF;
1136:
1137: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1138: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1139: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1140: RAISE Okl_Api.G_EXCEPTION_ERROR;
1141: END IF;
1134: FND_FILE.PUT_LINE (FND_FILE.LOG, ' -- ERROR: Creating Internal TXN Header.');
1135: END IF;
1136:
1137: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1138: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1139: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1140: RAISE Okl_Api.G_EXCEPTION_ERROR;
1141: END IF;
1142:
1135: END IF;
1136:
1137: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1138: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1139: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1140: RAISE Okl_Api.G_EXCEPTION_ERROR;
1141: END IF;
1142:
1143: ---------------------------------------------
1136:
1137: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1138: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1139: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1140: RAISE Okl_Api.G_EXCEPTION_ERROR;
1141: END IF;
1142:
1143: ---------------------------------------------
1144: -- Adjust header variables
1178: ,x_msg_data
1179: ,u_tilv_rec
1180: ,r_tilv_rec);
1181:
1182: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1183: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1184: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1185: RAISE Okl_Api.G_EXCEPTION_ERROR;
1186: END IF;
1179: ,u_tilv_rec
1180: ,r_tilv_rec);
1181:
1182: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1183: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1184: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1185: RAISE Okl_Api.G_EXCEPTION_ERROR;
1186: END IF;
1187:
1180: ,r_tilv_rec);
1181:
1182: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1183: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1184: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1185: RAISE Okl_Api.G_EXCEPTION_ERROR;
1186: END IF;
1187:
1188: END IF;
1181:
1182: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1183: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1184: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1185: RAISE Okl_Api.G_EXCEPTION_ERROR;
1186: END IF;
1187:
1188: END IF;
1189:
1232: FND_FILE.PUT_LINE (FND_FILE.LOG, ' -- ERROR: Creating Internal TXN Line.');
1233: END IF;
1234:
1235:
1236: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1237: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1238: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1239: RAISE Okl_Api.G_EXCEPTION_ERROR;
1240: END IF;
1233: END IF;
1234:
1235:
1236: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1237: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1238: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1239: RAISE Okl_Api.G_EXCEPTION_ERROR;
1240: END IF;
1241:
1234:
1235:
1236: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1237: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1238: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1239: RAISE Okl_Api.G_EXCEPTION_ERROR;
1240: END IF;
1241:
1242: ---------------------------------------------
1235:
1236: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1237: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1238: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1239: RAISE Okl_Api.G_EXCEPTION_ERROR;
1240: END IF;
1241:
1242: ---------------------------------------------
1243: -- Adjust line variables
1320: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1321: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' -- Internal TXN details Created.');
1322: END IF;
1323:
1324: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1325: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1326: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1327: RAISE Okl_Api.G_EXCEPTION_ERROR;
1328: END IF;
1321: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' -- Internal TXN details Created.');
1322: END IF;
1323:
1324: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1325: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1326: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1327: RAISE Okl_Api.G_EXCEPTION_ERROR;
1328: END IF;
1329: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1322: END IF;
1323:
1324: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1325: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1326: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1327: RAISE Okl_Api.G_EXCEPTION_ERROR;
1328: END IF;
1329: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1330: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' -- Internal TXN details Created.');
1323:
1324: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1325: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1326: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1327: RAISE Okl_Api.G_EXCEPTION_ERROR;
1328: END IF;
1329: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1330: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' -- Internal TXN details Created.');
1331: END IF;
1379: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- ERROR: Accounting Distributions NOT Created.');
1380: END IF;
1381:
1382:
1383: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1384: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1385: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1386: RAISE Okl_Api.G_EXCEPTION_ERROR;
1387: END IF;
1380: END IF;
1381:
1382:
1383: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1384: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1385: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1386: RAISE Okl_Api.G_EXCEPTION_ERROR;
1387: END IF;
1388:
1381:
1382:
1383: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1384: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1385: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1386: RAISE Okl_Api.G_EXCEPTION_ERROR;
1387: END IF;
1388:
1389: ----------------------------------------------------
1382:
1383: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1384: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1385: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1386: RAISE Okl_Api.G_EXCEPTION_ERROR;
1387: END IF;
1388:
1389: ----------------------------------------------------
1390: -- Adjust line variables
1428: ,x_msg_data
1429: ,u_taiv_rec
1430: ,r_taiv_rec);
1431:
1432: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1433: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1434: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1435: RAISE Okl_Api.G_EXCEPTION_ERROR;
1436: END IF;
1429: ,u_taiv_rec
1430: ,r_taiv_rec);
1431:
1432: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1433: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1434: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1435: RAISE Okl_Api.G_EXCEPTION_ERROR;
1436: END IF;
1437:
1430: ,r_taiv_rec);
1431:
1432: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1433: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1434: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1435: RAISE Okl_Api.G_EXCEPTION_ERROR;
1436: END IF;
1437:
1438: END IF;
1431:
1432: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1433: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1434: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1435: RAISE Okl_Api.G_EXCEPTION_ERROR;
1436: END IF;
1437:
1438: END IF;
1439:
1455: ,x_msg_data
1456: ,u_tilv_rec
1457: ,r_tilv_rec);
1458:
1459: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1460: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1461: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1462: RAISE Okl_Api.G_EXCEPTION_ERROR;
1463: END IF;
1456: ,u_tilv_rec
1457: ,r_tilv_rec);
1458:
1459: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1460: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1461: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1462: RAISE Okl_Api.G_EXCEPTION_ERROR;
1463: END IF;
1464:
1457: ,r_tilv_rec);
1458:
1459: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1460: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1461: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1462: RAISE Okl_Api.G_EXCEPTION_ERROR;
1463: END IF;
1464:
1465: END IF;
1458:
1459: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1460: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1461: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1462: RAISE Okl_Api.G_EXCEPTION_ERROR;
1463: END IF;
1464:
1465: END IF;
1466:
1463: END IF;
1464:
1465: END IF;
1466:
1467: Okl_Api.END_ACTIVITY (
1468: x_msg_count => x_msg_count,
1469: x_msg_data => x_msg_data);
1470:
1471: EXCEPTION
1468: x_msg_count => x_msg_count,
1469: x_msg_data => x_msg_data);
1470:
1471: EXCEPTION
1472: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1473: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);
1474: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1475: (
1476: l_api_name,
1470:
1471: EXCEPTION
1472: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1473: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);
1474: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1475: (
1476: l_api_name,
1477: G_PKG_NAME,
1478: 'Okl_Api.G_RET_STS_ERROR',
1474: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1475: (
1476: l_api_name,
1477: G_PKG_NAME,
1478: 'Okl_Api.G_RET_STS_ERROR',
1479: x_msg_count,
1480: x_msg_data,
1481: '_PVT'
1482: );
1479: x_msg_count,
1480: x_msg_data,
1481: '_PVT'
1482: );
1483: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1484: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (UNEXCP) => '||SQLERRM);
1485: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1486: (
1487: l_api_name,
1481: '_PVT'
1482: );
1483: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1484: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (UNEXCP) => '||SQLERRM);
1485: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1486: (
1487: l_api_name,
1488: G_PKG_NAME,
1489: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
1485: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1486: (
1487: l_api_name,
1488: G_PKG_NAME,
1489: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
1490: x_msg_count,
1491: x_msg_data,
1492: '_PVT'
1493: );
1492: '_PVT'
1493: );
1494: WHEN OTHERS THEN
1495: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (Others) => '||SQLERRM);
1496: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1497: (
1498: l_api_name,
1499: G_PKG_NAME,
1500: 'OTHERS',