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