[Home] [Help]
PACKAGE BODY: APPS.ENG_SUBJECTS_PKG
Source
1 package body ENG_SUBJECTS_PKG as
2 /* $Header: ENGSUBJB.pls 115.0 2004/03/16 22:59:08 sshrikha noship $ */
3
4 procedure ADD_LANGUAGE
5 is
6 begin
7 delete from ENG_SUBJECTS_TL T
8 where not exists
9 (select NULL
10 from ENG_SUBJECTS_B B
11 where B.SUBJECT_ID = T.SUBJECT_ID
12 );
13
14 update ENG_SUBJECTS_TL T set (
15 SUBJECT_NAME
16 ) = (select
17 B.SUBJECT_NAME
18 from ENG_SUBJECTS_TL B
19 where B.SUBJECT_ID = T.SUBJECT_ID
20 and B.LANGUAGE = T.SOURCE_LANG)
21 where (
22 T.SUBJECT_ID,
23 T.LANGUAGE
24 ) in (select
25 SUBT.SUBJECT_ID,
26 SUBT.LANGUAGE
27 from ENG_SUBJECTS_TL SUBB, ENG_SUBJECTS_TL SUBT
28 where SUBB.SUBJECT_ID = SUBT.SUBJECT_ID
29 and SUBB.LANGUAGE = SUBT.SOURCE_LANG
30 and (SUBB.SUBJECT_NAME <> SUBT.SUBJECT_NAME
31 ));
32
33 insert into ENG_SUBJECTS_TL (
34 SUBJECT_NAME,
35 CREATION_DATE,
36 CREATED_BY,
37 LAST_UPDATE_DATE,
38 LAST_UPDATED_BY,
39 LAST_UPDATE_LOGIN,
40 SUBJECT_ID,
41 LANGUAGE,
42 SOURCE_LANG
43 ) select /*+ ORDERED */
44 B.SUBJECT_NAME,
45 B.CREATION_DATE,
46 B.CREATED_BY,
47 B.LAST_UPDATE_DATE,
48 B.LAST_UPDATED_BY,
49 B.LAST_UPDATE_LOGIN,
50 B.SUBJECT_ID,
51 L.LANGUAGE_CODE,
52 B.SOURCE_LANG
53 from ENG_SUBJECTS_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 ENG_SUBJECTS_TL T
59 where T.SUBJECT_ID = B.SUBJECT_ID
60 and T.LANGUAGE = L.LANGUAGE_CODE);
61 end ADD_LANGUAGE;
62
63 end ENG_SUBJECTS_PKG;