[Home] [Help]
PACKAGE BODY: APPS.OKL_VERSION_IB_PVT
Source
1 package body OKL_VERSION_IB_PVT as
2 /* $Header: OKLCVIBB.pls 115.0 2002/02/05 15:12:47 pkm ship $ */
3
4 PROCEDURE Create_version_ib(
5 p_api_version IN NUMBER,
6 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
7 x_return_status OUT NOCOPY VARCHAR2,
8 x_msg_count OUT NOCOPY NUMBER,
9 x_msg_data OUT NOCOPY VARCHAR2,
10 p_vibv_rec IN vibv_rec_type,
11 x_vibv_rec OUT NOCOPY vibv_rec_type)
12 IS
13 l_api_name CONSTANT VARCHAR2(30) := 'CREATE_VERSION_IB';
14 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
15 BEGIN
16 -- Call start_activity to create savepoint, check compatibility
17 -- and initialize message list
18 l_return_status := OKC_API.START_ACTIVITY (l_api_name
19 ,p_init_msg_list
20 ,'_PVT'
21 ,x_return_status);
22 -- Check if activity started successfully
23 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
24 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
25 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
26 RAISE OKC_API.G_EXCEPTION_ERROR;
27 END IF;
28 -- evaluate conditions, build outcomes for true conditions and
29 -- put them on outcome queue
30 OKL_VIB_PVT.insert_row(p_api_version,
31 p_init_msg_list,
32 x_return_status,
33 x_msg_count,
34 x_msg_data,
35 p_vibv_rec,
36 x_vibv_rec);
37 OKC_API.END_ACTIVITY (x_msg_count
38 ,x_msg_data );
39 EXCEPTION
40 WHEN OKC_API.G_EXCEPTION_ERROR THEN
41 x_return_status := OKC_API.HANDLE_EXCEPTIONS
42 (l_api_name,
43 G_PKG_NAME,
44 'OKC_API.G_RET_STS_ERROR',
45 x_msg_count,
46 x_msg_data,
47 '_PVT');
48 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
49 x_return_status :=OKC_API.HANDLE_EXCEPTIONS
50 (l_api_name,
51 G_PKG_NAME,
52 'OKC_API.G_RET_STS_UNEXP_ERROR',
53 x_msg_count,
54 x_msg_data,
55 '_PVT');
56 WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
57 (l_api_name,
58 G_PKG_NAME,
59 'OTHERS',
60 x_msg_count,
61 x_msg_data,
62 '_PVT');
63 END Create_version_ib;
64
65 PROCEDURE Create_version_ib(
66 p_api_version IN NUMBER,
67 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
68 x_return_status OUT NOCOPY VARCHAR2,
69 x_msg_count OUT NOCOPY NUMBER,
70 x_msg_data OUT NOCOPY VARCHAR2,
71 p_vibv_tbl IN vibv_tbl_type,
72 x_vibv_tbl OUT NOCOPY vibv_tbl_type)
73 IS
74 l_api_name CONSTANT VARCHAR2(30) := 'CREATE_VERSION_IB';
75 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
76 BEGIN
77 -- Call start_activity to create savepoint, check compatibility
78 -- and initialize message list
79 l_return_status := OKC_API.START_ACTIVITY (l_api_name
80 ,p_init_msg_list
81 ,'_PVT'
82 , x_return_status);
83 -- Check if activity started successfully
84 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
85 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
86 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
87 RAISE OKC_API.G_EXCEPTION_ERROR;
88 END IF;
89 -- evaluate conditions, build outcomes for true conditions and
90 -- put them on outcome queue
91 OKL_VIB_PVT.insert_row(p_api_version,
92 p_init_msg_list,
93 x_return_status,
94 x_msg_count,
95 x_msg_data,
96 p_vibv_tbl,
97 x_vibv_tbl);
98
99 OKC_API.END_ACTIVITY (x_msg_count
100 ,x_msg_data );
101
102 EXCEPTION
103 WHEN OKC_API.G_EXCEPTION_ERROR THEN
104 x_return_status := OKC_API.HANDLE_EXCEPTIONS
105 (l_api_name,
106 G_PKG_NAME,
107 'OKC_API.G_RET_STS_ERROR',
108 x_msg_count,
109 x_msg_data,
110 '_PVT');
111 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
112 x_return_status :=OKC_API.HANDLE_EXCEPTIONS
113 (l_api_name,
114 G_PKG_NAME,
115 'OKC_API.G_RET_STS_UNEXP_ERROR',
116 x_msg_count,
117 x_msg_data,
118 '_PVT');
119 WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
120 ( l_api_name,
121 G_PKG_NAME,
122 'OTHERS',
123 x_msg_count,
124 x_msg_data,
125 '_PVT');
126 END Create_version_ib;
127
128 PROCEDURE lock_version_ib(
129 p_api_version IN NUMBER,
130 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
131 x_return_status OUT NOCOPY VARCHAR2,
132 x_msg_count OUT NOCOPY NUMBER,
133 x_msg_data OUT NOCOPY VARCHAR2,
134 p_vibv_rec IN vibv_rec_type)
135 IS
136 l_api_name CONSTANT VARCHAR2(30) := 'LOCK_VERSION_IB';
137 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
138 BEGIN
139 -- Call start_activity to create savepoint, check compatibility
140 -- and initialize message list
141 l_return_status := OKC_API.START_ACTIVITY (l_api_name
142 ,p_init_msg_list
143 ,'_PVT'
144 ,x_return_status);
145 -- Check if activity started successfully
146 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
147 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
148 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
149 RAISE OKC_API.G_EXCEPTION_ERROR;
150 END IF;
151 -- evaluate conditions, build outcomes for true conditions and
152 -- put them on outcome queue
153 OKL_VIB_PVT.lock_row(p_api_version,
154 p_init_msg_list,
155 x_return_status,
156 x_msg_count,
157 x_msg_data,
158 p_vibv_rec);
159 OKC_API.END_ACTIVITY (x_msg_count
160 ,x_msg_data );
161 EXCEPTION
162 WHEN OKC_API.G_EXCEPTION_ERROR THEN
163 x_return_status := OKC_API.HANDLE_EXCEPTIONS
164 (l_api_name,
165 G_PKG_NAME,
166 'OKC_API.G_RET_STS_ERROR',
167 x_msg_count,
168 x_msg_data,
169 '_PVT');
170 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
171 x_return_status :=OKC_API.HANDLE_EXCEPTIONS
172 (l_api_name,
173 G_PKG_NAME,
174 'OKC_API.G_RET_STS_UNEXP_ERROR',
175 x_msg_count,
176 x_msg_data,
177 '_PVT');
178 WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
179 (l_api_name,
180 G_PKG_NAME,
181 'OTHERS',
182 x_msg_count,
183 x_msg_data,
184 '_PVT');
185 END lock_version_ib;
186
187 PROCEDURE lock_version_ib(
188 p_api_version IN NUMBER,
189 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
190 x_return_status OUT NOCOPY VARCHAR2,
191 x_msg_count OUT NOCOPY NUMBER,
192 x_msg_data OUT NOCOPY VARCHAR2,
193 p_vibv_tbl IN vibv_tbl_type)
194 IS
195 l_api_name CONSTANT VARCHAR2(30) := 'LOCK_VERSION_IB';
196 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
197 BEGIN
198 -- Call start_activity to create savepoint, check compatibility
199 -- and initialize message list
200 l_return_status := OKC_API.START_ACTIVITY (l_api_name
201 ,p_init_msg_list
202 ,'_PVT'
203 ,x_return_status);
204 -- Check if activity started successfully
205 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
206 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
207 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
208 RAISE OKC_API.G_EXCEPTION_ERROR;
209 END IF;
210 -- evaluate conditions, build outcomes for true conditions and
211 -- put them on outcome queue
212 OKL_VIB_PVT.lock_row(p_api_version,
213 p_init_msg_list,
214 x_return_status,
215 x_msg_count,
216 x_msg_data,
217 p_vibv_tbl);
218 OKC_API.END_ACTIVITY (x_msg_count
219 ,x_msg_data );
220 EXCEPTION
221 WHEN OKC_API.G_EXCEPTION_ERROR THEN
222 x_return_status := OKC_API.HANDLE_EXCEPTIONS
223 (l_api_name,
224 G_PKG_NAME,
225 'OKC_API.G_RET_STS_ERROR',
226 x_msg_count,
227 x_msg_data,
228 '_PVT');
229 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
230 x_return_status :=OKC_API.HANDLE_EXCEPTIONS
231 (l_api_name,
232 G_PKG_NAME,
233 'OKC_API.G_RET_STS_UNEXP_ERROR',
234 x_msg_count,
235 x_msg_data,
236 '_PVT');
237 WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
238 (l_api_name,
239 G_PKG_NAME,
240 'OTHERS',
241 x_msg_count,
242 x_msg_data,
243 '_PVT');
244 END lock_version_ib;
245
246 PROCEDURE update_version_ib(
247 p_api_version IN NUMBER,
248 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
249 x_return_status OUT NOCOPY VARCHAR2,
250 x_msg_count OUT NOCOPY NUMBER,
251 x_msg_data OUT NOCOPY VARCHAR2,
252 p_vibv_rec IN vibv_rec_type,
253 x_vibv_rec OUT NOCOPY vibv_rec_type)
254 IS
255 l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_VERSION_IB';
256 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
257 BEGIN
258 -- Call start_activity to create savepoint, check compatibility
259 -- and initialize message list
260 l_return_status := OKC_API.START_ACTIVITY (l_api_name
261 ,p_init_msg_list
262 ,'_PVT'
263 ,x_return_status);
264 -- Check if activity started successfully
265 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
266 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
267 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
268 RAISE OKC_API.G_EXCEPTION_ERROR;
269 END IF;
270 -- evaluate conditions, build outcomes for true conditions and
271 -- put them on outcome queue
272 OKL_VIB_PVT.update_row(p_api_version,
273 p_init_msg_list,
274 x_return_status,
275 x_msg_count,
276 x_msg_data,
277 p_vibv_rec,
278 x_vibv_rec);
279 OKC_API.END_ACTIVITY (x_msg_count
280 ,x_msg_data );
281 EXCEPTION
282 WHEN OKC_API.G_EXCEPTION_ERROR THEN
283 x_return_status := OKC_API.HANDLE_EXCEPTIONS
284 (l_api_name,
285 G_PKG_NAME,
286 'OKC_API.G_RET_STS_ERROR',
287 x_msg_count,
288 x_msg_data,
289 '_PVT');
290 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
291 x_return_status :=OKC_API.HANDLE_EXCEPTIONS
292 (l_api_name,
293 G_PKG_NAME,
294 'OKC_API.G_RET_STS_UNEXP_ERROR',
295 x_msg_count,
296 x_msg_data,
297 '_PVT');
298 WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
299 (l_api_name,
300 G_PKG_NAME,
301 'OTHERS',
302 x_msg_count,
303 x_msg_data,
304 '_PVT');
305 END update_version_ib;
306
307 PROCEDURE update_version_ib(
308 p_api_version IN NUMBER,
309 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
310 x_return_status OUT NOCOPY VARCHAR2,
311 x_msg_count OUT NOCOPY NUMBER,
312 x_msg_data OUT NOCOPY VARCHAR2,
313 p_vibv_tbl IN vibv_tbl_type,
314 x_vibv_tbl OUT NOCOPY vibv_tbl_type)
315 IS
316 l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_VERSION_IB';
317 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
318 BEGIN
319 -- Call start_activity to create savepoint, check compatibility
320 -- and initialize message list
321 l_return_status := OKC_API.START_ACTIVITY (l_api_name
322 ,p_init_msg_list
323 ,'_PVT'
324 ,x_return_status);
325 -- Check if activity started successfully
326 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
327 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
328 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
329 RAISE OKC_API.G_EXCEPTION_ERROR;
330 END IF;
331 -- evaluate conditions, build outcomes for true conditions and
332 -- put them on outcome queue
333 OKL_VIB_PVT.update_row(p_api_version,
334 p_init_msg_list,
335 x_return_status,
336 x_msg_count,
337 x_msg_data,
338 p_vibv_tbl,
339 x_vibv_tbl);
340 OKC_API.END_ACTIVITY (x_msg_count
341 ,x_msg_data );
342 EXCEPTION
343 WHEN OKC_API.G_EXCEPTION_ERROR THEN
344 x_return_status := OKC_API.HANDLE_EXCEPTIONS
345 (l_api_name,
346 G_PKG_NAME,
347 'OKC_API.G_RET_STS_ERROR',
348 x_msg_count,
349 x_msg_data,
350 '_PVT');
351 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
352 x_return_status :=OKC_API.HANDLE_EXCEPTIONS
353 (l_api_name,
354 G_PKG_NAME,
355 'OKC_API.G_RET_STS_UNEXP_ERROR',
356 x_msg_count,
357 x_msg_data,
358 '_PVT');
359 WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
360 (l_api_name,
361 G_PKG_NAME,
362 'OTHERS',
363 x_msg_count,
364 x_msg_data,
365 '_PVT');
366 END update_version_ib;
367
368 PROCEDURE delete_version_ib(
369 p_api_version IN NUMBER,
370 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
371 x_return_status OUT NOCOPY VARCHAR2,
372 x_msg_count OUT NOCOPY NUMBER,
373 x_msg_data OUT NOCOPY VARCHAR2,
374 p_vibv_rec IN vibv_rec_type)
375 IS
376 l_api_name CONSTANT VARCHAR2(30) := 'DELETE_VERSION_IB';
377 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
378 BEGIN
379 -- Call start_activity to create savepoint, check compatibility
380 -- and initialize message list
381 l_return_status := OKC_API.START_ACTIVITY (l_api_name
382 ,p_init_msg_list
383 ,'_PVT'
384 ,x_return_status);
385 -- Check if activity started successfully
386 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
387 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
388 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
389 RAISE OKC_API.G_EXCEPTION_ERROR;
390 END IF;
391 -- evaluate conditions, build outcomes for true conditions and
392 -- put them on outcome queue
393 OKL_VIB_PVT.delete_row(p_api_version,
394 p_init_msg_list,
395 x_return_status,
396 x_msg_count,
397 x_msg_data,
398 p_vibv_rec);
399 OKC_API.END_ACTIVITY (x_msg_count
400 ,x_msg_data );
401 EXCEPTION
402 WHEN OKC_API.G_EXCEPTION_ERROR THEN
403 x_return_status := OKC_API.HANDLE_EXCEPTIONS
404 (l_api_name,
405 G_PKG_NAME,
406 'OKC_API.G_RET_STS_ERROR',
407 x_msg_count,
408 x_msg_data,
409 '_PVT');
410 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
411 x_return_status :=OKC_API.HANDLE_EXCEPTIONS
412 (l_api_name,
413 G_PKG_NAME,
414 'OKC_API.G_RET_STS_UNEXP_ERROR',
415 x_msg_count,
416 x_msg_data,
417 '_PVT');
418 WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
419 (l_api_name,
420 G_PKG_NAME,
421 'OTHERS',
422 x_msg_count,
423 x_msg_data,
424 '_PVT');
425 END delete_version_ib;
426
427 PROCEDURE delete_version_ib(
428 p_api_version IN NUMBER,
429 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
430 x_return_status OUT NOCOPY VARCHAR2,
431 x_msg_count OUT NOCOPY NUMBER,
432 x_msg_data OUT NOCOPY VARCHAR2,
433 p_vibv_tbl IN vibv_tbl_type)
434 IS
435 l_api_name CONSTANT VARCHAR2(30) := 'DELETE_VERSION_IB';
436 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
437 BEGIN
438 -- Call start_activity to create savepoint, check compatibility
439 -- and initialize message list
440 l_return_status := OKC_API.START_ACTIVITY (l_api_name
441 ,p_init_msg_list
442 ,'_PVT'
443 ,x_return_status);
444 -- Check if activity started successfully
445 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
446 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
447 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
448 RAISE OKC_API.G_EXCEPTION_ERROR;
449 END IF;
450 -- evaluate conditions, build outcomes for true conditions and
451 -- put them on outcome queue
452 OKL_VIB_PVT.delete_row(p_api_version,
453 p_init_msg_list,
454 x_return_status,
455 x_msg_count,
456 x_msg_data,
457 p_vibv_tbl);
458 OKC_API.END_ACTIVITY (x_msg_count
459 ,x_msg_data );
460 EXCEPTION
461 WHEN OKC_API.G_EXCEPTION_ERROR THEN
462 x_return_status := OKC_API.HANDLE_EXCEPTIONS
463 (l_api_name,
464 G_PKG_NAME,
465 'OKC_API.G_RET_STS_ERROR',
466 x_msg_count,
467 x_msg_data,
468 '_PVT');
469 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
470 x_return_status :=OKC_API.HANDLE_EXCEPTIONS
471 (l_api_name,
472 G_PKG_NAME,
473 'OKC_API.G_RET_STS_UNEXP_ERROR',
474 x_msg_count,
475 x_msg_data,
476 '_PVT');
477 WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
478 (l_api_name,
479 G_PKG_NAME,
480 'OTHERS',
481 x_msg_count,
482 x_msg_data,
483 '_PVT');
484 END delete_version_ib;
485
486 PROCEDURE validate_version_ib(
487 p_api_version IN NUMBER,
488 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
489 x_return_status OUT NOCOPY VARCHAR2,
490 x_msg_count OUT NOCOPY NUMBER,
491 x_msg_data OUT NOCOPY VARCHAR2,
492 p_vibv_rec IN vibv_rec_type)
493 IS
494 l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_VERSION_IB';
495 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
496 BEGIN
497 -- Call start_activity to create savepoint, check compatibility
498 -- and initialize message list
499 l_return_status := OKC_API.START_ACTIVITY (l_api_name
500 ,p_init_msg_list
501 ,'_PVT'
502 ,x_return_status);
503 -- Check if activity started successfully
504 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
505 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
506 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
507 RAISE OKC_API.G_EXCEPTION_ERROR;
508 END IF;
509 -- evaluate conditions, build outcomes for true conditions and
510 -- put them on outcome queue
511 OKL_VIB_PVT.validate_row(p_api_version,
512 p_init_msg_list,
513 x_return_status,
514 x_msg_count,
515 x_msg_data,
516 p_vibv_rec);
517 OKC_API.END_ACTIVITY (x_msg_count
518 ,x_msg_data );
519 EXCEPTION
520 WHEN OKC_API.G_EXCEPTION_ERROR THEN
521 x_return_status := OKC_API.HANDLE_EXCEPTIONS
522 (l_api_name,
523 G_PKG_NAME,
524 'OKC_API.G_RET_STS_ERROR',
525 x_msg_count,
526 x_msg_data,
527 '_PVT');
528 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
529 x_return_status :=OKC_API.HANDLE_EXCEPTIONS
530 (l_api_name,
531 G_PKG_NAME,
532 'OKC_API.G_RET_STS_UNEXP_ERROR',
533 x_msg_count,
534 x_msg_data,
535 '_PVT');
536 WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
537 (l_api_name,
538 G_PKG_NAME,
539 'OTHERS',
540 x_msg_count,
541 x_msg_data,
542 '_PVT');
543 END validate_version_ib;
544
545 PROCEDURE validate_version_ib(
546 p_api_version IN NUMBER,
547 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
548 x_return_status OUT NOCOPY VARCHAR2,
549 x_msg_count OUT NOCOPY NUMBER,
550 x_msg_data OUT NOCOPY VARCHAR2,
551 p_vibv_tbl IN vibv_tbl_type)
552 IS
553 l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_VERSION_IB';
554 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
555 BEGIN
556 -- Call start_activity to create savepoint, check compatibility
557 -- and initialize message list
558 l_return_status := OKC_API.START_ACTIVITY (l_api_name
559 ,p_init_msg_list
560 ,'_PVT'
561 ,x_return_status);
562 -- Check if activity started successfully
563 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
564 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
565 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
566 RAISE OKC_API.G_EXCEPTION_ERROR;
567 END IF;
568 -- evaluate conditions, build outcomes for true conditions and
569 -- put them on outcome queue
570 OKL_VIB_PVT.validate_row(p_api_version,
571 p_init_msg_list,
572 x_return_status,
573 x_msg_count,
574 x_msg_data,
575 p_vibv_tbl);
576 OKC_API.END_ACTIVITY (x_msg_count
577 ,x_msg_data );
578 EXCEPTION
579 WHEN OKC_API.G_EXCEPTION_ERROR THEN
580 x_return_status := OKC_API.HANDLE_EXCEPTIONS
581 (l_api_name,
582 G_PKG_NAME,
583 'OKC_API.G_RET_STS_ERROR',
584 x_msg_count,
585 x_msg_data,
586 '_PVT');
587 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
588 x_return_status :=OKC_API.HANDLE_EXCEPTIONS
589 (l_api_name,
590 G_PKG_NAME,
591 'OKC_API.G_RET_STS_UNEXP_ERROR',
592 x_msg_count,
593 x_msg_data,
594 '_PVT');
595 WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
596 (l_api_name,
597 G_PKG_NAME,
598 'OTHERS',
599 x_msg_count,
600 x_msg_data,
601 '_PVT');
602 END validate_version_ib;
603
604 END OKL_VERSION_IB_PVT;