640: p_bsl_pr_rec IN bsl_pr_rec_type,
641: p_db_bsl_pr_rec IN bsl_pr_rec_type
642: ) RETURN VARCHAR2 IS
643: item_not_found_error EXCEPTION;
644: CURSOR oks_bcl_pr_pk_csr (p_id IN NUMBER) IS
645: SELECT 'x'
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;
642: ) RETURN VARCHAR2 IS
643: item_not_found_error EXCEPTION;
644: CURSOR oks_bcl_pr_pk_csr (p_id IN NUMBER) IS
645: SELECT 'x'
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
643: item_not_found_error EXCEPTION;
644: CURSOR oks_bcl_pr_pk_csr (p_id IN NUMBER) IS
645: SELECT 'x'
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'
644: CURSOR oks_bcl_pr_pk_csr (p_id IN NUMBER) IS
645: SELECT 'x'
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
672: IF ((p_bsl_pr_rec.BCL_ID IS NOT NULL)
673: AND
674: (p_bsl_pr_rec.BCL_ID <> p_db_bsl_pr_rec.BCL_ID))
675: THEN
676: OPEN oks_bcl_pr_pk_csr (p_bsl_pr_rec.BCL_ID);
677: FETCH oks_bcl_pr_pk_csr INTO l_oks_bcl_pr_pk;
678: l_row_notfound := oks_bcl_pr_pk_csr%NOTFOUND;
679: CLOSE oks_bcl_pr_pk_csr;
680: IF (l_row_notfound) THEN
673: AND
674: (p_bsl_pr_rec.BCL_ID <> p_db_bsl_pr_rec.BCL_ID))
675: THEN
676: OPEN oks_bcl_pr_pk_csr (p_bsl_pr_rec.BCL_ID);
677: FETCH oks_bcl_pr_pk_csr INTO l_oks_bcl_pr_pk;
678: l_row_notfound := oks_bcl_pr_pk_csr%NOTFOUND;
679: CLOSE oks_bcl_pr_pk_csr;
680: IF (l_row_notfound) THEN
681: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'BCL_ID');
674: (p_bsl_pr_rec.BCL_ID <> p_db_bsl_pr_rec.BCL_ID))
675: THEN
676: OPEN oks_bcl_pr_pk_csr (p_bsl_pr_rec.BCL_ID);
677: FETCH oks_bcl_pr_pk_csr INTO l_oks_bcl_pr_pk;
678: l_row_notfound := oks_bcl_pr_pk_csr%NOTFOUND;
679: CLOSE oks_bcl_pr_pk_csr;
680: IF (l_row_notfound) THEN
681: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'BCL_ID');
682: RAISE item_not_found_error;
675: THEN
676: OPEN oks_bcl_pr_pk_csr (p_bsl_pr_rec.BCL_ID);
677: FETCH oks_bcl_pr_pk_csr INTO l_oks_bcl_pr_pk;
678: l_row_notfound := oks_bcl_pr_pk_csr%NOTFOUND;
679: CLOSE oks_bcl_pr_pk_csr;
680: IF (l_row_notfound) THEN
681: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'BCL_ID');
682: RAISE item_not_found_error;
683: END IF;