50: -- Internal Development Use Only.
51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml(p_rec in out nocopy ota_tav_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_tav_shd.g_api_dml := true; -- Set the api dml status
66: --
67: -- Update the ota_activity_versions Row
68: --
69: update ota_activity_versions
126: competency_update_level = p_rec.competency_update_level
127:
128: where activity_version_id = p_rec.activity_version_id;
129: --
130: ota_tav_shd.g_api_dml := false; -- Unset the api dml status
131: --
132: hr_utility.set_location(' Leaving:'||l_proc, 10);
133: --
134: Exception
133: --
134: Exception
135: When hr_api.check_integrity_violated Then
136: -- A check constraint has been violated
137: ota_tav_shd.g_api_dml := false; -- Unset the api dml status
138: ota_tav_shd.constraint_error
139: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
140: When hr_api.parent_integrity_violated Then
141: -- Parent integrity has been violated
134: Exception
135: When hr_api.check_integrity_violated Then
136: -- A check constraint has been violated
137: ota_tav_shd.g_api_dml := false; -- Unset the api dml status
138: ota_tav_shd.constraint_error
139: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
140: When hr_api.parent_integrity_violated Then
141: -- Parent integrity has been violated
142: ota_tav_shd.g_api_dml := false; -- Unset the api dml status
138: ota_tav_shd.constraint_error
139: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
140: When hr_api.parent_integrity_violated Then
141: -- Parent integrity has been violated
142: ota_tav_shd.g_api_dml := false; -- Unset the api dml status
143: ota_tav_shd.constraint_error
144: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
145: When hr_api.unique_integrity_violated Then
146: -- Unique integrity has been violated
139: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
140: When hr_api.parent_integrity_violated Then
141: -- Parent integrity has been violated
142: ota_tav_shd.g_api_dml := false; -- Unset the api dml status
143: ota_tav_shd.constraint_error
144: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
145: When hr_api.unique_integrity_violated Then
146: -- Unique integrity has been violated
147: ota_tav_shd.g_api_dml := false; -- Unset the api dml status
143: ota_tav_shd.constraint_error
144: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
145: When hr_api.unique_integrity_violated Then
146: -- Unique integrity has been violated
147: ota_tav_shd.g_api_dml := false; -- Unset the api dml status
148: ota_tav_shd.constraint_error
149: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
150: When Others Then
151: ota_tav_shd.g_api_dml := false; -- Unset the api dml status
144: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
145: When hr_api.unique_integrity_violated Then
146: -- Unique integrity has been violated
147: ota_tav_shd.g_api_dml := false; -- Unset the api dml status
148: ota_tav_shd.constraint_error
149: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
150: When Others Then
151: ota_tav_shd.g_api_dml := false; -- Unset the api dml status
152: Raise;
147: ota_tav_shd.g_api_dml := false; -- Unset the api dml status
148: ota_tav_shd.constraint_error
149: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
150: When Others Then
151: ota_tav_shd.g_api_dml := false; -- Unset the api dml status
152: Raise;
153: End update_dml;
154: --
155: -- ----------------------------------------------------------------------------
183: -- Internal Development Use Only.
184: --
185: -- {End Of Comments}
186: -- ----------------------------------------------------------------------------
187: Procedure pre_update(p_rec in ota_tav_shd.g_rec_type) is
188: --
189: l_proc varchar2(72) := g_package||'pre_update';
190: --
191: Begin
225: -- Internal Development Use Only.
226: --
227: -- {End Of Comments}
228: -- ----------------------------------------------------------------------------
229: Procedure post_update(p_rec in ota_tav_shd.g_rec_type) is
230: --
231: l_proc varchar2(72) := g_package||'post_update';
232: l_start_date_changed boolean := ota_general.value_changed(ota_tav_shd.g_old_rec.start_date, p_rec.start_date);
233: l_end_date_changed boolean := ota_general.value_changed(ota_tav_shd.g_old_rec.end_date, p_rec.end_date);
228: -- ----------------------------------------------------------------------------
229: Procedure post_update(p_rec in ota_tav_shd.g_rec_type) is
230: --
231: l_proc varchar2(72) := g_package||'post_update';
232: l_start_date_changed boolean := ota_general.value_changed(ota_tav_shd.g_old_rec.start_date, p_rec.start_date);
233: l_end_date_changed boolean := ota_general.value_changed(ota_tav_shd.g_old_rec.end_date, p_rec.end_date);
234: --
235: Begin
236: hr_utility.set_location('Entering:'||l_proc, 5);
229: Procedure post_update(p_rec in ota_tav_shd.g_rec_type) is
230: --
231: l_proc varchar2(72) := g_package||'post_update';
232: l_start_date_changed boolean := ota_general.value_changed(ota_tav_shd.g_old_rec.start_date, p_rec.start_date);
233: l_end_date_changed boolean := ota_general.value_changed(ota_tav_shd.g_old_rec.end_date, p_rec.end_date);
234: --
235: Begin
236: hr_utility.set_location('Entering:'||l_proc, 5);
237: --
239: return;
240: Else
241: /*
242: ota_rud_api.update_resource_usage_dates( p_rec.activity_version_id
243: ,ota_tav_shd.g_old_rec.start_date
244: , p_rec.start_date
245: , ota_tav_shd.g_old_rec.end_date
246: , p_rec.end_date
247: );
241: /*
242: ota_rud_api.update_resource_usage_dates( p_rec.activity_version_id
243: ,ota_tav_shd.g_old_rec.start_date
244: , p_rec.start_date
245: , ota_tav_shd.g_old_rec.end_date
246: , p_rec.end_date
247: );
248: */
249: hr_competence_element_api.update_delivered_dates
247: );
248: */
249: hr_competence_element_api.update_delivered_dates
250: ( p_rec.activity_version_id
251: ,ota_tav_shd.g_old_rec.start_date
252: , p_rec.start_date
253: , ota_tav_shd.g_old_rec.end_date
254: , p_rec.end_date
255: );
249: hr_competence_element_api.update_delivered_dates
250: ( p_rec.activity_version_id
251: ,ota_tav_shd.g_old_rec.start_date
252: , p_rec.start_date
253: , ota_tav_shd.g_old_rec.end_date
254: , p_rec.end_date
255: );
256: End if;
257: --
300: -- Internal Development Use Only.
301: --
302: -- {End Of Comments}
303: -- ----------------------------------------------------------------------------
304: Function convert_defs(p_rec in out nocopy ota_tav_shd.g_rec_type)
305: Return ota_tav_shd.g_rec_type is
306: --
307: l_proc varchar2(72) := g_package||'convert_defs';
308: --
301: --
302: -- {End Of Comments}
303: -- ----------------------------------------------------------------------------
304: Function convert_defs(p_rec in out nocopy ota_tav_shd.g_rec_type)
305: Return ota_tav_shd.g_rec_type is
306: --
307: l_proc varchar2(72) := g_package||'convert_defs';
308: --
309: Begin
316: -- is being used then we must set to the 'current' argument value.
317: --
318: If (p_rec.activity_id = hr_api.g_number) then
319: p_rec.activity_id :=
320: ota_tav_shd.g_old_rec.activity_id;
321: End If;
322: If (p_rec.superseded_by_act_version_id = hr_api.g_number) then
323: p_rec.superseded_by_act_version_id :=
324: ota_tav_shd.g_old_rec.superseded_by_act_version_id;
320: ota_tav_shd.g_old_rec.activity_id;
321: End If;
322: If (p_rec.superseded_by_act_version_id = hr_api.g_number) then
323: p_rec.superseded_by_act_version_id :=
324: ota_tav_shd.g_old_rec.superseded_by_act_version_id;
325: End If;
326: If (p_rec.developer_organization_id = hr_api.g_number) then
327: p_rec.developer_organization_id :=
328: ota_tav_shd.g_old_rec.developer_organization_id;
324: ota_tav_shd.g_old_rec.superseded_by_act_version_id;
325: End If;
326: If (p_rec.developer_organization_id = hr_api.g_number) then
327: p_rec.developer_organization_id :=
328: ota_tav_shd.g_old_rec.developer_organization_id;
329: End If;
330: If (p_rec.controlling_person_id = hr_api.g_number) then
331: p_rec.controlling_person_id :=
332: ota_tav_shd.g_old_rec.controlling_person_id;
328: ota_tav_shd.g_old_rec.developer_organization_id;
329: End If;
330: If (p_rec.controlling_person_id = hr_api.g_number) then
331: p_rec.controlling_person_id :=
332: ota_tav_shd.g_old_rec.controlling_person_id;
333: End If;
334: If (p_rec.version_name = hr_api.g_varchar2) then
335: p_rec.version_name :=
336: ota_tav_shd.g_old_rec.version_name;
332: ota_tav_shd.g_old_rec.controlling_person_id;
333: End If;
334: If (p_rec.version_name = hr_api.g_varchar2) then
335: p_rec.version_name :=
336: ota_tav_shd.g_old_rec.version_name;
337: End If;
338: If (p_rec.comments = hr_api.g_varchar2) then
339: p_rec.comments :=
340: ota_tav_shd.g_old_rec.comments;
336: ota_tav_shd.g_old_rec.version_name;
337: End If;
338: If (p_rec.comments = hr_api.g_varchar2) then
339: p_rec.comments :=
340: ota_tav_shd.g_old_rec.comments;
341: End If;
342: If (p_rec.description = hr_api.g_varchar2) then
343: p_rec.description :=
344: ota_tav_shd.g_old_rec.description;
340: ota_tav_shd.g_old_rec.comments;
341: End If;
342: If (p_rec.description = hr_api.g_varchar2) then
343: p_rec.description :=
344: ota_tav_shd.g_old_rec.description;
345: End If;
346: If (p_rec.duration = hr_api.g_number) then
347: p_rec.duration :=
348: ota_tav_shd.g_old_rec.duration;
344: ota_tav_shd.g_old_rec.description;
345: End If;
346: If (p_rec.duration = hr_api.g_number) then
347: p_rec.duration :=
348: ota_tav_shd.g_old_rec.duration;
349: End If;
350: If (p_rec.duration_units = hr_api.g_varchar2) then
351: p_rec.duration_units :=
352: ota_tav_shd.g_old_rec.duration_units;
348: ota_tav_shd.g_old_rec.duration;
349: End If;
350: If (p_rec.duration_units = hr_api.g_varchar2) then
351: p_rec.duration_units :=
352: ota_tav_shd.g_old_rec.duration_units;
353: End If;
354: If (p_rec.end_date = hr_api.g_date) then
355: p_rec.end_date :=
356: ota_tav_shd.g_old_rec.end_date;
352: ota_tav_shd.g_old_rec.duration_units;
353: End If;
354: If (p_rec.end_date = hr_api.g_date) then
355: p_rec.end_date :=
356: ota_tav_shd.g_old_rec.end_date;
357: End If;
358: If (p_rec.intended_audience = hr_api.g_varchar2) then
359: p_rec.intended_audience :=
360: ota_tav_shd.g_old_rec.intended_audience;
356: ota_tav_shd.g_old_rec.end_date;
357: End If;
358: If (p_rec.intended_audience = hr_api.g_varchar2) then
359: p_rec.intended_audience :=
360: ota_tav_shd.g_old_rec.intended_audience;
361: End If;
362: If (p_rec.language_id = hr_api.g_number) then
363: p_rec.language_id :=
364: ota_tav_shd.g_old_rec.language_id;
360: ota_tav_shd.g_old_rec.intended_audience;
361: End If;
362: If (p_rec.language_id = hr_api.g_number) then
363: p_rec.language_id :=
364: ota_tav_shd.g_old_rec.language_id;
365: End If;
366: If (p_rec.maximum_attendees = hr_api.g_number) then
367: p_rec.maximum_attendees :=
368: ota_tav_shd.g_old_rec.maximum_attendees;
364: ota_tav_shd.g_old_rec.language_id;
365: End If;
366: If (p_rec.maximum_attendees = hr_api.g_number) then
367: p_rec.maximum_attendees :=
368: ota_tav_shd.g_old_rec.maximum_attendees;
369: End If;
370: If (p_rec.minimum_attendees = hr_api.g_number) then
371: p_rec.minimum_attendees :=
372: ota_tav_shd.g_old_rec.minimum_attendees;
368: ota_tav_shd.g_old_rec.maximum_attendees;
369: End If;
370: If (p_rec.minimum_attendees = hr_api.g_number) then
371: p_rec.minimum_attendees :=
372: ota_tav_shd.g_old_rec.minimum_attendees;
373: End If;
374: If (p_rec.objectives = hr_api.g_varchar2) then
375: p_rec.objectives :=
376: ota_tav_shd.g_old_rec.objectives;
372: ota_tav_shd.g_old_rec.minimum_attendees;
373: End If;
374: If (p_rec.objectives = hr_api.g_varchar2) then
375: p_rec.objectives :=
376: ota_tav_shd.g_old_rec.objectives;
377: End If;
378: If (p_rec.start_date = hr_api.g_date) then
379: p_rec.start_date :=
380: ota_tav_shd.g_old_rec.start_date;
376: ota_tav_shd.g_old_rec.objectives;
377: End If;
378: If (p_rec.start_date = hr_api.g_date) then
379: p_rec.start_date :=
380: ota_tav_shd.g_old_rec.start_date;
381: End If;
382: If (p_rec.success_criteria = hr_api.g_varchar2) then
383: p_rec.success_criteria :=
384: ota_tav_shd.g_old_rec.success_criteria;
380: ota_tav_shd.g_old_rec.start_date;
381: End If;
382: If (p_rec.success_criteria = hr_api.g_varchar2) then
383: p_rec.success_criteria :=
384: ota_tav_shd.g_old_rec.success_criteria;
385: End If;
386: If (p_rec.user_status = hr_api.g_varchar2) then
387: p_rec.user_status :=
388: ota_tav_shd.g_old_rec.user_status;
384: ota_tav_shd.g_old_rec.success_criteria;
385: End If;
386: If (p_rec.user_status = hr_api.g_varchar2) then
387: p_rec.user_status :=
388: ota_tav_shd.g_old_rec.user_status;
389: End If;
390: If (p_rec.vendor_id = hr_api.g_number) then
391: p_rec.vendor_id :=
392: ota_tav_shd.g_old_rec.vendor_id;
388: ota_tav_shd.g_old_rec.user_status;
389: End If;
390: If (p_rec.vendor_id = hr_api.g_number) then
391: p_rec.vendor_id :=
392: ota_tav_shd.g_old_rec.vendor_id;
393: End If;
394: If (p_rec.actual_cost = hr_api.g_number) then
395: p_rec.actual_cost :=
396: ota_tav_shd.g_old_rec.actual_cost;
392: ota_tav_shd.g_old_rec.vendor_id;
393: End If;
394: If (p_rec.actual_cost = hr_api.g_number) then
395: p_rec.actual_cost :=
396: ota_tav_shd.g_old_rec.actual_cost;
397: End If;
398: If (p_rec.budget_cost = hr_api.g_number) then
399: p_rec.budget_cost :=
400: ota_tav_shd.g_old_rec.budget_cost;
396: ota_tav_shd.g_old_rec.actual_cost;
397: End If;
398: If (p_rec.budget_cost = hr_api.g_number) then
399: p_rec.budget_cost :=
400: ota_tav_shd.g_old_rec.budget_cost;
401: End If;
402: If (p_rec.budget_currency_code = hr_api.g_varchar2) then
403: p_rec.budget_currency_code :=
404: ota_tav_shd.g_old_rec.budget_currency_code;
400: ota_tav_shd.g_old_rec.budget_cost;
401: End If;
402: If (p_rec.budget_currency_code = hr_api.g_varchar2) then
403: p_rec.budget_currency_code :=
404: ota_tav_shd.g_old_rec.budget_currency_code;
405: End If;
406: If (p_rec.expenses_allowed = hr_api.g_varchar2) then
407: p_rec.expenses_allowed :=
408: ota_tav_shd.g_old_rec.expenses_allowed;
404: ota_tav_shd.g_old_rec.budget_currency_code;
405: End If;
406: If (p_rec.expenses_allowed = hr_api.g_varchar2) then
407: p_rec.expenses_allowed :=
408: ota_tav_shd.g_old_rec.expenses_allowed;
409: End If;
410: If (p_rec.professional_credit_type = hr_api.g_varchar2) then
411: p_rec.professional_credit_type :=
412: ota_tav_shd.g_old_rec.professional_credit_type;
408: ota_tav_shd.g_old_rec.expenses_allowed;
409: End If;
410: If (p_rec.professional_credit_type = hr_api.g_varchar2) then
411: p_rec.professional_credit_type :=
412: ota_tav_shd.g_old_rec.professional_credit_type;
413: End If;
414: If (p_rec.professional_credits = hr_api.g_number) then
415: p_rec.professional_credits :=
416: ota_tav_shd.g_old_rec.professional_credits;
412: ota_tav_shd.g_old_rec.professional_credit_type;
413: End If;
414: If (p_rec.professional_credits = hr_api.g_number) then
415: p_rec.professional_credits :=
416: ota_tav_shd.g_old_rec.professional_credits;
417: End If;
418: If (p_rec.maximum_internal_attendees = hr_api.g_number) then
419: p_rec.maximum_internal_attendees :=
420: ota_tav_shd.g_old_rec.maximum_internal_attendees;
416: ota_tav_shd.g_old_rec.professional_credits;
417: End If;
418: If (p_rec.maximum_internal_attendees = hr_api.g_number) then
419: p_rec.maximum_internal_attendees :=
420: ota_tav_shd.g_old_rec.maximum_internal_attendees;
421: End If;
422: If (p_rec.tav_information_category = hr_api.g_varchar2) then
423: p_rec.tav_information_category :=
424: ota_tav_shd.g_old_rec.tav_information_category;
420: ota_tav_shd.g_old_rec.maximum_internal_attendees;
421: End If;
422: If (p_rec.tav_information_category = hr_api.g_varchar2) then
423: p_rec.tav_information_category :=
424: ota_tav_shd.g_old_rec.tav_information_category;
425: End If;
426: If (p_rec.tav_information1 = hr_api.g_varchar2) then
427: p_rec.tav_information1 :=
428: ota_tav_shd.g_old_rec.tav_information1;
424: ota_tav_shd.g_old_rec.tav_information_category;
425: End If;
426: If (p_rec.tav_information1 = hr_api.g_varchar2) then
427: p_rec.tav_information1 :=
428: ota_tav_shd.g_old_rec.tav_information1;
429: End If;
430: If (p_rec.tav_information2 = hr_api.g_varchar2) then
431: p_rec.tav_information2 :=
432: ota_tav_shd.g_old_rec.tav_information2;
428: ota_tav_shd.g_old_rec.tav_information1;
429: End If;
430: If (p_rec.tav_information2 = hr_api.g_varchar2) then
431: p_rec.tav_information2 :=
432: ota_tav_shd.g_old_rec.tav_information2;
433: End If;
434: If (p_rec.tav_information3 = hr_api.g_varchar2) then
435: p_rec.tav_information3 :=
436: ota_tav_shd.g_old_rec.tav_information3;
432: ota_tav_shd.g_old_rec.tav_information2;
433: End If;
434: If (p_rec.tav_information3 = hr_api.g_varchar2) then
435: p_rec.tav_information3 :=
436: ota_tav_shd.g_old_rec.tav_information3;
437: End If;
438: If (p_rec.tav_information4 = hr_api.g_varchar2) then
439: p_rec.tav_information4 :=
440: ota_tav_shd.g_old_rec.tav_information4;
436: ota_tav_shd.g_old_rec.tav_information3;
437: End If;
438: If (p_rec.tav_information4 = hr_api.g_varchar2) then
439: p_rec.tav_information4 :=
440: ota_tav_shd.g_old_rec.tav_information4;
441: End If;
442: If (p_rec.tav_information5 = hr_api.g_varchar2) then
443: p_rec.tav_information5 :=
444: ota_tav_shd.g_old_rec.tav_information5;
440: ota_tav_shd.g_old_rec.tav_information4;
441: End If;
442: If (p_rec.tav_information5 = hr_api.g_varchar2) then
443: p_rec.tav_information5 :=
444: ota_tav_shd.g_old_rec.tav_information5;
445: End If;
446: If (p_rec.tav_information6 = hr_api.g_varchar2) then
447: p_rec.tav_information6 :=
448: ota_tav_shd.g_old_rec.tav_information6;
444: ota_tav_shd.g_old_rec.tav_information5;
445: End If;
446: If (p_rec.tav_information6 = hr_api.g_varchar2) then
447: p_rec.tav_information6 :=
448: ota_tav_shd.g_old_rec.tav_information6;
449: End If;
450: If (p_rec.tav_information7 = hr_api.g_varchar2) then
451: p_rec.tav_information7 :=
452: ota_tav_shd.g_old_rec.tav_information7;
448: ota_tav_shd.g_old_rec.tav_information6;
449: End If;
450: If (p_rec.tav_information7 = hr_api.g_varchar2) then
451: p_rec.tav_information7 :=
452: ota_tav_shd.g_old_rec.tav_information7;
453: End If;
454: If (p_rec.tav_information8 = hr_api.g_varchar2) then
455: p_rec.tav_information8 :=
456: ota_tav_shd.g_old_rec.tav_information8;
452: ota_tav_shd.g_old_rec.tav_information7;
453: End If;
454: If (p_rec.tav_information8 = hr_api.g_varchar2) then
455: p_rec.tav_information8 :=
456: ota_tav_shd.g_old_rec.tav_information8;
457: End If;
458: If (p_rec.tav_information9 = hr_api.g_varchar2) then
459: p_rec.tav_information9 :=
460: ota_tav_shd.g_old_rec.tav_information9;
456: ota_tav_shd.g_old_rec.tav_information8;
457: End If;
458: If (p_rec.tav_information9 = hr_api.g_varchar2) then
459: p_rec.tav_information9 :=
460: ota_tav_shd.g_old_rec.tav_information9;
461: End If;
462: If (p_rec.tav_information10 = hr_api.g_varchar2) then
463: p_rec.tav_information10 :=
464: ota_tav_shd.g_old_rec.tav_information10;
460: ota_tav_shd.g_old_rec.tav_information9;
461: End If;
462: If (p_rec.tav_information10 = hr_api.g_varchar2) then
463: p_rec.tav_information10 :=
464: ota_tav_shd.g_old_rec.tav_information10;
465: End If;
466: If (p_rec.tav_information11 = hr_api.g_varchar2) then
467: p_rec.tav_information11 :=
468: ota_tav_shd.g_old_rec.tav_information11;
464: ota_tav_shd.g_old_rec.tav_information10;
465: End If;
466: If (p_rec.tav_information11 = hr_api.g_varchar2) then
467: p_rec.tav_information11 :=
468: ota_tav_shd.g_old_rec.tav_information11;
469: End If;
470: If (p_rec.tav_information12 = hr_api.g_varchar2) then
471: p_rec.tav_information12 :=
472: ota_tav_shd.g_old_rec.tav_information12;
468: ota_tav_shd.g_old_rec.tav_information11;
469: End If;
470: If (p_rec.tav_information12 = hr_api.g_varchar2) then
471: p_rec.tav_information12 :=
472: ota_tav_shd.g_old_rec.tav_information12;
473: End If;
474: If (p_rec.tav_information13 = hr_api.g_varchar2) then
475: p_rec.tav_information13 :=
476: ota_tav_shd.g_old_rec.tav_information13;
472: ota_tav_shd.g_old_rec.tav_information12;
473: End If;
474: If (p_rec.tav_information13 = hr_api.g_varchar2) then
475: p_rec.tav_information13 :=
476: ota_tav_shd.g_old_rec.tav_information13;
477: End If;
478: If (p_rec.tav_information14 = hr_api.g_varchar2) then
479: p_rec.tav_information14 :=
480: ota_tav_shd.g_old_rec.tav_information14;
476: ota_tav_shd.g_old_rec.tav_information13;
477: End If;
478: If (p_rec.tav_information14 = hr_api.g_varchar2) then
479: p_rec.tav_information14 :=
480: ota_tav_shd.g_old_rec.tav_information14;
481: End If;
482: If (p_rec.tav_information15 = hr_api.g_varchar2) then
483: p_rec.tav_information15 :=
484: ota_tav_shd.g_old_rec.tav_information15;
480: ota_tav_shd.g_old_rec.tav_information14;
481: End If;
482: If (p_rec.tav_information15 = hr_api.g_varchar2) then
483: p_rec.tav_information15 :=
484: ota_tav_shd.g_old_rec.tav_information15;
485: End If;
486: If (p_rec.tav_information16 = hr_api.g_varchar2) then
487: p_rec.tav_information16 :=
488: ota_tav_shd.g_old_rec.tav_information16;
484: ota_tav_shd.g_old_rec.tav_information15;
485: End If;
486: If (p_rec.tav_information16 = hr_api.g_varchar2) then
487: p_rec.tav_information16 :=
488: ota_tav_shd.g_old_rec.tav_information16;
489: End If;
490: If (p_rec.tav_information17 = hr_api.g_varchar2) then
491: p_rec.tav_information17 :=
492: ota_tav_shd.g_old_rec.tav_information17;
488: ota_tav_shd.g_old_rec.tav_information16;
489: End If;
490: If (p_rec.tav_information17 = hr_api.g_varchar2) then
491: p_rec.tav_information17 :=
492: ota_tav_shd.g_old_rec.tav_information17;
493: End If;
494: If (p_rec.tav_information18 = hr_api.g_varchar2) then
495: p_rec.tav_information18 :=
496: ota_tav_shd.g_old_rec.tav_information18;
492: ota_tav_shd.g_old_rec.tav_information17;
493: End If;
494: If (p_rec.tav_information18 = hr_api.g_varchar2) then
495: p_rec.tav_information18 :=
496: ota_tav_shd.g_old_rec.tav_information18;
497: End If;
498: If (p_rec.tav_information19 = hr_api.g_varchar2) then
499: p_rec.tav_information19 :=
500: ota_tav_shd.g_old_rec.tav_information19;
496: ota_tav_shd.g_old_rec.tav_information18;
497: End If;
498: If (p_rec.tav_information19 = hr_api.g_varchar2) then
499: p_rec.tav_information19 :=
500: ota_tav_shd.g_old_rec.tav_information19;
501: End If;
502: If (p_rec.tav_information20 = hr_api.g_varchar2) then
503: p_rec.tav_information20 :=
504: ota_tav_shd.g_old_rec.tav_information20;
500: ota_tav_shd.g_old_rec.tav_information19;
501: End If;
502: If (p_rec.tav_information20 = hr_api.g_varchar2) then
503: p_rec.tav_information20 :=
504: ota_tav_shd.g_old_rec.tav_information20;
505: End If;
506: If (p_rec.inventory_item_id = hr_api.g_number) then
507: p_rec.inventory_item_id :=
508: ota_tav_shd.g_old_rec.inventory_item_id;
504: ota_tav_shd.g_old_rec.tav_information20;
505: End If;
506: If (p_rec.inventory_item_id = hr_api.g_number) then
507: p_rec.inventory_item_id :=
508: ota_tav_shd.g_old_rec.inventory_item_id;
509: End If;
510: If (p_rec.organization_id = hr_api.g_number) then
511: p_rec.organization_id :=
512: ota_tav_shd.g_old_rec.organization_id;
508: ota_tav_shd.g_old_rec.inventory_item_id;
509: End If;
510: If (p_rec.organization_id = hr_api.g_number) then
511: p_rec.organization_id :=
512: ota_tav_shd.g_old_rec.organization_id;
513: End If;
514: If (p_rec.rco_id = hr_api.g_number) then
515: p_rec.rco_id :=
516: ota_tav_shd.g_old_rec.rco_id;
512: ota_tav_shd.g_old_rec.organization_id;
513: End If;
514: If (p_rec.rco_id = hr_api.g_number) then
515: p_rec.rco_id :=
516: ota_tav_shd.g_old_rec.rco_id;
517: End If;
518: If (p_rec.version_code = hr_api.g_varchar2) then
519: p_rec.version_code :=
520: ota_tav_shd.g_old_rec.version_code;
516: ota_tav_shd.g_old_rec.rco_id;
517: End If;
518: If (p_rec.version_code = hr_api.g_varchar2) then
519: p_rec.version_code :=
520: ota_tav_shd.g_old_rec.version_code;
521: End If;
522: If (p_rec.business_group_id = hr_api.g_number) then
523: p_rec.business_group_id :=
524: ota_tav_shd.g_old_rec.business_group_id;
520: ota_tav_shd.g_old_rec.version_code;
521: End If;
522: If (p_rec.business_group_id = hr_api.g_number) then
523: p_rec.business_group_id :=
524: ota_tav_shd.g_old_rec.business_group_id;
525: End If;
526: If (p_rec.data_source = hr_api.g_varchar2) then
527: p_rec.data_source :=
528: ota_tav_shd.g_old_rec.data_source;
524: ota_tav_shd.g_old_rec.business_group_id;
525: End If;
526: If (p_rec.data_source = hr_api.g_varchar2) then
527: p_rec.data_source :=
528: ota_tav_shd.g_old_rec.data_source;
529: End If;
530: If (p_rec.competency_update_level = hr_api.g_varchar2) then
531: p_rec.competency_update_level :=
532: ota_tav_shd.g_old_rec.competency_update_level;
528: ota_tav_shd.g_old_rec.data_source;
529: End If;
530: If (p_rec.competency_update_level = hr_api.g_varchar2) then
531: p_rec.competency_update_level :=
532: ota_tav_shd.g_old_rec.competency_update_level;
533: End If;
534:
535: --
536: -- Return the plsql record structure.
544: -- |---------------------------------< upd >----------------------------------|
545: -- ----------------------------------------------------------------------------
546: Procedure upd
547: (
548: p_rec in out nocopy ota_tav_shd.g_rec_type,
549: p_validate in boolean
550: ) is
551: --
552: l_proc varchar2(72) := g_package||'upd';
564: End If;
565: --
566: -- We must lock the row which we need to update.
567: --
568: ota_tav_shd.lck
569: (
570: p_rec.activity_version_id,
571: p_rec.object_version_number
572: );
678: ,p_competency_update_level in varchar2
679:
680: ) is
681: --
682: l_rec ota_tav_shd.g_rec_type;
683: l_proc varchar2(72) := g_package||'upd';
684: --
685: Begin
686: hr_utility.set_location('Entering:'||l_proc, 5);
688: -- Call conversion function to turn arguments into the
689: -- l_rec structure.
690: --
691: l_rec :=
692: ota_tav_shd.convert_args
693: (
694: p_activity_version_id,
695: p_activity_id,
696: p_superseded_by_act_version_id,