27: cursor csr_sec_grp is
28: select pbg.security_group_id,
29: pbg.legislation_code
30: from per_business_groups_perf pbg
31: , irc_apl_profile_snapshots aps
32: , per_all_assignments_f paf
33: where aps.profile_snapshot_id = p_profile_snapshot_id
34: and paf.person_id = aps.person_id
35: and pbg.business_group_id = paf.business_group_id;
99: --
100: cursor csr_leg_code is
101: select pbg.legislation_code
102: from per_business_groups_perf pbg
103: , irc_apl_profile_snapshots aps
104: , per_all_assignments_f paf
105: where aps.profile_snapshot_id = p_profile_snapshot_id
106: and paf.person_id = aps.person_id
107: and pbg.business_group_id = paf.business_group_id;
241: -- ----------------------------------------------------------------------------
242: procedure chk_person_id
243: (p_person_id in number
244: ,p_profile_snapshot_id in
245: irc_apl_profile_snapshots.profile_snapshot_id%TYPE
246: ,p_object_version_number in
247: irc_apl_profile_snapshots.object_version_number%TYPE
248: )
249: IS
243: (p_person_id in number
244: ,p_profile_snapshot_id in
245: irc_apl_profile_snapshots.profile_snapshot_id%TYPE
246: ,p_object_version_number in
247: irc_apl_profile_snapshots.object_version_number%TYPE
248: )
249: IS
250: --
251: l_proc varchar2(72) := g_package||'chk_person_id';
295: hr_utility.set_location('Leaving: '||l_proc, 50);
296: exception
297: when app_exception.application_exception then
298: if hr_multi_message.exception_add
299: (p_associated_column1 => 'IRC_APL_PROFILE_SNAPSHOTS.PERSON_ID'
300: ) then
301: raise;
302: end if;
303: end chk_person_id;