[Home] [Help]
PACKAGE BODY: APPS.HR_FORM_PROPERTIES_PKG
Source
1 package body HR_FORM_PROPERTIES_PKG as
2 /* $Header: hrfmplct.pkb 115.4 2002/12/10 11:18:10 hjonnala noship $ */
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 insert into HR_FORM_PROPERTIES (
183 INFORMATION30,
184 LAST_UPDATE_DATE,
185 LAST_UPDATED_BY,
186 LAST_UPDATE_LOGIN,
187 CREATED_BY,
188 CREATION_DATE,
189 INFORMATION29,
190 INFORMATION16,
191 INFORMATION17,
192 INFORMATION18,
193 INFORMATION19,
194 INFORMATION20,
195 INFORMATION21,
196 INFORMATION22,
197 INFORMATION23,
198 INFORMATION24,
199 INFORMATION25,
200 INFORMATION26,
201 INFORMATION27,
202 INFORMATION28,
203 FORM_PROPERTY_ID,
204 APPLICATION_ID,
205 FORM_ID,
206 FORM_TEMPLATE_ID,
207 HELP_TARGET,
208 INFORMATION_CATEGORY,
209 INFORMATION1,
210 INFORMATION2,
211 INFORMATION3,
212 INFORMATION4,
213 INFORMATION5,
214 INFORMATION6,
215 INFORMATION7,
216 INFORMATION8,
217 INFORMATION9,
218 INFORMATION10,
219 INFORMATION11,
220 INFORMATION12,
221 INFORMATION13,
222 INFORMATION14,
223 INFORMATION15
224 )
225 VALUES( X_INFORMATION30,
226 X_LAST_UPDATE_DATE,
227 X_LAST_UPDATED_BY,
228 X_LAST_UPDATE_LOGIN,
229 X_CREATED_BY,
230 X_CREATION_DATE,
231 X_INFORMATION29,
232 X_INFORMATION16,
233 X_INFORMATION17,
234 X_INFORMATION18,
235 X_INFORMATION19,
236 X_INFORMATION20,
237 X_INFORMATION21,
238 X_INFORMATION22,
239 X_INFORMATION23,
240 X_INFORMATION24,
241 X_INFORMATION25,
242 X_INFORMATION26,
243 X_INFORMATION27,
244 X_INFORMATION28,
245 X_FORM_PROPERTY_ID,
246 X_APPLICATION_ID,
247 X_FORM_ID,
248 X_FORM_TEMPLATE_ID,
249 X_HELP_TARGET,
250 X_INFORMATION_CATEGORY,
251 X_INFORMATION1,
252 X_INFORMATION2,
253 X_INFORMATION3,
254 X_INFORMATION4,
255 X_INFORMATION5,
256 X_INFORMATION6,
257 X_INFORMATION7,
258 X_INFORMATION8,
259 X_INFORMATION9,
260 X_INFORMATION10,
261 X_INFORMATION11,
262 X_INFORMATION12,
263 X_INFORMATION13,
264 X_INFORMATION14,
265 X_INFORMATION15);
266
267 open c;
268 fetch c into X_ROWID;
269 if (c%notfound) then
270 close c;
271 raise no_data_found;
272 end if;
273 close c;
274
275 end INSERT_ROW;
276
277 procedure LOCK_ROW (
278 X_FORM_PROPERTY_ID in NUMBER,
279 X_INFORMATION29 in VARCHAR2,
280 X_INFORMATION16 in VARCHAR2,
281 X_INFORMATION17 in VARCHAR2,
282 X_INFORMATION18 in VARCHAR2,
283 X_INFORMATION19 in VARCHAR2,
284 X_INFORMATION20 in VARCHAR2,
285 X_INFORMATION21 in VARCHAR2,
286 X_INFORMATION22 in VARCHAR2,
287 X_INFORMATION23 in VARCHAR2,
288 X_INFORMATION24 in VARCHAR2,
289 X_INFORMATION25 in VARCHAR2,
290 X_INFORMATION26 in VARCHAR2,
291 X_INFORMATION27 in VARCHAR2,
292 X_INFORMATION28 in VARCHAR2,
293 X_APPLICATION_ID in NUMBER,
294 X_FORM_ID in NUMBER,
295 X_FORM_TEMPLATE_ID in NUMBER,
296 X_HELP_TARGET in VARCHAR2,
297 X_INFORMATION_CATEGORY in VARCHAR2,
298 X_INFORMATION1 in VARCHAR2,
299 X_INFORMATION2 in VARCHAR2,
300 X_INFORMATION3 in VARCHAR2,
301 X_INFORMATION4 in VARCHAR2,
302 X_INFORMATION5 in VARCHAR2,
303 X_INFORMATION6 in VARCHAR2,
304 X_INFORMATION7 in VARCHAR2,
305 X_INFORMATION8 in VARCHAR2,
306 X_INFORMATION9 in VARCHAR2,
307 X_INFORMATION10 in VARCHAR2,
308 X_INFORMATION11 in VARCHAR2,
309 X_INFORMATION12 in VARCHAR2,
310 X_INFORMATION13 in VARCHAR2,
311 X_INFORMATION14 in VARCHAR2,
312 X_INFORMATION15 in VARCHAR2,
313 X_INFORMATION30 in VARCHAR2
314 ) is
315 cursor c1 is select
316 INFORMATION29,
317 INFORMATION16,
318 INFORMATION17,
319 INFORMATION18,
320 INFORMATION19,
321 INFORMATION20,
322 INFORMATION21,
323 INFORMATION22,
324 INFORMATION23,
325 INFORMATION24,
326 INFORMATION25,
327 INFORMATION26,
328 INFORMATION27,
329 INFORMATION28,
330 APPLICATION_ID,
331 FORM_ID,
332 FORM_TEMPLATE_ID,
333 HELP_TARGET,
334 INFORMATION_CATEGORY,
335 INFORMATION1,
336 INFORMATION2,
337 INFORMATION3,
338 INFORMATION4,
339 INFORMATION5,
340 INFORMATION6,
341 INFORMATION7,
342 INFORMATION8,
343 INFORMATION9,
344 INFORMATION10,
345 INFORMATION11,
346 INFORMATION12,
347 INFORMATION13,
348 INFORMATION14,
349 INFORMATION15,
350 INFORMATION30
351 from HR_FORM_PROPERTIES
352 where FORM_PROPERTY_ID = X_FORM_PROPERTY_ID
353 for update of FORM_PROPERTY_ID nowait;
354 begin
355 for tlinfo in c1 loop
356 if ( ((tlinfo.INFORMATION30 = X_INFORMATION30)
357 OR ((tlinfo.INFORMATION30 is null) AND (X_INFORMATION30 is null)))
358 AND ((tlinfo.INFORMATION29 = X_INFORMATION29)
359 OR ((tlinfo.INFORMATION29 is null) AND (X_INFORMATION29 is null)))
360 AND ((tlinfo.INFORMATION16 = X_INFORMATION16)
361 OR ((tlinfo.INFORMATION16 is null) AND (X_INFORMATION16 is null)))
362 AND ((tlinfo.INFORMATION17 = X_INFORMATION17)
363 OR ((tlinfo.INFORMATION17 is null) AND (X_INFORMATION17 is null)))
364 AND ((tlinfo.INFORMATION18 = X_INFORMATION18)
365 OR ((tlinfo.INFORMATION18 is null) AND (X_INFORMATION18 is null)))
366 AND ((tlinfo.INFORMATION19 = X_INFORMATION19)
367 OR ((tlinfo.INFORMATION19 is null) AND (X_INFORMATION19 is null)))
368 AND ((tlinfo.INFORMATION20 = X_INFORMATION20)
369 OR ((tlinfo.INFORMATION20 is null) AND (X_INFORMATION20 is null)))
370 AND ((tlinfo.INFORMATION21 = X_INFORMATION21)
371 OR ((tlinfo.INFORMATION21 is null) AND (X_INFORMATION21 is null)))
372 AND ((tlinfo.INFORMATION22 = X_INFORMATION22)
373 OR ((tlinfo.INFORMATION22 is null) AND (X_INFORMATION22 is null)))
374 AND ((tlinfo.INFORMATION23 = X_INFORMATION23)
375 OR ((tlinfo.INFORMATION23 is null) AND (X_INFORMATION23 is null)))
376 AND ((tlinfo.INFORMATION24 = X_INFORMATION24)
377 OR ((tlinfo.INFORMATION24 is null) AND (X_INFORMATION24 is null)))
378 AND ((tlinfo.INFORMATION25 = X_INFORMATION25)
379 OR ((tlinfo.INFORMATION25 is null) AND (X_INFORMATION25 is null)))
380 AND ((tlinfo.INFORMATION26 = X_INFORMATION26)
381 OR ((tlinfo.INFORMATION26 is null) AND (X_INFORMATION26 is null)))
382 AND ((tlinfo.INFORMATION27 = X_INFORMATION27)
383 OR ((tlinfo.INFORMATION27 is null) AND (X_INFORMATION27 is null)))
384 AND ((tlinfo.INFORMATION28 = X_INFORMATION28)
385 OR ((tlinfo.INFORMATION28 is null) AND (X_INFORMATION28 is null)))
386 AND ((tlinfo.APPLICATION_ID = X_APPLICATION_ID)
387 OR ((tlinfo.APPLICATION_ID is null) AND (X_APPLICATION_ID is null)))
388 AND ((tlinfo.FORM_ID = X_FORM_ID)
389 OR ((tlinfo.FORM_ID is null) AND (X_FORM_ID is null)))
390 AND ((tlinfo.FORM_TEMPLATE_ID = X_FORM_TEMPLATE_ID)
391 OR ((tlinfo.FORM_TEMPLATE_ID is null) AND (X_FORM_TEMPLATE_ID is null)))
392 AND ((tlinfo.HELP_TARGET = X_HELP_TARGET)
393 OR ((tlinfo.HELP_TARGET is null) AND (X_HELP_TARGET is null)))
394 AND ((tlinfo.INFORMATION_CATEGORY = X_INFORMATION_CATEGORY)
395 OR ((tlinfo.INFORMATION_CATEGORY is null) AND (X_INFORMATION_CATEGORY is null)))
396 AND ((tlinfo.INFORMATION1 = X_INFORMATION1)
397 OR ((tlinfo.INFORMATION1 is null) AND (X_INFORMATION1 is null)))
398 AND ((tlinfo.INFORMATION2 = X_INFORMATION2)
399 OR ((tlinfo.INFORMATION2 is null) AND (X_INFORMATION2 is null)))
400 AND ((tlinfo.INFORMATION3 = X_INFORMATION3)
401 OR ((tlinfo.INFORMATION3 is null) AND (X_INFORMATION3 is null)))
402 AND ((tlinfo.INFORMATION4 = X_INFORMATION4)
403 OR ((tlinfo.INFORMATION4 is null) AND (X_INFORMATION4 is null)))
404 AND ((tlinfo.INFORMATION5 = X_INFORMATION5)
405 OR ((tlinfo.INFORMATION5 is null) AND (X_INFORMATION5 is null)))
406 AND ((tlinfo.INFORMATION6 = X_INFORMATION6)
407 OR ((tlinfo.INFORMATION6 is null) AND (X_INFORMATION6 is null)))
408 AND ((tlinfo.INFORMATION7 = X_INFORMATION7)
409 OR ((tlinfo.INFORMATION7 is null) AND (X_INFORMATION7 is null)))
410 AND ((tlinfo.INFORMATION8 = X_INFORMATION8)
411 OR ((tlinfo.INFORMATION8 is null) AND (X_INFORMATION8 is null)))
412 AND ((tlinfo.INFORMATION9 = X_INFORMATION9)
413 OR ((tlinfo.INFORMATION9 is null) AND (X_INFORMATION9 is null)))
414 AND ((tlinfo.INFORMATION10 = X_INFORMATION10)
415 OR ((tlinfo.INFORMATION10 is null) AND (X_INFORMATION10 is null)))
416 AND ((tlinfo.INFORMATION11 = X_INFORMATION11)
417 OR ((tlinfo.INFORMATION11 is null) AND (X_INFORMATION11 is null)))
418 AND ((tlinfo.INFORMATION12 = X_INFORMATION12)
419 OR ((tlinfo.INFORMATION12 is null) AND (X_INFORMATION12 is null)))
420 AND ((tlinfo.INFORMATION13 = X_INFORMATION13)
421 OR ((tlinfo.INFORMATION13 is null) AND (X_INFORMATION13 is null)))
422 AND ((tlinfo.INFORMATION14 = X_INFORMATION14)
423 OR ((tlinfo.INFORMATION14 is null) AND (X_INFORMATION14 is null)))
424 AND ((tlinfo.INFORMATION15 = X_INFORMATION15)
425 OR ((tlinfo.INFORMATION15 is null) AND (X_INFORMATION15 is null)))
426 ) then
427 null;
428 else
429 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
430 app_exception.raise_exception;
431 end if;
432 end loop;
433 return;
434 end LOCK_ROW;
435
436 procedure UPDATE_ROW (
437 X_FORM_PROPERTY_ID in NUMBER,
438 X_INFORMATION29 in VARCHAR2,
439 X_INFORMATION16 in VARCHAR2,
440 X_INFORMATION17 in VARCHAR2,
441 X_INFORMATION18 in VARCHAR2,
442 X_INFORMATION19 in VARCHAR2,
443 X_INFORMATION20 in VARCHAR2,
444 X_INFORMATION21 in VARCHAR2,
445 X_INFORMATION22 in VARCHAR2,
446 X_INFORMATION23 in VARCHAR2,
447 X_INFORMATION24 in VARCHAR2,
448 X_INFORMATION25 in VARCHAR2,
449 X_INFORMATION26 in VARCHAR2,
450 X_INFORMATION27 in VARCHAR2,
451 X_INFORMATION28 in VARCHAR2,
452 X_APPLICATION_ID in NUMBER,
453 X_FORM_ID in NUMBER,
454 X_FORM_TEMPLATE_ID in NUMBER,
455 X_HELP_TARGET in VARCHAR2,
456 X_INFORMATION_CATEGORY in VARCHAR2,
457 X_INFORMATION1 in VARCHAR2,
458 X_INFORMATION2 in VARCHAR2,
459 X_INFORMATION3 in VARCHAR2,
460 X_INFORMATION4 in VARCHAR2,
461 X_INFORMATION5 in VARCHAR2,
462 X_INFORMATION6 in VARCHAR2,
463 X_INFORMATION7 in VARCHAR2,
464 X_INFORMATION8 in VARCHAR2,
465 X_INFORMATION9 in VARCHAR2,
466 X_INFORMATION10 in VARCHAR2,
467 X_INFORMATION11 in VARCHAR2,
468 X_INFORMATION12 in VARCHAR2,
469 X_INFORMATION13 in VARCHAR2,
470 X_INFORMATION14 in VARCHAR2,
471 X_INFORMATION15 in VARCHAR2,
472 X_INFORMATION30 in VARCHAR2,
473 X_LAST_UPDATE_DATE in DATE,
474 X_LAST_UPDATED_BY in NUMBER,
475 X_LAST_UPDATE_LOGIN in NUMBER
476 ) is
477 begin
478 update HR_FORM_PROPERTIES set
479 INFORMATION29 = X_INFORMATION29,
480 INFORMATION16 = X_INFORMATION16,
481 INFORMATION17 = X_INFORMATION17,
482 INFORMATION18 = X_INFORMATION18,
483 INFORMATION19 = X_INFORMATION19,
484 INFORMATION20 = X_INFORMATION20,
485 INFORMATION21 = X_INFORMATION21,
486 INFORMATION22 = X_INFORMATION22,
487 INFORMATION23 = X_INFORMATION23,
488 INFORMATION24 = X_INFORMATION24,
489 INFORMATION25 = X_INFORMATION25,
490 INFORMATION26 = X_INFORMATION26,
491 INFORMATION27 = X_INFORMATION27,
492 INFORMATION28 = X_INFORMATION28,
493 APPLICATION_ID = X_APPLICATION_ID,
494 FORM_ID = X_FORM_ID,
495 FORM_TEMPLATE_ID = X_FORM_TEMPLATE_ID,
496 HELP_TARGET = X_HELP_TARGET,
497 INFORMATION_CATEGORY = X_INFORMATION_CATEGORY,
498 INFORMATION1 = X_INFORMATION1,
499 INFORMATION2 = X_INFORMATION2,
500 INFORMATION3 = X_INFORMATION3,
501 INFORMATION4 = X_INFORMATION4,
502 INFORMATION5 = X_INFORMATION5,
503 INFORMATION6 = X_INFORMATION6,
504 INFORMATION7 = X_INFORMATION7,
505 INFORMATION8 = X_INFORMATION8,
506 INFORMATION9 = X_INFORMATION9,
507 INFORMATION10 = X_INFORMATION10,
508 INFORMATION11 = X_INFORMATION11,
509 INFORMATION12 = X_INFORMATION12,
510 INFORMATION13 = X_INFORMATION13,
511 INFORMATION14 = X_INFORMATION14,
512 INFORMATION15 = X_INFORMATION15,
513 INFORMATION30 = X_INFORMATION30,
514 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
515 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
516 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
517 where FORM_PROPERTY_ID = X_FORM_PROPERTY_ID;
518
519 if (sql%notfound) then
520 raise no_data_found;
521 end if;
522 end UPDATE_ROW;
523
524 procedure DELETE_ROW (
525 X_FORM_PROPERTY_ID in NUMBER
526 ) is
527 begin
528 delete from HR_FORM_PROPERTIES
529 where FORM_PROPERTY_ID = X_FORM_PROPERTY_ID;
530
531 if (sql%notfound) then
532 raise no_data_found;
533 end if;
534
535 end DELETE_ROW;
536
537 procedure LOAD_ROW (
538 X_APPLICATION_SHORT_NAME IN VARCHAR2,
539 X_FORM_NAME IN VARCHAR2,
540 X_TEMPLATE_NAME IN VARCHAR2,
541 X_TERRITORY_SHORT_NAME IN VARCHAR2,
542 X_OWNER IN VARCHAR2,
543 X_HELP_TARGET IN VARCHAR2,
544 X_INFORMATION_CATEGORY IN VARCHAR2,
545 X_INFORMATION1 IN VARCHAR2,
546 X_INFORMATION2 IN VARCHAR2,
547 X_INFORMATION3 IN VARCHAR2,
548 X_INFORMATION4 IN VARCHAR2,
549 X_INFORMATION5 IN VARCHAR2,
550 X_INFORMATION6 IN VARCHAR2,
551 X_INFORMATION7 IN VARCHAR2,
552 X_INFORMATION8 IN VARCHAR2,
553 X_INFORMATION9 IN VARCHAR2,
554 X_INFORMATION10 IN VARCHAR2,
555 X_INFORMATION11 IN VARCHAR2,
556 X_INFORMATION12 IN VARCHAR2,
557 X_INFORMATION13 IN VARCHAR2,
558 X_INFORMATION14 IN VARCHAR2,
559 X_INFORMATION15 IN VARCHAR2,
560 X_INFORMATION16 IN VARCHAR2,
561 X_INFORMATION17 IN VARCHAR2,
562 X_INFORMATION18 IN VARCHAR2,
563 X_INFORMATION19 IN VARCHAR2,
564 X_INFORMATION20 IN VARCHAR2,
565 X_INFORMATION21 IN VARCHAR2,
566 X_INFORMATION22 IN VARCHAR2,
567 X_INFORMATION23 IN VARCHAR2,
568 X_INFORMATION24 IN VARCHAR2,
569 X_INFORMATION25 IN VARCHAR2,
570 X_INFORMATION26 IN VARCHAR2,
571 X_INFORMATION27 IN VARCHAR2,
572 X_INFORMATION28 IN VARCHAR2,
573 X_INFORMATION29 IN VARCHAR2,
574 X_INFORMATION30 IN VARCHAR2
575 ) is
576 X_ROWID ROWID;
577 X_CREATION_DATE DATE;
578 X_CREATED_BY NUMBER;
579 X_LAST_UPDATE_DATE DATE;
580 X_LAST_UPDATED_BY NUMBER;
581 X_LAST_UPDATE_LOGIN NUMBER;
582 X_FORM_ID NUMBER;
583 X_APPLICATION_ID NUMBER;
584 X_FORM_TEMPLATE_ID NUMBER;
585 X_FORM_PROPERTY_ID NUMBER;
586 begin
587 OWNER_TO_WHO (
588 X_OWNER,
589 X_CREATION_DATE,
590 X_CREATED_BY,
591 X_LAST_UPDATE_DATE,
592 X_LAST_UPDATED_BY,
593 X_LAST_UPDATE_LOGIN
594 );
595
596 select application_id
597 into X_APPLICATION_ID
598 from fnd_application
599 where application_short_name = X_APPLICATION_SHORT_NAME;
600
601 select form_id
602 into X_FORM_ID
603 from fnd_form
604 where form_name = x_form_name
605 and application_id = x_application_id;
606
607 IF ltrim(rtrim(x_template_name)) is not null then
608
609 select form_template_id
610 into x_form_template_id
611 from hr_form_templates_b
612 where application_id = X_APPLICATION_ID
613 and form_id = X_FORM_ID
614 and template_name = X_TEMPLATE_NAME
615 and ( (legislation_code is null and x_territory_short_name is null)
616 or (legislation_code = x_territory_short_name) );
617 x_application_id := null;
618 x_form_id := null;
619
620 ELSE
621
622 x_form_template_id := null;
623
624 END IF;
625
626 begin
627
628 select form_property_id
629 into x_form_property_id
630 from hr_form_properties
631 where nvl(form_id,hr_api.g_number) = nvl(x_form_id,hr_api.g_number)
632 and nvl(application_id,hr_api.g_number) = nvl(x_application_id,hr_api.g_number)
633 and nvl(form_template_id,hr_api.g_number) = nvl(x_form_template_id,hr_api.g_number);
634
635 exception
636 when no_data_found then
637 select hr_form_properties_s.nextval
638 into x_form_property_id
639 from dual;
640 end;
641
642 begin
643
644 UPDATE_COPIES (
645 X_FORM_PROPERTY_ID,
646 X_APPLICATION_ID,
647 X_FORM_ID,
648 X_FORM_TEMPLATE_ID,
649 X_HELP_TARGET,
650 X_INFORMATION_CATEGORY,
651 X_INFORMATION1,
652 X_INFORMATION2,
653 X_INFORMATION3,
654 X_INFORMATION4,
655 X_INFORMATION5,
656 X_INFORMATION6,
657 X_INFORMATION7,
658 X_INFORMATION8,
659 X_INFORMATION9,
660 X_INFORMATION10,
661 X_INFORMATION11,
662 X_INFORMATION12,
663 X_INFORMATION13,
664 X_INFORMATION14,
665 X_INFORMATION15,
666 X_INFORMATION16,
667 X_INFORMATION17,
668 X_INFORMATION18,
669 X_INFORMATION19,
670 X_INFORMATION20,
671 X_INFORMATION21,
672 X_INFORMATION22,
673 X_INFORMATION23,
674 X_INFORMATION24,
675 X_INFORMATION25,
676 X_INFORMATION26,
677 X_INFORMATION27,
678 X_INFORMATION28,
679 X_INFORMATION29,
680 X_INFORMATION30,
681 X_LAST_UPDATE_DATE,
682 X_LAST_UPDATED_BY,
683 X_LAST_UPDATE_LOGIN
684 );
685
686 UPDATE_ROW (
687 X_FORM_PROPERTY_ID,
688 X_INFORMATION29,
689 X_INFORMATION16,
690 X_INFORMATION17,
691 X_INFORMATION18,
692 X_INFORMATION19,
693 X_INFORMATION20,
694 X_INFORMATION21,
695 X_INFORMATION22,
696 X_INFORMATION23,
697 X_INFORMATION24,
698 X_INFORMATION25,
699 X_INFORMATION26,
700 X_INFORMATION27,
701 X_INFORMATION28,
702 X_APPLICATION_ID,
703 X_FORM_ID,
704 X_FORM_TEMPLATE_ID,
705 X_HELP_TARGET,
706 X_INFORMATION_CATEGORY,
707 X_INFORMATION1,
708 X_INFORMATION2,
709 X_INFORMATION3,
710 X_INFORMATION4,
711 X_INFORMATION5,
712 X_INFORMATION6,
713 X_INFORMATION7,
714 X_INFORMATION8,
715 X_INFORMATION9,
716 X_INFORMATION10,
717 X_INFORMATION11,
718 X_INFORMATION12,
719 X_INFORMATION13,
720 X_INFORMATION14,
721 X_INFORMATION15,
722 X_INFORMATION30,
723 X_LAST_UPDATE_DATE,
724 X_LAST_UPDATED_BY,
725 X_LAST_UPDATE_LOGIN);
726 exception
727 when no_data_found then
728 INSERT_ROW (
729 X_ROWID,
730 X_FORM_PROPERTY_ID,
731 X_INFORMATION29,
732 X_INFORMATION16,
733 X_INFORMATION17,
734 X_INFORMATION18,
735 X_INFORMATION19,
736 X_INFORMATION20,
737 X_INFORMATION21,
738 X_INFORMATION22,
739 X_INFORMATION23,
740 X_INFORMATION24,
741 X_INFORMATION25,
742 X_INFORMATION26,
743 X_INFORMATION27,
744 X_INFORMATION28,
745 X_APPLICATION_ID,
746 X_FORM_ID,
747 X_FORM_TEMPLATE_ID,
748 X_HELP_TARGET,
749 X_INFORMATION_CATEGORY,
750 X_INFORMATION1,
751 X_INFORMATION2,
752 X_INFORMATION3,
753 X_INFORMATION4,
754 X_INFORMATION5,
755 X_INFORMATION6,
756 X_INFORMATION7,
757 X_INFORMATION8,
758 X_INFORMATION9,
759 X_INFORMATION10,
760 X_INFORMATION11,
761 X_INFORMATION12,
762 X_INFORMATION13,
763 X_INFORMATION14,
764 X_INFORMATION15,
765 X_INFORMATION30,
766 X_CREATION_DATE,
767 X_CREATED_BY,
768 X_LAST_UPDATE_DATE,
769 X_LAST_UPDATED_BY,
770 X_LAST_UPDATE_LOGIN);
771 end;
772 end LOAD_ROW;
773 end HR_FORM_PROPERTIES_PKG;