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;
210: IF (G_DEBUG_ENABLED = 'Y') THEN
211: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
212: END IF;
213:
214: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
215: G_PKG_NAME,
216: p_init_msg_list,
217: l_api_version,
218: p_api_version,
219: '_PVT',
220: x_return_status);
221:
222:
223: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
224: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in Starting Activity => '||l_return_status);
225: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
226: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
227: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in Starting Activity => '||l_return_status);
221:
222:
223: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
224: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in Starting Activity => '||l_return_status);
225: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
226: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
227: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in Starting Activity => '||l_return_status);
228: RAISE OKL_API.G_EXCEPTION_ERROR;
229: END IF;
222:
223: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
224: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in Starting Activity => '||l_return_status);
225: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
226: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
227: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in Starting Activity => '||l_return_status);
228: RAISE OKL_API.G_EXCEPTION_ERROR;
229: END IF;
230:
224: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in Starting Activity => '||l_return_status);
225: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
226: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
227: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in Starting Activity => '||l_return_status);
228: RAISE OKL_API.G_EXCEPTION_ERROR;
229: END IF;
230:
231: l_init_msg_list := p_init_msg_list ;
232: l_return_status := x_return_status ;
419: --Changed FND_FILE.LOG to FND_FILE.OUTPUT by bkatraga for bug 9667274
420: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- ERROR: Could not retrieve Stream Id for purpose USAGE_PAYMENT.');
421: END IF;
422:
423: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
424: RAISE ubb_failed; --Added by bkatraga for bug 9667274
425: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
426: RAISE ubb_failed; --Added by bkatraga for bug 9667274
427: END IF;
421: END IF;
422:
423: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
424: RAISE ubb_failed; --Added by bkatraga for bug 9667274
425: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
426: RAISE ubb_failed; --Added by bkatraga for bug 9667274
427: END IF;
428:
429: /*
499: IF x_return_status <> 'S' THEN
500: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
501: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' -- ERROR: Creating Billing Transactions using Billing Engine');
502: END IF;
503: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
504: RAISE ubb_failed; --Added by bkatraga for bug 9667274
505: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
506: RAISE ubb_failed; --Added by bkatraga for bug 9667274
507: END IF;
501: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' -- ERROR: Creating Billing Transactions using Billing Engine');
502: END IF;
503: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
504: RAISE ubb_failed; --Added by bkatraga for bug 9667274
505: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
506: RAISE ubb_failed; --Added by bkatraga for bug 9667274
507: END IF;
508: END IF;
509: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
567: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Message Index: '||l_msg_index_out);
568: END IF;
569: END LOOP;
570:
571: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
572: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in Accounting => '||x_msg_data);
573: RAISE ubb_failed;
574: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
575: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in Accounting => '||x_msg_data);
570:
571: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
572: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in Accounting => '||x_msg_data);
573: RAISE ubb_failed;
574: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
575: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error in Accounting => '||x_msg_data);
576: RAISE ubb_failed;
577: END IF;*/
578: EXCEPTION
613: END IF; -- End of IF (l_distinct_khr_cur.bankruptcy_sts = 'Y') added as part of Bug# 14119181
614: END; -- Added as part of Bug# 14119181
615: END LOOP; -- End of LOOP (l_distinct_khr_cur) added as part of Bug# 14119181
616:
617: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
618:
619: EXCEPTION
620: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
621: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);
616:
617: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
618:
619: EXCEPTION
620: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
621: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);
622: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
623: (
624: l_api_name,
618:
619: EXCEPTION
620: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
621: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);
622: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
623: (
624: l_api_name,
625: G_PKG_NAME,
626: 'Okl_Api.G_RET_STS_ERROR',
622: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
623: (
624: l_api_name,
625: G_PKG_NAME,
626: 'Okl_Api.G_RET_STS_ERROR',
627: x_msg_count,
628: x_msg_data,
629: '_PVT'
630: );
627: x_msg_count,
628: x_msg_data,
629: '_PVT'
630: );
631: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
632: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (UNEXCP) => '||SQLERRM);
633: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
634: (
635: l_api_name,
629: '_PVT'
630: );
631: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
632: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (UNEXCP) => '||SQLERRM);
633: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
634: (
635: l_api_name,
636: G_PKG_NAME,
637: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
633: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
634: (
635: l_api_name,
636: G_PKG_NAME,
637: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
638: x_msg_count,
639: x_msg_data,
640: '_PVT'
641: );
640: '_PVT'
641: );
642: WHEN OTHERS THEN
643: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (Others) => '||SQLERRM);
644: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
645: (
646: l_api_name,
647: G_PKG_NAME,
648: 'OTHERS',
796: AND opn_code = 'CHECK_RULE';
797:
798: l_api_version CONSTANT NUMBER := 1;
799: l_api_name CONSTANT VARCHAR2(30) := 'billing_status';
800: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
801: l_stream_id NUMBER;
802:
803: -- l_khr_id NUMBER;
804: i NUMBER;
806: l_bill_stat_tbl bill_stat_tbl_type;
807: l_oks_ver VARCHAR2(10);
808: BEGIN
809:
810: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
811: G_PKG_NAME,
812: p_init_msg_list,
813: l_api_version,
814: p_api_version,
815: '_PVT',
816: x_return_status);
817:
818:
819: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
820: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
821: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
822: RAISE OKL_API.G_EXCEPTION_ERROR;
823: END IF;
816: x_return_status);
817:
818:
819: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
820: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
821: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
822: RAISE OKL_API.G_EXCEPTION_ERROR;
823: END IF;
824:
817:
818:
819: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
820: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
821: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
822: RAISE OKL_API.G_EXCEPTION_ERROR;
823: END IF;
824:
825: -- select id into l_khr_id from okc_k_headers_b where contract_number = p_contract_number;
818:
819: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
820: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
821: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
822: RAISE OKL_API.G_EXCEPTION_ERROR;
823: END IF;
824:
825: -- select id into l_khr_id from okc_k_headers_b where contract_number = p_contract_number;
826:
908: END LOOP;
909: END IF;
910:
911: x_bill_stat_tbl := l_bill_stat_tbl;
912: Okl_Api.END_ACTIVITY (
913: x_msg_count => x_msg_count,
914: x_msg_data => x_msg_data);
915:
916: EXCEPTION
913: x_msg_count => x_msg_count,
914: x_msg_data => x_msg_data);
915:
916: EXCEPTION
917: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
918: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);
919: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
920: (
921: l_api_name,
915:
916: EXCEPTION
917: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
918: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);
919: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
920: (
921: l_api_name,
922: G_PKG_NAME,
923: 'Okl_Api.G_RET_STS_ERROR',
919: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
920: (
921: l_api_name,
922: G_PKG_NAME,
923: 'Okl_Api.G_RET_STS_ERROR',
924: x_msg_count,
925: x_msg_data,
926: '_PVT'
927: );
924: x_msg_count,
925: x_msg_data,
926: '_PVT'
927: );
928: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
929: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (UNEXCP) => '||SQLERRM);
930: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
931: (
932: l_api_name,
926: '_PVT'
927: );
928: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
929: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (UNEXCP) => '||SQLERRM);
930: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
931: (
932: l_api_name,
933: G_PKG_NAME,
934: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
930: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
931: (
932: l_api_name,
933: G_PKG_NAME,
934: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
935: x_msg_count,
936: x_msg_data,
937: '_PVT'
938: );
937: '_PVT'
938: );
939: WHEN OTHERS THEN
940: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (Others) => '||SQLERRM);
941: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
942: (
943: l_api_name,
944: G_PKG_NAME,
945: 'OTHERS',
1029: ------------------------------------------------------------
1030:
1031: l_api_version CONSTANT NUMBER := 1;
1032: l_api_name CONSTANT VARCHAR2(30) := 'bill_service_contract';
1033: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1034:
1035: ------------------------------------------------------------
1036: -- Declare variables to call Accounting Engine.
1037: ------------------------------------------------------------
1089: -- Start processing
1090: ------------------------------------------------------------
1091:
1092: FND_FILE.PUT_LINE (FND_FILE.LOG, '=========================================================================================');
1093: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1094:
1095: l_return_status := Okl_Api.START_ACTIVITY(
1096: p_api_name => l_api_name,
1097: p_pkg_name => G_PKG_NAME,
1091:
1092: FND_FILE.PUT_LINE (FND_FILE.LOG, '=========================================================================================');
1093: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1094:
1095: l_return_status := Okl_Api.START_ACTIVITY(
1096: p_api_name => l_api_name,
1097: p_pkg_name => G_PKG_NAME,
1098: p_init_msg_list => p_init_msg_list,
1099: l_api_version => l_api_version,
1100: p_api_version => p_api_version,
1101: p_api_type => '_PVT',
1102: x_return_status => l_return_status);
1103:
1104: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1105: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1106: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1107: RAISE Okl_Api.G_EXCEPTION_ERROR;
1108: END IF;
1101: p_api_type => '_PVT',
1102: x_return_status => l_return_status);
1103:
1104: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1105: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1106: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1107: RAISE Okl_Api.G_EXCEPTION_ERROR;
1108: END IF;
1109:
1102: x_return_status => l_return_status);
1103:
1104: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1105: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1106: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1107: RAISE Okl_Api.G_EXCEPTION_ERROR;
1108: END IF;
1109:
1110: ------------------------------------------------------------
1103:
1104: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1105: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1106: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1107: RAISE Okl_Api.G_EXCEPTION_ERROR;
1108: END IF;
1109:
1110: ------------------------------------------------------------
1111: -- Initialise local variables
1167: ,x_msg_data
1168: ,u_taiv_rec
1169: ,r_taiv_rec);
1170:
1171: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1172: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1173: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1174: RAISE Okl_Api.G_EXCEPTION_ERROR;
1175: END IF;
1168: ,u_taiv_rec
1169: ,r_taiv_rec);
1170:
1171: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1172: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1173: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1174: RAISE Okl_Api.G_EXCEPTION_ERROR;
1175: END IF;
1176:
1169: ,r_taiv_rec);
1170:
1171: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1172: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1173: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1174: RAISE Okl_Api.G_EXCEPTION_ERROR;
1175: END IF;
1176:
1177: END IF;
1170:
1171: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1172: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1173: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1174: RAISE Okl_Api.G_EXCEPTION_ERROR;
1175: END IF;
1176:
1177: END IF;
1178:
1220: ELSE
1221: FND_FILE.PUT_LINE (FND_FILE.LOG, ' -- ERROR: Creating Internal TXN Header.');
1222: END IF;
1223:
1224: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1225: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1226: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1227: RAISE Okl_Api.G_EXCEPTION_ERROR;
1228: END IF;
1221: FND_FILE.PUT_LINE (FND_FILE.LOG, ' -- ERROR: Creating Internal TXN Header.');
1222: END IF;
1223:
1224: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1225: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1226: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1227: RAISE Okl_Api.G_EXCEPTION_ERROR;
1228: END IF;
1229:
1222: END IF;
1223:
1224: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1225: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1226: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1227: RAISE Okl_Api.G_EXCEPTION_ERROR;
1228: END IF;
1229:
1230: ---------------------------------------------
1223:
1224: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1225: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1226: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1227: RAISE Okl_Api.G_EXCEPTION_ERROR;
1228: END IF;
1229:
1230: ---------------------------------------------
1231: -- Adjust header variables
1265: ,x_msg_data
1266: ,u_tilv_rec
1267: ,r_tilv_rec);
1268:
1269: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1270: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1271: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1272: RAISE Okl_Api.G_EXCEPTION_ERROR;
1273: END IF;
1266: ,u_tilv_rec
1267: ,r_tilv_rec);
1268:
1269: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1270: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1271: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1272: RAISE Okl_Api.G_EXCEPTION_ERROR;
1273: END IF;
1274:
1267: ,r_tilv_rec);
1268:
1269: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1270: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1271: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1272: RAISE Okl_Api.G_EXCEPTION_ERROR;
1273: END IF;
1274:
1275: END IF;
1268:
1269: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1270: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1271: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1272: RAISE Okl_Api.G_EXCEPTION_ERROR;
1273: END IF;
1274:
1275: END IF;
1276:
1319: FND_FILE.PUT_LINE (FND_FILE.LOG, ' -- ERROR: Creating Internal TXN Line.');
1320: END IF;
1321:
1322:
1323: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1324: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1325: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1326: RAISE Okl_Api.G_EXCEPTION_ERROR;
1327: END IF;
1320: END IF;
1321:
1322:
1323: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1324: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1325: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1326: RAISE Okl_Api.G_EXCEPTION_ERROR;
1327: END IF;
1328:
1321:
1322:
1323: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1324: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1325: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1326: RAISE Okl_Api.G_EXCEPTION_ERROR;
1327: END IF;
1328:
1329: ---------------------------------------------
1322:
1323: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1324: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1325: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1326: RAISE Okl_Api.G_EXCEPTION_ERROR;
1327: END IF;
1328:
1329: ---------------------------------------------
1330: -- Adjust line variables
1407: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1408: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' -- Internal TXN details Created.');
1409: END IF;
1410:
1411: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1412: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1413: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1414: RAISE Okl_Api.G_EXCEPTION_ERROR;
1415: END IF;
1408: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' -- Internal TXN details Created.');
1409: END IF;
1410:
1411: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1412: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1413: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1414: RAISE Okl_Api.G_EXCEPTION_ERROR;
1415: END IF;
1416: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1409: END IF;
1410:
1411: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1412: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1413: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1414: RAISE Okl_Api.G_EXCEPTION_ERROR;
1415: END IF;
1416: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1417: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' -- Internal TXN details Created.');
1410:
1411: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1412: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1413: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1414: RAISE Okl_Api.G_EXCEPTION_ERROR;
1415: END IF;
1416: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1417: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' -- Internal TXN details Created.');
1418: END IF;
1466: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- ERROR: Accounting Distributions NOT Created.');
1467: END IF;
1468:
1469:
1470: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1471: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1472: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1473: RAISE Okl_Api.G_EXCEPTION_ERROR;
1474: END IF;
1467: END IF;
1468:
1469:
1470: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1471: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1472: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1473: RAISE Okl_Api.G_EXCEPTION_ERROR;
1474: END IF;
1475:
1468:
1469:
1470: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1471: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1472: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1473: RAISE Okl_Api.G_EXCEPTION_ERROR;
1474: END IF;
1475:
1476: ----------------------------------------------------
1469:
1470: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1471: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1472: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1473: RAISE Okl_Api.G_EXCEPTION_ERROR;
1474: END IF;
1475:
1476: ----------------------------------------------------
1477: -- Adjust line variables
1515: ,x_msg_data
1516: ,u_taiv_rec
1517: ,r_taiv_rec);
1518:
1519: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1520: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1521: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1522: RAISE Okl_Api.G_EXCEPTION_ERROR;
1523: END IF;
1516: ,u_taiv_rec
1517: ,r_taiv_rec);
1518:
1519: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1520: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1521: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1522: RAISE Okl_Api.G_EXCEPTION_ERROR;
1523: END IF;
1524:
1517: ,r_taiv_rec);
1518:
1519: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1520: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1521: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1522: RAISE Okl_Api.G_EXCEPTION_ERROR;
1523: END IF;
1524:
1525: END IF;
1518:
1519: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1520: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1521: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1522: RAISE Okl_Api.G_EXCEPTION_ERROR;
1523: END IF;
1524:
1525: END IF;
1526:
1542: ,x_msg_data
1543: ,u_tilv_rec
1544: ,r_tilv_rec);
1545:
1546: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1547: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1548: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1549: RAISE Okl_Api.G_EXCEPTION_ERROR;
1550: END IF;
1543: ,u_tilv_rec
1544: ,r_tilv_rec);
1545:
1546: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1547: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1548: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1549: RAISE Okl_Api.G_EXCEPTION_ERROR;
1550: END IF;
1551:
1544: ,r_tilv_rec);
1545:
1546: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1547: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1548: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1549: RAISE Okl_Api.G_EXCEPTION_ERROR;
1550: END IF;
1551:
1552: END IF;
1545:
1546: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1547: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1548: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1549: RAISE Okl_Api.G_EXCEPTION_ERROR;
1550: END IF;
1551:
1552: END IF;
1553:
1550: END IF;
1551:
1552: END IF;
1553:
1554: Okl_Api.END_ACTIVITY (
1555: x_msg_count => x_msg_count,
1556: x_msg_data => x_msg_data);
1557:
1558: EXCEPTION
1555: x_msg_count => x_msg_count,
1556: x_msg_data => x_msg_data);
1557:
1558: EXCEPTION
1559: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1560: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);
1561: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1562: (
1563: l_api_name,
1557:
1558: EXCEPTION
1559: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1560: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);
1561: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1562: (
1563: l_api_name,
1564: G_PKG_NAME,
1565: 'Okl_Api.G_RET_STS_ERROR',
1561: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1562: (
1563: l_api_name,
1564: G_PKG_NAME,
1565: 'Okl_Api.G_RET_STS_ERROR',
1566: x_msg_count,
1567: x_msg_data,
1568: '_PVT'
1569: );
1566: x_msg_count,
1567: x_msg_data,
1568: '_PVT'
1569: );
1570: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1571: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (UNEXCP) => '||SQLERRM);
1572: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1573: (
1574: l_api_name,
1568: '_PVT'
1569: );
1570: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1571: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (UNEXCP) => '||SQLERRM);
1572: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1573: (
1574: l_api_name,
1575: G_PKG_NAME,
1576: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
1572: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1573: (
1574: l_api_name,
1575: G_PKG_NAME,
1576: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
1577: x_msg_count,
1578: x_msg_data,
1579: '_PVT'
1580: );
1579: '_PVT'
1580: );
1581: WHEN OTHERS THEN
1582: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (Others) => '||SQLERRM);
1583: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1584: (
1585: l_api_name,
1586: G_PKG_NAME,
1587: 'OTHERS',