32: FETCH csr_emp_leg into l_legislation_code;
33:
34: IF csr_emp_leg%notfound THEN
35: CLOSE csr_emp_leg;
36: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
37: hr_utility.raise_error;
38: END IF;
39:
40: CLOSE csr_emp_leg;
33:
34: IF csr_emp_leg%notfound THEN
35: CLOSE csr_emp_leg;
36: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
37: hr_utility.raise_error;
38: END IF;
39:
40: CLOSE csr_emp_leg;
41:
42: --
43: -- Check that the legislation of the specIFied business group is 'IN'.
44: --
45: IF l_legislation_code <> p_legislation_code THEN
46: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
47: hr_utility.set_message_token('LEG_CODE','IN');
48: hr_utility.raise_error;
49: END IF;
50:
43: -- Check that the legislation of the specIFied business group is 'IN'.
44: --
45: IF l_legislation_code <> p_legislation_code THEN
46: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
47: hr_utility.set_message_token('LEG_CODE','IN');
48: hr_utility.raise_error;
49: END IF;
50:
51: EXCEPTION
44: --
45: IF l_legislation_code <> p_legislation_code THEN
46: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
47: hr_utility.set_message_token('LEG_CODE','IN');
48: hr_utility.raise_error;
49: END IF;
50:
51: EXCEPTION
52: WHEN OTHERS THEN
109: l_proc varchar2(72) ;
110: --
111: BEGIN
112: l_proc := g_package||'create_IN_person_address';
113: g_trace := hr_utility.debug_enabled ;
114:
115: IF g_trace THEN
116: hr_utility.set_location('Leaving: '||l_proc, 10);
117: END IF ;
112: l_proc := g_package||'create_IN_person_address';
113: g_trace := hr_utility.debug_enabled ;
114:
115: IF g_trace THEN
116: hr_utility.set_location('Leaving: '||l_proc, 10);
117: END IF ;
118:
119: check_person (p_person_id, 'IN', trunc(p_effective_date));
120:
118:
119: check_person (p_person_id, 'IN', trunc(p_effective_date));
120:
121: IF g_trace THEN
122: hr_utility.set_location(l_proc, 20);
123: END IF ;
124: --
125: -- Create Person Address details.
126: --
168: ,p_object_version_number => p_object_version_number
169: );
170: --
171: IF g_trace THEN
172: hr_utility.set_location('Leaving: '||l_proc, 30);
173: END IF;
174:
175: END create_in_person_address;
176:
231: BEGIN
232: l_proc := g_package||'update_IN_person_address';
233:
234: IF g_trace THEN
235: hr_utility.set_location('Entering:'|| l_proc, 5);
236: END IF;
237: --
238: -- Check that the Address identified is of specified style.
239: --
243: IF c_add_style%NOTFOUND THEN
244: CLOSE c_add_style;
245:
246: IF g_trace THEN
247: hr_utility.set_location(l_proc, 7);
248: END IF;
249: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
250: hr_utility.raise_error;
251: ELSE
245:
246: IF g_trace THEN
247: hr_utility.set_location(l_proc, 7);
248: END IF;
249: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
250: hr_utility.raise_error;
251: ELSE
252: CLOSE c_add_style;
253:
246: IF g_trace THEN
247: hr_utility.set_location(l_proc, 7);
248: END IF;
249: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
250: hr_utility.raise_error;
251: ELSE
252: CLOSE c_add_style;
253:
254: IF l_style NOT IN( 'IN','IN_GLB')
254: IF l_style NOT IN( 'IN','IN_GLB')
255: THEN
256:
257: IF g_trace THEN
258: hr_utility.set_location(l_proc, 8);
259: END IF;
260:
261: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
262: hr_utility.raise_error;
257: IF g_trace THEN
258: hr_utility.set_location(l_proc, 8);
259: END IF;
260:
261: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
262: hr_utility.raise_error;
263: END IF;
264: END IF;
265:
258: hr_utility.set_location(l_proc, 8);
259: END IF;
260:
261: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
262: hr_utility.raise_error;
263: END IF;
264: END IF;
265:
266: IF g_trace THEN
263: END IF;
264: END IF;
265:
266: IF g_trace THEN
267: hr_utility.set_location(l_proc, 9);
268: END IF;
269: --
270: -- Update Person Address details.
271: --
309: ,p_add_information15 => p_state_ut
310: );
311:
312: IF g_trace THEN
313: hr_utility.set_location(' Leaving:'||l_proc, 11);
314: END IF;
315:
316: END update_IN_person_address;
317: END hr_in_person_address_api;