27: BEGIN
28:
29: DELETE FROM OKL_FE_RESI_CAT_ALL_TL t
30: WHERE NOT EXISTS(SELECT NULL
31: FROM OKL_FE_RESI_CAT_ALL_B b
32: WHERE b.RESI_CATEGORY_SET_ID = t.RESI_CATEGORY_SET_ID);
33:
34: UPDATE OKL_FE_RESI_CAT_ALL_TL t
35: SET(RESI_CAT_DESC) = (SELECT
79:
80: END add_language;
81:
82: --------------------------------------------------------------------------------
83: -- Procedure get_rec for OKL_FE_RESI_CAT_ALL_B
84: --------------------------------------------------------------------------------
85:
86: FUNCTION get_rec(
87: p_rcsb_rec IN okl_rcsb_rec,
100: CREATION_DATE,
101: LAST_UPDATED_BY,
102: LAST_UPDATE_DATE,
103: LAST_UPDATE_LOGIN
104: FROM OKL_FE_RESI_CAT_ALL_B WHERE OKL_FE_RESI_CAT_ALL_B.resi_category_set_id=p_id;
105: l_rcsb_pk rcsb_pk_csr%ROWTYPE;
106: l_rcsb_rec okl_rcsb_rec;
107: BEGIN
108: x_no_data_found:= TRUE;
813: RAISE OKL_API.G_EXCEPTION_ERROR;
814: END IF;
815:
816:
817: INSERT INTO OKL_FE_RESI_CAT_ALL_B(
818: RESI_CATEGORY_SET_ID,
819: RESI_CAT_NAME,
820: ORIG_RESI_CAT_SET_ID,
821: OBJECT_VERSION_NUMBER,
1269: E_Resource_Busy EXCEPTION;
1270: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1271: CURSOR lock_csr (p_rcsb_rec IN okl_rcsb_rec) IS
1272: SELECT OBJECT_VERSION_NUMBER
1273: FROM OKL_FE_RESI_CAT_ALL_B
1274: WHERE RESI_CATEGORY_SET_ID = p_rcsb_rec.RESI_CATEGORY_SET_ID
1275: AND OBJECT_VERSION_NUMBER = p_rcsb_rec.object_version_number
1276: FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
1277:
1276: FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
1277:
1278: CURSOR lchk_csr (p_rcsb_rec IN okl_rcsb_rec) IS
1279: SELECT OBJECT_VERSION_NUMBER
1280: FROM OKL_FE_RESI_CAT_ALL_B
1281: WHERE RESI_CATEGORY_SET_ID = p_rcsb_rec.RESI_CATEGORY_SET_ID;
1282: l_api_version CONSTANT NUMBER := 1;
1283: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
1284: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1281: WHERE RESI_CATEGORY_SET_ID = p_rcsb_rec.RESI_CATEGORY_SET_ID;
1282: l_api_version CONSTANT NUMBER := 1;
1283: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
1284: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1285: l_object_version_number OKL_FE_RESI_CAT_ALL_B.OBJECT_VERSION_NUMBER%TYPE;
1286: lc_object_version_number OKL_FE_RESI_CAT_ALL_B.OBJECT_VERSION_NUMBER%TYPE;
1287: l_row_notfound BOOLEAN := FALSE;
1288: lc_row_notfound BOOLEAN := FALSE;
1289: BEGIN
1282: l_api_version CONSTANT NUMBER := 1;
1283: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
1284: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1285: l_object_version_number OKL_FE_RESI_CAT_ALL_B.OBJECT_VERSION_NUMBER%TYPE;
1286: lc_object_version_number OKL_FE_RESI_CAT_ALL_B.OBJECT_VERSION_NUMBER%TYPE;
1287: l_row_notfound BOOLEAN := FALSE;
1288: lc_row_notfound BOOLEAN := FALSE;
1289: BEGIN
1290: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
1711: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1712: RAISE OKL_API.G_EXCEPTION_ERROR;
1713: END IF;
1714:
1715: UPDATE OKL_FE_RESI_CAT_ALL_B
1716: SET
1717: RESI_CATEGORY_SET_ID= l_def_rcsb_rec.RESI_CATEGORY_SET_ID,
1718: RESI_CAT_NAME =l_def_rcsb_rec.RESI_CAT_NAME,
1719: ORIG_RESI_CAT_SET_ID=l_def_rcsb_rec.ORIG_RESI_CAT_SET_ID,
2233: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2234: RAISE OKL_API.G_EXCEPTION_ERROR;
2235: END IF;
2236:
2237: DELETE FROM OKL_FE_RESI_CAT_ALL_B
2238: WHERE RESI_CATEGORY_SET_ID=l_rcsb_rec.resi_category_set_id;
2239:
2240: EXCEPTION
2241: WHEN G_EXCEPTION_HALT_VALIDATION then