[Home] [Help]
26: --
27: cursor csr_sec_grp is
28: select pbg.security_group_id
29: from per_business_groups pbg
30: , per_contact_relationships pcr
31: where pcr.contact_relationship_id = p_contact_relationship_id
32: AND pbg.business_group_id = pcr.business_group_id;
33: --
34: -- Declare local variables
95: -- Remove this comment when the edit has been completed.
96: cursor csr_leg_code is
97: select pbg.legislation_code
98: from per_business_groups_perf pbg
99: , per_contact_relationships ctr
100: , per_contact_extra_info_f cei
101: where cei.contact_extra_info_id = p_contact_extra_info_id
102: and ctr.contact_relationship_id = cei.contact_relationship_id
103: and pbg.business_group_id = ctr.business_group_id;
164: -- {Start Of Comments}
165: --
166: -- Description:
167: -- Verify that the value in p_contact_relationship_id is in the
168: -- per_contact_relationships table.
169: --
170: -- Pre Conditions:
171: -- None.
172: --
195: l_dummy VARCHAR2(1);
196: --
197: CURSOR c_valid_rel IS
198: SELECT 'x'
199: FROM per_contact_relationships con
200: WHERE con.contact_relationship_id = p_contact_relationship_id;
201: --
202: BEGIN
203: hr_utility.set_location('Entering:' || l_proc, 1);
210: p_argument_value => p_contact_relationship_id);
211: --
212: hr_utility.set_location(l_proc, 2);
213: --
214: -- Check that the contact_relationship_id is in the per_contact_relationships table.
215: --
216: OPEN c_valid_rel;
217: FETCH c_valid_rel INTO l_dummy;
218: IF c_valid_rel%NOTFOUND THEN
330: -- with the same contact_relationship_id.
331: --
332: select 'Y'
333: into l_dummy
334: from per_contact_relationships
335: where contact_relationship_id = p_contact_relationship_id
336: for update nowait;
337: --
338: -- Derive the min(ESD) with the same information_type