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