[Home] [Help]
PACKAGE BODY: APPS.PER_RI_CONFIG_INFORMATION_API
Source
1 Package Body per_ri_config_information_api AS
2 /* $Header: pecniapi.pkb 120.0 2005/05/31 06:48:18 appldev noship $ */
3 --
4 -- Package Variables
5 --
6 g_package VARCHAR2(33) := 'per_ri_config_information_api.';
7 --
8 --------------------------------------------------------------------------------
9 g_dummy number(1); -- Dummy for cursor returns which are not needed
10 g_business_group_id number(15); -- For validating translation;
11 g_legislation_code varchar2(150); -- For validating translation;
12 --------------------------------------------------------------------------------
13 -- ----------------------------------------------------------------------------------
14 -- |-----------------------------< create_workbench_items >--------------------------|
15 -- ----------------------------------------------------------------------------------
16 --
17 Procedure create_config_information
18 ( p_validate In Boolean Default False
19 ,p_configuration_code In Varchar2
20 ,p_config_information_category In Varchar2
21 ,p_config_sequence In Number
22 ,p_config_information1 In Varchar2 Default Null
23 ,p_config_information2 In Varchar2 Default Null
24 ,p_config_information3 In Varchar2 Default Null
25 ,p_config_information4 In Varchar2 Default Null
26 ,p_config_information5 In Varchar2 Default Null
27 ,p_config_information6 In Varchar2 Default Null
28 ,p_config_information7 In Varchar2 Default Null
29 ,p_config_information8 In Varchar2 Default Null
30 ,p_config_information9 In Varchar2 Default Null
31 ,p_config_information10 In Varchar2 Default Null
32 ,p_config_information11 In Varchar2 Default Null
33 ,p_config_information12 In Varchar2 Default Null
34 ,p_config_information13 In Varchar2 Default Null
35 ,p_config_information14 In Varchar2 Default Null
36 ,p_config_information15 In Varchar2 Default Null
37 ,p_config_information16 In Varchar2 Default Null
38 ,p_config_information17 In Varchar2 Default Null
39 ,p_config_information18 In Varchar2 Default Null
40 ,p_config_information19 In Varchar2 Default Null
41 ,p_config_information20 In Varchar2 Default Null
42 ,p_config_information21 In Varchar2 Default Null
43 ,p_config_information22 In Varchar2 Default Null
44 ,p_config_information23 In Varchar2 Default Null
45 ,p_config_information24 In Varchar2 Default Null
46 ,p_config_information25 In Varchar2 Default Null
47 ,p_config_information26 In Varchar2 Default Null
48 ,p_config_information27 In Varchar2 Default Null
49 ,p_config_information28 In Varchar2 Default Null
50 ,p_config_information29 In Varchar2 Default Null
51 ,p_config_information30 In Varchar2 Default Null
52 ,p_language_code In Varchar2 Default hr_api.userenv_lang
53 ,p_effective_date In Date
54 ,p_config_information_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_config_information';
61 l_object_version_number hr_locations_all.object_version_number%TYPE;
62 l_language_code per_ri_workbench_items_tl.language%TYPE;
63 l_effective_date Date;
64
65 --
66 Begin
67 --
68 hr_utility.set_location('Entering:'|| l_proc, 10);
69 --
70 -- Issue a savepoint
71 --
72 Savepoint create_config_information;
73 --
74 hr_utility.set_location(l_proc, 15);
75 --
76 -- All date input parameters must be truncated to remove time elements
77 --
78 l_effective_date := trunc (p_effective_date);
79 --
80 --
81 -- Validate the language parameter. l_language_code should be passed to functions
82 -- instead of p_language_code from now on, to allow an IN OUT parameter to
83 -- be passed through.
84 --
85 l_language_code := p_language_code;
86 hr_api.validate_language_code(p_language_code => l_language_code);
87 --
88 hr_utility.set_location(l_proc, 20);
89
90 -- Process Logic
91 --
92 -- Insert non-translatable rows into PER_RI_CONFIG_INFORMATION first
93 per_cni_ins.ins
94 ( p_effective_date => p_effective_date
95 ,p_configuration_code => p_configuration_code
96 ,p_config_information_category => p_config_information_category
97 ,p_config_sequence => p_config_sequence
98 ,p_config_information1 => p_config_information1
99 ,p_config_information2 => p_config_information2
100 ,p_config_information3 => p_config_information3
101 ,p_config_information4 => p_config_information4
102 ,p_config_information5 => p_config_information5
103 ,p_config_information6 => p_config_information6
104 ,p_config_information7 => p_config_information7
105 ,p_config_information8 => p_config_information8
106 ,p_config_information9 => p_config_information9
107 ,p_config_information10 => p_config_information10
108 ,p_config_information11 => p_config_information11
109 ,p_config_information12 => p_config_information12
110 ,p_config_information13 => p_config_information13
111 ,p_config_information14 => p_config_information14
112 ,p_config_information15 => p_config_information15
113 ,p_config_information16 => p_config_information16
114 ,p_config_information17 => p_config_information17
115 ,p_config_information18 => p_config_information18
116 ,p_config_information19 => p_config_information19
117 ,p_config_information20 => p_config_information20
118 ,p_config_information21 => p_config_information21
119 ,p_config_information22 => p_config_information22
120 ,p_config_information23 => p_config_information23
121 ,p_config_information24 => p_config_information24
122 ,p_config_information25 => p_config_information25
123 ,p_config_information26 => p_config_information26
124 ,p_config_information27 => p_config_information27
125 ,p_config_information28 => p_config_information28
126 ,p_config_information29 => p_config_information29
127 ,p_config_information30 => p_config_information30
128 ,p_config_information_id => p_config_information_id
129 ,p_object_version_number => l_object_version_number
130 );
131 --
132
133
134 hr_utility.set_location(l_proc, 60);
135 --
136 -- When in validation only mode raise the Validate_Enabled exception
137 --
138 If p_validate Then
139 Raise hr_api.validate_enabled;
140 End If;
141 --
142 -- Set all output arguments
143 --
144 p_object_version_number := l_object_version_number;
145 --
146 hr_utility.set_location(' Leaving:'||l_proc, 70);
147 --
148 Exception
149 --
150 When hr_api.validate_enabled Then
151 --
152 -- As the Validate_Enabled exception has been raised
153 -- we must rollback to the savepoint
154 --
155 Rollback To create_config_information;
156 --
157 -- Only set output warning arguments
158 -- (Any key or derived arguments must be set to null
159 -- when validation only mode is being used.)
160 --
161 p_object_version_number := Null;
162 hr_utility.set_location(' Leaving:'||l_proc, 80);
163 When Others Then
164 --
165 -- A validation or unexpected error has occurred
166 Rollback To create_config_information;
167 -- Set OUT parameters.
168 p_object_version_number := Null;
169 hr_utility.set_location(' Leaving:'||l_proc, 90);
170 Raise;
171 --
172 End create_config_information;
173 -- ----------------------------------------------------------------------------
174 -- |--------------------------< update_config_information >-----------------------------|
175 -- ----------------------------------------------------------------------------
176 --
177 Procedure update_config_information
178 ( p_validate In Boolean Default False
179 ,p_config_information_id In Number
180 ,p_configuration_code In Varchar2
181 ,p_config_information_category In Varchar2
182 ,p_config_sequence In Number Default hr_api.g_number
183 ,p_config_information1 In Varchar2 Default hr_api.g_varchar2
184 ,p_config_information2 In Varchar2 Default hr_api.g_varchar2
185 ,p_config_information3 In Varchar2 Default hr_api.g_varchar2
186 ,p_config_information4 In Varchar2 Default hr_api.g_varchar2
187 ,p_config_information5 In Varchar2 Default hr_api.g_varchar2
188 ,p_config_information6 In Varchar2 Default hr_api.g_varchar2
189 ,p_config_information7 In Varchar2 Default hr_api.g_varchar2
190 ,p_config_information8 In Varchar2 Default hr_api.g_varchar2
191 ,p_config_information9 In Varchar2 Default hr_api.g_varchar2
192 ,p_config_information10 In Varchar2 Default hr_api.g_varchar2
193 ,p_config_information11 In Varchar2 Default hr_api.g_varchar2
194 ,p_config_information12 In Varchar2 Default hr_api.g_varchar2
195 ,p_config_information13 In Varchar2 Default hr_api.g_varchar2
196 ,p_config_information14 In Varchar2 Default hr_api.g_varchar2
197 ,p_config_information15 In Varchar2 Default hr_api.g_varchar2
198 ,p_config_information16 In Varchar2 Default hr_api.g_varchar2
199 ,p_config_information17 In Varchar2 Default hr_api.g_varchar2
200 ,p_config_information18 In Varchar2 Default hr_api.g_varchar2
201 ,p_config_information19 In Varchar2 Default hr_api.g_varchar2
202 ,p_config_information20 In Varchar2 Default hr_api.g_varchar2
203 ,p_config_information21 In Varchar2 Default hr_api.g_varchar2
204 ,p_config_information22 In Varchar2 Default hr_api.g_varchar2
205 ,p_config_information23 In Varchar2 Default hr_api.g_varchar2
206 ,p_config_information24 In Varchar2 Default hr_api.g_varchar2
207 ,p_config_information25 In Varchar2 Default hr_api.g_varchar2
208 ,p_config_information26 In Varchar2 Default hr_api.g_varchar2
209 ,p_config_information27 In Varchar2 Default hr_api.g_varchar2
210 ,p_config_information28 In Varchar2 Default hr_api.g_varchar2
211 ,p_config_information29 In Varchar2 Default hr_api.g_varchar2
212 ,p_config_information30 In Varchar2 Default hr_api.g_varchar2
213 ,p_language_code In Varchar2 Default hr_api.userenv_lang
214 ,p_effective_date In Date
215 ,p_object_version_number In Out Nocopy Number
216 ) Is
217 --
218 -- Declare cursors and local variables
219 --
220 l_proc VARCHAR2(72) := g_package||'update_workbench_item';
221 l_object_version_number hr_locations.object_version_number%TYPE;
222 l_language_code hr_locations_all_tl.language%TYPE;
223 l_workbench_item_creation_date Date;
224 l_effective_date DATE;
225
226 l_temp_ovn number := p_object_version_number;
227 --
228 BEGIN
229 --
230 hr_utility.set_location('Entering:'|| l_proc, 10);
231 --
232 -- Issue a savepoint.
233 --
234 savepoint update_config_information;
235 --
236 --
237 -- All date input parameters must be truncated to remove time elements
238 --
239 l_effective_date := trunc (p_effective_date);
240
241 --
242 -- Validate the language parameter. l_language_code should be passed to functions
243 -- instead of p_language_code from now on, to allow an IN OUT parameter to be
244 -- passed through.
245 --
246 l_language_code := p_language_code;
247 hr_api.validate_language_code(p_language_code => l_language_code);
248 hr_utility.set_location(l_proc, 20);
249 --
250 --
251 -- Process Logic
252 --
253 l_object_version_number := p_object_version_number;
254 --
255 -- Insert non-translatable rows in PER_RI_CONFIG_INFORMATION Table
256 --
257 per_cni_upd.upd
258 ( p_effective_date => p_effective_date
259 ,p_config_information_id => p_config_information_id
260 ,p_configuration_code => p_configuration_code
261 ,p_config_information_category => p_config_information_category
262 ,p_config_sequence => p_config_sequence
263 ,p_config_information1 => p_config_information1
264 ,p_config_information2 => p_config_information2
265 ,p_config_information3 => p_config_information3
266 ,p_config_information4 => p_config_information4
267 ,p_config_information5 => p_config_information5
268 ,p_config_information6 => p_config_information6
269 ,p_config_information7 => p_config_information7
270 ,p_config_information8 => p_config_information8
271 ,p_config_information9 => p_config_information9
272 ,p_config_information10 => p_config_information10
273 ,p_config_information11 => p_config_information11
274 ,p_config_information12 => p_config_information12
275 ,p_config_information13 => p_config_information13
276 ,p_config_information14 => p_config_information14
277 ,p_config_information15 => p_config_information15
278 ,p_config_information16 => p_config_information16
279 ,p_config_information17 => p_config_information17
280 ,p_config_information18 => p_config_information18
281 ,p_config_information19 => p_config_information19
282 ,p_config_information20 => p_config_information20
283 ,p_config_information21 => p_config_information21
284 ,p_config_information22 => p_config_information22
285 ,p_config_information23 => p_config_information23
286 ,p_config_information24 => p_config_information24
287 ,p_config_information25 => p_config_information25
288 ,p_config_information26 => p_config_information26
289 ,p_config_information27 => p_config_information27
290 ,p_config_information28 => p_config_information28
291 ,p_config_information29 => p_config_information29
292 ,p_config_information30 => p_config_information30
293 ,p_object_version_number => l_object_version_number
294 );
295 --
296
297
298 hr_utility.set_location(l_proc, 60);
299 --
300 -- When in validation only mode raise the Validate_Enabled exception
301 --
302 If p_validate Then
303 Raise hr_api.validate_enabled;
304 End If;
305 --
306 -- Set all output arguments. If p_validate was TRUE, this bit is
307 -- never reached, so p_object_version_number is passed back unchanged.
308 --
309 p_object_version_number := l_object_version_number;
310 --
311 hr_utility.set_location(' Leaving:'||l_proc, 70);
312 --
313 Exception
314 --
315 When hr_api.validate_enabled Then
316 --
317 -- As the Validate_Enabled exception has been raised
318 -- we must rollback to the savepoint
319 --
320 Rollback To update_config_information;
321 --
322 -- Only set output warning arguments
323 -- (Any key or derived arguments must be set to null
324 -- when validation only mode is being used.)
325 -- Reset IN OUT parameters.
326 p_object_version_number := l_temp_ovn;
327 hr_utility.set_location(' Leaving:'||l_proc, 80);
328 When Others Then
329 --
330 -- A validation or unexpected error has occurred
331 Rollback To update_config_information;
332 -- Reset IN OUT parameters.
333 p_object_version_number := l_temp_ovn;
334 hr_utility.set_location(' Leaving:'||l_proc, 90);
335 Raise;
336 --
337 --
338 End update_config_information;
339 -- ----------------------------------------------------------------------------
340 -- |-------------------------< delete_config_information >------------------------------|
341 -- ----------------------------------------------------------------------------
342 --
343 Procedure delete_config_information
344 ( p_validate In Boolean Default False
345 ,p_config_information_id In Number
346 ,p_object_version_number IN Number )
347
348 Is
349 --
350 --
351 -- Declare cursors and local variables
352 --
353 l_proc Varchar2(72) := g_package||'delete_config_information';
354 --
355 Begin
356 --
357 hr_utility.set_location('Entering:'|| l_proc, 10);
358 --
359 -- Issue a savepoint
360 --
361 Savepoint delete_workbench_item;
362
363 --
364
365 hr_utility.set_location( l_proc, 40);
366
367 per_cni_del.del(p_config_information_id => p_config_information_id
368 ,p_object_version_number => p_object_version_number);
369
370
371 --
372 hr_utility.set_location(' Leaving:'||l_proc, 60);
373 --
374 -- When in validation only mode raise the Validate_Enabled exception
375 --
376 If p_validate Then
377 Raise hr_api.validate_enabled;
378 End If;
379 --
380 --
381 Exception
382 --
383 When hr_api.validate_enabled Then
384 --
385 -- As the Validate_Enabled exception has been raised
386 -- we must rollback to the savepoint
387 --
388 Rollback To delete_config_information;
389 --
390 -- Only set output warning arguments
391 -- (Any key or derived arguments must be set to null
392 -- when validation only mode is being used.)
393 --
394 hr_utility.set_location(' Leaving:'||l_proc, 80);
395 When Others Then
396 --
397 -- A validation or unexpected error has occurred
398 Rollback To delete_config_information;
399 hr_utility.set_location(' Leaving:'||l_proc, 90);
400 Raise;
401 --
402 End delete_config_information;
403
404 --
405
406 End per_ri_config_information_api;