PACKAGE BODY: APPS.IEX_APP_PREFERENCES_PKG

Source

1 package body IEX_APP_PREFERENCES_PKG as
2 /* $Header: iextappb.pls 120.0 2004/01/24 03:21:04 appldev noship $ */
3 
4 PG_DEBUG NUMBER(2) := TO_NUMBER(NVL(FND_PROFILE.value('IEX_DEBUG_LEVEL'), '20'));
5 
6 procedure ADD_LANGUAGE
7 is
8 begin
9   delete from IEX_APP_PREFERENCES_TL T
10   where not exists
11     (select NULL
12      from IEX_APP_PREFERENCES_B B
13      where B.PREFERENCE_ID = T.PREFERENCE_ID
14     );
15 
16   update IEX_APP_PREFERENCES_TL T
17         set (USER_NAME) =
18              (select B.USER_NAME
19               from IEX_APP_PREFERENCES_TL B
20               where B.PREFERENCE_ID = T.PREFERENCE_ID
21               and B.LANGUAGE = T.SOURCE_LANG)
22         where (
23               T.PREFERENCE_ID,T.LANGUAGE
24                ) in (select
25                        SUBT.PREFERENCE_ID,
26                        SUBT.LANGUAGE
27                      from IEX_APP_PREFERENCES_TL SUBB,
28                           IEX_APP_PREFERENCES_TL SUBT
29                      where SUBB.PREFERENCE_ID = SUBT.PREFERENCE_ID
30                      and SUBB.LANGUAGE = SUBT.SOURCE_LANG
31                      and SUBB.USER_NAME<> SUBT.USER_NAME
32                      OR (SUBB.USER_NAME IS NULL AND SUBT.USER_NAME IS NOT NULL)
33                      OR (SUBB.USER_NAME IS NOT NULL AND SUBT.USER_NAME IS NULL)
34                 );
35 
36   insert into IEX_APP_PREFERENCES_TL (
37     PREFERENCE_ID,
38     USER_NAME,
39     LAST_UPDATE_DATE,
40     LAST_UPDATED_BY,
41     CREATION_DATE,
42     CREATED_BY,
43     LAST_UPDATE_LOGIN,
44     LANGUAGE,
45     SOURCE_LANG
46   ) select
47     B.PREFERENCE_ID,
48     B.USER_NAME,
49     B.LAST_UPDATE_DATE,
50     B.LAST_UPDATED_BY,
51     B.CREATION_DATE,
52     B.CREATED_BY,
53     B.LAST_UPDATE_LOGIN,
54     L.LANGUAGE_CODE,
55     B.SOURCE_LANG
56   from IEX_APP_PREFERENCES_TL B, FND_LANGUAGES L
57   where L.INSTALLED_FLAG in ('I', 'B')
58   and B.LANGUAGE = userenv('LANG')
59   and not exists
60     (select NULL
61      from IEX_APP_PREFERENCES_TL T
62      where T.PREFERENCE_ID = B.PREFERENCE_ID
63      and T.LANGUAGE = L.LANGUAGE_CODE);
64 
65 end ADD_LANGUAGE;
66 
67 
68 procedure TRANSLATE_ROW (
69   X_PREFERENCE_ID in NUMBER,
70   X_USER_NAME in VARCHAR2,
71   X_OBJECT_VERSION_NUMBER in NUMBER,
72   X_OWNER in VARCHAR2
73 ) IS
74 
75 begin
76 	UPDATE IEX_APP_PREFERENCES_TL SET
77 		USER_NAME=X_USER_NAME,
78 		last_update_date = sysdate,
79 		last_updated_by = decode(X_OWNER, 'SEED', 1, 0),
80 		last_update_login = 0,
81 		source_lang = userenv('LANG')
82 	WHERE userenv('LANG') in (LANGUAGE, SOURCE_LANG)
83           AND PREFERENCE_ID = X_PREFERENCE_ID;
84 end TRANSLATE_ROW;
85 
86 end IEX_APP_PREFERENCES_PKG;