[Home] [Help]
764: BEGIN
765: DELETE FROM OKL_TXD_ASSETS_TL T
766: WHERE NOT EXISTS (
767: SELECT NULL
768: FROM OKL_TXD_ASSETS_B B --fixed bug 3321017 by kmotepal
769: WHERE B.ID = T.ID
770: );
771:
772: UPDATE OKL_TXD_ASSETS_TL T SET (
875: CURRENCY_CONVERSION_TYPE,
876: CURRENCY_CONVERSION_RATE,
877: CURRENCY_CONVERSION_DATE
878: -- Multi-Currency changes
879: FROM Okl_Txd_Assets_b txd
880: WHERE txd.id = p_id;
881: l_asd_pk asd_pk_csr%ROWTYPE;
882: l_asd_rec asd_rec_type;
883: BEGIN
1644: ---------------------------------------------------------------------------
1645: -- PROCEDURE insert_row
1646: ---------------------------------------------------------------------------
1647: -----------------------------------
1648: -- insert_row for:OKL_TXD_ASSETS_B --
1649: -----------------------------------
1650: PROCEDURE insert_row(
1651: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1652: x_return_status OUT NOCOPY VARCHAR2,
1660: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1661: l_asd_rec asd_rec_type := p_asd_rec;
1662: l_def_asd_rec asd_rec_type;
1663: ---------------------------------------
1664: -- Set_Attributes for:OKL_TXD_ASSETS_B --
1665: ---------------------------------------
1666: FUNCTION Set_Attributes (
1667: p_asd_rec IN asd_rec_type,
1668: x_asd_rec OUT NOCOPY asd_rec_type
1691: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1692: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1693: RAISE OKC_API.G_EXCEPTION_ERROR;
1694: END IF;
1695: INSERT INTO OKL_TXD_ASSETS_B(
1696: id,
1697: object_version_number,
1698: tal_id,
1699: target_kle_id,
2210: ---------------------------------------------------------------------------
2211: -- PROCEDURE lock_row
2212: ---------------------------------------------------------------------------
2213: ---------------------------------
2214: -- lock_row for:OKL_TXD_ASSETS_B --
2215: ---------------------------------
2216: PROCEDURE lock_row(
2217: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2218: x_return_status OUT NOCOPY VARCHAR2,
2223: E_Resource_Busy EXCEPTION;
2224: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
2225: CURSOR lock_csr (p_asd_rec IN asd_rec_type) IS
2226: SELECT OBJECT_VERSION_NUMBER
2227: FROM OKL_TXD_ASSETS_B
2228: WHERE ID = p_asd_rec.id
2229: AND OBJECT_VERSION_NUMBER = p_asd_rec.object_version_number
2230: FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
2231:
2230: FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
2231:
2232: CURSOR lchk_csr (p_asd_rec IN asd_rec_type) IS
2233: SELECT OBJECT_VERSION_NUMBER
2234: FROM OKL_TXD_ASSETS_B
2235: WHERE ID = p_asd_rec.id;
2236: l_api_version CONSTANT NUMBER := 1;
2237: l_api_name CONSTANT VARCHAR2(30) := 'ASSETS_lock_row';
2238: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2235: WHERE ID = p_asd_rec.id;
2236: l_api_version CONSTANT NUMBER := 1;
2237: l_api_name CONSTANT VARCHAR2(30) := 'ASSETS_lock_row';
2238: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2239: l_object_version_number OKL_TXD_ASSETS_B.OBJECT_VERSION_NUMBER%TYPE;
2240: lc_object_version_number OKL_TXD_ASSETS_B.OBJECT_VERSION_NUMBER%TYPE;
2241: l_row_notfound BOOLEAN := FALSE;
2242: lc_row_notfound BOOLEAN := FALSE;
2243: BEGIN
2236: l_api_version CONSTANT NUMBER := 1;
2237: l_api_name CONSTANT VARCHAR2(30) := 'ASSETS_lock_row';
2238: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2239: l_object_version_number OKL_TXD_ASSETS_B.OBJECT_VERSION_NUMBER%TYPE;
2240: lc_object_version_number OKL_TXD_ASSETS_B.OBJECT_VERSION_NUMBER%TYPE;
2241: l_row_notfound BOOLEAN := FALSE;
2242: lc_row_notfound BOOLEAN := FALSE;
2243: BEGIN
2244: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2563: ---------------------------------------------------------------------------
2564: -- PROCEDURE update_row
2565: ---------------------------------------------------------------------------
2566: -----------------------------------
2567: -- update_row for:OKL_TXD_ASSETS_B --
2568: -----------------------------------
2569: PROCEDURE update_row(
2570: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2571: x_return_status OUT NOCOPY VARCHAR2,
2765: -- Multi Currency Change
2766: RETURN(l_return_status);
2767: END populate_new_record;
2768: ---------------------------------------
2769: -- Set_Attributes for:OKL_TXD_ASSETS_B --
2770: ---------------------------------------
2771: FUNCTION Set_Attributes (
2772: p_asd_rec IN asd_rec_type,
2773: x_asd_rec OUT NOCOPY asd_rec_type
2802: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2803: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2804: RAISE OKC_API.G_EXCEPTION_ERROR;
2805: END IF;
2806: UPDATE OKL_TXD_ASSETS_B
2807: SET OBJECT_VERSION_NUMBER = l_def_asd_rec.object_version_number,
2808: TAL_ID = l_def_asd_rec.tal_id,
2809: TARGET_KLE_ID = l_def_asd_rec.target_kle_id,
2810: LINE_DETAIL_NUMBER = l_def_asd_rec.line_detail_number,
3542: ---------------------------------------------------------------------------
3543: -- PROCEDURE delete_row
3544: ---------------------------------------------------------------------------
3545: -----------------------------------
3546: -- delete_row for:OKL_TXD_ASSETS_B --
3547: -----------------------------------
3548: PROCEDURE delete_row(
3549: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3550: x_return_status OUT NOCOPY VARCHAR2,
3566: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3567: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3568: RAISE OKC_API.G_EXCEPTION_ERROR;
3569: END IF;
3570: DELETE FROM OKL_TXD_ASSETS_B
3571: WHERE ID = l_asd_rec.id;
3572:
3573: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3574: EXCEPTION