[Home] [Help]
PACKAGE BODY: APPS.HR_FR_PERSON_ADDRESS_API
Source
1 Package Body hr_fr_person_address_api as
2 /* $Header: peaddfri.pkb 115.2 2002/12/12 16:58:45 sfmorris noship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := 'hr_fr_person_address_api.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |-----------------------< create_fr_person_address >-----------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure create_fr_person_address
13 (p_validate in boolean default false
14 ,p_effective_date in date
15 ,p_person_id in number
16 ,p_primary_flag in varchar2
17 ,p_date_from in date
18 ,p_date_to in date default null
19 ,p_address_type in varchar2 default null
20 ,p_comments in long default null
21 ,p_address_line1 in varchar2
22 ,p_address_line2 in varchar2 default null
23 ,p_address_line3 in varchar2 default null
24 ,p_insee_code in varchar2 default null
25 ,p_small_town in varchar2 default null
26 ,p_postal_code in varchar2 default null
27 ,p_city in varchar2 default null
28 ,p_department in varchar2 default null
29 ,p_country in varchar2 default null
30 ,p_telephone in varchar2 default null
31 ,p_telephone2 in varchar2 default null
32 ,p_telephone3 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_address_id out nocopy number
55 ,p_object_version_number out nocopy number
56 ) is
57 --
58 -- Declare cursors and local variables
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
68 (p_validate => p_validate
69 ,p_effective_date => p_effective_date
70 ,p_person_id => p_person_id
71 ,p_primary_flag => p_primary_flag
72 ,p_style => 'FR'
73 ,p_date_from => p_date_from
74 ,p_date_to => p_date_to
75 ,p_address_type => p_address_type
76 ,p_comments => p_comments
77 ,p_address_line1 => p_address_line1
78 ,p_address_line2 => p_address_line2
79 ,p_address_line3 => p_address_line3
80 ,p_region_1 => p_department
81 ,p_region_2 => p_insee_code
82 ,p_region_3 => p_small_town
83 ,p_postal_code => p_postal_code
84 ,p_town_or_city => p_city
85 ,p_country => p_country
86 ,p_telephone_number_1 => p_telephone
87 ,p_telephone_number_2 => p_telephone2
88 ,p_telephone_number_3 => p_telephone3
89 ,p_addr_attribute_category => p_addr_attribute_category
90 ,p_addr_attribute1 => p_addr_attribute1
91 ,p_addr_attribute2 => p_addr_attribute2
92 ,p_addr_attribute3 => p_addr_attribute3
93 ,p_addr_attribute4 => p_addr_attribute4
94 ,p_addr_attribute5 => p_addr_attribute5
95 ,p_addr_attribute6 => p_addr_attribute6
96 ,p_addr_attribute7 => p_addr_attribute7
97 ,p_addr_attribute8 => p_addr_attribute8
98 ,p_addr_attribute9 => p_addr_attribute9
99 ,p_addr_attribute10 => p_addr_attribute10
100 ,p_addr_attribute11 => p_addr_attribute11
101 ,p_addr_attribute12 => p_addr_attribute12
102 ,p_addr_attribute13 => p_addr_attribute13
103 ,p_addr_attribute14 => p_addr_attribute14
104 ,p_addr_attribute15 => p_addr_attribute15
105 ,p_addr_attribute16 => p_addr_attribute16
106 ,p_addr_attribute17 => p_addr_attribute17
107 ,p_addr_attribute18 => p_addr_attribute18
108 ,p_addr_attribute19 => p_addr_attribute19
109 ,p_addr_attribute20 => p_addr_attribute20
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 >-----------------------|
119 -- ----------------------------------------------------------------------------
120 --
121 procedure update_fr_person_address
122 (p_validate in boolean default false
123 ,p_effective_date in date
124 ,p_address_id in number
125 ,p_object_version_number in out nocopy number
126 ,p_date_from in date default hr_api.g_date
127 ,p_date_to in date default hr_api.g_date
128 ,p_address_type in varchar2 default hr_api.g_varchar2
129 ,p_comments in long default hr_api.g_varchar2
130 ,p_address_line1 in varchar2
131 ,p_address_line2 in varchar2 default hr_api.g_varchar2
132 ,p_address_line3 in varchar2 default hr_api.g_varchar2
133 ,p_insee_code in varchar2 default hr_api.g_varchar2
134 ,p_small_town in varchar2 default hr_api.g_varchar2
135 ,p_postal_code in varchar2 default hr_api.g_varchar2
136 ,p_department in varchar2 default hr_api.g_varchar2
137 ,p_city in varchar2 default hr_api.g_varchar2
138 ,p_country in varchar2 default hr_api.g_varchar2
139 ,p_telephone in varchar2 default hr_api.g_varchar2
140 ,p_telephone2 in varchar2 default hr_api.g_varchar2
141 ,p_telephone3 in varchar2 default hr_api.g_varchar2
142 ,p_addr_attribute_category in varchar2 default hr_api.g_varchar2
143 ,p_addr_attribute1 in varchar2 default hr_api.g_varchar2
144 ,p_addr_attribute2 in varchar2 default hr_api.g_varchar2
145 ,p_addr_attribute3 in varchar2 default hr_api.g_varchar2
146 ,p_addr_attribute4 in varchar2 default hr_api.g_varchar2
147 ,p_addr_attribute5 in varchar2 default hr_api.g_varchar2
148 ,p_addr_attribute6 in varchar2 default hr_api.g_varchar2
149 ,p_addr_attribute7 in varchar2 default hr_api.g_varchar2
150 ,p_addr_attribute8 in varchar2 default hr_api.g_varchar2
151 ,p_addr_attribute9 in varchar2 default hr_api.g_varchar2
152 ,p_addr_attribute10 in varchar2 default hr_api.g_varchar2
153 ,p_addr_attribute11 in varchar2 default hr_api.g_varchar2
154 ,p_addr_attribute12 in varchar2 default hr_api.g_varchar2
155 ,p_addr_attribute13 in varchar2 default hr_api.g_varchar2
156 ,p_addr_attribute14 in varchar2 default hr_api.g_varchar2
157 ,p_addr_attribute15 in varchar2 default hr_api.g_varchar2
158 ,p_addr_attribute16 in varchar2 default hr_api.g_varchar2
159 ,p_addr_attribute17 in varchar2 default hr_api.g_varchar2
160 ,p_addr_attribute18 in varchar2 default hr_api.g_varchar2
161 ,p_addr_attribute19 in varchar2 default hr_api.g_varchar2
162 ,p_addr_attribute20 in varchar2 default hr_api.g_varchar2
163 ) is
164 --
165 -- Declare cursors and local variables
166 --
167 l_proc varchar2(72) := g_package||'update_fr_person_address';
168 l_style per_addresses.style%TYPE;
169 --
170 cursor csr_add_style is
171 select addr.style
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;
181 fetch csr_add_style
182 into l_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 --
192 else
193 --
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 --
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
211 (p_validate => p_validate
212 ,p_effective_date => p_effective_date
213 ,p_address_id => p_address_id
214 ,p_object_version_number => p_object_version_number
215 ,p_date_from => p_date_from
216 ,p_date_to => p_date_to
217 ,p_address_type => p_address_type
218 ,p_comments => p_comments
219 ,p_address_line1 => p_address_line1
220 ,p_address_line2 => p_address_line2
221 ,p_address_line3 => p_address_line3
222 ,p_region_1 => p_department
223 ,p_region_2 => p_insee_code
224 ,p_region_3 => p_small_town
225 ,p_postal_code => p_postal_code
226 ,p_town_or_city => p_city
227 ,p_country => p_country
228 ,p_telephone_number_1 => p_telephone
229 ,p_telephone_number_2 => p_telephone2
230 ,p_telephone_number_3 => p_telephone3
231 ,p_addr_attribute_category => p_addr_attribute_category
232 ,p_addr_attribute1 => p_addr_attribute1
233 ,p_addr_attribute2 => p_addr_attribute2
234 ,p_addr_attribute3 => p_addr_attribute3
235 ,p_addr_attribute4 => p_addr_attribute4
236 ,p_addr_attribute5 => p_addr_attribute5
237 ,p_addr_attribute6 => p_addr_attribute6
238 ,p_addr_attribute7 => p_addr_attribute7
239 ,p_addr_attribute8 => p_addr_attribute8
240 ,p_addr_attribute9 => p_addr_attribute9
241 ,p_addr_attribute10 => p_addr_attribute10
242 ,p_addr_attribute11 => p_addr_attribute11
243 ,p_addr_attribute12 => p_addr_attribute12
244 ,p_addr_attribute13 => p_addr_attribute13
245 ,p_addr_attribute14 => p_addr_attribute14
246 ,p_addr_attribute15 => p_addr_attribute15
247 ,p_addr_attribute16 => p_addr_attribute16
248 ,p_addr_attribute17 => p_addr_attribute17
249 ,p_addr_attribute18 => p_addr_attribute18
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;