51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml
55: (p_rec in out NOCOPY per_cpl_shd.g_rec_type
56: ) is
57: --
58: l_proc varchar2(72) := g_package||'update_dml';
59: --
84: Exception
85: When hr_api.check_integrity_violated Then
86: -- A check constraint has been violated
87: --
88: per_cpl_shd.constraint_error
89: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
90: When hr_api.parent_integrity_violated Then
91: -- Parent integrity has been violated
92: --
89: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
90: When hr_api.parent_integrity_violated Then
91: -- Parent integrity has been violated
92: --
93: per_cpl_shd.constraint_error
94: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
95: When hr_api.unique_integrity_violated Then
96: -- Unique integrity has been violated
97: --
94: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
95: When hr_api.unique_integrity_violated Then
96: -- Unique integrity has been violated
97: --
98: per_cpl_shd.constraint_error
99: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
100: When Others Then
101: --
102: Raise;
134: --
135: -- {End Of Comments}
136: -- ----------------------------------------------------------------------------
137: Procedure pre_update
138: (p_rec in per_cpl_shd.g_rec_type
139: ) is
140: --
141: l_proc varchar2(72) := g_package||'pre_update';
142: --
179: -- {End Of Comments}
180: -- ----------------------------------------------------------------------------
181: Procedure post_update
182: (p_effective_date in date
183: ,p_rec in per_cpl_shd.g_rec_type
184: ) is
185: --
186: l_proc varchar2(72) := g_package||'post_update';
187: --
205: => p_rec.behavioural_indicator
206: ,p_description
207: => p_rec.description
208: ,p_source_lang_o
209: => per_cpl_shd.g_old_rec.source_lang
210: ,p_name_o
211: => per_cpl_shd.g_old_rec.name
212: ,p_competence_alias_o
213: => per_cpl_shd.g_old_rec.competence_alias
207: => p_rec.description
208: ,p_source_lang_o
209: => per_cpl_shd.g_old_rec.source_lang
210: ,p_name_o
211: => per_cpl_shd.g_old_rec.name
212: ,p_competence_alias_o
213: => per_cpl_shd.g_old_rec.competence_alias
214: ,p_behavioural_indicator_o
215: => per_cpl_shd.g_old_rec.behavioural_indicator
209: => per_cpl_shd.g_old_rec.source_lang
210: ,p_name_o
211: => per_cpl_shd.g_old_rec.name
212: ,p_competence_alias_o
213: => per_cpl_shd.g_old_rec.competence_alias
214: ,p_behavioural_indicator_o
215: => per_cpl_shd.g_old_rec.behavioural_indicator
216: ,p_description_o
217: => per_cpl_shd.g_old_rec.description
211: => per_cpl_shd.g_old_rec.name
212: ,p_competence_alias_o
213: => per_cpl_shd.g_old_rec.competence_alias
214: ,p_behavioural_indicator_o
215: => per_cpl_shd.g_old_rec.behavioural_indicator
216: ,p_description_o
217: => per_cpl_shd.g_old_rec.description
218: );
219: --
213: => per_cpl_shd.g_old_rec.competence_alias
214: ,p_behavioural_indicator_o
215: => per_cpl_shd.g_old_rec.behavioural_indicator
216: ,p_description_o
217: => per_cpl_shd.g_old_rec.description
218: );
219: --
220: exception
221: --
273: --
274: -- {End Of Comments}
275: -- ----------------------------------------------------------------------------
276: Procedure convert_defs
277: (p_rec in out NOCOPY per_cpl_shd.g_rec_type
278: ) is
279: --
280: Begin
281: --
285: -- is being used then we must set to the 'current' argument value.
286: --
287: If (p_rec.source_lang = hr_api.g_varchar2) then
288: p_rec.source_lang :=
289: per_cpl_shd.g_old_rec.source_lang;
290: End If;
291: If (p_rec.name = hr_api.g_varchar2) then
292: p_rec.name :=
293: per_cpl_shd.g_old_rec.name;
289: per_cpl_shd.g_old_rec.source_lang;
290: End If;
291: If (p_rec.name = hr_api.g_varchar2) then
292: p_rec.name :=
293: per_cpl_shd.g_old_rec.name;
294: End If;
295: If (p_rec.competence_alias = hr_api.g_varchar2) then
296: p_rec.competence_alias :=
297: per_cpl_shd.g_old_rec.competence_alias;
293: per_cpl_shd.g_old_rec.name;
294: End If;
295: If (p_rec.competence_alias = hr_api.g_varchar2) then
296: p_rec.competence_alias :=
297: per_cpl_shd.g_old_rec.competence_alias;
298: End If;
299: If (p_rec.behavioural_indicator = hr_api.g_varchar2) then
300: p_rec.behavioural_indicator :=
301: per_cpl_shd.g_old_rec.behavioural_indicator;
297: per_cpl_shd.g_old_rec.competence_alias;
298: End If;
299: If (p_rec.behavioural_indicator = hr_api.g_varchar2) then
300: p_rec.behavioural_indicator :=
301: per_cpl_shd.g_old_rec.behavioural_indicator;
302: End If;
303: If (p_rec.description = hr_api.g_varchar2) then
304: p_rec.description :=
305: per_cpl_shd.g_old_rec.description;
301: per_cpl_shd.g_old_rec.behavioural_indicator;
302: End If;
303: If (p_rec.description = hr_api.g_varchar2) then
304: p_rec.description :=
305: per_cpl_shd.g_old_rec.description;
306: End If;
307: --
308: End convert_defs;
309: --
311: -- |---------------------------------< upd >----------------------------------|
312: -- ----------------------------------------------------------------------------
313: Procedure upd
314: (p_effective_date in date
315: ,p_rec in out NOCOPY per_cpl_shd.g_rec_type
316: ) is
317: --
318: l_proc varchar2(72) := g_package||'upd';
319: --
321: hr_utility.set_location('Entering:'||l_proc, 5);
322: --
323: -- We must lock the row which we need to update.
324: --
325: per_cpl_shd.lck
326: (p_rec.competence_id
327: ,p_rec.language
328: );
329: --
374: ,p_behavioural_indicator in varchar2 default hr_api.g_varchar2
375: ,p_description in varchar2 default hr_api.g_varchar2
376: ) is
377: --
378: l_rec per_cpl_shd.g_rec_type;
379: l_proc varchar2(72) := g_package||'upd';
380: --
381: Begin
382: hr_utility.set_location('Entering:'||l_proc, 5);
384: -- Call conversion function to turn arguments into the
385: -- l_rec structure.
386: --
387: l_rec :=
388: per_cpl_shd.convert_args
389: (p_competence_id
390: ,p_language
391: ,p_source_lang
392: ,p_name
484:
485: --
486: l_userenv_language_code VARCHAR2(4) := userenv('LANG'); --Bug 2962837.
487: --
488: l_cpl_rec per_cpl_shd.g_rec_type;
489: --
490: l_proc varchar2(72) := g_package||'upd_key_flex_meanings';
491: --
492: Begin
496: For l_language IN c_languages Loop
497: --
498: -- Lock the existing record (which may already be updated)
499: --
500: per_cpl_shd.lck( p_competence_id => p_competence_id
501: , p_language => l_language.language_code);
502: --
503: -- Get the local record values from the locked record
504: --
501: , p_language => l_language.language_code);
502: --
503: -- Get the local record values from the locked record
504: --
505: l_cpl_rec := per_cpl_shd.g_old_rec;
506:
507: --
508: -- Set the session language
509: --
513: --Populate the local record with translated key flex meanings
514: --
515: -- Start of bug#2925181
516: -- added nvl check for bug # 6039259
517: l_cpl_rec.name := nvl(substr(fnd_flex_ext.get_segs( per_cpl_shd.g_app_code
518: , per_cpl_shd.g_flex_code
519: , l_language.id_flex_num
520: , l_language.competence_definition_id),1,700),l_cpl_rec.name);
521:
514: --
515: -- Start of bug#2925181
516: -- added nvl check for bug # 6039259
517: l_cpl_rec.name := nvl(substr(fnd_flex_ext.get_segs( per_cpl_shd.g_app_code
518: , per_cpl_shd.g_flex_code
519: , l_language.id_flex_num
520: , l_language.competence_definition_id),1,700),l_cpl_rec.name);
521:
522: