[Home] [Help]
PACKAGE BODY: APPS.BNE_INTEGRATORS_PKG
Source
1 package body BNE_INTEGRATORS_PKG as
2 /* $Header: bneintegb.pls 120.4 2010/12/20 15:01:47 amgonzal ship $ */
3
4 procedure INSERT_ROW (
5 X_ROWID in out NOCOPY VARCHAR2,
6 X_APPLICATION_ID in NUMBER,
7 X_INTEGRATOR_CODE in VARCHAR2,
8 X_ENABLED_FLAG in VARCHAR2,
9 X_OBJECT_VERSION_NUMBER in NUMBER,
10 X_UPLOAD_PARAM_LIST_APP_ID in NUMBER,
11 X_UPLOAD_PARAM_LIST_CODE in VARCHAR2,
12 X_UPLOAD_SERV_PARAM_LIST_APP_I in NUMBER,
13 X_UPLOAD_SERV_PARAM_LIST_CODE in VARCHAR2,
14 X_IMPORT_PARAM_LIST_APP_ID in NUMBER,
15 X_IMPORT_PARAM_LIST_CODE in VARCHAR2,
16 X_UPLOADER_CLASS in VARCHAR2,
17 X_DATE_FORMAT in VARCHAR2,
18 X_IMPORT_TYPE in NUMBER,
19 X_USER_NAME in VARCHAR2,
20 X_UPLOAD_TITLE_BAR in VARCHAR2,
21 X_UPLOAD_HEADER in VARCHAR2,
22 X_CREATION_DATE in DATE,
23 X_CREATED_BY in NUMBER,
24 X_LAST_UPDATE_DATE in DATE,
25 X_LAST_UPDATED_BY in NUMBER,
26 X_LAST_UPDATE_LOGIN in NUMBER,
27 X_CREATE_DOC_LIST_APP_ID in NUMBER,
28 X_CREATE_DOC_LIST_CODE in VARCHAR2,
29 X_NEW_SESSION_FLAG in VARCHAR2,
30 X_LAYOUT_RESOLVER_CLASS in VARCHAR2,
31 X_LAYOUT_VERIFIER_CLASS in VARCHAR2,
32 X_SESSION_CONFIG_CLASS in VARCHAR2,
33 X_SESSION_PARAM_LIST_APP_ID in NUMBER,
34 X_SESSION_PARAM_LIST_CODE in VARCHAR2,
35 X_DISPLAY_FLAG in VARCHAR2,
36 X_SOURCE in VARCHAR2
37 ) is
38 cursor C is select ROWID from BNE_INTEGRATORS_B
39 where APPLICATION_ID = X_APPLICATION_ID
40 and INTEGRATOR_CODE = X_INTEGRATOR_CODE
41 ;
42 begin
43 insert into BNE_INTEGRATORS_B (
44 ENABLED_FLAG,
45 OBJECT_VERSION_NUMBER,
46 UPLOAD_PARAM_LIST_APP_ID,
47 UPLOAD_PARAM_LIST_CODE,
48 UPLOAD_SERV_PARAM_LIST_APP_ID,
49 UPLOAD_SERV_PARAM_LIST_CODE,
50 IMPORT_PARAM_LIST_APP_ID,
51 IMPORT_PARAM_LIST_CODE,
52 UPLOADER_CLASS,
53 DATE_FORMAT,
54 IMPORT_TYPE,
55 APPLICATION_ID,
56 INTEGRATOR_CODE,
57 CREATION_DATE,
58 CREATED_BY,
59 LAST_UPDATE_DATE,
60 LAST_UPDATED_BY,
61 LAST_UPDATE_LOGIN,
62 CREATE_DOC_LIST_APP_ID,
63 CREATE_DOC_LIST_CODE,
64 NEW_SESSION_FLAG,
65 LAYOUT_RESOLVER_CLASS,
66 LAYOUT_VERIFIER_CLASS,
67 SESSION_CONFIG_CLASS,
68 SESSION_PARAM_LIST_APP_ID,
69 SESSION_PARAM_LIST_CODE,
70 DISPLAY_FLAG,
71 SOURCE
72
73 ) values (
74 X_ENABLED_FLAG,
75 X_OBJECT_VERSION_NUMBER,
76 X_UPLOAD_PARAM_LIST_APP_ID,
77 X_UPLOAD_PARAM_LIST_CODE,
78 X_UPLOAD_SERV_PARAM_LIST_APP_I,
79 X_UPLOAD_SERV_PARAM_LIST_CODE,
80 X_IMPORT_PARAM_LIST_APP_ID,
81 X_IMPORT_PARAM_LIST_CODE,
82 X_UPLOADER_CLASS,
83 X_DATE_FORMAT,
84 X_IMPORT_TYPE,
85 X_APPLICATION_ID,
86 X_INTEGRATOR_CODE,
87 X_CREATION_DATE,
88 X_CREATED_BY,
89 X_LAST_UPDATE_DATE,
90 X_LAST_UPDATED_BY,
91 X_LAST_UPDATE_LOGIN,
92 X_CREATE_DOC_LIST_APP_ID,
93 X_CREATE_DOC_LIST_CODE,
94 X_NEW_SESSION_FLAG,
95 X_LAYOUT_RESOLVER_CLASS,
96 X_LAYOUT_VERIFIER_CLASS,
97 X_SESSION_CONFIG_CLASS,
98 X_SESSION_PARAM_LIST_APP_ID,
99 X_SESSION_PARAM_LIST_CODE,
100 X_DISPLAY_FLAG,
101 X_SOURCE
102 );
103
104 insert into BNE_INTEGRATORS_TL (
105 APPLICATION_ID,
106 INTEGRATOR_CODE,
107 USER_NAME,
108 UPLOAD_HEADER,
109 UPLOAD_TITLE_BAR,
110 CREATED_BY,
111 CREATION_DATE,
112 LAST_UPDATED_BY,
113 LAST_UPDATE_LOGIN,
114 LAST_UPDATE_DATE,
115 LANGUAGE,
116 SOURCE_LANG
117 ) select
118 X_APPLICATION_ID,
119 X_INTEGRATOR_CODE,
120 X_USER_NAME,
121 X_UPLOAD_HEADER,
122 X_UPLOAD_TITLE_BAR,
123 X_CREATED_BY,
124 X_CREATION_DATE,
125 X_LAST_UPDATED_BY,
126 X_LAST_UPDATE_LOGIN,
127 X_LAST_UPDATE_DATE,
128 L.LANGUAGE_CODE,
129 userenv('LANG')
130 from FND_LANGUAGES L
131 where L.INSTALLED_FLAG in ('I', 'B')
132 and not exists
133 (select NULL
134 from BNE_INTEGRATORS_TL T
135 where T.APPLICATION_ID = X_APPLICATION_ID
136 and T.INTEGRATOR_CODE = X_INTEGRATOR_CODE
137 and T.LANGUAGE = L.LANGUAGE_CODE);
138
139 open c;
140 fetch c into X_ROWID;
141 if (c%notfound) then
142 close c;
143 raise no_data_found;
144 end if;
145 close c;
146
147 end INSERT_ROW;
148
149 procedure LOCK_ROW (
150 X_APPLICATION_ID in NUMBER,
151 X_INTEGRATOR_CODE in VARCHAR2,
152 X_ENABLED_FLAG in VARCHAR2,
153 X_OBJECT_VERSION_NUMBER in NUMBER,
154 X_UPLOAD_PARAM_LIST_APP_ID in NUMBER,
155 X_UPLOAD_PARAM_LIST_CODE in VARCHAR2,
156 X_UPLOAD_SERV_PARAM_LIST_APP_I in NUMBER,
157 X_UPLOAD_SERV_PARAM_LIST_CODE in VARCHAR2,
158 X_IMPORT_PARAM_LIST_APP_ID in NUMBER,
159 X_IMPORT_PARAM_LIST_CODE in VARCHAR2,
160 X_UPLOADER_CLASS in VARCHAR2,
161 X_DATE_FORMAT in VARCHAR2,
162 X_IMPORT_TYPE in NUMBER,
163 X_USER_NAME in VARCHAR2,
164 X_UPLOAD_TITLE_BAR in VARCHAR2,
165 X_UPLOAD_HEADER in VARCHAR2,
166 X_CREATE_DOC_LIST_APP_ID in NUMBER,
167 X_CREATE_DOC_LIST_CODE in VARCHAR2,
168 X_NEW_SESSION_FLAG in VARCHAR2,
169 X_LAYOUT_RESOLVER_CLASS in VARCHAR2,
170 X_LAYOUT_VERIFIER_CLASS in VARCHAR2,
171 X_SESSION_CONFIG_CLASS in VARCHAR2,
172 X_SESSION_PARAM_LIST_APP_ID in NUMBER,
173 X_SESSION_PARAM_LIST_CODE in VARCHAR2,
174 X_DISPLAY_FLAG in VARCHAR2,
175 X_SOURCE in VARCHAR2
176 ) is
177 cursor c is select
178 ENABLED_FLAG,
179 OBJECT_VERSION_NUMBER,
180 UPLOAD_PARAM_LIST_APP_ID,
181 UPLOAD_PARAM_LIST_CODE,
182 UPLOAD_SERV_PARAM_LIST_APP_ID,
183 UPLOAD_SERV_PARAM_LIST_CODE,
184 IMPORT_PARAM_LIST_APP_ID,
185 IMPORT_PARAM_LIST_CODE,
186 UPLOADER_CLASS,
187 DATE_FORMAT,
188 IMPORT_TYPE,
189 CREATE_DOC_LIST_APP_ID,
190 CREATE_DOC_LIST_CODE,
191 NEW_SESSION_FLAG,
192 LAYOUT_RESOLVER_CLASS,
193 LAYOUT_VERIFIER_CLASS,
194 SESSION_CONFIG_CLASS,
195 SESSION_PARAM_LIST_APP_ID,
196 SESSION_PARAM_LIST_CODE,
197 DISPLAY_FLAG,
198 SOURCE
199 from BNE_INTEGRATORS_B
200 where APPLICATION_ID = X_APPLICATION_ID
201 and INTEGRATOR_CODE = X_INTEGRATOR_CODE
202 for update of APPLICATION_ID nowait;
203 recinfo c%rowtype;
204
205 cursor c1 is select
206 USER_NAME,
207 UPLOAD_TITLE_BAR,
208 UPLOAD_HEADER,
209 decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
210 from BNE_INTEGRATORS_TL
211 where APPLICATION_ID = X_APPLICATION_ID
212 and INTEGRATOR_CODE = X_INTEGRATOR_CODE
213 and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
214 for update of APPLICATION_ID nowait;
215 begin
216 open c;
217 fetch c into recinfo;
218 if (c%notfound) then
219 close c;
220 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
221 app_exception.raise_exception;
222 end if;
223 close c;
224 if ( (recinfo.ENABLED_FLAG = X_ENABLED_FLAG)
225 AND (recinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER)
226 AND ((recinfo.UPLOAD_PARAM_LIST_APP_ID = X_UPLOAD_PARAM_LIST_APP_ID)
227 OR ((recinfo.UPLOAD_PARAM_LIST_APP_ID is null) AND (X_UPLOAD_PARAM_LIST_APP_ID is null)))
228 AND ((recinfo.UPLOAD_PARAM_LIST_CODE = X_UPLOAD_PARAM_LIST_CODE)
229 OR ((recinfo.UPLOAD_PARAM_LIST_CODE is null) AND (X_UPLOAD_PARAM_LIST_CODE is null)))
230 AND ((recinfo.UPLOAD_SERV_PARAM_LIST_APP_ID = X_UPLOAD_SERV_PARAM_LIST_APP_I)
231 OR ((recinfo.UPLOAD_SERV_PARAM_LIST_APP_ID is null) AND (X_UPLOAD_SERV_PARAM_LIST_APP_I is null)))
232 AND ((recinfo.UPLOAD_SERV_PARAM_LIST_CODE = X_UPLOAD_SERV_PARAM_LIST_CODE)
233 OR ((recinfo.UPLOAD_SERV_PARAM_LIST_CODE is null) AND (X_UPLOAD_SERV_PARAM_LIST_CODE is null)))
234 AND ((recinfo.IMPORT_PARAM_LIST_APP_ID = X_IMPORT_PARAM_LIST_APP_ID)
235 OR ((recinfo.IMPORT_PARAM_LIST_APP_ID is null) AND (X_IMPORT_PARAM_LIST_APP_ID is null)))
236 AND ((recinfo.IMPORT_PARAM_LIST_CODE = X_IMPORT_PARAM_LIST_CODE)
237 OR ((recinfo.IMPORT_PARAM_LIST_CODE is null) AND (X_IMPORT_PARAM_LIST_CODE is null)))
238 AND ((recinfo.UPLOADER_CLASS = X_UPLOADER_CLASS)
239 OR ((recinfo.UPLOADER_CLASS is null) AND (X_UPLOADER_CLASS is null)))
240 AND (recinfo.DATE_FORMAT = X_DATE_FORMAT)
241 AND ((recinfo.IMPORT_TYPE = X_IMPORT_TYPE)
242 OR ((recinfo.IMPORT_TYPE is null) AND (X_IMPORT_TYPE is null)))
243 AND ((recinfo.CREATE_DOC_LIST_APP_ID = X_CREATE_DOC_LIST_APP_ID)
244 OR ((recinfo.CREATE_DOC_LIST_APP_ID is null) AND (X_CREATE_DOC_LIST_APP_ID is null)))
245 AND ((recinfo.CREATE_DOC_LIST_CODE = X_CREATE_DOC_LIST_CODE)
246 OR ((recinfo.CREATE_DOC_LIST_CODE is null) AND (X_CREATE_DOC_LIST_CODE is null)))
247 AND ((recinfo.NEW_SESSION_FLAG = X_NEW_SESSION_FLAG)
248 OR ((recinfo.NEW_SESSION_FLAG is null) AND (X_NEW_SESSION_FLAG is null)))
249 AND ((recinfo.LAYOUT_RESOLVER_CLASS = X_LAYOUT_RESOLVER_CLASS)
250 OR ((recinfo.LAYOUT_RESOLVER_CLASS is null) AND (X_LAYOUT_RESOLVER_CLASS is null)))
251 AND ((recinfo.LAYOUT_VERIFIER_CLASS = X_LAYOUT_VERIFIER_CLASS)
252 OR ((recinfo.LAYOUT_VERIFIER_CLASS is null) AND (X_LAYOUT_VERIFIER_CLASS is null)))
253 AND ((recinfo.SESSION_CONFIG_CLASS = X_SESSION_CONFIG_CLASS)
254 OR ((recinfo.SESSION_CONFIG_CLASS is null) AND (X_SESSION_CONFIG_CLASS is null)))
255 AND ((recinfo.SESSION_PARAM_LIST_APP_ID = X_SESSION_PARAM_LIST_APP_ID)
256 OR ((recinfo.SESSION_PARAM_LIST_APP_ID is null) AND (X_SESSION_PARAM_LIST_APP_ID is null)))
257 AND ((recinfo.SESSION_PARAM_LIST_CODE = X_SESSION_PARAM_LIST_CODE)
258 OR ((recinfo.SESSION_PARAM_LIST_CODE is null) AND (X_SESSION_PARAM_LIST_CODE is null)))
259 AND ((recinfo.SOURCE = X_SOURCE)
260 OR ((recinfo.SOURCE is null) AND (X_SOURCE is null)))
261 AND ((recinfo.DISPLAY_FLAG = X_DISPLAY_FLAG)
262 OR ((recinfo.DISPLAY_FLAG is null) AND (X_DISPLAY_FLAG is null)))
263 ) then
264 null;
265 else
266 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
267 app_exception.raise_exception;
268 end if;
269
270 for tlinfo in c1 loop
271 if (tlinfo.BASELANG = 'Y') then
272 if ( (tlinfo.USER_NAME = X_USER_NAME)
273 AND ((tlinfo.UPLOAD_TITLE_BAR = X_UPLOAD_TITLE_BAR)
274 OR ((tlinfo.UPLOAD_TITLE_BAR is null) AND (X_UPLOAD_TITLE_BAR is null)))
275 AND ((tlinfo.UPLOAD_HEADER = X_UPLOAD_HEADER)
276 OR ((tlinfo.UPLOAD_HEADER is null) AND (X_UPLOAD_HEADER is null)))
277 ) then
278 null;
279 else
280 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
281 app_exception.raise_exception;
282 end if;
283 end if;
284 end loop;
285 return;
286 end LOCK_ROW;
287
288 procedure UPDATE_ROW (
289 X_APPLICATION_ID in NUMBER,
290 X_INTEGRATOR_CODE in VARCHAR2,
291 X_ENABLED_FLAG in VARCHAR2,
292 X_OBJECT_VERSION_NUMBER in NUMBER,
293 X_UPLOAD_PARAM_LIST_APP_ID in NUMBER,
294 X_UPLOAD_PARAM_LIST_CODE in VARCHAR2,
295 X_UPLOAD_SERV_PARAM_LIST_APP_I in NUMBER,
296 X_UPLOAD_SERV_PARAM_LIST_CODE in VARCHAR2,
297 X_IMPORT_PARAM_LIST_APP_ID in NUMBER,
298 X_IMPORT_PARAM_LIST_CODE in VARCHAR2,
299 X_UPLOADER_CLASS in VARCHAR2,
300 X_DATE_FORMAT in VARCHAR2,
301 X_IMPORT_TYPE in NUMBER,
302 X_USER_NAME in VARCHAR2,
303 X_UPLOAD_TITLE_BAR in VARCHAR2,
304 X_UPLOAD_HEADER in VARCHAR2,
305 X_LAST_UPDATE_DATE in DATE,
306 X_LAST_UPDATED_BY in NUMBER,
307 X_LAST_UPDATE_LOGIN in NUMBER,
308 X_CREATE_DOC_LIST_APP_ID in NUMBER,
309 X_CREATE_DOC_LIST_CODE in VARCHAR2,
310 X_NEW_SESSION_FLAG in VARCHAR2,
311 X_LAYOUT_RESOLVER_CLASS in VARCHAR2,
312 X_LAYOUT_VERIFIER_CLASS in VARCHAR2,
313 X_SESSION_CONFIG_CLASS in VARCHAR2,
314 X_SESSION_PARAM_LIST_APP_ID in NUMBER,
315 X_SESSION_PARAM_LIST_CODE in VARCHAR2,
316 X_DISPLAY_FLAG in VARCHAR2,
317 X_SOURCE in VARCHAR2
318 ) is
319 begin
320 update BNE_INTEGRATORS_B set
321 ENABLED_FLAG = X_ENABLED_FLAG,
322 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
323 UPLOAD_PARAM_LIST_APP_ID = X_UPLOAD_PARAM_LIST_APP_ID,
324 UPLOAD_PARAM_LIST_CODE = X_UPLOAD_PARAM_LIST_CODE,
325 UPLOAD_SERV_PARAM_LIST_APP_ID = X_UPLOAD_SERV_PARAM_LIST_APP_I,
326 UPLOAD_SERV_PARAM_LIST_CODE = X_UPLOAD_SERV_PARAM_LIST_CODE,
327 IMPORT_PARAM_LIST_APP_ID = X_IMPORT_PARAM_LIST_APP_ID,
328 IMPORT_PARAM_LIST_CODE = X_IMPORT_PARAM_LIST_CODE,
332 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
329 UPLOADER_CLASS = X_UPLOADER_CLASS,
330 DATE_FORMAT = X_DATE_FORMAT,
331 IMPORT_TYPE = X_IMPORT_TYPE,
333 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
334 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
335 CREATE_DOC_LIST_APP_ID = X_CREATE_DOC_LIST_APP_ID,
336 CREATE_DOC_LIST_CODE = X_CREATE_DOC_LIST_CODE,
337 NEW_SESSION_FLAG = X_NEW_SESSION_FLAG,
338 LAYOUT_RESOLVER_CLASS = X_LAYOUT_RESOLVER_CLASS,
339 LAYOUT_VERIFIER_CLASS = X_LAYOUT_VERIFIER_CLASS,
340 SESSION_CONFIG_CLASS = X_SESSION_CONFIG_CLASS,
341 SESSION_PARAM_LIST_APP_ID = X_SESSION_PARAM_LIST_APP_ID,
342 SESSION_PARAM_LIST_CODE = X_SESSION_PARAM_LIST_CODE,
343 DISPLAY_FLAG = X_DISPLAY_FLAG,
344 SOURCE = X_SOURCE
345 where APPLICATION_ID = X_APPLICATION_ID
346 and INTEGRATOR_CODE = X_INTEGRATOR_CODE;
347
348 if (sql%notfound) then
349 raise no_data_found;
350 end if;
351
352 update BNE_INTEGRATORS_TL set
353 USER_NAME = X_USER_NAME,
354 UPLOAD_TITLE_BAR = X_UPLOAD_TITLE_BAR,
355 UPLOAD_HEADER = X_UPLOAD_HEADER,
356 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
357 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
358 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
359 SOURCE_LANG = userenv('LANG')
360 where APPLICATION_ID = X_APPLICATION_ID
361 and INTEGRATOR_CODE = X_INTEGRATOR_CODE
362 and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
363
364 if (sql%notfound) then
365 raise no_data_found;
366 end if;
367 end UPDATE_ROW;
368
369 procedure DELETE_ROW (
370 X_APPLICATION_ID in NUMBER,
371 X_INTEGRATOR_CODE in VARCHAR2
372 ) is
373 begin
374 delete from BNE_INTEGRATORS_TL
375 where APPLICATION_ID = X_APPLICATION_ID
376 and INTEGRATOR_CODE = X_INTEGRATOR_CODE;
377
378 if (sql%notfound) then
379 raise no_data_found;
380 end if;
381
382 delete from BNE_INTEGRATORS_B
383 where APPLICATION_ID = X_APPLICATION_ID
384 and INTEGRATOR_CODE = X_INTEGRATOR_CODE;
385
386 if (sql%notfound) then
387 raise no_data_found;
388 end if;
389 end DELETE_ROW;
390
391 procedure ADD_LANGUAGE
392 is
393 begin
394 delete from BNE_INTEGRATORS_TL T
395 where not exists
396 (select NULL
397 from BNE_INTEGRATORS_B B
398 where B.APPLICATION_ID = T.APPLICATION_ID
399 and B.INTEGRATOR_CODE = T.INTEGRATOR_CODE
400 );
401
402 update BNE_INTEGRATORS_TL T set (
403 USER_NAME,
404 UPLOAD_TITLE_BAR,
405 UPLOAD_HEADER
406 ) = (select
407 B.USER_NAME,
408 B.UPLOAD_TITLE_BAR,
409 B.UPLOAD_HEADER
410 from BNE_INTEGRATORS_TL B
411 where B.APPLICATION_ID = T.APPLICATION_ID
412 and B.INTEGRATOR_CODE = T.INTEGRATOR_CODE
413 and B.LANGUAGE = T.SOURCE_LANG)
414 where (
415 T.APPLICATION_ID,
416 T.INTEGRATOR_CODE,
417 T.LANGUAGE
418 ) in (select
419 SUBT.APPLICATION_ID,
420 SUBT.INTEGRATOR_CODE,
421 SUBT.LANGUAGE
422 from BNE_INTEGRATORS_TL SUBB, BNE_INTEGRATORS_TL SUBT
423 where SUBB.APPLICATION_ID = SUBT.APPLICATION_ID
424 and SUBB.INTEGRATOR_CODE = SUBT.INTEGRATOR_CODE
425 and SUBB.LANGUAGE = SUBT.SOURCE_LANG
426 and (SUBB.USER_NAME <> SUBT.USER_NAME
427 or SUBB.UPLOAD_TITLE_BAR <> SUBT.UPLOAD_TITLE_BAR
428 or (SUBB.UPLOAD_TITLE_BAR is null and SUBT.UPLOAD_TITLE_BAR is not null)
429 or (SUBB.UPLOAD_TITLE_BAR is not null and SUBT.UPLOAD_TITLE_BAR is null)
430 or SUBB.UPLOAD_HEADER <> SUBT.UPLOAD_HEADER
431 or (SUBB.UPLOAD_HEADER is null and SUBT.UPLOAD_HEADER is not null)
432 or (SUBB.UPLOAD_HEADER is not null and SUBT.UPLOAD_HEADER is null)
433 ));
434
435 insert into BNE_INTEGRATORS_TL (
436 APPLICATION_ID,
437 INTEGRATOR_CODE,
438 USER_NAME,
439 UPLOAD_HEADER,
440 UPLOAD_TITLE_BAR,
441 CREATED_BY,
442 CREATION_DATE,
443 LAST_UPDATED_BY,
444 LAST_UPDATE_LOGIN,
445 LAST_UPDATE_DATE,
446 LANGUAGE,
447 SOURCE_LANG
448 ) select
449 B.APPLICATION_ID,
450 B.INTEGRATOR_CODE,
451 B.USER_NAME,
452 B.UPLOAD_HEADER,
453 B.UPLOAD_TITLE_BAR,
454 B.CREATED_BY,
455 B.CREATION_DATE,
456 B.LAST_UPDATED_BY,
457 B.LAST_UPDATE_LOGIN,
458 B.LAST_UPDATE_DATE,
459 L.LANGUAGE_CODE,
460 B.SOURCE_LANG
461 from BNE_INTEGRATORS_TL B, FND_LANGUAGES L
462 where L.INSTALLED_FLAG in ('I', 'B')
463 and B.LANGUAGE = userenv('LANG')
464 and not exists
465 (select NULL
466 from BNE_INTEGRATORS_TL T
467 where T.APPLICATION_ID = B.APPLICATION_ID
468 and T.INTEGRATOR_CODE = B.INTEGRATOR_CODE
469 and T.LANGUAGE = L.LANGUAGE_CODE);
470 end ADD_LANGUAGE;
471
472
473 --------------------------------------------------------------------------------
474 -- PROCEDURE: TRANSLATE_ROW --
475 -- --
476 -- DESCRIPTION: Load a translation into the BNE_INTEGRATORS entity. --
477 -- This proc is called from the apps loader. --
478 -- --
479 -- SEE: http://www-apps.us.oracle.com/atg/plans/r115/fndloadqr.txt --
480 -- --
481 -- --
482 -- MODIFICATION HISTORY --
486 procedure TRANSLATE_ROW(
483 -- Date Username Description --
484 -- 1-Oct-02 DGROVES CREATED --
485 --------------------------------------------------------------------------------
487 x_integrator_asn in VARCHAR2,
488 x_integrator_code in VARCHAR2,
489 x_user_name in VARCHAR2,
490 x_upload_header in VARCHAR2,
491 x_upload_title_bar in VARCHAR2,
492 x_owner in VARCHAR2,
493 x_last_update_date in VARCHAR2,
494 x_custom_mode in VARCHAR2
495 )
496 is
497 l_app_id number;
498 f_luby number; -- entity owner in file
499 f_ludate date; -- entity update date in file
500 db_luby number; -- entity owner in db
501 db_ludate date; -- entity update date in db
502 begin
503 -- translate values to IDs
504 l_app_id := BNE_LCT_TOOLS_PKG.ASN_TO_APP_ID(x_integrator_asn);
505
506 -- Translate owner to file_last_updated_by
507 f_luby := fnd_load_util.owner_id(x_owner);
508
509 -- Translate char last_update_date to date
510 f_ludate := nvl(to_date(x_last_update_date, 'YYYY/MM/DD'), sysdate);
511 begin
512 select LAST_UPDATED_BY, LAST_UPDATE_DATE
513 into db_luby, db_ludate
514 from BNE_INTEGRATORS_TL
515 where APPLICATION_ID = l_app_id
516 and INTEGRATOR_CODE = x_integrator_code
517 and LANGUAGE = userenv('LANG');
518
519 -- Test for customization and version
520 if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby,
521 db_ludate, x_custom_mode)) then
522
523 update BNE_INTEGRATORS_TL
524 set USER_NAME = x_user_name,
525 UPLOAD_HEADER = x_upload_header,
526 UPLOAD_TITLE_BAR = x_upload_title_bar,
527 LAST_UPDATE_DATE = f_ludate,
528 LAST_UPDATED_BY = f_luby,
529 LAST_UPDATE_LOGIN = 0,
530 SOURCE_LANG = userenv('LANG')
531 where APPLICATION_ID = l_app_id
532 AND INTEGRATOR_CODE = x_integrator_code
533 AND userenv('LANG') in (LANGUAGE, SOURCE_LANG)
534 ;
535 end if;
536 exception
537 when no_data_found then
538 -- Do not insert missing translations, skip this row
539 null;
540 end;
541 end TRANSLATE_ROW;
542
543 --------------------------------------------------------------------------------
544 -- PROCEDURE: LOAD_ROW --
545 -- --
546 -- DESCRIPTION: Load a row into the BNE_INTEGRATORS entity. --
547 -- This proc is called from the apps loader. --
548 -- --
549 -- SEE: http://www-apps.us.oracle.com/atg/plans/r115/fndloadqr.txt --
550 -- --
551 -- --
552 -- MODIFICATION HISTORY --
553 -- Date Username Description --
554 -- 1-Oct-02 DGROVES CREATED --
555 --------------------------------------------------------------------------------
556 procedure LOAD_ROW(
557 x_integrator_asn in VARCHAR2,
558 x_integrator_code in VARCHAR2,
559 x_object_version_number in VARCHAR2,
560 x_enabled_flag in VARCHAR2,
561 x_upload_param_list_asn in VARCHAR2,
562 x_upload_param_list_code in VARCHAR2,
563 x_upload_serv_param_list_asn in VARCHAR2,
564 x_upload_serv_param_list_code in VARCHAR2,
565 x_import_param_list_asn in VARCHAR2,
566 x_import_param_code in VARCHAR2,
567 x_date_format in VARCHAR2,
568 x_import_type in VARCHAR2,
569 x_uploader_class in VARCHAR2,
570 x_user_name in VARCHAR2,
571 x_upload_header in VARCHAR2,
572 x_upload_title_bar in VARCHAR2,
573 x_owner in VARCHAR2,
574 x_last_update_date in VARCHAR2,
575 x_custom_mode in VARCHAR2,
576 x_create_doc_list_asn in VARCHAR2,
577 x_create_doc_list_code in VARCHAR2,
578 x_new_session_flag in VARCHAR2,
579 x_layout_resolver_class in VARCHAR2,
580 x_layout_verifier_class in VARCHAR2,
581 x_session_config_class in VARCHAR2,
582 x_session_param_list_asn in VARCHAR2,
583 x_session_param_list_code in VARCHAR2,
584 x_display_flag in VARCHAR2,
585 x_source in VARCHAR2 default null
586 )
587 is
588 l_app_id number;
589 l_upload_param_app_id number;
590 l_upload_serv_param_app_id number;
591 l_import_param_app_id number;
592 l_create_doc_list_app_id number;
593 l_session_param_list_app_id number;
594 l_row_id varchar2(64);
595 f_luby number; -- entity owner in file
596 f_ludate date; -- entity update date in file
597 db_luby number; -- entity owner in db
598 db_ludate date; -- entity update date in db
599 begin
600 -- translate values to IDs
601 l_app_id := BNE_LCT_TOOLS_PKG.ASN_TO_APP_ID(x_integrator_asn);
602 l_upload_param_app_id := BNE_LCT_TOOLS_PKG.ASN_TO_APP_ID(x_upload_param_list_asn);
603 l_upload_serv_param_app_id := BNE_LCT_TOOLS_PKG.ASN_TO_APP_ID(x_upload_serv_param_list_asn);
607
604 l_import_param_app_id := BNE_LCT_TOOLS_PKG.ASN_TO_APP_ID(x_import_param_list_asn);
605 l_create_doc_list_app_id := BNE_LCT_TOOLS_PKG.ASN_TO_APP_ID(x_create_doc_list_asn);
606 l_session_param_list_app_id := BNE_LCT_TOOLS_PKG.ASN_TO_APP_ID(x_session_param_list_asn);
608 -- Translate owner to file_last_updated_by
609 f_luby := fnd_load_util.owner_id(x_owner);
610
611 -- Translate char last_update_date to date
612 f_ludate := nvl(to_date(x_last_update_date, 'YYYY/MM/DD'), sysdate);
613 begin
614 select LAST_UPDATED_BY, LAST_UPDATE_DATE
615 into db_luby, db_ludate
616 from BNE_INTEGRATORS_B
617 where APPLICATION_ID = l_app_id
618 and INTEGRATOR_CODE = x_integrator_code;
619
620 -- Test for customization and version
621 if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby,
622 db_ludate, x_custom_mode)) then
623 -- Update existing row
624 BNE_INTEGRATORS_PKG.Update_Row(
625 X_APPLICATION_ID => l_app_id,
626 X_INTEGRATOR_CODE => x_integrator_code,
627 X_OBJECT_VERSION_NUMBER => x_object_version_number,
628 X_ENABLED_FLAG => x_enabled_flag,
629 X_UPLOAD_PARAM_LIST_APP_ID => l_upload_param_app_id,
630 X_UPLOAD_PARAM_LIST_CODE => x_upload_param_list_code,
631 X_UPLOAD_SERV_PARAM_LIST_APP_I => l_upload_serv_param_app_id,
632 X_UPLOAD_SERV_PARAM_LIST_CODE => x_upload_serv_param_list_code,
633 X_IMPORT_PARAM_LIST_APP_ID => l_import_param_app_id,
634 X_IMPORT_PARAM_LIST_CODE => x_import_param_code,
635 X_UPLOADER_CLASS => x_uploader_class,
636 X_DATE_FORMAT => x_date_format,
637 X_IMPORT_TYPE => x_import_type,
638 X_USER_NAME => x_user_name,
639 X_UPLOAD_TITLE_BAR => x_upload_title_bar,
640 X_UPLOAD_HEADER => x_upload_header,
641 X_LAST_UPDATE_DATE => f_ludate,
642 X_LAST_UPDATED_BY => f_luby,
643 X_LAST_UPDATE_LOGIN => 0,
644 X_CREATE_DOC_LIST_APP_ID => l_create_doc_list_app_id,
645 X_CREATE_DOC_LIST_CODE => x_create_doc_list_code,
646 X_NEW_SESSION_FLAG => x_new_session_flag,
647 X_LAYOUT_RESOLVER_CLASS => x_layout_resolver_class,
648 X_LAYOUT_VERIFIER_CLASS => x_layout_verifier_class,
649 X_SESSION_CONFIG_CLASS => x_session_config_class,
650 X_SESSION_PARAM_LIST_APP_ID => l_session_param_list_app_id,
651 X_SESSION_PARAM_LIST_CODE => x_session_param_list_code,
652 X_DISPLAY_FLAG => x_display_flag,
653 X_SOURCE => x_source
654 );
655 end if;
656 exception
657 when no_data_found then
658 -- Record doesn't exist - insert in all cases
659 BNE_INTEGRATORS_PKG.Insert_Row(
660 X_ROWID => l_row_id,
661 X_APPLICATION_ID => l_app_id,
662 X_INTEGRATOR_CODE => x_INTEGRATOR_code,
663 X_ENABLED_FLAG => x_enabled_flag,
664 X_OBJECT_VERSION_NUMBER => x_object_version_number,
665 X_UPLOAD_PARAM_LIST_APP_ID => l_upload_param_app_id,
666 X_UPLOAD_PARAM_LIST_CODE => x_upload_param_list_code,
667 X_UPLOAD_SERV_PARAM_LIST_APP_I => l_upload_serv_param_app_id,
668 X_UPLOAD_SERV_PARAM_LIST_CODE => x_upload_serv_param_list_code,
669 X_IMPORT_PARAM_LIST_APP_ID => l_import_param_app_id,
670 X_IMPORT_PARAM_LIST_CODE => x_import_param_code,
671 X_UPLOADER_CLASS => x_uploader_class,
672 X_DATE_FORMAT => x_date_format,
673 X_IMPORT_TYPE => x_import_type,
674 X_USER_NAME => x_user_name,
675 X_UPLOAD_TITLE_BAR => x_upload_title_bar,
676 X_UPLOAD_HEADER => x_upload_header,
677 X_CREATION_DATE => f_ludate,
678 X_CREATED_BY => f_luby,
679 X_LAST_UPDATE_DATE => f_ludate,
680 X_LAST_UPDATED_BY => f_luby,
681 X_LAST_UPDATE_LOGIN => 0,
682 X_CREATE_DOC_LIST_APP_ID => l_create_doc_list_app_id,
683 X_CREATE_DOC_LIST_CODE => x_create_doc_list_code,
684 X_NEW_SESSION_FLAG => x_new_session_flag,
685 X_LAYOUT_RESOLVER_CLASS => x_layout_resolver_class,
686 X_LAYOUT_VERIFIER_CLASS => x_layout_verifier_class,
687 X_SESSION_CONFIG_CLASS => x_session_config_class,
688 X_SESSION_PARAM_LIST_APP_ID => l_session_param_list_app_id,
689 X_SESSION_PARAM_LIST_CODE => x_session_param_list_code,
690 X_DISPLAY_FLAG => x_display_flag,
691 X_SOURCE => x_source
692 );
693 end;
694 end LOAD_ROW;
695
696
697 end BNE_INTEGRATORS_PKG;