[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;
1496: -- SECHAWLA 04-JAN-06 4915133 - partial quote (full and partial line) should not be allowed
1497: -- for a loan contract with rev rec method 'ESTIMATED_AND_BILLED' or 'ACTUAL'
1498: PROCEDURE validate_quote(
1499: p_api_version IN NUMBER,
1500: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1501: x_return_status OUT NOCOPY VARCHAR2,
1502: x_msg_count OUT NOCOPY NUMBER,
1503: x_msg_data OUT NOCOPY VARCHAR2,
1504: p_quot_rec IN quot_rec_type,
1602:
1603: l_no_of_assets NUMBER := 0;
1604: l_k_end_date DATE;
1605: l_rule_found BOOLEAN := FALSE;
1606: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_ERROR;
1607: l_contract_status OKC_STATUSES_V.MEANING%TYPE;
1608: l_contract_number OKC_K_HEADERS_V.CONTRACT_NUMBER%TYPE;
1609: l_missing_lines BOOLEAN := FALSE;
1610: l_missing_asset_qty BOOLEAN := FALSE;
1707: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'p_quot_rec.legal_entity_id : '||p_quot_rec.legal_entity_id );
1708: 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 );
1709: END IF;
1710:
1711: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1712:
1713: -- SECHAWLA Bug #2680542 : moved all contract level validations
1714: -- to the beginning of the procedure, before line level validations.
1715:
1731: p_control_flag => 'TRMNT_QUOTE_CREATE',
1732: x_contract_status => lx_contract_status);
1733:
1734: -- If error then above api will set the message, so exit now
1735: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1736: x_return_status := OKL_API.G_RET_STS_ERROR;
1737: RAISE G_EXCEPTION_HALT_VALIDATION;
1738: END IF;
1739: */ --SECHAWLA 28-FEB-03 Bug # 2757175 : end code move
1732: x_contract_status => lx_contract_status);
1733:
1734: -- If error then above api will set the message, so exit now
1735: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1736: x_return_status := OKL_API.G_RET_STS_ERROR;
1737: RAISE G_EXCEPTION_HALT_VALIDATION;
1738: END IF;
1739: */ --SECHAWLA 28-FEB-03 Bug # 2757175 : end code move
1740:
1747: /*
1748: -- RMUNJULU 06-JAN-03 2736865 Date Eff From is now enterable
1749: -- Check date_eff_from should be >= sysdate
1750: IF p_quot_rec.date_effective_from IS NOT NULL
1751: AND p_quot_rec.date_effective_from <> OKL_API.G_MISS_DATE
1752: AND TRUNC(p_quot_rec.date_effective_from) < TRUNC(p_sys_date) THEN
1753:
1754: x_return_status := OKL_API.G_RET_STS_ERROR;
1755:
1750: IF p_quot_rec.date_effective_from IS NOT NULL
1751: AND p_quot_rec.date_effective_from <> OKL_API.G_MISS_DATE
1752: AND TRUNC(p_quot_rec.date_effective_from) < TRUNC(p_sys_date) THEN
1753:
1754: x_return_status := OKL_API.G_RET_STS_ERROR;
1755:
1756: -- Please enter the current or future date for the Effective From date.
1757: OKL_API.SET_MESSAGE(
1758: p_app_name => 'OKL',
1753:
1754: x_return_status := OKL_API.G_RET_STS_ERROR;
1755:
1756: -- Please enter the current or future date for the Effective From date.
1757: OKL_API.SET_MESSAGE(
1758: p_app_name => 'OKL',
1759: p_msg_name => 'OKL_AM_DATE_EFF_FROM_PAST');
1760:
1761: RAISE G_EXCEPTION_HALT_VALIDATION;
1765:
1766: -- rmunjulu EDAT Add check so that quote effective date which is a prior date
1767: -- is not before the contract start date
1768: IF p_quot_rec.date_effective_from IS NOT NULL
1769: AND p_quot_rec.date_effective_from <> OKL_API.G_MISS_DATE
1770: AND TRUNC(p_quot_rec.date_effective_from) < TRUNC(l_k_start_date) THEN
1771:
1772: x_return_status := OKL_API.G_RET_STS_ERROR;
1773:
1768: IF p_quot_rec.date_effective_from IS NOT NULL
1769: AND p_quot_rec.date_effective_from <> OKL_API.G_MISS_DATE
1770: AND TRUNC(p_quot_rec.date_effective_from) < TRUNC(l_k_start_date) THEN
1771:
1772: x_return_status := OKL_API.G_RET_STS_ERROR;
1773:
1774: -- Quote Effectivity Date cannot be before contract start date.
1775: OKL_API.SET_MESSAGE(
1776: p_app_name => 'OKL',
1771:
1772: x_return_status := OKL_API.G_RET_STS_ERROR;
1773:
1774: -- Quote Effectivity Date cannot be before contract start date.
1775: OKL_API.SET_MESSAGE(
1776: p_app_name => 'OKL',
1777: p_msg_name => 'OKL_AM_EDT_QTE_DATE_K');
1778:
1779: RAISE G_EXCEPTION_HALT_VALIDATION;
1782:
1783: -- rmunjulu EDAT check if contract EVERGREEN then quote effective date cannot
1784: -- be before contract end date
1785: IF p_quot_rec.date_effective_from IS NOT NULL
1786: AND p_quot_rec.date_effective_from <> OKL_API.G_MISS_DATE
1787: AND l_sts_code = 'EVERGREEN'
1788: 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.
1789:
1790: x_return_status := OKL_API.G_RET_STS_ERROR;
1786: AND p_quot_rec.date_effective_from <> OKL_API.G_MISS_DATE
1787: AND l_sts_code = 'EVERGREEN'
1788: 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.
1789:
1790: x_return_status := OKL_API.G_RET_STS_ERROR;
1791:
1792: -- Quote Effectivity Date for an Evergreen contract cannot be before contract end date.
1793: OKL_API.SET_MESSAGE(
1794: p_app_name => 'OKL',
1789:
1790: x_return_status := OKL_API.G_RET_STS_ERROR;
1791:
1792: -- Quote Effectivity Date for an Evergreen contract cannot be before contract end date.
1793: OKL_API.SET_MESSAGE(
1794: p_app_name => 'OKL',
1795: p_msg_name => 'OKL_AM_EDT_EVERGREEN_QTE_DATE');
1796:
1797: RAISE G_EXCEPTION_HALT_VALIDATION;
1803: -- rmunjulu +++++++++ Effective Dated Termination -- end ++++++++++++++++
1804:
1805: -- Check date_eff_to >= date_eff_from
1806: IF (p_quot_rec.date_effective_from IS NOT NULL)
1807: AND (p_quot_rec.date_effective_from <> OKL_API.G_MISS_DATE)
1808: AND (p_quot_rec.date_effective_to IS NOT NULL)
1809: AND (p_quot_rec.date_effective_to <> OKL_API.G_MISS_DATE) THEN
1810: IF (TRUNC(p_quot_rec.date_effective_to) <= TRUNC(p_quot_rec.date_effective_from)) THEN
1811: x_return_status := OKL_API.G_RET_STS_ERROR;
1805: -- Check date_eff_to >= date_eff_from
1806: IF (p_quot_rec.date_effective_from IS NOT NULL)
1807: AND (p_quot_rec.date_effective_from <> OKL_API.G_MISS_DATE)
1808: AND (p_quot_rec.date_effective_to IS NOT NULL)
1809: AND (p_quot_rec.date_effective_to <> OKL_API.G_MISS_DATE) THEN
1810: IF (TRUNC(p_quot_rec.date_effective_to) <= TRUNC(p_quot_rec.date_effective_from)) THEN
1811: x_return_status := OKL_API.G_RET_STS_ERROR;
1812: -- Message : Date Effective To DATE_EFFECTIVE_TO cannot be before
1813: -- Date Effective From DATE_EFFECTIVE_FROM.
1807: AND (p_quot_rec.date_effective_from <> OKL_API.G_MISS_DATE)
1808: AND (p_quot_rec.date_effective_to IS NOT NULL)
1809: AND (p_quot_rec.date_effective_to <> OKL_API.G_MISS_DATE) THEN
1810: IF (TRUNC(p_quot_rec.date_effective_to) <= TRUNC(p_quot_rec.date_effective_from)) THEN
1811: x_return_status := OKL_API.G_RET_STS_ERROR;
1812: -- Message : Date Effective To DATE_EFFECTIVE_TO cannot be before
1813: -- Date Effective From DATE_EFFECTIVE_FROM.
1814: OKL_API.SET_MESSAGE(p_app_name => 'OKL',
1815: p_msg_name => 'OKL_AM_DATE_EFF_FROM_LESS_TO',
1810: IF (TRUNC(p_quot_rec.date_effective_to) <= TRUNC(p_quot_rec.date_effective_from)) THEN
1811: x_return_status := OKL_API.G_RET_STS_ERROR;
1812: -- Message : Date Effective To DATE_EFFECTIVE_TO cannot be before
1813: -- Date Effective From DATE_EFFECTIVE_FROM.
1814: OKL_API.SET_MESSAGE(p_app_name => 'OKL',
1815: p_msg_name => 'OKL_AM_DATE_EFF_FROM_LESS_TO',
1816: p_token1 => 'DATE_EFFECTIVE_TO',
1817: p_token1_value => p_quot_rec.date_effective_to,
1818: p_token2 => 'DATE_EFFECTIVE_FROM',
1851: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1852: 'After call to early_termination_allowed :'||l_return_status);
1853: END IF;
1854:
1855: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1856: x_return_status := OKL_API.G_RET_STS_ERROR;
1857: RAISE G_EXCEPTION_HALT_VALIDATION;
1858: ELSIF (l_rule_found = FALSE) THEN
1859: x_return_status := OKL_API.G_RET_STS_ERROR;
1852: 'After call to early_termination_allowed :'||l_return_status);
1853: END IF;
1854:
1855: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1856: x_return_status := OKL_API.G_RET_STS_ERROR;
1857: RAISE G_EXCEPTION_HALT_VALIDATION;
1858: ELSIF (l_rule_found = FALSE) THEN
1859: x_return_status := OKL_API.G_RET_STS_ERROR;
1860: -- Early Termination of Contract CONTRACT_NUMBER is not allowed.
1855: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1856: x_return_status := OKL_API.G_RET_STS_ERROR;
1857: RAISE G_EXCEPTION_HALT_VALIDATION;
1858: ELSIF (l_rule_found = FALSE) THEN
1859: x_return_status := OKL_API.G_RET_STS_ERROR;
1860: -- Early Termination of Contract CONTRACT_NUMBER is not allowed.
1861: OKL_API.set_message( p_app_name => 'OKL',
1862: p_msg_name => 'OKL_AM_CONTRACT_EARLY_TERM_NA',
1863: p_token1 => 'CONTRACT_NUMBER',
1857: RAISE G_EXCEPTION_HALT_VALIDATION;
1858: ELSIF (l_rule_found = FALSE) THEN
1859: x_return_status := OKL_API.G_RET_STS_ERROR;
1860: -- Early Termination of Contract CONTRACT_NUMBER is not allowed.
1861: OKL_API.set_message( p_app_name => 'OKL',
1862: p_msg_name => 'OKL_AM_CONTRACT_EARLY_TERM_NA',
1863: p_token1 => 'CONTRACT_NUMBER',
1864: p_token1_value => l_contract_number);
1865: RAISE G_EXCEPTION_HALT_VALIDATION;
1869:
1870: -- rmunjulu PPD
1871: -- do not allow creation of prior dated term quote before the principal paydown date.
1872: IF p_quot_rec.date_effective_from IS NOT NULL
1873: AND p_quot_rec.date_effective_from <> OKL_API.G_MISS_DATE THEN
1874: --AND trunc(p_quot_rec.date_effective_from) < trunc(p_sys_date) THEN
1875: -- rmunjulu Bug 4143251 Removed above condition for PRIOR Dated Quotes, NOW check for all Quotes
1876:
1877:
1894:
1895: -- A principal paydown transaction exists for contract CONTRACT_NUMBER,
1896: -- can not create a quote with Effective From date before the principal
1897: -- paydown transaction date.
1898: OKL_API.set_message(
1899: p_app_name => 'OKL',
1900: p_msg_name => 'OKL_AM_PPD_ERR',
1901: p_token1 => 'CONTRACT_NUMBER',
1902: p_token1_value => l_contract_number);
1922: 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);
1923: END IF;
1924: IF ((p_assn_tbl(i).p_asset_id IS NULL) OR
1925: (p_assn_tbl(i).p_asset_id = OKC_API.G_MISS_NUM)) THEN
1926: x_return_status := OKL_API.G_RET_STS_ERROR;
1927: --Quotes are not allowed for contracts without assets.
1928: OKC_API.SET_MESSAGE (
1929: p_app_name => 'OKL'
1930: ,p_msg_name => 'OKL_AM_NO_ASSETS_FOR_QUOTE');
1937:
1938: OPEN l_clines_csr (p_assn_tbl(i).p_asset_id);
1939: FETCH l_clines_csr INTO l_chr_id, l_l_start_date; -- rmunjulu EDAT
1940: IF l_clines_csr%NOTFOUND THEN
1941: x_return_status := OKL_API.G_RET_STS_ERROR;
1942: -- invalid asset id
1943: OKC_API.SET_MESSAGE (
1944: p_app_name => 'OKC'
1945: ,p_msg_name => G_INVALID_VALUE
1946: ,p_token1 => G_COL_NAME_TOKEN
1947: ,p_token1_value => 'asset_id');
1948: RAISE G_EXCEPTION_HALT_VALIDATION;
1949: ELSIF (l_chr_id <> p_quot_rec.khr_id) OR (l_chr_id = 1) THEN
1950: x_return_status := OKL_API.G_RET_STS_ERROR;
1951: --Asset ASSET_NUMBER does not belong to the contract CONTRACT_NUMBER.
1952: OKC_API.SET_MESSAGE (
1953: p_app_name => 'OKL'
1954: ,p_msg_name => 'OKL_AM_CONTRACT_MISMATCH'
1974: IF ((p_assn_tbl(i).p_asset_qty IS NULL) OR
1975: (p_assn_tbl(i).p_asset_qty = OKC_API.G_MISS_NUM)) THEN
1976: l_asset_qty := okl_am_util_pvt.get_asset_quantity(p_assn_tbl(i).p_asset_id);
1977: IF l_asset_qty IS NULL THEN
1978: x_return_status := OKL_API.G_RET_STS_ERROR;
1979: -- Can not create quote because the asset quantity is missing.
1980: OKC_API.SET_MESSAGE (
1981: p_app_name => 'OKL'
1982: ,p_msg_name => 'OKL_AM_NO_ASSET_QTY',
1998: -- RMUNJULU 14-MAR-03 2854796 Error if quote qty less than equal to 0
1999: IF p_assn_tbl(i).p_quote_qty <= 0 THEN
2000:
2001: -- Please enter a value greater than zero for Units to Terminate of asset ASSET_NUMBER.
2002: OKL_API.SET_MESSAGE (
2003: p_app_name => 'OKL',
2004: p_msg_name => 'OKL_AM_QTE_QTY_LESS_THAN_ZERO',
2005: p_token1 => 'ASSET_NUMBER',
2006: p_token1_value => p_assn_tbl(i).p_asset_number);
2012:
2013:
2014: -- SECHAWLA Bug #2680542 : Added code to validate quote quantity
2015: IF p_assn_tbl(i).p_quote_qty > p_assn_tbl(i).p_asset_qty THEN
2016: x_return_status := OKL_API.G_RET_STS_ERROR;
2017: -- Asset ASSET_NUMBER quantity is less than the specified quote quantity.
2018: OKC_API.SET_MESSAGE (
2019: p_app_name => 'OKL'
2020: ,p_msg_name => 'OKL_AM_INVALID_QUOTE_QTY',
2049: 'After call to OKL_AM_UTIL_PVT.get_line_quotes :'||l_return_status);
2050: END IF;
2051:
2052: -- Check the return status
2053: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2054:
2055: -- Error occured in util proc, message set by util proc raise exp
2056: RAISE G_EXCEPTION_HALT_VALIDATION;
2057:
2075: 'after call to OKL_AM_UTIL_PVT.get_lookup_meaning :'||l_return_status);
2076: END IF;
2077: -- Accepted quote QUOTE_NUMBER of quote type QUOTE_TYPE exists for
2078: -- asset ASSET_NUMBER. Cannot create another quote for the same asset.
2079: OKL_API.set_message (
2080: p_app_name => 'OKL',
2081: p_msg_name => 'OKL_AM_ASSET_QTE_EXISTS_ERR',
2082: p_token1 => 'QUOTE_NUMBER',
2083: p_token1_value => lx_quote_tbl(lx_quote_tbl.FIRST).quote_number,
2106: END IF;
2107:
2108:
2109: -- If error then throw exception
2110: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2111:
2112: RAISE G_EXCEPTION_HALT_VALIDATION;
2113:
2114: END IF;
2143: END IF;
2144:
2145:
2146: -- If error then throw exception
2147: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2148:
2149: RAISE G_EXCEPTION_HALT_VALIDATION;
2150:
2151: END IF; */
2153:
2154: IF l_deal_type LIKE 'LOAN%' THEN
2155:
2156: -- Termination with purchase quote is not allowed for loan contract.
2157: OKL_API.SET_MESSAGE(
2158: p_app_name => 'OKL',
2159: p_msg_name => 'OKL_AM_LOAN_PAR_ERR');
2160:
2161: RAISE G_EXCEPTION_HALT_VALIDATION;
2165:
2166: -- AKP:REPO-QUOTE-START 6599890
2167: -- asahoo Changed the message, no token will be passed.
2168: IF (p_quot_rec.repo_quote_indicator_yn IS NOT NULL AND
2169: p_quot_rec.repo_quote_indicator_yn <> OKL_API.G_MISS_CHAR) THEN
2170: IF p_quot_rec.repo_quote_indicator_yn ='Y' AND l_deal_type NOT LIKE 'LOAN%' THEN
2171: OKL_API.SET_MESSAGE(
2172: p_app_name => 'OKL',
2173: p_msg_name => 'OKL_AM_REPO_LOAN_VALID');
2167: -- asahoo Changed the message, no token will be passed.
2168: IF (p_quot_rec.repo_quote_indicator_yn IS NOT NULL AND
2169: p_quot_rec.repo_quote_indicator_yn <> OKL_API.G_MISS_CHAR) THEN
2170: IF p_quot_rec.repo_quote_indicator_yn ='Y' AND l_deal_type NOT LIKE 'LOAN%' THEN
2171: OKL_API.SET_MESSAGE(
2172: p_app_name => 'OKL',
2173: p_msg_name => 'OKL_AM_REPO_LOAN_VALID');
2174: RAISE G_EXCEPTION_HALT_VALIDATION;
2175: END IF;
2192:
2193: IF l_oks_line_exists = TRUE THEN
2194:
2195: -- This asset is linked to a service contract. Assets linked to service contract can not be split.
2196: OKL_API.set_message (
2197: p_app_name => 'OKL',
2198: p_msg_name => 'OKL_LLA_SPA_SERVICE_LINKED');
2199: /*
2200: -- Service line LINE_NUMBER linked to asset ASSET_NUMBER exists.
2198: p_msg_name => 'OKL_LLA_SPA_SERVICE_LINKED');
2199: /*
2200: -- Service line LINE_NUMBER linked to asset ASSET_NUMBER exists.
2201: -- Can not create partial asset termination quote for this asset.
2202: OKL_API.set_message (
2203: p_app_name => 'OKL',
2204: p_msg_name => 'OKL_AM_SERVICE_LINE_EXISTS',
2205: p_token1 => 'LINE_NUMBER',
2206: p_token1_value => l_number,
2224: x_tax_owner => l_tax_owner,
2225: x_return_status => l_return_status);
2226:
2227: -- If error then throw exception
2228: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2229:
2230: RAISE G_EXCEPTION_HALT_VALIDATION;
2231:
2232: END IF;
2234: IF l_deal_type LIKE 'LOAN%'
2235: AND l_rev_rec_method IN ('ESTIMATED_AND_BILLED','ACTUAL') THEN
2236:
2237: -- Termination of part of units of asset ASSET_NUMBER is not allowed for contract CONTRACT_NUMBER.
2238: OKL_API.SET_MESSAGE(
2239: p_app_name => 'OKL',
2240: p_msg_name => 'OKL_AM_LOAN_PAR_LN_TRMNT',
2241: p_token1 => 'ASSET_NUMBER',
2242: p_token1_value => p_assn_tbl(i).p_asset_number,
2275: 'After call to OKL_AM_UTIL_PVT.get_contract_product_details :'||l_return_status);
2276: END IF;
2277:
2278: -- If error then throw exception
2279: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2280:
2281: RAISE G_EXCEPTION_HALT_VALIDATION;
2282:
2283: END IF;
2285: IF l_deal_type LIKE 'LOAN%'
2286: AND l_rev_rec_method IN ('ESTIMATED_AND_BILLED','ACTUAL') THEN
2287:
2288: -- Termination of part of units of asset ASSET_NUMBER is not allowed for contract CONTRACT_NUMBER.
2289: OKL_API.SET_MESSAGE(
2290: p_app_name => 'OKL',
2291: p_msg_name => 'OKL_AM_LOAN_PAR_LN_TRMNT');
2292:
2293: RAISE G_EXCEPTION_HALT_VALIDATION;
2298: -- SECHAWLA 04-JAN-06 4915133 : end
2299:
2300: -- RMUNJULU 2757312 Added code to validate the new asset number -- START
2301: IF p_assn_tbl(i).p_split_asset_number IS NOT NULL
2302: AND p_assn_tbl(i).p_split_asset_number <> OKL_API.G_MISS_CHAR THEN
2303:
2304: -- If partial Line
2305: IF p_assn_tbl(i).p_asset_qty > p_assn_tbl(i).p_quote_qty THEN
2306:
2320: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2321: 'After call to asset_number_exists :'||l_return_status);
2322: END IF;
2323:
2324: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2325: -- Message set in called proc
2326: RAISE G_EXCEPTION_HALT_VALIDATION;
2327: END IF;
2328:
2329: -- If Asset Number Entered is not unique raise error
2330: IF l_asset_exists = 'Y' THEN
2331:
2332: -- Asset number ASSET_NUMBER already exists.
2333: OKL_API.set_message (
2334: p_app_name => 'OKL',
2335: p_msg_name => 'OKL_AM_NEW_ASSET_EXISTS',
2336: p_token1 => 'ASSET_NUMBER',
2337: p_token1_value => p_assn_tbl(i).p_split_asset_number); -- RMUNJULU 3241502 Changed token value
2355: IF (p_assn_tbl(i).p_split_asset_number > l_asset_init_number) THEN
2356: -- The New Asset Number ASSET_NUMBER is reserved for automatic asset numbering.
2357: -- Asset number beyond AUTO_RANGE is reserved for automatic asset numbering.
2358: --Please modify the New Asset Number.
2359: OKL_API.set_message (
2360: p_app_name => 'OKL',
2361: p_msg_name => 'OKL_AM_NEW_ASSET_IN_AUOT_RANGE',
2362: p_token1 => 'ASSET_NUMBER',
2363: p_token1_value => p_assn_tbl(i).p_split_asset_number,
2376: -- rmunjulu +++++++++ Effective Dated Termination -- start ++++++++++++++++
2377:
2378: -- rmunjulu EDAT Check if any asset transactions exists in FA for the asset after quote effective date
2379: IF p_quot_rec.date_effective_from IS NOT NULL
2380: AND p_quot_rec.date_effective_from <> OKL_API.G_MISS_DATE THEN
2381:
2382: -- ++++++++++++ Same as in Accept Quote API ++++++++++++++++++++++---
2383: -- rmunjulu EDAT Add code for FA checks, do this only for prior dated terminations
2384: -- and termination with purchase (which is when we do asset disposal)
2408: 'After call to OKL_AM_TERMNT_QUOTE_PVT.check_asset_validity_in_fa :'||l_return_status);
2409: END IF;
2410:
2411: -- If error in FA checks the throw exception, message set in above routine
2412: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2413:
2414: RAISE G_EXCEPTION_HALT_VALIDATION; -- rmunjulu EDAT 17-Jan-2005
2415: END IF;
2416: END IF;
2418: END IF;
2419:
2420: -- rmunjulu EDAT Check if quote effectivity date before the asset start date for the quoted asset
2421: IF p_quot_rec.date_effective_from IS NOT NULL
2422: AND p_quot_rec.date_effective_from <> OKL_API.G_MISS_DATE
2423: AND TRUNC(p_quot_rec.date_effective_from) < TRUNC(l_l_start_date) THEN
2424:
2425: x_return_status := OKL_API.G_RET_STS_ERROR;
2426:
2421: IF p_quot_rec.date_effective_from IS NOT NULL
2422: AND p_quot_rec.date_effective_from <> OKL_API.G_MISS_DATE
2423: AND TRUNC(p_quot_rec.date_effective_from) < TRUNC(l_l_start_date) THEN
2424:
2425: x_return_status := OKL_API.G_RET_STS_ERROR;
2426:
2427: -- Quote Effectivity Date cannot be before asset start date.
2428: OKL_API.SET_MESSAGE(
2429: p_app_name => 'OKL',
2424:
2425: x_return_status := OKL_API.G_RET_STS_ERROR;
2426:
2427: -- Quote Effectivity Date cannot be before asset start date.
2428: OKL_API.SET_MESSAGE(
2429: p_app_name => 'OKL',
2430: p_msg_name => 'OKL_AM_EDT_QTE_DATE_ASSET');
2431:
2432: RAISE G_EXCEPTION_HALT_VALIDATION;
2439: EXIT WHEN (i = p_assn_tbl.LAST);
2440: i := p_assn_tbl.NEXT(i);
2441: END LOOP;
2442: ELSE
2443: x_return_status := OKL_API.G_RET_STS_ERROR;
2444: --Quotes are not allowed for contracts without assets.
2445: OKC_API.SET_MESSAGE (
2446: p_app_name => 'OKL'
2447: ,p_msg_name => 'OKL_AM_NO_ASSETS_FOR_QUOTE');
2452: -- termination quote creation for evergreen contracts
2453: /*
2454: --SECHAWLA 17-FEB-03 Bug 2804703 : Added the following validation
2455: IF l_sts_code = 'EVERGREEN' AND (l_partial_asset_line) THEN
2456: x_return_status := OKL_API.G_RET_STS_ERROR;
2457: -- Unable to create quote with partial asset quantities for Evergreen contract CONTRACT_NUMBER.
2458: OKC_API.SET_MESSAGE (
2459: p_app_name => 'OKL'
2460: ,p_msg_name => 'OKL_AM_PARTIAL_LINE_EVERGREEN',
2468: -- Quote Effective From Date after contract end date then error
2469: IF l_sts_code IN ('BOOKED')
2470: AND ((l_partial_asset_line) OR (p_assn_tbl.COUNT < p_no_of_assets))
2471: AND (p_quot_rec.date_effective_from IS NOT NULL
2472: AND p_quot_rec.date_effective_from <> OKL_API.G_MISS_DATE
2473: AND TRUNC(p_quot_rec.date_effective_from) > TRUNC(l_k_end_date)) THEN
2474:
2475: x_return_status := OKL_API.G_RET_STS_ERROR;
2476:
2471: AND (p_quot_rec.date_effective_from IS NOT NULL
2472: AND p_quot_rec.date_effective_from <> OKL_API.G_MISS_DATE
2473: AND TRUNC(p_quot_rec.date_effective_from) > TRUNC(l_k_end_date)) THEN
2474:
2475: x_return_status := OKL_API.G_RET_STS_ERROR;
2476:
2477:
2478: -- Unable to create partial quote for contract CONTRACT_NUMBER with quote Effective From Date QUOTE_EFF_DATE
2479: -- after contract End Date END_DATE.
2476:
2477:
2478: -- Unable to create partial quote for contract CONTRACT_NUMBER with quote Effective From Date QUOTE_EFF_DATE
2479: -- after contract End Date END_DATE.
2480: OKL_API.SET_MESSAGE (
2481: p_app_name => 'OKL',
2482: p_msg_name => 'OKL_AM_PARTIAL_BOOKED_K_ERR',
2483: p_token1 => 'CONTRACT_NUMBER',
2484: p_token1_value => l_contract_number,
2546: 'After call to partial_termination_allowed :'||l_return_status);
2547: END IF;
2548:
2549:
2550: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2551: x_return_status := OKL_API.G_RET_STS_ERROR;
2552: RAISE G_EXCEPTION_HALT_VALIDATION;
2553: ELSIF (l_rule_found = FALSE) THEN
2554: x_return_status := OKL_API.G_RET_STS_ERROR;
2547: END IF;
2548:
2549:
2550: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2551: x_return_status := OKL_API.G_RET_STS_ERROR;
2552: RAISE G_EXCEPTION_HALT_VALIDATION;
2553: ELSIF (l_rule_found = FALSE) THEN
2554: x_return_status := OKL_API.G_RET_STS_ERROR;
2555: --Partial quote for contract CONTRACT_NUMBER is not allowed.
2550: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2551: x_return_status := OKL_API.G_RET_STS_ERROR;
2552: RAISE G_EXCEPTION_HALT_VALIDATION;
2553: ELSIF (l_rule_found = FALSE) THEN
2554: x_return_status := OKL_API.G_RET_STS_ERROR;
2555: --Partial quote for contract CONTRACT_NUMBER is not allowed.
2556: OKL_API.set_message( p_app_name => 'OKL',
2557: p_msg_name => 'OKL_AM_PARTIAL_QUOTE_NA',
2558: p_token1 => 'CONTRACT_NUMBER',
2552: RAISE G_EXCEPTION_HALT_VALIDATION;
2553: ELSIF (l_rule_found = FALSE) THEN
2554: x_return_status := OKL_API.G_RET_STS_ERROR;
2555: --Partial quote for contract CONTRACT_NUMBER is not allowed.
2556: OKL_API.set_message( p_app_name => 'OKL',
2557: p_msg_name => 'OKL_AM_PARTIAL_QUOTE_NA',
2558: p_token1 => 'CONTRACT_NUMBER',
2559: p_token1_value => l_contract_number);
2560: RAISE G_EXCEPTION_HALT_VALIDATION;
2609: IF l_oks_lines_csr%ISOPEN THEN
2610: CLOSE l_oks_lines_csr;
2611: END IF;
2612:
2613: x_return_status := OKL_API.G_RET_STS_ERROR;
2614:
2615: WHEN OTHERS THEN
2616: IF k_details_for_qte_csr%ISOPEN THEN
2617: CLOSE k_details_for_qte_csr;
2639: || sqlcode || ' , SQLERRM : ' || sqlerrm);
2640: END IF;
2641:
2642: -- unexpected error
2643: OKL_API.set_message(p_app_name => g_app_name,
2644: p_msg_name => g_unexpected_error,
2645: p_token1 => g_sqlcode_token,
2646: p_token1_value => sqlcode,
2647: p_token2 => g_sqlerrm_token,
2646: p_token1_value => sqlcode,
2647: p_token2 => g_sqlerrm_token,
2648: p_token2_value => sqlerrm);
2649:
2650: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2651: END validate_quote;
2652:
2653:
2654:
2665: px_quot_rec IN OUT NOCOPY quot_rec_type,
2666: p_sys_date IN DATE,
2667: x_return_status OUT NOCOPY VARCHAR2) IS
2668:
2669: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2670: l_functional_currency_code VARCHAR2(15);
2671: l_contract_currency_code VARCHAR2(15);
2672: l_currency_conversion_type VARCHAR2(30);
2673: l_currency_conversion_rate NUMBER;
2724: 'after call to OKL_ACCOUNTING_UTIL.convert_to_functional_currency :'||l_return_status);
2725: END IF;
2726:
2727: -- raise exception if error
2728: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2729: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2730: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2731: RAISE OKL_API.G_EXCEPTION_ERROR;
2732: END IF;
2725: END IF;
2726:
2727: -- raise exception if error
2728: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2729: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2730: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2731: RAISE OKL_API.G_EXCEPTION_ERROR;
2732: END IF;
2733:
2726:
2727: -- raise exception if error
2728: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2729: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2730: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2731: RAISE OKL_API.G_EXCEPTION_ERROR;
2732: END IF;
2733:
2734: px_quot_rec.currency_code := l_contract_currency_code;
2727: -- raise exception if error
2728: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2729: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2730: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2731: RAISE OKL_API.G_EXCEPTION_ERROR;
2732: END IF;
2733:
2734: px_quot_rec.currency_code := l_contract_currency_code;
2735: px_quot_rec.currency_conversion_code := l_functional_currency_code;
2753: END IF;
2754:
2755: EXCEPTION
2756:
2757: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2758:
2759: x_return_status := OKL_API.G_RET_STS_ERROR;
2760:
2761: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2755: EXCEPTION
2756:
2757: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2758:
2759: x_return_status := OKL_API.G_RET_STS_ERROR;
2760:
2761: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2762:
2763: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2757: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2758:
2759: x_return_status := OKL_API.G_RET_STS_ERROR;
2760:
2761: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2762:
2763: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2764:
2765: WHEN OTHERS THEN
2759: x_return_status := OKL_API.G_RET_STS_ERROR;
2760:
2761: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2762:
2763: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2764:
2765: WHEN OTHERS THEN
2766:
2767: -- unexpected error
2764:
2765: WHEN OTHERS THEN
2766:
2767: -- unexpected error
2768: OKL_API.set_message(
2769: p_app_name => 'OKC',
2770: p_msg_name => g_unexpected_error,
2771: p_token1 => g_sqlcode_token,
2772: p_token1_value => sqlcode,
2772: p_token1_value => sqlcode,
2773: p_token2 => g_sqlerrm_token,
2774: p_token2_value => sqlerrm);
2775:
2776: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2777:
2778: END set_currency_defaults;
2779:
2780:
2797: p_chr_id IN NUMBER,
2798: x_return_status OUT NOCOPY VARCHAR2,
2799: x_net_gain_loss OUT NOCOPY NUMBER) IS
2800:
2801: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_ERROR;
2802: l_rule_code CONSTANT VARCHAR2(30) := 'AMGALO';
2803: l_rgd_code VARCHAR2(30);
2804: l_qtev_rec okl_trx_quotes_pub.qtev_rec_type;
2805: l_rule_khr_id NUMBER;
2857: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2858: 'l_rule_khr_id :'||l_rule_khr_id);
2859: END IF;
2860:
2861: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
2862: l_calc_option := l_rulv_rec.rule_information1;
2863: l_fixed_value := NVL (To_Number (l_rulv_rec.rule_information2), 0);
2864: l_formula_name := l_rulv_rec.rule_information3;
2865: END IF;
2908: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2909: 'l_rule_khr_id :'||l_rule_khr_id);
2910: END IF;
2911:
2912: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2913: x_net_gain_loss := 0;
2914: --RAISE OKL_API.G_EXCEPTION_ERROR;
2915: END IF;
2916: ELSE
2910: END IF;
2911:
2912: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2913: x_net_gain_loss := 0;
2914: --RAISE OKL_API.G_EXCEPTION_ERROR;
2915: END IF;
2916: ELSE
2917: x_net_gain_loss := 0;
2918: END IF;
2921: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
2922: END IF;
2923:
2924: EXCEPTION
2925: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2926: x_return_status := OKL_API.G_RET_STS_ERROR;
2927: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2928: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2929: WHEN OTHERS THEN
2922: END IF;
2923:
2924: EXCEPTION
2925: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2926: x_return_status := OKL_API.G_RET_STS_ERROR;
2927: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2928: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2929: WHEN OTHERS THEN
2930: IF (is_debug_exception_on) THEN
2923:
2924: EXCEPTION
2925: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2926: x_return_status := OKL_API.G_RET_STS_ERROR;
2927: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2928: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2929: WHEN OTHERS THEN
2930: IF (is_debug_exception_on) THEN
2931: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
2924: EXCEPTION
2925: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2926: x_return_status := OKL_API.G_RET_STS_ERROR;
2927: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2928: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2929: WHEN OTHERS THEN
2930: IF (is_debug_exception_on) THEN
2931: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
2932: || sqlcode || ' , SQLERRM : ' || sqlerrm);
2931: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
2932: || sqlcode || ' , SQLERRM : ' || sqlerrm);
2933: END IF;
2934:
2935: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2936: OKL_API.set_message(p_app_name => g_app_name,
2937: p_msg_name => g_unexpected_error,
2938: p_token1 => g_sqlcode_token,
2939: p_token1_value => sqlcode,
2932: || sqlcode || ' , SQLERRM : ' || sqlerrm);
2933: END IF;
2934:
2935: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2936: OKL_API.set_message(p_app_name => g_app_name,
2937: p_msg_name => g_unexpected_error,
2938: p_token1 => g_sqlcode_token,
2939: p_token1_value => sqlcode,
2940: p_token2 => g_sqlerrm_token,
3051: l_quote_eff_max_days NUMBER;
3052: l_days_before_k_exp NUMBER;
3053: l_api_version CONSTANT NUMBER := 1;
3054: l_api_name CONSTANT VARCHAR2(30) := 'create_terminate_quote';
3055: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3056: l_no_of_assets NUMBER := -1;
3057: l_k_end_date DATE;
3058: l_sys_date DATE;
3059: i NUMBER := 0;
3150:
3151:
3152: IF (is_debug_statement_on) THEN
3153: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3154: 'before call to OKL_API.START_ACTIVITY :'||l_return_status);
3155: END IF;
3156:
3157:
3158:
3158:
3159:
3160:
3161: --Check API version, initialize message list and create savepoint.
3162: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3163: G_PKG_NAME,
3164: p_init_msg_list,
3165: l_api_version,
3166: p_api_version,
3168: x_return_status);
3169:
3170: IF (is_debug_statement_on) THEN
3171: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3172: 'after call to OKL_API.START_ACTIVITY :'||l_return_status);
3173: END IF;
3174:
3175: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3176: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3171: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3172: 'after call to OKL_API.START_ACTIVITY :'||l_return_status);
3173: END IF;
3174:
3175: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3176: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3177: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3178: RAISE OKL_API.G_EXCEPTION_ERROR;
3179: END IF;
3172: 'after call to OKL_API.START_ACTIVITY :'||l_return_status);
3173: END IF;
3174:
3175: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3176: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3177: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3178: RAISE OKL_API.G_EXCEPTION_ERROR;
3179: END IF;
3180:
3173: END IF;
3174:
3175: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3176: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3177: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3178: RAISE OKL_API.G_EXCEPTION_ERROR;
3179: END IF;
3180:
3181: SELECT SYSDATE INTO l_sys_date FROM DUAL;
3174:
3175: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3176: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3177: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3178: RAISE OKL_API.G_EXCEPTION_ERROR;
3179: END IF;
3180:
3181: SELECT SYSDATE INTO l_sys_date FROM DUAL;
3182:
3182:
3183: --+++++++++ rmunjulu 3797384 Future Dated Term Qte -- Start ++++++++++++++++
3184: -- RMUNJULU EDT 3797384 default the date effective from in the beginning
3185: IF lp_quot_rec.date_effective_from IS NULL
3186: OR lp_quot_rec.date_effective_from = OKL_API.G_MISS_DATE THEN
3187:
3188: lp_quot_rec.date_effective_from := l_sys_date;
3189:
3190: END IF;
3201:
3202:
3203: OKL_AM_LEASE_LOAN_TRMNT_PUB.validate_contract(
3204: p_api_version => p_api_version,
3205: p_init_msg_list => OKL_API.G_FALSE,
3206: x_return_status => l_return_status,
3207: x_msg_count => x_msg_count,
3208: x_msg_data => x_msg_data,
3209: p_contract_id => lp_quot_rec.khr_id,
3215: 'after call to OKL_AM_LEASE_LOAN_TRMNT_PUB.validate_contract :'||l_return_status);
3216: END IF;
3217:
3218: -- If error then above api will set the message, so exit now
3219: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3220: x_return_status := OKL_API.G_RET_STS_ERROR;
3221: RAISE OKL_API.G_EXCEPTION_ERROR;
3222: END IF;
3223: -- SECHAWLA 28-FEB-03 Bug # 2757175 :end moved code
3216: END IF;
3217:
3218: -- If error then above api will set the message, so exit now
3219: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3220: x_return_status := OKL_API.G_RET_STS_ERROR;
3221: RAISE OKL_API.G_EXCEPTION_ERROR;
3222: END IF;
3223: -- SECHAWLA 28-FEB-03 Bug # 2757175 :end moved code
3224:
3217:
3218: -- If error then above api will set the message, so exit now
3219: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3220: x_return_status := OKL_API.G_RET_STS_ERROR;
3221: RAISE OKL_API.G_EXCEPTION_ERROR;
3222: END IF;
3223: -- SECHAWLA 28-FEB-03 Bug # 2757175 :end moved code
3224:
3225: OPEN cur_k_end_date(lp_quot_rec.khr_id);
3225: OPEN cur_k_end_date(lp_quot_rec.khr_id);
3226: -- SECHAWLA 14-APR-03 2902588 : fetched the new column : contract_number
3227: FETCH cur_k_end_date INTO l_contract_number, l_k_end_date ; -- SECHAWLA 15-APR-03 2902588 : Changed the fetch order of columns
3228: IF cur_k_end_date%NOTFOUND THEN
3229: l_k_end_date := OKL_API.G_MISS_DATE;
3230: END IF;
3231: CLOSE cur_k_end_date;
3232:
3233: OPEN cur_k_assets (lp_quot_rec.khr_id);
3262: END IF;
3263:
3264: END IF; -- rmunjulu 4923976
3265:
3266: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3267: x_return_status := OKL_API.G_RET_STS_ERROR;
3268: --Please select a valid Quote Type.
3269: OKL_API.set_message( p_app_name => 'OKL',
3270: p_msg_name =>'OKL_AM_QTP_CODE_INVALID');
3263:
3264: END IF; -- rmunjulu 4923976
3265:
3266: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3267: x_return_status := OKL_API.G_RET_STS_ERROR;
3268: --Please select a valid Quote Type.
3269: OKL_API.set_message( p_app_name => 'OKL',
3270: p_msg_name =>'OKL_AM_QTP_CODE_INVALID');
3271: RAISE OKL_API.G_EXCEPTION_ERROR; -- SECHAWLA 28-FEB-03 Bug 2757175 : Changed the exception name as a result
3265:
3266: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3267: x_return_status := OKL_API.G_RET_STS_ERROR;
3268: --Please select a valid Quote Type.
3269: OKL_API.set_message( p_app_name => 'OKL',
3270: p_msg_name =>'OKL_AM_QTP_CODE_INVALID');
3271: RAISE OKL_API.G_EXCEPTION_ERROR; -- SECHAWLA 28-FEB-03 Bug 2757175 : Changed the exception name as a result
3272: -- of moving this procedure from validate_quote on 18-FEB-03 Bug # 2807201
3273: END IF;
3267: x_return_status := OKL_API.G_RET_STS_ERROR;
3268: --Please select a valid Quote Type.
3269: OKL_API.set_message( p_app_name => 'OKL',
3270: p_msg_name =>'OKL_AM_QTP_CODE_INVALID');
3271: RAISE OKL_API.G_EXCEPTION_ERROR; -- SECHAWLA 28-FEB-03 Bug 2757175 : Changed the exception name as a result
3272: -- of moving this procedure from validate_quote on 18-FEB-03 Bug # 2807201
3273: END IF;
3274:
3275: --SECHAWLA 06-DEC-02 - Bug # 2699412 -- Added
3282: l_rule_chr_id := okl_am_util_pvt.get_rule_chr_id (lp_quot_rec);
3283:
3284: -- SECHAWLA 28-FEB-03 Bug # 2757175 : Added a not null validation for l_rule_chr_id
3285: IF l_rule_chr_id IS NULL THEN
3286: x_return_status := OKL_API.G_RET_STS_ERROR;
3287: -- SECHAWLA 14-APR-03 2902588 : Use the following message instead of the standard REQUIRED message
3288:
3289: --Unable to create quote because the contract CONTRACT_NUMBER does not have an associated vendor program.
3290: OKC_API.set_message( p_app_name => 'OKL',
3290: OKC_API.set_message( p_app_name => 'OKL',
3291: p_msg_name => 'OKL_AM_NO_VENDOR_PROGRAM',
3292: p_token1 => 'CONTRACT_NUMBER',
3293: p_token1_value => l_contract_number);
3294: RAISE OKL_API.G_EXCEPTION_ERROR;
3295: END IF;
3296:
3297: -- SECHAWLA Bug # 2699412 : Moved the following code here so that
3298: -- l_days_before_k_exp can be passed to validate_quote
3314: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3315: 'after call to term_status :'||l_return_status);
3316: END IF;
3317:
3318: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3319: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3320: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3321: RAISE OKL_API.G_EXCEPTION_ERROR;
3322: END IF;
3315: 'after call to term_status :'||l_return_status);
3316: END IF;
3317:
3318: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3319: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3320: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3321: RAISE OKL_API.G_EXCEPTION_ERROR;
3322: END IF;
3323: -- end moved code
3316: END IF;
3317:
3318: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3319: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3320: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3321: RAISE OKL_API.G_EXCEPTION_ERROR;
3322: END IF;
3323: -- end moved code
3324:
3317:
3318: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3319: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3320: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3321: RAISE OKL_API.G_EXCEPTION_ERROR;
3322: END IF;
3323: -- end moved code
3324:
3325: -- SECHAWLA Bug #2680542 : Added x_partial_asset_line parameter to
3331: END IF;
3332:
3333: validate_quote(
3334: p_api_version => p_api_version,
3335: p_init_msg_list => OKL_API.G_FALSE,
3336: x_return_status => l_return_status,
3337: x_msg_count => x_msg_count,
3338: x_msg_data => x_msg_data,
3339: p_quot_rec => lp_quot_rec,
3349: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3350: 'after call to validate_quote :'||l_return_status);
3351: END IF;
3352:
3353: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3354: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3355: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3356: RAISE OKL_API.G_EXCEPTION_ERROR;
3357: END IF;
3350: 'after call to validate_quote :'||l_return_status);
3351: END IF;
3352:
3353: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3354: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3355: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3356: RAISE OKL_API.G_EXCEPTION_ERROR;
3357: END IF;
3358:
3351: END IF;
3352:
3353: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3354: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3355: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3356: RAISE OKL_API.G_EXCEPTION_ERROR;
3357: END IF;
3358:
3359: -- RMUNJULU 3241502 Added code to set split_asset_number with UPPER CASE
3352:
3353: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3354: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3355: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3356: RAISE OKL_API.G_EXCEPTION_ERROR;
3357: END IF;
3358:
3359: -- RMUNJULU 3241502 Added code to set split_asset_number with UPPER CASE
3360: IF (lp_assn_tbl.COUNT > 0) THEN
3360: IF (lp_assn_tbl.COUNT > 0) THEN
3361: FOR i IN lp_assn_tbl.FIRST..lp_assn_tbl.LAST LOOP
3362:
3363: IF lp_assn_tbl(i).p_split_asset_number IS NOT NULL
3364: AND lp_assn_tbl(i).p_split_asset_number <> OKL_API.G_MISS_CHAR THEN
3365: lp_assn_tbl(i).p_split_asset_number := UPPER(lp_assn_tbl(i).p_split_asset_number);
3366: END IF;
3367: END LOOP;
3368: END IF;
3383: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3384: 'after call to quote_effectivity :'||l_return_status);
3385: END IF;
3386:
3387: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3388: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3389: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3390: RAISE OKL_API.G_EXCEPTION_ERROR;
3391: END IF;
3384: 'after call to quote_effectivity :'||l_return_status);
3385: END IF;
3386:
3387: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3388: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3389: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3390: RAISE OKL_API.G_EXCEPTION_ERROR;
3391: END IF;
3392:
3385: END IF;
3386:
3387: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3388: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3389: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3390: RAISE OKL_API.G_EXCEPTION_ERROR;
3391: END IF;
3392:
3393: -- check if early termination
3386:
3387: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3388: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3389: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3390: RAISE OKL_API.G_EXCEPTION_ERROR;
3391: END IF;
3392:
3393: -- check if early termination
3394: IF (lp_quot_rec.early_termination_yn IS NULL)
3391: END IF;
3392:
3393: -- check if early termination
3394: IF (lp_quot_rec.early_termination_yn IS NULL)
3395: OR (lp_quot_rec.early_termination_yn = OKL_API.G_MISS_CHAR) THEN
3396: --+++++++++ rmunjulu 3797384 Future Dated Term Qte -- Start ++++++++++++++++
3397: -- IF (TRUNC(l_sys_date) < TRUNC(l_k_end_date) - l_days_before_k_exp) THEN
3398: -- rmunjulu EDT 3797384 changed check to check based on effective date
3399: IF (TRUNC(lp_quot_rec.date_effective_from) < TRUNC(l_k_end_date) - l_days_before_k_exp) THEN
3405: END IF;
3406:
3407: -- check if partial quote
3408: IF (lp_quot_rec.partial_yn IS NULL)
3409: OR (lp_quot_rec.partial_yn = OKL_API.G_MISS_CHAR) THEN
3410: -- SECHAWLA Bug #2680542 : Added (lx_partial_asset_line) condition to
3411: -- the following IF to check if the
3412: -- quote is a partial quote
3413: IF (p_assn_tbl.COUNT < l_no_of_assets)
3435: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3436: 'after call to set_quote_defaults :'||l_return_status);
3437: END IF;
3438:
3439: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3440: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3441: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3442: RAISE OKL_API.G_EXCEPTION_ERROR;
3443: END IF;
3436: 'after call to set_quote_defaults :'||l_return_status);
3437: END IF;
3438:
3439: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3440: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3441: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3442: RAISE OKL_API.G_EXCEPTION_ERROR;
3443: END IF;
3444:
3437: END IF;
3438:
3439: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3440: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3441: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3442: RAISE OKL_API.G_EXCEPTION_ERROR;
3443: END IF;
3444:
3445:
3438:
3439: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3440: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3441: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3442: RAISE OKL_API.G_EXCEPTION_ERROR;
3443: END IF;
3444:
3445:
3446:
3460: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3461: 'after call to set_currency_defaults :'||l_return_status);
3462: END IF;
3463:
3464: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3465: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3466: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3467: RAISE OKL_API.G_EXCEPTION_ERROR;
3468: END IF;
3461: 'after call to set_currency_defaults :'||l_return_status);
3462: END IF;
3463:
3464: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3465: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3466: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3467: RAISE OKL_API.G_EXCEPTION_ERROR;
3468: END IF;
3469:
3462: END IF;
3463:
3464: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3465: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3466: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3467: RAISE OKL_API.G_EXCEPTION_ERROR;
3468: END IF;
3469:
3470: IF (is_debug_statement_on) THEN
3463:
3464: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3465: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3466: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3467: RAISE OKL_API.G_EXCEPTION_ERROR;
3468: END IF;
3469:
3470: IF (is_debug_statement_on) THEN
3471: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3474:
3475: -- call the pub tapi insert
3476: OKL_TRX_QUOTES_PUB.insert_trx_quotes (
3477: p_api_version => p_api_version,
3478: p_init_msg_list => OKL_API.G_FALSE,
3479: x_msg_count => x_msg_count,
3480: x_msg_data => x_msg_data,
3481: p_qtev_rec => lp_quot_rec,
3482: x_qtev_rec => lx_quot_rec,
3486: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3487: 'after call to OKL_TRX_QUOTES_PUB.insert_trx_quotes :'||l_return_status);
3488: END IF;
3489:
3490: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3491: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3492: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3493: RAISE OKL_API.G_EXCEPTION_ERROR;
3494: END IF;
3487: 'after call to OKL_TRX_QUOTES_PUB.insert_trx_quotes :'||l_return_status);
3488: END IF;
3489:
3490: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3491: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3492: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3493: RAISE OKL_API.G_EXCEPTION_ERROR;
3494: END IF;
3495:
3488: END IF;
3489:
3490: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3491: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3492: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3493: RAISE OKL_API.G_EXCEPTION_ERROR;
3494: END IF;
3495:
3496:
3489:
3490: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3491: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3492: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3493: RAISE OKL_API.G_EXCEPTION_ERROR;
3494: END IF;
3495:
3496:
3497: IF (is_debug_statement_on) THEN
3511: 'after call to OKL_AM_PARTIES_PVT.create_quote_parties :'||l_return_status);
3512: END IF;
3513:
3514:
3515: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3516: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3517: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3518: RAISE OKL_API.G_EXCEPTION_ERROR;
3519: END IF;
3512: END IF;
3513:
3514:
3515: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3516: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3517: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3518: RAISE OKL_API.G_EXCEPTION_ERROR;
3519: END IF;
3520:
3513:
3514:
3515: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3516: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3517: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3518: RAISE OKL_API.G_EXCEPTION_ERROR;
3519: END IF;
3520:
3521: -- call quote calculation api (pass assets tbl)
3514:
3515: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3516: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3517: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3518: RAISE OKL_API.G_EXCEPTION_ERROR;
3519: END IF;
3520:
3521: -- call quote calculation api (pass assets tbl)
3522: -- this will insert quote lines
3527: END IF;
3528:
3529: OKL_AM_CALCULATE_QUOTE_PVT.generate(
3530: p_api_version => p_api_version,
3531: p_init_msg_list => OKL_API.G_FALSE,
3532: x_msg_count => x_msg_count,
3533: x_msg_data => x_msg_data,
3534: p_qtev_rec => lx_quot_rec,
3535: --p_asset_tbl => l_asset_tbl, -- SECHAWLA Bug #2680542 : calculate quote api now uses the same asset
3541: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3542: 'After call to OKL_AM_CALCULATE_QUOTE_PVT.generate :'||l_return_status);
3543: END IF;
3544:
3545: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3546: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3547: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3548: RAISE OKL_API.G_EXCEPTION_ERROR;
3549: END IF;
3542: 'After call to OKL_AM_CALCULATE_QUOTE_PVT.generate :'||l_return_status);
3543: END IF;
3544:
3545: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3546: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3547: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3548: RAISE OKL_API.G_EXCEPTION_ERROR;
3549: END IF;
3550:
3543: END IF;
3544:
3545: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3546: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3547: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3548: RAISE OKL_API.G_EXCEPTION_ERROR;
3549: END IF;
3550:
3551: -- SECHAWLA 14-FEB-03 2749690 : sum up the net investment, unbilled receivable and residual value amounts for
3544:
3545: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3546: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3547: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3548: RAISE OKL_API.G_EXCEPTION_ERROR;
3549: END IF;
3550:
3551: -- SECHAWLA 14-FEB-03 2749690 : sum up the net investment, unbilled receivable and residual value amounts for
3552: -- the quote lines and store the total amounts at the quote header level
3577: END IF;
3578:
3579: OKL_TRX_QUOTES_PUB.update_trx_quotes (
3580: p_api_version => p_api_version,
3581: p_init_msg_list => OKL_API.G_FALSE,
3582: x_msg_count => x_msg_count,
3583: x_msg_data => x_msg_data,
3584: p_qtev_rec => lp_quot_rec,
3585: x_qtev_rec => lx_quot_rec,
3589: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3590: 'After call to OKL_TRX_QUOTES_PUB.update_trx_quotes :'||l_return_status);
3591: END IF;
3592:
3593: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3594: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3595: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3596: RAISE OKL_API.G_EXCEPTION_ERROR;
3597: END IF;
3590: 'After call to OKL_TRX_QUOTES_PUB.update_trx_quotes :'||l_return_status);
3591: END IF;
3592:
3593: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3594: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3595: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3596: RAISE OKL_API.G_EXCEPTION_ERROR;
3597: END IF;
3598: -- end new code
3591: END IF;
3592:
3593: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3594: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3595: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3596: RAISE OKL_API.G_EXCEPTION_ERROR;
3597: END IF;
3598: -- end new code
3599:
3592:
3593: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3594: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3595: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3596: RAISE OKL_API.G_EXCEPTION_ERROR;
3597: END IF;
3598: -- end new code
3599:
3600:
3615: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3616: 'After call to get_net_gain_loss :'||l_return_status);
3617: END IF;
3618:
3619: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3620: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3621: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3622: RAISE OKL_API.G_EXCEPTION_ERROR;
3623: END IF;
3616: 'After call to get_net_gain_loss :'||l_return_status);
3617: END IF;
3618:
3619: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3620: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3621: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3622: RAISE OKL_API.G_EXCEPTION_ERROR;
3623: END IF;
3624:
3617: END IF;
3618:
3619: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3620: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3621: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3622: RAISE OKL_API.G_EXCEPTION_ERROR;
3623: END IF;
3624:
3625: -- rmunjulu 3842101 added this code here so that formula uses calculation from quote
3618:
3619: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3620: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3621: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3622: RAISE OKL_API.G_EXCEPTION_ERROR;
3623: END IF;
3624:
3625: -- rmunjulu 3842101 added this code here so that formula uses calculation from quote
3626: lp_quot_rec := lp_empty_quot_rec;
3648: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3649: 'After call to OKL_AM_UTIL_PVT.get_formula_value :'||l_return_status);
3650: END IF;
3651:
3652: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3653: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3654: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3655: RAISE OKL_API.G_EXCEPTION_ERROR;
3656: END IF;
3649: 'After call to OKL_AM_UTIL_PVT.get_formula_value :'||l_return_status);
3650: END IF;
3651:
3652: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3653: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3654: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3655: RAISE OKL_API.G_EXCEPTION_ERROR;
3656: END IF;
3657:
3650: END IF;
3651:
3652: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3653: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3654: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3655: RAISE OKL_API.G_EXCEPTION_ERROR;
3656: END IF;
3657:
3658: lp_quot_rec.perdiem_amount := l_per_diem_amt;
3651:
3652: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3653: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3654: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3655: RAISE OKL_API.G_EXCEPTION_ERROR;
3656: END IF;
3657:
3658: lp_quot_rec.perdiem_amount := l_per_diem_amt;
3659:
3665:
3666: -- rmunjulu 3842101 update the quote header again with GAIN LOSS + PERDIEM
3667: OKL_TRX_QUOTES_PUB.update_trx_quotes (
3668: p_api_version => p_api_version,
3669: p_init_msg_list => OKL_API.G_FALSE,
3670: x_msg_count => x_msg_count,
3671: x_msg_data => x_msg_data,
3672: p_qtev_rec => lp_quot_rec,
3673: x_qtev_rec => lx_quot_rec,
3677: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3678: 'After call to OKL_TRX_QUOTES_PUB.update_trx_quotes :'||l_return_status);
3679: END IF;
3680:
3681: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3682: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3683: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3684: RAISE OKL_API.G_EXCEPTION_ERROR;
3685: END IF;
3678: 'After call to OKL_TRX_QUOTES_PUB.update_trx_quotes :'||l_return_status);
3679: END IF;
3680:
3681: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3682: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3683: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3684: RAISE OKL_API.G_EXCEPTION_ERROR;
3685: END IF;
3686:
3679: END IF;
3680:
3681: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3682: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3683: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3684: RAISE OKL_API.G_EXCEPTION_ERROR;
3685: END IF;
3686:
3687: -- rmunjulu TNA 4059175 Brought this up above the workflow processing.
3680:
3681: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3682: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3683: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3684: RAISE OKL_API.G_EXCEPTION_ERROR;
3685: END IF;
3686:
3687: -- rmunjulu TNA 4059175 Brought this up above the workflow processing.
3688: -- SECHAWLA 03-OCT-2003 11i10 ER 2777984:Calculate Quote Payments for a partial termination quote
3694: END IF;
3695:
3696: OKL_AM_CALC_QUOTE_PYMNT_PVT.calc_quote_payments(
3697: p_api_version => p_api_version,
3698: p_init_msg_list => OKL_API.G_FALSE,
3699: x_return_status => l_return_status,
3700: x_msg_count => x_msg_count,
3701: x_msg_data => x_msg_data,
3702: p_quote_id => lx_quot_rec.id);
3705: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3706: 'After call to OKL_AM_CALC_QUOTE_PYMNT_PVT.calc_quote_payments :'||l_return_status);
3707: END IF;
3708:
3709: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3710: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3711: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3712: RAISE OKL_API.G_EXCEPTION_ERROR;
3713: END IF;
3706: 'After call to OKL_AM_CALC_QUOTE_PYMNT_PVT.calc_quote_payments :'||l_return_status);
3707: END IF;
3708:
3709: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3710: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3711: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3712: RAISE OKL_API.G_EXCEPTION_ERROR;
3713: END IF;
3714:
3707: END IF;
3708:
3709: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3710: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3711: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3712: RAISE OKL_API.G_EXCEPTION_ERROR;
3713: END IF;
3714:
3715: END IF;
3708:
3709: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3710: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3711: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3712: RAISE OKL_API.G_EXCEPTION_ERROR;
3713: END IF;
3714:
3715: END IF;
3716: -- SECHAWLA 03-OCT-2003 11i10 ER : 2777984 end
3722: p_trx_source_table => 'OKL_TRX_QUOTES_V',
3723: p_trx_id => lx_quot_rec.id,
3724: x_return_status => l_return_status);
3725:
3726: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3727: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3728: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3729: RAISE OKL_API.G_EXCEPTION_ERROR;
3730: END IF;
3723: p_trx_id => lx_quot_rec.id,
3724: x_return_status => l_return_status);
3725:
3726: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3727: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3728: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3729: RAISE OKL_API.G_EXCEPTION_ERROR;
3730: END IF;
3731: */
3724: x_return_status => l_return_status);
3725:
3726: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3727: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3728: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3729: RAISE OKL_API.G_EXCEPTION_ERROR;
3730: END IF;
3731: */
3732:
3725:
3726: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3727: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3728: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3729: RAISE OKL_API.G_EXCEPTION_ERROR;
3730: END IF;
3731: */
3732:
3733: -- rmunjulu TNA 4059175 Added new IF to check for non Release quotes and DO send quote only for those
3771: p_trx_source_table => 'OKL_TRX_QUOTES_V',
3772: p_trx_id => lx_quot_rec.id,
3773: x_return_status => l_return_status);
3774:
3775: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3776: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3777: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3778: RAISE OKL_API.G_EXCEPTION_ERROR;
3779: END IF;
3772: p_trx_id => lx_quot_rec.id,
3773: x_return_status => l_return_status);
3774:
3775: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3776: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3777: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3778: RAISE OKL_API.G_EXCEPTION_ERROR;
3779: END IF;
3780:
3773: x_return_status => l_return_status);
3774:
3775: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3776: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3777: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3778: RAISE OKL_API.G_EXCEPTION_ERROR;
3779: END IF;
3780:
3781: -- clear the stack
3774:
3775: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3776: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3777: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3778: RAISE OKL_API.G_EXCEPTION_ERROR;
3779: END IF;
3780:
3781: -- clear the stack
3782: okl_api.init_msg_list ( p_init_msg_list => OKL_API.G_TRUE);
3778: RAISE OKL_API.G_EXCEPTION_ERROR;
3779: END IF;
3780:
3781: -- clear the stack
3782: okl_api.init_msg_list ( p_init_msg_list => OKL_API.G_TRUE);
3783:
3784: l_manual_quote_rep := fnd_profile.value('OKL_MANUAL_TERMINATION_QUOTE_REP');
3785:
3786: IF l_manual_quote_rep IS NULL THEN
3794: l_user_profile_name := okl_am_util_pvt.get_user_profile_option_name(
3795: p_profile_option_name => 'OKL_MANUAL_TERMINATION_QUOTE_REP',
3796: x_return_status => l_return_status);
3797:
3798: IF l_return_status = OKL_API.G_RET_STS_ERROR THEN
3799: --Manual Quote Representative profile is missing.
3800: OKL_API.set_message( p_app_name => 'OKL',
3801: p_msg_name => 'OKL_AM_NO_MQ_REP_PROFILE');
3802:
3796: x_return_status => l_return_status);
3797:
3798: IF l_return_status = OKL_API.G_RET_STS_ERROR THEN
3799: --Manual Quote Representative profile is missing.
3800: OKL_API.set_message( p_app_name => 'OKL',
3801: p_msg_name => 'OKL_AM_NO_MQ_REP_PROFILE');
3802:
3803: RAISE okl_api.G_EXCEPTION_ERROR;
3804: ELSIF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3799: --Manual Quote Representative profile is missing.
3800: OKL_API.set_message( p_app_name => 'OKL',
3801: p_msg_name => 'OKL_AM_NO_MQ_REP_PROFILE');
3802:
3803: RAISE okl_api.G_EXCEPTION_ERROR;
3804: ELSIF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3805: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3806: END IF;
3807:
3800: OKL_API.set_message( p_app_name => 'OKL',
3801: p_msg_name => 'OKL_AM_NO_MQ_REP_PROFILE');
3802:
3803: RAISE okl_api.G_EXCEPTION_ERROR;
3804: ELSIF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3805: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3806: END IF;
3807:
3808: x_return_status := OKL_API.G_RET_STS_ERROR;
3801: p_msg_name => 'OKL_AM_NO_MQ_REP_PROFILE');
3802:
3803: RAISE okl_api.G_EXCEPTION_ERROR;
3804: ELSIF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3805: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3806: END IF;
3807:
3808: x_return_status := OKL_API.G_RET_STS_ERROR;
3809:
3804: ELSIF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3805: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3806: END IF;
3807:
3808: x_return_status := OKL_API.G_RET_STS_ERROR;
3809:
3810: --Profile value not defined
3811: OKL_API.set_message(
3812: p_app_name => 'OKL',
3807:
3808: x_return_status := OKL_API.G_RET_STS_ERROR;
3809:
3810: --Profile value not defined
3811: OKL_API.set_message(
3812: p_app_name => 'OKL',
3813: p_msg_name => 'OKL_AM_RMK_NO_PROFILE_VALUE',
3814: p_token1 => 'PROFILE',
3815: p_token1_value => l_user_profile_name);
3813: p_msg_name => 'OKL_AM_RMK_NO_PROFILE_VALUE',
3814: p_token1 => 'PROFILE',
3815: p_token1_value => l_user_profile_name);
3816:
3817: RAISE OKL_API.G_EXCEPTION_ERROR;
3818: END IF;
3819:
3820: --SECHAWLA 28-FEB-03 Bug # 2757175 : get the display name for a role
3821: OPEN l_wfroles_csr(l_manual_quote_rep);
3827: END IF;
3828:
3829: -- Contract only allows for manual quotes. Manual quote request
3830: -- has been sent to MAN_QUOTE_REP.
3831: OKL_API.set_message(
3832: p_app_name => 'OKL',
3833: p_msg_name => 'OKL_AM_MAN_QUOTE_ALLOWED',
3834: p_token1 => 'MAN_QUOTE_REP',
3835: p_token1_value => l_display_name); --SECHAWLA 28-FEB-03 Bug # 2757175 : Changed to show display_name
3861: p_trx_id => lx_quot_rec.id,
3862: x_return_status => l_return_status);
3863:
3864: --SECHAWLA 06-DEC-02 - Bug # 2699412 -- added the exception handling
3865: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3866: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3867: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3868: RAISE OKL_API.G_EXCEPTION_ERROR;
3869: END IF;
3862: x_return_status => l_return_status);
3863:
3864: --SECHAWLA 06-DEC-02 - Bug # 2699412 -- added the exception handling
3865: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3866: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3867: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3868: RAISE OKL_API.G_EXCEPTION_ERROR;
3869: END IF;
3870: END IF;
3863:
3864: --SECHAWLA 06-DEC-02 - Bug # 2699412 -- added the exception handling
3865: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3866: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3867: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3868: RAISE OKL_API.G_EXCEPTION_ERROR;
3869: END IF;
3870: END IF;
3871: -- SECHAWLA 06-DEC-02 - Bug # 2699412 -- end new code
3864: --SECHAWLA 06-DEC-02 - Bug # 2699412 -- added the exception handling
3865: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3866: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3867: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3868: RAISE OKL_API.G_EXCEPTION_ERROR;
3869: END IF;
3870: END IF;
3871: -- SECHAWLA 06-DEC-02 - Bug # 2699412 -- end new code
3872: ELSE -- Quote is Termination Release Without Purchase -- rmunjulu TNA 4059175
3884:
3885: -- rmunjulu TNA 4059175 update the quote header with status as APPROVED
3886: OKL_TRX_QUOTES_PUB.update_trx_quotes (
3887: p_api_version => p_api_version,
3888: p_init_msg_list => OKL_API.G_FALSE,
3889: x_msg_count => x_msg_count,
3890: x_msg_data => x_msg_data,
3891: p_qtev_rec => lp_quot_rec,
3892: x_qtev_rec => lx_quot_rec,
3896: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3897: 'After call to OKL_TRX_QUOTES_PUB.update_trx_quotes'||l_return_status);
3898: END IF;
3899:
3900: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3901: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3902: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3903: RAISE OKL_API.G_EXCEPTION_ERROR;
3904: END IF;
3897: 'After call to OKL_TRX_QUOTES_PUB.update_trx_quotes'||l_return_status);
3898: END IF;
3899:
3900: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3901: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3902: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3903: RAISE OKL_API.G_EXCEPTION_ERROR;
3904: END IF;
3905:
3898: END IF;
3899:
3900: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3901: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3902: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3903: RAISE OKL_API.G_EXCEPTION_ERROR;
3904: END IF;
3905:
3906: -- Save messages in database
3899:
3900: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3901: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3902: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3903: RAISE OKL_API.G_EXCEPTION_ERROR;
3904: END IF;
3905:
3906: -- Save messages in database
3907: OKL_AM_UTIL_PVT.process_messages (
3909: p_trx_id => lx_quot_rec.id,
3910: x_return_status => l_return_status);
3911:
3912: --SECHAWLA 06-DEC-02 - Bug # 2699412 -- added the exception handling
3913: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3914: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3915: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3916: RAISE OKL_API.G_EXCEPTION_ERROR;
3917: END IF;
3910: x_return_status => l_return_status);
3911:
3912: --SECHAWLA 06-DEC-02 - Bug # 2699412 -- added the exception handling
3913: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3914: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3915: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3916: RAISE OKL_API.G_EXCEPTION_ERROR;
3917: END IF;
3918: END IF;
3911:
3912: --SECHAWLA 06-DEC-02 - Bug # 2699412 -- added the exception handling
3913: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3914: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3915: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3916: RAISE OKL_API.G_EXCEPTION_ERROR;
3917: END IF;
3918: END IF;
3919:
3912: --SECHAWLA 06-DEC-02 - Bug # 2699412 -- added the exception handling
3913: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3914: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3915: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3916: RAISE OKL_API.G_EXCEPTION_ERROR;
3917: END IF;
3918: END IF;
3919:
3920: -- set the return status and out variables
3923: x_assn_tbl := lx_assn_tbl;
3924: x_tqlv_tbl := lx_tqlv_tbl;
3925:
3926: -- end the transaction
3927: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3928:
3929:
3930: IF (is_debug_statement_on) THEN
3931: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3936: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,G_MODULE_NAME||'create_terminate_quote. ','End(-)');
3937: END IF;
3938:
3939: EXCEPTION
3940: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3941: IF cur_k_assets%ISOPEN THEN
3942: CLOSE cur_k_assets;
3943: END IF;
3944: IF cur_k_end_date%ISOPEN THEN
3951: IF (is_debug_statement_on) THEN
3952: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3953: 'EXCEPTION ERROR');
3954: END IF;
3955: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3956: (
3957: l_api_name,
3958: G_PKG_NAME,
3959: 'OKL_API.G_RET_STS_ERROR',
3955: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3956: (
3957: l_api_name,
3958: G_PKG_NAME,
3959: 'OKL_API.G_RET_STS_ERROR',
3960: x_msg_count,
3961: x_msg_data,
3962: '_PVT'
3963: );
3960: x_msg_count,
3961: x_msg_data,
3962: '_PVT'
3963: );
3964: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3965: IF cur_k_assets%ISOPEN THEN
3966: CLOSE cur_k_assets;
3967: END IF;
3968: IF cur_k_end_date%ISOPEN THEN
3975: IF (is_debug_statement_on) THEN
3976: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3977: 'UNEXPECTED EXCEPTION ERROR');
3978: END IF;
3979: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3980: (
3981: l_api_name,
3982: G_PKG_NAME,
3983: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3979: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3980: (
3981: l_api_name,
3982: G_PKG_NAME,
3983: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3984: x_msg_count,
3985: x_msg_data,
3986: '_PVT'
3987: );
3999: IF (is_debug_statement_on) THEN
4000: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4001: 'OTHER EXCEPTION ERROR');
4002: END IF;
4003: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4004: (
4005: l_api_name,
4006: G_PKG_NAME,
4007: 'OTHERS',
4026: OPEN check_repo_csr(p_quote_id);
4027: FETCH check_repo_csr INTO l_repo_yn;
4028: CLOSE check_repo_csr;
4029:
4030: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4031: RETURN l_repo_yn;
4032: EXCEPTION
4033: WHEN OTHERS THEN
4034:
4034:
4035: IF check_repo_csr%ISOPEN THEN
4036: CLOSE check_repo_csr;
4037: END IF;
4038: x_return_status := OKL_API.G_RET_STS_ERROR;
4039: END;
4040:
4041:
4042: