[Home] [Help]
PACKAGE BODY: APPS.PER_RI_SETUP_TASK_API
Source
1 Package Body PER_RI_SETUP_TASK_API AS
2 /* $Header: pestbapi.pkb 115.0 2003/07/03 06:24:02 kavenkat noship $ */
3 --
4 -- Package Variables
5 --
6 g_package VARCHAR2(33) := 'per_ri_setup_tasks_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_setup_task >--------------------------|
15 -- ----------------------------------------------------------------------------------
16 --
17 Procedure create_setup_task
18 (p_validate In Boolean Default False
19 ,p_setup_task_code In varchar2
20 ,p_workbench_item_code in varchar2
21 ,p_setup_task_name In Varchar2
22 ,p_setup_task_description In Varchar2
23 ,p_setup_task_sequence in number
24 ,p_setup_task_status in varchar2 default null
25 ,p_setup_task_creation_date in date default null
26 ,p_setup_task_last_mod_date in date default null
27 ,p_setup_task_type in varchar2 default null
28 ,p_setup_task_action in varchar2 default null
29 ,p_language_code In Varchar2 Default hr_api.userenv_lang
30 ,p_effective_date in date
31 ,p_object_version_number out nocopy number
32 ) Is
33 --
34 -- Declare cursors and local variables
35 --
36 l_proc Varchar2(72) := g_package||'create_setup_task';
40 l_setup_task_creation_date Date;
37 l_object_version_number per_ri_setup_tasks.object_version_number%TYPE;
38 l_language_code per_ri_setup_tasks_tl.language%TYPE;
39 l_effective_date Date;
41 l_setup_task_last_mod_date Date;
42 l_setup_task_code per_ri_setup_tasks.setup_task_code%TYPE;
43 --
44 Begin
45 --
46 hr_utility.set_location('Entering:'|| l_proc, 10);
47 --
48 -- Issue a savepoint
49 --
50 Savepoint create_setup_task;
51 --
52 hr_utility.set_location(l_proc, 15);
53 per_stb_ins.set_base_key_value (p_setup_task_code => p_setup_task_code );
54 --
55 -- All date input parameters must be truncated to remove time elements
56 --
57 l_effective_date := trunc (p_effective_date);
58 l_setup_task_creation_date := trunc (p_setup_task_creation_date);
59 l_setup_task_last_mod_date := trunc(p_setup_task_last_mod_date);
60 --
61 --
62 -- Validate the language parameter. l_language_code should be passed to functions
63 -- instead of p_language_code from now on, to allow an IN OUT parameter to
64 -- be passed through.
65 --
66 l_language_code := p_language_code;
67 hr_api.validate_language_code(p_language_code => l_language_code);
68 --
69 hr_utility.set_location(l_proc, 20);
70
71 -- Process Logic
72 --
73 -- Insert non-translatable rows into PER_RI_SETUP_TASKS first
74 per_stb_ins.ins
75 (p_workbench_item_code => p_workbench_item_code
76 ,p_setup_task_code => l_setup_task_code
77 ,p_setup_task_sequence => p_setup_task_sequence
78 ,p_setup_task_status => p_setup_task_status
79 ,p_setup_task_creation_date => l_setup_task_creation_date
80 ,p_setup_task_last_modified_dat => l_setup_task_last_mod_date
81 ,p_setup_task_type => p_setup_task_type
82 ,p_setup_task_action => p_setup_task_action
83 ,p_effective_date => l_effective_date
84 ,p_object_version_number => l_object_version_number
85 );
86 --
87 -- Now insert translatable rows in PER_RI_SETUP_TASKS table
88 per_stl_ins.ins_tl
89 (p_setup_task_code =>p_setup_task_code
90 ,p_setup_task_name =>p_setup_task_name
91 ,p_setup_task_description =>p_setup_task_description
92 ,p_language_code =>l_language_code
93 );
94 hr_utility.set_location(l_proc, 60);
95 --
96 -- When in validation only mode raise the Validate_Enabled exception
97 --
98 If p_validate Then
99 Raise hr_api.validate_enabled;
100 End If;
101 --
102 -- Set all output arguments
103 --
104 p_object_version_number := l_object_version_number;
105 --
106 hr_utility.set_location(' Leaving:'||l_proc, 70);
107 --
108 Exception
109 --
110 When hr_api.validate_enabled Then
111 --
112 -- As the Validate_Enabled exception has been raised
113 -- we must rollback to the savepoint
114 --
115 Rollback To create_setup_task;
116 --
117 -- Only set output warning arguments
118 -- (Any key or derived arguments must be set to null
119 -- when validation only mode is being used.)
120 --
121 p_object_version_number := Null;
122 hr_utility.set_location(' Leaving:'||l_proc, 80);
123 When Others Then
124 --
125 -- A validation or unexpected error has occurred
126 Rollback To create_setup_task;
127 -- Set OUT parameters.
128 p_object_version_number := Null;
129 hr_utility.set_location(' Leaving:'||l_proc, 90);
130 Raise;
131 --
132 End create_setup_task;
133 -- ----------------------------------------------------------------------------
134 -- |--------------------------< update_setup_task >-----------------------------|
135 -- ----------------------------------------------------------------------------
136 --
137 Procedure update_setup_task
138 ( p_validate In Boolean Default False
139 ,p_setup_task_code in varchar2
140 ,p_workbench_item_code in varchar2 default hr_api.g_varchar2
141 ,p_setup_task_name In Varchar2 default hr_api.g_varchar2
142 ,p_setup_task_description In Varchar2 default hr_api.g_varchar2
143 ,p_setup_task_sequence in number default hr_api.g_number
144 ,p_setup_task_status in varchar2 default hr_api.g_varchar2
145 ,p_setup_task_creation_date in date default hr_api.g_date
146 ,p_setup_task_last_mod_date in date default hr_api.g_date
147 ,p_setup_task_type in varchar2 default hr_api.g_varchar2
148 ,p_setup_task_action in varchar2 default hr_api.g_varchar2
149 ,p_language_code In Varchar2 Default hr_api.userenv_lang
150 ,p_effective_date in date
151 ,p_object_version_number In Out Nocopy Number
152 ) Is
153 --
154 -- Declare cursors and local variables
155 --
156 l_proc VARCHAR2(72) := g_package||'update_setup_task';
157 l_object_version_number hr_locations.object_version_number%TYPE;
158 l_language_code hr_locations_all_tl.language%TYPE;
159 l_setup_task_last_mod_date Date;
160 l_setup_task_creation_date Date;
161 l_effective_date DATE;
162
163 l_temp_ovn number := p_object_version_number;
164 --
165 BEGIN
166 --
167 hr_utility.set_location('Entering:'|| l_proc, 10);
168 --
172 --
169 -- Issue a savepoint.
170 --
171 savepoint update_setup_task;
173 --
174 -- All date input parameters must be truncated to remove time elements
175 --
176 l_effective_date := trunc (p_effective_date);
177 l_setup_task_creation_date := trunc (p_setup_task_creation_date);
178 l_setup_task_last_mod_date := trunc(p_setup_task_last_mod_date);
179 --
180 -- Validate the language parameter. l_language_code should be passed to functions
181 -- instead of p_language_code from now on, to allow an IN OUT parameter to be
182 -- passed through.
183 --
184 l_language_code := p_language_code;
185 hr_api.validate_language_code(p_language_code => l_language_code);
186 hr_utility.set_location(l_proc, 20);
187 --
188 --
189 -- Process Logic
190 --
191 l_object_version_number := p_object_version_number;
192 --
193 -- Insert non-translatable rows in PER_RI_SETUP_TASKS Table
194 --
195 per_stb_upd.upd
196 (p_setup_task_code => p_setup_task_code
197 ,p_workbench_item_code => p_workbench_item_code
198 ,p_setup_task_sequence => p_setup_task_sequence
199 ,p_setup_task_status => p_setup_task_status
200 ,p_setup_task_creation_date => l_setup_task_creation_date
201 ,p_setup_task_last_modified_dat => l_setup_task_last_mod_date
202 ,p_setup_task_type => p_setup_task_type
203 ,p_setup_task_action => p_setup_task_action
204 ,p_effective_date => l_effective_date
205 ,p_object_version_number => l_object_version_number
206 ) ;
207 --
208 -- Now insert translatable rows in PER_RI_SETUP_TASKS_TL table
209
210 per_stl_upd.upd_tl
211 ( p_setup_task_code => p_setup_task_code
212 ,p_setup_task_name => p_setup_task_name
213 ,p_setup_task_description => p_setup_task_description
214 ,p_language_code => l_language_code
215 );
216
217 --
218
219 hr_utility.set_location(l_proc, 60);
220 --
221 -- When in validation only mode raise the Validate_Enabled exception
222 --
223 If p_validate Then
224 Raise hr_api.validate_enabled;
225 End If;
226 --
227 -- Set all output arguments. If p_validate was TRUE, this bit is
228 -- never reached, so p_object_version_number is passed back unchanged.
229 --
230 p_object_version_number := l_object_version_number;
231 --
232 hr_utility.set_location(' Leaving:'||l_proc, 70);
233 --
234 Exception
235 --
236 When hr_api.validate_enabled Then
237 --
238 -- As the Validate_Enabled exception has been raised
239 -- we must rollback to the savepoint
240 --
241 Rollback To update_setup_task;
242 --
243 -- Only set output warning arguments
244 -- (Any key or derived arguments must be set to null
245 -- when validation only mode is being used.)
246 -- Reset IN OUT parameters.
247 p_object_version_number := l_temp_ovn;
248 hr_utility.set_location(' Leaving:'||l_proc, 80);
249 When Others Then
250 --
251 -- A validation or unexpected error has occurred
252 Rollback To update_setup_task;
253 -- Reset IN OUT parameters.
254 p_object_version_number := l_temp_ovn;
255 hr_utility.set_location(' Leaving:'||l_proc, 90);
256 Raise;
257 --
258 --
259 End update_setup_task;
260 -- ----------------------------------------------------------------------------
261 -- |-------------------------< delete_location >------------------------------|
262 -- ----------------------------------------------------------------------------
263 --
264 Procedure delete_setup_task
265 ( p_validate In Boolean Default False
266 ,p_setup_task_code in varchar2
267 ,p_object_version_number in number
268 )
269
270 Is
271 --
272 --
273 -- Declare cursors and local variables
274 --
275 l_proc Varchar2(72) := g_package||'delete_setup_task';
276 --
277 Begin
278 --
279 hr_utility.set_location('Entering:'|| l_proc, 10);
280 --
281 -- Issue a savepoint
282 --
283 Savepoint delete_setup_task;
284
285 --
286 -- Process Logic
287 -- =============
288 --
289 -- Need to lock main table to maintain the locking ladder order
290 --
291 hr_utility.set_location( l_proc, 30);
292 per_stb_shd.lck ( p_setup_task_code => p_setup_task_code,
293 p_object_version_number => p_object_version_number );
294 --
295 -- Remove all matching translation rows
296 --
297 hr_utility.set_location( l_proc, 35);
298
299 per_stl_del.del_tl( p_setup_task_code => p_setup_task_code );
300 --
301 -- Remove non-translated data row
302 --
303 hr_utility.set_location( l_proc, 40);
304
305 per_stb_del.del(p_setup_task_code => p_setup_task_code,
306 p_object_version_number => p_object_version_number );
307 --
308 --
309 hr_utility.set_location(' Leaving:'||l_proc, 60);
310 --
311 -- When in validation only mode raise the Validate_Enabled exception
312 --
313 If p_validate Then
314 Raise hr_api.validate_enabled;
315 End If;
316 --
317 --
318 Exception
319 --
320 When hr_api.validate_enabled Then
321 --
322 -- As the Validate_Enabled exception has been raised
323 -- we must rollback to the savepoint
324 --
325 Rollback To delete_setup_task;
326 --
327 -- Only set output warning arguments
328 -- (Any key or derived arguments must be set to null
329 -- when validation only mode is being used.)
330 --
331 hr_utility.set_location(' Leaving:'||l_proc, 80);
332 When Others Then
333 --
334 -- A validation or unexpected error has occurred
335 Rollback To delete_setup_task;
336 hr_utility.set_location(' Leaving:'||l_proc, 90);
337 Raise;
338 --
339 End delete_setup_task;
340
341 --
342
343 End PER_RI_SETUP_TASK_API;