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