PACKAGE BODY: APPS.LNS_INTRATE_HDR_PKG

Source

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;