DBA Data[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;