eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.HR_CANVAS_PROPERTIES_PKG

Source


1 package body HR_CANVAS_PROPERTIES_PKG as
2 /* $Header: hrcnplct.pkb 115.4 2002/12/09 16:29:30 hjonnala noship $ */
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 (
166   X_ROWID in out nocopy VARCHAR2,
167   X_CANVAS_PROPERTY_ID in NUMBER,
168   X_INFORMATION13 in VARCHAR2,
169   X_INFORMATION14 in VARCHAR2,
170   X_INFORMATION15 in VARCHAR2,
171   X_INFORMATION16 in VARCHAR2,
172   X_INFORMATION17 in VARCHAR2,
173   X_INFORMATION18 in VARCHAR2,
174   X_INFORMATION19 in VARCHAR2,
175   X_INFORMATION20 in VARCHAR2,
176   X_INFORMATION21 in VARCHAR2,
177   X_INFORMATION22 in VARCHAR2,
178   X_INFORMATION23 in VARCHAR2,
179   X_INFORMATION24 in VARCHAR2,
180   X_INFORMATION25 in VARCHAR2,
181   X_INFORMATION26 in VARCHAR2,
182   X_INFORMATION27 in VARCHAR2,
183   X_INFORMATION28 in VARCHAR2,
184   X_INFORMATION29 in VARCHAR2,
185   X_INFORMATION30 in VARCHAR2,
186   X_FORM_CANVAS_ID in NUMBER,
187   X_TEMPLATE_CANVAS_ID in NUMBER,
188   X_HEIGHT in NUMBER,
189   X_VISIBLE in NUMBER,
190   X_WIDTH in NUMBER,
191   X_X_POSITION in NUMBER,
192   X_Y_POSITION in NUMBER,
193   X_INFORMATION_CATEGORY in VARCHAR2,
194   X_INFORMATION1 in VARCHAR2,
195   X_INFORMATION2 in VARCHAR2,
196   X_INFORMATION3 in VARCHAR2,
197   X_INFORMATION4 in VARCHAR2,
198   X_INFORMATION5 in VARCHAR2,
199   X_INFORMATION6 in VARCHAR2,
200   X_INFORMATION7 in VARCHAR2,
201   X_INFORMATION8 in VARCHAR2,
202   X_INFORMATION9 in VARCHAR2,
203   X_INFORMATION10 in VARCHAR2,
204   X_INFORMATION11 in VARCHAR2,
205   X_INFORMATION12 in VARCHAR2,
206   X_CREATION_DATE in DATE,
207   X_CREATED_BY in NUMBER,
208   X_LAST_UPDATE_DATE in DATE,
209   X_LAST_UPDATED_BY in NUMBER,
210   X_LAST_UPDATE_LOGIN in NUMBER
211 ) is
212   cursor C is select ROWID from HR_CANVAS_PROPERTIES
213     where CANVAS_PROPERTY_ID = X_CANVAS_PROPERTY_ID
214     ;
215 
216 begin
217   insert into HR_CANVAS_PROPERTIES (
218     INFORMATION13,
219     INFORMATION14,
220     INFORMATION15,
221     INFORMATION16,
222     INFORMATION17,
223     INFORMATION18,
224     INFORMATION19,
225     INFORMATION20,
226     INFORMATION21,
227     INFORMATION22,
228     INFORMATION23,
229     INFORMATION24,
230     INFORMATION25,
231     INFORMATION26,
232     INFORMATION27,
233     INFORMATION28,
234     INFORMATION29,
235     INFORMATION30,
236     LAST_UPDATE_DATE,
237     LAST_UPDATED_BY,
238     LAST_UPDATE_LOGIN,
239     CREATED_BY,
240     CREATION_DATE,
241     CANVAS_PROPERTY_ID,
242     FORM_CANVAS_ID,
243     TEMPLATE_CANVAS_ID,
244     HEIGHT,
245     VISIBLE,
246     WIDTH,
247     X_POSITION,
248     Y_POSITION,
249     INFORMATION_CATEGORY,
250     INFORMATION1,
251     INFORMATION2,
252     INFORMATION3,
253     INFORMATION4,
254     INFORMATION5,
255     INFORMATION6,
256     INFORMATION7,
257     INFORMATION8,
258     INFORMATION9,
259     INFORMATION10,
260     INFORMATION11,
261     INFORMATION12
262   ) VALUES(
263     X_INFORMATION13,
264     X_INFORMATION14,
265     X_INFORMATION15,
266     X_INFORMATION16,
267     X_INFORMATION17,
268     X_INFORMATION18,
269     X_INFORMATION19,
270     X_INFORMATION20,
271     X_INFORMATION21,
272     X_INFORMATION22,
273     X_INFORMATION23,
274     X_INFORMATION24,
275     X_INFORMATION25,
276     X_INFORMATION26,
277     X_INFORMATION27,
278     X_INFORMATION28,
279     X_INFORMATION29,
280     X_INFORMATION30,
281     X_LAST_UPDATE_DATE,
282     X_LAST_UPDATED_BY,
283     X_LAST_UPDATE_LOGIN,
284     X_CREATED_BY,
285     X_CREATION_DATE,
286     X_CANVAS_PROPERTY_ID,
287     X_FORM_CANVAS_ID,
288     X_TEMPLATE_CANVAS_ID,
289     X_HEIGHT,
290     X_VISIBLE,
291     X_WIDTH,
292     X_X_POSITION,
293     X_Y_POSITION,
294     X_INFORMATION_CATEGORY,
295     X_INFORMATION1,
296     X_INFORMATION2,
297     X_INFORMATION3,
298     X_INFORMATION4,
299     X_INFORMATION5,
300     X_INFORMATION6,
301     X_INFORMATION7,
302     X_INFORMATION8,
303     X_INFORMATION9,
304     X_INFORMATION10,
305     X_INFORMATION11,
306     X_INFORMATION12);
307   open c;
308   fetch c into X_ROWID;
309   if (c%notfound) then
310     close c;
311     raise no_data_found;
312   end if;
313   close c;
314 end INSERT_ROW;
315 --
316 -- -----------------------------------------------------------------------------
317 -- |-------------------------------< lock_row >--------------------------------|
318 -- -----------------------------------------------------------------------------
319 procedure LOCK_ROW (
320   X_CANVAS_PROPERTY_ID in NUMBER,
321   X_INFORMATION13 in VARCHAR2,
322   X_INFORMATION14 in VARCHAR2,
323   X_INFORMATION15 in VARCHAR2,
324   X_INFORMATION16 in VARCHAR2,
325   X_INFORMATION17 in VARCHAR2,
326   X_INFORMATION18 in VARCHAR2,
327   X_INFORMATION19 in VARCHAR2,
328   X_INFORMATION20 in VARCHAR2,
329   X_INFORMATION21 in VARCHAR2,
330   X_INFORMATION22 in VARCHAR2,
331   X_INFORMATION23 in VARCHAR2,
332   X_INFORMATION24 in VARCHAR2,
333   X_INFORMATION25 in VARCHAR2,
334   X_INFORMATION26 in VARCHAR2,
335   X_INFORMATION27 in VARCHAR2,
336   X_INFORMATION28 in VARCHAR2,
337   X_INFORMATION29 in VARCHAR2,
338   X_INFORMATION30 in VARCHAR2,
339   X_FORM_CANVAS_ID in NUMBER,
340   X_TEMPLATE_CANVAS_ID in NUMBER,
341   X_HEIGHT in NUMBER,
342   X_VISIBLE in NUMBER,
343   X_WIDTH in NUMBER,
344   X_X_POSITION in NUMBER,
345   X_Y_POSITION in NUMBER,
346   X_INFORMATION_CATEGORY in VARCHAR2,
347   X_INFORMATION1 in VARCHAR2,
348   X_INFORMATION2 in VARCHAR2,
349   X_INFORMATION3 in VARCHAR2,
350   X_INFORMATION4 in VARCHAR2,
351   X_INFORMATION5 in VARCHAR2,
352   X_INFORMATION6 in VARCHAR2,
353   X_INFORMATION7 in VARCHAR2,
354   X_INFORMATION8 in VARCHAR2,
355   X_INFORMATION9 in VARCHAR2,
356   X_INFORMATION10 in VARCHAR2,
357   X_INFORMATION11 in VARCHAR2,
358   X_INFORMATION12 in VARCHAR2
359 ) is
360   cursor c1 is select
361       INFORMATION13,
362       INFORMATION14,
363       INFORMATION15,
364       INFORMATION16,
365       INFORMATION17,
366       INFORMATION18,
367       INFORMATION19,
368       INFORMATION20,
369       INFORMATION21,
370       INFORMATION22,
371       INFORMATION23,
372       INFORMATION24,
373       INFORMATION25,
374       INFORMATION26,
375       INFORMATION27,
376       INFORMATION28,
377       INFORMATION29,
378       INFORMATION30,
379       FORM_CANVAS_ID,
380       TEMPLATE_CANVAS_ID,
381       HEIGHT,
382       VISIBLE,
383       WIDTH,
384       X_POSITION,
385       Y_POSITION,
386       INFORMATION_CATEGORY,
387       INFORMATION1,
388       INFORMATION2,
389       INFORMATION3,
390       INFORMATION4,
391       INFORMATION5,
392       INFORMATION6,
393       INFORMATION7,
394       INFORMATION8,
395       INFORMATION9,
396       INFORMATION10,
397       INFORMATION11,
398       INFORMATION12
399     from HR_CANVAS_PROPERTIES
400     where CANVAS_PROPERTY_ID = X_CANVAS_PROPERTY_ID
401     for update of CANVAS_PROPERTY_ID nowait;
402 begin
403   for tlinfo in c1 loop
404       if (    ((tlinfo.INFORMATION13 = X_INFORMATION13)
405                OR ((tlinfo.INFORMATION13 is null) AND (X_INFORMATION13 is null)))
406           AND ((tlinfo.INFORMATION14 = X_INFORMATION14)
407                OR ((tlinfo.INFORMATION14 is null) AND (X_INFORMATION14 is null)))
408           AND ((tlinfo.INFORMATION15 = X_INFORMATION15)
409                OR ((tlinfo.INFORMATION15 is null) AND (X_INFORMATION15 is null)))
410           AND ((tlinfo.INFORMATION16 = X_INFORMATION16)
411                OR ((tlinfo.INFORMATION16 is null) AND (X_INFORMATION16 is null)))
412           AND ((tlinfo.INFORMATION17 = X_INFORMATION17)
413                OR ((tlinfo.INFORMATION17 is null) AND (X_INFORMATION17 is null)))
414           AND ((tlinfo.INFORMATION18 = X_INFORMATION18)
415                OR ((tlinfo.INFORMATION18 is null) AND (X_INFORMATION18 is null)))
416           AND ((tlinfo.INFORMATION19 = X_INFORMATION19)
417                OR ((tlinfo.INFORMATION19 is null) AND (X_INFORMATION19 is null)))
418           AND ((tlinfo.INFORMATION20 = X_INFORMATION20)
419                OR ((tlinfo.INFORMATION20 is null) AND (X_INFORMATION20 is null)))
420           AND ((tlinfo.INFORMATION21 = X_INFORMATION21)
421                OR ((tlinfo.INFORMATION21 is null) AND (X_INFORMATION21 is null)))
422           AND ((tlinfo.INFORMATION22 = X_INFORMATION22)
423                OR ((tlinfo.INFORMATION22 is null) AND (X_INFORMATION22 is null)))
424           AND ((tlinfo.INFORMATION23 = X_INFORMATION23)
425                OR ((tlinfo.INFORMATION23 is null) AND (X_INFORMATION23 is null)))
426           AND ((tlinfo.INFORMATION24 = X_INFORMATION24)
427                OR ((tlinfo.INFORMATION24 is null) AND (X_INFORMATION24 is null)))
428           AND ((tlinfo.INFORMATION25 = X_INFORMATION25)
429                OR ((tlinfo.INFORMATION25 is null) AND (X_INFORMATION25 is null)))
430           AND ((tlinfo.INFORMATION26 = X_INFORMATION26)
431                OR ((tlinfo.INFORMATION26 is null) AND (X_INFORMATION26 is null)))
432           AND ((tlinfo.INFORMATION27 = X_INFORMATION27)
433                OR ((tlinfo.INFORMATION27 is null) AND (X_INFORMATION27 is null)))
434           AND ((tlinfo.INFORMATION28 = X_INFORMATION28)
435                OR ((tlinfo.INFORMATION28 is null) AND (X_INFORMATION28 is null)))
436           AND ((tlinfo.INFORMATION29 = X_INFORMATION29)
437                OR ((tlinfo.INFORMATION29 is null) AND (X_INFORMATION29 is null)))
438           AND ((tlinfo.INFORMATION30 = X_INFORMATION30)
439                OR ((tlinfo.INFORMATION30 is null) AND (X_INFORMATION30 is null)))
440           AND ((tlinfo.FORM_CANVAS_ID = X_FORM_CANVAS_ID)
441                OR ((tlinfo.FORM_CANVAS_ID is null) AND (X_FORM_CANVAS_ID is null)))
442           AND ((tlinfo.TEMPLATE_CANVAS_ID = X_TEMPLATE_CANVAS_ID)
443                OR ((tlinfo.TEMPLATE_CANVAS_ID is null) AND (X_TEMPLATE_CANVAS_ID is null)))
444           AND ((tlinfo.HEIGHT = X_HEIGHT)
445                OR ((tlinfo.HEIGHT is null) AND (X_HEIGHT is null)))
446           AND ((tlinfo.VISIBLE = X_VISIBLE)
447                OR ((tlinfo.VISIBLE is null) AND (X_VISIBLE is null)))
448           AND ((tlinfo.WIDTH = X_WIDTH)
449                OR ((tlinfo.WIDTH is null) AND (X_WIDTH is null)))
450           AND ((tlinfo.X_POSITION = X_X_POSITION)
451                OR ((tlinfo.X_POSITION is null) AND (X_X_POSITION is null)))
452           AND ((tlinfo.Y_POSITION = X_Y_POSITION)
453                OR ((tlinfo.Y_POSITION is null) AND (X_Y_POSITION is null)))
454           AND ((tlinfo.INFORMATION_CATEGORY = X_INFORMATION_CATEGORY)
455                OR ((tlinfo.INFORMATION_CATEGORY is null) AND (X_INFORMATION_CATEGORY is null)))
456           AND ((tlinfo.INFORMATION1 = X_INFORMATION1)
457                OR ((tlinfo.INFORMATION1 is null) AND (X_INFORMATION1 is null)))
458           AND ((tlinfo.INFORMATION2 = X_INFORMATION2)
459                OR ((tlinfo.INFORMATION2 is null) AND (X_INFORMATION2 is null)))
460           AND ((tlinfo.INFORMATION3 = X_INFORMATION3)
461                OR ((tlinfo.INFORMATION3 is null) AND (X_INFORMATION3 is null)))
462           AND ((tlinfo.INFORMATION4 = X_INFORMATION4)
463                OR ((tlinfo.INFORMATION4 is null) AND (X_INFORMATION4 is null)))
464           AND ((tlinfo.INFORMATION5 = X_INFORMATION5)
465                OR ((tlinfo.INFORMATION5 is null) AND (X_INFORMATION5 is null)))
466           AND ((tlinfo.INFORMATION6 = X_INFORMATION6)
467                OR ((tlinfo.INFORMATION6 is null) AND (X_INFORMATION6 is null)))
468           AND ((tlinfo.INFORMATION7 = X_INFORMATION7)
469                OR ((tlinfo.INFORMATION7 is null) AND (X_INFORMATION7 is null)))
470           AND ((tlinfo.INFORMATION8 = X_INFORMATION8)
471                OR ((tlinfo.INFORMATION8 is null) AND (X_INFORMATION8 is null)))
472           AND ((tlinfo.INFORMATION9 = X_INFORMATION9)
473                OR ((tlinfo.INFORMATION9 is null) AND (X_INFORMATION9 is null)))
474           AND ((tlinfo.INFORMATION10 = X_INFORMATION10)
475                OR ((tlinfo.INFORMATION10 is null) AND (X_INFORMATION10 is null)))
476           AND ((tlinfo.INFORMATION11 = X_INFORMATION11)
477                OR ((tlinfo.INFORMATION11 is null) AND (X_INFORMATION11 is null)))
478           AND ((tlinfo.INFORMATION12 = X_INFORMATION12)
479                OR ((tlinfo.INFORMATION12 is null) AND (X_INFORMATION12 is null)))
480       ) then
481         null;
482       else
483         fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
484         app_exception.raise_exception;
485       end if;
486   end loop;
487   return;
488 end LOCK_ROW;
489 --
490 -- -----------------------------------------------------------------------------
491 -- |------------------------------< update_row >-------------------------------|
492 -- -----------------------------------------------------------------------------
493 procedure UPDATE_ROW (
494   X_CANVAS_PROPERTY_ID in NUMBER,
495   X_INFORMATION13 in VARCHAR2,
496   X_INFORMATION14 in VARCHAR2,
497   X_INFORMATION15 in VARCHAR2,
498   X_INFORMATION16 in VARCHAR2,
499   X_INFORMATION17 in VARCHAR2,
500   X_INFORMATION18 in VARCHAR2,
501   X_INFORMATION19 in VARCHAR2,
502   X_INFORMATION20 in VARCHAR2,
503   X_INFORMATION21 in VARCHAR2,
504   X_INFORMATION22 in VARCHAR2,
505   X_INFORMATION23 in VARCHAR2,
506   X_INFORMATION24 in VARCHAR2,
507   X_INFORMATION25 in VARCHAR2,
508   X_INFORMATION26 in VARCHAR2,
509   X_INFORMATION27 in VARCHAR2,
510   X_INFORMATION28 in VARCHAR2,
511   X_INFORMATION29 in VARCHAR2,
512   X_INFORMATION30 in VARCHAR2,
513   X_FORM_CANVAS_ID in NUMBER,
514   X_TEMPLATE_CANVAS_ID in NUMBER,
515   X_HEIGHT in NUMBER,
516   X_VISIBLE in NUMBER,
517   X_WIDTH in NUMBER,
518   X_X_POSITION in NUMBER,
519   X_Y_POSITION in NUMBER,
520   X_INFORMATION_CATEGORY in VARCHAR2,
521   X_INFORMATION1 in VARCHAR2,
522   X_INFORMATION2 in VARCHAR2,
523   X_INFORMATION3 in VARCHAR2,
524   X_INFORMATION4 in VARCHAR2,
525   X_INFORMATION5 in VARCHAR2,
526   X_INFORMATION6 in VARCHAR2,
527   X_INFORMATION7 in VARCHAR2,
528   X_INFORMATION8 in VARCHAR2,
529   X_INFORMATION9 in VARCHAR2,
530   X_INFORMATION10 in VARCHAR2,
531   X_INFORMATION11 in VARCHAR2,
532   X_INFORMATION12 in VARCHAR2,
533   X_LAST_UPDATE_DATE in DATE,
534   X_LAST_UPDATED_BY in NUMBER,
535   X_LAST_UPDATE_LOGIN in NUMBER
536 ) is
537 begin
538   update HR_CANVAS_PROPERTIES set
539     INFORMATION13 = X_INFORMATION13,
540     INFORMATION14 = X_INFORMATION14,
541     INFORMATION15 = X_INFORMATION15,
542     INFORMATION16 = X_INFORMATION16,
543     INFORMATION17 = X_INFORMATION17,
544     INFORMATION18 = X_INFORMATION18,
545     INFORMATION19 = X_INFORMATION19,
546     INFORMATION20 = X_INFORMATION20,
547     INFORMATION21 = X_INFORMATION21,
548     INFORMATION22 = X_INFORMATION22,
549     INFORMATION23 = X_INFORMATION23,
550     INFORMATION24 = X_INFORMATION24,
551     INFORMATION25 = X_INFORMATION25,
552     INFORMATION26 = X_INFORMATION26,
553     INFORMATION27 = X_INFORMATION27,
554     INFORMATION28 = X_INFORMATION28,
555     INFORMATION29 = X_INFORMATION29,
556     INFORMATION30 = X_INFORMATION30,
557     FORM_CANVAS_ID = X_FORM_CANVAS_ID,
558     TEMPLATE_CANVAS_ID = X_TEMPLATE_CANVAS_ID,
559     HEIGHT = X_HEIGHT,
560     VISIBLE = X_VISIBLE,
561     WIDTH = X_WIDTH,
562     X_POSITION = X_X_POSITION,
563     Y_POSITION = X_Y_POSITION,
564     INFORMATION_CATEGORY = X_INFORMATION_CATEGORY,
565     INFORMATION1 = X_INFORMATION1,
566     INFORMATION2 = X_INFORMATION2,
567     INFORMATION3 = X_INFORMATION3,
568     INFORMATION4 = X_INFORMATION4,
569     INFORMATION5 = X_INFORMATION5,
570     INFORMATION6 = X_INFORMATION6,
571     INFORMATION7 = X_INFORMATION7,
572     INFORMATION8 = X_INFORMATION8,
573     INFORMATION9 = X_INFORMATION9,
574     INFORMATION10 = X_INFORMATION10,
575     INFORMATION11 = X_INFORMATION11,
576     INFORMATION12 = X_INFORMATION12,
577     LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
578     LAST_UPDATED_BY = X_LAST_UPDATED_BY,
579     LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
580   where CANVAS_PROPERTY_ID = X_CANVAS_PROPERTY_ID;
581   if (sql%notfound) then
582     raise no_data_found;
583   end if;
584 end UPDATE_ROW;
585 --
586 -- -----------------------------------------------------------------------------
587 -- |------------------------------< delete_row >-------------------------------|
588 -- -----------------------------------------------------------------------------
589 procedure DELETE_ROW (
590   X_CANVAS_PROPERTY_ID in NUMBER
591 ) is
592 begin
593   delete from HR_CANVAS_PROPERTIES
594   where CANVAS_PROPERTY_ID = X_CANVAS_PROPERTY_ID;
595   if (sql%notfound) then
596     raise no_data_found;
597   end if;
598 end DELETE_ROW;
599 --
600 -- -----------------------------------------------------------------------------
601 -- |-------------------------------< load_row >--------------------------------|
602 -- -----------------------------------------------------------------------------
603 procedure LOAD_ROW (
604   X_APPLICATION_SHORT_NAME in VARCHAR2,
605   X_FORM_NAME in VARCHAR2,
606   X_CANVAS_NAME in VARCHAR2,
607   X_WINDOW_NAME in VARCHAR2,
608   X_TEMPLATE_NAME in VARCHAR2,
609   X_TERRITORY_SHORT_NAME in VARCHAR2,
610   X_OWNER in VARCHAR2,
611   X_HEIGHT     in VARCHAR2,
612   X_VISIBLE     in VARCHAR2,
613   X_WIDTH     in VARCHAR2,
614   X_X_POSITION  in VARCHAR2,
615   X_Y_POSITION in VARCHAR2,
616   X_INFORMATION_CATEGORY in VARCHAR2,
617   X_INFORMATION1 in VARCHAR2,
618   X_INFORMATION2 in VARCHAR2,
619   X_INFORMATION3 in VARCHAR2,
620   X_INFORMATION4 in VARCHAR2,
621   X_INFORMATION5 in VARCHAR2,
622   X_INFORMATION6 in VARCHAR2,
623   X_INFORMATION7 in VARCHAR2,
624   X_INFORMATION8 in VARCHAR2,
625   X_INFORMATION9 in VARCHAR2,
626   X_INFORMATION10 in VARCHAR2,
627   X_INFORMATION11 in VARCHAR2,
628   X_INFORMATION12 in VARCHAR2,
629   X_INFORMATION13 in VARCHAR2,
630   X_INFORMATION14 in VARCHAR2,
631   X_INFORMATION15 in VARCHAR2,
632   X_INFORMATION16 in VARCHAR2,
633   X_INFORMATION17 in VARCHAR2,
634   X_INFORMATION18 in VARCHAR2,
635   X_INFORMATION19 in VARCHAR2,
636   X_INFORMATION20 in VARCHAR2,
637   X_INFORMATION21 in VARCHAR2,
638   X_INFORMATION22 in VARCHAR2,
639   X_INFORMATION23 in VARCHAR2,
640   X_INFORMATION24 in VARCHAR2,
641   X_INFORMATION25 in VARCHAR2,
642   X_INFORMATION26 in VARCHAR2,
643   X_INFORMATION27 in VARCHAR2,
644   X_INFORMATION28 in VARCHAR2,
645   X_INFORMATION29 in VARCHAR2,
646   X_INFORMATION30 in VARCHAR2) is
647   X_ROWID ROWID;
648   X_CREATION_DATE DATE;
649   X_CREATED_BY NUMBER;
650   X_LAST_UPDATE_DATE DATE;
651   X_LAST_UPDATED_BY NUMBER;
652   X_LAST_UPDATE_LOGIN NUMBER;
653   X_FORM_ID NUMBER;
654   X_APPLICATION_ID NUMBER;
655   X_FORM_CANVAS_ID NUMBER;
656   X_FORM_WINDOW_ID NUMBER;
657   X_TEMPLATE_CANVAS_ID NUMBER;
658   X_CANVAS_PROPERTY_ID NUMBER;
659 begin
660   OWNER_TO_WHO (
661     X_OWNER,
662     X_CREATION_DATE,
663     X_CREATED_BY,
664     X_LAST_UPDATE_DATE,
665     X_LAST_UPDATED_BY,
666     X_LAST_UPDATE_LOGIN
667   );
668  select application_id
669  into x_application_id
670  from fnd_application
671  where application_short_name = x_application_short_name;
672  select form_id
673  into x_form_id
674  from fnd_form
675  where form_name = x_form_name
676  and application_id = x_application_id;
677 
678  select hfc.form_canvas_id, hfw.form_window_id
679  into x_form_canvas_id,x_form_window_id
680  from hr_form_canvases_b hfc
681       , hr_form_windows_b hfw
682  where hfc.canvas_name = x_canvas_name
683  and hfw.form_window_id = hfc.form_window_id
684  and hfw.application_id = x_application_id
685  and hfw.form_id = x_form_id
686  and hfw.window_name = x_window_name;
687 
688  IF ltrim(rtrim(x_template_name)) is not null then
689 
690  select htc.template_canvas_id
691  into x_template_canvas_id
692  from hr_template_canvases_b htc
693       ,hr_template_windows_b htw
694       , hr_form_templates hft
695  where htc.form_canvas_id = x_form_canvas_id
696  and htc.template_window_id = htw.template_window_id
697  and htw.form_window_id = x_form_window_id
698  and htw.form_template_id = hft.form_template_id
699  and hft.application_id = x_application_id
700  and hft.form_id = x_form_id
701  and hft.template_name = x_template_name
702  and (  (hft.legislation_code is null and x_territory_short_name is null)
703      or (hft.legislation_code = x_territory_short_name) );
704   x_form_canvas_id := null;
705  ELSE
706    x_template_canvas_id := null;
707  END IF;
708 
709  begin
710    select canvas_property_id
711    into x_canvas_property_id
712    from hr_canvas_properties
713    where nvl(form_canvas_id,hr_api.g_number) =  nvl(x_form_canvas_id,hr_api.g_number)
714    and nvl(template_canvas_id,hr_api.g_number) = nvl(x_template_canvas_id,hr_api.g_number);
715  exception
716    when no_data_found then
717      select hr_canvas_properties_s.nextval
718      into x_canvas_property_id
719      from dual;
720  end;
721 
722  begin
723 
724   UPDATE_COPIES (
725     X_CANVAS_PROPERTY_ID,
726     X_FORM_CANVAS_ID,
727     X_TEMPLATE_CANVAS_ID,
728     to_number(X_HEIGHT),
729     to_number(X_VISIBLE),
730     to_number(X_WIDTH),
731     to_number(X_X_POSITION),
732     to_number(X_Y_POSITION),
733     X_INFORMATION_CATEGORY,
734     X_INFORMATION1,
735     X_INFORMATION2,
736     X_INFORMATION3,
737     X_INFORMATION4,
738     X_INFORMATION5,
739     X_INFORMATION6,
740     X_INFORMATION7,
741     X_INFORMATION8,
742     X_INFORMATION9,
743     X_INFORMATION10,
744     X_INFORMATION11,
745     X_INFORMATION12,
746     X_INFORMATION13,
747     X_INFORMATION14,
748     X_INFORMATION15,
749     X_INFORMATION16,
750     X_INFORMATION17,
751     X_INFORMATION18,
752     X_INFORMATION19,
753     X_INFORMATION20,
754     X_INFORMATION21,
755     X_INFORMATION22,
756     X_INFORMATION23,
757     X_INFORMATION24,
758     X_INFORMATION25,
759     X_INFORMATION26,
760     X_INFORMATION27,
761     X_INFORMATION28,
762     X_INFORMATION29,
763     X_INFORMATION30,
764     X_LAST_UPDATE_DATE,
765     X_LAST_UPDATED_BY,
766     X_LAST_UPDATE_LOGIN
767     );
768 
769   UPDATE_ROW (
770     X_CANVAS_PROPERTY_ID,
771     X_INFORMATION13,
772     X_INFORMATION14,
773     X_INFORMATION15,
774     X_INFORMATION16,
775     X_INFORMATION17,
776     X_INFORMATION18,
777     X_INFORMATION19,
778     X_INFORMATION20,
779     X_INFORMATION21,
780     X_INFORMATION22,
781     X_INFORMATION23,
782     X_INFORMATION24,
783     X_INFORMATION25,
784     X_INFORMATION26,
785     X_INFORMATION27,
786     X_INFORMATION28,
787     X_INFORMATION29,
788     X_INFORMATION30,
789     X_FORM_CANVAS_ID,
790     X_TEMPLATE_CANVAS_ID,
791     to_number(X_HEIGHT),
792     to_number(X_VISIBLE),
793     to_number(X_WIDTH),
794     to_number(X_X_POSITION),
795     to_number(X_Y_POSITION),
796     X_INFORMATION_CATEGORY,
797     X_INFORMATION1,
798     X_INFORMATION2,
799     X_INFORMATION3,
800     X_INFORMATION4,
801     X_INFORMATION5,
802     X_INFORMATION6,
803     X_INFORMATION7,
804     X_INFORMATION8,
805     X_INFORMATION9,
806     X_INFORMATION10,
807     X_INFORMATION11,
808     X_INFORMATION12,
809     X_LAST_UPDATE_DATE,
810     X_LAST_UPDATED_BY,
811     X_LAST_UPDATE_LOGIN
812     );
813 
814  exception
815    when no_data_found then
816      INSERT_ROW (
817         X_ROWID,
818         X_CANVAS_PROPERTY_ID,
819         X_INFORMATION13,
820         X_INFORMATION14,
821         X_INFORMATION15,
822         X_INFORMATION16,
823         X_INFORMATION17,
824         X_INFORMATION18,
825         X_INFORMATION19,
826         X_INFORMATION20,
827         X_INFORMATION21,
828         X_INFORMATION22,
829         X_INFORMATION23,
830         X_INFORMATION24,
831         X_INFORMATION25,
832         X_INFORMATION26,
833         X_INFORMATION27,
834         X_INFORMATION28,
835         X_INFORMATION29,
836         X_INFORMATION30,
837         X_FORM_CANVAS_ID,
838         X_TEMPLATE_CANVAS_ID,
839         to_number(X_HEIGHT),
840         to_number(X_VISIBLE),
841         to_number(X_WIDTH),
842         to_number(X_X_POSITION),
843         to_number(X_Y_POSITION),
844         X_INFORMATION_CATEGORY,
845         X_INFORMATION1,
846         X_INFORMATION2,
847         X_INFORMATION3,
848         X_INFORMATION4,
849         X_INFORMATION5,
850         X_INFORMATION6,
851         X_INFORMATION7,
852         X_INFORMATION8,
853         X_INFORMATION9,
854         X_INFORMATION10,
855         X_INFORMATION11,
856         X_INFORMATION12,
857         X_CREATION_DATE,
858         X_CREATED_BY,
859         X_LAST_UPDATE_DATE,
860         X_LAST_UPDATED_BY,
861         X_LAST_UPDATE_LOGIN);
862  end;
863 end LOAD_ROW;
864 --
865 end HR_CANVAS_PROPERTIES_PKG;