1 PACKAGE BODY LNS_ASSETS_PKG AS
2 /* $Header: LNS_ASSETS_TBLH_B.pls 120.0.12010000.1 2008/11/26 07:53:40 mbolli noship $ */
3
4 PROCEDURE ADD_LANGUAGE
5 IS
6 BEGIN
7 delete from LNS_ASSETS_TL T
8 where not exists
9 (select NULL
10 from LNS_ASSETS B
11 where B.ASSET_ID = T.ASSET_ID
12 );
13
14 update LNS_ASSETS_TL T set (
15 DESCRIPTION
16 ) = (select
17 B.DESCRIPTION
18 from LNS_ASSETS_TL B
19 where B.ASSET_ID = T.ASSET_ID
20 and B.LANGUAGE = T.SOURCE_LANG)
21 where (
22 T.ASSET_ID,
23 T.LANGUAGE
24 ) in (select
25 SUBT.ASSET_ID,
26 SUBT.LANGUAGE
27 from LNS_ASSETS_TL SUBB, LNS_ASSETS_TL SUBT
28 where SUBB.ASSET_ID = SUBT.ASSET_ID
29 and SUBB.LANGUAGE = SUBT.SOURCE_LANG
30 and (SUBB.DESCRIPTION <> SUBT.DESCRIPTION
31 or (SUBB.DESCRIPTION is null and SUBT.DESCRIPTION is not null)
32 or (SUBB.DESCRIPTION is not null and SUBT.DESCRIPTION is null)
33 ));
34
35 insert into LNS_ASSETS_TL (
36 ASSET_ID,
37 DESCRIPTION,
38 LAST_UPDATE_DATE,
39 LAST_UPDATED_BY,
40 CREATION_DATE,
41 CREATED_BY,
42 LAST_UPDATE_LOGIN,
43 LANGUAGE,
44 SOURCE_LANG
45 ) select
46 B.ASSET_ID,
47 B.DESCRIPTION,
48 B.LAST_UPDATE_DATE,
49 B.LAST_UPDATED_BY,
50 B.CREATION_DATE,
51 B.CREATED_BY,
52 B.LAST_UPDATE_LOGIN,
53 L.LANGUAGE_CODE,
54 B.SOURCE_LANG
55 from LNS_ASSETS_TL B, FND_LANGUAGES L
56 where L.INSTALLED_FLAG in ('I', 'B')
57 and B.LANGUAGE = userenv('LANG')
58 and not exists
59 (select NULL
60 from LNS_ASSETS_TL T
61 where T.ASSET_ID = B.ASSET_ID
62 and T.LANGUAGE = L.LANGUAGE_CODE);
63
64 END ADD_LANGUAGE;
65
66 END LNS_ASSETS_PKG;