PACKAGE BODY: APPS.XDO_DGF_RULE_CATALOG_PKG

Source

1 package body XDO_DGF_RULE_CATALOG_PKG as
2 /* $Header: XDODGFRCB.pls 120.0 2008/04/03 17:49:13 bgkim noship $ */
3 
4 procedure ADD_LANGUAGE is
5 begin
6   insert into XDO_DGF_RULE_CATALOG_TL (
7     RULE_CATALOG_ID,
8     RULE_VALUES,
9     RULE_DESCRIPTION,
10     CREATED_BY,
11     CREATION_DATE,
12     LAST_UPDATED_BY,
13     LAST_UPDATE_DATE,
14     LAST_UPDATE_LOGIN,
15     LANGUAGE,
16     SOURCE_LANG
17   ) select /*+ ORDERED */
18     B.RULE_CATALOG_ID,
19     B.RULE_VALUES,
20     B.RULE_DESCRIPTION,
21     B.CREATED_BY,
22     B.CREATION_DATE,
23     B.LAST_UPDATED_BY,
24     B.LAST_UPDATE_DATE,
25     B.LAST_UPDATE_LOGIN,
26     L.LANGUAGE_CODE,
27     B.SOURCE_LANG
28   from XDO_DGF_RULE_CATALOG_TL B, FND_LANGUAGES L
29   where L.INSTALLED_FLAG in ('I', 'B')
30   and B.LANGUAGE = userenv('LANG')
31   and not exists
32     (select NULL
33     from XDO_DGF_RULE_CATALOG_TL T
34     where T.RULE_CATALOG_ID = B.RULE_CATALOG_ID
35     and T.LANGUAGE = L.LANGUAGE_CODE);
36 end ADD_LANGUAGE;
37 
38 end XDO_DGF_RULE_CATALOG_PKG;