312:
313: END get_chrv_rec;
314:
315: ---------------------------------------------------------------------------
316: -- FUNCTION get_khrv_rec for: OKL_K_HEADERS_V
317: ---------------------------------------------------------------------------
318: FUNCTION get_khrv_rec (
319: p_khr_id IN OKL_K_HEADERS_V.ID%TYPE,
320: x_return_status OUT NOCOPY VARCHAR2
315: ---------------------------------------------------------------------------
316: -- FUNCTION get_khrv_rec for: OKL_K_HEADERS_V
317: ---------------------------------------------------------------------------
318: FUNCTION get_khrv_rec (
319: p_khr_id IN OKL_K_HEADERS_V.ID%TYPE,
320: x_return_status OUT NOCOPY VARCHAR2
321: ) RETURN khrv_rec_type IS
322: CURSOR okl_k_headers_v_pk_csr (p_id IN OKL_K_HEADERS_V.ID%TYPE) IS
323: SELECT
318: FUNCTION get_khrv_rec (
319: p_khr_id IN OKL_K_HEADERS_V.ID%TYPE,
320: x_return_status OUT NOCOPY VARCHAR2
321: ) RETURN khrv_rec_type IS
322: CURSOR okl_k_headers_v_pk_csr (p_id IN OKL_K_HEADERS_V.ID%TYPE) IS
323: SELECT
324: ID,
325: OBJECT_VERSION_NUMBER,
326: ISG_ID,
377: EXPECTED_DELIVERY_DATE,
378: ACCEPTED_DATE,
379: PREFUNDING_ELIGIBLE_YN,
380: REVOLVING_CREDIT_YN
381: FROM OKL_K_HEADERS_V
382: WHERE OKL_K_HEADERS_V.id = p_id;
383: l_okl_k_headers_v_pk okl_k_headers_v_pk_csr%ROWTYPE;
384: l_khrv_rec khrv_rec_type;
385: BEGIN
378: ACCEPTED_DATE,
379: PREFUNDING_ELIGIBLE_YN,
380: REVOLVING_CREDIT_YN
381: FROM OKL_K_HEADERS_V
382: WHERE OKL_K_HEADERS_V.id = p_id;
383: l_okl_k_headers_v_pk okl_k_headers_v_pk_csr%ROWTYPE;
384: l_khrv_rec khrv_rec_type;
385: BEGIN
386:
379: PREFUNDING_ELIGIBLE_YN,
380: REVOLVING_CREDIT_YN
381: FROM OKL_K_HEADERS_V
382: WHERE OKL_K_HEADERS_V.id = p_id;
383: l_okl_k_headers_v_pk okl_k_headers_v_pk_csr%ROWTYPE;
384: l_khrv_rec khrv_rec_type;
385: BEGIN
386:
387: x_return_status := OKL_API.G_RET_STS_SUCCESS;
385: BEGIN
386:
387: x_return_status := OKL_API.G_RET_STS_SUCCESS;
388: -- Get current database values
389: OPEN okl_k_headers_v_pk_csr (p_khr_id);
390: FETCH okl_k_headers_v_pk_csr INTO
391: l_khrv_rec.ID,
392: l_khrv_rec.OBJECT_VERSION_NUMBER,
393: l_khrv_rec.ISG_ID,
386:
387: x_return_status := OKL_API.G_RET_STS_SUCCESS;
388: -- Get current database values
389: OPEN okl_k_headers_v_pk_csr (p_khr_id);
390: FETCH okl_k_headers_v_pk_csr INTO
391: l_khrv_rec.ID,
392: l_khrv_rec.OBJECT_VERSION_NUMBER,
393: l_khrv_rec.ISG_ID,
394: l_khrv_rec.KHR_ID,
445: l_khrv_rec.ACCEPTED_DATE,
446: l_khrv_rec.PREFUNDING_ELIGIBLE_YN,
447: l_khrv_rec.REVOLVING_CREDIT_YN
448: ;
449: IF okl_k_headers_v_pk_csr%NOTFOUND THEN
450: x_return_status := OKL_API.G_RET_STS_ERROR;
451: END IF;
452: CLOSE okl_k_headers_v_pk_csr;
453: RETURN(l_khrv_rec);
448: ;
449: IF okl_k_headers_v_pk_csr%NOTFOUND THEN
450: x_return_status := OKL_API.G_RET_STS_ERROR;
451: END IF;
452: CLOSE okl_k_headers_v_pk_csr;
453: RETURN(l_khrv_rec);
454: EXCEPTION
455: WHEN OTHERS THEN
456: -- store SQL error message on message stack for caller
462: 'SQLerrm',
463: SQLERRM);
464: -- notify caller of an UNEXPECTED error
465: -- if the cursor is open
466: IF okl_k_headers_v_pk_csr%ISOPEN THEN
467: CLOSE okl_k_headers_v_pk_csr;
468: END IF;
469: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
470: END get_khrv_rec;
463: SQLERRM);
464: -- notify caller of an UNEXPECTED error
465: -- if the cursor is open
466: IF okl_k_headers_v_pk_csr%ISOPEN THEN
467: CLOSE okl_k_headers_v_pk_csr;
468: END IF;
469: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
470: END get_khrv_rec;
471: