[Home] [Help]
Skip to content
PACKAGE BODY: APPS.GHR_PERSON_EXTRA_INFO_API
Source
1 Package Body ghr_person_extra_info_api as
2 /* $Header: ghpeiapi.pkb 120.0.12010000.2 2009/05/26 10:38:25 vmididho noship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := ' ghr_person_extra_info_api.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |-----------------------< create_person_extra_info >------------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure create_person_extra_info
13 (p_validate in boolean default false
14 ,p_person_id in number
15 ,p_information_type in varchar2
16 ,p_effective_date in date
17 ,p_pei_attribute_category in varchar2 default null
18 ,p_pei_attribute1 in varchar2 default null
19 ,p_pei_attribute2 in varchar2 default null
20 ,p_pei_attribute3 in varchar2 default null
21 ,p_pei_attribute4 in varchar2 default null
22 ,p_pei_attribute5 in varchar2 default null
23 ,p_pei_attribute6 in varchar2 default null
24 ,p_pei_attribute7 in varchar2 default null
25 ,p_pei_attribute8 in varchar2 default null
26 ,p_pei_attribute9 in varchar2 default null
27 ,p_pei_attribute10 in varchar2 default null
28 ,p_pei_attribute11 in varchar2 default null
29 ,p_pei_attribute12 in varchar2 default null
30 ,p_pei_attribute13 in varchar2 default null
31 ,p_pei_attribute14 in varchar2 default null
32 ,p_pei_attribute15 in varchar2 default null
33 ,p_pei_attribute16 in varchar2 default null
34 ,p_pei_attribute17 in varchar2 default null
35 ,p_pei_attribute18 in varchar2 default null
36 ,p_pei_attribute19 in varchar2 default null
37 ,p_pei_attribute20 in varchar2 default null
38 ,p_pei_information_category in varchar2 default null
39 ,p_pei_information1 in varchar2 default null
40 ,p_pei_information2 in varchar2 default null
41 ,p_pei_information3 in varchar2 default null
42 ,p_pei_information4 in varchar2 default null
43 ,p_pei_information5 in varchar2 default null
44 ,p_pei_information6 in varchar2 default null
45 ,p_pei_information7 in varchar2 default null
46 ,p_pei_information8 in varchar2 default null
47 ,p_pei_information9 in varchar2 default null
48 ,p_pei_information10 in varchar2 default null
49 ,p_pei_information11 in varchar2 default null
50 ,p_pei_information12 in varchar2 default null
51 ,p_pei_information13 in varchar2 default null
52 ,p_pei_information14 in varchar2 default null
53 ,p_pei_information15 in varchar2 default null
54 ,p_pei_information16 in varchar2 default null
55 ,p_pei_information17 in varchar2 default null
56 ,p_pei_information18 in varchar2 default null
57 ,p_pei_information19 in varchar2 default null
58 ,p_pei_information20 in varchar2 default null
59 ,p_pei_information21 in varchar2 default null
60 ,p_pei_information22 in varchar2 default null
61 ,p_pei_information23 in varchar2 default null
62 ,p_pei_information24 in varchar2 default null
63 ,p_pei_information25 in varchar2 default null
64 ,p_pei_information26 in varchar2 default null
65 ,p_pei_information27 in varchar2 default null
66 ,p_pei_information28 in varchar2 default null
67 ,p_pei_information29 in varchar2 default null
68 ,p_pei_information30 in varchar2 default null
69 ,p_person_extra_info_id out NOCOPY number
70 ,p_object_version_number out NOCOPY number
71 ) is
72 --
73 -- Declare cursors and local variables
74 --
75 l_proc varchar2(72) := g_package||'create_person_extra_info';
76 l_object_version_number per_people_extra_info.object_version_number%type;
77 l_person_extra_info_id per_people_extra_info.person_extra_info_id%type;
78
79 --
80 begin
81 hr_utility.set_location('Entering:'|| l_proc, 5);
82 --
83 -- Issue a savepoint if operating in validation only mode.
84 --
85 savepoint ghr_create_person_extra_info;
86 --
87 --
88 ghr_session.set_session_var_for_core
89 (p_effective_date => p_effective_date
90 );
91
92 -- call hr_person_extra_info_api
93
94 hr_person_extra_info_api.create_person_extra_info
95 (
96 p_person_id => p_person_id ,
97 p_information_type => p_information_type ,
98 p_pei_attribute_category => p_pei_attribute_category,
99 p_pei_attribute1 => p_pei_attribute1 ,
100 p_pei_attribute2 => p_pei_attribute2 ,
101 p_pei_attribute3 => p_pei_attribute3 ,
102 p_pei_attribute4 => p_pei_attribute4 ,
103 p_pei_attribute5 => p_pei_attribute5 ,
104 p_pei_attribute6 => p_pei_attribute6 ,
105 p_pei_attribute7 => p_pei_attribute7 ,
106 p_pei_attribute8 => p_pei_attribute8 ,
107 p_pei_attribute9 => p_pei_attribute9 ,
108 p_pei_attribute10 => p_pei_attribute10 ,
109 p_pei_attribute11 => p_pei_attribute11 ,
110 p_pei_attribute12 => p_pei_attribute12 ,
111 p_pei_attribute13 => p_pei_attribute13 ,
112 p_pei_attribute14 => p_pei_attribute14 ,
113 p_pei_attribute15 => p_pei_attribute15 ,
114 p_pei_attribute16 => p_pei_attribute16 ,
115 p_pei_attribute17 => p_pei_attribute17 ,
116 p_pei_attribute18 => p_pei_attribute18 ,
117 p_pei_attribute19 => p_pei_attribute19 ,
118 p_pei_attribute20 => p_pei_attribute20 ,
119 p_pei_information_category => p_pei_information_category ,
120 p_pei_information1 => p_pei_information1 ,
121 p_pei_information2 => p_pei_information2 ,
122 p_pei_information3 => p_pei_information3 ,
123 p_pei_information4 => p_pei_information4 ,
124 p_pei_information5 => p_pei_information5 ,
125 p_pei_information6 => p_pei_information6 ,
126 p_pei_information7 => p_pei_information7 ,
127 p_pei_information8 => p_pei_information8 ,
128 p_pei_information9 => p_pei_information9 ,
129 p_pei_information10 => p_pei_information10 ,
130 p_pei_information11 => p_pei_information11 ,
131 p_pei_information12 => p_pei_information12 ,
132 p_pei_information13 => p_pei_information13 ,
133 p_pei_information14 => p_pei_information14 ,
134 p_pei_information15 => p_pei_information15 ,
135 p_pei_information16 => p_pei_information16 ,
136 p_pei_information17 => p_pei_information17 ,
137 p_pei_information18 => p_pei_information18 ,
138 p_pei_information19 => p_pei_information19 ,
139 p_pei_information20 => p_pei_information20 ,
140 p_pei_information21 => p_pei_information21 ,
141 p_pei_information22 => p_pei_information22 ,
142 p_pei_information23 => p_pei_information23 ,
143 p_pei_information24 => p_pei_information24 ,
144 p_pei_information25 => p_pei_information25 ,
145 p_pei_information26 => p_pei_information26 ,
146 p_pei_information27 => p_pei_information27 ,
147 p_pei_information28 => p_pei_information28 ,
148 p_pei_information29 => p_pei_information29 ,
149 p_pei_information30 => p_pei_information30 ,
150 p_person_extra_info_id => l_person_extra_info_id ,
151 p_object_version_number => l_object_version_number
152 );
153 --
154 ghr_history_api.post_update_process;
155 if p_validate then
156 raise hr_api.validate_enabled;
157 end if;
158 --
159
160 --set all output variables
161
162 p_person_extra_info_id := l_person_extra_info_id;
163 p_object_version_number := l_object_version_number;
164 hr_utility.set_location(' Leaving:'||l_proc, 11);
165 exception
166 when hr_api.validate_enabled then
167 --
168 -- As the Validate_Enabled exception has been raised
169 -- we must rollback to the savepoint
170 --
171 ROLLBACK TO ghr_create_person_extra_info;
172 --
173 -- Only set output warning arguments
174 -- (Any key or derived arguments must be set to null
175 -- when validation only mode is being used.)
176 --
177 p_person_extra_info_id := null;
178 p_object_version_number := null;
179 --
180 hr_utility.set_location(' Leaving:'||l_proc, 12);
181 when others then
182 ROLLBACK TO ghr_create_person_extra_info;
183 raise;
184 end create_person_extra_info;
185
186 -- ----------------------------------------------------------------------------
187 -- |-----------------------< update_person_extra_info >------------------------|
188 -- ----------------------------------------------------------------------------
189 --
190 procedure update_person_extra_info
191 (p_validate in boolean default false
192 ,p_person_extra_info_id in number
193 ,p_object_version_number in out NOCOPY number
194 ,p_effective_date in date
195 ,p_pei_attribute_category in varchar2 default hr_api.g_varchar2
196 ,p_pei_attribute1 in varchar2 default hr_api.g_varchar2
197 ,p_pei_attribute2 in varchar2 default hr_api.g_varchar2
198 ,p_pei_attribute3 in varchar2 default hr_api.g_varchar2
199 ,p_pei_attribute4 in varchar2 default hr_api.g_varchar2
200 ,p_pei_attribute5 in varchar2 default hr_api.g_varchar2
201 ,p_pei_attribute6 in varchar2 default hr_api.g_varchar2
202 ,p_pei_attribute7 in varchar2 default hr_api.g_varchar2
203 ,p_pei_attribute8 in varchar2 default hr_api.g_varchar2
204 ,p_pei_attribute9 in varchar2 default hr_api.g_varchar2
205 ,p_pei_attribute10 in varchar2 default hr_api.g_varchar2
206 ,p_pei_attribute11 in varchar2 default hr_api.g_varchar2
207 ,p_pei_attribute12 in varchar2 default hr_api.g_varchar2
208 ,p_pei_attribute13 in varchar2 default hr_api.g_varchar2
209 ,p_pei_attribute14 in varchar2 default hr_api.g_varchar2
210 ,p_pei_attribute15 in varchar2 default hr_api.g_varchar2
211 ,p_pei_attribute16 in varchar2 default hr_api.g_varchar2
212 ,p_pei_attribute17 in varchar2 default hr_api.g_varchar2
213 ,p_pei_attribute18 in varchar2 default hr_api.g_varchar2
214 ,p_pei_attribute19 in varchar2 default hr_api.g_varchar2
215 ,p_pei_attribute20 in varchar2 default hr_api.g_varchar2
216 ,p_pei_information_category in varchar2 default hr_api.g_varchar2
217 ,p_pei_information1 in varchar2 default hr_api.g_varchar2
218 ,p_pei_information2 in varchar2 default hr_api.g_varchar2
219 ,p_pei_information3 in varchar2 default hr_api.g_varchar2
220 ,p_pei_information4 in varchar2 default hr_api.g_varchar2
221 ,p_pei_information5 in varchar2 default hr_api.g_varchar2
222 ,p_pei_information6 in varchar2 default hr_api.g_varchar2
223 ,p_pei_information7 in varchar2 default hr_api.g_varchar2
224 ,p_pei_information8 in varchar2 default hr_api.g_varchar2
225 ,p_pei_information9 in varchar2 default hr_api.g_varchar2
226 ,p_pei_information10 in varchar2 default hr_api.g_varchar2
227 ,p_pei_information11 in varchar2 default hr_api.g_varchar2
228 ,p_pei_information12 in varchar2 default hr_api.g_varchar2
229 ,p_pei_information13 in varchar2 default hr_api.g_varchar2
230 ,p_pei_information14 in varchar2 default hr_api.g_varchar2
231 ,p_pei_information15 in varchar2 default hr_api.g_varchar2
232 ,p_pei_information16 in varchar2 default hr_api.g_varchar2
233 ,p_pei_information17 in varchar2 default hr_api.g_varchar2
234 ,p_pei_information18 in varchar2 default hr_api.g_varchar2
235 ,p_pei_information19 in varchar2 default hr_api.g_varchar2
236 ,p_pei_information20 in varchar2 default hr_api.g_varchar2
237 ,p_pei_information21 in varchar2 default hr_api.g_varchar2
238 ,p_pei_information22 in varchar2 default hr_api.g_varchar2
239 ,p_pei_information23 in varchar2 default hr_api.g_varchar2
240 ,p_pei_information24 in varchar2 default hr_api.g_varchar2
241 ,p_pei_information25 in varchar2 default hr_api.g_varchar2
242 ,p_pei_information26 in varchar2 default hr_api.g_varchar2
243 ,p_pei_information27 in varchar2 default hr_api.g_varchar2
244 ,p_pei_information28 in varchar2 default hr_api.g_varchar2
245 ,p_pei_information29 in varchar2 default hr_api.g_varchar2
246 ,p_pei_information30 in varchar2 default hr_api.g_varchar2
247 ) is
248 --
249 -- Declare cursors and local variables
250 --
251 l_proc varchar2(72) := g_package||'update_person_extra_info';
252 l_object_version_number per_phones.object_version_number%TYPE;
253 --
254 begin
255 hr_utility.set_location('Entering:'|| l_proc, 5);
256 --
257 -- Issue a savepoint if operating in validation only mode.
258 --
259 savepoint ghr_update_person_extra_info;
260 --
261 --
262 ghr_session.set_session_var_for_core
263 (p_effective_date => p_effective_date
264 );
265 hr_person_extra_info_api.update_person_extra_info
266 (
267 p_person_extra_info_id => p_person_extra_info_id ,
268 p_pei_attribute_category => p_pei_attribute_category,
269 p_pei_attribute1 => p_pei_attribute1 ,
270 p_pei_attribute2 => p_pei_attribute2 ,
271 p_pei_attribute3 => p_pei_attribute3 ,
272 p_pei_attribute4 => p_pei_attribute4 ,
273 p_pei_attribute5 => p_pei_attribute5 ,
274 p_pei_attribute6 => p_pei_attribute6 ,
275 p_pei_attribute7 => p_pei_attribute7 ,
276 p_pei_attribute8 => p_pei_attribute8 ,
277 p_pei_attribute9 => p_pei_attribute9 ,
278 p_pei_attribute10 => p_pei_attribute10 ,
279 p_pei_attribute11 => p_pei_attribute11 ,
280 p_pei_attribute12 => p_pei_attribute12 ,
281 p_pei_attribute13 => p_pei_attribute13 ,
282 p_pei_attribute14 => p_pei_attribute14 ,
283 p_pei_attribute15 => p_pei_attribute15 ,
284 p_pei_attribute16 => p_pei_attribute16 ,
285 p_pei_attribute17 => p_pei_attribute17 ,
286 p_pei_attribute18 => p_pei_attribute18 ,
287 p_pei_attribute19 => p_pei_attribute19 ,
288 p_pei_attribute20 => p_pei_attribute20 ,
289 p_pei_information_category => p_pei_information_category ,
290 p_pei_information1 => p_pei_information1 ,
291 p_pei_information2 => p_pei_information2 ,
292 p_pei_information3 => p_pei_information3 ,
293 p_pei_information4 => p_pei_information4 ,
294 p_pei_information5 => p_pei_information5 ,
295 p_pei_information6 => p_pei_information6 ,
296 p_pei_information7 => p_pei_information7 ,
297 p_pei_information8 => p_pei_information8 ,
298 p_pei_information9 => p_pei_information9 ,
299 p_pei_information10 => p_pei_information10 ,
300 p_pei_information11 => p_pei_information11 ,
301 p_pei_information12 => p_pei_information12 ,
302 p_pei_information13 => p_pei_information13 ,
303 p_pei_information14 => p_pei_information14 ,
304 p_pei_information15 => p_pei_information15 ,
305 p_pei_information16 => p_pei_information16 ,
306 p_pei_information17 => p_pei_information17 ,
307 p_pei_information18 => p_pei_information18 ,
308 p_pei_information19 => p_pei_information19 ,
309 p_pei_information20 => p_pei_information20 ,
310 p_pei_information21 => p_pei_information21 ,
311 p_pei_information22 => p_pei_information22 ,
312 p_pei_information23 => p_pei_information23 ,
313 p_pei_information24 => p_pei_information24 ,
314 p_pei_information25 => p_pei_information25 ,
315 p_pei_information26 => p_pei_information26 ,
316 p_pei_information27 => p_pei_information27 ,
317 p_pei_information28 => p_pei_information28 ,
318 p_pei_information29 => p_pei_information29 ,
319 p_pei_information30 => p_pei_information30 ,
320 p_object_version_number => p_object_version_number
321 );
322 --
323 --
324 hr_utility.set_location(l_proc, 7);
325 --
326 ghr_history_api.post_update_process;
327
328 if p_validate then
329 raise hr_api.validate_enabled;
330 end if;
331 --
332 hr_utility.set_location(' Leaving:'||l_proc, 11);
333 exception
334 when hr_api.validate_enabled then
335 --
336 -- As the Validate_Enabled exception has been raised
337 -- we must rollback to the savepoint
338 --
339 ROLLBACK TO ghr_update_person_extra_info;
340 --
341 -- Only set output warning arguments
342 -- (Any key or derived arguments must be set to null
343 -- when validation only mode is being used.)
344 --
345 p_object_version_number := l_object_version_number;
346 --
347 hr_utility.set_location(' Leaving:'||l_proc, 12);
348 when others then
349 ROLLBACK TO ghr_update_person_extra_info;
350 raise;
351 end update_person_extra_info;
352 --
353 --
354
355 end ghr_person_extra_info_api;
356