3:
4: procedure ADD_LANGUAGE
5: is
6: begin
7: delete from PA_PROJECTS_ERP_EXT_TL T
8: where not exists
9: (select NULL
10: from PA_PROJECTS_ERP_EXT_B B
11: where B.EXTENSION_ID = T.EXTENSION_ID
10: from PA_PROJECTS_ERP_EXT_B B
11: where B.EXTENSION_ID = T.EXTENSION_ID
12: );
13:
14: update PA_PROJECTS_ERP_EXT_TL T set (
15: TL_EXT_ATTR1,
16: TL_EXT_ATTR2,
17: TL_EXT_ATTR3,
18: TL_EXT_ATTR4,
92: B.TL_EXT_ATTR37,
93: B.TL_EXT_ATTR38,
94: B.TL_EXT_ATTR39,
95: B.TL_EXT_ATTR40
96: from PA_PROJECTS_ERP_EXT_TL B
97: where B.EXTENSION_ID = T.EXTENSION_ID
98: and B.LANGUAGE = T.SOURCE_LANG)
99: where (
100: T.EXTENSION_ID,
101: T.LANGUAGE
102: ) in (select
103: SUBT.EXTENSION_ID,
104: SUBT.LANGUAGE
105: from PA_PROJECTS_ERP_EXT_TL SUBB, PA_PROJECTS_ERP_EXT_TL SUBT
106: where SUBB.EXTENSION_ID = SUBT.EXTENSION_ID
107: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
108: and (SUBB.TL_EXT_ATTR1 <> SUBT.TL_EXT_ATTR1
109: or (SUBB.TL_EXT_ATTR1 is null and SUBT.TL_EXT_ATTR1 is not null)
226: or (SUBB.TL_EXT_ATTR40 is null and SUBT.TL_EXT_ATTR40 is not null)
227: or (SUBB.TL_EXT_ATTR40 is not null and SUBT.TL_EXT_ATTR40 is null)
228: ));
229:
230: insert into PA_PROJECTS_ERP_EXT_TL (
231: TL_EXT_ATTR36,
232: TL_EXT_ATTR37,
233: TL_EXT_ATTR38,
234: TL_EXT_ATTR39,
330: B.TL_EXT_ATTR34,
331: B.TL_EXT_ATTR35,
332: L.LANGUAGE_CODE,
333: B.SOURCE_LANG
334: from PA_PROJECTS_ERP_EXT_TL B, FND_LANGUAGES L
335: where L.INSTALLED_FLAG in ('I', 'B')
336: and B.LANGUAGE = userenv('LANG')
337: and not exists
338: (select NULL
335: where L.INSTALLED_FLAG in ('I', 'B')
336: and B.LANGUAGE = userenv('LANG')
337: and not exists
338: (select NULL
339: from PA_PROJECTS_ERP_EXT_TL T
340: where T.EXTENSION_ID = B.EXTENSION_ID
341: and T.LANGUAGE = L.LANGUAGE_CODE);
342: end ADD_LANGUAGE;
343: