[Home] [Help]
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
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
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
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
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
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
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
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
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;
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: -- ----------------------------------------------------------------------------
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
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
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: --
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
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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: --
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: --
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);
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: );
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);
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,