[Home] [Help]
PACKAGE BODY: APPS.AR_BPA_CONTENT_AREAS_PKG
Source
1 package body AR_BPA_CONTENT_AREAS_PKG as
2 /* $Header: ARBPCNTB.pls 120.2 2005/10/30 04:13:14 appldev noship $ */
3 procedure INSERT_ROW (
4 X_ROWID in out nocopy VARCHAR2,
5 X_CONTENT_AREA_ID in NUMBER,
6 X_DISPLAY_LEVEL in VARCHAR2,
7 X_CONTENT_TYPE in NUMBER,
8 X_CONTENT_ORIENTATION in NUMBER,
9 X_TEMPLATE_ID in NUMBER,
10 X_CONTENT_STYLE_ID in NUMBER,
11 X_ITEM_ID in NUMBER,
12 X_URL_ID in NUMBER,
13 X_DISPLAY_SEQUENCE in NUMBER,
14 X_CONTENT_AREA_WIDTH in VARCHAR2,
15 X_CONTENT_AREA_LEFT_SPACE in NUMBER,
16 X_CONTENT_AREA_RIGHT_SPACE in NUMBER,
17 X_CONTENT_AREA_TOP_SPACE in NUMBER,
18 X_CONTENT_AREA_BOTTOM_SPACE in NUMBER,
19 X_CONTENT_COUNT in NUMBER,
20 X_LINE_REGION_FLAG in VARCHAR2,
21 X_ITEM_LABEL_STYLE in VARCHAR2,
22 X_CONTENT_DISP_PROMPT_STYLE in VARCHAR2,
23 X_ITEM_VALUE_STYLE in VARCHAR2,
24 X_INVOICE_LINE_TYPE in VARCHAR2,
25 X_AREA_CODE in VARCHAR2,
26 X_PARENT_AREA_CODE in VARCHAR2,
27 X_ITEM_COLUMN_WIDTH in NUMBER,
28 X_CONTENT_AREA_NAME in VARCHAR2,
29 X_CONTENT_DISPLAY_PROMPT in VARCHAR2,
30 X_CREATION_DATE in DATE,
31 X_CREATED_BY in NUMBER,
32 X_LAST_UPDATE_DATE in DATE,
33 X_LAST_UPDATED_BY in NUMBER,
34 X_LAST_UPDATE_LOGIN in NUMBER
35 ) is
36 cursor C is select ROWID from AR_BPA_CONTENT_AREAS_B
37 where CONTENT_AREA_ID = X_CONTENT_AREA_ID
38 ;
39 begin
40 insert into AR_BPA_CONTENT_AREAS_B (
41 CONTENT_AREA_ID,
42 DISPLAY_LEVEL,
43 CONTENT_TYPE,
44 CONTENT_ORIENTATION,
45 TEMPLATE_ID,
46 CONTENT_STYLE_ID,
47 ITEM_ID,
48 URL_ID,
49 DISPLAY_SEQUENCE,
50 CONTENT_AREA_WIDTH,
51 CONTENT_AREA_LEFT_SPACE,
52 CONTENT_AREA_RIGHT_SPACE,
53 CONTENT_AREA_TOP_SPACE,
54 CONTENT_AREA_BOTTOM_SPACE,
55 CONTENT_COUNT,
56 LINE_REGION_FLAG,
57 ITEM_LABEL_STYLE,
58 CONTENT_DISP_PROMPT_STYLE,
59 ITEM_VALUE_STYLE,
60 INVOICE_LINE_TYPE,
61 AREA_CODE,
62 PARENT_AREA_CODE,
63 ITEM_COLUMN_WIDTH,
64 CREATION_DATE,
65 CREATED_BY,
66 LAST_UPDATE_DATE,
67 LAST_UPDATED_BY,
68 LAST_UPDATE_LOGIN
69 ) values (
70 X_CONTENT_AREA_ID,
71 X_DISPLAY_LEVEL,
72 X_CONTENT_TYPE,
73 X_CONTENT_ORIENTATION,
74 X_TEMPLATE_ID,
75 X_CONTENT_STYLE_ID,
76 X_ITEM_ID,
77 X_URL_ID,
78 X_DISPLAY_SEQUENCE,
79 X_CONTENT_AREA_WIDTH,
80 X_CONTENT_AREA_LEFT_SPACE,
81 X_CONTENT_AREA_RIGHT_SPACE,
82 X_CONTENT_AREA_TOP_SPACE,
83 X_CONTENT_AREA_BOTTOM_SPACE,
84 X_CONTENT_COUNT,
85 X_LINE_REGION_FLAG,
86 X_ITEM_LABEL_STYLE,
87 X_CONTENT_DISP_PROMPT_STYLE,
88 X_ITEM_VALUE_STYLE,
89 X_INVOICE_LINE_TYPE,
90 X_AREA_CODE,
91 X_PARENT_AREA_CODE,
92 X_ITEM_COLUMN_WIDTH,
93 X_CREATION_DATE,
94 X_CREATED_BY,
95 X_LAST_UPDATE_DATE,
96 X_LAST_UPDATED_BY,
97 X_LAST_UPDATE_LOGIN
98 );
99
100 insert into AR_BPA_CONTENT_AREAS_TL (
101 CONTENT_AREA_ID,
102 CONTENT_AREA_NAME,
103 CONTENT_DISPLAY_PROMPT,
104 CREATED_BY,
105 CREATION_DATE,
106 LAST_UPDATED_BY,
107 LAST_UPDATE_DATE,
108 LAST_UPDATE_LOGIN,
109 LANGUAGE,
110 SOURCE_LANG
111 ) select
112 X_CONTENT_AREA_ID,
113 X_CONTENT_AREA_NAME,
114 X_CONTENT_DISPLAY_PROMPT,
115 X_CREATED_BY,
116 X_CREATION_DATE,
117 X_LAST_UPDATED_BY,
118 X_LAST_UPDATE_DATE,
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_CONTENT_AREAS_TL T
127 where T.CONTENT_AREA_ID = X_CONTENT_AREA_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_CONTENT_AREA_ID in NUMBER,
142 X_DISPLAY_LEVEL in VARCHAR2,
143 X_CONTENT_TYPE in NUMBER,
144 X_CONTENT_ORIENTATION in NUMBER,
145 X_TEMPLATE_ID in NUMBER,
146 X_CONTENT_STYLE_ID in NUMBER,
147 X_ITEM_ID in NUMBER,
148 X_URL_ID in NUMBER,
149 X_DISPLAY_SEQUENCE in NUMBER,
150 X_CONTENT_AREA_WIDTH in VARCHAR2,
151 X_CONTENT_AREA_LEFT_SPACE in NUMBER,
152 X_CONTENT_AREA_RIGHT_SPACE in NUMBER,
153 X_CONTENT_AREA_TOP_SPACE in NUMBER,
154 X_CONTENT_AREA_BOTTOM_SPACE in NUMBER,
155 X_CONTENT_COUNT in NUMBER,
156 X_LINE_REGION_FLAG in VARCHAR2,
157 X_ITEM_LABEL_STYLE in VARCHAR2,
158 X_CONTENT_DISP_PROMPT_STYLE in VARCHAR2,
159 X_ITEM_VALUE_STYLE in VARCHAR2,
160 X_INVOICE_LINE_TYPE in VARCHAR2,
161 X_AREA_CODE in VARCHAR2,
162 X_PARENT_AREA_CODE in VARCHAR2,
163 X_ITEM_COLUMN_WIDTH in NUMBER,
164 X_CONTENT_AREA_NAME in VARCHAR2,
165 X_CONTENT_DISPLAY_PROMPT in VARCHAR2
166 ) is
167 cursor c is select
168 DISPLAY_LEVEL,
169 CONTENT_TYPE,
170 CONTENT_ORIENTATION,
171 TEMPLATE_ID,
172 CONTENT_STYLE_ID,
173 ITEM_ID,
174 URL_ID,
175 DISPLAY_SEQUENCE,
176 CONTENT_AREA_WIDTH,
177 CONTENT_AREA_LEFT_SPACE,
178 CONTENT_AREA_RIGHT_SPACE,
179 CONTENT_AREA_TOP_SPACE,
180 CONTENT_AREA_BOTTOM_SPACE,
181 CONTENT_COUNT,
182 LINE_REGION_FLAG,
183 ITEM_LABEL_STYLE,
184 CONTENT_DISP_PROMPT_STYLE,
185 ITEM_VALUE_STYLE,
186 INVOICE_LINE_TYPE,
187 AREA_CODE,
188 PARENT_AREA_CODE,
189 ITEM_COLUMN_WIDTH
190 from AR_BPA_CONTENT_AREAS_B
191 where CONTENT_AREA_ID = X_CONTENT_AREA_ID
192 for update of CONTENT_AREA_ID nowait;
193 recinfo c%rowtype;
194
195 cursor c1 is select
196 CONTENT_AREA_NAME,
197 CONTENT_DISPLAY_PROMPT,
198 decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
199 from AR_BPA_CONTENT_AREAS_TL
200 where CONTENT_AREA_ID = X_CONTENT_AREA_ID
201 and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
202 for update of CONTENT_AREA_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.DISPLAY_LEVEL = X_DISPLAY_LEVEL)
213 AND (recinfo.CONTENT_TYPE = X_CONTENT_TYPE)
214 AND ((recinfo.CONTENT_ORIENTATION = X_CONTENT_ORIENTATION)
215 OR ((recinfo.CONTENT_ORIENTATION is null) AND (X_CONTENT_ORIENTATION is null)))
216 AND (recinfo.TEMPLATE_ID = X_TEMPLATE_ID)
217 AND ((recinfo.CONTENT_STYLE_ID = X_CONTENT_STYLE_ID)
218 OR ((recinfo.CONTENT_STYLE_ID is null) AND (X_CONTENT_STYLE_ID is null)))
219 AND ((recinfo.ITEM_ID = X_ITEM_ID)
220 OR ((recinfo.ITEM_ID is null) AND (X_ITEM_ID is null)))
221 AND ((recinfo.URL_ID = X_URL_ID)
222 OR ((recinfo.URL_ID is null) AND (X_URL_ID is null)))
223 AND (recinfo.DISPLAY_SEQUENCE = X_DISPLAY_SEQUENCE)
224 AND ((recinfo.CONTENT_AREA_WIDTH = X_CONTENT_AREA_WIDTH)
225 OR ((recinfo.CONTENT_AREA_WIDTH is null) AND (X_CONTENT_AREA_WIDTH is null)))
226 AND ((recinfo.CONTENT_AREA_LEFT_SPACE = X_CONTENT_AREA_LEFT_SPACE)
227 OR ((recinfo.CONTENT_AREA_LEFT_SPACE is null) AND (X_CONTENT_AREA_LEFT_SPACE is null)))
228 AND ((recinfo.CONTENT_AREA_RIGHT_SPACE = X_CONTENT_AREA_RIGHT_SPACE)
229 OR ((recinfo.CONTENT_AREA_RIGHT_SPACE is null) AND (X_CONTENT_AREA_RIGHT_SPACE is null)))
230 AND ((recinfo.CONTENT_AREA_TOP_SPACE = X_CONTENT_AREA_TOP_SPACE)
231 OR ((recinfo.CONTENT_AREA_TOP_SPACE is null) AND (X_CONTENT_AREA_TOP_SPACE is null)))
232 AND ((recinfo.CONTENT_AREA_BOTTOM_SPACE = X_CONTENT_AREA_BOTTOM_SPACE)
233 OR ((recinfo.CONTENT_AREA_BOTTOM_SPACE is null) AND (X_CONTENT_AREA_BOTTOM_SPACE is null)))
234 AND ((recinfo.CONTENT_COUNT = X_CONTENT_COUNT)
235 OR ((recinfo.CONTENT_COUNT is null) AND (X_CONTENT_COUNT is null)))
236 AND ((recinfo.LINE_REGION_FLAG = X_LINE_REGION_FLAG)
237 OR ((recinfo.LINE_REGION_FLAG is null) AND (X_LINE_REGION_FLAG is null)))
238 AND ((recinfo.ITEM_LABEL_STYLE = X_ITEM_LABEL_STYLE)
239 OR ((recinfo.ITEM_LABEL_STYLE is null) AND (X_ITEM_LABEL_STYLE is null)))
240 AND ((recinfo.CONTENT_DISP_PROMPT_STYLE = X_CONTENT_DISP_PROMPT_STYLE)
241 OR ((recinfo.CONTENT_DISP_PROMPT_STYLE is null) AND (X_CONTENT_DISP_PROMPT_STYLE is null)))
242 AND ((recinfo.ITEM_VALUE_STYLE = X_ITEM_VALUE_STYLE)
243 OR ((recinfo.ITEM_VALUE_STYLE is null) AND (X_ITEM_VALUE_STYLE is null)))
244 AND ((recinfo.INVOICE_LINE_TYPE = X_INVOICE_LINE_TYPE)
245 OR ((recinfo.INVOICE_LINE_TYPE is null) AND (X_INVOICE_LINE_TYPE is null)))
246 AND ((recinfo.AREA_CODE = X_AREA_CODE)
247 OR ((recinfo.AREA_CODE is null) AND (X_AREA_CODE is null)))
248 AND ((recinfo.PARENT_AREA_CODE = X_PARENT_AREA_CODE)
249 OR ((recinfo.PARENT_AREA_CODE is null) AND (X_PARENT_AREA_CODE is null)))
250 AND ((recinfo.ITEM_COLUMN_WIDTH = X_ITEM_COLUMN_WIDTH)
251 OR ((recinfo.ITEM_COLUMN_WIDTH is null) AND (X_ITEM_COLUMN_WIDTH is null)))
252 ) then
253 null;
254 else
255 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
256 app_exception.raise_exception;
257 end if;
258
259 for tlinfo in c1 loop
260 if (tlinfo.BASELANG = 'Y') then
261 if ( ((tlinfo.CONTENT_AREA_NAME = X_CONTENT_AREA_NAME)
262 OR ((tlinfo.CONTENT_AREA_NAME is null) AND (X_CONTENT_AREA_NAME is null)))
263 AND ((tlinfo.CONTENT_DISPLAY_PROMPT = X_CONTENT_DISPLAY_PROMPT)
264 OR ((tlinfo.CONTENT_DISPLAY_PROMPT is null) AND (X_CONTENT_DISPLAY_PROMPT 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_CONTENT_AREA_ID in NUMBER,
278 X_DISPLAY_LEVEL in VARCHAR2,
279 X_CONTENT_TYPE in NUMBER,
280 X_CONTENT_ORIENTATION in NUMBER,
281 X_TEMPLATE_ID in NUMBER,
282 X_CONTENT_STYLE_ID in NUMBER,
283 X_ITEM_ID in NUMBER,
284 X_URL_ID in NUMBER,
285 X_DISPLAY_SEQUENCE in NUMBER,
286 X_CONTENT_AREA_WIDTH in VARCHAR2,
287 X_CONTENT_AREA_LEFT_SPACE in NUMBER,
288 X_CONTENT_AREA_RIGHT_SPACE in NUMBER,
289 X_CONTENT_AREA_TOP_SPACE in NUMBER,
290 X_CONTENT_AREA_BOTTOM_SPACE in NUMBER,
291 X_CONTENT_COUNT in NUMBER,
292 X_LINE_REGION_FLAG in VARCHAR2,
293 X_ITEM_LABEL_STYLE in VARCHAR2,
294 X_CONTENT_DISP_PROMPT_STYLE in VARCHAR2,
295 X_ITEM_VALUE_STYLE in VARCHAR2,
296 X_INVOICE_LINE_TYPE in VARCHAR2,
297 X_AREA_CODE in VARCHAR2,
298 X_PARENT_AREA_CODE in VARCHAR2,
299 X_ITEM_COLUMN_WIDTH in NUMBER,
300 X_CONTENT_AREA_NAME in VARCHAR2,
301 X_CONTENT_DISPLAY_PROMPT in VARCHAR2,
302 X_LAST_UPDATE_DATE in DATE,
303 X_LAST_UPDATED_BY in NUMBER,
304 X_LAST_UPDATE_LOGIN in NUMBER
305 ) is
306 begin
307 update AR_BPA_CONTENT_AREAS_B set
308 DISPLAY_LEVEL = X_DISPLAY_LEVEL,
309 CONTENT_TYPE = X_CONTENT_TYPE,
310 CONTENT_ORIENTATION = X_CONTENT_ORIENTATION,
311 TEMPLATE_ID = X_TEMPLATE_ID,
312 CONTENT_STYLE_ID = X_CONTENT_STYLE_ID,
313 ITEM_ID = X_ITEM_ID,
314 URL_ID = X_URL_ID,
315 DISPLAY_SEQUENCE = X_DISPLAY_SEQUENCE,
316 CONTENT_AREA_WIDTH = X_CONTENT_AREA_WIDTH,
317 CONTENT_AREA_LEFT_SPACE = X_CONTENT_AREA_LEFT_SPACE,
318 CONTENT_AREA_RIGHT_SPACE = X_CONTENT_AREA_RIGHT_SPACE,
319 CONTENT_AREA_TOP_SPACE = X_CONTENT_AREA_TOP_SPACE,
320 CONTENT_AREA_BOTTOM_SPACE = X_CONTENT_AREA_BOTTOM_SPACE,
321 CONTENT_COUNT = X_CONTENT_COUNT,
322 LINE_REGION_FLAG = X_LINE_REGION_FLAG,
323 ITEM_LABEL_STYLE = X_ITEM_LABEL_STYLE,
324 CONTENT_DISP_PROMPT_STYLE = X_CONTENT_DISP_PROMPT_STYLE,
325 ITEM_VALUE_STYLE = X_ITEM_VALUE_STYLE,
326 INVOICE_LINE_TYPE = X_INVOICE_LINE_TYPE,
327 AREA_CODE = X_AREA_CODE,
328 PARENT_AREA_CODE = X_PARENT_AREA_CODE,
329 ITEM_COLUMN_WIDTH = X_ITEM_COLUMN_WIDTH,
330 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
331 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
332 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
333 where CONTENT_AREA_ID = X_CONTENT_AREA_ID;
334
335 if (sql%notfound) then
336 raise no_data_found;
337 end if;
338
339 update AR_BPA_CONTENT_AREAS_TL set
340 CONTENT_AREA_NAME = X_CONTENT_AREA_NAME,
341 CONTENT_DISPLAY_PROMPT = X_CONTENT_DISPLAY_PROMPT,
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 CONTENT_AREA_ID = X_CONTENT_AREA_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_CONTENT_AREA_ID in NUMBER
356 ) is
357 begin
358 delete from AR_BPA_CONTENT_AREAS_TL
359 where CONTENT_AREA_ID = X_CONTENT_AREA_ID;
360
361 if (sql%notfound) then
362 raise no_data_found;
363 end if;
364
365 delete from AR_BPA_CONTENT_AREAS_B
366 where CONTENT_AREA_ID = X_CONTENT_AREA_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_CONTENT_AREAS_TL T
377 where not exists
378 (select NULL
379 from AR_BPA_CONTENT_AREAS_B B
380 where B.CONTENT_AREA_ID = T.CONTENT_AREA_ID
381 );
382
383 update AR_BPA_CONTENT_AREAS_TL T set (
384 CONTENT_AREA_NAME,
385 CONTENT_DISPLAY_PROMPT
386 ) = (select
387 B.CONTENT_AREA_NAME,
388 B.CONTENT_DISPLAY_PROMPT
389 from AR_BPA_CONTENT_AREAS_TL B
390 where B.CONTENT_AREA_ID = T.CONTENT_AREA_ID
391 and B.LANGUAGE = T.SOURCE_LANG)
392 where (
393 T.CONTENT_AREA_ID,
394 T.LANGUAGE
395 ) in (select
396 SUBT.CONTENT_AREA_ID,
397 SUBT.LANGUAGE
398 from AR_BPA_CONTENT_AREAS_TL SUBB, AR_BPA_CONTENT_AREAS_TL SUBT
399 where SUBB.CONTENT_AREA_ID = SUBT.CONTENT_AREA_ID
400 and SUBB.LANGUAGE = SUBT.SOURCE_LANG
401 and (SUBB.CONTENT_AREA_NAME <> SUBT.CONTENT_AREA_NAME
402 or (SUBB.CONTENT_AREA_NAME is null and SUBT.CONTENT_AREA_NAME is not null)
403 or (SUBB.CONTENT_AREA_NAME is not null and SUBT.CONTENT_AREA_NAME is null)
404 or SUBB.CONTENT_DISPLAY_PROMPT <> SUBT.CONTENT_DISPLAY_PROMPT
405 or (SUBB.CONTENT_DISPLAY_PROMPT is null and SUBT.CONTENT_DISPLAY_PROMPT is not null)
406 or (SUBB.CONTENT_DISPLAY_PROMPT is not null and SUBT.CONTENT_DISPLAY_PROMPT is null)
407 ));
408
409 insert into AR_BPA_CONTENT_AREAS_TL (
410 CONTENT_AREA_ID,
411 CONTENT_AREA_NAME,
412 CONTENT_DISPLAY_PROMPT,
413 CREATED_BY,
414 CREATION_DATE,
415 LAST_UPDATED_BY,
416 LAST_UPDATE_DATE,
417 LAST_UPDATE_LOGIN,
418 LANGUAGE,
419 SOURCE_LANG
420 ) select /*+ ORDERED */
421 B.CONTENT_AREA_ID,
422 B.CONTENT_AREA_NAME,
423 B.CONTENT_DISPLAY_PROMPT,
424 B.CREATED_BY,
425 B.CREATION_DATE,
426 B.LAST_UPDATED_BY,
427 B.LAST_UPDATE_DATE,
428 B.LAST_UPDATE_LOGIN,
429 L.LANGUAGE_CODE,
430 B.SOURCE_LANG
431 from AR_BPA_CONTENT_AREAS_TL B, FND_LANGUAGES L
432 where L.INSTALLED_FLAG in ('I', 'B')
433 and B.LANGUAGE = userenv('LANG')
437 where T.CONTENT_AREA_ID = B.CONTENT_AREA_ID
434 and not exists
435 (select NULL
436 from AR_BPA_CONTENT_AREAS_TL T
438 and T.LANGUAGE = L.LANGUAGE_CODE);
439 end ADD_LANGUAGE;
440
441 procedure TRANSLATE_ROW (
442 X_CONTENT_AREA_ID in NUMBER,
443 X_CONTENT_AREA_NAME in VARCHAR2,
444 X_CONTENT_DISPLAY_PROMPT in VARCHAR2,
445 X_OWNER in VARCHAR2) IS
446 begin
447
448 update AR_BPA_CONTENT_AREAS_TL
449 set CONTENT_AREA_NAME = X_CONTENT_AREA_NAME,
450 CONTENT_DISPLAY_PROMPT = X_CONTENT_DISPLAY_PROMPT,
451 source_lang = userenv('LANG'),
452 last_update_date = sysdate,
453 last_updated_by = decode(X_OWNER, 'SEED', 1, 0),
454 last_update_login = 0
455 where CONTENT_AREA_ID = X_CONTENT_AREA_ID
456 and userenv('LANG') in (language, source_lang);
457
458 end TRANSLATE_ROW;
459
460 procedure LOAD_ROW (
461 X_AREA_CODE IN VARCHAR2,
462 X_CONTENT_AREA_BOTTOM_SPACE IN NUMBER,
463 X_CONTENT_AREA_ID IN NUMBER,
464 X_CONTENT_AREA_LEFT_SPACE IN NUMBER,
465 X_CONTENT_AREA_NAME IN VARCHAR2,
466 X_CONTENT_AREA_RIGHT_SPACE IN NUMBER,
467 X_CONTENT_AREA_TOP_SPACE IN NUMBER,
468 X_CONTENT_AREA_WIDTH IN VARCHAR2,
469 X_CONTENT_COUNT IN NUMBER,
470 X_CONTENT_DISPLAY_PROMPT IN VARCHAR2,
471 X_CONTENT_DISP_PROMPT_STYLE IN VARCHAR2,
472 X_CONTENT_ORIENTATION IN NUMBER,
473 X_CONTENT_STYLE_ID IN NUMBER,
474 X_CONTENT_TYPE IN NUMBER,
475 X_DISPLAY_LEVEL IN VARCHAR2,
476 X_DISPLAY_SEQUENCE IN NUMBER,
477 X_INVOICE_LINE_TYPE IN VARCHAR2,
478 X_ITEM_ID IN NUMBER,
479 X_ITEM_LABEL_STYLE IN VARCHAR2,
480 X_ITEM_VALUE_STYLE IN VARCHAR2,
481 X_LINE_REGION_FLAG IN VARCHAR2,
482 X_PARENT_AREA_CODE IN VARCHAR2,
483 X_TEMPLATE_ID IN NUMBER,
484 X_URL_ID IN NUMBER,
485 X_ITEM_COLUMN_WIDTH IN NUMBER,
486 X_OWNER IN VARCHAR2
487 ) IS
488 begin
489 declare
490 user_id number := 0;
491 row_id varchar2(64);
492 begin
493 if (X_OWNER = 'SEED') then
494 user_id := 1;
495 end if;
496
497 AR_BPA_CONTENT_AREAS_PKG.UPDATE_ROW (
498 X_CONTENT_AREA_ID => X_CONTENT_AREA_ID,
499 X_ITEM_LABEL_STYLE => X_ITEM_LABEL_STYLE,
500 X_ITEM_VALUE_STYLE => X_ITEM_VALUE_STYLE,
501 X_CONTENT_DISP_PROMPT_STYLE => X_CONTENT_DISP_PROMPT_STYLE,
502 X_INVOICE_LINE_TYPE => X_INVOICE_LINE_TYPE,
503 X_AREA_CODE => X_AREA_CODE,
504 X_PARENT_AREA_CODE => X_PARENT_AREA_CODE,
505 X_LINE_REGION_FLAG => X_LINE_REGION_FLAG,
506 X_CONTENT_COUNT => X_CONTENT_COUNT,
507 X_CONTENT_AREA_RIGHT_SPACE => X_CONTENT_AREA_RIGHT_SPACE,
508 X_CONTENT_AREA_TOP_SPACE => X_CONTENT_AREA_TOP_SPACE,
509 X_CONTENT_AREA_BOTTOM_SPACE => X_CONTENT_AREA_BOTTOM_SPACE,
510 X_DISPLAY_LEVEL => X_DISPLAY_LEVEL,
511 X_CONTENT_TYPE => X_CONTENT_TYPE,
512 X_CONTENT_ORIENTATION => X_CONTENT_ORIENTATION,
513 X_TEMPLATE_ID => X_TEMPLATE_ID,
514 X_CONTENT_STYLE_ID => X_CONTENT_STYLE_ID,
515 X_ITEM_ID => X_ITEM_ID,
516 X_URL_ID => X_URL_ID,
517 X_DISPLAY_SEQUENCE => X_DISPLAY_SEQUENCE,
518 X_CONTENT_AREA_WIDTH => X_CONTENT_AREA_WIDTH,
519 X_CONTENT_AREA_LEFT_SPACE => X_CONTENT_AREA_LEFT_SPACE,
520 X_CONTENT_AREA_NAME => X_CONTENT_AREA_NAME,
521 X_CONTENT_DISPLAY_PROMPT => X_CONTENT_DISPLAY_PROMPT,
522 X_ITEM_COLUMN_WIDTH => X_ITEM_COLUMN_WIDTH,
523 X_LAST_UPDATE_DATE => sysdate,
524 X_LAST_UPDATED_BY => user_id,
525 X_LAST_UPDATE_LOGIN => 0);
526 exception
527 when NO_DATA_FOUND then
528 AR_BPA_CONTENT_AREAS_PKG.INSERT_ROW (
529 X_ROWID => row_id,
530 X_CONTENT_AREA_ID => X_CONTENT_AREA_ID,
531 X_ITEM_LABEL_STYLE => X_ITEM_LABEL_STYLE,
532 X_ITEM_VALUE_STYLE => X_ITEM_VALUE_STYLE,
533 X_CONTENT_DISP_PROMPT_STYLE => X_CONTENT_DISP_PROMPT_STYLE,
534 X_INVOICE_LINE_TYPE => X_INVOICE_LINE_TYPE,
535 X_AREA_CODE => X_AREA_CODE,
536 X_PARENT_AREA_CODE => X_PARENT_AREA_CODE,
537 X_LINE_REGION_FLAG => X_LINE_REGION_FLAG,
538 X_CONTENT_COUNT => X_CONTENT_COUNT,
539 X_CONTENT_AREA_RIGHT_SPACE => X_CONTENT_AREA_RIGHT_SPACE,
540 X_CONTENT_AREA_TOP_SPACE => X_CONTENT_AREA_TOP_SPACE,
541 X_CONTENT_AREA_BOTTOM_SPACE => X_CONTENT_AREA_BOTTOM_SPACE,
542 X_DISPLAY_LEVEL => X_DISPLAY_LEVEL,
543 X_CONTENT_TYPE => X_CONTENT_TYPE,
544 X_CONTENT_ORIENTATION => X_CONTENT_ORIENTATION,
545 X_TEMPLATE_ID => X_TEMPLATE_ID,
546 X_CONTENT_STYLE_ID => X_CONTENT_STYLE_ID,
547 X_ITEM_ID => X_ITEM_ID,
548 X_URL_ID => X_URL_ID,
549 X_DISPLAY_SEQUENCE => X_DISPLAY_SEQUENCE,
550 X_CONTENT_AREA_WIDTH => X_CONTENT_AREA_WIDTH,
551 X_CONTENT_AREA_LEFT_SPACE => X_CONTENT_AREA_LEFT_SPACE,
552 X_CONTENT_AREA_NAME => X_CONTENT_AREA_NAME,
553 X_CONTENT_DISPLAY_PROMPT => X_CONTENT_DISPLAY_PROMPT,
554 X_ITEM_COLUMN_WIDTH => X_ITEM_COLUMN_WIDTH,
555 X_CREATION_DATE => sysdate,
556 X_CREATED_BY => user_id,
557 X_LAST_UPDATE_DATE => sysdate,
558 X_LAST_UPDATED_BY => user_id,
559 X_LAST_UPDATE_LOGIN => 0);
560 end;
561 end LOAD_ROW;
562
563 end AR_BPA_CONTENT_AREAS_PKG;