258: l_unq_tbl OKC_UTIL.unq_tbl_type;
259: l_idxv_status VARCHAR2(1);
260: l_row_found Boolean := False;
261:
262: CURSOR c_idx(v_name OKL_INDICES_V.NAME%TYPE,
263: v_id OKL_INDICES_V.ID%TYPE) is
264: SELECT '1'
265: FROM okl_indices_v
266: WHERE name = v_name
259: l_idxv_status VARCHAR2(1);
260: l_row_found Boolean := False;
261:
262: CURSOR c_idx(v_name OKL_INDICES_V.NAME%TYPE,
263: v_id OKL_INDICES_V.ID%TYPE) is
264: SELECT '1'
265: FROM okl_indices_v
266: WHERE name = v_name
267: AND ID <> v_id;
261:
262: CURSOR c_idx(v_name OKL_INDICES_V.NAME%TYPE,
263: v_id OKL_INDICES_V.ID%TYPE) is
264: SELECT '1'
265: FROM okl_indices_v
266: WHERE name = v_name
267: AND ID <> v_id;
268:
269: BEGIN
333: null;
334: END api_copy;
335:
336: ---------------------------------------------------------------------------
337: -- FUNCTION get_rec for: OKL_INDICES
338: ---------------------------------------------------------------------------
339: FUNCTION get_rec (
340: p_idx_rec IN idx_rec_type,
341: x_no_data_found OUT NOCOPY BOOLEAN
339: FUNCTION get_rec (
340: p_idx_rec IN idx_rec_type,
341: x_no_data_found OUT NOCOPY BOOLEAN
342: ) RETURN idx_rec_type IS
343: CURSOR okl_indices_pk_csr (p_id IN NUMBER) IS
344: SELECT
345: ID,
346: NAME,
347: IDX_TYPE,
372: CREATION_DATE,
373: LAST_UPDATED_BY,
374: LAST_UPDATE_DATE,
375: LAST_UPDATE_LOGIN
376: FROM Okl_Indices
377: WHERE okl_indices.id = p_id;
378: l_okl_indices_pk okl_indices_pk_csr%ROWTYPE;
379: l_idx_rec idx_rec_type;
380: BEGIN
373: LAST_UPDATED_BY,
374: LAST_UPDATE_DATE,
375: LAST_UPDATE_LOGIN
376: FROM Okl_Indices
377: WHERE okl_indices.id = p_id;
378: l_okl_indices_pk okl_indices_pk_csr%ROWTYPE;
379: l_idx_rec idx_rec_type;
380: BEGIN
381: x_no_data_found := TRUE;
374: LAST_UPDATE_DATE,
375: LAST_UPDATE_LOGIN
376: FROM Okl_Indices
377: WHERE okl_indices.id = p_id;
378: l_okl_indices_pk okl_indices_pk_csr%ROWTYPE;
379: l_idx_rec idx_rec_type;
380: BEGIN
381: x_no_data_found := TRUE;
382: -- Get current database values
379: l_idx_rec idx_rec_type;
380: BEGIN
381: x_no_data_found := TRUE;
382: -- Get current database values
383: OPEN okl_indices_pk_csr (p_idx_rec.id);
384: FETCH okl_indices_pk_csr INTO
385: l_idx_rec.ID,
386: l_idx_rec.NAME,
387: l_idx_rec.IDX_TYPE,
380: BEGIN
381: x_no_data_found := TRUE;
382: -- Get current database values
383: OPEN okl_indices_pk_csr (p_idx_rec.id);
384: FETCH okl_indices_pk_csr INTO
385: l_idx_rec.ID,
386: l_idx_rec.NAME,
387: l_idx_rec.IDX_TYPE,
388: l_idx_rec.IDX_FREQUENCY,
412: l_idx_rec.CREATION_DATE,
413: l_idx_rec.LAST_UPDATED_BY,
414: l_idx_rec.LAST_UPDATE_DATE,
415: l_idx_rec.LAST_UPDATE_LOGIN;
416: x_no_data_found := okl_indices_pk_csr%NOTFOUND;
417: CLOSE okl_indices_pk_csr;
418: RETURN(l_idx_rec);
419: END get_rec;
420:
413: l_idx_rec.LAST_UPDATED_BY,
414: l_idx_rec.LAST_UPDATE_DATE,
415: l_idx_rec.LAST_UPDATE_LOGIN;
416: x_no_data_found := okl_indices_pk_csr%NOTFOUND;
417: CLOSE okl_indices_pk_csr;
418: RETURN(l_idx_rec);
419: END get_rec;
420:
421: FUNCTION get_rec (
425: BEGIN
426: RETURN(get_rec(p_idx_rec, l_row_notfound));
427: END get_rec;
428: ---------------------------------------------------------------------------
429: -- FUNCTION get_rec for: OKL_INDICES_V
430: ---------------------------------------------------------------------------
431: FUNCTION get_rec (
432: p_idxv_rec IN idxv_rec_type,
433: x_no_data_found OUT NOCOPY BOOLEAN
464: CREATION_DATE,
465: LAST_UPDATED_BY,
466: LAST_UPDATE_DATE,
467: LAST_UPDATE_LOGIN
468: FROM Okl_Indices_V
469: WHERE okl_indices_v.id = p_id;
470: l_okl_idxv_pk okl_idxv_pk_csr%ROWTYPE;
471: l_idxv_rec idxv_rec_type;
472: BEGIN
465: LAST_UPDATED_BY,
466: LAST_UPDATE_DATE,
467: LAST_UPDATE_LOGIN
468: FROM Okl_Indices_V
469: WHERE okl_indices_v.id = p_id;
470: l_okl_idxv_pk okl_idxv_pk_csr%ROWTYPE;
471: l_idxv_rec idxv_rec_type;
472: BEGIN
473: x_no_data_found := TRUE;
518: RETURN(get_rec(p_idxv_rec, l_row_notfound));
519: END get_rec;
520:
521: ---------------------------------------------------
522: -- FUNCTION null_out_defaults for: OKL_INDICES_V --
523: ---------------------------------------------------
524: FUNCTION null_out_defaults (
525: p_idxv_rec IN idxv_rec_type
526: ) RETURN idxv_rec_type IS
621: ---------------------------------------------------------------------------
622: -- PROCEDURE Validate_Attributes
623: ---------------------------------------------------------------------------
624: -------------------------------------------
625: -- Validate_Attributes for:OKL_INDICES_V --
626: -------------------------------------------
627: FUNCTION Validate_Attributes (
628: p_idxv_rec IN idxv_rec_type
629: ) RETURN VARCHAR2 IS
705:
706: ---------------------------------------------------------------------------
707: -- PROCEDURE Validate_Record
708: ---------------------------------------------------------------------------
709: -- Validate_Record for:OKL_INDICES_V --
710: -- History : 04/20/2001 Inserted Robin Edwin for validate Unique
711: ---------------------------------------------------------------------------
712:
713: FUNCTION Validate_Record (
845: ---------------------------------------------------------------------------
846: -- PROCEDURE validate_row
847: ---------------------------------------------------------------------------
848: ------------------------------------
849: -- validate_row for:OKL_INDICES_V --
850: ------------------------------------
851: PROCEDURE validate_row(
852: p_api_version IN NUMBER,
853: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
996: ---------------------------------------------------------------------------
997: -- PROCEDURE insert_row
998: ---------------------------------------------------------------------------
999: --------------------------------
1000: -- insert_row for:OKL_INDICES --
1001: --------------------------------
1002: PROCEDURE insert_row(
1003: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1004: x_return_status OUT NOCOPY VARCHAR2,
1012: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1013: l_idx_rec idx_rec_type := p_idx_rec;
1014: l_def_idx_rec idx_rec_type;
1015: ------------------------------------
1016: -- Set_Attributes for:OKL_INDICES --
1017: ------------------------------------
1018: FUNCTION Set_Attributes (
1019: p_idx_rec IN idx_rec_type,
1020: x_idx_rec OUT NOCOPY idx_rec_type
1044: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1045: RAISE OKC_API.G_EXCEPTION_ERROR;
1046: END IF;
1047:
1048: INSERT INTO OKL_INDICES(
1049: id,
1050: name,
1051: idx_type,
1052: idx_frequency,
1144: '_PVT'
1145: );
1146: END insert_row;
1147: ----------------------------------
1148: -- insert_row for:OKL_INDICES_V --
1149: ----------------------------------
1150: PROCEDURE insert_row(
1151: p_api_version IN NUMBER,
1152: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1178: l_idxv_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
1179: RETURN(l_idxv_rec);
1180: END fill_who_columns;
1181: --------------------------------------
1182: -- Set_Attributes for:OKL_INDICES_V --
1183: --------------------------------------
1184: FUNCTION Set_Attributes (
1185: p_idxv_rec IN idxv_rec_type,
1186: x_idxv_rec OUT NOCOPY idxv_rec_type
1378: ---------------------------------------------------------------------------
1379: -- PROCEDURE lock_row
1380: ---------------------------------------------------------------------------
1381: ------------------------------
1382: -- lock_row for:OKL_INDICES --
1383: ------------------------------
1384: PROCEDURE lock_row(
1385: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1386: x_return_status OUT NOCOPY VARCHAR2,
1391: E_Resource_Busy EXCEPTION;
1392: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1393: CURSOR lock_csr (p_idx_rec IN idx_rec_type) IS
1394: SELECT OBJECT_VERSION_NUMBER
1395: FROM OKL_INDICES
1396: WHERE ID = p_idx_rec.id
1397: AND OBJECT_VERSION_NUMBER = p_idx_rec.object_version_number
1398: FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
1399:
1398: FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
1399:
1400: CURSOR lchk_csr (p_idx_rec IN idx_rec_type) IS
1401: SELECT OBJECT_VERSION_NUMBER
1402: FROM OKL_INDICES
1403: WHERE ID = p_idx_rec.id;
1404: l_api_version CONSTANT NUMBER := 1;
1405: l_api_name CONSTANT VARCHAR2(30) := 'INDICES_lock_row';
1406: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1403: WHERE ID = p_idx_rec.id;
1404: l_api_version CONSTANT NUMBER := 1;
1405: l_api_name CONSTANT VARCHAR2(30) := 'INDICES_lock_row';
1406: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1407: l_object_version_number OKL_INDICES.OBJECT_VERSION_NUMBER%TYPE;
1408: lc_object_version_number OKL_INDICES.OBJECT_VERSION_NUMBER%TYPE;
1409: l_row_notfound BOOLEAN := FALSE;
1410: lc_row_notfound BOOLEAN := FALSE;
1411: BEGIN
1404: l_api_version CONSTANT NUMBER := 1;
1405: l_api_name CONSTANT VARCHAR2(30) := 'INDICES_lock_row';
1406: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1407: l_object_version_number OKL_INDICES.OBJECT_VERSION_NUMBER%TYPE;
1408: lc_object_version_number OKL_INDICES.OBJECT_VERSION_NUMBER%TYPE;
1409: l_row_notfound BOOLEAN := FALSE;
1410: lc_row_notfound BOOLEAN := FALSE;
1411: BEGIN
1412: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1484: '_PVT'
1485: );
1486: END lock_row;
1487: --------------------------------
1488: -- lock_row for:OKL_INDICES_V --
1489: --------------------------------
1490: PROCEDURE lock_row(
1491: p_api_version IN NUMBER,
1492: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1639: ---------------------------------------------------------------------------
1640: -- PROCEDURE update_row
1641: ---------------------------------------------------------------------------
1642: --------------------------------
1643: -- update_row for:OKL_INDICES --
1644: --------------------------------
1645: PROCEDURE update_row(
1646: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1647: x_return_status OUT NOCOPY VARCHAR2,
1799: END IF;
1800: RETURN(l_return_status);
1801: END populate_new_record;
1802: ------------------------------------
1803: -- Set_Attributes for:OKL_INDICES --
1804: ------------------------------------
1805: FUNCTION Set_Attributes (
1806: p_idx_rec IN idx_rec_type,
1807: x_idx_rec OUT NOCOPY idx_rec_type
1837: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1838: RAISE OKC_API.G_EXCEPTION_ERROR;
1839: END IF;
1840:
1841: UPDATE OKL_INDICES
1842: SET NAME = l_def_idx_rec.name,
1843: IDX_TYPE = l_def_idx_rec.idx_type,
1844: IDX_FREQUENCY = l_def_idx_rec.idx_frequency,
1845: OBJECT_VERSION_NUMBER = l_def_idx_rec.object_version_number,
1905: '_PVT'
1906: );
1907: END update_row;
1908: ----------------------------------
1909: -- update_row for:OKL_INDICES_V --
1910: ----------------------------------
1911: PROCEDURE update_row(
1912: p_api_version IN NUMBER,
1913: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2080: END IF;
2081: RETURN(l_return_status);
2082: END populate_new_record;
2083: --------------------------------------
2084: -- Set_Attributes for:OKL_INDICES_V --
2085: --------------------------------------
2086: FUNCTION Set_Attributes (
2087: p_idxv_rec IN idxv_rec_type,
2088: x_idxv_rec OUT NOCOPY idxv_rec_type
2289: ---------------------------------------------------------------------------
2290: -- PROCEDURE delete_row
2291: ---------------------------------------------------------------------------
2292: --------------------------------
2293: -- delete_row for:OKL_INDICES --
2294: --------------------------------
2295: PROCEDURE delete_row(
2296: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2297: x_return_status OUT NOCOPY VARCHAR2,
2313: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2314: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2315: RAISE OKC_API.G_EXCEPTION_ERROR;
2316: END IF;
2317: DELETE FROM OKL_INDICES
2318: WHERE ID = l_idx_rec.id;
2319:
2320: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2321: EXCEPTION
2350: '_PVT'
2351: );
2352: END delete_row;
2353: ----------------------------------
2354: -- delete_row for:OKL_INDICES_V --
2355: ----------------------------------
2356: PROCEDURE delete_row(
2357: p_api_version IN NUMBER,
2358: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,