646: FROM Oks_Bcl_Pr
647: WHERE oks_bcl_pr.id = p_id;
648: l_oks_bcl_pr_pk oks_bcl_pr_pk_csr%ROWTYPE;
649:
650: CURSOR okc_k_lines_b_pk_csr (p_id IN NUMBER) IS
651: SELECT 'x'
652: FROM Okc_K_Lines_B
653: WHERE okc_k_lines_b.id = p_id;
654: l_okc_k_lines_b_pk okc_k_lines_b_pk_csr%ROWTYPE;
648: l_oks_bcl_pr_pk oks_bcl_pr_pk_csr%ROWTYPE;
649:
650: CURSOR okc_k_lines_b_pk_csr (p_id IN NUMBER) IS
651: SELECT 'x'
652: FROM Okc_K_Lines_B
653: WHERE okc_k_lines_b.id = p_id;
654: l_okc_k_lines_b_pk okc_k_lines_b_pk_csr%ROWTYPE;
655:
656: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
649:
650: CURSOR okc_k_lines_b_pk_csr (p_id IN NUMBER) IS
651: SELECT 'x'
652: FROM Okc_K_Lines_B
653: WHERE okc_k_lines_b.id = p_id;
654: l_okc_k_lines_b_pk okc_k_lines_b_pk_csr%ROWTYPE;
655:
656: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
657: l_row_notfound BOOLEAN := TRUE;
650: CURSOR okc_k_lines_b_pk_csr (p_id IN NUMBER) IS
651: SELECT 'x'
652: FROM Okc_K_Lines_B
653: WHERE okc_k_lines_b.id = p_id;
654: l_okc_k_lines_b_pk okc_k_lines_b_pk_csr%ROWTYPE;
655:
656: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
657: l_row_notfound BOOLEAN := TRUE;
658: BEGIN
659: IF ((p_bsl_pr_rec.CLE_ID IS NOT NULL)
660: AND
661: (p_bsl_pr_rec.CLE_ID <> p_db_bsl_pr_rec.CLE_ID))
662: THEN
663: OPEN okc_k_lines_b_pk_csr (p_bsl_pr_rec.CLE_ID);
664: FETCH okc_k_lines_b_pk_csr INTO l_okc_k_lines_b_pk;
665: l_row_notfound := okc_k_lines_b_pk_csr%NOTFOUND;
666: CLOSE okc_k_lines_b_pk_csr;
667: IF (l_row_notfound) THEN
660: AND
661: (p_bsl_pr_rec.CLE_ID <> p_db_bsl_pr_rec.CLE_ID))
662: THEN
663: OPEN okc_k_lines_b_pk_csr (p_bsl_pr_rec.CLE_ID);
664: FETCH okc_k_lines_b_pk_csr INTO l_okc_k_lines_b_pk;
665: l_row_notfound := okc_k_lines_b_pk_csr%NOTFOUND;
666: CLOSE okc_k_lines_b_pk_csr;
667: IF (l_row_notfound) THEN
668: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CLE_ID');
661: (p_bsl_pr_rec.CLE_ID <> p_db_bsl_pr_rec.CLE_ID))
662: THEN
663: OPEN okc_k_lines_b_pk_csr (p_bsl_pr_rec.CLE_ID);
664: FETCH okc_k_lines_b_pk_csr INTO l_okc_k_lines_b_pk;
665: l_row_notfound := okc_k_lines_b_pk_csr%NOTFOUND;
666: CLOSE okc_k_lines_b_pk_csr;
667: IF (l_row_notfound) THEN
668: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CLE_ID');
669: RAISE item_not_found_error;
662: THEN
663: OPEN okc_k_lines_b_pk_csr (p_bsl_pr_rec.CLE_ID);
664: FETCH okc_k_lines_b_pk_csr INTO l_okc_k_lines_b_pk;
665: l_row_notfound := okc_k_lines_b_pk_csr%NOTFOUND;
666: CLOSE okc_k_lines_b_pk_csr;
667: IF (l_row_notfound) THEN
668: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CLE_ID');
669: RAISE item_not_found_error;
670: END IF;