PACKAGE BODY: APPS.IBW_CONTEXT_INTERFACE_PVT

Source

1 package body IBW_CONTEXT_INTERFACE_PVT as
2 /* $Header: ibwctxb.pls 120.1 2005/10/28 01:37 vekancha noship $*/
3 
4   -- HISTORY
5   --   10/27/05           VEKANCHA         Created this file.
6   -- **************************************************************************
7 
8 procedure ADD_LANGUAGE
9 is
10 begin
11   delete from IBW_CONTEXT_INTERFACE_TL T
12   where not exists
13     (select NULL
14     from IBW_CONTEXT_INTERFACE_B B
15     where B.CONTEXT_INTERFACE_ID = T.CONTEXT_INTERFACE_ID
16     );
17 
18   update IBW_CONTEXT_INTERFACE_TL T set (
19       CONTEXT_INSTANCE_NAME
20     ) = (select
21       B.CONTEXT_INSTANCE_NAME
22     from IBW_CONTEXT_INTERFACE_TL B
23     where B.CONTEXT_INTERFACE_ID = T.CONTEXT_INTERFACE_ID
24     and B.LANGUAGE = T.SOURCE_LANG)
25   where (
26       T.CONTEXT_INTERFACE_ID,
27       T.LANGUAGE
28   ) in (select
29       SUBT.CONTEXT_INTERFACE_ID,
30       SUBT.LANGUAGE
31     from IBW_CONTEXT_INTERFACE_TL SUBB, IBW_CONTEXT_INTERFACE_TL SUBT
32     where SUBB.CONTEXT_INTERFACE_ID = SUBT.CONTEXT_INTERFACE_ID
33     and SUBB.LANGUAGE = SUBT.SOURCE_LANG
34     and (SUBB.CONTEXT_INSTANCE_NAME <> SUBT.CONTEXT_INSTANCE_NAME
35   ));
36 
37   insert into IBW_CONTEXT_INTERFACE_TL (
38     LAST_UPDATE_DATE,
39     LAST_UPDATE_LOGIN,
40     PROGRAM_ID,
41     PROGRAM_LOGIN_ID,
42     PROGRAM_APPLICATION_ID,
43     REQUEST_ID,
44     LAST_UPDATED_BY,
45     CONTEXT_INSTANCE_NAME,
46     OBJECT_VERSION_NUMBER,
47     CREATED_BY,
48     CREATION_DATE,
49     CONTEXT_INTERFACE_ID,
50     LANGUAGE,
51     SOURCE_LANG
52   ) select /*+ ORDERED */
53     B.LAST_UPDATE_DATE,
54     B.LAST_UPDATE_LOGIN,
55     B.PROGRAM_ID,
56     B.PROGRAM_LOGIN_ID,
57     B.PROGRAM_APPLICATION_ID,
58     B.REQUEST_ID,
59     B.LAST_UPDATED_BY,
60     B.CONTEXT_INSTANCE_NAME,
61     B.OBJECT_VERSION_NUMBER,
62     B.CREATED_BY,
63     B.CREATION_DATE,
64     B.CONTEXT_INTERFACE_ID,
65     L.LANGUAGE_CODE,
66     B.SOURCE_LANG
67   from IBW_CONTEXT_INTERFACE_TL B, FND_LANGUAGES L
68   where L.INSTALLED_FLAG in ('I', 'B')
69   and B.LANGUAGE = userenv('LANG')
70   and not exists
71     (select NULL
72     from IBW_CONTEXT_INTERFACE_TL T
73     where T.CONTEXT_INTERFACE_ID = B.CONTEXT_INTERFACE_ID
74     and T.LANGUAGE = L.LANGUAGE_CODE);
75 end ADD_LANGUAGE;
76 
77 end IBW_CONTEXT_INTERFACE_PVT;
78