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