1 Package Body ota_tfh_api_upd as
2 /* $Header: ottfh01t.pkb 120.0 2005/05/29 07:40:15 appldev noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' ota_tfh_api_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 functions of this
17 -- procedure are as follows:
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 -- Pre Conditions:
28 -- This is an internal private procedure which must be called from the upd
29 -- procedure.
30 --
31 -- In Arguments:
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' arguments list should be modified if any of your
47 -- attributes are not updateable.
48 --
49 -- Access Status:
50 -- Internal Development Use Only.
51 --
52 -- {End Of Comments}
53 -- ----------------------------------------------------------------------------
54 Procedure update_dml(p_rec in out nocopy ota_tfh_api_shd.g_rec_type) is
55 --
56 l_proc varchar2(72) := g_package||'update_dml';
57 --
58 Begin
59 hr_utility.set_location('Entering:'||l_proc, 5);
60 --
61 -- Increment the object version
62 --
63 p_rec.object_version_number := p_rec.object_version_number + 1;
64 --
65 ota_tfh_api_shd.g_api_dml := true; -- Set the api dml status
66 --
67 -- Update the ota_finance_headers Row
68 --
69 update ota_finance_headers
70 set
71 finance_header_id = p_rec.finance_header_id,
72 superceding_header_id = p_rec.superceding_header_id,
73 authorizer_person_id = p_rec.authorizer_person_id,
74 organization_id = p_rec.organization_id,
75 administrator = p_rec.administrator,
76 cancelled_flag = p_rec.cancelled_flag,
77 currency_code = p_rec.currency_code,
78 date_raised = p_rec.date_raised,
79 object_version_number = p_rec.object_version_number,
80 payment_status_flag = p_rec.payment_status_flag,
81 transfer_status = p_rec.transfer_status,
82 comments = p_rec.comments,
83 external_reference = p_rec.external_reference,
84 invoice_address = p_rec.invoice_address,
85 invoice_contact = p_rec.invoice_contact,
86 payment_method = p_rec.payment_method,
87 pym_attribute1 = p_rec.pym_attribute1,
88 pym_attribute10 = p_rec.pym_attribute10,
89 pym_attribute11 = p_rec.pym_attribute11,
90 pym_attribute12 = p_rec.pym_attribute12,
91 pym_attribute13 = p_rec.pym_attribute13,
92 pym_attribute14 = p_rec.pym_attribute14,
93 pym_attribute15 = p_rec.pym_attribute15,
94 pym_attribute16 = p_rec.pym_attribute16,
95 pym_attribute17 = p_rec.pym_attribute17,
96 pym_attribute18 = p_rec.pym_attribute18,
97 pym_attribute19 = p_rec.pym_attribute19,
98 pym_attribute2 = p_rec.pym_attribute2,
99 pym_attribute20 = p_rec.pym_attribute20,
100 pym_attribute3 = p_rec.pym_attribute3,
101 pym_attribute4 = p_rec.pym_attribute4,
102 pym_attribute5 = p_rec.pym_attribute5,
103 pym_attribute6 = p_rec.pym_attribute6,
104 pym_attribute7 = p_rec.pym_attribute7,
105 pym_attribute8 = p_rec.pym_attribute8,
106 pym_attribute9 = p_rec.pym_attribute9,
107 pym_information_category = p_rec.pym_information_category,
108 transfer_date = p_rec.transfer_date,
109 transfer_message = p_rec.transfer_message,
110 vendor_id = p_rec.vendor_id,
111 contact_id = p_rec.contact_id,
112 address_id = p_rec.address_id,
113 customer_id = p_rec.customer_id,
114 tfh_information_category = p_rec.tfh_information_category,
115 tfh_information1 = p_rec.tfh_information1,
116 tfh_information2 = p_rec.tfh_information2,
117 tfh_information3 = p_rec.tfh_information3,
118 tfh_information4 = p_rec.tfh_information4,
119 tfh_information5 = p_rec.tfh_information5,
120 tfh_information6 = p_rec.tfh_information6,
121 tfh_information7 = p_rec.tfh_information7,
122 tfh_information8 = p_rec.tfh_information8,
123 tfh_information9 = p_rec.tfh_information9,
124 tfh_information10 = p_rec.tfh_information10,
125 tfh_information11 = p_rec.tfh_information11,
126 tfh_information12 = p_rec.tfh_information12,
127 tfh_information13 = p_rec.tfh_information13,
128 tfh_information14 = p_rec.tfh_information14,
129 tfh_information15 = p_rec.tfh_information15,
130 tfh_information16 = p_rec.tfh_information16,
131 tfh_information17 = p_rec.tfh_information17,
132 tfh_information18 = p_rec.tfh_information18,
133 tfh_information19 = p_rec.tfh_information19,
134 tfh_information20 = p_rec.tfh_information20,
135 paying_cost_center = p_rec.paying_cost_center,
136 receiving_cost_center = p_rec.receiving_cost_center,
137 transfer_from_set_of_books_id = p_rec.transfer_from_set_of_book_id,
138 transfer_to_set_of_books_id = p_rec.transfer_to_set_of_book_id,
139 from_segment1 = p_rec.from_segment1,
140 from_segment2 = p_rec.from_segment2,
141 from_segment3 = p_rec.from_segment3,
142 from_segment4 = p_rec.from_segment4,
143 from_segment5 = p_rec.from_segment5,
144 from_segment6 = p_rec.from_segment6,
145 from_segment7 = p_rec.from_segment7,
146 from_segment8 = p_rec.from_segment8,
147 from_segment9 = p_rec.from_segment9,
148 from_segment10 = p_rec.from_segment10,
149 from_segment11 = p_rec.from_segment11,
150 from_segment12 = p_rec.from_segment12,
151 from_segment13 = p_rec.from_segment13,
152 from_segment14 = p_rec.from_segment14,
153 from_segment15 = p_rec.from_segment15,
154 from_segment16 = p_rec.from_segment16,
155 from_segment17 = p_rec.from_segment17,
156 from_segment18 = p_rec.from_segment18,
157 from_segment19 = p_rec.from_segment19,
158 from_segment20 = p_rec.from_segment20,
159 from_segment21 = p_rec.from_segment21,
160 from_segment22 = p_rec.from_segment22,
161 from_segment23 = p_rec.from_segment23,
162 from_segment24 = p_rec.from_segment24,
163 from_segment25 = p_rec.from_segment25,
164 from_segment26 = p_rec.from_segment26,
165 from_segment27 = p_rec.from_segment27,
166 from_segment28 = p_rec.from_segment28,
167 from_segment29 = p_rec.from_segment29,
168 from_segment30 = p_rec.from_segment30,
169 to_segment1 = p_rec.to_segment1,
170 to_segment2 = p_rec.to_segment2,
171 to_segment3 = p_rec.to_segment3,
172 to_segment4 = p_rec.to_segment4,
173 to_segment5 = p_rec.to_segment5,
174 to_segment6 = p_rec.to_segment6,
175 to_segment7 = p_rec.to_segment7,
176 to_segment8 = p_rec.to_segment8,
177 to_segment9 = p_rec.to_segment9,
178 to_segment10 = p_rec.to_segment10,
179 to_segment11 = p_rec.to_segment11,
180 to_segment12 = p_rec.to_segment12,
181 to_segment13 = p_rec.to_segment13,
182 to_segment14 = p_rec.to_segment14,
183 to_segment15 = p_rec.to_segment15,
184 to_segment16 = p_rec.to_segment16,
185 to_segment17 = p_rec.to_segment17,
186 to_segment18 = p_rec.to_segment18,
187 to_segment19 = p_rec.to_segment19,
188 to_segment20 = p_rec.to_segment20,
189 to_segment21 = p_rec.to_segment21,
190 to_segment22 = p_rec.to_segment22,
191 to_segment23 = p_rec.to_segment23,
192 to_segment24 = p_rec.to_segment24,
193 to_segment25 = p_rec.to_segment25,
194 to_segment26 = p_rec.to_segment26,
195 to_segment27 = p_rec.to_segment27,
196 to_segment28 = p_rec.to_segment28,
197 to_segment29 = p_rec.to_segment29,
198 to_segment30 = p_rec.to_segment30,
199 transfer_from_cc_id = p_rec.transfer_from_cc_id,
200 transfer_to_cc_id = p_rec.transfer_to_cc_id
201 where finance_header_id = p_rec.finance_header_id;
202 --
203 ota_tfh_api_shd.g_api_dml := false; -- Unset the api dml status
204 --
205 hr_utility.set_location(' Leaving:'||l_proc, 10);
206 --
207 Exception
208 When hr_api.check_integrity_violated Then
209 -- A check constraint has been violated
210 ota_tfh_api_shd.g_api_dml := false; -- Unset the api dml status
211 ota_tfh_api_shd.constraint_error
212 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
213 When hr_api.parent_integrity_violated Then
214 -- Parent integrity has been violated
215 ota_tfh_api_shd.g_api_dml := false; -- Unset the api dml status
216 ota_tfh_api_shd.constraint_error
217 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
218 When hr_api.unique_integrity_violated Then
219 -- Unique integrity has been violated
220 ota_tfh_api_shd.g_api_dml := false; -- Unset the api dml status
221 ota_tfh_api_shd.constraint_error
222 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
223 When Others Then
224 ota_tfh_api_shd.g_api_dml := false; -- Unset the api dml status
225 Raise;
226 End update_dml;
227 --
228 -- ----------------------------------------------------------------------------
229 -- |------------------------------< pre_update >------------------------------|
230 -- ----------------------------------------------------------------------------
231 -- {Start Of Comments}
232 --
233 -- Description:
234 -- This private procedure contains any processing which is required before
235 -- the update dml.
236 --
237 -- Pre Conditions:
238 -- This is an internal procedure which is called from the upd procedure.
239 --
240 -- In Arguments:
241 -- A Pl/Sql record structre.
242 --
243 -- Post Success:
244 -- Processing continues.
245 --
246 -- Post Failure:
247 -- If an error has occurred, an error message and exception will be raised
248 -- but not handled.
249 --
250 -- Developer Implementation Notes:
251 -- Any pre-processing required before the update dml is issued should be
252 -- coded within this procedure. It is important to note that any 3rd party
253 -- maintenance should be reviewed before placing in this procedure.
254 --
255 -- Access Status:
256 -- Internal Development Use Only.
257 --
258 -- {End Of Comments}
259 -- ----------------------------------------------------------------------------
260 Procedure pre_update(p_rec in ota_tfh_api_shd.g_rec_type) is
261 --
262 l_proc varchar2(72) := g_package||'pre_update';
263 --
264 Begin
265 hr_utility.set_location('Entering:'||l_proc, 5);
266 --
267 hr_utility.set_location(' Leaving:'||l_proc, 10);
268 End pre_update;
269 --
270 -- ----------------------------------------------------------------------------
271 -- |-----------------------------< post_update >------------------------------|
272 -- ----------------------------------------------------------------------------
273 -- {Start Of Comments}
274 --
275 -- Description:
276 -- This private procedure contains any processing which is required after the
277 -- update dml.
278 --
279 -- Pre Conditions:
280 -- This is an internal procedure which is called from the upd procedure.
281 --
282 -- In Arguments:
283 -- A Pl/Sql record structre.
284 --
285 -- Post Success:
286 -- Processing continues.
287 --
288 -- Post Failure:
289 -- If an error has occurred, an error message and exception will be raised
290 -- but not handled.
291 --
292 -- Developer Implementation Notes:
293 -- Any post-processing required after the update dml is issued should be
294 -- coded within this procedure. It is important to note that any 3rd party
295 -- maintenance should be reviewed before placing in this procedure.
296 --
297 -- Access Status:
298 -- Internal Development Use Only.
299 --
300 -- {End Of Comments}
301 -- ----------------------------------------------------------------------------
302 Procedure post_update(p_rec in ota_tfh_api_shd.g_rec_type) is
303 --
304 l_proc varchar2(72) := g_package||'post_update';
305 --
306 Begin
307 hr_utility.set_location('Entering:'||l_proc, 5);
308 --
309 hr_utility.set_location(' Leaving:'||l_proc, 10);
310 End post_update;
311 --
312 -- ----------------------------------------------------------------------------
313 -- |-----------------------------< convert_defs >-----------------------------|
314 -- ----------------------------------------------------------------------------
315 -- {Start Of Comments}
316 --
317 -- Description:
318 -- The Convert_Defs function has one very important function:
319 -- It must return the record structure for the row with all system defaulted
320 -- values converted into its corresponding argument value for update. When
321 -- we attempt to update a row through the Upd business process , certain
322 -- arguments can be defaulted which enables flexibility in the calling of
323 -- the upd process (e.g. only attributes which need to be updated need to be
324 -- specified). For the upd business process to determine which attributes
325 -- have NOT been specified we need to check if the argument has a reserved
326 -- system default value. Therefore, for all attributes which have a
327 -- corresponding reserved system default mechanism specified we need to
328 -- check if a system default is being used. If a system default is being
329 -- used then we convert the defaulted value into its corresponding attribute
330 -- value held in the g_old_rec data structure.
331 --
332 -- Pre Conditions:
333 -- This private function can only be called from the upd process.
334 --
335 -- In Arguments:
336 -- A Pl/Sql record structre.
337 --
338 -- Post Success:
339 -- The record structure will be returned with all system defaulted argument
340 -- values converted into its current row attribute value.
341 --
342 -- Post Failure:
343 -- No direct error handling is required within this function. Any possible
344 -- errors within this function will be a PL/SQL value error due to conversion
345 -- of datatypes or data lengths.
346 --
347 -- Developer Implementation Notes:
348 -- None.
349 --
350 -- Access Status:
351 -- Internal Development Use Only.
352 --
353 -- {End Of Comments}
354 -- ----------------------------------------------------------------------------
355 Function convert_defs(p_rec in out nocopy ota_tfh_api_shd.g_rec_type)
356 Return ota_tfh_api_shd.g_rec_type is
357 --
358 l_proc varchar2(72) := g_package||'convert_defs';
359 --
360 Begin
361 --
362 hr_utility.set_location('Entering:'||l_proc, 5);
363 --
364 -- We must now examine each argument value in the
365 -- p_rec plsql record structure
366 -- to see if a system default is being used. If a system default
367 -- is being used then we must set to the 'current' argument value.
368 --
369 If (p_rec.superceding_header_id = hr_api.g_number) then
370 p_rec.superceding_header_id :=
371 ota_tfh_api_shd.g_old_rec.superceding_header_id;
372 End If;
373 If (p_rec.authorizer_person_id = hr_api.g_number) then
374 p_rec.authorizer_person_id :=
375 ota_tfh_api_shd.g_old_rec.authorizer_person_id;
376 End If;
377 If (p_rec.organization_id = hr_api.g_number) then
378 p_rec.organization_id :=
379 ota_tfh_api_shd.g_old_rec.organization_id;
380 End If;
381 If (p_rec.administrator = hr_api.g_number) then
382 p_rec.administrator :=
383 ota_tfh_api_shd.g_old_rec.administrator;
384 End If;
385 If (p_rec.cancelled_flag = hr_api.g_varchar2) then
386 p_rec.cancelled_flag :=
387 ota_tfh_api_shd.g_old_rec.cancelled_flag;
388 End If;
389 If (p_rec.currency_code = hr_api.g_varchar2) then
390 p_rec.currency_code :=
391 ota_tfh_api_shd.g_old_rec.currency_code;
392 End If;
393 If (p_rec.date_raised = hr_api.g_date) then
394 p_rec.date_raised :=
395 ota_tfh_api_shd.g_old_rec.date_raised;
396 End If;
397 If (p_rec.payment_status_flag = hr_api.g_varchar2) then
398 p_rec.payment_status_flag :=
399 ota_tfh_api_shd.g_old_rec.payment_status_flag;
400 End If;
401 If (p_rec.transfer_status = hr_api.g_varchar2) then
402 p_rec.transfer_status :=
403 ota_tfh_api_shd.g_old_rec.transfer_status;
404 End If;
405 If (p_rec.type = hr_api.g_varchar2) then
406 p_rec.type :=
407 ota_tfh_api_shd.g_old_rec.type;
408 End If;
409 If (p_rec.receivable_type = hr_api.g_varchar2) then
410 p_rec.receivable_type :=
411 ota_tfh_api_shd.g_old_rec.receivable_type;
412 End If;
413 If (p_rec.comments = hr_api.g_varchar2) then
414 p_rec.comments :=
415 ota_tfh_api_shd.g_old_rec.comments;
416 End If;
417 If (p_rec.external_reference = hr_api.g_varchar2) then
418 p_rec.external_reference :=
419 ota_tfh_api_shd.g_old_rec.external_reference;
420 End If;
421 If (p_rec.invoice_address = hr_api.g_varchar2) then
422 p_rec.invoice_address :=
423 ota_tfh_api_shd.g_old_rec.invoice_address;
424 End If;
425 If (p_rec.invoice_contact = hr_api.g_varchar2) then
426 p_rec.invoice_contact :=
427 ota_tfh_api_shd.g_old_rec.invoice_contact;
428 End If;
429 If (p_rec.payment_method = hr_api.g_varchar2) then
430 p_rec.payment_method :=
431 ota_tfh_api_shd.g_old_rec.payment_method;
432 End If;
433 If (p_rec.pym_attribute1 = hr_api.g_varchar2) then
434 p_rec.pym_attribute1 :=
435 ota_tfh_api_shd.g_old_rec.pym_attribute1;
436 End If;
437 If (p_rec.pym_attribute10 = hr_api.g_varchar2) then
438 p_rec.pym_attribute10 :=
439 ota_tfh_api_shd.g_old_rec.pym_attribute10;
440 End If;
441 If (p_rec.pym_attribute11 = hr_api.g_varchar2) then
442 p_rec.pym_attribute11 :=
443 ota_tfh_api_shd.g_old_rec.pym_attribute11;
444 End If;
445 If (p_rec.pym_attribute12 = hr_api.g_varchar2) then
446 p_rec.pym_attribute12 :=
447 ota_tfh_api_shd.g_old_rec.pym_attribute12;
448 End If;
449 If (p_rec.pym_attribute13 = hr_api.g_varchar2) then
450 p_rec.pym_attribute13 :=
451 ota_tfh_api_shd.g_old_rec.pym_attribute13;
452 End If;
453 If (p_rec.pym_attribute14 = hr_api.g_varchar2) then
454 p_rec.pym_attribute14 :=
455 ota_tfh_api_shd.g_old_rec.pym_attribute14;
456 End If;
457 If (p_rec.pym_attribute15 = hr_api.g_varchar2) then
458 p_rec.pym_attribute15 :=
459 ota_tfh_api_shd.g_old_rec.pym_attribute15;
460 End If;
461 If (p_rec.pym_attribute16 = hr_api.g_varchar2) then
462 p_rec.pym_attribute16 :=
463 ota_tfh_api_shd.g_old_rec.pym_attribute16;
464 End If;
465 If (p_rec.pym_attribute17 = hr_api.g_varchar2) then
466 p_rec.pym_attribute17 :=
467 ota_tfh_api_shd.g_old_rec.pym_attribute17;
468 End If;
469 If (p_rec.pym_attribute18 = hr_api.g_varchar2) then
470 p_rec.pym_attribute18 :=
471 ota_tfh_api_shd.g_old_rec.pym_attribute18;
472 End If;
473 If (p_rec.pym_attribute19 = hr_api.g_varchar2) then
474 p_rec.pym_attribute19 :=
475 ota_tfh_api_shd.g_old_rec.pym_attribute19;
476 End If;
477 If (p_rec.pym_attribute2 = hr_api.g_varchar2) then
478 p_rec.pym_attribute2 :=
479 ota_tfh_api_shd.g_old_rec.pym_attribute2;
480 End If;
481 If (p_rec.pym_attribute20 = hr_api.g_varchar2) then
482 p_rec.pym_attribute20 :=
483 ota_tfh_api_shd.g_old_rec.pym_attribute20;
484 End If;
485 If (p_rec.pym_attribute3 = hr_api.g_varchar2) then
486 p_rec.pym_attribute3 :=
487 ota_tfh_api_shd.g_old_rec.pym_attribute3;
488 End If;
489 If (p_rec.pym_attribute4 = hr_api.g_varchar2) then
490 p_rec.pym_attribute4 :=
491 ota_tfh_api_shd.g_old_rec.pym_attribute4;
492 End If;
493 If (p_rec.pym_attribute5 = hr_api.g_varchar2) then
494 p_rec.pym_attribute5 :=
495 ota_tfh_api_shd.g_old_rec.pym_attribute5;
496 End If;
497 If (p_rec.pym_attribute6 = hr_api.g_varchar2) then
498 p_rec.pym_attribute6 :=
499 ota_tfh_api_shd.g_old_rec.pym_attribute6;
500 End If;
501 If (p_rec.pym_attribute7 = hr_api.g_varchar2) then
502 p_rec.pym_attribute7 :=
503 ota_tfh_api_shd.g_old_rec.pym_attribute7;
504 End If;
505 If (p_rec.pym_attribute8 = hr_api.g_varchar2) then
506 p_rec.pym_attribute8 :=
507 ota_tfh_api_shd.g_old_rec.pym_attribute8;
508 End If;
509 If (p_rec.pym_attribute9 = hr_api.g_varchar2) then
510 p_rec.pym_attribute9 :=
511 ota_tfh_api_shd.g_old_rec.pym_attribute9;
512 End If;
513 If (p_rec.pym_information_category = hr_api.g_varchar2) then
514 p_rec.pym_information_category :=
515 ota_tfh_api_shd.g_old_rec.pym_information_category;
516 End If;
517 If (p_rec.transfer_date = hr_api.g_date) then
518 p_rec.transfer_date :=
519 ota_tfh_api_shd.g_old_rec.transfer_date;
520 End If;
521 If (p_rec.transfer_message = hr_api.g_varchar2) then
522 p_rec.transfer_message :=
523 ota_tfh_api_shd.g_old_rec.transfer_message;
524 End If;
525 If (p_rec.vendor_id = hr_api.g_number) then
526 p_rec.vendor_id :=
527 ota_tfh_api_shd.g_old_rec.vendor_id;
528 End If;
529 If (p_rec.contact_id = hr_api.g_number) then
530 p_rec.contact_id :=
531 ota_tfh_api_shd.g_old_rec.contact_id;
532 End If;
533 If (p_rec.address_id = hr_api.g_number) then
534 p_rec.address_id :=
535 ota_tfh_api_shd.g_old_rec.address_id;
536 End If;
537 If (p_rec.customer_id = hr_api.g_number) then
538 p_rec.customer_id :=
539 ota_tfh_api_shd.g_old_rec.customer_id;
540 End If;
541 If (p_rec.tfh_information_category = hr_api.g_varchar2) then
542 p_rec.tfh_information_category :=
543 ota_tfh_api_shd.g_old_rec.tfh_information_category;
544 End If;
545 If (p_rec.tfh_information1 = hr_api.g_varchar2) then
546 p_rec.tfh_information1 :=
547 ota_tfh_api_shd.g_old_rec.tfh_information1;
548 End If;
549 If (p_rec.tfh_information2 = hr_api.g_varchar2) then
550 p_rec.tfh_information2 :=
551 ota_tfh_api_shd.g_old_rec.tfh_information2;
552 End If;
553 If (p_rec.tfh_information3 = hr_api.g_varchar2) then
554 p_rec.tfh_information3 :=
555 ota_tfh_api_shd.g_old_rec.tfh_information3;
556 End If;
557 If (p_rec.tfh_information4 = hr_api.g_varchar2) then
558 p_rec.tfh_information4 :=
559 ota_tfh_api_shd.g_old_rec.tfh_information4;
560 End If;
561 If (p_rec.tfh_information5 = hr_api.g_varchar2) then
562 p_rec.tfh_information5 :=
563 ota_tfh_api_shd.g_old_rec.tfh_information5;
564 End If;
565 If (p_rec.tfh_information6 = hr_api.g_varchar2) then
566 p_rec.tfh_information6 :=
567 ota_tfh_api_shd.g_old_rec.tfh_information6;
568 End If;
569 If (p_rec.tfh_information7 = hr_api.g_varchar2) then
570 p_rec.tfh_information7 :=
571 ota_tfh_api_shd.g_old_rec.tfh_information7;
572 End If;
573 If (p_rec.tfh_information8 = hr_api.g_varchar2) then
574 p_rec.tfh_information8 :=
575 ota_tfh_api_shd.g_old_rec.tfh_information8;
576 End If;
577 If (p_rec.tfh_information9 = hr_api.g_varchar2) then
578 p_rec.tfh_information9 :=
579 ota_tfh_api_shd.g_old_rec.tfh_information9;
580 End If;
581 If (p_rec.tfh_information10 = hr_api.g_varchar2) then
582 p_rec.tfh_information10 :=
583 ota_tfh_api_shd.g_old_rec.tfh_information10;
584 End If;
585 If (p_rec.tfh_information11 = hr_api.g_varchar2) then
586 p_rec.tfh_information11 :=
587 ota_tfh_api_shd.g_old_rec.tfh_information11;
588 End If;
589 If (p_rec.tfh_information12 = hr_api.g_varchar2) then
590 p_rec.tfh_information12 :=
591 ota_tfh_api_shd.g_old_rec.tfh_information12;
592 End If;
593 If (p_rec.tfh_information13 = hr_api.g_varchar2) then
594 p_rec.tfh_information13 :=
595 ota_tfh_api_shd.g_old_rec.tfh_information13;
596 End If;
597 If (p_rec.tfh_information14 = hr_api.g_varchar2) then
598 p_rec.tfh_information14 :=
599 ota_tfh_api_shd.g_old_rec.tfh_information14;
600 End If;
601 If (p_rec.tfh_information15 = hr_api.g_varchar2) then
602 p_rec.tfh_information15 :=
603 ota_tfh_api_shd.g_old_rec.tfh_information15;
604 End If;
605 If (p_rec.tfh_information16 = hr_api.g_varchar2) then
606 p_rec.tfh_information16 :=
607 ota_tfh_api_shd.g_old_rec.tfh_information16;
608 End If;
609 If (p_rec.tfh_information17 = hr_api.g_varchar2) then
610 p_rec.tfh_information17 :=
611 ota_tfh_api_shd.g_old_rec.tfh_information17;
612 End If;
613 If (p_rec.tfh_information18 = hr_api.g_varchar2) then
614 p_rec.tfh_information18 :=
615 ota_tfh_api_shd.g_old_rec.tfh_information18;
616 End If;
617 If (p_rec.tfh_information19 = hr_api.g_varchar2) then
618 p_rec.tfh_information19 :=
619 ota_tfh_api_shd.g_old_rec.tfh_information19;
620 End If;
621 If (p_rec.tfh_information20 = hr_api.g_varchar2) then
622 p_rec.tfh_information20 :=
623 ota_tfh_api_shd.g_old_rec.tfh_information20;
624 End If;
625 If (p_rec.paying_cost_center = hr_api.g_varchar2) then
626 p_rec.paying_cost_center :=
627 ota_tfh_api_shd.g_old_rec.paying_cost_center;
628 End If;
629 If (p_rec.receiving_cost_center = hr_api.g_varchar2) then
630 p_rec.receiving_cost_center :=
631 ota_tfh_api_shd.g_old_rec.receiving_cost_center;
632 End If;
633 If (p_rec.transfer_from_set_of_book_id = hr_api.g_number) then
634 p_rec.transfer_from_set_of_book_id :=
635 ota_tfh_api_shd.g_old_rec.transfer_from_set_of_book_id;
636 End If;
637 If (p_rec.transfer_to_set_of_book_id = hr_api.g_number) then
638 p_rec.transfer_to_set_of_book_id :=
639 ota_tfh_api_shd.g_old_rec.transfer_to_set_of_book_id;
640 End If;
641 If (p_rec.from_segment1 = hr_api.g_varchar2) then
642 p_rec.from_segment1 :=
643 ota_tfh_api_shd.g_old_rec.from_segment1;
644 End If;
645 If (p_rec.from_segment2 = hr_api.g_varchar2) then
646 p_rec.from_segment2 :=
647 ota_tfh_api_shd.g_old_rec.from_segment2;
648 End If;
649 If (p_rec.from_segment3 = hr_api.g_varchar2) then
650 p_rec.from_segment3 :=
651 ota_tfh_api_shd.g_old_rec.from_segment3;
652 End If;
653 If (p_rec.from_segment4 = hr_api.g_varchar2) then
654 p_rec.from_segment4 :=
655 ota_tfh_api_shd.g_old_rec.from_segment4;
656 End If;
657 If (p_rec.from_segment5 = hr_api.g_varchar2) then
658 p_rec.from_segment5 :=
659 ota_tfh_api_shd.g_old_rec.from_segment5;
660 End If;
661 If (p_rec.from_segment6 = hr_api.g_varchar2) then
662 p_rec.from_segment6 :=
663 ota_tfh_api_shd.g_old_rec.from_segment6;
664 End If;
665 If (p_rec.from_segment7 = hr_api.g_varchar2) then
666 p_rec.from_segment7 :=
667 ota_tfh_api_shd.g_old_rec.from_segment7;
668 End If;
669 If (p_rec.from_segment8 = hr_api.g_varchar2) then
670 p_rec.from_segment8 :=
671 ota_tfh_api_shd.g_old_rec.from_segment8;
672 End If;
673 If (p_rec.from_segment9 = hr_api.g_varchar2) then
674 p_rec.from_segment9 :=
675 ota_tfh_api_shd.g_old_rec.from_segment9;
676 End If;
677 If (p_rec.from_segment10 = hr_api.g_varchar2) then
678 p_rec.from_segment10 :=
679 ota_tfh_api_shd.g_old_rec.from_segment10;
680 End If;
681 If (p_rec.from_segment11 = hr_api.g_varchar2) then
682 p_rec.from_segment11 :=
683 ota_tfh_api_shd.g_old_rec.from_segment11;
684 End If;
685 If (p_rec.from_segment12 = hr_api.g_varchar2) then
686 p_rec.from_segment12 :=
687 ota_tfh_api_shd.g_old_rec.from_segment12;
688 End If;
689 If (p_rec.from_segment13 = hr_api.g_varchar2) then
690 p_rec.from_segment13 :=
691 ota_tfh_api_shd.g_old_rec.from_segment13;
692 End If;
693 If (p_rec.from_segment14 = hr_api.g_varchar2) then
694 p_rec.from_segment14 :=
695 ota_tfh_api_shd.g_old_rec.from_segment14;
696 End If;
697 If (p_rec.from_segment15 = hr_api.g_varchar2) then
698 p_rec.from_segment15 :=
699 ota_tfh_api_shd.g_old_rec.from_segment15;
700 End If;
701 If (p_rec.from_segment16 = hr_api.g_varchar2) then
702 p_rec.from_segment16 :=
703 ota_tfh_api_shd.g_old_rec.from_segment16;
704 End If;
705 If (p_rec.from_segment17 = hr_api.g_varchar2) then
706 p_rec.from_segment17 :=
707 ota_tfh_api_shd.g_old_rec.from_segment17;
708 End If;
709 If (p_rec.from_segment18 = hr_api.g_varchar2) then
710 p_rec.from_segment18 :=
711 ota_tfh_api_shd.g_old_rec.from_segment18;
712 End If;
713 If (p_rec.from_segment19 = hr_api.g_varchar2) then
714 p_rec.from_segment19 :=
715 ota_tfh_api_shd.g_old_rec.from_segment19;
716 End If;
717 If (p_rec.from_segment20 = hr_api.g_varchar2) then
718 p_rec.from_segment20 :=
719 ota_tfh_api_shd.g_old_rec.from_segment20;
720 End If;
721 If (p_rec.from_segment21 = hr_api.g_varchar2) then
722 p_rec.from_segment21 :=
723 ota_tfh_api_shd.g_old_rec.from_segment21;
724 End If;
725 If (p_rec.from_segment22 = hr_api.g_varchar2) then
726 p_rec.from_segment22 :=
727 ota_tfh_api_shd.g_old_rec.from_segment22;
728 End If;
729 If (p_rec.from_segment23 = hr_api.g_varchar2) then
730 p_rec.from_segment23 :=
731 ota_tfh_api_shd.g_old_rec.from_segment23;
732 End If;
733 If (p_rec.from_segment24 = hr_api.g_varchar2) then
734 p_rec.from_segment24 :=
735 ota_tfh_api_shd.g_old_rec.from_segment24;
736 End If;
737 If (p_rec.from_segment25 = hr_api.g_varchar2) then
738 p_rec.from_segment25 :=
739 ota_tfh_api_shd.g_old_rec.from_segment25;
740 End If;
741 If (p_rec.from_segment26 = hr_api.g_varchar2) then
742 p_rec.from_segment26 :=
743 ota_tfh_api_shd.g_old_rec.from_segment26;
744 End If;
745 If (p_rec.from_segment27 = hr_api.g_varchar2) then
746 p_rec.from_segment27 :=
747 ota_tfh_api_shd.g_old_rec.from_segment27;
748 End If;
749 If (p_rec.from_segment28 = hr_api.g_varchar2) then
750 p_rec.from_segment28 :=
751 ota_tfh_api_shd.g_old_rec.from_segment28;
752 End If;
753 If (p_rec.from_segment29 = hr_api.g_varchar2) then
754 p_rec.from_segment29 :=
755 ota_tfh_api_shd.g_old_rec.from_segment29;
756 End If;
757 If (p_rec.from_segment30 = hr_api.g_varchar2) then
758 p_rec.from_segment30 :=
759 ota_tfh_api_shd.g_old_rec.from_segment30;
760 End If;
761
762
763 If (p_rec.to_segment1 = hr_api.g_varchar2) then
764 p_rec.to_segment1 :=
765 ota_tfh_api_shd.g_old_rec.to_segment1;
766 End If;
767 If (p_rec.to_segment2 = hr_api.g_varchar2) then
768 p_rec.to_segment2 :=
769 ota_tfh_api_shd.g_old_rec.to_segment2;
770 End If;
771 If (p_rec.to_segment3 = hr_api.g_varchar2) then
772 p_rec.to_segment3 :=
773 ota_tfh_api_shd.g_old_rec.to_segment3;
774 End If;
775 If (p_rec.to_segment4 = hr_api.g_varchar2) then
776 p_rec.to_segment4 :=
777 ota_tfh_api_shd.g_old_rec.to_segment4;
778 End If;
779 If (p_rec.to_segment5 = hr_api.g_varchar2) then
780 p_rec.to_segment5 :=
781 ota_tfh_api_shd.g_old_rec.to_segment5;
782 End If;
783 If (p_rec.to_segment6 = hr_api.g_varchar2) then
784 p_rec.to_segment6 :=
785 ota_tfh_api_shd.g_old_rec.to_segment6;
786 End If;
787 If (p_rec.to_segment7 = hr_api.g_varchar2) then
788 p_rec.to_segment7 :=
789 ota_tfh_api_shd.g_old_rec.to_segment7;
790 End If;
791 If (p_rec.to_segment8 = hr_api.g_varchar2) then
792 p_rec.to_segment8 :=
793 ota_tfh_api_shd.g_old_rec.to_segment8;
794 End If;
795 If (p_rec.to_segment9 = hr_api.g_varchar2) then
796 p_rec.to_segment9 :=
797 ota_tfh_api_shd.g_old_rec.to_segment9;
798 End If;
799 If (p_rec.to_segment10 = hr_api.g_varchar2) then
800 p_rec.to_segment10 :=
801 ota_tfh_api_shd.g_old_rec.to_segment10;
802 End If;
803 If (p_rec.to_segment11 = hr_api.g_varchar2) then
804 p_rec.to_segment11 :=
805 ota_tfh_api_shd.g_old_rec.to_segment11;
806 End If;
807 If (p_rec.to_segment12 = hr_api.g_varchar2) then
808 p_rec.to_segment12 :=
809 ota_tfh_api_shd.g_old_rec.to_segment12;
810 End If;
811 If (p_rec.to_segment13 = hr_api.g_varchar2) then
812 p_rec.to_segment13 :=
813 ota_tfh_api_shd.g_old_rec.to_segment13;
814 End If;
815 If (p_rec.to_segment14 = hr_api.g_varchar2) then
816 p_rec.to_segment14 :=
817 ota_tfh_api_shd.g_old_rec.to_segment14;
818 End If;
819 If (p_rec.to_segment15 = hr_api.g_varchar2) then
820 p_rec.to_segment15 :=
821 ota_tfh_api_shd.g_old_rec.to_segment15;
822 End If;
823 If (p_rec.to_segment16 = hr_api.g_varchar2) then
824 p_rec.to_segment16 :=
825 ota_tfh_api_shd.g_old_rec.to_segment16;
826 End If;
827 If (p_rec.to_segment17 = hr_api.g_varchar2) then
828 p_rec.to_segment17 :=
829 ota_tfh_api_shd.g_old_rec.to_segment17;
830 End If;
831 If (p_rec.to_segment18 = hr_api.g_varchar2) then
832 p_rec.to_segment18 :=
833 ota_tfh_api_shd.g_old_rec.to_segment18;
834 End If;
835 If (p_rec.to_segment19 = hr_api.g_varchar2) then
836 p_rec.to_segment19 :=
837 ota_tfh_api_shd.g_old_rec.to_segment19;
838 End If;
839 If (p_rec.to_segment20 = hr_api.g_varchar2) then
840 p_rec.to_segment20 :=
841 ota_tfh_api_shd.g_old_rec.to_segment20;
842 End If;
843 If (p_rec.to_segment21 = hr_api.g_varchar2) then
844 p_rec.to_segment21 :=
845 ota_tfh_api_shd.g_old_rec.to_segment21;
846 End If;
847 If (p_rec.to_segment22 = hr_api.g_varchar2) then
848 p_rec.to_segment22 :=
849 ota_tfh_api_shd.g_old_rec.to_segment22;
850 End If;
851 If (p_rec.to_segment23 = hr_api.g_varchar2) then
852 p_rec.to_segment23 :=
853 ota_tfh_api_shd.g_old_rec.to_segment23;
854 End If;
855 If (p_rec.to_segment24 = hr_api.g_varchar2) then
856 p_rec.to_segment24 :=
857 ota_tfh_api_shd.g_old_rec.to_segment24;
858 End If;
859 If (p_rec.to_segment25 = hr_api.g_varchar2) then
860 p_rec.to_segment25 :=
861 ota_tfh_api_shd.g_old_rec.to_segment25;
862 End If;
863 If (p_rec.to_segment26 = hr_api.g_varchar2) then
864 p_rec.to_segment26 :=
865 ota_tfh_api_shd.g_old_rec.to_segment26;
866 End If;
867 If (p_rec.to_segment27 = hr_api.g_varchar2) then
868 p_rec.to_segment27 :=
869 ota_tfh_api_shd.g_old_rec.to_segment27;
870 End If;
871 If (p_rec.to_segment28 = hr_api.g_varchar2) then
872 p_rec.to_segment28 :=
873 ota_tfh_api_shd.g_old_rec.to_segment28;
874 End If;
875 If (p_rec.to_segment29 = hr_api.g_varchar2) then
876 p_rec.to_segment29 :=
877 ota_tfh_api_shd.g_old_rec.to_segment29;
878 End If;
879 If (p_rec.to_segment30 = hr_api.g_varchar2) then
880 p_rec.to_segment30 :=
881 ota_tfh_api_shd.g_old_rec.to_segment30;
882 End If;
883 If (p_rec.transfer_from_cc_id = hr_api.g_number) then
884 p_rec.transfer_from_cc_id :=
885 ota_tfh_api_shd.g_old_rec.transfer_from_cc_id;
886 End If;
887 If (p_rec.transfer_to_cc_id = hr_api.g_number) then
888 p_rec.transfer_to_cc_id :=
889 ota_tfh_api_shd.g_old_rec.transfer_to_cc_id;
890 End If;
891 --
892 -- Return the plsql record structure.
893 --
894 hr_utility.set_location(' Leaving:'||l_proc, 10);
895 Return(p_rec);
896 --
897 End convert_defs;
898 --
899 -- ----------------------------------------------------------------------------
900 -- |---------------------------------< upd >----------------------------------|
901 -- ----------------------------------------------------------------------------
902 Procedure upd
903 (
904 p_rec in out nocopy ota_tfh_api_shd.g_rec_type,
905 p_validate in boolean default false,
906 p_transaction_type in varchar2 default 'UPDATE'
907 ) is
908 --
909 l_proc varchar2(72) := g_package||'upd';
910 --
911 -- 06/05/97 Change Begins
912 temp_var ota_tfh_api_shd.g_rec_type;
913 -- 06/05/97 Change Ends
914 --
915 Begin
916 hr_utility.set_location('Entering:'||l_proc, 5);
917 --
918 -- Determine if the business process is to be validated.
919 --
920 If p_validate then
921 --
922 -- Issue the savepoint.
923 --
924 SAVEPOINT upd_ota_tfh;
925 End If;
926 --
927 -- We must lock the row which we need to update.
928 --
929 ota_tfh_api_shd.lck
930 (
931 p_rec.finance_header_id,
932 p_rec.object_version_number
933 );
934 --
935 -- 1. During an update system defaults are used to determine if
936 -- arguments have been defaulted or not. We must therefore
937 -- derive the full record structure values to be updated.
938 --
939 -- 2. Call the supporting update validate operations.
940 --
941 -- 06/05/97 Change Begins
942 temp_var := convert_defs(p_rec);
943
944 ota_tfh_api_bus.update_validate(temp_var
945 ,p_transaction_type);
946
947 -- 06/05/97 Change Ends
948 --
949 -- Call the supporting pre-update operation
950 --
951 pre_update(p_rec);
952 --
953 -- Update the row.
954 --
955 update_dml(p_rec);
956 --
957 -- Call the supporting post-update operation
958 --
959 post_update(p_rec);
960 --
961 ota_tfh_api_business_rules2.update_finance_lines (p_rec);
962 --
963 -- If we are validating then raise the Validate_Enabled exception
964 --
965 If p_validate then
966 Raise HR_Api.Validate_Enabled;
967 End If;
968 --
969 hr_utility.set_location(' Leaving:'||l_proc, 10);
970 Exception
971 When HR_Api.Validate_Enabled Then
972 --
973 -- As the Validate_Enabled exception has been raised
974 -- we must rollback to the savepoint
975 --
976 ROLLBACK TO upd_ota_tfh;
977 End upd;
978 --
979 -- ----------------------------------------------------------------------------
980 -- |---------------------------------< upd >----------------------------------|
981 -- ----------------------------------------------------------------------------
982 Procedure upd
983 (
984 p_finance_header_id in number,
985 p_superceding_header_id in number default hr_api.g_number,
986 p_authorizer_person_id in number default hr_api.g_number,
987 p_organization_id in number default hr_api.g_number,
988 p_administrator in number default hr_api.g_number,
989 p_cancelled_flag in varchar2 default hr_api.g_varchar2,
990 p_currency_code in varchar2 default hr_api.g_varchar2,
991 p_date_raised in date default hr_api.g_date,
992 p_object_version_number in out nocopy number,
993 p_payment_status_flag in varchar2 default hr_api.g_varchar2,
994 p_transfer_status in varchar2 default hr_api.g_varchar2,
995 p_type in varchar2 default hr_api.g_varchar2,
996 p_receivable_type in varchar2 default hr_api.g_varchar2,
997 p_comments in varchar2 default hr_api.g_varchar2,
998 p_external_reference in varchar2 default hr_api.g_varchar2,
999 p_invoice_address in varchar2 default hr_api.g_varchar2,
1000 p_invoice_contact in varchar2 default hr_api.g_varchar2,
1001 p_payment_method in varchar2 default hr_api.g_varchar2,
1002 p_pym_attribute1 in varchar2 default hr_api.g_varchar2,
1003 p_pym_attribute10 in varchar2 default hr_api.g_varchar2,
1004 p_pym_attribute11 in varchar2 default hr_api.g_varchar2,
1005 p_pym_attribute12 in varchar2 default hr_api.g_varchar2,
1006 p_pym_attribute13 in varchar2 default hr_api.g_varchar2,
1007 p_pym_attribute14 in varchar2 default hr_api.g_varchar2,
1008 p_pym_attribute15 in varchar2 default hr_api.g_varchar2,
1009 p_pym_attribute16 in varchar2 default hr_api.g_varchar2,
1010 p_pym_attribute17 in varchar2 default hr_api.g_varchar2,
1011 p_pym_attribute18 in varchar2 default hr_api.g_varchar2,
1012 p_pym_attribute19 in varchar2 default hr_api.g_varchar2,
1013 p_pym_attribute2 in varchar2 default hr_api.g_varchar2,
1014 p_pym_attribute20 in varchar2 default hr_api.g_varchar2,
1015 p_pym_attribute3 in varchar2 default hr_api.g_varchar2,
1016 p_pym_attribute4 in varchar2 default hr_api.g_varchar2,
1017 p_pym_attribute5 in varchar2 default hr_api.g_varchar2,
1018 p_pym_attribute6 in varchar2 default hr_api.g_varchar2,
1019 p_pym_attribute7 in varchar2 default hr_api.g_varchar2,
1020 p_pym_attribute8 in varchar2 default hr_api.g_varchar2,
1021 p_pym_attribute9 in varchar2 default hr_api.g_varchar2,
1022 p_pym_information_category in varchar2 default hr_api.g_varchar2,
1023 p_transfer_date in date default hr_api.g_date,
1024 p_transfer_message in varchar2 default hr_api.g_varchar2,
1025 p_vendor_id in number default hr_api.g_number,
1026 p_contact_id in number default hr_api.g_number,
1027 p_address_id in number default hr_api.g_number,
1028 p_customer_id in number default hr_api.g_number,
1029 p_tfh_information_category in varchar2 default hr_api.g_varchar2,
1030 p_tfh_information1 in varchar2 default hr_api.g_varchar2,
1031 p_tfh_information2 in varchar2 default hr_api.g_varchar2,
1032 p_tfh_information3 in varchar2 default hr_api.g_varchar2,
1033 p_tfh_information4 in varchar2 default hr_api.g_varchar2,
1034 p_tfh_information5 in varchar2 default hr_api.g_varchar2,
1035 p_tfh_information6 in varchar2 default hr_api.g_varchar2,
1036 p_tfh_information7 in varchar2 default hr_api.g_varchar2,
1037 p_tfh_information8 in varchar2 default hr_api.g_varchar2,
1038 p_tfh_information9 in varchar2 default hr_api.g_varchar2,
1039 p_tfh_information10 in varchar2 default hr_api.g_varchar2,
1040 p_tfh_information11 in varchar2 default hr_api.g_varchar2,
1041 p_tfh_information12 in varchar2 default hr_api.g_varchar2,
1042 p_tfh_information13 in varchar2 default hr_api.g_varchar2,
1043 p_tfh_information14 in varchar2 default hr_api.g_varchar2,
1044 p_tfh_information15 in varchar2 default hr_api.g_varchar2,
1045 p_tfh_information16 in varchar2 default hr_api.g_varchar2,
1046 p_tfh_information17 in varchar2 default hr_api.g_varchar2,
1047 p_tfh_information18 in varchar2 default hr_api.g_varchar2,
1048 p_tfh_information19 in varchar2 default hr_api.g_varchar2,
1049 p_tfh_information20 in varchar2 default hr_api.g_varchar2,
1050 p_paying_cost_center in varchar2 default hr_api.g_varchar2,
1051 p_receiving_cost_center in varchar2 default hr_api.g_varchar2,
1052 p_transfer_from_set_of_book_id in number default hr_api.g_number,
1053 p_transfer_to_set_of_book_id in number default hr_api.g_number,
1054 p_from_segment1 in varchar2 default hr_api.g_varchar2,
1055 p_from_segment2 in varchar2 default hr_api.g_varchar2,
1056 p_from_segment3 in varchar2 default hr_api.g_varchar2,
1057 p_from_segment4 in varchar2 default hr_api.g_varchar2,
1058 p_from_segment5 in varchar2 default hr_api.g_varchar2,
1059 p_from_segment6 in varchar2 default hr_api.g_varchar2,
1060 p_from_segment7 in varchar2 default hr_api.g_varchar2,
1061 p_from_segment8 in varchar2 default hr_api.g_varchar2,
1062 p_from_segment9 in varchar2 default hr_api.g_varchar2,
1063 p_from_segment10 in varchar2 default hr_api.g_varchar2,
1064 p_from_segment11 in varchar2 default hr_api.g_varchar2,
1065 p_from_segment12 in varchar2 default hr_api.g_varchar2,
1066 p_from_segment13 in varchar2 default hr_api.g_varchar2,
1067 p_from_segment14 in varchar2 default hr_api.g_varchar2,
1068 p_from_segment15 in varchar2 default hr_api.g_varchar2,
1069 p_from_segment16 in varchar2 default hr_api.g_varchar2,
1070 p_from_segment17 in varchar2 default hr_api.g_varchar2,
1071 p_from_segment18 in varchar2 default hr_api.g_varchar2,
1072 p_from_segment19 in varchar2 default hr_api.g_varchar2,
1073 p_from_segment20 in varchar2 default hr_api.g_varchar2,
1074 p_from_segment21 in varchar2 default hr_api.g_varchar2,
1075 p_from_segment22 in varchar2 default hr_api.g_varchar2,
1076 p_from_segment23 in varchar2 default hr_api.g_varchar2,
1077 p_from_segment24 in varchar2 default hr_api.g_varchar2,
1078 p_from_segment25 in varchar2 default hr_api.g_varchar2,
1079 p_from_segment26 in varchar2 default hr_api.g_varchar2,
1080 p_from_segment27 in varchar2 default hr_api.g_varchar2,
1081 p_from_segment28 in varchar2 default hr_api.g_varchar2,
1082 p_from_segment29 in varchar2 default hr_api.g_varchar2,
1083 p_from_segment30 in varchar2 default hr_api.g_varchar2,
1084 p_to_segment1 in varchar2 default hr_api.g_varchar2,
1085 p_to_segment2 in varchar2 default hr_api.g_varchar2,
1086 p_to_segment3 in varchar2 default hr_api.g_varchar2,
1087 p_to_segment4 in varchar2 default hr_api.g_varchar2,
1088 p_to_segment5 in varchar2 default hr_api.g_varchar2,
1089 p_to_segment6 in varchar2 default hr_api.g_varchar2,
1090 p_to_segment7 in varchar2 default hr_api.g_varchar2,
1091 p_to_segment8 in varchar2 default hr_api.g_varchar2,
1092 p_to_segment9 in varchar2 default hr_api.g_varchar2,
1093 p_to_segment10 in varchar2 default hr_api.g_varchar2,
1094 p_to_segment11 in varchar2 default hr_api.g_varchar2,
1095 p_to_segment12 in varchar2 default hr_api.g_varchar2,
1096 p_to_segment13 in varchar2 default hr_api.g_varchar2,
1097 p_to_segment14 in varchar2 default hr_api.g_varchar2,
1098 p_to_segment15 in varchar2 default hr_api.g_varchar2,
1099 p_to_segment16 in varchar2 default hr_api.g_varchar2,
1100 p_to_segment17 in varchar2 default hr_api.g_varchar2,
1101 p_to_segment18 in varchar2 default hr_api.g_varchar2,
1102 p_to_segment19 in varchar2 default hr_api.g_varchar2,
1103 p_to_segment20 in varchar2 default hr_api.g_varchar2,
1104 p_to_segment21 in varchar2 default hr_api.g_varchar2,
1105 p_to_segment22 in varchar2 default hr_api.g_varchar2,
1106 p_to_segment23 in varchar2 default hr_api.g_varchar2,
1107 p_to_segment24 in varchar2 default hr_api.g_varchar2,
1108 p_to_segment25 in varchar2 default hr_api.g_varchar2,
1109 p_to_segment26 in varchar2 default hr_api.g_varchar2,
1110 p_to_segment27 in varchar2 default hr_api.g_varchar2,
1111 p_to_segment28 in varchar2 default hr_api.g_varchar2,
1112 p_to_segment29 in varchar2 default hr_api.g_varchar2,
1113 p_to_segment30 in varchar2 default hr_api.g_varchar2,
1114 p_transfer_from_cc_id in number default hr_api.g_number,
1115 p_transfer_to_cc_id in number default hr_api.g_number,
1116 p_validate in boolean default false,
1117 p_transaction_type in varchar2 default 'UPDATE'
1118 ) is
1119 --
1120 l_rec ota_tfh_api_shd.g_rec_type;
1121 l_proc varchar2(72) := g_package||'upd';
1122 --
1123 Begin
1124 hr_utility.set_location('Entering:'||l_proc, 5);
1125 --
1126 -- Call conversion function to turn arguments into the
1127 -- l_rec structure.
1128 --
1129 l_rec :=
1130 ota_tfh_api_shd.convert_args
1131 (
1132 p_finance_header_id,
1133 p_superceding_header_id,
1134 p_authorizer_person_id,
1135 p_organization_id,
1136 p_administrator,
1137 p_cancelled_flag,
1138 p_currency_code,
1139 p_date_raised,
1140 p_object_version_number,
1141 p_payment_status_flag,
1142 p_transfer_status,
1143 p_type,
1144 p_receivable_type,
1145 p_comments,
1146 p_external_reference,
1147 p_invoice_address,
1148 p_invoice_contact,
1149 p_payment_method,
1150 p_pym_attribute1,
1151 p_pym_attribute10,
1152 p_pym_attribute11,
1153 p_pym_attribute12,
1154 p_pym_attribute13,
1155 p_pym_attribute14,
1156 p_pym_attribute15,
1157 p_pym_attribute16,
1158 p_pym_attribute17,
1159 p_pym_attribute18,
1160 p_pym_attribute19,
1161 p_pym_attribute2,
1162 p_pym_attribute20,
1163 p_pym_attribute3,
1164 p_pym_attribute4,
1165 p_pym_attribute5,
1166 p_pym_attribute6,
1167 p_pym_attribute7,
1168 p_pym_attribute8,
1169 p_pym_attribute9,
1170 p_pym_information_category,
1171 p_transfer_date,
1172 p_transfer_message,
1173 p_vendor_id,
1174 p_contact_id,
1175 p_address_id,
1176 p_customer_id,
1177 p_tfh_information_category,
1178 p_tfh_information1,
1179 p_tfh_information2,
1180 p_tfh_information3,
1181 p_tfh_information4,
1182 p_tfh_information5,
1183 p_tfh_information6,
1184 p_tfh_information7,
1185 p_tfh_information8,
1186 p_tfh_information9,
1187 p_tfh_information10,
1188 p_tfh_information11,
1189 p_tfh_information12,
1190 p_tfh_information13,
1191 p_tfh_information14,
1192 p_tfh_information15,
1193 p_tfh_information16,
1194 p_tfh_information17,
1195 p_tfh_information18,
1196 p_tfh_information19,
1197 p_tfh_information20,
1198 p_paying_cost_center,
1199 p_receiving_cost_center,
1200 p_transfer_from_set_of_book_id,
1201 p_transfer_to_set_of_book_id,
1202 p_from_segment1,
1203 p_from_segment2,
1204 p_from_segment3,
1205 p_from_segment4,
1206 p_from_segment5,
1207 p_from_segment6,
1208 p_from_segment7,
1209 p_from_segment8,
1210 p_from_segment9,
1211 p_from_segment10,
1212 p_from_segment11,
1213 p_from_segment12,
1214 p_from_segment13,
1215 p_from_segment14,
1216 p_from_segment15,
1217 p_from_segment16,
1218 p_from_segment17,
1219 p_from_segment18,
1220 p_from_segment19,
1221 p_from_segment20,
1222 p_from_segment21,
1223 p_from_segment22,
1224 p_from_segment23,
1225 p_from_segment24,
1226 p_from_segment25,
1227 p_from_segment26,
1228 p_from_segment27,
1229 p_from_segment28,
1230 p_from_segment29,
1231 p_from_segment30,
1232 p_to_segment1,
1233 p_to_segment2,
1234 p_to_segment3,
1235 p_to_segment4,
1236 p_to_segment5,
1237 p_to_segment6,
1238 p_to_segment7,
1239 p_to_segment8,
1240 p_to_segment9,
1241 p_to_segment10,
1242 p_to_segment11,
1243 p_to_segment12,
1244 p_to_segment13,
1245 p_to_segment14,
1246 p_to_segment15,
1247 p_to_segment16,
1248 p_to_segment17,
1249 p_to_segment18,
1250 p_to_segment19,
1251 p_to_segment20,
1252 p_to_segment21,
1253 p_to_segment22,
1254 p_to_segment23,
1255 p_to_segment24,
1256 p_to_segment25,
1257 p_to_segment26,
1258 p_to_segment27,
1259 p_to_segment28,
1260 p_to_segment29,
1261 p_to_segment30,
1262 p_transfer_from_cc_id,
1263 p_transfer_to_cc_id
1264 );
1265 --
1266 -- Having converted the arguments into the
1267 -- plsql record structure we call the corresponding record
1268 -- business process.
1269 --
1270 upd(l_rec, p_validate, p_transaction_type);
1271 p_object_version_number := l_rec.object_version_number;
1272 --
1273 hr_utility.set_location(' Leaving:'||l_proc, 10);
1274 End upd;
1275 --
1276 end ota_tfh_api_upd;