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