243: EXCEPTION
244:
245: WHEN OTHERS THEN
246:
247: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
248: p_msg_name => G_DB_ERROR,
249: p_token1 => G_PROG_NAME_TOKEN,
250: p_token1_value => l_prog_name,
251: p_token2 => G_SQLCODE_TOKEN,
263: ------------------------
264: PROCEDURE validate_id (x_return_status OUT NOCOPY VARCHAR2, p_id IN NUMBER) IS
265: BEGIN
266: IF p_id IS NULL THEN
267: OKL_API.set_message(p_app_name => G_APP_NAME,
268: p_msg_name => G_COL_ERROR,
269: p_token1 => G_COL_NAME_TOKEN,
270: p_token1_value => 'id',
271: p_token2 => G_PKG_NAME_TOKEN,
269: p_token1 => G_COL_NAME_TOKEN,
270: p_token1_value => 'id',
271: p_token2 => G_PKG_NAME_TOKEN,
272: p_token2_value => G_PKG_NAME);
273: RAISE OKL_API.G_EXCEPTION_ERROR;
274: END IF;
275: x_return_status := G_RET_STS_SUCCESS;
276: END validate_id;
277:
281: -------------------------------------------
282: PROCEDURE validate_object_version_number (x_return_status OUT NOCOPY VARCHAR2, p_object_version_number IN NUMBER) IS
283: BEGIN
284: IF p_object_version_number IS NULL THEN
285: OKL_API.set_message(p_app_name => G_APP_NAME,
286: p_msg_name => G_COL_ERROR,
287: p_token1 => G_COL_NAME_TOKEN,
288: p_token1_value => 'object_version_number',
289: p_token2 => G_PKG_NAME_TOKEN,
287: p_token1 => G_COL_NAME_TOKEN,
288: p_token1_value => 'object_version_number',
289: p_token2 => G_PKG_NAME_TOKEN,
290: p_token2_value => G_PKG_NAME);
291: RAISE OKL_API.G_EXCEPTION_ERROR;
292: END IF;
293: x_return_status := G_RET_STS_SUCCESS;
294: END validate_object_version_number;
295:
299: ------------------------
300: PROCEDURE validate_org_id (x_return_status OUT NOCOPY VARCHAR2, p_org_id IN NUMBER) IS
301: BEGIN
302: IF p_org_id IS NULL THEN
303: OKL_API.set_message(p_app_name => G_APP_NAME,
304: p_msg_name => G_COL_ERROR,
305: p_token1 => G_COL_NAME_TOKEN,
306: p_token1_value => 'org_id',
307: p_token2 => G_PKG_NAME_TOKEN,
305: p_token1 => G_COL_NAME_TOKEN,
306: p_token1_value => 'org_id',
307: p_token2 => G_PKG_NAME_TOKEN,
308: p_token2_value => G_PKG_NAME);
309: RAISE OKL_API.G_EXCEPTION_ERROR;
310: END IF;
311: x_return_status := G_RET_STS_SUCCESS;
312: END validate_org_id;
313:
317: -------------------------------------------
318: PROCEDURE validate_validation_set_name (x_return_status OUT NOCOPY VARCHAR2, p_validation_set_name IN VARCHAR2) IS
319: BEGIN
320: IF p_validation_set_name IS NULL THEN
321: OKL_API.set_message(p_app_name => G_APP_NAME,
322: p_msg_name => G_COL_ERROR,
323: p_token1 => G_COL_NAME_TOKEN,
324: p_token1_value => 'validation_set_name',
325: p_token2 => G_PKG_NAME_TOKEN,
323: p_token1 => G_COL_NAME_TOKEN,
324: p_token1_value => 'validation_set_name',
325: p_token2 => G_PKG_NAME_TOKEN,
326: p_token2_value => G_PKG_NAME);
327: RAISE OKL_API.G_EXCEPTION_ERROR;
328: END IF;
329: x_return_status := G_RET_STS_SUCCESS;
330: END validate_validation_set_name;
331:
335: -------------------------------------------
336: PROCEDURE validate_effective_from (x_return_status OUT NOCOPY VARCHAR2, p_effective_from IN DATE) IS
337: BEGIN
338: IF p_effective_from IS NULL THEN
339: OKL_API.set_message(p_app_name => G_APP_NAME,
340: p_msg_name => G_COL_ERROR,
341: p_token1 => G_COL_NAME_TOKEN,
342: p_token1_value => 'effective_from',
343: p_token2 => G_PKG_NAME_TOKEN,
341: p_token1 => G_COL_NAME_TOKEN,
342: p_token1_value => 'effective_from',
343: p_token2 => G_PKG_NAME_TOKEN,
344: p_token2_value => G_PKG_NAME);
345: RAISE OKL_API.G_EXCEPTION_ERROR;
346: END IF;
347: x_return_status := G_RET_STS_SUCCESS;
348: END validate_effective_from;
349:
498: EXCEPTION
499:
500: WHEN OTHERS THEN
501:
502: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
503: p_msg_name => G_DB_ERROR,
504: p_token1 => G_PROG_NAME_TOKEN,
505: p_token1_value => l_prog_name,
506: p_token2 => G_SQLCODE_TOKEN,
573: EXCEPTION
574:
575: WHEN OTHERS THEN
576:
577: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
578: p_msg_name => G_DB_ERROR,
579: p_token1 => G_PROG_NAME_TOKEN,
580: p_token1_value => l_prog_name,
581: p_token2 => G_SQLCODE_TOKEN,
616:
617: l_return_status := validate_attributes(l_vlsv_rec);
618:
619: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
620: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
621: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
622: RAISE OKL_API.G_EXCEPTION_ERROR;
623: END IF;
624:
618:
619: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
620: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
621: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
622: RAISE OKL_API.G_EXCEPTION_ERROR;
623: END IF;
624:
625: l_return_status := validate_record(l_vlsv_rec);
626:
624:
625: l_return_status := validate_record(l_vlsv_rec);
626:
627: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
628: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
629: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
630: RAISE OKL_API.G_EXCEPTION_ERROR;
631: END IF;
632:
626:
627: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
628: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
629: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
630: RAISE OKL_API.G_EXCEPTION_ERROR;
631: END IF;
632:
633: migrate (l_vlsv_rec, l_vls_rec);
634: migrate (l_vlsv_rec, l_vlstl_rec);
635:
636: insert_row (x_return_status => l_return_status, p_vls_rec => l_vls_rec);
637:
638: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
639: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
640: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
641: RAISE OKL_API.G_EXCEPTION_ERROR;
642: END IF;
643:
637:
638: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
639: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
640: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
641: RAISE OKL_API.G_EXCEPTION_ERROR;
642: END IF;
643:
644: insert_row (x_return_status => l_return_status, p_vlstl_rec => l_vlstl_rec);
645:
643:
644: insert_row (x_return_status => l_return_status, p_vlstl_rec => l_vlstl_rec);
645:
646: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
647: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
648: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
649: RAISE OKL_API.G_EXCEPTION_ERROR;
650: END IF;
651:
645:
646: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
647: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
648: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
649: RAISE OKL_API.G_EXCEPTION_ERROR;
650: END IF;
651:
652: x_vlsv_rec := l_vlsv_rec;
653: x_return_status := l_return_status;
653: x_return_status := l_return_status;
654:
655: EXCEPTION
656:
657: WHEN OKL_API.G_EXCEPTION_ERROR THEN
658:
659: x_return_status := G_RET_STS_ERROR;
660:
661: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
657: WHEN OKL_API.G_EXCEPTION_ERROR THEN
658:
659: x_return_status := G_RET_STS_ERROR;
660:
661: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
662:
663: x_return_status := G_RET_STS_UNEXP_ERROR;
664:
665: WHEN OTHERS THEN
663: x_return_status := G_RET_STS_UNEXP_ERROR;
664:
665: WHEN OTHERS THEN
666:
667: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
668: p_msg_name => G_DB_ERROR,
669: p_token1 => G_PROG_NAME_TOKEN,
670: p_token1_value => l_prog_name,
671: p_token2 => G_SQLCODE_TOKEN,
706: p_vlsv_rec => p_vlsv_rec,
707: x_vlsv_rec => x_vlsv_rec);
708:
709: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
710: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
711: ELSIF l_return_status = G_RET_STS_ERROR THEN
712: RAISE OKL_API.G_EXCEPTION_ERROR;
713: END IF;
714:
708:
709: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
710: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
711: ELSIF l_return_status = G_RET_STS_ERROR THEN
712: RAISE OKL_API.G_EXCEPTION_ERROR;
713: END IF;
714:
715: x_return_status := l_return_status;
716:
715: x_return_status := l_return_status;
716:
717: EXCEPTION
718:
719: WHEN OKL_API.G_EXCEPTION_ERROR THEN
720:
721: x_return_status := G_RET_STS_ERROR;
722:
723: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
719: WHEN OKL_API.G_EXCEPTION_ERROR THEN
720:
721: x_return_status := G_RET_STS_ERROR;
722:
723: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
724:
725: x_return_status := G_RET_STS_UNEXP_ERROR;
726:
727: WHEN OTHERS THEN
725: x_return_status := G_RET_STS_UNEXP_ERROR;
726:
727: WHEN OTHERS THEN
728:
729: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
730: p_msg_name => G_DB_ERROR,
731: p_token1 => G_PROG_NAME_TOKEN,
732: p_token1_value => l_prog_name,
733: p_token2 => G_SQLCODE_TOKEN,
774: p_vlsv_rec => p_vlsv_tbl(i),
775: x_vlsv_rec => x_vlsv_tbl(i));
776:
777: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
778: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
779: ELSIF l_return_status = G_RET_STS_ERROR THEN
780: RAISE OKL_API.G_EXCEPTION_ERROR;
781: END IF;
782:
776:
777: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
778: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
779: ELSIF l_return_status = G_RET_STS_ERROR THEN
780: RAISE OKL_API.G_EXCEPTION_ERROR;
781: END IF;
782:
783: EXIT WHEN (i = p_vlsv_tbl.LAST);
784: i := p_vlsv_tbl.NEXT(i);
796: x_return_status := l_return_status;
797:
798: EXCEPTION
799:
800: WHEN OKL_API.G_EXCEPTION_ERROR THEN
801:
802: x_return_status := G_RET_STS_ERROR;
803:
804: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
800: WHEN OKL_API.G_EXCEPTION_ERROR THEN
801:
802: x_return_status := G_RET_STS_ERROR;
803:
804: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
805:
806: x_return_status := G_RET_STS_UNEXP_ERROR;
807:
808: WHEN OTHERS THEN
806: x_return_status := G_RET_STS_UNEXP_ERROR;
807:
808: WHEN OTHERS THEN
809:
810: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
811: p_msg_name => G_DB_ERROR,
812: p_token1 => G_PROG_NAME_TOKEN,
813: p_token1_value => l_prog_name,
814: p_token2 => G_SQLCODE_TOKEN,
860:
861: IF (lock_csr%ISOPEN) THEN
862: CLOSE lock_csr;
863: END IF;
864: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
865: p_msg_name => G_OVN_ERROR2,
866: p_token1 => G_PROG_NAME_TOKEN,
867: p_token1_value => l_prog_name);
868: RAISE OKL_API.G_EXCEPTION_ERROR;
864: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
865: p_msg_name => G_OVN_ERROR2,
866: p_token1 => G_PROG_NAME_TOKEN,
867: p_token1_value => l_prog_name);
868: RAISE OKL_API.G_EXCEPTION_ERROR;
869: END;
870:
871: IF l_object_version_number IS NULL THEN
872:
875: CLOSE lchk_csr;
876:
877: IF lc_object_version_number IS NULL THEN
878:
879: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
880: p_msg_name => G_OVN_ERROR3,
881: p_token1 => G_PROG_NAME_TOKEN,
882: p_token1_value => l_prog_name);
883:
882: p_token1_value => l_prog_name);
883:
884: ELSIF lc_object_version_number <> p_vls_rec.object_version_number THEN
885:
886: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
887: p_msg_name => G_OVN_ERROR,
888: p_token1 => G_PROG_NAME_TOKEN,
889: p_token1_value => l_prog_name);
890:
889: p_token1_value => l_prog_name);
890:
891: END IF;
892:
893: RAISE OKL_API.G_EXCEPTION_ERROR;
894:
895: END IF;
896:
897: x_return_status := G_RET_STS_SUCCESS;
897: x_return_status := G_RET_STS_SUCCESS;
898:
899: EXCEPTION
900:
901: WHEN OKL_API.G_EXCEPTION_ERROR THEN
902:
903: x_return_status := G_RET_STS_ERROR;
904:
905: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
901: WHEN OKL_API.G_EXCEPTION_ERROR THEN
902:
903: x_return_status := G_RET_STS_ERROR;
904:
905: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
906:
907: x_return_status := G_RET_STS_UNEXP_ERROR;
908:
909: WHEN OTHERS THEN
907: x_return_status := G_RET_STS_UNEXP_ERROR;
908:
909: WHEN OTHERS THEN
910:
911: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
912: p_msg_name => G_DB_ERROR,
913: p_token1 => G_PROG_NAME_TOKEN,
914: p_token1_value => l_prog_name,
915: p_token2 => G_SQLCODE_TOKEN,
937:
938: lock_row (x_return_status => l_return_status, p_vls_rec => p_vls_rec);
939:
940: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
941: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
942: ELSIF l_return_status = G_RET_STS_ERROR THEN
943: RAISE OKL_API.G_EXCEPTION_ERROR;
944: END IF;
945:
939:
940: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
941: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
942: ELSIF l_return_status = G_RET_STS_ERROR THEN
943: RAISE OKL_API.G_EXCEPTION_ERROR;
944: END IF;
945:
946: UPDATE okl_validation_sets_b
947: SET
971: x_return_status := l_return_status;
972:
973: EXCEPTION
974:
975: WHEN OKL_API.G_EXCEPTION_ERROR THEN
976: x_return_status := G_RET_STS_ERROR;
977:
978: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
979: x_return_status := G_RET_STS_UNEXP_ERROR;
974:
975: WHEN OKL_API.G_EXCEPTION_ERROR THEN
976: x_return_status := G_RET_STS_ERROR;
977:
978: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
979: x_return_status := G_RET_STS_UNEXP_ERROR;
980:
981: WHEN OTHERS THEN
982: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
978: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
979: x_return_status := G_RET_STS_UNEXP_ERROR;
980:
981: WHEN OTHERS THEN
982: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
983: p_msg_name => G_DB_ERROR,
984: p_token1 => G_PROG_NAME_TOKEN,
985: p_token1_value => l_prog_name,
986: p_token2 => G_SQLCODE_TOKEN,
1026: EXCEPTION
1027:
1028: WHEN OTHERS THEN
1029:
1030: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1031: p_msg_name => G_DB_ERROR,
1032: p_token1 => G_PROG_NAME_TOKEN,
1033: p_token1_value => l_prog_name,
1034: p_token2 => G_SQLCODE_TOKEN,
1071: x_vlsv_rec := p_vlsv_rec;
1072: l_db_vlsv_rec := get_rec (p_vlsv_rec.id, l_return_status);
1073:
1074: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1075: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1076: ELSIF l_return_status = G_RET_STS_ERROR THEN
1077: RAISE OKL_API.G_EXCEPTION_ERROR;
1078: END IF;
1079:
1073:
1074: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1075: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1076: ELSIF l_return_status = G_RET_STS_ERROR THEN
1077: RAISE OKL_API.G_EXCEPTION_ERROR;
1078: END IF;
1079:
1080: IF x_vlsv_rec.attribute_category = FND_API.G_MISS_CHAR THEN
1081: x_vlsv_rec.attribute_category := l_db_vlsv_rec.attribute_category;
1150: RETURN l_return_status;
1151:
1152: EXCEPTION
1153:
1154: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1155:
1156: x_return_status := G_RET_STS_ERROR;
1157:
1158: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1154: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1155:
1156: x_return_status := G_RET_STS_ERROR;
1157:
1158: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1159:
1160: x_return_status := G_RET_STS_UNEXP_ERROR;
1161:
1162: WHEN OTHERS THEN
1160: x_return_status := G_RET_STS_UNEXP_ERROR;
1161:
1162: WHEN OTHERS THEN
1163:
1164: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1165: p_msg_name => G_DB_ERROR,
1166: p_token1 => G_PROG_NAME_TOKEN,
1167: p_token1_value => l_prog_name,
1168: p_token2 => G_SQLCODE_TOKEN,
1180:
1181: l_return_status := populate_new_record (p_vlsv_rec, l_vlsv_rec);
1182:
1183: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1184: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1185: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1186: RAISE OKL_API.G_EXCEPTION_ERROR;
1187: END IF;
1188:
1182:
1183: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1184: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1185: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1186: RAISE OKL_API.G_EXCEPTION_ERROR;
1187: END IF;
1188:
1189: l_return_status := validate_attributes (l_vlsv_rec);
1190:
1188:
1189: l_return_status := validate_attributes (l_vlsv_rec);
1190:
1191: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1192: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1193: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1194: RAISE OKL_API.G_EXCEPTION_ERROR;
1195: END IF;
1196:
1190:
1191: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1192: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1193: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1194: RAISE OKL_API.G_EXCEPTION_ERROR;
1195: END IF;
1196:
1197: l_return_status := validate_record (l_vlsv_rec);
1198:
1196:
1197: l_return_status := validate_record (l_vlsv_rec);
1198:
1199: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1200: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1201: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1202: RAISE OKL_API.G_EXCEPTION_ERROR;
1203: END IF;
1204:
1198:
1199: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1200: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1201: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1202: RAISE OKL_API.G_EXCEPTION_ERROR;
1203: END IF;
1204:
1205: migrate (l_vlsv_rec, l_vls_rec);
1206: migrate (l_vlsv_rec, l_vlstl_rec);
1207:
1208: update_row (x_return_status => l_return_status, p_vls_rec => l_vls_rec);
1209:
1210: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1211: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1212: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1213: RAISE OKL_API.G_EXCEPTION_ERROR;
1214: END IF;
1215:
1209:
1210: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1211: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1212: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1213: RAISE OKL_API.G_EXCEPTION_ERROR;
1214: END IF;
1215:
1216: update_row (x_return_status => l_return_status, p_vlstl_rec => l_vlstl_rec);
1217:
1215:
1216: update_row (x_return_status => l_return_status, p_vlstl_rec => l_vlstl_rec);
1217:
1218: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1219: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1220: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1221: RAISE OKL_API.G_EXCEPTION_ERROR;
1222: END IF;
1223:
1217:
1218: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1219: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1220: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1221: RAISE OKL_API.G_EXCEPTION_ERROR;
1222: END IF;
1223:
1224: x_return_status := l_return_status;
1225: x_vlsv_rec := l_vlsv_rec;
1225: x_vlsv_rec := l_vlsv_rec;
1226:
1227: EXCEPTION
1228:
1229: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1230:
1231: x_return_status := G_RET_STS_ERROR;
1232:
1233: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1229: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1230:
1231: x_return_status := G_RET_STS_ERROR;
1232:
1233: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1234:
1235: x_return_status := G_RET_STS_UNEXP_ERROR;
1236:
1237: WHEN OTHERS THEN
1235: x_return_status := G_RET_STS_UNEXP_ERROR;
1236:
1237: WHEN OTHERS THEN
1238:
1239: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1240: p_msg_name => G_DB_ERROR,
1241: p_token1 => G_PROG_NAME_TOKEN,
1242: p_token1_value => l_prog_name,
1243: p_token2 => G_SQLCODE_TOKEN,
1278: p_vlsv_rec => p_vlsv_rec,
1279: x_vlsv_rec => x_vlsv_rec);
1280:
1281: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1282: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1283: ELSIF l_return_status = G_RET_STS_ERROR THEN
1284: RAISE OKL_API.G_EXCEPTION_ERROR;
1285: END IF;
1286:
1280:
1281: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1282: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1283: ELSIF l_return_status = G_RET_STS_ERROR THEN
1284: RAISE OKL_API.G_EXCEPTION_ERROR;
1285: END IF;
1286:
1287: x_return_status := l_return_status;
1288:
1287: x_return_status := l_return_status;
1288:
1289: EXCEPTION
1290:
1291: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1292:
1293: x_return_status := G_RET_STS_ERROR;
1294:
1295: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1291: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1292:
1293: x_return_status := G_RET_STS_ERROR;
1294:
1295: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1296:
1297: x_return_status := G_RET_STS_UNEXP_ERROR;
1298:
1299: WHEN OTHERS THEN
1297: x_return_status := G_RET_STS_UNEXP_ERROR;
1298:
1299: WHEN OTHERS THEN
1300:
1301: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1302: p_msg_name => G_DB_ERROR,
1303: p_token1 => G_PROG_NAME_TOKEN,
1304: p_token1_value => l_prog_name,
1305: p_token2 => G_SQLCODE_TOKEN,
1349: p_vlsv_rec => p_vlsv_tbl(i),
1350: x_vlsv_rec => x_vlsv_tbl(i));
1351:
1352: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1353: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1354: ELSIF l_return_status = G_RET_STS_ERROR THEN
1355: RAISE OKL_API.G_EXCEPTION_ERROR;
1356: END IF;
1357:
1351:
1352: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1353: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1354: ELSIF l_return_status = G_RET_STS_ERROR THEN
1355: RAISE OKL_API.G_EXCEPTION_ERROR;
1356: END IF;
1357:
1358: EXIT WHEN (i = p_vlsv_tbl.LAST);
1359: i := p_vlsv_tbl.NEXT(i);
1371: x_return_status := l_return_status;
1372:
1373: EXCEPTION
1374:
1375: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1376:
1377: x_return_status := G_RET_STS_ERROR;
1378:
1379: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1375: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1376:
1377: x_return_status := G_RET_STS_ERROR;
1378:
1379: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1380:
1381: x_return_status := G_RET_STS_UNEXP_ERROR;
1382:
1383: WHEN OTHERS THEN
1381: x_return_status := G_RET_STS_UNEXP_ERROR;
1382:
1383: WHEN OTHERS THEN
1384:
1385: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1386: p_msg_name => G_DB_ERROR,
1387: p_token1 => G_PROG_NAME_TOKEN,
1388: p_token1_value => l_prog_name,
1389: p_token2 => G_SQLCODE_TOKEN,
1417: EXCEPTION
1418:
1419: WHEN OTHERS THEN
1420:
1421: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1422: p_msg_name => G_DB_ERROR,
1423: p_token1 => G_PROG_NAME_TOKEN,
1424: p_token1_value => l_prog_name,
1425: p_token2 => G_SQLCODE_TOKEN,
1458: delete_row (x_return_status => l_return_status,
1459: p_id => p_vlsv_rec.id);
1460:
1461: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1462: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1463: ELSIF l_return_status = G_RET_STS_ERROR THEN
1464: RAISE OKL_API.G_EXCEPTION_ERROR;
1465: END IF;
1466:
1460:
1461: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1462: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1463: ELSIF l_return_status = G_RET_STS_ERROR THEN
1464: RAISE OKL_API.G_EXCEPTION_ERROR;
1465: END IF;
1466:
1467: x_return_status := l_return_status;
1468:
1467: x_return_status := l_return_status;
1468:
1469: EXCEPTION
1470:
1471: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1472:
1473: x_return_status := G_RET_STS_ERROR;
1474:
1475: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1471: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1472:
1473: x_return_status := G_RET_STS_ERROR;
1474:
1475: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1476:
1477: x_return_status := G_RET_STS_UNEXP_ERROR;
1478:
1479: WHEN OTHERS THEN
1477: x_return_status := G_RET_STS_UNEXP_ERROR;
1478:
1479: WHEN OTHERS THEN
1480:
1481: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1482: p_msg_name => G_DB_ERROR,
1483: p_token1 => G_PROG_NAME_TOKEN,
1484: p_token1_value => l_prog_name,
1485: p_token2 => G_SQLCODE_TOKEN,
1527: delete_row (x_return_status => l_return_status,
1528: p_id => p_vlsv_tbl(i).id);
1529:
1530: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1531: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1532: ELSIF l_return_status = G_RET_STS_ERROR THEN
1533: RAISE OKL_API.G_EXCEPTION_ERROR;
1534: END IF;
1535:
1529:
1530: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1531: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1532: ELSIF l_return_status = G_RET_STS_ERROR THEN
1533: RAISE OKL_API.G_EXCEPTION_ERROR;
1534: END IF;
1535:
1536: EXIT WHEN (i = p_vlsv_tbl.LAST);
1537: i := p_vlsv_tbl.NEXT(i);
1551: EXCEPTION
1552:
1553: WHEN OTHERS THEN
1554:
1555: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1556: p_msg_name => G_DB_ERROR,
1557: p_token1 => G_PROG_NAME_TOKEN,
1558: p_token1_value => l_prog_name,
1559: p_token2 => G_SQLCODE_TOKEN,