[Home] [Help]
PACKAGE BODY: APPS.OTA_TFH_API_SHD
Source
1 Package Body ota_tfh_api_shd 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_shd.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |------------------------< return_api_dml_status >-------------------------|
12 -- ----------------------------------------------------------------------------
13 Function return_api_dml_status Return Boolean Is
14 --
15 l_proc varchar2(72) := g_package||'return_api_dml_status';
16 --
17 Begin
18 hr_utility.set_location('Entering:'||l_proc, 5);
19 --
20 Return (nvl(g_api_dml, false));
21 --
22 hr_utility.set_location(' Leaving:'||l_proc, 10);
23 End return_api_dml_status;
24 --
25 -- ----------------------------------------------------------------------------
26 -- |---------------------------< constraint_error >---------------------------|
27 -- ----------------------------------------------------------------------------
28 Procedure constraint_error
29 (p_constraint_name in varchar2) Is
30 --
31 l_proc varchar2(72) := g_package||'constraint_error';
32 --
33 Begin
34 hr_utility.set_location('Entering:'||l_proc, 5);
35 --
36 If (p_constraint_name = 'OTA_FINANCE_HEADERS_FK1') Then
37 fnd_message.set_name('OTA','OTA_13362_TFH_SUPER_INVALID');
38 fnd_message.raise_error;
39 ElsIf (p_constraint_name = 'OTA_FINANCE_HEADERS_FK2') Then
40 fnd_message.set_name('OTA','OTA_13268_TFH_INVALID_ORG');
41 fnd_message.raise_error;
42 ElsIf (p_constraint_name = 'OTA_FINANCE_HEADERS_PK') Then
43 fnd_message.set_name('OTA','');
44 fnd_message.raise_error;
45 ElsIf (p_constraint_name = 'OTA_TFH_CANCELLED_FLAG_CHK') Then
46 fnd_message.set_name('OTA','OTA_13255_TFH_INVALID_CANCEL');
47 fnd_message.raise_error;
48 ElsIf (p_constraint_name = 'OTA_TFH_PAYMENT_STATUS_FLA_CHK') Then
49 fnd_message.set_name('OTA','OTA_13248_TFH_INVALID_PAY_STA');
50 fnd_message.raise_error;
51 ElsIf (p_constraint_name = 'OTA_TFH_TRANSFER_STATUS_CHK') Then
52 fnd_message.set_name('OTA','OTA_13232_TFH_INVALID_TRANS_ST');
53 fnd_message.raise_error;
54 ElsIf (p_constraint_name = 'OTA_TFH_TYPE_CHK') Then
55 fnd_message.set_name('OTA','OTA_13230_TFH_INVALID_TYPE');
56 fnd_message.raise_error;
57 ElsIf (p_constraint_name = 'OTA_TFH_RECEIVABLE_TYPE_CHK') Then
58 fnd_message.set_name('OTA','OTA_13463_TFH_WRONG_REC_TYPE');
59 fnd_message.raise_error;
60 ElsIf (p_constraint_name = 'OTA_TFH_RECEIVABLE_ATTRIBUTES') Then
61 fnd_message.set_name('OTA','OTA_13282_TFH_RECEIVABLE_ATTS');
62 fnd_message.raise_error;
63 ElsIf (p_constraint_name = 'OTA_TFH_PAYABLE_ATTRIBUTES') Then
64 fnd_message.set_name('OTA','OTA_13277_TFH_PAYABLE_ATTS');
65 fnd_message.raise_error;
66 ElsIf (p_constraint_name = 'OTA_TFH_CANCELLED_ATTRIBUTES') Then
67 fnd_message.set_name('OTA','OTA_13279_TFH_CANCEL_ATTS');
68 fnd_message.raise_error;
69 ElsIf (p_constraint_name = 'OTA_TFH_CHECK_TRANSFER_ATTRIBUTES') Then
70 fnd_message.set_name('OTA','OTA_13363_TFH_TRANS_ATTS');
71 fnd_message.raise_error;
72 Else
73 hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
74 hr_utility.set_message_token('PROCEDURE', l_proc);
75 hr_utility.set_message_token('STEP',p_constraint_name);
76 hr_utility.raise_error;
77 End If;
78 --
79 hr_utility.set_location(' Leaving:'||l_proc, 10);
80 End constraint_error;
81 --
82 -- ----------------------------------------------------------------------------
83 -- |-----------------------------< api_updating >-----------------------------|
84 -- ----------------------------------------------------------------------------
85 Function api_updating
86 (
87 p_finance_header_id in number,
88 p_object_version_number in number
89 ) Return Boolean Is
90 --
91 --
92 -- Cursor selects the 'current' row from the HR Schema
93 --
94 Cursor C_Sel1 is
95 select
96 finance_header_id,
97 superceding_header_id,
98 authorizer_person_id,
99 organization_id,
100 administrator,
101 cancelled_flag,
102 currency_code,
103 date_raised,
104 object_version_number,
105 payment_status_flag,
106 transfer_status,
107 type,
108 receivable_type,
109 comments,
110 external_reference,
111 invoice_address,
112 invoice_contact,
113 payment_method,
114 pym_attribute1,
115 pym_attribute10,
116 pym_attribute11,
117 pym_attribute12,
118 pym_attribute13,
119 pym_attribute14,
120 pym_attribute15,
121 pym_attribute16,
122 pym_attribute17,
123 pym_attribute18,
124 pym_attribute19,
125 pym_attribute2,
126 pym_attribute20,
127 pym_attribute3,
128 pym_attribute4,
129 pym_attribute5,
130 pym_attribute6,
131 pym_attribute7,
132 pym_attribute8,
133 pym_attribute9,
134 pym_information_category,
135 transfer_date,
136 transfer_message,
137 vendor_id,
138 contact_id,
139 address_id,
140 customer_id,
141 tfh_information_category,
142 tfh_information1,
143 tfh_information2,
144 tfh_information3,
145 tfh_information4,
146 tfh_information5,
147 tfh_information6,
148 tfh_information7,
149 tfh_information8,
150 tfh_information9,
151 tfh_information10,
152 tfh_information11,
153 tfh_information12,
154 tfh_information13,
155 tfh_information14,
156 tfh_information15,
157 tfh_information16,
158 tfh_information17,
159 tfh_information18,
160 tfh_information19,
161 tfh_information20,
162 paying_cost_center,
163 receiving_cost_center,
164 transfer_from_set_of_books_id,
165 transfer_to_set_of_books_id,
166 from_segment1,
167 from_segment2,
168 from_segment3,
169 from_segment4,
170 from_segment5,
171 from_segment6,
172 from_segment7,
173 from_segment8,
174 from_segment9,
175 from_segment10,
176 from_segment11,
177 from_segment12,
178 from_segment13,
179 from_segment14,
180 from_segment15,
181 from_segment16,
182 from_segment17,
183 from_segment18,
184 from_segment19,
185 from_segment20,
186 from_segment21,
187 from_segment22,
188 from_segment23,
189 from_segment24,
190 from_segment25,
191 from_segment26,
192 from_segment27,
193 from_segment28,
194 from_segment29,
195 from_segment30,
196 to_segment1,
197 to_segment2,
198 to_segment3,
199 to_segment4,
200 to_segment5,
201 to_segment6,
202 to_segment7,
203 to_segment8,
204 to_segment9,
205 to_segment10,
206 to_segment11,
207 to_segment12,
208 to_segment13,
209 to_segment14,
210 to_segment15,
211 to_segment16,
212 to_segment17,
213 to_segment18,
214 to_segment19,
215 to_segment20,
216 to_segment21,
217 to_segment22,
218 to_segment23,
219 to_segment24,
220 to_segment25,
221 to_segment26,
222 to_segment27,
223 to_segment28,
224 to_segment29,
225 to_segment30,
226 transfer_from_cc_id,
227 transfer_to_cc_id
228 from ota_finance_headers
229 where finance_header_id = p_finance_header_id;
230 --
231 l_proc varchar2(72) := g_package||'api_updating';
232 l_fct_ret boolean;
233 --
234 Begin
235 hr_utility.set_location('Entering:'||l_proc, 5);
236 --
237 If (
238 p_finance_header_id is null and
239 p_object_version_number is null
240 ) Then
241 --
242 -- One of the primary key arguments is null therefore we must
243 -- set the returning function value to false
244 --
245 l_fct_ret := false;
246 Else
247 If (
248 p_finance_header_id = g_old_rec.finance_header_id and
249 p_object_version_number = g_old_rec.object_version_number
250 ) Then
251 hr_utility.set_location(l_proc, 10);
252 --
253 -- The g_old_rec is current therefore we must
254 -- set the returning function to true
255 --
256 l_fct_ret := true;
257 Else
258 --
259 -- Select the current row into g_old_rec
260 --
261 Open C_Sel1;
262 Fetch C_Sel1 Into g_old_rec;
263 If C_Sel1%notfound Then
264 Close C_Sel1;
265 --
266 -- The primary key is invalid therefore we must error
267 --
268 hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
269 hr_utility.raise_error;
270 End If;
271 Close C_Sel1;
272 If (p_object_version_number <> g_old_rec.object_version_number) Then
273 hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
274 hr_utility.raise_error;
275 End If;
276 hr_utility.set_location(l_proc, 15);
277 l_fct_ret := true;
278 End If;
279 End If;
280 hr_utility.set_location(' Leaving:'||l_proc, 20);
281 Return (l_fct_ret);
282 --
283 End api_updating;
284 --
285 -- ----------------------------------------------------------------------------
286 -- |---------------------------------< lck >----------------------------------|
287 -- ----------------------------------------------------------------------------
288 Procedure lck
289 (
290 p_finance_header_id in number,
291 p_object_version_number in number
292 ) is
293 --
294 -- Cursor selects the 'current' row from the HR Schema
295 --
296 Cursor C_Sel1 is
297 select finance_header_id,
298 superceding_header_id,
299 authorizer_person_id,
300 organization_id,
301 administrator,
302 cancelled_flag,
303 currency_code,
304 date_raised,
305 object_version_number,
306 payment_status_flag,
307 transfer_status,
308 type,
309 receivable_type,
310 comments,
311 external_reference,
312 invoice_address,
313 invoice_contact,
314 payment_method,
315 pym_attribute1,
316 pym_attribute10,
317 pym_attribute11,
318 pym_attribute12,
319 pym_attribute13,
320 pym_attribute14,
321 pym_attribute15,
322 pym_attribute16,
323 pym_attribute17,
324 pym_attribute18,
325 pym_attribute19,
326 pym_attribute2,
327 pym_attribute20,
328 pym_attribute3,
329 pym_attribute4,
330 pym_attribute5,
331 pym_attribute6,
332 pym_attribute7,
333 pym_attribute8,
334 pym_attribute9,
335 pym_information_category,
336 transfer_date,
337 transfer_message,
338 vendor_id,
339 contact_id,
340 address_id,
341 customer_id,
342 tfh_information_category,
343 tfh_information1,
344 tfh_information2,
345 tfh_information3,
346 tfh_information4,
347 tfh_information5,
348 tfh_information6,
349 tfh_information7,
350 tfh_information8,
351 tfh_information9,
352 tfh_information10,
353 tfh_information11,
354 tfh_information12,
355 tfh_information13,
356 tfh_information14,
357 tfh_information15,
358 tfh_information16,
359 tfh_information17,
360 tfh_information18,
361 tfh_information19,
362 tfh_information20,
363 paying_cost_center,
364 receiving_cost_center,
365 transfer_from_set_of_books_id,
366 transfer_to_set_of_books_id,
367 from_segment1,
368 from_segment2,
369 from_segment3,
370 from_segment4,
371 from_segment5,
372 from_segment6,
373 from_segment7,
374 from_segment8,
375 from_segment9,
376 from_segment10,
377 from_segment11,
378 from_segment12,
379 from_segment13,
380 from_segment14,
381 from_segment15,
382 from_segment16,
383 from_segment17,
384 from_segment18,
385 from_segment19,
386 from_segment20,
387 from_segment21,
388 from_segment22,
389 from_segment23,
390 from_segment24,
391 from_segment25,
392 from_segment26,
393 from_segment27,
394 from_segment28,
395 from_segment29,
396 from_segment30,
397 to_segment1,
398 to_segment2,
399 to_segment3,
400 to_segment4,
401 to_segment5,
402 to_segment6,
403 to_segment7,
404 to_segment8,
405 to_segment9,
406 to_segment10,
407 to_segment11,
408 to_segment12,
409 to_segment13,
410 to_segment14,
411 to_segment15,
412 to_segment16,
413 to_segment17,
414 to_segment18,
415 to_segment19,
416 to_segment20,
417 to_segment21,
418 to_segment22,
419 to_segment23,
420 to_segment24,
421 to_segment25,
422 to_segment26,
423 to_segment27,
424 to_segment28,
425 to_segment29,
426 to_segment30,
427 transfer_from_cc_id,
428 transfer_to_cc_id
429 from ota_finance_headers
430 where finance_header_id = p_finance_header_id
431 for update nowait;
432 --
433 l_proc varchar2(72) := g_package||'lck';
434 --
435 Begin
436 hr_utility.set_location('Entering:'||l_proc, 5);
437 --
438 -- Add any mandatory argument checking here:
439 -- Example:
440 -- hr_api.mandatory_arg_error
441 -- (p_api_name => l_proc,
442 -- p_argument => 'object_version_number',
446 Fetch C_Sel1 Into g_old_rec;
443 -- p_argument_value => p_object_version_number);
444 --
445 Open C_Sel1;
447 If C_Sel1%notfound then
448 Close C_Sel1;
449 --
450 -- The primary key is invalid therefore we must error
451 --
452 hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
453 hr_utility.raise_error;
454 End If;
455 Close C_Sel1;
456 If (p_object_version_number <> g_old_rec.object_version_number) Then
457 hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
458 hr_utility.raise_error;
459 End If;
460 --
461 hr_utility.set_location(' Leaving:'||l_proc, 10);
462 --
463 -- We need to trap the ORA LOCK exception
464 --
465 Exception
466 When HR_Api.Object_Locked then
467 --
468 -- The object is locked therefore we need to supply a meaningful
469 -- error message.
470 --
471 hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
472 hr_utility.set_message_token('TABLE_NAME', 'ota_finance_headers');
473 hr_utility.raise_error;
474 End lck;
475 --
476 -- ----------------------------------------------------------------------------
477 -- |-----------------------------< convert_args >-----------------------------|
478 -- ----------------------------------------------------------------------------
479 Function convert_args
480 (
481 p_finance_header_id in number,
482 p_superceding_header_id in number,
483 p_authorizer_person_id in number,
484 p_organization_id in number,
485 p_administrator in number,
486 p_cancelled_flag in varchar2,
487 p_currency_code in varchar2,
488 p_date_raised in date,
489 p_object_version_number in number,
490 p_payment_status_flag in varchar2,
491 p_transfer_status in varchar2,
492 p_type in varchar2,
493 p_receivable_type in varchar2,
494 p_comments in varchar2,
495 p_external_reference in varchar2,
496 p_invoice_address in varchar2,
497 p_invoice_contact in varchar2,
498 p_payment_method in varchar2,
499 p_pym_attribute1 in varchar2,
500 p_pym_attribute10 in varchar2,
501 p_pym_attribute11 in varchar2,
502 p_pym_attribute12 in varchar2,
503 p_pym_attribute13 in varchar2,
504 p_pym_attribute14 in varchar2,
505 p_pym_attribute15 in varchar2,
506 p_pym_attribute16 in varchar2,
507 p_pym_attribute17 in varchar2,
508 p_pym_attribute18 in varchar2,
509 p_pym_attribute19 in varchar2,
510 p_pym_attribute2 in varchar2,
511 p_pym_attribute20 in varchar2,
512 p_pym_attribute3 in varchar2,
513 p_pym_attribute4 in varchar2,
514 p_pym_attribute5 in varchar2,
515 p_pym_attribute6 in varchar2,
516 p_pym_attribute7 in varchar2,
517 p_pym_attribute8 in varchar2,
518 p_pym_attribute9 in varchar2,
519 p_pym_information_category in varchar2,
520 p_transfer_date in date,
521 p_transfer_message in varchar2,
522 p_vendor_id in number,
523 p_contact_id in number,
524 p_address_id in number,
525 p_customer_id in number,
526 p_tfh_information_category in varchar2,
527 p_tfh_information1 in varchar2,
528 p_tfh_information2 in varchar2,
529 p_tfh_information3 in varchar2,
530 p_tfh_information4 in varchar2,
531 p_tfh_information5 in varchar2,
532 p_tfh_information6 in varchar2,
533 p_tfh_information7 in varchar2,
534 p_tfh_information8 in varchar2,
535 p_tfh_information9 in varchar2,
536 p_tfh_information10 in varchar2,
537 p_tfh_information11 in varchar2,
538 p_tfh_information12 in varchar2,
539 p_tfh_information13 in varchar2,
540 p_tfh_information14 in varchar2,
541 p_tfh_information15 in varchar2,
542 p_tfh_information16 in varchar2,
543 p_tfh_information17 in varchar2,
544 p_tfh_information18 in varchar2,
545 p_tfh_information19 in varchar2,
546 p_tfh_information20 in varchar2,
547 p_paying_cost_center in varchar2,
548 p_receiving_cost_center in varchar2,
549 p_transfer_from_set_of_book_id in number,
550 p_transfer_to_set_of_book_id in number,
551 p_from_segment1 in varchar2,
552 p_from_segment2 in varchar2,
553 p_from_segment3 in varchar2,
554 p_from_segment4 in varchar2,
555 p_from_segment5 in varchar2,
556 p_from_segment6 in varchar2,
557 p_from_segment7 in varchar2,
558 p_from_segment8 in varchar2,
559 p_from_segment9 in varchar2,
560 p_from_segment10 in varchar2,
564 p_from_segment14 in varchar2,
561 p_from_segment11 in varchar2,
562 p_from_segment12 in varchar2,
563 p_from_segment13 in varchar2,
565 p_from_segment15 in varchar2,
566 p_from_segment16 in varchar2,
567 p_from_segment17 in varchar2,
568 p_from_segment18 in varchar2,
569 p_from_segment19 in varchar2,
570 p_from_segment20 in varchar2,
571 p_from_segment21 in varchar2,
572 p_from_segment22 in varchar2,
573 p_from_segment23 in varchar2,
574 p_from_segment24 in varchar2,
575 p_from_segment25 in varchar2,
576 p_from_segment26 in varchar2,
577 p_from_segment27 in varchar2,
578 p_from_segment28 in varchar2,
579 p_from_segment29 in varchar2,
580 p_from_segment30 in varchar2,
581 p_to_segment1 in varchar2,
582 p_to_segment2 in varchar2,
583 p_to_segment3 in varchar2,
584 p_to_segment4 in varchar2,
585 p_to_segment5 in varchar2,
586 p_to_segment6 in varchar2,
587 p_to_segment7 in varchar2,
588 p_to_segment8 in varchar2,
589 p_to_segment9 in varchar2,
590 p_to_segment10 in varchar2,
591 p_to_segment11 in varchar2,
592 p_to_segment12 in varchar2,
593 p_to_segment13 in varchar2,
594 p_to_segment14 in varchar2,
595 p_to_segment15 in varchar2,
596 p_to_segment16 in varchar2,
597 p_to_segment17 in varchar2,
598 p_to_segment18 in varchar2,
599 p_to_segment19 in varchar2,
600 p_to_segment20 in varchar2,
601 p_to_segment21 in varchar2,
602 p_to_segment22 in varchar2,
603 p_to_segment23 in varchar2,
604 p_to_segment24 in varchar2,
605 p_to_segment25 in varchar2,
606 p_to_segment26 in varchar2,
607 p_to_segment27 in varchar2,
608 p_to_segment28 in varchar2,
609 p_to_segment29 in varchar2,
610 p_to_segment30 in varchar2,
611 p_transfer_from_cc_id in number,
612 p_transfer_to_cc_id in number
613 )
614 Return g_rec_type is
615 --
616 l_rec g_rec_type;
617 l_proc varchar2(72) := g_package||'convert_args';
618 --
619 Begin
620 --
621 hr_utility.set_location('Entering:'||l_proc, 5);
622 --
623 -- Convert arguments into local l_rec structure.
624 --
625 l_rec.finance_header_id := p_finance_header_id;
626 l_rec.superceding_header_id := p_superceding_header_id;
627 l_rec.authorizer_person_id := p_authorizer_person_id;
628 l_rec.organization_id := p_organization_id;
629 l_rec.administrator := p_administrator;
630 l_rec.cancelled_flag := p_cancelled_flag;
631 l_rec.currency_code := p_currency_code;
632 l_rec.date_raised := p_date_raised;
633 l_rec.object_version_number := p_object_version_number;
634 l_rec.payment_status_flag := p_payment_status_flag;
635 l_rec.transfer_status := p_transfer_status;
636 l_rec.type := p_type;
637 l_rec.receivable_type := p_receivable_type;
638 l_rec.comments := p_comments;
639 l_rec.external_reference := p_external_reference;
640 l_rec.invoice_address := p_invoice_address;
641 l_rec.invoice_contact := p_invoice_contact;
642 l_rec.payment_method := p_payment_method;
643 l_rec.pym_attribute1 := p_pym_attribute1;
644 l_rec.pym_attribute10 := p_pym_attribute10;
645 l_rec.pym_attribute11 := p_pym_attribute11;
646 l_rec.pym_attribute12 := p_pym_attribute12;
647 l_rec.pym_attribute13 := p_pym_attribute13;
648 l_rec.pym_attribute14 := p_pym_attribute14;
649 l_rec.pym_attribute15 := p_pym_attribute15;
650 l_rec.pym_attribute16 := p_pym_attribute16;
651 l_rec.pym_attribute17 := p_pym_attribute17;
652 l_rec.pym_attribute18 := p_pym_attribute18;
653 l_rec.pym_attribute19 := p_pym_attribute19;
654 l_rec.pym_attribute2 := p_pym_attribute2;
655 l_rec.pym_attribute20 := p_pym_attribute20;
656 l_rec.pym_attribute3 := p_pym_attribute3;
657 l_rec.pym_attribute4 := p_pym_attribute4;
658 l_rec.pym_attribute5 := p_pym_attribute5;
659 l_rec.pym_attribute6 := p_pym_attribute6;
663 l_rec.pym_information_category := p_pym_information_category;
660 l_rec.pym_attribute7 := p_pym_attribute7;
661 l_rec.pym_attribute8 := p_pym_attribute8;
662 l_rec.pym_attribute9 := p_pym_attribute9;
664 l_rec.transfer_date := p_transfer_date;
665 l_rec.transfer_message := p_transfer_message;
666 l_rec.vendor_id := p_vendor_id;
667 l_rec.contact_id := p_contact_id;
668 l_rec.address_id := p_address_id;
669 l_rec.customer_id := p_customer_id;
670 l_rec.tfh_information_category := p_tfh_information_category;
671 l_rec.tfh_information1 := p_tfh_information1;
672 l_rec.tfh_information2 := p_tfh_information2;
673 l_rec.tfh_information3 := p_tfh_information3;
674 l_rec.tfh_information4 := p_tfh_information4;
675 l_rec.tfh_information5 := p_tfh_information5;
676 l_rec.tfh_information6 := p_tfh_information6;
677 l_rec.tfh_information7 := p_tfh_information7;
678 l_rec.tfh_information8 := p_tfh_information8;
679 l_rec.tfh_information9 := p_tfh_information9;
680 l_rec.tfh_information10 := p_tfh_information10;
681 l_rec.tfh_information11 := p_tfh_information11;
682 l_rec.tfh_information12 := p_tfh_information12;
683 l_rec.tfh_information13 := p_tfh_information13;
684 l_rec.tfh_information14 := p_tfh_information14;
685 l_rec.tfh_information15 := p_tfh_information15;
686 l_rec.tfh_information16 := p_tfh_information16;
687 l_rec.tfh_information17 := p_tfh_information17;
688 l_rec.tfh_information18 := p_tfh_information18;
689 l_rec.tfh_information19 := p_tfh_information19;
690 l_rec.tfh_information20 := p_tfh_information20;
691 l_rec.paying_cost_center := p_paying_cost_center;
692 l_rec.receiving_cost_center := p_receiving_cost_center;
693 l_rec.transfer_from_set_of_book_id := p_transfer_from_set_of_book_id;
694 l_rec.transfer_to_set_of_book_id := p_transfer_to_set_of_book_id;
695 l_rec.from_segment1 := p_from_segment1;
696 l_rec.from_segment2 := p_from_segment2;
697 l_rec.from_segment3 := p_from_segment3;
698 l_rec.from_segment4 := p_from_segment4;
699 l_rec.from_segment5 := p_from_segment5;
700 l_rec.from_segment6 := p_from_segment6;
701 l_rec.from_segment7 := p_from_segment7;
702 l_rec.from_segment8 := p_from_segment8;
703 l_rec.from_segment9 := p_from_segment9;
704 l_rec.from_segment10 := p_from_segment10;
705 l_rec.from_segment11 := p_from_segment11;
706 l_rec.from_segment12 := p_from_segment12;
707 l_rec.from_segment13 := p_from_segment13;
708 l_rec.from_segment14 := p_from_segment14;
709 l_rec.from_segment15 := p_from_segment15;
710 l_rec.from_segment16 := p_from_segment16;
711 l_rec.from_segment17 := p_from_segment17;
712 l_rec.from_segment18 := p_from_segment18;
713 l_rec.from_segment19 := p_from_segment19;
714 l_rec.from_segment20 := p_from_segment20;
715 l_rec.from_segment21 := p_from_segment21;
716 l_rec.from_segment22 := p_from_segment22;
717 l_rec.from_segment23 := p_from_segment23;
718 l_rec.from_segment24 := p_from_segment24;
719 l_rec.from_segment25 := p_from_segment25;
720 l_rec.from_segment26 := p_from_segment26;
721 l_rec.from_segment27 := p_from_segment27;
722 l_rec.from_segment28 := p_from_segment28;
723 l_rec.from_segment29 := p_from_segment29;
724 l_rec.from_segment30 := p_from_segment30;
725 l_rec.to_segment1 := p_to_segment1;
726 l_rec.to_segment2 := p_to_segment2;
727 l_rec.to_segment3 := p_to_segment3;
728 l_rec.to_segment4 := p_to_segment4;
729 l_rec.to_segment5 := p_to_segment5;
730 l_rec.to_segment6 := p_to_segment6;
731 l_rec.to_segment7 := p_to_segment7;
732 l_rec.to_segment8 := p_to_segment8;
733 l_rec.to_segment9 := p_to_segment9;
734 l_rec.to_segment10 := p_to_segment10;
735 l_rec.to_segment11 := p_to_segment11;
736 l_rec.to_segment12 := p_to_segment12;
737 l_rec.to_segment13 := p_to_segment13;
738 l_rec.to_segment14 := p_to_segment14;
739 l_rec.to_segment15 := p_to_segment15;
740 l_rec.to_segment16 := p_to_segment16;
741 l_rec.to_segment17 := p_to_segment17;
742 l_rec.to_segment18 := p_to_segment18;
743 l_rec.to_segment19 := p_to_segment19;
744 l_rec.to_segment20 := p_to_segment20;
745 l_rec.to_segment21 := p_to_segment21;
746 l_rec.to_segment22 := p_to_segment22;
747 l_rec.to_segment23 := p_to_segment23;
748 l_rec.to_segment24 := p_to_segment24;
749 l_rec.to_segment25 := p_to_segment25;
750 l_rec.to_segment26 := p_to_segment26;
751 l_rec.to_segment27 := p_to_segment27;
752 l_rec.to_segment28 := p_to_segment28;
753 l_rec.to_segment29 := p_to_segment29;
754 l_rec.to_segment30 := p_to_segment30;
755 l_rec.transfer_from_cc_id := p_transfer_from_cc_id;
756 l_rec.transfer_to_cc_id := p_transfer_to_cc_id;
757 --
758 -- Return the plsql record structure.
759 --
760 hr_utility.set_location(' Leaving:'||l_proc, 10);
761 Return(l_rec);
762 --
763 End convert_args;
764 --
765 end ota_tfh_api_shd;