16: check_csr ref_cursor;
17:
18:
19: l_dummy VARCHAR2(1);
20: l_overlap_exists VARCHAR2(1) := OKL_API.G_FALSE;
21: l_datetime_valid DATE;
22: l_datetime_invalid DATE;
23:
24: l_stmt VARCHAR2(2000);
74:
75: FETCH check_csr INTO l_datetime_valid,
76: l_datetime_invalid;
77: IF (check_csr%NOTFOUND) THEN
78: l_overlap_exists := OKL_API.G_FALSE;
79: ELSE
80: l_overlap_exists := OKL_API.G_TRUE;
81: END IF;
82: CLOSE check_csr;
76: l_datetime_invalid;
77: IF (check_csr%NOTFOUND) THEN
78: l_overlap_exists := OKL_API.G_FALSE;
79: ELSE
80: l_overlap_exists := OKL_API.G_TRUE;
81: END IF;
82: CLOSE check_csr;
83: ELSE
84: l_overlap_exists := OKL_API.G_TRUE;
80: l_overlap_exists := OKL_API.G_TRUE;
81: END IF;
82: CLOSE check_csr;
83: ELSE
84: l_overlap_exists := OKL_API.G_TRUE;
85: CLOSE check_csr;
86: END IF;
87:
88:
117: FETCH check_csr INTO l_datetime_valid,
118: l_datetime_invalid;
119: IF (check_csr%NOTFOUND) THEN
120:
121: l_overlap_exists := OKL_API.G_FALSE;
122: ELSE
123:
124: l_overlap_exists := OKL_API.G_TRUE;
125: END IF;
120:
121: l_overlap_exists := OKL_API.G_FALSE;
122: ELSE
123:
124: l_overlap_exists := OKL_API.G_TRUE;
125: END IF;
126:
127: CLOSE check_csr;
128:
127: CLOSE check_csr;
128:
129: ELSE
130:
131: l_overlap_exists := OKL_API.G_TRUE;
132: CLOSE check_csr;
133:
134: END IF;
135:
157:
158:
159:
160: l_dummy VARCHAR2(1);
161: l_overlap_exists VARCHAR2(1) := OKL_API.G_FALSE;
162: l_datetime_valid DATE;
163: l_datetime_invalid DATE;
164:
165: l_stmt VARCHAR2(2000);
216:
217: FETCH check_csr INTO l_datetime_valid,
218: l_datetime_invalid;
219: IF (check_csr%NOTFOUND) THEN
220: l_overlap_exists := OKL_API.G_FALSE;
221: ELSE
222: l_overlap_exists := OKL_API.G_TRUE;
223: END IF;
224: CLOSE check_csr;
218: l_datetime_invalid;
219: IF (check_csr%NOTFOUND) THEN
220: l_overlap_exists := OKL_API.G_FALSE;
221: ELSE
222: l_overlap_exists := OKL_API.G_TRUE;
223: END IF;
224: CLOSE check_csr;
225: ELSE
226: l_overlap_exists := OKL_API.G_TRUE;
222: l_overlap_exists := OKL_API.G_TRUE;
223: END IF;
224: CLOSE check_csr;
225: ELSE
226: l_overlap_exists := OKL_API.G_TRUE;
227: CLOSE check_csr;
228: END IF;
229:
230:
257: FETCH check_csr INTO l_datetime_valid,
258: l_datetime_invalid;
259: IF (check_csr%NOTFOUND) THEN
260:
261: l_overlap_exists := OKL_API.G_FALSE;
262: ELSE
263:
264: l_overlap_exists := OKL_API.G_TRUE;
265: END IF;
260:
261: l_overlap_exists := OKL_API.G_FALSE;
262: ELSE
263:
264: l_overlap_exists := OKL_API.G_TRUE;
265: END IF;
266: CLOSE check_csr;
267: ELSE
268: l_overlap_exists := OKL_API.G_TRUE;
264: l_overlap_exists := OKL_API.G_TRUE;
265: END IF;
266: CLOSE check_csr;
267: ELSE
268: l_overlap_exists := OKL_API.G_TRUE;
269: CLOSE check_csr;
270: END IF;
271:
272: END IF;
290: l_idxv_rec_in idxv_rec_type;
291: l_idxv_rec_out idxv_rec_type;
292:
293: l_init_msg_list VARCHAR2(1) := p_init_msg_list;
294: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
295: l_msg_count NUMBER;
296: l_msg_data VARCHAR2(2000);
297: l_api_name VARCHAR2(30) := 'INT_HDR_INS_UPDT';
298: l_api_version NUMBER := 1.0;
307:
308:
309: BEGIN
310:
311: x_return_status := OKL_API.G_RET_STS_SUCCESS;
312: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
313: G_PKG_NAME,
314: p_init_msg_list,
315: l_api_version,
308:
309: BEGIN
310:
311: x_return_status := OKL_API.G_RET_STS_SUCCESS;
312: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
313: G_PKG_NAME,
314: p_init_msg_list,
315: l_api_version,
316: p_api_version,
315: l_api_version,
316: p_api_version,
317: '_PVT',
318: x_return_status);
319: IF (l_return_status = OKL_Api.G_RET_STS_UNEXP_ERROR) THEN
320: RAISE OKL_Api.G_EXCEPTION_UNEXPECTED_ERROR;
321: ELSIF (l_return_status = OKL_Api.G_RET_STS_ERROR) THEN
322: RAISE OKL_Api.G_EXCEPTION_ERROR;
323: END IF;
316: p_api_version,
317: '_PVT',
318: x_return_status);
319: IF (l_return_status = OKL_Api.G_RET_STS_UNEXP_ERROR) THEN
320: RAISE OKL_Api.G_EXCEPTION_UNEXPECTED_ERROR;
321: ELSIF (l_return_status = OKL_Api.G_RET_STS_ERROR) THEN
322: RAISE OKL_Api.G_EXCEPTION_ERROR;
323: END IF;
324:
317: '_PVT',
318: x_return_status);
319: IF (l_return_status = OKL_Api.G_RET_STS_UNEXP_ERROR) THEN
320: RAISE OKL_Api.G_EXCEPTION_UNEXPECTED_ERROR;
321: ELSIF (l_return_status = OKL_Api.G_RET_STS_ERROR) THEN
322: RAISE OKL_Api.G_EXCEPTION_ERROR;
323: END IF;
324:
325: l_idxv_rec_in := p_idxv_rec;
318: x_return_status);
319: IF (l_return_status = OKL_Api.G_RET_STS_UNEXP_ERROR) THEN
320: RAISE OKL_Api.G_EXCEPTION_UNEXPECTED_ERROR;
321: ELSIF (l_return_status = OKL_Api.G_RET_STS_ERROR) THEN
322: RAISE OKL_Api.G_EXCEPTION_ERROR;
323: END IF;
324:
325: l_idxv_rec_in := p_idxv_rec;
326:
323: END IF;
324:
325: l_idxv_rec_in := p_idxv_rec;
326:
327: IF (p_idxv_rec.id = OKL_API.G_MISS_NUM) OR
328: (p_idxv_rec.ID IS NULL) THEN
329:
330: OKL_INDICES_PUB.CREATE_INDICES(p_api_version => 1.0,
331: p_init_msg_list => l_init_msg_list,
342: IF (freq_csr%NOTFOUND) THEN
343: NULL;
344: ELSE
345: IF (l_idx_frequency <> p_idxv_rec.idx_frequency) THEN
346: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
347: p_msg_name => 'OKL_INT_FREQ_CANNOT_CHANGE');
348: RAISE OKL_API.G_EXCEPTION_ERROR;
349: END IF;
350: END IF;
344: ELSE
345: IF (l_idx_frequency <> p_idxv_rec.idx_frequency) THEN
346: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
347: p_msg_name => 'OKL_INT_FREQ_CANNOT_CHANGE');
348: RAISE OKL_API.G_EXCEPTION_ERROR;
349: END IF;
350: END IF;
351: CLOSE freq_csr;
352:
359: x_idxv_rec => l_idxv_rec_out);
360: END IF;
361:
362:
363: IF (l_return_status = OKL_Api.G_RET_STS_UNEXP_ERROR) THEN
364: RAISE OKL_Api.G_EXCEPTION_UNEXPECTED_ERROR;
365: ELSIF (l_return_status = OKL_Api.G_RET_STS_ERROR) THEN
366: RAISE OKL_Api.G_EXCEPTION_ERROR;
367: END IF;
360: END IF;
361:
362:
363: IF (l_return_status = OKL_Api.G_RET_STS_UNEXP_ERROR) THEN
364: RAISE OKL_Api.G_EXCEPTION_UNEXPECTED_ERROR;
365: ELSIF (l_return_status = OKL_Api.G_RET_STS_ERROR) THEN
366: RAISE OKL_Api.G_EXCEPTION_ERROR;
367: END IF;
368:
361:
362:
363: IF (l_return_status = OKL_Api.G_RET_STS_UNEXP_ERROR) THEN
364: RAISE OKL_Api.G_EXCEPTION_UNEXPECTED_ERROR;
365: ELSIF (l_return_status = OKL_Api.G_RET_STS_ERROR) THEN
366: RAISE OKL_Api.G_EXCEPTION_ERROR;
367: END IF;
368:
369: OKL_Api.END_ACTIVITY(x_msg_count, x_msg_data);
362:
363: IF (l_return_status = OKL_Api.G_RET_STS_UNEXP_ERROR) THEN
364: RAISE OKL_Api.G_EXCEPTION_UNEXPECTED_ERROR;
365: ELSIF (l_return_status = OKL_Api.G_RET_STS_ERROR) THEN
366: RAISE OKL_Api.G_EXCEPTION_ERROR;
367: END IF;
368:
369: OKL_Api.END_ACTIVITY(x_msg_count, x_msg_data);
370:
365: ELSIF (l_return_status = OKL_Api.G_RET_STS_ERROR) THEN
366: RAISE OKL_Api.G_EXCEPTION_ERROR;
367: END IF;
368:
369: OKL_Api.END_ACTIVITY(x_msg_count, x_msg_data);
370:
371: EXCEPTION
372: WHEN OKL_Api.G_EXCEPTION_ERROR THEN
373: x_return_status := OKL_Api.HANDLE_EXCEPTIONS
368:
369: OKL_Api.END_ACTIVITY(x_msg_count, x_msg_data);
370:
371: EXCEPTION
372: WHEN OKL_Api.G_EXCEPTION_ERROR THEN
373: x_return_status := OKL_Api.HANDLE_EXCEPTIONS
374: (
375: l_api_name,
376: G_PKG_NAME,
369: OKL_Api.END_ACTIVITY(x_msg_count, x_msg_data);
370:
371: EXCEPTION
372: WHEN OKL_Api.G_EXCEPTION_ERROR THEN
373: x_return_status := OKL_Api.HANDLE_EXCEPTIONS
374: (
375: l_api_name,
376: G_PKG_NAME,
377: 'OKL_API.G_RET_STS_ERROR',
373: x_return_status := OKL_Api.HANDLE_EXCEPTIONS
374: (
375: l_api_name,
376: G_PKG_NAME,
377: 'OKL_API.G_RET_STS_ERROR',
378: x_msg_count,
379: x_msg_data,
380: '_PVT'
381: );
378: x_msg_count,
379: x_msg_data,
380: '_PVT'
381: );
382: WHEN OKL_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
383: x_return_status :=OKL_Api.HANDLE_EXCEPTIONS
384: (
385: l_api_name,
386: G_PKG_NAME,
379: x_msg_data,
380: '_PVT'
381: );
382: WHEN OKL_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
383: x_return_status :=OKL_Api.HANDLE_EXCEPTIONS
384: (
385: l_api_name,
386: G_PKG_NAME,
387: 'OKL_API.G_RET_STS_UNEXP_ERROR',
383: x_return_status :=OKL_Api.HANDLE_EXCEPTIONS
384: (
385: l_api_name,
386: G_PKG_NAME,
387: 'OKL_API.G_RET_STS_UNEXP_ERROR',
388: x_msg_count,
389: x_msg_data,
390: '_PVT'
391: );
389: x_msg_data,
390: '_PVT'
391: );
392: WHEN OTHERS THEN
393: x_return_status :=OKL_Api.HANDLE_EXCEPTIONS
394: (
395: l_api_name,
396: G_PKG_NAME,
397: 'OTHERS',
412: p_idxv_tbl IN idxv_tbl_type)
413: IS
414:
415: l_api_version CONSTANT NUMBER := 1.0;
416: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
417: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
418: i NUMBER := 0;
419: l_msg_count NUMBER;
420: l_msg_data VARCHAR2(2000);
413: IS
414:
415: l_api_version CONSTANT NUMBER := 1.0;
416: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
417: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
418: i NUMBER := 0;
419: l_msg_count NUMBER;
420: l_msg_data VARCHAR2(2000);
421:
429:
430: LOOP
431: INT_HDR_INS_UPDT (
432: p_api_version => l_api_version,
433: p_init_msg_list => OKL_API.G_FALSE,
434: x_return_status => l_return_status,
435: x_msg_count => l_msg_count,
436: x_msg_data => l_msg_data,
437: p_idxv_rec => p_idxv_tbl(i));
436: x_msg_data => l_msg_data,
437: p_idxv_rec => p_idxv_tbl(i));
438:
439:
440: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
441: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
442: l_overall_status := l_return_status;
443: END IF;
444: END IF;
437: p_idxv_rec => p_idxv_tbl(i));
438:
439:
440: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
441: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
442: l_overall_status := l_return_status;
443: END IF;
444: END IF;
445:
471: l_error_flag VARCHAR2(1) := 'N';
472: l_api_name CONSTANT VARCHAR2(40) := 'OKL_INT_DTL_INS_UPDT';
473: l_api_version CONSTANT NUMBER := 1.0;
474: l_row_count NUMBER;
475: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
476:
477:
478: l_ivev_rec_in ivev_rec_type;
479: l_ivev_rec_out ivev_rec_type;
508: /*
509:
510: IF (overlap_exists(p_ivev_rec.idx_id,
511: p_ivev_rec.datetime_valid,
512: p_ivev_rec.datetime_invalid) = OKL_API.G_TRUE )
513: AND (p_ivev_rec.ID = OKL_API.G_MISS_NUM) THEN
514:
515: l_error_flag := 'Y';
516: l_msg_text := 'OKL_DATE_RANGE_OVERLAP';
509:
510: IF (overlap_exists(p_ivev_rec.idx_id,
511: p_ivev_rec.datetime_valid,
512: p_ivev_rec.datetime_invalid) = OKL_API.G_TRUE )
513: AND (p_ivev_rec.ID = OKL_API.G_MISS_NUM) THEN
514:
515: l_error_flag := 'Y';
516: l_msg_text := 'OKL_DATE_RANGE_OVERLAP';
517:
527:
528:
529: IF (l_error_flag = 'N') THEN
530:
531: IF (l_ivev_rec_in.ID = OKL_API.G_MISS_NUM) OR
532: (l_ivev_rec_in.ID IS NULL) THEN
533:
534: OKL_INDICES_PUB.create_index_values(p_api_version => 1.0,
535: p_init_msg_list => l_init_msg_list,
551:
552:
553: ELSE
554:
555: l_return_status := OKL_API.G_RET_STS_ERROR;
556: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
557: p_msg_name => l_msg_text);
558:
559:
552:
553: ELSE
554:
555: l_return_status := OKL_API.G_RET_STS_ERROR;
556: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
557: p_msg_name => l_msg_text);
558:
559:
560: END IF;
577: IS
578:
579: l_api_version CONSTANT NUMBER := 1.0;
580: l_api_name CONSTANT VARCHAR2(40) := 'INT_DTL_INS_UPDT';
581: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
582: i NUMBER := 0;
583: l_msg_count NUMBER;
584: l_msg_data VARCHAR2(2000);
585: l_ivev_tbl ivev_tbl_type;
594:
595:
596: BEGIN
597:
598: x_return_status := OKL_API.G_RET_STS_SUCCESS;
599: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
600: G_PKG_NAME,
601: p_init_msg_list,
602: l_api_version,
595:
596: BEGIN
597:
598: x_return_status := OKL_API.G_RET_STS_SUCCESS;
599: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
600: G_PKG_NAME,
601: p_init_msg_list,
602: l_api_version,
603: p_api_version,
602: l_api_version,
603: p_api_version,
604: '_PVT',
605: x_return_status);
606: IF (l_return_status = OKL_Api.G_RET_STS_UNEXP_ERROR) THEN
607: RAISE OKL_Api.G_EXCEPTION_UNEXPECTED_ERROR;
608: ELSIF (l_return_status = OKL_Api.G_RET_STS_ERROR) THEN
609: RAISE OKL_Api.G_EXCEPTION_ERROR;
610: END IF;
603: p_api_version,
604: '_PVT',
605: x_return_status);
606: IF (l_return_status = OKL_Api.G_RET_STS_UNEXP_ERROR) THEN
607: RAISE OKL_Api.G_EXCEPTION_UNEXPECTED_ERROR;
608: ELSIF (l_return_status = OKL_Api.G_RET_STS_ERROR) THEN
609: RAISE OKL_Api.G_EXCEPTION_ERROR;
610: END IF;
611:
604: '_PVT',
605: x_return_status);
606: IF (l_return_status = OKL_Api.G_RET_STS_UNEXP_ERROR) THEN
607: RAISE OKL_Api.G_EXCEPTION_UNEXPECTED_ERROR;
608: ELSIF (l_return_status = OKL_Api.G_RET_STS_ERROR) THEN
609: RAISE OKL_Api.G_EXCEPTION_ERROR;
610: END IF;
611:
612: IF (p_ivev_tbl.COUNT > 0) THEN
605: x_return_status);
606: IF (l_return_status = OKL_Api.G_RET_STS_UNEXP_ERROR) THEN
607: RAISE OKL_Api.G_EXCEPTION_UNEXPECTED_ERROR;
608: ELSIF (l_return_status = OKL_Api.G_RET_STS_ERROR) THEN
609: RAISE OKL_Api.G_EXCEPTION_ERROR;
610: END IF;
611:
612: IF (p_ivev_tbl.COUNT > 0) THEN
613:
620: x_msg_count => l_msg_count,
621: x_msg_data => l_msg_data,
622: p_ivev_rec => p_ivev_tbl(i));
623:
624: IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
625: RAISE OKL_API.G_EXCEPTION_ERROR;
626: ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
627: RAISE OKL_API.G_EXCEPTION_ERROR;
628: END IF;
621: x_msg_data => l_msg_data,
622: p_ivev_rec => p_ivev_tbl(i));
623:
624: IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
625: RAISE OKL_API.G_EXCEPTION_ERROR;
626: ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
627: RAISE OKL_API.G_EXCEPTION_ERROR;
628: END IF;
629:
622: p_ivev_rec => p_ivev_tbl(i));
623:
624: IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
625: RAISE OKL_API.G_EXCEPTION_ERROR;
626: ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
627: RAISE OKL_API.G_EXCEPTION_ERROR;
628: END IF;
629:
630: EXIT WHEN (i = p_ivev_tbl.LAST);
623:
624: IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
625: RAISE OKL_API.G_EXCEPTION_ERROR;
626: ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
627: RAISE OKL_API.G_EXCEPTION_ERROR;
628: END IF;
629:
630: EXIT WHEN (i = p_ivev_tbl.LAST);
631:
649: LOOP
650: IF (l_ivev_tbl(j).datetime_invalid is not null) AND (j <> i) THEN
651: IF (l_ivev_tbl(i).datetime_invalid between l_ivev_tbl(j).datetime_valid AND
652: l_ivev_tbl(j).datetime_invalid) THEN
653: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
654: p_msg_name => 'OKL_DATE_RANGE_OVERLAP');
655: RAISE OKL_API.G_EXCEPTION_ERROR;
656: END IF;
657: ELSIF (l_ivev_tbl(j).datetime_invalid is NULL) AND (j <> i) THEN
651: IF (l_ivev_tbl(i).datetime_invalid between l_ivev_tbl(j).datetime_valid AND
652: l_ivev_tbl(j).datetime_invalid) THEN
653: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
654: p_msg_name => 'OKL_DATE_RANGE_OVERLAP');
655: RAISE OKL_API.G_EXCEPTION_ERROR;
656: END IF;
657: ELSIF (l_ivev_tbl(j).datetime_invalid is NULL) AND (j <> i) THEN
658: IF (l_ivev_tbl(i).datetime_invalid >= l_ivev_tbl(j).datetime_valid) THEN
659: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
655: RAISE OKL_API.G_EXCEPTION_ERROR;
656: END IF;
657: ELSIF (l_ivev_tbl(j).datetime_invalid is NULL) AND (j <> i) THEN
658: IF (l_ivev_tbl(i).datetime_invalid >= l_ivev_tbl(j).datetime_valid) THEN
659: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
660: p_msg_name => 'OKL_DATE_RANGE_OVERLAP');
661: RAISE OKL_API.G_EXCEPTION_ERROR;
662: END IF;
663: END IF;
657: ELSIF (l_ivev_tbl(j).datetime_invalid is NULL) AND (j <> i) THEN
658: IF (l_ivev_tbl(i).datetime_invalid >= l_ivev_tbl(j).datetime_valid) THEN
659: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
660: p_msg_name => 'OKL_DATE_RANGE_OVERLAP');
661: RAISE OKL_API.G_EXCEPTION_ERROR;
662: END IF;
663: END IF;
664:
665: END LOOP;
666: ELSE
667: FOR j IN 1..l_ivev_tbl.COUNT
668: LOOP
669: IF (l_ivev_tbl(j).datetime_invalid is NULL) and (j <> i) THEN
670: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
671: p_msg_name => 'OKL_DATE_RANGE_OVERLAP');
672: RAISE OKL_API.G_EXCEPTION_ERROR;
673: END IF;
674:
668: LOOP
669: IF (l_ivev_tbl(j).datetime_invalid is NULL) and (j <> i) THEN
670: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
671: p_msg_name => 'OKL_DATE_RANGE_OVERLAP');
672: RAISE OKL_API.G_EXCEPTION_ERROR;
673: END IF;
674:
675: END LOOP;
676: END IF;
677: END LOOP;
678:
679: END IF;
680:
681: OKL_Api.END_ACTIVITY(x_msg_count, x_msg_data);
682:
683:
684: EXCEPTION
685: WHEN OKL_Api.G_EXCEPTION_ERROR THEN
681: OKL_Api.END_ACTIVITY(x_msg_count, x_msg_data);
682:
683:
684: EXCEPTION
685: WHEN OKL_Api.G_EXCEPTION_ERROR THEN
686: x_return_status := OKL_Api.HANDLE_EXCEPTIONS
687: (
688: l_api_name,
689: G_PKG_NAME,
682:
683:
684: EXCEPTION
685: WHEN OKL_Api.G_EXCEPTION_ERROR THEN
686: x_return_status := OKL_Api.HANDLE_EXCEPTIONS
687: (
688: l_api_name,
689: G_PKG_NAME,
690: 'OKL_API.G_RET_STS_ERROR',
686: x_return_status := OKL_Api.HANDLE_EXCEPTIONS
687: (
688: l_api_name,
689: G_PKG_NAME,
690: 'OKL_API.G_RET_STS_ERROR',
691: x_msg_count,
692: x_msg_data,
693: '_PVT'
694: );
691: x_msg_count,
692: x_msg_data,
693: '_PVT'
694: );
695: WHEN OKL_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
696: x_return_status :=OKL_Api.HANDLE_EXCEPTIONS
697: (
698: l_api_name,
699: G_PKG_NAME,
692: x_msg_data,
693: '_PVT'
694: );
695: WHEN OKL_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
696: x_return_status :=OKL_Api.HANDLE_EXCEPTIONS
697: (
698: l_api_name,
699: G_PKG_NAME,
700: 'OKL_API.G_RET_STS_UNEXP_ERROR',
696: x_return_status :=OKL_Api.HANDLE_EXCEPTIONS
697: (
698: l_api_name,
699: G_PKG_NAME,
700: 'OKL_API.G_RET_STS_UNEXP_ERROR',
701: x_msg_count,
702: x_msg_data,
703: '_PVT'
704: );
702: x_msg_data,
703: '_PVT'
704: );
705: WHEN OTHERS THEN
706: x_return_status :=OKL_Api.HANDLE_EXCEPTIONS
707: (
708: l_api_name,
709: G_PKG_NAME,
710: 'OTHERS',