344: EXCEPTION
345:
346: WHEN OTHERS THEN
347:
348: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
349: p_msg_name => G_DB_ERROR,
350: p_token1 => G_PROG_NAME_TOKEN,
351: p_token1_value => l_prog_name,
352: p_token2 => G_SQLCODE_TOKEN,
362: -- PROCEDURE validate_id
363: ------------------------
364: PROCEDURE validate_id (x_return_status OUT NOCOPY VARCHAR2, p_id IN NUMBER) IS
365: BEGIN
366: IF (p_id = OKL_API.G_MISS_NUM OR
367: p_id IS NULL)
368: THEN
369: OKL_API.set_message(p_app_name => G_APP_NAME,
370: p_msg_name => G_COL_ERROR,
365: BEGIN
366: IF (p_id = OKL_API.G_MISS_NUM OR
367: p_id IS NULL)
368: THEN
369: OKL_API.set_message(p_app_name => G_APP_NAME,
370: p_msg_name => G_COL_ERROR,
371: p_token1 => G_COL_NAME_TOKEN,
372: p_token1_value => 'id',
373: p_token2 => G_PKG_NAME_TOKEN,
371: p_token1 => G_COL_NAME_TOKEN,
372: p_token1_value => 'id',
373: p_token2 => G_PKG_NAME_TOKEN,
374: p_token2_value => G_PKG_NAME);
375: RAISE OKL_API.G_EXCEPTION_ERROR;
376: END IF;
377: x_return_status := G_RET_STS_SUCCESS;
378: END validate_id;
379:
381: -- PROCEDURE validate_object_version_number
382: -------------------------------------------
383: PROCEDURE validate_object_version_number (x_return_status OUT NOCOPY VARCHAR2, p_object_version_number IN NUMBER) IS
384: BEGIN
385: IF (p_object_version_number = OKL_API.G_MISS_NUM OR
386: p_object_version_number IS NULL)
387: THEN
388: OKL_API.set_message(p_app_name => G_APP_NAME,
389: p_msg_name => G_COL_ERROR,
384: BEGIN
385: IF (p_object_version_number = OKL_API.G_MISS_NUM OR
386: p_object_version_number IS NULL)
387: THEN
388: OKL_API.set_message(p_app_name => G_APP_NAME,
389: p_msg_name => G_COL_ERROR,
390: p_token1 => G_COL_NAME_TOKEN,
391: p_token1_value => 'object_version_number',
392: p_token2 => G_PKG_NAME_TOKEN,
390: p_token1 => G_COL_NAME_TOKEN,
391: p_token1_value => 'object_version_number',
392: p_token2 => G_PKG_NAME_TOKEN,
393: p_token2_value => G_PKG_NAME);
394: RAISE OKL_API.G_EXCEPTION_ERROR;
395: END IF;
396: x_return_status := G_RET_STS_SUCCESS;
397: END validate_object_version_number;
398:
400: -- PROCEDURE validate_reference_number
401: --------------------------------------
402: PROCEDURE validate_reference_number (x_return_status OUT NOCOPY VARCHAR2, p_reference_number IN VARCHAR2) IS
403: BEGIN
404: IF (p_reference_number = OKL_API.G_MISS_CHAR OR
405: p_reference_number IS NULL)
406: THEN
407: OKL_API.set_message(p_app_name => G_APP_NAME,
408: p_msg_name => G_COL_ERROR,
403: BEGIN
404: IF (p_reference_number = OKL_API.G_MISS_CHAR OR
405: p_reference_number IS NULL)
406: THEN
407: OKL_API.set_message(p_app_name => G_APP_NAME,
408: p_msg_name => G_COL_ERROR,
409: p_token1 => G_COL_NAME_TOKEN,
410: p_token1_value => 'reference_number',
411: p_token2 => G_PKG_NAME_TOKEN,
409: p_token1 => G_COL_NAME_TOKEN,
410: p_token1_value => 'reference_number',
411: p_token2 => G_PKG_NAME_TOKEN,
412: p_token2_value => G_PKG_NAME);
413: RAISE OKL_API.G_EXCEPTION_ERROR;
414: END IF;
415:
416: x_return_status := G_RET_STS_SUCCESS;
417: END validate_reference_number;
420: -- PROCEDURE validate_application_status
421: -----------------------------------------
422: PROCEDURE validate_application_status (x_return_status OUT NOCOPY VARCHAR2, p_application_status IN VARCHAR2) IS
423: BEGIN
424: IF (p_application_status = OKL_API.G_MISS_CHAR OR
425: p_application_status IS NULL)
426: THEN
427: OKL_API.set_message(p_app_name => G_APP_NAME,
428: p_msg_name => G_COL_ERROR,
423: BEGIN
424: IF (p_application_status = OKL_API.G_MISS_CHAR OR
425: p_application_status IS NULL)
426: THEN
427: OKL_API.set_message(p_app_name => G_APP_NAME,
428: p_msg_name => G_COL_ERROR,
429: p_token1 => G_COL_NAME_TOKEN,
430: p_token1_value => 'application_status',
431: p_token2 => G_PKG_NAME_TOKEN,
429: p_token1 => G_COL_NAME_TOKEN,
430: p_token1_value => 'application_status',
431: p_token2 => G_PKG_NAME_TOKEN,
432: p_token2_value => G_PKG_NAME);
433: RAISE OKL_API.G_EXCEPTION_ERROR;
434: END IF;
435:
436: x_return_status := G_RET_STS_SUCCESS;
437: END validate_application_status;
440: -- PROCEDURE validate_valid_from
441: -----------------------------------------
442: PROCEDURE validate_valid_from (x_return_status OUT NOCOPY VARCHAR2, p_valid_from IN DATE) IS
443: BEGIN
444: IF (p_valid_from = OKL_API.G_MISS_DATE OR
445: p_valid_from IS NULL)
446: THEN
447: OKL_API.set_message(p_app_name => G_APP_NAME,
448: p_msg_name => G_COL_ERROR,
443: BEGIN
444: IF (p_valid_from = OKL_API.G_MISS_DATE OR
445: p_valid_from IS NULL)
446: THEN
447: OKL_API.set_message(p_app_name => G_APP_NAME,
448: p_msg_name => G_COL_ERROR,
449: p_token1 => G_COL_NAME_TOKEN,
450: p_token1_value => 'valid_from',
451: p_token2 => G_PKG_NAME_TOKEN,
449: p_token1 => G_COL_NAME_TOKEN,
450: p_token1_value => 'valid_from',
451: p_token2 => G_PKG_NAME_TOKEN,
452: p_token2_value => G_PKG_NAME);
453: RAISE OKL_API.G_EXCEPTION_ERROR;
454: END IF;
455: x_return_status := G_RET_STS_SUCCESS;
456: END validate_valid_from;
457:
459: -- PROCEDURE validate_org_id
460: ----------------------------
461: PROCEDURE validate_org_id (x_return_status OUT NOCOPY VARCHAR2, p_org_id IN NUMBER) IS
462: BEGIN
463: IF (p_org_id = OKL_API.G_MISS_NUM OR
464: p_org_id IS NULL)
465: THEN
466: OKL_API.set_message(p_app_name => G_APP_NAME,
467: p_msg_name => G_COL_ERROR,
462: BEGIN
463: IF (p_org_id = OKL_API.G_MISS_NUM OR
464: p_org_id IS NULL)
465: THEN
466: OKL_API.set_message(p_app_name => G_APP_NAME,
467: p_msg_name => G_COL_ERROR,
468: p_token1 => G_COL_NAME_TOKEN,
469: p_token1_value => 'org_id',
470: p_token2 => G_PKG_NAME_TOKEN,
468: p_token1 => G_COL_NAME_TOKEN,
469: p_token1_value => 'org_id',
470: p_token2 => G_PKG_NAME_TOKEN,
471: p_token2_value => G_PKG_NAME);
472: RAISE OKL_API.G_EXCEPTION_ERROR;
473: END IF;
474: x_return_status := G_RET_STS_SUCCESS;
475: END validate_org_id;
476:
478: -- PROCEDURE validate_inv_org_id
479: --------------------------------
480: PROCEDURE validate_inv_org_id (x_return_status OUT NOCOPY VARCHAR2, p_inv_org_id IN NUMBER) IS
481: BEGIN
482: IF (p_inv_org_id = OKL_API.G_MISS_NUM OR
483: p_inv_org_id IS NULL)
484: THEN
485: OKL_API.set_message(p_app_name => G_APP_NAME,
486: p_msg_name => G_COL_ERROR,
481: BEGIN
482: IF (p_inv_org_id = OKL_API.G_MISS_NUM OR
483: p_inv_org_id IS NULL)
484: THEN
485: OKL_API.set_message(p_app_name => G_APP_NAME,
486: p_msg_name => G_COL_ERROR,
487: p_token1 => G_COL_NAME_TOKEN,
488: p_token1_value => 'inv_org_id',
489: p_token2 => G_PKG_NAME_TOKEN,
487: p_token1 => G_COL_NAME_TOKEN,
488: p_token1_value => 'inv_org_id',
489: p_token2 => G_PKG_NAME_TOKEN,
490: p_token2_value => G_PKG_NAME);
491: RAISE OKL_API.G_EXCEPTION_ERROR;
492: END IF;
493: x_return_status := G_RET_STS_SUCCESS;
494: END validate_inv_org_id;
495:
497: -- PROCEDURE validate_prospect_id
498: ---------------------------------
499: PROCEDURE validate_prospect_id (x_return_status OUT NOCOPY VARCHAR2, p_prospect_id IN NUMBER) IS
500: BEGIN
501: IF (p_prospect_id = OKL_API.G_MISS_NUM OR
502: p_prospect_id IS NULL)
503: THEN
504: OKL_API.set_message(p_app_name => G_APP_NAME,
505: p_msg_name => G_COL_ERROR,
500: BEGIN
501: IF (p_prospect_id = OKL_API.G_MISS_NUM OR
502: p_prospect_id IS NULL)
503: THEN
504: OKL_API.set_message(p_app_name => G_APP_NAME,
505: p_msg_name => G_COL_ERROR,
506: p_token1 => G_COL_NAME_TOKEN,
507: p_token1_value => 'prospect_id',
508: p_token2 => G_PKG_NAME_TOKEN,
506: p_token1 => G_COL_NAME_TOKEN,
507: p_token1_value => 'prospect_id',
508: p_token2 => G_PKG_NAME_TOKEN,
509: p_token2_value => G_PKG_NAME);
510: RAISE OKL_API.G_EXCEPTION_ERROR;
511: END IF;
512: x_return_status := G_RET_STS_SUCCESS;
513: END validate_prospect_id;
514:
516: -- PROCEDURE validate_prospect_address_id
517: -----------------------------------------
518: PROCEDURE validate_prospect_address_id (x_return_status OUT NOCOPY VARCHAR2, p_prospect_address_id IN NUMBER) IS
519: BEGIN
520: IF (p_prospect_address_id = OKL_API.G_MISS_NUM OR
521: p_prospect_address_id IS NULL)
522: THEN
523: OKL_API.set_message(p_app_name => G_APP_NAME,
524: p_msg_name => G_COL_ERROR,
519: BEGIN
520: IF (p_prospect_address_id = OKL_API.G_MISS_NUM OR
521: p_prospect_address_id IS NULL)
522: THEN
523: OKL_API.set_message(p_app_name => G_APP_NAME,
524: p_msg_name => G_COL_ERROR,
525: p_token1 => G_COL_NAME_TOKEN,
526: p_token1_value => 'prospect_address_id',
527: p_token2 => G_PKG_NAME_TOKEN,
525: p_token1 => G_COL_NAME_TOKEN,
526: p_token1_value => 'prospect_address_id',
527: p_token2 => G_PKG_NAME_TOKEN,
528: p_token2_value => G_PKG_NAME);
529: RAISE OKL_API.G_EXCEPTION_ERROR;
530: END IF;
531: x_return_status := G_RET_STS_SUCCESS;
532: END validate_prospect_address_id;
533:
535: -- PROCEDURE validate_currency_code
536: -----------------------------------------
537: PROCEDURE validate_currency_code (x_return_status OUT NOCOPY VARCHAR2, p_currency_code IN VARCHAR2) IS
538: BEGIN
539: IF (p_currency_code = OKL_API.G_MISS_CHAR OR
540: p_currency_code IS NULL)
541: THEN
542: OKL_API.set_message(p_app_name => G_APP_NAME,
543: p_msg_name => G_COL_ERROR,
538: BEGIN
539: IF (p_currency_code = OKL_API.G_MISS_CHAR OR
540: p_currency_code IS NULL)
541: THEN
542: OKL_API.set_message(p_app_name => G_APP_NAME,
543: p_msg_name => G_COL_ERROR,
544: p_token1 => G_COL_NAME_TOKEN,
545: p_token1_value => 'currency_code',
546: p_token2 => G_PKG_NAME_TOKEN,
544: p_token1 => G_COL_NAME_TOKEN,
545: p_token1_value => 'currency_code',
546: p_token2 => G_PKG_NAME_TOKEN,
547: p_token2_value => G_PKG_NAME);
548: RAISE OKL_API.G_EXCEPTION_ERROR;
549: END IF;
550: x_return_status := G_RET_STS_SUCCESS;
551: END validate_currency_code;
552:
554: -- PROCEDURE validate_leaseapp_template_id
555: -----------------------------------------
556: PROCEDURE validate_leaseapp_template_id (x_return_status OUT NOCOPY VARCHAR2, p_leaseapp_template_id IN NUMBER) IS
557: BEGIN
558: IF (p_leaseapp_template_id = OKL_API.G_MISS_NUM OR
559: p_leaseapp_template_id IS NULL)
560: THEN
561: OKL_API.set_message(p_app_name => G_APP_NAME,
562: p_msg_name => G_COL_ERROR,
557: BEGIN
558: IF (p_leaseapp_template_id = OKL_API.G_MISS_NUM OR
559: p_leaseapp_template_id IS NULL)
560: THEN
561: OKL_API.set_message(p_app_name => G_APP_NAME,
562: p_msg_name => G_COL_ERROR,
563: p_token1 => G_COL_NAME_TOKEN,
564: p_token1_value => 'leaseapp_template_id',
565: p_token2 => G_PKG_NAME_TOKEN,
563: p_token1 => G_COL_NAME_TOKEN,
564: p_token1_value => 'leaseapp_template_id',
565: p_token2 => G_PKG_NAME_TOKEN,
566: p_token2_value => G_PKG_NAME);
567: RAISE OKL_API.G_EXCEPTION_ERROR;
568: END IF;
569: x_return_status := G_RET_STS_SUCCESS;
570: END validate_leaseapp_template_id;
571:
612: l_return_status := G_RET_STS_SUCCESS;
613: --If Valid To is not null and is less than or equal to Valid From then error
614: IF(NVL(p_lapv_rec.valid_to, TO_DATE('31-12-9999', 'dd-mm-yyyy')) <= p_lapv_rec.valid_from)
615: THEN
616: OKL_API.SET_MESSAGE(
617: p_app_name => G_APP_NAME,
618: p_msg_name => 'OKL_GREATER_THAN',
619: p_token1 => 'COL_NAME1',
620: p_token1_value => 'valid_to',
632: FETCH chk_lse_app_num_csr INTO l_dummy;
633: IF chk_lse_app_num_csr%FOUND
634: THEN
635: l_return_status := G_RET_STS_ERROR;
636: OKL_API.SET_MESSAGE(
637: p_app_name => G_APP_NAME,
638: p_msg_name => 'OKL_SO_LSE_APP_NOT_UNIQ',
639: p_token1 => 'TEXT',
640: p_token1_value => p_lapv_rec.reference_number);
831: EXCEPTION
832:
833: WHEN OTHERS THEN
834:
835: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
836: p_msg_name => G_DB_ERROR,
837: p_token1 => G_PROG_NAME_TOKEN,
838: p_token1_value => l_prog_name,
839: p_token2 => G_SQLCODE_TOKEN,
903: EXCEPTION
904:
905: WHEN OTHERS THEN
906:
907: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
908: p_msg_name => G_DB_ERROR,
909: p_token1 => G_PROG_NAME_TOKEN,
910: p_token1_value => l_prog_name,
911: p_token2 => G_SQLCODE_TOKEN,
945:
946: l_return_status := validate_attributes(l_lapv_rec);
947:
948: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
949: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
950: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
951: RAISE OKL_API.G_EXCEPTION_ERROR;
952: END IF;
953:
947:
948: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
949: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
950: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
951: RAISE OKL_API.G_EXCEPTION_ERROR;
952: END IF;
953:
954: --Bug 7022258-Added by kkorrapo
955: IF (okl_util.validate_seq_num('OKL_LAP_REF_SEQ','OKL_LEASE_APPLICATIONS_B','REFERENCE_NUMBER',l_lapv_rec.reference_number) = 'N') THEN
952: END IF;
953:
954: --Bug 7022258-Added by kkorrapo
955: IF (okl_util.validate_seq_num('OKL_LAP_REF_SEQ','OKL_LEASE_APPLICATIONS_B','REFERENCE_NUMBER',l_lapv_rec.reference_number) = 'N') THEN
956: RAISE okl_api.g_exception_error;
957: END IF;
958: --Bug 7022258--Addition end
959:
960: l_return_status := validate_record(l_lapv_rec);
959:
960: l_return_status := validate_record(l_lapv_rec);
961:
962: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
963: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
964: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
965: RAISE OKL_API.G_EXCEPTION_ERROR;
966: END IF;
967:
961:
962: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
963: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
964: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
965: RAISE OKL_API.G_EXCEPTION_ERROR;
966: END IF;
967:
968: migrate (l_lapv_rec, l_lap_rec);
969: migrate (l_lapv_rec, l_laptl_rec);
970:
971: insert_row (x_return_status => l_return_status, p_lap_rec => l_lap_rec);
972:
973: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
974: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
975: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
976: RAISE OKL_API.G_EXCEPTION_ERROR;
977: END IF;
978:
972:
973: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
974: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
975: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
976: RAISE OKL_API.G_EXCEPTION_ERROR;
977: END IF;
978:
979: insert_row (x_return_status => l_return_status, p_laptl_rec => l_laptl_rec);
980:
978:
979: insert_row (x_return_status => l_return_status, p_laptl_rec => l_laptl_rec);
980:
981: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
982: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
983: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
984: RAISE OKL_API.G_EXCEPTION_ERROR;
985: END IF;
986:
980:
981: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
982: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
983: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
984: RAISE OKL_API.G_EXCEPTION_ERROR;
985: END IF;
986:
987: x_lapv_rec := l_lapv_rec;
988: x_return_status := l_return_status;
988: x_return_status := l_return_status;
989:
990: EXCEPTION
991:
992: WHEN OKL_API.G_EXCEPTION_ERROR THEN
993:
994: x_return_status := G_RET_STS_ERROR;
995:
996: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
992: WHEN OKL_API.G_EXCEPTION_ERROR THEN
993:
994: x_return_status := G_RET_STS_ERROR;
995:
996: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
997:
998: x_return_status := G_RET_STS_UNEXP_ERROR;
999:
1000: WHEN OTHERS THEN
998: x_return_status := G_RET_STS_UNEXP_ERROR;
999:
1000: WHEN OTHERS THEN
1001:
1002: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1003: p_msg_name => G_DB_ERROR,
1004: p_token1 => G_PROG_NAME_TOKEN,
1005: p_token1_value => l_prog_name,
1006: p_token2 => G_SQLCODE_TOKEN,
1041: p_lapv_rec => p_lapv_rec,
1042: x_lapv_rec => x_lapv_rec);
1043:
1044: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1045: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1046: ELSIF l_return_status = G_RET_STS_ERROR THEN
1047: RAISE OKL_API.G_EXCEPTION_ERROR;
1048: END IF;
1049:
1043:
1044: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1045: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1046: ELSIF l_return_status = G_RET_STS_ERROR THEN
1047: RAISE OKL_API.G_EXCEPTION_ERROR;
1048: END IF;
1049:
1050: x_return_status := l_return_status;
1051:
1050: x_return_status := l_return_status;
1051:
1052: EXCEPTION
1053:
1054: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1055:
1056: x_return_status := G_RET_STS_ERROR;
1057:
1058: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1054: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1055:
1056: x_return_status := G_RET_STS_ERROR;
1057:
1058: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1059:
1060: x_return_status := G_RET_STS_UNEXP_ERROR;
1061:
1062: WHEN OTHERS THEN
1060: x_return_status := G_RET_STS_UNEXP_ERROR;
1061:
1062: WHEN OTHERS THEN
1063:
1064: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1065: p_msg_name => G_DB_ERROR,
1066: p_token1 => G_PROG_NAME_TOKEN,
1067: p_token1_value => l_prog_name,
1068: p_token2 => G_SQLCODE_TOKEN,
1109: p_lapv_rec => p_lapv_tbl(i),
1110: x_lapv_rec => x_lapv_tbl(i));
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: EXIT WHEN (i = p_lapv_tbl.LAST);
1119: i := p_lapv_tbl.NEXT(i);
1131: x_return_status := l_return_status;
1132:
1133: EXCEPTION
1134:
1135: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1136:
1137: x_return_status := G_RET_STS_ERROR;
1138:
1139: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1135: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1136:
1137: x_return_status := G_RET_STS_ERROR;
1138:
1139: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1140:
1141: x_return_status := G_RET_STS_UNEXP_ERROR;
1142:
1143: WHEN OTHERS THEN
1141: x_return_status := G_RET_STS_UNEXP_ERROR;
1142:
1143: WHEN OTHERS THEN
1144:
1145: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1146: p_msg_name => G_DB_ERROR,
1147: p_token1 => G_PROG_NAME_TOKEN,
1148: p_token1_value => l_prog_name,
1149: p_token2 => G_SQLCODE_TOKEN,
1195:
1196: IF (lock_csr%ISOPEN) THEN
1197: CLOSE lock_csr;
1198: END IF;
1199: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1200: p_msg_name => G_OVN_ERROR2,
1201: p_token1 => G_PROG_NAME_TOKEN,
1202: p_token1_value => l_prog_name);
1203: RAISE OKL_API.G_EXCEPTION_ERROR;
1199: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1200: p_msg_name => G_OVN_ERROR2,
1201: p_token1 => G_PROG_NAME_TOKEN,
1202: p_token1_value => l_prog_name);
1203: RAISE OKL_API.G_EXCEPTION_ERROR;
1204: END;
1205:
1206: IF l_object_version_number IS NULL THEN
1207:
1210: CLOSE lchk_csr;
1211:
1212: IF lc_object_version_number IS NULL THEN
1213:
1214: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1215: p_msg_name => G_OVN_ERROR3,
1216: p_token1 => G_PROG_NAME_TOKEN,
1217: p_token1_value => l_prog_name);
1218:
1217: p_token1_value => l_prog_name);
1218:
1219: ELSIF lc_object_version_number <> p_lap_rec.object_version_number THEN
1220:
1221: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1222: p_msg_name => G_OVN_ERROR,
1223: p_token1 => G_PROG_NAME_TOKEN,
1224: p_token1_value => l_prog_name);
1225:
1224: p_token1_value => l_prog_name);
1225:
1226: END IF;
1227:
1228: RAISE OKL_API.G_EXCEPTION_ERROR;
1229:
1230: END IF;
1231:
1232: x_return_status := G_RET_STS_SUCCESS;
1232: x_return_status := G_RET_STS_SUCCESS;
1233:
1234: EXCEPTION
1235:
1236: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1237:
1238: x_return_status := G_RET_STS_ERROR;
1239:
1240: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1236: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1237:
1238: x_return_status := G_RET_STS_ERROR;
1239:
1240: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1241:
1242: x_return_status := G_RET_STS_UNEXP_ERROR;
1243:
1244: WHEN OTHERS THEN
1242: x_return_status := G_RET_STS_UNEXP_ERROR;
1243:
1244: WHEN OTHERS THEN
1245:
1246: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1247: p_msg_name => G_DB_ERROR,
1248: p_token1 => G_PROG_NAME_TOKEN,
1249: p_token1_value => l_prog_name,
1250: p_token2 => G_SQLCODE_TOKEN,
1272:
1273: lock_row (x_return_status => l_return_status, p_lap_rec => p_lap_rec);
1274:
1275: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1276: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1277: ELSIF l_return_status = G_RET_STS_ERROR THEN
1278: RAISE OKL_API.G_EXCEPTION_ERROR;
1279: END IF;
1280:
1274:
1275: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1276: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1277: ELSIF l_return_status = G_RET_STS_ERROR THEN
1278: RAISE OKL_API.G_EXCEPTION_ERROR;
1279: END IF;
1280:
1281: UPDATE okl_lease_applications_b
1282: SET
1329: x_return_status := l_return_status;
1330:
1331: EXCEPTION
1332:
1333: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1334: x_return_status := G_RET_STS_ERROR;
1335:
1336: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1337: x_return_status := G_RET_STS_UNEXP_ERROR;
1332:
1333: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1334: x_return_status := G_RET_STS_ERROR;
1335:
1336: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1337: x_return_status := G_RET_STS_UNEXP_ERROR;
1338:
1339: WHEN OTHERS THEN
1340: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1336: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1337: x_return_status := G_RET_STS_UNEXP_ERROR;
1338:
1339: WHEN OTHERS THEN
1340: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1341: p_msg_name => G_DB_ERROR,
1342: p_token1 => G_PROG_NAME_TOKEN,
1343: p_token1_value => l_prog_name,
1344: p_token2 => G_SQLCODE_TOKEN,
1382: EXCEPTION
1383:
1384: WHEN OTHERS THEN
1385:
1386: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1387: p_msg_name => G_DB_ERROR,
1388: p_token1 => G_PROG_NAME_TOKEN,
1389: p_token1_value => l_prog_name,
1390: p_token2 => G_SQLCODE_TOKEN,
1425: x_lapv_rec := p_lapv_rec;
1426: l_db_lapv_rec := get_rec (p_lapv_rec.id, l_return_status);
1427:
1428: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1430: ELSIF l_return_status = G_RET_STS_ERROR THEN
1431: RAISE OKL_API.G_EXCEPTION_ERROR;
1432: END IF;
1433:
1427:
1428: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1430: ELSIF l_return_status = G_RET_STS_ERROR THEN
1431: RAISE OKL_API.G_EXCEPTION_ERROR;
1432: END IF;
1433:
1434: IF x_lapv_rec.attribute_category IS NULL THEN
1435: x_lapv_rec.attribute_category := l_db_lapv_rec.attribute_category;
1575: --Bug 4872271 PAGARG end
1576: RETURN l_return_status;
1577:
1578: EXCEPTION
1579: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1580: x_return_status := G_RET_STS_ERROR;
1581:
1582: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1583:
1578: EXCEPTION
1579: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1580: x_return_status := G_RET_STS_ERROR;
1581:
1582: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1583:
1584: x_return_status := G_RET_STS_UNEXP_ERROR;
1585:
1586: WHEN OTHERS THEN
1584: x_return_status := G_RET_STS_UNEXP_ERROR;
1585:
1586: WHEN OTHERS THEN
1587:
1588: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1589: p_msg_name => G_DB_ERROR,
1590: p_token1 => G_PROG_NAME_TOKEN,
1591: p_token1_value => l_prog_name,
1592: p_token2 => G_SQLCODE_TOKEN,
1605: l_return_status := populate_new_record (p_lapv_rec, l_lapv_rec);
1606: l_lapv_rec := null_out_defaults(l_lapv_rec);
1607:
1608: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1609: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1610: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1611: RAISE OKL_API.G_EXCEPTION_ERROR;
1612: END IF;
1613:
1607:
1608: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1609: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1610: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1611: RAISE OKL_API.G_EXCEPTION_ERROR;
1612: END IF;
1613:
1614: l_return_status := validate_attributes (l_lapv_rec);
1615:
1613:
1614: l_return_status := validate_attributes (l_lapv_rec);
1615:
1616: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1617: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1618: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1619: RAISE OKL_API.G_EXCEPTION_ERROR;
1620: END IF;
1621:
1615:
1616: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1617: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1618: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1619: RAISE OKL_API.G_EXCEPTION_ERROR;
1620: END IF;
1621:
1622: l_return_status := validate_record (l_lapv_rec);
1623:
1621:
1622: l_return_status := validate_record (l_lapv_rec);
1623:
1624: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1625: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1626: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1627: RAISE OKL_API.G_EXCEPTION_ERROR;
1628: END IF;
1629:
1623:
1624: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1625: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1626: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1627: RAISE OKL_API.G_EXCEPTION_ERROR;
1628: END IF;
1629:
1630: migrate (l_lapv_rec, l_lap_rec);
1631: migrate (l_lapv_rec, l_laptl_rec);
1632:
1633: update_row (x_return_status => l_return_status, p_lap_rec => l_lap_rec);
1634:
1635: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1636: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1637: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1638: RAISE OKL_API.G_EXCEPTION_ERROR;
1639: END IF;
1640:
1634:
1635: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1636: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1637: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1638: RAISE OKL_API.G_EXCEPTION_ERROR;
1639: END IF;
1640:
1641: update_row (x_return_status => l_return_status, p_laptl_rec => l_laptl_rec);
1642:
1640:
1641: update_row (x_return_status => l_return_status, p_laptl_rec => l_laptl_rec);
1642:
1643: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1644: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1645: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1646: RAISE OKL_API.G_EXCEPTION_ERROR;
1647: END IF;
1648:
1642:
1643: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1644: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1645: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
1646: RAISE OKL_API.G_EXCEPTION_ERROR;
1647: END IF;
1648:
1649: x_return_status := l_return_status;
1650: x_lapv_rec := l_lapv_rec;
1650: x_lapv_rec := l_lapv_rec;
1651:
1652: EXCEPTION
1653:
1654: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1655:
1656: x_return_status := G_RET_STS_ERROR;
1657:
1658: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1654: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1655:
1656: x_return_status := G_RET_STS_ERROR;
1657:
1658: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1659:
1660: x_return_status := G_RET_STS_UNEXP_ERROR;
1661:
1662: WHEN OTHERS THEN
1660: x_return_status := G_RET_STS_UNEXP_ERROR;
1661:
1662: WHEN OTHERS THEN
1663:
1664: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1665: p_msg_name => G_DB_ERROR,
1666: p_token1 => G_PROG_NAME_TOKEN,
1667: p_token1_value => l_prog_name,
1668: p_token2 => G_SQLCODE_TOKEN,
1702: p_lapv_rec => p_lapv_rec,
1703: x_lapv_rec => x_lapv_rec);
1704:
1705: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1706: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1707: ELSIF l_return_status = G_RET_STS_ERROR THEN
1708: RAISE OKL_API.G_EXCEPTION_ERROR;
1709: END IF;
1710:
1704:
1705: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1706: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1707: ELSIF l_return_status = G_RET_STS_ERROR THEN
1708: RAISE OKL_API.G_EXCEPTION_ERROR;
1709: END IF;
1710:
1711: x_return_status := l_return_status;
1712:
1711: x_return_status := l_return_status;
1712:
1713: EXCEPTION
1714:
1715: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1716:
1717: x_return_status := G_RET_STS_ERROR;
1718:
1719: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1715: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1716:
1717: x_return_status := G_RET_STS_ERROR;
1718:
1719: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1720:
1721: x_return_status := G_RET_STS_UNEXP_ERROR;
1722:
1723: WHEN OTHERS THEN
1721: x_return_status := G_RET_STS_UNEXP_ERROR;
1722:
1723: WHEN OTHERS THEN
1724:
1725: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1726: p_msg_name => G_DB_ERROR,
1727: p_token1 => G_PROG_NAME_TOKEN,
1728: p_token1_value => l_prog_name,
1729: p_token2 => G_SQLCODE_TOKEN,
1772: p_lapv_rec => p_lapv_tbl(i),
1773: x_lapv_rec => x_lapv_tbl(i));
1774:
1775: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1776: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1777: ELSIF l_return_status = G_RET_STS_ERROR THEN
1778: RAISE OKL_API.G_EXCEPTION_ERROR;
1779: END IF;
1780:
1774:
1775: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1776: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1777: ELSIF l_return_status = G_RET_STS_ERROR THEN
1778: RAISE OKL_API.G_EXCEPTION_ERROR;
1779: END IF;
1780:
1781: EXIT WHEN (i = p_lapv_tbl.LAST);
1782: i := p_lapv_tbl.NEXT(i);
1794: x_return_status := l_return_status;
1795:
1796: EXCEPTION
1797:
1798: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1799:
1800: x_return_status := G_RET_STS_ERROR;
1801:
1802: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1798: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1799:
1800: x_return_status := G_RET_STS_ERROR;
1801:
1802: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1803:
1804: x_return_status := G_RET_STS_UNEXP_ERROR;
1805:
1806: WHEN OTHERS THEN
1804: x_return_status := G_RET_STS_UNEXP_ERROR;
1805:
1806: WHEN OTHERS THEN
1807:
1808: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1809: p_msg_name => G_DB_ERROR,
1810: p_token1 => G_PROG_NAME_TOKEN,
1811: p_token1_value => l_prog_name,
1812: p_token2 => G_SQLCODE_TOKEN,
1839: EXCEPTION
1840:
1841: WHEN OTHERS THEN
1842:
1843: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1844: p_msg_name => G_DB_ERROR,
1845: p_token1 => G_PROG_NAME_TOKEN,
1846: p_token1_value => l_prog_name,
1847: p_token2 => G_SQLCODE_TOKEN,
1879: delete_row (x_return_status => l_return_status,
1880: p_id => p_lapv_rec.id);
1881:
1882: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1883: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1884: ELSIF l_return_status = G_RET_STS_ERROR THEN
1885: RAISE OKL_API.G_EXCEPTION_ERROR;
1886: END IF;
1887:
1881:
1882: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1883: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1884: ELSIF l_return_status = G_RET_STS_ERROR THEN
1885: RAISE OKL_API.G_EXCEPTION_ERROR;
1886: END IF;
1887:
1888: x_return_status := l_return_status;
1889:
1888: x_return_status := l_return_status;
1889:
1890: EXCEPTION
1891:
1892: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1893:
1894: x_return_status := G_RET_STS_ERROR;
1895:
1896: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1892: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1893:
1894: x_return_status := G_RET_STS_ERROR;
1895:
1896: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1897:
1898: x_return_status := G_RET_STS_UNEXP_ERROR;
1899:
1900: WHEN OTHERS THEN
1898: x_return_status := G_RET_STS_UNEXP_ERROR;
1899:
1900: WHEN OTHERS THEN
1901:
1902: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1903: p_msg_name => G_DB_ERROR,
1904: p_token1 => G_PROG_NAME_TOKEN,
1905: p_token1_value => l_prog_name,
1906: p_token2 => G_SQLCODE_TOKEN,
1947: delete_row (x_return_status => l_return_status,
1948: p_id => p_lapv_tbl(i).id);
1949:
1950: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1951: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1952: ELSIF l_return_status = G_RET_STS_ERROR THEN
1953: RAISE OKL_API.G_EXCEPTION_ERROR;
1954: END IF;
1955:
1949:
1950: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1951: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1952: ELSIF l_return_status = G_RET_STS_ERROR THEN
1953: RAISE OKL_API.G_EXCEPTION_ERROR;
1954: END IF;
1955:
1956: EXIT WHEN (i = p_lapv_tbl.LAST);
1957: i := p_lapv_tbl.NEXT(i);
1971: EXCEPTION
1972:
1973: WHEN OTHERS THEN
1974:
1975: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
1976: p_msg_name => G_DB_ERROR,
1977: p_token1 => G_PROG_NAME_TOKEN,
1978: p_token1_value => l_prog_name,
1979: p_token2 => G_SQLCODE_TOKEN,