[Home] [Help]
976: RAISE OKL_API.G_EXCEPTION_ERROR;
977: END IF;
978:
979: --Bug 7022258-Added by kkorrapo
980: l_refno_unq_chk := okl_util.validate_seq_num('OKL_LSQ_REF_SEQ','OKL_LEASE_QUOTES_B','REFERENCE_NUMBER',l_lease_qte_rec.reference_number);
981:
982: IF (l_refno_unq_chk = 'N') THEN
983: RAISE OKL_API.G_EXCEPTION_ERROR;
984: END IF;
2034: END IF;
2035: --Bug # 5021937 ssdeshpa end
2036:
2037: --Bug 7022258-Added by kkorrapo
2038: --l_lease_qte_rec.reference_number := okl_util.get_next_seq_num('OKL_LSQ_REF_SEQ','OKL_LEASE_QUOTES_B','REFERENCE_NUMBER');
2039: --Bug 7022258--Addition end
2040:
2041: create_lease_qte (p_api_version => p_api_version,
2042: p_init_msg_list => p_init_msg_list,
2200: -- Generate reference number
2201:
2202: --Bug 7022258-Modified by kkorrapo
2203: -- SELECT OKL_LSQ_SEQ.nextval INTO l_quote_rec.reference_number FROM dual;
2204: l_quote_rec.reference_number := okl_util.get_next_seq_num('OKL_LSQ_REF_SEQ','OKL_LEASE_QUOTES_B','REFERENCE_NUMBER');
2205: --Bug 7022258--Modification end
2206:
2207: l_quote_rec.status := 'PR-INCOMPLETE';
2208:
2796: -- Generate reference number
2797:
2798: --Bug 7022258-Changed by kkorrapo
2799: -- SELECT OKL_LSQ_SEQ.nextval INTO l_quote_rec.reference_number FROM dual;
2800: l_quote_rec.reference_number := okl_util.get_next_seq_num('OKL_LSQ_REF_SEQ','OKL_LEASE_QUOTES_B','REFERENCE_NUMBER');
2801: --Bug 7022258--Change end
2802:
2803: l_quote_rec.parent_object_id := p_target_leaseopp_id;
2804: l_quote_rec.status := 'PR-INCOMPLETE';