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