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