[Home] [Help]
PACKAGE BODY: APPS.XDO_CURRENCY_FORMAT_SETS_PKG
Source
1 package body XDO_CURRENCY_FORMAT_SETS_PKG as
2 /* $Header: XDOCURFB.pls 120.1 2005/12/27 12:08:57 bgkim noship $ */
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 CREATED_BY,
99 CREATION_DATE,
100 LAST_UPDATED_BY,
101 LAST_UPDATE_DATE,
102 LAST_UPDATE_LOGIN,
103 LANGUAGE,
104 SOURCE_LANG
105 ) select /*+ ORDERED */
106 B.FORMAT_SET_CODE,
107 B.CREATED_BY,
108 B.CREATION_DATE,
109 B.LAST_UPDATED_BY,
110 B.LAST_UPDATE_DATE,
111 B.LAST_UPDATE_LOGIN,
112 L.LANGUAGE_CODE,
113 B.SOURCE_LANG
114 from XDO_CURRENCY_FORMAT_SETS_TL B, FND_LANGUAGES L
115 where L.INSTALLED_FLAG in ('I', 'B')
116 and B.LANGUAGE = userenv('LANG')
117 and not exists
118 (select NULL
119 from XDO_CURRENCY_FORMAT_SETS_TL T
120 where T.FORMAT_SET_CODE = B.FORMAT_SET_CODE
121 and T.LANGUAGE = L.LANGUAGE_CODE);
122 end ADD_LANGUAGE;
123
124 end XDO_CURRENCY_FORMAT_SETS_PKG;