[Home] [Help]
27: p_control IN VARCHAR2 DEFAULT NULL,
28: x_asset_exists OUT NOCOPY VARCHAR2 ) RETURN VARCHAR2 IS
29:
30: l_asset_exists VARCHAR2(1) DEFAULT 'N';
31: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
32:
33: --chk for asset in FA
34: --Updated the sql statement for performance issue #5484903
35: -- by excluding UPPER function to do Index scan
122: RETURN(l_return_status);
123: EXCEPTION
124: WHEN OTHERS THEN
125: -- store SQL error message on message stack for caller
126: OKL_API.set_message(
127: p_app_name => g_app_name,
128: p_msg_name => g_unexpected_error,
129: p_token1 => g_sqlcode_token,
130: p_token1_value => sqlcode,
129: p_token1 => g_sqlcode_token,
130: p_token1_value => sqlcode,
131: p_token2 => g_sqlerrm_token,
132: p_token2_value => sqlerrm);
133: l_return_status := OKL_API.G_RET_STS_ERROR;
134: RETURN(l_return_status);
135: END asset_number_exists;
136:
137:
479: END IF;
480:
481:
482:
483: x_return_status := OKL_API.G_RET_STS_SUCCESS;
484: x_return_status := OKL_API.START_ACTIVITY(l_api_name,
485: G_PKG_NAME,
486: p_init_msg_list,
487: l_api_version,
480:
481:
482:
483: x_return_status := OKL_API.G_RET_STS_SUCCESS;
484: x_return_status := OKL_API.START_ACTIVITY(l_api_name,
485: G_PKG_NAME,
486: p_init_msg_list,
487: l_api_version,
488: p_api_version,
487: l_api_version,
488: p_api_version,
489: '_PVT',
490: x_return_status);
491: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
492: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
493: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
494: RAISE OKL_API.G_EXCEPTION_ERROR;
495: END IF;
488: p_api_version,
489: '_PVT',
490: x_return_status);
491: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
492: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
493: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
494: RAISE OKL_API.G_EXCEPTION_ERROR;
495: END IF;
496: -- BAKUCHIB 2748110 Start
489: '_PVT',
490: x_return_status);
491: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
492: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
493: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
494: RAISE OKL_API.G_EXCEPTION_ERROR;
495: END IF;
496: -- BAKUCHIB 2748110 Start
497: -- Setting the org_id if the input org_id is null
490: x_return_status);
491: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
492: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
493: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
494: RAISE OKL_API.G_EXCEPTION_ERROR;
495: END IF;
496: -- BAKUCHIB 2748110 Start
497: -- Setting the org_id if the input org_id is null
498: IF (l_achr_rec.org_id IS NULL OR
495: END IF;
496: -- BAKUCHIB 2748110 Start
497: -- Setting the org_id if the input org_id is null
498: IF (l_achr_rec.org_id IS NULL OR
499: l_achr_rec.org_id = OKL_API.G_MISS_NUM) THEN
500: l_achr_rec.org_id := MO_GLOBAL.GET_CURRENT_ORG_ID();
501: END IF;
502: -- BAKUCHIB 2748110 End
503: -- If the asset number and serial number when not given.
500: l_achr_rec.org_id := MO_GLOBAL.GET_CURRENT_ORG_ID();
501: END IF;
502: -- BAKUCHIB 2748110 End
503: -- If the asset number and serial number when not given.
504: IF (l_achr_rec.asset_number = OKL_API.G_MISS_CHAR OR
505: l_achr_rec.asset_number IS NULL) AND
506: (l_achr_rec.serial_number = OKL_API.G_MISS_CHAR OR
507: l_achr_rec.serial_number IS NULL) THEN
508: -- Get the contract details
502: -- BAKUCHIB 2748110 End
503: -- If the asset number and serial number when not given.
504: IF (l_achr_rec.asset_number = OKL_API.G_MISS_CHAR OR
505: l_achr_rec.asset_number IS NULL) AND
506: (l_achr_rec.serial_number = OKL_API.G_MISS_CHAR OR
507: l_achr_rec.serial_number IS NULL) THEN
508: -- Get the contract details
509: FOR r_get_chr_dtls_csr IN get_chr_dtls_csr(p_achr_rec => l_achr_rec) LOOP
510: IF get_chr_dtls_csr%NOTFOUND THEN
508: -- Get the contract details
509: FOR r_get_chr_dtls_csr IN get_chr_dtls_csr(p_achr_rec => l_achr_rec) LOOP
510: IF get_chr_dtls_csr%NOTFOUND THEN
511: IF (l_achr_rec.contract_number IS NOT NULL OR
512: l_achr_rec.contract_number <> OKL_API.G_MISS_CHAR) THEN
513: OKL_API.set_message(p_app_name => G_APP_NAME,
514: p_msg_name => G_INVALID_VALUE1,
515: p_token1 => 'COL_NAME',
516: p_token1_value => 'Contract Number');
509: FOR r_get_chr_dtls_csr IN get_chr_dtls_csr(p_achr_rec => l_achr_rec) LOOP
510: IF get_chr_dtls_csr%NOTFOUND THEN
511: IF (l_achr_rec.contract_number IS NOT NULL OR
512: l_achr_rec.contract_number <> OKL_API.G_MISS_CHAR) THEN
513: OKL_API.set_message(p_app_name => G_APP_NAME,
514: p_msg_name => G_INVALID_VALUE1,
515: p_token1 => 'COL_NAME',
516: p_token1_value => 'Contract Number');
517: END IF;
515: p_token1 => 'COL_NAME',
516: p_token1_value => 'Contract Number');
517: END IF;
518: IF (l_achr_rec.from_start_date IS NOT NULL OR
519: l_achr_rec.from_start_date <> OKL_API.G_MISS_DATE) OR
520: (l_achr_rec.to_start_date IS NOT NULL OR
521: l_achr_rec.to_start_date <> OKL_API.G_MISS_DATE) THEN
522: OKL_API.set_message(p_app_name => G_APP_NAME,
523: p_msg_name => G_INVALID_VALUE1,
517: END IF;
518: IF (l_achr_rec.from_start_date IS NOT NULL OR
519: l_achr_rec.from_start_date <> OKL_API.G_MISS_DATE) OR
520: (l_achr_rec.to_start_date IS NOT NULL OR
521: l_achr_rec.to_start_date <> OKL_API.G_MISS_DATE) THEN
522: OKL_API.set_message(p_app_name => G_APP_NAME,
523: p_msg_name => G_INVALID_VALUE1,
524: p_token1 => 'COL_NAME',
525: p_token1_value => 'Start Date');
518: IF (l_achr_rec.from_start_date IS NOT NULL OR
519: l_achr_rec.from_start_date <> OKL_API.G_MISS_DATE) OR
520: (l_achr_rec.to_start_date IS NOT NULL OR
521: l_achr_rec.to_start_date <> OKL_API.G_MISS_DATE) THEN
522: OKL_API.set_message(p_app_name => G_APP_NAME,
523: p_msg_name => G_INVALID_VALUE1,
524: p_token1 => 'COL_NAME',
525: p_token1_value => 'Start Date');
526: END IF;
524: p_token1 => 'COL_NAME',
525: p_token1_value => 'Start Date');
526: END IF;
527: IF (l_achr_rec.from_end_date IS NOT NULL OR
528: l_achr_rec.from_end_date <> OKL_API.G_MISS_DATE) OR
529: (l_achr_rec.to_end_date IS NOT NULL OR
530: l_achr_rec.to_end_date <> OKL_API.G_MISS_DATE) THEN
531: OKL_API.set_message(p_app_name => G_APP_NAME,
532: p_msg_name => G_INVALID_VALUE1,
526: END IF;
527: IF (l_achr_rec.from_end_date IS NOT NULL OR
528: l_achr_rec.from_end_date <> OKL_API.G_MISS_DATE) OR
529: (l_achr_rec.to_end_date IS NOT NULL OR
530: l_achr_rec.to_end_date <> OKL_API.G_MISS_DATE) THEN
531: OKL_API.set_message(p_app_name => G_APP_NAME,
532: p_msg_name => G_INVALID_VALUE1,
533: p_token1 => 'COL_NAME',
534: p_token1_value => 'End Date');
527: IF (l_achr_rec.from_end_date IS NOT NULL OR
528: l_achr_rec.from_end_date <> OKL_API.G_MISS_DATE) OR
529: (l_achr_rec.to_end_date IS NOT NULL OR
530: l_achr_rec.to_end_date <> OKL_API.G_MISS_DATE) THEN
531: OKL_API.set_message(p_app_name => G_APP_NAME,
532: p_msg_name => G_INVALID_VALUE1,
533: p_token1 => 'COL_NAME',
534: p_token1_value => 'End Date');
535: END IF;
533: p_token1 => 'COL_NAME',
534: p_token1_value => 'End Date');
535: END IF;
536: IF (l_achr_rec.party_name IS NOT NULL OR
537: l_achr_rec.party_name <> OKL_API.G_MISS_CHAR) THEN
538: OKL_API.set_message(p_app_name => G_APP_NAME,
539: p_msg_name => G_INVALID_VALUE1,
540: p_token1 => 'COL_NAME',
541: p_token1_value => 'Party Name');
534: p_token1_value => 'End Date');
535: END IF;
536: IF (l_achr_rec.party_name IS NOT NULL OR
537: l_achr_rec.party_name <> OKL_API.G_MISS_CHAR) THEN
538: OKL_API.set_message(p_app_name => G_APP_NAME,
539: p_msg_name => G_INVALID_VALUE1,
540: p_token1 => 'COL_NAME',
541: p_token1_value => 'Party Name');
542: END IF;
539: p_msg_name => G_INVALID_VALUE1,
540: p_token1 => 'COL_NAME',
541: p_token1_value => 'Party Name');
542: END IF;
543: x_return_status := OKL_API.G_RET_STS_ERROR;
544: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
545: END IF;
546: x_achr_tbl(i).contract_number := r_get_chr_dtls_csr.contract_number;
547: x_achr_tbl(i).chr_id := r_get_chr_dtls_csr.chr_id;
540: p_token1 => 'COL_NAME',
541: p_token1_value => 'Party Name');
542: END IF;
543: x_return_status := OKL_API.G_RET_STS_ERROR;
544: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
545: END IF;
546: x_achr_tbl(i).contract_number := r_get_chr_dtls_csr.contract_number;
547: x_achr_tbl(i).chr_id := r_get_chr_dtls_csr.chr_id;
548: x_achr_tbl(i).from_start_date := r_get_chr_dtls_csr.from_start_date;
552: x_achr_tbl(i).org_id := r_get_chr_dtls_csr.org_id;
553: x_achr_tbl(i).party_name := r_get_chr_dtls_csr.party_name;
554: i := i + 1;
555: END LOOP;
556: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
557: RAISE OKL_API.G_EXCEPTION_ERROR;
558: END IF;
559: -- If the asset number given and serial number when not given.
560: ELSIF (l_achr_rec.asset_number <> OKL_API.G_MISS_CHAR OR
553: x_achr_tbl(i).party_name := r_get_chr_dtls_csr.party_name;
554: i := i + 1;
555: END LOOP;
556: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
557: RAISE OKL_API.G_EXCEPTION_ERROR;
558: END IF;
559: -- If the asset number given and serial number when not given.
560: ELSIF (l_achr_rec.asset_number <> OKL_API.G_MISS_CHAR OR
561: l_achr_rec.asset_number IS NOT NULL) AND
556: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
557: RAISE OKL_API.G_EXCEPTION_ERROR;
558: END IF;
559: -- If the asset number given and serial number when not given.
560: ELSIF (l_achr_rec.asset_number <> OKL_API.G_MISS_CHAR OR
561: l_achr_rec.asset_number IS NOT NULL) AND
562: (l_achr_rec.serial_number = OKL_API.G_MISS_CHAR OR
563: l_achr_rec.serial_number IS NULL) THEN
564: -- Get the contract details for asset number
558: END IF;
559: -- If the asset number given and serial number when not given.
560: ELSIF (l_achr_rec.asset_number <> OKL_API.G_MISS_CHAR OR
561: l_achr_rec.asset_number IS NOT NULL) AND
562: (l_achr_rec.serial_number = OKL_API.G_MISS_CHAR OR
563: l_achr_rec.serial_number IS NULL) THEN
564: -- Get the contract details for asset number
565: FOR r_get_for_asset_csr IN get_for_asset_csr(p_achr_rec => l_achr_rec) LOOP
566: IF get_for_asset_csr%NOTFOUND THEN
563: l_achr_rec.serial_number IS NULL) THEN
564: -- Get the contract details for asset number
565: FOR r_get_for_asset_csr IN get_for_asset_csr(p_achr_rec => l_achr_rec) LOOP
566: IF get_for_asset_csr%NOTFOUND THEN
567: OKL_API.set_message(p_app_name => G_APP_NAME,
568: p_msg_name => G_INVALID_VALUE1,
569: p_token1 => 'COL_NAME',
570: p_token1_value => 'Asset Number');
571: x_return_status := OKL_API.G_RET_STS_ERROR;
567: OKL_API.set_message(p_app_name => G_APP_NAME,
568: p_msg_name => G_INVALID_VALUE1,
569: p_token1 => 'COL_NAME',
570: p_token1_value => 'Asset Number');
571: x_return_status := OKL_API.G_RET_STS_ERROR;
572: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
573: END IF;
574: x_achr_tbl(i).contract_number := r_get_for_asset_csr.contract_number;
575: x_achr_tbl(i).chr_id := r_get_for_asset_csr.chr_id;
568: p_msg_name => G_INVALID_VALUE1,
569: p_token1 => 'COL_NAME',
570: p_token1_value => 'Asset Number');
571: x_return_status := OKL_API.G_RET_STS_ERROR;
572: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
573: END IF;
574: x_achr_tbl(i).contract_number := r_get_for_asset_csr.contract_number;
575: x_achr_tbl(i).chr_id := r_get_for_asset_csr.chr_id;
576: x_achr_tbl(i).from_start_date := r_get_for_asset_csr.from_start_date;
580: x_achr_tbl(i).org_id := r_get_for_asset_csr.org_id;
581: x_achr_tbl(i).party_name := r_get_for_asset_csr.party_name;
582: i := i + 1;
583: END LOOP;
584: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
585: RAISE OKL_API.G_EXCEPTION_ERROR;
586: END IF;
587: -- If the asset number not given and serial number given.
588: ELSIF (l_achr_rec.asset_number = OKL_API.G_MISS_CHAR OR
581: x_achr_tbl(i).party_name := r_get_for_asset_csr.party_name;
582: i := i + 1;
583: END LOOP;
584: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
585: RAISE OKL_API.G_EXCEPTION_ERROR;
586: END IF;
587: -- If the asset number not given and serial number given.
588: ELSIF (l_achr_rec.asset_number = OKL_API.G_MISS_CHAR OR
589: l_achr_rec.asset_number IS NULL) AND
584: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
585: RAISE OKL_API.G_EXCEPTION_ERROR;
586: END IF;
587: -- If the asset number not given and serial number given.
588: ELSIF (l_achr_rec.asset_number = OKL_API.G_MISS_CHAR OR
589: l_achr_rec.asset_number IS NULL) AND
590: (l_achr_rec.serial_number <> OKL_API.G_MISS_CHAR OR
591: l_achr_rec.serial_number IS NOT NULL) THEN
592: -- Get the contract details for serial number
586: END IF;
587: -- If the asset number not given and serial number given.
588: ELSIF (l_achr_rec.asset_number = OKL_API.G_MISS_CHAR OR
589: l_achr_rec.asset_number IS NULL) AND
590: (l_achr_rec.serial_number <> OKL_API.G_MISS_CHAR OR
591: l_achr_rec.serial_number IS NOT NULL) THEN
592: -- Get the contract details for serial number
593: FOR r_get_for_sno_csr IN get_for_sno_csr(p_achr_rec => l_achr_rec) LOOP
594: IF get_for_sno_csr%NOTFOUND THEN
591: l_achr_rec.serial_number IS NOT NULL) THEN
592: -- Get the contract details for serial number
593: FOR r_get_for_sno_csr IN get_for_sno_csr(p_achr_rec => l_achr_rec) LOOP
594: IF get_for_sno_csr%NOTFOUND THEN
595: OKL_API.set_message(p_app_name => G_APP_NAME,
596: p_msg_name => G_INVALID_VALUE1,
597: p_token1 => 'COL_NAME',
598: p_token1_value => 'Serial Number');
599: x_return_status := OKL_API.G_RET_STS_ERROR;
595: OKL_API.set_message(p_app_name => G_APP_NAME,
596: p_msg_name => G_INVALID_VALUE1,
597: p_token1 => 'COL_NAME',
598: p_token1_value => 'Serial Number');
599: x_return_status := OKL_API.G_RET_STS_ERROR;
600: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
601: END IF;
602: x_achr_tbl(i).contract_number := r_get_for_sno_csr.contract_number;
603: x_achr_tbl(i).chr_id := r_get_for_sno_csr.chr_id;
596: p_msg_name => G_INVALID_VALUE1,
597: p_token1 => 'COL_NAME',
598: p_token1_value => 'Serial Number');
599: x_return_status := OKL_API.G_RET_STS_ERROR;
600: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
601: END IF;
602: x_achr_tbl(i).contract_number := r_get_for_sno_csr.contract_number;
603: x_achr_tbl(i).chr_id := r_get_for_sno_csr.chr_id;
604: x_achr_tbl(i).from_start_date := r_get_for_sno_csr.from_start_date;
608: x_achr_tbl(i).org_id := r_get_for_sno_csr.org_id;
609: x_achr_tbl(i).party_name := r_get_for_sno_csr.party_name;
610: i := i + 1;
611: END LOOP;
612: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
613: RAISE OKL_API.G_EXCEPTION_ERROR;
614: END IF;
615: -- If the asset number and serial number when given.
616: ELSIF (l_achr_rec.asset_number <> OKL_API.G_MISS_CHAR OR
609: x_achr_tbl(i).party_name := r_get_for_sno_csr.party_name;
610: i := i + 1;
611: END LOOP;
612: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
613: RAISE OKL_API.G_EXCEPTION_ERROR;
614: END IF;
615: -- If the asset number and serial number when given.
616: ELSIF (l_achr_rec.asset_number <> OKL_API.G_MISS_CHAR OR
617: l_achr_rec.asset_number IS NOT NULL) AND
612: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
613: RAISE OKL_API.G_EXCEPTION_ERROR;
614: END IF;
615: -- If the asset number and serial number when given.
616: ELSIF (l_achr_rec.asset_number <> OKL_API.G_MISS_CHAR OR
617: l_achr_rec.asset_number IS NOT NULL) AND
618: (l_achr_rec.serial_number <> OKL_API.G_MISS_CHAR OR
619: l_achr_rec.serial_number IS NOT NULL) THEN
620: -- Get the contract details for asset number and serial number
614: END IF;
615: -- If the asset number and serial number when given.
616: ELSIF (l_achr_rec.asset_number <> OKL_API.G_MISS_CHAR OR
617: l_achr_rec.asset_number IS NOT NULL) AND
618: (l_achr_rec.serial_number <> OKL_API.G_MISS_CHAR OR
619: l_achr_rec.serial_number IS NOT NULL) THEN
620: -- Get the contract details for asset number and serial number
621: FOR r_get_for_asset_sno_csr IN get_for_asset_sno_csr(p_achr_rec => l_achr_rec) LOOP
622: IF get_for_asset_sno_csr%NOTFOUND THEN
619: l_achr_rec.serial_number IS NOT NULL) THEN
620: -- Get the contract details for asset number and serial number
621: FOR r_get_for_asset_sno_csr IN get_for_asset_sno_csr(p_achr_rec => l_achr_rec) LOOP
622: IF get_for_asset_sno_csr%NOTFOUND THEN
623: OKL_API.set_message(p_app_name => G_APP_NAME,
624: p_msg_name => G_INVALID_VALUE1,
625: p_token1 => 'COL_NAME',
626: p_token1_value => 'Asset Number or Serial Number');
627: x_return_status := OKL_API.G_RET_STS_ERROR;
623: OKL_API.set_message(p_app_name => G_APP_NAME,
624: p_msg_name => G_INVALID_VALUE1,
625: p_token1 => 'COL_NAME',
626: p_token1_value => 'Asset Number or Serial Number');
627: x_return_status := OKL_API.G_RET_STS_ERROR;
628: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
629: END IF;
630: x_achr_tbl(i).contract_number := r_get_for_asset_sno_csr.contract_number;
631: x_achr_tbl(i).chr_id := r_get_for_asset_sno_csr.chr_id;
624: p_msg_name => G_INVALID_VALUE1,
625: p_token1 => 'COL_NAME',
626: p_token1_value => 'Asset Number or Serial Number');
627: x_return_status := OKL_API.G_RET_STS_ERROR;
628: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
629: END IF;
630: x_achr_tbl(i).contract_number := r_get_for_asset_sno_csr.contract_number;
631: x_achr_tbl(i).chr_id := r_get_for_asset_sno_csr.chr_id;
632: x_achr_tbl(i).from_start_date := r_get_for_asset_sno_csr.from_start_date;
636: x_achr_tbl(i).org_id := r_get_for_asset_sno_csr.org_id;
637: x_achr_tbl(i).party_name := r_get_for_asset_sno_csr.party_name;
638: i := i + 1;
639: END LOOP;
640: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
641: RAISE OKL_API.G_EXCEPTION_ERROR;
642: END IF;
643: END IF;
644: OKL_API.END_ACTIVITY (x_msg_count,
637: x_achr_tbl(i).party_name := r_get_for_asset_sno_csr.party_name;
638: i := i + 1;
639: END LOOP;
640: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
641: RAISE OKL_API.G_EXCEPTION_ERROR;
642: END IF;
643: END IF;
644: OKL_API.END_ACTIVITY (x_msg_count,
645: x_msg_data );
640: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
641: RAISE OKL_API.G_EXCEPTION_ERROR;
642: END IF;
643: END IF;
644: OKL_API.END_ACTIVITY (x_msg_count,
645: x_msg_data );
646:
647: IF (is_debug_procedure_on) THEN
648: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,G_MODULE_NAME||'advance_contract_search','End(-)');
648: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,G_MODULE_NAME||'advance_contract_search','End(-)');
649: END IF;
650:
651: EXCEPTION
652: WHEN OKL_API.G_EXCEPTION_ERROR THEN
653: IF get_chr_dtls_csr%ISOPEN THEN
654: CLOSE get_chr_dtls_csr;
655: END IF;
656: IF get_for_sno_csr%ISOPEN THEN
662: IF get_for_asset_sno_csr%ISOPEN THEN
663: CLOSE get_for_asset_sno_csr;
664: END IF;
665:
666: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
667: l_api_name,
668: G_PKG_NAME,
669: 'OKL_API.G_RET_STS_ERROR',
670: x_msg_count,
665:
666: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
667: l_api_name,
668: G_PKG_NAME,
669: 'OKL_API.G_RET_STS_ERROR',
670: x_msg_count,
671: x_msg_data,
672: '_PVT');
673:
671: x_msg_data,
672: '_PVT');
673:
674:
675: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
676: IF get_chr_dtls_csr%ISOPEN THEN
677: CLOSE get_chr_dtls_csr;
678: END IF;
679: IF get_for_sno_csr%ISOPEN THEN
688: IF (is_debug_exception_on) THEN
689: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
690: || sqlcode || ' , SQLERRM : ' || sqlerrm);
691: END IF;
692: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
693: l_api_name,
694: G_PKG_NAME,
695: 'OKL_API.G_RET_STS_UNEXP_ERROR',
696: x_msg_count,
691: END IF;
692: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
693: l_api_name,
694: G_PKG_NAME,
695: 'OKL_API.G_RET_STS_UNEXP_ERROR',
696: x_msg_count,
697: x_msg_data,
698: '_PVT');
699: WHEN OTHERS THEN
712: IF (is_debug_exception_on) THEN
713: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
714: || sqlcode || ' , SQLERRM : ' || sqlerrm);
715: END IF;
716: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
717: l_api_name,
718: G_PKG_NAME,
719: 'OTHERS',
720: x_msg_count,
740: l_quote_eff_max_days NUMBER;
741: l_quote_status VARCHAR2(200) := 'DRAFTED';
742: l_quote_reason VARCHAR2(200) := 'EOT';
743: l_sys_date DATE;
744: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
745: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'set_quote_defaults';
746: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
747: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
748: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
755: l_sys_date := p_sys_date;
756:
757: -- Set the date_effective_from if null
758: IF ((px_quot_rec.date_effective_from IS NULL) OR
759: (px_quot_rec.date_effective_from = OKL_API.G_MISS_DATE)) THEN
760: px_quot_rec.date_effective_from := l_sys_date ;
761: END IF;
762:
763: -- Set the date_effective_to if null
761: END IF;
762:
763: -- Set the date_effective_to if null
764: IF ((px_quot_rec.date_effective_to IS NULL) OR
765: (px_quot_rec.date_effective_to = OKL_API.G_MISS_DATE)) THEN
766:
767: IF (is_debug_statement_on) THEN
768: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
769: 'before call to quote_effectivity :'||l_return_status);
802: END IF;
803:
804: -- Set the qst_code if null
805: IF ((px_quot_rec.qst_code IS NULL) OR
806: (px_quot_rec.qst_code = OKL_API.G_MISS_CHAR)) THEN
807: px_quot_rec.qst_code := l_quote_status;
808: END IF;
809:
810: -- Set the qrs_code if null
808: END IF;
809:
810: -- Set the qrs_code if null
811: IF ((px_quot_rec.qrs_code IS NULL) OR
812: (px_quot_rec.qrs_code = OKL_API.G_MISS_CHAR)) THEN
813: px_quot_rec.qrs_code := l_quote_reason;
814: END IF;
815:
816: -- Set the preproceeds_yn if null
814: END IF;
815:
816: -- Set the preproceeds_yn if null
817: IF ((px_quot_rec.preproceeds_yn IS NULL) OR
818: (px_quot_rec.preproceeds_yn = OKL_API.G_MISS_CHAR)) THEN
819: px_quot_rec.preproceeds_yn := G_NO;
820: END IF;
821:
822: -- Set the summary_format_yn if null
820: END IF;
821:
822: -- Set the summary_format_yn if null
823: IF ((px_quot_rec.summary_format_yn IS NULL) OR
824: (px_quot_rec.summary_format_yn = OKL_API.G_MISS_CHAR)) THEN
825: px_quot_rec.summary_format_yn := G_NO;
826: END IF;
827:
828: -- Set the consolidated_yn if null
826: END IF;
827:
828: -- Set the consolidated_yn if null
829: IF ((px_quot_rec.consolidated_yn IS NULL) OR
830: (px_quot_rec.consolidated_yn = OKL_API.G_MISS_CHAR)) THEN
831: px_quot_rec.consolidated_yn := G_NO;
832: END IF;
833:
834: -- Set the approved_yn if null
832: END IF;
833:
834: -- Set the approved_yn if null
835: IF ((px_quot_rec.approved_yn IS NULL) OR
836: (px_quot_rec.approved_yn = OKL_API.G_MISS_CHAR)) THEN
837: px_quot_rec.approved_yn := G_NO;
838: END IF;
839:
840: -- Set the payment_received_yn if null
838: END IF;
839:
840: -- Set the payment_received_yn if null
841: IF ((px_quot_rec.payment_received_yn IS NULL) OR
842: (px_quot_rec.payment_received_yn = OKL_API.G_MISS_CHAR)) THEN
843: px_quot_rec.payment_received_yn := G_NO;
844: END IF;
845:
846: -- Set the date_requested if null
844: END IF;
845:
846: -- Set the date_requested if null
847: IF ((px_quot_rec.date_requested IS NULL) OR
848: (px_quot_rec.date_requested = OKL_API.G_MISS_DATE)) THEN
849: px_quot_rec.date_requested := l_sys_date;
850: END IF;
851:
852: -- Set the date_proposal if null
850: END IF;
851:
852: -- Set the date_proposal if null
853: IF ((px_quot_rec.date_proposal IS NULL) OR
854: (px_quot_rec.date_proposal = OKL_API.G_MISS_DATE)) THEN
855: px_quot_rec.date_proposal := l_sys_date;
856: END IF;
857:
858: -- Set the requested_by if null
856: END IF;
857:
858: -- Set the requested_by if null
859: IF ((px_quot_rec.requested_by IS NULL) OR
860: (px_quot_rec.requested_by = OKL_API.G_MISS_NUM)) THEN
861: px_quot_rec.requested_by := 1;
862: END IF;
863:
864: -- Set the legal_entity_id if null ssiruvol(Nov 17th, 2006)
862: END IF;
863:
864: -- Set the legal_entity_id if null ssiruvol(Nov 17th, 2006)
865: IF ((px_quot_rec.legal_entity_id IS NULL) OR
866: (px_quot_rec.legal_entity_id = OKL_API.G_MISS_NUM)) THEN
867: px_quot_rec.legal_entity_id := OKL_LEGAL_ENTITY_UTIL.get_khr_le_id (px_quot_rec.khr_id);
868: END IF;
869:
870: -- Always NO during quote creation
885: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
886: || sqlcode || ' , SQLERRM : ' || sqlerrm);
887: END IF;
888:
889: OKL_API.set_message(p_app_name => g_app_name,
890: p_msg_name => g_unexpected_error,
891: p_token1 => g_sqlcode_token,
892: p_token1_value => sqlcode,
893: p_token2 => g_sqlerrm_token,
891: p_token1 => g_sqlcode_token,
892: p_token1_value => sqlcode,
893: p_token2 => g_sqlerrm_token,
894: p_token2_value => sqlerrm);
895: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
896: END set_quote_defaults;
897:
898:
899:
914: p_rule_chr_id IN NUMBER,
915: x_return_status OUT NOCOPY VARCHAR2,
916: x_rule_found OUT NOCOPY BOOLEAN) IS
917:
918: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_ERROR;
919: l_rule_found BOOLEAN := FALSE;
920: l_rulv_rec rulv_rec_type;
921: l_rule_code CONSTANT VARCHAR2(30) := 'AMCTTA';
922: l_rgd_code VARCHAR2(30);
979: 'after call to OKL_AM_UTIL_PVT.get_rule_record :'||l_return_status);
980: END IF;
981:
982:
983: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
984: IF NVL (l_rulv_rec.rule_information1, '*') = 'Y' THEN
985: l_rule_found := TRUE;
986: END IF;
987: END IF;
985: l_rule_found := TRUE;
986: END IF;
987: END IF;
988:
989: x_return_status := OKL_API.G_RET_STS_SUCCESS; -- Rule is optional
990: x_rule_found := l_rule_found;
991:
992: IF (is_debug_procedure_on) THEN
993: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
993: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
994: END IF;
995:
996: EXCEPTION
997: WHEN OKL_API.G_EXCEPTION_ERROR THEN
998: x_return_status := OKL_API.G_RET_STS_ERROR;
999: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1000: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1001: WHEN OTHERS THEN
994: END IF;
995:
996: EXCEPTION
997: WHEN OKL_API.G_EXCEPTION_ERROR THEN
998: x_return_status := OKL_API.G_RET_STS_ERROR;
999: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1000: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1001: WHEN OTHERS THEN
1002: IF (is_debug_exception_on) THEN
995:
996: EXCEPTION
997: WHEN OKL_API.G_EXCEPTION_ERROR THEN
998: x_return_status := OKL_API.G_RET_STS_ERROR;
999: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1000: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1001: WHEN OTHERS THEN
1002: IF (is_debug_exception_on) THEN
1003: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
996: EXCEPTION
997: WHEN OKL_API.G_EXCEPTION_ERROR THEN
998: x_return_status := OKL_API.G_RET_STS_ERROR;
999: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1000: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1001: WHEN OTHERS THEN
1002: IF (is_debug_exception_on) THEN
1003: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1004: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1003: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1004: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1005: END IF;
1006:
1007: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1008: OKL_API.set_message(p_app_name => g_app_name,
1009: p_msg_name => g_unexpected_error,
1010: p_token1 => g_sqlcode_token,
1011: p_token1_value => sqlcode,
1004: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1005: END IF;
1006:
1007: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1008: OKL_API.set_message(p_app_name => g_app_name,
1009: p_msg_name => g_unexpected_error,
1010: p_token1 => g_sqlcode_token,
1011: p_token1_value => sqlcode,
1012: p_token2 => g_sqlerrm_token,
1033: p_rule_chr_id IN NUMBER,
1034: x_return_status OUT NOCOPY VARCHAR2,
1035: x_rule_found OUT NOCOPY BOOLEAN) IS
1036:
1037: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_ERROR;
1038: l_rule_found BOOLEAN := FALSE;
1039: l_rulv_rec rulv_rec_type;
1040: l_rule_code CONSTANT VARCHAR2(30) := 'AMPTQA';
1041: l_rgd_code VARCHAR2(30);
1096: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1097: 'after call to OKL_AM_UTIL_PVT.get_rule_record :'||l_return_status);
1098: END IF;
1099:
1100: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
1101: IF NVL (l_rulv_rec.rule_information1, '*') = 'Y' THEN
1102: l_rule_found := TRUE;
1103: END IF;
1104: END IF;
1102: l_rule_found := TRUE;
1103: END IF;
1104: END IF;
1105:
1106: x_return_status := OKL_API.G_RET_STS_SUCCESS; -- Rule is optional
1107: x_rule_found := l_rule_found;
1108:
1109: IF (is_debug_procedure_on) THEN
1110: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End (-)');
1110: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End (-)');
1111: END IF;
1112:
1113: EXCEPTION
1114: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1115: x_return_status := OKL_API.G_RET_STS_ERROR;
1116: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1117: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1118: WHEN OTHERS THEN
1111: END IF;
1112:
1113: EXCEPTION
1114: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1115: x_return_status := OKL_API.G_RET_STS_ERROR;
1116: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1117: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1118: WHEN OTHERS THEN
1119: IF (is_debug_exception_on) THEN
1112:
1113: EXCEPTION
1114: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1115: x_return_status := OKL_API.G_RET_STS_ERROR;
1116: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1117: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1118: WHEN OTHERS THEN
1119: IF (is_debug_exception_on) THEN
1120: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1113: EXCEPTION
1114: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1115: x_return_status := OKL_API.G_RET_STS_ERROR;
1116: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1117: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1118: WHEN OTHERS THEN
1119: IF (is_debug_exception_on) THEN
1120: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1121: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1120: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1121: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1122: END IF;
1123:
1124: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1125: OKL_API.set_message(p_app_name => g_app_name,
1126: p_msg_name => g_unexpected_error,
1127: p_token1 => g_sqlcode_token,
1128: p_token1_value => sqlcode,
1121: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1122: END IF;
1123:
1124: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1125: OKL_API.set_message(p_app_name => g_app_name,
1126: p_msg_name => g_unexpected_error,
1127: p_token1 => g_sqlcode_token,
1128: p_token1_value => sqlcode,
1129: p_token2 => g_sqlerrm_token,
1139: p_rule_chr_id IN NUMBER,
1140: x_days_before_k_exp OUT NOCOPY NUMBER,
1141: x_return_status OUT NOCOPY VARCHAR2) IS
1142:
1143: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_ERROR;
1144: l_rule_found BOOLEAN := FALSE;
1145: l_rulv_rec rulv_rec_type;
1146: l_rule_code CONSTANT VARCHAR2(30) := 'AMTSET';
1147: l_rgd_code VARCHAR2(30);
1178: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1179: 'after call to OKL_AM_UTIL_PVT.get_rule_record :'||l_return_status);
1180: END IF;
1181:
1182: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
1183: IF NVL (l_rulv_rec.rule_information1, '-1') >= 0 THEN
1184: l_rule_found := TRUE;
1185: END IF;
1186: END IF;
1195: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
1196: END IF;
1197:
1198: EXCEPTION
1199: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1200: x_return_status := OKL_API.G_RET_STS_ERROR;
1201: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1202: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1203: WHEN OTHERS THEN
1196: END IF;
1197:
1198: EXCEPTION
1199: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1200: x_return_status := OKL_API.G_RET_STS_ERROR;
1201: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1202: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1203: WHEN OTHERS THEN
1204:
1197:
1198: EXCEPTION
1199: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1200: x_return_status := OKL_API.G_RET_STS_ERROR;
1201: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1202: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1203: WHEN OTHERS THEN
1204:
1205: IF (is_debug_exception_on) THEN
1198: EXCEPTION
1199: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1200: x_return_status := OKL_API.G_RET_STS_ERROR;
1201: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1202: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1203: WHEN OTHERS THEN
1204:
1205: IF (is_debug_exception_on) THEN
1206: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1205: IF (is_debug_exception_on) THEN
1206: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1207: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1208: END IF;
1209: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1210: OKL_API.set_message(p_app_name => g_app_name,
1211: p_msg_name => g_unexpected_error,
1212: p_token1 => g_sqlcode_token,
1213: p_token1_value => sqlcode,
1206: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1207: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1208: END IF;
1209: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1210: OKL_API.set_message(p_app_name => g_app_name,
1211: p_msg_name => g_unexpected_error,
1212: p_token1 => g_sqlcode_token,
1213: p_token1_value => sqlcode,
1214: p_token2 => g_sqlerrm_token,
1233: x_quote_eff_days OUT NOCOPY NUMBER,
1234: x_quote_eff_max_days OUT NOCOPY NUMBER,
1235: x_return_status OUT NOCOPY VARCHAR2) IS
1236:
1237: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_ERROR;
1238: l_rule_found BOOLEAN := FALSE;
1239: l_rulv_rec rulv_rec_type;
1240: l_rule_code CONSTANT VARCHAR2(30) := 'AMQTEF';
1241: l_rgd_code VARCHAR2(30);
1255: l_rgd_code := 'AMTQPR';
1256: END IF;
1257:
1258: IF p_rule_chr_id IS NOT NULL
1259: OR p_rule_chr_id <> OKL_API.G_MISS_NUM THEN
1260: l_rule_chr_id := p_rule_chr_id;
1261: ELSE
1262: l_rule_chr_id := okl_am_util_pvt.get_rule_chr_id (p_quot_rec);
1263: END IF;
1279: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1280: 'after call to OKL_AM_UTIL_PVT.get_rule_record :'||l_return_status);
1281: END IF;
1282:
1283: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
1284: IF NVL (l_rulv_rec.rule_information1, '-1') >= 0 THEN
1285: l_rule_found := TRUE;
1286: END IF;
1287: END IF;
1297: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
1298: END IF;
1299:
1300: EXCEPTION
1301: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1302: x_return_status := OKL_API.G_RET_STS_ERROR;
1303: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1304: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1305: WHEN OTHERS THEN
1298: END IF;
1299:
1300: EXCEPTION
1301: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1302: x_return_status := OKL_API.G_RET_STS_ERROR;
1303: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1304: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1305: WHEN OTHERS THEN
1306:
1299:
1300: EXCEPTION
1301: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1302: x_return_status := OKL_API.G_RET_STS_ERROR;
1303: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1304: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1305: WHEN OTHERS THEN
1306:
1307: IF (is_debug_exception_on) THEN
1300: EXCEPTION
1301: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1302: x_return_status := OKL_API.G_RET_STS_ERROR;
1303: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1304: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1305: WHEN OTHERS THEN
1306:
1307: IF (is_debug_exception_on) THEN
1308: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1307: IF (is_debug_exception_on) THEN
1308: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1309: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1310: END IF;
1311: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1312: OKL_API.set_message(p_app_name => g_app_name,
1313: p_msg_name => g_unexpected_error,
1314: p_token1 => g_sqlcode_token,
1315: p_token1_value => sqlcode,
1308: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1309: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1310: END IF;
1311: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1312: OKL_API.set_message(p_app_name => g_app_name,
1313: p_msg_name => g_unexpected_error,
1314: p_token1 => g_sqlcode_token,
1315: p_token1_value => sqlcode,
1316: p_token2 => g_sqlerrm_token,
1339: p_khr_id IN NUMBER,
1340: x_auto_to_manual OUT NOCOPY BOOLEAN, -- SECHAWLA 2699412 added
1341: x_return_status OUT NOCOPY VARCHAR2) IS
1342:
1343: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_ERROR;
1344:
1345: l_new_quote_type VARCHAR2(30); --SECHAWLA 2699412 added
1346: l_auto_to_manual BOOLEAN := FALSE; --SECHAWLA 2699412 added
1347:
1347:
1348: -- SECHAWLA 02-JAN-03 2699412 new declarations
1349: l_auto_quotes_allowed VARCHAR2(1);
1350: l_rulv_rec okl_rule_pub.rulv_rec_type;
1351: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
1352: l_msg_data VARCHAR2(2000);
1353: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'quote_type_check';
1354: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1355: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1387: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1388: 'after call to okl_am_util_pvt.get_rule_record :'||l_return_status);
1389: END IF;
1390:
1391: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
1392: -- Rule instance is found
1393: IF l_rulv_rec.rule_information1 IS NOT NULL AND l_rulv_rec.rule_information1 <> OKL_API.G_MISS_CHAR THEN
1394: IF l_rulv_rec.rule_information1 = 'Y' THEN
1395: l_auto_quotes_allowed := 'N';
1389: END IF;
1390:
1391: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
1392: -- Rule instance is found
1393: IF l_rulv_rec.rule_information1 IS NOT NULL AND l_rulv_rec.rule_information1 <> OKL_API.G_MISS_CHAR THEN
1394: IF l_rulv_rec.rule_information1 = 'Y' THEN
1395: l_auto_quotes_allowed := 'N';
1396: ELSE
1397: l_auto_quotes_allowed := 'Y';
1414: p_qtp_code := l_new_quote_type;
1415: END IF;
1416:
1417: END IF;
1418: l_return_status := OKL_API.G_RET_STS_SUCCESS;
1419: END IF;
1420: -- SECHAWLA 2699412 : Added a flag to indicate whether quote type changed
1421: -- from Auto to Manual
1422: x_auto_to_manual := l_auto_to_manual;
1497: -- for a loan contract with rev rec method 'ESTIMATED_AND_BILLED' or 'ACTUAL'
1498: -- rpillay 01-JUN-12 Bug# 14137617: Partial Termination is not allowed for Catchup-Cleanup Loan contract
1499: PROCEDURE validate_quote(
1500: p_api_version IN NUMBER,
1501: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1502: x_return_status OUT NOCOPY VARCHAR2,
1503: x_msg_count OUT NOCOPY NUMBER,
1504: x_msg_data OUT NOCOPY VARCHAR2,
1505: p_quot_rec IN quot_rec_type,
1603:
1604: l_no_of_assets NUMBER := 0;
1605: l_k_end_date DATE;
1606: l_rule_found BOOLEAN := FALSE;
1607: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_ERROR;
1608: l_contract_status OKC_STATUSES_V.MEANING%TYPE;
1609: l_contract_number OKC_K_HEADERS_V.CONTRACT_NUMBER%TYPE;
1610: l_missing_lines BOOLEAN := FALSE;
1611: l_missing_asset_qty BOOLEAN := FALSE;
1711: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'p_quot_rec.legal_entity_id : '||p_quot_rec.legal_entity_id );
1712: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'p_quot_rec.repo_quote_indicator_yn : '||p_quot_rec.repo_quote_indicator_yn );
1713: END IF;
1714:
1715: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1716:
1717: -- SECHAWLA Bug #2680542 : moved all contract level validations
1718: -- to the beginning of the procedure, before line level validations.
1719:
1735: p_control_flag => 'TRMNT_QUOTE_CREATE',
1736: x_contract_status => lx_contract_status);
1737:
1738: -- If error then above api will set the message, so exit now
1739: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1740: x_return_status := OKL_API.G_RET_STS_ERROR;
1741: RAISE G_EXCEPTION_HALT_VALIDATION;
1742: END IF;
1743: */ --SECHAWLA 28-FEB-03 Bug # 2757175 : end code move
1736: x_contract_status => lx_contract_status);
1737:
1738: -- If error then above api will set the message, so exit now
1739: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1740: x_return_status := OKL_API.G_RET_STS_ERROR;
1741: RAISE G_EXCEPTION_HALT_VALIDATION;
1742: END IF;
1743: */ --SECHAWLA 28-FEB-03 Bug # 2757175 : end code move
1744:
1751: /*
1752: -- RMUNJULU 06-JAN-03 2736865 Date Eff From is now enterable
1753: -- Check date_eff_from should be >= sysdate
1754: IF p_quot_rec.date_effective_from IS NOT NULL
1755: AND p_quot_rec.date_effective_from <> OKL_API.G_MISS_DATE
1756: AND TRUNC(p_quot_rec.date_effective_from) < TRUNC(p_sys_date) THEN
1757:
1758: x_return_status := OKL_API.G_RET_STS_ERROR;
1759:
1754: IF p_quot_rec.date_effective_from IS NOT NULL
1755: AND p_quot_rec.date_effective_from <> OKL_API.G_MISS_DATE
1756: AND TRUNC(p_quot_rec.date_effective_from) < TRUNC(p_sys_date) THEN
1757:
1758: x_return_status := OKL_API.G_RET_STS_ERROR;
1759:
1760: -- Please enter the current or future date for the Effective From date.
1761: OKL_API.SET_MESSAGE(
1762: p_app_name => 'OKL',
1757:
1758: x_return_status := OKL_API.G_RET_STS_ERROR;
1759:
1760: -- Please enter the current or future date for the Effective From date.
1761: OKL_API.SET_MESSAGE(
1762: p_app_name => 'OKL',
1763: p_msg_name => 'OKL_AM_DATE_EFF_FROM_PAST');
1764:
1765: RAISE G_EXCEPTION_HALT_VALIDATION;
1769:
1770: -- rmunjulu EDAT Add check so that quote effective date which is a prior date
1771: -- is not before the contract start date
1772: IF p_quot_rec.date_effective_from IS NOT NULL
1773: AND p_quot_rec.date_effective_from <> OKL_API.G_MISS_DATE
1774: AND TRUNC(p_quot_rec.date_effective_from) < TRUNC(l_k_start_date) THEN
1775:
1776: x_return_status := OKL_API.G_RET_STS_ERROR;
1777:
1772: IF p_quot_rec.date_effective_from IS NOT NULL
1773: AND p_quot_rec.date_effective_from <> OKL_API.G_MISS_DATE
1774: AND TRUNC(p_quot_rec.date_effective_from) < TRUNC(l_k_start_date) THEN
1775:
1776: x_return_status := OKL_API.G_RET_STS_ERROR;
1777:
1778: -- Quote Effectivity Date cannot be before contract start date.
1779: OKL_API.SET_MESSAGE(
1780: p_app_name => 'OKL',
1775:
1776: x_return_status := OKL_API.G_RET_STS_ERROR;
1777:
1778: -- Quote Effectivity Date cannot be before contract start date.
1779: OKL_API.SET_MESSAGE(
1780: p_app_name => 'OKL',
1781: p_msg_name => 'OKL_AM_EDT_QTE_DATE_K');
1782:
1783: RAISE G_EXCEPTION_HALT_VALIDATION;
1786:
1787: -- rmunjulu EDAT check if contract EVERGREEN then quote effective date cannot
1788: -- be before contract end date
1789: IF p_quot_rec.date_effective_from IS NOT NULL
1790: AND p_quot_rec.date_effective_from <> OKL_API.G_MISS_DATE
1791: AND l_sts_code = 'EVERGREEN'
1792: AND TRUNC(p_quot_rec.date_effective_from) <= TRUNC(l_k_end_date) THEN -- rmunjulu bug 6978124 For Evergreen K quote should not be allowed as of K end Date.
1793:
1794: x_return_status := OKL_API.G_RET_STS_ERROR;
1790: AND p_quot_rec.date_effective_from <> OKL_API.G_MISS_DATE
1791: AND l_sts_code = 'EVERGREEN'
1792: AND TRUNC(p_quot_rec.date_effective_from) <= TRUNC(l_k_end_date) THEN -- rmunjulu bug 6978124 For Evergreen K quote should not be allowed as of K end Date.
1793:
1794: x_return_status := OKL_API.G_RET_STS_ERROR;
1795:
1796: -- Quote Effectivity Date for an Evergreen contract cannot be before contract end date.
1797: OKL_API.SET_MESSAGE(
1798: p_app_name => 'OKL',
1793:
1794: x_return_status := OKL_API.G_RET_STS_ERROR;
1795:
1796: -- Quote Effectivity Date for an Evergreen contract cannot be before contract end date.
1797: OKL_API.SET_MESSAGE(
1798: p_app_name => 'OKL',
1799: p_msg_name => 'OKL_AM_EDT_EVERGREEN_QTE_DATE');
1800:
1801: RAISE G_EXCEPTION_HALT_VALIDATION;
1807: -- rmunjulu +++++++++ Effective Dated Termination -- end ++++++++++++++++
1808:
1809: -- Check date_eff_to >= date_eff_from
1810: IF (p_quot_rec.date_effective_from IS NOT NULL)
1811: AND (p_quot_rec.date_effective_from <> OKL_API.G_MISS_DATE)
1812: AND (p_quot_rec.date_effective_to IS NOT NULL)
1813: AND (p_quot_rec.date_effective_to <> OKL_API.G_MISS_DATE) THEN
1814: IF (TRUNC(p_quot_rec.date_effective_to) <= TRUNC(p_quot_rec.date_effective_from)) THEN
1815: x_return_status := OKL_API.G_RET_STS_ERROR;
1809: -- Check date_eff_to >= date_eff_from
1810: IF (p_quot_rec.date_effective_from IS NOT NULL)
1811: AND (p_quot_rec.date_effective_from <> OKL_API.G_MISS_DATE)
1812: AND (p_quot_rec.date_effective_to IS NOT NULL)
1813: AND (p_quot_rec.date_effective_to <> OKL_API.G_MISS_DATE) THEN
1814: IF (TRUNC(p_quot_rec.date_effective_to) <= TRUNC(p_quot_rec.date_effective_from)) THEN
1815: x_return_status := OKL_API.G_RET_STS_ERROR;
1816: -- Message : Date Effective To DATE_EFFECTIVE_TO cannot be before
1817: -- Date Effective From DATE_EFFECTIVE_FROM.
1811: AND (p_quot_rec.date_effective_from <> OKL_API.G_MISS_DATE)
1812: AND (p_quot_rec.date_effective_to IS NOT NULL)
1813: AND (p_quot_rec.date_effective_to <> OKL_API.G_MISS_DATE) THEN
1814: IF (TRUNC(p_quot_rec.date_effective_to) <= TRUNC(p_quot_rec.date_effective_from)) THEN
1815: x_return_status := OKL_API.G_RET_STS_ERROR;
1816: -- Message : Date Effective To DATE_EFFECTIVE_TO cannot be before
1817: -- Date Effective From DATE_EFFECTIVE_FROM.
1818: OKL_API.SET_MESSAGE(p_app_name => 'OKL',
1819: p_msg_name => 'OKL_AM_DATE_EFF_FROM_LESS_TO',
1814: IF (TRUNC(p_quot_rec.date_effective_to) <= TRUNC(p_quot_rec.date_effective_from)) THEN
1815: x_return_status := OKL_API.G_RET_STS_ERROR;
1816: -- Message : Date Effective To DATE_EFFECTIVE_TO cannot be before
1817: -- Date Effective From DATE_EFFECTIVE_FROM.
1818: OKL_API.SET_MESSAGE(p_app_name => 'OKL',
1819: p_msg_name => 'OKL_AM_DATE_EFF_FROM_LESS_TO',
1820: p_token1 => 'DATE_EFFECTIVE_TO',
1821: p_token1_value => p_quot_rec.date_effective_to,
1822: p_token2 => 'DATE_EFFECTIVE_FROM',
1855: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1856: 'After call to early_termination_allowed :'||l_return_status);
1857: END IF;
1858:
1859: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1860: x_return_status := OKL_API.G_RET_STS_ERROR;
1861: RAISE G_EXCEPTION_HALT_VALIDATION;
1862: ELSIF (l_rule_found = FALSE) THEN
1863: x_return_status := OKL_API.G_RET_STS_ERROR;
1856: 'After call to early_termination_allowed :'||l_return_status);
1857: END IF;
1858:
1859: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1860: x_return_status := OKL_API.G_RET_STS_ERROR;
1861: RAISE G_EXCEPTION_HALT_VALIDATION;
1862: ELSIF (l_rule_found = FALSE) THEN
1863: x_return_status := OKL_API.G_RET_STS_ERROR;
1864: -- Early Termination of Contract CONTRACT_NUMBER is not allowed.
1859: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1860: x_return_status := OKL_API.G_RET_STS_ERROR;
1861: RAISE G_EXCEPTION_HALT_VALIDATION;
1862: ELSIF (l_rule_found = FALSE) THEN
1863: x_return_status := OKL_API.G_RET_STS_ERROR;
1864: -- Early Termination of Contract CONTRACT_NUMBER is not allowed.
1865: OKL_API.set_message( p_app_name => 'OKL',
1866: p_msg_name => 'OKL_AM_CONTRACT_EARLY_TERM_NA',
1867: p_token1 => 'CONTRACT_NUMBER',
1861: RAISE G_EXCEPTION_HALT_VALIDATION;
1862: ELSIF (l_rule_found = FALSE) THEN
1863: x_return_status := OKL_API.G_RET_STS_ERROR;
1864: -- Early Termination of Contract CONTRACT_NUMBER is not allowed.
1865: OKL_API.set_message( p_app_name => 'OKL',
1866: p_msg_name => 'OKL_AM_CONTRACT_EARLY_TERM_NA',
1867: p_token1 => 'CONTRACT_NUMBER',
1868: p_token1_value => l_contract_number);
1869: RAISE G_EXCEPTION_HALT_VALIDATION;
1873:
1874: -- rmunjulu PPD
1875: -- do not allow creation of prior dated term quote before the principal paydown date.
1876: IF p_quot_rec.date_effective_from IS NOT NULL
1877: AND p_quot_rec.date_effective_from <> OKL_API.G_MISS_DATE THEN
1878: --AND trunc(p_quot_rec.date_effective_from) < trunc(p_sys_date) THEN
1879: -- rmunjulu Bug 4143251 Removed above condition for PRIOR Dated Quotes, NOW check for all Quotes
1880:
1881:
1898:
1899: -- A principal paydown transaction exists for contract CONTRACT_NUMBER,
1900: -- can not create a quote with Effective From date before the principal
1901: -- paydown transaction date.
1902: OKL_API.set_message(
1903: p_app_name => 'OKL',
1904: p_msg_name => 'OKL_AM_PPD_ERR',
1905: p_token1 => 'CONTRACT_NUMBER',
1906: p_token1_value => l_contract_number);
1926: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'p_assn_tbl('||i||').'||'p_split_asset_number :'|| p_assn_tbl(i).p_split_asset_number);
1927: END IF;
1928: IF ((p_assn_tbl(i).p_asset_id IS NULL) OR
1929: (p_assn_tbl(i).p_asset_id = OKC_API.G_MISS_NUM)) THEN
1930: x_return_status := OKL_API.G_RET_STS_ERROR;
1931: --Quotes are not allowed for contracts without assets.
1932: OKC_API.SET_MESSAGE (
1933: p_app_name => 'OKL'
1934: ,p_msg_name => 'OKL_AM_NO_ASSETS_FOR_QUOTE');
1941:
1942: OPEN l_clines_csr (p_assn_tbl(i).p_asset_id);
1943: FETCH l_clines_csr INTO l_chr_id, l_l_start_date; -- rmunjulu EDAT
1944: IF l_clines_csr%NOTFOUND THEN
1945: x_return_status := OKL_API.G_RET_STS_ERROR;
1946: -- invalid asset id
1947: OKC_API.SET_MESSAGE (
1948: p_app_name => 'OKC'
1949: ,p_msg_name => G_INVALID_VALUE
1950: ,p_token1 => G_COL_NAME_TOKEN
1951: ,p_token1_value => 'asset_id');
1952: RAISE G_EXCEPTION_HALT_VALIDATION;
1953: ELSIF (l_chr_id <> p_quot_rec.khr_id) OR (l_chr_id = 1) THEN
1954: x_return_status := OKL_API.G_RET_STS_ERROR;
1955: --Asset ASSET_NUMBER does not belong to the contract CONTRACT_NUMBER.
1956: OKC_API.SET_MESSAGE (
1957: p_app_name => 'OKL'
1958: ,p_msg_name => 'OKL_AM_CONTRACT_MISMATCH'
1978: IF ((p_assn_tbl(i).p_asset_qty IS NULL) OR
1979: (p_assn_tbl(i).p_asset_qty = OKC_API.G_MISS_NUM)) THEN
1980: l_asset_qty := okl_am_util_pvt.get_asset_quantity(p_assn_tbl(i).p_asset_id);
1981: IF l_asset_qty IS NULL THEN
1982: x_return_status := OKL_API.G_RET_STS_ERROR;
1983: -- Can not create quote because the asset quantity is missing.
1984: OKC_API.SET_MESSAGE (
1985: p_app_name => 'OKL'
1986: ,p_msg_name => 'OKL_AM_NO_ASSET_QTY',
2002: -- RMUNJULU 14-MAR-03 2854796 Error if quote qty less than equal to 0
2003: IF p_assn_tbl(i).p_quote_qty <= 0 THEN
2004:
2005: -- Please enter a value greater than zero for Units to Terminate of asset ASSET_NUMBER.
2006: OKL_API.SET_MESSAGE (
2007: p_app_name => 'OKL',
2008: p_msg_name => 'OKL_AM_QTE_QTY_LESS_THAN_ZERO',
2009: p_token1 => 'ASSET_NUMBER',
2010: p_token1_value => p_assn_tbl(i).p_asset_number);
2016:
2017:
2018: -- SECHAWLA Bug #2680542 : Added code to validate quote quantity
2019: IF p_assn_tbl(i).p_quote_qty > p_assn_tbl(i).p_asset_qty THEN
2020: x_return_status := OKL_API.G_RET_STS_ERROR;
2021: -- Asset ASSET_NUMBER quantity is less than the specified quote quantity.
2022: OKC_API.SET_MESSAGE (
2023: p_app_name => 'OKL'
2024: ,p_msg_name => 'OKL_AM_INVALID_QUOTE_QTY',
2053: 'After call to OKL_AM_UTIL_PVT.get_line_quotes :'||l_return_status);
2054: END IF;
2055:
2056: -- Check the return status
2057: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2058:
2059: -- Error occured in util proc, message set by util proc raise exp
2060: RAISE G_EXCEPTION_HALT_VALIDATION;
2061:
2079: 'after call to OKL_AM_UTIL_PVT.get_lookup_meaning :'||l_return_status);
2080: END IF;
2081: -- Accepted quote QUOTE_NUMBER of quote type QUOTE_TYPE exists for
2082: -- asset ASSET_NUMBER. Cannot create another quote for the same asset.
2083: OKL_API.set_message (
2084: p_app_name => 'OKL',
2085: p_msg_name => 'OKL_AM_ASSET_QTE_EXISTS_ERR',
2086: p_token1 => 'QUOTE_NUMBER',
2087: p_token1_value => lx_quote_tbl(lx_quote_tbl.FIRST).quote_number,
2110: END IF;
2111:
2112:
2113: -- If error then throw exception
2114: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2115:
2116: RAISE G_EXCEPTION_HALT_VALIDATION;
2117:
2118: END IF;
2147: END IF;
2148:
2149:
2150: -- If error then throw exception
2151: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2152:
2153: RAISE G_EXCEPTION_HALT_VALIDATION;
2154:
2155: END IF; */
2157:
2158: IF l_deal_type LIKE 'LOAN%' THEN
2159:
2160: -- Termination with purchase quote is not allowed for loan contract.
2161: OKL_API.SET_MESSAGE(
2162: p_app_name => 'OKL',
2163: p_msg_name => 'OKL_AM_LOAN_PAR_ERR');
2164:
2165: RAISE G_EXCEPTION_HALT_VALIDATION;
2169:
2170: -- AKP:REPO-QUOTE-START 6599890
2171: -- asahoo Changed the message, no token will be passed.
2172: IF (p_quot_rec.repo_quote_indicator_yn IS NOT NULL AND
2173: p_quot_rec.repo_quote_indicator_yn <> OKL_API.G_MISS_CHAR) THEN
2174: IF p_quot_rec.repo_quote_indicator_yn ='Y' AND l_deal_type NOT LIKE 'LOAN%' THEN
2175: OKL_API.SET_MESSAGE(
2176: p_app_name => 'OKL',
2177: p_msg_name => 'OKL_AM_REPO_LOAN_VALID');
2171: -- asahoo Changed the message, no token will be passed.
2172: IF (p_quot_rec.repo_quote_indicator_yn IS NOT NULL AND
2173: p_quot_rec.repo_quote_indicator_yn <> OKL_API.G_MISS_CHAR) THEN
2174: IF p_quot_rec.repo_quote_indicator_yn ='Y' AND l_deal_type NOT LIKE 'LOAN%' THEN
2175: OKL_API.SET_MESSAGE(
2176: p_app_name => 'OKL',
2177: p_msg_name => 'OKL_AM_REPO_LOAN_VALID');
2178: RAISE G_EXCEPTION_HALT_VALIDATION;
2179: END IF;
2196:
2197: IF l_oks_line_exists = TRUE THEN
2198:
2199: -- This asset is linked to a service contract. Assets linked to service contract can not be split.
2200: OKL_API.set_message (
2201: p_app_name => 'OKL',
2202: p_msg_name => 'OKL_LLA_SPA_SERVICE_LINKED');
2203: /*
2204: -- Service line LINE_NUMBER linked to asset ASSET_NUMBER exists.
2202: p_msg_name => 'OKL_LLA_SPA_SERVICE_LINKED');
2203: /*
2204: -- Service line LINE_NUMBER linked to asset ASSET_NUMBER exists.
2205: -- Can not create partial asset termination quote for this asset.
2206: OKL_API.set_message (
2207: p_app_name => 'OKL',
2208: p_msg_name => 'OKL_AM_SERVICE_LINE_EXISTS',
2209: p_token1 => 'LINE_NUMBER',
2210: p_token1_value => l_number,
2228: x_tax_owner => l_tax_owner,
2229: x_return_status => l_return_status);
2230:
2231: -- If error then throw exception
2232: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2233:
2234: RAISE G_EXCEPTION_HALT_VALIDATION;
2235:
2236: END IF;
2238: IF l_deal_type LIKE 'LOAN%'
2239: AND l_rev_rec_method IN ('ESTIMATED_AND_BILLED','ACTUAL') THEN
2240:
2241: -- Termination of part of units of asset ASSET_NUMBER is not allowed for contract CONTRACT_NUMBER.
2242: OKL_API.SET_MESSAGE(
2243: p_app_name => 'OKL',
2244: p_msg_name => 'OKL_AM_LOAN_PAR_LN_TRMNT',
2245: p_token1 => 'ASSET_NUMBER',
2246: p_token1_value => p_assn_tbl(i).p_asset_number,
2279: 'After call to OKL_AM_UTIL_PVT.get_contract_product_details :'||l_return_status);
2280: END IF;
2281:
2282: -- If error then throw exception
2283: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2284:
2285: RAISE G_EXCEPTION_HALT_VALIDATION;
2286:
2287: END IF;
2290: IF l_deal_type LIKE 'LOAN%'
2291: AND l_rev_rec_method IN ('ACTUAL') THEN
2292:
2293: -- Termination of part of units of asset ASSET_NUMBER is not allowed for contract CONTRACT_NUMBER.
2294: OKL_API.SET_MESSAGE(
2295: p_app_name => 'OKL',
2296: p_msg_name => 'OKL_AM_LOAN_PAR_LN_TRMNT');
2297:
2298: RAISE G_EXCEPTION_HALT_VALIDATION;
2304: /*IF l_deal_type LIKE 'LOAN%'
2305: AND l_int_cal_basis = 'CATCHUP/CLEANUP' THEN
2306:
2307: -- Termination of part of units of asset ASSET_NUMBER is not allowed for contract CONTRACT_NUMBER.
2308: OKL_API.SET_MESSAGE(
2309: p_app_name => 'OKL',
2310: p_msg_name => 'OKL_AM_LOAN_CC_PAR_LN_TRMNT');
2311:
2312: RAISE G_EXCEPTION_HALT_VALIDATION;
2320: OKL_VARIABLE_INT_UTIL_PVT.check_vr_asset_level_upgrade(
2321: p_khr_id => p_quot_rec.khr_id,
2322: x_return_status => l_return_status);
2323:
2324: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2325: RAISE G_EXCEPTION_HALT_VALIDATION;
2326: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2327: RAISE G_EXCEPTION_HALT_VALIDATION;
2328: END IF;
2322: x_return_status => l_return_status);
2323:
2324: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2325: RAISE G_EXCEPTION_HALT_VALIDATION;
2326: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2327: RAISE G_EXCEPTION_HALT_VALIDATION;
2328: END IF;
2329: END IF;
2330:
2336: 'OKL_INTEREST_CALCULATION_BASIS',
2337: l_int_cal_basis,
2338: 'Y');
2339:
2340: OKL_API.SET_MESSAGE(
2341: p_app_name => 'OKL',
2342: p_msg_name => 'OKL_AM_LOAN_PAR_LINE_TRMNT',
2343: p_token1 => 'INTEREST_CALC_METHOD',
2344: p_token1_value => l_icb_meaning);
2352: -- SECHAWLA 04-JAN-06 4915133 : end
2353:
2354: -- RMUNJULU 2757312 Added code to validate the new asset number -- START
2355: IF p_assn_tbl(i).p_split_asset_number IS NOT NULL
2356: AND p_assn_tbl(i).p_split_asset_number <> OKL_API.G_MISS_CHAR THEN
2357:
2358: -- If partial Line
2359: IF p_assn_tbl(i).p_asset_qty > p_assn_tbl(i).p_quote_qty THEN
2360:
2374: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2375: 'After call to asset_number_exists :'||l_return_status);
2376: END IF;
2377:
2378: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2379: -- Message set in called proc
2380: RAISE G_EXCEPTION_HALT_VALIDATION;
2381: END IF;
2382:
2383: -- If Asset Number Entered is not unique raise error
2384: IF l_asset_exists = 'Y' THEN
2385:
2386: -- Asset number ASSET_NUMBER already exists.
2387: OKL_API.set_message (
2388: p_app_name => 'OKL',
2389: p_msg_name => 'OKL_AM_NEW_ASSET_EXISTS',
2390: p_token1 => 'ASSET_NUMBER',
2391: p_token1_value => p_assn_tbl(i).p_split_asset_number); -- RMUNJULU 3241502 Changed token value
2409: IF (p_assn_tbl(i).p_split_asset_number > l_asset_init_number) THEN
2410: -- The New Asset Number ASSET_NUMBER is reserved for automatic asset numbering.
2411: -- Asset number beyond AUTO_RANGE is reserved for automatic asset numbering.
2412: --Please modify the New Asset Number.
2413: OKL_API.set_message (
2414: p_app_name => 'OKL',
2415: p_msg_name => 'OKL_AM_NEW_ASSET_IN_AUOT_RANGE',
2416: p_token1 => 'ASSET_NUMBER',
2417: p_token1_value => p_assn_tbl(i).p_split_asset_number,
2430: -- rmunjulu +++++++++ Effective Dated Termination -- start ++++++++++++++++
2431:
2432: -- rmunjulu EDAT Check if any asset transactions exists in FA for the asset after quote effective date
2433: IF p_quot_rec.date_effective_from IS NOT NULL
2434: AND p_quot_rec.date_effective_from <> OKL_API.G_MISS_DATE THEN
2435:
2436: -- ++++++++++++ Same as in Accept Quote API ++++++++++++++++++++++---
2437: -- rmunjulu EDAT Add code for FA checks, do this only for prior dated terminations
2438: -- and termination with purchase (which is when we do asset disposal)
2462: 'After call to OKL_AM_TERMNT_QUOTE_PVT.check_asset_validity_in_fa :'||l_return_status);
2463: END IF;
2464:
2465: -- If error in FA checks the throw exception, message set in above routine
2466: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2467:
2468: RAISE G_EXCEPTION_HALT_VALIDATION; -- rmunjulu EDAT 17-Jan-2005
2469: END IF;
2470: END IF;
2472: END IF;
2473:
2474: -- rmunjulu EDAT Check if quote effectivity date before the asset start date for the quoted asset
2475: IF p_quot_rec.date_effective_from IS NOT NULL
2476: AND p_quot_rec.date_effective_from <> OKL_API.G_MISS_DATE
2477: AND TRUNC(p_quot_rec.date_effective_from) < TRUNC(l_l_start_date) THEN
2478:
2479: x_return_status := OKL_API.G_RET_STS_ERROR;
2480:
2475: IF p_quot_rec.date_effective_from IS NOT NULL
2476: AND p_quot_rec.date_effective_from <> OKL_API.G_MISS_DATE
2477: AND TRUNC(p_quot_rec.date_effective_from) < TRUNC(l_l_start_date) THEN
2478:
2479: x_return_status := OKL_API.G_RET_STS_ERROR;
2480:
2481: -- Quote Effectivity Date cannot be before asset start date.
2482: OKL_API.SET_MESSAGE(
2483: p_app_name => 'OKL',
2478:
2479: x_return_status := OKL_API.G_RET_STS_ERROR;
2480:
2481: -- Quote Effectivity Date cannot be before asset start date.
2482: OKL_API.SET_MESSAGE(
2483: p_app_name => 'OKL',
2484: p_msg_name => 'OKL_AM_EDT_QTE_DATE_ASSET');
2485:
2486: RAISE G_EXCEPTION_HALT_VALIDATION;
2493: EXIT WHEN (i = p_assn_tbl.LAST);
2494: i := p_assn_tbl.NEXT(i);
2495: END LOOP;
2496: ELSE
2497: x_return_status := OKL_API.G_RET_STS_ERROR;
2498: --Quotes are not allowed for contracts without assets.
2499: OKC_API.SET_MESSAGE (
2500: p_app_name => 'OKL'
2501: ,p_msg_name => 'OKL_AM_NO_ASSETS_FOR_QUOTE');
2506: -- termination quote creation for evergreen contracts
2507: /*
2508: --SECHAWLA 17-FEB-03 Bug 2804703 : Added the following validation
2509: IF l_sts_code = 'EVERGREEN' AND (l_partial_asset_line) THEN
2510: x_return_status := OKL_API.G_RET_STS_ERROR;
2511: -- Unable to create quote with partial asset quantities for Evergreen contract CONTRACT_NUMBER.
2512: OKC_API.SET_MESSAGE (
2513: p_app_name => 'OKL'
2514: ,p_msg_name => 'OKL_AM_PARTIAL_LINE_EVERGREEN',
2522: -- Quote Effective From Date after contract end date then error
2523: IF l_sts_code IN ('BOOKED')
2524: AND ((l_partial_asset_line) OR (p_assn_tbl.COUNT < p_no_of_assets))
2525: AND (p_quot_rec.date_effective_from IS NOT NULL
2526: AND p_quot_rec.date_effective_from <> OKL_API.G_MISS_DATE
2527: AND TRUNC(p_quot_rec.date_effective_from) > TRUNC(l_k_end_date)) THEN
2528:
2529: x_return_status := OKL_API.G_RET_STS_ERROR;
2530:
2525: AND (p_quot_rec.date_effective_from IS NOT NULL
2526: AND p_quot_rec.date_effective_from <> OKL_API.G_MISS_DATE
2527: AND TRUNC(p_quot_rec.date_effective_from) > TRUNC(l_k_end_date)) THEN
2528:
2529: x_return_status := OKL_API.G_RET_STS_ERROR;
2530:
2531:
2532: -- Unable to create partial quote for contract CONTRACT_NUMBER with quote Effective From Date QUOTE_EFF_DATE
2533: -- after contract End Date END_DATE.
2530:
2531:
2532: -- Unable to create partial quote for contract CONTRACT_NUMBER with quote Effective From Date QUOTE_EFF_DATE
2533: -- after contract End Date END_DATE.
2534: OKL_API.SET_MESSAGE (
2535: p_app_name => 'OKL',
2536: p_msg_name => 'OKL_AM_PARTIAL_BOOKED_K_ERR',
2537: p_token1 => 'CONTRACT_NUMBER',
2538: p_token1_value => l_contract_number,
2600: 'After call to partial_termination_allowed :'||l_return_status);
2601: END IF;
2602:
2603:
2604: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2605: x_return_status := OKL_API.G_RET_STS_ERROR;
2606: RAISE G_EXCEPTION_HALT_VALIDATION;
2607: ELSIF (l_rule_found = FALSE) THEN
2608: x_return_status := OKL_API.G_RET_STS_ERROR;
2601: END IF;
2602:
2603:
2604: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2605: x_return_status := OKL_API.G_RET_STS_ERROR;
2606: RAISE G_EXCEPTION_HALT_VALIDATION;
2607: ELSIF (l_rule_found = FALSE) THEN
2608: x_return_status := OKL_API.G_RET_STS_ERROR;
2609: --Partial quote for contract CONTRACT_NUMBER is not allowed.
2604: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2605: x_return_status := OKL_API.G_RET_STS_ERROR;
2606: RAISE G_EXCEPTION_HALT_VALIDATION;
2607: ELSIF (l_rule_found = FALSE) THEN
2608: x_return_status := OKL_API.G_RET_STS_ERROR;
2609: --Partial quote for contract CONTRACT_NUMBER is not allowed.
2610: OKL_API.set_message( p_app_name => 'OKL',
2611: p_msg_name => 'OKL_AM_PARTIAL_QUOTE_NA',
2612: p_token1 => 'CONTRACT_NUMBER',
2606: RAISE G_EXCEPTION_HALT_VALIDATION;
2607: ELSIF (l_rule_found = FALSE) THEN
2608: x_return_status := OKL_API.G_RET_STS_ERROR;
2609: --Partial quote for contract CONTRACT_NUMBER is not allowed.
2610: OKL_API.set_message( p_app_name => 'OKL',
2611: p_msg_name => 'OKL_AM_PARTIAL_QUOTE_NA',
2612: p_token1 => 'CONTRACT_NUMBER',
2613: p_token1_value => l_contract_number);
2614: RAISE G_EXCEPTION_HALT_VALIDATION;
2663: IF l_oks_lines_csr%ISOPEN THEN
2664: CLOSE l_oks_lines_csr;
2665: END IF;
2666:
2667: x_return_status := OKL_API.G_RET_STS_ERROR;
2668:
2669: WHEN OTHERS THEN
2670: IF k_details_for_qte_csr%ISOPEN THEN
2671: CLOSE k_details_for_qte_csr;
2693: || sqlcode || ' , SQLERRM : ' || sqlerrm);
2694: END IF;
2695:
2696: -- unexpected error
2697: OKL_API.set_message(p_app_name => g_app_name,
2698: p_msg_name => g_unexpected_error,
2699: p_token1 => g_sqlcode_token,
2700: p_token1_value => sqlcode,
2701: p_token2 => g_sqlerrm_token,
2700: p_token1_value => sqlcode,
2701: p_token2 => g_sqlerrm_token,
2702: p_token2_value => sqlerrm);
2703:
2704: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2705: END validate_quote;
2706:
2707:
2708:
2719: px_quot_rec IN OUT NOCOPY quot_rec_type,
2720: p_sys_date IN DATE,
2721: x_return_status OUT NOCOPY VARCHAR2) IS
2722:
2723: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2724: l_functional_currency_code VARCHAR2(15);
2725: l_contract_currency_code VARCHAR2(15);
2726: l_currency_conversion_type VARCHAR2(30);
2727: l_currency_conversion_rate NUMBER;
2778: 'after call to OKL_ACCOUNTING_UTIL.convert_to_functional_currency :'||l_return_status);
2779: END IF;
2780:
2781: -- raise exception if error
2782: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2783: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2784: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2785: RAISE OKL_API.G_EXCEPTION_ERROR;
2786: END IF;
2779: END IF;
2780:
2781: -- raise exception if error
2782: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2783: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2784: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2785: RAISE OKL_API.G_EXCEPTION_ERROR;
2786: END IF;
2787:
2780:
2781: -- raise exception if error
2782: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2783: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2784: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2785: RAISE OKL_API.G_EXCEPTION_ERROR;
2786: END IF;
2787:
2788: px_quot_rec.currency_code := l_contract_currency_code;
2781: -- raise exception if error
2782: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2783: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2784: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2785: RAISE OKL_API.G_EXCEPTION_ERROR;
2786: END IF;
2787:
2788: px_quot_rec.currency_code := l_contract_currency_code;
2789: px_quot_rec.currency_conversion_code := l_functional_currency_code;
2807: END IF;
2808:
2809: EXCEPTION
2810:
2811: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2812:
2813: x_return_status := OKL_API.G_RET_STS_ERROR;
2814:
2815: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2809: EXCEPTION
2810:
2811: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2812:
2813: x_return_status := OKL_API.G_RET_STS_ERROR;
2814:
2815: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2816:
2817: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2811: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2812:
2813: x_return_status := OKL_API.G_RET_STS_ERROR;
2814:
2815: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2816:
2817: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2818:
2819: WHEN OTHERS THEN
2813: x_return_status := OKL_API.G_RET_STS_ERROR;
2814:
2815: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2816:
2817: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2818:
2819: WHEN OTHERS THEN
2820:
2821: -- unexpected error
2818:
2819: WHEN OTHERS THEN
2820:
2821: -- unexpected error
2822: OKL_API.set_message(
2823: p_app_name => 'OKC',
2824: p_msg_name => g_unexpected_error,
2825: p_token1 => g_sqlcode_token,
2826: p_token1_value => sqlcode,
2826: p_token1_value => sqlcode,
2827: p_token2 => g_sqlerrm_token,
2828: p_token2_value => sqlerrm);
2829:
2830: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2831:
2832: END set_currency_defaults;
2833:
2834:
2851: p_chr_id IN NUMBER,
2852: x_return_status OUT NOCOPY VARCHAR2,
2853: x_net_gain_loss OUT NOCOPY NUMBER) IS
2854:
2855: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_ERROR;
2856: l_rule_code CONSTANT VARCHAR2(30) := 'AMGALO';
2857: l_rgd_code VARCHAR2(30);
2858: l_qtev_rec okl_trx_quotes_pub.qtev_rec_type;
2859: l_rule_khr_id NUMBER;
2911: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2912: 'l_rule_khr_id :'||l_rule_khr_id);
2913: END IF;
2914:
2915: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
2916: l_calc_option := l_rulv_rec.rule_information1;
2917: l_fixed_value := NVL (To_Number (l_rulv_rec.rule_information2), 0);
2918: l_formula_name := l_rulv_rec.rule_information3;
2919: END IF;
2962: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2963: 'l_rule_khr_id :'||l_rule_khr_id);
2964: END IF;
2965:
2966: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2967: x_net_gain_loss := 0;
2968: --RAISE OKL_API.G_EXCEPTION_ERROR;
2969: END IF;
2970: ELSE
2964: END IF;
2965:
2966: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2967: x_net_gain_loss := 0;
2968: --RAISE OKL_API.G_EXCEPTION_ERROR;
2969: END IF;
2970: ELSE
2971: x_net_gain_loss := 0;
2972: END IF;
2975: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
2976: END IF;
2977:
2978: EXCEPTION
2979: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2980: x_return_status := OKL_API.G_RET_STS_ERROR;
2981: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2982: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2983: WHEN OTHERS THEN
2976: END IF;
2977:
2978: EXCEPTION
2979: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2980: x_return_status := OKL_API.G_RET_STS_ERROR;
2981: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2982: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2983: WHEN OTHERS THEN
2984: IF (is_debug_exception_on) THEN
2977:
2978: EXCEPTION
2979: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2980: x_return_status := OKL_API.G_RET_STS_ERROR;
2981: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2982: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2983: WHEN OTHERS THEN
2984: IF (is_debug_exception_on) THEN
2985: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
2978: EXCEPTION
2979: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2980: x_return_status := OKL_API.G_RET_STS_ERROR;
2981: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2982: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2983: WHEN OTHERS THEN
2984: IF (is_debug_exception_on) THEN
2985: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
2986: || sqlcode || ' , SQLERRM : ' || sqlerrm);
2985: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
2986: || sqlcode || ' , SQLERRM : ' || sqlerrm);
2987: END IF;
2988:
2989: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2990: OKL_API.set_message(p_app_name => g_app_name,
2991: p_msg_name => g_unexpected_error,
2992: p_token1 => g_sqlcode_token,
2993: p_token1_value => sqlcode,
2986: || sqlcode || ' , SQLERRM : ' || sqlerrm);
2987: END IF;
2988:
2989: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2990: OKL_API.set_message(p_app_name => g_app_name,
2991: p_msg_name => g_unexpected_error,
2992: p_token1 => g_sqlcode_token,
2993: p_token1_value => sqlcode,
2994: p_token2 => g_sqlerrm_token,
3107: l_quote_eff_max_days NUMBER;
3108: l_days_before_k_exp NUMBER;
3109: l_api_version CONSTANT NUMBER := 1;
3110: l_api_name CONSTANT VARCHAR2(30) := 'create_terminate_quote';
3111: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3112: l_no_of_assets NUMBER := -1;
3113: l_k_end_date DATE;
3114: l_sys_date DATE;
3115: i NUMBER := 0;
3206:
3207:
3208: IF (is_debug_statement_on) THEN
3209: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3210: 'before call to OKL_API.START_ACTIVITY :'||l_return_status);
3211: END IF;
3212:
3213:
3214:
3214:
3215:
3216:
3217: --Check API version, initialize message list and create savepoint.
3218: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3219: G_PKG_NAME,
3220: p_init_msg_list,
3221: l_api_version,
3222: p_api_version,
3224: x_return_status);
3225:
3226: IF (is_debug_statement_on) THEN
3227: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3228: 'after call to OKL_API.START_ACTIVITY :'||l_return_status);
3229: END IF;
3230:
3231: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3232: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3227: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3228: 'after call to OKL_API.START_ACTIVITY :'||l_return_status);
3229: END IF;
3230:
3231: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3232: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3233: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3234: RAISE OKL_API.G_EXCEPTION_ERROR;
3235: END IF;
3228: 'after call to OKL_API.START_ACTIVITY :'||l_return_status);
3229: END IF;
3230:
3231: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3232: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3233: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3234: RAISE OKL_API.G_EXCEPTION_ERROR;
3235: END IF;
3236:
3229: END IF;
3230:
3231: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3232: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3233: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3234: RAISE OKL_API.G_EXCEPTION_ERROR;
3235: END IF;
3236:
3237: SELECT SYSDATE INTO l_sys_date FROM DUAL;
3230:
3231: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3232: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3233: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3234: RAISE OKL_API.G_EXCEPTION_ERROR;
3235: END IF;
3236:
3237: SELECT SYSDATE INTO l_sys_date FROM DUAL;
3238:
3238:
3239: --+++++++++ rmunjulu 3797384 Future Dated Term Qte -- Start ++++++++++++++++
3240: -- RMUNJULU EDT 3797384 default the date effective from in the beginning
3241: IF lp_quot_rec.date_effective_from IS NULL
3242: OR lp_quot_rec.date_effective_from = OKL_API.G_MISS_DATE THEN
3243:
3244: lp_quot_rec.date_effective_from := l_sys_date;
3245:
3246: END IF;
3257:
3258:
3259: OKL_AM_LEASE_LOAN_TRMNT_PUB.validate_contract(
3260: p_api_version => p_api_version,
3261: p_init_msg_list => OKL_API.G_FALSE,
3262: x_return_status => l_return_status,
3263: x_msg_count => x_msg_count,
3264: x_msg_data => x_msg_data,
3265: p_contract_id => lp_quot_rec.khr_id,
3271: 'after call to OKL_AM_LEASE_LOAN_TRMNT_PUB.validate_contract :'||l_return_status);
3272: END IF;
3273:
3274: -- If error then above api will set the message, so exit now
3275: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3276: x_return_status := OKL_API.G_RET_STS_ERROR;
3277: RAISE OKL_API.G_EXCEPTION_ERROR;
3278: END IF;
3279: -- SECHAWLA 28-FEB-03 Bug # 2757175 :end moved code
3272: END IF;
3273:
3274: -- If error then above api will set the message, so exit now
3275: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3276: x_return_status := OKL_API.G_RET_STS_ERROR;
3277: RAISE OKL_API.G_EXCEPTION_ERROR;
3278: END IF;
3279: -- SECHAWLA 28-FEB-03 Bug # 2757175 :end moved code
3280:
3273:
3274: -- If error then above api will set the message, so exit now
3275: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3276: x_return_status := OKL_API.G_RET_STS_ERROR;
3277: RAISE OKL_API.G_EXCEPTION_ERROR;
3278: END IF;
3279: -- SECHAWLA 28-FEB-03 Bug # 2757175 :end moved code
3280:
3281: OPEN cur_k_end_date(lp_quot_rec.khr_id);
3281: OPEN cur_k_end_date(lp_quot_rec.khr_id);
3282: -- SECHAWLA 14-APR-03 2902588 : fetched the new column : contract_number
3283: FETCH cur_k_end_date INTO l_contract_number, l_k_end_date ; -- SECHAWLA 15-APR-03 2902588 : Changed the fetch order of columns
3284: IF cur_k_end_date%NOTFOUND THEN
3285: l_k_end_date := OKL_API.G_MISS_DATE;
3286: END IF;
3287: CLOSE cur_k_end_date;
3288:
3289: OPEN cur_k_assets (lp_quot_rec.khr_id);
3318: END IF;
3319:
3320: END IF; -- rmunjulu 4923976
3321:
3322: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3323: x_return_status := OKL_API.G_RET_STS_ERROR;
3324: --Please select a valid Quote Type.
3325: OKL_API.set_message( p_app_name => 'OKL',
3326: p_msg_name =>'OKL_AM_QTP_CODE_INVALID');
3319:
3320: END IF; -- rmunjulu 4923976
3321:
3322: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3323: x_return_status := OKL_API.G_RET_STS_ERROR;
3324: --Please select a valid Quote Type.
3325: OKL_API.set_message( p_app_name => 'OKL',
3326: p_msg_name =>'OKL_AM_QTP_CODE_INVALID');
3327: RAISE OKL_API.G_EXCEPTION_ERROR; -- SECHAWLA 28-FEB-03 Bug 2757175 : Changed the exception name as a result
3321:
3322: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3323: x_return_status := OKL_API.G_RET_STS_ERROR;
3324: --Please select a valid Quote Type.
3325: OKL_API.set_message( p_app_name => 'OKL',
3326: p_msg_name =>'OKL_AM_QTP_CODE_INVALID');
3327: RAISE OKL_API.G_EXCEPTION_ERROR; -- SECHAWLA 28-FEB-03 Bug 2757175 : Changed the exception name as a result
3328: -- of moving this procedure from validate_quote on 18-FEB-03 Bug # 2807201
3329: END IF;
3323: x_return_status := OKL_API.G_RET_STS_ERROR;
3324: --Please select a valid Quote Type.
3325: OKL_API.set_message( p_app_name => 'OKL',
3326: p_msg_name =>'OKL_AM_QTP_CODE_INVALID');
3327: RAISE OKL_API.G_EXCEPTION_ERROR; -- SECHAWLA 28-FEB-03 Bug 2757175 : Changed the exception name as a result
3328: -- of moving this procedure from validate_quote on 18-FEB-03 Bug # 2807201
3329: END IF;
3330:
3331: --SECHAWLA 06-DEC-02 - Bug # 2699412 -- Added
3338: l_rule_chr_id := okl_am_util_pvt.get_rule_chr_id (lp_quot_rec);
3339:
3340: -- SECHAWLA 28-FEB-03 Bug # 2757175 : Added a not null validation for l_rule_chr_id
3341: IF l_rule_chr_id IS NULL THEN
3342: x_return_status := OKL_API.G_RET_STS_ERROR;
3343: -- SECHAWLA 14-APR-03 2902588 : Use the following message instead of the standard REQUIRED message
3344:
3345: --Unable to create quote because the contract CONTRACT_NUMBER does not have an associated vendor program.
3346: OKC_API.set_message( p_app_name => 'OKL',
3346: OKC_API.set_message( p_app_name => 'OKL',
3347: p_msg_name => 'OKL_AM_NO_VENDOR_PROGRAM',
3348: p_token1 => 'CONTRACT_NUMBER',
3349: p_token1_value => l_contract_number);
3350: RAISE OKL_API.G_EXCEPTION_ERROR;
3351: END IF;
3352:
3353: -- SECHAWLA Bug # 2699412 : Moved the following code here so that
3354: -- l_days_before_k_exp can be passed to validate_quote
3370: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3371: 'after call to term_status :'||l_return_status);
3372: END IF;
3373:
3374: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3375: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3376: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3377: RAISE OKL_API.G_EXCEPTION_ERROR;
3378: END IF;
3371: 'after call to term_status :'||l_return_status);
3372: END IF;
3373:
3374: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3375: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3376: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3377: RAISE OKL_API.G_EXCEPTION_ERROR;
3378: END IF;
3379: -- end moved code
3372: END IF;
3373:
3374: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3375: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3376: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3377: RAISE OKL_API.G_EXCEPTION_ERROR;
3378: END IF;
3379: -- end moved code
3380:
3373:
3374: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3375: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3376: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3377: RAISE OKL_API.G_EXCEPTION_ERROR;
3378: END IF;
3379: -- end moved code
3380:
3381: -- SECHAWLA Bug #2680542 : Added x_partial_asset_line parameter to
3387: END IF;
3388:
3389: validate_quote(
3390: p_api_version => p_api_version,
3391: p_init_msg_list => OKL_API.G_FALSE,
3392: x_return_status => l_return_status,
3393: x_msg_count => x_msg_count,
3394: x_msg_data => x_msg_data,
3395: p_quot_rec => lp_quot_rec,
3405: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3406: 'after call to validate_quote :'||l_return_status);
3407: END IF;
3408:
3409: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3410: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3411: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3412: RAISE OKL_API.G_EXCEPTION_ERROR;
3413: END IF;
3406: 'after call to validate_quote :'||l_return_status);
3407: END IF;
3408:
3409: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3410: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3411: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3412: RAISE OKL_API.G_EXCEPTION_ERROR;
3413: END IF;
3414:
3407: END IF;
3408:
3409: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3410: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3411: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3412: RAISE OKL_API.G_EXCEPTION_ERROR;
3413: END IF;
3414:
3415: -- RMUNJULU 3241502 Added code to set split_asset_number with UPPER CASE
3408:
3409: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3410: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3411: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3412: RAISE OKL_API.G_EXCEPTION_ERROR;
3413: END IF;
3414:
3415: -- RMUNJULU 3241502 Added code to set split_asset_number with UPPER CASE
3416: IF (lp_assn_tbl.COUNT > 0) THEN
3416: IF (lp_assn_tbl.COUNT > 0) THEN
3417: FOR i IN lp_assn_tbl.FIRST..lp_assn_tbl.LAST LOOP
3418:
3419: IF lp_assn_tbl(i).p_split_asset_number IS NOT NULL
3420: AND lp_assn_tbl(i).p_split_asset_number <> OKL_API.G_MISS_CHAR THEN
3421: lp_assn_tbl(i).p_split_asset_number := UPPER(lp_assn_tbl(i).p_split_asset_number);
3422: END IF;
3423: END LOOP;
3424: END IF;
3439: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3440: 'after call to quote_effectivity :'||l_return_status);
3441: END IF;
3442:
3443: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3444: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3445: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3446: RAISE OKL_API.G_EXCEPTION_ERROR;
3447: END IF;
3440: 'after call to quote_effectivity :'||l_return_status);
3441: END IF;
3442:
3443: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3444: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3445: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3446: RAISE OKL_API.G_EXCEPTION_ERROR;
3447: END IF;
3448:
3441: END IF;
3442:
3443: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3444: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3445: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3446: RAISE OKL_API.G_EXCEPTION_ERROR;
3447: END IF;
3448:
3449: -- check if early termination
3442:
3443: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3444: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3445: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3446: RAISE OKL_API.G_EXCEPTION_ERROR;
3447: END IF;
3448:
3449: -- check if early termination
3450: IF (lp_quot_rec.early_termination_yn IS NULL)
3447: END IF;
3448:
3449: -- check if early termination
3450: IF (lp_quot_rec.early_termination_yn IS NULL)
3451: OR (lp_quot_rec.early_termination_yn = OKL_API.G_MISS_CHAR) THEN
3452: --+++++++++ rmunjulu 3797384 Future Dated Term Qte -- Start ++++++++++++++++
3453: -- IF (TRUNC(l_sys_date) < TRUNC(l_k_end_date) - l_days_before_k_exp) THEN
3454: -- rmunjulu EDT 3797384 changed check to check based on effective date
3455: IF (TRUNC(lp_quot_rec.date_effective_from) < TRUNC(l_k_end_date) - l_days_before_k_exp) THEN
3461: END IF;
3462:
3463: -- check if partial quote
3464: IF (lp_quot_rec.partial_yn IS NULL)
3465: OR (lp_quot_rec.partial_yn = OKL_API.G_MISS_CHAR) THEN
3466: -- SECHAWLA Bug #2680542 : Added (lx_partial_asset_line) condition to
3467: -- the following IF to check if the
3468: -- quote is a partial quote
3469: IF (p_assn_tbl.COUNT < l_no_of_assets)
3491: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3492: 'after call to set_quote_defaults :'||l_return_status);
3493: END IF;
3494:
3495: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3496: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3497: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3498: RAISE OKL_API.G_EXCEPTION_ERROR;
3499: END IF;
3492: 'after call to set_quote_defaults :'||l_return_status);
3493: END IF;
3494:
3495: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3496: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3497: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3498: RAISE OKL_API.G_EXCEPTION_ERROR;
3499: END IF;
3500:
3493: END IF;
3494:
3495: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3496: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3497: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3498: RAISE OKL_API.G_EXCEPTION_ERROR;
3499: END IF;
3500:
3501:
3494:
3495: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3496: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3497: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3498: RAISE OKL_API.G_EXCEPTION_ERROR;
3499: END IF;
3500:
3501:
3502:
3516: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3517: 'after call to set_currency_defaults :'||l_return_status);
3518: END IF;
3519:
3520: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3521: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3522: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3523: RAISE OKL_API.G_EXCEPTION_ERROR;
3524: END IF;
3517: 'after call to set_currency_defaults :'||l_return_status);
3518: END IF;
3519:
3520: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3521: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3522: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3523: RAISE OKL_API.G_EXCEPTION_ERROR;
3524: END IF;
3525:
3518: END IF;
3519:
3520: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3521: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3522: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3523: RAISE OKL_API.G_EXCEPTION_ERROR;
3524: END IF;
3525:
3526: IF (is_debug_statement_on) THEN
3519:
3520: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3521: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3522: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3523: RAISE OKL_API.G_EXCEPTION_ERROR;
3524: END IF;
3525:
3526: IF (is_debug_statement_on) THEN
3527: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3530:
3531: -- call the pub tapi insert
3532: OKL_TRX_QUOTES_PUB.insert_trx_quotes (
3533: p_api_version => p_api_version,
3534: p_init_msg_list => OKL_API.G_FALSE,
3535: x_msg_count => x_msg_count,
3536: x_msg_data => x_msg_data,
3537: p_qtev_rec => lp_quot_rec,
3538: x_qtev_rec => lx_quot_rec,
3542: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3543: 'after call to OKL_TRX_QUOTES_PUB.insert_trx_quotes :'||l_return_status);
3544: END IF;
3545:
3546: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3547: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3548: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3549: RAISE OKL_API.G_EXCEPTION_ERROR;
3550: END IF;
3543: 'after call to OKL_TRX_QUOTES_PUB.insert_trx_quotes :'||l_return_status);
3544: END IF;
3545:
3546: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3547: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3548: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3549: RAISE OKL_API.G_EXCEPTION_ERROR;
3550: END IF;
3551:
3544: END IF;
3545:
3546: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3547: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3548: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3549: RAISE OKL_API.G_EXCEPTION_ERROR;
3550: END IF;
3551:
3552:
3545:
3546: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3547: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3548: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3549: RAISE OKL_API.G_EXCEPTION_ERROR;
3550: END IF;
3551:
3552:
3553: IF (is_debug_statement_on) THEN
3567: 'after call to OKL_AM_PARTIES_PVT.create_quote_parties :'||l_return_status);
3568: END IF;
3569:
3570:
3571: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3572: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3573: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3574: RAISE OKL_API.G_EXCEPTION_ERROR;
3575: END IF;
3568: END IF;
3569:
3570:
3571: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3572: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3573: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3574: RAISE OKL_API.G_EXCEPTION_ERROR;
3575: END IF;
3576:
3569:
3570:
3571: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3572: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3573: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3574: RAISE OKL_API.G_EXCEPTION_ERROR;
3575: END IF;
3576:
3577: -- call quote calculation api (pass assets tbl)
3570:
3571: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3572: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3573: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3574: RAISE OKL_API.G_EXCEPTION_ERROR;
3575: END IF;
3576:
3577: -- call quote calculation api (pass assets tbl)
3578: -- this will insert quote lines
3583: END IF;
3584:
3585: OKL_AM_CALCULATE_QUOTE_PVT.generate(
3586: p_api_version => p_api_version,
3587: p_init_msg_list => OKL_API.G_FALSE,
3588: x_msg_count => x_msg_count,
3589: x_msg_data => x_msg_data,
3590: p_qtev_rec => lx_quot_rec,
3591: --p_asset_tbl => l_asset_tbl, -- SECHAWLA Bug #2680542 : calculate quote api now uses the same asset
3597: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3598: 'After call to OKL_AM_CALCULATE_QUOTE_PVT.generate :'||l_return_status);
3599: END IF;
3600:
3601: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3602: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3603: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3604: RAISE OKL_API.G_EXCEPTION_ERROR;
3605: END IF;
3598: 'After call to OKL_AM_CALCULATE_QUOTE_PVT.generate :'||l_return_status);
3599: END IF;
3600:
3601: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3602: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3603: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3604: RAISE OKL_API.G_EXCEPTION_ERROR;
3605: END IF;
3606:
3599: END IF;
3600:
3601: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3602: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3603: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3604: RAISE OKL_API.G_EXCEPTION_ERROR;
3605: END IF;
3606:
3607: -- SECHAWLA 14-FEB-03 2749690 : sum up the net investment, unbilled receivable and residual value amounts for
3600:
3601: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3602: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3603: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3604: RAISE OKL_API.G_EXCEPTION_ERROR;
3605: END IF;
3606:
3607: -- SECHAWLA 14-FEB-03 2749690 : sum up the net investment, unbilled receivable and residual value amounts for
3608: -- the quote lines and store the total amounts at the quote header level
3633: END IF;
3634:
3635: OKL_TRX_QUOTES_PUB.update_trx_quotes (
3636: p_api_version => p_api_version,
3637: p_init_msg_list => OKL_API.G_FALSE,
3638: x_msg_count => x_msg_count,
3639: x_msg_data => x_msg_data,
3640: p_qtev_rec => lp_quot_rec,
3641: x_qtev_rec => lx_quot_rec,
3645: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3646: 'After call to OKL_TRX_QUOTES_PUB.update_trx_quotes :'||l_return_status);
3647: END IF;
3648:
3649: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3650: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3651: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3652: RAISE OKL_API.G_EXCEPTION_ERROR;
3653: END IF;
3646: 'After call to OKL_TRX_QUOTES_PUB.update_trx_quotes :'||l_return_status);
3647: END IF;
3648:
3649: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3650: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3651: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3652: RAISE OKL_API.G_EXCEPTION_ERROR;
3653: END IF;
3654: -- end new code
3647: END IF;
3648:
3649: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3650: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3651: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3652: RAISE OKL_API.G_EXCEPTION_ERROR;
3653: END IF;
3654: -- end new code
3655:
3648:
3649: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3650: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3651: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3652: RAISE OKL_API.G_EXCEPTION_ERROR;
3653: END IF;
3654: -- end new code
3655:
3656:
3671: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3672: 'After call to get_net_gain_loss :'||l_return_status);
3673: END IF;
3674:
3675: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3676: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3677: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3678: RAISE OKL_API.G_EXCEPTION_ERROR;
3679: END IF;
3672: 'After call to get_net_gain_loss :'||l_return_status);
3673: END IF;
3674:
3675: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3676: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3677: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3678: RAISE OKL_API.G_EXCEPTION_ERROR;
3679: END IF;
3680:
3673: END IF;
3674:
3675: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3676: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3677: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3678: RAISE OKL_API.G_EXCEPTION_ERROR;
3679: END IF;
3680:
3681: -- rmunjulu 3842101 added this code here so that formula uses calculation from quote
3674:
3675: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3676: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3677: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3678: RAISE OKL_API.G_EXCEPTION_ERROR;
3679: END IF;
3680:
3681: -- rmunjulu 3842101 added this code here so that formula uses calculation from quote
3682: lp_quot_rec := lp_empty_quot_rec;
3704: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3705: 'After call to OKL_AM_UTIL_PVT.get_formula_value :'||l_return_status);
3706: END IF;
3707:
3708: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3709: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3710: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3711: RAISE OKL_API.G_EXCEPTION_ERROR;
3712: END IF;
3705: 'After call to OKL_AM_UTIL_PVT.get_formula_value :'||l_return_status);
3706: END IF;
3707:
3708: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3709: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3710: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3711: RAISE OKL_API.G_EXCEPTION_ERROR;
3712: END IF;
3713:
3706: END IF;
3707:
3708: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3709: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3710: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3711: RAISE OKL_API.G_EXCEPTION_ERROR;
3712: END IF;
3713:
3714: lp_quot_rec.perdiem_amount := l_per_diem_amt;
3707:
3708: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3709: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3710: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3711: RAISE OKL_API.G_EXCEPTION_ERROR;
3712: END IF;
3713:
3714: lp_quot_rec.perdiem_amount := l_per_diem_amt;
3715:
3721:
3722: -- rmunjulu 3842101 update the quote header again with GAIN LOSS + PERDIEM
3723: OKL_TRX_QUOTES_PUB.update_trx_quotes (
3724: p_api_version => p_api_version,
3725: p_init_msg_list => OKL_API.G_FALSE,
3726: x_msg_count => x_msg_count,
3727: x_msg_data => x_msg_data,
3728: p_qtev_rec => lp_quot_rec,
3729: x_qtev_rec => lx_quot_rec,
3733: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3734: 'After call to OKL_TRX_QUOTES_PUB.update_trx_quotes :'||l_return_status);
3735: END IF;
3736:
3737: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3738: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3739: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3740: RAISE OKL_API.G_EXCEPTION_ERROR;
3741: END IF;
3734: 'After call to OKL_TRX_QUOTES_PUB.update_trx_quotes :'||l_return_status);
3735: END IF;
3736:
3737: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3738: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3739: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3740: RAISE OKL_API.G_EXCEPTION_ERROR;
3741: END IF;
3742:
3735: END IF;
3736:
3737: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3738: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3739: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3740: RAISE OKL_API.G_EXCEPTION_ERROR;
3741: END IF;
3742:
3743: -- rmunjulu TNA 4059175 Brought this up above the workflow processing.
3736:
3737: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3738: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3739: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3740: RAISE OKL_API.G_EXCEPTION_ERROR;
3741: END IF;
3742:
3743: -- rmunjulu TNA 4059175 Brought this up above the workflow processing.
3744: -- SECHAWLA 03-OCT-2003 11i10 ER 2777984:Calculate Quote Payments for a partial termination quote
3750: END IF;
3751:
3752: OKL_AM_CALC_QUOTE_PYMNT_PVT.calc_quote_payments(
3753: p_api_version => p_api_version,
3754: p_init_msg_list => OKL_API.G_FALSE,
3755: x_return_status => l_return_status,
3756: x_msg_count => x_msg_count,
3757: x_msg_data => x_msg_data,
3758: p_quote_id => lx_quot_rec.id);
3761: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3762: 'After call to OKL_AM_CALC_QUOTE_PYMNT_PVT.calc_quote_payments :'||l_return_status);
3763: END IF;
3764:
3765: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3766: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3767: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3768: RAISE OKL_API.G_EXCEPTION_ERROR;
3769: END IF;
3762: 'After call to OKL_AM_CALC_QUOTE_PYMNT_PVT.calc_quote_payments :'||l_return_status);
3763: END IF;
3764:
3765: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3766: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3767: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3768: RAISE OKL_API.G_EXCEPTION_ERROR;
3769: END IF;
3770:
3763: END IF;
3764:
3765: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3766: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3767: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3768: RAISE OKL_API.G_EXCEPTION_ERROR;
3769: END IF;
3770:
3771: END IF;
3764:
3765: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3766: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3767: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3768: RAISE OKL_API.G_EXCEPTION_ERROR;
3769: END IF;
3770:
3771: END IF;
3772: -- SECHAWLA 03-OCT-2003 11i10 ER : 2777984 end
3778: p_trx_source_table => 'OKL_TRX_QUOTES_V',
3779: p_trx_id => lx_quot_rec.id,
3780: x_return_status => l_return_status);
3781:
3782: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3783: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3784: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3785: RAISE OKL_API.G_EXCEPTION_ERROR;
3786: END IF;
3779: p_trx_id => lx_quot_rec.id,
3780: x_return_status => l_return_status);
3781:
3782: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3783: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3784: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3785: RAISE OKL_API.G_EXCEPTION_ERROR;
3786: END IF;
3787: */
3780: x_return_status => l_return_status);
3781:
3782: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3783: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3784: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3785: RAISE OKL_API.G_EXCEPTION_ERROR;
3786: END IF;
3787: */
3788:
3781:
3782: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3783: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3784: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3785: RAISE OKL_API.G_EXCEPTION_ERROR;
3786: END IF;
3787: */
3788:
3789: -- rmunjulu TNA 4059175 Added new IF to check for non Release quotes and DO send quote only for those
3830: p_trx_source_table => 'OKL_TRX_QUOTES_V',
3831: p_trx_id => lx_quot_rec.id,
3832: x_return_status => l_return_status);
3833:
3834: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3835: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3836: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3837: RAISE OKL_API.G_EXCEPTION_ERROR;
3838: END IF;
3831: p_trx_id => lx_quot_rec.id,
3832: x_return_status => l_return_status);
3833:
3834: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3835: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3836: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3837: RAISE OKL_API.G_EXCEPTION_ERROR;
3838: END IF;
3839:
3832: x_return_status => l_return_status);
3833:
3834: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3835: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3836: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3837: RAISE OKL_API.G_EXCEPTION_ERROR;
3838: END IF;
3839:
3840: -- clear the stack
3833:
3834: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3835: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3836: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3837: RAISE OKL_API.G_EXCEPTION_ERROR;
3838: END IF;
3839:
3840: -- clear the stack
3841: okl_api.init_msg_list ( p_init_msg_list => OKL_API.G_TRUE);
3837: RAISE OKL_API.G_EXCEPTION_ERROR;
3838: END IF;
3839:
3840: -- clear the stack
3841: okl_api.init_msg_list ( p_init_msg_list => OKL_API.G_TRUE);
3842:
3843: l_manual_quote_rep := fnd_profile.value('OKL_MANUAL_TERMINATION_QUOTE_REP');
3844:
3845: IF l_manual_quote_rep IS NULL THEN
3853: l_user_profile_name := okl_am_util_pvt.get_user_profile_option_name(
3854: p_profile_option_name => 'OKL_MANUAL_TERMINATION_QUOTE_REP',
3855: x_return_status => l_return_status);
3856:
3857: IF l_return_status = OKL_API.G_RET_STS_ERROR THEN
3858: --Manual Quote Representative profile is missing.
3859: OKL_API.set_message( p_app_name => 'OKL',
3860: p_msg_name => 'OKL_AM_NO_MQ_REP_PROFILE');
3861:
3855: x_return_status => l_return_status);
3856:
3857: IF l_return_status = OKL_API.G_RET_STS_ERROR THEN
3858: --Manual Quote Representative profile is missing.
3859: OKL_API.set_message( p_app_name => 'OKL',
3860: p_msg_name => 'OKL_AM_NO_MQ_REP_PROFILE');
3861:
3862: RAISE okl_api.G_EXCEPTION_ERROR;
3863: ELSIF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3858: --Manual Quote Representative profile is missing.
3859: OKL_API.set_message( p_app_name => 'OKL',
3860: p_msg_name => 'OKL_AM_NO_MQ_REP_PROFILE');
3861:
3862: RAISE okl_api.G_EXCEPTION_ERROR;
3863: ELSIF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3864: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3865: END IF;
3866:
3859: OKL_API.set_message( p_app_name => 'OKL',
3860: p_msg_name => 'OKL_AM_NO_MQ_REP_PROFILE');
3861:
3862: RAISE okl_api.G_EXCEPTION_ERROR;
3863: ELSIF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3864: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3865: END IF;
3866:
3867: x_return_status := OKL_API.G_RET_STS_ERROR;
3860: p_msg_name => 'OKL_AM_NO_MQ_REP_PROFILE');
3861:
3862: RAISE okl_api.G_EXCEPTION_ERROR;
3863: ELSIF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3864: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3865: END IF;
3866:
3867: x_return_status := OKL_API.G_RET_STS_ERROR;
3868:
3863: ELSIF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3864: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3865: END IF;
3866:
3867: x_return_status := OKL_API.G_RET_STS_ERROR;
3868:
3869: --Profile value not defined
3870: OKL_API.set_message(
3871: p_app_name => 'OKL',
3866:
3867: x_return_status := OKL_API.G_RET_STS_ERROR;
3868:
3869: --Profile value not defined
3870: OKL_API.set_message(
3871: p_app_name => 'OKL',
3872: p_msg_name => 'OKL_AM_RMK_NO_PROFILE_VALUE',
3873: p_token1 => 'PROFILE',
3874: p_token1_value => l_user_profile_name);
3872: p_msg_name => 'OKL_AM_RMK_NO_PROFILE_VALUE',
3873: p_token1 => 'PROFILE',
3874: p_token1_value => l_user_profile_name);
3875:
3876: RAISE OKL_API.G_EXCEPTION_ERROR;
3877: END IF;
3878:
3879: --SECHAWLA 28-FEB-03 Bug # 2757175 : get the display name for a role
3880: OPEN l_wfroles_csr(l_manual_quote_rep);
3886: END IF;
3887:
3888: -- Contract only allows for manual quotes. Manual quote request
3889: -- has been sent to MAN_QUOTE_REP.
3890: OKL_API.set_message(
3891: p_app_name => 'OKL',
3892: p_msg_name => 'OKL_AM_MAN_QUOTE_ALLOWED',
3893: p_token1 => 'MAN_QUOTE_REP',
3894: p_token1_value => l_display_name); --SECHAWLA 28-FEB-03 Bug # 2757175 : Changed to show display_name
3920: p_trx_id => lx_quot_rec.id,
3921: x_return_status => l_return_status);
3922:
3923: --SECHAWLA 06-DEC-02 - Bug # 2699412 -- added the exception handling
3924: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3925: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3926: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3927: RAISE OKL_API.G_EXCEPTION_ERROR;
3928: END IF;
3921: x_return_status => l_return_status);
3922:
3923: --SECHAWLA 06-DEC-02 - Bug # 2699412 -- added the exception handling
3924: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3925: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3926: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3927: RAISE OKL_API.G_EXCEPTION_ERROR;
3928: END IF;
3929: END IF;
3922:
3923: --SECHAWLA 06-DEC-02 - Bug # 2699412 -- added the exception handling
3924: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3925: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3926: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3927: RAISE OKL_API.G_EXCEPTION_ERROR;
3928: END IF;
3929: END IF;
3930: -- SECHAWLA 06-DEC-02 - Bug # 2699412 -- end new code
3923: --SECHAWLA 06-DEC-02 - Bug # 2699412 -- added the exception handling
3924: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3925: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3926: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3927: RAISE OKL_API.G_EXCEPTION_ERROR;
3928: END IF;
3929: END IF;
3930: -- SECHAWLA 06-DEC-02 - Bug # 2699412 -- end new code
3931: ELSE -- Quote is Termination Release Without Purchase -- rmunjulu TNA 4059175
3943:
3944: -- rmunjulu TNA 4059175 update the quote header with status as APPROVED
3945: OKL_TRX_QUOTES_PUB.update_trx_quotes (
3946: p_api_version => p_api_version,
3947: p_init_msg_list => OKL_API.G_FALSE,
3948: x_msg_count => x_msg_count,
3949: x_msg_data => x_msg_data,
3950: p_qtev_rec => lp_quot_rec,
3951: x_qtev_rec => lx_quot_rec,
3955: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3956: 'After call to OKL_TRX_QUOTES_PUB.update_trx_quotes'||l_return_status);
3957: END IF;
3958:
3959: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3960: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3961: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3962: RAISE OKL_API.G_EXCEPTION_ERROR;
3963: END IF;
3956: 'After call to OKL_TRX_QUOTES_PUB.update_trx_quotes'||l_return_status);
3957: END IF;
3958:
3959: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3960: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3961: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3962: RAISE OKL_API.G_EXCEPTION_ERROR;
3963: END IF;
3964:
3957: END IF;
3958:
3959: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3960: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3961: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3962: RAISE OKL_API.G_EXCEPTION_ERROR;
3963: END IF;
3964:
3965: -- Save messages in database
3958:
3959: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3960: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3961: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3962: RAISE OKL_API.G_EXCEPTION_ERROR;
3963: END IF;
3964:
3965: -- Save messages in database
3966: OKL_AM_UTIL_PVT.process_messages (
3968: p_trx_id => lx_quot_rec.id,
3969: x_return_status => l_return_status);
3970:
3971: --SECHAWLA 06-DEC-02 - Bug # 2699412 -- added the exception handling
3972: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3973: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3974: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3975: RAISE OKL_API.G_EXCEPTION_ERROR;
3976: END IF;
3969: x_return_status => l_return_status);
3970:
3971: --SECHAWLA 06-DEC-02 - Bug # 2699412 -- added the exception handling
3972: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3973: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3974: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3975: RAISE OKL_API.G_EXCEPTION_ERROR;
3976: END IF;
3977: END IF;
3970:
3971: --SECHAWLA 06-DEC-02 - Bug # 2699412 -- added the exception handling
3972: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3973: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3974: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3975: RAISE OKL_API.G_EXCEPTION_ERROR;
3976: END IF;
3977: END IF;
3978:
3971: --SECHAWLA 06-DEC-02 - Bug # 2699412 -- added the exception handling
3972: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3973: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3974: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3975: RAISE OKL_API.G_EXCEPTION_ERROR;
3976: END IF;
3977: END IF;
3978:
3979: -- set the return status and out variables
3982: x_assn_tbl := lx_assn_tbl;
3983: x_tqlv_tbl := lx_tqlv_tbl;
3984:
3985: -- end the transaction
3986: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3987:
3988:
3989: IF (is_debug_statement_on) THEN
3990: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3995: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,G_MODULE_NAME||'create_terminate_quote. ','End(-)');
3996: END IF;
3997:
3998: EXCEPTION
3999: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4000: IF cur_k_assets%ISOPEN THEN
4001: CLOSE cur_k_assets;
4002: END IF;
4003: IF cur_k_end_date%ISOPEN THEN
4010: IF (is_debug_statement_on) THEN
4011: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4012: 'EXCEPTION ERROR');
4013: END IF;
4014: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4015: (
4016: l_api_name,
4017: G_PKG_NAME,
4018: 'OKL_API.G_RET_STS_ERROR',
4014: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4015: (
4016: l_api_name,
4017: G_PKG_NAME,
4018: 'OKL_API.G_RET_STS_ERROR',
4019: x_msg_count,
4020: x_msg_data,
4021: '_PVT'
4022: );
4019: x_msg_count,
4020: x_msg_data,
4021: '_PVT'
4022: );
4023: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4024: IF cur_k_assets%ISOPEN THEN
4025: CLOSE cur_k_assets;
4026: END IF;
4027: IF cur_k_end_date%ISOPEN THEN
4034: IF (is_debug_statement_on) THEN
4035: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4036: 'UNEXPECTED EXCEPTION ERROR');
4037: END IF;
4038: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4039: (
4040: l_api_name,
4041: G_PKG_NAME,
4042: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4038: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4039: (
4040: l_api_name,
4041: G_PKG_NAME,
4042: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4043: x_msg_count,
4044: x_msg_data,
4045: '_PVT'
4046: );
4058: IF (is_debug_statement_on) THEN
4059: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4060: 'OTHER EXCEPTION ERROR');
4061: END IF;
4062: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4063: (
4064: l_api_name,
4065: G_PKG_NAME,
4066: 'OTHERS',
4085: OPEN check_repo_csr(p_quote_id);
4086: FETCH check_repo_csr INTO l_repo_yn;
4087: CLOSE check_repo_csr;
4088:
4089: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4090: RETURN l_repo_yn;
4091: EXCEPTION
4092: WHEN OTHERS THEN
4093:
4093:
4094: IF check_repo_csr%ISOPEN THEN
4095: CLOSE check_repo_csr;
4096: END IF;
4097: x_return_status := OKL_API.G_RET_STS_ERROR;
4098: END;
4099:
4100:
4101: