PACKAGE BODY: APPS.IBW_URL_PATTERNS_PVT

Source

1 package body IBW_URL_PATTERNS_PVT as
2 /* $Header: IBWURLB.pls 120.2 2005/10/28 01:32 vekancha noship $*/
3 
4   -- HISTORY
5   --   10/27/05           VEKANCHA         Created this file.
6   -- **************************************************************************
7 
8 
9 procedure ADD_LANGUAGE
10 is
11 begin
12   delete from IBW_URL_PATTERNS_TL T
13   where not exists
14     (select NULL
15     from IBW_URL_PATTERNS_B B
16     where B.URL_PATTERN_ID = T.URL_PATTERN_ID
17     );
18 
19   update IBW_URL_PATTERNS_TL T set (
20       DESCRIPTION
21     ) = (select
22       B.DESCRIPTION
23     from IBW_URL_PATTERNS_TL B
24     where B.URL_PATTERN_ID = T.URL_PATTERN_ID
25     and B.LANGUAGE = T.SOURCE_LANG)
26   where (
27       T.URL_PATTERN_ID,
28       T.LANGUAGE
29   ) in (select
30       SUBT.URL_PATTERN_ID,
31       SUBT.LANGUAGE
32     from IBW_URL_PATTERNS_TL SUBB, IBW_URL_PATTERNS_TL SUBT
33     where SUBB.URL_PATTERN_ID = SUBT.URL_PATTERN_ID
34     and SUBB.LANGUAGE = SUBT.SOURCE_LANG
35     and (SUBB.DESCRIPTION <> SUBT.DESCRIPTION
36       or (SUBB.DESCRIPTION is null and SUBT.DESCRIPTION is not null)
37       or (SUBB.DESCRIPTION is not null and SUBT.DESCRIPTION is null)
38   ));
39 
40   insert into IBW_URL_PATTERNS_TL (
41     URL_PATTERN_ID,
42     DESCRIPTION,
43     CREATED_BY,
44     OBJECT_VERSION_NUMBER,
45     CREATION_DATE,
46     LAST_UPDATED_BY,
47     LAST_UPDATE_DATE,
48     LAST_UPDATE_LOGIN,
49     PROGRAM_ID,
50     PROGRAM_LOGIN_ID,
51     PROGRAM_APPLICATION_ID,
52     REQUEST_ID,
53     LANGUAGE,
54     SOURCE_LANG
55   ) select /*+ ORDERED */
56     B.URL_PATTERN_ID,
57     B.DESCRIPTION,
58     B.CREATED_BY,
59     B.OBJECT_VERSION_NUMBER,
60     B.CREATION_DATE,
61     B.LAST_UPDATED_BY,
62     B.LAST_UPDATE_DATE,
63     B.LAST_UPDATE_LOGIN,
64     B.PROGRAM_ID,
65     B.PROGRAM_LOGIN_ID,
66     B.PROGRAM_APPLICATION_ID,
67     B.REQUEST_ID,
68     L.LANGUAGE_CODE,
69     B.SOURCE_LANG
70   from IBW_URL_PATTERNS_TL B, FND_LANGUAGES L
71   where L.INSTALLED_FLAG in ('I', 'B')
72   and B.LANGUAGE = userenv('LANG')
73   and not exists
74     (select NULL
75     from IBW_URL_PATTERNS_TL T
76     where T.URL_PATTERN_ID = B.URL_PATTERN_ID
77     and T.LANGUAGE = L.LANGUAGE_CODE);
78 end ADD_LANGUAGE;
79 
80 end IBW_URL_PATTERNS_PVT;
81