PACKAGE BODY: APPS.ENG_ATTRIBUTES_SECTIONS_PKG

Source

1 package body ENG_ATTRIBUTES_SECTIONS_PKG as
2 /* $Header: ENGATSEB.pls 115.0 2004/01/27 11:46:28 srajapar noship $ */
3 
4 PROCEDURE ADD_LANGUAGE IS
5 BEGIN
6   delete from 	ENG_ATTRIBUTES_SECTIONS_TL T
7   where not exists
8     (select NULL
9     from ENG_ATTRIBUTES_SECTIONS_B B
10     where B.ATTRIBUTE_SECTION_CODE = T.ATTRIBUTE_SECTION_CODE
11     );
12 
13   update ENG_ATTRIBUTES_SECTIONS_TL T set (
14       NAME
15     ) = (select
16       B.NAME
17     from ENG_ATTRIBUTES_SECTIONS_TL B
18     where B.ATTRIBUTE_SECTION_CODE = T.ATTRIBUTE_SECTION_CODE
19     and B.LANGUAGE = T.SOURCE_LANG)
20   where (
21       T.ATTRIBUTE_SECTION_CODE,
22       T.LANGUAGE
23   ) in (select
24       SUBT.ATTRIBUTE_SECTION_CODE,
25       SUBT.LANGUAGE
26     from ENG_ATTRIBUTES_SECTIONS_TL SUBB, ENG_ATTRIBUTES_SECTIONS_TL SUBT
27     where SUBB.ATTRIBUTE_SECTION_CODE = SUBT.ATTRIBUTE_SECTION_CODE
28     and SUBB.LANGUAGE = SUBT.SOURCE_LANG
29     and SUBB.NAME <> SUBT.NAME
30   );
31 
32   insert into ENG_ATTRIBUTES_SECTIONS_TL (
33     ATTRIBUTE_SECTION_CODE,
34     NAME,
35     CREATION_DATE,
36     CREATED_BY,
37     LAST_UPDATE_DATE,
38     LAST_UPDATED_BY,
39     LAST_UPDATE_LOGIN,
40     LANGUAGE,
41     SOURCE_LANG
42   ) select
43     B.ATTRIBUTE_SECTION_CODE,
44     B.NAME,
45     B.CREATION_DATE,
46     B.CREATED_BY,
47     B.LAST_UPDATE_DATE,
48     B.LAST_UPDATED_BY,
49     B.LAST_UPDATE_LOGIN,
50     L.LANGUAGE_CODE,
51     B.SOURCE_LANG
52   from ENG_ATTRIBUTES_SECTIONS_TL B, FND_LANGUAGES L
53   where L.INSTALLED_FLAG in ('I', 'B')
54   and B.LANGUAGE = userenv('LANG')
55   and not exists
56     (select NULL
57     from ENG_ATTRIBUTES_SECTIONS_TL  T
58     where B.ATTRIBUTE_SECTION_CODE = T.ATTRIBUTE_SECTION_CODE
59     and T.LANGUAGE = L.LANGUAGE_CODE);
60 end ADD_LANGUAGE;
61 
62 end ENG_ATTRIBUTES_SECTIONS_PKG;