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_FORM_PROPERTIES_PKG

Source


1 package body HR_FORM_PROPERTIES_PKG as
2 /* $Header: hrfmplct.pkb 120.1 2011/04/28 11:57:22 sidsaxen ship $ */
3 -- -----------------------------------------------------------------------------
4 -- |-----------------------------< update_copies >-----------------------------|
5 -- -----------------------------------------------------------------------------
6 procedure UPDATE_COPIES (
7   X_FORM_PROPERTY_ID in NUMBER,
8   X_APPLICATION_ID in NUMBER,
9   X_FORM_ID in NUMBER,
10   X_FORM_TEMPLATE_ID in NUMBER,
11   X_HELP_TARGET in VARCHAR2,
12   X_INFORMATION_CATEGORY in VARCHAR2,
13   X_INFORMATION1 in VARCHAR2,
14   X_INFORMATION2 in VARCHAR2,
15   X_INFORMATION3 in VARCHAR2,
16   X_INFORMATION4 in VARCHAR2,
17   X_INFORMATION5 in VARCHAR2,
18   X_INFORMATION6 in VARCHAR2,
19   X_INFORMATION7 in VARCHAR2,
20   X_INFORMATION8 in VARCHAR2,
21   X_INFORMATION9 in VARCHAR2,
22   X_INFORMATION10 in VARCHAR2,
23   X_INFORMATION11 in VARCHAR2,
24   X_INFORMATION12 in VARCHAR2,
25   X_INFORMATION13 in VARCHAR2,
26   X_INFORMATION14 in VARCHAR2,
27   X_INFORMATION15 in VARCHAR2,
28   X_INFORMATION16 in VARCHAR2,
29   X_INFORMATION17 in VARCHAR2,
30   X_INFORMATION18 in VARCHAR2,
31   X_INFORMATION19 in VARCHAR2,
32   X_INFORMATION20 in VARCHAR2,
33   X_INFORMATION21 in VARCHAR2,
34   X_INFORMATION22 in VARCHAR2,
35   X_INFORMATION23 in VARCHAR2,
36   X_INFORMATION24 in VARCHAR2,
37   X_INFORMATION25 in VARCHAR2,
38   X_INFORMATION26 in VARCHAR2,
39   X_INFORMATION27 in VARCHAR2,
40   X_INFORMATION28 in VARCHAR2,
41   X_INFORMATION29 in VARCHAR2,
42   X_INFORMATION30 in VARCHAR2,
43   X_LAST_UPDATE_DATE in DATE,
44   X_LAST_UPDATED_BY in NUMBER,
45   X_LAST_UPDATE_LOGIN in NUMBER
46 ) is
47   cursor csr_original is
48     select *
49       from HR_FORM_PROPERTIES
50      where FORM_PROPERTY_ID = X_FORM_PROPERTY_ID;
51   l_original csr_original%rowtype;
52   cursor csr_copies is
53     select fmp.form_property_id
54       from HR_FORM_PROPERTIES fmp
55      where fmp.FORM_TEMPLATE_ID in (select sft.FORM_TEMPLATE_ID_TO
56                                       from HR_SOURCE_FORM_TEMPLATES sft
57                                 start with sft.FORM_TEMPLATE_ID_FROM = X_FORM_TEMPLATE_ID
58                                 connect by sft.FORM_TEMPLATE_ID_FROM = prior sft.FORM_TEMPLATE_ID_TO);
59 begin
60   if (X_FORM_TEMPLATE_ID is not null) then
61     open csr_original;
62     fetch csr_original into l_original;
63     if csr_original%found then
64       close csr_original;
65       for l_copy in csr_copies loop
66         update HR_FORM_PROPERTIES set
67           HELP_TARGET = decode(nvl(HELP_TARGET,hr_api.g_varchar2),nvl(l_original.HELP_TARGET,hr_api.g_varchar2),X_HELP_TARGET,HELP_TARGET),
68           INFORMATION_CATEGORY = decode(nvl(INFORMATION_CATEGORY,hr_api.g_varchar2),nvl(l_original.INFORMATION_CATEGORY,hr_api.g_varchar2),X_INFORMATION_CATEGORY,INFORMATION_CATEGORY),
69           INFORMATION1  = decode(nvl(INFORMATION1 ,hr_api.g_varchar2),nvl(l_original.INFORMATION1 ,hr_api.g_varchar2),X_INFORMATION1 ,INFORMATION1 ),
70           INFORMATION2  = decode(nvl(INFORMATION2 ,hr_api.g_varchar2),nvl(l_original.INFORMATION2 ,hr_api.g_varchar2),X_INFORMATION2 ,INFORMATION2 ),
71           INFORMATION3  = decode(nvl(INFORMATION3 ,hr_api.g_varchar2),nvl(l_original.INFORMATION3 ,hr_api.g_varchar2),X_INFORMATION3 ,INFORMATION3 ),
72           INFORMATION4  = decode(nvl(INFORMATION4 ,hr_api.g_varchar2),nvl(l_original.INFORMATION4 ,hr_api.g_varchar2),X_INFORMATION4 ,INFORMATION4 ),
73           INFORMATION5  = decode(nvl(INFORMATION5 ,hr_api.g_varchar2),nvl(l_original.INFORMATION5 ,hr_api.g_varchar2),X_INFORMATION5 ,INFORMATION5 ),
74           INFORMATION6  = decode(nvl(INFORMATION6 ,hr_api.g_varchar2),nvl(l_original.INFORMATION6 ,hr_api.g_varchar2),X_INFORMATION6 ,INFORMATION6 ),
75           INFORMATION7  = decode(nvl(INFORMATION7 ,hr_api.g_varchar2),nvl(l_original.INFORMATION7 ,hr_api.g_varchar2),X_INFORMATION7 ,INFORMATION7 ),
76           INFORMATION8  = decode(nvl(INFORMATION8 ,hr_api.g_varchar2),nvl(l_original.INFORMATION8 ,hr_api.g_varchar2),X_INFORMATION8 ,INFORMATION8 ),
77           INFORMATION9  = decode(nvl(INFORMATION9 ,hr_api.g_varchar2),nvl(l_original.INFORMATION9 ,hr_api.g_varchar2),X_INFORMATION9 ,INFORMATION9 ),
78           INFORMATION10 = decode(nvl(INFORMATION10,hr_api.g_varchar2),nvl(l_original.INFORMATION10,hr_api.g_varchar2),X_INFORMATION10,INFORMATION10),
79           INFORMATION11 = decode(nvl(INFORMATION11,hr_api.g_varchar2),nvl(l_original.INFORMATION11,hr_api.g_varchar2),X_INFORMATION11,INFORMATION11),
80           INFORMATION12 = decode(nvl(INFORMATION12,hr_api.g_varchar2),nvl(l_original.INFORMATION12,hr_api.g_varchar2),X_INFORMATION12,INFORMATION12),
81           INFORMATION13 = decode(nvl(INFORMATION13,hr_api.g_varchar2),nvl(l_original.INFORMATION13,hr_api.g_varchar2),X_INFORMATION13,INFORMATION13),
82           INFORMATION14 = decode(nvl(INFORMATION14,hr_api.g_varchar2),nvl(l_original.INFORMATION14,hr_api.g_varchar2),X_INFORMATION14,INFORMATION14),
83           INFORMATION15 = decode(nvl(INFORMATION15,hr_api.g_varchar2),nvl(l_original.INFORMATION15,hr_api.g_varchar2),X_INFORMATION15,INFORMATION15),
84           INFORMATION16 = decode(nvl(INFORMATION16,hr_api.g_varchar2),nvl(l_original.INFORMATION16,hr_api.g_varchar2),X_INFORMATION16,INFORMATION16),
85           INFORMATION17 = decode(nvl(INFORMATION17,hr_api.g_varchar2),nvl(l_original.INFORMATION17,hr_api.g_varchar2),X_INFORMATION17,INFORMATION17),
86           INFORMATION18 = decode(nvl(INFORMATION18,hr_api.g_varchar2),nvl(l_original.INFORMATION18,hr_api.g_varchar2),X_INFORMATION18,INFORMATION18),
87           INFORMATION19 = decode(nvl(INFORMATION19,hr_api.g_varchar2),nvl(l_original.INFORMATION19,hr_api.g_varchar2),X_INFORMATION19,INFORMATION19),
88           INFORMATION20 = decode(nvl(INFORMATION20,hr_api.g_varchar2),nvl(l_original.INFORMATION20,hr_api.g_varchar2),X_INFORMATION20,INFORMATION20),
89           INFORMATION21 = decode(nvl(INFORMATION21,hr_api.g_varchar2),nvl(l_original.INFORMATION21,hr_api.g_varchar2),X_INFORMATION21,INFORMATION21),
90           INFORMATION22 = decode(nvl(INFORMATION22,hr_api.g_varchar2),nvl(l_original.INFORMATION22,hr_api.g_varchar2),X_INFORMATION22,INFORMATION22),
91           INFORMATION23 = decode(nvl(INFORMATION23,hr_api.g_varchar2),nvl(l_original.INFORMATION23,hr_api.g_varchar2),X_INFORMATION23,INFORMATION23),
92           INFORMATION24 = decode(nvl(INFORMATION24,hr_api.g_varchar2),nvl(l_original.INFORMATION24,hr_api.g_varchar2),X_INFORMATION24,INFORMATION24),
93           INFORMATION25 = decode(nvl(INFORMATION25,hr_api.g_varchar2),nvl(l_original.INFORMATION25,hr_api.g_varchar2),X_INFORMATION25,INFORMATION25),
94           INFORMATION26 = decode(nvl(INFORMATION26,hr_api.g_varchar2),nvl(l_original.INFORMATION26,hr_api.g_varchar2),X_INFORMATION26,INFORMATION26),
95           INFORMATION27 = decode(nvl(INFORMATION27,hr_api.g_varchar2),nvl(l_original.INFORMATION27,hr_api.g_varchar2),X_INFORMATION27,INFORMATION27),
96           INFORMATION28 = decode(nvl(INFORMATION28,hr_api.g_varchar2),nvl(l_original.INFORMATION28,hr_api.g_varchar2),X_INFORMATION28,INFORMATION28),
97           INFORMATION29 = decode(nvl(INFORMATION29,hr_api.g_varchar2),nvl(l_original.INFORMATION29,hr_api.g_varchar2),X_INFORMATION29,INFORMATION29),
98           INFORMATION30 = decode(nvl(INFORMATION30,hr_api.g_varchar2),nvl(l_original.INFORMATION30,hr_api.g_varchar2),X_INFORMATION30,INFORMATION30),
99           LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
100           LAST_UPDATED_BY = X_LAST_UPDATED_BY,
101           LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
102         where FORM_PROPERTY_ID = l_copy.FORM_PROPERTY_ID;
103         if (sql%notfound) then
104           raise no_data_found;
105         end if;
106       end loop;
107     else
108       close csr_original;
109     end if;
110   end if;
111 end UPDATE_COPIES;
112 --
113 procedure OWNER_TO_WHO (
114   X_OWNER in VARCHAR2,
115   X_CREATION_DATE out nocopy DATE,
116   X_CREATED_BY out nocopy NUMBER,
117   X_LAST_UPDATE_DATE out nocopy DATE,
118   X_LAST_UPDATED_BY out nocopy NUMBER,
119   X_LAST_UPDATE_LOGIN out nocopy NUMBER
120 ) is
121 begin
122   if X_OWNER = 'SEED' then
123     X_CREATED_BY := 1;
124     X_LAST_UPDATED_BY := 1;
125   else
126     X_CREATED_BY := 0;
127     X_LAST_UPDATED_BY := 0;
128   end if;
129   X_CREATION_DATE := sysdate;
130   X_LAST_UPDATE_DATE := sysdate;
131   X_LAST_UPDATE_LOGIN := 0;
132 end OWNER_TO_WHO;
133 
134 procedure INSERT_ROW (
135   X_ROWID in out nocopy VARCHAR2,
136   X_FORM_PROPERTY_ID in NUMBER,
137   X_INFORMATION29 in VARCHAR2,
138   X_INFORMATION16 in VARCHAR2,
139   X_INFORMATION17 in VARCHAR2,
140   X_INFORMATION18 in VARCHAR2,
141   X_INFORMATION19 in VARCHAR2,
142   X_INFORMATION20 in VARCHAR2,
143   X_INFORMATION21 in VARCHAR2,
144   X_INFORMATION22 in VARCHAR2,
145   X_INFORMATION23 in VARCHAR2,
146   X_INFORMATION24 in VARCHAR2,
147   X_INFORMATION25 in VARCHAR2,
148   X_INFORMATION26 in VARCHAR2,
149   X_INFORMATION27 in VARCHAR2,
150   X_INFORMATION28 in VARCHAR2,
151   X_APPLICATION_ID in NUMBER,
152   X_FORM_ID in NUMBER,
153   X_FORM_TEMPLATE_ID in NUMBER,
154   X_HELP_TARGET in VARCHAR2,
155   X_INFORMATION_CATEGORY in VARCHAR2,
156   X_INFORMATION1 in VARCHAR2,
157   X_INFORMATION2 in VARCHAR2,
158   X_INFORMATION3 in VARCHAR2,
159   X_INFORMATION4 in VARCHAR2,
160   X_INFORMATION5 in VARCHAR2,
161   X_INFORMATION6 in VARCHAR2,
162   X_INFORMATION7 in VARCHAR2,
163   X_INFORMATION8 in VARCHAR2,
164   X_INFORMATION9 in VARCHAR2,
165   X_INFORMATION10 in VARCHAR2,
166   X_INFORMATION11 in VARCHAR2,
167   X_INFORMATION12 in VARCHAR2,
168   X_INFORMATION13 in VARCHAR2,
169   X_INFORMATION14 in VARCHAR2,
170   X_INFORMATION15 in VARCHAR2,
171   X_INFORMATION30 in VARCHAR2,
172   X_CREATION_DATE in DATE,
173   X_CREATED_BY in NUMBER,
174   X_LAST_UPDATE_DATE in DATE,
175   X_LAST_UPDATED_BY in NUMBER,
176   X_LAST_UPDATE_LOGIN in NUMBER
177 ) is
178   cursor C is select ROWID from HR_FORM_PROPERTIES
179     where FORM_PROPERTY_ID = X_FORM_PROPERTY_ID
180     ;
181 begin
182 
183 --
184 -- Added the following code as a part of Zero Downtime Patching Project.
185 -- Code Starts Here.
186 --
187 
188 BEGIN
189 	PER_RIC_PKG.chk_integrity (
190     p_entity_name			=>	'HR_FORM_PROPERTIES',
191     p_ref_entity         	=>	'HR_FORM_TEMPLATES_B',
192     p_ref_column_name    	=>	'FORM_TEMPLATE_ID',
193     p_ref_col_value_number  =>	X_FORM_TEMPLATE_ID,
194     p_ref_col_value_varchar =>	NULL,
195     p_ref_col_value_date    =>	NULL,
196     p_ref_type        		=>	'INS');
197 
198 END;
199 --
200 -- Code Ends Here.
201 --
202 
203   insert into HR_FORM_PROPERTIES (
204     INFORMATION30,
205     LAST_UPDATE_DATE,
206     LAST_UPDATED_BY,
207     LAST_UPDATE_LOGIN,
208     CREATED_BY,
209     CREATION_DATE,
210     INFORMATION29,
211     INFORMATION16,
212     INFORMATION17,
213     INFORMATION18,
214     INFORMATION19,
215     INFORMATION20,
216     INFORMATION21,
217     INFORMATION22,
218     INFORMATION23,
219     INFORMATION24,
220     INFORMATION25,
221     INFORMATION26,
222     INFORMATION27,
223     INFORMATION28,
224     FORM_PROPERTY_ID,
225     APPLICATION_ID,
226     FORM_ID,
227     FORM_TEMPLATE_ID,
228     HELP_TARGET,
229     INFORMATION_CATEGORY,
230     INFORMATION1,
231     INFORMATION2,
232     INFORMATION3,
233     INFORMATION4,
234     INFORMATION5,
235     INFORMATION6,
236     INFORMATION7,
237     INFORMATION8,
238     INFORMATION9,
239     INFORMATION10,
240     INFORMATION11,
241     INFORMATION12,
242     INFORMATION13,
243     INFORMATION14,
244     INFORMATION15
245   )
246     VALUES( X_INFORMATION30,
247     X_LAST_UPDATE_DATE,
248     X_LAST_UPDATED_BY,
249     X_LAST_UPDATE_LOGIN,
250     X_CREATED_BY,
251     X_CREATION_DATE,
252     X_INFORMATION29,
253     X_INFORMATION16,
254     X_INFORMATION17,
255     X_INFORMATION18,
256     X_INFORMATION19,
257     X_INFORMATION20,
258     X_INFORMATION21,
259     X_INFORMATION22,
260     X_INFORMATION23,
261     X_INFORMATION24,
262     X_INFORMATION25,
263     X_INFORMATION26,
264     X_INFORMATION27,
265     X_INFORMATION28,
266     X_FORM_PROPERTY_ID,
267     X_APPLICATION_ID,
268     X_FORM_ID,
269     X_FORM_TEMPLATE_ID,
270     X_HELP_TARGET,
271     X_INFORMATION_CATEGORY,
272     X_INFORMATION1,
273     X_INFORMATION2,
274     X_INFORMATION3,
275     X_INFORMATION4,
276     X_INFORMATION5,
277     X_INFORMATION6,
278     X_INFORMATION7,
279     X_INFORMATION8,
280     X_INFORMATION9,
281     X_INFORMATION10,
282     X_INFORMATION11,
283     X_INFORMATION12,
284     X_INFORMATION13,
285     X_INFORMATION14,
286     X_INFORMATION15);
287 
288   open c;
289   fetch c into X_ROWID;
290   if (c%notfound) then
291     close c;
292     raise no_data_found;
293   end if;
294   close c;
295 
296 end INSERT_ROW;
297 
298 procedure LOCK_ROW (
299   X_FORM_PROPERTY_ID in NUMBER,
300   X_INFORMATION29 in VARCHAR2,
301   X_INFORMATION16 in VARCHAR2,
302   X_INFORMATION17 in VARCHAR2,
303   X_INFORMATION18 in VARCHAR2,
304   X_INFORMATION19 in VARCHAR2,
305   X_INFORMATION20 in VARCHAR2,
306   X_INFORMATION21 in VARCHAR2,
307   X_INFORMATION22 in VARCHAR2,
308   X_INFORMATION23 in VARCHAR2,
309   X_INFORMATION24 in VARCHAR2,
310   X_INFORMATION25 in VARCHAR2,
311   X_INFORMATION26 in VARCHAR2,
312   X_INFORMATION27 in VARCHAR2,
313   X_INFORMATION28 in VARCHAR2,
314   X_APPLICATION_ID in NUMBER,
315   X_FORM_ID in NUMBER,
316   X_FORM_TEMPLATE_ID in NUMBER,
317   X_HELP_TARGET in VARCHAR2,
318   X_INFORMATION_CATEGORY in VARCHAR2,
319   X_INFORMATION1 in VARCHAR2,
320   X_INFORMATION2 in VARCHAR2,
321   X_INFORMATION3 in VARCHAR2,
322   X_INFORMATION4 in VARCHAR2,
323   X_INFORMATION5 in VARCHAR2,
324   X_INFORMATION6 in VARCHAR2,
325   X_INFORMATION7 in VARCHAR2,
326   X_INFORMATION8 in VARCHAR2,
327   X_INFORMATION9 in VARCHAR2,
328   X_INFORMATION10 in VARCHAR2,
329   X_INFORMATION11 in VARCHAR2,
330   X_INFORMATION12 in VARCHAR2,
331   X_INFORMATION13 in VARCHAR2,
332   X_INFORMATION14 in VARCHAR2,
333   X_INFORMATION15 in VARCHAR2,
334   X_INFORMATION30 in VARCHAR2
335 ) is
336   cursor c1 is select
337       INFORMATION29,
338       INFORMATION16,
339       INFORMATION17,
340       INFORMATION18,
341       INFORMATION19,
342       INFORMATION20,
343       INFORMATION21,
344       INFORMATION22,
345       INFORMATION23,
346       INFORMATION24,
347       INFORMATION25,
348       INFORMATION26,
349       INFORMATION27,
350       INFORMATION28,
351       APPLICATION_ID,
352       FORM_ID,
353       FORM_TEMPLATE_ID,
354       HELP_TARGET,
355       INFORMATION_CATEGORY,
356       INFORMATION1,
357       INFORMATION2,
358       INFORMATION3,
359       INFORMATION4,
360       INFORMATION5,
361       INFORMATION6,
362       INFORMATION7,
363       INFORMATION8,
364       INFORMATION9,
365       INFORMATION10,
366       INFORMATION11,
367       INFORMATION12,
368       INFORMATION13,
369       INFORMATION14,
370       INFORMATION15,
371       INFORMATION30
372     from HR_FORM_PROPERTIES
373     where FORM_PROPERTY_ID = X_FORM_PROPERTY_ID
374     for update of FORM_PROPERTY_ID nowait;
375 begin
376   for tlinfo in c1 loop
377       if (    ((tlinfo.INFORMATION30 = X_INFORMATION30)
378                OR ((tlinfo.INFORMATION30 is null) AND (X_INFORMATION30 is null)))
379           AND ((tlinfo.INFORMATION29 = X_INFORMATION29)
380                OR ((tlinfo.INFORMATION29 is null) AND (X_INFORMATION29 is null)))
381           AND ((tlinfo.INFORMATION16 = X_INFORMATION16)
382                OR ((tlinfo.INFORMATION16 is null) AND (X_INFORMATION16 is null)))
383           AND ((tlinfo.INFORMATION17 = X_INFORMATION17)
384                OR ((tlinfo.INFORMATION17 is null) AND (X_INFORMATION17 is null)))
385           AND ((tlinfo.INFORMATION18 = X_INFORMATION18)
386                OR ((tlinfo.INFORMATION18 is null) AND (X_INFORMATION18 is null)))
387           AND ((tlinfo.INFORMATION19 = X_INFORMATION19)
388                OR ((tlinfo.INFORMATION19 is null) AND (X_INFORMATION19 is null)))
389           AND ((tlinfo.INFORMATION20 = X_INFORMATION20)
390                OR ((tlinfo.INFORMATION20 is null) AND (X_INFORMATION20 is null)))
391           AND ((tlinfo.INFORMATION21 = X_INFORMATION21)
392                OR ((tlinfo.INFORMATION21 is null) AND (X_INFORMATION21 is null)))
393           AND ((tlinfo.INFORMATION22 = X_INFORMATION22)
394                OR ((tlinfo.INFORMATION22 is null) AND (X_INFORMATION22 is null)))
395           AND ((tlinfo.INFORMATION23 = X_INFORMATION23)
396                OR ((tlinfo.INFORMATION23 is null) AND (X_INFORMATION23 is null)))
397           AND ((tlinfo.INFORMATION24 = X_INFORMATION24)
398                OR ((tlinfo.INFORMATION24 is null) AND (X_INFORMATION24 is null)))
399           AND ((tlinfo.INFORMATION25 = X_INFORMATION25)
400                OR ((tlinfo.INFORMATION25 is null) AND (X_INFORMATION25 is null)))
401           AND ((tlinfo.INFORMATION26 = X_INFORMATION26)
402                OR ((tlinfo.INFORMATION26 is null) AND (X_INFORMATION26 is null)))
403           AND ((tlinfo.INFORMATION27 = X_INFORMATION27)
404                OR ((tlinfo.INFORMATION27 is null) AND (X_INFORMATION27 is null)))
405           AND ((tlinfo.INFORMATION28 = X_INFORMATION28)
406                OR ((tlinfo.INFORMATION28 is null) AND (X_INFORMATION28 is null)))
407           AND ((tlinfo.APPLICATION_ID = X_APPLICATION_ID)
408                OR ((tlinfo.APPLICATION_ID is null) AND (X_APPLICATION_ID is null)))
409           AND ((tlinfo.FORM_ID = X_FORM_ID)
410                OR ((tlinfo.FORM_ID is null) AND (X_FORM_ID is null)))
411           AND ((tlinfo.FORM_TEMPLATE_ID = X_FORM_TEMPLATE_ID)
412                OR ((tlinfo.FORM_TEMPLATE_ID is null) AND (X_FORM_TEMPLATE_ID is null)))
413           AND ((tlinfo.HELP_TARGET = X_HELP_TARGET)
414                OR ((tlinfo.HELP_TARGET is null) AND (X_HELP_TARGET is null)))
415           AND ((tlinfo.INFORMATION_CATEGORY = X_INFORMATION_CATEGORY)
416                OR ((tlinfo.INFORMATION_CATEGORY is null) AND (X_INFORMATION_CATEGORY is null)))
417           AND ((tlinfo.INFORMATION1 = X_INFORMATION1)
418                OR ((tlinfo.INFORMATION1 is null) AND (X_INFORMATION1 is null)))
419           AND ((tlinfo.INFORMATION2 = X_INFORMATION2)
420                OR ((tlinfo.INFORMATION2 is null) AND (X_INFORMATION2 is null)))
421           AND ((tlinfo.INFORMATION3 = X_INFORMATION3)
422                OR ((tlinfo.INFORMATION3 is null) AND (X_INFORMATION3 is null)))
423           AND ((tlinfo.INFORMATION4 = X_INFORMATION4)
424                OR ((tlinfo.INFORMATION4 is null) AND (X_INFORMATION4 is null)))
425           AND ((tlinfo.INFORMATION5 = X_INFORMATION5)
426                OR ((tlinfo.INFORMATION5 is null) AND (X_INFORMATION5 is null)))
427           AND ((tlinfo.INFORMATION6 = X_INFORMATION6)
428                OR ((tlinfo.INFORMATION6 is null) AND (X_INFORMATION6 is null)))
429           AND ((tlinfo.INFORMATION7 = X_INFORMATION7)
430                OR ((tlinfo.INFORMATION7 is null) AND (X_INFORMATION7 is null)))
431           AND ((tlinfo.INFORMATION8 = X_INFORMATION8)
432                OR ((tlinfo.INFORMATION8 is null) AND (X_INFORMATION8 is null)))
433           AND ((tlinfo.INFORMATION9 = X_INFORMATION9)
434                OR ((tlinfo.INFORMATION9 is null) AND (X_INFORMATION9 is null)))
435           AND ((tlinfo.INFORMATION10 = X_INFORMATION10)
436                OR ((tlinfo.INFORMATION10 is null) AND (X_INFORMATION10 is null)))
437           AND ((tlinfo.INFORMATION11 = X_INFORMATION11)
438                OR ((tlinfo.INFORMATION11 is null) AND (X_INFORMATION11 is null)))
439           AND ((tlinfo.INFORMATION12 = X_INFORMATION12)
440                OR ((tlinfo.INFORMATION12 is null) AND (X_INFORMATION12 is null)))
441           AND ((tlinfo.INFORMATION13 = X_INFORMATION13)
442                OR ((tlinfo.INFORMATION13 is null) AND (X_INFORMATION13 is null)))
443           AND ((tlinfo.INFORMATION14 = X_INFORMATION14)
444                OR ((tlinfo.INFORMATION14 is null) AND (X_INFORMATION14 is null)))
445           AND ((tlinfo.INFORMATION15 = X_INFORMATION15)
446                OR ((tlinfo.INFORMATION15 is null) AND (X_INFORMATION15 is null)))
447       ) then
448         null;
449       else
450         fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
451         app_exception.raise_exception;
452       end if;
453   end loop;
454   return;
455 end LOCK_ROW;
456 
457 procedure UPDATE_ROW (
458   X_FORM_PROPERTY_ID in NUMBER,
459   X_INFORMATION29 in VARCHAR2,
460   X_INFORMATION16 in VARCHAR2,
461   X_INFORMATION17 in VARCHAR2,
462   X_INFORMATION18 in VARCHAR2,
463   X_INFORMATION19 in VARCHAR2,
464   X_INFORMATION20 in VARCHAR2,
465   X_INFORMATION21 in VARCHAR2,
466   X_INFORMATION22 in VARCHAR2,
467   X_INFORMATION23 in VARCHAR2,
468   X_INFORMATION24 in VARCHAR2,
469   X_INFORMATION25 in VARCHAR2,
470   X_INFORMATION26 in VARCHAR2,
471   X_INFORMATION27 in VARCHAR2,
472   X_INFORMATION28 in VARCHAR2,
473   X_APPLICATION_ID in NUMBER,
474   X_FORM_ID in NUMBER,
475   X_FORM_TEMPLATE_ID in NUMBER,
476   X_HELP_TARGET in VARCHAR2,
477   X_INFORMATION_CATEGORY in VARCHAR2,
478   X_INFORMATION1 in VARCHAR2,
479   X_INFORMATION2 in VARCHAR2,
480   X_INFORMATION3 in VARCHAR2,
481   X_INFORMATION4 in VARCHAR2,
482   X_INFORMATION5 in VARCHAR2,
483   X_INFORMATION6 in VARCHAR2,
484   X_INFORMATION7 in VARCHAR2,
485   X_INFORMATION8 in VARCHAR2,
486   X_INFORMATION9 in VARCHAR2,
487   X_INFORMATION10 in VARCHAR2,
488   X_INFORMATION11 in VARCHAR2,
489   X_INFORMATION12 in VARCHAR2,
490   X_INFORMATION13 in VARCHAR2,
491   X_INFORMATION14 in VARCHAR2,
492   X_INFORMATION15 in VARCHAR2,
493   X_INFORMATION30 in VARCHAR2,
494   X_LAST_UPDATE_DATE in DATE,
495   X_LAST_UPDATED_BY in NUMBER,
496   X_LAST_UPDATE_LOGIN in NUMBER
497 ) is
498 begin
499   update HR_FORM_PROPERTIES set
500     INFORMATION29 = X_INFORMATION29,
501     INFORMATION16 = X_INFORMATION16,
502     INFORMATION17 = X_INFORMATION17,
503     INFORMATION18 = X_INFORMATION18,
504     INFORMATION19 = X_INFORMATION19,
505     INFORMATION20 = X_INFORMATION20,
506     INFORMATION21 = X_INFORMATION21,
507     INFORMATION22 = X_INFORMATION22,
508     INFORMATION23 = X_INFORMATION23,
509     INFORMATION24 = X_INFORMATION24,
510     INFORMATION25 = X_INFORMATION25,
511     INFORMATION26 = X_INFORMATION26,
512     INFORMATION27 = X_INFORMATION27,
513     INFORMATION28 = X_INFORMATION28,
514     APPLICATION_ID = X_APPLICATION_ID,
515     FORM_ID = X_FORM_ID,
516     FORM_TEMPLATE_ID = X_FORM_TEMPLATE_ID,
517     HELP_TARGET = X_HELP_TARGET,
518     INFORMATION_CATEGORY = X_INFORMATION_CATEGORY,
519     INFORMATION1 = X_INFORMATION1,
520     INFORMATION2 = X_INFORMATION2,
521     INFORMATION3 = X_INFORMATION3,
522     INFORMATION4 = X_INFORMATION4,
523     INFORMATION5 = X_INFORMATION5,
524     INFORMATION6 = X_INFORMATION6,
525     INFORMATION7 = X_INFORMATION7,
526     INFORMATION8 = X_INFORMATION8,
527     INFORMATION9 = X_INFORMATION9,
528     INFORMATION10 = X_INFORMATION10,
529     INFORMATION11 = X_INFORMATION11,
530     INFORMATION12 = X_INFORMATION12,
531     INFORMATION13 = X_INFORMATION13,
532     INFORMATION14 = X_INFORMATION14,
533     INFORMATION15 = X_INFORMATION15,
534     INFORMATION30 = X_INFORMATION30,
535     LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
536     LAST_UPDATED_BY = X_LAST_UPDATED_BY,
537     LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
538   where FORM_PROPERTY_ID = X_FORM_PROPERTY_ID;
539 
540   if (sql%notfound) then
541     raise no_data_found;
542   end if;
543 end UPDATE_ROW;
544 
545 procedure DELETE_ROW (
546   X_FORM_PROPERTY_ID in NUMBER
547 ) is
548 begin
549 
550   delete from HR_FORM_PROPERTIES
551   where FORM_PROPERTY_ID = X_FORM_PROPERTY_ID;
552 
553   if (sql%notfound) then
554     raise no_data_found;
555   end if;
556 
557 end DELETE_ROW;
558 
559 procedure LOAD_ROW (
560             X_APPLICATION_SHORT_NAME  IN VARCHAR2,
561             X_FORM_NAME            IN VARCHAR2,
562             X_TEMPLATE_NAME        IN VARCHAR2,
563             X_TERRITORY_SHORT_NAME IN VARCHAR2,
564             X_OWNER                IN VARCHAR2,
565             X_HELP_TARGET          IN VARCHAR2,
566             X_INFORMATION_CATEGORY IN VARCHAR2,
567             X_INFORMATION1         IN VARCHAR2,
568             X_INFORMATION2         IN VARCHAR2,
569             X_INFORMATION3         IN VARCHAR2,
570             X_INFORMATION4         IN VARCHAR2,
571             X_INFORMATION5         IN VARCHAR2,
572             X_INFORMATION6         IN VARCHAR2,
573             X_INFORMATION7         IN VARCHAR2,
574             X_INFORMATION8         IN VARCHAR2,
575             X_INFORMATION9         IN VARCHAR2,
576             X_INFORMATION10        IN VARCHAR2,
577             X_INFORMATION11        IN VARCHAR2,
578             X_INFORMATION12        IN VARCHAR2,
579             X_INFORMATION13        IN VARCHAR2,
580             X_INFORMATION14        IN VARCHAR2,
581             X_INFORMATION15        IN VARCHAR2,
582             X_INFORMATION16        IN VARCHAR2,
583             X_INFORMATION17        IN VARCHAR2,
584             X_INFORMATION18        IN VARCHAR2,
585             X_INFORMATION19        IN VARCHAR2,
586             X_INFORMATION20        IN VARCHAR2,
587             X_INFORMATION21        IN VARCHAR2,
588             X_INFORMATION22        IN VARCHAR2,
589             X_INFORMATION23        IN VARCHAR2,
590             X_INFORMATION24        IN VARCHAR2,
591             X_INFORMATION25        IN VARCHAR2,
592             X_INFORMATION26        IN VARCHAR2,
593             X_INFORMATION27        IN VARCHAR2,
594             X_INFORMATION28        IN VARCHAR2,
595             X_INFORMATION29        IN VARCHAR2,
596             X_INFORMATION30        IN VARCHAR2
597 ) is
598   X_ROWID ROWID;
599   X_CREATION_DATE DATE;
600   X_CREATED_BY NUMBER;
601   X_LAST_UPDATE_DATE DATE;
602   X_LAST_UPDATED_BY NUMBER;
603   X_LAST_UPDATE_LOGIN NUMBER;
604   X_FORM_ID NUMBER;
605   X_APPLICATION_ID NUMBER;
606   X_FORM_TEMPLATE_ID NUMBER;
607   X_FORM_PROPERTY_ID NUMBER;
608 begin
609   OWNER_TO_WHO (
610     X_OWNER,
611     X_CREATION_DATE,
612     X_CREATED_BY,
613     X_LAST_UPDATE_DATE,
614     X_LAST_UPDATED_BY,
615     X_LAST_UPDATE_LOGIN
616   );
617 
618  select application_id
619  into X_APPLICATION_ID
620  from fnd_application
621  where application_short_name = X_APPLICATION_SHORT_NAME;
622 
623  select form_id
624  into X_FORM_ID
625  from fnd_form
626  where form_name = x_form_name
627  and application_id = x_application_id;
628 
629  IF ltrim(rtrim(x_template_name)) is not null then
630 
631  select form_template_id
632  into x_form_template_id
633  from hr_form_templates_b
634  where application_id = X_APPLICATION_ID
635  and form_id = X_FORM_ID
636  and template_name = X_TEMPLATE_NAME
637  and (  (legislation_code is null and x_territory_short_name is null)
638      or (legislation_code = x_territory_short_name) );
639  x_application_id := null;
640  x_form_id := null;
641 
642  ELSE
643 
644  x_form_template_id := null;
645 
646  END IF;
647 
648  begin
649 
650    select form_property_id
651    into x_form_property_id
652    from hr_form_properties
653    where nvl(form_id,hr_api.g_number) = nvl(x_form_id,hr_api.g_number)
654    and nvl(application_id,hr_api.g_number) = nvl(x_application_id,hr_api.g_number)
655    and nvl(form_template_id,hr_api.g_number) = nvl(x_form_template_id,hr_api.g_number);
656 
657  exception
658   when no_data_found then
659      select hr_form_properties_s.nextval
660      into x_form_property_id
661      from dual;
662   end;
663 
664   begin
665 
666   UPDATE_COPIES (
667   X_FORM_PROPERTY_ID,
668   X_APPLICATION_ID,
669   X_FORM_ID,
670   X_FORM_TEMPLATE_ID,
671   X_HELP_TARGET,
672   X_INFORMATION_CATEGORY,
673   X_INFORMATION1,
674   X_INFORMATION2,
675   X_INFORMATION3,
676   X_INFORMATION4,
677   X_INFORMATION5,
678   X_INFORMATION6,
679   X_INFORMATION7,
680   X_INFORMATION8,
681   X_INFORMATION9,
682   X_INFORMATION10,
683   X_INFORMATION11,
684   X_INFORMATION12,
685   X_INFORMATION13,
686   X_INFORMATION14,
687   X_INFORMATION15,
688   X_INFORMATION16,
689   X_INFORMATION17,
690   X_INFORMATION18,
691   X_INFORMATION19,
692   X_INFORMATION20,
693   X_INFORMATION21,
694   X_INFORMATION22,
695   X_INFORMATION23,
696   X_INFORMATION24,
697   X_INFORMATION25,
698   X_INFORMATION26,
699   X_INFORMATION27,
700   X_INFORMATION28,
701   X_INFORMATION29,
702   X_INFORMATION30,
703   X_LAST_UPDATE_DATE,
704   X_LAST_UPDATED_BY,
705   X_LAST_UPDATE_LOGIN
706   );
707 
708   UPDATE_ROW (
709   X_FORM_PROPERTY_ID,
710   X_INFORMATION29,
711   X_INFORMATION16,
712   X_INFORMATION17,
713   X_INFORMATION18,
714   X_INFORMATION19,
715   X_INFORMATION20,
716   X_INFORMATION21,
717   X_INFORMATION22,
718   X_INFORMATION23,
719   X_INFORMATION24,
720   X_INFORMATION25,
721   X_INFORMATION26,
722   X_INFORMATION27,
723   X_INFORMATION28,
724   X_APPLICATION_ID,
725   X_FORM_ID,
726   X_FORM_TEMPLATE_ID,
727   X_HELP_TARGET,
728   X_INFORMATION_CATEGORY,
729   X_INFORMATION1,
730   X_INFORMATION2,
731   X_INFORMATION3,
732   X_INFORMATION4,
733   X_INFORMATION5,
734   X_INFORMATION6,
735   X_INFORMATION7,
736   X_INFORMATION8,
737   X_INFORMATION9,
738   X_INFORMATION10,
739   X_INFORMATION11,
740   X_INFORMATION12,
741   X_INFORMATION13,
742   X_INFORMATION14,
743   X_INFORMATION15,
744   X_INFORMATION30,
745   X_LAST_UPDATE_DATE,
746   X_LAST_UPDATED_BY,
747   X_LAST_UPDATE_LOGIN);
748   exception
749     when no_data_found then
750      INSERT_ROW (
751        X_ROWID,
752        X_FORM_PROPERTY_ID,
753        X_INFORMATION29,
754        X_INFORMATION16,
755        X_INFORMATION17,
756        X_INFORMATION18,
757        X_INFORMATION19,
758        X_INFORMATION20,
759        X_INFORMATION21,
760        X_INFORMATION22,
761        X_INFORMATION23,
762        X_INFORMATION24,
763        X_INFORMATION25,
764        X_INFORMATION26,
765        X_INFORMATION27,
766        X_INFORMATION28,
767        X_APPLICATION_ID,
768        X_FORM_ID,
769        X_FORM_TEMPLATE_ID,
770        X_HELP_TARGET,
771        X_INFORMATION_CATEGORY,
772        X_INFORMATION1,
773        X_INFORMATION2,
774        X_INFORMATION3,
775        X_INFORMATION4,
776        X_INFORMATION5,
777        X_INFORMATION6,
778        X_INFORMATION7,
779        X_INFORMATION8,
780        X_INFORMATION9,
781        X_INFORMATION10,
782        X_INFORMATION11,
783        X_INFORMATION12,
784        X_INFORMATION13,
785        X_INFORMATION14,
786        X_INFORMATION15,
787        X_INFORMATION30,
788        X_CREATION_DATE,
789        X_CREATED_BY,
790        X_LAST_UPDATE_DATE,
791        X_LAST_UPDATED_BY,
792        X_LAST_UPDATE_LOGIN);
793   end;
794 end LOAD_ROW;
795 end HR_FORM_PROPERTIES_PKG;