[Home] [Help]
PACKAGE BODY: APPS.HR_KI_USER_INTERFACES_API
Source
1 Package Body HR_KI_USER_INTERFACES_API as
2 /* $Header: hritfapi.pkb 115.0 2004/01/09 04:56:44 vkarandi noship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := 'HR_KI_USER_INTERFACES_API';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |--------------------------< create_user_interface >-----------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure create_user_interface
13 (
14 p_validate in boolean default false
15 ,p_effective_date in date
16 ,p_type in varchar2
17 ,p_form_name in varchar2 default null
18 ,p_page_region_code in varchar2 default null
19 ,p_region_code in varchar2 default null
20 ,p_user_interface_id out nocopy number
21 ,p_object_version_number out nocopy number
22 ) is
23 --
24 -- Declare cursors and local variables
25 --
26 l_proc varchar2(72) := g_package||'create_user_interface';
27 l_user_interface_id number;
28 l_effective_date date;
29 l_object_version_number number;
30
31 begin
32 hr_utility.set_location('Entering:'|| l_proc, 10);
33 --
34 -- Issue a savepoint
35 --
36 savepoint create_user_interface;
37 --
38 -- Remember IN OUT parameter IN values
39 --
40 --l_in_out_parameter := p_in_out_parameter;
41
42 l_effective_date := trunc(p_effective_date);
43
44 -- Call Before Process User Hook
45 --
46 begin
47 hr_ki_user_interfaces_bk1.create_user_interface_b
48 (
49 p_effective_date => l_effective_date
50 ,p_type => p_type
51 ,p_form_name => p_form_name
52 ,p_page_region_code => p_page_region_code
53 ,p_region_code => p_region_code
54 );
55
56 exception
57 when hr_api.cannot_find_prog_unit then
58 hr_api.cannot_find_prog_unit_error
59 (p_module_name => 'create_user_interface'
60 ,p_hook_type => 'BP'
61 );
62 end;
63
64 --
65 -- Process Logic
66 --
67 hr_itf_ins.ins
68 (
69 p_effective_date => l_effective_date
70 ,p_type => p_type
71 ,p_form_name => p_form_name
72 ,p_page_region_code => p_page_region_code
73 ,p_region_code => p_region_code
74 ,p_user_interface_id => l_user_interface_id
75 ,p_object_version_number => l_object_version_number
76 );
77
78 --
79 -- Call After Process User Hook
80 --
81 begin
82 hr_ki_user_interfaces_bk1.create_user_interface_a
83 (
84 p_effective_date => l_effective_date
85 ,p_type => p_type
86 ,p_form_name => p_form_name
87 ,p_page_region_code => p_page_region_code
88 ,p_region_code => p_region_code
89 ,p_user_interface_id => l_user_interface_id
90 ,p_object_version_number => l_object_version_number
91 );
92 exception
93 when hr_api.cannot_find_prog_unit then
94 hr_api.cannot_find_prog_unit_error
95 (p_module_name => 'create_user_interface'
96 ,p_hook_type => 'AP'
97 );
98 end;
99 --
100 -- When in validation only mode raise the Validate_Enabled exception
101 --
102 if p_validate then
103 raise hr_api.validate_enabled;
104 end if;
105 --
106 -- Set all IN OUT and OUT parameters with out values
107 --
108 p_user_interface_id := l_user_interface_id;
109 p_object_version_number := l_object_version_number;
110
111 --
112 hr_utility.set_location(' Leaving:'||l_proc, 70);
113 exception
114 when hr_api.validate_enabled then
115 --
116 -- As the Validate_Enabled exception has been raised
117 -- we must rollback to the savepoint
118 --
119 rollback to create_user_interface;
120 --
121 -- Reset IN OUT parameters and set OUT parameters
122 -- (Any key or derived arguments must be set to null
123 -- when validation only mode is being used.)
124 --
125
126 p_user_interface_id := null;
127 p_object_version_number := null;
128
129 hr_utility.set_location(' Leaving:'||l_proc, 80);
130 when others then
131 --
132 -- A validation or unexpected error has occured
133 --
134 rollback to create_user_interface;
135 --
136 -- Reset IN OUT parameters and set all
137 -- OUT parameters, including warnings, to null
138 --
139
140 p_user_interface_id := null;
141 p_object_version_number := null;
142
143 hr_utility.set_location(' Leaving:'||l_proc, 90);
144 raise;
145 end create_user_interface;
146 --
147 --
148 -- ----------------------------------------------------------------------------
149 -- |--------------------------< update_user_interface >-----------------------|
150 -- ----------------------------------------------------------------------------
151 --
152 procedure update_user_interface
153 (
154 p_validate in boolean default false
155 ,p_effective_date in date
156 ,p_user_interface_id in number
157 ,p_type in varchar2 default hr_api.g_varchar2
158 ,p_form_name in varchar2 default hr_api.g_varchar2
159 ,p_page_region_code in varchar2 default hr_api.g_varchar2
160 ,p_region_code in varchar2 default hr_api.g_varchar2
161 ,p_object_version_number in out nocopy number
162 ) is
163 --
164 -- Declare cursors and local variables
165 --
166 l_proc varchar2(72) := g_package||'update_user_interface';
167 l_object_version_number number := p_object_version_number;
168 l_effective_date date;
169
170 begin
171 hr_utility.set_location('Entering:'|| l_proc, 10);
172 --
173 -- Issue a savepoint
174 --
175 savepoint update_user_interface;
176 --
177 -- Remember IN OUT parameter IN values
178 --
179 --l_in_out_parameter := p_in_out_parameter;
180
181 l_effective_date := trunc(p_effective_date);
182
183 --
184 -- Call Before Process User Hook
185 --
186 begin
187 hr_ki_user_interfaces_bk2.update_user_interface_b
188 (
189 p_effective_date => l_effective_date
190 ,p_type => p_type
191 ,p_form_name => p_form_name
192 ,p_page_region_code => p_page_region_code
193 ,p_region_code => p_region_code
194 ,p_user_interface_id => p_user_interface_id
195 ,p_object_version_number => p_object_version_number
196
197 );
198 exception
199 when hr_api.cannot_find_prog_unit then
200 hr_api.cannot_find_prog_unit_error
201 (p_module_name => 'update_user_interface'
202 ,p_hook_type => 'BP'
203 );
204 end;
205
206 --
207 -- Process Logic
208 --
209 hr_itf_upd.upd
210 (
211 p_effective_date => l_effective_date
212 ,p_type => p_type
213 ,p_form_name => p_form_name
214 ,p_page_region_code => p_page_region_code
215 ,p_region_code => p_region_code
216 ,p_user_interface_id => p_user_interface_id
217 ,p_object_version_number => p_object_version_number
218
219 );
220
221 --
222 -- Call After Process User Hook
223 --
224 begin
225 hr_ki_user_interfaces_bk2.update_user_interface_a
226 (
227 p_effective_date => l_effective_date
228 ,p_type => p_type
229 ,p_form_name => p_form_name
230 ,p_page_region_code => p_page_region_code
231 ,p_region_code => p_region_code
232 ,p_user_interface_id => p_user_interface_id
233 ,p_object_version_number => p_object_version_number
234
235 );
236 exception
237 when hr_api.cannot_find_prog_unit then
238 hr_api.cannot_find_prog_unit_error
239 (p_module_name => 'update_user_interface'
240 ,p_hook_type => 'AP'
241 );
242 end;
243 --
244 -- When in validation only mode raise the Validate_Enabled exception
245 --
246 if p_validate then
247 raise hr_api.validate_enabled;
248 end if;
249 --
250 -- Set all IN OUT and OUT parameters with out values
251 --
252
253 -- p_object_version_number := p_object_version_number;
254
255 --
256 hr_utility.set_location(' Leaving:'||l_proc, 70);
257 exception
258 when hr_api.validate_enabled then
259 --
260 -- As the Validate_Enabled exception has been raised
261 -- we must rollback to the savepoint
262 --
263 rollback to update_user_interface;
264 --
265 -- Reset IN OUT parameters and set OUT parameters
266 -- (Any key or derived arguments must be set to null
267 -- when validation only mode is being used.)
268 --
269
270 p_object_version_number := l_object_version_number;
271
272 hr_utility.set_location(' Leaving:'||l_proc, 80);
273 when others then
274 --
275 -- A validation or unexpected error has occured
276 --
277 rollback to update_user_interface;
278 --
279 -- Reset IN OUT parameters and set all
280 -- OUT parameters, including warnings, to null
281 --
282
283 p_object_version_number := l_object_version_number;
284
285 hr_utility.set_location(' Leaving:'||l_proc, 90);
286 raise;
287 end update_user_interface;
288 --
289 --
290 -- ----------------------------------------------------------------------------
291 -- |-----------------------< delete_user_interface >--------------------------|
292 -- ----------------------------------------------------------------------------
293 --
294 procedure delete_user_interface
295 (
296 p_validate in boolean default false
297 ,p_user_interface_id in number
298 ,p_object_version_number in number
299 ) is
300 --
301 -- Declare cursors and local variables
302 --
303 l_proc varchar2(72) := g_package||'delete_user_interface';
304
305 begin
306 hr_utility.set_location('Entering:'|| l_proc, 10);
307 --
308 -- Issue a savepoint
309 --
310 savepoint delete_user_interface;
311 --
312 -- Remember IN OUT parameter IN values
313 --
314
315 -- Call Before Process User Hook
316 --
317 begin
318 hr_ki_user_interfaces_bk3.delete_user_interface_b
319 (
320 p_user_interface_id => p_user_interface_id
321 ,p_object_version_number => p_object_version_number
322
323 );
324 exception
325 when hr_api.cannot_find_prog_unit then
326 hr_api.cannot_find_prog_unit_error
327 (p_module_name => 'delete_user_interface'
328 ,p_hook_type => 'BP'
329 );
330 end;
331
332 --
333 -- Process Logic
334 --
335
336 hr_itf_del.del
337 (
338 p_user_interface_id => p_user_interface_id
339 ,p_object_version_number => p_object_version_number
340 );
341
342
343 --
344 -- Call After Process User Hook
345 --
346 begin
347 hr_ki_user_interfaces_bk3.delete_user_interface_a
348 (
349 p_user_interface_id => p_user_interface_id
350 ,p_object_version_number => p_object_version_number
351 );
352 exception
353 when hr_api.cannot_find_prog_unit then
354 hr_api.cannot_find_prog_unit_error
355 (p_module_name => 'delete_user_interface'
356 ,p_hook_type => 'AP'
357 );
358 end;
359 --
360 -- When in validation only mode raise the Validate_Enabled exception
361 --
362 if p_validate then
363 raise hr_api.validate_enabled;
364 end if;
365 --
366 -- Set all IN OUT and OUT parameters with out values
367 --
368
369 --
370 hr_utility.set_location(' Leaving:'||l_proc, 70);
371 exception
372 when hr_api.validate_enabled then
373 --
374 -- As the Validate_Enabled exception has been raised
375 -- we must rollback to the savepoint
376 --
377 rollback to delete_user_interface;
378 --
379 -- Reset IN OUT parameters and set OUT parameters
380 -- (Any key or derived arguments must be set to null
381 -- when validation only mode is being used.)
382 --
383
384 hr_utility.set_location(' Leaving:'||l_proc, 80);
385 when others then
386 --
387 -- A validation or unexpected error has occured
388 --
389 rollback to delete_user_interface;
390 --
391 -- Reset IN OUT parameters and set all
392 -- OUT parameters, including warnings, to null
393 --
394 hr_utility.set_location(' Leaving:'||l_proc, 90);
395 raise;
396 end delete_user_interface;
397 end HR_KI_USER_INTERFACES_API;