PACKAGE BODY: APPS.ITA_SETUP_RPT_GROUPS_PKG

Source

1 package body ITA_SETUP_RPT_GROUPS_PKG as
2 /* $Header: itatregb.pls 120.0 2005/05/31 16:40:06 appldev noship $ */
3 
4 
5 procedure ADD_LANGUAGE
6 is
7 begin
8   delete from ITA_SETUP_RPT_GROUPS_TL tl
9   where not exists (
10     select null
11     from ITA_SETUP_RPT_GROUPS_B b
12     where
13 	b.INSTANCE_CODE = tl.INSTANCE_CODE and
14 	b.REPORTING_GROUP_ID = tl.REPORTING_GROUP_ID
15     );
16 
17   update ITA_SETUP_RPT_GROUPS_TL tl set (
18       REPORTING_GROUP_NAME
19     ) = (select
20       b.REPORTING_GROUP_NAME
21     from ITA_SETUP_RPT_GROUPS_TL b
22     where
23 	b.INSTANCE_CODE = tl.INSTANCE_CODE and
24 	b.REPORTING_GROUP_ID = tl.REPORTING_GROUP_ID and
25       b.LANGUAGE = tl.SOURCE_LANG)
26   where (
27       tl.INSTANCE_CODE,
28 	tl.REPORTING_GROUP_ID,
29       tl.LANGUAGE
30   ) in (select
31       subtl.INSTANCE_CODE,
32 	subtl.REPORTING_GROUP_ID,
33       subtl.LANGUAGE
34     from ITA_SETUP_RPT_GROUPS_TL subb, ITA_SETUP_RPT_GROUPS_TL subtl
35     where
36       subb.INSTANCE_CODE = subtl.INSTANCE_CODE and
37       subb.REPORTING_GROUP_ID = subtl.REPORTING_GROUP_ID and
38       subb.LANGUAGE = subtl.SOURCE_LANG and
39     	(subb.REPORTING_GROUP_NAME <> subtl.REPORTING_GROUP_NAME or
40         (subb.REPORTING_GROUP_NAME is null and subtl.REPORTING_GROUP_NAME is not null) or
41         (subb.REPORTING_GROUP_NAME is not null and subtl.REPORTING_GROUP_NAME is null)));
42 
43   insert into ITA_SETUP_RPT_GROUPS_TL (
44     INSTANCE_CODE,
45     REPORTING_GROUP_ID,
46     REPORTING_GROUP_NAME,
47     CREATED_BY,
48     CREATION_DATE,
49     LAST_UPDATED_BY,
50     LAST_UPDATE_DATE,
51     LAST_UPDATE_LOGIN,
52     SECURITY_GROUP_ID,
53     OBJECT_VERSION_NUMBER,
54     LANGUAGE,
55     SOURCE_LANG
56   ) select
57     b.INSTANCE_CODE,
58     b.REPORTING_GROUP_ID,
59     b.REPORTING_GROUP_NAME,
60     b.CREATED_BY,
61     b.CREATION_DATE,
62     b.LAST_UPDATED_BY,
63     b.LAST_UPDATE_DATE,
64     b.LAST_UPDATE_LOGIN,
65     b.SECURITY_GROUP_ID,
66     b.OBJECT_VERSION_NUMBER,
67     L.LANGUAGE_CODE,
68     b.SOURCE_LANG
69   from ITA_SETUP_RPT_GROUPS_TL b, FND_LANGUAGES L
70   where
71     L.INSTALLED_FLAG in ('I', 'B') and
72     b.LANGUAGE = userenv('LANG') and
73     not exists (
74      select null
75      from ITA_SETUP_RPT_GROUPS_TL tl
76      where
77        tl.INSTANCE_CODE = b.INSTANCE_CODE and
78        tl.REPORTING_GROUP_ID = b.REPORTING_GROUP_ID and
79        tl.LANGUAGE = L.LANGUAGE_CODE);
80 end ADD_LANGUAGE;
81 
82 
83 end ITA_SETUP_RPT_GROUPS_PKG;