[Home] [Help]
8:
9: BEGIN
10:
11: DELETE FROM OKL_ASSETS_TL T
12: WHERE NOT EXISTS (SELECT NULL FROM OKL_ASSETS_B B WHERE B.ID =T.ID);
13:
14: UPDATE OKL_ASSETS_TL T
15: SET (SHORT_DESCRIPTION,
16: DESCRIPTION,
395: --------------------------------------
396: PROCEDURE validate_asset_number (x_return_status OUT NOCOPY VARCHAR2, p_asset_number IN VARCHAR2) IS
397: CURSOR c_ast_num(cp_asset_number IN VARCHAR2) IS
398: SELECT 'Y'
399: FROM okl_assets_b
400: WHERE asset_number = cp_asset_number;
401:
402: l_already_exists VARCHAR2(3) := 'N';
403: BEGIN
540: BEGIN
541:
542: l_prog_name := G_PKG_NAME||'.insert_row (B)';
543:
544: INSERT INTO okl_assets_b (
545: id
546: ,object_version_number
547: ,attribute_category
548: ,attribute1
965: PRAGMA EXCEPTION_INIT (E_Resource_Busy, -00054);
966:
967: CURSOR lock_csr IS
968: SELECT OBJECT_VERSION_NUMBER
969: FROM OKL_ASSETS_B
970: WHERE ID = p_ass_rec.id
971: AND OBJECT_VERSION_NUMBER = p_ass_rec.object_version_number
972: FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
973:
972: FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
973:
974: CURSOR lchk_csr IS
975: SELECT OBJECT_VERSION_NUMBER
976: FROM OKL_ASSETS_B
977: WHERE ID = p_ass_rec.id;
978:
979: l_object_version_number NUMBER;
980: lc_object_version_number NUMBER;
1076: ELSIF l_return_status = G_RET_STS_ERROR THEN
1077: RAISE OKL_API.G_EXCEPTION_ERROR;
1078: END IF;
1079:
1080: UPDATE okl_assets_b
1081: SET
1082: object_version_number = p_ass_rec.object_version_number+1
1083: ,attribute_category = p_ass_rec.attribute_category
1084: ,attribute1 = p_ass_rec.attribute1
1591: BEGIN
1592:
1593: l_prog_name := G_PKG_NAME||'.delete_row (V)';
1594:
1595: DELETE FROM OKL_ASSETS_B WHERE id = p_id;
1596: DELETE FROM OKL_ASSETS_TL WHERE id = p_id;
1597:
1598: x_return_status := G_RET_STS_SUCCESS;
1599: