482: CURSOR okc_scsv_pk_csr (p_code IN VARCHAR2) IS
483: SELECT 'x'
484: FROM Okc_Subclasses_V
485: WHERE okc_subclasses_v.code = p_code;
486: CURSOR fnd_lookups_pk_csr (p_lookup_code IN VARCHAR2) IS
487: SELECT 'x'
488: FROM Fnd_Lookups
489: WHERE fnd_lookups.lookup_code = p_lookup_code
490: AND fnd_lookups.lookup_type = 'OKC_ROLE';
484: FROM Okc_Subclasses_V
485: WHERE okc_subclasses_v.code = p_code;
486: CURSOR fnd_lookups_pk_csr (p_lookup_code IN VARCHAR2) IS
487: SELECT 'x'
488: FROM Fnd_Lookups
489: WHERE fnd_lookups.lookup_code = p_lookup_code
490: AND fnd_lookups.lookup_type = 'OKC_ROLE';
491: l_dummy VARCHAR2(1);
492: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
485: WHERE okc_subclasses_v.code = p_code;
486: CURSOR fnd_lookups_pk_csr (p_lookup_code IN VARCHAR2) IS
487: SELECT 'x'
488: FROM Fnd_Lookups
489: WHERE fnd_lookups.lookup_code = p_lookup_code
490: AND fnd_lookups.lookup_type = 'OKC_ROLE';
491: l_dummy VARCHAR2(1);
492: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
493: l_row_notfound BOOLEAN := TRUE;
486: CURSOR fnd_lookups_pk_csr (p_lookup_code IN VARCHAR2) IS
487: SELECT 'x'
488: FROM Fnd_Lookups
489: WHERE fnd_lookups.lookup_code = p_lookup_code
490: AND fnd_lookups.lookup_type = 'OKC_ROLE';
491: l_dummy VARCHAR2(1);
492: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
493: l_row_notfound BOOLEAN := TRUE;
494: BEGIN
504: END IF;
505: END IF;
506: IF (p_srev_rec.RLE_CODE IS NOT NULL)
507: THEN
508: OPEN fnd_lookups_pk_csr(p_srev_rec.RLE_CODE);
509: FETCH fnd_lookups_pk_csr INTO l_dummy;
510: l_row_notfound := fnd_lookups_pk_csr%NOTFOUND;
511: CLOSE fnd_lookups_pk_csr;
512: IF (l_row_notfound) THEN
505: END IF;
506: IF (p_srev_rec.RLE_CODE IS NOT NULL)
507: THEN
508: OPEN fnd_lookups_pk_csr(p_srev_rec.RLE_CODE);
509: FETCH fnd_lookups_pk_csr INTO l_dummy;
510: l_row_notfound := fnd_lookups_pk_csr%NOTFOUND;
511: CLOSE fnd_lookups_pk_csr;
512: IF (l_row_notfound) THEN
513: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'RLE_CODE');
506: IF (p_srev_rec.RLE_CODE IS NOT NULL)
507: THEN
508: OPEN fnd_lookups_pk_csr(p_srev_rec.RLE_CODE);
509: FETCH fnd_lookups_pk_csr INTO l_dummy;
510: l_row_notfound := fnd_lookups_pk_csr%NOTFOUND;
511: CLOSE fnd_lookups_pk_csr;
512: IF (l_row_notfound) THEN
513: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'RLE_CODE');
514: RAISE item_not_found_error;
507: THEN
508: OPEN fnd_lookups_pk_csr(p_srev_rec.RLE_CODE);
509: FETCH fnd_lookups_pk_csr INTO l_dummy;
510: l_row_notfound := fnd_lookups_pk_csr%NOTFOUND;
511: CLOSE fnd_lookups_pk_csr;
512: IF (l_row_notfound) THEN
513: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'RLE_CODE');
514: RAISE item_not_found_error;
515: END IF;