273: EXCEPTION
274:
275: WHEN OTHERS THEN
276:
277: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
278: p_msg_name => G_DB_ERROR,
279: p_token1 => G_PROG_NAME_TOKEN,
280: p_token1_value => l_prog_name,
281: p_token2 => G_SQLCODE_TOKEN,
293: ------------------------
294: PROCEDURE validate_id (x_return_status OUT NOCOPY VARCHAR2, p_id IN NUMBER) IS
295: BEGIN
296: IF p_id IS NULL THEN
297: OKL_API.set_message(p_app_name => G_APP_NAME,
298: p_msg_name => G_COL_ERROR,
299: p_token1 => G_COL_NAME_TOKEN,
300: p_token1_value => 'id',
301: p_token2 => G_PKG_NAME_TOKEN,
299: p_token1 => G_COL_NAME_TOKEN,
300: p_token1_value => 'id',
301: p_token2 => G_PKG_NAME_TOKEN,
302: p_token2_value => G_PKG_NAME);
303: RAISE OKL_API.G_EXCEPTION_ERROR;
304: END IF;
305: x_return_status := G_RET_STS_SUCCESS;
306: END validate_id;
307:
311: -------------------------------------------
312: PROCEDURE validate_object_version_number (x_return_status OUT NOCOPY VARCHAR2, p_object_version_number IN NUMBER) IS
313: BEGIN
314: IF p_object_version_number IS NULL THEN
315: OKL_API.set_message(p_app_name => G_APP_NAME,
316: p_msg_name => G_COL_ERROR,
317: p_token1 => G_COL_NAME_TOKEN,
318: p_token1_value => 'object_version_number',
319: p_token2 => G_PKG_NAME_TOKEN,
317: p_token1 => G_COL_NAME_TOKEN,
318: p_token1_value => 'object_version_number',
319: p_token2 => G_PKG_NAME_TOKEN,
320: p_token2_value => G_PKG_NAME);
321: RAISE OKL_API.G_EXCEPTION_ERROR;
322: END IF;
323: x_return_status := G_RET_STS_SUCCESS;
324: END validate_object_version_number;
325:
329: ------------------------
330: PROCEDURE validate_quick_quote_id (x_return_status OUT NOCOPY VARCHAR2, p_quick_quote_id IN NUMBER) IS
331: BEGIN
332: IF p_quick_quote_id IS NULL THEN
333: OKL_API.set_message(p_app_name => G_APP_NAME,
334: p_msg_name => G_COL_ERROR,
335: p_token1 => G_COL_NAME_TOKEN,
336: p_token1_value => 'quick_quote_id',
337: p_token2 => G_PKG_NAME_TOKEN,
335: p_token1 => G_COL_NAME_TOKEN,
336: p_token1_value => 'quick_quote_id',
337: p_token2 => G_PKG_NAME_TOKEN,
338: p_token2_value => G_PKG_NAME);
339: RAISE OKL_API.G_EXCEPTION_ERROR;
340: END IF;
341: x_return_status := G_RET_STS_SUCCESS;
342: END validate_quick_quote_id;
343:
347: --------------------------------------
348: PROCEDURE validate_type (x_return_status OUT NOCOPY VARCHAR2, p_type IN VARCHAR2) IS
349: BEGIN
350: IF p_type IS NULL THEN
351: OKL_API.set_message(p_app_name => G_APP_NAME,
352: p_msg_name => G_COL_ERROR,
353: p_token1 => G_COL_NAME_TOKEN,
354: p_token1_value => 'type',
355: p_token2 => G_PKG_NAME_TOKEN,
353: p_token1 => G_COL_NAME_TOKEN,
354: p_token1_value => 'type',
355: p_token2 => G_PKG_NAME_TOKEN,
356: p_token2_value => G_PKG_NAME);
357: RAISE OKL_API.G_EXCEPTION_ERROR;
358: END IF;
359: x_return_status := G_RET_STS_SUCCESS;
360: END validate_type;
361:
528: EXCEPTION
529:
530: WHEN OTHERS THEN
531:
532: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
533: p_msg_name => G_DB_ERROR,
534: p_token1 => G_PROG_NAME_TOKEN,
535: p_token1_value => l_prog_name,
536: p_token2 => G_SQLCODE_TOKEN,
603: EXCEPTION
604:
605: WHEN OTHERS THEN
606:
607: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
608: p_msg_name => G_DB_ERROR,
609: p_token1 => G_PROG_NAME_TOKEN,
610: p_token1_value => l_prog_name,
611: p_token2 => G_SQLCODE_TOKEN,
646:
647: l_return_status := validate_attributes(l_qqlv_rec);
648:
649: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
650: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
651: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
652: RAISE OKL_API.G_EXCEPTION_ERROR;
653: END IF;
654:
648:
649: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
650: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
651: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
652: RAISE OKL_API.G_EXCEPTION_ERROR;
653: END IF;
654:
655: l_return_status := validate_record(l_qqlv_rec);
656:
654:
655: l_return_status := validate_record(l_qqlv_rec);
656:
657: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
658: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
659: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
660: RAISE OKL_API.G_EXCEPTION_ERROR;
661: END IF;
662:
656:
657: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
658: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
659: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
660: RAISE OKL_API.G_EXCEPTION_ERROR;
661: END IF;
662:
663: migrate (l_qqlv_rec, l_qql_rec);
664: migrate (l_qqlv_rec, l_qqltl_rec);
665:
666: insert_row (x_return_status => l_return_status, p_qql_rec => l_qql_rec);
667:
668: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
669: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
670: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
671: RAISE OKL_API.G_EXCEPTION_ERROR;
672: END IF;
673:
667:
668: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
669: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
670: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
671: RAISE OKL_API.G_EXCEPTION_ERROR;
672: END IF;
673:
674: insert_row (x_return_status => l_return_status, p_qqltl_rec => l_qqltl_rec);
675:
673:
674: insert_row (x_return_status => l_return_status, p_qqltl_rec => l_qqltl_rec);
675:
676: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
677: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
678: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
679: RAISE OKL_API.G_EXCEPTION_ERROR;
680: END IF;
681:
675:
676: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
677: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
678: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
679: RAISE OKL_API.G_EXCEPTION_ERROR;
680: END IF;
681:
682: x_qqlv_rec := l_qqlv_rec;
683: x_return_status := l_return_status;
683: x_return_status := l_return_status;
684:
685: EXCEPTION
686:
687: WHEN OKL_API.G_EXCEPTION_ERROR THEN
688:
689: x_return_status := G_RET_STS_ERROR;
690:
691: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
687: WHEN OKL_API.G_EXCEPTION_ERROR THEN
688:
689: x_return_status := G_RET_STS_ERROR;
690:
691: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
692:
693: x_return_status := G_RET_STS_UNEXP_ERROR;
694:
695: WHEN OTHERS THEN
693: x_return_status := G_RET_STS_UNEXP_ERROR;
694:
695: WHEN OTHERS THEN
696:
697: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
698: p_msg_name => G_DB_ERROR,
699: p_token1 => G_PROG_NAME_TOKEN,
700: p_token1_value => l_prog_name,
701: p_token2 => G_SQLCODE_TOKEN,
736: p_qqlv_rec => p_qqlv_rec,
737: x_qqlv_rec => x_qqlv_rec);
738:
739: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
740: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
741: ELSIF l_return_status = G_RET_STS_ERROR THEN
742: RAISE OKL_API.G_EXCEPTION_ERROR;
743: END IF;
744:
738:
739: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
740: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
741: ELSIF l_return_status = G_RET_STS_ERROR THEN
742: RAISE OKL_API.G_EXCEPTION_ERROR;
743: END IF;
744:
745: x_return_status := l_return_status;
746:
745: x_return_status := l_return_status;
746:
747: EXCEPTION
748:
749: WHEN OKL_API.G_EXCEPTION_ERROR THEN
750:
751: x_return_status := G_RET_STS_ERROR;
752:
753: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
749: WHEN OKL_API.G_EXCEPTION_ERROR THEN
750:
751: x_return_status := G_RET_STS_ERROR;
752:
753: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
754:
755: x_return_status := G_RET_STS_UNEXP_ERROR;
756:
757: WHEN OTHERS THEN
755: x_return_status := G_RET_STS_UNEXP_ERROR;
756:
757: WHEN OTHERS THEN
758:
759: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
760: p_msg_name => G_DB_ERROR,
761: p_token1 => G_PROG_NAME_TOKEN,
762: p_token1_value => l_prog_name,
763: p_token2 => G_SQLCODE_TOKEN,
804: p_qqlv_rec => p_qqlv_tbl(i),
805: x_qqlv_rec => x_qqlv_tbl(i));
806:
807: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
808: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
809: ELSIF l_return_status = G_RET_STS_ERROR THEN
810: RAISE OKL_API.G_EXCEPTION_ERROR;
811: END IF;
812:
806:
807: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
808: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
809: ELSIF l_return_status = G_RET_STS_ERROR THEN
810: RAISE OKL_API.G_EXCEPTION_ERROR;
811: END IF;
812:
813: EXIT WHEN (i = p_qqlv_tbl.LAST);
814: i := p_qqlv_tbl.NEXT(i);
826: x_return_status := l_return_status;
827:
828: EXCEPTION
829:
830: WHEN OKL_API.G_EXCEPTION_ERROR THEN
831:
832: x_return_status := G_RET_STS_ERROR;
833:
834: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
830: WHEN OKL_API.G_EXCEPTION_ERROR THEN
831:
832: x_return_status := G_RET_STS_ERROR;
833:
834: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
835:
836: x_return_status := G_RET_STS_UNEXP_ERROR;
837:
838: WHEN OTHERS THEN
836: x_return_status := G_RET_STS_UNEXP_ERROR;
837:
838: WHEN OTHERS THEN
839:
840: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
841: p_msg_name => G_DB_ERROR,
842: p_token1 => G_PROG_NAME_TOKEN,
843: p_token1_value => l_prog_name,
844: p_token2 => G_SQLCODE_TOKEN,
890:
891: IF (lock_csr%ISOPEN) THEN
892: CLOSE lock_csr;
893: END IF;
894: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
895: p_msg_name => G_OVN_ERROR2,
896: p_token1 => G_PROG_NAME_TOKEN,
897: p_token1_value => l_prog_name);
898: RAISE OKL_API.G_EXCEPTION_ERROR;
894: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
895: p_msg_name => G_OVN_ERROR2,
896: p_token1 => G_PROG_NAME_TOKEN,
897: p_token1_value => l_prog_name);
898: RAISE OKL_API.G_EXCEPTION_ERROR;
899: END;
900:
901: IF l_object_version_number IS NULL THEN
902:
905: CLOSE lchk_csr;
906:
907: IF lc_object_version_number IS NULL THEN
908:
909: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
910: p_msg_name => G_OVN_ERROR3,
911: p_token1 => G_PROG_NAME_TOKEN,
912: p_token1_value => l_prog_name);
913:
912: p_token1_value => l_prog_name);
913:
914: ELSIF lc_object_version_number <> p_qql_rec.object_version_number THEN
915:
916: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
917: p_msg_name => G_OVN_ERROR,
918: p_token1 => G_PROG_NAME_TOKEN,
919: p_token1_value => l_prog_name);
920:
919: p_token1_value => l_prog_name);
920:
921: END IF;
922:
923: RAISE OKL_API.G_EXCEPTION_ERROR;
924:
925: END IF;
926:
927: x_return_status := G_RET_STS_SUCCESS;
927: x_return_status := G_RET_STS_SUCCESS;
928:
929: EXCEPTION
930:
931: WHEN OKL_API.G_EXCEPTION_ERROR THEN
932:
933: x_return_status := G_RET_STS_ERROR;
934:
935: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
931: WHEN OKL_API.G_EXCEPTION_ERROR THEN
932:
933: x_return_status := G_RET_STS_ERROR;
934:
935: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
936:
937: x_return_status := G_RET_STS_UNEXP_ERROR;
938:
939: WHEN OTHERS THEN
937: x_return_status := G_RET_STS_UNEXP_ERROR;
938:
939: WHEN OTHERS THEN
940:
941: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
942: p_msg_name => G_DB_ERROR,
943: p_token1 => G_PROG_NAME_TOKEN,
944: p_token1_value => l_prog_name,
945: p_token2 => G_SQLCODE_TOKEN,
967:
968: lock_row (x_return_status => l_return_status, p_qql_rec => p_qql_rec);
969:
970: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
971: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
972: ELSIF l_return_status = G_RET_STS_ERROR THEN
973: RAISE OKL_API.G_EXCEPTION_ERROR;
974: END IF;
975:
969:
970: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
971: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
972: ELSIF l_return_status = G_RET_STS_ERROR THEN
973: RAISE OKL_API.G_EXCEPTION_ERROR;
974: END IF;
975:
976: UPDATE okl_quick_quote_lines_b
977: SET
1007: x_return_status := l_return_status;
1008:
1009: EXCEPTION
1010:
1011: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1012: x_return_status := G_RET_STS_ERROR;
1013:
1014: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1015: x_return_status := G_RET_STS_UNEXP_ERROR;
1010:
1011: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1012: x_return_status := G_RET_STS_ERROR;
1013:
1014: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1015: x_return_status := G_RET_STS_UNEXP_ERROR;
1016:
1017: WHEN OTHERS THEN
1018: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1014: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1015: x_return_status := G_RET_STS_UNEXP_ERROR;
1016:
1017: WHEN OTHERS THEN
1018: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1019: p_msg_name => G_DB_ERROR,
1020: p_token1 => G_PROG_NAME_TOKEN,
1021: p_token1_value => l_prog_name,
1022: p_token2 => G_SQLCODE_TOKEN,
1062: EXCEPTION
1063:
1064: WHEN OTHERS THEN
1065:
1066: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1067: p_msg_name => G_DB_ERROR,
1068: p_token1 => G_PROG_NAME_TOKEN,
1069: p_token1_value => l_prog_name,
1070: p_token2 => G_SQLCODE_TOKEN,
1109: x_qqlv_rec := p_qqlv_rec;
1110: l_db_qqlv_rec := get_rec (p_qqlv_rec.id, l_return_status);
1111:
1112: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1113: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1114: ELSIF l_return_status = G_RET_STS_ERROR THEN
1115: RAISE OKL_API.G_EXCEPTION_ERROR;
1116: END IF;
1117:
1111:
1112: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1113: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1114: ELSIF l_return_status = G_RET_STS_ERROR THEN
1115: RAISE OKL_API.G_EXCEPTION_ERROR;
1116: END IF;
1117:
1118: -- smadhava - modified - G_MISS compliance - Start
1119: IF x_qqlv_rec.attribute_category IS NULL THEN
1294: RETURN l_return_status;
1295:
1296: EXCEPTION
1297:
1298: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1299:
1300: x_return_status := G_RET_STS_ERROR;
1301:
1302: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1298: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1299:
1300: x_return_status := G_RET_STS_ERROR;
1301:
1302: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1303:
1304: x_return_status := G_RET_STS_UNEXP_ERROR;
1305:
1306: WHEN OTHERS THEN
1304: x_return_status := G_RET_STS_UNEXP_ERROR;
1305:
1306: WHEN OTHERS THEN
1307:
1308: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1309: p_msg_name => G_DB_ERROR,
1310: p_token1 => G_PROG_NAME_TOKEN,
1311: p_token1_value => l_prog_name,
1312: p_token2 => G_SQLCODE_TOKEN,
1324:
1325: l_return_status := populate_new_record (p_qqlv_rec, l_qqlv_rec);
1326:
1327: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1328: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1329: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1330: RAISE OKL_API.G_EXCEPTION_ERROR;
1331: END IF;
1332:
1326:
1327: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1328: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1329: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1330: RAISE OKL_API.G_EXCEPTION_ERROR;
1331: END IF;
1332:
1333: l_return_status := validate_attributes (l_qqlv_rec);
1334:
1332:
1333: l_return_status := validate_attributes (l_qqlv_rec);
1334:
1335: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1336: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1337: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1338: RAISE OKL_API.G_EXCEPTION_ERROR;
1339: END IF;
1340:
1334:
1335: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1336: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1337: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1338: RAISE OKL_API.G_EXCEPTION_ERROR;
1339: END IF;
1340:
1341: l_return_status := validate_record (l_qqlv_rec);
1342:
1340:
1341: l_return_status := validate_record (l_qqlv_rec);
1342:
1343: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1344: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1345: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1346: RAISE OKL_API.G_EXCEPTION_ERROR;
1347: END IF;
1348:
1342:
1343: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1344: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1345: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1346: RAISE OKL_API.G_EXCEPTION_ERROR;
1347: END IF;
1348:
1349: migrate (l_qqlv_rec, l_qql_rec);
1350: migrate (l_qqlv_rec, l_qqltl_rec);
1351:
1352: update_row (x_return_status => l_return_status, p_qql_rec => l_qql_rec);
1353:
1354: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1356: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1357: RAISE OKL_API.G_EXCEPTION_ERROR;
1358: END IF;
1359:
1353:
1354: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1356: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1357: RAISE OKL_API.G_EXCEPTION_ERROR;
1358: END IF;
1359:
1360: update_row (x_return_status => l_return_status, p_qqltl_rec => l_qqltl_rec);
1361:
1359:
1360: update_row (x_return_status => l_return_status, p_qqltl_rec => l_qqltl_rec);
1361:
1362: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1363: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1364: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1365: RAISE OKL_API.G_EXCEPTION_ERROR;
1366: END IF;
1367:
1361:
1362: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1363: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1364: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1365: RAISE OKL_API.G_EXCEPTION_ERROR;
1366: END IF;
1367:
1368: x_return_status := l_return_status;
1369: x_qqlv_rec := l_qqlv_rec;
1369: x_qqlv_rec := l_qqlv_rec;
1370:
1371: EXCEPTION
1372:
1373: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1374:
1375: x_return_status := G_RET_STS_ERROR;
1376:
1377: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1373: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1374:
1375: x_return_status := G_RET_STS_ERROR;
1376:
1377: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1378:
1379: x_return_status := G_RET_STS_UNEXP_ERROR;
1380:
1381: WHEN OTHERS THEN
1379: x_return_status := G_RET_STS_UNEXP_ERROR;
1380:
1381: WHEN OTHERS THEN
1382:
1383: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1384: p_msg_name => G_DB_ERROR,
1385: p_token1 => G_PROG_NAME_TOKEN,
1386: p_token1_value => l_prog_name,
1387: p_token2 => G_SQLCODE_TOKEN,
1422: p_qqlv_rec => p_qqlv_rec,
1423: x_qqlv_rec => x_qqlv_rec);
1424:
1425: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1426: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1427: ELSIF l_return_status = G_RET_STS_ERROR THEN
1428: RAISE OKL_API.G_EXCEPTION_ERROR;
1429: END IF;
1430:
1424:
1425: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1426: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1427: ELSIF l_return_status = G_RET_STS_ERROR THEN
1428: RAISE OKL_API.G_EXCEPTION_ERROR;
1429: END IF;
1430:
1431: --viselvar added
1432: x_qqlv_rec.object_version_number:=x_qqlv_rec.object_version_number+1;
1433: x_return_status := l_return_status;
1434:
1435: EXCEPTION
1436:
1437: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1438:
1439: x_return_status := G_RET_STS_ERROR;
1440:
1441: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1437: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1438:
1439: x_return_status := G_RET_STS_ERROR;
1440:
1441: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1442:
1443: x_return_status := G_RET_STS_UNEXP_ERROR;
1444:
1445: WHEN OTHERS THEN
1443: x_return_status := G_RET_STS_UNEXP_ERROR;
1444:
1445: WHEN OTHERS THEN
1446:
1447: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1448: p_msg_name => G_DB_ERROR,
1449: p_token1 => G_PROG_NAME_TOKEN,
1450: p_token1_value => l_prog_name,
1451: p_token2 => G_SQLCODE_TOKEN,
1499: p_qqlv_rec => p_qqlv_tbl(i),
1500: x_qqlv_rec => x_qqlv_tbl(i));
1501:
1502: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1503: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1504: ELSIF l_return_status = G_RET_STS_ERROR THEN
1505: RAISE OKL_API.G_EXCEPTION_ERROR;
1506: END IF;
1507:
1501:
1502: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1503: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1504: ELSIF l_return_status = G_RET_STS_ERROR THEN
1505: RAISE OKL_API.G_EXCEPTION_ERROR;
1506: END IF;
1507:
1508: EXIT WHEN (i = p_qqlv_tbl.LAST);
1509: i := p_qqlv_tbl.NEXT(i);
1521: x_return_status := l_return_status;
1522:
1523: EXCEPTION
1524:
1525: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1526:
1527: x_return_status := G_RET_STS_ERROR;
1528:
1529: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1525: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1526:
1527: x_return_status := G_RET_STS_ERROR;
1528:
1529: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1530:
1531: x_return_status := G_RET_STS_UNEXP_ERROR;
1532:
1533: WHEN OTHERS THEN
1531: x_return_status := G_RET_STS_UNEXP_ERROR;
1532:
1533: WHEN OTHERS THEN
1534:
1535: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1536: p_msg_name => G_DB_ERROR,
1537: p_token1 => G_PROG_NAME_TOKEN,
1538: p_token1_value => l_prog_name,
1539: p_token2 => G_SQLCODE_TOKEN,
1567: EXCEPTION
1568:
1569: WHEN OTHERS THEN
1570:
1571: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1572: p_msg_name => G_DB_ERROR,
1573: p_token1 => G_PROG_NAME_TOKEN,
1574: p_token1_value => l_prog_name,
1575: p_token2 => G_SQLCODE_TOKEN,
1608: delete_row (x_return_status => l_return_status,
1609: p_id => p_qqlv_rec.id);
1610:
1611: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1612: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1613: ELSIF l_return_status = G_RET_STS_ERROR THEN
1614: RAISE OKL_API.G_EXCEPTION_ERROR;
1615: END IF;
1616:
1610:
1611: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1612: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1613: ELSIF l_return_status = G_RET_STS_ERROR THEN
1614: RAISE OKL_API.G_EXCEPTION_ERROR;
1615: END IF;
1616:
1617: x_return_status := l_return_status;
1618:
1617: x_return_status := l_return_status;
1618:
1619: EXCEPTION
1620:
1621: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1622:
1623: x_return_status := G_RET_STS_ERROR;
1624:
1625: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1621: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1622:
1623: x_return_status := G_RET_STS_ERROR;
1624:
1625: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1626:
1627: x_return_status := G_RET_STS_UNEXP_ERROR;
1628:
1629: WHEN OTHERS THEN
1627: x_return_status := G_RET_STS_UNEXP_ERROR;
1628:
1629: WHEN OTHERS THEN
1630:
1631: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1632: p_msg_name => G_DB_ERROR,
1633: p_token1 => G_PROG_NAME_TOKEN,
1634: p_token1_value => l_prog_name,
1635: p_token2 => G_SQLCODE_TOKEN,
1677: delete_row (x_return_status => l_return_status,
1678: p_id => p_qqlv_tbl(i).id);
1679:
1680: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1681: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1682: ELSIF l_return_status = G_RET_STS_ERROR THEN
1683: RAISE OKL_API.G_EXCEPTION_ERROR;
1684: END IF;
1685:
1679:
1680: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1681: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1682: ELSIF l_return_status = G_RET_STS_ERROR THEN
1683: RAISE OKL_API.G_EXCEPTION_ERROR;
1684: END IF;
1685:
1686: EXIT WHEN (i = p_qqlv_tbl.LAST);
1687: i := p_qqlv_tbl.NEXT(i);
1701: EXCEPTION
1702:
1703: WHEN OTHERS THEN
1704:
1705: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1706: p_msg_name => G_DB_ERROR,
1707: p_token1 => G_PROG_NAME_TOKEN,
1708: p_token1_value => l_prog_name,
1709: p_token2 => G_SQLCODE_TOKEN,