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