193: EXCEPTION
194:
195: WHEN OTHERS THEN
196:
197: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
198: p_msg_name => G_DB_ERROR,
199: p_token1 => G_PROG_NAME_TOKEN,
200: p_token1_value => l_prog_name,
201: p_token2 => G_SQLCODE_TOKEN,
213: ------------------------
214: PROCEDURE validate_id (x_return_status OUT NOCOPY VARCHAR2, p_id IN NUMBER) IS
215: BEGIN
216: IF p_id IS NULL THEN
217: OKL_API.set_message(p_app_name => G_APP_NAME,
218: p_msg_name => G_COL_ERROR,
219: p_token1 => G_COL_NAME_TOKEN,
220: p_token1_value => 'id',
221: p_token2 => G_PKG_NAME_TOKEN,
219: p_token1 => G_COL_NAME_TOKEN,
220: p_token1_value => 'id',
221: p_token2 => G_PKG_NAME_TOKEN,
222: p_token2_value => G_PKG_NAME);
223: RAISE OKL_API.G_EXCEPTION_ERROR;
224: END IF;
225: x_return_status := G_RET_STS_SUCCESS;
226: END validate_id;
227:
231: -------------------------------------------
232: PROCEDURE validate_object_version_number (x_return_status OUT NOCOPY VARCHAR2, p_object_version_number IN NUMBER) IS
233: BEGIN
234: IF p_object_version_number IS NULL THEN
235: OKL_API.set_message(p_app_name => G_APP_NAME,
236: p_msg_name => G_COL_ERROR,
237: p_token1 => G_COL_NAME_TOKEN,
238: p_token1_value => 'object_version_number',
239: p_token2 => G_PKG_NAME_TOKEN,
237: p_token1 => G_COL_NAME_TOKEN,
238: p_token1_value => 'object_version_number',
239: p_token2 => G_PKG_NAME_TOKEN,
240: p_token2_value => G_PKG_NAME);
241: RAISE OKL_API.G_EXCEPTION_ERROR;
242: END IF;
243: x_return_status := G_RET_STS_SUCCESS;
244: END validate_object_version_number;
245:
406: EXCEPTION
407:
408: WHEN OTHERS THEN
409:
410: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
411: p_msg_name => G_DB_ERROR,
412: p_token1 => G_PROG_NAME_TOKEN,
413: p_token1_value => l_prog_name,
414: p_token2 => G_SQLCODE_TOKEN,
448:
449: l_return_status := validate_attributes(l_qulv_rec);
450:
451: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
452: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
453: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
454: RAISE OKL_API.G_EXCEPTION_ERROR;
455: END IF;
456:
450:
451: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
452: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
453: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
454: RAISE OKL_API.G_EXCEPTION_ERROR;
455: END IF;
456:
457: l_return_status := validate_record(l_qulv_rec);
458:
456:
457: l_return_status := validate_record(l_qulv_rec);
458:
459: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
460: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
461: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
462: RAISE OKL_API.G_EXCEPTION_ERROR;
463: END IF;
464:
458:
459: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
460: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
461: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
462: RAISE OKL_API.G_EXCEPTION_ERROR;
463: END IF;
464:
465: migrate (l_qulv_rec, l_qul_rec);
466:
466:
467: insert_row (x_return_status => l_return_status, p_qul_rec => l_qul_rec);
468:
469: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
470: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
471: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
472: RAISE OKL_API.G_EXCEPTION_ERROR;
473: END IF;
474:
468:
469: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
470: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
471: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
472: RAISE OKL_API.G_EXCEPTION_ERROR;
473: END IF;
474:
475: x_qulv_rec := l_qulv_rec;
476: x_return_status := l_return_status;
476: x_return_status := l_return_status;
477:
478: EXCEPTION
479:
480: WHEN OKL_API.G_EXCEPTION_ERROR THEN
481:
482: x_return_status := G_RET_STS_ERROR;
483:
484: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
480: WHEN OKL_API.G_EXCEPTION_ERROR THEN
481:
482: x_return_status := G_RET_STS_ERROR;
483:
484: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
485:
486: x_return_status := G_RET_STS_UNEXP_ERROR;
487:
488: WHEN OTHERS THEN
486: x_return_status := G_RET_STS_UNEXP_ERROR;
487:
488: WHEN OTHERS THEN
489:
490: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
491: p_msg_name => G_DB_ERROR,
492: p_token1 => G_PROG_NAME_TOKEN,
493: p_token1_value => l_prog_name,
494: p_token2 => G_SQLCODE_TOKEN,
529: p_qulv_rec => p_qulv_rec,
530: x_qulv_rec => x_qulv_rec);
531:
532: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
533: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
534: ELSIF l_return_status = G_RET_STS_ERROR THEN
535: RAISE OKL_API.G_EXCEPTION_ERROR;
536: END IF;
537:
531:
532: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
533: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
534: ELSIF l_return_status = G_RET_STS_ERROR THEN
535: RAISE OKL_API.G_EXCEPTION_ERROR;
536: END IF;
537:
538: x_return_status := l_return_status;
539:
538: x_return_status := l_return_status;
539:
540: EXCEPTION
541:
542: WHEN OKL_API.G_EXCEPTION_ERROR THEN
543:
544: x_return_status := G_RET_STS_ERROR;
545:
546: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
542: WHEN OKL_API.G_EXCEPTION_ERROR THEN
543:
544: x_return_status := G_RET_STS_ERROR;
545:
546: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
547:
548: x_return_status := G_RET_STS_UNEXP_ERROR;
549:
550: WHEN OTHERS THEN
548: x_return_status := G_RET_STS_UNEXP_ERROR;
549:
550: WHEN OTHERS THEN
551:
552: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
553: p_msg_name => G_DB_ERROR,
554: p_token1 => G_PROG_NAME_TOKEN,
555: p_token1_value => l_prog_name,
556: p_token2 => G_SQLCODE_TOKEN,
597: p_qulv_rec => p_qulv_tbl(i),
598: x_qulv_rec => x_qulv_tbl(i));
599:
600: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
601: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
602: ELSIF l_return_status = G_RET_STS_ERROR THEN
603: RAISE OKL_API.G_EXCEPTION_ERROR;
604: END IF;
605:
599:
600: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
601: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
602: ELSIF l_return_status = G_RET_STS_ERROR THEN
603: RAISE OKL_API.G_EXCEPTION_ERROR;
604: END IF;
605:
606: EXIT WHEN (i = p_qulv_tbl.LAST);
607: i := p_qulv_tbl.NEXT(i);
619: x_return_status := l_return_status;
620:
621: EXCEPTION
622:
623: WHEN OKL_API.G_EXCEPTION_ERROR THEN
624:
625: x_return_status := G_RET_STS_ERROR;
626:
627: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
623: WHEN OKL_API.G_EXCEPTION_ERROR THEN
624:
625: x_return_status := G_RET_STS_ERROR;
626:
627: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
628:
629: x_return_status := G_RET_STS_UNEXP_ERROR;
630:
631: WHEN OTHERS THEN
629: x_return_status := G_RET_STS_UNEXP_ERROR;
630:
631: WHEN OTHERS THEN
632:
633: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
634: p_msg_name => G_DB_ERROR,
635: p_token1 => G_PROG_NAME_TOKEN,
636: p_token1_value => l_prog_name,
637: p_token2 => G_SQLCODE_TOKEN,
683:
684: IF (lock_csr%ISOPEN) THEN
685: CLOSE lock_csr;
686: END IF;
687: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
688: p_msg_name => G_OVN_ERROR2,
689: p_token1 => G_PROG_NAME_TOKEN,
690: p_token1_value => l_prog_name);
691: RAISE OKL_API.G_EXCEPTION_ERROR;
687: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
688: p_msg_name => G_OVN_ERROR2,
689: p_token1 => G_PROG_NAME_TOKEN,
690: p_token1_value => l_prog_name);
691: RAISE OKL_API.G_EXCEPTION_ERROR;
692: END;
693:
694: IF l_object_version_number IS NULL THEN
695:
698: CLOSE lchk_csr;
699:
700: IF lc_object_version_number IS NULL THEN
701:
702: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
703: p_msg_name => G_OVN_ERROR3,
704: p_token1 => G_PROG_NAME_TOKEN,
705: p_token1_value => l_prog_name);
706:
705: p_token1_value => l_prog_name);
706:
707: ELSIF lc_object_version_number <> p_qul_rec.object_version_number THEN
708:
709: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
710: p_msg_name => G_OVN_ERROR,
711: p_token1 => G_PROG_NAME_TOKEN,
712: p_token1_value => l_prog_name);
713:
712: p_token1_value => l_prog_name);
713:
714: END IF;
715:
716: RAISE OKL_API.G_EXCEPTION_ERROR;
717:
718: END IF;
719:
720: x_return_status := G_RET_STS_SUCCESS;
720: x_return_status := G_RET_STS_SUCCESS;
721:
722: EXCEPTION
723:
724: WHEN OKL_API.G_EXCEPTION_ERROR THEN
725:
726: x_return_status := G_RET_STS_ERROR;
727:
728: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
724: WHEN OKL_API.G_EXCEPTION_ERROR THEN
725:
726: x_return_status := G_RET_STS_ERROR;
727:
728: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
729:
730: x_return_status := G_RET_STS_UNEXP_ERROR;
731:
732: WHEN OTHERS THEN
730: x_return_status := G_RET_STS_UNEXP_ERROR;
731:
732: WHEN OTHERS THEN
733:
734: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
735: p_msg_name => G_DB_ERROR,
736: p_token1 => G_PROG_NAME_TOKEN,
737: p_token1_value => l_prog_name,
738: p_token2 => G_SQLCODE_TOKEN,
760:
761: lock_row (x_return_status => l_return_status, p_qul_rec => p_qul_rec);
762:
763: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
764: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
765: ELSIF l_return_status = G_RET_STS_ERROR THEN
766: RAISE OKL_API.G_EXCEPTION_ERROR;
767: END IF;
768:
762:
763: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
764: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
765: ELSIF l_return_status = G_RET_STS_ERROR THEN
766: RAISE OKL_API.G_EXCEPTION_ERROR;
767: END IF;
768:
769: UPDATE okl_quote_subpool_usage
770: SET
803: x_return_status := l_return_status;
804:
805: EXCEPTION
806:
807: WHEN OKL_API.G_EXCEPTION_ERROR THEN
808: x_return_status := G_RET_STS_ERROR;
809:
810: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
811: x_return_status := G_RET_STS_UNEXP_ERROR;
806:
807: WHEN OKL_API.G_EXCEPTION_ERROR THEN
808: x_return_status := G_RET_STS_ERROR;
809:
810: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
811: x_return_status := G_RET_STS_UNEXP_ERROR;
812:
813: WHEN OTHERS THEN
814: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
810: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
811: x_return_status := G_RET_STS_UNEXP_ERROR;
812:
813: WHEN OTHERS THEN
814: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
815: p_msg_name => G_DB_ERROR,
816: p_token1 => G_PROG_NAME_TOKEN,
817: p_token1_value => l_prog_name,
818: p_token2 => G_SQLCODE_TOKEN,
856: x_qulv_rec := p_qulv_rec;
857: l_db_qulv_rec := get_rec (p_qulv_rec.id, l_return_status);
858:
859: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
860: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
861: ELSIF l_return_status = G_RET_STS_ERROR THEN
862: RAISE OKL_API.G_EXCEPTION_ERROR;
863: END IF;
864:
858:
859: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
860: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
861: ELSIF l_return_status = G_RET_STS_ERROR THEN
862: RAISE OKL_API.G_EXCEPTION_ERROR;
863: END IF;
864:
865: IF x_qulv_rec.attribute_category = FND_API.G_MISS_CHAR THEN
866: x_qulv_rec.attribute_category := l_db_qulv_rec.attribute_category;
953: RETURN l_return_status;
954:
955: EXCEPTION
956:
957: WHEN OKL_API.G_EXCEPTION_ERROR THEN
958:
959: x_return_status := G_RET_STS_ERROR;
960:
961: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
957: WHEN OKL_API.G_EXCEPTION_ERROR THEN
958:
959: x_return_status := G_RET_STS_ERROR;
960:
961: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
962:
963: x_return_status := G_RET_STS_UNEXP_ERROR;
964:
965: WHEN OTHERS THEN
963: x_return_status := G_RET_STS_UNEXP_ERROR;
964:
965: WHEN OTHERS THEN
966:
967: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
968: p_msg_name => G_DB_ERROR,
969: p_token1 => G_PROG_NAME_TOKEN,
970: p_token1_value => l_prog_name,
971: p_token2 => G_SQLCODE_TOKEN,
983:
984: l_return_status := populate_new_record (p_qulv_rec, l_qulv_rec);
985:
986: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
987: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
988: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
989: RAISE OKL_API.G_EXCEPTION_ERROR;
990: END IF;
991:
985:
986: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
987: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
988: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
989: RAISE OKL_API.G_EXCEPTION_ERROR;
990: END IF;
991:
992: l_return_status := validate_attributes (l_qulv_rec);
993:
991:
992: l_return_status := validate_attributes (l_qulv_rec);
993:
994: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
995: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
996: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
997: RAISE OKL_API.G_EXCEPTION_ERROR;
998: END IF;
999:
993:
994: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
995: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
996: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
997: RAISE OKL_API.G_EXCEPTION_ERROR;
998: END IF;
999:
1000: l_return_status := validate_record (l_qulv_rec);
1001:
999:
1000: l_return_status := validate_record (l_qulv_rec);
1001:
1002: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1003: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1004: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1005: RAISE OKL_API.G_EXCEPTION_ERROR;
1006: END IF;
1007:
1001:
1002: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1003: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1004: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1005: RAISE OKL_API.G_EXCEPTION_ERROR;
1006: END IF;
1007:
1008: migrate (l_qulv_rec, l_qul_rec);
1009:
1009:
1010: update_row (x_return_status => l_return_status, p_qul_rec => l_qul_rec);
1011:
1012: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1013: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1014: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1015: RAISE OKL_API.G_EXCEPTION_ERROR;
1016: END IF;
1017:
1011:
1012: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1013: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1014: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1015: RAISE OKL_API.G_EXCEPTION_ERROR;
1016: END IF;
1017:
1018: x_return_status := l_return_status;
1019: x_qulv_rec := l_qulv_rec;
1019: x_qulv_rec := l_qulv_rec;
1020:
1021: EXCEPTION
1022:
1023: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1024:
1025: x_return_status := G_RET_STS_ERROR;
1026:
1027: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1023: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1024:
1025: x_return_status := G_RET_STS_ERROR;
1026:
1027: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1028:
1029: x_return_status := G_RET_STS_UNEXP_ERROR;
1030:
1031: WHEN OTHERS THEN
1029: x_return_status := G_RET_STS_UNEXP_ERROR;
1030:
1031: WHEN OTHERS THEN
1032:
1033: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1034: p_msg_name => G_DB_ERROR,
1035: p_token1 => G_PROG_NAME_TOKEN,
1036: p_token1_value => l_prog_name,
1037: p_token2 => G_SQLCODE_TOKEN,
1072: p_qulv_rec => p_qulv_rec,
1073: x_qulv_rec => x_qulv_rec);
1074:
1075: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1076: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1077: ELSIF l_return_status = G_RET_STS_ERROR THEN
1078: RAISE OKL_API.G_EXCEPTION_ERROR;
1079: END IF;
1080:
1074:
1075: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1076: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1077: ELSIF l_return_status = G_RET_STS_ERROR THEN
1078: RAISE OKL_API.G_EXCEPTION_ERROR;
1079: END IF;
1080:
1081: x_return_status := l_return_status;
1082:
1081: x_return_status := l_return_status;
1082:
1083: EXCEPTION
1084:
1085: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1086:
1087: x_return_status := G_RET_STS_ERROR;
1088:
1089: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1085: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1086:
1087: x_return_status := G_RET_STS_ERROR;
1088:
1089: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1090:
1091: x_return_status := G_RET_STS_UNEXP_ERROR;
1092:
1093: WHEN OTHERS THEN
1091: x_return_status := G_RET_STS_UNEXP_ERROR;
1092:
1093: WHEN OTHERS THEN
1094:
1095: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1096: p_msg_name => G_DB_ERROR,
1097: p_token1 => G_PROG_NAME_TOKEN,
1098: p_token1_value => l_prog_name,
1099: p_token2 => G_SQLCODE_TOKEN,
1143: p_qulv_rec => p_qulv_tbl(i),
1144: x_qulv_rec => x_qulv_tbl(i));
1145:
1146: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1147: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1148: ELSIF l_return_status = G_RET_STS_ERROR THEN
1149: RAISE OKL_API.G_EXCEPTION_ERROR;
1150: END IF;
1151:
1145:
1146: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1147: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1148: ELSIF l_return_status = G_RET_STS_ERROR THEN
1149: RAISE OKL_API.G_EXCEPTION_ERROR;
1150: END IF;
1151:
1152: EXIT WHEN (i = p_qulv_tbl.LAST);
1153: i := p_qulv_tbl.NEXT(i);
1165: x_return_status := l_return_status;
1166:
1167: EXCEPTION
1168:
1169: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1170:
1171: x_return_status := G_RET_STS_ERROR;
1172:
1173: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1169: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1170:
1171: x_return_status := G_RET_STS_ERROR;
1172:
1173: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1174:
1175: x_return_status := G_RET_STS_UNEXP_ERROR;
1176:
1177: WHEN OTHERS THEN
1175: x_return_status := G_RET_STS_UNEXP_ERROR;
1176:
1177: WHEN OTHERS THEN
1178:
1179: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1180: p_msg_name => G_DB_ERROR,
1181: p_token1 => G_PROG_NAME_TOKEN,
1182: p_token1_value => l_prog_name,
1183: p_token2 => G_SQLCODE_TOKEN,
1210: EXCEPTION
1211:
1212: WHEN OTHERS THEN
1213:
1214: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1215: p_msg_name => G_DB_ERROR,
1216: p_token1 => G_PROG_NAME_TOKEN,
1217: p_token1_value => l_prog_name,
1218: p_token2 => G_SQLCODE_TOKEN,
1251: delete_row (x_return_status => l_return_status,
1252: p_id => p_qulv_rec.id);
1253:
1254: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1255: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1256: ELSIF l_return_status = G_RET_STS_ERROR THEN
1257: RAISE OKL_API.G_EXCEPTION_ERROR;
1258: END IF;
1259:
1253:
1254: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1255: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1256: ELSIF l_return_status = G_RET_STS_ERROR THEN
1257: RAISE OKL_API.G_EXCEPTION_ERROR;
1258: END IF;
1259:
1260: x_return_status := l_return_status;
1261:
1260: x_return_status := l_return_status;
1261:
1262: EXCEPTION
1263:
1264: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1265:
1266: x_return_status := G_RET_STS_ERROR;
1267:
1268: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1264: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1265:
1266: x_return_status := G_RET_STS_ERROR;
1267:
1268: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1269:
1270: x_return_status := G_RET_STS_UNEXP_ERROR;
1271:
1272: WHEN OTHERS THEN
1270: x_return_status := G_RET_STS_UNEXP_ERROR;
1271:
1272: WHEN OTHERS THEN
1273:
1274: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1275: p_msg_name => G_DB_ERROR,
1276: p_token1 => G_PROG_NAME_TOKEN,
1277: p_token1_value => l_prog_name,
1278: p_token2 => G_SQLCODE_TOKEN,
1320: delete_row (x_return_status => l_return_status,
1321: p_id => p_qulv_tbl(i).id);
1322:
1323: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1324: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1325: ELSIF l_return_status = G_RET_STS_ERROR THEN
1326: RAISE OKL_API.G_EXCEPTION_ERROR;
1327: END IF;
1328:
1322:
1323: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1324: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1325: ELSIF l_return_status = G_RET_STS_ERROR THEN
1326: RAISE OKL_API.G_EXCEPTION_ERROR;
1327: END IF;
1328:
1329: EXIT WHEN (i = p_qulv_tbl.LAST);
1330: i := p_qulv_tbl.NEXT(i);
1344: EXCEPTION
1345:
1346: WHEN OTHERS THEN
1347:
1348: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1349: p_msg_name => G_DB_ERROR,
1350: p_token1 => G_PROG_NAME_TOKEN,
1351: p_token1_value => l_prog_name,
1352: p_token2 => G_SQLCODE_TOKEN,