36:
37: cursor csr_sec_grp is
38: select pbg.security_group_id
39: from per_business_groups pbg
40: , per_rating_levels rt
41: , per_rating_levels_tl rtx
42: where rt.rating_level_id = p_rating_level_id
43: and rt.rating_level_id = rtx.rating_level_id
44: and pbg.business_group_id = rt.business_group_id;
37: cursor csr_sec_grp is
38: select pbg.security_group_id
39: from per_business_groups pbg
40: , per_rating_levels rt
41: , per_rating_levels_tl rtx
42: where rt.rating_level_id = p_rating_level_id
43: and rt.rating_level_id = rtx.rating_level_id
44: and pbg.business_group_id = rt.business_group_id;
45: --
107: --
108: cursor csr_leg_code is
109: select pbg.legislation_code
110: from per_business_groups pbg
111: , per_rating_levels rt
112: , per_rating_levels_tl rtx
113: where rt.rating_level_id = p_rating_level_id
114: and rt.rating_level_id = rtx.rating_level_id
115: and rtx.language = p_language
108: cursor csr_leg_code is
109: select pbg.legislation_code
110: from per_business_groups pbg
111: , per_rating_levels rt
112: , per_rating_levels_tl rtx
113: where rt.rating_level_id = p_rating_level_id
114: and rt.rating_level_id = rtx.rating_level_id
115: and rtx.language = p_language
116: and pbg.business_group_id = rt.business_group_id;
259: -- Internal Table Handler Use Only.
260: --
261: --
262: procedure chk_name
263: (p_rating_level_id in per_rating_levels.rating_level_id%TYPE
264: ,p_language in per_rating_levels_tl.language%TYPE
265: --,p_object_version_number in per_rating_levels.object_version_number%TYPE
266: ,p_name in per_rating_levels_tl.name%TYPE
267: ,p_rating_scale_id in per_rating_levels.rating_scale_id%TYPE
260: --
261: --
262: procedure chk_name
263: (p_rating_level_id in per_rating_levels.rating_level_id%TYPE
264: ,p_language in per_rating_levels_tl.language%TYPE
265: --,p_object_version_number in per_rating_levels.object_version_number%TYPE
266: ,p_name in per_rating_levels_tl.name%TYPE
267: ,p_rating_scale_id in per_rating_levels.rating_scale_id%TYPE
268: ,p_competence_id in per_rating_levels.competence_id%TYPE
261: --
262: procedure chk_name
263: (p_rating_level_id in per_rating_levels.rating_level_id%TYPE
264: ,p_language in per_rating_levels_tl.language%TYPE
265: --,p_object_version_number in per_rating_levels.object_version_number%TYPE
266: ,p_name in per_rating_levels_tl.name%TYPE
267: ,p_rating_scale_id in per_rating_levels.rating_scale_id%TYPE
268: ,p_competence_id in per_rating_levels.competence_id%TYPE
269: )
262: procedure chk_name
263: (p_rating_level_id in per_rating_levels.rating_level_id%TYPE
264: ,p_language in per_rating_levels_tl.language%TYPE
265: --,p_object_version_number in per_rating_levels.object_version_number%TYPE
266: ,p_name in per_rating_levels_tl.name%TYPE
267: ,p_rating_scale_id in per_rating_levels.rating_scale_id%TYPE
268: ,p_competence_id in per_rating_levels.competence_id%TYPE
269: )
270: is
263: (p_rating_level_id in per_rating_levels.rating_level_id%TYPE
264: ,p_language in per_rating_levels_tl.language%TYPE
265: --,p_object_version_number in per_rating_levels.object_version_number%TYPE
266: ,p_name in per_rating_levels_tl.name%TYPE
267: ,p_rating_scale_id in per_rating_levels.rating_scale_id%TYPE
268: ,p_competence_id in per_rating_levels.competence_id%TYPE
269: )
270: is
271: --
264: ,p_language in per_rating_levels_tl.language%TYPE
265: --,p_object_version_number in per_rating_levels.object_version_number%TYPE
266: ,p_name in per_rating_levels_tl.name%TYPE
267: ,p_rating_scale_id in per_rating_levels.rating_scale_id%TYPE
268: ,p_competence_id in per_rating_levels.competence_id%TYPE
269: )
270: is
271: --
272: l_exists varchar2(1);
276: -- Cursor to check if name is unique for rating scale or competence
277: --
278: cursor csr_chk_name_unique is
279: select 'Y'
280: from per_rating_levels rtl
281: , per_rating_levels_tl rtx
282: where rtl.rating_level_id = rtx.rating_level_id
283: and rtx.language = p_language
284: and ( (p_rating_level_id is null)
277: --
278: cursor csr_chk_name_unique is
279: select 'Y'
280: from per_rating_levels rtl
281: , per_rating_levels_tl rtx
282: where rtl.rating_level_id = rtx.rating_level_id
283: and rtx.language = p_language
284: and ( (p_rating_level_id is null)
285: or(p_rating_level_id <> rtx.rating_level_id)
338: -- |------------------------< validate_translation>--------------------------|
339: -- ----------------------------------------------------------------------------
340: Procedure validate_translation
341: (p_rec in per_rtx_shd.g_rec_type
342: ,p_rating_level_id in per_rating_levels_tl.rating_level_id%TYPE default null
343: ) IS
344: --
345: l_proc varchar2(72) := g_package||'validate_translation';
346: --
348: --
349: cursor csr_rating_level is
350: select rtl.rating_scale_id
351: , rtl.competence_id
352: from per_rating_levels rtl
353: where rtl.rating_level_id = nvl(p_rec.rating_level_id, p_rating_level_id);
354: --
355: l_rtl_rec csr_rating_level%ROWTYPE;
356: --
378: -- |---------------------------< insert_validate >----------------------------|
379: -- ----------------------------------------------------------------------------
380: Procedure insert_validate
381: (p_rec in per_rtx_shd.g_rec_type
382: ,p_rating_level_id in per_rating_levels_tl.rating_level_id%TYPE
383: ) is
384: --
385: l_proc varchar2(72) := g_package||'insert_validate';
386: --