[Home] [Help]
PACKAGE BODY: APPS.JTF_AM_SCREEN_SETUPS_PKG
Source
1 package body JTF_AM_SCREEN_SETUPS_PKG as
2 /* $Header: jtfamtsb.pls 115.3 2002/12/03 21:02:17 sroychou ship $ */
3 procedure INSERT_ROW (
4 X_ROWID in out NOCOPY VARCHAR2,
5 X_SCREEN_SETUP_ID in NUMBER,
6 X_ATTRIBUTE15 in VARCHAR2,
7 X_ATTRIBUTE_CATEGORY in VARCHAR2,
8 X_SECURITY_GROUP_ID in NUMBER,
9 X_ATTRIBUTE11 in VARCHAR2,
10 X_MODE_ASSIST in VARCHAR2,
11 X_MODE_UNASSIST in VARCHAR2,
12 X_CONTRACTS in VARCHAR2,
13 X_INSTALLED_BASE in VARCHAR2,
14 X_TERRITORY in VARCHAR2,
15 X_AVAILABILITY in VARCHAR2,
16 X_DOCUMENT_TYPE in VARCHAR2,
17 X_ATTRIBUTE7 in VARCHAR2,
18 X_ATTRIBUTE8 in VARCHAR2,
19 X_ATTRIBUTE9 in VARCHAR2,
20 X_ATTRIBUTE10 in VARCHAR2,
21 X_ATTRIBUTE12 in VARCHAR2,
22 X_ATTRIBUTE13 in VARCHAR2,
23 X_ATTRIBUTE14 in VARCHAR2,
24 X_WINDOW_WIDTH in NUMBER,
25 X_WINDOW_HEIGHT in NUMBER,
26 X_WINDOW_X_POSITION in NUMBER,
27 X_WINDOW_Y_POSITION in NUMBER,
28 X_DOC_DTLS_USER_VALUES in VARCHAR2,
29 X_SHOW_SELECTED_TIME in VARCHAR2,
30 X_OBJECT_VERSION_NUMBER in NUMBER,
31 X_USER_ID in NUMBER,
32 X_ATTRIBUTE1 in VARCHAR2,
33 X_ATTRIBUTE2 in VARCHAR2,
34 X_ATTRIBUTE3 in VARCHAR2,
35 X_ATTRIBUTE4 in VARCHAR2,
36 X_ATTRIBUTE5 in VARCHAR2,
37 X_ATTRIBUTE6 in VARCHAR2,
38 X_DOC_DETAILS in VARCHAR2,
39 X_PREFERENCE_NAME in VARCHAR2,
40 X_CREATION_DATE in DATE,
41 X_CREATED_BY in NUMBER,
42 X_LAST_UPDATE_DATE in DATE,
43 X_LAST_UPDATED_BY in NUMBER,
44 X_LAST_UPDATE_LOGIN in NUMBER
45 ) is
46 cursor C is select ROWID from JTF_AM_SCREEN_SETUPS_B
47 where SCREEN_SETUP_ID = X_SCREEN_SETUP_ID
48 ;
49 begin
50 insert into JTF_AM_SCREEN_SETUPS_B (
51 ATTRIBUTE15,
52 ATTRIBUTE_CATEGORY,
53 SECURITY_GROUP_ID,
54 ATTRIBUTE11,
55 MODE_ASSIST,
56 MODE_UNASSIST,
57 CONTRACTS,
58 INSTALLED_BASE,
59 TERRITORY,
60 AVAILABILITY,
61 DOCUMENT_TYPE,
62 ATTRIBUTE7,
63 ATTRIBUTE8,
64 ATTRIBUTE9,
65 ATTRIBUTE10,
66 ATTRIBUTE12,
67 ATTRIBUTE13,
68 ATTRIBUTE14,
69 SCREEN_SETUP_ID,
70 WINDOW_WIDTH,
71 WINDOW_HEIGHT,
72 WINDOW_X_POSITION,
73 WINDOW_Y_POSITION,
74 DOC_DTLS_USER_VALUES,
75 SHOW_SELECTED_TIME,
76 OBJECT_VERSION_NUMBER,
77 USER_ID,
78 ATTRIBUTE1,
79 ATTRIBUTE2,
80 ATTRIBUTE3,
81 ATTRIBUTE4,
82 ATTRIBUTE5,
83 ATTRIBUTE6,
84 DOC_DETAILS,
85 CREATION_DATE,
86 CREATED_BY,
87 LAST_UPDATE_DATE,
88 LAST_UPDATED_BY,
89 LAST_UPDATE_LOGIN
90 ) values (
91 X_ATTRIBUTE15,
92 X_ATTRIBUTE_CATEGORY,
93 X_SECURITY_GROUP_ID,
94 X_ATTRIBUTE11,
95 X_MODE_ASSIST,
96 X_MODE_UNASSIST,
97 X_CONTRACTS,
98 X_INSTALLED_BASE,
99 X_TERRITORY,
100 X_AVAILABILITY,
101 X_DOCUMENT_TYPE,
102 X_ATTRIBUTE7,
103 X_ATTRIBUTE8,
104 X_ATTRIBUTE9,
105 X_ATTRIBUTE10,
106 X_ATTRIBUTE12,
107 X_ATTRIBUTE13,
108 X_ATTRIBUTE14,
109 X_SCREEN_SETUP_ID,
110 X_WINDOW_WIDTH,
111 X_WINDOW_HEIGHT,
112 X_WINDOW_X_POSITION,
113 X_WINDOW_Y_POSITION,
114 X_DOC_DTLS_USER_VALUES,
115 X_SHOW_SELECTED_TIME,
116 X_OBJECT_VERSION_NUMBER,
117 X_USER_ID,
118 X_ATTRIBUTE1,
119 X_ATTRIBUTE2,
120 X_ATTRIBUTE3,
121 X_ATTRIBUTE4,
122 X_ATTRIBUTE5,
123 X_ATTRIBUTE6,
124 X_DOC_DETAILS,
125 X_CREATION_DATE,
126 X_CREATED_BY,
127 X_LAST_UPDATE_DATE,
128 X_LAST_UPDATED_BY,
129 X_LAST_UPDATE_LOGIN
130 );
131
132 insert into JTF_AM_SCREEN_SETUPS_TL (
133 LAST_UPDATED_BY,
134 LAST_UPDATE_DATE,
135 LAST_UPDATE_LOGIN,
136 SECURITY_GROUP_ID,
137 SCREEN_SETUP_ID,
138 PREFERENCE_NAME,
139 CREATED_BY,
140 CREATION_DATE,
141 LANGUAGE,
142 SOURCE_LANG
143 ) select
144 X_LAST_UPDATED_BY,
145 X_LAST_UPDATE_DATE,
146 X_LAST_UPDATE_LOGIN,
147 X_SECURITY_GROUP_ID,
148 X_SCREEN_SETUP_ID,
149 X_PREFERENCE_NAME,
150 X_CREATED_BY,
151 X_CREATION_DATE,
152 L.LANGUAGE_CODE,
153 userenv('LANG')
154 from FND_LANGUAGES L
155 where L.INSTALLED_FLAG in ('I', 'B')
156 and not exists
157 (select NULL
158 from JTF_AM_SCREEN_SETUPS_TL T
159 where T.SCREEN_SETUP_ID = X_SCREEN_SETUP_ID
160 and T.LANGUAGE = L.LANGUAGE_CODE);
161
162 open c;
163 fetch c into X_ROWID;
164 if (c%notfound) then
165 close c;
166 raise no_data_found;
167 end if;
168 close c;
169
170 end INSERT_ROW;
171
172 procedure LOCK_ROW (
173 X_SCREEN_SETUP_ID in NUMBER,
174 X_ATTRIBUTE15 in VARCHAR2,
175 X_ATTRIBUTE_CATEGORY in VARCHAR2,
176 X_SECURITY_GROUP_ID in NUMBER,
177 X_ATTRIBUTE11 in VARCHAR2,
178 X_MODE_ASSIST in VARCHAR2,
179 X_MODE_UNASSIST in VARCHAR2,
180 X_CONTRACTS in VARCHAR2,
181 X_INSTALLED_BASE in VARCHAR2,
182 X_TERRITORY in VARCHAR2,
183 X_AVAILABILITY in VARCHAR2,
184 X_DOCUMENT_TYPE in VARCHAR2,
185 X_ATTRIBUTE7 in VARCHAR2,
186 X_ATTRIBUTE8 in VARCHAR2,
187 X_ATTRIBUTE9 in VARCHAR2,
188 X_ATTRIBUTE10 in VARCHAR2,
189 X_ATTRIBUTE12 in VARCHAR2,
190 X_ATTRIBUTE13 in VARCHAR2,
191 X_ATTRIBUTE14 in VARCHAR2,
192 X_WINDOW_WIDTH in NUMBER,
193 X_WINDOW_HEIGHT in NUMBER,
194 X_WINDOW_X_POSITION in NUMBER,
195 X_WINDOW_Y_POSITION in NUMBER,
196 X_DOC_DTLS_USER_VALUES in VARCHAR2,
197 X_SHOW_SELECTED_TIME in VARCHAR2,
198 X_OBJECT_VERSION_NUMBER in NUMBER,
199 X_USER_ID in NUMBER,
200 X_ATTRIBUTE1 in VARCHAR2,
201 X_ATTRIBUTE2 in VARCHAR2,
202 X_ATTRIBUTE3 in VARCHAR2,
203 X_ATTRIBUTE4 in VARCHAR2,
204 X_ATTRIBUTE5 in VARCHAR2,
205 X_ATTRIBUTE6 in VARCHAR2,
206 X_DOC_DETAILS in VARCHAR2,
207 X_PREFERENCE_NAME in VARCHAR2
208 ) is
209 cursor c is select
210 ATTRIBUTE15,
211 ATTRIBUTE_CATEGORY,
212 SECURITY_GROUP_ID,
213 ATTRIBUTE11,
214 MODE_ASSIST,
215 MODE_UNASSIST,
216 CONTRACTS,
217 INSTALLED_BASE,
218 TERRITORY,
219 AVAILABILITY,
220 DOCUMENT_TYPE,
221 ATTRIBUTE7,
222 ATTRIBUTE8,
223 ATTRIBUTE9,
224 ATTRIBUTE10,
225 ATTRIBUTE12,
226 ATTRIBUTE13,
227 ATTRIBUTE14,
228 WINDOW_WIDTH,
229 WINDOW_HEIGHT,
230 WINDOW_X_POSITION,
231 WINDOW_Y_POSITION,
232 DOC_DTLS_USER_VALUES,
233 SHOW_SELECTED_TIME,
234 OBJECT_VERSION_NUMBER,
235 USER_ID,
236 ATTRIBUTE1,
237 ATTRIBUTE2,
238 ATTRIBUTE3,
239 ATTRIBUTE4,
240 ATTRIBUTE5,
241 ATTRIBUTE6,
242 DOC_DETAILS
243 from JTF_AM_SCREEN_SETUPS_B
244 where SCREEN_SETUP_ID = X_SCREEN_SETUP_ID
245 for update of SCREEN_SETUP_ID nowait;
246 recinfo c%rowtype;
247
248 cursor c1 is select
249 PREFERENCE_NAME,
250 decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
251 from JTF_AM_SCREEN_SETUPS_TL
252 where SCREEN_SETUP_ID = X_SCREEN_SETUP_ID
253 and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
254 for update of SCREEN_SETUP_ID nowait;
255 begin
256 open c;
257 fetch c into recinfo;
258 if (c%notfound) then
259 close c;
260 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
261 app_exception.raise_exception;
262 end if;
263 close c;
264 if ( ((recinfo.ATTRIBUTE15 = X_ATTRIBUTE15)
265 OR ((recinfo.ATTRIBUTE15 is null) AND (X_ATTRIBUTE15 is null)))
266 AND ((recinfo.ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY)
267 OR ((recinfo.ATTRIBUTE_CATEGORY is null) AND (X_ATTRIBUTE_CATEGORY is null)))
268 AND ((recinfo.SECURITY_GROUP_ID = X_SECURITY_GROUP_ID)
269 OR ((recinfo.SECURITY_GROUP_ID is null) AND (X_SECURITY_GROUP_ID is null)))
270 AND ((recinfo.ATTRIBUTE11 = X_ATTRIBUTE11)
271 OR ((recinfo.ATTRIBUTE11 is null) AND (X_ATTRIBUTE11 is null)))
272 AND ((recinfo.MODE_ASSIST = X_MODE_ASSIST)
273 OR ((recinfo.MODE_ASSIST is null) AND (X_MODE_ASSIST is null)))
274 AND ((recinfo.MODE_UNASSIST = X_MODE_UNASSIST)
275 OR ((recinfo.MODE_UNASSIST is null) AND (X_MODE_UNASSIST is null)))
276 AND ((recinfo.CONTRACTS = X_CONTRACTS)
277 OR ((recinfo.CONTRACTS is null) AND (X_CONTRACTS is null)))
278 AND ((recinfo.INSTALLED_BASE = X_INSTALLED_BASE)
279 OR ((recinfo.INSTALLED_BASE is null) AND (X_INSTALLED_BASE is null)))
280 AND ((recinfo.TERRITORY = X_TERRITORY)
281 OR ((recinfo.TERRITORY is null) AND (X_TERRITORY is null)))
282 AND ((recinfo.AVAILABILITY = X_AVAILABILITY)
283 OR ((recinfo.AVAILABILITY is null) AND (X_AVAILABILITY is null)))
284 AND ((recinfo.DOCUMENT_TYPE = X_DOCUMENT_TYPE)
285 OR ((recinfo.DOCUMENT_TYPE is null) AND (X_DOCUMENT_TYPE is null)))
286 AND ((recinfo.ATTRIBUTE7 = X_ATTRIBUTE7)
287 OR ((recinfo.ATTRIBUTE7 is null) AND (X_ATTRIBUTE7 is null)))
288 AND ((recinfo.ATTRIBUTE8 = X_ATTRIBUTE8)
289 OR ((recinfo.ATTRIBUTE8 is null) AND (X_ATTRIBUTE8 is null)))
290 AND ((recinfo.ATTRIBUTE9 = X_ATTRIBUTE9)
291 OR ((recinfo.ATTRIBUTE9 is null) AND (X_ATTRIBUTE9 is null)))
292 AND ((recinfo.ATTRIBUTE10 = X_ATTRIBUTE10)
293 OR ((recinfo.ATTRIBUTE10 is null) AND (X_ATTRIBUTE10 is null)))
294 AND ((recinfo.ATTRIBUTE12 = X_ATTRIBUTE12)
295 OR ((recinfo.ATTRIBUTE12 is null) AND (X_ATTRIBUTE12 is null)))
296 AND ((recinfo.ATTRIBUTE13 = X_ATTRIBUTE13)
297 OR ((recinfo.ATTRIBUTE13 is null) AND (X_ATTRIBUTE13 is null)))
298 AND ((recinfo.ATTRIBUTE14 = X_ATTRIBUTE14)
299 OR ((recinfo.ATTRIBUTE14 is null) AND (X_ATTRIBUTE14 is null)))
300 AND ((recinfo.WINDOW_WIDTH = X_WINDOW_WIDTH)
301 OR ((recinfo.WINDOW_WIDTH is null) AND (X_WINDOW_WIDTH is null)))
302 AND ((recinfo.WINDOW_HEIGHT = X_WINDOW_HEIGHT)
303 OR ((recinfo.WINDOW_HEIGHT is null) AND (X_WINDOW_HEIGHT is null)))
304 AND ((recinfo.WINDOW_X_POSITION = X_WINDOW_X_POSITION)
305 OR ((recinfo.WINDOW_X_POSITION is null) AND (X_WINDOW_X_POSITION is null)))
306 AND ((recinfo.WINDOW_Y_POSITION = X_WINDOW_Y_POSITION)
307 OR ((recinfo.WINDOW_Y_POSITION is null) AND (X_WINDOW_Y_POSITION is null)))
308 AND ((recinfo.DOC_DTLS_USER_VALUES = X_DOC_DTLS_USER_VALUES)
309 OR ((recinfo.DOC_DTLS_USER_VALUES is null) AND (X_DOC_DTLS_USER_VALUES is null)))
310 AND ((recinfo.SHOW_SELECTED_TIME = X_SHOW_SELECTED_TIME)
311 OR ((recinfo.SHOW_SELECTED_TIME is null) AND (X_SHOW_SELECTED_TIME is null)))
312 AND ((recinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER)
313 OR ((recinfo.OBJECT_VERSION_NUMBER is null) AND (X_OBJECT_VERSION_NUMBER is null)))
314 AND ((recinfo.USER_ID = X_USER_ID)
315 OR ((recinfo.USER_ID is null) AND (X_USER_ID is null)))
316 AND ((recinfo.ATTRIBUTE1 = X_ATTRIBUTE1)
317 OR ((recinfo.ATTRIBUTE1 is null) AND (X_ATTRIBUTE1 is null)))
318 AND ((recinfo.ATTRIBUTE2 = X_ATTRIBUTE2)
319 OR ((recinfo.ATTRIBUTE2 is null) AND (X_ATTRIBUTE2 is null)))
320 AND ((recinfo.ATTRIBUTE3 = X_ATTRIBUTE3)
321 OR ((recinfo.ATTRIBUTE3 is null) AND (X_ATTRIBUTE3 is null)))
322 AND ((recinfo.ATTRIBUTE4 = X_ATTRIBUTE4)
323 OR ((recinfo.ATTRIBUTE4 is null) AND (X_ATTRIBUTE4 is null)))
324 AND ((recinfo.ATTRIBUTE5 = X_ATTRIBUTE5)
325 OR ((recinfo.ATTRIBUTE5 is null) AND (X_ATTRIBUTE5 is null)))
326 AND ((recinfo.ATTRIBUTE6 = X_ATTRIBUTE6)
327 OR ((recinfo.ATTRIBUTE6 is null) AND (X_ATTRIBUTE6 is null)))
328 AND ((recinfo.DOC_DETAILS = X_DOC_DETAILS)
329 OR ((recinfo.DOC_DETAILS is null) AND (X_DOC_DETAILS is null)))
330 ) then
331 null;
332 else
333 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
334 app_exception.raise_exception;
338 if (tlinfo.BASELANG = 'Y') then
335 end if;
336
337 for tlinfo in c1 loop
339 if ( ((tlinfo.PREFERENCE_NAME = X_PREFERENCE_NAME)
340 OR ((tlinfo.PREFERENCE_NAME is null) AND (X_PREFERENCE_NAME is null)))
341 ) then
342 null;
343 else
344 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
345 app_exception.raise_exception;
346 end if;
347 end if;
348 end loop;
349 return;
350 end LOCK_ROW;
351
352 procedure UPDATE_ROW (
353 X_SCREEN_SETUP_ID in NUMBER,
354 X_ATTRIBUTE15 in VARCHAR2,
355 X_ATTRIBUTE_CATEGORY in VARCHAR2,
356 X_SECURITY_GROUP_ID in NUMBER,
357 X_ATTRIBUTE11 in VARCHAR2,
358 X_MODE_ASSIST in VARCHAR2,
359 X_MODE_UNASSIST in VARCHAR2,
360 X_CONTRACTS in VARCHAR2,
361 X_INSTALLED_BASE in VARCHAR2,
362 X_TERRITORY in VARCHAR2,
363 X_AVAILABILITY in VARCHAR2,
364 X_DOCUMENT_TYPE in VARCHAR2,
365 X_ATTRIBUTE7 in VARCHAR2,
366 X_ATTRIBUTE8 in VARCHAR2,
367 X_ATTRIBUTE9 in VARCHAR2,
368 X_ATTRIBUTE10 in VARCHAR2,
369 X_ATTRIBUTE12 in VARCHAR2,
370 X_ATTRIBUTE13 in VARCHAR2,
371 X_ATTRIBUTE14 in VARCHAR2,
372 X_WINDOW_WIDTH in NUMBER,
373 X_WINDOW_HEIGHT in NUMBER,
374 X_WINDOW_X_POSITION in NUMBER,
375 X_WINDOW_Y_POSITION in NUMBER,
376 X_DOC_DTLS_USER_VALUES in VARCHAR2,
377 X_SHOW_SELECTED_TIME in VARCHAR2,
378 X_OBJECT_VERSION_NUMBER in NUMBER,
379 X_USER_ID in NUMBER,
380 X_ATTRIBUTE1 in VARCHAR2,
381 X_ATTRIBUTE2 in VARCHAR2,
382 X_ATTRIBUTE3 in VARCHAR2,
383 X_ATTRIBUTE4 in VARCHAR2,
384 X_ATTRIBUTE5 in VARCHAR2,
385 X_ATTRIBUTE6 in VARCHAR2,
386 X_DOC_DETAILS in VARCHAR2,
387 X_PREFERENCE_NAME in VARCHAR2,
388 X_LAST_UPDATE_DATE in DATE,
389 X_LAST_UPDATED_BY in NUMBER,
390 X_LAST_UPDATE_LOGIN in NUMBER
391 ) is
392 begin
393 update JTF_AM_SCREEN_SETUPS_B set
394 ATTRIBUTE15 = X_ATTRIBUTE15,
395 ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
396 SECURITY_GROUP_ID = X_SECURITY_GROUP_ID,
397 ATTRIBUTE11 = X_ATTRIBUTE11,
398 MODE_ASSIST = X_MODE_ASSIST,
399 MODE_UNASSIST = X_MODE_UNASSIST,
400 CONTRACTS = X_CONTRACTS,
401 INSTALLED_BASE = X_INSTALLED_BASE,
402 TERRITORY = X_TERRITORY,
403 AVAILABILITY = X_AVAILABILITY,
404 DOCUMENT_TYPE = X_DOCUMENT_TYPE,
405 ATTRIBUTE7 = X_ATTRIBUTE7,
406 ATTRIBUTE8 = X_ATTRIBUTE8,
407 ATTRIBUTE9 = X_ATTRIBUTE9,
408 ATTRIBUTE10 = X_ATTRIBUTE10,
409 ATTRIBUTE12 = X_ATTRIBUTE12,
410 ATTRIBUTE13 = X_ATTRIBUTE13,
411 ATTRIBUTE14 = X_ATTRIBUTE14,
412 WINDOW_WIDTH = X_WINDOW_WIDTH,
413 WINDOW_HEIGHT = X_WINDOW_HEIGHT,
414 WINDOW_X_POSITION = X_WINDOW_X_POSITION,
415 WINDOW_Y_POSITION = X_WINDOW_Y_POSITION,
416 DOC_DTLS_USER_VALUES = X_DOC_DTLS_USER_VALUES,
417 SHOW_SELECTED_TIME = X_SHOW_SELECTED_TIME,
418 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
419 USER_ID = X_USER_ID,
420 ATTRIBUTE1 = X_ATTRIBUTE1,
421 ATTRIBUTE2 = X_ATTRIBUTE2,
422 ATTRIBUTE3 = X_ATTRIBUTE3,
423 ATTRIBUTE4 = X_ATTRIBUTE4,
424 ATTRIBUTE5 = X_ATTRIBUTE5,
425 ATTRIBUTE6 = X_ATTRIBUTE6,
426 DOC_DETAILS = X_DOC_DETAILS,
427 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
428 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
429 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
430 where SCREEN_SETUP_ID = X_SCREEN_SETUP_ID;
431
432 if (sql%notfound) then
433 raise no_data_found;
434 end if;
435
436 update JTF_AM_SCREEN_SETUPS_TL set
437 PREFERENCE_NAME = X_PREFERENCE_NAME,
438 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
439 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
440 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
441 SOURCE_LANG = userenv('LANG')
442 where SCREEN_SETUP_ID = X_SCREEN_SETUP_ID
443 and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
444
445 if (sql%notfound) then
446 raise no_data_found;
447 end if;
448 end UPDATE_ROW;
449
450 procedure DELETE_ROW (
451 X_SCREEN_SETUP_ID in NUMBER
452 ) is
453 begin
454 delete from JTF_AM_SCREEN_SETUPS_TL
455 where SCREEN_SETUP_ID = X_SCREEN_SETUP_ID;
456
457 if (sql%notfound) then
458 raise no_data_found;
459 end if;
460
461 delete from JTF_AM_SCREEN_SETUPS_B
462 where SCREEN_SETUP_ID = X_SCREEN_SETUP_ID;
463
464 if (sql%notfound) then
465 raise no_data_found;
466 end if;
467 end DELETE_ROW;
468
469 procedure ADD_LANGUAGE
470 is
471 begin
472 delete from JTF_AM_SCREEN_SETUPS_TL T
473 where not exists
474 (select NULL
475 from JTF_AM_SCREEN_SETUPS_B B
476 where B.SCREEN_SETUP_ID = T.SCREEN_SETUP_ID
477 );
478
479 update JTF_AM_SCREEN_SETUPS_TL T set (
480 PREFERENCE_NAME
481 ) = (select
482 B.PREFERENCE_NAME
483 from JTF_AM_SCREEN_SETUPS_TL B
484 where B.SCREEN_SETUP_ID = T.SCREEN_SETUP_ID
485 and B.LANGUAGE = T.SOURCE_LANG)
486 where (
487 T.SCREEN_SETUP_ID,
488 T.LANGUAGE
489 ) in (select
490 SUBT.SCREEN_SETUP_ID,
491 SUBT.LANGUAGE
492 from JTF_AM_SCREEN_SETUPS_TL SUBB, JTF_AM_SCREEN_SETUPS_TL SUBT
493 where SUBB.SCREEN_SETUP_ID = SUBT.SCREEN_SETUP_ID
494 and SUBB.LANGUAGE = SUBT.SOURCE_LANG
495 and (SUBB.PREFERENCE_NAME <> SUBT.PREFERENCE_NAME
496 or (SUBB.PREFERENCE_NAME is null and SUBT.PREFERENCE_NAME is not null)
497 or (SUBB.PREFERENCE_NAME is not null and SUBT.PREFERENCE_NAME is null)
498 ));
499
500 insert into JTF_AM_SCREEN_SETUPS_TL (
504 SECURITY_GROUP_ID,
501 LAST_UPDATED_BY,
502 LAST_UPDATE_DATE,
503 LAST_UPDATE_LOGIN,
505 SCREEN_SETUP_ID,
506 PREFERENCE_NAME,
507 CREATED_BY,
508 CREATION_DATE,
509 LANGUAGE,
510 SOURCE_LANG
511 ) select
512 B.LAST_UPDATED_BY,
513 B.LAST_UPDATE_DATE,
514 B.LAST_UPDATE_LOGIN,
515 B.SECURITY_GROUP_ID,
516 B.SCREEN_SETUP_ID,
517 B.PREFERENCE_NAME,
518 B.CREATED_BY,
519 B.CREATION_DATE,
520 L.LANGUAGE_CODE,
521 B.SOURCE_LANG
522 from JTF_AM_SCREEN_SETUPS_TL B, FND_LANGUAGES L
523 where L.INSTALLED_FLAG in ('I', 'B')
524 and B.LANGUAGE = userenv('LANG')
525 and not exists
526 (select NULL
527 from JTF_AM_SCREEN_SETUPS_TL T
528 where T.SCREEN_SETUP_ID = B.SCREEN_SETUP_ID
529 and T.LANGUAGE = L.LANGUAGE_CODE);
530 end ADD_LANGUAGE;
531
532 procedure LOAD_ROW (
533 X_OWNER in VARCHAR2,
534 X_SCREEN_SETUP_ID in NUMBER,
535 X_MODE_ASSIST in VARCHAR2,
536 X_MODE_UNASSIST in VARCHAR2,
537 X_CONTRACTS in VARCHAR2,
538 X_INSTALLED_BASE in VARCHAR2,
539 X_TERRITORY in VARCHAR2,
540 X_AVAILABILITY in VARCHAR2,
541 X_DOCUMENT_TYPE in VARCHAR2,
542 X_WINDOW_WIDTH in NUMBER,
543 X_WINDOW_HEIGHT in NUMBER,
544 X_WINDOW_X_POSITION in NUMBER,
545 X_WINDOW_Y_POSITION in NUMBER,
546 X_DOC_DTLS_USER_VALUES in VARCHAR2,
547 X_SHOW_SELECTED_TIME in VARCHAR2,
548 X_OBJECT_VERSION_NUMBER in NUMBER,
549 X_USER_ID in NUMBER,
550 X_DOC_DETAILS in VARCHAR2,
551 X_ATTRIBUTE1 in VARCHAR2,
552 X_ATTRIBUTE2 in VARCHAR2,
553 X_ATTRIBUTE3 in VARCHAR2,
554 X_ATTRIBUTE4 in VARCHAR2,
555 X_ATTRIBUTE5 in VARCHAR2,
556 X_ATTRIBUTE6 in VARCHAR2,
557 X_ATTRIBUTE7 in VARCHAR2,
558 X_ATTRIBUTE8 in VARCHAR2,
559 X_ATTRIBUTE9 in VARCHAR2,
560 X_ATTRIBUTE10 in VARCHAR2,
561 X_ATTRIBUTE11 in VARCHAR2,
562 X_ATTRIBUTE12 in VARCHAR2,
563 X_ATTRIBUTE13 in VARCHAR2,
564 X_ATTRIBUTE14 in VARCHAR2,
565 X_ATTRIBUTE15 in VARCHAR2,
566 X_ATTRIBUTE_CATEGORY in VARCHAR2,
567 X_SECURITY_GROUP_ID in NUMBER,
568 X_PREFERENCE_NAME in VARCHAR2
569 ) is
570 l_row_id rowid;
571 l_user_id number;
572 l_last_updated_by number := -1;
573 l_object_version_number number := 1;
574
575 CURSOR c_last_updated IS
576 SELECT last_updated_by,
577 object_version_number
578 from JTF_AM_SCREEN_SETUPS_VL
579 WHERE screen_setup_id = x_screen_setup_id;
580
581 begin
582 if (X_OWNER = 'SEED') then
583 l_user_id := 1;
584 else
585 l_user_id := 0;
586 end if;
587
588 OPEN c_last_updated;
589 FETCH c_last_updated into l_last_updated_by, l_object_version_number ;
590 IF c_last_updated%NOTFOUND THEN
591 l_object_version_number := 1;
592 jtf_am_screen_setups_pkg.insert_row(
593 X_ROWID => l_row_id ,
594 X_SCREEN_SETUP_ID => X_SCREEN_SETUP_ID,
595 X_ATTRIBUTE1 => X_ATTRIBUTE1 ,
596 X_ATTRIBUTE2 => X_ATTRIBUTE2 ,
597 X_ATTRIBUTE3 => X_ATTRIBUTE3 ,
598 X_ATTRIBUTE4 => X_ATTRIBUTE4 ,
599 X_ATTRIBUTE5 => X_ATTRIBUTE5 ,
600 X_ATTRIBUTE6 => X_ATTRIBUTE6 ,
601 X_ATTRIBUTE7 => X_ATTRIBUTE7 ,
602 X_ATTRIBUTE8 => X_ATTRIBUTE8 ,
603 X_ATTRIBUTE9 => X_ATTRIBUTE9 ,
604 X_ATTRIBUTE10 => X_ATTRIBUTE10 ,
605 X_ATTRIBUTE11 => X_ATTRIBUTE11 ,
606 X_ATTRIBUTE12 => X_ATTRIBUTE12 ,
607 X_ATTRIBUTE13 => X_ATTRIBUTE13 ,
608 X_ATTRIBUTE14 => X_ATTRIBUTE14 ,
609 X_ATTRIBUTE15 => X_ATTRIBUTE15 ,
610 X_ATTRIBUTE_CATEGORY => X_ATTRIBUTE_CATEGORY ,
611 X_SECURITY_GROUP_ID => X_SECURITY_GROUP_ID,
612 X_MODE_ASSIST => X_MODE_ASSIST,
613 X_MODE_UNASSIST => X_MODE_UNASSIST,
614 X_CONTRACTS => X_CONTRACTS,
615 X_INSTALLED_BASE => X_INSTALLED_BASE,
616 X_TERRITORY => X_TERRITORY,
617 X_AVAILABILITY => X_AVAILABILITY ,
618 X_DOCUMENT_TYPE => X_DOCUMENT_TYPE,
619 X_WINDOW_WIDTH => X_WINDOW_WIDTH,
620 X_WINDOW_HEIGHT => X_WINDOW_HEIGHT,
621 X_WINDOW_X_POSITION => X_WINDOW_X_POSITION,
622 X_WINDOW_Y_POSITION => X_WINDOW_Y_POSITION,
623 X_DOC_DTLS_USER_VALUES => X_DOC_DTLS_USER_VALUES ,
624 X_SHOW_SELECTED_TIME => X_SHOW_SELECTED_TIME,
625 X_DOC_DETAILS => X_DOC_DETAILS,
626 X_OBJECT_VERSION_NUMBER => l_object_version_number ,
627 X_USER_ID => X_USER_ID,
628 X_PREFERENCE_NAME => X_PREFERENCE_NAME ,
629 X_CREATION_DATE => sysdate ,
630 X_CREATED_BY => l_user_id ,
631 X_LAST_UPDATE_DATE => sysdate ,
632 X_LAST_UPDATED_BY => l_user_id ,
633 X_LAST_UPDATE_LOGIN => 0 );
634 ELSIF c_last_updated%FOUND THEN
635 IF l_last_updated_by IN (1,0) THEN
636 l_object_version_number := l_object_version_number + 1;
637 jtf_am_screen_setups_pkg.update_row(
638 X_SCREEN_SETUP_ID => X_SCREEN_SETUP_ID,
639 X_ATTRIBUTE1 => X_ATTRIBUTE1 ,
640 X_ATTRIBUTE2 => X_ATTRIBUTE2 ,
644 X_ATTRIBUTE6 => X_ATTRIBUTE6 ,
641 X_ATTRIBUTE3 => X_ATTRIBUTE3 ,
642 X_ATTRIBUTE4 => X_ATTRIBUTE4 ,
643 X_ATTRIBUTE5 => X_ATTRIBUTE5 ,
645 X_ATTRIBUTE7 => X_ATTRIBUTE7 ,
646 X_ATTRIBUTE8 => X_ATTRIBUTE8 ,
647 X_ATTRIBUTE9 => X_ATTRIBUTE9 ,
648 X_ATTRIBUTE10 => X_ATTRIBUTE10 ,
649 X_ATTRIBUTE11 => X_ATTRIBUTE11 ,
650 X_ATTRIBUTE12 => X_ATTRIBUTE12 ,
651 X_ATTRIBUTE13 => X_ATTRIBUTE13 ,
652 X_ATTRIBUTE14 => X_ATTRIBUTE14 ,
653 X_ATTRIBUTE15 => X_ATTRIBUTE15 ,
654 X_ATTRIBUTE_CATEGORY => X_ATTRIBUTE_CATEGORY ,
655 X_SECURITY_GROUP_ID => X_SECURITY_GROUP_ID,
656 X_MODE_ASSIST => X_MODE_ASSIST,
657 X_MODE_UNASSIST => X_MODE_UNASSIST,
658 X_CONTRACTS => X_CONTRACTS,
659 X_INSTALLED_BASE => X_INSTALLED_BASE,
660 X_TERRITORY => X_TERRITORY,
661 X_AVAILABILITY => X_AVAILABILITY ,
662 X_DOCUMENT_TYPE => X_DOCUMENT_TYPE,
663 X_WINDOW_WIDTH => X_WINDOW_WIDTH,
664 X_WINDOW_HEIGHT => X_WINDOW_HEIGHT,
665 X_WINDOW_X_POSITION => X_WINDOW_X_POSITION,
666 X_WINDOW_Y_POSITION => X_WINDOW_Y_POSITION,
667 X_DOC_DTLS_USER_VALUES => X_DOC_DTLS_USER_VALUES ,
668 X_SHOW_SELECTED_TIME => X_SHOW_SELECTED_TIME,
669 X_DOC_DETAILS => X_DOC_DETAILS,
670 X_OBJECT_VERSION_NUMBER => l_object_version_number,
671 X_USER_ID => X_USER_ID,
672 X_PREFERENCE_NAME => X_PREFERENCE_NAME ,
673 X_LAST_UPDATE_DATE => sysdate ,
674 X_LAST_UPDATED_BY => l_user_id ,
675 X_LAST_UPDATE_LOGIN => 0 );
676 END IF;
677 END IF;
678 CLOSE c_last_updated;
679 End LOAD_ROW;
680
681 Procedure TRANSLATE_ROW
682 (X_screen_setup_id in number,
683 X_preference_name in varchar2,
684 x_Last_update_date in date,
685 x_last_updated_by in number,
686 x_last_update_login in number)
687 is
688 begin
689 Update jtf_am_screen_setups_tl set
690 preference_name = nvl(x_preference_name,preference_name),
691 last_update_date = nvl(x_last_update_date,sysdate),
692 last_updated_by = x_last_updated_by,
693 last_update_login = 0,
694 source_lang = userenv('LANG')
695 where screen_setup_id = x_screen_setup_id
696 and userenv('LANG') in (LANGUAGE,SOURCE_LANG);
697
698 end TRANSLATE_ROW;
699
700 end JTF_AM_SCREEN_SETUPS_PKG;