351:
352: END get_chrv_rec;
353:
354: ---------------------------------------------------------------------------
355: -- FUNCTION get_khrv_rec for: OKL_K_HEADERS_V
356: ---------------------------------------------------------------------------
357: FUNCTION get_khrv_rec (
358: p_khr_id IN OKL_K_HEADERS_V.ID%TYPE,
359: x_return_status OUT NOCOPY VARCHAR2
354: ---------------------------------------------------------------------------
355: -- FUNCTION get_khrv_rec for: OKL_K_HEADERS_V
356: ---------------------------------------------------------------------------
357: FUNCTION get_khrv_rec (
358: p_khr_id IN OKL_K_HEADERS_V.ID%TYPE,
359: x_return_status OUT NOCOPY VARCHAR2
360: ) RETURN khrv_rec_type IS
361: CURSOR okl_k_headers_v_pk_csr (p_id IN OKL_K_HEADERS_V.ID%TYPE) IS
362: SELECT
357: FUNCTION get_khrv_rec (
358: p_khr_id IN OKL_K_HEADERS_V.ID%TYPE,
359: x_return_status OUT NOCOPY VARCHAR2
360: ) RETURN khrv_rec_type IS
361: CURSOR okl_k_headers_v_pk_csr (p_id IN OKL_K_HEADERS_V.ID%TYPE) IS
362: SELECT
363: ID,
364: OBJECT_VERSION_NUMBER,
365: ISG_ID,
416: EXPECTED_DELIVERY_DATE,
417: ACCEPTED_DATE,
418: PREFUNDING_ELIGIBLE_YN,
419: REVOLVING_CREDIT_YN
420: FROM OKL_K_HEADERS_V
421: WHERE OKL_K_HEADERS_V.id = p_id;
422: l_okl_k_headers_v_pk okl_k_headers_v_pk_csr%ROWTYPE;
423: l_khrv_rec khrv_rec_type;
424: BEGIN
417: ACCEPTED_DATE,
418: PREFUNDING_ELIGIBLE_YN,
419: REVOLVING_CREDIT_YN
420: FROM OKL_K_HEADERS_V
421: WHERE OKL_K_HEADERS_V.id = p_id;
422: l_okl_k_headers_v_pk okl_k_headers_v_pk_csr%ROWTYPE;
423: l_khrv_rec khrv_rec_type;
424: BEGIN
425:
418: PREFUNDING_ELIGIBLE_YN,
419: REVOLVING_CREDIT_YN
420: FROM OKL_K_HEADERS_V
421: WHERE OKL_K_HEADERS_V.id = p_id;
422: l_okl_k_headers_v_pk okl_k_headers_v_pk_csr%ROWTYPE;
423: l_khrv_rec khrv_rec_type;
424: BEGIN
425:
426: x_return_status := OKL_API.G_RET_STS_SUCCESS;
424: BEGIN
425:
426: x_return_status := OKL_API.G_RET_STS_SUCCESS;
427: -- Get current database values
428: OPEN okl_k_headers_v_pk_csr (p_khr_id);
429: FETCH okl_k_headers_v_pk_csr INTO
430: l_khrv_rec.ID,
431: l_khrv_rec.OBJECT_VERSION_NUMBER,
432: l_khrv_rec.ISG_ID,
425:
426: x_return_status := OKL_API.G_RET_STS_SUCCESS;
427: -- Get current database values
428: OPEN okl_k_headers_v_pk_csr (p_khr_id);
429: FETCH okl_k_headers_v_pk_csr INTO
430: l_khrv_rec.ID,
431: l_khrv_rec.OBJECT_VERSION_NUMBER,
432: l_khrv_rec.ISG_ID,
433: l_khrv_rec.KHR_ID,
484: l_khrv_rec.ACCEPTED_DATE,
485: l_khrv_rec.PREFUNDING_ELIGIBLE_YN,
486: l_khrv_rec.REVOLVING_CREDIT_YN
487: ;
488: IF okl_k_headers_v_pk_csr%NOTFOUND THEN
489: x_return_status := OKL_API.G_RET_STS_ERROR;
490: END IF;
491: CLOSE okl_k_headers_v_pk_csr;
492: RETURN(l_khrv_rec);
487: ;
488: IF okl_k_headers_v_pk_csr%NOTFOUND THEN
489: x_return_status := OKL_API.G_RET_STS_ERROR;
490: END IF;
491: CLOSE okl_k_headers_v_pk_csr;
492: RETURN(l_khrv_rec);
493: EXCEPTION
494: WHEN OTHERS THEN
495: -- store SQL error message on message stack for caller
501: 'SQLerrm',
502: SQLERRM);
503: -- notify caller of an UNEXPECTED error
504: -- if the cursor is open
505: IF okl_k_headers_v_pk_csr%ISOPEN THEN
506: CLOSE okl_k_headers_v_pk_csr;
507: END IF;
508: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
509: END get_khrv_rec;
502: SQLERRM);
503: -- notify caller of an UNEXPECTED error
504: -- if the cursor is open
505: IF okl_k_headers_v_pk_csr%ISOPEN THEN
506: CLOSE okl_k_headers_v_pk_csr;
507: END IF;
508: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
509: END get_khrv_rec;
510: