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