650: p_bcl_pr_rec IN bcl_pr_rec_type,
651: p_db_bcl_pr_rec IN bcl_pr_rec_type
652: ) RETURN VARCHAR2 IS
653: item_not_found_error EXCEPTION;
654: CURSOR okc_k_lines_b_pk_csr (p_id IN NUMBER) IS
655: SELECT 'x'
656: FROM Okc_K_Lines_B
657: WHERE okc_k_lines_b.id = p_id;
658: l_okc_k_lines_b_pk okc_k_lines_b_pk_csr%ROWTYPE;
652: ) RETURN VARCHAR2 IS
653: item_not_found_error EXCEPTION;
654: CURSOR okc_k_lines_b_pk_csr (p_id IN NUMBER) IS
655: SELECT 'x'
656: FROM Okc_K_Lines_B
657: WHERE okc_k_lines_b.id = p_id;
658: l_okc_k_lines_b_pk okc_k_lines_b_pk_csr%ROWTYPE;
659:
660: CURSOR oks_btn_pr_pk_csr (p_id IN NUMBER) IS
653: item_not_found_error EXCEPTION;
654: CURSOR okc_k_lines_b_pk_csr (p_id IN NUMBER) IS
655: SELECT 'x'
656: FROM Okc_K_Lines_B
657: WHERE okc_k_lines_b.id = p_id;
658: l_okc_k_lines_b_pk okc_k_lines_b_pk_csr%ROWTYPE;
659:
660: CURSOR oks_btn_pr_pk_csr (p_id IN NUMBER) IS
661: SELECT 'x'
654: CURSOR okc_k_lines_b_pk_csr (p_id IN NUMBER) IS
655: SELECT 'x'
656: FROM Okc_K_Lines_B
657: WHERE okc_k_lines_b.id = p_id;
658: l_okc_k_lines_b_pk okc_k_lines_b_pk_csr%ROWTYPE;
659:
660: CURSOR oks_btn_pr_pk_csr (p_id IN NUMBER) IS
661: SELECT 'x'
662: FROM Oks_Btn_Pr
682: IF ((p_bcl_pr_rec.CLE_ID IS NOT NULL)
683: AND
684: (p_bcl_pr_rec.CLE_ID <> p_db_bcl_pr_rec.CLE_ID))
685: THEN
686: OPEN okc_k_lines_b_pk_csr (p_bcl_pr_rec.CLE_ID);
687: FETCH okc_k_lines_b_pk_csr INTO l_okc_k_lines_b_pk;
688: l_row_notfound := okc_k_lines_b_pk_csr%NOTFOUND;
689: CLOSE okc_k_lines_b_pk_csr;
690: IF (l_row_notfound) THEN
683: AND
684: (p_bcl_pr_rec.CLE_ID <> p_db_bcl_pr_rec.CLE_ID))
685: THEN
686: OPEN okc_k_lines_b_pk_csr (p_bcl_pr_rec.CLE_ID);
687: FETCH okc_k_lines_b_pk_csr INTO l_okc_k_lines_b_pk;
688: l_row_notfound := okc_k_lines_b_pk_csr%NOTFOUND;
689: CLOSE okc_k_lines_b_pk_csr;
690: IF (l_row_notfound) THEN
691: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CLE_ID');
684: (p_bcl_pr_rec.CLE_ID <> p_db_bcl_pr_rec.CLE_ID))
685: THEN
686: OPEN okc_k_lines_b_pk_csr (p_bcl_pr_rec.CLE_ID);
687: FETCH okc_k_lines_b_pk_csr INTO l_okc_k_lines_b_pk;
688: l_row_notfound := okc_k_lines_b_pk_csr%NOTFOUND;
689: CLOSE okc_k_lines_b_pk_csr;
690: IF (l_row_notfound) THEN
691: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CLE_ID');
692: RAISE item_not_found_error;
685: THEN
686: OPEN okc_k_lines_b_pk_csr (p_bcl_pr_rec.CLE_ID);
687: FETCH okc_k_lines_b_pk_csr INTO l_okc_k_lines_b_pk;
688: l_row_notfound := okc_k_lines_b_pk_csr%NOTFOUND;
689: CLOSE okc_k_lines_b_pk_csr;
690: IF (l_row_notfound) THEN
691: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CLE_ID');
692: RAISE item_not_found_error;
693: END IF;