PACKAGE BODY: APPS.ENG_CHANGE_OBJECTS_PKG

Source

1 package body ENG_CHANGE_OBJECTS_PKG as
2 /* $Header: ENGUCHOB.pls 120.2 2006/06/29 08:59:13 pdutta noship $ */
3 
4 procedure ADD_LANGUAGE
5 is
6 begin
7   delete from ENG_CHANGE_OBJECTS_TL T
8   where not exists
9     (select NULL
10     from ENG_CHANGE_OBJECTS B
11     where B.entity_name = T.entity_name
12     );
13 
14   update ENG_CHANGE_OBJECTS_TL T set (
15       QUERY_COLUMN1_DISPLAY_NAME,
16       QUERY_COLUMN2_DISPLAY_NAME
17     ) = (select
18       B.QUERY_COLUMN1_DISPLAY_NAME,
19       B.QUERY_COLUMN2_DISPLAY_NAME
20     from ENG_CHANGE_OBJECTS_TL B
21     where B.entity_name = T.entity_name
22     and B.LANGUAGE = T.SOURCE_LANG)
23   where (
24       T.entity_name,
25       T.LANGUAGE
26   ) in (select
27       SUBT.entity_name,
28       SUBT.LANGUAGE
29     from ENG_CHANGE_OBJECTS_TL SUBB, ENG_CHANGE_OBJECTS_TL SUBT
30     where SUBB.entity_name = SUBT.entity_name
31     and SUBB.LANGUAGE = SUBT.SOURCE_LANG
32     and (SUBB.QUERY_COLUMN1_DISPLAY_NAME <> SUBT.QUERY_COLUMN1_DISPLAY_NAME
33       or (SUBB.QUERY_COLUMN1_DISPLAY_NAME is null and SUBT.QUERY_COLUMN1_DISPLAY_NAME is not null)
34       or (SUBB.QUERY_COLUMN1_DISPLAY_NAME is not null and SUBT.QUERY_COLUMN1_DISPLAY_NAME is null)
35       or SUBB.QUERY_COLUMN2_DISPLAY_NAME <> SUBT.QUERY_COLUMN2_DISPLAY_NAME
36       or (SUBB.QUERY_COLUMN2_DISPLAY_NAME is null and SUBT.QUERY_COLUMN2_DISPLAY_NAME is not null)
37       or (SUBB.QUERY_COLUMN2_DISPLAY_NAME is not null and SUBT.QUERY_COLUMN2_DISPLAY_NAME is null)
38   ));
39 
40   insert into ENG_CHANGE_OBJECTS_TL (
41     LAST_UPDATED_BY,
42     LAST_UPDATE_LOGIN,
43     QUERY_COLUMN1_DISPLAY_NAME,
44     QUERY_COLUMN2_DISPLAY_NAME,
45     CREATION_DATE,
46     CREATED_BY,
47     LAST_UPDATE_DATE,
48     entity_name,
49     LANGUAGE,
50     SOURCE_LANG
51   ) select
52     B.LAST_UPDATED_BY,
53     B.LAST_UPDATE_LOGIN,
54     B.QUERY_COLUMN1_DISPLAY_NAME,
55     B.QUERY_COLUMN2_DISPLAY_NAME,
56     B.CREATION_DATE,
57     B.CREATED_BY,
58     B.LAST_UPDATE_DATE,
59     B.entity_name,
60     L.LANGUAGE_CODE,
61     B.SOURCE_LANG
62   from ENG_CHANGE_OBJECTS_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 ENG_CHANGE_OBJECTS_TL T
68     where T.entity_name = B.entity_name
69     and T.LANGUAGE = L.LANGUAGE_CODE);
70 end ADD_LANGUAGE;
71 end ENG_CHANGE_OBJECTS_PKG;