[Home] [Help]
PACKAGE BODY: APPS.GL_BC_OPTIONS_PKG
Source
1 PACKAGE BODY gl_bc_options_pkg AS
2 /* $Header: glnlsbcb.pls 120.5 2005/05/05 02:06:55 kvora ship $ */
3
4 Procedure load_row(
5 x_bc_option_id in number,
6 x_bc_option_name in varchar2,
7 x_description in varchar2,
8 x_context in varchar2,
9 x_attribute1 in varchar2,
10 x_attribute2 in varchar2,
11 x_attribute3 in varchar2,
12 x_attribute4 in varchar2,
13 x_attribute5 in varchar2,
14 x_attribute6 in varchar2,
15 x_attribute7 in varchar2,
16 x_attribute8 in varchar2,
17 x_attribute9 in varchar2,
18 x_attribute10 in varchar2,
19 x_attribute11 in varchar2,
20 x_attribute12 in varchar2,
21 x_attribute13 in varchar2,
22 x_attribute14 in varchar2,
23 x_attribute15 in varchar2,
24 x_owner in varchar2,
25 x_force_edits in varchar2 default 'N'
26 )as
27
28 user_id number := 0;
29 v_creation_date date;
30 v_rowid rowid := null;
31
32 BEGIN
33
34 -- validate input parameters
35 if ( x_bc_option_id is null) then
36
37 fnd_message.set_name('SQLGL', 'GL_LOAD_ROW_NO_DATA');
38 app_exception.raise_exception;
39 end if;
40
41 if (X_OWNER = 'SEED') then
42 user_id := 1;
43 end if;
44
45 begin
46
47 /* Check if the row exists in the database. If it does, retrieves
48 the creation date for update_row. */
49
50 select creation_date,rowid
51 into v_creation_date, v_rowid
52 from gl_bc_options
53 where bc_option_id = x_bc_option_id;
54
55 /* Update only if force_edits is 'Y' or it is seed data */
56 if ((x_force_edits = 'Y') OR (x_owner = 'SEED')) THEN
57 -- update row if present
58 gl_bc_options_pkg.update_row(
59 x_row_id => v_rowid ,
60 x_bc_option_id => x_bc_option_id,
61 x_bc_option_name => x_bc_option_name,
62 x_description => x_description,
63 x_context => x_Context,
64 x_attribute1 => x_attribute1,
65 x_attribute2 => x_attribute2,
66 x_attribute3 => x_attribute3,
67 x_attribute4 => x_attribute4,
68 x_attribute5 => x_attribute5,
69 x_attribute6 => x_attribute6,
70 x_attribute7 => x_attribute7,
71 x_attribute8 => x_attribute8,
72 x_attribute9 => x_attribute9,
73 x_attribute10 => x_attribute10,
74 x_attribute11 => x_attribute11,
75 x_attribute12 => x_attribute12,
76 x_attribute13 => x_attribute13,
77 x_attribute14 => x_attribute14,
78 x_attribute15 => x_attribute15,
79 x_last_update_date => sysdate,
80 x_last_updated_by => user_id,
81 x_last_update_login => 0,
82 x_creation_date => v_creation_date
83 );
84 end if;
85
86 exception
87 when NO_DATA_FOUND then
88 gl_bc_options_pkg.insert_row(
89 x_row_id => v_rowid ,
90 x_bc_option_id => x_bc_option_id,
91 x_bc_option_name => x_bc_option_name,
92 x_description => x_description,
93 x_context => x_Context,
94 x_attribute1 => x_attribute1,
95 x_attribute2 => x_attribute2,
96 x_attribute3 => x_attribute3,
97 x_attribute4 => x_attribute4,
98 x_attribute5 => x_attribute5,
99 x_attribute6 => x_attribute6,
100 x_attribute7 => x_attribute7,
101 x_attribute8 => x_attribute8,
102 x_attribute9 => x_attribute9,
103 x_attribute10 => x_attribute10,
104 x_attribute11 => x_attribute11,
105 x_attribute12 => x_attribute12,
106 x_attribute13 => x_attribute13,
107 x_attribute14 => x_attribute14,
108 x_attribute15 => x_attribute15,
109 x_last_update_date => sysdate,
110 x_last_updated_by => user_id,
111 x_last_update_login => 0,
112 x_creation_date => sysdate,
113 x_created_by => user_id
114 );
115 end ;
116 End load_row;
117
118 Procedure translate_row (
119 x_bc_option_id in number,
120 x_bc_option_name in varchar2,
121 x_description in varchar2,
122 x_owner in varchar2,
123 x_force_edits in varchar2
124 ) as
125
126 user_id number := 0;
127
128 Begin
129
130 if (X_OWNER = 'SEED') then
131 user_id := 1;
132 end if;
133
134 /* Update only if force_edits is 'Y' or it is seed data */
135 if ((x_force_edits = 'Y') OR (x_owner = 'SEED')) then
136 update gl_bc_options
137 set
138 bc_option_name = x_bc_option_name,
139 description = x_description,
140 last_update_date = sysdate,
141 last_updated_by = user_id,
142 last_update_login = 0
143 where bc_option_id = x_bc_option_id
144 and userenv('LANG') =
145 ( select language_code
146 from fnd_languages
147 where installed_flag = 'B' );
148 end if;
149
150 /*If base language is not set to the language being uploaded, then do nothing.*/
151 if (sql%notfound) then
152 null;
153 end if;
154
155 End Translate_Row;
156
157
158
159
160 procedure update_row(
161 x_row_id in varchar2,
162 x_bc_option_id in number,
163 x_bc_option_name in varchar2,
164 x_description in varchar2,
165 x_context in varchar2,
166 x_attribute1 in varchar2,
167 x_attribute2 in varchar2,
168 x_attribute3 in varchar2,
169 x_attribute4 in varchar2,
170 x_attribute5 in varchar2,
171 x_attribute6 in varchar2,
172 x_attribute7 in varchar2,
173 x_attribute8 in varchar2,
174 x_attribute9 in varchar2,
175 x_attribute10 in varchar2,
176 x_attribute11 in varchar2,
177 x_attribute12 in varchar2,
178 x_attribute13 in varchar2,
179 x_attribute14 in varchar2,
180 x_attribute15 in varchar2,
181 x_last_update_date in date,
182 x_last_updated_by in number,
183 x_last_update_login in number ,
184 x_creation_date in date
185 ) as
186 begin
187
188 --update non translatable column
189 Update gl_bc_options
190 set bc_option_id = x_bc_option_id,
191 bc_option_name = x_bc_option_name,
192 context = x_context,
193 attribute1 = x_attribute1,
194 attribute2 = x_attribute2,
195 attribute3 = x_attribute3,
196 attribute4 = x_attribute4,
197 attribute5 = x_attribute5,
198 attribute6 = x_attribute6,
199 attribute7 = x_attribute7,
200 attribute8 = x_attribute8,
201 attribute9 = x_attribute9,
202 attribute10 = x_attribute10,
203 attribute11 = x_attribute11,
204 attribute12 = x_attribute12,
205 attribute13 = x_attribute13,
206 attribute14 = x_attribute14,
207 attribute15 = x_attribute15,
208 last_update_date = x_last_update_date,
209 last_updated_by = x_last_update_login,
210 creation_date = x_creation_date,
211 description = x_description
212 where bc_option_id = x_bc_option_id;
213
214
215 if (sql%notfound) then
216 raise no_data_found;
217 end if;
218
219 end ;
220
221 procedure insert_row (
222 x_row_id in out NOCOPY varchar2,
223 x_bc_option_id in number,
224 x_bc_option_name in varchar2,
225 x_description in varchar2,
226 x_context in varchar2,
227 x_attribute1 in varchar2,
228 x_attribute2 in varchar2,
229 x_attribute3 in varchar2,
230 x_attribute4 in varchar2,
231 x_attribute5 in varchar2,
232 x_attribute6 in varchar2,
233 x_attribute7 in varchar2,
234 x_attribute8 in varchar2,
235 x_attribute9 in varchar2,
236 x_attribute10 in varchar2,
237 x_attribute11 in varchar2,
238 x_attribute12 in varchar2,
239 x_attribute13 in varchar2,
240 x_attribute14 in varchar2,
241 x_attribute15 in varchar2,
242 x_last_update_date in date,
243 x_last_updated_by in number,
244 x_last_update_login in number,
245 x_creation_date in date,
246 x_created_by in number
247 ) as
248
249 cursor bc_option_row is
250 select rowid
251 from gl_bc_options
252 where bc_option_id = x_bc_option_id;
253
254 begin
255
256 if (x_bc_option_id is NULL) then
257 raise no_data_found;
258 end if;
259
260 INSERT INTO GL_BC_OPTIONS(
261 bc_option_id,
262 bc_option_name,
263 last_update_date,
264 last_updated_by,
265 creation_date,
266 created_by,
267 last_update_login,
268 description,
269 attribute1,
270 attribute2,
271 attribute3,
272 attribute4,
273 attribute5,
274 attribute6,
275 attribute7,
276 attribute8,
277 attribute9,
278 attribute10,
279 attribute11,
280 attribute12,
281 attribute13,
282 attribute14,
283 attribute15,
284 context)
285 SELECT
286 x_bc_option_id,
287 x_bc_option_name,
288 x_Last_Update_Date,
289 x_Last_Updated_By,
290 x_Creation_Date,
291 x_Created_By,
292 x_Last_Update_Login,
293 x_Description,
294 x_Attribute1,
295 x_Attribute2,
296 x_Attribute3,
297 x_Attribute4,
298 x_Attribute5,
299 x_Attribute6,
300 x_Attribute7,
301 x_Attribute8,
302 x_Attribute9,
303 x_Attribute10,
304 x_Attribute11,
305 x_Attribute12,
306 x_Attribute13,
307 x_Attribute14,
308 x_Attribute15,
309 x_context
310 from dual
311 where not exists
312 ( select null
313 from gl_bc_options B
314 where B.bc_option_id = x_bc_option_id );
315
316
317 open bc_option_row;
318 fetch bc_option_row into x_row_id;
319 if (bc_option_row%notfound) then
320 close bc_option_row;
321 raise no_data_found;
322 end if;
323 close bc_option_row;
324
325 end insert_row;
326
327 end gl_bc_options_pkg;