[Home] [Help]
PACKAGE BODY: APPS.HR_TAB_PAGE_PROPERTIES_PKG
Source
1 PACKAGE BODY HR_TAB_PAGE_PROPERTIES_PKG as
2 /* $Header: hrtpplct.pkb 120.1 2006/06/27 07:32:02 rvarshne noship $ */
3 -- -----------------------------------------------------------------------------
4 -- |-----------------------------< update_copies >-----------------------------|
5 -- -----------------------------------------------------------------------------
6 procedure UPDATE_COPIES (
7 X_TAB_PAGE_PROPERTY_ID in NUMBER,
8 X_FORM_TAB_PAGE_ID in NUMBER,
9 X_TEMPLATE_TAB_PAGE_ID in NUMBER,
10 X_NAVIGATION_DIRECTION in VARCHAR2,
11 X_VISIBLE in NUMBER,
12 X_LABEL in VARCHAR2,
13 X_INFORMATION_CATEGORY in VARCHAR2,
14 X_INFORMATION1 in VARCHAR2,
15 X_INFORMATION2 in VARCHAR2,
16 X_INFORMATION3 in VARCHAR2,
17 X_INFORMATION4 in VARCHAR2,
18 X_INFORMATION5 in VARCHAR2,
19 X_INFORMATION6 in VARCHAR2,
20 X_INFORMATION7 in VARCHAR2,
21 X_INFORMATION8 in VARCHAR2,
22 X_INFORMATION9 in VARCHAR2,
23 X_INFORMATION10 in VARCHAR2,
24 X_INFORMATION11 in VARCHAR2,
25 X_INFORMATION12 in VARCHAR2,
26 X_INFORMATION13 in VARCHAR2,
27 X_INFORMATION14 in VARCHAR2,
28 X_INFORMATION15 in VARCHAR2,
29 X_INFORMATION16 in VARCHAR2,
30 X_INFORMATION17 in VARCHAR2,
31 X_INFORMATION18 in VARCHAR2,
32 X_INFORMATION19 in VARCHAR2,
33 X_INFORMATION20 in VARCHAR2,
34 X_INFORMATION21 in VARCHAR2,
35 X_INFORMATION22 in VARCHAR2,
36 X_INFORMATION23 in VARCHAR2,
37 X_INFORMATION24 in VARCHAR2,
38 X_INFORMATION25 in VARCHAR2,
39 X_INFORMATION26 in VARCHAR2,
40 X_INFORMATION27 in VARCHAR2,
41 X_INFORMATION28 in VARCHAR2,
42 X_INFORMATION29 in VARCHAR2,
43 X_INFORMATION30 in VARCHAR2,
44 X_LAST_UPDATE_DATE in DATE,
45 X_LAST_UPDATED_BY in NUMBER,
46 X_LAST_UPDATE_LOGIN in NUMBER
47 ) is
48 cursor csr_original is
49 select *
50 from HR_TAB_PAGE_PROPERTIES_VL
51 where TAB_PAGE_PROPERTY_ID = X_TAB_PAGE_PROPERTY_ID;
52 l_original csr_original%rowtype;
53 cursor csr_copies is
54 select tpp.tab_page_property_id
55 from HR_TAB_PAGE_PROPERTIES_B tpp
56 ,HR_TEMPLATE_TAB_PAGES_B ttp
57 ,HR_TEMPLATE_CANVASES_B tcn
58 ,HR_TEMPLATE_WINDOWS_B twn
59 ,HR_TEMPLATE_TAB_PAGES_B tto
60 where tpp.TEMPLATE_TAB_PAGE_ID = ttp.TEMPLATE_TAB_PAGE_ID
61 and ttp.TEMPLATE_CANVAS_ID = tcn.TEMPLATE_CANVAS_ID
62 and tcn.TEMPLATE_WINDOW_ID = twn.TEMPLATE_WINDOW_ID
63 and twn.FORM_TEMPLATE_ID in (select sft.FORM_TEMPLATE_ID_TO
64 from HR_SOURCE_FORM_TEMPLATES sft
65 start with sft.FORM_TEMPLATE_ID_FROM = (select tw1.FORM_TEMPLATE_ID
66 from HR_TEMPLATE_WINDOWS_B tw1
67 ,HR_TEMPLATE_CANVASES_B tc1
68 where tw1.TEMPLATE_WINDOW_ID = tc1.TEMPLATE_WINDOW_ID
69 and tc1.TEMPLATE_CANVAS_ID = tto.TEMPLATE_CANVAS_ID)
70 connect by sft.FORM_TEMPLATE_ID_FROM = prior sft.FORM_TEMPLATE_ID_TO)
71 and ttp.FORM_TAB_PAGE_ID = tto.FORM_TAB_PAGE_ID
72 and tto.TEMPLATE_TAB_PAGE_ID = X_TEMPLATE_TAB_PAGE_ID;
73 begin
74 if (X_TEMPLATE_TAB_PAGE_ID is not null) then
75 open csr_original;
76 fetch csr_original into l_original;
77 if csr_original%found then
78 close csr_original;
79 for l_copy in csr_copies loop
80 update HR_TAB_PAGE_PROPERTIES_B set
81 NAVIGATION_DIRECTION = decode(nvl(NAVIGATION_DIRECTION,hr_api.g_varchar2),nvl(l_original.NAVIGATION_DIRECTION,hr_api.g_varchar2),X_NAVIGATION_DIRECTION,NAVIGATION_DIRECTION),
82 VISIBLE = decode(nvl(VISIBLE,hr_api.g_number),nvl(l_original.VISIBLE,hr_api.g_number),X_VISIBLE,VISIBLE),
83 INFORMATION_CATEGORY = decode(nvl(INFORMATION_CATEGORY,hr_api.g_varchar2),nvl(l_original.INFORMATION_CATEGORY,hr_api.g_varchar2),X_INFORMATION_CATEGORY,INFORMATION_CATEGORY),
84 INFORMATION1 = decode(nvl(INFORMATION1 ,hr_api.g_varchar2),nvl(l_original.INFORMATION1 ,hr_api.g_varchar2),X_INFORMATION1 ,INFORMATION1 ),
85 INFORMATION2 = decode(nvl(INFORMATION2 ,hr_api.g_varchar2),nvl(l_original.INFORMATION2 ,hr_api.g_varchar2),X_INFORMATION2 ,INFORMATION2 ),
86 INFORMATION3 = decode(nvl(INFORMATION3 ,hr_api.g_varchar2),nvl(l_original.INFORMATION3 ,hr_api.g_varchar2),X_INFORMATION3 ,INFORMATION3 ),
87 INFORMATION4 = decode(nvl(INFORMATION4 ,hr_api.g_varchar2),nvl(l_original.INFORMATION4 ,hr_api.g_varchar2),X_INFORMATION4 ,INFORMATION4 ),
88 INFORMATION5 = decode(nvl(INFORMATION5 ,hr_api.g_varchar2),nvl(l_original.INFORMATION5 ,hr_api.g_varchar2),X_INFORMATION5 ,INFORMATION5 ),
89 INFORMATION6 = decode(nvl(INFORMATION6 ,hr_api.g_varchar2),nvl(l_original.INFORMATION6 ,hr_api.g_varchar2),X_INFORMATION6 ,INFORMATION6 ),
90 INFORMATION7 = decode(nvl(INFORMATION7 ,hr_api.g_varchar2),nvl(l_original.INFORMATION7 ,hr_api.g_varchar2),X_INFORMATION7 ,INFORMATION7 ),
91 INFORMATION8 = decode(nvl(INFORMATION8 ,hr_api.g_varchar2),nvl(l_original.INFORMATION8 ,hr_api.g_varchar2),X_INFORMATION8 ,INFORMATION8 ),
92 INFORMATION9 = decode(nvl(INFORMATION9 ,hr_api.g_varchar2),nvl(l_original.INFORMATION9 ,hr_api.g_varchar2),X_INFORMATION9 ,INFORMATION9 ),
93 INFORMATION10 = decode(nvl(INFORMATION10,hr_api.g_varchar2),nvl(l_original.INFORMATION10,hr_api.g_varchar2),X_INFORMATION10,INFORMATION10),
94 INFORMATION11 = decode(nvl(INFORMATION11,hr_api.g_varchar2),nvl(l_original.INFORMATION11,hr_api.g_varchar2),X_INFORMATION11,INFORMATION11),
95 INFORMATION12 = decode(nvl(INFORMATION12,hr_api.g_varchar2),nvl(l_original.INFORMATION12,hr_api.g_varchar2),X_INFORMATION12,INFORMATION12),
96 INFORMATION13 = decode(nvl(INFORMATION13,hr_api.g_varchar2),nvl(l_original.INFORMATION13,hr_api.g_varchar2),X_INFORMATION13,INFORMATION13),
97 INFORMATION14 = decode(nvl(INFORMATION14,hr_api.g_varchar2),nvl(l_original.INFORMATION14,hr_api.g_varchar2),X_INFORMATION14,INFORMATION14),
98 INFORMATION15 = decode(nvl(INFORMATION15,hr_api.g_varchar2),nvl(l_original.INFORMATION15,hr_api.g_varchar2),X_INFORMATION15,INFORMATION15),
99 INFORMATION16 = decode(nvl(INFORMATION16,hr_api.g_varchar2),nvl(l_original.INFORMATION16,hr_api.g_varchar2),X_INFORMATION16,INFORMATION16),
100 INFORMATION17 = decode(nvl(INFORMATION17,hr_api.g_varchar2),nvl(l_original.INFORMATION17,hr_api.g_varchar2),X_INFORMATION17,INFORMATION17),
101 INFORMATION18 = decode(nvl(INFORMATION18,hr_api.g_varchar2),nvl(l_original.INFORMATION18,hr_api.g_varchar2),X_INFORMATION18,INFORMATION18),
102 INFORMATION19 = decode(nvl(INFORMATION19,hr_api.g_varchar2),nvl(l_original.INFORMATION19,hr_api.g_varchar2),X_INFORMATION19,INFORMATION19),
103 INFORMATION20 = decode(nvl(INFORMATION20,hr_api.g_varchar2),nvl(l_original.INFORMATION20,hr_api.g_varchar2),X_INFORMATION20,INFORMATION20),
104 INFORMATION21 = decode(nvl(INFORMATION21,hr_api.g_varchar2),nvl(l_original.INFORMATION21,hr_api.g_varchar2),X_INFORMATION21,INFORMATION21),
105 INFORMATION22 = decode(nvl(INFORMATION22,hr_api.g_varchar2),nvl(l_original.INFORMATION22,hr_api.g_varchar2),X_INFORMATION22,INFORMATION22),
106 INFORMATION23 = decode(nvl(INFORMATION23,hr_api.g_varchar2),nvl(l_original.INFORMATION23,hr_api.g_varchar2),X_INFORMATION23,INFORMATION23),
107 INFORMATION24 = decode(nvl(INFORMATION24,hr_api.g_varchar2),nvl(l_original.INFORMATION24,hr_api.g_varchar2),X_INFORMATION24,INFORMATION24),
108 INFORMATION25 = decode(nvl(INFORMATION25,hr_api.g_varchar2),nvl(l_original.INFORMATION25,hr_api.g_varchar2),X_INFORMATION25,INFORMATION25),
109 INFORMATION26 = decode(nvl(INFORMATION26,hr_api.g_varchar2),nvl(l_original.INFORMATION26,hr_api.g_varchar2),X_INFORMATION26,INFORMATION26),
110 INFORMATION27 = decode(nvl(INFORMATION27,hr_api.g_varchar2),nvl(l_original.INFORMATION27,hr_api.g_varchar2),X_INFORMATION27,INFORMATION27),
111 INFORMATION28 = decode(nvl(INFORMATION28,hr_api.g_varchar2),nvl(l_original.INFORMATION28,hr_api.g_varchar2),X_INFORMATION28,INFORMATION28),
112 INFORMATION29 = decode(nvl(INFORMATION29,hr_api.g_varchar2),nvl(l_original.INFORMATION29,hr_api.g_varchar2),X_INFORMATION29,INFORMATION29),
113 INFORMATION30 = decode(nvl(INFORMATION30,hr_api.g_varchar2),nvl(l_original.INFORMATION30,hr_api.g_varchar2),X_INFORMATION30,INFORMATION30),
114 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
115 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
116 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
117 where TAB_PAGE_PROPERTY_ID = l_copy.TAB_PAGE_PROPERTY_ID;
118 if (sql%notfound) then
119 raise no_data_found;
120 end if;
121 update HR_TAB_PAGE_PROPERTIES_TL set
122 LABEL = decode(nvl(LABEL,hr_api.g_varchar2),nvl(l_original.LABEL,hr_api.g_varchar2),X_LABEL,LABEL),
123 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
124 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
125 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
126 SOURCE_LANG = userenv('LANG')
127 where TAB_PAGE_PROPERTY_ID = l_copy.TAB_PAGE_PROPERTY_ID
128 and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
129 if (sql%notfound) then
130 raise no_data_found;
131 end if;
132 end loop;
133 else
134 close csr_original;
135 end if;
136 end if;
137 end UPDATE_COPIES;
138 --
139 procedure OWNER_TO_WHO (
140 X_OWNER in VARCHAR2,
141 X_CREATION_DATE out nocopy DATE,
142 X_CREATED_BY out nocopy NUMBER,
143 X_LAST_UPDATE_DATE out nocopy DATE,
144 X_LAST_UPDATED_BY out nocopy NUMBER,
145 X_LAST_UPDATE_LOGIN out nocopy NUMBER
146 ) is
147 begin
148 if X_OWNER = 'SEED' then
149 X_CREATED_BY := 1;
150 X_LAST_UPDATED_BY := 1;
151 else
152 X_CREATED_BY := 0;
153 X_LAST_UPDATED_BY := 0;
154 end if;
155 X_CREATION_DATE := sysdate;
156 X_LAST_UPDATE_DATE := sysdate;
157 X_LAST_UPDATE_LOGIN := 0;
158 end OWNER_TO_WHO;
159 procedure INSERT_ROW (
160 X_ROWID in out nocopy VARCHAR2,
161 X_TAB_PAGE_PROPERTY_ID in NUMBER,
162 X_FORM_TAB_PAGE_ID in NUMBER,
163 X_TEMPLATE_TAB_PAGE_ID in NUMBER,
164 X_NAVIGATION_DIRECTION in VARCHAR2,
165 X_VISIBLE in NUMBER,
166 X_INFORMATION_CATEGORY in VARCHAR2,
167 X_INFORMATION9 in VARCHAR2,
168 X_INFORMATION10 in VARCHAR2,
169 X_INFORMATION11 in VARCHAR2,
170 X_INFORMATION12 in VARCHAR2,
171 X_INFORMATION13 in VARCHAR2,
172 X_INFORMATION14 in VARCHAR2,
173 X_INFORMATION15 in VARCHAR2,
174 X_INFORMATION16 in VARCHAR2,
175 X_INFORMATION17 in VARCHAR2,
176 X_INFORMATION18 in VARCHAR2,
177 X_INFORMATION19 in VARCHAR2,
178 X_INFORMATION20 in VARCHAR2,
179 X_INFORMATION21 in VARCHAR2,
180 X_INFORMATION7 in VARCHAR2,
181 X_INFORMATION8 in VARCHAR2,
182 X_INFORMATION29 in VARCHAR2,
183 X_INFORMATION30 in VARCHAR2,
184 X_INFORMATION6 in VARCHAR2,
185 X_INFORMATION1 in VARCHAR2,
186 X_INFORMATION2 in VARCHAR2,
187 X_INFORMATION3 in VARCHAR2,
188 X_INFORMATION4 in VARCHAR2,
189 X_INFORMATION5 in VARCHAR2,
190 X_INFORMATION22 in VARCHAR2,
191 X_INFORMATION23 in VARCHAR2,
192 X_INFORMATION24 in VARCHAR2,
193 X_INFORMATION25 in VARCHAR2,
194 X_INFORMATION26 in VARCHAR2,
195 X_INFORMATION27 in VARCHAR2,
196 X_INFORMATION28 in VARCHAR2,
197 X_LABEL in VARCHAR2,
198 X_CREATION_DATE in DATE,
199 X_CREATED_BY in NUMBER,
200 X_LAST_UPDATE_DATE in DATE,
201 X_LAST_UPDATED_BY in NUMBER,
202 X_LAST_UPDATE_LOGIN in NUMBER
203 ) is
204 cursor C is select ROWID from HR_TAB_PAGE_PROPERTIES_B
205 where TAB_PAGE_PROPERTY_ID = X_TAB_PAGE_PROPERTY_ID
206 ;
207 begin
208 insert into HR_TAB_PAGE_PROPERTIES_B (
209 TAB_PAGE_PROPERTY_ID,
210 FORM_TAB_PAGE_ID,
211 TEMPLATE_TAB_PAGE_ID,
212 NAVIGATION_DIRECTION,
213 VISIBLE,
214 INFORMATION_CATEGORY,
215 INFORMATION9,
216 INFORMATION10,
217 INFORMATION11,
218 INFORMATION12,
219 INFORMATION13,
220 INFORMATION14,
221 INFORMATION15,
222 INFORMATION16,
223 INFORMATION17,
224 INFORMATION18,
225 INFORMATION19,
226 INFORMATION20,
227 INFORMATION21,
228 INFORMATION7,
229 INFORMATION8,
230 INFORMATION29,
231 INFORMATION30,
232 INFORMATION6,
233 INFORMATION1,
234 INFORMATION2,
235 INFORMATION3,
236 INFORMATION4,
237 INFORMATION5,
238 INFORMATION22,
239 INFORMATION23,
240 INFORMATION24,
241 INFORMATION25,
242 INFORMATION26,
243 INFORMATION27,
244 INFORMATION28,
245 CREATION_DATE,
246 CREATED_BY,
247 LAST_UPDATE_DATE,
248 LAST_UPDATED_BY,
249 LAST_UPDATE_LOGIN
250 ) values (
251 X_TAB_PAGE_PROPERTY_ID,
252 X_FORM_TAB_PAGE_ID,
253 X_TEMPLATE_TAB_PAGE_ID,
254 X_NAVIGATION_DIRECTION,
255 X_VISIBLE,
256 X_INFORMATION_CATEGORY,
257 X_INFORMATION9,
258 X_INFORMATION10,
259 X_INFORMATION11,
260 X_INFORMATION12,
261 X_INFORMATION13,
262 X_INFORMATION14,
263 X_INFORMATION15,
264 X_INFORMATION16,
265 X_INFORMATION17,
266 X_INFORMATION18,
267 X_INFORMATION19,
268 X_INFORMATION20,
269 X_INFORMATION21,
270 X_INFORMATION7,
271 X_INFORMATION8,
272 X_INFORMATION29,
273 X_INFORMATION30,
274 X_INFORMATION6,
275 X_INFORMATION1,
276 X_INFORMATION2,
277 X_INFORMATION3,
278 X_INFORMATION4,
279 X_INFORMATION5,
280 X_INFORMATION22,
281 X_INFORMATION23,
282 X_INFORMATION24,
283 X_INFORMATION25,
284 X_INFORMATION26,
285 X_INFORMATION27,
286 X_INFORMATION28,
287 X_CREATION_DATE,
288 X_CREATED_BY,
289 X_LAST_UPDATE_DATE,
290 X_LAST_UPDATED_BY,
291 X_LAST_UPDATE_LOGIN
292 );
293
294 insert into HR_TAB_PAGE_PROPERTIES_TL (
295 TAB_PAGE_PROPERTY_ID,
296 LABEL,
297 LAST_UPDATE_DATE,
298 LAST_UPDATED_BY,
299 LAST_UPDATE_LOGIN,
300 CREATED_BY,
301 CREATION_DATE,
302 LANGUAGE,
303 SOURCE_LANG
304 ) select
305 X_TAB_PAGE_PROPERTY_ID,
306 X_LABEL,
307 X_LAST_UPDATE_DATE,
308 X_LAST_UPDATED_BY,
309 X_LAST_UPDATE_LOGIN,
310 X_CREATED_BY,
311 X_CREATION_DATE,
312 L.LANGUAGE_CODE,
313 userenv('LANG')
314 from FND_LANGUAGES L
315 where L.INSTALLED_FLAG in ('I', 'B')
316 and not exists
317 (select NULL
318 from HR_TAB_PAGE_PROPERTIES_TL T
319 where T.TAB_PAGE_PROPERTY_ID = X_TAB_PAGE_PROPERTY_ID
320 and T.LANGUAGE = L.LANGUAGE_CODE);
321
322 open c;
323 fetch c into X_ROWID;
324 if (c%notfound) then
325 close c;
326 raise no_data_found;
327 end if;
328 close c;
329
330 end INSERT_ROW;
331
332 procedure LOCK_ROW (
333 X_TAB_PAGE_PROPERTY_ID in NUMBER,
334 X_FORM_TAB_PAGE_ID in NUMBER,
335 X_TEMPLATE_TAB_PAGE_ID in NUMBER,
336 X_NAVIGATION_DIRECTION in VARCHAR2,
337 X_VISIBLE in NUMBER,
338 X_INFORMATION_CATEGORY in VARCHAR2,
339 X_INFORMATION9 in VARCHAR2,
340 X_INFORMATION10 in VARCHAR2,
341 X_INFORMATION11 in VARCHAR2,
342 X_INFORMATION12 in VARCHAR2,
343 X_INFORMATION13 in VARCHAR2,
344 X_INFORMATION14 in VARCHAR2,
345 X_INFORMATION15 in VARCHAR2,
346 X_INFORMATION16 in VARCHAR2,
347 X_INFORMATION17 in VARCHAR2,
348 X_INFORMATION18 in VARCHAR2,
349 X_INFORMATION19 in VARCHAR2,
350 X_INFORMATION20 in VARCHAR2,
351 X_INFORMATION21 in VARCHAR2,
352 X_INFORMATION7 in VARCHAR2,
353 X_INFORMATION8 in VARCHAR2,
354 X_INFORMATION29 in VARCHAR2,
355 X_INFORMATION30 in VARCHAR2,
356 X_INFORMATION6 in VARCHAR2,
357 X_INFORMATION1 in VARCHAR2,
358 X_INFORMATION2 in VARCHAR2,
359 X_INFORMATION3 in VARCHAR2,
360 X_INFORMATION4 in VARCHAR2,
361 X_INFORMATION5 in VARCHAR2,
362 X_INFORMATION22 in VARCHAR2,
363 X_INFORMATION23 in VARCHAR2,
364 X_INFORMATION24 in VARCHAR2,
365 X_INFORMATION25 in VARCHAR2,
366 X_INFORMATION26 in VARCHAR2,
367 X_INFORMATION27 in VARCHAR2,
368 X_INFORMATION28 in VARCHAR2,
369 X_LABEL in VARCHAR2
370 ) is
371 cursor c is select
372 FORM_TAB_PAGE_ID,
373 TEMPLATE_TAB_PAGE_ID,
374 NAVIGATION_DIRECTION,
375 VISIBLE,
376 INFORMATION_CATEGORY,
377 INFORMATION9,
378 INFORMATION10,
379 INFORMATION11,
380 INFORMATION12,
381 INFORMATION13,
382 INFORMATION14,
383 INFORMATION15,
384 INFORMATION16,
385 INFORMATION17,
386 INFORMATION18,
387 INFORMATION19,
388 INFORMATION20,
389 INFORMATION21,
390 INFORMATION7,
391 INFORMATION8,
392 INFORMATION29,
393 INFORMATION30,
394 INFORMATION6,
395 INFORMATION1,
396 INFORMATION2,
397 INFORMATION3,
398 INFORMATION4,
399 INFORMATION5,
400 INFORMATION22,
401 INFORMATION23,
402 INFORMATION24,
403 INFORMATION25,
404 INFORMATION26,
405 INFORMATION27,
406 INFORMATION28
407 from HR_TAB_PAGE_PROPERTIES_B
408 where TAB_PAGE_PROPERTY_ID = X_TAB_PAGE_PROPERTY_ID
409 for update of TAB_PAGE_PROPERTY_ID nowait;
410 recinfo c%rowtype;
411
412 cursor c1 is select
413 LABEL,
414 decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
415 from HR_TAB_PAGE_PROPERTIES_TL
416 where TAB_PAGE_PROPERTY_ID = X_TAB_PAGE_PROPERTY_ID
417 and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
418 for update of TAB_PAGE_PROPERTY_ID nowait;
419 begin
420 open c;
421 fetch c into recinfo;
422 if (c%notfound) then
423 close c;
424 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
425 app_exception.raise_exception;
426 end if;
427 close c;
428 if ( ((recinfo.FORM_TAB_PAGE_ID = X_FORM_TAB_PAGE_ID)
429 OR ((recinfo.FORM_TAB_PAGE_ID is null) AND (X_FORM_TAB_PAGE_ID is null)))
430 AND ((recinfo.TEMPLATE_TAB_PAGE_ID = X_TEMPLATE_TAB_PAGE_ID)
431 OR ((recinfo.TEMPLATE_TAB_PAGE_ID is null) AND (X_TEMPLATE_TAB_PAGE_ID is null)))
432 AND ((recinfo.NAVIGATION_DIRECTION = X_NAVIGATION_DIRECTION)
433 OR ((recinfo.NAVIGATION_DIRECTION is null) AND (X_NAVIGATION_DIRECTION is null)))
434 AND ((recinfo.VISIBLE = X_VISIBLE)
435 OR ((recinfo.VISIBLE is null) AND (X_VISIBLE is null)))
436 AND ((recinfo.INFORMATION_CATEGORY = X_INFORMATION_CATEGORY)
437 OR ((recinfo.INFORMATION_CATEGORY is null) AND (X_INFORMATION_CATEGORY is null)))
438 AND ((recinfo.INFORMATION9 = X_INFORMATION9)
439 OR ((recinfo.INFORMATION9 is null) AND (X_INFORMATION9 is null)))
440 AND ((recinfo.INFORMATION10 = X_INFORMATION10)
441 OR ((recinfo.INFORMATION10 is null) AND (X_INFORMATION10 is null)))
442 AND ((recinfo.INFORMATION11 = X_INFORMATION11)
443 OR ((recinfo.INFORMATION11 is null) AND (X_INFORMATION11 is null)))
444 AND ((recinfo.INFORMATION12 = X_INFORMATION12)
445 OR ((recinfo.INFORMATION12 is null) AND (X_INFORMATION12 is null)))
446 AND ((recinfo.INFORMATION13 = X_INFORMATION13)
447 OR ((recinfo.INFORMATION13 is null) AND (X_INFORMATION13 is null)))
448 AND ((recinfo.INFORMATION14 = X_INFORMATION14)
449 OR ((recinfo.INFORMATION14 is null) AND (X_INFORMATION14 is null)))
450 AND ((recinfo.INFORMATION15 = X_INFORMATION15)
451 OR ((recinfo.INFORMATION15 is null) AND (X_INFORMATION15 is null)))
452 AND ((recinfo.INFORMATION16 = X_INFORMATION16)
453 OR ((recinfo.INFORMATION16 is null) AND (X_INFORMATION16 is null)))
454 AND ((recinfo.INFORMATION17 = X_INFORMATION17)
455 OR ((recinfo.INFORMATION17 is null) AND (X_INFORMATION17 is null)))
456 AND ((recinfo.INFORMATION18 = X_INFORMATION18)
457 OR ((recinfo.INFORMATION18 is null) AND (X_INFORMATION18 is null)))
458 AND ((recinfo.INFORMATION19 = X_INFORMATION19)
459 OR ((recinfo.INFORMATION19 is null) AND (X_INFORMATION19 is null)))
460 AND ((recinfo.INFORMATION20 = X_INFORMATION20)
461 OR ((recinfo.INFORMATION20 is null) AND (X_INFORMATION20 is null)))
462 AND ((recinfo.INFORMATION21 = X_INFORMATION21)
463 OR ((recinfo.INFORMATION21 is null) AND (X_INFORMATION21 is null)))
464 AND ((recinfo.INFORMATION7 = X_INFORMATION7)
465 OR ((recinfo.INFORMATION7 is null) AND (X_INFORMATION7 is null)))
466 AND ((recinfo.INFORMATION8 = X_INFORMATION8)
467 OR ((recinfo.INFORMATION8 is null) AND (X_INFORMATION8 is null)))
468 AND ((recinfo.INFORMATION29 = X_INFORMATION29)
469 OR ((recinfo.INFORMATION29 is null) AND (X_INFORMATION29 is null)))
470 AND ((recinfo.INFORMATION30 = X_INFORMATION30)
471 OR ((recinfo.INFORMATION30 is null) AND (X_INFORMATION30 is null)))
472 AND ((recinfo.INFORMATION6 = X_INFORMATION6)
473 OR ((recinfo.INFORMATION6 is null) AND (X_INFORMATION6 is null)))
474 AND ((recinfo.INFORMATION1 = X_INFORMATION1)
475 OR ((recinfo.INFORMATION1 is null) AND (X_INFORMATION1 is null)))
476 AND ((recinfo.INFORMATION2 = X_INFORMATION2)
477 OR ((recinfo.INFORMATION2 is null) AND (X_INFORMATION2 is null)))
478 AND ((recinfo.INFORMATION3 = X_INFORMATION3)
479 OR ((recinfo.INFORMATION3 is null) AND (X_INFORMATION3 is null)))
480 AND ((recinfo.INFORMATION4 = X_INFORMATION4)
481 OR ((recinfo.INFORMATION4 is null) AND (X_INFORMATION4 is null)))
482 AND ((recinfo.INFORMATION5 = X_INFORMATION5)
483 OR ((recinfo.INFORMATION5 is null) AND (X_INFORMATION5 is null)))
484 AND ((recinfo.INFORMATION22 = X_INFORMATION22)
485 OR ((recinfo.INFORMATION22 is null) AND (X_INFORMATION22 is null)))
486 AND ((recinfo.INFORMATION23 = X_INFORMATION23)
487 OR ((recinfo.INFORMATION23 is null) AND (X_INFORMATION23 is null)))
488 AND ((recinfo.INFORMATION24 = X_INFORMATION24)
489 OR ((recinfo.INFORMATION24 is null) AND (X_INFORMATION24 is null)))
490 AND ((recinfo.INFORMATION25 = X_INFORMATION25)
491 OR ((recinfo.INFORMATION25 is null) AND (X_INFORMATION25 is null)))
492 AND ((recinfo.INFORMATION26 = X_INFORMATION26)
493 OR ((recinfo.INFORMATION26 is null) AND (X_INFORMATION26 is null)))
494 AND ((recinfo.INFORMATION27 = X_INFORMATION27)
495 OR ((recinfo.INFORMATION27 is null) AND (X_INFORMATION27 is null)))
496 AND ((recinfo.INFORMATION28 = X_INFORMATION28)
497 OR ((recinfo.INFORMATION28 is null) AND (X_INFORMATION28 is null)))
498 ) then
499 null;
500 else
501 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
502 app_exception.raise_exception;
503 end if;
504
505 for tlinfo in c1 loop
506 if (tlinfo.BASELANG = 'Y') then
507 if ( ((tlinfo.LABEL = X_LABEL)
508 OR ((tlinfo.LABEL is null) AND (X_LABEL is null)))
509 ) then
510 null;
511 else
512 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
513 app_exception.raise_exception;
514 end if;
515 end if;
516 end loop;
517 return;
518 end LOCK_ROW;
519
520 procedure UPDATE_ROW (
521 X_TAB_PAGE_PROPERTY_ID in NUMBER,
522 X_FORM_TAB_PAGE_ID in NUMBER,
523 X_TEMPLATE_TAB_PAGE_ID in NUMBER,
524 X_NAVIGATION_DIRECTION in VARCHAR2,
525 X_VISIBLE in NUMBER,
526 X_INFORMATION_CATEGORY in VARCHAR2,
527 X_INFORMATION9 in VARCHAR2,
528 X_INFORMATION10 in VARCHAR2,
529 X_INFORMATION11 in VARCHAR2,
530 X_INFORMATION12 in VARCHAR2,
531 X_INFORMATION13 in VARCHAR2,
532 X_INFORMATION14 in VARCHAR2,
533 X_INFORMATION15 in VARCHAR2,
534 X_INFORMATION16 in VARCHAR2,
535 X_INFORMATION17 in VARCHAR2,
536 X_INFORMATION18 in VARCHAR2,
537 X_INFORMATION19 in VARCHAR2,
538 X_INFORMATION20 in VARCHAR2,
539 X_INFORMATION21 in VARCHAR2,
540 X_INFORMATION7 in VARCHAR2,
541 X_INFORMATION8 in VARCHAR2,
542 X_INFORMATION29 in VARCHAR2,
543 X_INFORMATION30 in VARCHAR2,
544 X_INFORMATION6 in VARCHAR2,
545 X_INFORMATION1 in VARCHAR2,
546 X_INFORMATION2 in VARCHAR2,
547 X_INFORMATION3 in VARCHAR2,
548 X_INFORMATION4 in VARCHAR2,
549 X_INFORMATION5 in VARCHAR2,
550 X_INFORMATION22 in VARCHAR2,
551 X_INFORMATION23 in VARCHAR2,
552 X_INFORMATION24 in VARCHAR2,
553 X_INFORMATION25 in VARCHAR2,
554 X_INFORMATION26 in VARCHAR2,
555 X_INFORMATION27 in VARCHAR2,
556 X_INFORMATION28 in VARCHAR2,
557 X_LABEL in VARCHAR2,
558 X_LAST_UPDATE_DATE in DATE,
559 X_LAST_UPDATED_BY in NUMBER,
560 X_LAST_UPDATE_LOGIN in NUMBER
561 ) is
562 begin
563 update HR_TAB_PAGE_PROPERTIES_B set
564 FORM_TAB_PAGE_ID = X_FORM_TAB_PAGE_ID,
565 TEMPLATE_TAB_PAGE_ID = X_TEMPLATE_TAB_PAGE_ID,
566 NAVIGATION_DIRECTION = X_NAVIGATION_DIRECTION,
567 VISIBLE = X_VISIBLE,
568 INFORMATION_CATEGORY = X_INFORMATION_CATEGORY,
569 INFORMATION9 = X_INFORMATION9,
570 INFORMATION10 = X_INFORMATION10,
571 INFORMATION11 = X_INFORMATION11,
572 INFORMATION12 = X_INFORMATION12,
573 INFORMATION13 = X_INFORMATION13,
574 INFORMATION14 = X_INFORMATION14,
575 INFORMATION15 = X_INFORMATION15,
576 INFORMATION16 = X_INFORMATION16,
577 INFORMATION17 = X_INFORMATION17,
578 INFORMATION18 = X_INFORMATION18,
579 INFORMATION19 = X_INFORMATION19,
580 INFORMATION20 = X_INFORMATION20,
581 INFORMATION21 = X_INFORMATION21,
582 INFORMATION7 = X_INFORMATION7,
583 INFORMATION8 = X_INFORMATION8,
584 INFORMATION29 = X_INFORMATION29,
585 INFORMATION30 = X_INFORMATION30,
586 INFORMATION6 = X_INFORMATION6,
587 INFORMATION1 = X_INFORMATION1,
588 INFORMATION2 = X_INFORMATION2,
589 INFORMATION3 = X_INFORMATION3,
590 INFORMATION4 = X_INFORMATION4,
591 INFORMATION5 = X_INFORMATION5,
592 INFORMATION22 = X_INFORMATION22,
593 INFORMATION23 = X_INFORMATION23,
594 INFORMATION24 = X_INFORMATION24,
595 INFORMATION25 = X_INFORMATION25,
596 INFORMATION26 = X_INFORMATION26,
597 INFORMATION27 = X_INFORMATION27,
598 INFORMATION28 = X_INFORMATION28,
599 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
600 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
601 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
602 where TAB_PAGE_PROPERTY_ID = X_TAB_PAGE_PROPERTY_ID;
603
604 if (sql%notfound) then
605 raise no_data_found;
606 end if;
607
608 update HR_TAB_PAGE_PROPERTIES_TL set
609 LABEL = X_LABEL,
610 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
611 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
612 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
613 SOURCE_LANG = userenv('LANG')
614 where TAB_PAGE_PROPERTY_ID = X_TAB_PAGE_PROPERTY_ID
615 and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
616
617 if (sql%notfound) then
618 raise no_data_found;
619 end if;
620 end UPDATE_ROW;
621
622 procedure DELETE_ROW (
623 X_TAB_PAGE_PROPERTY_ID in NUMBER
624 ) is
625 begin
626 delete from HR_TAB_PAGE_PROPERTIES_TL
627 where TAB_PAGE_PROPERTY_ID = X_TAB_PAGE_PROPERTY_ID;
628
629 if (sql%notfound) then
630 raise no_data_found;
631 end if;
632
633 delete from HR_TAB_PAGE_PROPERTIES_B
634 where TAB_PAGE_PROPERTY_ID = X_TAB_PAGE_PROPERTY_ID;
635
636 if (sql%notfound) then
637 raise no_data_found;
638 end if;
639 end DELETE_ROW;
640
641 procedure ADD_LANGUAGE
642 is
643 begin
644 delete from HR_TAB_PAGE_PROPERTIES_TL T
645 where not exists
646 (select NULL
647 from HR_TAB_PAGE_PROPERTIES_B B
648 where B.TAB_PAGE_PROPERTY_ID = T.TAB_PAGE_PROPERTY_ID
649 );
650
651 update HR_TAB_PAGE_PROPERTIES_TL T set (
652 LABEL
653 ) = (select
654 B.LABEL
655 from HR_TAB_PAGE_PROPERTIES_TL B
656 where B.TAB_PAGE_PROPERTY_ID = T.TAB_PAGE_PROPERTY_ID
657 and B.LANGUAGE = T.SOURCE_LANG)
658 where (
659 T.TAB_PAGE_PROPERTY_ID,
660 T.LANGUAGE
661 ) in (select
662 SUBT.TAB_PAGE_PROPERTY_ID,
663 SUBT.LANGUAGE
664 from HR_TAB_PAGE_PROPERTIES_TL SUBB, HR_TAB_PAGE_PROPERTIES_TL SUBT
665 where SUBB.TAB_PAGE_PROPERTY_ID = SUBT.TAB_PAGE_PROPERTY_ID
666 and SUBB.LANGUAGE = SUBT.SOURCE_LANG
667 and (SUBB.LABEL <> SUBT.LABEL
668 or (SUBB.LABEL is null and SUBT.LABEL is not null)
669 or (SUBB.LABEL is not null and SUBT.LABEL is null)
670 ));
671
672 insert into HR_TAB_PAGE_PROPERTIES_TL (
673 TAB_PAGE_PROPERTY_ID,
674 LABEL,
675 LAST_UPDATE_DATE,
676 LAST_UPDATED_BY,
677 LAST_UPDATE_LOGIN,
678 CREATED_BY,
679 CREATION_DATE,
680 LANGUAGE,
681 SOURCE_LANG
682 ) select
683 B.TAB_PAGE_PROPERTY_ID,
684 B.LABEL,
685 B.LAST_UPDATE_DATE,
686 B.LAST_UPDATED_BY,
687 B.LAST_UPDATE_LOGIN,
688 B.CREATED_BY,
689 B.CREATION_DATE,
690 L.LANGUAGE_CODE,
691 B.SOURCE_LANG
692 from HR_TAB_PAGE_PROPERTIES_TL B, FND_LANGUAGES L
693 where L.INSTALLED_FLAG in ('I', 'B')
694 and B.LANGUAGE = userenv('LANG')
695 and not exists
696 (select NULL
697 from HR_TAB_PAGE_PROPERTIES_TL T
698 where T.TAB_PAGE_PROPERTY_ID = B.TAB_PAGE_PROPERTY_ID
699 and T.LANGUAGE = L.LANGUAGE_CODE);
700 end ADD_LANGUAGE;
701
702 procedure TRANSLATE_ROW (
703 X_APPLICATION_SHORT_NAME in VARCHAR2,
704 X_FORM_NAME in VARCHAR2,
705 X_TAB_PAGE_NAME in VARCHAR2,
706 X_CANVAS_NAME in VARCHAR2,
707 X_WINDOW_NAME in VARCHAR2,
708 X_TEMPLATE_NAME in VARCHAR2,
709 X_TERRITORY_SHORT_NAME in VARCHAR2,
710 X_OWNER in VARCHAR2,
711 X_LAST_UPDATE_DATE in VARCHAR2 default sysdate,
712 X_CUSTOM_MODE IN VARCHAR2 default null,
713 X_LABEL in VARCHAR2) is
714 X_ROWID ROWID;
715 X_CREATION_DATE DATE;
716 X_CREATED_BY NUMBER;
717 -- X_LAST_UPDATE_DATE DATE;
718 X_LAST_UPDATED_BY NUMBER;
719 X_LAST_UPDATE_LOGIN NUMBER;
720 X_FORM_ID NUMBER;
721 X_APPLICATION_ID NUMBER;
722 X_FORM_WINDOW_ID NUMBER;
723 X_FORM_CANVAS_ID NUMBER;
724 X_FORM_TAB_PAGE_ID NUMBER;
725 X_TEMPLATE_CANVAS_ID NUMBER;
726 X_TEMPLATE_TAB_PAGE_ID NUMBER;
727 X_TAB_PAGE_PROPERTY_ID NUMBER;
728 f_luby number; -- entity owner in file
729 f_ludate date; -- entity update date in file
730 db_luby number; -- entity owner in db
731 db_ludate date; -- entity update date in db
732
733 begin
734 --This has been commented as LAST_UPDATE_DATE is passed as an parameter
735 /*OWNER_TO_WHO (
736 X_OWNER,
737 X_CREATION_DATE,
738 X_CREATED_BY,
739 X_LAST_UPDATE_DATE,
740 X_LAST_UPDATED_BY,
741 X_LAST_UPDATE_LOGIN
742 );*/
743
744 select application_id
745 into x_application_id
746 from fnd_application
747 where application_short_name = x_application_short_name;
748
749 select form_id
750 into x_form_id
751 from fnd_form
752 where form_name = x_form_name
753 and application_id = x_application_id;
754
755 -- check this select
756 select hfc.form_canvas_id, hfw.form_window_id
757 into x_form_canvas_id,x_form_window_id
758 from hr_form_canvases_b hfc
759 , hr_form_windows_b hfw
760 where hfc.canvas_name = x_canvas_name
761 and hfw.application_id = x_application_id
762 and hfw.form_id = x_form_id
763 and hfw.window_name = x_window_name;
764
765 select form_tab_page_id
766 into x_form_tab_page_id
767 from hr_form_tab_pages_b
768 where form_canvas_id = x_form_canvas_id
769 and tab_page_name = x_tab_page_name;
770
771 if ltrim(rtrim(x_template_name)) is not null then
772
773 select htc.template_canvas_id
774 into x_template_canvas_id
775 from hr_template_canvases_b htc
776 ,hr_template_windows_b htw
777 , hr_form_templates hft
778 where htc.form_canvas_id = x_form_canvas_id
779 and htc.template_window_id = htw.template_window_id
780 and htw.form_window_id = x_form_window_id
781 and htw.form_template_id = hft.form_template_id
782 and hft.application_id = x_application_id
783 and hft.form_id = x_form_id
784 and ( (hft.legislation_code is null and x_territory_short_name is null)
785 or (hft.legislation_code = x_territory_short_name) )
786 and hft.template_name = x_template_name;
787
788
789 select template_tab_page_id
790 into x_template_tab_page_id
791 from hr_template_tab_pages
792 where template_canvas_id = x_template_canvas_id
793 and form_tab_page_id = x_form_tab_page_id;
794
795 x_form_tab_page_id := null;
796
797 else
798 x_template_tab_page_id := null;
799 end if;
800
801 begin
802 select tab_page_property_id
803 into x_tab_page_property_id
804 from hr_tab_page_properties_b
805 where nvl(form_tab_page_id,hr_api.g_number) = nvl(x_form_tab_page_id,hr_api.g_number)
806 and nvl(template_tab_page_id,hr_api.g_number) = nvl(x_template_tab_page_id,hr_api.g_number);
807 end;
808
809 -- Translate owner to file_last_updated_by
810 f_luby := fnd_load_util.owner_id(X_OWNER);
811 -- Translate char last_update_date to date
812 f_ludate := nvl(to_date(X_LAST_UPDATE_DATE, 'YYYY/MM/DD'), sysdate);
813
814 select LAST_UPDATED_BY, LAST_UPDATE_DATE
815 into db_luby, db_ludate
816 from HR_TAB_PAGE_PROPERTIES_TL
817 where tab_page_property_id = x_tab_page_property_id
818 and LANGUAGE=userenv('LANG');
819
820 if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby,
821 db_ludate,X_CUSTOM_MODE)) then
822
823 update HR_TAB_PAGE_PROPERTIES_TL set
824 LABEL = X_LABEL,
825 LAST_UPDATE_DATE = f_ludate,
826 LAST_UPDATED_BY = f_luby,
827 LAST_UPDATE_LOGIN = 0,
828 SOURCE_LANG = userenv('LANG')
829 where userenv('LANG') in (LANGUAGE,SOURCE_LANG)
830 and tab_page_property_id = x_tab_page_property_id;
831 end if;
832 exception
833 when no_data_found then
834 -- Do not insert missing translations, skip this row
835 null;
836
837 end TRANSLATE_ROW;
838
839 procedure LOAD_ROW (
840 X_APPLICATION_SHORT_NAME in VARCHAR2,
841 X_FORM_NAME in VARCHAR2,
842 X_TAB_PAGE_NAME in VARCHAR2,
843 X_CANVAS_NAME in VARCHAR2,
844 X_WINDOW_NAME in VARCHAR2,
845 X_TEMPLATE_NAME in VARCHAR2,
846 X_TERRITORY_SHORT_NAME in VARCHAR2,
847 X_OWNER in VARCHAR2,
848 X_LAST_UPDATE_DATE IN varchar2 default sysdate,
849 X_CUSTOM_MODE IN VARCHAR2 default null,
850 X_NAVIGATION_DIRECTION in VARCHAR2,
851 X_VISIBLE in VARCHAR2,
852 X_INFORMATION_CATEGORY in VARCHAR2,
853 X_INFORMATION1 in VARCHAR2,
854 X_INFORMATION2 in VARCHAR2,
855 X_INFORMATION3 in VARCHAR2,
856 X_INFORMATION4 in VARCHAR2,
857 X_INFORMATION5 in VARCHAR2,
858 X_INFORMATION6 in VARCHAR2,
859 X_INFORMATION7 in VARCHAR2,
860 X_INFORMATION8 in VARCHAR2,
861 X_INFORMATION9 in VARCHAR2,
862 X_INFORMATION10 in VARCHAR2,
863 X_INFORMATION11 in VARCHAR2,
864 X_INFORMATION12 in VARCHAR2,
865 X_INFORMATION13 in VARCHAR2,
866 X_INFORMATION14 in VARCHAR2,
867 X_INFORMATION15 in VARCHAR2,
868 X_INFORMATION16 in VARCHAR2,
869 X_INFORMATION17 in VARCHAR2,
870 X_INFORMATION18 in VARCHAR2,
871 X_INFORMATION19 in VARCHAR2,
872 X_INFORMATION20 in VARCHAR2,
873 X_INFORMATION21 in VARCHAR2,
874 X_INFORMATION22 in VARCHAR2,
875 X_INFORMATION23 in VARCHAR2,
876 X_INFORMATION24 in VARCHAR2,
877 X_INFORMATION25 in VARCHAR2,
878 X_INFORMATION26 in VARCHAR2,
879 X_INFORMATION27 in VARCHAR2,
880 X_INFORMATION28 in VARCHAR2,
881 X_INFORMATION29 in VARCHAR2,
882 X_INFORMATION30 in VARCHAR2,
883 X_LABEL in VARCHAR2) is
884 X_ROWID ROWID;
885 X_CREATION_DATE DATE:=sysdate;
886 X_CREATED_BY NUMBER;
887 -- X_LAST_UPDATE_DATE DATE;
888 X_LAST_UPDATED_BY NUMBER;
889 X_LAST_UPDATE_LOGIN NUMBER;
890 X_FORM_ID NUMBER;
891 X_APPLICATION_ID NUMBER;
892 X_FORM_WINDOW_ID NUMBER;
893 X_FORM_CANVAS_ID NUMBER;
894 X_FORM_TAB_PAGE_ID NUMBER;
895 X_TEMPLATE_CANVAS_ID NUMBER;
896 X_TEMPLATE_TAB_PAGE_ID NUMBER;
897 X_TAB_PAGE_PROPERTY_ID NUMBER;
898 f_luby number; -- entity owner in file
899 f_ludate date; -- entity update date in file
900 db_luby number; -- entity owner in db
901 db_ludate date; -- entity update date in db
902 begin
903 --This has been commented as LAST_UPDATE_DATE is passed as an parameter
904 /* OWNER_TO_WHO (
905 X_OWNER,
906 X_CREATION_DATE,
907 X_CREATED_BY,
908 X_LAST_UPDATE_DATE,
909 X_LAST_UPDATED_BY,
910 X_LAST_UPDATE_LOGIN
911 );*/
912 if X_OWNER = 'SEED' then
913 X_CREATED_BY := 1;
914 else
915 X_CREATED_BY := 0;
916 end if;
917
918 select application_id
919 into x_application_id
920 from fnd_application
921 where application_short_name = x_application_short_name;
922
923 select form_id
924 into x_form_id
925 from fnd_form
926 where form_name = x_form_name
927 and application_id = x_application_id;
928
929 select hfc.form_canvas_id,hfw.form_window_id
930 into x_form_canvas_id,x_form_window_id
931 from hr_form_canvases_b hfc
932 , hr_form_windows_b hfw
933 where hfc.canvas_name = x_canvas_name
934 and hfw.application_id = x_application_id
935 and hfw.form_id = x_form_id
936 and hfw.window_name = x_window_name;
937
938 select form_tab_page_id
939 into x_form_tab_page_id
940 from hr_form_tab_pages_b
941 where form_canvas_id = x_form_canvas_id
942 and tab_page_name = x_tab_page_name;
943
944 if ltrim(rtrim(x_template_name)) is not null then
945
946 select htc.template_canvas_id
947 into x_template_canvas_id
948 from hr_template_canvases_b htc
949 ,hr_template_windows_b htw
950 , hr_form_templates hft
951 where htc.form_canvas_id = x_form_canvas_id
952 and htc.template_window_id = htw.template_window_id
953 and htw.form_window_id = x_form_window_id
954 and htw.form_template_id = hft.form_template_id
955 and hft.application_id = x_application_id
956 and hft.form_id = x_form_id
957 and ( (hft.legislation_code is null and x_territory_short_name is null)
958 or (hft.legislation_code = x_territory_short_name) )
959 and hft.template_name = x_template_name;
960
961 select template_tab_page_id
962 into x_template_tab_page_id
963 from hr_template_tab_pages
964 where template_canvas_id = x_template_canvas_id
965 and form_tab_page_id = x_form_tab_page_id;
966
967 x_form_tab_page_id := null;
968
969 else
970 x_template_tab_page_id := null;
971 end if;
972
973 begin
974 select tab_page_property_id
975 into x_tab_page_property_id
976 from hr_tab_page_properties_b
977 where nvl(form_tab_page_id,hr_api.g_number) = nvl(x_form_tab_page_id,hr_api.g_number)
978 and nvl(template_tab_page_id,hr_api.g_number) = nvl(x_template_tab_page_id,hr_api.g_number);
979 exception
980 when no_data_found then
981 select hr_tab_page_properties_b_s.nextval
982 into x_tab_page_property_id
983 from dual;
984 end;
985
986 begin
987 -- Translate owner to file_last_updated_by
988 f_luby := fnd_load_util.owner_id(X_OWNER);
989 -- Translate char last_update_date to date
990 f_ludate := nvl(to_date(X_LAST_UPDATE_DATE, 'YYYY/MM/DD'), sysdate);
991
992 select LAST_UPDATED_BY, LAST_UPDATE_DATE
993 into db_luby, db_ludate
994 from HR_TAB_PAGE_PROPERTIES_TL
995 where tab_page_property_id = x_tab_page_property_id
996 and LANGUAGE=userenv('LANG');
997
998 if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby,
999 db_ludate,X_CUSTOM_MODE)) then
1000 UPDATE_COPIES (
1001 X_TAB_PAGE_PROPERTY_ID,
1002 X_FORM_TAB_PAGE_ID,
1003 X_TEMPLATE_TAB_PAGE_ID,
1004 X_NAVIGATION_DIRECTION,
1005 X_VISIBLE,
1006 X_LABEL,
1007 X_INFORMATION_CATEGORY,
1008 X_INFORMATION1,
1009 X_INFORMATION2,
1010 X_INFORMATION3,
1011 X_INFORMATION4,
1012 X_INFORMATION5,
1013 X_INFORMATION6,
1014 X_INFORMATION7,
1015 X_INFORMATION8,
1016 X_INFORMATION9,
1017 X_INFORMATION10,
1018 X_INFORMATION11,
1019 X_INFORMATION12,
1020 X_INFORMATION13,
1021 X_INFORMATION14,
1022 X_INFORMATION15,
1023 X_INFORMATION16,
1024 X_INFORMATION17,
1025 X_INFORMATION18,
1026 X_INFORMATION19,
1027 X_INFORMATION20,
1028 X_INFORMATION21,
1029 X_INFORMATION22,
1030 X_INFORMATION23,
1031 X_INFORMATION24,
1032 X_INFORMATION25,
1033 X_INFORMATION26,
1034 X_INFORMATION27,
1035 X_INFORMATION28,
1036 X_INFORMATION29,
1037 X_INFORMATION30,
1038 f_ludate,
1039 f_luby,
1040 0
1041 );
1042
1043 UPDATE_ROW (
1044 X_TAB_PAGE_PROPERTY_ID,
1045 X_FORM_TAB_PAGE_ID,
1046 X_TEMPLATE_TAB_PAGE_ID,
1047 X_NAVIGATION_DIRECTION,
1048 to_number(X_VISIBLE),
1049 X_INFORMATION_CATEGORY,
1050 X_INFORMATION9,
1051 X_INFORMATION10,
1052 X_INFORMATION11,
1053 X_INFORMATION12,
1054 X_INFORMATION13,
1055 X_INFORMATION14,
1056 X_INFORMATION15,
1057 X_INFORMATION16,
1058 X_INFORMATION17,
1059 X_INFORMATION18,
1060 X_INFORMATION19,
1061 X_INFORMATION20,
1062 X_INFORMATION21,
1063 X_INFORMATION7,
1064 X_INFORMATION8,
1065 X_INFORMATION29,
1066 X_INFORMATION30,
1067 X_INFORMATION6,
1068 X_INFORMATION1,
1069 X_INFORMATION2,
1070 X_INFORMATION3,
1071 X_INFORMATION4,
1072 X_INFORMATION5,
1073 X_INFORMATION22,
1074 X_INFORMATION23,
1075 X_INFORMATION24,
1076 X_INFORMATION25,
1077 X_INFORMATION26,
1078 X_INFORMATION27,
1079 X_INFORMATION28,
1080 X_LABEL,
1081 f_ludate,
1082 f_luby,
1083 0);
1084 END IF;
1085 exception
1086 when no_data_found then
1087 INSERT_ROW (
1088 X_ROWID,
1089 X_TAB_PAGE_PROPERTY_ID,
1090 X_FORM_TAB_PAGE_ID,
1091 X_TEMPLATE_TAB_PAGE_ID,
1092 X_NAVIGATION_DIRECTION,
1093 to_number(X_VISIBLE),
1094 X_INFORMATION_CATEGORY,
1095 X_INFORMATION9,
1096 X_INFORMATION10,
1097 X_INFORMATION11,
1098 X_INFORMATION12,
1099 X_INFORMATION13,
1100 X_INFORMATION14,
1101 X_INFORMATION15,
1102 X_INFORMATION16,
1103 X_INFORMATION17,
1104 X_INFORMATION18,
1105 X_INFORMATION19,
1106 X_INFORMATION20,
1107 X_INFORMATION21,
1108 X_INFORMATION7,
1109 X_INFORMATION8,
1110 X_INFORMATION29,
1111 X_INFORMATION30,
1112 X_INFORMATION6,
1113 X_INFORMATION1,
1114 X_INFORMATION2,
1115 X_INFORMATION3,
1116 X_INFORMATION4,
1117 X_INFORMATION5,
1118 X_INFORMATION22,
1119 X_INFORMATION23,
1120 X_INFORMATION24,
1121 X_INFORMATION25,
1122 X_INFORMATION26,
1123 X_INFORMATION27,
1124 X_INFORMATION28,
1125 X_LABEL,
1126 X_CREATION_DATE,
1127 X_CREATED_BY,
1128 f_ludate,
1129 f_luby,
1130 0);
1131 end;
1132
1133 end LOAD_ROW;
1134
1135 end HR_TAB_PAGE_PROPERTIES_PKG;