794: p_bsd_pr_rec IN bsd_pr_rec_type,
795: p_db_bsd_pr_rec IN bsd_pr_rec_type
796: ) RETURN VARCHAR2 IS
797: item_not_found_error EXCEPTION;
798: CURSOR oks_bsl_pr_pk_csr (p_id IN NUMBER) IS
799: SELECT 'x'
800: FROM Oks_Bsl_Pr
801: WHERE oks_bsl_pr.id = p_id;
802: l_oks_bsl_pr_pk oks_bsl_pr_pk_csr%ROWTYPE;
796: ) RETURN VARCHAR2 IS
797: item_not_found_error EXCEPTION;
798: CURSOR oks_bsl_pr_pk_csr (p_id IN NUMBER) IS
799: SELECT 'x'
800: FROM Oks_Bsl_Pr
801: WHERE oks_bsl_pr.id = p_id;
802: l_oks_bsl_pr_pk oks_bsl_pr_pk_csr%ROWTYPE;
803:
804: CURSOR oks_bsd_pr_pk_csr (p_id IN NUMBER) IS
797: item_not_found_error EXCEPTION;
798: CURSOR oks_bsl_pr_pk_csr (p_id IN NUMBER) IS
799: SELECT 'x'
800: FROM Oks_Bsl_Pr
801: WHERE oks_bsl_pr.id = p_id;
802: l_oks_bsl_pr_pk oks_bsl_pr_pk_csr%ROWTYPE;
803:
804: CURSOR oks_bsd_pr_pk_csr (p_id IN NUMBER) IS
805: SELECT 'x'
798: CURSOR oks_bsl_pr_pk_csr (p_id IN NUMBER) IS
799: SELECT 'x'
800: FROM Oks_Bsl_Pr
801: WHERE oks_bsl_pr.id = p_id;
802: l_oks_bsl_pr_pk oks_bsl_pr_pk_csr%ROWTYPE;
803:
804: CURSOR oks_bsd_pr_pk_csr (p_id IN NUMBER) IS
805: SELECT 'x'
806: FROM Oks_Bsd_Pr
839: IF ((p_bsd_pr_rec.BSL_ID_AVERAGED IS NOT NULL)
840: AND
841: (p_bsd_pr_rec.BSL_ID_AVERAGED <> p_db_bsd_pr_rec.BSL_ID_AVERAGED))
842: THEN
843: OPEN oks_bsl_pr_pk_csr (p_bsd_pr_rec.BSL_ID_AVERAGED);
844: FETCH oks_bsl_pr_pk_csr INTO l_oks_bsl_pr_pk;
845: l_row_notfound := oks_bsl_pr_pk_csr%NOTFOUND;
846: CLOSE oks_bsl_pr_pk_csr;
847: IF (l_row_notfound) THEN
840: AND
841: (p_bsd_pr_rec.BSL_ID_AVERAGED <> p_db_bsd_pr_rec.BSL_ID_AVERAGED))
842: THEN
843: OPEN oks_bsl_pr_pk_csr (p_bsd_pr_rec.BSL_ID_AVERAGED);
844: FETCH oks_bsl_pr_pk_csr INTO l_oks_bsl_pr_pk;
845: l_row_notfound := oks_bsl_pr_pk_csr%NOTFOUND;
846: CLOSE oks_bsl_pr_pk_csr;
847: IF (l_row_notfound) THEN
848: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'BSL_ID_AVERAGED');
841: (p_bsd_pr_rec.BSL_ID_AVERAGED <> p_db_bsd_pr_rec.BSL_ID_AVERAGED))
842: THEN
843: OPEN oks_bsl_pr_pk_csr (p_bsd_pr_rec.BSL_ID_AVERAGED);
844: FETCH oks_bsl_pr_pk_csr INTO l_oks_bsl_pr_pk;
845: l_row_notfound := oks_bsl_pr_pk_csr%NOTFOUND;
846: CLOSE oks_bsl_pr_pk_csr;
847: IF (l_row_notfound) THEN
848: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'BSL_ID_AVERAGED');
849: RAISE item_not_found_error;
842: THEN
843: OPEN oks_bsl_pr_pk_csr (p_bsd_pr_rec.BSL_ID_AVERAGED);
844: FETCH oks_bsl_pr_pk_csr INTO l_oks_bsl_pr_pk;
845: l_row_notfound := oks_bsl_pr_pk_csr%NOTFOUND;
846: CLOSE oks_bsl_pr_pk_csr;
847: IF (l_row_notfound) THEN
848: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'BSL_ID_AVERAGED');
849: RAISE item_not_found_error;
850: END IF;
852: IF ((p_bsd_pr_rec.BSL_ID IS NOT NULL)
853: AND
854: (p_bsd_pr_rec.BSL_ID <> p_db_bsd_pr_rec.BSL_ID))
855: THEN
856: OPEN oks_bsl_pr_pk_csr (p_bsd_pr_rec.BSL_ID);
857: FETCH oks_bsl_pr_pk_csr INTO l_oks_bsl_pr_pk;
858: l_row_notfound := oks_bsl_pr_pk_csr%NOTFOUND;
859: CLOSE oks_bsl_pr_pk_csr;
860: IF (l_row_notfound) THEN
853: AND
854: (p_bsd_pr_rec.BSL_ID <> p_db_bsd_pr_rec.BSL_ID))
855: THEN
856: OPEN oks_bsl_pr_pk_csr (p_bsd_pr_rec.BSL_ID);
857: FETCH oks_bsl_pr_pk_csr INTO l_oks_bsl_pr_pk;
858: l_row_notfound := oks_bsl_pr_pk_csr%NOTFOUND;
859: CLOSE oks_bsl_pr_pk_csr;
860: IF (l_row_notfound) THEN
861: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'BSL_ID');
854: (p_bsd_pr_rec.BSL_ID <> p_db_bsd_pr_rec.BSL_ID))
855: THEN
856: OPEN oks_bsl_pr_pk_csr (p_bsd_pr_rec.BSL_ID);
857: FETCH oks_bsl_pr_pk_csr INTO l_oks_bsl_pr_pk;
858: l_row_notfound := oks_bsl_pr_pk_csr%NOTFOUND;
859: CLOSE oks_bsl_pr_pk_csr;
860: IF (l_row_notfound) THEN
861: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'BSL_ID');
862: RAISE item_not_found_error;
855: THEN
856: OPEN oks_bsl_pr_pk_csr (p_bsd_pr_rec.BSL_ID);
857: FETCH oks_bsl_pr_pk_csr INTO l_oks_bsl_pr_pk;
858: l_row_notfound := oks_bsl_pr_pk_csr%NOTFOUND;
859: CLOSE oks_bsl_pr_pk_csr;
860: IF (l_row_notfound) THEN
861: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'BSL_ID');
862: RAISE item_not_found_error;
863: END IF;