647: FROM Oks_Bcl_Pr
648: WHERE oks_bcl_pr.id = p_id;
649: l_oks_bcl_pr_pk oks_bcl_pr_pk_csr%ROWTYPE;
650:
651: CURSOR oks_bsl_pr_pk_csr (p_id IN NUMBER) IS
652: SELECT 'x'
653: FROM Oks_Bsl_Pr
654: WHERE oks_bsl_pr.id = p_id;
655: l_oks_bsl_pr_pk oks_bsl_pr_pk_csr%ROWTYPE;
649: l_oks_bcl_pr_pk oks_bcl_pr_pk_csr%ROWTYPE;
650:
651: CURSOR oks_bsl_pr_pk_csr (p_id IN NUMBER) IS
652: SELECT 'x'
653: FROM Oks_Bsl_Pr
654: WHERE oks_bsl_pr.id = p_id;
655: l_oks_bsl_pr_pk oks_bsl_pr_pk_csr%ROWTYPE;
656:
657: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
650:
651: CURSOR oks_bsl_pr_pk_csr (p_id IN NUMBER) IS
652: SELECT 'x'
653: FROM Oks_Bsl_Pr
654: WHERE oks_bsl_pr.id = p_id;
655: l_oks_bsl_pr_pk oks_bsl_pr_pk_csr%ROWTYPE;
656:
657: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
658: l_row_notfound BOOLEAN := TRUE;
651: CURSOR oks_bsl_pr_pk_csr (p_id IN NUMBER) IS
652: SELECT 'x'
653: FROM Oks_Bsl_Pr
654: WHERE oks_bsl_pr.id = p_id;
655: l_oks_bsl_pr_pk oks_bsl_pr_pk_csr%ROWTYPE;
656:
657: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
658: l_row_notfound BOOLEAN := TRUE;
659: BEGIN
686: IF ((p_btl_pr_rec.BSL_ID IS NOT NULL)
687: AND
688: (p_btl_pr_rec.BSL_ID <> p_db_btl_pr_rec.BSL_ID))
689: THEN
690: OPEN oks_bsl_pr_pk_csr (p_btl_pr_rec.BSL_ID);
691: FETCH oks_bsl_pr_pk_csr INTO l_oks_bsl_pr_pk;
692: l_row_notfound := oks_bsl_pr_pk_csr%NOTFOUND;
693: CLOSE oks_bsl_pr_pk_csr;
694: IF (l_row_notfound) THEN
687: AND
688: (p_btl_pr_rec.BSL_ID <> p_db_btl_pr_rec.BSL_ID))
689: THEN
690: OPEN oks_bsl_pr_pk_csr (p_btl_pr_rec.BSL_ID);
691: FETCH oks_bsl_pr_pk_csr INTO l_oks_bsl_pr_pk;
692: l_row_notfound := oks_bsl_pr_pk_csr%NOTFOUND;
693: CLOSE oks_bsl_pr_pk_csr;
694: IF (l_row_notfound) THEN
695: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'BSL_ID');
688: (p_btl_pr_rec.BSL_ID <> p_db_btl_pr_rec.BSL_ID))
689: THEN
690: OPEN oks_bsl_pr_pk_csr (p_btl_pr_rec.BSL_ID);
691: FETCH oks_bsl_pr_pk_csr INTO l_oks_bsl_pr_pk;
692: l_row_notfound := oks_bsl_pr_pk_csr%NOTFOUND;
693: CLOSE oks_bsl_pr_pk_csr;
694: IF (l_row_notfound) THEN
695: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'BSL_ID');
696: RAISE item_not_found_error;
689: THEN
690: OPEN oks_bsl_pr_pk_csr (p_btl_pr_rec.BSL_ID);
691: FETCH oks_bsl_pr_pk_csr INTO l_oks_bsl_pr_pk;
692: l_row_notfound := oks_bsl_pr_pk_csr%NOTFOUND;
693: CLOSE oks_bsl_pr_pk_csr;
694: IF (l_row_notfound) THEN
695: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'BSL_ID');
696: RAISE item_not_found_error;
697: END IF;