317: EXCEPTION
318:
319: WHEN OTHERS THEN
320:
321: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
322: p_msg_name => G_DB_ERROR,
323: p_token1 => G_PROG_NAME_TOKEN,
324: p_token1_value => l_prog_name,
325: p_token2 => G_SQLCODE_TOKEN,
337: ------------------------
338: PROCEDURE validate_id (x_return_status OUT NOCOPY VARCHAR2, p_id IN NUMBER) IS
339: BEGIN
340: IF p_id IS NULL THEN
341: OKL_API.set_message(p_app_name => G_APP_NAME,
342: p_msg_name => G_COL_ERROR,
343: p_token1 => G_COL_NAME_TOKEN,
344: p_token1_value => 'id',
345: p_token2 => G_PKG_NAME_TOKEN,
343: p_token1 => G_COL_NAME_TOKEN,
344: p_token1_value => 'id',
345: p_token2 => G_PKG_NAME_TOKEN,
346: p_token2_value => G_PKG_NAME);
347: RAISE OKL_API.G_EXCEPTION_ERROR;
348: END IF;
349: x_return_status := G_RET_STS_SUCCESS;
350: END validate_id;
351:
355: -------------------------------------------
356: PROCEDURE validate_object_version_number (x_return_status OUT NOCOPY VARCHAR2, p_object_version_number IN NUMBER) IS
357: BEGIN
358: IF p_object_version_number IS NULL THEN
359: OKL_API.set_message(p_app_name => G_APP_NAME,
360: p_msg_name => G_COL_ERROR,
361: p_token1 => G_COL_NAME_TOKEN,
362: p_token1_value => 'object_version_number',
363: p_token2 => G_PKG_NAME_TOKEN,
361: p_token1 => G_COL_NAME_TOKEN,
362: p_token1_value => 'object_version_number',
363: p_token2 => G_PKG_NAME_TOKEN,
364: p_token2_value => G_PKG_NAME);
365: RAISE OKL_API.G_EXCEPTION_ERROR;
366: END IF;
367: x_return_status := G_RET_STS_SUCCESS;
368: END validate_object_version_number;
369:
373: -----------------------------------------
374: PROCEDURE validate_parent_object_code (x_return_status OUT NOCOPY VARCHAR2, p_parent_object_code IN VARCHAR2) IS
375: BEGIN
376: IF p_parent_object_code IS NULL THEN
377: OKL_API.set_message(p_app_name => G_APP_NAME,
378: p_msg_name => G_COL_ERROR,
379: p_token1 => G_COL_NAME_TOKEN,
380: p_token1_value => 'parent_object_code',
381: p_token2 => G_PKG_NAME_TOKEN,
379: p_token1 => G_COL_NAME_TOKEN,
380: p_token1_value => 'parent_object_code',
381: p_token2 => G_PKG_NAME_TOKEN,
382: p_token2_value => G_PKG_NAME);
383: RAISE OKL_API.G_EXCEPTION_ERROR;
384: END IF;
385: x_return_status := G_RET_STS_SUCCESS;
386: END validate_parent_object_code;
387:
391: -----------------------------------------
392: PROCEDURE validate_parent_object_id (x_return_status OUT NOCOPY VARCHAR2, p_parent_object_id IN NUMBER) IS
393: BEGIN
394: IF p_parent_object_id IS NULL THEN
395: OKL_API.set_message(p_app_name => G_APP_NAME,
396: p_msg_name => G_COL_ERROR,
397: p_token1 => G_COL_NAME_TOKEN,
398: p_token1_value => 'parent_object_id',
399: p_token2 => G_PKG_NAME_TOKEN,
397: p_token1 => G_COL_NAME_TOKEN,
398: p_token1_value => 'parent_object_id',
399: p_token2 => G_PKG_NAME_TOKEN,
400: p_token2_value => G_PKG_NAME);
401: RAISE OKL_API.G_EXCEPTION_ERROR;
402: END IF;
403: x_return_status := G_RET_STS_SUCCESS;
404: END validate_parent_object_id;
405:
409: -----------------------------------------
410: PROCEDURE validate_stream_type_id (x_return_status OUT NOCOPY VARCHAR2, p_stream_type_id IN NUMBER) IS
411: BEGIN
412: IF p_stream_type_id IS NULL THEN
413: OKL_API.set_message(p_app_name => G_APP_NAME,
414: p_msg_name => G_COL_ERROR,
415: p_token1 => G_COL_NAME_TOKEN,
416: p_token1_value => 'stream_type_id',
417: p_token2 => G_PKG_NAME_TOKEN,
415: p_token1 => G_COL_NAME_TOKEN,
416: p_token1_value => 'stream_type_id',
417: p_token2 => G_PKG_NAME_TOKEN,
418: p_token2_value => G_PKG_NAME);
419: RAISE OKL_API.G_EXCEPTION_ERROR;
420: END IF;
421: x_return_status := G_RET_STS_SUCCESS;
422: END validate_stream_type_id;
423:
427: -----------------------------------------
428: PROCEDURE validate_fee_type (x_return_status OUT NOCOPY VARCHAR2, p_fee_type IN VARCHAR2) IS
429: BEGIN
430: IF p_fee_type IS NULL THEN
431: OKL_API.set_message(p_app_name => G_APP_NAME,
432: p_msg_name => G_COL_ERROR,
433: p_token1 => G_COL_NAME_TOKEN,
434: p_token1_value => 'fee_type',
435: p_token2 => G_PKG_NAME_TOKEN,
433: p_token1 => G_COL_NAME_TOKEN,
434: p_token1_value => 'fee_type',
435: p_token2 => G_PKG_NAME_TOKEN,
436: p_token2_value => G_PKG_NAME);
437: RAISE OKL_API.G_EXCEPTION_ERROR;
438: END IF;
439: x_return_status := G_RET_STS_SUCCESS;
440: END validate_fee_type;
441:
635: EXCEPTION
636:
637: WHEN OTHERS THEN
638:
639: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
640: p_msg_name => G_DB_ERROR,
641: p_token1 => G_PROG_NAME_TOKEN,
642: p_token1_value => l_prog_name,
643: p_token2 => G_SQLCODE_TOKEN,
710: EXCEPTION
711:
712: WHEN OTHERS THEN
713:
714: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
715: p_msg_name => G_DB_ERROR,
716: p_token1 => G_PROG_NAME_TOKEN,
717: p_token1_value => l_prog_name,
718: p_token2 => G_SQLCODE_TOKEN,
753:
754: l_return_status := validate_attributes(l_feev_rec);
755:
756: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
757: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
758: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
759: RAISE OKL_API.G_EXCEPTION_ERROR;
760: END IF;
761:
755:
756: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
757: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
758: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
759: RAISE OKL_API.G_EXCEPTION_ERROR;
760: END IF;
761:
762: l_return_status := validate_record(l_feev_rec);
763:
761:
762: l_return_status := validate_record(l_feev_rec);
763:
764: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
765: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
766: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
767: RAISE OKL_API.G_EXCEPTION_ERROR;
768: END IF;
769:
763:
764: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
765: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
766: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
767: RAISE OKL_API.G_EXCEPTION_ERROR;
768: END IF;
769:
770: migrate (l_feev_rec, l_fee_rec);
771: migrate (l_feev_rec, l_feetl_rec);
772:
773: insert_row (x_return_status => l_return_status, p_fee_rec => l_fee_rec);
774:
775: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
776: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
777: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
778: RAISE OKL_API.G_EXCEPTION_ERROR;
779: END IF;
780:
774:
775: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
776: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
777: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
778: RAISE OKL_API.G_EXCEPTION_ERROR;
779: END IF;
780:
781: insert_row (x_return_status => l_return_status, p_feetl_rec => l_feetl_rec);
782:
780:
781: insert_row (x_return_status => l_return_status, p_feetl_rec => l_feetl_rec);
782:
783: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
784: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
785: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
786: RAISE OKL_API.G_EXCEPTION_ERROR;
787: END IF;
788:
782:
783: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
784: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
785: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
786: RAISE OKL_API.G_EXCEPTION_ERROR;
787: END IF;
788:
789: x_feev_rec := l_feev_rec;
790: x_return_status := l_return_status;
790: x_return_status := l_return_status;
791:
792: EXCEPTION
793:
794: WHEN OKL_API.G_EXCEPTION_ERROR THEN
795:
796: x_return_status := G_RET_STS_ERROR;
797:
798: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
794: WHEN OKL_API.G_EXCEPTION_ERROR THEN
795:
796: x_return_status := G_RET_STS_ERROR;
797:
798: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
799:
800: x_return_status := G_RET_STS_UNEXP_ERROR;
801:
802: WHEN OTHERS THEN
800: x_return_status := G_RET_STS_UNEXP_ERROR;
801:
802: WHEN OTHERS THEN
803:
804: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
805: p_msg_name => G_DB_ERROR,
806: p_token1 => G_PROG_NAME_TOKEN,
807: p_token1_value => l_prog_name,
808: p_token2 => G_SQLCODE_TOKEN,
843: p_feev_rec => p_feev_rec,
844: x_feev_rec => x_feev_rec);
845:
846: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
847: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
848: ELSIF l_return_status = G_RET_STS_ERROR THEN
849: RAISE OKL_API.G_EXCEPTION_ERROR;
850: END IF;
851:
845:
846: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
847: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
848: ELSIF l_return_status = G_RET_STS_ERROR THEN
849: RAISE OKL_API.G_EXCEPTION_ERROR;
850: END IF;
851:
852: x_return_status := l_return_status;
853:
852: x_return_status := l_return_status;
853:
854: EXCEPTION
855:
856: WHEN OKL_API.G_EXCEPTION_ERROR THEN
857:
858: x_return_status := G_RET_STS_ERROR;
859:
860: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
856: WHEN OKL_API.G_EXCEPTION_ERROR THEN
857:
858: x_return_status := G_RET_STS_ERROR;
859:
860: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
861:
862: x_return_status := G_RET_STS_UNEXP_ERROR;
863:
864: WHEN OTHERS THEN
862: x_return_status := G_RET_STS_UNEXP_ERROR;
863:
864: WHEN OTHERS THEN
865:
866: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
867: p_msg_name => G_DB_ERROR,
868: p_token1 => G_PROG_NAME_TOKEN,
869: p_token1_value => l_prog_name,
870: p_token2 => G_SQLCODE_TOKEN,
911: p_feev_rec => p_feev_tbl(i),
912: x_feev_rec => x_feev_tbl(i));
913:
914: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
915: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
916: ELSIF l_return_status = G_RET_STS_ERROR THEN
917: RAISE OKL_API.G_EXCEPTION_ERROR;
918: END IF;
919:
913:
914: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
915: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
916: ELSIF l_return_status = G_RET_STS_ERROR THEN
917: RAISE OKL_API.G_EXCEPTION_ERROR;
918: END IF;
919:
920: EXIT WHEN (i = p_feev_tbl.LAST);
921: i := p_feev_tbl.NEXT(i);
933: x_return_status := l_return_status;
934:
935: EXCEPTION
936:
937: WHEN OKL_API.G_EXCEPTION_ERROR THEN
938:
939: x_return_status := G_RET_STS_ERROR;
940:
941: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
937: WHEN OKL_API.G_EXCEPTION_ERROR THEN
938:
939: x_return_status := G_RET_STS_ERROR;
940:
941: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
942:
943: x_return_status := G_RET_STS_UNEXP_ERROR;
944:
945: WHEN OTHERS THEN
943: x_return_status := G_RET_STS_UNEXP_ERROR;
944:
945: WHEN OTHERS THEN
946:
947: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
948: p_msg_name => G_DB_ERROR,
949: p_token1 => G_PROG_NAME_TOKEN,
950: p_token1_value => l_prog_name,
951: p_token2 => G_SQLCODE_TOKEN,
997:
998: IF (lock_csr%ISOPEN) THEN
999: CLOSE lock_csr;
1000: END IF;
1001: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1002: p_msg_name => G_OVN_ERROR2,
1003: p_token1 => G_PROG_NAME_TOKEN,
1004: p_token1_value => l_prog_name);
1005: RAISE OKL_API.G_EXCEPTION_ERROR;
1001: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1002: p_msg_name => G_OVN_ERROR2,
1003: p_token1 => G_PROG_NAME_TOKEN,
1004: p_token1_value => l_prog_name);
1005: RAISE OKL_API.G_EXCEPTION_ERROR;
1006: END;
1007:
1008: IF l_object_version_number IS NULL THEN
1009:
1012: CLOSE lchk_csr;
1013:
1014: IF lc_object_version_number IS NULL THEN
1015:
1016: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1017: p_msg_name => G_OVN_ERROR3,
1018: p_token1 => G_PROG_NAME_TOKEN,
1019: p_token1_value => l_prog_name);
1020:
1019: p_token1_value => l_prog_name);
1020:
1021: ELSIF lc_object_version_number <> p_fee_rec.object_version_number THEN
1022:
1023: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1024: p_msg_name => G_OVN_ERROR,
1025: p_token1 => G_PROG_NAME_TOKEN,
1026: p_token1_value => l_prog_name);
1027:
1026: p_token1_value => l_prog_name);
1027:
1028: END IF;
1029:
1030: RAISE OKL_API.G_EXCEPTION_ERROR;
1031:
1032: END IF;
1033:
1034: x_return_status := G_RET_STS_SUCCESS;
1034: x_return_status := G_RET_STS_SUCCESS;
1035:
1036: EXCEPTION
1037:
1038: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1039:
1040: x_return_status := G_RET_STS_ERROR;
1041:
1042: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1038: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1039:
1040: x_return_status := G_RET_STS_ERROR;
1041:
1042: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1043:
1044: x_return_status := G_RET_STS_UNEXP_ERROR;
1045:
1046: WHEN OTHERS THEN
1044: x_return_status := G_RET_STS_UNEXP_ERROR;
1045:
1046: WHEN OTHERS THEN
1047:
1048: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1049: p_msg_name => G_DB_ERROR,
1050: p_token1 => G_PROG_NAME_TOKEN,
1051: p_token1_value => l_prog_name,
1052: p_token2 => G_SQLCODE_TOKEN,
1074:
1075: lock_row (x_return_status => l_return_status, p_fee_rec => p_fee_rec);
1076:
1077: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1078: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1079: ELSIF l_return_status = G_RET_STS_ERROR THEN
1080: RAISE OKL_API.G_EXCEPTION_ERROR;
1081: END IF;
1082:
1076:
1077: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1078: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1079: ELSIF l_return_status = G_RET_STS_ERROR THEN
1080: RAISE OKL_API.G_EXCEPTION_ERROR;
1081: END IF;
1082:
1083: UPDATE okl_fees_b
1084: SET
1123: x_return_status := l_return_status;
1124:
1125: EXCEPTION
1126:
1127: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1128: x_return_status := G_RET_STS_ERROR;
1129:
1130: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1131: x_return_status := G_RET_STS_UNEXP_ERROR;
1126:
1127: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1128: x_return_status := G_RET_STS_ERROR;
1129:
1130: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1131: x_return_status := G_RET_STS_UNEXP_ERROR;
1132:
1133: WHEN OTHERS THEN
1134: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1130: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1131: x_return_status := G_RET_STS_UNEXP_ERROR;
1132:
1133: WHEN OTHERS THEN
1134: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1135: p_msg_name => G_DB_ERROR,
1136: p_token1 => G_PROG_NAME_TOKEN,
1137: p_token1_value => l_prog_name,
1138: p_token2 => G_SQLCODE_TOKEN,
1178: EXCEPTION
1179:
1180: WHEN OTHERS THEN
1181:
1182: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1183: p_msg_name => G_DB_ERROR,
1184: p_token1 => G_PROG_NAME_TOKEN,
1185: p_token1_value => l_prog_name,
1186: p_token2 => G_SQLCODE_TOKEN,
1223: x_feev_rec := p_feev_rec;
1224: l_db_feev_rec := get_rec (p_feev_rec.id, l_return_status);
1225:
1226: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1227: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1228: ELSIF l_return_status = G_RET_STS_ERROR THEN
1229: RAISE OKL_API.G_EXCEPTION_ERROR;
1230: END IF;
1231:
1225:
1226: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1227: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1228: ELSIF l_return_status = G_RET_STS_ERROR THEN
1229: RAISE OKL_API.G_EXCEPTION_ERROR;
1230: END IF;
1231:
1232: IF x_feev_rec.attribute_category = FND_API.G_MISS_CHAR THEN
1233: x_feev_rec.attribute_category := l_db_feev_rec.attribute_category;
1347: RETURN l_return_status;
1348:
1349: EXCEPTION
1350:
1351: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1352:
1353: x_return_status := G_RET_STS_ERROR;
1354:
1355: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1351: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1352:
1353: x_return_status := G_RET_STS_ERROR;
1354:
1355: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1356:
1357: x_return_status := G_RET_STS_UNEXP_ERROR;
1358:
1359: WHEN OTHERS THEN
1357: x_return_status := G_RET_STS_UNEXP_ERROR;
1358:
1359: WHEN OTHERS THEN
1360:
1361: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1362: p_msg_name => G_DB_ERROR,
1363: p_token1 => G_PROG_NAME_TOKEN,
1364: p_token1_value => l_prog_name,
1365: p_token2 => G_SQLCODE_TOKEN,
1377:
1378: l_return_status := populate_new_record (p_feev_rec, l_feev_rec);
1379:
1380: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1381: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1382: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1383: RAISE OKL_API.G_EXCEPTION_ERROR;
1384: END IF;
1385:
1379:
1380: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1381: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1382: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1383: RAISE OKL_API.G_EXCEPTION_ERROR;
1384: END IF;
1385:
1386: l_return_status := validate_attributes (l_feev_rec);
1387:
1385:
1386: l_return_status := validate_attributes (l_feev_rec);
1387:
1388: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1389: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1390: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1391: RAISE OKL_API.G_EXCEPTION_ERROR;
1392: END IF;
1393:
1387:
1388: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1389: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1390: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1391: RAISE OKL_API.G_EXCEPTION_ERROR;
1392: END IF;
1393:
1394: l_return_status := validate_record (l_feev_rec);
1395:
1393:
1394: l_return_status := validate_record (l_feev_rec);
1395:
1396: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1397: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1398: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1399: RAISE OKL_API.G_EXCEPTION_ERROR;
1400: END IF;
1401:
1395:
1396: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1397: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1398: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1399: RAISE OKL_API.G_EXCEPTION_ERROR;
1400: END IF;
1401:
1402: migrate (l_feev_rec, l_fee_rec);
1403: migrate (l_feev_rec, l_feetl_rec);
1404:
1405: update_row (x_return_status => l_return_status, p_fee_rec => l_fee_rec);
1406:
1407: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1408: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1409: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1410: RAISE OKL_API.G_EXCEPTION_ERROR;
1411: END IF;
1412:
1406:
1407: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1408: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1409: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1410: RAISE OKL_API.G_EXCEPTION_ERROR;
1411: END IF;
1412:
1413: update_row (x_return_status => l_return_status, p_feetl_rec => l_feetl_rec);
1414:
1412:
1413: update_row (x_return_status => l_return_status, p_feetl_rec => l_feetl_rec);
1414:
1415: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1416: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1417: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1418: RAISE OKL_API.G_EXCEPTION_ERROR;
1419: END IF;
1420:
1414:
1415: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1416: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1417: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1418: RAISE OKL_API.G_EXCEPTION_ERROR;
1419: END IF;
1420:
1421: x_return_status := l_return_status;
1422: x_feev_rec := l_feev_rec;
1422: x_feev_rec := l_feev_rec;
1423:
1424: EXCEPTION
1425:
1426: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1427:
1428: x_return_status := G_RET_STS_ERROR;
1429:
1430: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1426: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1427:
1428: x_return_status := G_RET_STS_ERROR;
1429:
1430: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1431:
1432: x_return_status := G_RET_STS_UNEXP_ERROR;
1433:
1434: WHEN OTHERS THEN
1432: x_return_status := G_RET_STS_UNEXP_ERROR;
1433:
1434: WHEN OTHERS THEN
1435:
1436: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1437: p_msg_name => G_DB_ERROR,
1438: p_token1 => G_PROG_NAME_TOKEN,
1439: p_token1_value => l_prog_name,
1440: p_token2 => G_SQLCODE_TOKEN,
1475: p_feev_rec => p_feev_rec,
1476: x_feev_rec => x_feev_rec);
1477:
1478: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1479: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1480: ELSIF l_return_status = G_RET_STS_ERROR THEN
1481: RAISE OKL_API.G_EXCEPTION_ERROR;
1482: END IF;
1483:
1477:
1478: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1479: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1480: ELSIF l_return_status = G_RET_STS_ERROR THEN
1481: RAISE OKL_API.G_EXCEPTION_ERROR;
1482: END IF;
1483:
1484: x_return_status := l_return_status;
1485:
1484: x_return_status := l_return_status;
1485:
1486: EXCEPTION
1487:
1488: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1489:
1490: x_return_status := G_RET_STS_ERROR;
1491:
1492: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1488: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1489:
1490: x_return_status := G_RET_STS_ERROR;
1491:
1492: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1493:
1494: x_return_status := G_RET_STS_UNEXP_ERROR;
1495:
1496: WHEN OTHERS THEN
1494: x_return_status := G_RET_STS_UNEXP_ERROR;
1495:
1496: WHEN OTHERS THEN
1497:
1498: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1499: p_msg_name => G_DB_ERROR,
1500: p_token1 => G_PROG_NAME_TOKEN,
1501: p_token1_value => l_prog_name,
1502: p_token2 => G_SQLCODE_TOKEN,
1546: p_feev_rec => p_feev_tbl(i),
1547: x_feev_rec => x_feev_tbl(i));
1548:
1549: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1550: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1551: ELSIF l_return_status = G_RET_STS_ERROR THEN
1552: RAISE OKL_API.G_EXCEPTION_ERROR;
1553: END IF;
1554:
1548:
1549: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1550: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1551: ELSIF l_return_status = G_RET_STS_ERROR THEN
1552: RAISE OKL_API.G_EXCEPTION_ERROR;
1553: END IF;
1554:
1555: EXIT WHEN (i = p_feev_tbl.LAST);
1556: i := p_feev_tbl.NEXT(i);
1568: x_return_status := l_return_status;
1569:
1570: EXCEPTION
1571:
1572: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1573:
1574: x_return_status := G_RET_STS_ERROR;
1575:
1576: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1572: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1573:
1574: x_return_status := G_RET_STS_ERROR;
1575:
1576: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1577:
1578: x_return_status := G_RET_STS_UNEXP_ERROR;
1579:
1580: WHEN OTHERS THEN
1578: x_return_status := G_RET_STS_UNEXP_ERROR;
1579:
1580: WHEN OTHERS THEN
1581:
1582: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1583: p_msg_name => G_DB_ERROR,
1584: p_token1 => G_PROG_NAME_TOKEN,
1585: p_token1_value => l_prog_name,
1586: p_token2 => G_SQLCODE_TOKEN,
1614: EXCEPTION
1615:
1616: WHEN OTHERS THEN
1617:
1618: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1619: p_msg_name => G_DB_ERROR,
1620: p_token1 => G_PROG_NAME_TOKEN,
1621: p_token1_value => l_prog_name,
1622: p_token2 => G_SQLCODE_TOKEN,
1655: delete_row (x_return_status => l_return_status,
1656: p_id => p_feev_rec.id);
1657:
1658: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1659: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1660: ELSIF l_return_status = G_RET_STS_ERROR THEN
1661: RAISE OKL_API.G_EXCEPTION_ERROR;
1662: END IF;
1663:
1657:
1658: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1659: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1660: ELSIF l_return_status = G_RET_STS_ERROR THEN
1661: RAISE OKL_API.G_EXCEPTION_ERROR;
1662: END IF;
1663:
1664: x_return_status := l_return_status;
1665:
1664: x_return_status := l_return_status;
1665:
1666: EXCEPTION
1667:
1668: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1669:
1670: x_return_status := G_RET_STS_ERROR;
1671:
1672: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1668: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1669:
1670: x_return_status := G_RET_STS_ERROR;
1671:
1672: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1673:
1674: x_return_status := G_RET_STS_UNEXP_ERROR;
1675:
1676: WHEN OTHERS THEN
1674: x_return_status := G_RET_STS_UNEXP_ERROR;
1675:
1676: WHEN OTHERS THEN
1677:
1678: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1679: p_msg_name => G_DB_ERROR,
1680: p_token1 => G_PROG_NAME_TOKEN,
1681: p_token1_value => l_prog_name,
1682: p_token2 => G_SQLCODE_TOKEN,
1724: delete_row (x_return_status => l_return_status,
1725: p_id => p_feev_tbl(i).id);
1726:
1727: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1728: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1729: ELSIF l_return_status = G_RET_STS_ERROR THEN
1730: RAISE OKL_API.G_EXCEPTION_ERROR;
1731: END IF;
1732:
1726:
1727: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1728: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1729: ELSIF l_return_status = G_RET_STS_ERROR THEN
1730: RAISE OKL_API.G_EXCEPTION_ERROR;
1731: END IF;
1732:
1733: EXIT WHEN (i = p_feev_tbl.LAST);
1734: i := p_feev_tbl.NEXT(i);
1748: EXCEPTION
1749:
1750: WHEN OTHERS THEN
1751:
1752: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1753: p_msg_name => G_DB_ERROR,
1754: p_token1 => G_PROG_NAME_TOKEN,
1755: p_token1_value => l_prog_name,
1756: p_token2 => G_SQLCODE_TOKEN,