[Home] [Help]
PACKAGE BODY: APPS.FA_RX_ATTRSETS_PKG
Source
1 package body FA_RX_ATTRSETS_PKG as
2 /* $Header: faxrxatb.pls 120.6 2006/05/30 12:09:35 rravunny ship $ */
3 procedure INSERT_ROW (
4 X_ROWID in out nocopy VARCHAR2,
5 X_REPORT_ID in NUMBER,
6 X_ATTRIBUTE_SET in VARCHAR2,
7 X_PAGE_WIDTH in NUMBER,
8 X_PAGE_HEIGHT in NUMBER,
9 X_PRINT_SOB_FLAG in VARCHAR2,
10 X_PRINT_FUNC_CURR_FLAG in VARCHAR2,
11 X_PRINT_TITLE in VARCHAR2,
12 X_PRINT_SUBMISSION_DATE in VARCHAR2,
13 X_PRINT_CURRENT_PAGE in VARCHAR2,
14 X_PRINT_TOTAL_PAGES in VARCHAR2,
15 X_PRINT_PARAMETERS in VARCHAR2,
16 X_PRINT_PAGE_BREAK_COLS in VARCHAR2,
17 X_GROUP_DISPLAY_TYPE in VARCHAR2,
18 X_PUBLIC_FLAG in VARCHAR2,
19 X_SYSTEM_FLAG in VARCHAR2,
20 X_DEFAULT_DATE_FORMAT in VARCHAR2,
21 X_DEFAULT_DATE_TIME_FORMAT in VARCHAR2,
22 X_REPORT_TITLE in VARCHAR2,
23 X_USER_ATTRIBUTE_SET in VARCHAR2,
24 X_CREATION_DATE in DATE,
25 X_CREATED_BY in NUMBER,
26 X_LAST_UPDATE_DATE in DATE,
27 X_LAST_UPDATED_BY in NUMBER,
28 X_LAST_UPDATE_LOGIN in NUMBER
29 ) is
30 cursor C is select ROWID from FA_RX_ATTRSETS_B
31 where REPORT_ID = X_REPORT_ID
32 and ATTRIBUTE_SET = X_ATTRIBUTE_SET
33 ;
34 begin
35 insert into FA_RX_ATTRSETS_B (
36 PAGE_WIDTH,
37 PAGE_HEIGHT,
38 PRINT_SOB_FLAG,
39 PRINT_FUNC_CURR_FLAG,
40 PRINT_TITLE,
41 PRINT_SUBMISSION_DATE,
42 PRINT_CURRENT_PAGE,
43 PRINT_TOTAL_PAGES,
44 PRINT_PARAMETERS,
45 PRINT_PAGE_BREAK_COLS,
46 GROUP_DISPLAY_TYPE,
47 REPORT_ID,
48 ATTRIBUTE_SET,
49 PUBLIC_FLAG,
50 SYSTEM_FLAG,
51 DEFAULT_DATE_FORMAT,
52 DEFAULT_DATE_TIME_FORMAT,
53 CREATION_DATE,
54 CREATED_BY,
55 LAST_UPDATE_DATE,
56 LAST_UPDATED_BY,
57 LAST_UPDATE_LOGIN
58 ) values (
59 X_PAGE_WIDTH,
60 X_PAGE_HEIGHT,
61 X_PRINT_SOB_FLAG,
62 X_PRINT_FUNC_CURR_FLAG,
63 X_PRINT_TITLE,
64 X_PRINT_SUBMISSION_DATE,
65 X_PRINT_CURRENT_PAGE,
66 X_PRINT_TOTAL_PAGES,
67 X_PRINT_PARAMETERS,
68 X_PRINT_PAGE_BREAK_COLS,
69 X_GROUP_DISPLAY_TYPE,
70 X_REPORT_ID,
71 X_ATTRIBUTE_SET,
72 X_PUBLIC_FLAG,
73 X_SYSTEM_FLAG,
74 X_DEFAULT_DATE_FORMAT,
75 X_DEFAULT_DATE_TIME_FORMAT,
76 X_CREATION_DATE,
77 X_CREATED_BY,
78 X_LAST_UPDATE_DATE,
79 X_LAST_UPDATED_BY,
80 X_LAST_UPDATE_LOGIN
81 );
82
83 insert into FA_RX_ATTRSETS_TL (
84 REPORT_ID,
85 ATTRIBUTE_SET,
86 REPORT_TITLE,
87 USER_ATTRIBUTE_SET,
88 LAST_UPDATE_DATE,
89 LAST_UPDATE_LOGIN,
90 LAST_UPDATED_BY,
91 CREATED_BY,
92 CREATION_DATE,
93 LANGUAGE,
94 SOURCE_LANG
95 ) select
96 X_REPORT_ID,
97 X_ATTRIBUTE_SET,
98 X_REPORT_TITLE,
99 X_USER_ATTRIBUTE_SET,
100 X_LAST_UPDATE_DATE,
101 X_LAST_UPDATE_LOGIN,
102 X_LAST_UPDATED_BY,
103 X_CREATED_BY,
104 X_CREATION_DATE,
105 L.LANGUAGE_CODE,
106 userenv('LANG')
107 from FND_LANGUAGES L
108 where L.INSTALLED_FLAG in ('I', 'B')
109 and not exists
110 (select NULL
111 from FA_RX_ATTRSETS_TL T
112 where T.REPORT_ID = X_REPORT_ID
113 and T.ATTRIBUTE_SET = X_ATTRIBUTE_SET
114 and T.LANGUAGE = L.LANGUAGE_CODE);
115
116 open c;
117 fetch c into X_ROWID;
118 if (c%notfound) then
119 close c;
120 raise no_data_found;
121 end if;
122 close c;
123
124 end INSERT_ROW;
125
126 procedure LOCK_ROW (
127 X_REPORT_ID in NUMBER,
128 X_ATTRIBUTE_SET in VARCHAR2,
129 X_PAGE_WIDTH in NUMBER,
130 X_PAGE_HEIGHT in NUMBER,
131 X_PRINT_SOB_FLAG in VARCHAR2,
132 X_PRINT_FUNC_CURR_FLAG in VARCHAR2,
133 X_PRINT_TITLE in VARCHAR2,
134 X_PRINT_SUBMISSION_DATE in VARCHAR2,
135 X_PRINT_CURRENT_PAGE in VARCHAR2,
136 X_PRINT_TOTAL_PAGES in VARCHAR2,
137 X_PRINT_PARAMETERS in VARCHAR2,
138 X_PRINT_PAGE_BREAK_COLS in VARCHAR2,
139 X_GROUP_DISPLAY_TYPE in VARCHAR2,
140 X_PUBLIC_FLAG in VARCHAR2,
141 X_SYSTEM_FLAG in VARCHAR2,
142 X_DEFAULT_DATE_FORMAT in VARCHAR2,
143 X_DEFAULT_DATE_TIME_FORMAT in VARCHAR2,
144 X_REPORT_TITLE in VARCHAR2,
145 X_USER_ATTRIBUTE_SET in VARCHAR2
146 ) is
147 cursor c is select
148 PAGE_WIDTH,
149 PAGE_HEIGHT,
150 PRINT_SOB_FLAG,
151 PRINT_FUNC_CURR_FLAG,
152 PRINT_TITLE,
153 PRINT_SUBMISSION_DATE,
154 PRINT_CURRENT_PAGE,
155 PRINT_TOTAL_PAGES,
156 PRINT_PARAMETERS,
157 PRINT_PAGE_BREAK_COLS,
158 GROUP_DISPLAY_TYPE,
159 PUBLIC_FLAG,
160 SYSTEM_FLAG,
161 DEFAULT_DATE_FORMAT,
162 DEFAULT_DATE_TIME_FORMAT
163 from FA_RX_ATTRSETS_B
164 where REPORT_ID = X_REPORT_ID
165 and ATTRIBUTE_SET = X_ATTRIBUTE_SET
166 for update of REPORT_ID nowait;
167 recinfo c%rowtype;
168
169 cursor c1 is select
170 REPORT_TITLE,
171 USER_ATTRIBUTE_SET,
172 decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
173 from FA_RX_ATTRSETS_TL
174 where REPORT_ID = X_REPORT_ID
175 and ATTRIBUTE_SET = X_ATTRIBUTE_SET
176 and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
177 for update of REPORT_ID nowait;
178 begin
179 open c;
180 fetch c into recinfo;
181 if (c%notfound) then
182 close c;
183 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
184 app_exception.raise_exception;
185 end if;
186 close c;
187
188 -- Bug 1320919: Modified checks for defaulted items if they are not
189 -- equal, then only check for the datebase value = null.
190
191 if ( ((recinfo.PAGE_WIDTH = X_PAGE_WIDTH)
192 OR ((recinfo.PAGE_WIDTH is null) AND (X_PAGE_WIDTH is null)))
193 AND ((recinfo.PAGE_HEIGHT = X_PAGE_HEIGHT)
194 OR ((recinfo.PAGE_HEIGHT is null) AND (X_PAGE_HEIGHT is null)))
195 AND ( (recinfo.PRINT_SOB_FLAG = X_PRINT_SOB_FLAG)
196 OR (recinfo.PRINT_SOB_FLAG is null))
197 AND ((recinfo.PRINT_FUNC_CURR_FLAG = X_PRINT_FUNC_CURR_FLAG)
198 OR (recinfo.PRINT_FUNC_CURR_FLAG is null))
199 AND ((recinfo.PRINT_TITLE = X_PRINT_TITLE)
200 OR (recinfo.PRINT_TITLE is null) )
201 AND ((recinfo.PRINT_SUBMISSION_DATE = X_PRINT_SUBMISSION_DATE)
202 OR (recinfo.PRINT_SUBMISSION_DATE is null))
203 AND ((recinfo.PRINT_CURRENT_PAGE = X_PRINT_CURRENT_PAGE)
204 OR (recinfo.PRINT_CURRENT_PAGE is null))
205 AND ((recinfo.PRINT_TOTAL_PAGES = X_PRINT_TOTAL_PAGES)
206 OR (recinfo.PRINT_TOTAL_PAGES is null))
207 AND ((recinfo.PRINT_PARAMETERS = X_PRINT_PARAMETERS)
208 OR (recinfo.PRINT_PARAMETERS is null) )
209 AND ((recinfo.PRINT_PAGE_BREAK_COLS = X_PRINT_PAGE_BREAK_COLS)
210 OR (recinfo.PRINT_PAGE_BREAK_COLS is null))
211 AND ((recinfo.GROUP_DISPLAY_TYPE = X_GROUP_DISPLAY_TYPE)
212 OR (recinfo.GROUP_DISPLAY_TYPE is null))
213 AND (recinfo.PUBLIC_FLAG = X_PUBLIC_FLAG)
214 AND (recinfo.SYSTEM_FLAG = X_SYSTEM_FLAG)
215 AND ((recinfo.DEFAULT_DATE_FORMAT = X_DEFAULT_DATE_FORMAT)
216 OR (recinfo.DEFAULT_DATE_FORMAT is null))
217 AND ((recinfo.DEFAULT_DATE_TIME_FORMAT = X_DEFAULT_DATE_TIME_FORMAT)
218 OR (recinfo.DEFAULT_DATE_TIME_FORMAT is null))
219 ) then
220 null;
221 else
222 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
223 app_exception.raise_exception;
224 end if;
225
226 for tlinfo in c1 loop
227 if (tlinfo.BASELANG = 'Y') then
228 if ( ((tlinfo.REPORT_TITLE = X_REPORT_TITLE)
229 OR (tlinfo.REPORT_TITLE is null) )
230 AND ((tlinfo.USER_ATTRIBUTE_SET = X_USER_ATTRIBUTE_SET)
231 OR (tlinfo.USER_ATTRIBUTE_SET is null))
232 ) then
233 null;
234 else
235 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
236 app_exception.raise_exception;
237 end if;
238 end if;
239 end loop;
240 return;
241 end LOCK_ROW;
242
243 procedure UPDATE_ROW (
244 X_REPORT_ID in NUMBER,
245 X_ATTRIBUTE_SET in VARCHAR2,
246 X_PAGE_WIDTH in NUMBER,
247 X_PAGE_HEIGHT in NUMBER,
248 X_PRINT_SOB_FLAG in VARCHAR2,
249 X_PRINT_FUNC_CURR_FLAG in VARCHAR2,
250 X_PRINT_TITLE in VARCHAR2,
251 X_PRINT_SUBMISSION_DATE in VARCHAR2,
252 X_PRINT_CURRENT_PAGE in VARCHAR2,
253 X_PRINT_TOTAL_PAGES in VARCHAR2,
254 X_PRINT_PARAMETERS in VARCHAR2,
255 X_PRINT_PAGE_BREAK_COLS in VARCHAR2,
256 X_GROUP_DISPLAY_TYPE in VARCHAR2,
257 X_PUBLIC_FLAG in VARCHAR2,
258 X_SYSTEM_FLAG in VARCHAR2,
259 X_DEFAULT_DATE_FORMAT in VARCHAR2,
260 X_DEFAULT_DATE_TIME_FORMAT in VARCHAR2,
261 X_REPORT_TITLE in VARCHAR2,
262 X_USER_ATTRIBUTE_SET in VARCHAR2,
263 X_LAST_UPDATE_DATE in DATE,
264 X_LAST_UPDATED_BY in NUMBER,
265 X_LAST_UPDATE_LOGIN in NUMBER
266 ) is
267 begin
268 update FA_RX_ATTRSETS_B set
269 PAGE_WIDTH = X_PAGE_WIDTH,
270 PAGE_HEIGHT = X_PAGE_HEIGHT,
271 PRINT_SOB_FLAG = X_PRINT_SOB_FLAG,
272 PRINT_FUNC_CURR_FLAG = X_PRINT_FUNC_CURR_FLAG,
273 PRINT_TITLE = X_PRINT_TITLE,
274 PRINT_SUBMISSION_DATE = X_PRINT_SUBMISSION_DATE,
275 PRINT_CURRENT_PAGE = X_PRINT_CURRENT_PAGE,
276 PRINT_TOTAL_PAGES = X_PRINT_TOTAL_PAGES,
277 PRINT_PARAMETERS = X_PRINT_PARAMETERS,
278 PRINT_PAGE_BREAK_COLS = X_PRINT_PAGE_BREAK_COLS,
279 GROUP_DISPLAY_TYPE = X_GROUP_DISPLAY_TYPE,
280 PUBLIC_FLAG = X_PUBLIC_FLAG,
281 SYSTEM_FLAG = X_SYSTEM_FLAG,
282 DEFAULT_DATE_FORMAT = X_DEFAULT_DATE_FORMAT,
283 DEFAULT_DATE_TIME_FORMAT = X_DEFAULT_DATE_TIME_FORMAT,
284 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
285 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
286 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
287 where REPORT_ID = X_REPORT_ID
288 and ATTRIBUTE_SET = X_ATTRIBUTE_SET;
289
290 if (sql%notfound) then
291 raise no_data_found;
292 end if;
293
294 update FA_RX_ATTRSETS_TL set
295 REPORT_TITLE = X_REPORT_TITLE,
296 USER_ATTRIBUTE_SET = X_USER_ATTRIBUTE_SET,
297 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
298 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
299 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
300 SOURCE_LANG = userenv('LANG')
301 where REPORT_ID = X_REPORT_ID
302 and ATTRIBUTE_SET = X_ATTRIBUTE_SET
303 and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
304
305 if (sql%notfound) then
306 raise no_data_found;
307 end if;
308 end UPDATE_ROW;
309
310 procedure DELETE_ROW (
311 X_REPORT_ID in NUMBER,
312 X_ATTRIBUTE_SET in VARCHAR2
313 ) is
314 begin
315 delete from FA_RX_ATTRSETS_TL
316 where REPORT_ID = X_REPORT_ID
317 and ATTRIBUTE_SET = X_ATTRIBUTE_SET;
318
319 if (sql%notfound) then
320 raise no_data_found;
321 end if;
322
323 delete from FA_RX_ATTRSETS_B
324 where REPORT_ID = X_REPORT_ID
325 and ATTRIBUTE_SET = X_ATTRIBUTE_SET;
326
327 if (sql%notfound) then
328 raise no_data_found;
329 end if;
330 end DELETE_ROW;
331
332 procedure ADD_LANGUAGE
333 is
334 begin
335 delete from FA_RX_ATTRSETS_TL T
336 where not exists
337 (select NULL
338 from FA_RX_ATTRSETS_B B
339 where B.REPORT_ID = T.REPORT_ID
340 and B.ATTRIBUTE_SET = T.ATTRIBUTE_SET
341 );
342
343 update FA_RX_ATTRSETS_TL T set (
344 REPORT_TITLE,
345 USER_ATTRIBUTE_SET
346 ) = (select
347 B.REPORT_TITLE,
348 B.USER_ATTRIBUTE_SET
349 from FA_RX_ATTRSETS_TL B
350 where B.REPORT_ID = T.REPORT_ID
351 and B.ATTRIBUTE_SET = T.ATTRIBUTE_SET
352 and B.LANGUAGE = T.SOURCE_LANG)
353 where (
354 T.REPORT_ID,
355 T.ATTRIBUTE_SET,
356 T.LANGUAGE
357 ) in (select
358 SUBT.REPORT_ID,
359 SUBT.ATTRIBUTE_SET,
360 SUBT.LANGUAGE
361 from FA_RX_ATTRSETS_TL SUBB, FA_RX_ATTRSETS_TL SUBT
362 where SUBB.REPORT_ID = SUBT.REPORT_ID
363 and SUBB.ATTRIBUTE_SET = SUBT.ATTRIBUTE_SET
364 and SUBB.LANGUAGE = SUBT.SOURCE_LANG
365 and (SUBB.REPORT_TITLE <> SUBT.REPORT_TITLE
366 or (SUBB.REPORT_TITLE is null and SUBT.REPORT_TITLE is not null)
367 or (SUBB.REPORT_TITLE is not null and SUBT.REPORT_TITLE is null)
368 or SUBB.USER_ATTRIBUTE_SET <> SUBT.USER_ATTRIBUTE_SET
369 or (SUBB.USER_ATTRIBUTE_SET is null and SUBT.USER_ATTRIBUTE_SET is not null)
370 or (SUBB.USER_ATTRIBUTE_SET is not null and SUBT.USER_ATTRIBUTE_SET is null)
371 ));
372
373 insert into FA_RX_ATTRSETS_TL (
374 REPORT_ID,
375 ATTRIBUTE_SET,
376 REPORT_TITLE,
377 USER_ATTRIBUTE_SET,
378 LAST_UPDATE_DATE,
379 LAST_UPDATE_LOGIN,
380 LAST_UPDATED_BY,
381 CREATED_BY,
382 CREATION_DATE,
383 LANGUAGE,
384 SOURCE_LANG
385 ) select
386 B.REPORT_ID,
387 B.ATTRIBUTE_SET,
388 B.REPORT_TITLE,
389 B.USER_ATTRIBUTE_SET,
390 B.LAST_UPDATE_DATE,
391 B.LAST_UPDATE_LOGIN,
392 B.LAST_UPDATED_BY,
393 B.CREATED_BY,
394 B.CREATION_DATE,
395 L.LANGUAGE_CODE,
396 B.SOURCE_LANG
397 from FA_RX_ATTRSETS_TL B, FND_LANGUAGES L
398 where L.INSTALLED_FLAG in ('I', 'B')
399 and B.LANGUAGE = userenv('LANG')
400 and not exists
401 (select NULL
402 from FA_RX_ATTRSETS_TL T
403 where T.REPORT_ID = B.REPORT_ID
404 and T.ATTRIBUTE_SET = B.ATTRIBUTE_SET
405 and T.LANGUAGE = L.LANGUAGE_CODE);
406 end ADD_LANGUAGE;
407
408 procedure LOAD_ROW(
409 X_REPORT_ID in NUMBER,
410 X_ATTRIBUTE_SET in VARCHAR2,
411 X_PAGE_WIDTH in NUMBER,
412 X_PAGE_HEIGHT in NUMBER,
413 X_PRINT_SOB_FLAG in VARCHAR2,
414 X_PRINT_FUNC_CURR_FLAG in VARCHAR2,
415 X_PRINT_TITLE in VARCHAR2,
416 X_PRINT_SUBMISSION_DATE in VARCHAR2,
417 X_PRINT_CURRENT_PAGE in VARCHAR2,
418 X_PRINT_TOTAL_PAGES in VARCHAR2,
419 X_PRINT_PARAMETERS in VARCHAR2,
420 X_PRINT_PAGE_BREAK_COLS in VARCHAR2,
421 X_GROUP_DISPLAY_TYPE in VARCHAR2,
422 X_PUBLIC_FLAG in VARCHAR2,
423 X_SYSTEM_FLAG in VARCHAR2,
424 X_DEFAULT_DATE_FORMAT in VARCHAR2,
425 X_DEFAULT_DATE_TIME_FORMAT in VARCHAR2,
426 X_REPORT_TITLE in VARCHAR2,
427 X_USER_ATTRIBUTE_SET in VARCHAR2,
428 X_OWNER in VARCHAR2
429 ) is
430 Begin
431 LOAD_ROW(
432 X_REPORT_ID => X_REPORT_ID ,
433 X_ATTRIBUTE_SET =>X_ATTRIBUTE_SET ,
434 X_PAGE_WIDTH =>X_PAGE_WIDTH ,
435 X_PAGE_HEIGHT =>X_PAGE_HEIGHT ,
436 X_PRINT_SOB_FLAG => X_PRINT_SOB_FLAG ,
437 X_PRINT_FUNC_CURR_FLAG => X_PRINT_FUNC_CURR_FLAG ,
438 X_PRINT_TITLE => X_PRINT_TITLE ,
439 X_PRINT_SUBMISSION_DATE => X_PRINT_SUBMISSION_DATE ,
440 X_PRINT_CURRENT_PAGE => X_PRINT_CURRENT_PAGE ,
441 X_PRINT_TOTAL_PAGES => X_PRINT_TOTAL_PAGES ,
442 X_PRINT_PARAMETERS => X_PRINT_PARAMETERS ,
443 X_PRINT_PAGE_BREAK_COLS => X_PRINT_PAGE_BREAK_COLS ,
444 X_GROUP_DISPLAY_TYPE => X_GROUP_DISPLAY_TYPE ,
445 X_PUBLIC_FLAG => X_PUBLIC_FLAG ,
446 X_SYSTEM_FLAG => X_SYSTEM_FLAG ,
447 X_DEFAULT_DATE_FORMAT => X_DEFAULT_DATE_FORMAT ,
448 X_DEFAULT_DATE_TIME_FORMAT => X_DEFAULT_DATE_TIME_FORMAT ,
449 X_REPORT_TITLE => X_REPORT_TITLE ,
450 X_USER_ATTRIBUTE_SET =>X_USER_ATTRIBUTE_SET ,
451 X_OWNER => X_OWNER ,
452 X_Last_Update_Date => Null ,
453 X_CUSTOM_MODE => Null
454 );
455 End LOAD_ROW;
456
457 procedure LOAD_ROW(
458 X_REPORT_ID in NUMBER,
459 X_ATTRIBUTE_SET in VARCHAR2,
460 X_PAGE_WIDTH in NUMBER,
461 X_PAGE_HEIGHT in NUMBER,
462 X_PRINT_SOB_FLAG in VARCHAR2,
463 X_PRINT_FUNC_CURR_FLAG in VARCHAR2,
464 X_PRINT_TITLE in VARCHAR2,
465 X_PRINT_SUBMISSION_DATE in VARCHAR2,
466 X_PRINT_CURRENT_PAGE in VARCHAR2,
467 X_PRINT_TOTAL_PAGES in VARCHAR2,
468 X_PRINT_PARAMETERS in VARCHAR2,
469 X_PRINT_PAGE_BREAK_COLS in VARCHAR2,
470 X_GROUP_DISPLAY_TYPE in VARCHAR2,
471 X_PUBLIC_FLAG in VARCHAR2,
472 X_SYSTEM_FLAG in VARCHAR2,
473 X_DEFAULT_DATE_FORMAT in VARCHAR2,
474 X_DEFAULT_DATE_TIME_FORMAT in VARCHAR2,
475 X_REPORT_TITLE in VARCHAR2,
476 X_USER_ATTRIBUTE_SET in VARCHAR2,
477 X_OWNER in VARCHAR2,
478 X_Last_Update_Date VARCHAR2,
479 X_CUSTOM_MODE in VARCHAR2
480 )
481 is
482 --* Bug#5102292, rravunny
483 --* Begin
484 --*
485 f_luby number; -- entity owner in file
486 f_ludate date; -- entity update date in file
487 db_luby number; -- entity owner in db
488 db_ludate date; -- entity update date in db
489 db_luby_tl number; -- entity owner in db
490 db_ludate_tl date; -- entity update date in db
491
492 --* End
493 --*
494 begin
495 declare
496 user_id number := 0;
497 row_id varchar2(64);
498 begin
499
500 --* Bug#5102292, rravunny
501 --* Begin
502 --*
503 f_luby := fnd_load_util.owner_id(X_Owner);
504
505 -- Translate char last_update_date to date
506 f_ludate := nvl(to_date(X_Last_Update_Date, 'YYYY/MM/DD HH24:MI:SS'), sysdate);
507
508 select LAST_UPDATED_BY, LAST_UPDATE_DATE
509 into db_luby, db_ludate
510 from fa_rx_attrsets_b
511 where report_id = X_Report_Id
512 and ATTRIBUTE_SET = X_ATTRIBUTE_SET;
513
514 Begin
515 select LAST_UPDATED_BY, LAST_UPDATE_DATE
516 into db_luby_tl, db_ludate_tl
517 from fa_rx_attrsets_tl
518 where report_id = X_Report_Id
519 and ATTRIBUTE_SET = X_ATTRIBUTE_SET
520 and language = userenv('LANG');
521 Exception
522 When Others Then
523 db_luby_tl := db_luby;
524 db_ludate_tl := db_ludate;
525 End;
526
527 --* End
528 --*
529
530 If (
531 fnd_load_util.upload_test(f_luby, f_ludate, db_luby, db_ludate, X_CUSTOM_MODE)
532 and
533 fnd_load_util.upload_test(f_luby, f_ludate, db_luby_tl, db_ludate_tl, X_CUSTOM_MODE)
534 )
535 Then
536 UPDATE_ROW (
537 X_REPORT_ID => X_REPORT_ID,
538 X_ATTRIBUTE_SET => X_ATTRIBUTE_SET,
539 X_PAGE_WIDTH => X_PAGE_WIDTH,
540 X_PAGE_HEIGHT => X_PAGE_HEIGHT,
541 X_PRINT_SOB_FLAG => X_PRINT_SOB_FLAG,
542 X_PRINT_FUNC_CURR_FLAG => X_PRINT_FUNC_CURR_FLAG,
543 X_PRINT_TITLE => X_PRINT_TITLE,
544 X_PRINT_SUBMISSION_DATE => X_PRINT_SUBMISSION_DATE,
545 X_PRINT_CURRENT_PAGE => X_PRINT_CURRENT_PAGE,
546 X_PRINT_TOTAL_PAGES => X_PRINT_TOTAL_PAGES,
547 X_PRINT_PARAMETERS => X_PRINT_PARAMETERS,
548 X_PRINT_PAGE_BREAK_COLS => X_PRINT_PAGE_BREAK_COLS,
549 X_GROUP_DISPLAY_TYPE => X_GROUP_DISPLAY_TYPE,
550 X_PUBLIC_FLAG => X_PUBLIC_FLAG,
551 X_SYSTEM_FLAG => X_SYSTEM_FLAG,
552 X_DEFAULT_DATE_FORMAT => X_DEFAULT_DATE_FORMAT,
553 X_DEFAULT_DATE_TIME_FORMAT => X_DEFAULT_DATE_TIME_FORMAT,
554 X_REPORT_TITLE => X_REPORT_TITLE,
555 X_USER_ATTRIBUTE_SET => X_USER_ATTRIBUTE_SET,
556 X_LAST_UPDATE_DATE => f_ludate,
557 X_LAST_UPDATED_BY => f_luby,
558 X_LAST_UPDATE_LOGIN => 0);
559 end if;
560
561 exception
562 when NO_DATA_FOUND then
563 INSERT_ROW(
564 X_ROWID => row_id,
565 X_REPORT_ID => X_REPORT_ID,
566 X_ATTRIBUTE_SET => X_ATTRIBUTE_SET,
567 X_PAGE_WIDTH => X_PAGE_WIDTH,
568 X_PAGE_HEIGHT => X_PAGE_HEIGHT,
569 X_PRINT_SOB_FLAG => X_PRINT_SOB_FLAG,
570 X_PRINT_FUNC_CURR_FLAG => X_PRINT_FUNC_CURR_FLAG,
571 X_PRINT_TITLE => X_PRINT_TITLE,
572 X_PRINT_SUBMISSION_DATE => X_PRINT_SUBMISSION_DATE,
573 X_PRINT_CURRENT_PAGE => X_PRINT_CURRENT_PAGE,
574 X_PRINT_TOTAL_PAGES => X_PRINT_TOTAL_PAGES,
575 X_PRINT_PARAMETERS => X_PRINT_PARAMETERS,
576 X_PRINT_PAGE_BREAK_COLS => X_PRINT_PAGE_BREAK_COLS,
577 X_GROUP_DISPLAY_TYPE => X_GROUP_DISPLAY_TYPE,
578 X_PUBLIC_FLAG => X_PUBLIC_FLAG,
579 X_SYSTEM_FLAG => X_SYSTEM_FLAG,
580 X_DEFAULT_DATE_FORMAT => X_DEFAULT_DATE_FORMAT,
581 X_DEFAULT_DATE_TIME_FORMAT => X_DEFAULT_DATE_TIME_FORMAT,
582 X_REPORT_TITLE => X_REPORT_TITLE,
583 X_USER_ATTRIBUTE_SET => X_USER_ATTRIBUTE_SET,
584 X_CREATION_DATE => f_ludate,
585 X_CREATED_BY => f_luby,
586 X_LAST_UPDATE_DATE => f_ludate,
587 X_LAST_UPDATED_BY => f_luby,
588 X_LAST_UPDATE_LOGIN => 0);
589 end;
590 end LOAD_ROW;
591
592 procedure TRANSLATE_ROW(
593 X_REPORT_ID in NUMBER,
594 X_ATTRIBUTE_SET in VARCHAR2,
595 X_REPORT_TITLE in VARCHAR2,
596 X_USER_ATTRIBUTE_SET in VARCHAR2,
597 X_OWNER in VARCHAR2) is
598 begin
599 TRANSLATE_ROW(
600 X_REPORT_ID => X_REPORT_ID,
601 X_ATTRIBUTE_SET => X_ATTRIBUTE_SET,
602 X_REPORT_TITLE => X_REPORT_TITLE,
603 X_USER_ATTRIBUTE_SET => X_USER_ATTRIBUTE_SET,
604 X_OWNER => X_OWNER,
605 X_LAST_UPDATE_DATE => null,
606 X_CUSTOM_MODE=>null);
607 end TRANSLATE_ROW;
608
609 procedure TRANSLATE_ROW(
610 X_REPORT_ID in NUMBER,
611 X_ATTRIBUTE_SET in VARCHAR2,
612 X_REPORT_TITLE in VARCHAR2,
613 X_USER_ATTRIBUTE_SET in VARCHAR2,
614 X_OWNER in VARCHAR2,
615 X_Last_Update_Date VARCHAR2,
616 X_CUSTOM_MODE in VARCHAR2
617 )
618 is
619 f_luby number; -- entity owner in file
620 f_ludate date; -- entity update date in file
621 begin
622
623 --* Bug#5102292, rravunny
624 --* Begin
625 --*
626 f_luby := fnd_load_util.owner_id(X_Owner);
627
628 -- Translate char last_update_date to date
629 f_ludate := nvl(to_date(X_Last_Update_Date, 'YYYY/MM/DD HH24:MI:SS'), sysdate);
630
631 --* End
632 --*
633 update fa_rx_attrsets_tl
634 set user_attribute_set = X_USER_ATTRIBUTE_SET,
635 report_title = X_REPORT_TITLE,
636 LAST_UPDATE_DATE = f_ludate,
637 LAST_UPDATED_BY = f_luby,
638 LAST_UPDATE_LOGIN = 0 ,
639 SOURCE_LANG = userenv('LANG')
640 where REPORT_ID = X_REPORT_ID
641 and ATTRIBUTE_SET = X_ATTRIBUTE_SET
642 and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
643
644 end TRANSLATE_ROW;
645
646 end FA_RX_ATTRSETS_PKG;