57: l_proc varchar2(72) ;
58:
59: BEGIN
60: l_proc := g_package||'create_ro_person_address';
61: hr_utility.set_location('Entering:'|| l_proc, 10);
62: --
63: -- Create Person Address details.
64: --
65:
183: BEGIN
184:
185: l_proc := g_package||'update_ro_person_address';
186:
187: hr_utility.set_location('Entering:'|| l_proc, 10);
188: --
189: -- Check that the Address identified is of specified style.
190: --
191: open csr_add_style;
195: end if;
196: close csr_add_style;
197:
198: if not l_address_exists then
199: hr_utility.set_location(l_proc, 17);
200: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
201: hr_utility.raise_error;
202: elsif l_style <> 'RO' then
203: hr_utility.set_location(l_proc, 18);
196: close csr_add_style;
197:
198: if not l_address_exists then
199: hr_utility.set_location(l_proc, 17);
200: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
201: hr_utility.raise_error;
202: elsif l_style <> 'RO' then
203: hr_utility.set_location(l_proc, 18);
204: hr_utility.set_message(801, 'HR_52368_ADD_INV_NOT_CORR_STYLE');
197:
198: if not l_address_exists then
199: hr_utility.set_location(l_proc, 17);
200: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
201: hr_utility.raise_error;
202: elsif l_style <> 'RO' then
203: hr_utility.set_location(l_proc, 18);
204: hr_utility.set_message(801, 'HR_52368_ADD_INV_NOT_CORR_STYLE');
205: hr_utility.raise_error;
199: hr_utility.set_location(l_proc, 17);
200: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
201: hr_utility.raise_error;
202: elsif l_style <> 'RO' then
203: hr_utility.set_location(l_proc, 18);
204: hr_utility.set_message(801, 'HR_52368_ADD_INV_NOT_CORR_STYLE');
205: hr_utility.raise_error;
206: end if;
207: --
200: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
201: hr_utility.raise_error;
202: elsif l_style <> 'RO' then
203: hr_utility.set_location(l_proc, 18);
204: hr_utility.set_message(801, 'HR_52368_ADD_INV_NOT_CORR_STYLE');
205: hr_utility.raise_error;
206: end if;
207: --
208: hr_utility.set_location(l_proc, 9);
201: hr_utility.raise_error;
202: elsif l_style <> 'RO' then
203: hr_utility.set_location(l_proc, 18);
204: hr_utility.set_message(801, 'HR_52368_ADD_INV_NOT_CORR_STYLE');
205: hr_utility.raise_error;
206: end if;
207: --
208: hr_utility.set_location(l_proc, 9);
209: --
204: hr_utility.set_message(801, 'HR_52368_ADD_INV_NOT_CORR_STYLE');
205: hr_utility.raise_error;
206: end if;
207: --
208: hr_utility.set_location(l_proc, 9);
209: --
210: -- Update Person Address details.
211: --
212: hr_person_address_api.update_person_address
257: ,p_party_id => p_party_id
258: );
259:
260: --
261: hr_utility.set_location(' Leaving:'||l_proc, 10);
262: --
263: END update_ro_person_address;
264:
265: procedure update_ro_person_add_style
326: BEGIN
327:
328: l_proc := g_package||'update_ro_person_add_style';
329:
330: hr_utility.set_location('Entering:'|| l_proc, 10);
331: --
332: open csr_add_style;
333: fetch csr_add_style into l_style;
334: if csr_add_style%notfound then
336: end if;
337: close csr_add_style;
338: --
339: if not l_address_exists then
340: hr_utility.set_location(l_proc, 17);
341: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
342: hr_utility.raise_error;
343: end if;
344:
337: close csr_add_style;
338: --
339: if not l_address_exists then
340: hr_utility.set_location(l_proc, 17);
341: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
342: hr_utility.raise_error;
343: end if;
344:
345: hr_person_address_api.update_pers_addr_with_style
338: --
339: if not l_address_exists then
340: hr_utility.set_location(l_proc, 17);
341: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
342: hr_utility.raise_error;
343: end if;
344:
345: hr_person_address_api.update_pers_addr_with_style
346: (p_validate => p_validate
391: ,p_style => p_style
392: );
393:
394: --
395: hr_utility.set_location(' Leaving:'||l_proc, 10);
396: --
397: END update_ro_person_add_style;
398:
399: END hr_ro_person_address_api;