[Home] [Help]
PACKAGE BODY: APPS.AR_BPA_ITEMS_PKG
Source
1 package body AR_BPA_ITEMS_PKG as
2 /* $Header: ARBPITMB.pls 120.2 2005/10/30 04:13:33 appldev noship $ */
3 procedure INSERT_ROW (
4 X_ROWID in out nocopy VARCHAR2,
5 X_AMOUNT_ITEM_FLAG in VARCHAR2,
6 X_ASSIGNMENT_ENABLED_FLAG in VARCHAR2,
7 X_DATA_SOURCE_ID in NUMBER,
8 X_DISPLAY_ENABLED_FLAG in VARCHAR2,
9 X_DISPLAY_LEVEL in VARCHAR2,
10 X_DISPLAY_PROMPT in VARCHAR2,
11 X_ITEM_CODE in VARCHAR2,
12 X_ITEM_DESCRIPTION in VARCHAR2,
13 X_ITEM_ID in NUMBER,
14 X_ITEM_IMAGE_FILENAME in VARCHAR2,
15 X_ITEM_MESSAGE_NAME in VARCHAR2,
16 X_ITEM_NAME in VARCHAR2,
17 X_ITEM_SOURCE in VARCHAR2,
18 X_ITEM_TEXT_VALUE in VARCHAR2,
19 X_ITEM_TYPE in VARCHAR2,
20 X_URL_ID in NUMBER,
21 X_CREATION_DATE in DATE,
22 X_CREATED_BY in NUMBER,
23 X_LAST_UPDATE_DATE in DATE,
24 X_LAST_UPDATED_BY in NUMBER,
25 X_LAST_UPDATE_LOGIN in NUMBER,
26 X_DISPLAYED_MULTI_LEVEL_FLAG in VARCHAR2,
27 X_SEEDED_APPLICATION_ID in NUMBER,
28 X_TAX_ITEM_FLAG in VARCHAR2,
29 X_TOTALS_ENABLED_FLAG in VARCHAR2,
30 X_LINK_ENABLED_FLAG in VARCHAR2,
31 X_DATA_TYPE in VARCHAR2,
32 X_URLCFG_ENABLED_FLAG in VARCHAR2,
33 X_FLEXFIELD_ITEM_FLAG in VARCHAR2,
34 X_COLUMN_NAME in VARCHAR2
35 ) is
36 cursor C is select ROWID from AR_BPA_ITEMS_B
37 where ITEM_ID = X_ITEM_ID
38 ;
39 begin
40 insert into AR_BPA_ITEMS_B (
41 ITEM_ID,
42 ITEM_CODE,
43 ITEM_SOURCE,
44 ITEM_TYPE,
45 DISPLAY_LEVEL,
46 DATA_SOURCE_ID,
47 DISPLAY_ENABLED_FLAG,
48 ASSIGNMENT_ENABLED_FLAG,
49 AMOUNT_ITEM_FLAG,
50 URL_ID,
51 ITEM_IMAGE_FILENAME,
52 ITEM_MESSAGE_NAME,
53 CREATION_DATE,
54 CREATED_BY,
55 LAST_UPDATE_DATE,
56 LAST_UPDATED_BY,
57 LAST_UPDATE_LOGIN,
58 DISPLAYED_MULTI_LEVEL_FLAG,
59 SEEDED_APPLICATION_ID,
60 TAX_ITEM_FLAG,
61 TOTALS_ENABLED_FLAG,
62 LINK_ENABLED_FLAG,
63 DATA_TYPE,
64 URLCFG_ENABLED_FLAG,
65 FLEXFIELD_ITEM_FLAG,
66 COLUMN_NAME
67 ) values (
68 X_ITEM_ID,
69 X_ITEM_CODE,
70 X_ITEM_SOURCE,
71 X_ITEM_TYPE,
72 X_DISPLAY_LEVEL,
73 X_DATA_SOURCE_ID,
74 X_DISPLAY_ENABLED_FLAG,
75 X_ASSIGNMENT_ENABLED_FLAG,
76 X_AMOUNT_ITEM_FLAG,
77 X_URL_ID,
78 X_ITEM_IMAGE_FILENAME,
79 X_ITEM_MESSAGE_NAME,
80 X_CREATION_DATE,
81 X_CREATED_BY,
82 X_LAST_UPDATE_DATE,
83 X_LAST_UPDATED_BY,
84 X_LAST_UPDATE_LOGIN,
85 X_DISPLAYED_MULTI_LEVEL_FLAG,
86 X_SEEDED_APPLICATION_ID,
87 X_TAX_ITEM_FLAG,
88 X_TOTALS_ENABLED_FLAG,
89 X_LINK_ENABLED_FLAG,
90 X_DATA_TYPE,
91 X_URLCFG_ENABLED_FLAG,
92 X_FLEXFIELD_ITEM_FLAG,
93 X_COLUMN_NAME
94 );
95
96 insert into AR_BPA_ITEMS_TL (
97 ITEM_ID,
98 ITEM_NAME,
99 ITEM_TEXT_VALUE,
100 DISPLAY_PROMPT,
101 ITEM_DESCRIPTION,
102 LAST_UPDATE_DATE,
103 LAST_UPDATED_BY,
104 CREATION_DATE,
105 CREATED_BY,
106 LAST_UPDATE_LOGIN,
107 LANGUAGE,
108 SOURCE_LANG
109 ) select
110 X_ITEM_ID,
111 X_ITEM_NAME,
112 X_ITEM_TEXT_VALUE,
113 X_DISPLAY_PROMPT,
114 X_ITEM_DESCRIPTION,
115 X_LAST_UPDATE_DATE,
116 X_LAST_UPDATED_BY,
117 X_CREATION_DATE,
118 X_CREATED_BY,
119 X_LAST_UPDATE_LOGIN,
120 L.LANGUAGE_CODE,
121 userenv('LANG')
122 from FND_LANGUAGES L
123 where L.INSTALLED_FLAG in ('I', 'B')
124 and not exists
125 (select NULL
126 from AR_BPA_ITEMS_TL T
127 where T.ITEM_ID = X_ITEM_ID
128 and T.LANGUAGE = L.LANGUAGE_CODE);
129
130 open c;
131 fetch c into X_ROWID;
132 if (c%notfound) then
133 close c;
134 raise no_data_found;
135 end if;
136 close c;
137
138 end INSERT_ROW;
139
140 procedure LOCK_ROW (
141 X_ITEM_ID in NUMBER,
142 X_ITEM_CODE in VARCHAR2,
143 X_ITEM_SOURCE in VARCHAR2,
144 X_ITEM_TYPE in VARCHAR2,
145 X_DISPLAY_LEVEL in VARCHAR2,
146 X_DATA_SOURCE_ID in NUMBER,
147 X_DISPLAY_ENABLED_FLAG in VARCHAR2,
148 X_ASSIGNMENT_ENABLED_FLAG in VARCHAR2,
149 X_AMOUNT_ITEM_FLAG in VARCHAR2,
150 X_URL_ID in NUMBER,
151 X_ITEM_IMAGE_FILENAME in VARCHAR2,
152 X_ITEM_MESSAGE_NAME in VARCHAR2,
153 X_DISPLAYED_MULTI_LEVEL_FLAG in VARCHAR2,
154 X_SEEDED_APPLICATION_ID in NUMBER,
155 X_TAX_ITEM_FLAG in VARCHAR2,
156 X_TOTALS_ENABLED_FLAG in VARCHAR2,
157 X_LINK_ENABLED_FLAG in VARCHAR2,
158 X_DATA_TYPE in VARCHAR2,
159 X_URLCFG_ENABLED_FLAG in VARCHAR2,
160 X_FLEXFIELD_ITEM_FLAG in VARCHAR2,
161 X_COLUMN_NAME in VARCHAR2,
162 X_ITEM_NAME in VARCHAR2,
163 X_ITEM_TEXT_VALUE in VARCHAR2,
164 X_DISPLAY_PROMPT in VARCHAR2,
165 X_ITEM_DESCRIPTION in VARCHAR2
166 ) is
167 cursor c is select
168 ITEM_CODE,
169 ITEM_SOURCE,
170 ITEM_TYPE,
171 DISPLAY_LEVEL,
172 DATA_SOURCE_ID,
173 DISPLAY_ENABLED_FLAG,
174 ASSIGNMENT_ENABLED_FLAG,
175 AMOUNT_ITEM_FLAG,
176 URL_ID,
177 ITEM_IMAGE_FILENAME,
178 ITEM_MESSAGE_NAME,
179 DISPLAYED_MULTI_LEVEL_FLAG,
180 SEEDED_APPLICATION_ID,
181 TAX_ITEM_FLAG,
182 TOTALS_ENABLED_FLAG,
183 LINK_ENABLED_FLAG,
184 DATA_TYPE,
185 URLCFG_ENABLED_FLAG,
186 FLEXFIELD_ITEM_FLAG,
187 COLUMN_NAME
188 from AR_BPA_ITEMS_B
189 where ITEM_ID = X_ITEM_ID
190 for update of ITEM_ID nowait;
191 recinfo c%rowtype;
192
193 cursor c1 is select
194 ITEM_NAME,
195 ITEM_TEXT_VALUE,
196 DISPLAY_PROMPT,
197 ITEM_DESCRIPTION,
198 decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
199 from AR_BPA_ITEMS_TL
200 where ITEM_ID = X_ITEM_ID
201 and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
202 for update of ITEM_ID nowait;
203 begin
204 open c;
205 fetch c into recinfo;
206 if (c%notfound) then
207 close c;
208 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
209 app_exception.raise_exception;
210 end if;
211 close c;
212 if ( ((recinfo.ITEM_CODE = X_ITEM_CODE)
213 OR ((recinfo.ITEM_CODE is null) AND (X_ITEM_CODE is null)))
214 AND (recinfo.ITEM_SOURCE = X_ITEM_SOURCE)
215 AND (recinfo.ITEM_TYPE = X_ITEM_TYPE)
216 AND (recinfo.DISPLAY_LEVEL = X_DISPLAY_LEVEL)
217 AND ((recinfo.DATA_SOURCE_ID = X_DATA_SOURCE_ID)
218 OR ((recinfo.DATA_SOURCE_ID is null) AND (X_DATA_SOURCE_ID is null)))
219 AND ((recinfo.DISPLAY_ENABLED_FLAG = X_DISPLAY_ENABLED_FLAG)
220 OR ((recinfo.DISPLAY_ENABLED_FLAG is null) AND (X_DISPLAY_ENABLED_FLAG is null)))
221 AND ((recinfo.ASSIGNMENT_ENABLED_FLAG = X_ASSIGNMENT_ENABLED_FLAG)
222 OR ((recinfo.ASSIGNMENT_ENABLED_FLAG is null) AND (X_ASSIGNMENT_ENABLED_FLAG is null)))
223 AND ((recinfo.AMOUNT_ITEM_FLAG = X_AMOUNT_ITEM_FLAG)
224 OR ((recinfo.AMOUNT_ITEM_FLAG is null) AND (X_AMOUNT_ITEM_FLAG is null)))
225 AND ((recinfo.URL_ID = X_URL_ID)
226 OR ((recinfo.URL_ID is null) AND (X_URL_ID is null)))
227 AND ((recinfo.ITEM_IMAGE_FILENAME = X_ITEM_IMAGE_FILENAME)
228 OR ((recinfo.ITEM_IMAGE_FILENAME is null) AND (X_ITEM_IMAGE_FILENAME is null)))
229 AND ((recinfo.ITEM_MESSAGE_NAME = X_ITEM_MESSAGE_NAME)
230 OR ((recinfo.ITEM_MESSAGE_NAME is null) AND (X_ITEM_MESSAGE_NAME is null)))
231 AND ((recinfo.DISPLAYED_MULTI_LEVEL_FLAG = X_DISPLAYED_MULTI_LEVEL_FLAG)
232 OR ((recinfo.DISPLAYED_MULTI_LEVEL_FLAG is null) AND (X_DISPLAYED_MULTI_LEVEL_FLAG is null)))
233 AND ((recinfo.SEEDED_APPLICATION_ID = X_SEEDED_APPLICATION_ID)
234 OR ((recinfo.SEEDED_APPLICATION_ID is null) AND (X_SEEDED_APPLICATION_ID is null)))
235 AND ((recinfo.TAX_ITEM_FLAG = X_TAX_ITEM_FLAG)
236 OR ((recinfo.TAX_ITEM_FLAG is null) AND (X_TAX_ITEM_FLAG is null)))
237 AND ((recinfo.TOTALS_ENABLED_FLAG = X_TOTALS_ENABLED_FLAG)
238 OR ((recinfo.TOTALS_ENABLED_FLAG is null) AND (X_TOTALS_ENABLED_FLAG is null)))
239 AND ((recinfo.LINK_ENABLED_FLAG = X_LINK_ENABLED_FLAG)
240 OR ((recinfo.LINK_ENABLED_FLAG is null) AND (X_LINK_ENABLED_FLAG is null)))
241 AND ((recinfo.DATA_TYPE = X_DATA_TYPE)
242 OR ((recinfo.DATA_TYPE is null) AND (X_DATA_TYPE is null)))
243 AND ((recinfo.URLCFG_ENABLED_FLAG = X_URLCFG_ENABLED_FLAG)
244 OR ((recinfo.URLCFG_ENABLED_FLAG is null) AND (X_URLCFG_ENABLED_FLAG is null)))
245 AND ((recinfo.FLEXFIELD_ITEM_FLAG = X_FLEXFIELD_ITEM_FLAG)
246 OR ((recinfo.FLEXFIELD_ITEM_FLAG is null) AND (X_FLEXFIELD_ITEM_FLAG is null)))
247 AND ((recinfo.COLUMN_NAME = X_COLUMN_NAME)
248 OR ((recinfo.COLUMN_NAME is null) AND (X_COLUMN_NAME is null)))
249 ) then
250 null;
251 else
252 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
253 app_exception.raise_exception;
254 end if;
255
256 for tlinfo in c1 loop
257 if (tlinfo.BASELANG = 'Y') then
258 if ( (tlinfo.ITEM_NAME = X_ITEM_NAME)
259 AND ((tlinfo.ITEM_TEXT_VALUE = X_ITEM_TEXT_VALUE)
260 OR ((tlinfo.ITEM_TEXT_VALUE is null) AND (X_ITEM_TEXT_VALUE is null)))
261 AND ((tlinfo.DISPLAY_PROMPT = X_DISPLAY_PROMPT)
262 OR ((tlinfo.DISPLAY_PROMPT is null) AND (X_DISPLAY_PROMPT is null)))
263 AND ((tlinfo.ITEM_DESCRIPTION = X_ITEM_DESCRIPTION)
264 OR ((tlinfo.ITEM_DESCRIPTION is null) AND (X_ITEM_DESCRIPTION is null)))
265 ) then
266 null;
267 else
268 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
269 app_exception.raise_exception;
270 end if;
271 end if;
272 end loop;
273 return;
274 end LOCK_ROW;
275
276 procedure UPDATE_ROW (
277 X_AMOUNT_ITEM_FLAG in VARCHAR2,
278 X_ASSIGNMENT_ENABLED_FLAG in VARCHAR2,
279 X_DATA_SOURCE_ID in NUMBER,
280 X_DISPLAY_ENABLED_FLAG in VARCHAR2,
281 X_DISPLAY_LEVEL in VARCHAR2,
282 X_DISPLAY_PROMPT in VARCHAR2,
283 X_ITEM_CODE in VARCHAR2,
284 X_ITEM_DESCRIPTION in VARCHAR2,
285 X_ITEM_ID in NUMBER,
286 X_ITEM_IMAGE_FILENAME in VARCHAR2,
287 X_ITEM_MESSAGE_NAME in VARCHAR2,
288 X_ITEM_NAME in VARCHAR2,
289 X_ITEM_SOURCE in VARCHAR2,
290 X_ITEM_TEXT_VALUE in VARCHAR2,
291 X_ITEM_TYPE in VARCHAR2,
292 X_URL_ID in NUMBER,
293 X_LAST_UPDATE_DATE in DATE,
294 X_LAST_UPDATED_BY in NUMBER,
295 X_LAST_UPDATE_LOGIN in NUMBER,
296 X_DISPLAYED_MULTI_LEVEL_FLAG in VARCHAR2,
297 X_SEEDED_APPLICATION_ID in NUMBER,
298 X_TAX_ITEM_FLAG in VARCHAR2,
299 X_TOTALS_ENABLED_FLAG in VARCHAR2,
300 X_LINK_ENABLED_FLAG in VARCHAR2,
301 X_DATA_TYPE in VARCHAR2,
302 X_URLCFG_ENABLED_FLAG in VARCHAR2,
303 X_FLEXFIELD_ITEM_FLAG in VARCHAR2,
304 X_COLUMN_NAME in VARCHAR2
305 ) is
306 begin
307 update AR_BPA_ITEMS_B set
308 ITEM_CODE = X_ITEM_CODE,
309 ITEM_SOURCE = X_ITEM_SOURCE,
310 ITEM_TYPE = X_ITEM_TYPE,
311 DISPLAY_LEVEL = X_DISPLAY_LEVEL,
312 DATA_SOURCE_ID = X_DATA_SOURCE_ID,
313 DISPLAY_ENABLED_FLAG = X_DISPLAY_ENABLED_FLAG,
314 ASSIGNMENT_ENABLED_FLAG = X_ASSIGNMENT_ENABLED_FLAG,
315 AMOUNT_ITEM_FLAG = X_AMOUNT_ITEM_FLAG,
316 URL_ID = X_URL_ID,
317 ITEM_IMAGE_FILENAME = X_ITEM_IMAGE_FILENAME,
318 ITEM_MESSAGE_NAME = X_ITEM_MESSAGE_NAME,
319 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
320 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
321 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
322 DISPLAYED_MULTI_LEVEL_FLAG = X_DISPLAYED_MULTI_LEVEL_FLAG,
323 SEEDED_APPLICATION_ID = X_SEEDED_APPLICATION_ID,
324 TAX_ITEM_FLAG = X_TAX_ITEM_FLAG,
325 TOTALS_ENABLED_FLAG = X_TOTALS_ENABLED_FLAG,
326 LINK_ENABLED_FLAG = X_LINK_ENABLED_FLAG,
327 DATA_TYPE = X_DATA_TYPE,
328 URLCFG_ENABLED_FLAG = X_URLCFG_ENABLED_FLAG,
329 FLEXFIELD_ITEM_FLAG = X_FLEXFIELD_ITEM_FLAG,
330 COLUMN_NAME = X_COLUMN_NAME
331 where ITEM_ID = X_ITEM_ID;
332
333 if (sql%notfound) then
334 raise no_data_found;
335 end if;
336
337 update AR_BPA_ITEMS_TL set
338 ITEM_NAME = X_ITEM_NAME,
339 ITEM_TEXT_VALUE = X_ITEM_TEXT_VALUE,
340 DISPLAY_PROMPT = X_DISPLAY_PROMPT,
341 ITEM_DESCRIPTION = X_ITEM_DESCRIPTION,
342 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
343 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
344 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
345 SOURCE_LANG = userenv('LANG')
346 where ITEM_ID = X_ITEM_ID
347 and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
348
349 if (sql%notfound) then
350 raise no_data_found;
351 end if;
352 end UPDATE_ROW;
353
354 procedure DELETE_ROW (
355 X_ITEM_ID in NUMBER
356 ) is
357 begin
358 delete from AR_BPA_ITEMS_TL
359 where ITEM_ID = X_ITEM_ID;
360
361 if (sql%notfound) then
362 raise no_data_found;
363 end if;
364
365 delete from AR_BPA_ITEMS_B
366 where ITEM_ID = X_ITEM_ID;
367
368 if (sql%notfound) then
369 raise no_data_found;
370 end if;
371 end DELETE_ROW;
372
373 procedure ADD_LANGUAGE
374 is
375 begin
376 delete from AR_BPA_ITEMS_TL T
377 where not exists
378 (select NULL
379 from AR_BPA_ITEMS_B B
380 where B.ITEM_ID = T.ITEM_ID
381 );
382
383 update AR_BPA_ITEMS_TL T set (
384 ITEM_NAME,
385 ITEM_TEXT_VALUE,
386 DISPLAY_PROMPT,
387 ITEM_DESCRIPTION
388 ) = (select
389 B.ITEM_NAME,
390 B.ITEM_TEXT_VALUE,
391 B.DISPLAY_PROMPT,
392 B.ITEM_DESCRIPTION
393 from AR_BPA_ITEMS_TL B
394 where B.ITEM_ID = T.ITEM_ID
395 and B.LANGUAGE = T.SOURCE_LANG)
396 where (
397 T.ITEM_ID,
398 T.LANGUAGE
399 ) in (select
400 SUBT.ITEM_ID,
401 SUBT.LANGUAGE
402 from AR_BPA_ITEMS_TL SUBB, AR_BPA_ITEMS_TL SUBT
403 where SUBB.ITEM_ID = SUBT.ITEM_ID
404 and SUBB.LANGUAGE = SUBT.SOURCE_LANG
405 and (SUBB.ITEM_NAME <> SUBT.ITEM_NAME
406 or (SUBB.ITEM_NAME is null and SUBT.ITEM_NAME is not null)
407 or (SUBB.ITEM_NAME is not null and SUBT.ITEM_NAME is null)
408 or SUBB.ITEM_TEXT_VALUE <> SUBT.ITEM_TEXT_VALUE
409 or (SUBB.ITEM_TEXT_VALUE is null and SUBT.ITEM_TEXT_VALUE is not null)
410 or (SUBB.ITEM_TEXT_VALUE is not null and SUBT.ITEM_TEXT_VALUE is null)
411 or SUBB.DISPLAY_PROMPT <> SUBT.DISPLAY_PROMPT
412 or (SUBB.DISPLAY_PROMPT is null and SUBT.DISPLAY_PROMPT is not null)
413 or (SUBB.DISPLAY_PROMPT is not null and SUBT.DISPLAY_PROMPT is null)
414 or SUBB.ITEM_DESCRIPTION <> SUBT.ITEM_DESCRIPTION
415 or (SUBB.ITEM_DESCRIPTION is null and SUBT.ITEM_DESCRIPTION is not null)
416 or (SUBB.ITEM_DESCRIPTION is not null and SUBT.ITEM_DESCRIPTION is null)
417 ));
418
419 insert into AR_BPA_ITEMS_TL (
420 ITEM_ID,
421 ITEM_NAME,
422 ITEM_TEXT_VALUE,
423 DISPLAY_PROMPT,
424 ITEM_DESCRIPTION,
425 LAST_UPDATE_DATE,
426 LAST_UPDATED_BY,
427 CREATION_DATE,
428 CREATED_BY,
429 LAST_UPDATE_LOGIN,
430 LANGUAGE,
431 SOURCE_LANG
432 ) select
433 B.ITEM_ID,
434 B.ITEM_NAME,
435 B.ITEM_TEXT_VALUE,
436 B.DISPLAY_PROMPT,
437 B.ITEM_DESCRIPTION,
438 B.LAST_UPDATE_DATE,
439 B.LAST_UPDATED_BY,
440 B.CREATION_DATE,
441 B.CREATED_BY,
442 B.LAST_UPDATE_LOGIN,
443 L.LANGUAGE_CODE,
444 B.SOURCE_LANG
445 from AR_BPA_ITEMS_TL B, FND_LANGUAGES L
446 where L.INSTALLED_FLAG in ('I', 'B')
450 from AR_BPA_ITEMS_TL T
447 and B.LANGUAGE = userenv('LANG')
448 and not exists
449 (select NULL
451 where T.ITEM_ID = B.ITEM_ID
452 and T.LANGUAGE = L.LANGUAGE_CODE);
453 end ADD_LANGUAGE;
454
455 procedure TRANSLATE_ROW (
456 X_ITEM_ID in NUMBER,
457 X_ITEM_NAME in VARCHAR2,
458 X_ITEM_TEXT_VALUE in VARCHAR2,
459 X_DISPLAY_PROMPT in VARCHAR2,
460 X_ITEM_DESCRIPTION in VARCHAR2,
461 X_OWNER in VARCHAR2) IS
462 begin
463
464 update AR_BPA_ITEMS_TL
465 set ITEM_NAME = X_ITEM_NAME,
466 ITEM_TEXT_VALUE = X_ITEM_TEXT_VALUE,
467 DISPLAY_PROMPT = X_DISPLAY_PROMPT,
468 ITEM_DESCRIPTION = X_ITEM_DESCRIPTION,
469 source_lang = userenv('LANG'),
470 last_update_date = sysdate,
471 last_updated_by = decode(X_OWNER, 'SEED', 1, 0),
472 last_update_login = 0
473 where item_id = X_item_id
474 and userenv('LANG') in (language, source_lang);
475
476 end TRANSLATE_ROW;
477
478 procedure LOAD_ROW (
479 X_AMOUNT_ITEM_FLAG IN VARCHAR2,
480 X_ASSIGNMENT_ENABLED_FLAG IN VARCHAR2,
481 X_DATA_SOURCE_ID IN NUMBER,
482 X_DISPLAY_ENABLED_FLAG IN VARCHAR2,
483 X_DISPLAY_LEVEL IN VARCHAR2,
484 X_DISPLAY_PROMPT IN VARCHAR2,
485 X_ITEM_CODE IN VARCHAR2,
486 X_ITEM_DESCRIPTION IN VARCHAR2,
487 X_ITEM_ID IN NUMBER,
488 X_ITEM_IMAGE_FILENAME IN VARCHAR2,
489 X_ITEM_MESSAGE_NAME IN VARCHAR2,
490 X_ITEM_NAME IN VARCHAR2,
491 X_ITEM_SOURCE IN VARCHAR2,
492 X_ITEM_TEXT_VALUE IN VARCHAR2,
493 X_ITEM_TYPE IN VARCHAR2,
494 X_URL_ID IN NUMBER,
495 X_OWNER in VARCHAR2,
496 X_DISPLAYED_MULTI_LEVEL_FLAG IN VARCHAR2,
497 X_SEEDED_APPLICATION_ID in NUMBER,
498 X_TAX_ITEM_FLAG in VARCHAR2,
499 X_TOTALS_ENABLED_FLAG in VARCHAR2,
500 X_LINK_ENABLED_FLAG in VARCHAR2,
501 X_DATA_TYPE in VARCHAR2,
502 X_URLCFG_ENABLED_FLAG in VARCHAR2,
503 X_FLEXFIELD_ITEM_FLAG in VARCHAR2,
504 X_COLUMN_NAME in VARCHAR2
505 ) IS
506 begin
507 declare
508 user_id number := 0;
509 row_id varchar2(64);
510 begin
511 if (X_OWNER = 'SEED') then
512 user_id := 1;
513 end if;
514
515 AR_BPA_ITEMS_PKG.UPDATE_ROW (
516 X_AMOUNT_ITEM_FLAG => X_AMOUNT_ITEM_FLAG,
517 X_ASSIGNMENT_ENABLED_FLAG => X_ASSIGNMENT_ENABLED_FLAG,
518 X_DATA_SOURCE_ID => X_DATA_SOURCE_ID,
519 X_DISPLAY_ENABLED_FLAG => X_DISPLAY_ENABLED_FLAG,
520 X_DISPLAY_LEVEL => X_DISPLAY_LEVEL,
521 X_DISPLAY_PROMPT => X_DISPLAY_PROMPT,
522 X_ITEM_CODE => X_ITEM_CODE,
523 X_ITEM_DESCRIPTION => X_ITEM_DESCRIPTION,
524 X_ITEM_ID => X_ITEM_ID,
525 X_ITEM_IMAGE_FILENAME => X_ITEM_IMAGE_FILENAME,
526 X_ITEM_MESSAGE_NAME => X_ITEM_MESSAGE_NAME,
527 X_ITEM_NAME => X_ITEM_NAME,
528 X_ITEM_SOURCE => X_ITEM_SOURCE,
529 X_ITEM_TEXT_VALUE => X_ITEM_TEXT_VALUE,
530 X_ITEM_TYPE => X_ITEM_TYPE,
531 X_URL_ID => X_URL_ID,
532 X_LAST_UPDATE_DATE => sysdate,
533 X_LAST_UPDATED_BY => user_id,
534 X_LAST_UPDATE_LOGIN => 0,
535 X_DISPLAYED_MULTI_LEVEL_FLAG => X_DISPLAYED_MULTI_LEVEL_FLAG,
536 X_SEEDED_APPLICATION_ID => X_SEEDED_APPLICATION_ID,
537 X_TAX_ITEM_FLAG => X_TAX_ITEM_FLAG,
538 X_TOTALS_ENABLED_FLAG => X_TOTALS_ENABLED_FLAG,
539 X_LINK_ENABLED_FLAG => X_LINK_ENABLED_FLAG,
540 X_DATA_TYPE => X_DATA_TYPE,
541 X_URLCFG_ENABLED_FLAG => X_URLCFG_ENABLED_FLAG,
542 X_FLEXFIELD_ITEM_FLAG => X_FLEXFIELD_ITEM_FLAG,
543 X_COLUMN_NAME => X_COLUMN_NAME );
544 exception
545 when NO_DATA_FOUND then
546 AR_BPA_ITEMS_PKG.INSERT_ROW (
547 X_ROWID => row_id,
548 X_AMOUNT_ITEM_FLAG => X_AMOUNT_ITEM_FLAG,
549 X_ASSIGNMENT_ENABLED_FLAG => X_ASSIGNMENT_ENABLED_FLAG,
550 X_DATA_SOURCE_ID => X_DATA_SOURCE_ID,
551 X_DISPLAY_ENABLED_FLAG => X_DISPLAY_ENABLED_FLAG,
552 X_DISPLAY_LEVEL => X_DISPLAY_LEVEL,
553 X_DISPLAY_PROMPT => X_DISPLAY_PROMPT,
554 X_ITEM_CODE => X_ITEM_CODE,
555 X_ITEM_DESCRIPTION => X_ITEM_DESCRIPTION,
556 X_ITEM_ID => X_ITEM_ID,
557 X_ITEM_IMAGE_FILENAME => X_ITEM_IMAGE_FILENAME,
558 X_ITEM_MESSAGE_NAME => X_ITEM_MESSAGE_NAME,
559 X_ITEM_NAME => X_ITEM_NAME,
560 X_ITEM_SOURCE => X_ITEM_SOURCE,
561 X_ITEM_TEXT_VALUE => X_ITEM_TEXT_VALUE,
562 X_ITEM_TYPE => X_ITEM_TYPE,
563 X_URL_ID => X_URL_ID,
564 X_CREATION_DATE => sysdate,
565 X_CREATED_BY => user_id,
566 X_LAST_UPDATE_DATE => sysdate,
567 X_LAST_UPDATED_BY => user_id,
568 X_LAST_UPDATE_LOGIN => 0,
569 X_DISPLAYED_MULTI_LEVEL_FLAG => X_DISPLAYED_MULTI_LEVEL_FLAG,
570 X_SEEDED_APPLICATION_ID => X_SEEDED_APPLICATION_ID,
571 X_TAX_ITEM_FLAG => X_TAX_ITEM_FLAG,
572 X_TOTALS_ENABLED_FLAG => X_TOTALS_ENABLED_FLAG,
573 X_LINK_ENABLED_FLAG => X_LINK_ENABLED_FLAG,
574 X_DATA_TYPE => X_DATA_TYPE,
575 X_URLCFG_ENABLED_FLAG => X_URLCFG_ENABLED_FLAG,
576 X_FLEXFIELD_ITEM_FLAG => X_FLEXFIELD_ITEM_FLAG,
577 X_COLUMN_NAME => X_COLUMN_NAME );
578 end;
579 end LOAD_ROW;
580
581 end AR_BPA_ITEMS_PKG;