1 Package Body hr_wnp_upd as
2 /* $Header: hrwnprhi.pkb 115.2 2002/12/03 14:20:10 raranjan noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' hr_wnp_upd.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |------------------------------< update_dml >------------------------------|
12 -- ----------------------------------------------------------------------------
13 -- {Start Of Comments}
14 --
15 -- Description:
16 -- This procedure controls the actual dml update logic. The processing of
17 -- this procedure is:
18 -- 1) Increment the object_version_number by 1 if the object_version_number
19 -- is defined as an attribute for this entity.
20 -- 2) To set and unset the g_api_dml status as required (as we are about to
21 -- perform dml).
22 -- 3) To update the specified row in the schema using the primary key in
23 -- the predicates.
24 -- 4) To trap any constraint violations that may have occurred.
25 -- 5) To raise any other errors.
26 --
27 -- Prerequisites:
28 -- This is an internal private procedure which must be called from the upd
29 -- procedure.
30 --
31 -- In Parameters:
32 -- A Pl/Sql record structre.
33 --
34 -- Post Success:
35 -- The specified row will be updated in the schema.
36 --
37 -- Post Failure:
38 -- On the update dml failure it is important to note that we always reset the
39 -- g_api_dml status to false.
40 -- If a check, unique or parent integrity constraint violation is raised the
41 -- constraint_error procedure will be called.
42 -- If any other error is reported, the error will be raised after the
43 -- g_api_dml status is reset.
44 --
45 -- Developer Implementation Notes:
46 -- The update 'set' attribute list should be modified if any of your
47 -- attributes are not updateable.
48 --
49 -- Access Status:
50 -- Internal Row Handler Use Only.
51 --
52 -- {End Of Comments}
53 -- ----------------------------------------------------------------------------
54 Procedure update_dml
55 (p_rec in out nocopy hr_wnp_shd.g_rec_type
56 ) is
57 --
58 l_proc varchar2(72) := g_package||'update_dml';
59 --
60 Begin
61 hr_utility.set_location('Entering:'||l_proc, 5);
62 --
63 --
64 --
65 --
66 -- Update the hr_window_properties_b Row
67 --
68 update hr_window_properties_b
69 set
70 window_property_id = p_rec.window_property_id
71 ,form_window_id = p_rec.form_window_id
72 ,template_window_id = p_rec.template_window_id
73 ,height = p_rec.height
74 ,width = p_rec.width
75 ,x_position = p_rec.x_position
76 ,y_position = p_rec.y_position
77 ,information_category = p_rec.information_category
78 ,information1 = p_rec.information1
79 ,information2 = p_rec.information2
80 ,information3 = p_rec.information3
81 ,information4 = p_rec.information4
82 ,information5 = p_rec.information5
83 ,information6 = p_rec.information6
84 ,information7 = p_rec.information7
85 ,information8 = p_rec.information8
86 ,information9 = p_rec.information9
87 ,information10 = p_rec.information10
88 ,information11 = p_rec.information11
89 ,information12 = p_rec.information12
90 ,information13 = p_rec.information13
91 ,information14 = p_rec.information14
92 ,information15 = p_rec.information15
93 ,information16 = p_rec.information16
94 ,information17 = p_rec.information17
95 ,information18 = p_rec.information18
96 ,information19 = p_rec.information19
97 ,information20 = p_rec.information20
98 ,information21 = p_rec.information21
99 ,information22 = p_rec.information22
100 ,information23 = p_rec.information23
101 ,information24 = p_rec.information24
102 ,information25 = p_rec.information25
103 ,information26 = p_rec.information26
104 ,information27 = p_rec.information27
105 ,information28 = p_rec.information28
106 ,information29 = p_rec.information29
107 ,information30 = p_rec.information30
108 where window_property_id = p_rec.window_property_id;
109 --
110 --
111 --
112 hr_utility.set_location(' Leaving:'||l_proc, 10);
113 --
114 Exception
115 When hr_api.check_integrity_violated Then
116 -- A check constraint has been violated
117 --
118 hr_wnp_shd.constraint_error
119 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
120 When hr_api.parent_integrity_violated Then
121 -- Parent integrity has been violated
122 --
123 hr_wnp_shd.constraint_error
124 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
125 When hr_api.unique_integrity_violated Then
126 -- Unique integrity has been violated
127 --
128 hr_wnp_shd.constraint_error
129 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
130 When Others Then
131 --
132 Raise;
133 End update_dml;
134 --
135 -- ----------------------------------------------------------------------------
136 -- |------------------------------< pre_update >------------------------------|
137 -- ----------------------------------------------------------------------------
138 -- {Start Of Comments}
139 --
140 -- Description:
141 -- This private procedure contains any processing which is required before
142 -- the update dml.
143 --
144 -- Prerequisites:
145 -- This is an internal procedure which is called from the upd procedure.
146 --
147 -- In Parameters:
148 -- A Pl/Sql record structure.
149 --
150 -- Post Success:
151 -- Processing continues.
152 --
153 -- Post Failure:
154 -- If an error has occurred, an error message and exception wil be raised
155 -- but not handled.
156 --
157 -- Developer Implementation Notes:
158 -- Any pre-processing required before the update dml is issued should be
159 -- coded within this procedure. It is important to note that any 3rd party
160 -- maintenance should be reviewed before placing in this procedure.
161 --
162 -- Access Status:
163 -- Internal Row Handler Use Only.
164 --
165 -- {End Of Comments}
166 -- ----------------------------------------------------------------------------
167 Procedure pre_update
168 (p_rec in hr_wnp_shd.g_rec_type
169 ) is
170 --
171 l_proc varchar2(72) := g_package||'pre_update';
172 --
173 Begin
174 hr_utility.set_location('Entering:'||l_proc, 5);
175 --
176 hr_utility.set_location(' Leaving:'||l_proc, 10);
177 End pre_update;
178 --
179 -- ----------------------------------------------------------------------------
180 -- |-----------------------------< post_update >------------------------------|
181 -- ----------------------------------------------------------------------------
182 -- {Start Of Comments}
183 --
184 -- Description:
185 -- This private procedure contains any processing which is required after the
186 -- update dml.
187 --
188 -- Prerequisites:
189 -- This is an internal procedure which is called from the upd procedure.
190 --
191 -- In Parameters:
192 -- A Pl/Sql record structure.
193 --
194 -- Post Success:
195 -- Processing continues.
196 --
197 -- Post Failure:
198 -- If an error has occurred, an error message and exception will be raised
199 -- but not handled.
200 --
201 -- Developer Implementation Notes:
202 -- Any post-processing required after the update dml is issued should be
203 -- coded within this procedure. It is important to note that any 3rd party
204 -- maintenance should be reviewed before placing in this procedure.
205 --
206 -- Access Status:
207 -- Internal Row Handler Use Only.
208 --
209 -- {End Of Comments}
210 -- ----------------------------------------------------------------------------
211 Procedure post_update
212 (p_rec in hr_wnp_shd.g_rec_type
213 ) is
214 --
215 l_proc varchar2(72) := g_package||'post_update';
216 --
217 Begin
218 hr_utility.set_location('Entering:'||l_proc, 5);
219 begin
220 --
221 hr_wnp_rku.after_update
222 (p_window_property_id
223 => p_rec.window_property_id
224 ,p_form_window_id
225 => p_rec.form_window_id
226 ,p_template_window_id
227 => p_rec.template_window_id
228 ,p_height
229 => p_rec.height
230 ,p_width
231 => p_rec.width
232 ,p_x_position
233 => p_rec.x_position
234 ,p_y_position
235 => p_rec.y_position
236 ,p_information_category
237 => p_rec.information_category
238 ,p_information1
239 => p_rec.information1
240 ,p_information2
241 => p_rec.information2
242 ,p_information3
243 => p_rec.information3
244 ,p_information4
245 => p_rec.information4
246 ,p_information5
247 => p_rec.information5
248 ,p_information6
249 => p_rec.information6
250 ,p_information7
251 => p_rec.information7
252 ,p_information8
253 => p_rec.information8
254 ,p_information9
255 => p_rec.information9
256 ,p_information10
257 => p_rec.information10
258 ,p_information11
259 => p_rec.information11
260 ,p_information12
261 => p_rec.information12
262 ,p_information13
263 => p_rec.information13
264 ,p_information14
265 => p_rec.information14
266 ,p_information15
267 => p_rec.information15
268 ,p_information16
269 => p_rec.information16
270 ,p_information17
271 => p_rec.information17
272 ,p_information18
273 => p_rec.information18
274 ,p_information19
275 => p_rec.information19
276 ,p_information20
277 => p_rec.information20
278 ,p_information21
279 => p_rec.information21
280 ,p_information22
281 => p_rec.information22
282 ,p_information23
283 => p_rec.information23
284 ,p_information24
285 => p_rec.information24
286 ,p_information25
287 => p_rec.information25
288 ,p_information26
289 => p_rec.information26
290 ,p_information27
291 => p_rec.information27
292 ,p_information28
293 => p_rec.information28
294 ,p_information29
295 => p_rec.information29
296 ,p_information30
297 => p_rec.information30
298 ,p_form_window_id_o
299 => hr_wnp_shd.g_old_rec.form_window_id
300 ,p_template_window_id_o
301 => hr_wnp_shd.g_old_rec.template_window_id
302 ,p_height_o
303 => hr_wnp_shd.g_old_rec.height
304 ,p_width_o
305 => hr_wnp_shd.g_old_rec.width
306 ,p_x_position_o
307 => hr_wnp_shd.g_old_rec.x_position
308 ,p_y_position_o
309 => hr_wnp_shd.g_old_rec.y_position
310 ,p_information_category_o
311 => hr_wnp_shd.g_old_rec.information_category
312 ,p_information1_o
313 => hr_wnp_shd.g_old_rec.information1
314 ,p_information2_o
315 => hr_wnp_shd.g_old_rec.information2
316 ,p_information3_o
317 => hr_wnp_shd.g_old_rec.information3
318 ,p_information4_o
319 => hr_wnp_shd.g_old_rec.information4
320 ,p_information5_o
321 => hr_wnp_shd.g_old_rec.information5
322 ,p_information6_o
323 => hr_wnp_shd.g_old_rec.information6
324 ,p_information7_o
325 => hr_wnp_shd.g_old_rec.information7
326 ,p_information8_o
327 => hr_wnp_shd.g_old_rec.information8
328 ,p_information9_o
329 => hr_wnp_shd.g_old_rec.information9
330 ,p_information10_o
331 => hr_wnp_shd.g_old_rec.information10
332 ,p_information11_o
333 => hr_wnp_shd.g_old_rec.information11
334 ,p_information12_o
335 => hr_wnp_shd.g_old_rec.information12
336 ,p_information13_o
337 => hr_wnp_shd.g_old_rec.information13
338 ,p_information14_o
339 => hr_wnp_shd.g_old_rec.information14
340 ,p_information15_o
341 => hr_wnp_shd.g_old_rec.information15
342 ,p_information16_o
343 => hr_wnp_shd.g_old_rec.information16
344 ,p_information17_o
345 => hr_wnp_shd.g_old_rec.information17
346 ,p_information18_o
347 => hr_wnp_shd.g_old_rec.information18
348 ,p_information19_o
349 => hr_wnp_shd.g_old_rec.information19
350 ,p_information20_o
351 => hr_wnp_shd.g_old_rec.information20
352 ,p_information21_o
353 => hr_wnp_shd.g_old_rec.information21
354 ,p_information22_o
355 => hr_wnp_shd.g_old_rec.information22
356 ,p_information23_o
357 => hr_wnp_shd.g_old_rec.information23
358 ,p_information24_o
359 => hr_wnp_shd.g_old_rec.information24
360 ,p_information25_o
361 => hr_wnp_shd.g_old_rec.information25
362 ,p_information26_o
363 => hr_wnp_shd.g_old_rec.information26
364 ,p_information27_o
365 => hr_wnp_shd.g_old_rec.information27
366 ,p_information28_o
367 => hr_wnp_shd.g_old_rec.information28
368 ,p_information29_o
369 => hr_wnp_shd.g_old_rec.information29
370 ,p_information30_o
371 => hr_wnp_shd.g_old_rec.information30
372 );
373 --
374 exception
375 --
376 when hr_api.cannot_find_prog_unit then
377 --
378 hr_api.cannot_find_prog_unit_error
379 (p_module_name => 'HR_WINDOW_PROPERTIES_B'
380 ,p_hook_type => 'AU');
381 --
382 end;
383 --
384 hr_utility.set_location(' Leaving:'||l_proc, 10);
385 End post_update;
386 --
387 -- ----------------------------------------------------------------------------
388 -- |-----------------------------< convert_defs >-----------------------------|
389 -- ----------------------------------------------------------------------------
390 -- {Start Of Comments}
391 --
392 -- Description:
393 -- The Convert_Defs procedure has one very important function:
394 -- It must return the record structure for the row with all system defaulted
395 -- values converted into its corresponding parameter value for update. When
396 -- we attempt to update a row through the Upd process , certain
397 -- parameters can be defaulted which enables flexibility in the calling of
398 -- the upd process (e.g. only attributes which need to be updated need to be
399 -- specified). For the upd process to determine which attributes
400 -- have NOT been specified we need to check if the parameter has a reserved
401 -- system default value. Therefore, for all parameters which have a
402 -- corresponding reserved system default mechanism specified we need to
403 -- check if a system default is being used. If a system default is being
404 -- used then we convert the defaulted value into its corresponding attribute
405 -- value held in the g_old_rec data structure.
406 --
407 -- Prerequisites:
408 -- This private function can only be called from the upd process.
409 --
410 -- In Parameters:
411 -- A Pl/Sql record structure.
412 --
413 -- Post Success:
414 -- The record structure will be returned with all system defaulted parameter
415 -- values converted into its current row attribute value.
416 --
417 -- Post Failure:
418 -- No direct error handling is required within this function. Any possible
419 -- errors within this procedure will be a PL/SQL value error due to
420 -- conversion of datatypes or data lengths.
421 --
422 -- Developer Implementation Notes:
423 -- None.
424 --
425 -- Access Status:
426 -- Internal Row Handler Use Only.
427 --
428 -- {End Of Comments}
429 -- ----------------------------------------------------------------------------
430 Procedure convert_defs
431 (p_rec in out nocopy hr_wnp_shd.g_rec_type
432 ) is
433 --
434 Begin
435 --
436 -- We must now examine each argument value in the
437 -- p_rec plsql record structure
438 -- to see if a system default is being used. If a system default
439 -- is being used then we must set to the 'current' argument value.
440 --
441 If (p_rec.form_window_id = hr_api.g_number) then
442 p_rec.form_window_id :=
443 hr_wnp_shd.g_old_rec.form_window_id;
444 End If;
445 If (p_rec.template_window_id = hr_api.g_number) then
446 p_rec.template_window_id :=
447 hr_wnp_shd.g_old_rec.template_window_id;
448 End If;
449 If (p_rec.height = hr_api.g_number) then
450 p_rec.height :=
451 hr_wnp_shd.g_old_rec.height;
452 End If;
453 If (p_rec.width = hr_api.g_number) then
454 p_rec.width :=
455 hr_wnp_shd.g_old_rec.width;
456 End If;
457 If (p_rec.x_position = hr_api.g_number) then
458 p_rec.x_position :=
459 hr_wnp_shd.g_old_rec.x_position;
460 End If;
461 If (p_rec.y_position = hr_api.g_number) then
462 p_rec.y_position :=
463 hr_wnp_shd.g_old_rec.y_position;
464 End If;
465 If (p_rec.information_category = hr_api.g_varchar2) then
466 p_rec.information_category :=
467 hr_wnp_shd.g_old_rec.information_category;
468 End If;
469 If (p_rec.information1 = hr_api.g_varchar2) then
470 p_rec.information1 :=
471 hr_wnp_shd.g_old_rec.information1;
472 End If;
473 If (p_rec.information2 = hr_api.g_varchar2) then
474 p_rec.information2 :=
475 hr_wnp_shd.g_old_rec.information2;
476 End If;
477 If (p_rec.information3 = hr_api.g_varchar2) then
478 p_rec.information3 :=
479 hr_wnp_shd.g_old_rec.information3;
480 End If;
481 If (p_rec.information4 = hr_api.g_varchar2) then
482 p_rec.information4 :=
483 hr_wnp_shd.g_old_rec.information4;
484 End If;
485 If (p_rec.information5 = hr_api.g_varchar2) then
486 p_rec.information5 :=
487 hr_wnp_shd.g_old_rec.information5;
488 End If;
489 If (p_rec.information6 = hr_api.g_varchar2) then
490 p_rec.information6 :=
491 hr_wnp_shd.g_old_rec.information6;
492 End If;
493 If (p_rec.information7 = hr_api.g_varchar2) then
494 p_rec.information7 :=
495 hr_wnp_shd.g_old_rec.information7;
496 End If;
497 If (p_rec.information8 = hr_api.g_varchar2) then
498 p_rec.information8 :=
499 hr_wnp_shd.g_old_rec.information8;
500 End If;
501 If (p_rec.information9 = hr_api.g_varchar2) then
502 p_rec.information9 :=
503 hr_wnp_shd.g_old_rec.information9;
504 End If;
505 If (p_rec.information10 = hr_api.g_varchar2) then
506 p_rec.information10 :=
507 hr_wnp_shd.g_old_rec.information10;
508 End If;
509 If (p_rec.information11 = hr_api.g_varchar2) then
510 p_rec.information11 :=
511 hr_wnp_shd.g_old_rec.information11;
512 End If;
513 If (p_rec.information12 = hr_api.g_varchar2) then
514 p_rec.information12 :=
515 hr_wnp_shd.g_old_rec.information12;
516 End If;
517 If (p_rec.information13 = hr_api.g_varchar2) then
518 p_rec.information13 :=
519 hr_wnp_shd.g_old_rec.information13;
520 End If;
521 If (p_rec.information14 = hr_api.g_varchar2) then
522 p_rec.information14 :=
523 hr_wnp_shd.g_old_rec.information14;
524 End If;
525 If (p_rec.information15 = hr_api.g_varchar2) then
526 p_rec.information15 :=
527 hr_wnp_shd.g_old_rec.information15;
528 End If;
529 If (p_rec.information16 = hr_api.g_varchar2) then
530 p_rec.information16 :=
531 hr_wnp_shd.g_old_rec.information16;
532 End If;
533 If (p_rec.information17 = hr_api.g_varchar2) then
534 p_rec.information17 :=
535 hr_wnp_shd.g_old_rec.information17;
536 End If;
537 If (p_rec.information18 = hr_api.g_varchar2) then
538 p_rec.information18 :=
539 hr_wnp_shd.g_old_rec.information18;
540 End If;
541 If (p_rec.information19 = hr_api.g_varchar2) then
542 p_rec.information19 :=
543 hr_wnp_shd.g_old_rec.information19;
544 End If;
545 If (p_rec.information20 = hr_api.g_varchar2) then
546 p_rec.information20 :=
547 hr_wnp_shd.g_old_rec.information20;
548 End If;
549 If (p_rec.information21 = hr_api.g_varchar2) then
550 p_rec.information21 :=
551 hr_wnp_shd.g_old_rec.information21;
552 End If;
553 If (p_rec.information22 = hr_api.g_varchar2) then
554 p_rec.information22 :=
555 hr_wnp_shd.g_old_rec.information22;
556 End If;
557 If (p_rec.information23 = hr_api.g_varchar2) then
558 p_rec.information23 :=
559 hr_wnp_shd.g_old_rec.information23;
560 End If;
561 If (p_rec.information24 = hr_api.g_varchar2) then
562 p_rec.information24 :=
563 hr_wnp_shd.g_old_rec.information24;
564 End If;
565 If (p_rec.information25 = hr_api.g_varchar2) then
566 p_rec.information25 :=
567 hr_wnp_shd.g_old_rec.information25;
568 End If;
569 If (p_rec.information26 = hr_api.g_varchar2) then
570 p_rec.information26 :=
571 hr_wnp_shd.g_old_rec.information26;
572 End If;
573 If (p_rec.information27 = hr_api.g_varchar2) then
574 p_rec.information27 :=
575 hr_wnp_shd.g_old_rec.information27;
576 End If;
577 If (p_rec.information28 = hr_api.g_varchar2) then
578 p_rec.information28 :=
579 hr_wnp_shd.g_old_rec.information28;
580 End If;
581 If (p_rec.information29 = hr_api.g_varchar2) then
582 p_rec.information29 :=
583 hr_wnp_shd.g_old_rec.information29;
584 End If;
585 If (p_rec.information30 = hr_api.g_varchar2) then
586 p_rec.information30 :=
587 hr_wnp_shd.g_old_rec.information30;
588 End If;
589 --
590 End convert_defs;
591 --
592 -- ----------------------------------------------------------------------------
593 -- |---------------------------------< upd >----------------------------------|
594 -- ----------------------------------------------------------------------------
595 Procedure upd
596 (p_rec in out nocopy hr_wnp_shd.g_rec_type
597 ) is
598 --
599 l_proc varchar2(72) := g_package||'upd';
600 --
601 Begin
602 hr_utility.set_location('Entering:'||l_proc, 5);
603 --
604 -- We must lock the row which we need to update.
605 --
606 hr_wnp_shd.lck
607 (p_rec.window_property_id
608 );
609 --
610 -- 1. During an update system defaults are used to determine if
611 -- arguments have been defaulted or not. We must therefore
612 -- derive the full record structure values to be updated.
613 --
614 -- 2. Call the supporting update validate operations.
615 --
616 convert_defs(p_rec);
617 hr_wnp_bus.update_validate
618 (p_rec
619 );
620 --
621 -- Call the supporting pre-update operation
622 --
623 hr_wnp_upd.pre_update(p_rec);
624 --
625 -- Update the row.
626 --
627 hr_wnp_upd.update_dml(p_rec);
628 --
629 -- Call the supporting post-update operation
630 --
631 hr_wnp_upd.post_update
632 (p_rec
633 );
634 End upd;
635 --
636 -- ----------------------------------------------------------------------------
637 -- |---------------------------------< upd >----------------------------------|
638 -- ----------------------------------------------------------------------------
639 Procedure upd
640 (p_window_property_id in number
641 ,p_form_window_id in number default hr_api.g_number
642 ,p_template_window_id in number default hr_api.g_number
643 ,p_height in number default hr_api.g_number
644 ,p_width in number default hr_api.g_number
645 ,p_x_position in number default hr_api.g_number
646 ,p_y_position in number default hr_api.g_number
647 ,p_information_category in varchar2 default hr_api.g_varchar2
648 ,p_information1 in varchar2 default hr_api.g_varchar2
649 ,p_information2 in varchar2 default hr_api.g_varchar2
650 ,p_information3 in varchar2 default hr_api.g_varchar2
651 ,p_information4 in varchar2 default hr_api.g_varchar2
652 ,p_information5 in varchar2 default hr_api.g_varchar2
653 ,p_information6 in varchar2 default hr_api.g_varchar2
654 ,p_information7 in varchar2 default hr_api.g_varchar2
655 ,p_information8 in varchar2 default hr_api.g_varchar2
656 ,p_information9 in varchar2 default hr_api.g_varchar2
657 ,p_information10 in varchar2 default hr_api.g_varchar2
658 ,p_information11 in varchar2 default hr_api.g_varchar2
659 ,p_information12 in varchar2 default hr_api.g_varchar2
660 ,p_information13 in varchar2 default hr_api.g_varchar2
661 ,p_information14 in varchar2 default hr_api.g_varchar2
662 ,p_information15 in varchar2 default hr_api.g_varchar2
663 ,p_information16 in varchar2 default hr_api.g_varchar2
664 ,p_information17 in varchar2 default hr_api.g_varchar2
665 ,p_information18 in varchar2 default hr_api.g_varchar2
666 ,p_information19 in varchar2 default hr_api.g_varchar2
667 ,p_information20 in varchar2 default hr_api.g_varchar2
668 ,p_information21 in varchar2 default hr_api.g_varchar2
669 ,p_information22 in varchar2 default hr_api.g_varchar2
670 ,p_information23 in varchar2 default hr_api.g_varchar2
671 ,p_information24 in varchar2 default hr_api.g_varchar2
672 ,p_information25 in varchar2 default hr_api.g_varchar2
673 ,p_information26 in varchar2 default hr_api.g_varchar2
674 ,p_information27 in varchar2 default hr_api.g_varchar2
675 ,p_information28 in varchar2 default hr_api.g_varchar2
676 ,p_information29 in varchar2 default hr_api.g_varchar2
677 ,p_information30 in varchar2 default hr_api.g_varchar2
678 ) is
679 --
680 l_rec hr_wnp_shd.g_rec_type;
681 l_proc varchar2(72) := g_package||'upd';
682 --
683 Begin
684 hr_utility.set_location('Entering:'||l_proc, 5);
685 --
686 -- Call conversion function to turn arguments into the
687 -- l_rec structure.
688 --
689 l_rec :=
690 hr_wnp_shd.convert_args
691 (p_window_property_id
692 ,p_form_window_id
693 ,p_template_window_id
694 ,p_height
695 ,p_width
696 ,p_x_position
697 ,p_y_position
698 ,p_information_category
699 ,p_information1
700 ,p_information2
701 ,p_information3
702 ,p_information4
703 ,p_information5
704 ,p_information6
705 ,p_information7
706 ,p_information8
707 ,p_information9
708 ,p_information10
709 ,p_information11
710 ,p_information12
711 ,p_information13
712 ,p_information14
713 ,p_information15
714 ,p_information16
715 ,p_information17
716 ,p_information18
717 ,p_information19
718 ,p_information20
719 ,p_information21
720 ,p_information22
721 ,p_information23
722 ,p_information24
723 ,p_information25
724 ,p_information26
725 ,p_information27
726 ,p_information28
727 ,p_information29
728 ,p_information30
729 );
730 --
731 -- Having converted the arguments into the
732 -- plsql record structure we call the corresponding record
733 -- business process.
734 --
735 hr_wnp_upd.upd
736 (l_rec
737 );
738 --
739 --
740 hr_utility.set_location(' Leaving:'||l_proc, 10);
741 End upd;
742 --
743 end hr_wnp_upd;