283:
284: END get_chrv_rec;
285:
286: ---------------------------------------------------------------------------
287: -- FUNCTION get_khrv_rec for: OKL_K_HEADERS_V
288: ---------------------------------------------------------------------------
289: FUNCTION get_khrv_rec (
290: p_khr_id IN OKL_K_HEADERS_V.ID%TYPE,
291: x_return_status OUT NOCOPY VARCHAR2
286: ---------------------------------------------------------------------------
287: -- FUNCTION get_khrv_rec for: OKL_K_HEADERS_V
288: ---------------------------------------------------------------------------
289: FUNCTION get_khrv_rec (
290: p_khr_id IN OKL_K_HEADERS_V.ID%TYPE,
291: x_return_status OUT NOCOPY VARCHAR2
292: ) RETURN khrv_rec_type IS
293: CURSOR okl_k_headers_v_pk_csr (p_id IN OKL_K_HEADERS_V.ID%TYPE) IS
294: SELECT
289: FUNCTION get_khrv_rec (
290: p_khr_id IN OKL_K_HEADERS_V.ID%TYPE,
291: x_return_status OUT NOCOPY VARCHAR2
292: ) RETURN khrv_rec_type IS
293: CURSOR okl_k_headers_v_pk_csr (p_id IN OKL_K_HEADERS_V.ID%TYPE) IS
294: SELECT
295: ID,
296: OBJECT_VERSION_NUMBER,
297: ISG_ID,
348: EXPECTED_DELIVERY_DATE,
349: ACCEPTED_DATE,
350: PREFUNDING_ELIGIBLE_YN,
351: REVOLVING_CREDIT_YN
352: FROM OKL_K_HEADERS_V
353: WHERE OKL_K_HEADERS_V.id = p_id;
354: l_okl_k_headers_v_pk okl_k_headers_v_pk_csr%ROWTYPE;
355: l_khrv_rec khrv_rec_type;
356: BEGIN
349: ACCEPTED_DATE,
350: PREFUNDING_ELIGIBLE_YN,
351: REVOLVING_CREDIT_YN
352: FROM OKL_K_HEADERS_V
353: WHERE OKL_K_HEADERS_V.id = p_id;
354: l_okl_k_headers_v_pk okl_k_headers_v_pk_csr%ROWTYPE;
355: l_khrv_rec khrv_rec_type;
356: BEGIN
357:
350: PREFUNDING_ELIGIBLE_YN,
351: REVOLVING_CREDIT_YN
352: FROM OKL_K_HEADERS_V
353: WHERE OKL_K_HEADERS_V.id = p_id;
354: l_okl_k_headers_v_pk okl_k_headers_v_pk_csr%ROWTYPE;
355: l_khrv_rec khrv_rec_type;
356: BEGIN
357:
358: x_return_status := OKL_API.G_RET_STS_SUCCESS;
356: BEGIN
357:
358: x_return_status := OKL_API.G_RET_STS_SUCCESS;
359: -- Get current database values
360: OPEN okl_k_headers_v_pk_csr (p_khr_id);
361: FETCH okl_k_headers_v_pk_csr INTO
362: l_khrv_rec.ID,
363: l_khrv_rec.OBJECT_VERSION_NUMBER,
364: l_khrv_rec.ISG_ID,
357:
358: x_return_status := OKL_API.G_RET_STS_SUCCESS;
359: -- Get current database values
360: OPEN okl_k_headers_v_pk_csr (p_khr_id);
361: FETCH okl_k_headers_v_pk_csr INTO
362: l_khrv_rec.ID,
363: l_khrv_rec.OBJECT_VERSION_NUMBER,
364: l_khrv_rec.ISG_ID,
365: l_khrv_rec.KHR_ID,
416: l_khrv_rec.ACCEPTED_DATE,
417: l_khrv_rec.PREFUNDING_ELIGIBLE_YN,
418: l_khrv_rec.REVOLVING_CREDIT_YN
419: ;
420: IF okl_k_headers_v_pk_csr%NOTFOUND THEN
421: x_return_status := OKL_API.G_RET_STS_ERROR;
422: END IF;
423: CLOSE okl_k_headers_v_pk_csr;
424: RETURN(l_khrv_rec);
419: ;
420: IF okl_k_headers_v_pk_csr%NOTFOUND THEN
421: x_return_status := OKL_API.G_RET_STS_ERROR;
422: END IF;
423: CLOSE okl_k_headers_v_pk_csr;
424: RETURN(l_khrv_rec);
425: EXCEPTION
426: WHEN OTHERS THEN
427: -- store SQL error message on message stack for caller
433: 'SQLerrm',
434: SQLERRM);
435: -- notify caller of an UNEXPECTED error
436: -- if the cursor is open
437: IF okl_k_headers_v_pk_csr%ISOPEN THEN
438: CLOSE okl_k_headers_v_pk_csr;
439: END IF;
440: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
441: END get_khrv_rec;
434: SQLERRM);
435: -- notify caller of an UNEXPECTED error
436: -- if the cursor is open
437: IF okl_k_headers_v_pk_csr%ISOPEN THEN
438: CLOSE okl_k_headers_v_pk_csr;
439: END IF;
440: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
441: END get_khrv_rec;
442: