59: --
60: l_proc varchar2(72) := g_package||'create_fr_person_address';
61: --
62: begin
63: hr_utility.set_location('Entering:'|| l_proc, 5);
64: --
65: -- Create Person Address details.
66: --
67: hr_person_address_api.create_person_address
110: ,p_address_id => p_address_id
111: ,p_object_version_number => p_object_version_number
112: );
113: --
114: hr_utility.set_location(' Leaving:'||l_proc, 10);
115: end create_fr_person_address;
116: --
117: -- ----------------------------------------------------------------------------
118: -- |-----------------------< update_fr_person_address >-----------------------|
172: from per_addresses addr
173: where addr.address_id = p_address_id;
174: --
175: begin
176: hr_utility.set_location('Entering:'|| l_proc, 5);
177: --
178: -- Check that the Address identified is of specified style.
179: --
180: open csr_add_style;
183: if csr_add_style%notfound then
184: --
185: close csr_add_style;
186: --
187: hr_utility.set_location(l_proc, 7);
188: --
189: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
190: hr_utility.raise_error;
191: --
185: close csr_add_style;
186: --
187: hr_utility.set_location(l_proc, 7);
188: --
189: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
190: hr_utility.raise_error;
191: --
192: else
193: --
186: --
187: hr_utility.set_location(l_proc, 7);
188: --
189: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
190: hr_utility.raise_error;
191: --
192: else
193: --
194: close csr_add_style;
194: close csr_add_style;
195: --
196: if l_style <> 'FR' then
197: --
198: hr_utility.set_location(l_proc, 8);
199: --
200: hr_utility.set_message(801, 'HR_52368_ADD_INV_NOT_CORR_STYLE');
201: hr_utility.raise_error;
202: --
196: if l_style <> 'FR' then
197: --
198: hr_utility.set_location(l_proc, 8);
199: --
200: hr_utility.set_message(801, 'HR_52368_ADD_INV_NOT_CORR_STYLE');
201: hr_utility.raise_error;
202: --
203: end if;
204: end if;
197: --
198: hr_utility.set_location(l_proc, 8);
199: --
200: hr_utility.set_message(801, 'HR_52368_ADD_INV_NOT_CORR_STYLE');
201: hr_utility.raise_error;
202: --
203: end if;
204: end if;
205: --
202: --
203: end if;
204: end if;
205: --
206: hr_utility.set_location(l_proc, 9);
207: --
208: -- Update Person Address details.
209: --
210: hr_person_address_api.update_person_address
250: ,p_addr_attribute19 => p_addr_attribute19
251: ,p_addr_attribute20 => p_addr_attribute20
252: );
253: --
254: hr_utility.set_location(' Leaving:'||l_proc, 11);
255: end update_fr_person_address;
256: --
257: end hr_fr_person_address_api;