50: -- Internal Development Use Only.
51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml(p_rec in out nocopy ota_evt_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_evt_shd.g_api_dml := true; -- Set the api dml status
66: --
67: -- Update the ota_events Row
68: --
69: update ota_events
137: data_source = p_rec.data_source,
138: event_availability = p_rec.event_availability
139: where event_id = p_rec.event_id;
140: --
141: ota_evt_shd.g_api_dml := false; -- Unset the api dml status
142: --
143: hr_utility.set_location(' Leaving:'||l_proc, 10);
144: --
145: Exception
144: --
145: Exception
146: When hr_api.check_integrity_violated Then
147: -- A check constraint has been violated
148: ota_evt_shd.g_api_dml := false; -- Unset the api dml status
149: ota_evt_shd.constraint_error
150: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
151: When hr_api.parent_integrity_violated Then
152: -- Parent integrity has been violated
145: Exception
146: When hr_api.check_integrity_violated Then
147: -- A check constraint has been violated
148: ota_evt_shd.g_api_dml := false; -- Unset the api dml status
149: ota_evt_shd.constraint_error
150: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
151: When hr_api.parent_integrity_violated Then
152: -- Parent integrity has been violated
153: ota_evt_shd.g_api_dml := false; -- Unset the api dml status
149: ota_evt_shd.constraint_error
150: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
151: When hr_api.parent_integrity_violated Then
152: -- Parent integrity has been violated
153: ota_evt_shd.g_api_dml := false; -- Unset the api dml status
154: ota_evt_shd.constraint_error
155: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
156: When hr_api.unique_integrity_violated Then
157: -- Unique integrity has been violated
150: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
151: When hr_api.parent_integrity_violated Then
152: -- Parent integrity has been violated
153: ota_evt_shd.g_api_dml := false; -- Unset the api dml status
154: ota_evt_shd.constraint_error
155: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
156: When hr_api.unique_integrity_violated Then
157: -- Unique integrity has been violated
158: ota_evt_shd.g_api_dml := false; -- Unset the api dml status
154: ota_evt_shd.constraint_error
155: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
156: When hr_api.unique_integrity_violated Then
157: -- Unique integrity has been violated
158: ota_evt_shd.g_api_dml := false; -- Unset the api dml status
159: ota_evt_shd.constraint_error
160: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
161: When Others Then
162: ota_evt_shd.g_api_dml := false; -- Unset the api dml status
155: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
156: When hr_api.unique_integrity_violated Then
157: -- Unique integrity has been violated
158: ota_evt_shd.g_api_dml := false; -- Unset the api dml status
159: ota_evt_shd.constraint_error
160: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
161: When Others Then
162: ota_evt_shd.g_api_dml := false; -- Unset the api dml status
163: Raise;
158: ota_evt_shd.g_api_dml := false; -- Unset the api dml status
159: ota_evt_shd.constraint_error
160: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
161: When Others Then
162: ota_evt_shd.g_api_dml := false; -- Unset the api dml status
163: Raise;
164: End update_dml;
165: --
166: -- ----------------------------------------------------------------------------
194: -- Internal Development Use Only.
195: --
196: -- {End Of Comments}
197: -- ----------------------------------------------------------------------------
198: Procedure pre_update(p_rec in ota_evt_shd.g_rec_type) is
199: --
200: l_proc varchar2(72) := g_package||'pre_update';
201: --
202: Begin
236: -- Internal Development Use Only.
237: --
238: -- {End Of Comments}
239: -- ----------------------------------------------------------------------------
240: Procedure post_update(p_rec in ota_evt_shd.g_rec_type) is
241: --
242: l_proc varchar2(72) := g_package||'post_update';
243: --
244: Begin
297: -- Internal Development Use Only.
298: --
299: -- {End Of Comments}
300: -- ----------------------------------------------------------------------------
301: Function convert_defs(p_rec in out nocopy ota_evt_shd.g_rec_type)
302: Return ota_evt_shd.g_rec_type is
303: --
304: l_proc varchar2(72) := g_package||'convert_defs';
305: --
298: --
299: -- {End Of Comments}
300: -- ----------------------------------------------------------------------------
301: Function convert_defs(p_rec in out nocopy ota_evt_shd.g_rec_type)
302: Return ota_evt_shd.g_rec_type is
303: --
304: l_proc varchar2(72) := g_package||'convert_defs';
305: --
306: Begin
313: -- is being used then we must set to the 'current' argument value.
314: --
315: If (p_rec.vendor_id = hr_api.g_number) then
316: p_rec.vendor_id :=
317: ota_evt_shd.g_old_rec.vendor_id;
318: End If;
319: If (p_rec.activity_version_id = hr_api.g_number) then
320: p_rec.activity_version_id :=
321: ota_evt_shd.g_old_rec.activity_version_id;
317: ota_evt_shd.g_old_rec.vendor_id;
318: End If;
319: If (p_rec.activity_version_id = hr_api.g_number) then
320: p_rec.activity_version_id :=
321: ota_evt_shd.g_old_rec.activity_version_id;
322: End If;
323: If (p_rec.business_group_id = hr_api.g_number) then
324: p_rec.business_group_id :=
325: ota_evt_shd.g_old_rec.business_group_id;
321: ota_evt_shd.g_old_rec.activity_version_id;
322: End If;
323: If (p_rec.business_group_id = hr_api.g_number) then
324: p_rec.business_group_id :=
325: ota_evt_shd.g_old_rec.business_group_id;
326: End If;
327: If (p_rec.organization_id = hr_api.g_number) then
328: p_rec.organization_id :=
329: ota_evt_shd.g_old_rec.organization_id;
325: ota_evt_shd.g_old_rec.business_group_id;
326: End If;
327: If (p_rec.organization_id = hr_api.g_number) then
328: p_rec.organization_id :=
329: ota_evt_shd.g_old_rec.organization_id;
330: End If;
331: If (p_rec.event_type = hr_api.g_varchar2) then
332: p_rec.event_type :=
333: ota_evt_shd.g_old_rec.event_type;
329: ota_evt_shd.g_old_rec.organization_id;
330: End If;
331: If (p_rec.event_type = hr_api.g_varchar2) then
332: p_rec.event_type :=
333: ota_evt_shd.g_old_rec.event_type;
334: End If;
335: If (p_rec.title = hr_api.g_varchar2) then
336: p_rec.title :=
337: ota_evt_shd.g_old_rec.title;
333: ota_evt_shd.g_old_rec.event_type;
334: End If;
335: If (p_rec.title = hr_api.g_varchar2) then
336: p_rec.title :=
337: ota_evt_shd.g_old_rec.title;
338: End If;
339: If (p_rec.budget_cost = hr_api.g_number) then
340: p_rec.budget_cost :=
341: ota_evt_shd.g_old_rec.budget_cost;
337: ota_evt_shd.g_old_rec.title;
338: End If;
339: If (p_rec.budget_cost = hr_api.g_number) then
340: p_rec.budget_cost :=
341: ota_evt_shd.g_old_rec.budget_cost;
342: End If;
343: If (p_rec.actual_cost = hr_api.g_number) then
344: p_rec.actual_cost :=
345: ota_evt_shd.g_old_rec.actual_cost;
341: ota_evt_shd.g_old_rec.budget_cost;
342: End If;
343: If (p_rec.actual_cost = hr_api.g_number) then
344: p_rec.actual_cost :=
345: ota_evt_shd.g_old_rec.actual_cost;
346: End If;
347: If (p_rec.budget_currency_code = hr_api.g_varchar2) then
348: p_rec.budget_currency_code :=
349: ota_evt_shd.g_old_rec.budget_currency_code;
345: ota_evt_shd.g_old_rec.actual_cost;
346: End If;
347: If (p_rec.budget_currency_code = hr_api.g_varchar2) then
348: p_rec.budget_currency_code :=
349: ota_evt_shd.g_old_rec.budget_currency_code;
350: End If;
351: If (p_rec.centre = hr_api.g_varchar2) then
352: p_rec.centre :=
353: ota_evt_shd.g_old_rec.centre;
349: ota_evt_shd.g_old_rec.budget_currency_code;
350: End If;
351: If (p_rec.centre = hr_api.g_varchar2) then
352: p_rec.centre :=
353: ota_evt_shd.g_old_rec.centre;
354: End If;
355: If (p_rec.comments = hr_api.g_varchar2) then
356: p_rec.comments :=
357: ota_evt_shd.g_old_rec.comments;
353: ota_evt_shd.g_old_rec.centre;
354: End If;
355: If (p_rec.comments = hr_api.g_varchar2) then
356: p_rec.comments :=
357: ota_evt_shd.g_old_rec.comments;
358: End If;
359: If (p_rec.course_end_date = hr_api.g_date) then
360: p_rec.course_end_date :=
361: ota_evt_shd.g_old_rec.course_end_date;
357: ota_evt_shd.g_old_rec.comments;
358: End If;
359: If (p_rec.course_end_date = hr_api.g_date) then
360: p_rec.course_end_date :=
361: ota_evt_shd.g_old_rec.course_end_date;
362: End If;
363: If (p_rec.course_end_time = hr_api.g_varchar2) then
364: p_rec.course_end_time :=
365: ota_evt_shd.g_old_rec.course_end_time;
361: ota_evt_shd.g_old_rec.course_end_date;
362: End If;
363: If (p_rec.course_end_time = hr_api.g_varchar2) then
364: p_rec.course_end_time :=
365: ota_evt_shd.g_old_rec.course_end_time;
366: End If;
367: If (p_rec.course_start_date = hr_api.g_date) then
368: p_rec.course_start_date :=
369: ota_evt_shd.g_old_rec.course_start_date;
365: ota_evt_shd.g_old_rec.course_end_time;
366: End If;
367: If (p_rec.course_start_date = hr_api.g_date) then
368: p_rec.course_start_date :=
369: ota_evt_shd.g_old_rec.course_start_date;
370: End If;
371: If (p_rec.course_start_time = hr_api.g_varchar2) then
372: p_rec.course_start_time :=
373: ota_evt_shd.g_old_rec.course_start_time;
369: ota_evt_shd.g_old_rec.course_start_date;
370: End If;
371: If (p_rec.course_start_time = hr_api.g_varchar2) then
372: p_rec.course_start_time :=
373: ota_evt_shd.g_old_rec.course_start_time;
374: End If;
375: If (p_rec.duration = hr_api.g_number) then
376: p_rec.duration :=
377: ota_evt_shd.g_old_rec.duration;
373: ota_evt_shd.g_old_rec.course_start_time;
374: End If;
375: If (p_rec.duration = hr_api.g_number) then
376: p_rec.duration :=
377: ota_evt_shd.g_old_rec.duration;
378: End If;
379: If (p_rec.duration_units = hr_api.g_varchar2) then
380: p_rec.duration_units :=
381: ota_evt_shd.g_old_rec.duration_units;
377: ota_evt_shd.g_old_rec.duration;
378: End If;
379: If (p_rec.duration_units = hr_api.g_varchar2) then
380: p_rec.duration_units :=
381: ota_evt_shd.g_old_rec.duration_units;
382: End If;
383: If (p_rec.enrolment_end_date = hr_api.g_date) then
384: p_rec.enrolment_end_date :=
385: ota_evt_shd.g_old_rec.enrolment_end_date;
381: ota_evt_shd.g_old_rec.duration_units;
382: End If;
383: If (p_rec.enrolment_end_date = hr_api.g_date) then
384: p_rec.enrolment_end_date :=
385: ota_evt_shd.g_old_rec.enrolment_end_date;
386: End If;
387: If (p_rec.enrolment_start_date = hr_api.g_date) then
388: p_rec.enrolment_start_date :=
389: ota_evt_shd.g_old_rec.enrolment_start_date;
385: ota_evt_shd.g_old_rec.enrolment_end_date;
386: End If;
387: If (p_rec.enrolment_start_date = hr_api.g_date) then
388: p_rec.enrolment_start_date :=
389: ota_evt_shd.g_old_rec.enrolment_start_date;
390: End If;
391: If (p_rec.language_id = hr_api.g_number) then
392: p_rec.language_id :=
393: ota_evt_shd.g_old_rec.language_id;
389: ota_evt_shd.g_old_rec.enrolment_start_date;
390: End If;
391: If (p_rec.language_id = hr_api.g_number) then
392: p_rec.language_id :=
393: ota_evt_shd.g_old_rec.language_id;
394: End If;
395: If (p_rec.user_status = hr_api.g_varchar2) then
396: p_rec.user_status :=
397: ota_evt_shd.g_old_rec.user_status;
393: ota_evt_shd.g_old_rec.language_id;
394: End If;
395: If (p_rec.user_status = hr_api.g_varchar2) then
396: p_rec.user_status :=
397: ota_evt_shd.g_old_rec.user_status;
398: End If;
399: If (p_rec.development_event_type = hr_api.g_varchar2) then
400: p_rec.development_event_type :=
401: ota_evt_shd.g_old_rec.development_event_type;
397: ota_evt_shd.g_old_rec.user_status;
398: End If;
399: If (p_rec.development_event_type = hr_api.g_varchar2) then
400: p_rec.development_event_type :=
401: ota_evt_shd.g_old_rec.development_event_type;
402: End If;
403: If (p_rec.event_status = hr_api.g_varchar2) then
404: p_rec.event_status :=
405: ota_evt_shd.g_old_rec.event_status;
401: ota_evt_shd.g_old_rec.development_event_type;
402: End If;
403: If (p_rec.event_status = hr_api.g_varchar2) then
404: p_rec.event_status :=
405: ota_evt_shd.g_old_rec.event_status;
406: End If;
407: If (p_rec.price_basis = hr_api.g_varchar2) then
408: p_rec.price_basis :=
409: ota_evt_shd.g_old_rec.price_basis;
405: ota_evt_shd.g_old_rec.event_status;
406: End If;
407: If (p_rec.price_basis = hr_api.g_varchar2) then
408: p_rec.price_basis :=
409: ota_evt_shd.g_old_rec.price_basis;
410: End If;
411: If (p_rec.currency_code = hr_api.g_varchar2) then
412: p_rec.currency_code :=
413: ota_evt_shd.g_old_rec.currency_code;
409: ota_evt_shd.g_old_rec.price_basis;
410: End If;
411: If (p_rec.currency_code = hr_api.g_varchar2) then
412: p_rec.currency_code :=
413: ota_evt_shd.g_old_rec.currency_code;
414: End If;
415: If (p_rec.maximum_attendees = hr_api.g_number) then
416: p_rec.maximum_attendees :=
417: ota_evt_shd.g_old_rec.maximum_attendees;
413: ota_evt_shd.g_old_rec.currency_code;
414: End If;
415: If (p_rec.maximum_attendees = hr_api.g_number) then
416: p_rec.maximum_attendees :=
417: ota_evt_shd.g_old_rec.maximum_attendees;
418: End If;
419: If (p_rec.maximum_internal_attendees = hr_api.g_number) then
420: p_rec.maximum_internal_attendees :=
421: ota_evt_shd.g_old_rec.maximum_internal_attendees;
417: ota_evt_shd.g_old_rec.maximum_attendees;
418: End If;
419: If (p_rec.maximum_internal_attendees = hr_api.g_number) then
420: p_rec.maximum_internal_attendees :=
421: ota_evt_shd.g_old_rec.maximum_internal_attendees;
422: End If;
423: If (p_rec.minimum_attendees = hr_api.g_number) then
424: p_rec.minimum_attendees :=
425: ota_evt_shd.g_old_rec.minimum_attendees;
421: ota_evt_shd.g_old_rec.maximum_internal_attendees;
422: End If;
423: If (p_rec.minimum_attendees = hr_api.g_number) then
424: p_rec.minimum_attendees :=
425: ota_evt_shd.g_old_rec.minimum_attendees;
426: End If;
427: If (p_rec.standard_price = hr_api.g_number) then
428: p_rec.standard_price :=
429: ota_evt_shd.g_old_rec.standard_price;
425: ota_evt_shd.g_old_rec.minimum_attendees;
426: End If;
427: If (p_rec.standard_price = hr_api.g_number) then
428: p_rec.standard_price :=
429: ota_evt_shd.g_old_rec.standard_price;
430: End If;
431: If (p_rec.category_code = hr_api.g_varchar2) then
432: p_rec.category_code :=
433: ota_evt_shd.g_old_rec.category_code;
429: ota_evt_shd.g_old_rec.standard_price;
430: End If;
431: If (p_rec.category_code = hr_api.g_varchar2) then
432: p_rec.category_code :=
433: ota_evt_shd.g_old_rec.category_code;
434: End If;
435: If (p_rec.parent_event_id = hr_api.g_number) then
436: p_rec.parent_event_id :=
437: ota_evt_shd.g_old_rec.parent_event_id;
433: ota_evt_shd.g_old_rec.category_code;
434: End If;
435: If (p_rec.parent_event_id = hr_api.g_number) then
436: p_rec.parent_event_id :=
437: ota_evt_shd.g_old_rec.parent_event_id;
438: End If;
439: If (p_rec.book_independent_flag = hr_api.g_varchar2) then
440: p_rec.book_independent_flag :=
441: ota_evt_shd.g_old_rec.book_independent_flag;
437: ota_evt_shd.g_old_rec.parent_event_id;
438: End If;
439: If (p_rec.book_independent_flag = hr_api.g_varchar2) then
440: p_rec.book_independent_flag :=
441: ota_evt_shd.g_old_rec.book_independent_flag;
442: End If;
443: If (p_rec.public_event_flag = hr_api.g_varchar2) then
444: p_rec.public_event_flag :=
445: ota_evt_shd.g_old_rec.public_event_flag;
441: ota_evt_shd.g_old_rec.book_independent_flag;
442: End If;
443: If (p_rec.public_event_flag = hr_api.g_varchar2) then
444: p_rec.public_event_flag :=
445: ota_evt_shd.g_old_rec.public_event_flag;
446: End If;
447: If (p_rec.secure_event_flag = hr_api.g_varchar2) then
448: p_rec.secure_event_flag :=
449: ota_evt_shd.g_old_rec.secure_event_flag;
445: ota_evt_shd.g_old_rec.public_event_flag;
446: End If;
447: If (p_rec.secure_event_flag = hr_api.g_varchar2) then
448: p_rec.secure_event_flag :=
449: ota_evt_shd.g_old_rec.secure_event_flag;
450: End If;
451: If (p_rec.evt_information_category = hr_api.g_varchar2) then
452: p_rec.evt_information_category :=
453: ota_evt_shd.g_old_rec.evt_information_category;
449: ota_evt_shd.g_old_rec.secure_event_flag;
450: End If;
451: If (p_rec.evt_information_category = hr_api.g_varchar2) then
452: p_rec.evt_information_category :=
453: ota_evt_shd.g_old_rec.evt_information_category;
454: End If;
455: If (p_rec.evt_information1 = hr_api.g_varchar2) then
456: p_rec.evt_information1 :=
457: ota_evt_shd.g_old_rec.evt_information1;
453: ota_evt_shd.g_old_rec.evt_information_category;
454: End If;
455: If (p_rec.evt_information1 = hr_api.g_varchar2) then
456: p_rec.evt_information1 :=
457: ota_evt_shd.g_old_rec.evt_information1;
458: End If;
459: If (p_rec.evt_information2 = hr_api.g_varchar2) then
460: p_rec.evt_information2 :=
461: ota_evt_shd.g_old_rec.evt_information2;
457: ota_evt_shd.g_old_rec.evt_information1;
458: End If;
459: If (p_rec.evt_information2 = hr_api.g_varchar2) then
460: p_rec.evt_information2 :=
461: ota_evt_shd.g_old_rec.evt_information2;
462: End If;
463: If (p_rec.evt_information3 = hr_api.g_varchar2) then
464: p_rec.evt_information3 :=
465: ota_evt_shd.g_old_rec.evt_information3;
461: ota_evt_shd.g_old_rec.evt_information2;
462: End If;
463: If (p_rec.evt_information3 = hr_api.g_varchar2) then
464: p_rec.evt_information3 :=
465: ota_evt_shd.g_old_rec.evt_information3;
466: End If;
467: If (p_rec.evt_information4 = hr_api.g_varchar2) then
468: p_rec.evt_information4 :=
469: ota_evt_shd.g_old_rec.evt_information4;
465: ota_evt_shd.g_old_rec.evt_information3;
466: End If;
467: If (p_rec.evt_information4 = hr_api.g_varchar2) then
468: p_rec.evt_information4 :=
469: ota_evt_shd.g_old_rec.evt_information4;
470: End If;
471: If (p_rec.evt_information5 = hr_api.g_varchar2) then
472: p_rec.evt_information5 :=
473: ota_evt_shd.g_old_rec.evt_information5;
469: ota_evt_shd.g_old_rec.evt_information4;
470: End If;
471: If (p_rec.evt_information5 = hr_api.g_varchar2) then
472: p_rec.evt_information5 :=
473: ota_evt_shd.g_old_rec.evt_information5;
474: End If;
475: If (p_rec.evt_information6 = hr_api.g_varchar2) then
476: p_rec.evt_information6 :=
477: ota_evt_shd.g_old_rec.evt_information6;
473: ota_evt_shd.g_old_rec.evt_information5;
474: End If;
475: If (p_rec.evt_information6 = hr_api.g_varchar2) then
476: p_rec.evt_information6 :=
477: ota_evt_shd.g_old_rec.evt_information6;
478: End If;
479: If (p_rec.evt_information7 = hr_api.g_varchar2) then
480: p_rec.evt_information7 :=
481: ota_evt_shd.g_old_rec.evt_information7;
477: ota_evt_shd.g_old_rec.evt_information6;
478: End If;
479: If (p_rec.evt_information7 = hr_api.g_varchar2) then
480: p_rec.evt_information7 :=
481: ota_evt_shd.g_old_rec.evt_information7;
482: End If;
483: If (p_rec.evt_information8 = hr_api.g_varchar2) then
484: p_rec.evt_information8 :=
485: ota_evt_shd.g_old_rec.evt_information8;
481: ota_evt_shd.g_old_rec.evt_information7;
482: End If;
483: If (p_rec.evt_information8 = hr_api.g_varchar2) then
484: p_rec.evt_information8 :=
485: ota_evt_shd.g_old_rec.evt_information8;
486: End If;
487: If (p_rec.evt_information9 = hr_api.g_varchar2) then
488: p_rec.evt_information9 :=
489: ota_evt_shd.g_old_rec.evt_information9;
485: ota_evt_shd.g_old_rec.evt_information8;
486: End If;
487: If (p_rec.evt_information9 = hr_api.g_varchar2) then
488: p_rec.evt_information9 :=
489: ota_evt_shd.g_old_rec.evt_information9;
490: End If;
491: If (p_rec.evt_information10 = hr_api.g_varchar2) then
492: p_rec.evt_information10 :=
493: ota_evt_shd.g_old_rec.evt_information10;
489: ota_evt_shd.g_old_rec.evt_information9;
490: End If;
491: If (p_rec.evt_information10 = hr_api.g_varchar2) then
492: p_rec.evt_information10 :=
493: ota_evt_shd.g_old_rec.evt_information10;
494: End If;
495: If (p_rec.evt_information11 = hr_api.g_varchar2) then
496: p_rec.evt_information11 :=
497: ota_evt_shd.g_old_rec.evt_information11;
493: ota_evt_shd.g_old_rec.evt_information10;
494: End If;
495: If (p_rec.evt_information11 = hr_api.g_varchar2) then
496: p_rec.evt_information11 :=
497: ota_evt_shd.g_old_rec.evt_information11;
498: End If;
499: If (p_rec.evt_information12 = hr_api.g_varchar2) then
500: p_rec.evt_information12 :=
501: ota_evt_shd.g_old_rec.evt_information12;
497: ota_evt_shd.g_old_rec.evt_information11;
498: End If;
499: If (p_rec.evt_information12 = hr_api.g_varchar2) then
500: p_rec.evt_information12 :=
501: ota_evt_shd.g_old_rec.evt_information12;
502: End If;
503: If (p_rec.evt_information13 = hr_api.g_varchar2) then
504: p_rec.evt_information13 :=
505: ota_evt_shd.g_old_rec.evt_information13;
501: ota_evt_shd.g_old_rec.evt_information12;
502: End If;
503: If (p_rec.evt_information13 = hr_api.g_varchar2) then
504: p_rec.evt_information13 :=
505: ota_evt_shd.g_old_rec.evt_information13;
506: End If;
507: If (p_rec.evt_information14 = hr_api.g_varchar2) then
508: p_rec.evt_information14 :=
509: ota_evt_shd.g_old_rec.evt_information14;
505: ota_evt_shd.g_old_rec.evt_information13;
506: End If;
507: If (p_rec.evt_information14 = hr_api.g_varchar2) then
508: p_rec.evt_information14 :=
509: ota_evt_shd.g_old_rec.evt_information14;
510: End If;
511: If (p_rec.evt_information15 = hr_api.g_varchar2) then
512: p_rec.evt_information15 :=
513: ota_evt_shd.g_old_rec.evt_information15;
509: ota_evt_shd.g_old_rec.evt_information14;
510: End If;
511: If (p_rec.evt_information15 = hr_api.g_varchar2) then
512: p_rec.evt_information15 :=
513: ota_evt_shd.g_old_rec.evt_information15;
514: End If;
515: If (p_rec.evt_information16 = hr_api.g_varchar2) then
516: p_rec.evt_information16 :=
517: ota_evt_shd.g_old_rec.evt_information16;
513: ota_evt_shd.g_old_rec.evt_information15;
514: End If;
515: If (p_rec.evt_information16 = hr_api.g_varchar2) then
516: p_rec.evt_information16 :=
517: ota_evt_shd.g_old_rec.evt_information16;
518: End If;
519: If (p_rec.evt_information17 = hr_api.g_varchar2) then
520: p_rec.evt_information17 :=
521: ota_evt_shd.g_old_rec.evt_information17;
517: ota_evt_shd.g_old_rec.evt_information16;
518: End If;
519: If (p_rec.evt_information17 = hr_api.g_varchar2) then
520: p_rec.evt_information17 :=
521: ota_evt_shd.g_old_rec.evt_information17;
522: End If;
523: If (p_rec.evt_information18 = hr_api.g_varchar2) then
524: p_rec.evt_information18 :=
525: ota_evt_shd.g_old_rec.evt_information18;
521: ota_evt_shd.g_old_rec.evt_information17;
522: End If;
523: If (p_rec.evt_information18 = hr_api.g_varchar2) then
524: p_rec.evt_information18 :=
525: ota_evt_shd.g_old_rec.evt_information18;
526: End If;
527: If (p_rec.evt_information19 = hr_api.g_varchar2) then
528: p_rec.evt_information19 :=
529: ota_evt_shd.g_old_rec.evt_information19;
525: ota_evt_shd.g_old_rec.evt_information18;
526: End If;
527: If (p_rec.evt_information19 = hr_api.g_varchar2) then
528: p_rec.evt_information19 :=
529: ota_evt_shd.g_old_rec.evt_information19;
530: End If;
531: If (p_rec.evt_information20 = hr_api.g_varchar2) then
532: p_rec.evt_information20 :=
533: ota_evt_shd.g_old_rec.evt_information20;
529: ota_evt_shd.g_old_rec.evt_information19;
530: End If;
531: If (p_rec.evt_information20 = hr_api.g_varchar2) then
532: p_rec.evt_information20 :=
533: ota_evt_shd.g_old_rec.evt_information20;
534: End If;
535: If (p_rec.project_id = hr_api.g_number) then
536: p_rec.project_id :=
537: ota_evt_shd.g_old_rec.project_id;
533: ota_evt_shd.g_old_rec.evt_information20;
534: End If;
535: If (p_rec.project_id = hr_api.g_number) then
536: p_rec.project_id :=
537: ota_evt_shd.g_old_rec.project_id;
538: End If;
539: If (p_rec.owner_id = hr_api.g_number) then
540: p_rec.owner_id :=
541: ota_evt_shd.g_old_rec.owner_id;
537: ota_evt_shd.g_old_rec.project_id;
538: End If;
539: If (p_rec.owner_id = hr_api.g_number) then
540: p_rec.owner_id :=
541: ota_evt_shd.g_old_rec.owner_id;
542: End If;
543: If (p_rec.line_id = hr_api.g_number) then
544: p_rec.line_id :=
545: ota_evt_shd.g_old_rec.line_id;
541: ota_evt_shd.g_old_rec.owner_id;
542: End If;
543: If (p_rec.line_id = hr_api.g_number) then
544: p_rec.line_id :=
545: ota_evt_shd.g_old_rec.line_id;
546: End If;
547: If (p_rec.org_id = hr_api.g_number) then
548: p_rec.org_id :=
549: ota_evt_shd.g_old_rec.org_id;
545: ota_evt_shd.g_old_rec.line_id;
546: End If;
547: If (p_rec.org_id = hr_api.g_number) then
548: p_rec.org_id :=
549: ota_evt_shd.g_old_rec.org_id;
550: End If;
551: If (p_rec.training_center_id = hr_api.g_number) then
552: p_rec.training_center_id :=
553: ota_evt_shd.g_old_rec.training_center_id;
549: ota_evt_shd.g_old_rec.org_id;
550: End If;
551: If (p_rec.training_center_id = hr_api.g_number) then
552: p_rec.training_center_id :=
553: ota_evt_shd.g_old_rec.training_center_id;
554: End If;
555: If (p_rec.location_id = hr_api.g_number) then
556: p_rec.location_id :=
557: ota_evt_shd.g_old_rec.location_id;
553: ota_evt_shd.g_old_rec.training_center_id;
554: End If;
555: If (p_rec.location_id = hr_api.g_number) then
556: p_rec.location_id :=
557: ota_evt_shd.g_old_rec.location_id;
558: End If;
559:
560: If (p_rec.offering_id = hr_api.g_number) then
561: p_rec.offering_id :=
558: End If;
559:
560: If (p_rec.offering_id = hr_api.g_number) then
561: p_rec.offering_id :=
562: ota_evt_shd.g_old_rec.offering_id;
563: End If;
564:
565: If (p_rec.timezone = hr_api.g_varchar2) then
566: p_rec.timezone :=
563: End If;
564:
565: If (p_rec.timezone = hr_api.g_varchar2) then
566: p_rec.timezone :=
567: ota_evt_shd.g_old_rec.timezone;
568: End If;
569:
570: If (p_rec.parent_offering_id = hr_api.g_number) then
571: p_rec.parent_offering_id :=
568: End If;
569:
570: If (p_rec.parent_offering_id = hr_api.g_number) then
571: p_rec.parent_offering_id :=
572: ota_evt_shd.g_old_rec.parent_offering_id;
573: End If;
574:
575: If (p_rec.data_source = hr_api.g_varchar2) then
576: p_rec.data_source :=
573: End If;
574:
575: If (p_rec.data_source = hr_api.g_varchar2) then
576: p_rec.data_source :=
577: ota_evt_shd.g_old_rec.data_source;
578: End If;
579:
580: If (p_rec.event_availability = hr_api.g_varchar2) then
581: p_rec.event_availability :=
578: End If;
579:
580: If (p_rec.event_availability = hr_api.g_varchar2) then
581: p_rec.event_availability :=
582: ota_evt_shd.g_old_rec.event_availability;
583: End If;
584:
585: --
586: -- Return the plsql record structure.
594: -- |---------------------------------< upd >----------------------------------|
595: -- ----------------------------------------------------------------------------
596: Procedure upd
597: (
598: p_rec in out nocopy ota_evt_shd.g_rec_type,
599: p_validate in boolean default false
600: ) is
601: --
602: l_proc varchar2(72) := g_package||'upd';
600: ) is
601: --
602: l_proc varchar2(72) := g_package||'upd';
603: -- VT 05/06/97 #488173
604: temp_var ota_evt_shd.g_rec_type;
605: l_course_start_date_changed boolean;
606: l_course_end_date_changed boolean;
607: l_course_start_time_changed boolean;
608: l_course_end_time_changed boolean;
623: End If;
624: --
625: -- We must lock the row which we need to update.
626: --
627: ota_evt_shd.lck
628: (
629: p_rec.event_id,
630: p_rec.object_version_number
631: );
668: End If;
669: -- CODING FOR NTF PROCESS
670:
671: l_course_start_date_changed
672: := ota_general.value_changed(ota_evt_shd.g_old_rec.course_start_date,
673: temp_var.course_start_date);
674: l_course_end_date_changed
675: := ota_general.value_changed(ota_evt_shd.g_old_rec.course_end_date,
676: temp_var.course_end_date);
671: l_course_start_date_changed
672: := ota_general.value_changed(ota_evt_shd.g_old_rec.course_start_date,
673: temp_var.course_start_date);
674: l_course_end_date_changed
675: := ota_general.value_changed(ota_evt_shd.g_old_rec.course_end_date,
676: temp_var.course_end_date);
677: l_course_start_time_changed := ota_general.value_changed(ota_evt_shd.g_old_rec.course_start_time,
678: temp_var.course_start_time);
679: l_course_end_time_changed := ota_general.value_changed(ota_evt_shd.g_old_rec.course_end_time,
673: temp_var.course_start_date);
674: l_course_end_date_changed
675: := ota_general.value_changed(ota_evt_shd.g_old_rec.course_end_date,
676: temp_var.course_end_date);
677: l_course_start_time_changed := ota_general.value_changed(ota_evt_shd.g_old_rec.course_start_time,
678: temp_var.course_start_time);
679: l_course_end_time_changed := ota_general.value_changed(ota_evt_shd.g_old_rec.course_end_time,
680: temp_var.course_end_time);
681:
675: := ota_general.value_changed(ota_evt_shd.g_old_rec.course_end_date,
676: temp_var.course_end_date);
677: l_course_start_time_changed := ota_general.value_changed(ota_evt_shd.g_old_rec.course_start_time,
678: temp_var.course_start_time);
679: l_course_end_time_changed := ota_general.value_changed(ota_evt_shd.g_old_rec.course_end_time,
680: temp_var.course_end_time);
681:
682: l_location_id_changed
683: := ota_general.value_changed(ota_evt_shd.g_old_rec.location_id,
679: l_course_end_time_changed := ota_general.value_changed(ota_evt_shd.g_old_rec.course_end_time,
680: temp_var.course_end_time);
681:
682: l_location_id_changed
683: := ota_general.value_changed(ota_evt_shd.g_old_rec.location_id,
684: temp_var.location_id);
685:
686: l_training_center_id_changed
687: := ota_general.value_changed(ota_evt_shd.g_old_rec.training_center_id,
683: := ota_general.value_changed(ota_evt_shd.g_old_rec.location_id,
684: temp_var.location_id);
685:
686: l_training_center_id_changed
687: := ota_general.value_changed(ota_evt_shd.g_old_rec.training_center_id,
688: temp_var.training_center_id);
689:
690: l_class_title_changed := ota_general.value_changed(ota_evt_shd.g_old_rec.title ,temp_var.title);
691:
686: l_training_center_id_changed
687: := ota_general.value_changed(ota_evt_shd.g_old_rec.training_center_id,
688: temp_var.training_center_id);
689:
690: l_class_title_changed := ota_general.value_changed(ota_evt_shd.g_old_rec.title ,temp_var.title);
691:
692:
693:
694: if (l_course_start_date_changed or
700: p_item_type => 'OTWF',
701: p_eventid => p_rec.event_id,
702: p_event_fired => 'CLASS_RESCHEDULE');
703:
704: if ota_evt_shd.g_old_rec.parent_event_id is null then
705: --send notification to all learners for class rescheduling
706: OTA_INITIALIZATION_WF.initialize_wf(p_process => 'OTA_CLASS_CANCEL_JSP_PRC',
707: p_item_type => 'OTWF',
708: p_eventid => p_rec.event_id,
719:
720: end if;
721:
722: ------------ Start Raise Business Event --------------------
723: if ota_evt_shd.g_old_rec.parent_event_id is null then
724:
725: if (l_course_start_date_changed or
726: l_course_end_date_changed or
727: l_course_start_time_changed or
765:
766: ------------ End Raise Business Event --------------------
767:
768: if (l_course_start_date_changed and trunc(temp_var.course_start_date) <= trunc(sysdate)
769: and ota_evt_shd.g_old_rec.course_start_date > trunc(sysdate)
770: and ota_evt_shd.g_old_rec.parent_event_id is null) then
771: -- send notification to all waitlisted learners of class begining
772: if (ota_utility.is_con_prog_periodic('OTEVTNTF')) then
773: ota_initialization_wf.Initialize_auto_wf(p_process => 'OTA_ENROLL_STATUS_CHNG_JSP_PRC',
766: ------------ End Raise Business Event --------------------
767:
768: if (l_course_start_date_changed and trunc(temp_var.course_start_date) <= trunc(sysdate)
769: and ota_evt_shd.g_old_rec.course_start_date > trunc(sysdate)
770: and ota_evt_shd.g_old_rec.parent_event_id is null) then
771: -- send notification to all waitlisted learners of class begining
772: if (ota_utility.is_con_prog_periodic('OTEVTNTF')) then
773: ota_initialization_wf.Initialize_auto_wf(p_process => 'OTA_ENROLL_STATUS_CHNG_JSP_PRC',
774: p_item_type => 'OTWF',
867: p_validate in boolean default false,
868: p_event_availability in varchar2 default hr_api.g_varchar2
869: ) is
870: --
871: l_rec ota_evt_shd.g_rec_type;
872: l_proc varchar2(72) := g_package||'upd';
873: --
874: Begin
875: hr_utility.set_location('Entering:'||l_proc, 5);
877: -- Call conversion function to turn arguments into the
878: -- l_rec structure.
879: --
880: l_rec :=
881: ota_evt_shd.convert_args
882: (
883: p_event_id,
884: p_vendor_id,
885: p_activity_version_id,