PACKAGE BODY: APPS.ENG_CHANGE_RULE_ATTRIBUTES_PKG

Source

1 package body ENG_CHANGE_RULE_ATTRIBUTES_PKG as
2 /* $Header: ENGCRATB.pls 115.0 2004/01/27 11:46:51 srajapar noship $ */
3 
4 PROCEDURE ADD_LANGUAGE IS
5 BEGIN
6   delete from 	ENG_CHANGE_RULE_ATTRIBUTES_TL T
7   where not exists
8     (select NULL
9     from ENG_CHANGE_RULE_ATTRIBUTES_B B
10     where B.ATTRIBUTE_OBJECT_NAME = T.ATTRIBUTE_OBJECT_NAME
11       and B.ATTRIBUTE_CODE = T.ATTRIBUTE_CODE
12     );
13 
14   update ENG_CHANGE_RULE_ATTRIBUTES_TL T set (
15       ATTRIBUTE_NAME,
16       DISPLAY_COLUMN1_NAME,
17       DISPLAY_COLUMN2_NAME
18     ) = (select
19           B.ATTRIBUTE_NAME,
20           B.DISPLAY_COLUMN1_NAME,
21           B.DISPLAY_COLUMN2_NAME
22         from ENG_CHANGE_RULE_ATTRIBUTES_TL B
23         where B.ATTRIBUTE_OBJECT_NAME = T.ATTRIBUTE_OBJECT_NAME
24           and B.ATTRIBUTE_CODE = T.ATTRIBUTE_CODE
25           and B.LANGUAGE = T.SOURCE_LANG)
26         where (  T.ATTRIBUTE_OBJECT_NAME,
27                  T.ATTRIBUTE_CODE,
28                  T.LANGUAGE
29               ) in
30               (select SUBT.ATTRIBUTE_OBJECT_NAME,
31                       SUBT.ATTRIBUTE_CODE,
32                       SUBT.LANGUAGE
33                from ENG_CHANGE_RULE_ATTRIBUTES_TL SUBB, ENG_CHANGE_RULE_ATTRIBUTES_TL SUBT
34                where SUBB.ATTRIBUTE_OBJECT_NAME = SUBT.ATTRIBUTE_OBJECT_NAME
35                  and SUBB.ATTRIBUTE_CODE = SUBT.ATTRIBUTE_CODE
36                  and SUBB.LANGUAGE = SUBT.SOURCE_LANG
37                  and (SUBB.ATTRIBUTE_NAME <> SUBT.ATTRIBUTE_NAME
38                       or SUBB.DISPLAY_COLUMN1_NAME <> SUBT.DISPLAY_COLUMN1_NAME
39                       or SUBB.DISPLAY_COLUMN2_NAME <> SUBT.DISPLAY_COLUMN2_NAME
40                       or (SUBB.DISPLAY_COLUMN2_NAME is null
41                           and
42                           SUBT.DISPLAY_COLUMN2_NAME is not null)
43                       or (SUBB.DISPLAY_COLUMN2_NAME is not null
44                           and
45                           SUBT.DISPLAY_COLUMN2_NAME is null)
46               )
47         );
48 
49   insert into ENG_CHANGE_RULE_ATTRIBUTES_TL (
50     ATTRIBUTE_OBJECT_NAME,
51     ATTRIBUTE_CODE,
52     ATTRIBUTE_NAME,
53     DISPLAY_COLUMN1_NAME,
54     DISPLAY_COLUMN2_NAME,
55     CREATION_DATE,
56     CREATED_BY,
57     LAST_UPDATE_DATE,
58     LAST_UPDATED_BY,
59     LAST_UPDATE_LOGIN,
60     LANGUAGE,
61     SOURCE_LANG
62   ) select
63     B.ATTRIBUTE_OBJECT_NAME,
64     B.ATTRIBUTE_CODE,
65     B.ATTRIBUTE_NAME,
66     B.DISPLAY_COLUMN1_NAME,
67     B.DISPLAY_COLUMN2_NAME,
68     B.CREATION_DATE,
69     B.CREATED_BY,
70     B.LAST_UPDATE_DATE,
71     B.LAST_UPDATED_BY,
72     B.LAST_UPDATE_LOGIN,
73     L.LANGUAGE_CODE,
74     B.SOURCE_LANG
75   from ENG_CHANGE_RULE_ATTRIBUTES_TL B, FND_LANGUAGES L
76   where L.INSTALLED_FLAG in ('I', 'B')
77   and B.LANGUAGE = userenv('LANG')
78   and not exists
79     (select NULL
80     from ENG_CHANGE_RULE_ATTRIBUTES_TL T
81     where T.ATTRIBUTE_OBJECT_NAME = B.ATTRIBUTE_OBJECT_NAME
82       and T.ATTRIBUTE_CODE = B.ATTRIBUTE_CODE
83       and T.LANGUAGE = L.LANGUAGE_CODE);
84 end ADD_LANGUAGE;
85 
86 end ENG_CHANGE_RULE_ATTRIBUTES_PKG;