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