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;