PACKAGE BODY: APPS.XDO_CURRENCY_FORMAT_SETS_PKG

Source

1 package body XDO_CURRENCY_FORMAT_SETS_PKG as
2 /* $Header: XDOCURFB.pls 120.2 2010/02/19 17:47:06 bgkim ship $ */
3 
4 procedure INSERT_ROW (
5           P_FORMAT_SET_CODE in VARCHAR2,
6           P_FORMAT_SET_NAME in VARCHAR2,
7           P_CREATION_DATE in DATE,
8           P_CREATED_BY in NUMBER,
9           P_LAST_UPDATE_DATE in DATE,
10           P_LAST_UPDATED_BY in NUMBER,
11           P_LAST_UPDATE_LOGIN in NUMBER
12 ) is
13 begin
14   insert into XDO_CURRENCY_FORMAT_SETS_B (
15           FORMAT_SET_CODE,
16           CREATION_DATE,
17           CREATED_BY,
18           LAST_UPDATE_DATE,
19           LAST_UPDATED_BY,
20           LAST_UPDATE_LOGIN
21   ) values (
22           P_FORMAT_SET_CODE,
23           P_CREATION_DATE,
24           P_CREATED_BY,
25           P_LAST_UPDATE_DATE,
26           P_LAST_UPDATED_BY,
27           P_LAST_UPDATE_LOGIN
28   );
29 
30   insert into XDO_CURRENCY_FORMAT_SETS_TL (
31     FORMAT_SET_CODE,
32     FORMAT_SET_NAME,
33     CREATION_DATE,
34     CREATED_BY,
35     LAST_UPDATE_DATE,
36     LAST_UPDATED_BY,
37     LAST_UPDATE_LOGIN,
38     LANGUAGE,
39     SOURCE_LANG
40   ) select P_FORMAT_SET_CODE,
41            P_FORMAT_SET_NAME,
42            P_CREATION_DATE,
43            P_CREATED_BY,
44            P_LAST_UPDATE_DATE,
45            P_LAST_UPDATED_BY,
46            P_LAST_UPDATE_LOGIN,
47            L.LANGUAGE_CODE,
48            userenv('LANG')
49      from FND_LANGUAGES L
50     where L.INSTALLED_FLAG in ('I', 'B')
51       and not exists
52           (select NULL
53              from XDO_CURRENCY_FORMAT_SETS_TL T
54             where T.FORMAT_SET_CODE = P_FORMAT_SET_CODE
55               and T.LANGUAGE = L.LANGUAGE_CODE);
56 
57 end INSERT_ROW;
58 
59 
60 procedure UPDATE_ROW (
61           P_FORMAT_SET_CODE in VARCHAR2,
62           P_FORMAT_SET_NAME in VARCHAR2,
63           P_LAST_UPDATE_DATE in DATE,
64           P_LAST_UPDATED_BY in NUMBER,
65           P_LAST_UPDATE_LOGIN in NUMBER
66 ) is
67 begin
68   update XDO_CURRENCY_FORMAT_SETS_B
69      set LAST_UPDATE_DATE = P_LAST_UPDATE_DATE,
70          LAST_UPDATED_BY = P_LAST_UPDATED_BY,
71          LAST_UPDATE_LOGIN = P_LAST_UPDATE_LOGIN
72   where FORMAT_SET_CODE = P_FORMAT_SET_CODE;
73 
74   if (sql%notfound) then
75     raise no_data_found;
76   end if;
77 
78   update XDO_CURRENCY_FORMAT_SETS_TL set
79     FORMAT_SET_NAME = P_FORMAT_SET_NAME,
80     LAST_UPDATE_DATE = P_LAST_UPDATE_DATE,
81     LAST_UPDATED_BY = P_LAST_UPDATED_BY,
82     LAST_UPDATE_LOGIN = P_LAST_UPDATE_LOGIN,
83     SOURCE_LANG = userenv('LANG')
84   where FORMAT_SET_CODE = P_FORMAT_SET_CODE
85   and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
86 
87   if (sql%notfound) then
88     raise no_data_found;
89   end if;
90 
91 end UPDATE_ROW;
92 
93 
94 procedure ADD_LANGUAGE is
95 begin
96   insert into XDO_CURRENCY_FORMAT_SETS_TL (
97     FORMAT_SET_CODE,
98     FORMAT_SET_NAME,
99     CREATED_BY,
100     CREATION_DATE,
101     LAST_UPDATED_BY,
102     LAST_UPDATE_DATE,
103     LAST_UPDATE_LOGIN,
104     LANGUAGE,
105     SOURCE_LANG
106   ) select /*+ ORDERED */
107     B.FORMAT_SET_CODE,
108     B.FORMAT_SET_NAME,
109     B.CREATED_BY,
110     B.CREATION_DATE,
111     B.LAST_UPDATED_BY,
112     B.LAST_UPDATE_DATE,
113     B.LAST_UPDATE_LOGIN,
114     L.LANGUAGE_CODE,
115     B.SOURCE_LANG
116   from XDO_CURRENCY_FORMAT_SETS_TL B, FND_LANGUAGES L
117   where L.INSTALLED_FLAG in ('I', 'B')
118   and B.LANGUAGE = userenv('LANG')
119   and not exists
120     (select NULL
121     from XDO_CURRENCY_FORMAT_SETS_TL T
122     where T.FORMAT_SET_CODE = B.FORMAT_SET_CODE
123     and T.LANGUAGE = L.LANGUAGE_CODE);
124 end ADD_LANGUAGE;
125 
126 end XDO_CURRENCY_FORMAT_SETS_PKG;