51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml
55: (p_rec in out nocopy ota_ctl_shd.g_rec_type
56: ) is
57: --
58: l_proc varchar2(72) := g_package||'update_dml';
59: --
88: Exception
89: When hr_api.check_integrity_violated Then
90: -- A check constraint has been violated
91: --
92: ota_ctl_shd.constraint_error
93: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
94: When hr_api.parent_integrity_violated Then
95: -- Parent integrity has been violated
96: --
93: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
94: When hr_api.parent_integrity_violated Then
95: -- Parent integrity has been violated
96: --
97: ota_ctl_shd.constraint_error
98: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
99: When hr_api.unique_integrity_violated Then
100: -- Unique integrity has been violated
101: --
98: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
99: When hr_api.unique_integrity_violated Then
100: -- Unique integrity has been violated
101: --
102: ota_ctl_shd.constraint_error
103: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
104: When Others Then
105: --
106: Raise;
138: --
139: -- {End Of Comments}
140: -- ----------------------------------------------------------------------------
141: Procedure pre_update
142: (p_rec in ota_ctl_shd.g_rec_type
143: ) is
144: --
145: l_proc varchar2(72) := g_package||'pre_update';
146: --
183: -- {End Of Comments}
184: -- ----------------------------------------------------------------------------
185: Procedure post_update
186: (p_effective_date in date
187: ,p_rec in ota_ctl_shd.g_rec_type
188: ) is
189: --
190: l_proc varchar2(72) := g_package||'post_update';
191: --
217: => p_rec.renewal_period_comments
218: ,p_source_lang
219: => p_rec.source_lang
220: ,p_name_o
221: => ota_ctl_shd.g_old_rec.name
222: ,p_description_o
223: => ota_ctl_shd.g_old_rec.description
224: ,p_objectives_o
225: => ota_ctl_shd.g_old_rec.objectives
219: => p_rec.source_lang
220: ,p_name_o
221: => ota_ctl_shd.g_old_rec.name
222: ,p_description_o
223: => ota_ctl_shd.g_old_rec.description
224: ,p_objectives_o
225: => ota_ctl_shd.g_old_rec.objectives
226: ,p_purpose_o
227: => ota_ctl_shd.g_old_rec.purpose
221: => ota_ctl_shd.g_old_rec.name
222: ,p_description_o
223: => ota_ctl_shd.g_old_rec.description
224: ,p_objectives_o
225: => ota_ctl_shd.g_old_rec.objectives
226: ,p_purpose_o
227: => ota_ctl_shd.g_old_rec.purpose
228: ,p_keywords_o
229: => ota_ctl_shd.g_old_rec.keywords
223: => ota_ctl_shd.g_old_rec.description
224: ,p_objectives_o
225: => ota_ctl_shd.g_old_rec.objectives
226: ,p_purpose_o
227: => ota_ctl_shd.g_old_rec.purpose
228: ,p_keywords_o
229: => ota_ctl_shd.g_old_rec.keywords
230: ,p_end_date_comments_o
231: => ota_ctl_shd.g_old_rec.end_date_comments
225: => ota_ctl_shd.g_old_rec.objectives
226: ,p_purpose_o
227: => ota_ctl_shd.g_old_rec.purpose
228: ,p_keywords_o
229: => ota_ctl_shd.g_old_rec.keywords
230: ,p_end_date_comments_o
231: => ota_ctl_shd.g_old_rec.end_date_comments
232: ,p_initial_period_comments_o
233: => ota_ctl_shd.g_old_rec.initial_period_comments
227: => ota_ctl_shd.g_old_rec.purpose
228: ,p_keywords_o
229: => ota_ctl_shd.g_old_rec.keywords
230: ,p_end_date_comments_o
231: => ota_ctl_shd.g_old_rec.end_date_comments
232: ,p_initial_period_comments_o
233: => ota_ctl_shd.g_old_rec.initial_period_comments
234: ,p_renewal_period_comments_o
235: => ota_ctl_shd.g_old_rec.renewal_period_comments
229: => ota_ctl_shd.g_old_rec.keywords
230: ,p_end_date_comments_o
231: => ota_ctl_shd.g_old_rec.end_date_comments
232: ,p_initial_period_comments_o
233: => ota_ctl_shd.g_old_rec.initial_period_comments
234: ,p_renewal_period_comments_o
235: => ota_ctl_shd.g_old_rec.renewal_period_comments
236: ,p_source_lang_o
237: => ota_ctl_shd.g_old_rec.source_lang
231: => ota_ctl_shd.g_old_rec.end_date_comments
232: ,p_initial_period_comments_o
233: => ota_ctl_shd.g_old_rec.initial_period_comments
234: ,p_renewal_period_comments_o
235: => ota_ctl_shd.g_old_rec.renewal_period_comments
236: ,p_source_lang_o
237: => ota_ctl_shd.g_old_rec.source_lang
238: );
239: --
233: => ota_ctl_shd.g_old_rec.initial_period_comments
234: ,p_renewal_period_comments_o
235: => ota_ctl_shd.g_old_rec.renewal_period_comments
236: ,p_source_lang_o
237: => ota_ctl_shd.g_old_rec.source_lang
238: );
239: --
240: exception
241: --
293: --
294: -- {End Of Comments}
295: -- ----------------------------------------------------------------------------
296: Procedure convert_defs
297: (p_rec in out nocopy ota_ctl_shd.g_rec_type
298: ) is
299: --
300: Begin
301: --
305: -- is being used then we must set to the 'current' argument value.
306: --
307: If (p_rec.name = hr_api.g_varchar2) then
308: p_rec.name :=
309: ota_ctl_shd.g_old_rec.name;
310: End If;
311: If (p_rec.description = hr_api.g_varchar2) then
312: p_rec.description :=
313: ota_ctl_shd.g_old_rec.description;
309: ota_ctl_shd.g_old_rec.name;
310: End If;
311: If (p_rec.description = hr_api.g_varchar2) then
312: p_rec.description :=
313: ota_ctl_shd.g_old_rec.description;
314: End If;
315: If (p_rec.objectives = hr_api.g_varchar2) then
316: p_rec.objectives :=
317: ota_ctl_shd.g_old_rec.objectives;
313: ota_ctl_shd.g_old_rec.description;
314: End If;
315: If (p_rec.objectives = hr_api.g_varchar2) then
316: p_rec.objectives :=
317: ota_ctl_shd.g_old_rec.objectives;
318: End If;
319: If (p_rec.purpose = hr_api.g_varchar2) then
320: p_rec.purpose :=
321: ota_ctl_shd.g_old_rec.purpose;
317: ota_ctl_shd.g_old_rec.objectives;
318: End If;
319: If (p_rec.purpose = hr_api.g_varchar2) then
320: p_rec.purpose :=
321: ota_ctl_shd.g_old_rec.purpose;
322: End If;
323: If (p_rec.keywords = hr_api.g_varchar2) then
324: p_rec.keywords :=
325: ota_ctl_shd.g_old_rec.keywords;
321: ota_ctl_shd.g_old_rec.purpose;
322: End If;
323: If (p_rec.keywords = hr_api.g_varchar2) then
324: p_rec.keywords :=
325: ota_ctl_shd.g_old_rec.keywords;
326: End If;
327: If (p_rec.end_date_comments = hr_api.g_varchar2) then
328: p_rec.end_date_comments :=
329: ota_ctl_shd.g_old_rec.end_date_comments;
325: ota_ctl_shd.g_old_rec.keywords;
326: End If;
327: If (p_rec.end_date_comments = hr_api.g_varchar2) then
328: p_rec.end_date_comments :=
329: ota_ctl_shd.g_old_rec.end_date_comments;
330: End If;
331: If (p_rec.initial_period_comments = hr_api.g_varchar2) then
332: p_rec.initial_period_comments :=
333: ota_ctl_shd.g_old_rec.initial_period_comments;
329: ota_ctl_shd.g_old_rec.end_date_comments;
330: End If;
331: If (p_rec.initial_period_comments = hr_api.g_varchar2) then
332: p_rec.initial_period_comments :=
333: ota_ctl_shd.g_old_rec.initial_period_comments;
334: End If;
335: If (p_rec.renewal_period_comments = hr_api.g_varchar2) then
336: p_rec.renewal_period_comments :=
337: ota_ctl_shd.g_old_rec.renewal_period_comments;
333: ota_ctl_shd.g_old_rec.initial_period_comments;
334: End If;
335: If (p_rec.renewal_period_comments = hr_api.g_varchar2) then
336: p_rec.renewal_period_comments :=
337: ota_ctl_shd.g_old_rec.renewal_period_comments;
338: End If;
339: If (p_rec.source_lang = hr_api.g_varchar2) then
340: p_rec.source_lang :=
341: ota_ctl_shd.g_old_rec.source_lang;
337: ota_ctl_shd.g_old_rec.renewal_period_comments;
338: End If;
339: If (p_rec.source_lang = hr_api.g_varchar2) then
340: p_rec.source_lang :=
341: ota_ctl_shd.g_old_rec.source_lang;
342: End If;
343: --
344: End convert_defs;
345: --
347: -- |---------------------------------< upd >----------------------------------|
348: -- ----------------------------------------------------------------------------
349: Procedure upd
350: (p_effective_date in date
351: ,p_rec in out nocopy ota_ctl_shd.g_rec_type
352: ) is
353: --
354: l_proc varchar2(72) := g_package||'upd';
355: --
357: hr_utility.set_location('Entering:'||l_proc, 5);
358: --
359: -- We must lock the row which we need to update.
360: --
361: ota_ctl_shd.lck
362: (p_rec.certification_id
363: ,p_rec.language
364: );
365: --
414: ,p_initial_period_comments in varchar2 default hr_api.g_varchar2
415: ,p_renewal_period_comments in varchar2 default hr_api.g_varchar2
416: ) is
417: --
418: l_rec ota_ctl_shd.g_rec_type;
419: l_proc varchar2(72) := g_package||'upd';
420: --
421: Begin
422: hr_utility.set_location('Entering:'||l_proc, 5);
424: -- Call conversion function to turn arguments into the
425: -- l_rec structure.
426: --
427: l_rec :=
428: ota_ctl_shd.convert_args
429: (p_certification_id
430: ,p_language
431: ,p_name
432: ,p_description