443:
444: END get_chrv_rec;
445:
446: ---------------------------------------------------------------------------
447: -- FUNCTION get_khrv_rec for: OKL_K_HEADERS_V
448: ---------------------------------------------------------------------------
449: FUNCTION get_khrv_rec (
450: p_khr_id IN OKL_K_HEADERS_V.ID%TYPE,
451: x_return_status OUT NOCOPY VARCHAR2
446: ---------------------------------------------------------------------------
447: -- FUNCTION get_khrv_rec for: OKL_K_HEADERS_V
448: ---------------------------------------------------------------------------
449: FUNCTION get_khrv_rec (
450: p_khr_id IN OKL_K_HEADERS_V.ID%TYPE,
451: x_return_status OUT NOCOPY VARCHAR2
452: ) RETURN khrv_rec_type IS
453: CURSOR okl_k_headers_v_pk_csr (p_id IN OKL_K_HEADERS_V.ID%TYPE) IS
454: SELECT
449: FUNCTION get_khrv_rec (
450: p_khr_id IN OKL_K_HEADERS_V.ID%TYPE,
451: x_return_status OUT NOCOPY VARCHAR2
452: ) RETURN khrv_rec_type IS
453: CURSOR okl_k_headers_v_pk_csr (p_id IN OKL_K_HEADERS_V.ID%TYPE) IS
454: SELECT
455: ID,
456: OBJECT_VERSION_NUMBER,
457: ISG_ID,
508: EXPECTED_DELIVERY_DATE,
509: ACCEPTED_DATE,
510: PREFUNDING_ELIGIBLE_YN,
511: REVOLVING_CREDIT_YN
512: FROM OKL_K_HEADERS_V
513: WHERE OKL_K_HEADERS_V.id = p_id;
514: l_okl_k_headers_v_pk okl_k_headers_v_pk_csr%ROWTYPE;
515: l_khrv_rec khrv_rec_type;
516: BEGIN
509: ACCEPTED_DATE,
510: PREFUNDING_ELIGIBLE_YN,
511: REVOLVING_CREDIT_YN
512: FROM OKL_K_HEADERS_V
513: WHERE OKL_K_HEADERS_V.id = p_id;
514: l_okl_k_headers_v_pk okl_k_headers_v_pk_csr%ROWTYPE;
515: l_khrv_rec khrv_rec_type;
516: BEGIN
517:
510: PREFUNDING_ELIGIBLE_YN,
511: REVOLVING_CREDIT_YN
512: FROM OKL_K_HEADERS_V
513: WHERE OKL_K_HEADERS_V.id = p_id;
514: l_okl_k_headers_v_pk okl_k_headers_v_pk_csr%ROWTYPE;
515: l_khrv_rec khrv_rec_type;
516: BEGIN
517:
518: x_return_status := OKL_API.G_RET_STS_SUCCESS;
516: BEGIN
517:
518: x_return_status := OKL_API.G_RET_STS_SUCCESS;
519: -- Get current database values
520: OPEN okl_k_headers_v_pk_csr (p_khr_id);
521: FETCH okl_k_headers_v_pk_csr INTO
522: l_khrv_rec.ID,
523: l_khrv_rec.OBJECT_VERSION_NUMBER,
524: l_khrv_rec.ISG_ID,
517:
518: x_return_status := OKL_API.G_RET_STS_SUCCESS;
519: -- Get current database values
520: OPEN okl_k_headers_v_pk_csr (p_khr_id);
521: FETCH okl_k_headers_v_pk_csr INTO
522: l_khrv_rec.ID,
523: l_khrv_rec.OBJECT_VERSION_NUMBER,
524: l_khrv_rec.ISG_ID,
525: l_khrv_rec.KHR_ID,
576: l_khrv_rec.ACCEPTED_DATE,
577: l_khrv_rec.PREFUNDING_ELIGIBLE_YN,
578: l_khrv_rec.REVOLVING_CREDIT_YN
579: ;
580: IF okl_k_headers_v_pk_csr%NOTFOUND THEN
581: x_return_status := OKL_API.G_RET_STS_ERROR;
582: END IF;
583: CLOSE okl_k_headers_v_pk_csr;
584: RETURN(l_khrv_rec);
579: ;
580: IF okl_k_headers_v_pk_csr%NOTFOUND THEN
581: x_return_status := OKL_API.G_RET_STS_ERROR;
582: END IF;
583: CLOSE okl_k_headers_v_pk_csr;
584: RETURN(l_khrv_rec);
585: EXCEPTION
586: WHEN OTHERS THEN
587: -- store SQL error message on message stack for caller
593: 'SQLerrm',
594: SQLERRM);
595: -- notify caller of an UNEXPECTED error
596: -- if the cursor is open
597: IF okl_k_headers_v_pk_csr%ISOPEN THEN
598: CLOSE okl_k_headers_v_pk_csr;
599: END IF;
600: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
601: END get_khrv_rec;
594: SQLERRM);
595: -- notify caller of an UNEXPECTED error
596: -- if the cursor is open
597: IF okl_k_headers_v_pk_csr%ISOPEN THEN
598: CLOSE okl_k_headers_v_pk_csr;
599: END IF;
600: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
601: END get_khrv_rec;
602: