[Home] [Help]
PACKAGE BODY: APPS.PER_MEDICAL_ASSESSMENT_API
Source
1 Package Body per_medical_assessment_api as
2 /* $Header: pemeaapi.pkb 115.3 2002/12/11 11:36:55 pkakar noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- |-----------------------< create_medical_assessment >----------------------|
6 -- ----------------------------------------------------------------------------
7 --
8 PROCEDURE create_medical_assessment
9 (p_validate IN BOOLEAN DEFAULT FALSE
10 ,p_effective_date IN DATE
11 ,p_person_id IN NUMBER
12 ,p_consultation_date IN DATE
13 ,p_consultation_type IN VARCHAR2
14 ,p_examiner_name IN VARCHAR2 DEFAULT NULL
15 ,p_organization_id IN NUMBER DEFAULT NULL
16 ,p_consultation_result IN VARCHAR2 DEFAULT NULL
17 ,p_incident_id IN NUMBER DEFAULT NULL
18 ,p_disability_id IN NUMBER DEFAULT NULL
19 ,p_next_consultation_date IN DATE DEFAULT NULL
20 ,p_description IN VARCHAR2 DEFAULT NULL
21 ,p_attribute_category IN VARCHAR2 DEFAULT NULL
22 ,p_attribute1 IN VARCHAR2 DEFAULT NULL
23 ,p_attribute2 IN VARCHAR2 DEFAULT NULL
24 ,p_attribute3 IN VARCHAR2 DEFAULT NULL
25 ,p_attribute4 IN VARCHAR2 DEFAULT NULL
26 ,p_attribute5 IN VARCHAR2 DEFAULT NULL
27 ,p_attribute6 IN VARCHAR2 DEFAULT NULL
28 ,p_attribute7 IN VARCHAR2 DEFAULT NULL
29 ,p_attribute8 IN VARCHAR2 DEFAULT NULL
30 ,p_attribute9 IN VARCHAR2 DEFAULT NULL
31 ,p_attribute10 IN VARCHAR2 DEFAULT NULL
32 ,p_attribute11 IN VARCHAR2 DEFAULT NULL
33 ,p_attribute12 IN VARCHAR2 DEFAULT NULL
34 ,p_attribute13 IN VARCHAR2 DEFAULT NULL
35 ,p_attribute14 IN VARCHAR2 DEFAULT NULL
36 ,p_attribute15 IN VARCHAR2 DEFAULT NULL
37 ,p_attribute16 IN VARCHAR2 DEFAULT NULL
38 ,p_attribute17 IN VARCHAR2 DEFAULT NULL
39 ,p_attribute18 IN VARCHAR2 DEFAULT NULL
40 ,p_attribute19 IN VARCHAR2 DEFAULT NULL
41 ,p_attribute20 IN VARCHAR2 DEFAULT NULL
42 ,p_attribute21 IN VARCHAR2 DEFAULT NULL
43 ,p_attribute22 IN VARCHAR2 DEFAULT NULL
44 ,p_attribute23 IN VARCHAR2 DEFAULT NULL
45 ,p_attribute24 IN VARCHAR2 DEFAULT NULL
46 ,p_attribute25 IN VARCHAR2 DEFAULT NULL
47 ,p_attribute26 IN VARCHAR2 DEFAULT NULL
48 ,p_attribute27 IN VARCHAR2 DEFAULT NULL
49 ,p_attribute28 IN VARCHAR2 DEFAULT NULL
50 ,p_attribute29 IN VARCHAR2 DEFAULT NULL
51 ,p_attribute30 IN VARCHAR2 DEFAULT NULL
52 ,p_mea_information_category IN VARCHAR2 DEFAULT NULL
53 ,p_mea_information1 IN VARCHAR2 DEFAULT NULL
54 ,p_mea_information2 IN VARCHAR2 DEFAULT NULL
55 ,p_mea_information3 IN VARCHAR2 DEFAULT NULL
56 ,p_mea_information4 IN VARCHAR2 DEFAULT NULL
57 ,p_mea_information5 IN VARCHAR2 DEFAULT NULL
58 ,p_mea_information6 IN VARCHAR2 DEFAULT NULL
59 ,p_mea_information7 IN VARCHAR2 DEFAULT NULL
60 ,p_mea_information8 IN VARCHAR2 DEFAULT NULL
61 ,p_mea_information9 IN VARCHAR2 DEFAULT NULL
62 ,p_mea_information10 IN VARCHAR2 DEFAULT NULL
63 ,p_mea_information11 IN VARCHAR2 DEFAULT NULL
64 ,p_mea_information12 IN VARCHAR2 DEFAULT NULL
65 ,p_mea_information13 IN VARCHAR2 DEFAULT NULL
66 ,p_mea_information14 IN VARCHAR2 DEFAULT NULL
67 ,p_mea_information15 IN VARCHAR2 DEFAULT NULL
68 ,p_mea_information16 IN VARCHAR2 DEFAULT NULL
69 ,p_mea_information17 IN VARCHAR2 DEFAULT NULL
70 ,p_mea_information18 IN VARCHAR2 DEFAULT NULL
71 ,p_mea_information19 IN VARCHAR2 DEFAULT NULL
72 ,p_mea_information20 IN VARCHAR2 DEFAULT NULL
73 ,p_mea_information21 IN VARCHAR2 DEFAULT NULL
74 ,p_mea_information22 IN VARCHAR2 DEFAULT NULL
75 ,p_mea_information23 IN VARCHAR2 DEFAULT NULL
76 ,p_mea_information24 IN VARCHAR2 DEFAULT NULL
77 ,p_mea_information25 IN VARCHAR2 DEFAULT NULL
78 ,p_mea_information26 IN VARCHAR2 DEFAULT NULL
79 ,p_mea_information27 IN VARCHAR2 DEFAULT NULL
80 ,p_mea_information28 IN VARCHAR2 DEFAULT NULL
81 ,p_mea_information29 IN VARCHAR2 DEFAULT NULL
82 ,p_mea_information30 IN VARCHAR2 DEFAULT NULL
83 ,p_medical_assessment_id OUT NOCOPY NUMBER
84 ,p_object_version_number OUT NOCOPY NUMBER) IS
85 --
86 -- Declare local variables
87 --
88 l_proc varchar2(72) := g_package||'create_medical_assessment';
89 l_consultation_date per_medical_assessments.consultation_date%TYPE;
90 l_next_consultation_date per_medical_assessments.next_consultation_date%TYPE;
91 l_object_version_number per_medical_assessments.object_version_number%TYPE;
92 l_medical_assessment_id per_medical_assessments.medical_assessment_id%TYPE;
93 l_effective_date DATE;
94 --
95 BEGIN
96 --
97 hr_utility.set_location('Entering:'|| l_proc, 10);
98 --
99 -- Issue a savepoint
100 --
101 SAVEPOINT create_medical_assessment;
102 --
103 -- Truncate the time portion from all IN date parameters
104 --
105 l_consultation_date := TRUNC(p_consultation_date);
106 l_next_consultation_date := TRUNC(p_next_consultation_date);
107 l_effective_date := TRUNC(p_effective_date);
108 --
109 -- Call Before Process User Hook
110 --
111 BEGIN
112 --
113 per_medical_assessment_bk1.create_medical_assessment_b
114 (p_effective_date => l_effective_date
115 ,p_person_id => p_person_id
116 ,p_consultation_date => l_consultation_date
117 ,p_consultation_type => p_consultation_type
118 ,p_examiner_name => p_examiner_name
119 ,p_organization_id => p_organization_id
120 ,p_consultation_result => p_consultation_result
121 ,p_incident_id => p_incident_id
122 ,p_disability_id => p_disability_id
123 ,p_next_consultation_date => l_next_consultation_date
124 ,p_description => p_description
125 ,p_attribute_category => p_attribute_category
126 ,p_attribute1 => p_attribute1
127 ,p_attribute2 => p_attribute2
128 ,p_attribute3 => p_attribute3
129 ,p_attribute4 => p_attribute4
130 ,p_attribute5 => p_attribute5
131 ,p_attribute6 => p_attribute6
132 ,p_attribute7 => p_attribute7
133 ,p_attribute8 => p_attribute8
134 ,p_attribute9 => p_attribute9
135 ,p_attribute10 => p_attribute10
136 ,p_attribute11 => p_attribute11
137 ,p_attribute12 => p_attribute12
138 ,p_attribute13 => p_attribute13
139 ,p_attribute14 => p_attribute14
140 ,p_attribute15 => p_attribute15
141 ,p_attribute16 => p_attribute16
142 ,p_attribute17 => p_attribute17
143 ,p_attribute18 => p_attribute18
144 ,p_attribute19 => p_attribute19
145 ,p_attribute20 => p_attribute20
146 ,p_attribute21 => p_attribute21
147 ,p_attribute22 => p_attribute22
148 ,p_attribute23 => p_attribute23
149 ,p_attribute24 => p_attribute24
150 ,p_attribute25 => p_attribute25
151 ,p_attribute26 => p_attribute26
152 ,p_attribute27 => p_attribute27
153 ,p_attribute28 => p_attribute28
154 ,p_attribute29 => p_attribute29
155 ,p_attribute30 => p_attribute30
156 ,p_mea_information_category => p_mea_information_category
157 ,p_mea_information1 => p_mea_information1
158 ,p_mea_information2 => p_mea_information2
159 ,p_mea_information3 => p_mea_information3
160 ,p_mea_information4 => p_mea_information4
161 ,p_mea_information5 => p_mea_information5
162 ,p_mea_information6 => p_mea_information6
163 ,p_mea_information7 => p_mea_information7
164 ,p_mea_information8 => p_mea_information8
165 ,p_mea_information9 => p_mea_information9
166 ,p_mea_information10 => p_mea_information10
167 ,p_mea_information11 => p_mea_information11
168 ,p_mea_information12 => p_mea_information12
169 ,p_mea_information13 => p_mea_information13
170 ,p_mea_information14 => p_mea_information14
171 ,p_mea_information15 => p_mea_information15
172 ,p_mea_information16 => p_mea_information16
173 ,p_mea_information17 => p_mea_information17
174 ,p_mea_information18 => p_mea_information18
175 ,p_mea_information19 => p_mea_information19
176 ,p_mea_information20 => p_mea_information20
177 ,p_mea_information21 => p_mea_information21
178 ,p_mea_information22 => p_mea_information22
179 ,p_mea_information23 => p_mea_information23
180 ,p_mea_information24 => p_mea_information24
181 ,p_mea_information25 => p_mea_information25
182 ,p_mea_information26 => p_mea_information26
183 ,p_mea_information27 => p_mea_information27
184 ,p_mea_information28 => p_mea_information28
185 ,p_mea_information29 => p_mea_information29
186 ,p_mea_information30 => p_mea_information30);
187 --
188 EXCEPTION
189 --
190 WHEN hr_api.cannot_find_prog_unit THEN
191 --
192 hr_api.cannot_find_prog_unit_error
193 (p_module_name => 'create_medical_assessment'
194 ,p_hook_type => 'BP');
195 --
196 END;
197 --
198 hr_utility.set_location(l_proc, 20);
199 --
200 -- Process logic
201 --
202 per_mea_ins.ins
203 (p_effective_date => l_effective_date
204 ,p_person_id => p_person_id
205 ,p_consultation_date => l_consultation_date
206 ,p_consultation_type => p_consultation_type
207 ,p_examiner_name => p_examiner_name
208 ,p_organization_id => p_organization_id
209 ,p_incident_id => p_incident_id
210 ,p_consultation_result => p_consultation_result
211 ,p_disability_id => p_disability_id
212 ,p_next_consultation_date => l_next_consultation_date
213 ,p_description => p_description
214 ,p_attribute_category => p_attribute_category
215 ,p_attribute1 => p_attribute1
216 ,p_attribute2 => p_attribute2
217 ,p_attribute3 => p_attribute3
218 ,p_attribute4 => p_attribute4
219 ,p_attribute5 => p_attribute5
220 ,p_attribute6 => p_attribute6
221 ,p_attribute7 => p_attribute7
222 ,p_attribute8 => p_attribute8
223 ,p_attribute9 => p_attribute9
224 ,p_attribute10 => p_attribute10
225 ,p_attribute11 => p_attribute11
226 ,p_attribute12 => p_attribute12
227 ,p_attribute13 => p_attribute13
228 ,p_attribute14 => p_attribute14
229 ,p_attribute15 => p_attribute15
230 ,p_attribute16 => p_attribute16
231 ,p_attribute17 => p_attribute17
232 ,p_attribute18 => p_attribute18
233 ,p_attribute19 => p_attribute19
234 ,p_attribute20 => p_attribute20
235 ,p_attribute21 => p_attribute21
236 ,p_attribute22 => p_attribute22
237 ,p_attribute23 => p_attribute23
238 ,p_attribute24 => p_attribute24
239 ,p_attribute25 => p_attribute25
240 ,p_attribute26 => p_attribute26
241 ,p_attribute27 => p_attribute27
242 ,p_attribute28 => p_attribute28
243 ,p_attribute29 => p_attribute29
244 ,p_attribute30 => p_attribute30
245 ,p_mea_information_category => p_mea_information_category
246 ,p_mea_information1 => p_mea_information1
247 ,p_mea_information2 => p_mea_information2
248 ,p_mea_information3 => p_mea_information3
249 ,p_mea_information4 => p_mea_information4
250 ,p_mea_information5 => p_mea_information5
251 ,p_mea_information6 => p_mea_information6
252 ,p_mea_information7 => p_mea_information7
253 ,p_mea_information8 => p_mea_information8
254 ,p_mea_information9 => p_mea_information9
255 ,p_mea_information10 => p_mea_information10
256 ,p_mea_information11 => p_mea_information11
257 ,p_mea_information12 => p_mea_information12
258 ,p_mea_information13 => p_mea_information13
259 ,p_mea_information14 => p_mea_information14
260 ,p_mea_information15 => p_mea_information15
261 ,p_mea_information16 => p_mea_information16
262 ,p_mea_information17 => p_mea_information17
263 ,p_mea_information18 => p_mea_information18
264 ,p_mea_information19 => p_mea_information19
265 ,p_mea_information20 => p_mea_information20
266 ,p_mea_information21 => p_mea_information21
267 ,p_mea_information22 => p_mea_information22
268 ,p_mea_information23 => p_mea_information23
269 ,p_mea_information24 => p_mea_information24
270 ,p_mea_information25 => p_mea_information25
271 ,p_mea_information26 => p_mea_information26
272 ,p_mea_information27 => p_mea_information27
273 ,p_mea_information28 => p_mea_information28
274 ,p_mea_information29 => p_mea_information29
275 ,p_mea_information30 => p_mea_information30
276 ,p_medical_assessment_id => l_medical_assessment_id
277 ,p_object_version_number => l_object_version_number);
278 --
279 hr_utility.set_location(l_proc, 30);
280 --
281 -- Call After Process User Hook
282 --
283 BEGIN
284 --
285 per_medical_assessment_bk1.create_medical_assessment_a
286 (p_medical_assessment_id => p_medical_assessment_id
287 ,p_object_version_number => p_object_version_number
288 ,p_effective_date => l_effective_date
289 ,p_person_id => p_person_id
290 ,p_consultation_date => l_consultation_date
291 ,p_consultation_type => p_consultation_type
292 ,p_examiner_name => p_examiner_name
293 ,p_organization_id => p_organization_id
294 ,p_consultation_result => p_consultation_result
295 ,p_incident_id => p_incident_id
296 ,p_disability_id => p_disability_id
297 ,p_next_consultation_date => l_next_consultation_date
298 ,p_description => p_description
302 ,p_attribute3 => p_attribute3
299 ,p_attribute_category => p_attribute_category
300 ,p_attribute1 => p_attribute1
301 ,p_attribute2 => p_attribute2
303 ,p_attribute4 => p_attribute4
304 ,p_attribute5 => p_attribute5
305 ,p_attribute6 => p_attribute6
306 ,p_attribute7 => p_attribute7
307 ,p_attribute8 => p_attribute8
308 ,p_attribute9 => p_attribute9
309 ,p_attribute10 => p_attribute10
310 ,p_attribute11 => p_attribute11
311 ,p_attribute12 => p_attribute12
312 ,p_attribute13 => p_attribute13
313 ,p_attribute14 => p_attribute14
314 ,p_attribute15 => p_attribute15
315 ,p_attribute16 => p_attribute16
316 ,p_attribute17 => p_attribute17
317 ,p_attribute18 => p_attribute18
318 ,p_attribute19 => p_attribute19
319 ,p_attribute20 => p_attribute20
320 ,p_attribute21 => p_attribute21
321 ,p_attribute22 => p_attribute22
322 ,p_attribute23 => p_attribute23
323 ,p_attribute24 => p_attribute24
324 ,p_attribute25 => p_attribute25
325 ,p_attribute26 => p_attribute26
326 ,p_attribute27 => p_attribute27
327 ,p_attribute28 => p_attribute28
328 ,p_attribute29 => p_attribute29
329 ,p_attribute30 => p_attribute30
330 ,p_mea_information_category => p_mea_information_category
331 ,p_mea_information1 => p_mea_information1
332 ,p_mea_information2 => p_mea_information2
333 ,p_mea_information3 => p_mea_information3
334 ,p_mea_information4 => p_mea_information4
335 ,p_mea_information5 => p_mea_information5
336 ,p_mea_information6 => p_mea_information6
337 ,p_mea_information7 => p_mea_information7
338 ,p_mea_information8 => p_mea_information8
339 ,p_mea_information9 => p_mea_information9
340 ,p_mea_information10 => p_mea_information10
341 ,p_mea_information11 => p_mea_information11
342 ,p_mea_information12 => p_mea_information12
343 ,p_mea_information13 => p_mea_information13
344 ,p_mea_information14 => p_mea_information14
345 ,p_mea_information15 => p_mea_information15
346 ,p_mea_information16 => p_mea_information16
347 ,p_mea_information17 => p_mea_information17
348 ,p_mea_information18 => p_mea_information18
349 ,p_mea_information19 => p_mea_information19
350 ,p_mea_information20 => p_mea_information20
351 ,p_mea_information21 => p_mea_information21
352 ,p_mea_information22 => p_mea_information22
353 ,p_mea_information23 => p_mea_information23
354 ,p_mea_information24 => p_mea_information24
355 ,p_mea_information25 => p_mea_information25
356 ,p_mea_information26 => p_mea_information26
357 ,p_mea_information27 => p_mea_information27
358 ,p_mea_information28 => p_mea_information28
359 ,p_mea_information29 => p_mea_information29
360 ,p_mea_information30 => p_mea_information30);
361 --
362 EXCEPTION
363 --
364 WHEN hr_api.cannot_find_prog_unit THEN
365 --
366 hr_api.cannot_find_prog_unit_error
367 (p_module_name => 'create_medical_assessment'
368 ,p_hook_type => 'AP');
369 --
370 END;
371 --
372 hr_utility.set_location(l_proc, 40);
373 --
374 -- When in validation only mode raise the Validate_Enabled exception
375 --
376 IF p_validate THEN
377 --
378 RAISE hr_api.validate_enabled;
379 --
380 END IF;
381 --
382 -- Set all output arguments
383 --
384 p_medical_assessment_id := l_medical_assessment_id;
385 p_object_version_number := l_object_version_number;
386 --
387 hr_utility.set_location(' Leaving:'||l_proc, 70);
388 --
389 EXCEPTION
390 --
391 WHEN hr_api.validate_enabled THEN
392 --
393 -- As the Validate_Enabled exception has been raised
394 -- we must rollback to the savepoint
395 --
396 ROLLBACK TO create_medical_assessment;
397 --
398 -- Only set output warning arguments
399 -- (Any key or derived arguments must be set to null
400 -- when validation only mode is being used.)
401 --
402 p_medical_assessment_id := NULL;
403 p_object_version_number := NULL;
404 --
405 hr_utility.set_location(' Leaving:'||l_proc, 80);
406 --
407 WHEN OTHERS THEN
408 --
409 -- A validation or unexpected error has occured
410 --
411 ROLLBACK TO create_medical_assessment;
412 --
413 -- set in out parameters and set out parameters
414 --
415 p_medical_assessment_id := NULL;
416 p_object_version_number := NULL;
417 --
418 hr_utility.set_location(' Leaving:'||l_proc, 90);
422 END create_medical_assessment;
419 --
420 RAISE;
421 --
423 --
424 -- ----------------------------------------------------------------------------
425 -- |-----------------------< update_medical_assessment >----------------------|
426 -- ----------------------------------------------------------------------------
427 --
428 PROCEDURE update_medical_assessment
429 (p_validate IN BOOLEAN DEFAULT FALSE
430 ,p_medical_assessment_id IN NUMBER
431 ,p_object_version_number IN OUT NOCOPY NUMBER
432 ,p_effective_date IN DATE
433 ,p_consultation_date IN DATE DEFAULT hr_api.g_date
434 ,p_consultation_type IN VARCHAR2 DEFAULT hr_api.g_varchar2
435 ,p_examiner_name IN VARCHAR2 DEFAULT hr_api.g_varchar2
436 ,p_organization_id IN NUMBER DEFAULT hr_api.g_number
437 ,p_consultation_result IN VARCHAR2 DEFAULT hr_api.g_varchar2
438 ,p_incident_id IN NUMBER DEFAULT hr_api.g_number
439 ,p_disability_id IN NUMBER DEFAULT hr_api.g_number
440 ,p_next_consultation_date IN DATE DEFAULT hr_api.g_date
441 ,p_description IN VARCHAR2 DEFAULT hr_api.g_varchar2
442 ,p_attribute_category IN VARCHAR2 DEFAULT hr_api.g_varchar2
443 ,p_attribute1 IN VARCHAR2 DEFAULT hr_api.g_varchar2
444 ,p_attribute2 IN VARCHAR2 DEFAULT hr_api.g_varchar2
445 ,p_attribute3 IN VARCHAR2 DEFAULT hr_api.g_varchar2
446 ,p_attribute4 IN VARCHAR2 DEFAULT hr_api.g_varchar2
447 ,p_attribute5 IN VARCHAR2 DEFAULT hr_api.g_varchar2
448 ,p_attribute6 IN VARCHAR2 DEFAULT hr_api.g_varchar2
449 ,p_attribute7 IN VARCHAR2 DEFAULT hr_api.g_varchar2
450 ,p_attribute8 IN VARCHAR2 DEFAULT hr_api.g_varchar2
451 ,p_attribute9 IN VARCHAR2 DEFAULT hr_api.g_varchar2
452 ,p_attribute10 IN VARCHAR2 DEFAULT hr_api.g_varchar2
453 ,p_attribute11 IN VARCHAR2 DEFAULT hr_api.g_varchar2
454 ,p_attribute12 IN VARCHAR2 DEFAULT hr_api.g_varchar2
455 ,p_attribute13 IN VARCHAR2 DEFAULT hr_api.g_varchar2
456 ,p_attribute14 IN VARCHAR2 DEFAULT hr_api.g_varchar2
457 ,p_attribute15 IN VARCHAR2 DEFAULT hr_api.g_varchar2
458 ,p_attribute16 IN VARCHAR2 DEFAULT hr_api.g_varchar2
459 ,p_attribute17 IN VARCHAR2 DEFAULT hr_api.g_varchar2
460 ,p_attribute18 IN VARCHAR2 DEFAULT hr_api.g_varchar2
461 ,p_attribute19 IN VARCHAR2 DEFAULT hr_api.g_varchar2
462 ,p_attribute20 IN VARCHAR2 DEFAULT hr_api.g_varchar2
463 ,p_attribute21 IN VARCHAR2 DEFAULT hr_api.g_varchar2
464 ,p_attribute22 IN VARCHAR2 DEFAULT hr_api.g_varchar2
465 ,p_attribute23 IN VARCHAR2 DEFAULT hr_api.g_varchar2
466 ,p_attribute24 IN VARCHAR2 DEFAULT hr_api.g_varchar2
467 ,p_attribute25 IN VARCHAR2 DEFAULT hr_api.g_varchar2
468 ,p_attribute26 IN VARCHAR2 DEFAULT hr_api.g_varchar2
469 ,p_attribute27 IN VARCHAR2 DEFAULT hr_api.g_varchar2
470 ,p_attribute28 IN VARCHAR2 DEFAULT hr_api.g_varchar2
471 ,p_attribute29 IN VARCHAR2 DEFAULT hr_api.g_varchar2
472 ,p_attribute30 IN VARCHAR2 DEFAULT hr_api.g_varchar2
473 ,p_mea_information_category IN VARCHAR2 DEFAULT hr_api.g_varchar2
474 ,p_mea_information1 IN VARCHAR2 DEFAULT hr_api.g_varchar2
475 ,p_mea_information2 IN VARCHAR2 DEFAULT hr_api.g_varchar2
476 ,p_mea_information3 IN VARCHAR2 DEFAULT hr_api.g_varchar2
477 ,p_mea_information4 IN VARCHAR2 DEFAULT hr_api.g_varchar2
478 ,p_mea_information5 IN VARCHAR2 DEFAULT hr_api.g_varchar2
479 ,p_mea_information6 IN VARCHAR2 DEFAULT hr_api.g_varchar2
480 ,p_mea_information7 IN VARCHAR2 DEFAULT hr_api.g_varchar2
481 ,p_mea_information8 IN VARCHAR2 DEFAULT hr_api.g_varchar2
482 ,p_mea_information9 IN VARCHAR2 DEFAULT hr_api.g_varchar2
483 ,p_mea_information10 IN VARCHAR2 DEFAULT hr_api.g_varchar2
484 ,p_mea_information11 IN VARCHAR2 DEFAULT hr_api.g_varchar2
485 ,p_mea_information12 IN VARCHAR2 DEFAULT hr_api.g_varchar2
486 ,p_mea_information13 IN VARCHAR2 DEFAULT hr_api.g_varchar2
487 ,p_mea_information14 IN VARCHAR2 DEFAULT hr_api.g_varchar2
488 ,p_mea_information15 IN VARCHAR2 DEFAULT hr_api.g_varchar2
489 ,p_mea_information16 IN VARCHAR2 DEFAULT hr_api.g_varchar2
490 ,p_mea_information17 IN VARCHAR2 DEFAULT hr_api.g_varchar2
491 ,p_mea_information18 IN VARCHAR2 DEFAULT hr_api.g_varchar2
492 ,p_mea_information19 IN VARCHAR2 DEFAULT hr_api.g_varchar2
493 ,p_mea_information20 IN VARCHAR2 DEFAULT hr_api.g_varchar2
494 ,p_mea_information21 IN VARCHAR2 DEFAULT hr_api.g_varchar2
495 ,p_mea_information22 IN VARCHAR2 DEFAULT hr_api.g_varchar2
496 ,p_mea_information23 IN VARCHAR2 DEFAULT hr_api.g_varchar2
497 ,p_mea_information24 IN VARCHAR2 DEFAULT hr_api.g_varchar2
501 ,p_mea_information28 IN VARCHAR2 DEFAULT hr_api.g_varchar2
498 ,p_mea_information25 IN VARCHAR2 DEFAULT hr_api.g_varchar2
499 ,p_mea_information26 IN VARCHAR2 DEFAULT hr_api.g_varchar2
500 ,p_mea_information27 IN VARCHAR2 DEFAULT hr_api.g_varchar2
502 ,p_mea_information29 IN VARCHAR2 DEFAULT hr_api.g_varchar2
503 ,p_mea_information30 IN VARCHAR2 DEFAULT hr_api.g_varchar2
504 ) IS
505 --
506 -- Declare LOCAL variables
507 --
508 l_proc varchar2(72) := g_package||'update_medical_assessment';
509 l_consultation_date per_medical_assessments.consultation_date%TYPE;
510 l_next_consultation_date per_medical_assessments.next_consultation_date%TYPE;
511 l_object_version_number per_medical_assessments.object_version_number%TYPE;
512 l_ovn per_medical_assessments.object_version_number%TYPE := p_object_version_number;
513 l_medical_assessment_id per_medical_assessments.medical_assessment_id%TYPE;
514 l_effective_date DATE;
515 --
516 BEGIN
517 --
518 hr_utility.set_location('Entering:'|| l_proc, 10);
519 --
520 -- Issue a savepoint
521 --
522 SAVEPOINT update_medical_assessment;
523 --
524 -- Store initial values for IN OUT parameters
525 --
526 l_object_version_number := p_object_version_number;
527 --
528 -- Truncate the time portion from all IN date parameters
529 --
530 l_effective_date := trunc(p_effective_date);
531 l_consultation_date := trunc(p_consultation_date);
532 l_next_consultation_date := trunc(p_next_consultation_date);
533 --
534 -- Call Before Process User Hook
535 --
536 BEGIN
537 --
538 hr_utility.set_location(l_proc, 20);
539 --
540 per_medical_assessment_bk2.update_medical_assessment_b
541 (p_medical_assessment_id => p_medical_assessment_id
542 ,p_object_version_number => l_object_version_number
543 ,p_effective_date => l_effective_date
544 ,p_consultation_date => l_consultation_date
545 ,p_consultation_type => p_consultation_type
546 ,p_examiner_name => p_examiner_name
547 ,p_organization_id => p_organization_id
548 ,p_consultation_result => p_consultation_result
549 ,p_incident_id => p_incident_id
550 ,p_disability_id => p_disability_id
551 ,p_next_consultation_date => l_next_consultation_date
552 ,p_description => p_description
553 ,p_attribute_category => p_attribute_category
554 ,p_attribute1 => p_attribute1
555 ,p_attribute2 => p_attribute2
556 ,p_attribute3 => p_attribute3
557 ,p_attribute4 => p_attribute4
558 ,p_attribute5 => p_attribute5
559 ,p_attribute6 => p_attribute6
560 ,p_attribute7 => p_attribute7
561 ,p_attribute8 => p_attribute8
562 ,p_attribute9 => p_attribute9
563 ,p_attribute10 => p_attribute10
564 ,p_attribute11 => p_attribute11
565 ,p_attribute12 => p_attribute12
566 ,p_attribute13 => p_attribute13
567 ,p_attribute14 => p_attribute14
568 ,p_attribute15 => p_attribute15
569 ,p_attribute16 => p_attribute16
570 ,p_attribute17 => p_attribute17
571 ,p_attribute18 => p_attribute18
572 ,p_attribute19 => p_attribute19
573 ,p_attribute20 => p_attribute20
574 ,p_attribute21 => p_attribute21
575 ,p_attribute22 => p_attribute22
576 ,p_attribute23 => p_attribute23
577 ,p_attribute24 => p_attribute24
578 ,p_attribute25 => p_attribute25
579 ,p_attribute26 => p_attribute26
580 ,p_attribute27 => p_attribute27
581 ,p_attribute28 => p_attribute28
582 ,p_attribute29 => p_attribute29
583 ,p_attribute30 => p_attribute30
584 ,p_mea_information_category => p_mea_information_category
585 ,p_mea_information1 => p_mea_information1
586 ,p_mea_information2 => p_mea_information2
587 ,p_mea_information3 => p_mea_information3
588 ,p_mea_information4 => p_mea_information4
589 ,p_mea_information5 => p_mea_information5
590 ,p_mea_information6 => p_mea_information6
591 ,p_mea_information7 => p_mea_information7
592 ,p_mea_information8 => p_mea_information8
593 ,p_mea_information9 => p_mea_information9
594 ,p_mea_information10 => p_mea_information10
595 ,p_mea_information11 => p_mea_information11
596 ,p_mea_information12 => p_mea_information12
597 ,p_mea_information13 => p_mea_information13
598 ,p_mea_information14 => p_mea_information14
599 ,p_mea_information15 => p_mea_information15
600 ,p_mea_information16 => p_mea_information16
601 ,p_mea_information17 => p_mea_information17
605 ,p_mea_information21 => p_mea_information21
602 ,p_mea_information18 => p_mea_information18
603 ,p_mea_information19 => p_mea_information19
604 ,p_mea_information20 => p_mea_information20
606 ,p_mea_information22 => p_mea_information22
607 ,p_mea_information23 => p_mea_information23
608 ,p_mea_information24 => p_mea_information24
609 ,p_mea_information25 => p_mea_information25
610 ,p_mea_information26 => p_mea_information26
611 ,p_mea_information27 => p_mea_information27
612 ,p_mea_information28 => p_mea_information28
613 ,p_mea_information29 => p_mea_information29
614 ,p_mea_information30 => p_mea_information30);
615 --
616 EXCEPTION
617 --
618 WHEN hr_api.cannot_find_prog_unit THEN
619 --
620 hr_api.cannot_find_prog_unit_error
621 (p_module_name => 'update_medical_assessment_b'
622 ,p_hook_type => 'BP');
623 --
624 END;
625 --
626 hr_utility.set_location(l_proc, 30);
627 --
628 -- Process Logic
629 --
630 per_mea_upd.upd
631 (p_effective_date => l_effective_date
632 ,p_medical_assessment_id => p_medical_assessment_id
633 ,p_object_version_number => l_object_version_number
634 ,p_consultation_date => l_consultation_date
635 ,p_consultation_type => p_consultation_type
636 ,p_examiner_name => p_examiner_name
637 ,p_organization_id => p_organization_id
638 ,p_incident_id => p_incident_id
639 ,p_consultation_result => p_consultation_result
640 ,p_disability_id => p_disability_id
641 ,p_next_consultation_date => l_next_consultation_date
642 ,p_description => p_description
643 ,p_attribute_category => p_attribute_category
644 ,p_attribute1 => p_attribute1
645 ,p_attribute2 => p_attribute2
646 ,p_attribute3 => p_attribute3
647 ,p_attribute4 => p_attribute4
648 ,p_attribute5 => p_attribute5
649 ,p_attribute6 => p_attribute6
650 ,p_attribute7 => p_attribute7
651 ,p_attribute8 => p_attribute8
652 ,p_attribute9 => p_attribute9
653 ,p_attribute10 => p_attribute10
654 ,p_attribute11 => p_attribute11
655 ,p_attribute12 => p_attribute12
656 ,p_attribute13 => p_attribute13
657 ,p_attribute14 => p_attribute14
658 ,p_attribute15 => p_attribute15
659 ,p_attribute16 => p_attribute16
660 ,p_attribute17 => p_attribute17
661 ,p_attribute18 => p_attribute18
662 ,p_attribute19 => p_attribute19
663 ,p_attribute20 => p_attribute20
664 ,p_attribute21 => p_attribute21
665 ,p_attribute22 => p_attribute22
666 ,p_attribute23 => p_attribute23
667 ,p_attribute24 => p_attribute24
668 ,p_attribute25 => p_attribute25
669 ,p_attribute26 => p_attribute26
670 ,p_attribute27 => p_attribute27
671 ,p_attribute28 => p_attribute28
672 ,p_attribute29 => p_attribute29
673 ,p_attribute30 => p_attribute30
674 ,p_mea_information_category => p_mea_information_category
675 ,p_mea_information1 => p_mea_information1
676 ,p_mea_information2 => p_mea_information2
677 ,p_mea_information3 => p_mea_information3
678 ,p_mea_information4 => p_mea_information4
679 ,p_mea_information5 => p_mea_information5
680 ,p_mea_information6 => p_mea_information6
681 ,p_mea_information7 => p_mea_information7
682 ,p_mea_information8 => p_mea_information8
683 ,p_mea_information9 => p_mea_information9
684 ,p_mea_information10 => p_mea_information10
685 ,p_mea_information11 => p_mea_information11
686 ,p_mea_information12 => p_mea_information12
687 ,p_mea_information13 => p_mea_information13
688 ,p_mea_information14 => p_mea_information14
689 ,p_mea_information15 => p_mea_information15
690 ,p_mea_information16 => p_mea_information16
691 ,p_mea_information17 => p_mea_information17
692 ,p_mea_information18 => p_mea_information18
693 ,p_mea_information19 => p_mea_information19
694 ,p_mea_information20 => p_mea_information20
695 ,p_mea_information21 => p_mea_information21
696 ,p_mea_information22 => p_mea_information22
697 ,p_mea_information23 => p_mea_information23
698 ,p_mea_information24 => p_mea_information24
699 ,p_mea_information25 => p_mea_information25
700 ,p_mea_information26 => p_mea_information26
701 ,p_mea_information27 => p_mea_information27
702 ,p_mea_information28 => p_mea_information28
703 ,p_mea_information29 => p_mea_information29
704 ,p_mea_information30 => p_mea_information30
705 );
709 BEGIN
706 --
707 -- Call After Process User Hook
708 --
710 --
711 hr_utility.set_location(l_proc, 40);
712 --
713 per_medical_assessment_bk2.update_medical_assessment_a
714 (p_medical_assessment_id => p_medical_assessment_id
715 ,p_object_version_number => l_object_version_number
716 ,p_effective_date => l_effective_date
717 ,p_consultation_date => l_consultation_date
718 ,p_consultation_type => p_consultation_type
719 ,p_examiner_name => p_examiner_name
720 ,p_organization_id => p_organization_id
721 ,p_consultation_result => p_consultation_result
722 ,p_incident_id => p_incident_id
723 ,p_disability_id => p_disability_id
724 ,p_next_consultation_date => l_next_consultation_date
725 ,p_description => p_description
726 ,p_attribute_category => p_attribute_category
727 ,p_attribute1 => p_attribute1
728 ,p_attribute2 => p_attribute2
729 ,p_attribute3 => p_attribute3
730 ,p_attribute4 => p_attribute4
731 ,p_attribute5 => p_attribute5
732 ,p_attribute6 => p_attribute6
733 ,p_attribute7 => p_attribute7
734 ,p_attribute8 => p_attribute8
735 ,p_attribute9 => p_attribute9
736 ,p_attribute10 => p_attribute10
737 ,p_attribute11 => p_attribute11
738 ,p_attribute12 => p_attribute12
739 ,p_attribute13 => p_attribute13
740 ,p_attribute14 => p_attribute14
741 ,p_attribute15 => p_attribute15
742 ,p_attribute16 => p_attribute16
743 ,p_attribute17 => p_attribute17
744 ,p_attribute18 => p_attribute18
745 ,p_attribute19 => p_attribute19
746 ,p_attribute20 => p_attribute20
747 ,p_attribute21 => p_attribute21
748 ,p_attribute22 => p_attribute22
749 ,p_attribute23 => p_attribute23
750 ,p_attribute24 => p_attribute24
751 ,p_attribute25 => p_attribute25
752 ,p_attribute26 => p_attribute26
753 ,p_attribute27 => p_attribute27
754 ,p_attribute28 => p_attribute28
755 ,p_attribute29 => p_attribute29
756 ,p_attribute30 => p_attribute30
757 ,p_mea_information_category => p_mea_information_category
758 ,p_mea_information1 => p_mea_information1
759 ,p_mea_information2 => p_mea_information2
760 ,p_mea_information3 => p_mea_information3
761 ,p_mea_information4 => p_mea_information4
762 ,p_mea_information5 => p_mea_information5
763 ,p_mea_information6 => p_mea_information6
764 ,p_mea_information7 => p_mea_information7
765 ,p_mea_information8 => p_mea_information8
766 ,p_mea_information9 => p_mea_information9
767 ,p_mea_information10 => p_mea_information10
768 ,p_mea_information11 => p_mea_information11
769 ,p_mea_information12 => p_mea_information12
770 ,p_mea_information13 => p_mea_information13
771 ,p_mea_information14 => p_mea_information14
772 ,p_mea_information15 => p_mea_information15
773 ,p_mea_information16 => p_mea_information16
774 ,p_mea_information17 => p_mea_information17
775 ,p_mea_information18 => p_mea_information18
776 ,p_mea_information19 => p_mea_information19
777 ,p_mea_information20 => p_mea_information20
778 ,p_mea_information21 => p_mea_information21
779 ,p_mea_information22 => p_mea_information22
780 ,p_mea_information23 => p_mea_information23
781 ,p_mea_information24 => p_mea_information24
782 ,p_mea_information25 => p_mea_information25
783 ,p_mea_information26 => p_mea_information26
784 ,p_mea_information27 => p_mea_information27
785 ,p_mea_information28 => p_mea_information28
786 ,p_mea_information29 => p_mea_information29
787 ,p_mea_information30 => p_mea_information30);
788 --
789 EXCEPTION
790 --
791 WHEN hr_api.cannot_find_prog_unit THEN
792 --
793 hr_api.cannot_find_prog_unit_error
794 (p_module_name => 'update_medical_assessment_a'
795 ,p_hook_type => 'AP');
796 --
797 END;
798 --
799 hr_utility.set_location(l_proc, 50);
800 --
801 -- When in validation only mode raise the Validate_Enabled exception
802 --
803 IF p_validate THEN
804 --
805 RAISE hr_api.validate_enabled;
806 --
807 END IF;
808 --
809 -- Set all output arguments
810 --
811 p_object_version_number := l_object_version_number;
812 --
813 hr_utility.set_location(' Leaving:'||l_proc, 70);
814 --
815 EXCEPTION
816 --
817 WHEN hr_api.validate_enabled THEN
818 --
819 -- As the Validate_Enabled exception has been raised
820 -- we must rollback to the savepoint
821 --
822 ROLLBACK TO update_medical_assessment;
823 --
824 -- Only set output warning arguments
825 -- (Any key or derived arguments must be set to null
826 -- when validation only mode is being used.)
827 --
828 hr_utility.set_location(' Leaving:'||l_proc, 80);
829 --
830 WHEN OTHERS THEN
831 --
832 -- A validation or unexpected error has occured
833 --
834 ROLLBACK TO update_medical_assessment;
835 --
836 -- set in out parameters and set out parameters
837 --
838 p_object_version_number := l_ovn;
839 --
840 hr_utility.set_location(' Leaving:'||l_proc, 90);
841 --
842 RAISE;
843 --
844 END update_medical_assessment;
845 --
846 -- ----------------------------------------------------------------------------
847 -- |-----------------------< delete_medical_assessment >----------------------|
848 -- ----------------------------------------------------------------------------
849 --
850 PROCEDURE delete_medical_assessment
851 (p_validate IN BOOLEAN DEFAULT FALSE
852 ,p_medical_assessment_id IN NUMBER
853 ,p_object_version_number IN NUMBER
854 ) IS
855 --
856 -- Declare cursors and local variables
857 --
858 l_proc VARCHAR2(72) := g_package||'delete_medical_assessment';
859 --
860 BEGIN
861 --
862 hr_utility.set_location('Entering:'|| l_proc, 10);
863 --
864 -- Issue a savepoint if operating in validation only mode.
865 --
866 SAVEPOINT delete_medical_assessment;
867 --
868 -- Call Before Process User Hook
869 --
870 BEGIN
871 --
872 per_medical_assessment_bk3.delete_medical_assessment_b
873 (p_medical_assessment_id => p_medical_assessment_id
874 ,p_object_version_number => p_object_version_number);
875 --
876 EXCEPTION
877 --
878 WHEN hr_api.cannot_find_prog_unit THEN
879 --
880 hr_api.cannot_find_prog_unit_error
881 (p_module_name => 'delete_medical_assessment_b'
882 ,p_hook_type => 'BP');
883 --
884 END;
885 --
886 --
887 hr_utility.set_location(l_proc,20);
888 --
889 -- Process Logic
890 --
891 per_mea_del.del
892 (p_medical_assessment_id => p_medical_assessment_id
893 ,p_object_version_number => p_object_version_number);
894 --
895 hr_utility.set_location(l_proc, 30);
896 --
897 -- Call After Process User Hook
898 --
899 BEGIN
900 --
901 per_medical_assessment_bk3.delete_medical_assessment_a
902 (p_medical_assessment_id => p_medical_assessment_id
903 ,p_object_version_number => p_object_version_number);
904 --
905 EXCEPTION
906 --
907 WHEN hr_api.cannot_find_prog_unit THEN
908 --
909 hr_api.cannot_find_prog_unit_error
910 (p_module_name => 'delete_medical_assessment_a'
911 ,p_hook_type => 'AP');
912 --
913 END;
914 --
915 -- When in validation only mode raise the Validate_Enabled exception
916 --
917 IF p_validate THEN
918 --
919 RAISE hr_api.validate_enabled;
920 --
921 END IF;
922 --
923 hr_utility.set_location(' Leaving:'||l_proc, 40);
924 --
925 EXCEPTION
926 --
927 WHEN hr_api.validate_enabled THEN
928 --
929 -- As the Validate_Enabled exception has been raised
930 -- we must rollback to the savepoint
931 --
932 ROLLBACK TO delete_medical_assessment;
933 --
934 hr_utility.set_location(' Leaving:'||l_proc, 50);
935 --
936 WHEN OTHERS THEN
937 --
938 ROLLBACK TO delete_medical_assessment;
939 --
940 RAISE;
941 --
942 END delete_medical_assessment;
943 --
944 END per_medical_assessment_api;