[Home] [Help]
PACKAGE BODY: APPS.ENG_CHANGE_RULE_ATTRIBUTES_PKG
Source
1 package body ENG_CHANGE_RULE_ATTRIBUTES_PKG as
2 /* $Header: ENGCRATB.pls 115.0 2004/01/27 11:46:51 srajapar noship $ */
3
4 PROCEDURE ADD_LANGUAGE IS
5 BEGIN
6 delete from ENG_CHANGE_RULE_ATTRIBUTES_TL T
7 where not exists
8 (select NULL
9 from ENG_CHANGE_RULE_ATTRIBUTES_B B
10 where B.ATTRIBUTE_OBJECT_NAME = T.ATTRIBUTE_OBJECT_NAME
11 and B.ATTRIBUTE_CODE = T.ATTRIBUTE_CODE
12 );
13
14 update ENG_CHANGE_RULE_ATTRIBUTES_TL T set (
15 ATTRIBUTE_NAME,
16 DISPLAY_COLUMN1_NAME,
17 DISPLAY_COLUMN2_NAME
18 ) = (select
19 B.ATTRIBUTE_NAME,
20 B.DISPLAY_COLUMN1_NAME,
21 B.DISPLAY_COLUMN2_NAME
22 from ENG_CHANGE_RULE_ATTRIBUTES_TL B
23 where B.ATTRIBUTE_OBJECT_NAME = T.ATTRIBUTE_OBJECT_NAME
24 and B.ATTRIBUTE_CODE = T.ATTRIBUTE_CODE
25 and B.LANGUAGE = T.SOURCE_LANG)
26 where ( T.ATTRIBUTE_OBJECT_NAME,
27 T.ATTRIBUTE_CODE,
28 T.LANGUAGE
29 ) in
30 (select SUBT.ATTRIBUTE_OBJECT_NAME,
31 SUBT.ATTRIBUTE_CODE,
32 SUBT.LANGUAGE
33 from ENG_CHANGE_RULE_ATTRIBUTES_TL SUBB, ENG_CHANGE_RULE_ATTRIBUTES_TL SUBT
34 where SUBB.ATTRIBUTE_OBJECT_NAME = SUBT.ATTRIBUTE_OBJECT_NAME
35 and SUBB.ATTRIBUTE_CODE = SUBT.ATTRIBUTE_CODE
36 and SUBB.LANGUAGE = SUBT.SOURCE_LANG
37 and (SUBB.ATTRIBUTE_NAME <> SUBT.ATTRIBUTE_NAME
38 or SUBB.DISPLAY_COLUMN1_NAME <> SUBT.DISPLAY_COLUMN1_NAME
39 or SUBB.DISPLAY_COLUMN2_NAME <> SUBT.DISPLAY_COLUMN2_NAME
40 or (SUBB.DISPLAY_COLUMN2_NAME is null
41 and
42 SUBT.DISPLAY_COLUMN2_NAME is not null)
43 or (SUBB.DISPLAY_COLUMN2_NAME is not null
44 and
45 SUBT.DISPLAY_COLUMN2_NAME is null)
46 )
47 );
48
49 insert into ENG_CHANGE_RULE_ATTRIBUTES_TL (
50 ATTRIBUTE_OBJECT_NAME,
51 ATTRIBUTE_CODE,
52 ATTRIBUTE_NAME,
53 DISPLAY_COLUMN1_NAME,
54 DISPLAY_COLUMN2_NAME,
55 CREATION_DATE,
56 CREATED_BY,
57 LAST_UPDATE_DATE,
58 LAST_UPDATED_BY,
59 LAST_UPDATE_LOGIN,
60 LANGUAGE,
61 SOURCE_LANG
62 ) select
63 B.ATTRIBUTE_OBJECT_NAME,
64 B.ATTRIBUTE_CODE,
65 B.ATTRIBUTE_NAME,
66 B.DISPLAY_COLUMN1_NAME,
67 B.DISPLAY_COLUMN2_NAME,
68 B.CREATION_DATE,
69 B.CREATED_BY,
70 B.LAST_UPDATE_DATE,
71 B.LAST_UPDATED_BY,
72 B.LAST_UPDATE_LOGIN,
73 L.LANGUAGE_CODE,
74 B.SOURCE_LANG
75 from ENG_CHANGE_RULE_ATTRIBUTES_TL B, FND_LANGUAGES L
76 where L.INSTALLED_FLAG in ('I', 'B')
77 and B.LANGUAGE = userenv('LANG')
78 and not exists
79 (select NULL
80 from ENG_CHANGE_RULE_ATTRIBUTES_TL T
81 where T.ATTRIBUTE_OBJECT_NAME = B.ATTRIBUTE_OBJECT_NAME
82 and T.ATTRIBUTE_CODE = B.ATTRIBUTE_CODE
83 and T.LANGUAGE = L.LANGUAGE_CODE);
84 end ADD_LANGUAGE;
85
86 end ENG_CHANGE_RULE_ATTRIBUTES_PKG;