50: -- Internal Development Use Only.
51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml(p_rec in out nocopy ota_tea_shd.g_rec_type) is
55: --
56: l_proc varchar2(72) := g_package||'update_dml';
57: --
58: Begin
58: Begin
59: hr_utility.set_location('Entering:'||l_proc, 5);
60: --
61: --
62: ota_tea_shd.g_api_dml := true; -- Set the api dml status
63: --
64: -- Update the ota_event_associations Row
65: --
66: update ota_event_associations
94: tea_information19 = p_rec.tea_information19,
95: tea_information20 = p_rec.tea_information20
96: where event_association_id = p_rec.event_association_id;
97: --
98: ota_tea_shd.g_api_dml := false; -- Unset the api dml status
99: --
100: hr_utility.set_location(' Leaving:'||l_proc, 10);
101: --
102: Exception
101: --
102: Exception
103: When hr_api.check_integrity_violated Then
104: -- A check constraint has been violated
105: ota_tea_shd.g_api_dml := false; -- Unset the api dml status
106: ota_tea_shd.constraint_error
107: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
108: When hr_api.parent_integrity_violated Then
109: -- Parent integrity has been violated
102: Exception
103: When hr_api.check_integrity_violated Then
104: -- A check constraint has been violated
105: ota_tea_shd.g_api_dml := false; -- Unset the api dml status
106: ota_tea_shd.constraint_error
107: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
108: When hr_api.parent_integrity_violated Then
109: -- Parent integrity has been violated
110: ota_tea_shd.g_api_dml := false; -- Unset the api dml status
106: ota_tea_shd.constraint_error
107: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
108: When hr_api.parent_integrity_violated Then
109: -- Parent integrity has been violated
110: ota_tea_shd.g_api_dml := false; -- Unset the api dml status
111: ota_tea_shd.constraint_error
112: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
113: When hr_api.unique_integrity_violated Then
114: -- Unique integrity has been violated
107: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
108: When hr_api.parent_integrity_violated Then
109: -- Parent integrity has been violated
110: ota_tea_shd.g_api_dml := false; -- Unset the api dml status
111: ota_tea_shd.constraint_error
112: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
113: When hr_api.unique_integrity_violated Then
114: -- Unique integrity has been violated
115: ota_tea_shd.g_api_dml := false; -- Unset the api dml status
111: ota_tea_shd.constraint_error
112: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
113: When hr_api.unique_integrity_violated Then
114: -- Unique integrity has been violated
115: ota_tea_shd.g_api_dml := false; -- Unset the api dml status
116: ota_tea_shd.constraint_error
117: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
118: When Others Then
119: ota_tea_shd.g_api_dml := false; -- Unset the api dml status
112: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
113: When hr_api.unique_integrity_violated Then
114: -- Unique integrity has been violated
115: ota_tea_shd.g_api_dml := false; -- Unset the api dml status
116: ota_tea_shd.constraint_error
117: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
118: When Others Then
119: ota_tea_shd.g_api_dml := false; -- Unset the api dml status
120: Raise;
115: ota_tea_shd.g_api_dml := false; -- Unset the api dml status
116: ota_tea_shd.constraint_error
117: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
118: When Others Then
119: ota_tea_shd.g_api_dml := false; -- Unset the api dml status
120: Raise;
121: End update_dml;
122: --
123: -- ----------------------------------------------------------------------------
151: -- Internal Development Use Only.
152: --
153: -- {End Of Comments}
154: -- ----------------------------------------------------------------------------
155: Procedure pre_update(p_rec in ota_tea_shd.g_rec_type) is
156: --
157: l_proc varchar2(72) := g_package||'pre_update';
158: --
159: Begin
325: -- Internal Development Use Only.
326: --
327: -- {End Of Comments}
328: -- ----------------------------------------------------------------------------
329: Function convert_defs(p_rec in out nocopy ota_tea_shd.g_rec_type)
330: Return ota_tea_shd.g_rec_type is
331: --
332: l_proc varchar2(72) := g_package||'convert_defs';
333: --
326: --
327: -- {End Of Comments}
328: -- ----------------------------------------------------------------------------
329: Function convert_defs(p_rec in out nocopy ota_tea_shd.g_rec_type)
330: Return ota_tea_shd.g_rec_type is
331: --
332: l_proc varchar2(72) := g_package||'convert_defs';
333: --
334: Begin
341: -- is being used then we must set to the 'current' argument value.
342: --
343: If (p_rec.event_id = hr_api.g_number) then
344: p_rec.event_id :=
345: ota_tea_shd.g_old_rec.event_id;
346: End If;
347: If (p_rec.customer_id = hr_api.g_number) then
348: p_rec.customer_id :=
349: ota_tea_shd.g_old_rec.customer_id;
345: ota_tea_shd.g_old_rec.event_id;
346: End If;
347: If (p_rec.customer_id = hr_api.g_number) then
348: p_rec.customer_id :=
349: ota_tea_shd.g_old_rec.customer_id;
350: End If;
351: If (p_rec.organization_id = hr_api.g_number) then
352: p_rec.organization_id :=
353: ota_tea_shd.g_old_rec.organization_id;
349: ota_tea_shd.g_old_rec.customer_id;
350: End If;
351: If (p_rec.organization_id = hr_api.g_number) then
352: p_rec.organization_id :=
353: ota_tea_shd.g_old_rec.organization_id;
354: End If;
355: If (p_rec.job_id = hr_api.g_number) then
356: p_rec.job_id :=
357: ota_tea_shd.g_old_rec.job_id;
353: ota_tea_shd.g_old_rec.organization_id;
354: End If;
355: If (p_rec.job_id = hr_api.g_number) then
356: p_rec.job_id :=
357: ota_tea_shd.g_old_rec.job_id;
358: End If;
359: If (p_rec.position_id = hr_api.g_number) then
360: p_rec.position_id :=
361: ota_tea_shd.g_old_rec.position_id;
357: ota_tea_shd.g_old_rec.job_id;
358: End If;
359: If (p_rec.position_id = hr_api.g_number) then
360: p_rec.position_id :=
361: ota_tea_shd.g_old_rec.position_id;
362: End If;
363: If (p_rec.comments = hr_api.g_varchar2) then
364: p_rec.comments :=
365: ota_tea_shd.g_old_rec.comments;
361: ota_tea_shd.g_old_rec.position_id;
362: End If;
363: If (p_rec.comments = hr_api.g_varchar2) then
364: p_rec.comments :=
365: ota_tea_shd.g_old_rec.comments;
366: End If;
367: If (p_rec.tea_information_category = hr_api.g_varchar2) then
368: p_rec.tea_information_category :=
369: ota_tea_shd.g_old_rec.tea_information_category;
365: ota_tea_shd.g_old_rec.comments;
366: End If;
367: If (p_rec.tea_information_category = hr_api.g_varchar2) then
368: p_rec.tea_information_category :=
369: ota_tea_shd.g_old_rec.tea_information_category;
370: End If;
371: If (p_rec.tea_information1 = hr_api.g_varchar2) then
372: p_rec.tea_information1 :=
373: ota_tea_shd.g_old_rec.tea_information1;
369: ota_tea_shd.g_old_rec.tea_information_category;
370: End If;
371: If (p_rec.tea_information1 = hr_api.g_varchar2) then
372: p_rec.tea_information1 :=
373: ota_tea_shd.g_old_rec.tea_information1;
374: End If;
375: If (p_rec.tea_information2 = hr_api.g_varchar2) then
376: p_rec.tea_information2 :=
377: ota_tea_shd.g_old_rec.tea_information2;
373: ota_tea_shd.g_old_rec.tea_information1;
374: End If;
375: If (p_rec.tea_information2 = hr_api.g_varchar2) then
376: p_rec.tea_information2 :=
377: ota_tea_shd.g_old_rec.tea_information2;
378: End If;
379: If (p_rec.tea_information3 = hr_api.g_varchar2) then
380: p_rec.tea_information3 :=
381: ota_tea_shd.g_old_rec.tea_information3;
377: ota_tea_shd.g_old_rec.tea_information2;
378: End If;
379: If (p_rec.tea_information3 = hr_api.g_varchar2) then
380: p_rec.tea_information3 :=
381: ota_tea_shd.g_old_rec.tea_information3;
382: End If;
383: If (p_rec.tea_information4 = hr_api.g_varchar2) then
384: p_rec.tea_information4 :=
385: ota_tea_shd.g_old_rec.tea_information4;
381: ota_tea_shd.g_old_rec.tea_information3;
382: End If;
383: If (p_rec.tea_information4 = hr_api.g_varchar2) then
384: p_rec.tea_information4 :=
385: ota_tea_shd.g_old_rec.tea_information4;
386: End If;
387: If (p_rec.tea_information5 = hr_api.g_varchar2) then
388: p_rec.tea_information5 :=
389: ota_tea_shd.g_old_rec.tea_information5;
385: ota_tea_shd.g_old_rec.tea_information4;
386: End If;
387: If (p_rec.tea_information5 = hr_api.g_varchar2) then
388: p_rec.tea_information5 :=
389: ota_tea_shd.g_old_rec.tea_information5;
390: End If;
391: If (p_rec.tea_information6 = hr_api.g_varchar2) then
392: p_rec.tea_information6 :=
393: ota_tea_shd.g_old_rec.tea_information6;
389: ota_tea_shd.g_old_rec.tea_information5;
390: End If;
391: If (p_rec.tea_information6 = hr_api.g_varchar2) then
392: p_rec.tea_information6 :=
393: ota_tea_shd.g_old_rec.tea_information6;
394: End If;
395: If (p_rec.tea_information7 = hr_api.g_varchar2) then
396: p_rec.tea_information7 :=
397: ota_tea_shd.g_old_rec.tea_information7;
393: ota_tea_shd.g_old_rec.tea_information6;
394: End If;
395: If (p_rec.tea_information7 = hr_api.g_varchar2) then
396: p_rec.tea_information7 :=
397: ota_tea_shd.g_old_rec.tea_information7;
398: End If;
399: If (p_rec.tea_information8 = hr_api.g_varchar2) then
400: p_rec.tea_information8 :=
401: ota_tea_shd.g_old_rec.tea_information8;
397: ota_tea_shd.g_old_rec.tea_information7;
398: End If;
399: If (p_rec.tea_information8 = hr_api.g_varchar2) then
400: p_rec.tea_information8 :=
401: ota_tea_shd.g_old_rec.tea_information8;
402: End If;
403: If (p_rec.tea_information9 = hr_api.g_varchar2) then
404: p_rec.tea_information9 :=
405: ota_tea_shd.g_old_rec.tea_information9;
401: ota_tea_shd.g_old_rec.tea_information8;
402: End If;
403: If (p_rec.tea_information9 = hr_api.g_varchar2) then
404: p_rec.tea_information9 :=
405: ota_tea_shd.g_old_rec.tea_information9;
406: End If;
407: If (p_rec.tea_information10 = hr_api.g_varchar2) then
408: p_rec.tea_information10 :=
409: ota_tea_shd.g_old_rec.tea_information10;
405: ota_tea_shd.g_old_rec.tea_information9;
406: End If;
407: If (p_rec.tea_information10 = hr_api.g_varchar2) then
408: p_rec.tea_information10 :=
409: ota_tea_shd.g_old_rec.tea_information10;
410: End If;
411: If (p_rec.tea_information11 = hr_api.g_varchar2) then
412: p_rec.tea_information11 :=
413: ota_tea_shd.g_old_rec.tea_information11;
409: ota_tea_shd.g_old_rec.tea_information10;
410: End If;
411: If (p_rec.tea_information11 = hr_api.g_varchar2) then
412: p_rec.tea_information11 :=
413: ota_tea_shd.g_old_rec.tea_information11;
414: End If;
415: If (p_rec.tea_information12 = hr_api.g_varchar2) then
416: p_rec.tea_information12 :=
417: ota_tea_shd.g_old_rec.tea_information12;
413: ota_tea_shd.g_old_rec.tea_information11;
414: End If;
415: If (p_rec.tea_information12 = hr_api.g_varchar2) then
416: p_rec.tea_information12 :=
417: ota_tea_shd.g_old_rec.tea_information12;
418: End If;
419: If (p_rec.tea_information13 = hr_api.g_varchar2) then
420: p_rec.tea_information13 :=
421: ota_tea_shd.g_old_rec.tea_information13;
417: ota_tea_shd.g_old_rec.tea_information12;
418: End If;
419: If (p_rec.tea_information13 = hr_api.g_varchar2) then
420: p_rec.tea_information13 :=
421: ota_tea_shd.g_old_rec.tea_information13;
422: End If;
423: If (p_rec.tea_information14 = hr_api.g_varchar2) then
424: p_rec.tea_information14 :=
425: ota_tea_shd.g_old_rec.tea_information14;
421: ota_tea_shd.g_old_rec.tea_information13;
422: End If;
423: If (p_rec.tea_information14 = hr_api.g_varchar2) then
424: p_rec.tea_information14 :=
425: ota_tea_shd.g_old_rec.tea_information14;
426: End If;
427: If (p_rec.tea_information15 = hr_api.g_varchar2) then
428: p_rec.tea_information15 :=
429: ota_tea_shd.g_old_rec.tea_information15;
425: ota_tea_shd.g_old_rec.tea_information14;
426: End If;
427: If (p_rec.tea_information15 = hr_api.g_varchar2) then
428: p_rec.tea_information15 :=
429: ota_tea_shd.g_old_rec.tea_information15;
430: End If;
431: If (p_rec.tea_information16 = hr_api.g_varchar2) then
432: p_rec.tea_information16 :=
433: ota_tea_shd.g_old_rec.tea_information16;
429: ota_tea_shd.g_old_rec.tea_information15;
430: End If;
431: If (p_rec.tea_information16 = hr_api.g_varchar2) then
432: p_rec.tea_information16 :=
433: ota_tea_shd.g_old_rec.tea_information16;
434: End If;
435: If (p_rec.tea_information17 = hr_api.g_varchar2) then
436: p_rec.tea_information17 :=
437: ota_tea_shd.g_old_rec.tea_information17;
433: ota_tea_shd.g_old_rec.tea_information16;
434: End If;
435: If (p_rec.tea_information17 = hr_api.g_varchar2) then
436: p_rec.tea_information17 :=
437: ota_tea_shd.g_old_rec.tea_information17;
438: End If;
439: If (p_rec.tea_information18 = hr_api.g_varchar2) then
440: p_rec.tea_information18 :=
441: ota_tea_shd.g_old_rec.tea_information18;
437: ota_tea_shd.g_old_rec.tea_information17;
438: End If;
439: If (p_rec.tea_information18 = hr_api.g_varchar2) then
440: p_rec.tea_information18 :=
441: ota_tea_shd.g_old_rec.tea_information18;
442: End If;
443: If (p_rec.tea_information19 = hr_api.g_varchar2) then
444: p_rec.tea_information19 :=
445: ota_tea_shd.g_old_rec.tea_information19;
441: ota_tea_shd.g_old_rec.tea_information18;
442: End If;
443: If (p_rec.tea_information19 = hr_api.g_varchar2) then
444: p_rec.tea_information19 :=
445: ota_tea_shd.g_old_rec.tea_information19;
446: End If;
447: If (p_rec.tea_information20 = hr_api.g_varchar2) then
448: p_rec.tea_information20 :=
449: ota_tea_shd.g_old_rec.tea_information20;
445: ota_tea_shd.g_old_rec.tea_information19;
446: End If;
447: If (p_rec.tea_information20 = hr_api.g_varchar2) then
448: p_rec.tea_information20 :=
449: ota_tea_shd.g_old_rec.tea_information20;
450: End If;
451: --
452: -- Return the plsql record structure.
453: --
460: -- |---------------------------------< upd >----------------------------------|
461: -- ----------------------------------------------------------------------------
462: Procedure upd
463: (
464: p_rec in out nocopy ota_tea_shd.g_rec_type,
465: p_validate in boolean
466: ,p_association_type in varchar2
467: ,p_business_group_id in number
468: ,p_price_basis in varchar2
507: End If;
508: --
509: -- We must lock the row which we need to update.
510: --
511: ota_tea_shd.lck
512: (
513: p_rec.event_association_id
514: ,p_booking_id
515: ,p_tdb_object_version_number
645: ,p_finance_line_id in out nocopy number
646: ,p_delegate_contact_email in varchar2
647: ) is
648: --
649: l_rec ota_tea_shd.g_rec_type;
650: l_proc varchar2(72) := g_package||'upd';
651: --
652: Begin
653: hr_utility.set_location('Entering:'||l_proc, 5);
655: -- Call conversion function to turn arguments into the
656: -- l_rec structure.
657: --
658: l_rec :=
659: ota_tea_shd.convert_args
660: (
661: p_event_association_id,
662: p_event_id,
663: p_customer_id,