[Home] [Help]
PACKAGE BODY: APPS.HR_CANVAS_PROPERTIES_PKG
Source
1 package body HR_CANVAS_PROPERTIES_PKG as
2 /* $Header: hrcnplct.pkb 120.1 2011/04/28 12:04:07 sidsaxen ship $ */
3 -- -----------------------------------------------------------------------------
4 -- |-----------------------------< update_copies >-----------------------------|
5 -- -----------------------------------------------------------------------------
6 procedure UPDATE_COPIES (
7 X_CANVAS_PROPERTY_ID in NUMBER,
8 X_FORM_CANVAS_ID in NUMBER,
9 X_TEMPLATE_CANVAS_ID in NUMBER,
10 X_HEIGHT in NUMBER,
11 X_VISIBLE in NUMBER,
12 X_WIDTH in NUMBER,
13 X_X_POSITION in NUMBER,
14 X_Y_POSITION in NUMBER,
15 X_INFORMATION_CATEGORY in VARCHAR2,
16 X_INFORMATION1 in VARCHAR2,
17 X_INFORMATION2 in VARCHAR2,
18 X_INFORMATION3 in VARCHAR2,
19 X_INFORMATION4 in VARCHAR2,
20 X_INFORMATION5 in VARCHAR2,
21 X_INFORMATION6 in VARCHAR2,
22 X_INFORMATION7 in VARCHAR2,
23 X_INFORMATION8 in VARCHAR2,
24 X_INFORMATION9 in VARCHAR2,
25 X_INFORMATION10 in VARCHAR2,
26 X_INFORMATION11 in VARCHAR2,
27 X_INFORMATION12 in VARCHAR2,
28 X_INFORMATION13 in VARCHAR2,
29 X_INFORMATION14 in VARCHAR2,
30 X_INFORMATION15 in VARCHAR2,
31 X_INFORMATION16 in VARCHAR2,
32 X_INFORMATION17 in VARCHAR2,
33 X_INFORMATION18 in VARCHAR2,
34 X_INFORMATION19 in VARCHAR2,
35 X_INFORMATION20 in VARCHAR2,
36 X_INFORMATION21 in VARCHAR2,
37 X_INFORMATION22 in VARCHAR2,
38 X_INFORMATION23 in VARCHAR2,
39 X_INFORMATION24 in VARCHAR2,
40 X_INFORMATION25 in VARCHAR2,
41 X_INFORMATION26 in VARCHAR2,
42 X_INFORMATION27 in VARCHAR2,
43 X_INFORMATION28 in VARCHAR2,
44 X_INFORMATION29 in VARCHAR2,
45 X_INFORMATION30 in VARCHAR2,
46 X_LAST_UPDATE_DATE in DATE,
47 X_LAST_UPDATED_BY in NUMBER,
48 X_LAST_UPDATE_LOGIN in NUMBER
49 ) is
50 cursor csr_original is
51 select *
52 from HR_CANVAS_PROPERTIES
53 where CANVAS_PROPERTY_ID = X_CANVAS_PROPERTY_ID;
54 l_original csr_original%rowtype;
55 cursor csr_copies is
56 select cnp.canvas_property_id
57 from HR_CANVAS_PROPERTIES cnp
58 ,HR_TEMPLATE_CANVASES_B tcn
59 ,HR_TEMPLATE_WINDOWS_B twn
60 ,HR_TEMPLATE_CANVASES_B tco
61 where cnp.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 tw1
67 where tw1.TEMPLATE_WINDOW_ID = tco.TEMPLATE_WINDOW_ID)
68 connect by sft.FORM_TEMPLATE_ID_FROM = prior sft.FORM_TEMPLATE_ID_TO)
69 and tcn.FORM_CANVAS_ID = tco.FORM_CANVAS_ID
70 and tco.TEMPLATE_CANVAS_ID = X_TEMPLATE_CANVAS_ID;
71 begin
72 if (X_TEMPLATE_CANVAS_ID is not null) then
73 open csr_original;
74 fetch csr_original into l_original;
75 if csr_original%found then
76 close csr_original;
77 for l_copy in csr_copies loop
78 update HR_CANVAS_PROPERTIES set
79 HEIGHT = decode(nvl(HEIGHT,hr_api.g_number),nvl(l_original.HEIGHT,hr_api.g_number),X_HEIGHT,HEIGHT),
80 VISIBLE = decode(nvl(VISIBLE,hr_api.g_number),nvl(l_original.VISIBLE,hr_api.g_number),X_VISIBLE,VISIBLE),
81 WIDTH = decode(nvl(WIDTH,hr_api.g_number),nvl(l_original.WIDTH,hr_api.g_number),X_WIDTH,WIDTH),
82 X_POSITION = decode(nvl(X_POSITION,hr_api.g_number),nvl(l_original.X_POSITION,hr_api.g_number),X_X_POSITION,X_POSITION),
83 Y_POSITION = decode(nvl(Y_POSITION,hr_api.g_number),nvl(l_original.Y_POSITION,hr_api.g_number),X_Y_POSITION,Y_POSITION),
84 INFORMATION_CATEGORY = decode(nvl(INFORMATION_CATEGORY,hr_api.g_varchar2),nvl(l_original.INFORMATION_CATEGORY,hr_api.g_varchar2),X_INFORMATION_CATEGORY,INFORMATION_CATEGORY),
85 INFORMATION1 = decode(nvl(INFORMATION1 ,hr_api.g_varchar2),nvl(l_original.INFORMATION1 ,hr_api.g_varchar2),X_INFORMATION1 ,INFORMATION1 ),
86 INFORMATION2 = decode(nvl(INFORMATION2 ,hr_api.g_varchar2),nvl(l_original.INFORMATION2 ,hr_api.g_varchar2),X_INFORMATION2 ,INFORMATION2 ),
87 INFORMATION3 = decode(nvl(INFORMATION3 ,hr_api.g_varchar2),nvl(l_original.INFORMATION3 ,hr_api.g_varchar2),X_INFORMATION3 ,INFORMATION3 ),
88 INFORMATION4 = decode(nvl(INFORMATION4 ,hr_api.g_varchar2),nvl(l_original.INFORMATION4 ,hr_api.g_varchar2),X_INFORMATION4 ,INFORMATION4 ),
89 INFORMATION5 = decode(nvl(INFORMATION5 ,hr_api.g_varchar2),nvl(l_original.INFORMATION5 ,hr_api.g_varchar2),X_INFORMATION5 ,INFORMATION5 ),
90 INFORMATION6 = decode(nvl(INFORMATION6 ,hr_api.g_varchar2),nvl(l_original.INFORMATION6 ,hr_api.g_varchar2),X_INFORMATION6 ,INFORMATION6 ),
91 INFORMATION7 = decode(nvl(INFORMATION7 ,hr_api.g_varchar2),nvl(l_original.INFORMATION7 ,hr_api.g_varchar2),X_INFORMATION7 ,INFORMATION7 ),
92 INFORMATION8 = decode(nvl(INFORMATION8 ,hr_api.g_varchar2),nvl(l_original.INFORMATION8 ,hr_api.g_varchar2),X_INFORMATION8 ,INFORMATION8 ),
93 INFORMATION9 = decode(nvl(INFORMATION9 ,hr_api.g_varchar2),nvl(l_original.INFORMATION9 ,hr_api.g_varchar2),X_INFORMATION9 ,INFORMATION9 ),
94 INFORMATION10 = decode(nvl(INFORMATION10,hr_api.g_varchar2),nvl(l_original.INFORMATION10,hr_api.g_varchar2),X_INFORMATION10,INFORMATION10),
95 INFORMATION11 = decode(nvl(INFORMATION11,hr_api.g_varchar2),nvl(l_original.INFORMATION11,hr_api.g_varchar2),X_INFORMATION11,INFORMATION11),
96 INFORMATION12 = decode(nvl(INFORMATION12,hr_api.g_varchar2),nvl(l_original.INFORMATION12,hr_api.g_varchar2),X_INFORMATION12,INFORMATION12),
97 INFORMATION13 = decode(nvl(INFORMATION13,hr_api.g_varchar2),nvl(l_original.INFORMATION13,hr_api.g_varchar2),X_INFORMATION13,INFORMATION13),
98 INFORMATION14 = decode(nvl(INFORMATION14,hr_api.g_varchar2),nvl(l_original.INFORMATION14,hr_api.g_varchar2),X_INFORMATION14,INFORMATION14),
99 INFORMATION15 = decode(nvl(INFORMATION15,hr_api.g_varchar2),nvl(l_original.INFORMATION15,hr_api.g_varchar2),X_INFORMATION15,INFORMATION15),
100 INFORMATION16 = decode(nvl(INFORMATION16,hr_api.g_varchar2),nvl(l_original.INFORMATION16,hr_api.g_varchar2),X_INFORMATION16,INFORMATION16),
101 INFORMATION17 = decode(nvl(INFORMATION17,hr_api.g_varchar2),nvl(l_original.INFORMATION17,hr_api.g_varchar2),X_INFORMATION17,INFORMATION17),
102 INFORMATION18 = decode(nvl(INFORMATION18,hr_api.g_varchar2),nvl(l_original.INFORMATION18,hr_api.g_varchar2),X_INFORMATION18,INFORMATION18),
103 INFORMATION19 = decode(nvl(INFORMATION19,hr_api.g_varchar2),nvl(l_original.INFORMATION19,hr_api.g_varchar2),X_INFORMATION19,INFORMATION19),
104 INFORMATION20 = decode(nvl(INFORMATION20,hr_api.g_varchar2),nvl(l_original.INFORMATION20,hr_api.g_varchar2),X_INFORMATION20,INFORMATION20),
105 INFORMATION21 = decode(nvl(INFORMATION21,hr_api.g_varchar2),nvl(l_original.INFORMATION21,hr_api.g_varchar2),X_INFORMATION21,INFORMATION21),
106 INFORMATION22 = decode(nvl(INFORMATION22,hr_api.g_varchar2),nvl(l_original.INFORMATION22,hr_api.g_varchar2),X_INFORMATION22,INFORMATION22),
107 INFORMATION23 = decode(nvl(INFORMATION23,hr_api.g_varchar2),nvl(l_original.INFORMATION23,hr_api.g_varchar2),X_INFORMATION23,INFORMATION23),
108 INFORMATION24 = decode(nvl(INFORMATION24,hr_api.g_varchar2),nvl(l_original.INFORMATION24,hr_api.g_varchar2),X_INFORMATION24,INFORMATION24),
109 INFORMATION25 = decode(nvl(INFORMATION25,hr_api.g_varchar2),nvl(l_original.INFORMATION25,hr_api.g_varchar2),X_INFORMATION25,INFORMATION25),
110 INFORMATION26 = decode(nvl(INFORMATION26,hr_api.g_varchar2),nvl(l_original.INFORMATION26,hr_api.g_varchar2),X_INFORMATION26,INFORMATION26),
111 INFORMATION27 = decode(nvl(INFORMATION27,hr_api.g_varchar2),nvl(l_original.INFORMATION27,hr_api.g_varchar2),X_INFORMATION27,INFORMATION27),
112 INFORMATION28 = decode(nvl(INFORMATION28,hr_api.g_varchar2),nvl(l_original.INFORMATION28,hr_api.g_varchar2),X_INFORMATION28,INFORMATION28),
113 INFORMATION29 = decode(nvl(INFORMATION29,hr_api.g_varchar2),nvl(l_original.INFORMATION29,hr_api.g_varchar2),X_INFORMATION29,INFORMATION29),
114 INFORMATION30 = decode(nvl(INFORMATION30,hr_api.g_varchar2),nvl(l_original.INFORMATION30,hr_api.g_varchar2),X_INFORMATION30,INFORMATION30),
115 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
116 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
117 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
118 where CANVAS_PROPERTY_ID = l_copy.CANVAS_PROPERTY_ID;
119 if (sql%notfound) then
120 raise no_data_found;
121 end if;
122 end loop;
123 else
124 close csr_original;
125 end if;
126 end if;
127 end UPDATE_COPIES;
128 --
129 -- -----------------------------------------------------------------------------
130 -- |-----------------------------< owner_to_who >------------------------------|
131 -- -----------------------------------------------------------------------------
132 procedure OWNER_TO_WHO (
133 X_OWNER in VARCHAR2,
134 X_CREATION_DATE out nocopy DATE,
135 X_CREATED_BY out nocopy NUMBER,
136 X_LAST_UPDATE_DATE out nocopy DATE,
137 X_LAST_UPDATED_BY out nocopy NUMBER,
138 X_LAST_UPDATE_LOGIN out nocopy NUMBER
139 ) is
140 begin
141 if X_OWNER = 'SEED' then
142 X_CREATED_BY := 1;
143 X_LAST_UPDATED_BY := 1;
144 else
145 X_CREATED_BY := 0;
146 X_LAST_UPDATED_BY := 0;
147 end if;
148 X_CREATION_DATE := sysdate;
149 X_LAST_UPDATE_DATE := sysdate;
150 X_LAST_UPDATE_LOGIN := 0;
151 exception
152 when others then
153 X_CREATION_DATE := null;
154 X_CREATED_BY := null;
155 X_LAST_UPDATE_DATE := null;
156 X_LAST_UPDATED_BY := null;
157 X_LAST_UPDATE_LOGIN := null;
158 raise;
159
160 end OWNER_TO_WHO;
161 --
162 -- -----------------------------------------------------------------------------
163 -- |------------------------------< insert_row >-------------------------------|
164 -- -----------------------------------------------------------------------------
165 PROCEDURE Insert_row (x_rowid IN OUT NOCOPY VARCHAR2,
166 x_canvas_property_id IN NUMBER,
167 x_information13 IN VARCHAR2,
168 x_information14 IN VARCHAR2,
169 x_information15 IN VARCHAR2,
170 x_information16 IN VARCHAR2,
171 x_information17 IN VARCHAR2,
172 x_information18 IN VARCHAR2,
173 x_information19 IN VARCHAR2,
174 x_information20 IN VARCHAR2,
175 x_information21 IN VARCHAR2,
176 x_information22 IN VARCHAR2,
177 x_information23 IN VARCHAR2,
178 x_information24 IN VARCHAR2,
179 x_information25 IN VARCHAR2,
180 x_information26 IN VARCHAR2,
181 x_information27 IN VARCHAR2,
182 x_information28 IN VARCHAR2,
183 x_information29 IN VARCHAR2,
184 x_information30 IN VARCHAR2,
185 x_form_canvas_id IN NUMBER,
186 x_template_canvas_id IN NUMBER,
187 x_height IN NUMBER,
188 x_visible IN NUMBER,
189 x_width IN NUMBER,
190 x_x_position IN NUMBER,
191 x_y_position IN NUMBER,
192 x_information_category IN VARCHAR2,
193 x_information1 IN VARCHAR2,
194 x_information2 IN VARCHAR2,
195 x_information3 IN VARCHAR2,
196 x_information4 IN VARCHAR2,
197 x_information5 IN VARCHAR2,
198 x_information6 IN VARCHAR2,
199 x_information7 IN VARCHAR2,
200 x_information8 IN VARCHAR2,
201 x_information9 IN VARCHAR2,
202 x_information10 IN VARCHAR2,
203 x_information11 IN VARCHAR2,
204 x_information12 IN VARCHAR2,
205 x_creation_date IN DATE,
206 x_created_by IN NUMBER,
207 x_last_update_date IN DATE,
208 x_last_updated_by IN NUMBER,
209 x_last_update_login IN NUMBER)
210 IS
211 CURSOR c IS
212 SELECT ROWID
213 FROM hr_canvas_properties
214 WHERE canvas_property_id = x_canvas_property_id;
215 BEGIN
216 --
217 -- Added the following code as a part of Zero Downtime Patching Project.
218 -- Code Starts Here.
219 --
220 BEGIN
221 per_ric_pkg.Chk_integrity (
222 p_entity_name => 'HR_CANVAS_PROPERTIES',
223 p_ref_entity_info => per_ric_pkg.ref_entity_tbl(per_ric_pkg.Ref_info_rec('HR_TEMPLATE_CANVASES_B',PER_RIC_PKG.column_info_tbl(
224 PER_RIC_PKG.Col_info_rec('TEMPLATE_CANVAS_ID', NULL,x_template_canvas_id, NULL))),
225 per_ric_pkg.Ref_info_rec('HR_FORM_CANVASES_B', PER_RIC_PKG.column_info_tbl(
226 PER_RIC_PKG.Col_info_rec('FORM_CANVAS_ID', NULL, x_form_canvas_id, NULL)))),
227 p_ref_type => 'INS');
228 END;
229
230 --
231 -- Code Ends Here
232 --
233 INSERT INTO hr_canvas_properties
234 (information13,
235 information14,
236 information15,
237 information16,
238 information17,
239 information18,
240 information19,
241 information20,
242 information21,
243 information22,
244 information23,
245 information24,
246 information25,
247 information26,
248 information27,
249 information28,
250 information29,
251 information30,
252 last_update_date,
253 last_updated_by,
254 last_update_login,
255 created_by,
256 creation_date,
257 canvas_property_id,
258 form_canvas_id,
259 template_canvas_id,
260 height,
261 visible,
262 width,
263 x_position,
264 y_position,
265 information_category,
266 information1,
267 information2,
268 information3,
269 information4,
270 information5,
271 information6,
272 information7,
273 information8,
274 information9,
275 information10,
276 information11,
277 information12)
278 VALUES ( x_information13,
279 x_information14,
280 x_information15,
281 x_information16,
282 x_information17,
283 x_information18,
284 x_information19,
285 x_information20,
286 x_information21,
287 x_information22,
288 x_information23,
289 x_information24,
290 x_information25,
291 x_information26,
292 x_information27,
293 x_information28,
294 x_information29,
295 x_information30,
296 x_last_update_date,
297 x_last_updated_by,
298 x_last_update_login,
299 x_created_by,
300 x_creation_date,
301 x_canvas_property_id,
302 x_form_canvas_id,
303 x_template_canvas_id,
304 x_height,
305 x_visible,
306 x_width,
307 x_x_position,
308 x_y_position,
309 x_information_category,
310 x_information1,
311 x_information2,
312 x_information3,
313 x_information4,
314 x_information5,
315 x_information6,
316 x_information7,
317 x_information8,
318 x_information9,
319 x_information10,
320 x_information11,
321 x_information12);
322
323 OPEN c;
324
325 FETCH c INTO x_rowid;
326
327 IF ( c%notfound ) THEN
328 CLOSE c;
329
330 RAISE no_data_found;
331 END IF;
332
333 CLOSE c;
334 END insert_row;
335
336 --
337 -- -----------------------------------------------------------------------------
338 -- |-------------------------------< lock_row >--------------------------------|
339 -- -----------------------------------------------------------------------------
340 procedure LOCK_ROW (
341 X_CANVAS_PROPERTY_ID in NUMBER,
342 X_INFORMATION13 in VARCHAR2,
343 X_INFORMATION14 in VARCHAR2,
344 X_INFORMATION15 in VARCHAR2,
345 X_INFORMATION16 in VARCHAR2,
346 X_INFORMATION17 in VARCHAR2,
347 X_INFORMATION18 in VARCHAR2,
348 X_INFORMATION19 in VARCHAR2,
349 X_INFORMATION20 in VARCHAR2,
350 X_INFORMATION21 in VARCHAR2,
351 X_INFORMATION22 in VARCHAR2,
352 X_INFORMATION23 in VARCHAR2,
353 X_INFORMATION24 in VARCHAR2,
354 X_INFORMATION25 in VARCHAR2,
355 X_INFORMATION26 in VARCHAR2,
356 X_INFORMATION27 in VARCHAR2,
357 X_INFORMATION28 in VARCHAR2,
358 X_INFORMATION29 in VARCHAR2,
359 X_INFORMATION30 in VARCHAR2,
360 X_FORM_CANVAS_ID in NUMBER,
361 X_TEMPLATE_CANVAS_ID in NUMBER,
362 X_HEIGHT in NUMBER,
363 X_VISIBLE in NUMBER,
364 X_WIDTH in NUMBER,
365 X_X_POSITION in NUMBER,
366 X_Y_POSITION in NUMBER,
367 X_INFORMATION_CATEGORY in VARCHAR2,
368 X_INFORMATION1 in VARCHAR2,
369 X_INFORMATION2 in VARCHAR2,
370 X_INFORMATION3 in VARCHAR2,
371 X_INFORMATION4 in VARCHAR2,
372 X_INFORMATION5 in VARCHAR2,
373 X_INFORMATION6 in VARCHAR2,
374 X_INFORMATION7 in VARCHAR2,
375 X_INFORMATION8 in VARCHAR2,
376 X_INFORMATION9 in VARCHAR2,
377 X_INFORMATION10 in VARCHAR2,
378 X_INFORMATION11 in VARCHAR2,
379 X_INFORMATION12 in VARCHAR2
380 ) is
381 cursor c1 is select
382 INFORMATION13,
383 INFORMATION14,
384 INFORMATION15,
385 INFORMATION16,
386 INFORMATION17,
387 INFORMATION18,
388 INFORMATION19,
389 INFORMATION20,
390 INFORMATION21,
391 INFORMATION22,
392 INFORMATION23,
393 INFORMATION24,
394 INFORMATION25,
395 INFORMATION26,
396 INFORMATION27,
397 INFORMATION28,
398 INFORMATION29,
399 INFORMATION30,
400 FORM_CANVAS_ID,
401 TEMPLATE_CANVAS_ID,
402 HEIGHT,
403 VISIBLE,
404 WIDTH,
405 X_POSITION,
406 Y_POSITION,
407 INFORMATION_CATEGORY,
408 INFORMATION1,
409 INFORMATION2,
410 INFORMATION3,
411 INFORMATION4,
412 INFORMATION5,
413 INFORMATION6,
414 INFORMATION7,
415 INFORMATION8,
416 INFORMATION9,
417 INFORMATION10,
418 INFORMATION11,
419 INFORMATION12
420 from HR_CANVAS_PROPERTIES
421 where CANVAS_PROPERTY_ID = X_CANVAS_PROPERTY_ID
422 for update of CANVAS_PROPERTY_ID nowait;
423 begin
424 for tlinfo in c1 loop
425 if ( ((tlinfo.INFORMATION13 = X_INFORMATION13)
426 OR ((tlinfo.INFORMATION13 is null) AND (X_INFORMATION13 is null)))
427 AND ((tlinfo.INFORMATION14 = X_INFORMATION14)
428 OR ((tlinfo.INFORMATION14 is null) AND (X_INFORMATION14 is null)))
429 AND ((tlinfo.INFORMATION15 = X_INFORMATION15)
430 OR ((tlinfo.INFORMATION15 is null) AND (X_INFORMATION15 is null)))
431 AND ((tlinfo.INFORMATION16 = X_INFORMATION16)
432 OR ((tlinfo.INFORMATION16 is null) AND (X_INFORMATION16 is null)))
433 AND ((tlinfo.INFORMATION17 = X_INFORMATION17)
434 OR ((tlinfo.INFORMATION17 is null) AND (X_INFORMATION17 is null)))
435 AND ((tlinfo.INFORMATION18 = X_INFORMATION18)
436 OR ((tlinfo.INFORMATION18 is null) AND (X_INFORMATION18 is null)))
437 AND ((tlinfo.INFORMATION19 = X_INFORMATION19)
438 OR ((tlinfo.INFORMATION19 is null) AND (X_INFORMATION19 is null)))
439 AND ((tlinfo.INFORMATION20 = X_INFORMATION20)
440 OR ((tlinfo.INFORMATION20 is null) AND (X_INFORMATION20 is null)))
441 AND ((tlinfo.INFORMATION21 = X_INFORMATION21)
442 OR ((tlinfo.INFORMATION21 is null) AND (X_INFORMATION21 is null)))
443 AND ((tlinfo.INFORMATION22 = X_INFORMATION22)
444 OR ((tlinfo.INFORMATION22 is null) AND (X_INFORMATION22 is null)))
445 AND ((tlinfo.INFORMATION23 = X_INFORMATION23)
446 OR ((tlinfo.INFORMATION23 is null) AND (X_INFORMATION23 is null)))
447 AND ((tlinfo.INFORMATION24 = X_INFORMATION24)
448 OR ((tlinfo.INFORMATION24 is null) AND (X_INFORMATION24 is null)))
449 AND ((tlinfo.INFORMATION25 = X_INFORMATION25)
450 OR ((tlinfo.INFORMATION25 is null) AND (X_INFORMATION25 is null)))
451 AND ((tlinfo.INFORMATION26 = X_INFORMATION26)
452 OR ((tlinfo.INFORMATION26 is null) AND (X_INFORMATION26 is null)))
453 AND ((tlinfo.INFORMATION27 = X_INFORMATION27)
454 OR ((tlinfo.INFORMATION27 is null) AND (X_INFORMATION27 is null)))
455 AND ((tlinfo.INFORMATION28 = X_INFORMATION28)
456 OR ((tlinfo.INFORMATION28 is null) AND (X_INFORMATION28 is null)))
457 AND ((tlinfo.INFORMATION29 = X_INFORMATION29)
458 OR ((tlinfo.INFORMATION29 is null) AND (X_INFORMATION29 is null)))
459 AND ((tlinfo.INFORMATION30 = X_INFORMATION30)
460 OR ((tlinfo.INFORMATION30 is null) AND (X_INFORMATION30 is null)))
461 AND ((tlinfo.FORM_CANVAS_ID = X_FORM_CANVAS_ID)
462 OR ((tlinfo.FORM_CANVAS_ID is null) AND (X_FORM_CANVAS_ID is null)))
463 AND ((tlinfo.TEMPLATE_CANVAS_ID = X_TEMPLATE_CANVAS_ID)
464 OR ((tlinfo.TEMPLATE_CANVAS_ID is null) AND (X_TEMPLATE_CANVAS_ID is null)))
465 AND ((tlinfo.HEIGHT = X_HEIGHT)
466 OR ((tlinfo.HEIGHT is null) AND (X_HEIGHT is null)))
467 AND ((tlinfo.VISIBLE = X_VISIBLE)
468 OR ((tlinfo.VISIBLE is null) AND (X_VISIBLE is null)))
469 AND ((tlinfo.WIDTH = X_WIDTH)
470 OR ((tlinfo.WIDTH is null) AND (X_WIDTH is null)))
471 AND ((tlinfo.X_POSITION = X_X_POSITION)
472 OR ((tlinfo.X_POSITION is null) AND (X_X_POSITION is null)))
473 AND ((tlinfo.Y_POSITION = X_Y_POSITION)
474 OR ((tlinfo.Y_POSITION is null) AND (X_Y_POSITION is null)))
475 AND ((tlinfo.INFORMATION_CATEGORY = X_INFORMATION_CATEGORY)
476 OR ((tlinfo.INFORMATION_CATEGORY is null) AND (X_INFORMATION_CATEGORY is null)))
477 AND ((tlinfo.INFORMATION1 = X_INFORMATION1)
478 OR ((tlinfo.INFORMATION1 is null) AND (X_INFORMATION1 is null)))
479 AND ((tlinfo.INFORMATION2 = X_INFORMATION2)
480 OR ((tlinfo.INFORMATION2 is null) AND (X_INFORMATION2 is null)))
481 AND ((tlinfo.INFORMATION3 = X_INFORMATION3)
482 OR ((tlinfo.INFORMATION3 is null) AND (X_INFORMATION3 is null)))
483 AND ((tlinfo.INFORMATION4 = X_INFORMATION4)
484 OR ((tlinfo.INFORMATION4 is null) AND (X_INFORMATION4 is null)))
485 AND ((tlinfo.INFORMATION5 = X_INFORMATION5)
486 OR ((tlinfo.INFORMATION5 is null) AND (X_INFORMATION5 is null)))
487 AND ((tlinfo.INFORMATION6 = X_INFORMATION6)
488 OR ((tlinfo.INFORMATION6 is null) AND (X_INFORMATION6 is null)))
489 AND ((tlinfo.INFORMATION7 = X_INFORMATION7)
490 OR ((tlinfo.INFORMATION7 is null) AND (X_INFORMATION7 is null)))
491 AND ((tlinfo.INFORMATION8 = X_INFORMATION8)
492 OR ((tlinfo.INFORMATION8 is null) AND (X_INFORMATION8 is null)))
493 AND ((tlinfo.INFORMATION9 = X_INFORMATION9)
494 OR ((tlinfo.INFORMATION9 is null) AND (X_INFORMATION9 is null)))
495 AND ((tlinfo.INFORMATION10 = X_INFORMATION10)
496 OR ((tlinfo.INFORMATION10 is null) AND (X_INFORMATION10 is null)))
497 AND ((tlinfo.INFORMATION11 = X_INFORMATION11)
498 OR ((tlinfo.INFORMATION11 is null) AND (X_INFORMATION11 is null)))
499 AND ((tlinfo.INFORMATION12 = X_INFORMATION12)
500 OR ((tlinfo.INFORMATION12 is null) AND (X_INFORMATION12 is null)))
501 ) then
502 null;
503 else
504 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
505 app_exception.raise_exception;
506 end if;
507 end loop;
508 return;
509 end LOCK_ROW;
510 --
511 -- -----------------------------------------------------------------------------
512 -- |------------------------------< update_row >-------------------------------|
513 -- -----------------------------------------------------------------------------
514 procedure UPDATE_ROW (
515 X_CANVAS_PROPERTY_ID in NUMBER,
516 X_INFORMATION13 in VARCHAR2,
517 X_INFORMATION14 in VARCHAR2,
518 X_INFORMATION15 in VARCHAR2,
519 X_INFORMATION16 in VARCHAR2,
520 X_INFORMATION17 in VARCHAR2,
521 X_INFORMATION18 in VARCHAR2,
522 X_INFORMATION19 in VARCHAR2,
523 X_INFORMATION20 in VARCHAR2,
524 X_INFORMATION21 in VARCHAR2,
525 X_INFORMATION22 in VARCHAR2,
526 X_INFORMATION23 in VARCHAR2,
527 X_INFORMATION24 in VARCHAR2,
528 X_INFORMATION25 in VARCHAR2,
529 X_INFORMATION26 in VARCHAR2,
530 X_INFORMATION27 in VARCHAR2,
531 X_INFORMATION28 in VARCHAR2,
532 X_INFORMATION29 in VARCHAR2,
533 X_INFORMATION30 in VARCHAR2,
534 X_FORM_CANVAS_ID in NUMBER,
535 X_TEMPLATE_CANVAS_ID in NUMBER,
536 X_HEIGHT in NUMBER,
537 X_VISIBLE in NUMBER,
538 X_WIDTH in NUMBER,
539 X_X_POSITION in NUMBER,
540 X_Y_POSITION in NUMBER,
541 X_INFORMATION_CATEGORY in VARCHAR2,
542 X_INFORMATION1 in VARCHAR2,
543 X_INFORMATION2 in VARCHAR2,
544 X_INFORMATION3 in VARCHAR2,
545 X_INFORMATION4 in VARCHAR2,
546 X_INFORMATION5 in VARCHAR2,
547 X_INFORMATION6 in VARCHAR2,
548 X_INFORMATION7 in VARCHAR2,
549 X_INFORMATION8 in VARCHAR2,
550 X_INFORMATION9 in VARCHAR2,
551 X_INFORMATION10 in VARCHAR2,
552 X_INFORMATION11 in VARCHAR2,
553 X_INFORMATION12 in VARCHAR2,
554 X_LAST_UPDATE_DATE in DATE,
555 X_LAST_UPDATED_BY in NUMBER,
556 X_LAST_UPDATE_LOGIN in NUMBER
557 ) is
558 begin
559 update HR_CANVAS_PROPERTIES set
560 INFORMATION13 = X_INFORMATION13,
561 INFORMATION14 = X_INFORMATION14,
562 INFORMATION15 = X_INFORMATION15,
563 INFORMATION16 = X_INFORMATION16,
564 INFORMATION17 = X_INFORMATION17,
565 INFORMATION18 = X_INFORMATION18,
566 INFORMATION19 = X_INFORMATION19,
567 INFORMATION20 = X_INFORMATION20,
568 INFORMATION21 = X_INFORMATION21,
569 INFORMATION22 = X_INFORMATION22,
570 INFORMATION23 = X_INFORMATION23,
571 INFORMATION24 = X_INFORMATION24,
572 INFORMATION25 = X_INFORMATION25,
573 INFORMATION26 = X_INFORMATION26,
574 INFORMATION27 = X_INFORMATION27,
575 INFORMATION28 = X_INFORMATION28,
576 INFORMATION29 = X_INFORMATION29,
577 INFORMATION30 = X_INFORMATION30,
578 FORM_CANVAS_ID = X_FORM_CANVAS_ID,
579 TEMPLATE_CANVAS_ID = X_TEMPLATE_CANVAS_ID,
580 HEIGHT = X_HEIGHT,
581 VISIBLE = X_VISIBLE,
582 WIDTH = X_WIDTH,
583 X_POSITION = X_X_POSITION,
584 Y_POSITION = X_Y_POSITION,
585 INFORMATION_CATEGORY = X_INFORMATION_CATEGORY,
586 INFORMATION1 = X_INFORMATION1,
587 INFORMATION2 = X_INFORMATION2,
588 INFORMATION3 = X_INFORMATION3,
589 INFORMATION4 = X_INFORMATION4,
590 INFORMATION5 = X_INFORMATION5,
591 INFORMATION6 = X_INFORMATION6,
592 INFORMATION7 = X_INFORMATION7,
593 INFORMATION8 = X_INFORMATION8,
594 INFORMATION9 = X_INFORMATION9,
595 INFORMATION10 = X_INFORMATION10,
596 INFORMATION11 = X_INFORMATION11,
597 INFORMATION12 = X_INFORMATION12,
598 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
599 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
600 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
601 where CANVAS_PROPERTY_ID = X_CANVAS_PROPERTY_ID;
602 if (sql%notfound) then
603 raise no_data_found;
604 end if;
605 end UPDATE_ROW;
606 --
607 -- -----------------------------------------------------------------------------
608 -- |------------------------------< delete_row >-------------------------------|
609 -- -----------------------------------------------------------------------------
610 procedure DELETE_ROW (
611 X_CANVAS_PROPERTY_ID in NUMBER
612 ) is
613 begin
614
615 delete from HR_CANVAS_PROPERTIES
616 where CANVAS_PROPERTY_ID = X_CANVAS_PROPERTY_ID;
617 if (sql%notfound) then
618 raise no_data_found;
619 end if;
620 end DELETE_ROW;
621 --
622 -- -----------------------------------------------------------------------------
623 -- |-------------------------------< load_row >--------------------------------|
624 -- -----------------------------------------------------------------------------
625 procedure LOAD_ROW (
626 X_APPLICATION_SHORT_NAME in VARCHAR2,
627 X_FORM_NAME in VARCHAR2,
628 X_CANVAS_NAME in VARCHAR2,
629 X_WINDOW_NAME in VARCHAR2,
630 X_TEMPLATE_NAME in VARCHAR2,
631 X_TERRITORY_SHORT_NAME in VARCHAR2,
632 X_OWNER in VARCHAR2,
633 X_HEIGHT in VARCHAR2,
634 X_VISIBLE in VARCHAR2,
635 X_WIDTH in VARCHAR2,
636 X_X_POSITION in VARCHAR2,
637 X_Y_POSITION in VARCHAR2,
638 X_INFORMATION_CATEGORY in VARCHAR2,
639 X_INFORMATION1 in VARCHAR2,
640 X_INFORMATION2 in VARCHAR2,
641 X_INFORMATION3 in VARCHAR2,
642 X_INFORMATION4 in VARCHAR2,
643 X_INFORMATION5 in VARCHAR2,
644 X_INFORMATION6 in VARCHAR2,
645 X_INFORMATION7 in VARCHAR2,
646 X_INFORMATION8 in VARCHAR2,
647 X_INFORMATION9 in VARCHAR2,
648 X_INFORMATION10 in VARCHAR2,
649 X_INFORMATION11 in VARCHAR2,
650 X_INFORMATION12 in VARCHAR2,
651 X_INFORMATION13 in VARCHAR2,
652 X_INFORMATION14 in VARCHAR2,
653 X_INFORMATION15 in VARCHAR2,
654 X_INFORMATION16 in VARCHAR2,
655 X_INFORMATION17 in VARCHAR2,
656 X_INFORMATION18 in VARCHAR2,
657 X_INFORMATION19 in VARCHAR2,
658 X_INFORMATION20 in VARCHAR2,
659 X_INFORMATION21 in VARCHAR2,
660 X_INFORMATION22 in VARCHAR2,
661 X_INFORMATION23 in VARCHAR2,
662 X_INFORMATION24 in VARCHAR2,
663 X_INFORMATION25 in VARCHAR2,
664 X_INFORMATION26 in VARCHAR2,
665 X_INFORMATION27 in VARCHAR2,
666 X_INFORMATION28 in VARCHAR2,
667 X_INFORMATION29 in VARCHAR2,
668 X_INFORMATION30 in VARCHAR2) is
669 X_ROWID ROWID;
670 X_CREATION_DATE DATE;
671 X_CREATED_BY NUMBER;
672 X_LAST_UPDATE_DATE DATE;
673 X_LAST_UPDATED_BY NUMBER;
674 X_LAST_UPDATE_LOGIN NUMBER;
675 X_FORM_ID NUMBER;
676 X_APPLICATION_ID NUMBER;
677 X_FORM_CANVAS_ID NUMBER;
678 X_FORM_WINDOW_ID NUMBER;
679 X_TEMPLATE_CANVAS_ID NUMBER;
680 X_CANVAS_PROPERTY_ID NUMBER;
681 begin
682 OWNER_TO_WHO (
683 X_OWNER,
684 X_CREATION_DATE,
685 X_CREATED_BY,
686 X_LAST_UPDATE_DATE,
687 X_LAST_UPDATED_BY,
688 X_LAST_UPDATE_LOGIN
689 );
690 select application_id
691 into x_application_id
692 from fnd_application
693 where application_short_name = x_application_short_name;
694 select form_id
695 into x_form_id
696 from fnd_form
697 where form_name = x_form_name
698 and application_id = x_application_id;
699
700 select hfc.form_canvas_id, hfw.form_window_id
701 into x_form_canvas_id,x_form_window_id
702 from hr_form_canvases_b hfc
703 , hr_form_windows_b hfw
704 where hfc.canvas_name = x_canvas_name
705 and hfw.form_window_id = hfc.form_window_id
706 and hfw.application_id = x_application_id
707 and hfw.form_id = x_form_id
708 and hfw.window_name = x_window_name;
709
710 IF ltrim(rtrim(x_template_name)) is not null then
711
712 select htc.template_canvas_id
713 into x_template_canvas_id
714 from hr_template_canvases_b htc
715 ,hr_template_windows_b htw
716 , hr_form_templates hft
717 where htc.form_canvas_id = x_form_canvas_id
718 and htc.template_window_id = htw.template_window_id
719 and htw.form_window_id = x_form_window_id
720 and htw.form_template_id = hft.form_template_id
721 and hft.application_id = x_application_id
722 and hft.form_id = x_form_id
723 and hft.template_name = x_template_name
724 and ( (hft.legislation_code is null and x_territory_short_name is null)
725 or (hft.legislation_code = x_territory_short_name) );
726 x_form_canvas_id := null;
727 ELSE
728 x_template_canvas_id := null;
729 END IF;
730
731 begin
732 select canvas_property_id
733 into x_canvas_property_id
734 from hr_canvas_properties
735 where nvl(form_canvas_id,hr_api.g_number) = nvl(x_form_canvas_id,hr_api.g_number)
736 and nvl(template_canvas_id,hr_api.g_number) = nvl(x_template_canvas_id,hr_api.g_number);
737 exception
738 when no_data_found then
739 select hr_canvas_properties_s.nextval
740 into x_canvas_property_id
741 from dual;
742 end;
743
744 begin
745
746 UPDATE_COPIES (
747 X_CANVAS_PROPERTY_ID,
748 X_FORM_CANVAS_ID,
749 X_TEMPLATE_CANVAS_ID,
750 to_number(X_HEIGHT),
751 to_number(X_VISIBLE),
752 to_number(X_WIDTH),
753 to_number(X_X_POSITION),
754 to_number(X_Y_POSITION),
755 X_INFORMATION_CATEGORY,
756 X_INFORMATION1,
757 X_INFORMATION2,
758 X_INFORMATION3,
759 X_INFORMATION4,
760 X_INFORMATION5,
761 X_INFORMATION6,
762 X_INFORMATION7,
763 X_INFORMATION8,
764 X_INFORMATION9,
765 X_INFORMATION10,
766 X_INFORMATION11,
767 X_INFORMATION12,
768 X_INFORMATION13,
769 X_INFORMATION14,
770 X_INFORMATION15,
771 X_INFORMATION16,
772 X_INFORMATION17,
773 X_INFORMATION18,
774 X_INFORMATION19,
775 X_INFORMATION20,
776 X_INFORMATION21,
777 X_INFORMATION22,
778 X_INFORMATION23,
779 X_INFORMATION24,
780 X_INFORMATION25,
781 X_INFORMATION26,
782 X_INFORMATION27,
783 X_INFORMATION28,
784 X_INFORMATION29,
785 X_INFORMATION30,
786 X_LAST_UPDATE_DATE,
787 X_LAST_UPDATED_BY,
788 X_LAST_UPDATE_LOGIN
789 );
790
791 UPDATE_ROW (
792 X_CANVAS_PROPERTY_ID,
793 X_INFORMATION13,
794 X_INFORMATION14,
795 X_INFORMATION15,
796 X_INFORMATION16,
797 X_INFORMATION17,
798 X_INFORMATION18,
799 X_INFORMATION19,
800 X_INFORMATION20,
801 X_INFORMATION21,
802 X_INFORMATION22,
803 X_INFORMATION23,
804 X_INFORMATION24,
805 X_INFORMATION25,
806 X_INFORMATION26,
807 X_INFORMATION27,
808 X_INFORMATION28,
809 X_INFORMATION29,
810 X_INFORMATION30,
811 X_FORM_CANVAS_ID,
812 X_TEMPLATE_CANVAS_ID,
813 to_number(X_HEIGHT),
814 to_number(X_VISIBLE),
815 to_number(X_WIDTH),
816 to_number(X_X_POSITION),
817 to_number(X_Y_POSITION),
818 X_INFORMATION_CATEGORY,
819 X_INFORMATION1,
820 X_INFORMATION2,
821 X_INFORMATION3,
822 X_INFORMATION4,
823 X_INFORMATION5,
824 X_INFORMATION6,
825 X_INFORMATION7,
826 X_INFORMATION8,
827 X_INFORMATION9,
828 X_INFORMATION10,
829 X_INFORMATION11,
830 X_INFORMATION12,
831 X_LAST_UPDATE_DATE,
832 X_LAST_UPDATED_BY,
833 X_LAST_UPDATE_LOGIN
834 );
835
836 exception
837 when no_data_found then
838 INSERT_ROW (
839 X_ROWID,
840 X_CANVAS_PROPERTY_ID,
841 X_INFORMATION13,
842 X_INFORMATION14,
843 X_INFORMATION15,
844 X_INFORMATION16,
845 X_INFORMATION17,
846 X_INFORMATION18,
847 X_INFORMATION19,
848 X_INFORMATION20,
849 X_INFORMATION21,
850 X_INFORMATION22,
851 X_INFORMATION23,
852 X_INFORMATION24,
853 X_INFORMATION25,
854 X_INFORMATION26,
855 X_INFORMATION27,
856 X_INFORMATION28,
857 X_INFORMATION29,
858 X_INFORMATION30,
859 X_FORM_CANVAS_ID,
860 X_TEMPLATE_CANVAS_ID,
861 to_number(X_HEIGHT),
862 to_number(X_VISIBLE),
863 to_number(X_WIDTH),
864 to_number(X_X_POSITION),
865 to_number(X_Y_POSITION),
866 X_INFORMATION_CATEGORY,
867 X_INFORMATION1,
868 X_INFORMATION2,
869 X_INFORMATION3,
870 X_INFORMATION4,
871 X_INFORMATION5,
872 X_INFORMATION6,
873 X_INFORMATION7,
874 X_INFORMATION8,
875 X_INFORMATION9,
876 X_INFORMATION10,
877 X_INFORMATION11,
878 X_INFORMATION12,
879 X_CREATION_DATE,
880 X_CREATED_BY,
881 X_LAST_UPDATE_DATE,
882 X_LAST_UPDATED_BY,
883 X_LAST_UPDATE_LOGIN);
884 end;
885 end LOAD_ROW;
886 --
887 end HR_CANVAS_PROPERTIES_PKG;