83:
84:
85: PROCEDURE Create_txl_asset_def(
86: p_api_version IN NUMBER,
87: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
88: x_return_status OUT NOCOPY VARCHAR2,
89: x_msg_count OUT NOCOPY NUMBER,
90: x_msg_data OUT NOCOPY VARCHAR2,
91: p_talv_rec IN tlvv_rec_type,
91: p_talv_rec IN tlvv_rec_type,
92: x_talv_rec OUT NOCOPY tlvv_rec_type)
93: IS
94: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_TRX_ASSETS_LINES';
95: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
96:
97: CURSOR header_curr_csr(p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
98: SELECT currency_code,
99: currency_conversion_type,
159:
160: BEGIN
161: -- Call start_activity to create savepoint, check compatibility
162: -- and initialize message list
163: l_return_status := OKC_API.START_ACTIVITY (l_api_name
164: ,p_init_msg_list
165: ,'_PVT'
166: ,x_return_status);
167: -- Check if activity started successfully
164: ,p_init_msg_list
165: ,'_PVT'
166: ,x_return_status);
167: -- Check if activity started successfully
168: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
169: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
170: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
171: RAISE OKC_API.G_EXCEPTION_ERROR;
172: END IF;
165: ,'_PVT'
166: ,x_return_status);
167: -- Check if activity started successfully
168: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
169: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
170: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
171: RAISE OKC_API.G_EXCEPTION_ERROR;
172: END IF;
173:
166: ,x_return_status);
167: -- Check if activity started successfully
168: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
169: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
170: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
171: RAISE OKC_API.G_EXCEPTION_ERROR;
172: END IF;
173:
174: l_talv_rec := p_talv_rec;
167: -- Check if activity started successfully
168: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
169: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
170: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
171: RAISE OKC_API.G_EXCEPTION_ERROR;
172: END IF;
173:
174: l_talv_rec := p_talv_rec;
175: --
257: x_msg_data,
258: l_talv_rec,
259: x_talv_rec);
260:
261: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
262: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
263: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
264: RAISE OKC_API.G_EXCEPTION_ERROR;
265: END IF;
258: l_talv_rec,
259: x_talv_rec);
260:
261: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
262: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
263: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
264: RAISE OKC_API.G_EXCEPTION_ERROR;
265: END IF;
266:
259: x_talv_rec);
260:
261: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
262: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
263: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
264: RAISE OKC_API.G_EXCEPTION_ERROR;
265: END IF;
266:
267: /*
260:
261: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
262: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
263: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
264: RAISE OKC_API.G_EXCEPTION_ERROR;
265: END IF;
266:
267: /*
268: * sjalasut: aug 18, 04 added code to enable business event. BEGIN
293: /*
294: * sjalasut: aug 18, 04 added code to enable business event. END
295: */
296:
297: OKC_API.END_ACTIVITY (x_msg_count
298: ,x_msg_data );
299: EXCEPTION
300: WHEN OKC_API.G_EXCEPTION_ERROR THEN
301: x_return_status := OKC_API.HANDLE_EXCEPTIONS
296:
297: OKC_API.END_ACTIVITY (x_msg_count
298: ,x_msg_data );
299: EXCEPTION
300: WHEN OKC_API.G_EXCEPTION_ERROR THEN
301: x_return_status := OKC_API.HANDLE_EXCEPTIONS
302: (l_api_name,
303: G_PKG_NAME,
304: 'OKC_API.G_RET_STS_ERROR',
297: OKC_API.END_ACTIVITY (x_msg_count
298: ,x_msg_data );
299: EXCEPTION
300: WHEN OKC_API.G_EXCEPTION_ERROR THEN
301: x_return_status := OKC_API.HANDLE_EXCEPTIONS
302: (l_api_name,
303: G_PKG_NAME,
304: 'OKC_API.G_RET_STS_ERROR',
305: x_msg_count,
300: WHEN OKC_API.G_EXCEPTION_ERROR THEN
301: x_return_status := OKC_API.HANDLE_EXCEPTIONS
302: (l_api_name,
303: G_PKG_NAME,
304: 'OKC_API.G_RET_STS_ERROR',
305: x_msg_count,
306: x_msg_data,
307: '_PVT');
308: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
304: 'OKC_API.G_RET_STS_ERROR',
305: x_msg_count,
306: x_msg_data,
307: '_PVT');
308: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
309: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
310: (l_api_name,
311: G_PKG_NAME,
312: 'OKC_API.G_RET_STS_UNEXP_ERROR',
305: x_msg_count,
306: x_msg_data,
307: '_PVT');
308: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
309: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
310: (l_api_name,
311: G_PKG_NAME,
312: 'OKC_API.G_RET_STS_UNEXP_ERROR',
313: x_msg_count,
308: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
309: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
310: (l_api_name,
311: G_PKG_NAME,
312: 'OKC_API.G_RET_STS_UNEXP_ERROR',
313: x_msg_count,
314: x_msg_data,
315: '_PVT');
316: WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
312: 'OKC_API.G_RET_STS_UNEXP_ERROR',
313: x_msg_count,
314: x_msg_data,
315: '_PVT');
316: WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
317: (l_api_name,
318: G_PKG_NAME,
319: 'OTHERS',
320: x_msg_count,
323: END Create_txl_asset_def;
324:
325: PROCEDURE Create_txl_asset_def(
326: p_api_version IN NUMBER,
327: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
328: x_return_status OUT NOCOPY VARCHAR2,
329: x_msg_count OUT NOCOPY NUMBER,
330: x_msg_data OUT NOCOPY VARCHAR2,
331: p_talv_tbl IN tlvv_tbl_type,
331: p_talv_tbl IN tlvv_tbl_type,
332: x_talv_tbl OUT NOCOPY tlvv_tbl_type)
333: IS
334: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_TRX_ASSETS_LINES';
335: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
336:
337: p NUMBER := 0;
338: i NUMBER := 0;
339: BEGIN
338: i NUMBER := 0;
339: BEGIN
340: -- Call start_activity to create savepoint, check compatibility
341: -- and initialize message list
342: l_return_status := OKC_API.START_ACTIVITY (l_api_name
343: ,p_init_msg_list
344: ,'_PVT'
345: , x_return_status);
346: -- Check if activity started successfully
343: ,p_init_msg_list
344: ,'_PVT'
345: , x_return_status);
346: -- Check if activity started successfully
347: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
348: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
349: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
350: RAISE OKC_API.G_EXCEPTION_ERROR;
351: END IF;
344: ,'_PVT'
345: , x_return_status);
346: -- Check if activity started successfully
347: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
348: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
349: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
350: RAISE OKC_API.G_EXCEPTION_ERROR;
351: END IF;
352:
345: , x_return_status);
346: -- Check if activity started successfully
347: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
348: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
349: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
350: RAISE OKC_API.G_EXCEPTION_ERROR;
351: END IF;
352:
353: IF (p_talv_tbl.COUNT > 0) THEN
346: -- Check if activity started successfully
347: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
348: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
349: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
350: RAISE OKC_API.G_EXCEPTION_ERROR;
351: END IF;
352:
353: IF (p_talv_tbl.COUNT > 0) THEN
354: i := p_talv_tbl.FIRST;
354: i := p_talv_tbl.FIRST;
355: LOOP
356: Create_txl_asset_def (
357: p_api_version => p_api_version,
358: p_init_msg_list => OKC_API.G_FALSE,
359: x_return_status => x_return_status,
360: x_msg_count => x_msg_count,
361: x_msg_data => x_msg_data,
362: p_talv_rec => p_talv_tbl(i),
376: p_talv_tbl,
377: x_talv_tbl);
378: */
379:
380: OKC_API.END_ACTIVITY (x_msg_count
381: ,x_msg_data );
382:
383: EXCEPTION
384: WHEN OKC_API.G_EXCEPTION_ERROR THEN
380: OKC_API.END_ACTIVITY (x_msg_count
381: ,x_msg_data );
382:
383: EXCEPTION
384: WHEN OKC_API.G_EXCEPTION_ERROR THEN
385: x_return_status := OKC_API.HANDLE_EXCEPTIONS
386: (l_api_name,
387: G_PKG_NAME,
388: 'OKC_API.G_RET_STS_ERROR',
381: ,x_msg_data );
382:
383: EXCEPTION
384: WHEN OKC_API.G_EXCEPTION_ERROR THEN
385: x_return_status := OKC_API.HANDLE_EXCEPTIONS
386: (l_api_name,
387: G_PKG_NAME,
388: 'OKC_API.G_RET_STS_ERROR',
389: x_msg_count,
384: WHEN OKC_API.G_EXCEPTION_ERROR THEN
385: x_return_status := OKC_API.HANDLE_EXCEPTIONS
386: (l_api_name,
387: G_PKG_NAME,
388: 'OKC_API.G_RET_STS_ERROR',
389: x_msg_count,
390: x_msg_data,
391: '_PVT');
392: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
388: 'OKC_API.G_RET_STS_ERROR',
389: x_msg_count,
390: x_msg_data,
391: '_PVT');
392: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
393: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
394: (l_api_name,
395: G_PKG_NAME,
396: 'OKC_API.G_RET_STS_UNEXP_ERROR',
389: x_msg_count,
390: x_msg_data,
391: '_PVT');
392: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
393: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
394: (l_api_name,
395: G_PKG_NAME,
396: 'OKC_API.G_RET_STS_UNEXP_ERROR',
397: x_msg_count,
392: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
393: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
394: (l_api_name,
395: G_PKG_NAME,
396: 'OKC_API.G_RET_STS_UNEXP_ERROR',
397: x_msg_count,
398: x_msg_data,
399: '_PVT');
400: WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
396: 'OKC_API.G_RET_STS_UNEXP_ERROR',
397: x_msg_count,
398: x_msg_data,
399: '_PVT');
400: WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
401: ( l_api_name,
402: G_PKG_NAME,
403: 'OTHERS',
404: x_msg_count,
407: END Create_txl_asset_def;
408:
409: PROCEDURE lock_txl_asset_def(
410: p_api_version IN NUMBER,
411: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
412: x_return_status OUT NOCOPY VARCHAR2,
413: x_msg_count OUT NOCOPY NUMBER,
414: x_msg_data OUT NOCOPY VARCHAR2,
415: p_talv_rec IN tlvv_rec_type)
414: x_msg_data OUT NOCOPY VARCHAR2,
415: p_talv_rec IN tlvv_rec_type)
416: IS
417: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_TRX_ASSETS_LINES';
418: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
419: BEGIN
420: -- Call start_activity to create savepoint, check compatibility
421: -- and initialize message list
422: l_return_status := OKC_API.START_ACTIVITY (l_api_name
418: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
419: BEGIN
420: -- Call start_activity to create savepoint, check compatibility
421: -- and initialize message list
422: l_return_status := OKC_API.START_ACTIVITY (l_api_name
423: ,p_init_msg_list
424: ,'_PVT'
425: ,x_return_status);
426: -- Check if activity started successfully
423: ,p_init_msg_list
424: ,'_PVT'
425: ,x_return_status);
426: -- Check if activity started successfully
427: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
428: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
429: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
430: RAISE OKC_API.G_EXCEPTION_ERROR;
431: END IF;
424: ,'_PVT'
425: ,x_return_status);
426: -- Check if activity started successfully
427: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
428: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
429: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
430: RAISE OKC_API.G_EXCEPTION_ERROR;
431: END IF;
432: -- evaluate conditions, build outcomes for true conditions and
425: ,x_return_status);
426: -- Check if activity started successfully
427: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
428: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
429: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
430: RAISE OKC_API.G_EXCEPTION_ERROR;
431: END IF;
432: -- evaluate conditions, build outcomes for true conditions and
433: -- put them on outcome queue
426: -- Check if activity started successfully
427: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
428: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
429: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
430: RAISE OKC_API.G_EXCEPTION_ERROR;
431: END IF;
432: -- evaluate conditions, build outcomes for true conditions and
433: -- put them on outcome queue
434: OKL_TAL_PVT.lock_row(p_api_version,
436: x_return_status,
437: x_msg_count,
438: x_msg_data,
439: p_talv_rec);
440: OKC_API.END_ACTIVITY (x_msg_count
441: ,x_msg_data );
442: EXCEPTION
443: WHEN OKC_API.G_EXCEPTION_ERROR THEN
444: x_return_status := OKC_API.HANDLE_EXCEPTIONS
439: p_talv_rec);
440: OKC_API.END_ACTIVITY (x_msg_count
441: ,x_msg_data );
442: EXCEPTION
443: WHEN OKC_API.G_EXCEPTION_ERROR THEN
444: x_return_status := OKC_API.HANDLE_EXCEPTIONS
445: (l_api_name,
446: G_PKG_NAME,
447: 'OKC_API.G_RET_STS_ERROR',
440: OKC_API.END_ACTIVITY (x_msg_count
441: ,x_msg_data );
442: EXCEPTION
443: WHEN OKC_API.G_EXCEPTION_ERROR THEN
444: x_return_status := OKC_API.HANDLE_EXCEPTIONS
445: (l_api_name,
446: G_PKG_NAME,
447: 'OKC_API.G_RET_STS_ERROR',
448: x_msg_count,
443: WHEN OKC_API.G_EXCEPTION_ERROR THEN
444: x_return_status := OKC_API.HANDLE_EXCEPTIONS
445: (l_api_name,
446: G_PKG_NAME,
447: 'OKC_API.G_RET_STS_ERROR',
448: x_msg_count,
449: x_msg_data,
450: '_PVT');
451: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
447: 'OKC_API.G_RET_STS_ERROR',
448: x_msg_count,
449: x_msg_data,
450: '_PVT');
451: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
452: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
453: (l_api_name,
454: G_PKG_NAME,
455: 'OKC_API.G_RET_STS_UNEXP_ERROR',
448: x_msg_count,
449: x_msg_data,
450: '_PVT');
451: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
452: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
453: (l_api_name,
454: G_PKG_NAME,
455: 'OKC_API.G_RET_STS_UNEXP_ERROR',
456: x_msg_count,
451: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
452: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
453: (l_api_name,
454: G_PKG_NAME,
455: 'OKC_API.G_RET_STS_UNEXP_ERROR',
456: x_msg_count,
457: x_msg_data,
458: '_PVT');
459: WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
455: 'OKC_API.G_RET_STS_UNEXP_ERROR',
456: x_msg_count,
457: x_msg_data,
458: '_PVT');
459: WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
460: (l_api_name,
461: G_PKG_NAME,
462: 'OTHERS',
463: x_msg_count,
466: END lock_txl_asset_def;
467:
468: PROCEDURE lock_txl_asset_def(
469: p_api_version IN NUMBER,
470: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
471: x_return_status OUT NOCOPY VARCHAR2,
472: x_msg_count OUT NOCOPY NUMBER,
473: x_msg_data OUT NOCOPY VARCHAR2,
474: p_talv_tbl IN tlvv_tbl_type)
473: x_msg_data OUT NOCOPY VARCHAR2,
474: p_talv_tbl IN tlvv_tbl_type)
475: IS
476: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_TRX_ASSETS_LINES';
477: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
478: BEGIN
479: -- Call start_activity to create savepoint, check compatibility
480: -- and initialize message list
481: l_return_status := OKC_API.START_ACTIVITY (l_api_name
477: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
478: BEGIN
479: -- Call start_activity to create savepoint, check compatibility
480: -- and initialize message list
481: l_return_status := OKC_API.START_ACTIVITY (l_api_name
482: ,p_init_msg_list
483: ,'_PVT'
484: ,x_return_status);
485: -- Check if activity started successfully
482: ,p_init_msg_list
483: ,'_PVT'
484: ,x_return_status);
485: -- Check if activity started successfully
486: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
487: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
488: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
489: RAISE OKC_API.G_EXCEPTION_ERROR;
490: END IF;
483: ,'_PVT'
484: ,x_return_status);
485: -- Check if activity started successfully
486: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
487: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
488: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
489: RAISE OKC_API.G_EXCEPTION_ERROR;
490: END IF;
491: -- evaluate conditions, build outcomes for true conditions and
484: ,x_return_status);
485: -- Check if activity started successfully
486: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
487: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
488: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
489: RAISE OKC_API.G_EXCEPTION_ERROR;
490: END IF;
491: -- evaluate conditions, build outcomes for true conditions and
492: -- put them on outcome queue
485: -- Check if activity started successfully
486: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
487: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
488: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
489: RAISE OKC_API.G_EXCEPTION_ERROR;
490: END IF;
491: -- evaluate conditions, build outcomes for true conditions and
492: -- put them on outcome queue
493: OKL_TAL_PVT.lock_row(p_api_version,
495: x_return_status,
496: x_msg_count,
497: x_msg_data,
498: p_talv_tbl);
499: OKC_API.END_ACTIVITY (x_msg_count
500: ,x_msg_data );
501: EXCEPTION
502: WHEN OKC_API.G_EXCEPTION_ERROR THEN
503: x_return_status := OKC_API.HANDLE_EXCEPTIONS
498: p_talv_tbl);
499: OKC_API.END_ACTIVITY (x_msg_count
500: ,x_msg_data );
501: EXCEPTION
502: WHEN OKC_API.G_EXCEPTION_ERROR THEN
503: x_return_status := OKC_API.HANDLE_EXCEPTIONS
504: (l_api_name,
505: G_PKG_NAME,
506: 'OKC_API.G_RET_STS_ERROR',
499: OKC_API.END_ACTIVITY (x_msg_count
500: ,x_msg_data );
501: EXCEPTION
502: WHEN OKC_API.G_EXCEPTION_ERROR THEN
503: x_return_status := OKC_API.HANDLE_EXCEPTIONS
504: (l_api_name,
505: G_PKG_NAME,
506: 'OKC_API.G_RET_STS_ERROR',
507: x_msg_count,
502: WHEN OKC_API.G_EXCEPTION_ERROR THEN
503: x_return_status := OKC_API.HANDLE_EXCEPTIONS
504: (l_api_name,
505: G_PKG_NAME,
506: 'OKC_API.G_RET_STS_ERROR',
507: x_msg_count,
508: x_msg_data,
509: '_PVT');
510: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
506: 'OKC_API.G_RET_STS_ERROR',
507: x_msg_count,
508: x_msg_data,
509: '_PVT');
510: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
511: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
512: (l_api_name,
513: G_PKG_NAME,
514: 'OKC_API.G_RET_STS_UNEXP_ERROR',
507: x_msg_count,
508: x_msg_data,
509: '_PVT');
510: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
511: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
512: (l_api_name,
513: G_PKG_NAME,
514: 'OKC_API.G_RET_STS_UNEXP_ERROR',
515: x_msg_count,
510: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
511: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
512: (l_api_name,
513: G_PKG_NAME,
514: 'OKC_API.G_RET_STS_UNEXP_ERROR',
515: x_msg_count,
516: x_msg_data,
517: '_PVT');
518: WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
514: 'OKC_API.G_RET_STS_UNEXP_ERROR',
515: x_msg_count,
516: x_msg_data,
517: '_PVT');
518: WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
519: (l_api_name,
520: G_PKG_NAME,
521: 'OTHERS',
522: x_msg_count,
525: END lock_txl_asset_def;
526:
527: PROCEDURE update_txl_asset_def(
528: p_api_version IN NUMBER,
529: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
530: x_return_status OUT NOCOPY VARCHAR2,
531: x_msg_count OUT NOCOPY NUMBER,
532: x_msg_data OUT NOCOPY VARCHAR2,
533: p_talv_rec IN tlvv_rec_type,
627: BEGIN
628: x_return_status := OKL_API.G_RET_STS_SUCCESS;
629: -- Call start_activity to create savepoint, check compatibility
630: -- and initialize message list
631: x_return_status := OKC_API.START_ACTIVITY (l_api_name
632: ,p_init_msg_list
633: ,'_PVT'
634: ,x_return_status);
635: -- Check if activity started successfully
632: ,p_init_msg_list
633: ,'_PVT'
634: ,x_return_status);
635: -- Check if activity started successfully
636: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
637: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
638: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
639: RAISE OKC_API.G_EXCEPTION_ERROR;
640: END IF;
633: ,'_PVT'
634: ,x_return_status);
635: -- Check if activity started successfully
636: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
637: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
638: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
639: RAISE OKC_API.G_EXCEPTION_ERROR;
640: END IF;
641:
634: ,x_return_status);
635: -- Check if activity started successfully
636: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
637: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
638: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
639: RAISE OKC_API.G_EXCEPTION_ERROR;
640: END IF;
641:
642: --Bug# 4959361
635: -- Check if activity started successfully
636: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
637: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
638: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
639: RAISE OKC_API.G_EXCEPTION_ERROR;
640: END IF;
641:
642: --Bug# 4959361
643: OKL_LLA_UTIL_PVT.check_line_update_allowed
738: --Bug# 3657624 End
739: --vthiruva..fix for business events..30-Dec-2004..Start
740: OPEN get_event_params(l_talv_rec.id);
741: IF get_event_params%NOTFOUND THEN
742: RAISE OKC_API.G_EXCEPTION_ERROR;
743: END IF;
744: FETCH get_event_params INTO l_contract_id, l_asset_id, l_old_book_code;
745: CLOSE get_event_params;
746: --vthiruva..fix for business events..30-Dec-2004..End
800: x_msg_data,
801: l_talv_rec,
802: x_talv_rec);
803:
804: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
805: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
806: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
807: RAISE OKC_API.G_EXCEPTION_ERROR;
808: END IF;
801: l_talv_rec,
802: x_talv_rec);
803:
804: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
805: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
806: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
807: RAISE OKC_API.G_EXCEPTION_ERROR;
808: END IF;
809:
802: x_talv_rec);
803:
804: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
805: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
806: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
807: RAISE OKC_API.G_EXCEPTION_ERROR;
808: END IF;
809:
810: IF x_talv_rec.tal_type in ('CFA','CIB','CRB','CRL','CRV','CSP','ALI') THEN
803:
804: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
805: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
806: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
807: RAISE OKC_API.G_EXCEPTION_ERROR;
808: END IF;
809:
810: IF x_talv_rec.tal_type in ('CFA','CIB','CRB','CRL','CRV','CSP','ALI') THEN
811: OPEN get_chr_id(x_talv_rec.kle_Id);
809:
810: IF x_talv_rec.tal_type in ('CFA','CIB','CRB','CRL','CRV','CSP','ALI') THEN
811: OPEN get_chr_id(x_talv_rec.kle_Id);
812: IF get_chr_id%NOTFOUND THEN
813: RAISE OKC_API.G_EXCEPTION_ERROR;
814: END IF;
815: FETCH get_chr_id INTO ln_chr_id;
816: CLOSE get_chr_id;
817: -- We need to change the status of the header whenever there is updating happening
826: x_msg_count => x_msg_count,
827: x_msg_data => x_msg_data,
828: p_chr_id => ln_chr_id);
829: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
830: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
831: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
832: RAISE OKC_API.G_EXCEPTION_ERROR;
833: END IF;
834: END IF;
828: p_chr_id => ln_chr_id);
829: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
830: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
831: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
832: RAISE OKC_API.G_EXCEPTION_ERROR;
833: END IF;
834: END IF;
835: END IF;
836:
856: END IF;
857: END IF;
858: --vthiruva..fix for business events..30-Dec-2004..end
859:
860: OKC_API.END_ACTIVITY (x_msg_count
861: ,x_msg_data );
862: EXCEPTION
863: WHEN OKC_API.G_EXCEPTION_ERROR THEN
864: x_return_status := OKC_API.HANDLE_EXCEPTIONS
859:
860: OKC_API.END_ACTIVITY (x_msg_count
861: ,x_msg_data );
862: EXCEPTION
863: WHEN OKC_API.G_EXCEPTION_ERROR THEN
864: x_return_status := OKC_API.HANDLE_EXCEPTIONS
865: (l_api_name,
866: G_PKG_NAME,
867: 'OKC_API.G_RET_STS_ERROR',
860: OKC_API.END_ACTIVITY (x_msg_count
861: ,x_msg_data );
862: EXCEPTION
863: WHEN OKC_API.G_EXCEPTION_ERROR THEN
864: x_return_status := OKC_API.HANDLE_EXCEPTIONS
865: (l_api_name,
866: G_PKG_NAME,
867: 'OKC_API.G_RET_STS_ERROR',
868: x_msg_count,
863: WHEN OKC_API.G_EXCEPTION_ERROR THEN
864: x_return_status := OKC_API.HANDLE_EXCEPTIONS
865: (l_api_name,
866: G_PKG_NAME,
867: 'OKC_API.G_RET_STS_ERROR',
868: x_msg_count,
869: x_msg_data,
870: '_PVT');
871: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
867: 'OKC_API.G_RET_STS_ERROR',
868: x_msg_count,
869: x_msg_data,
870: '_PVT');
871: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
872: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
873: (l_api_name,
874: G_PKG_NAME,
875: 'OKC_API.G_RET_STS_UNEXP_ERROR',
868: x_msg_count,
869: x_msg_data,
870: '_PVT');
871: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
872: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
873: (l_api_name,
874: G_PKG_NAME,
875: 'OKC_API.G_RET_STS_UNEXP_ERROR',
876: x_msg_count,
871: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
872: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
873: (l_api_name,
874: G_PKG_NAME,
875: 'OKC_API.G_RET_STS_UNEXP_ERROR',
876: x_msg_count,
877: x_msg_data,
878: '_PVT');
879: WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
875: 'OKC_API.G_RET_STS_UNEXP_ERROR',
876: x_msg_count,
877: x_msg_data,
878: '_PVT');
879: WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
880: (l_api_name,
881: G_PKG_NAME,
882: 'OTHERS',
883: x_msg_count,
886: END update_txl_asset_def;
887:
888: PROCEDURE update_txl_asset_def(
889: p_api_version IN NUMBER,
890: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
891: x_return_status OUT NOCOPY VARCHAR2,
892: x_msg_count OUT NOCOPY NUMBER,
893: x_msg_data OUT NOCOPY VARCHAR2,
894: p_talv_tbl IN tlvv_tbl_type,
894: p_talv_tbl IN tlvv_tbl_type,
895: x_talv_tbl OUT NOCOPY tlvv_tbl_type)
896: IS
897: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_TRX_ASSETS_LINES';
898: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
899:
900: p NUMBER := 0;
901:
902: BEGIN
901:
902: BEGIN
903: -- Call start_activity to create savepoint, check compatibility
904: -- and initialize message list
905: l_return_status := OKC_API.START_ACTIVITY (l_api_name
906: ,p_init_msg_list
907: ,'_PVT'
908: ,x_return_status);
909: -- Check if activity started successfully
906: ,p_init_msg_list
907: ,'_PVT'
908: ,x_return_status);
909: -- Check if activity started successfully
910: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
911: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
912: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
913: RAISE OKC_API.G_EXCEPTION_ERROR;
914: END IF;
907: ,'_PVT'
908: ,x_return_status);
909: -- Check if activity started successfully
910: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
911: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
912: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
913: RAISE OKC_API.G_EXCEPTION_ERROR;
914: END IF;
915:
908: ,x_return_status);
909: -- Check if activity started successfully
910: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
911: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
912: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
913: RAISE OKC_API.G_EXCEPTION_ERROR;
914: END IF;
915:
916: -- Modified by rravikir
909: -- Check if activity started successfully
910: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
911: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
912: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
913: RAISE OKC_API.G_EXCEPTION_ERROR;
914: END IF;
915:
916: -- Modified by rravikir
917: -- calling update_txl_asset_def record version to update records
952: x_msg_count,
953: x_msg_data,
954: p_talv_tbl,
955: x_talv_tbl);*/
956: OKC_API.END_ACTIVITY (x_msg_count
957: ,x_msg_data );
958: EXCEPTION
959: WHEN OKC_API.G_EXCEPTION_ERROR THEN
960: x_return_status := OKC_API.HANDLE_EXCEPTIONS
955: x_talv_tbl);*/
956: OKC_API.END_ACTIVITY (x_msg_count
957: ,x_msg_data );
958: EXCEPTION
959: WHEN OKC_API.G_EXCEPTION_ERROR THEN
960: x_return_status := OKC_API.HANDLE_EXCEPTIONS
961: (l_api_name,
962: G_PKG_NAME,
963: 'OKC_API.G_RET_STS_ERROR',
956: OKC_API.END_ACTIVITY (x_msg_count
957: ,x_msg_data );
958: EXCEPTION
959: WHEN OKC_API.G_EXCEPTION_ERROR THEN
960: x_return_status := OKC_API.HANDLE_EXCEPTIONS
961: (l_api_name,
962: G_PKG_NAME,
963: 'OKC_API.G_RET_STS_ERROR',
964: x_msg_count,
959: WHEN OKC_API.G_EXCEPTION_ERROR THEN
960: x_return_status := OKC_API.HANDLE_EXCEPTIONS
961: (l_api_name,
962: G_PKG_NAME,
963: 'OKC_API.G_RET_STS_ERROR',
964: x_msg_count,
965: x_msg_data,
966: '_PVT');
967: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
963: 'OKC_API.G_RET_STS_ERROR',
964: x_msg_count,
965: x_msg_data,
966: '_PVT');
967: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
968: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
969: (l_api_name,
970: G_PKG_NAME,
971: 'OKC_API.G_RET_STS_UNEXP_ERROR',
964: x_msg_count,
965: x_msg_data,
966: '_PVT');
967: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
968: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
969: (l_api_name,
970: G_PKG_NAME,
971: 'OKC_API.G_RET_STS_UNEXP_ERROR',
972: x_msg_count,
967: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
968: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
969: (l_api_name,
970: G_PKG_NAME,
971: 'OKC_API.G_RET_STS_UNEXP_ERROR',
972: x_msg_count,
973: x_msg_data,
974: '_PVT');
975: WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
971: 'OKC_API.G_RET_STS_UNEXP_ERROR',
972: x_msg_count,
973: x_msg_data,
974: '_PVT');
975: WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
976: (l_api_name,
977: G_PKG_NAME,
978: 'OTHERS',
979: x_msg_count,
982: END update_txl_asset_def;
983:
984: PROCEDURE delete_txl_asset_def(
985: p_api_version IN NUMBER,
986: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
987: x_return_status OUT NOCOPY VARCHAR2,
988: x_msg_count OUT NOCOPY NUMBER,
989: x_msg_data OUT NOCOPY VARCHAR2,
990: p_talv_rec IN tlvv_rec_type)
998: okl_txl_assets_b tal
999: WHERE tal.kle_id = cle.id
1000: AND tal.kle_id = p_kle_id;
1001: BEGIN
1002: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1003: -- Call start_activity to create savepoint, check compatibility
1004: -- and initialize message list
1005: x_return_status := OKC_API.START_ACTIVITY (l_api_name
1006: ,p_init_msg_list
1001: BEGIN
1002: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1003: -- Call start_activity to create savepoint, check compatibility
1004: -- and initialize message list
1005: x_return_status := OKC_API.START_ACTIVITY (l_api_name
1006: ,p_init_msg_list
1007: ,'_PVT'
1008: ,x_return_status);
1009: -- Check if activity started successfully
1006: ,p_init_msg_list
1007: ,'_PVT'
1008: ,x_return_status);
1009: -- Check if activity started successfully
1010: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1011: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1012: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1013: RAISE OKC_API.G_EXCEPTION_ERROR;
1014: END IF;
1007: ,'_PVT'
1008: ,x_return_status);
1009: -- Check if activity started successfully
1010: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1011: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1012: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1013: RAISE OKC_API.G_EXCEPTION_ERROR;
1014: END IF;
1015: -- evaluate conditions, build outcomes for true conditions and
1008: ,x_return_status);
1009: -- Check if activity started successfully
1010: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1011: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1012: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1013: RAISE OKC_API.G_EXCEPTION_ERROR;
1014: END IF;
1015: -- evaluate conditions, build outcomes for true conditions and
1016: -- put them on outcome queue
1009: -- Check if activity started successfully
1010: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1011: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1012: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1013: RAISE OKC_API.G_EXCEPTION_ERROR;
1014: END IF;
1015: -- evaluate conditions, build outcomes for true conditions and
1016: -- put them on outcome queue
1017: OKL_TAL_PVT.delete_row(p_api_version,
1019: x_return_status,
1020: x_msg_count,
1021: x_msg_data,
1022: p_talv_rec);
1023: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1024: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1025: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1026: RAISE OKC_API.G_EXCEPTION_ERROR;
1027: END IF;
1020: x_msg_count,
1021: x_msg_data,
1022: p_talv_rec);
1023: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1024: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1025: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1026: RAISE OKC_API.G_EXCEPTION_ERROR;
1027: END IF;
1028: IF p_talv_rec.tal_type in ('CFA','CIB','CRB','CRL','CRV','CSP','ALI') THEN
1021: x_msg_data,
1022: p_talv_rec);
1023: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1024: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1025: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1026: RAISE OKC_API.G_EXCEPTION_ERROR;
1027: END IF;
1028: IF p_talv_rec.tal_type in ('CFA','CIB','CRB','CRL','CRV','CSP','ALI') THEN
1029: OPEN get_chr_id(p_talv_rec.kle_Id);
1022: p_talv_rec);
1023: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1024: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1025: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1026: RAISE OKC_API.G_EXCEPTION_ERROR;
1027: END IF;
1028: IF p_talv_rec.tal_type in ('CFA','CIB','CRB','CRL','CRV','CSP','ALI') THEN
1029: OPEN get_chr_id(p_talv_rec.kle_Id);
1030: IF get_chr_id%NOTFOUND THEN
1027: END IF;
1028: IF p_talv_rec.tal_type in ('CFA','CIB','CRB','CRL','CRV','CSP','ALI') THEN
1029: OPEN get_chr_id(p_talv_rec.kle_Id);
1030: IF get_chr_id%NOTFOUND THEN
1031: RAISE OKC_API.G_EXCEPTION_ERROR;
1032: END IF;
1033: FETCH get_chr_id INTO ln_chr_id;
1034: CLOSE get_chr_id;
1035: -- We need to change the status of the header whenever there is updating happening
1044: x_msg_count => x_msg_count,
1045: x_msg_data => x_msg_data,
1046: p_chr_id => ln_chr_id);
1047: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1048: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1049: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1050: RAISE OKC_API.G_EXCEPTION_ERROR;
1051: END IF;
1052: END IF;
1046: p_chr_id => ln_chr_id);
1047: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1048: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1049: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1050: RAISE OKC_API.G_EXCEPTION_ERROR;
1051: END IF;
1052: END IF;
1053: END IF;
1054: OKC_API.END_ACTIVITY (x_msg_count
1050: RAISE OKC_API.G_EXCEPTION_ERROR;
1051: END IF;
1052: END IF;
1053: END IF;
1054: OKC_API.END_ACTIVITY (x_msg_count
1055: ,x_msg_data );
1056: EXCEPTION
1057: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1058: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1053: END IF;
1054: OKC_API.END_ACTIVITY (x_msg_count
1055: ,x_msg_data );
1056: EXCEPTION
1057: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1058: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1059: (l_api_name,
1060: G_PKG_NAME,
1061: 'OKC_API.G_RET_STS_ERROR',
1054: OKC_API.END_ACTIVITY (x_msg_count
1055: ,x_msg_data );
1056: EXCEPTION
1057: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1058: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1059: (l_api_name,
1060: G_PKG_NAME,
1061: 'OKC_API.G_RET_STS_ERROR',
1062: x_msg_count,
1057: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1058: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1059: (l_api_name,
1060: G_PKG_NAME,
1061: 'OKC_API.G_RET_STS_ERROR',
1062: x_msg_count,
1063: x_msg_data,
1064: '_PVT');
1065: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1061: 'OKC_API.G_RET_STS_ERROR',
1062: x_msg_count,
1063: x_msg_data,
1064: '_PVT');
1065: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1066: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1067: (l_api_name,
1068: G_PKG_NAME,
1069: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1062: x_msg_count,
1063: x_msg_data,
1064: '_PVT');
1065: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1066: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1067: (l_api_name,
1068: G_PKG_NAME,
1069: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1070: x_msg_count,
1065: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1066: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1067: (l_api_name,
1068: G_PKG_NAME,
1069: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1070: x_msg_count,
1071: x_msg_data,
1072: '_PVT');
1073: WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1069: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1070: x_msg_count,
1071: x_msg_data,
1072: '_PVT');
1073: WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1074: (l_api_name,
1075: G_PKG_NAME,
1076: 'OTHERS',
1077: x_msg_count,
1080: END delete_txl_asset_def;
1081:
1082: PROCEDURE delete_txl_asset_def(
1083: p_api_version IN NUMBER,
1084: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1085: x_return_status OUT NOCOPY VARCHAR2,
1086: x_msg_count OUT NOCOPY NUMBER,
1087: x_msg_data OUT NOCOPY VARCHAR2,
1088: p_talv_tbl IN tlvv_tbl_type)
1087: x_msg_data OUT NOCOPY VARCHAR2,
1088: p_talv_tbl IN tlvv_tbl_type)
1089: IS
1090: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_TRX_ASSETS_LINES';
1091: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1092: BEGIN
1093: -- Call start_activity to create savepoint, check compatibility
1094: -- and initialize message list
1095: l_return_status := OKC_API.START_ACTIVITY (l_api_name
1091: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1092: BEGIN
1093: -- Call start_activity to create savepoint, check compatibility
1094: -- and initialize message list
1095: l_return_status := OKC_API.START_ACTIVITY (l_api_name
1096: ,p_init_msg_list
1097: ,'_PVT'
1098: ,x_return_status);
1099: -- Check if activity started successfully
1096: ,p_init_msg_list
1097: ,'_PVT'
1098: ,x_return_status);
1099: -- Check if activity started successfully
1100: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1101: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1102: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1103: RAISE OKC_API.G_EXCEPTION_ERROR;
1104: END IF;
1097: ,'_PVT'
1098: ,x_return_status);
1099: -- Check if activity started successfully
1100: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1101: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1102: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1103: RAISE OKC_API.G_EXCEPTION_ERROR;
1104: END IF;
1105: -- evaluate conditions, build outcomes for true conditions and
1098: ,x_return_status);
1099: -- Check if activity started successfully
1100: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1101: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1102: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1103: RAISE OKC_API.G_EXCEPTION_ERROR;
1104: END IF;
1105: -- evaluate conditions, build outcomes for true conditions and
1106: -- put them on outcome queue
1099: -- Check if activity started successfully
1100: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1101: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1102: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1103: RAISE OKC_API.G_EXCEPTION_ERROR;
1104: END IF;
1105: -- evaluate conditions, build outcomes for true conditions and
1106: -- put them on outcome queue
1107: OKL_TAL_PVT.delete_row(p_api_version,
1109: x_return_status,
1110: x_msg_count,
1111: x_msg_data,
1112: p_talv_tbl);
1113: OKC_API.END_ACTIVITY (x_msg_count
1114: ,x_msg_data );
1115: EXCEPTION
1116: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1117: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1112: p_talv_tbl);
1113: OKC_API.END_ACTIVITY (x_msg_count
1114: ,x_msg_data );
1115: EXCEPTION
1116: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1117: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1118: (l_api_name,
1119: G_PKG_NAME,
1120: 'OKC_API.G_RET_STS_ERROR',
1113: OKC_API.END_ACTIVITY (x_msg_count
1114: ,x_msg_data );
1115: EXCEPTION
1116: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1117: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1118: (l_api_name,
1119: G_PKG_NAME,
1120: 'OKC_API.G_RET_STS_ERROR',
1121: x_msg_count,
1116: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1117: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1118: (l_api_name,
1119: G_PKG_NAME,
1120: 'OKC_API.G_RET_STS_ERROR',
1121: x_msg_count,
1122: x_msg_data,
1123: '_PVT');
1124: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1120: 'OKC_API.G_RET_STS_ERROR',
1121: x_msg_count,
1122: x_msg_data,
1123: '_PVT');
1124: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1125: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1126: (l_api_name,
1127: G_PKG_NAME,
1128: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1121: x_msg_count,
1122: x_msg_data,
1123: '_PVT');
1124: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1125: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1126: (l_api_name,
1127: G_PKG_NAME,
1128: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1129: x_msg_count,
1124: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1125: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1126: (l_api_name,
1127: G_PKG_NAME,
1128: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1129: x_msg_count,
1130: x_msg_data,
1131: '_PVT');
1132: WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1128: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1129: x_msg_count,
1130: x_msg_data,
1131: '_PVT');
1132: WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1133: (l_api_name,
1134: G_PKG_NAME,
1135: 'OTHERS',
1136: x_msg_count,
1139: END delete_txl_asset_def;
1140:
1141: PROCEDURE validate_txl_asset_def(
1142: p_api_version IN NUMBER,
1143: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1144: x_return_status OUT NOCOPY VARCHAR2,
1145: x_msg_count OUT NOCOPY NUMBER,
1146: x_msg_data OUT NOCOPY VARCHAR2,
1147: p_talv_rec IN tlvv_rec_type)
1146: x_msg_data OUT NOCOPY VARCHAR2,
1147: p_talv_rec IN tlvv_rec_type)
1148: IS
1149: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRX_ASSETS_LINES';
1150: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1151: BEGIN
1152: -- Call start_activity to create savepoint, check compatibility
1153: -- and initialize message list
1154: l_return_status := OKC_API.START_ACTIVITY (l_api_name
1150: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1151: BEGIN
1152: -- Call start_activity to create savepoint, check compatibility
1153: -- and initialize message list
1154: l_return_status := OKC_API.START_ACTIVITY (l_api_name
1155: ,p_init_msg_list
1156: ,'_PVT'
1157: ,x_return_status);
1158: -- Check if activity started successfully
1155: ,p_init_msg_list
1156: ,'_PVT'
1157: ,x_return_status);
1158: -- Check if activity started successfully
1159: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1160: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1161: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1162: RAISE OKC_API.G_EXCEPTION_ERROR;
1163: END IF;
1156: ,'_PVT'
1157: ,x_return_status);
1158: -- Check if activity started successfully
1159: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1160: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1161: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1162: RAISE OKC_API.G_EXCEPTION_ERROR;
1163: END IF;
1164: -- evaluate conditions, build outcomes for true conditions and
1157: ,x_return_status);
1158: -- Check if activity started successfully
1159: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1160: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1161: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1162: RAISE OKC_API.G_EXCEPTION_ERROR;
1163: END IF;
1164: -- evaluate conditions, build outcomes for true conditions and
1165: -- put them on outcome queue
1158: -- Check if activity started successfully
1159: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1160: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1161: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1162: RAISE OKC_API.G_EXCEPTION_ERROR;
1163: END IF;
1164: -- evaluate conditions, build outcomes for true conditions and
1165: -- put them on outcome queue
1166: OKL_TAL_PVT.validate_row(p_api_version,
1168: x_return_status,
1169: x_msg_count,
1170: x_msg_data,
1171: p_talv_rec);
1172: OKC_API.END_ACTIVITY (x_msg_count
1173: ,x_msg_data );
1174: EXCEPTION
1175: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1176: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1171: p_talv_rec);
1172: OKC_API.END_ACTIVITY (x_msg_count
1173: ,x_msg_data );
1174: EXCEPTION
1175: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1176: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1177: (l_api_name,
1178: G_PKG_NAME,
1179: 'OKC_API.G_RET_STS_ERROR',
1172: OKC_API.END_ACTIVITY (x_msg_count
1173: ,x_msg_data );
1174: EXCEPTION
1175: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1176: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1177: (l_api_name,
1178: G_PKG_NAME,
1179: 'OKC_API.G_RET_STS_ERROR',
1180: x_msg_count,
1175: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1176: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1177: (l_api_name,
1178: G_PKG_NAME,
1179: 'OKC_API.G_RET_STS_ERROR',
1180: x_msg_count,
1181: x_msg_data,
1182: '_PVT');
1183: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1179: 'OKC_API.G_RET_STS_ERROR',
1180: x_msg_count,
1181: x_msg_data,
1182: '_PVT');
1183: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1184: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1185: (l_api_name,
1186: G_PKG_NAME,
1187: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1180: x_msg_count,
1181: x_msg_data,
1182: '_PVT');
1183: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1184: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1185: (l_api_name,
1186: G_PKG_NAME,
1187: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1188: x_msg_count,
1183: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1184: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1185: (l_api_name,
1186: G_PKG_NAME,
1187: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1188: x_msg_count,
1189: x_msg_data,
1190: '_PVT');
1191: WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1187: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1188: x_msg_count,
1189: x_msg_data,
1190: '_PVT');
1191: WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1192: (l_api_name,
1193: G_PKG_NAME,
1194: 'OTHERS',
1195: x_msg_count,
1198: END validate_txl_asset_def;
1199:
1200: PROCEDURE validate_txl_asset_def(
1201: p_api_version IN NUMBER,
1202: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1203: x_return_status OUT NOCOPY VARCHAR2,
1204: x_msg_count OUT NOCOPY NUMBER,
1205: x_msg_data OUT NOCOPY VARCHAR2,
1206: p_talv_tbl IN tlvv_tbl_type)
1205: x_msg_data OUT NOCOPY VARCHAR2,
1206: p_talv_tbl IN tlvv_tbl_type)
1207: IS
1208: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRX_ASSETS_LINES';
1209: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1210: BEGIN
1211: -- Call start_activity to create savepoint, check compatibility
1212: -- and initialize message list
1213: l_return_status := OKC_API.START_ACTIVITY (l_api_name
1209: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1210: BEGIN
1211: -- Call start_activity to create savepoint, check compatibility
1212: -- and initialize message list
1213: l_return_status := OKC_API.START_ACTIVITY (l_api_name
1214: ,p_init_msg_list
1215: ,'_PVT'
1216: ,x_return_status);
1217: -- Check if activity started successfully
1214: ,p_init_msg_list
1215: ,'_PVT'
1216: ,x_return_status);
1217: -- Check if activity started successfully
1218: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1219: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1220: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1221: RAISE OKC_API.G_EXCEPTION_ERROR;
1222: END IF;
1215: ,'_PVT'
1216: ,x_return_status);
1217: -- Check if activity started successfully
1218: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1219: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1220: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1221: RAISE OKC_API.G_EXCEPTION_ERROR;
1222: END IF;
1223: -- evaluate conditions, build outcomes for true conditions and
1216: ,x_return_status);
1217: -- Check if activity started successfully
1218: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1219: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1220: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1221: RAISE OKC_API.G_EXCEPTION_ERROR;
1222: END IF;
1223: -- evaluate conditions, build outcomes for true conditions and
1224: -- put them on outcome queue
1217: -- Check if activity started successfully
1218: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1219: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1220: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1221: RAISE OKC_API.G_EXCEPTION_ERROR;
1222: END IF;
1223: -- evaluate conditions, build outcomes for true conditions and
1224: -- put them on outcome queue
1225: OKL_TAL_PVT.validate_row(p_api_version,
1227: x_return_status,
1228: x_msg_count,
1229: x_msg_data,
1230: p_talv_tbl);
1231: OKC_API.END_ACTIVITY (x_msg_count
1232: ,x_msg_data );
1233: EXCEPTION
1234: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1235: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1230: p_talv_tbl);
1231: OKC_API.END_ACTIVITY (x_msg_count
1232: ,x_msg_data );
1233: EXCEPTION
1234: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1235: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1236: (l_api_name,
1237: G_PKG_NAME,
1238: 'OKC_API.G_RET_STS_ERROR',
1231: OKC_API.END_ACTIVITY (x_msg_count
1232: ,x_msg_data );
1233: EXCEPTION
1234: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1235: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1236: (l_api_name,
1237: G_PKG_NAME,
1238: 'OKC_API.G_RET_STS_ERROR',
1239: x_msg_count,
1234: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1235: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1236: (l_api_name,
1237: G_PKG_NAME,
1238: 'OKC_API.G_RET_STS_ERROR',
1239: x_msg_count,
1240: x_msg_data,
1241: '_PVT');
1242: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1238: 'OKC_API.G_RET_STS_ERROR',
1239: x_msg_count,
1240: x_msg_data,
1241: '_PVT');
1242: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1243: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1244: (l_api_name,
1245: G_PKG_NAME,
1246: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1239: x_msg_count,
1240: x_msg_data,
1241: '_PVT');
1242: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1243: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1244: (l_api_name,
1245: G_PKG_NAME,
1246: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1247: x_msg_count,
1242: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1243: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1244: (l_api_name,
1245: G_PKG_NAME,
1246: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1247: x_msg_count,
1248: x_msg_data,
1249: '_PVT');
1250: WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1246: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1247: x_msg_count,
1248: x_msg_data,
1249: '_PVT');
1250: WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1251: (l_api_name,
1252: G_PKG_NAME,
1253: 'OTHERS',
1254: x_msg_count,