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