[Home] [Help]
PACKAGE BODY: APPS.PER_CA_PERSON_ADDRESS_API
Source
1 Package Body per_ca_person_address_api as
2 /* $Header: peaddcai.pkb 120.1 2011/11/17 15:49:07 emunisek ship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := ' per_ca_person_address_api.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |-----------------------< create_ca_person_address >-----------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure create_ca_person_address
13 (p_validate in boolean default false
14 ,p_effective_date in date
15 ,p_pradd_ovlapval_override in boolean default FALSE
16 ,p_person_id in number
17 ,p_primary_flag in varchar2
18 ,p_date_from in date
19 ,p_date_to in date default null
20 ,p_address_type in varchar2 default null
21 ,p_comments in per_addresses.comments%TYPE default null
22 ,p_address_line1 in varchar2
23 ,p_address_line2 in varchar2 default null
24 ,p_address_line3 in varchar2 default null
25 ,p_city in varchar2 default null
26 ,p_province in varchar2 default null
27 ,p_postal_code in varchar2 default null
28 ,p_country in varchar2
29 ,p_telephone_number_1 in varchar2 default null
30 ,p_telephone_number_2 in varchar2 default null
34 ,p_addr_attribute2 in varchar2 default null
31 ,p_cma in varchar2 default null
32 ,p_addr_attribute_category in varchar2 default null
33 ,p_addr_attribute1 in varchar2 default null
35 ,p_addr_attribute3 in varchar2 default null
36 ,p_addr_attribute4 in varchar2 default null
37 ,p_addr_attribute5 in varchar2 default null
38 ,p_addr_attribute6 in varchar2 default null
39 ,p_addr_attribute7 in varchar2 default null
40 ,p_addr_attribute8 in varchar2 default null
41 ,p_addr_attribute9 in varchar2 default null
42 ,p_addr_attribute10 in varchar2 default null
43 ,p_addr_attribute11 in varchar2 default null
44 ,p_addr_attribute12 in varchar2 default null
45 ,p_addr_attribute13 in varchar2 default null
46 ,p_addr_attribute14 in varchar2 default null
47 ,p_addr_attribute15 in varchar2 default null
48 ,p_addr_attribute16 in varchar2 default null
49 ,p_addr_attribute17 in varchar2 default null
50 ,p_addr_attribute18 in varchar2 default null
51 ,p_addr_attribute19 in varchar2 default null
52 ,p_addr_attribute20 in varchar2 default null
53 ,p_add_information17 in varchar2 default null
54 ,p_add_information18 in varchar2 default null
55 ,p_add_information19 in varchar2 default null
56 ,p_add_information20 in varchar2 default null
57 ,p_address_id out nocopy number
58 ,p_object_version_number out nocopy number
59 ) is
60 --
61 -- Declare cursors and local variables
62 --
63 l_proc varchar2(72) := g_package||'create_ca_person_address';
64 --
65 begin
66 hr_utility.set_location('Entering:'|| l_proc, 5);
67 --
68 -- Create Person Address details.
69 --
70 hr_person_address_api.create_person_address
71 (p_validate => p_validate
72 ,p_effective_date => p_effective_date
73 ,p_pradd_ovlapval_override => p_pradd_ovlapval_override
74 ,p_person_id => p_person_id
75 ,p_primary_flag => p_primary_flag
76 ,p_style => 'CA'
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_address_line3
84 ,p_town_or_city => p_city
85 ,p_region_1 => p_province
86 ,p_postal_code => p_postal_code
87 ,p_country => p_country
88 ,p_region_2 => p_cma
89 ,p_telephone_number_1 => p_telephone_number_1
90 ,p_telephone_number_2 => p_telephone_number_2
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_add_information17 => p_add_information17
113 ,p_add_information18 => p_add_information18
114 ,p_add_information19 => p_add_information19
115 ,p_add_information20 => p_add_information20
116 ,p_address_id => p_address_id
117 ,p_object_version_number => p_object_version_number
118 );
119 --
120 hr_utility.set_location(' Leaving:'||l_proc, 10);
121 end create_ca_person_address;
122 --
123 -- ----------------------------------------------------------------------------
124 -- |-----------------------< update_ca_person_address >-----------------------|
125 -- ----------------------------------------------------------------------------
126 --
127 procedure update_ca_person_address
128 (p_validate in boolean default false
129 ,p_effective_date in date
130 ,p_address_id in number
131 ,p_object_version_number in out nocopy number
132 ,p_date_from in date default hr_api.g_date
133 ,p_date_to in date default hr_api.g_date
134 ,p_address_type in varchar2 default hr_api.g_varchar2
135 ,p_comments in per_addresses.comments%TYPE default hr_api.g_varchar2
139 ,p_city in varchar2 default hr_api.g_varchar2
136 ,p_address_line1 in varchar2 default hr_api.g_varchar2
137 ,p_address_line2 in varchar2 default hr_api.g_varchar2
138 ,p_address_line3 in varchar2 default hr_api.g_varchar2
140 ,p_province in varchar2 default hr_api.g_varchar2
141 ,p_postal_code in varchar2 default hr_api.g_varchar2
142 ,p_country in varchar2 default hr_api.g_varchar2
143 ,p_telephone_number_1 in varchar2 default hr_api.g_varchar2
144 ,p_telephone_number_2 in varchar2 default hr_api.g_varchar2
145 ,p_cma in varchar2 default hr_api.g_varchar2
146 ,p_addr_attribute_category in varchar2 default hr_api.g_varchar2
147 ,p_addr_attribute1 in varchar2 default hr_api.g_varchar2
148 ,p_addr_attribute2 in varchar2 default hr_api.g_varchar2
149 ,p_addr_attribute3 in varchar2 default hr_api.g_varchar2
150 ,p_addr_attribute4 in varchar2 default hr_api.g_varchar2
151 ,p_addr_attribute5 in varchar2 default hr_api.g_varchar2
152 ,p_addr_attribute6 in varchar2 default hr_api.g_varchar2
153 ,p_addr_attribute7 in varchar2 default hr_api.g_varchar2
154 ,p_addr_attribute8 in varchar2 default hr_api.g_varchar2
155 ,p_addr_attribute9 in varchar2 default hr_api.g_varchar2
156 ,p_addr_attribute10 in varchar2 default hr_api.g_varchar2
157 ,p_addr_attribute11 in varchar2 default hr_api.g_varchar2
158 ,p_addr_attribute12 in varchar2 default hr_api.g_varchar2
159 ,p_addr_attribute13 in varchar2 default hr_api.g_varchar2
160 ,p_addr_attribute14 in varchar2 default hr_api.g_varchar2
161 ,p_addr_attribute15 in varchar2 default hr_api.g_varchar2
162 ,p_addr_attribute16 in varchar2 default hr_api.g_varchar2
163 ,p_addr_attribute17 in varchar2 default hr_api.g_varchar2
164 ,p_addr_attribute18 in varchar2 default hr_api.g_varchar2
165 ,p_addr_attribute19 in varchar2 default hr_api.g_varchar2
166 ,p_addr_attribute20 in varchar2 default hr_api.g_varchar2
167 ,p_add_information17 in varchar2 default hr_api.g_varchar2
168 ,p_add_information18 in varchar2 default hr_api.g_varchar2
169 ,p_add_information19 in varchar2 default hr_api.g_varchar2
170 ,p_add_information20 in varchar2 default hr_api.g_varchar2
171 ) is
172 --
173 -- Declare cursors and local variables
174 --
175 l_proc varchar2(72) := g_package||'update_ca_person_address';
176 l_style per_addresses.style%TYPE;
177 --
178 cursor csr_add_style is
179 select addr.style
180 from per_addresses addr
181 where addr.address_id = p_address_id;
182 --
183 begin
184 hr_utility.set_location('Entering:'|| l_proc, 5);
185 --
186 -- Check that the Address identified is CA style.
187 --
188 open csr_add_style;
189 fetch csr_add_style
190 into l_style;
191 if csr_add_style%notfound then
192 --
193 close csr_add_style;
194 --
195 hr_utility.set_location(l_proc, 7);
196 --
197 hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
198 hr_utility.raise_error;
199 --
200 else
201 --
202 close csr_add_style;
203 --
204 if l_style <> 'CA' then
205 --
206 hr_utility.set_location(l_proc, 8);
207 --
208 hr_utility.set_message(801, 'HR_52368_ADD_INV_NOT_CORR_STYLE');
209 hr_utility.raise_error;
210 --
211 end if;
212 end if;
213 --
214 hr_utility.set_location(l_proc, 9);
215 --
216 -- Update Person Address details.
217 --
218 hr_person_address_api.update_person_address
219 (p_validate => p_validate
220 ,p_effective_date => p_effective_date
221 ,p_address_id => p_address_id
222 ,p_object_version_number => p_object_version_number
223 ,p_date_from => p_date_from
224 ,p_date_to => p_date_to
225 ,p_address_type => p_address_type
226 ,p_comments => p_comments
227 ,p_address_line1 => p_address_line1
228 ,p_address_line2 => p_address_line2
229 ,p_address_line3 => p_address_line3
230 ,p_town_or_city => p_city
231 ,p_region_1 => p_province
232 ,p_postal_code => p_postal_code
233 ,p_country => p_country
234 ,p_telephone_number_1 => p_telephone_number_1
235 ,p_telephone_number_2 => p_telephone_number_2
236 ,p_region_2 => p_cma
237 ,p_addr_attribute_category => p_addr_attribute_category
238 ,p_addr_attribute1 => p_addr_attribute1
239 ,p_addr_attribute2 => p_addr_attribute2
240 ,p_addr_attribute3 => p_addr_attribute3
241 ,p_addr_attribute4 => p_addr_attribute4
242 ,p_addr_attribute5 => p_addr_attribute5
243 ,p_addr_attribute6 => p_addr_attribute6
244 ,p_addr_attribute7 => p_addr_attribute7
245 ,p_addr_attribute8 => p_addr_attribute8
246 ,p_addr_attribute9 => p_addr_attribute9
247 ,p_addr_attribute10 => p_addr_attribute10
248 ,p_addr_attribute11 => p_addr_attribute11
249 ,p_addr_attribute12 => p_addr_attribute12
250 ,p_addr_attribute13 => p_addr_attribute13
251 ,p_addr_attribute14 => p_addr_attribute14
252 ,p_addr_attribute15 => p_addr_attribute15
253 ,p_addr_attribute16 => p_addr_attribute16
254 ,p_addr_attribute17 => p_addr_attribute17
255 ,p_addr_attribute18 => p_addr_attribute18
256 ,p_addr_attribute19 => p_addr_attribute19
257 ,p_addr_attribute20 => p_addr_attribute20
258 ,p_add_information17 => p_add_information17
259 ,p_add_information18 => p_add_information18
260 ,p_add_information19 => p_add_information19
261 ,p_add_information20 => p_add_information20
262 );
263 --
264 hr_utility.set_location(' Leaving:'||l_proc, 11);
265 end update_ca_person_address;
266 --
267 end per_ca_person_address_api;