PACKAGE BODY: APPS.JTF_EV_EVTTYPES

Source

1 PACKAGE BODY JTF_EV_EVTTYPES AS
2 /* $Header: JTFEVETB.pls 120.1 2005/07/02 02:01:14 appldev ship $ */
3 
4 procedure ADD_LANGUAGE
5 is
6 begin
7   delete from JTF_EVT_TYPES_TL T
8   where not exists
9     (select NULL
10     from JTF_EVT_TYPES_B B
11     where B.JTF_EVT_TYPES_ID = T.JTF_EVT_TYPES_ID
12     );
13 
14   update JTF_EVT_TYPES_TL T set (
15       JTF_EVT_TYPES_DESC
16     ) = (select
17       B.JTF_EVT_TYPES_DESC
18     from JTF_EVT_TYPES_TL B
19     where B.JTF_EVT_TYPES_ID = T.JTF_EVT_TYPES_ID
20     and B.LANGUAGE = T.SOURCE_LANG)
21   where (
22       T.JTF_EVT_TYPES_ID,
23       T.LANGUAGE
24   ) in (select
25       SUBT.JTF_EVT_TYPES_ID,
26       SUBT.LANGUAGE
27     from JTF_EVT_TYPES_TL SUBB, JTF_EVT_TYPES_TL SUBT
28     where SUBB.JTF_EVT_TYPES_ID = SUBT.JTF_EVT_TYPES_ID
29     and SUBB.LANGUAGE = SUBT.SOURCE_LANG
30     and (SUBB.JTF_EVT_TYPES_DESC <> SUBT.JTF_EVT_TYPES_DESC
31       or (SUBB.JTF_EVT_TYPES_DESC is null and SUBT.JTF_EVT_TYPES_DESC is not null) or (SUBB.JTF_EVT_TYPES_DESC is not null and SUBT.JTF_EVT_TYPES_DESC is null)));
32 
33   insert into JTF_EVT_TYPES_TL (
34     JTF_EVT_TYPES_ID,
35     JTF_EVT_TYPES_DESC,
36     LAST_UPDATE_DATE,
37     LAST_UPDATED_BY,
38     CREATION_DATE,
39     CREATED_BY,
40     LAST_UPDATE_LOGIN,
41     LANGUAGE,
42     SOURCE_LANG
43   ) select
44     B.JTF_EVT_TYPES_ID,
45     B.JTF_EVT_TYPES_DESC,
46     B.LAST_UPDATE_DATE,
47     B.LAST_UPDATED_BY,
48     B.CREATION_DATE,
49     B.CREATED_BY,
50     B.LAST_UPDATE_LOGIN,
51     L.LANGUAGE_CODE,
52     B.SOURCE_LANG
53   from JTF_EVT_TYPES_TL B, FND_LANGUAGES L
54   where L.INSTALLED_FLAG in ('I', 'B')
55   and B.LANGUAGE = userenv('LANG')
56   and not exists
57     (select NULL
58     from JTF_EVT_TYPES_TL T
59     where T.JTF_EVT_TYPES_ID = B.JTF_EVT_TYPES_ID
60     and T.LANGUAGE = L.LANGUAGE_CODE);
61 end ADD_LANGUAGE;
62 
63 
64 
65 END JTF_EV_EVTTYPES;
66