418: -------------------------------------
419: PROCEDURE validate_try_id(
420: x_return_status OUT NOCOPY VARCHAR2,
421: p_tbov_rec IN tbov_rec_type) IS
422: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
423: l_dummy_var VARCHAR2(1) := '?' ;
424:
425: CURSOR okl_tbov_try_id_fk_csr (p_id IN NUMBER) IS
426: SELECT 'x'
437: FETCH okl_tbov_try_id_fk_csr into l_dummy_var ;
438: CLOSE okl_tbov_try_id_fk_csr ;
439: -- still set to default means data was not found
440: IF ( l_dummy_var = '?' ) THEN
441: OKC_API.set_message(g_app_name,
442: g_no_parent_record,
443: g_col_name_token,
444: 'try_id',
445: g_child_table_token ,
445: g_child_table_token ,
446: 'OKL_TAX_BASIS_OVERRIDE',
447: g_parent_table_token ,
448: 'OKL_TRX_TYPES_B');
449: l_return_status := OKC_API.G_RET_STS_ERROR;
450:
451: END IF;
452: END IF;
453: x_return_status := l_return_status;
467: -------------------------------------
468: PROCEDURE validate_org_id(
469: x_return_status OUT NOCOPY VARCHAR2,
470: p_tbov_rec IN tbov_rec_type) IS
471: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
472:
473:
474: BEGIN
475:
496: -------------------------------------
497: PROCEDURE validate_fma_id(
498: x_return_status OUT NOCOPY VARCHAR2,
499: p_tbov_rec IN tbov_rec_type) IS
500: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
501: l_dummy_var VARCHAR2(1) := '?' ;
502:
503: CURSOR okl_tbov_fma_id_fk_csr (p_id IN NUMBER) IS
504: SELECT 'x'
515: FETCH okl_tbov_fma_id_fk_csr into l_dummy_var ;
516: CLOSE okl_tbov_fma_id_fk_csr ;
517: -- still set to default means data was not found
518: IF ( l_dummy_var = '?' ) THEN
519: OKC_API.set_message(g_app_name,
520: g_no_parent_record,
521: g_col_name_token,
522: 'fma_id',
523: g_child_table_token ,
523: g_child_table_token ,
524: 'OKL_TAX_BASIS_OVERRIDE',
525: g_parent_table_token ,
526: 'OKL_FORMULAE_B');
527: l_return_status := OKC_API.G_RET_STS_ERROR;
528:
529: END IF;
530: END IF;
531: x_return_status := l_return_status;
558: -- ***
559: -- try_id
560: -- ***
561: validate_try_id(l_return_status, p_tbov_rec);
562: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
563: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
564: x_return_status := l_return_status;
565: RAISE G_EXCEPTION_HALT_VALIDATION;
566: ELSE
559: -- try_id
560: -- ***
561: validate_try_id(l_return_status, p_tbov_rec);
562: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
563: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
564: x_return_status := l_return_status;
565: RAISE G_EXCEPTION_HALT_VALIDATION;
566: ELSE
567: x_return_status := l_return_status;
571: -- ***
572: -- org_id
573: -- ***
574: validate_org_id(l_return_status, p_tbov_rec);
575: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
576: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
577: x_return_status := l_return_status;
578: RAISE G_EXCEPTION_HALT_VALIDATION;
579: ELSE
572: -- org_id
573: -- ***
574: validate_org_id(l_return_status, p_tbov_rec);
575: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
576: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
577: x_return_status := l_return_status;
578: RAISE G_EXCEPTION_HALT_VALIDATION;
579: ELSE
580: x_return_status := l_return_status;
584: -- ***
585: -- fma_id
586: -- ***
587: validate_fma_id(l_return_status, p_tbov_rec);
588: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
589: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
590: x_return_status := l_return_status;
591: RAISE G_EXCEPTION_HALT_VALIDATION;
592: ELSE
585: -- fma_id
586: -- ***
587: validate_fma_id(l_return_status, p_tbov_rec);
588: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
589: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
590: x_return_status := l_return_status;
591: RAISE G_EXCEPTION_HALT_VALIDATION;
592: ELSE
593: x_return_status := l_return_status;