PACKAGE BODY: APPS.BIS_INDICATORS_MLS

Source

1 package body BIS_INDICATORS_MLS AS
2 /* $Header: BISIMLSB.pls 115.3 2003/02/12 04:34:07 sashaik noship $ */
3 procedure ADD_LANGUAGE
4 is
5 begin
6   delete from BIS_INDICATORS_TL T
7   where not exists
8     (select NULL
9     from BIS_INDICATORS B
10     where B.INDICATOR_ID = T.INDICATOR_ID
11     );
12 
13   update BIS_INDICATORS_TL T set (
14       NAME,
15       DESCRIPTION
16     ) = (select
17       B.NAME,
18       B.DESCRIPTION
19     from BIS_INDICATORS_TL B
20     where B.INDICATOR_ID = T.INDICATOR_ID
21     and B.LANGUAGE = T.SOURCE_LANG)
22   where (
23       T.INDICATOR_ID,
24       T.LANGUAGE
25   ) in (select
26       SUBT.INDICATOR_ID,
27       SUBT.LANGUAGE
28     from BIS_INDICATORS_TL SUBB, BIS_INDICATORS_TL SUBT
29     where SUBB.INDICATOR_ID = SUBT.INDICATOR_ID
30     and SUBB.LANGUAGE = SUBT.SOURCE_LANG
31     and (SUBB.NAME <> SUBT.NAME
32       or SUBB.DESCRIPTION <> SUBT.DESCRIPTION
33       or (SUBB.DESCRIPTION is null and SUBT.DESCRIPTION is not null)
34       or (SUBB.DESCRIPTION is not null and SUBT.DESCRIPTION is null)
35   ));
36 
37   insert into BIS_INDICATORS_TL (
38     INDICATOR_ID,
39     NAME,
40     DESCRIPTION,
41     CREATION_DATE,
42     CREATED_BY,
43     LAST_UPDATE_DATE,
44     LAST_UPDATED_BY,
45     LAST_UPDATE_LOGIN,
46     LANGUAGE,
47     SOURCE_LANG
48   ) select
49     B.INDICATOR_ID,
50     B.NAME,
51     B.DESCRIPTION,
52     B.CREATION_DATE,
53     B.CREATED_BY,
54     B.LAST_UPDATE_DATE,
55     B.LAST_UPDATED_BY,
56     B.LAST_UPDATE_LOGIN,
57     L.LANGUAGE_CODE,
58     B.SOURCE_LANG
59   from BIS_INDICATORS_TL B, FND_LANGUAGES L
60   where L.INSTALLED_FLAG in ('I', 'B')
61   and B.LANGUAGE = userenv('LANG')
62   and not exists
63     (select NULL
64     from BIS_INDICATORS_TL T
65     where T.INDICATOR_ID = B.INDICATOR_ID
66     and T.LANGUAGE = L.LANGUAGE_CODE);
67 
68 end ADD_LANGUAGE;
69 
70 end BIS_INDICATORS_MLS;