[Home] [Help]
50: -- Internal Development Use Only.
51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml(p_rec in out nocopy ota_tdb_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_tdb_shd.g_api_dml := true; -- Set the api dml status
66: --
67: -- Update the ota_delegate_bookings Row
68: --
69: update ota_delegate_bookings
144: booking_justification_id = p_rec.booking_justification_id,
145: is_history_flag = p_rec.is_history_flag
146: where booking_id = p_rec.booking_id;
147: --
148: ota_tdb_shd.g_api_dml := false; -- Unset the api dml status
149: --
150: hr_utility.set_location(' Leaving:'||l_proc, 10);
151: --
152: Exception
151: --
152: Exception
153: When hr_api.check_integrity_violated Then
154: -- A check constraint has been violated
155: ota_tdb_shd.g_api_dml := false; -- Unset the api dml status
156: ota_tdb_shd.constraint_error
157: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
158: When hr_api.parent_integrity_violated Then
159: -- Parent integrity has been violated
152: Exception
153: When hr_api.check_integrity_violated Then
154: -- A check constraint has been violated
155: ota_tdb_shd.g_api_dml := false; -- Unset the api dml status
156: ota_tdb_shd.constraint_error
157: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
158: When hr_api.parent_integrity_violated Then
159: -- Parent integrity has been violated
160: ota_tdb_shd.g_api_dml := false; -- Unset the api dml status
156: ota_tdb_shd.constraint_error
157: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
158: When hr_api.parent_integrity_violated Then
159: -- Parent integrity has been violated
160: ota_tdb_shd.g_api_dml := false; -- Unset the api dml status
161: ota_tdb_shd.constraint_error
162: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
163: When hr_api.unique_integrity_violated Then
164: -- Unique integrity has been violated
157: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
158: When hr_api.parent_integrity_violated Then
159: -- Parent integrity has been violated
160: ota_tdb_shd.g_api_dml := false; -- Unset the api dml status
161: ota_tdb_shd.constraint_error
162: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
163: When hr_api.unique_integrity_violated Then
164: -- Unique integrity has been violated
165: ota_tdb_shd.g_api_dml := false; -- Unset the api dml status
161: ota_tdb_shd.constraint_error
162: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
163: When hr_api.unique_integrity_violated Then
164: -- Unique integrity has been violated
165: ota_tdb_shd.g_api_dml := false; -- Unset the api dml status
166: ota_tdb_shd.constraint_error
167: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
168: When Others Then
169: ota_tdb_shd.g_api_dml := false; -- Unset the api dml status
162: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
163: When hr_api.unique_integrity_violated Then
164: -- Unique integrity has been violated
165: ota_tdb_shd.g_api_dml := false; -- Unset the api dml status
166: ota_tdb_shd.constraint_error
167: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
168: When Others Then
169: ota_tdb_shd.g_api_dml := false; -- Unset the api dml status
170: Raise;
165: ota_tdb_shd.g_api_dml := false; -- Unset the api dml status
166: ota_tdb_shd.constraint_error
167: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
168: When Others Then
169: ota_tdb_shd.g_api_dml := false; -- Unset the api dml status
170: Raise;
171: End update_dml;
172: --
173: -- ----------------------------------------------------------------------------
201: -- Internal Development Use Only.
202: --
203: -- {End Of Comments}
204: -- ----------------------------------------------------------------------------
205: Procedure pre_update(p_rec in ota_tdb_shd.g_rec_type) is
206: --
207: l_proc varchar2(72) := g_package||'pre_update';
208: --
209: Begin
252: --
253: -- {End Of Comments}
254: -- ----------------------------------------------------------------------------
255: Procedure post_update
256: (p_rec in ota_tdb_shd.g_rec_type) is
257: --
258: l_proc varchar2(72) := g_package||'post_update';
259:
260: --
315: -- Internal Development Use Only.
316: --
317: -- {End Of Comments}
318: -- ----------------------------------------------------------------------------
319: Function convert_defs(p_rec in out nocopy ota_tdb_shd.g_rec_type)
320: Return ota_tdb_shd.g_rec_type is
321: --
322: l_proc varchar2(72) := g_package||'convert_defs';
323: --
316: --
317: -- {End Of Comments}
318: -- ----------------------------------------------------------------------------
319: Function convert_defs(p_rec in out nocopy ota_tdb_shd.g_rec_type)
320: Return ota_tdb_shd.g_rec_type is
321: --
322: l_proc varchar2(72) := g_package||'convert_defs';
323: --
324: Begin
331: -- is being used then we must set to the 'current' argument value.
332: --
333: If (p_rec.booking_status_type_id = hr_api.g_number) then
334: p_rec.booking_status_type_id :=
335: ota_tdb_shd.g_old_rec.booking_status_type_id;
336: End If;
337: If (p_rec.delegate_person_id = hr_api.g_number) then
338: p_rec.delegate_person_id :=
339: ota_tdb_shd.g_old_rec.delegate_person_id;
335: ota_tdb_shd.g_old_rec.booking_status_type_id;
336: End If;
337: If (p_rec.delegate_person_id = hr_api.g_number) then
338: p_rec.delegate_person_id :=
339: ota_tdb_shd.g_old_rec.delegate_person_id;
340: End If;
341: If (p_rec.contact_id = hr_api.g_number) then
342: p_rec.contact_id :=
343: ota_tdb_shd.g_old_rec.contact_id;
339: ota_tdb_shd.g_old_rec.delegate_person_id;
340: End If;
341: If (p_rec.contact_id = hr_api.g_number) then
342: p_rec.contact_id :=
343: ota_tdb_shd.g_old_rec.contact_id;
344: End If;
345: If (p_rec.business_group_id = hr_api.g_number) then
346: p_rec.business_group_id :=
347: ota_tdb_shd.g_old_rec.business_group_id;
343: ota_tdb_shd.g_old_rec.contact_id;
344: End If;
345: If (p_rec.business_group_id = hr_api.g_number) then
346: p_rec.business_group_id :=
347: ota_tdb_shd.g_old_rec.business_group_id;
348: End If;
349: If (p_rec.event_id = hr_api.g_number) then
350: p_rec.event_id :=
351: ota_tdb_shd.g_old_rec.event_id;
347: ota_tdb_shd.g_old_rec.business_group_id;
348: End If;
349: If (p_rec.event_id = hr_api.g_number) then
350: p_rec.event_id :=
351: ota_tdb_shd.g_old_rec.event_id;
352: End If;
353: If (p_rec.customer_id = hr_api.g_number) then
354: p_rec.customer_id :=
355: ota_tdb_shd.g_old_rec.customer_id;
351: ota_tdb_shd.g_old_rec.event_id;
352: End If;
353: If (p_rec.customer_id = hr_api.g_number) then
354: p_rec.customer_id :=
355: ota_tdb_shd.g_old_rec.customer_id;
356: End If;
357: If (p_rec.authorizer_person_id = hr_api.g_number) then
358: p_rec.authorizer_person_id :=
359: ota_tdb_shd.g_old_rec.authorizer_person_id;
355: ota_tdb_shd.g_old_rec.customer_id;
356: End If;
357: If (p_rec.authorizer_person_id = hr_api.g_number) then
358: p_rec.authorizer_person_id :=
359: ota_tdb_shd.g_old_rec.authorizer_person_id;
360: End If;
361: If (p_rec.date_booking_placed = hr_api.g_date) then
362: p_rec.date_booking_placed :=
363: ota_tdb_shd.g_old_rec.date_booking_placed;
359: ota_tdb_shd.g_old_rec.authorizer_person_id;
360: End If;
361: If (p_rec.date_booking_placed = hr_api.g_date) then
362: p_rec.date_booking_placed :=
363: ota_tdb_shd.g_old_rec.date_booking_placed;
364: End If;
365: If (p_rec.corespondent = hr_api.g_varchar2) then
366: p_rec.corespondent :=
367: ota_tdb_shd.g_old_rec.corespondent;
363: ota_tdb_shd.g_old_rec.date_booking_placed;
364: End If;
365: If (p_rec.corespondent = hr_api.g_varchar2) then
366: p_rec.corespondent :=
367: ota_tdb_shd.g_old_rec.corespondent;
368: End If;
369: If (p_rec.internal_booking_flag = hr_api.g_varchar2) then
370: p_rec.internal_booking_flag :=
371: ota_tdb_shd.g_old_rec.internal_booking_flag;
367: ota_tdb_shd.g_old_rec.corespondent;
368: End If;
369: If (p_rec.internal_booking_flag = hr_api.g_varchar2) then
370: p_rec.internal_booking_flag :=
371: ota_tdb_shd.g_old_rec.internal_booking_flag;
372: End If;
373: If (p_rec.number_of_places = hr_api.g_number) then
374: p_rec.number_of_places :=
375: ota_tdb_shd.g_old_rec.number_of_places;
371: ota_tdb_shd.g_old_rec.internal_booking_flag;
372: End If;
373: If (p_rec.number_of_places = hr_api.g_number) then
374: p_rec.number_of_places :=
375: ota_tdb_shd.g_old_rec.number_of_places;
376: End If;
377: If (p_rec.administrator = hr_api.g_number) then
378: p_rec.administrator :=
379: ota_tdb_shd.g_old_rec.administrator;
375: ota_tdb_shd.g_old_rec.number_of_places;
376: End If;
377: If (p_rec.administrator = hr_api.g_number) then
378: p_rec.administrator :=
379: ota_tdb_shd.g_old_rec.administrator;
380: End If;
381: If (p_rec.booking_priority = hr_api.g_varchar2) then
382: p_rec.booking_priority :=
383: ota_tdb_shd.g_old_rec.booking_priority;
379: ota_tdb_shd.g_old_rec.administrator;
380: End If;
381: If (p_rec.booking_priority = hr_api.g_varchar2) then
382: p_rec.booking_priority :=
383: ota_tdb_shd.g_old_rec.booking_priority;
384: End If;
385: If (p_rec.comments = hr_api.g_varchar2) then
386: p_rec.comments :=
387: ota_tdb_shd.g_old_rec.comments;
383: ota_tdb_shd.g_old_rec.booking_priority;
384: End If;
385: If (p_rec.comments = hr_api.g_varchar2) then
386: p_rec.comments :=
387: ota_tdb_shd.g_old_rec.comments;
388: End If;
389: If (p_rec.contact_address_id = hr_api.g_number) then
390: p_rec.contact_address_id :=
391: ota_tdb_shd.g_old_rec.contact_address_id;
387: ota_tdb_shd.g_old_rec.comments;
388: End If;
389: If (p_rec.contact_address_id = hr_api.g_number) then
390: p_rec.contact_address_id :=
391: ota_tdb_shd.g_old_rec.contact_address_id;
392: End If;
393: If (p_rec.delegate_contact_phone = hr_api.g_varchar2) then
394: p_rec.delegate_contact_phone :=
395: ota_tdb_shd.g_old_rec.delegate_contact_phone;
391: ota_tdb_shd.g_old_rec.contact_address_id;
392: End If;
393: If (p_rec.delegate_contact_phone = hr_api.g_varchar2) then
394: p_rec.delegate_contact_phone :=
395: ota_tdb_shd.g_old_rec.delegate_contact_phone;
396: End If;
397: If (p_rec.delegate_contact_fax = hr_api.g_varchar2) then
398: p_rec.delegate_contact_fax :=
399: ota_tdb_shd.g_old_rec.delegate_contact_fax;
395: ota_tdb_shd.g_old_rec.delegate_contact_phone;
396: End If;
397: If (p_rec.delegate_contact_fax = hr_api.g_varchar2) then
398: p_rec.delegate_contact_fax :=
399: ota_tdb_shd.g_old_rec.delegate_contact_fax;
400: End If;
401: If (p_rec.third_party_customer_id = hr_api.g_number) then
402: p_rec.third_party_customer_id :=
403: ota_tdb_shd.g_old_rec.third_party_customer_id;
399: ota_tdb_shd.g_old_rec.delegate_contact_fax;
400: End If;
401: If (p_rec.third_party_customer_id = hr_api.g_number) then
402: p_rec.third_party_customer_id :=
403: ota_tdb_shd.g_old_rec.third_party_customer_id;
404: End If;
405: If (p_rec.third_party_contact_id = hr_api.g_number) then
406: p_rec.third_party_contact_id :=
407: ota_tdb_shd.g_old_rec.third_party_contact_id;
403: ota_tdb_shd.g_old_rec.third_party_customer_id;
404: End If;
405: If (p_rec.third_party_contact_id = hr_api.g_number) then
406: p_rec.third_party_contact_id :=
407: ota_tdb_shd.g_old_rec.third_party_contact_id;
408: End If;
409: If (p_rec.third_party_address_id = hr_api.g_number) then
410: p_rec.third_party_address_id :=
411: ota_tdb_shd.g_old_rec.third_party_address_id;
407: ota_tdb_shd.g_old_rec.third_party_contact_id;
408: End If;
409: If (p_rec.third_party_address_id = hr_api.g_number) then
410: p_rec.third_party_address_id :=
411: ota_tdb_shd.g_old_rec.third_party_address_id;
412: End If;
413: If (p_rec.third_party_contact_phone = hr_api.g_varchar2) then
414: p_rec.third_party_contact_phone :=
415: ota_tdb_shd.g_old_rec.third_party_contact_phone;
411: ota_tdb_shd.g_old_rec.third_party_address_id;
412: End If;
413: If (p_rec.third_party_contact_phone = hr_api.g_varchar2) then
414: p_rec.third_party_contact_phone :=
415: ota_tdb_shd.g_old_rec.third_party_contact_phone;
416: End If;
417: If (p_rec.third_party_contact_fax = hr_api.g_varchar2) then
418: p_rec.third_party_contact_fax :=
419: ota_tdb_shd.g_old_rec.third_party_contact_fax;
415: ota_tdb_shd.g_old_rec.third_party_contact_phone;
416: End If;
417: If (p_rec.third_party_contact_fax = hr_api.g_varchar2) then
418: p_rec.third_party_contact_fax :=
419: ota_tdb_shd.g_old_rec.third_party_contact_fax;
420: End If;
421: If (p_rec.date_status_changed = hr_api.g_date) then
422: p_rec.date_status_changed :=
423: ota_tdb_shd.g_old_rec.date_status_changed;
419: ota_tdb_shd.g_old_rec.third_party_contact_fax;
420: End If;
421: If (p_rec.date_status_changed = hr_api.g_date) then
422: p_rec.date_status_changed :=
423: ota_tdb_shd.g_old_rec.date_status_changed;
424: End If;
425: If (p_rec.failure_reason = hr_api.g_varchar2) then
426: p_rec.failure_reason :=
427: ota_tdb_shd.g_old_rec.failure_reason;
423: ota_tdb_shd.g_old_rec.date_status_changed;
424: End If;
425: If (p_rec.failure_reason = hr_api.g_varchar2) then
426: p_rec.failure_reason :=
427: ota_tdb_shd.g_old_rec.failure_reason;
428: End If;
429: If (p_rec.attendance_result = hr_api.g_varchar2) then
430: p_rec.attendance_result :=
431: ota_tdb_shd.g_old_rec.attendance_result;
427: ota_tdb_shd.g_old_rec.failure_reason;
428: End If;
429: If (p_rec.attendance_result = hr_api.g_varchar2) then
430: p_rec.attendance_result :=
431: ota_tdb_shd.g_old_rec.attendance_result;
432: End If;
433: If (p_rec.language_id = hr_api.g_number) then
434: p_rec.language_id :=
435: ota_tdb_shd.g_old_rec.language_id;
431: ota_tdb_shd.g_old_rec.attendance_result;
432: End If;
433: If (p_rec.language_id = hr_api.g_number) then
434: p_rec.language_id :=
435: ota_tdb_shd.g_old_rec.language_id;
436: End If;
437: If (p_rec.source_of_booking = hr_api.g_varchar2) then
438: p_rec.source_of_booking :=
439: ota_tdb_shd.g_old_rec.source_of_booking;
435: ota_tdb_shd.g_old_rec.language_id;
436: End If;
437: If (p_rec.source_of_booking = hr_api.g_varchar2) then
438: p_rec.source_of_booking :=
439: ota_tdb_shd.g_old_rec.source_of_booking;
440: End If;
441: If (p_rec.special_booking_instructions = hr_api.g_varchar2) then
442: p_rec.special_booking_instructions :=
443: ota_tdb_shd.g_old_rec.special_booking_instructions;
439: ota_tdb_shd.g_old_rec.source_of_booking;
440: End If;
441: If (p_rec.special_booking_instructions = hr_api.g_varchar2) then
442: p_rec.special_booking_instructions :=
443: ota_tdb_shd.g_old_rec.special_booking_instructions;
444: End If;
445: If (p_rec.successful_attendance_flag = hr_api.g_varchar2) then
446: p_rec.successful_attendance_flag :=
447: ota_tdb_shd.g_old_rec.successful_attendance_flag;
443: ota_tdb_shd.g_old_rec.special_booking_instructions;
444: End If;
445: If (p_rec.successful_attendance_flag = hr_api.g_varchar2) then
446: p_rec.successful_attendance_flag :=
447: ota_tdb_shd.g_old_rec.successful_attendance_flag;
448: End If;
449: If (p_rec.tdb_information_category = hr_api.g_varchar2) then
450: p_rec.tdb_information_category :=
451: ota_tdb_shd.g_old_rec.tdb_information_category;
447: ota_tdb_shd.g_old_rec.successful_attendance_flag;
448: End If;
449: If (p_rec.tdb_information_category = hr_api.g_varchar2) then
450: p_rec.tdb_information_category :=
451: ota_tdb_shd.g_old_rec.tdb_information_category;
452: End If;
453: If (p_rec.tdb_information1 = hr_api.g_varchar2) then
454: p_rec.tdb_information1 :=
455: ota_tdb_shd.g_old_rec.tdb_information1;
451: ota_tdb_shd.g_old_rec.tdb_information_category;
452: End If;
453: If (p_rec.tdb_information1 = hr_api.g_varchar2) then
454: p_rec.tdb_information1 :=
455: ota_tdb_shd.g_old_rec.tdb_information1;
456: End If;
457: If (p_rec.tdb_information2 = hr_api.g_varchar2) then
458: p_rec.tdb_information2 :=
459: ota_tdb_shd.g_old_rec.tdb_information2;
455: ota_tdb_shd.g_old_rec.tdb_information1;
456: End If;
457: If (p_rec.tdb_information2 = hr_api.g_varchar2) then
458: p_rec.tdb_information2 :=
459: ota_tdb_shd.g_old_rec.tdb_information2;
460: End If;
461: If (p_rec.tdb_information3 = hr_api.g_varchar2) then
462: p_rec.tdb_information3 :=
463: ota_tdb_shd.g_old_rec.tdb_information3;
459: ota_tdb_shd.g_old_rec.tdb_information2;
460: End If;
461: If (p_rec.tdb_information3 = hr_api.g_varchar2) then
462: p_rec.tdb_information3 :=
463: ota_tdb_shd.g_old_rec.tdb_information3;
464: End If;
465: If (p_rec.tdb_information4 = hr_api.g_varchar2) then
466: p_rec.tdb_information4 :=
467: ota_tdb_shd.g_old_rec.tdb_information4;
463: ota_tdb_shd.g_old_rec.tdb_information3;
464: End If;
465: If (p_rec.tdb_information4 = hr_api.g_varchar2) then
466: p_rec.tdb_information4 :=
467: ota_tdb_shd.g_old_rec.tdb_information4;
468: End If;
469: If (p_rec.tdb_information5 = hr_api.g_varchar2) then
470: p_rec.tdb_information5 :=
471: ota_tdb_shd.g_old_rec.tdb_information5;
467: ota_tdb_shd.g_old_rec.tdb_information4;
468: End If;
469: If (p_rec.tdb_information5 = hr_api.g_varchar2) then
470: p_rec.tdb_information5 :=
471: ota_tdb_shd.g_old_rec.tdb_information5;
472: End If;
473: If (p_rec.tdb_information6 = hr_api.g_varchar2) then
474: p_rec.tdb_information6 :=
475: ota_tdb_shd.g_old_rec.tdb_information6;
471: ota_tdb_shd.g_old_rec.tdb_information5;
472: End If;
473: If (p_rec.tdb_information6 = hr_api.g_varchar2) then
474: p_rec.tdb_information6 :=
475: ota_tdb_shd.g_old_rec.tdb_information6;
476: End If;
477: If (p_rec.tdb_information7 = hr_api.g_varchar2) then
478: p_rec.tdb_information7 :=
479: ota_tdb_shd.g_old_rec.tdb_information7;
475: ota_tdb_shd.g_old_rec.tdb_information6;
476: End If;
477: If (p_rec.tdb_information7 = hr_api.g_varchar2) then
478: p_rec.tdb_information7 :=
479: ota_tdb_shd.g_old_rec.tdb_information7;
480: End If;
481: If (p_rec.tdb_information8 = hr_api.g_varchar2) then
482: p_rec.tdb_information8 :=
483: ota_tdb_shd.g_old_rec.tdb_information8;
479: ota_tdb_shd.g_old_rec.tdb_information7;
480: End If;
481: If (p_rec.tdb_information8 = hr_api.g_varchar2) then
482: p_rec.tdb_information8 :=
483: ota_tdb_shd.g_old_rec.tdb_information8;
484: End If;
485: If (p_rec.tdb_information9 = hr_api.g_varchar2) then
486: p_rec.tdb_information9 :=
487: ota_tdb_shd.g_old_rec.tdb_information9;
483: ota_tdb_shd.g_old_rec.tdb_information8;
484: End If;
485: If (p_rec.tdb_information9 = hr_api.g_varchar2) then
486: p_rec.tdb_information9 :=
487: ota_tdb_shd.g_old_rec.tdb_information9;
488: End If;
489: If (p_rec.tdb_information10 = hr_api.g_varchar2) then
490: p_rec.tdb_information10 :=
491: ota_tdb_shd.g_old_rec.tdb_information10;
487: ota_tdb_shd.g_old_rec.tdb_information9;
488: End If;
489: If (p_rec.tdb_information10 = hr_api.g_varchar2) then
490: p_rec.tdb_information10 :=
491: ota_tdb_shd.g_old_rec.tdb_information10;
492: End If;
493: If (p_rec.tdb_information11 = hr_api.g_varchar2) then
494: p_rec.tdb_information11 :=
495: ota_tdb_shd.g_old_rec.tdb_information11;
491: ota_tdb_shd.g_old_rec.tdb_information10;
492: End If;
493: If (p_rec.tdb_information11 = hr_api.g_varchar2) then
494: p_rec.tdb_information11 :=
495: ota_tdb_shd.g_old_rec.tdb_information11;
496: End If;
497: If (p_rec.tdb_information12 = hr_api.g_varchar2) then
498: p_rec.tdb_information12 :=
499: ota_tdb_shd.g_old_rec.tdb_information12;
495: ota_tdb_shd.g_old_rec.tdb_information11;
496: End If;
497: If (p_rec.tdb_information12 = hr_api.g_varchar2) then
498: p_rec.tdb_information12 :=
499: ota_tdb_shd.g_old_rec.tdb_information12;
500: End If;
501: If (p_rec.tdb_information13 = hr_api.g_varchar2) then
502: p_rec.tdb_information13 :=
503: ota_tdb_shd.g_old_rec.tdb_information13;
499: ota_tdb_shd.g_old_rec.tdb_information12;
500: End If;
501: If (p_rec.tdb_information13 = hr_api.g_varchar2) then
502: p_rec.tdb_information13 :=
503: ota_tdb_shd.g_old_rec.tdb_information13;
504: End If;
505: If (p_rec.tdb_information14 = hr_api.g_varchar2) then
506: p_rec.tdb_information14 :=
507: ota_tdb_shd.g_old_rec.tdb_information14;
503: ota_tdb_shd.g_old_rec.tdb_information13;
504: End If;
505: If (p_rec.tdb_information14 = hr_api.g_varchar2) then
506: p_rec.tdb_information14 :=
507: ota_tdb_shd.g_old_rec.tdb_information14;
508: End If;
509: If (p_rec.tdb_information15 = hr_api.g_varchar2) then
510: p_rec.tdb_information15 :=
511: ota_tdb_shd.g_old_rec.tdb_information15;
507: ota_tdb_shd.g_old_rec.tdb_information14;
508: End If;
509: If (p_rec.tdb_information15 = hr_api.g_varchar2) then
510: p_rec.tdb_information15 :=
511: ota_tdb_shd.g_old_rec.tdb_information15;
512: End If;
513: If (p_rec.tdb_information16 = hr_api.g_varchar2) then
514: p_rec.tdb_information16 :=
515: ota_tdb_shd.g_old_rec.tdb_information16;
511: ota_tdb_shd.g_old_rec.tdb_information15;
512: End If;
513: If (p_rec.tdb_information16 = hr_api.g_varchar2) then
514: p_rec.tdb_information16 :=
515: ota_tdb_shd.g_old_rec.tdb_information16;
516: End If;
517: If (p_rec.tdb_information17 = hr_api.g_varchar2) then
518: p_rec.tdb_information17 :=
519: ota_tdb_shd.g_old_rec.tdb_information17;
515: ota_tdb_shd.g_old_rec.tdb_information16;
516: End If;
517: If (p_rec.tdb_information17 = hr_api.g_varchar2) then
518: p_rec.tdb_information17 :=
519: ota_tdb_shd.g_old_rec.tdb_information17;
520: End If;
521: If (p_rec.tdb_information18 = hr_api.g_varchar2) then
522: p_rec.tdb_information18 :=
523: ota_tdb_shd.g_old_rec.tdb_information18;
519: ota_tdb_shd.g_old_rec.tdb_information17;
520: End If;
521: If (p_rec.tdb_information18 = hr_api.g_varchar2) then
522: p_rec.tdb_information18 :=
523: ota_tdb_shd.g_old_rec.tdb_information18;
524: End If;
525: If (p_rec.tdb_information19 = hr_api.g_varchar2) then
526: p_rec.tdb_information19 :=
527: ota_tdb_shd.g_old_rec.tdb_information19;
523: ota_tdb_shd.g_old_rec.tdb_information18;
524: End If;
525: If (p_rec.tdb_information19 = hr_api.g_varchar2) then
526: p_rec.tdb_information19 :=
527: ota_tdb_shd.g_old_rec.tdb_information19;
528: End If;
529: If (p_rec.tdb_information20 = hr_api.g_varchar2) then
530: p_rec.tdb_information20 :=
531: ota_tdb_shd.g_old_rec.tdb_information20;
527: ota_tdb_shd.g_old_rec.tdb_information19;
528: End If;
529: If (p_rec.tdb_information20 = hr_api.g_varchar2) then
530: p_rec.tdb_information20 :=
531: ota_tdb_shd.g_old_rec.tdb_information20;
532: End If;
533: If (p_rec.organization_id = hr_api.g_number) then
534: p_rec.organization_id :=
535: ota_tdb_shd.g_old_rec.organization_id;
531: ota_tdb_shd.g_old_rec.tdb_information20;
532: End If;
533: If (p_rec.organization_id = hr_api.g_number) then
534: p_rec.organization_id :=
535: ota_tdb_shd.g_old_rec.organization_id;
536: End If;
537: If (p_rec.sponsor_person_id = hr_api.g_number) then
538: p_rec.sponsor_person_id :=
539: ota_tdb_shd.g_old_rec.sponsor_person_id;
535: ota_tdb_shd.g_old_rec.organization_id;
536: End If;
537: If (p_rec.sponsor_person_id = hr_api.g_number) then
538: p_rec.sponsor_person_id :=
539: ota_tdb_shd.g_old_rec.sponsor_person_id;
540: End If;
541: If (p_rec.sponsor_assignment_id = hr_api.g_number) then
542: p_rec.sponsor_assignment_id :=
543: ota_tdb_shd.g_old_rec.sponsor_assignment_id;
539: ota_tdb_shd.g_old_rec.sponsor_person_id;
540: End If;
541: If (p_rec.sponsor_assignment_id = hr_api.g_number) then
542: p_rec.sponsor_assignment_id :=
543: ota_tdb_shd.g_old_rec.sponsor_assignment_id;
544: End If;
545: If (p_rec.person_address_id = hr_api.g_number) then
546: p_rec.person_address_id :=
547: ota_tdb_shd.g_old_rec.person_address_id;
543: ota_tdb_shd.g_old_rec.sponsor_assignment_id;
544: End If;
545: If (p_rec.person_address_id = hr_api.g_number) then
546: p_rec.person_address_id :=
547: ota_tdb_shd.g_old_rec.person_address_id;
548: End If;
549: If (p_rec.delegate_assignment_id = hr_api.g_number) then
550: p_rec.delegate_assignment_id :=
551: ota_tdb_shd.g_old_rec.delegate_assignment_id;
547: ota_tdb_shd.g_old_rec.person_address_id;
548: End If;
549: If (p_rec.delegate_assignment_id = hr_api.g_number) then
550: p_rec.delegate_assignment_id :=
551: ota_tdb_shd.g_old_rec.delegate_assignment_id;
552: End If;
553: If (p_rec.delegate_contact_id = hr_api.g_number) then
554: p_rec.delegate_contact_id :=
555: ota_tdb_shd.g_old_rec.delegate_contact_id;
551: ota_tdb_shd.g_old_rec.delegate_assignment_id;
552: End If;
553: If (p_rec.delegate_contact_id = hr_api.g_number) then
554: p_rec.delegate_contact_id :=
555: ota_tdb_shd.g_old_rec.delegate_contact_id;
556: End If;
557: If (p_rec.delegate_contact_email = hr_api.g_varchar2) then
558: p_rec.delegate_contact_email :=
559: ota_tdb_shd.g_old_rec.delegate_contact_email;
555: ota_tdb_shd.g_old_rec.delegate_contact_id;
556: End If;
557: If (p_rec.delegate_contact_email = hr_api.g_varchar2) then
558: p_rec.delegate_contact_email :=
559: ota_tdb_shd.g_old_rec.delegate_contact_email;
560: End If;
561: If (p_rec.third_party_email = hr_api.g_varchar2) then
562: p_rec.third_party_email :=
563: ota_tdb_shd.g_old_rec.third_party_email;
559: ota_tdb_shd.g_old_rec.delegate_contact_email;
560: End If;
561: If (p_rec.third_party_email = hr_api.g_varchar2) then
562: p_rec.third_party_email :=
563: ota_tdb_shd.g_old_rec.third_party_email;
564: End If;
565: If (p_rec.person_address_type = hr_api.g_varchar2) then
566: p_rec.person_address_type :=
567: ota_tdb_shd.g_old_rec.person_address_type;
563: ota_tdb_shd.g_old_rec.third_party_email;
564: End If;
565: If (p_rec.person_address_type = hr_api.g_varchar2) then
566: p_rec.person_address_type :=
567: ota_tdb_shd.g_old_rec.person_address_type;
568: End If;
569: If (p_rec.line_id = hr_api.g_number) then
570: p_rec.line_id :=
571: ota_tdb_shd.g_old_rec.line_id;
567: ota_tdb_shd.g_old_rec.person_address_type;
568: End If;
569: If (p_rec.line_id = hr_api.g_number) then
570: p_rec.line_id :=
571: ota_tdb_shd.g_old_rec.line_id;
572: End If;
573: If (p_rec.org_id = hr_api.g_number) then
574: p_rec.org_id :=
575: ota_tdb_shd.g_old_rec.org_id;
571: ota_tdb_shd.g_old_rec.line_id;
572: End If;
573: If (p_rec.org_id = hr_api.g_number) then
574: p_rec.org_id :=
575: ota_tdb_shd.g_old_rec.org_id;
576: End If;
577: If (p_rec.daemon_flag = hr_api.g_varchar2) then
578: p_rec.daemon_flag :=
579: ota_tdb_shd.g_old_rec.daemon_flag;
575: ota_tdb_shd.g_old_rec.org_id;
576: End If;
577: If (p_rec.daemon_flag = hr_api.g_varchar2) then
578: p_rec.daemon_flag :=
579: ota_tdb_shd.g_old_rec.daemon_flag;
580: End If;
581: If (p_rec.daemon_type = hr_api.g_varchar2) then
582: p_rec.daemon_type :=
583: ota_tdb_shd.g_old_rec.daemon_type;
579: ota_tdb_shd.g_old_rec.daemon_flag;
580: End If;
581: If (p_rec.daemon_type = hr_api.g_varchar2) then
582: p_rec.daemon_type :=
583: ota_tdb_shd.g_old_rec.daemon_type;
584: End If;
585:
586: If (p_rec.old_event_id = hr_api.g_number) then
587: p_rec.old_event_id :=
584: End If;
585:
586: If (p_rec.old_event_id = hr_api.g_number) then
587: p_rec.old_event_id :=
588: ota_tdb_shd.g_old_rec.old_event_id;
589: End If;
590:
591: If (p_rec.quote_line_id = hr_api.g_number) then
592: p_rec.quote_line_id :=
589: End If;
590:
591: If (p_rec.quote_line_id = hr_api.g_number) then
592: p_rec.quote_line_id :=
593: ota_tdb_shd.g_old_rec.quote_line_id;
594: End If;
595:
596: If (p_rec.interface_source = hr_api.g_varchar2) then
597: p_rec.interface_source :=
594: End If;
595:
596: If (p_rec.interface_source = hr_api.g_varchar2) then
597: p_rec.interface_source :=
598: ota_tdb_shd.g_old_rec.interface_source;
599: End If;
600:
601: If (p_rec.total_training_time = hr_api.g_varchar2) then
602: p_rec.total_training_time :=
599: End If;
600:
601: If (p_rec.total_training_time = hr_api.g_varchar2) then
602: p_rec.total_training_time :=
603: ota_tdb_shd.g_old_rec.total_training_time ;
604: End If;
605:
606: If (p_rec.content_player_status= hr_api.g_varchar2) then
607: p_rec.content_player_status:=
604: End If;
605:
606: If (p_rec.content_player_status= hr_api.g_varchar2) then
607: p_rec.content_player_status:=
608: ota_tdb_shd.g_old_rec.content_player_status;
609: End If;
610:
611: If (p_rec.score = hr_api.g_number) then
612: p_rec.score:=
609: End If;
610:
611: If (p_rec.score = hr_api.g_number) then
612: p_rec.score:=
613: ota_tdb_shd.g_old_rec.score;
614: End If;
615: If (p_rec.completed_content= hr_api.g_number) then
616: p_rec.completed_content:=
617: ota_tdb_shd.g_old_rec.completed_content;
613: ota_tdb_shd.g_old_rec.score;
614: End If;
615: If (p_rec.completed_content= hr_api.g_number) then
616: p_rec.completed_content:=
617: ota_tdb_shd.g_old_rec.completed_content;
618: End If;
619: If (p_rec.total_content = hr_api.g_number) then
620: p_rec.total_content :=
621: ota_tdb_shd.g_old_rec.total_content ;
617: ota_tdb_shd.g_old_rec.completed_content;
618: End If;
619: If (p_rec.total_content = hr_api.g_number) then
620: p_rec.total_content :=
621: ota_tdb_shd.g_old_rec.total_content ;
622: End If;
623: if (p_rec.booking_justification_id = hr_api.g_number) then
624: p_rec.booking_justification_id :=
625: ota_tdb_shd.g_old_rec.booking_justification_id;
621: ota_tdb_shd.g_old_rec.total_content ;
622: End If;
623: if (p_rec.booking_justification_id = hr_api.g_number) then
624: p_rec.booking_justification_id :=
625: ota_tdb_shd.g_old_rec.booking_justification_id;
626: End If;
627: if (p_rec.is_history_flag = hr_api.g_varchar2) then
628: p_rec.is_history_flag :=
629: ota_tdb_shd.g_old_rec.is_history_flag;
625: ota_tdb_shd.g_old_rec.booking_justification_id;
626: End If;
627: if (p_rec.is_history_flag = hr_api.g_varchar2) then
628: p_rec.is_history_flag :=
629: ota_tdb_shd.g_old_rec.is_history_flag;
630: End If;
631: --
632: -- Return the plsql record structure.
633: --
640: -- |---------------------------------< upd >----------------------------------|
641: -- ----------------------------------------------------------------------------
642: Procedure upd
643: (
644: p_rec in out nocopy ota_tdb_shd.g_rec_type,
645: p_status_change_comments in varchar2,
646: p_update_finance_line in varchar2,
647: p_tfl_object_version_number in out nocopy number,
648: p_finance_header_id in number,
672: End If;
673: --
674: -- We must lock the row which we need to update.
675: --
676: ota_tdb_shd.lck
677: (
678: p_rec.booking_id,
679: p_rec.object_version_number
680: );
809: p_booking_justification_id in number,
810: p_is_history_flag in varchar2
811: ) is
812: --
813: l_rec ota_tdb_shd.g_rec_type;
814: l_proc varchar2(72) := g_package||'upd';
815: --
816: Begin
817: hr_utility.set_location('Entering:'||l_proc, 5);
819: -- Call conversion function to turn arguments into the
820: -- l_rec structure.
821: --
822: l_rec :=
823: ota_tdb_shd.convert_args
824: (
825: p_booking_id,
826: p_booking_status_type_id,
827: p_delegate_person_id,