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