[Home] [Help]
PACKAGE BODY: APPS.HR_AE_PERSON_ADDRESS_API
Source
1 Package BODY hr_ae_person_address_api as
2 /* $Header: peaddaei.pkb 120.0.12000000.1 2007/01/21 19:39:15 appldev ship $ */
3
4 g_package varchar2(33) := 'hr_ae_person_address_api.';
5
6
7 --
8 -- ----------------------------------------------------------------------------
9 -- |-----------------------< create_ae_person_address >-----------------------|
10 -- ----------------------------------------------------------------------------
11 --
12
13 PROCEDURE create_ae_person_address
14 (
15 p_validate in boolean default false
16 ,p_effective_date in date
17 ,p_person_id in number
18 ,p_primary_flag in varchar2
19 ,p_date_from in date
20 ,p_date_to in date default null
21 ,p_address_type in varchar2 default null
22 ,p_comments in long default null
23 ,p_address_line1 in varchar2
24 ,p_address_line2 in varchar2 default null
25 ,p_emirate in varchar2
26 ,p_city_village in varchar2 default null
27 ,p_region_area in varchar2 default null
28 ,p_street in varchar2 default null
29 ,p_building in varchar2 default null
30 ,p_flat_number in varchar2 default null
31 ,p_po_box in varchar2 default null
32 ,p_country in varchar2 default null
33 ,p_addr_attribute_category in varchar2 default null
34 ,p_addr_attribute1 in varchar2 default null
35 ,p_addr_attribute2 in varchar2 default null
36 ,p_addr_attribute3 in varchar2 default null
37 ,p_addr_attribute4 in varchar2 default null
38 ,p_addr_attribute5 in varchar2 default null
39 ,p_addr_attribute6 in varchar2 default null
40 ,p_addr_attribute7 in varchar2 default null
41 ,p_addr_attribute8 in varchar2 default null
42 ,p_addr_attribute9 in varchar2 default null
43 ,p_addr_attribute10 in varchar2 default null
44 ,p_addr_attribute11 in varchar2 default null
45 ,p_addr_attribute12 in varchar2 default null
46 ,p_addr_attribute13 in varchar2 default null
47 ,p_addr_attribute14 in varchar2 default null
48 ,p_addr_attribute15 in varchar2 default null
49 ,p_addr_attribute16 in varchar2 default null
50 ,p_addr_attribute17 in varchar2 default null
51 ,p_addr_attribute18 in varchar2 default null
52 ,p_addr_attribute19 in varchar2 default null
53 ,p_addr_attribute20 in varchar2 default null
54 ,p_party_id in number default null
55 ,p_address_id out nocopy number
56 ,p_object_version_number out nocopy number
57 ) AS
58 --
59 -- Declare cursors and local variables
60 --
61 l_proc varchar2(72) ;
62 --
63 BEGIN
64 l_proc := g_package||'create_ae_person_address';
65
66 hr_utility.set_location('Entering:'|| l_proc, 5);
67 --
68 -- Create Person Address details.
69 --
70
71 hr_person_address_api.create_person_address
72 (p_validate => p_validate
73 ,p_effective_date => p_effective_date
74 ,p_person_id => p_person_id
75 ,p_primary_flag => p_primary_flag
76 ,p_style => 'AE'
77 ,p_date_from => p_date_from
78 ,p_date_to => p_date_to
79 ,p_address_type => p_address_type
80 ,p_comments => p_comments
81 ,p_address_line1 => p_address_line1
82 ,p_address_line2 => p_address_line2
83 ,p_address_line3 => p_emirate
84 ,p_town_or_city => p_city_village
85 ,p_region_1 => p_region_area
86 ,p_region_2 => p_street
87 ,p_region_3 => p_building
88 ,p_add_information14 => p_flat_number
89 ,p_add_information15 => p_po_box
90 ,p_country => p_country
91 ,p_addr_attribute_category => p_addr_attribute_category
92 ,p_addr_attribute1 => p_addr_attribute1
93 ,p_addr_attribute2 => p_addr_attribute2
94 ,p_addr_attribute3 => p_addr_attribute3
95 ,p_addr_attribute4 => p_addr_attribute4
96 ,p_addr_attribute5 => p_addr_attribute5
97 ,p_addr_attribute6 => p_addr_attribute6
98 ,p_addr_attribute7 => p_addr_attribute7
99 ,p_addr_attribute8 => p_addr_attribute8
100 ,p_addr_attribute9 => p_addr_attribute9
101 ,p_addr_attribute10 => p_addr_attribute10
102 ,p_addr_attribute11 => p_addr_attribute11
103 ,p_addr_attribute12 => p_addr_attribute12
104 ,p_addr_attribute13 => p_addr_attribute13
105 ,p_addr_attribute14 => p_addr_attribute14
106 ,p_addr_attribute15 => p_addr_attribute15
107 ,p_addr_attribute16 => p_addr_attribute16
108 ,p_addr_attribute17 => p_addr_attribute17
109 ,p_addr_attribute18 => p_addr_attribute18
110 ,p_addr_attribute19 => p_addr_attribute19
111 ,p_addr_attribute20 => p_addr_attribute20
112 ,p_party_id => p_party_id
113 ,p_address_id => p_address_id
114 ,p_object_version_number => p_object_version_number
115 );
116
117 --
118 hr_utility.set_location(' Leaving:'||l_proc, 10);
119 --
120
121 END create_ae_person_address;
122
123
124 --
125 -- ----------------------------------------------------------------------------
126 -- |-----------------------< update_ae_person_address >-----------------------|
127 -- ----------------------------------------------------------------------------
128 --
129
130 PROCEDURE update_ae_person_address
131 (
132 p_validate in boolean default false
133 ,p_effective_date in date
134 ,p_address_id in number
135 ,p_object_version_number in out nocopy number
136 ,p_primary_flag in varchar2
137 ,p_date_from in date
138 ,p_date_to in date default null
139 ,p_address_type in varchar2 default null
140 ,p_comments in long default null
141 ,p_address_line1 in varchar2
142 ,p_address_line2 in varchar2 default null
143 ,p_emirate in varchar2
144 ,p_city_village in varchar2 default null
145 ,p_region_area in varchar2 default null
146 ,p_street in varchar2 default null
147 ,p_building in varchar2 default null
148 ,p_flat_number in varchar2 default null
149 ,p_po_box in varchar2 default null
150 ,p_country in varchar2 default null
151 ,p_addr_attribute_category in varchar2 default null
152 ,p_addr_attribute1 in varchar2 default null
153 ,p_addr_attribute2 in varchar2 default null
154 ,p_addr_attribute3 in varchar2 default null
155 ,p_addr_attribute4 in varchar2 default null
156 ,p_addr_attribute5 in varchar2 default null
157 ,p_addr_attribute6 in varchar2 default null
158 ,p_addr_attribute7 in varchar2 default null
159 ,p_addr_attribute8 in varchar2 default null
160 ,p_addr_attribute9 in varchar2 default null
161 ,p_addr_attribute10 in varchar2 default null
162 ,p_addr_attribute11 in varchar2 default null
163 ,p_addr_attribute12 in varchar2 default null
164 ,p_addr_attribute13 in varchar2 default null
165 ,p_addr_attribute14 in varchar2 default null
166 ,p_addr_attribute15 in varchar2 default null
167 ,p_addr_attribute16 in varchar2 default null
168 ,p_addr_attribute17 in varchar2 default null
169 ,p_addr_attribute18 in varchar2 default null
170 ,p_addr_attribute19 in varchar2 default null
171 ,p_addr_attribute20 in varchar2 default null
172 ,p_party_id in number default null
173 ) AS
174 --
175 -- Declare cursors and local variables
176 --
177 l_proc varchar2(72) ;
178 l_style per_addresses.style%TYPE;
179 --
180 cursor csr_add_style is
181 select addr.style
182 from per_addresses addr
183 where addr.address_id = p_address_id;
184 --
185 BEGIN
186 l_proc := g_package||'update_ae_person_address';
187
188 hr_utility.set_location('Entering:'|| l_proc, 5);
189 --
190 -- Check that the Address identified is of specified style.
191 --
192 open csr_add_style;
193 fetch csr_add_style
194 into l_style;
195
196 if csr_add_style%notfound then
197 --
198 close csr_add_style;
199 --
200 hr_utility.set_location(l_proc, 7);
201 --
202 hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
203 hr_utility.raise_error;
204 --
205 else
206 --
207 close csr_add_style;
208 --
209 if l_style <> 'AE' then
210 --
211 hr_utility.set_location(l_proc, 8);
212 --
213 hr_utility.set_message(801, 'HR_52368_ADD_INV_NOT_CORR_STYLE');
214 hr_utility.raise_error;
215 --
216 end if;
217 end if;
218 --
219 hr_utility.set_location(l_proc, 9);
220 --
221 -- Update Person Address details.
222 --
223 hr_person_address_api.update_person_address
224 (p_validate => p_validate
225 ,p_effective_date => p_effective_date
226 ,p_address_id => p_address_id
227 ,p_object_version_number => p_object_version_number
228 ,p_primary_flag => p_primary_flag
229 ,p_date_from => p_date_from
230 ,p_date_to => p_date_to
231 ,p_address_type => p_address_type
232 ,p_comments => p_comments
233 ,p_address_line1 => p_address_line1
234 ,p_address_line2 => p_address_line2
235 ,p_address_line3 => p_emirate
236 ,p_town_or_city => p_city_village
237 ,p_region_1 => p_region_area
238 ,p_region_2 => p_street
239 ,p_region_3 => p_building
240 ,p_add_information14 => p_flat_number
241 ,p_add_information15 => p_po_box
242 ,p_country => p_country
243 ,p_addr_attribute_category => p_addr_attribute_category
244 ,p_addr_attribute1 => p_addr_attribute1
245 ,p_addr_attribute2 => p_addr_attribute2
246 ,p_addr_attribute3 => p_addr_attribute3
247 ,p_addr_attribute4 => p_addr_attribute4
248 ,p_addr_attribute5 => p_addr_attribute5
249 ,p_addr_attribute6 => p_addr_attribute6
250 ,p_addr_attribute7 => p_addr_attribute7
251 ,p_addr_attribute8 => p_addr_attribute8
252 ,p_addr_attribute9 => p_addr_attribute9
253 ,p_addr_attribute10 => p_addr_attribute10
254 ,p_addr_attribute11 => p_addr_attribute11
255 ,p_addr_attribute12 => p_addr_attribute12
256 ,p_addr_attribute13 => p_addr_attribute13
257 ,p_addr_attribute14 => p_addr_attribute14
258 ,p_addr_attribute15 => p_addr_attribute15
259 ,p_addr_attribute16 => p_addr_attribute16
260 ,p_addr_attribute17 => p_addr_attribute17
261 ,p_addr_attribute18 => p_addr_attribute18
262 ,p_addr_attribute19 => p_addr_attribute19
263 ,p_addr_attribute20 => p_addr_attribute20
264 ,p_party_id => p_party_id
265 );
266
267 --
268 hr_utility.set_location(' Leaving:'||l_proc, 11);
269 --
270 END update_ae_person_address;
271
272
273 END;