233: EXCEPTION
234:
235: WHEN OTHERS THEN
236:
237: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
238: p_msg_name => G_DB_ERROR,
239: p_token1 => G_PROG_NAME_TOKEN,
240: p_token1_value => l_prog_name,
241: p_token2 => G_SQLCODE_TOKEN,
253: ------------------------
254: PROCEDURE validate_id (x_return_status OUT NOCOPY VARCHAR2, p_id IN NUMBER) IS
255: BEGIN
256: IF p_id IS NULL THEN
257: OKL_API.set_message(p_app_name => G_APP_NAME,
258: p_msg_name => G_COL_ERROR,
259: p_token1 => G_COL_NAME_TOKEN,
260: p_token1_value => 'id',
261: p_token2 => G_PKG_NAME_TOKEN,
259: p_token1 => G_COL_NAME_TOKEN,
260: p_token1_value => 'id',
261: p_token2 => G_PKG_NAME_TOKEN,
262: p_token2_value => G_PKG_NAME);
263: RAISE OKL_API.G_EXCEPTION_ERROR;
264: END IF;
265: x_return_status := G_RET_STS_SUCCESS;
266: END validate_id;
267:
271: -------------------------------------------
272: PROCEDURE validate_object_version_number (x_return_status OUT NOCOPY VARCHAR2, p_object_version_number IN NUMBER) IS
273: BEGIN
274: IF p_object_version_number IS NULL THEN
275: OKL_API.set_message(p_app_name => G_APP_NAME,
276: p_msg_name => G_COL_ERROR,
277: p_token1 => G_COL_NAME_TOKEN,
278: p_token1_value => 'object_version_number',
279: p_token2 => G_PKG_NAME_TOKEN,
277: p_token1 => G_COL_NAME_TOKEN,
278: p_token1_value => 'object_version_number',
279: p_token2 => G_PKG_NAME_TOKEN,
280: p_token2_value => G_PKG_NAME);
281: RAISE OKL_API.G_EXCEPTION_ERROR;
282: END IF;
283: x_return_status := G_RET_STS_SUCCESS;
284: END validate_object_version_number;
285:
289: --------------------------------------
290: PROCEDURE validate_lease_quote_id (x_return_status OUT NOCOPY VARCHAR2, p_lease_quote_id IN NUMBER) IS
291: BEGIN
292: IF p_lease_quote_id IS NULL THEN
293: OKL_API.set_message(p_app_name => G_APP_NAME,
294: p_msg_name => G_COL_ERROR,
295: p_token1 => G_COL_NAME_TOKEN,
296: p_token1_value => 'lease_quote_id',
297: p_token2 => G_PKG_NAME_TOKEN,
295: p_token1 => G_COL_NAME_TOKEN,
296: p_token1_value => 'lease_quote_id',
297: p_token2 => G_PKG_NAME_TOKEN,
298: p_token2_value => G_PKG_NAME);
299: RAISE OKL_API.G_EXCEPTION_ERROR;
300: END IF;
301: x_return_status := G_RET_STS_SUCCESS;
302: END validate_lease_quote_id;
303:
307: --------------------------
308: PROCEDURE validate_policy_term (x_return_status OUT NOCOPY VARCHAR2, p_policy_term IN NUMBER) IS
309: BEGIN
310: IF p_policy_term IS NULL THEN
311: OKL_API.set_message(p_app_name => G_APP_NAME,
312: p_msg_name => G_COL_ERROR,
313: p_token1 => G_COL_NAME_TOKEN,
314: p_token1_value => 'policy_term',
315: p_token2 => G_PKG_NAME_TOKEN,
313: p_token1 => G_COL_NAME_TOKEN,
314: p_token1_value => 'policy_term',
315: p_token2 => G_PKG_NAME_TOKEN,
316: p_token2_value => G_PKG_NAME);
317: RAISE OKL_API.G_EXCEPTION_ERROR;
318: END IF;
319: x_return_status := G_RET_STS_SUCCESS;
320: END validate_policy_term;
321:
463: EXCEPTION
464:
465: WHEN OTHERS THEN
466:
467: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
468: p_msg_name => G_DB_ERROR,
469: p_token1 => G_PROG_NAME_TOKEN,
470: p_token1_value => l_prog_name,
471: p_token2 => G_SQLCODE_TOKEN,
538: EXCEPTION
539:
540: WHEN OTHERS THEN
541:
542: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
543: p_msg_name => G_DB_ERROR,
544: p_token1 => G_PROG_NAME_TOKEN,
545: p_token1_value => l_prog_name,
546: p_token2 => G_SQLCODE_TOKEN,
581:
582: l_return_status := validate_attributes(l_quev_rec);
583:
584: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
585: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
586: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
587: RAISE OKL_API.G_EXCEPTION_ERROR;
588: END IF;
589:
583:
584: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
585: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
586: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
587: RAISE OKL_API.G_EXCEPTION_ERROR;
588: END IF;
589:
590: l_return_status := validate_record(l_quev_rec);
591:
589:
590: l_return_status := validate_record(l_quev_rec);
591:
592: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
593: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
594: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
595: RAISE OKL_API.G_EXCEPTION_ERROR;
596: END IF;
597:
591:
592: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
593: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
594: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
595: RAISE OKL_API.G_EXCEPTION_ERROR;
596: END IF;
597:
598: migrate (l_quev_rec, l_que_rec);
599: migrate (l_quev_rec, l_quetl_rec);
600:
601: insert_row (x_return_status => l_return_status, p_que_rec => l_que_rec);
602:
603: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
604: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
605: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
606: RAISE OKL_API.G_EXCEPTION_ERROR;
607: END IF;
608:
602:
603: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
604: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
605: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
606: RAISE OKL_API.G_EXCEPTION_ERROR;
607: END IF;
608:
609: insert_row (x_return_status => l_return_status, p_quetl_rec => l_quetl_rec);
610:
608:
609: insert_row (x_return_status => l_return_status, p_quetl_rec => l_quetl_rec);
610:
611: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
612: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
613: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
614: RAISE OKL_API.G_EXCEPTION_ERROR;
615: END IF;
616:
610:
611: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
612: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
613: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
614: RAISE OKL_API.G_EXCEPTION_ERROR;
615: END IF;
616:
617: x_quev_rec := l_quev_rec;
618: x_return_status := l_return_status;
618: x_return_status := l_return_status;
619:
620: EXCEPTION
621:
622: WHEN OKL_API.G_EXCEPTION_ERROR THEN
623:
624: x_return_status := G_RET_STS_ERROR;
625:
626: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
622: WHEN OKL_API.G_EXCEPTION_ERROR THEN
623:
624: x_return_status := G_RET_STS_ERROR;
625:
626: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
627:
628: x_return_status := G_RET_STS_UNEXP_ERROR;
629:
630: WHEN OTHERS THEN
628: x_return_status := G_RET_STS_UNEXP_ERROR;
629:
630: WHEN OTHERS THEN
631:
632: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
633: p_msg_name => G_DB_ERROR,
634: p_token1 => G_PROG_NAME_TOKEN,
635: p_token1_value => l_prog_name,
636: p_token2 => G_SQLCODE_TOKEN,
671: p_quev_rec => p_quev_rec,
672: x_quev_rec => x_quev_rec);
673:
674: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
675: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
676: ELSIF l_return_status = G_RET_STS_ERROR THEN
677: RAISE OKL_API.G_EXCEPTION_ERROR;
678: END IF;
679:
673:
674: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
675: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
676: ELSIF l_return_status = G_RET_STS_ERROR THEN
677: RAISE OKL_API.G_EXCEPTION_ERROR;
678: END IF;
679:
680: x_return_status := l_return_status;
681:
680: x_return_status := l_return_status;
681:
682: EXCEPTION
683:
684: WHEN OKL_API.G_EXCEPTION_ERROR THEN
685:
686: x_return_status := G_RET_STS_ERROR;
687:
688: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
684: WHEN OKL_API.G_EXCEPTION_ERROR THEN
685:
686: x_return_status := G_RET_STS_ERROR;
687:
688: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
689:
690: x_return_status := G_RET_STS_UNEXP_ERROR;
691:
692: WHEN OTHERS THEN
690: x_return_status := G_RET_STS_UNEXP_ERROR;
691:
692: WHEN OTHERS THEN
693:
694: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
695: p_msg_name => G_DB_ERROR,
696: p_token1 => G_PROG_NAME_TOKEN,
697: p_token1_value => l_prog_name,
698: p_token2 => G_SQLCODE_TOKEN,
739: p_quev_rec => p_quev_tbl(i),
740: x_quev_rec => x_quev_tbl(i));
741:
742: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
743: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
744: ELSIF l_return_status = G_RET_STS_ERROR THEN
745: RAISE OKL_API.G_EXCEPTION_ERROR;
746: END IF;
747:
741:
742: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
743: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
744: ELSIF l_return_status = G_RET_STS_ERROR THEN
745: RAISE OKL_API.G_EXCEPTION_ERROR;
746: END IF;
747:
748: EXIT WHEN (i = p_quev_tbl.LAST);
749: i := p_quev_tbl.NEXT(i);
761: x_return_status := l_return_status;
762:
763: EXCEPTION
764:
765: WHEN OKL_API.G_EXCEPTION_ERROR THEN
766:
767: x_return_status := G_RET_STS_ERROR;
768:
769: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
765: WHEN OKL_API.G_EXCEPTION_ERROR THEN
766:
767: x_return_status := G_RET_STS_ERROR;
768:
769: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
770:
771: x_return_status := G_RET_STS_UNEXP_ERROR;
772:
773: WHEN OTHERS THEN
771: x_return_status := G_RET_STS_UNEXP_ERROR;
772:
773: WHEN OTHERS THEN
774:
775: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
776: p_msg_name => G_DB_ERROR,
777: p_token1 => G_PROG_NAME_TOKEN,
778: p_token1_value => l_prog_name,
779: p_token2 => G_SQLCODE_TOKEN,
825:
826: IF (lock_csr%ISOPEN) THEN
827: CLOSE lock_csr;
828: END IF;
829: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
830: p_msg_name => G_OVN_ERROR2,
831: p_token1 => G_PROG_NAME_TOKEN,
832: p_token1_value => l_prog_name);
833: RAISE OKL_API.G_EXCEPTION_ERROR;
829: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
830: p_msg_name => G_OVN_ERROR2,
831: p_token1 => G_PROG_NAME_TOKEN,
832: p_token1_value => l_prog_name);
833: RAISE OKL_API.G_EXCEPTION_ERROR;
834: END;
835:
836: IF l_object_version_number IS NULL THEN
837:
840: CLOSE lchk_csr;
841:
842: IF lc_object_version_number IS NULL THEN
843:
844: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
845: p_msg_name => G_OVN_ERROR3,
846: p_token1 => G_PROG_NAME_TOKEN,
847: p_token1_value => l_prog_name);
848:
847: p_token1_value => l_prog_name);
848:
849: ELSIF lc_object_version_number <> p_que_rec.object_version_number THEN
850:
851: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
852: p_msg_name => G_OVN_ERROR,
853: p_token1 => G_PROG_NAME_TOKEN,
854: p_token1_value => l_prog_name);
855:
854: p_token1_value => l_prog_name);
855:
856: END IF;
857:
858: RAISE OKL_API.G_EXCEPTION_ERROR;
859:
860: END IF;
861:
862: x_return_status := G_RET_STS_SUCCESS;
862: x_return_status := G_RET_STS_SUCCESS;
863:
864: EXCEPTION
865:
866: WHEN OKL_API.G_EXCEPTION_ERROR THEN
867:
868: x_return_status := G_RET_STS_ERROR;
869:
870: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
866: WHEN OKL_API.G_EXCEPTION_ERROR THEN
867:
868: x_return_status := G_RET_STS_ERROR;
869:
870: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
871:
872: x_return_status := G_RET_STS_UNEXP_ERROR;
873:
874: WHEN OTHERS THEN
872: x_return_status := G_RET_STS_UNEXP_ERROR;
873:
874: WHEN OTHERS THEN
875:
876: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
877: p_msg_name => G_DB_ERROR,
878: p_token1 => G_PROG_NAME_TOKEN,
879: p_token1_value => l_prog_name,
880: p_token2 => G_SQLCODE_TOKEN,
902:
903: lock_row (x_return_status => l_return_status, p_que_rec => p_que_rec);
904:
905: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
906: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
907: ELSIF l_return_status = G_RET_STS_ERROR THEN
908: RAISE OKL_API.G_EXCEPTION_ERROR;
909: END IF;
910:
904:
905: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
906: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
907: ELSIF l_return_status = G_RET_STS_ERROR THEN
908: RAISE OKL_API.G_EXCEPTION_ERROR;
909: END IF;
910:
911: UPDATE okl_insurance_estimates_b
912: SET
934: x_return_status := l_return_status;
935:
936: EXCEPTION
937:
938: WHEN OKL_API.G_EXCEPTION_ERROR THEN
939: x_return_status := G_RET_STS_ERROR;
940:
941: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
942: x_return_status := G_RET_STS_UNEXP_ERROR;
937:
938: WHEN OKL_API.G_EXCEPTION_ERROR THEN
939: x_return_status := G_RET_STS_ERROR;
940:
941: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
942: x_return_status := G_RET_STS_UNEXP_ERROR;
943:
944: WHEN OTHERS THEN
945: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
941: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
942: x_return_status := G_RET_STS_UNEXP_ERROR;
943:
944: WHEN OTHERS THEN
945: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
946: p_msg_name => G_DB_ERROR,
947: p_token1 => G_PROG_NAME_TOKEN,
948: p_token1_value => l_prog_name,
949: p_token2 => G_SQLCODE_TOKEN,
989: EXCEPTION
990:
991: WHEN OTHERS THEN
992:
993: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
994: p_msg_name => G_DB_ERROR,
995: p_token1 => G_PROG_NAME_TOKEN,
996: p_token1_value => l_prog_name,
997: p_token2 => G_SQLCODE_TOKEN,
1036: x_quev_rec := p_quev_rec;
1037: l_db_quev_rec := get_rec (p_quev_rec.id, l_return_status);
1038:
1039: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1040: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1041: ELSIF l_return_status = G_RET_STS_ERROR THEN
1042: RAISE OKL_API.G_EXCEPTION_ERROR;
1043: END IF;
1044:
1038:
1039: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1040: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1041: ELSIF l_return_status = G_RET_STS_ERROR THEN
1042: RAISE OKL_API.G_EXCEPTION_ERROR;
1043: END IF;
1044:
1045: IF x_quev_rec.attribute_category = FND_API.G_MISS_CHAR THEN
1046: x_quev_rec.attribute_category := l_db_quev_rec.attribute_category;
1109: RETURN l_return_status;
1110:
1111: EXCEPTION
1112:
1113: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1114:
1115: x_return_status := G_RET_STS_ERROR;
1116:
1117: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1113: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1114:
1115: x_return_status := G_RET_STS_ERROR;
1116:
1117: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1118:
1119: x_return_status := G_RET_STS_UNEXP_ERROR;
1120:
1121: WHEN OTHERS THEN
1119: x_return_status := G_RET_STS_UNEXP_ERROR;
1120:
1121: WHEN OTHERS THEN
1122:
1123: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1124: p_msg_name => G_DB_ERROR,
1125: p_token1 => G_PROG_NAME_TOKEN,
1126: p_token1_value => l_prog_name,
1127: p_token2 => G_SQLCODE_TOKEN,
1139:
1140: l_return_status := populate_new_record (p_quev_rec, l_quev_rec);
1141:
1142: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1143: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1144: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1145: RAISE OKL_API.G_EXCEPTION_ERROR;
1146: END IF;
1147:
1141:
1142: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1143: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1144: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1145: RAISE OKL_API.G_EXCEPTION_ERROR;
1146: END IF;
1147:
1148: l_return_status := validate_attributes (l_quev_rec);
1149:
1147:
1148: l_return_status := validate_attributes (l_quev_rec);
1149:
1150: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1151: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1152: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1153: RAISE OKL_API.G_EXCEPTION_ERROR;
1154: END IF;
1155:
1149:
1150: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1151: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1152: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1153: RAISE OKL_API.G_EXCEPTION_ERROR;
1154: END IF;
1155:
1156: l_return_status := validate_record (l_quev_rec);
1157:
1155:
1156: l_return_status := validate_record (l_quev_rec);
1157:
1158: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1159: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1160: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1161: RAISE OKL_API.G_EXCEPTION_ERROR;
1162: END IF;
1163:
1157:
1158: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1159: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1160: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1161: RAISE OKL_API.G_EXCEPTION_ERROR;
1162: END IF;
1163:
1164: migrate (l_quev_rec, l_que_rec);
1165: migrate (l_quev_rec, l_quetl_rec);
1166:
1167: update_row (x_return_status => l_return_status, p_que_rec => l_que_rec);
1168:
1169: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1170: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1171: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1172: RAISE OKL_API.G_EXCEPTION_ERROR;
1173: END IF;
1174:
1168:
1169: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1170: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1171: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1172: RAISE OKL_API.G_EXCEPTION_ERROR;
1173: END IF;
1174:
1175: update_row (x_return_status => l_return_status, p_quetl_rec => l_quetl_rec);
1176:
1174:
1175: update_row (x_return_status => l_return_status, p_quetl_rec => l_quetl_rec);
1176:
1177: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1179: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1180: RAISE OKL_API.G_EXCEPTION_ERROR;
1181: END IF;
1182:
1176:
1177: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1179: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1180: RAISE OKL_API.G_EXCEPTION_ERROR;
1181: END IF;
1182:
1183: x_return_status := l_return_status;
1184: x_quev_rec := l_quev_rec;
1184: x_quev_rec := l_quev_rec;
1185:
1186: EXCEPTION
1187:
1188: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1189:
1190: x_return_status := G_RET_STS_ERROR;
1191:
1192: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1188: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1189:
1190: x_return_status := G_RET_STS_ERROR;
1191:
1192: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1193:
1194: x_return_status := G_RET_STS_UNEXP_ERROR;
1195:
1196: WHEN OTHERS THEN
1194: x_return_status := G_RET_STS_UNEXP_ERROR;
1195:
1196: WHEN OTHERS THEN
1197:
1198: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1199: p_msg_name => G_DB_ERROR,
1200: p_token1 => G_PROG_NAME_TOKEN,
1201: p_token1_value => l_prog_name,
1202: p_token2 => G_SQLCODE_TOKEN,
1237: p_quev_rec => p_quev_rec,
1238: x_quev_rec => x_quev_rec);
1239:
1240: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1241: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1242: ELSIF l_return_status = G_RET_STS_ERROR THEN
1243: RAISE OKL_API.G_EXCEPTION_ERROR;
1244: END IF;
1245:
1239:
1240: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1241: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1242: ELSIF l_return_status = G_RET_STS_ERROR THEN
1243: RAISE OKL_API.G_EXCEPTION_ERROR;
1244: END IF;
1245:
1246: x_return_status := l_return_status;
1247:
1246: x_return_status := l_return_status;
1247:
1248: EXCEPTION
1249:
1250: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1251:
1252: x_return_status := G_RET_STS_ERROR;
1253:
1254: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1250: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1251:
1252: x_return_status := G_RET_STS_ERROR;
1253:
1254: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1255:
1256: x_return_status := G_RET_STS_UNEXP_ERROR;
1257:
1258: WHEN OTHERS THEN
1256: x_return_status := G_RET_STS_UNEXP_ERROR;
1257:
1258: WHEN OTHERS THEN
1259:
1260: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1261: p_msg_name => G_DB_ERROR,
1262: p_token1 => G_PROG_NAME_TOKEN,
1263: p_token1_value => l_prog_name,
1264: p_token2 => G_SQLCODE_TOKEN,
1308: p_quev_rec => p_quev_tbl(i),
1309: x_quev_rec => x_quev_tbl(i));
1310:
1311: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1312: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1313: ELSIF l_return_status = G_RET_STS_ERROR THEN
1314: RAISE OKL_API.G_EXCEPTION_ERROR;
1315: END IF;
1316:
1310:
1311: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1312: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1313: ELSIF l_return_status = G_RET_STS_ERROR THEN
1314: RAISE OKL_API.G_EXCEPTION_ERROR;
1315: END IF;
1316:
1317: EXIT WHEN (i = p_quev_tbl.LAST);
1318: i := p_quev_tbl.NEXT(i);
1330: x_return_status := l_return_status;
1331:
1332: EXCEPTION
1333:
1334: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1335:
1336: x_return_status := G_RET_STS_ERROR;
1337:
1338: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1334: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1335:
1336: x_return_status := G_RET_STS_ERROR;
1337:
1338: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1339:
1340: x_return_status := G_RET_STS_UNEXP_ERROR;
1341:
1342: WHEN OTHERS THEN
1340: x_return_status := G_RET_STS_UNEXP_ERROR;
1341:
1342: WHEN OTHERS THEN
1343:
1344: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1345: p_msg_name => G_DB_ERROR,
1346: p_token1 => G_PROG_NAME_TOKEN,
1347: p_token1_value => l_prog_name,
1348: p_token2 => G_SQLCODE_TOKEN,
1376: EXCEPTION
1377:
1378: WHEN OTHERS THEN
1379:
1380: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1381: p_msg_name => G_DB_ERROR,
1382: p_token1 => G_PROG_NAME_TOKEN,
1383: p_token1_value => l_prog_name,
1384: p_token2 => G_SQLCODE_TOKEN,
1417: delete_row (x_return_status => l_return_status,
1418: p_id => p_quev_rec.id);
1419:
1420: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1421: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1422: ELSIF l_return_status = G_RET_STS_ERROR THEN
1423: RAISE OKL_API.G_EXCEPTION_ERROR;
1424: END IF;
1425:
1419:
1420: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1421: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1422: ELSIF l_return_status = G_RET_STS_ERROR THEN
1423: RAISE OKL_API.G_EXCEPTION_ERROR;
1424: END IF;
1425:
1426: x_return_status := l_return_status;
1427:
1426: x_return_status := l_return_status;
1427:
1428: EXCEPTION
1429:
1430: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1431:
1432: x_return_status := G_RET_STS_ERROR;
1433:
1434: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1430: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1431:
1432: x_return_status := G_RET_STS_ERROR;
1433:
1434: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1435:
1436: x_return_status := G_RET_STS_UNEXP_ERROR;
1437:
1438: WHEN OTHERS THEN
1436: x_return_status := G_RET_STS_UNEXP_ERROR;
1437:
1438: WHEN OTHERS THEN
1439:
1440: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1441: p_msg_name => G_DB_ERROR,
1442: p_token1 => G_PROG_NAME_TOKEN,
1443: p_token1_value => l_prog_name,
1444: p_token2 => G_SQLCODE_TOKEN,
1486: delete_row (x_return_status => l_return_status,
1487: p_id => p_quev_tbl(i).id);
1488:
1489: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1490: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1491: ELSIF l_return_status = G_RET_STS_ERROR THEN
1492: RAISE OKL_API.G_EXCEPTION_ERROR;
1493: END IF;
1494:
1488:
1489: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1490: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1491: ELSIF l_return_status = G_RET_STS_ERROR THEN
1492: RAISE OKL_API.G_EXCEPTION_ERROR;
1493: END IF;
1494:
1495: EXIT WHEN (i = p_quev_tbl.LAST);
1496: i := p_quev_tbl.NEXT(i);
1510: EXCEPTION
1511:
1512: WHEN OTHERS THEN
1513:
1514: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1515: p_msg_name => G_DB_ERROR,
1516: p_token1 => G_PROG_NAME_TOKEN,
1517: p_token1_value => l_prog_name,
1518: p_token2 => G_SQLCODE_TOKEN,