[Home] [Help]
PACKAGE BODY: APPS.OTA_OCL_API
Source
1 Package Body OTA_OCL_API as
2 /* $Header: otoclapi.pkb 120.0.12000000.2 2007/02/07 09:17:35 niarora noship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := ' OTA_OCL_API.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |--------------------------< create_competence_language >-------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure create_competence_language
13 (p_validate in boolean default false
14 ,p_effective_date in date
15 ,p_competence_language_id out nocopy number
16 ,p_competence_id in number
17 ,p_language_code in varchar2
18 ,p_business_group_id in number
19 ,p_min_proficiency_level_id in number default null
20 ,p_ocl_information_category in varchar2 default null
21 ,p_ocl_information1 in varchar2 default null
22 ,p_ocl_information2 in varchar2 default null
23 ,p_ocl_information3 in varchar2 default null
24 ,p_ocl_information4 in varchar2 default null
25 ,p_ocl_information5 in varchar2 default null
26 ,p_ocl_information6 in varchar2 default null
27 ,p_ocl_information7 in varchar2 default null
28 ,p_ocl_information8 in varchar2 default null
29 ,p_ocl_information9 in varchar2 default null
30 ,p_ocl_information10 in varchar2 default null
31 ,p_ocl_information11 in varchar2 default null
32 ,p_ocl_information12 in varchar2 default null
33 ,p_ocl_information13 in varchar2 default null
34 ,p_ocl_information14 in varchar2 default null
35 ,p_ocl_information15 in varchar2 default null
36 ,p_ocl_information16 in varchar2 default null
37 ,p_ocl_information17 in varchar2 default null
38 ,p_ocl_information18 in varchar2 default null
39 ,p_ocl_information19 in varchar2 default null
40 ,p_ocl_information20 in varchar2 default null
41 ,p_object_version_number out nocopy number
42 ,p_some_warning out nocopy boolean
43 ) is
44 --
45 -- Declare cursors and local variables
46 --
47
48 l_proc varchar2(72) := g_package||'create_competence_language';
49 l_effective_date date;
50
51 begin
52 hr_utility.set_location('Entering:'|| l_proc, 10);
53 --
54 -- Issue a savepoint
55 --
56 savepoint create_competence_language;
57 --
58 -- Truncate the time portion from all IN date parameters
59 --
60 l_effective_date := trunc(p_effective_date);
61
62 --
63 -- Call Before Process User Hook
64 --
65 begin
66 OTA_OCL_BK1.create_competence_language_b
67 (p_effective_date => l_effective_date
68 ,p_competence_language_id => p_competence_language_id
69 ,p_competence_id => p_competence_id
70 ,p_language_code => p_language_code
71 ,p_business_group_id => p_business_group_id
72 ,p_min_proficiency_level_id => p_min_proficiency_level_id
73 ,p_ocl_information_category => p_ocl_information_category
74 ,p_ocl_information1 => p_ocl_information1
75 ,p_ocl_information2 => p_ocl_information2
76 ,p_ocl_information3 => p_ocl_information3
77 ,p_ocl_information4 => p_ocl_information4
78 ,p_ocl_information5 => p_ocl_information5
79 ,p_ocl_information6 => p_ocl_information6
80 ,p_ocl_information7 => p_ocl_information7
81 ,p_ocl_information8 => p_ocl_information8
82 ,p_ocl_information9 => p_ocl_information9
83 ,p_ocl_information10 => p_ocl_information10
84 ,p_ocl_information11 => p_ocl_information11
85 ,p_ocl_information12 => p_ocl_information12
86 ,p_ocl_information13 => p_ocl_information13
87 ,p_ocl_information14 => p_ocl_information14
88 ,p_ocl_information15 => p_ocl_information15
89 ,p_ocl_information16 => p_ocl_information16
90 ,p_ocl_information17 => p_ocl_information17
91 ,p_ocl_information18 => p_ocl_information18
92 ,p_ocl_information19 => p_ocl_information19
93 ,p_ocl_information20 => p_ocl_information20
94 ,p_object_version_number => p_object_version_number
95 );
96 exception
97 when hr_api.cannot_find_prog_unit then
98 hr_api.cannot_find_prog_unit_error
99 (p_module_name => 'create_competence_language_b'
100 ,p_hook_type => 'BP'
101 );
102 end;
103 --
104 -- Validation in addition to Row Handlers
105 --
106
107 ota_ocl_ins .ins
108 (p_effective_date => l_effective_date
109 ,p_competence_language_id => p_competence_language_id
110 ,p_competence_id => p_competence_id
111 ,p_language_code => p_language_code
112 ,p_business_group_id => p_business_group_id
113 ,p_min_proficiency_level_id => p_min_proficiency_level_id
114 ,p_ocl_information_category => p_ocl_information_category
115 ,p_ocl_information1 => p_ocl_information1
116 ,p_ocl_information2 => p_ocl_information2
117 ,p_ocl_information3 => p_ocl_information3
118 ,p_ocl_information4 => p_ocl_information4
119 ,p_ocl_information5 => p_ocl_information5
120 ,p_ocl_information6 => p_ocl_information6
121 ,p_ocl_information7 => p_ocl_information7
122 ,p_ocl_information8 => p_ocl_information8
123 ,p_ocl_information9 => p_ocl_information9
124 ,p_ocl_information10 => p_ocl_information10
125 ,p_ocl_information11 => p_ocl_information11
126 ,p_ocl_information12 => p_ocl_information12
127 ,p_ocl_information13 => p_ocl_information13
128 ,p_ocl_information14 => p_ocl_information14
129 ,p_ocl_information15 => p_ocl_information15
130 ,p_ocl_information16 => p_ocl_information16
131 ,p_ocl_information17 => p_ocl_information17
132 ,p_ocl_information18 => p_ocl_information18
133 ,p_ocl_information19 => p_ocl_information19
134 ,p_ocl_information20 => p_ocl_information20
135 ,p_object_version_number => p_object_version_number
136 );
137
138
139 --
140 -- Process Logic
141 --
142
143
144
145 --
146 -- Call After Process User Hook
147 --
148 begin
149 OTA_OCL_BK1.create_competence_language_a
150 (p_effective_date => l_effective_date
151 ,p_competence_language_id => p_competence_language_id
152 ,p_competence_id => p_competence_id
153 ,p_language_code => p_language_code
154 ,p_business_group_id => p_business_group_id
155 ,p_min_proficiency_level_id => p_min_proficiency_level_id
156 ,p_ocl_information_category => p_ocl_information_category
157 ,p_ocl_information1 => p_ocl_information1
158 ,p_ocl_information2 => p_ocl_information2
159 ,p_ocl_information3 => p_ocl_information3
160 ,p_ocl_information4 => p_ocl_information4
161 ,p_ocl_information5 => p_ocl_information5
162 ,p_ocl_information6 => p_ocl_information6
163 ,p_ocl_information7 => p_ocl_information7
164 ,p_ocl_information8 => p_ocl_information8
165 ,p_ocl_information9 => p_ocl_information9
166 ,p_ocl_information10 => p_ocl_information10
167 ,p_ocl_information11 => p_ocl_information11
168 ,p_ocl_information12 => p_ocl_information12
169 ,p_ocl_information13 => p_ocl_information13
170 ,p_ocl_information14 => p_ocl_information14
171 ,p_ocl_information15 => p_ocl_information15
172 ,p_ocl_information16 => p_ocl_information16
173 ,p_ocl_information17 => p_ocl_information17
174 ,p_ocl_information18 => p_ocl_information18
175 ,p_ocl_information19 => p_ocl_information19
176 ,p_ocl_information20 => p_ocl_information20
177 ,p_object_version_number => p_object_version_number
178 );
179 exception
180 when hr_api.cannot_find_prog_unit then
181 hr_api.cannot_find_prog_unit_error
182 (p_module_name => 'create_competence_language_a'
183 ,p_hook_type => 'AP'
184 );
185 end;
186 --
187 -- When in validation only mode raise the Validate_Enabled exception
188 --
189 if p_validate then
190 raise hr_api.validate_enabled;
191 end if;
192 --
193 -- Set all output arguments
194 --
195 /* p_id := <local_var_set_in_process_logic>
196 p_object_version_number := <local_var_set_in_process_logic>
197 p_some_warning := <local_var_set_in_process_logic> */
198 --
199 hr_utility.set_location(' Leaving:'||l_proc, 70);
200 exception
201 when hr_api.validate_enabled then
202 --
203 -- As the Validate_Enabled exception has been raised
204 -- we must rollback to the savepoint
205 --
206 rollback to create_competence_language ;
207 --
208 -- Only set output warning arguments
209 -- (Any key or derived arguments must be set to null
210 -- when validation only mode is being used.)
211 --
212 /* p_id := null;
213 p_object_version_number := null;
214 p_some_warning := <local_var_set_in_process_logic> */
215 hr_utility.set_location(' Leaving:'||l_proc, 80);
216 when others then
217 --
218 -- A validation or unexpected error has occured
219 --
220 rollback to create_competence_language;
221 hr_utility.set_location(' Leaving:'||l_proc, 90);
222 raise;
223 end create_competence_language ;
224
225
226 -- ----------------------------------------------------------------------------
227 -- |--------------------------< update_competence_language >-------------------|
228 -- ----------------------------------------------------------------------------
229 --
230 procedure update_competence_language
231 (p_validate in boolean default false
232 ,p_effective_date in date
233 ,p_competence_language_id in number
234 ,p_competence_id in number
235 ,p_language_code in varchar2
236 ,p_business_group_id in number
237 ,p_min_proficiency_level_id in number default null
238 ,p_ocl_information_category in varchar2 default null
239 ,p_ocl_information1 in varchar2 default null
240 ,p_ocl_information2 in varchar2 default null
241 ,p_ocl_information3 in varchar2 default null
242 ,p_ocl_information4 in varchar2 default null
243 ,p_ocl_information5 in varchar2 default null
244 ,p_ocl_information6 in varchar2 default null
245 ,p_ocl_information7 in varchar2 default null
246 ,p_ocl_information8 in varchar2 default null
247 ,p_ocl_information9 in varchar2 default null
248 ,p_ocl_information10 in varchar2 default null
249 ,p_ocl_information11 in varchar2 default null
250 ,p_ocl_information12 in varchar2 default null
251 ,p_ocl_information13 in varchar2 default null
252 ,p_ocl_information14 in varchar2 default null
253 ,p_ocl_information15 in varchar2 default null
254 ,p_ocl_information16 in varchar2 default null
255 ,p_ocl_information17 in varchar2 default null
256 ,p_ocl_information18 in varchar2 default null
257 ,p_ocl_information19 in varchar2 default null
258 ,p_ocl_information20 in varchar2 default null
259 ,p_object_version_number in out nocopy number
260 ,p_some_warning out nocopy boolean
261 ) is
262 --
263 -- Declare cursors and local variables
264 --
265
266 l_proc varchar2(72) := g_package||'update_competence_language';
267 l_effective_date date;
268
269 begin
270 hr_utility.set_location('Entering:'|| l_proc, 10);
271 --
272 -- Issue a savepoint
273 --
274 savepoint update_competence_language;
275 --
276 -- Truncate the time portion from all IN date parameters
277 --
278 l_effective_date := trunc(p_effective_date);
279
280 --
281 -- Call Before Process User Hook
282 --
283 begin
284 OTA_OCL_BK2.update_competence_language_b
285 (p_effective_date => l_effective_date
286 ,p_competence_language_id => p_competence_language_id
287 ,p_competence_id => p_competence_id
288 ,p_language_code => p_language_code
289 ,p_business_group_id => p_business_group_id
290 ,p_min_proficiency_level_id => p_min_proficiency_level_id
291 ,p_ocl_information_category => p_ocl_information_category
292 ,p_ocl_information1 => p_ocl_information1
293 ,p_ocl_information2 => p_ocl_information2
294 ,p_ocl_information3 => p_ocl_information3
295 ,p_ocl_information4 => p_ocl_information4
296 ,p_ocl_information5 => p_ocl_information5
297 ,p_ocl_information6 => p_ocl_information6
298 ,p_ocl_information7 => p_ocl_information7
299 ,p_ocl_information8 => p_ocl_information8
300 ,p_ocl_information9 => p_ocl_information9
301 ,p_ocl_information10 => p_ocl_information10
302 ,p_ocl_information11 => p_ocl_information11
303 ,p_ocl_information12 => p_ocl_information12
304 ,p_ocl_information13 => p_ocl_information13
305 ,p_ocl_information14 => p_ocl_information14
306 ,p_ocl_information15 => p_ocl_information15
307 ,p_ocl_information16 => p_ocl_information16
308 ,p_ocl_information17 => p_ocl_information17
309 ,p_ocl_information18 => p_ocl_information18
310 ,p_ocl_information19 => p_ocl_information19
311 ,p_ocl_information20 => p_ocl_information20
312 ,p_object_version_number => p_object_version_number
313 );
314 exception
315 when hr_api.cannot_find_prog_unit then
316 hr_api.cannot_find_prog_unit_error
317 (p_module_name => 'update_competence_language_b'
318 ,p_hook_type => 'BP'
319 );
320 end;
321 --
322 -- Validation in addition to Row Handlers
323 --
324
325 ota_ocl_upd.upd
326 (p_effective_date => l_effective_date
327 ,p_competence_language_id => p_competence_language_id
328 ,p_competence_id => p_competence_id
329 ,p_language_code => p_language_code
330 ,p_business_group_id => p_business_group_id
331 ,p_min_proficiency_level_id => p_min_proficiency_level_id
332 ,p_ocl_information_category => p_ocl_information_category
333 ,p_ocl_information1 => p_ocl_information1
334 ,p_ocl_information2 => p_ocl_information2
335 ,p_ocl_information3 => p_ocl_information3
336 ,p_ocl_information4 => p_ocl_information4
337 ,p_ocl_information5 => p_ocl_information5
338 ,p_ocl_information6 => p_ocl_information6
339 ,p_ocl_information7 => p_ocl_information7
340 ,p_ocl_information8 => p_ocl_information8
341 ,p_ocl_information9 => p_ocl_information9
342 ,p_ocl_information10 => p_ocl_information10
343 ,p_ocl_information11 => p_ocl_information11
344 ,p_ocl_information12 => p_ocl_information12
345 ,p_ocl_information13 => p_ocl_information13
349 ,p_ocl_information17 => p_ocl_information17
346 ,p_ocl_information14 => p_ocl_information14
347 ,p_ocl_information15 => p_ocl_information15
348 ,p_ocl_information16 => p_ocl_information16
350 ,p_ocl_information18 => p_ocl_information18
351 ,p_ocl_information19 => p_ocl_information19
352 ,p_ocl_information20 => p_ocl_information20
353 ,p_object_version_number => p_object_version_number
354 );
355
356
357 --
358 -- Process Logic
359 --
360
361
362
363 --
364 -- Call After Process User Hook
365 --
366 begin
367 OTA_OCL_BK2.update_competence_language_a
368 (p_effective_date => l_effective_date
369 ,p_competence_language_id => p_competence_language_id
370 ,p_competence_id => p_competence_id
371 ,p_language_code => p_language_code
372 ,p_business_group_id => p_business_group_id
373 ,p_min_proficiency_level_id => p_min_proficiency_level_id
374 ,p_ocl_information_category => p_ocl_information_category
375 ,p_ocl_information1 => p_ocl_information1
376 ,p_ocl_information2 => p_ocl_information2
377 ,p_ocl_information3 => p_ocl_information3
378 ,p_ocl_information4 => p_ocl_information4
379 ,p_ocl_information5 => p_ocl_information5
380 ,p_ocl_information6 => p_ocl_information6
381 ,p_ocl_information7 => p_ocl_information7
382 ,p_ocl_information8 => p_ocl_information8
383 ,p_ocl_information9 => p_ocl_information9
384 ,p_ocl_information10 => p_ocl_information10
385 ,p_ocl_information11 => p_ocl_information11
386 ,p_ocl_information12 => p_ocl_information12
387 ,p_ocl_information13 => p_ocl_information13
388 ,p_ocl_information14 => p_ocl_information14
389 ,p_ocl_information15 => p_ocl_information15
390 ,p_ocl_information16 => p_ocl_information16
391 ,p_ocl_information17 => p_ocl_information17
392 ,p_ocl_information18 => p_ocl_information18
393 ,p_ocl_information19 => p_ocl_information19
394 ,p_ocl_information20 => p_ocl_information20
395 ,p_object_version_number => p_object_version_number
396 );
397 exception
398 when hr_api.cannot_find_prog_unit then
399 hr_api.cannot_find_prog_unit_error
400 (p_module_name => 'update_competence_language_a'
401 ,p_hook_type => 'AP'
402 );
403 end;
404 --
405 -- When in validation only mode raise the Validate_Enabled exception
406 --
407 if p_validate then
408 raise hr_api.validate_enabled;
409 end if;
410 --
411 -- Set all output arguments
412 --
413 /* p_id := <local_var_set_in_process_logic>
414 p_object_version_number := <local_var_set_in_process_logic>
415 p_some_warning := <local_var_set_in_process_logic> */
416 --
417 hr_utility.set_location(' Leaving:'||l_proc, 70);
418 exception
419 when hr_api.validate_enabled then
420 --
421 -- As the Validate_Enabled exception has been raised
422 -- we must rollback to the savepoint
423 --
424 rollback to update_competence_language;
425 --
426 -- Only set output warning arguments
427 -- (Any key or derived arguments must be set to null
428 -- when validation only mode is being used.)
429 --
430 /* p_id := null;
431 p_object_version_number := null;
432 p_some_warning := <local_var_set_in_process_logic> */
433 hr_utility.set_location(' Leaving:'||l_proc, 80);
434 when others then
435 --
436 -- A validation or unexpected error has occured
437 --
438 rollback to update_competence_language;
439 hr_utility.set_location(' Leaving:'||l_proc, 90);
440 raise;
441 end update_competence_language ;
442
443
444 --
445 end OTA_OCL_API;