371: p_tcuv_rec IN tcuv_rec_type
372: ) RETURN tcuv_rec_type IS
373: l_tcuv_rec tcuv_rec_type := p_tcuv_rec;
374: BEGIN
375: IF (l_tcuv_rec.uom_code = OKC_API.G_MISS_CHAR) THEN
376: l_tcuv_rec.uom_code := NULL;
377: END IF;
378: IF (l_tcuv_rec.tce_code = OKC_API.G_MISS_CHAR) THEN
379: l_tcuv_rec.tce_code := NULL;
374: BEGIN
375: IF (l_tcuv_rec.uom_code = OKC_API.G_MISS_CHAR) THEN
376: l_tcuv_rec.uom_code := NULL;
377: END IF;
378: IF (l_tcuv_rec.tce_code = OKC_API.G_MISS_CHAR) THEN
379: l_tcuv_rec.tce_code := NULL;
380: END IF;
381: IF (l_tcuv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
382: l_tcuv_rec.object_version_number := NULL;
377: END IF;
378: IF (l_tcuv_rec.tce_code = OKC_API.G_MISS_CHAR) THEN
379: l_tcuv_rec.tce_code := NULL;
380: END IF;
381: IF (l_tcuv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
382: l_tcuv_rec.object_version_number := NULL;
383: END IF;
384: IF (l_tcuv_rec.sfwt_flag = OKC_API.G_MISS_CHAR) THEN
385: l_tcuv_rec.sfwt_flag := NULL;
380: END IF;
381: IF (l_tcuv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
382: l_tcuv_rec.object_version_number := NULL;
383: END IF;
384: IF (l_tcuv_rec.sfwt_flag = OKC_API.G_MISS_CHAR) THEN
385: l_tcuv_rec.sfwt_flag := NULL;
386: END IF;
387: IF (l_tcuv_rec.quantity = OKC_API.G_MISS_NUM) THEN
388: l_tcuv_rec.quantity := NULL;
383: END IF;
384: IF (l_tcuv_rec.sfwt_flag = OKC_API.G_MISS_CHAR) THEN
385: l_tcuv_rec.sfwt_flag := NULL;
386: END IF;
387: IF (l_tcuv_rec.quantity = OKC_API.G_MISS_NUM) THEN
388: l_tcuv_rec.quantity := NULL;
389: END IF;
390: IF (l_tcuv_rec.active_flag = OKC_API.G_MISS_CHAR) THEN
391: l_tcuv_rec.active_flag := NULL;
386: END IF;
387: IF (l_tcuv_rec.quantity = OKC_API.G_MISS_NUM) THEN
388: l_tcuv_rec.quantity := NULL;
389: END IF;
390: IF (l_tcuv_rec.active_flag = OKC_API.G_MISS_CHAR) THEN
391: l_tcuv_rec.active_flag := NULL;
392: END IF;
393: IF (l_tcuv_rec.short_description = OKC_API.G_MISS_CHAR) THEN
394: l_tcuv_rec.short_description := NULL;
389: END IF;
390: IF (l_tcuv_rec.active_flag = OKC_API.G_MISS_CHAR) THEN
391: l_tcuv_rec.active_flag := NULL;
392: END IF;
393: IF (l_tcuv_rec.short_description = OKC_API.G_MISS_CHAR) THEN
394: l_tcuv_rec.short_description := NULL;
395: END IF;
396: IF (l_tcuv_rec.description = OKC_API.G_MISS_CHAR) THEN
397: l_tcuv_rec.description := NULL;
392: END IF;
393: IF (l_tcuv_rec.short_description = OKC_API.G_MISS_CHAR) THEN
394: l_tcuv_rec.short_description := NULL;
395: END IF;
396: IF (l_tcuv_rec.description = OKC_API.G_MISS_CHAR) THEN
397: l_tcuv_rec.description := NULL;
398: END IF;
399: IF (l_tcuv_rec.comments = OKC_API.G_MISS_CHAR) THEN
400: l_tcuv_rec.comments := NULL;
395: END IF;
396: IF (l_tcuv_rec.description = OKC_API.G_MISS_CHAR) THEN
397: l_tcuv_rec.description := NULL;
398: END IF;
399: IF (l_tcuv_rec.comments = OKC_API.G_MISS_CHAR) THEN
400: l_tcuv_rec.comments := NULL;
401: END IF;
402: IF (l_tcuv_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
403: l_tcuv_rec.attribute_category := NULL;
398: END IF;
399: IF (l_tcuv_rec.comments = OKC_API.G_MISS_CHAR) THEN
400: l_tcuv_rec.comments := NULL;
401: END IF;
402: IF (l_tcuv_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
403: l_tcuv_rec.attribute_category := NULL;
404: END IF;
405: IF (l_tcuv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
406: l_tcuv_rec.attribute1 := NULL;
401: END IF;
402: IF (l_tcuv_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
403: l_tcuv_rec.attribute_category := NULL;
404: END IF;
405: IF (l_tcuv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
406: l_tcuv_rec.attribute1 := NULL;
407: END IF;
408: IF (l_tcuv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
409: l_tcuv_rec.attribute2 := NULL;
404: END IF;
405: IF (l_tcuv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
406: l_tcuv_rec.attribute1 := NULL;
407: END IF;
408: IF (l_tcuv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
409: l_tcuv_rec.attribute2 := NULL;
410: END IF;
411: IF (l_tcuv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
412: l_tcuv_rec.attribute3 := NULL;
407: END IF;
408: IF (l_tcuv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
409: l_tcuv_rec.attribute2 := NULL;
410: END IF;
411: IF (l_tcuv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
412: l_tcuv_rec.attribute3 := NULL;
413: END IF;
414: IF (l_tcuv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
415: l_tcuv_rec.attribute4 := NULL;
410: END IF;
411: IF (l_tcuv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
412: l_tcuv_rec.attribute3 := NULL;
413: END IF;
414: IF (l_tcuv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
415: l_tcuv_rec.attribute4 := NULL;
416: END IF;
417: IF (l_tcuv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
418: l_tcuv_rec.attribute5 := NULL;
413: END IF;
414: IF (l_tcuv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
415: l_tcuv_rec.attribute4 := NULL;
416: END IF;
417: IF (l_tcuv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
418: l_tcuv_rec.attribute5 := NULL;
419: END IF;
420: IF (l_tcuv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
421: l_tcuv_rec.attribute6 := NULL;
416: END IF;
417: IF (l_tcuv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
418: l_tcuv_rec.attribute5 := NULL;
419: END IF;
420: IF (l_tcuv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
421: l_tcuv_rec.attribute6 := NULL;
422: END IF;
423: IF (l_tcuv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
424: l_tcuv_rec.attribute7 := NULL;
419: END IF;
420: IF (l_tcuv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
421: l_tcuv_rec.attribute6 := NULL;
422: END IF;
423: IF (l_tcuv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
424: l_tcuv_rec.attribute7 := NULL;
425: END IF;
426: IF (l_tcuv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
427: l_tcuv_rec.attribute8 := NULL;
422: END IF;
423: IF (l_tcuv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
424: l_tcuv_rec.attribute7 := NULL;
425: END IF;
426: IF (l_tcuv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
427: l_tcuv_rec.attribute8 := NULL;
428: END IF;
429: IF (l_tcuv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
430: l_tcuv_rec.attribute9 := NULL;
425: END IF;
426: IF (l_tcuv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
427: l_tcuv_rec.attribute8 := NULL;
428: END IF;
429: IF (l_tcuv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
430: l_tcuv_rec.attribute9 := NULL;
431: END IF;
432: IF (l_tcuv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
433: l_tcuv_rec.attribute10 := NULL;
428: END IF;
429: IF (l_tcuv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
430: l_tcuv_rec.attribute9 := NULL;
431: END IF;
432: IF (l_tcuv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
433: l_tcuv_rec.attribute10 := NULL;
434: END IF;
435: IF (l_tcuv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
436: l_tcuv_rec.attribute11 := NULL;
431: END IF;
432: IF (l_tcuv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
433: l_tcuv_rec.attribute10 := NULL;
434: END IF;
435: IF (l_tcuv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
436: l_tcuv_rec.attribute11 := NULL;
437: END IF;
438: IF (l_tcuv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
439: l_tcuv_rec.attribute12 := NULL;
434: END IF;
435: IF (l_tcuv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
436: l_tcuv_rec.attribute11 := NULL;
437: END IF;
438: IF (l_tcuv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
439: l_tcuv_rec.attribute12 := NULL;
440: END IF;
441: IF (l_tcuv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
442: l_tcuv_rec.attribute13 := NULL;
437: END IF;
438: IF (l_tcuv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
439: l_tcuv_rec.attribute12 := NULL;
440: END IF;
441: IF (l_tcuv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
442: l_tcuv_rec.attribute13 := NULL;
443: END IF;
444: IF (l_tcuv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
445: l_tcuv_rec.attribute14 := NULL;
440: END IF;
441: IF (l_tcuv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
442: l_tcuv_rec.attribute13 := NULL;
443: END IF;
444: IF (l_tcuv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
445: l_tcuv_rec.attribute14 := NULL;
446: END IF;
447: IF (l_tcuv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
448: l_tcuv_rec.attribute15 := NULL;
443: END IF;
444: IF (l_tcuv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
445: l_tcuv_rec.attribute14 := NULL;
446: END IF;
447: IF (l_tcuv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
448: l_tcuv_rec.attribute15 := NULL;
449: END IF;
450: IF (l_tcuv_rec.created_by = OKC_API.G_MISS_NUM) THEN
451: l_tcuv_rec.created_by := NULL;
446: END IF;
447: IF (l_tcuv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
448: l_tcuv_rec.attribute15 := NULL;
449: END IF;
450: IF (l_tcuv_rec.created_by = OKC_API.G_MISS_NUM) THEN
451: l_tcuv_rec.created_by := NULL;
452: END IF;
453: IF (l_tcuv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
454: l_tcuv_rec.creation_date := NULL;
449: END IF;
450: IF (l_tcuv_rec.created_by = OKC_API.G_MISS_NUM) THEN
451: l_tcuv_rec.created_by := NULL;
452: END IF;
453: IF (l_tcuv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
454: l_tcuv_rec.creation_date := NULL;
455: END IF;
456: IF (l_tcuv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
457: l_tcuv_rec.last_updated_by := NULL;
452: END IF;
453: IF (l_tcuv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
454: l_tcuv_rec.creation_date := NULL;
455: END IF;
456: IF (l_tcuv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
457: l_tcuv_rec.last_updated_by := NULL;
458: END IF;
459: IF (l_tcuv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
460: l_tcuv_rec.last_update_date := NULL;
455: END IF;
456: IF (l_tcuv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
457: l_tcuv_rec.last_updated_by := NULL;
458: END IF;
459: IF (l_tcuv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
460: l_tcuv_rec.last_update_date := NULL;
461: END IF;
462: IF (l_tcuv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
463: l_tcuv_rec.last_update_login := NULL;
458: END IF;
459: IF (l_tcuv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
460: l_tcuv_rec.last_update_date := NULL;
461: END IF;
462: IF (l_tcuv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
463: l_tcuv_rec.last_update_login := NULL;
464: END IF;
465: RETURN(l_tcuv_rec);
466: END null_out_defaults;
498: AND (trunc(disable_date) > trunc(sysdate) or
499: disable_date is NULL);
500: l_uom_pk uom_pk_csr%ROWTYPE;
501: BEGIN
502: x_return_status := OKC_API.G_RET_STS_SUCCESS;
503: IF (p_tcuv_rec.uom_code IS NOT NULL AND
504: p_tcuv_rec.uom_code <> OKC_API.G_MISS_CHAR)
505: THEN
506: OPEN uom_pk_csr(p_tcuv_rec.uom_code);
500: l_uom_pk uom_pk_csr%ROWTYPE;
501: BEGIN
502: x_return_status := OKC_API.G_RET_STS_SUCCESS;
503: IF (p_tcuv_rec.uom_code IS NOT NULL AND
504: p_tcuv_rec.uom_code <> OKC_API.G_MISS_CHAR)
505: THEN
506: OPEN uom_pk_csr(p_tcuv_rec.uom_code);
507: FETCH uom_pk_csr INTO l_uom_pk;
508: l_row_notfound := uom_pk_csr%NOTFOUND;
507: FETCH uom_pk_csr INTO l_uom_pk;
508: l_row_notfound := uom_pk_csr%NOTFOUND;
509: CLOSE uom_pk_csr;
510: IF (l_row_notfound) THEN
511: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'uom_code');
512: RAISE item_not_found_error;
513: END IF;
514: ELSE
515: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'uom_code');
511: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'uom_code');
512: RAISE item_not_found_error;
513: END IF;
514: ELSE
515: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'uom_code');
516: x_return_status := OKC_API.G_RET_STS_ERROR;
517: END IF;
518: EXCEPTION
519: WHEN item_not_found_error THEN
512: RAISE item_not_found_error;
513: END IF;
514: ELSE
515: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'uom_code');
516: x_return_status := OKC_API.G_RET_STS_ERROR;
517: END IF;
518: EXCEPTION
519: WHEN item_not_found_error THEN
520: x_return_status := OKC_API.G_RET_STS_ERROR;
516: x_return_status := OKC_API.G_RET_STS_ERROR;
517: END IF;
518: EXCEPTION
519: WHEN item_not_found_error THEN
520: x_return_status := OKC_API.G_RET_STS_ERROR;
521: WHEN OTHERS THEN
522: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
523: p_msg_name => g_unexpected_error,
524: p_token1 => g_sqlcode_token,
518: EXCEPTION
519: WHEN item_not_found_error THEN
520: x_return_status := OKC_API.G_RET_STS_ERROR;
521: WHEN OTHERS THEN
522: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
523: p_msg_name => g_unexpected_error,
524: p_token1 => g_sqlcode_token,
525: p_token1_value => sqlcode,
526: p_token2 => g_col_name_token,
527: p_token2_value => 'uom_code',
528: p_token3 => g_sqlerrm_token,
529: p_token3_value => sqlerrm);
530: -- notify caller of an UNEXPECTED error
531: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
532: END Validate_uom_code ;
533:
534: PROCEDURE Validate_Tce_Code (
535: x_return_status OUT NOCOPY VARCHAR2,
535: x_return_status OUT NOCOPY VARCHAR2,
536: p_tcuv_rec IN tcuv_rec_type) IS
537: item_not_found_error EXCEPTION;
538: l_row_notfound BOOLEAN := TRUE;
539: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
540: BEGIN
541: x_return_status := OKC_API.G_RET_STS_SUCCESS;
542: IF (p_tcuv_rec.TCE_CODE IS NOT NULL AND
543: p_tcuv_rec.TCE_CODE <> OKC_API.G_MISS_CHAR)
537: item_not_found_error EXCEPTION;
538: l_row_notfound BOOLEAN := TRUE;
539: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
540: BEGIN
541: x_return_status := OKC_API.G_RET_STS_SUCCESS;
542: IF (p_tcuv_rec.TCE_CODE IS NOT NULL AND
543: p_tcuv_rec.TCE_CODE <> OKC_API.G_MISS_CHAR)
544: THEN
545: x_return_status := OKC_UTIL.CHECK_LOOKUP_CODE('OKC_TIME',p_tcuv_rec.TCE_CODE);
539: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
540: BEGIN
541: x_return_status := OKC_API.G_RET_STS_SUCCESS;
542: IF (p_tcuv_rec.TCE_CODE IS NOT NULL AND
543: p_tcuv_rec.TCE_CODE <> OKC_API.G_MISS_CHAR)
544: THEN
545: x_return_status := OKC_UTIL.CHECK_LOOKUP_CODE('OKC_TIME',p_tcuv_rec.TCE_CODE);
546: if x_return_status = OKC_API.G_RET_STS_ERROR
547: Then
542: IF (p_tcuv_rec.TCE_CODE IS NOT NULL AND
543: p_tcuv_rec.TCE_CODE <> OKC_API.G_MISS_CHAR)
544: THEN
545: x_return_status := OKC_UTIL.CHECK_LOOKUP_CODE('OKC_TIME',p_tcuv_rec.TCE_CODE);
546: if x_return_status = OKC_API.G_RET_STS_ERROR
547: Then
548: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'TCE_CODE');
549: end if;
550: ELSE
544: THEN
545: x_return_status := OKC_UTIL.CHECK_LOOKUP_CODE('OKC_TIME',p_tcuv_rec.TCE_CODE);
546: if x_return_status = OKC_API.G_RET_STS_ERROR
547: Then
548: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'TCE_CODE');
549: end if;
550: ELSE
551: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'tce_code');
552: x_return_status := OKC_API.G_RET_STS_ERROR;
547: Then
548: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'TCE_CODE');
549: end if;
550: ELSE
551: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'tce_code');
552: x_return_status := OKC_API.G_RET_STS_ERROR;
553: END IF;
554: EXCEPTION
555: WHEN item_not_found_error THEN
548: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'TCE_CODE');
549: end if;
550: ELSE
551: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'tce_code');
552: x_return_status := OKC_API.G_RET_STS_ERROR;
553: END IF;
554: EXCEPTION
555: WHEN item_not_found_error THEN
556: x_return_status := OKC_API.G_RET_STS_ERROR;
552: x_return_status := OKC_API.G_RET_STS_ERROR;
553: END IF;
554: EXCEPTION
555: WHEN item_not_found_error THEN
556: x_return_status := OKC_API.G_RET_STS_ERROR;
557: WHEN OTHERS THEN
558: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
559: p_msg_name => g_unexpected_error,
560: p_token1 => g_sqlcode_token,
554: EXCEPTION
555: WHEN item_not_found_error THEN
556: x_return_status := OKC_API.G_RET_STS_ERROR;
557: WHEN OTHERS THEN
558: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
559: p_msg_name => g_unexpected_error,
560: p_token1 => g_sqlcode_token,
561: p_token1_value => sqlcode,
562: p_token2 => g_col_name_token,
563: p_token2_value => 'TCE_CODE',
564: p_token3 => g_sqlerrm_token,
565: p_token3_value => sqlerrm);
566: -- notify caller of an UNEXPECTED error
567: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
568: END Validate_Tce_Code ;
569:
570: PROCEDURE Validate_SFWT_Flag (
571: x_return_status OUT NOCOPY VARCHAR2,
576: THEN
577: IF p_tcuv_rec.sfwt_flag = 'Y' OR
578: p_tcuv_rec.sfwt_flag = 'N'
579: THEN
580: x_return_status := OKC_API.G_RET_STS_SUCCESS;
581: ELSE
582: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'SFWT_FLAG');
583: x_return_status := OKC_API.G_RET_STS_ERROR;
584: END IF;
578: p_tcuv_rec.sfwt_flag = 'N'
579: THEN
580: x_return_status := OKC_API.G_RET_STS_SUCCESS;
581: ELSE
582: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'SFWT_FLAG');
583: x_return_status := OKC_API.G_RET_STS_ERROR;
584: END IF;
585: ELSE
586: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SFWT_FLAG');
579: THEN
580: x_return_status := OKC_API.G_RET_STS_SUCCESS;
581: ELSE
582: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'SFWT_FLAG');
583: x_return_status := OKC_API.G_RET_STS_ERROR;
584: END IF;
585: ELSE
586: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SFWT_FLAG');
587: x_return_status := OKC_API.G_RET_STS_ERROR;
582: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'SFWT_FLAG');
583: x_return_status := OKC_API.G_RET_STS_ERROR;
584: END IF;
585: ELSE
586: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SFWT_FLAG');
587: x_return_status := OKC_API.G_RET_STS_ERROR;
588: END IF;
589: END Validate_SFWT_Flag;
590:
583: x_return_status := OKC_API.G_RET_STS_ERROR;
584: END IF;
585: ELSE
586: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SFWT_FLAG');
587: x_return_status := OKC_API.G_RET_STS_ERROR;
588: END IF;
589: END Validate_SFWT_Flag;
590:
591: PROCEDURE Validate_Active_Flag (
597: THEN
598: IF p_tcuv_rec.active_flag = 'Y' OR
599: p_tcuv_rec.active_flag = 'N'
600: THEN
601: x_return_status := OKC_API.G_RET_STS_SUCCESS;
602: ELSE
603: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'ACTIVE_FLAG');
604: x_return_status := OKC_API.G_RET_STS_ERROR;
605: END IF;
599: p_tcuv_rec.active_flag = 'N'
600: THEN
601: x_return_status := OKC_API.G_RET_STS_SUCCESS;
602: ELSE
603: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'ACTIVE_FLAG');
604: x_return_status := OKC_API.G_RET_STS_ERROR;
605: END IF;
606: -- ELSE
607: -- OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'ACTIVE_FLAG');
600: THEN
601: x_return_status := OKC_API.G_RET_STS_SUCCESS;
602: ELSE
603: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'ACTIVE_FLAG');
604: x_return_status := OKC_API.G_RET_STS_ERROR;
605: END IF;
606: -- ELSE
607: -- OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'ACTIVE_FLAG');
608: -- x_return_status := OKC_API.G_RET_STS_ERROR;
603: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'ACTIVE_FLAG');
604: x_return_status := OKC_API.G_RET_STS_ERROR;
605: END IF;
606: -- ELSE
607: -- OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'ACTIVE_FLAG');
608: -- x_return_status := OKC_API.G_RET_STS_ERROR;
609: END IF;
610: EXCEPTION
611: WHEN OTHERS THEN
604: x_return_status := OKC_API.G_RET_STS_ERROR;
605: END IF;
606: -- ELSE
607: -- OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'ACTIVE_FLAG');
608: -- x_return_status := OKC_API.G_RET_STS_ERROR;
609: END IF;
610: EXCEPTION
611: WHEN OTHERS THEN
612: -- store SQL error message on message stack for caller
609: END IF;
610: EXCEPTION
611: WHEN OTHERS THEN
612: -- store SQL error message on message stack for caller
613: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
614: p_msg_name => g_unexpected_error,
615: p_token1 => g_sqlcode_token,
616: p_token1_value => sqlcode,
617: p_token2 => g_col_name_token,
618: p_token2_value => 'Active_Flag',
619: p_token3 => g_sqlerrm_token,
620: p_token3_value => sqlerrm);
621: -- notify caller of an UNEXPECTED error
622: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
623:
624: END Validate_Active_Flag;
625:
626: ---------------------------------------------------
628: ---------------------------------------------------
629: FUNCTION Validate_Attributes (
630: p_tcuv_rec IN tcuv_rec_type
631: ) RETURN VARCHAR2 IS
632: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
633: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
634: BEGIN
635: IF p_tcuv_rec.object_version_number = OKC_API.G_MISS_NUM OR
636: p_tcuv_rec.object_version_number IS NULL
629: FUNCTION Validate_Attributes (
630: p_tcuv_rec IN tcuv_rec_type
631: ) RETURN VARCHAR2 IS
632: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
633: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
634: BEGIN
635: IF p_tcuv_rec.object_version_number = OKC_API.G_MISS_NUM OR
636: p_tcuv_rec.object_version_number IS NULL
637: THEN
631: ) RETURN VARCHAR2 IS
632: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
633: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
634: BEGIN
635: IF p_tcuv_rec.object_version_number = OKC_API.G_MISS_NUM OR
636: p_tcuv_rec.object_version_number IS NULL
637: THEN
638: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
639: x_return_status := OKC_API.G_RET_STS_ERROR;
634: BEGIN
635: IF p_tcuv_rec.object_version_number = OKC_API.G_MISS_NUM OR
636: p_tcuv_rec.object_version_number IS NULL
637: THEN
638: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
639: x_return_status := OKC_API.G_RET_STS_ERROR;
640: END IF;
641: IF p_tcuv_rec.quantity = OKC_API.G_MISS_NUM OR
642: p_tcuv_rec.quantity IS NULL
635: IF p_tcuv_rec.object_version_number = OKC_API.G_MISS_NUM OR
636: p_tcuv_rec.object_version_number IS NULL
637: THEN
638: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
639: x_return_status := OKC_API.G_RET_STS_ERROR;
640: END IF;
641: IF p_tcuv_rec.quantity = OKC_API.G_MISS_NUM OR
642: p_tcuv_rec.quantity IS NULL
643: THEN
637: THEN
638: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
639: x_return_status := OKC_API.G_RET_STS_ERROR;
640: END IF;
641: IF p_tcuv_rec.quantity = OKC_API.G_MISS_NUM OR
642: p_tcuv_rec.quantity IS NULL
643: THEN
644: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'quantity');
645: x_return_status := OKC_API.G_RET_STS_ERROR;
640: END IF;
641: IF p_tcuv_rec.quantity = OKC_API.G_MISS_NUM OR
642: p_tcuv_rec.quantity IS NULL
643: THEN
644: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'quantity');
645: x_return_status := OKC_API.G_RET_STS_ERROR;
646: END IF;
647: Validate_uom_code (l_return_status,
648: p_tcuv_rec);
641: IF p_tcuv_rec.quantity = OKC_API.G_MISS_NUM OR
642: p_tcuv_rec.quantity IS NULL
643: THEN
644: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'quantity');
645: x_return_status := OKC_API.G_RET_STS_ERROR;
646: END IF;
647: Validate_uom_code (l_return_status,
648: p_tcuv_rec);
649: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
645: x_return_status := OKC_API.G_RET_STS_ERROR;
646: END IF;
647: Validate_uom_code (l_return_status,
648: p_tcuv_rec);
649: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
650: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
651: x_return_status := l_return_status;
652: RAISE G_EXCEPTION_HALT_VALIDATION;
653: ELSE
646: END IF;
647: Validate_uom_code (l_return_status,
648: p_tcuv_rec);
649: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
650: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
651: x_return_status := l_return_status;
652: RAISE G_EXCEPTION_HALT_VALIDATION;
653: ELSE
654: x_return_status := l_return_status; -- record that there was an error
655: END IF;
656: END IF;
657: Validate_Tce_Code (l_return_status,
658: p_tcuv_rec);
659: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
660: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
661: x_return_status := l_return_status;
662: RAISE G_EXCEPTION_HALT_VALIDATION;
663: ELSE
656: END IF;
657: Validate_Tce_Code (l_return_status,
658: p_tcuv_rec);
659: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
660: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
661: x_return_status := l_return_status;
662: RAISE G_EXCEPTION_HALT_VALIDATION;
663: ELSE
664: x_return_status := l_return_status; -- record that there was an error
665: END IF;
666: END IF;
667: Validate_Active_Flag (l_return_status,
668: p_tcuv_rec);
669: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
670: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
671: x_return_status := l_return_status;
672: RAISE G_EXCEPTION_HALT_VALIDATION;
673: ELSE
666: END IF;
667: Validate_Active_Flag (l_return_status,
668: p_tcuv_rec);
669: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
670: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
671: x_return_status := l_return_status;
672: RAISE G_EXCEPTION_HALT_VALIDATION;
673: ELSE
674: x_return_status := l_return_status; -- record that there was an error
686: FUNCTION Validate_Record (
687: p_tcuv_rec IN tcuv_rec_type
688: ) RETURN VARCHAR2 IS
689: --l_col_tbl okc_util.unq_tbl_type;
690: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
691: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
692: l_dummy VARCHAR2(1);
693: l_row_found Boolean := False;
694: Cursor c1(p_tce_code okc_time_code_units_v.tce_code%TYPE,
687: p_tcuv_rec IN tcuv_rec_type
688: ) RETURN VARCHAR2 IS
689: --l_col_tbl okc_util.unq_tbl_type;
690: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
691: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
692: l_dummy VARCHAR2(1);
693: l_row_found Boolean := False;
694: Cursor c1(p_tce_code okc_time_code_units_v.tce_code%TYPE,
695: p_uom_code okc_time_code_units_v.uom_code%TYPE) is
717: l_col_tbl(2).p_col_val := p_tcuv_rec.uom_code;
718: OKC_UTIL.check_comp_unique('OKC_TIME_CODE_UNITS_V',
719: l_col_tbl,
720: l_return_status);
721: if l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
722: return (l_return_status);
723: end if;*/
724: OPEN c1(p_tcuv_rec.tce_code,
725: p_tcuv_rec.uom_code);
726: FETCH c1 into l_dummy;
727: l_row_found := c1%FOUND;
728: CLOSE c1;
729: IF l_row_found THEN
730: --OKC_API.set_message(G_APP_NAME, G_UNQS, G_COL_NAME_TOKEN1, 'uom_code', G_COL_NAME_TOKEN2, 'tce_code');
731: OKC_API.set_message(G_APP_NAME, G_UNQS1);
732: l_return_status := OKC_API.G_RET_STS_ERROR;
733: RETURN (l_return_status);
734: END IF;
727: l_row_found := c1%FOUND;
728: CLOSE c1;
729: IF l_row_found THEN
730: --OKC_API.set_message(G_APP_NAME, G_UNQS, G_COL_NAME_TOKEN1, 'uom_code', G_COL_NAME_TOKEN2, 'tce_code');
731: OKC_API.set_message(G_APP_NAME, G_UNQS1);
732: l_return_status := OKC_API.G_RET_STS_ERROR;
733: RETURN (l_return_status);
734: END IF;
735: END IF;
728: CLOSE c1;
729: IF l_row_found THEN
730: --OKC_API.set_message(G_APP_NAME, G_UNQS, G_COL_NAME_TOKEN1, 'uom_code', G_COL_NAME_TOKEN2, 'tce_code');
731: OKC_API.set_message(G_APP_NAME, G_UNQS1);
732: l_return_status := OKC_API.G_RET_STS_ERROR;
733: RETURN (l_return_status);
734: END IF;
735: END IF;
736: IF (G_QUANTITY <> p_tcuv_rec.quantity) OR
750: FETCH c2 into l_dummy;
751: l_row_found := c2%FOUND;
752: CLOSE c2;
753: IF l_row_found THEN
754: --OKC_API.set_message(G_APP_NAME, G_UNQS, 'COL_NAME1', p_tcuv_rec.uom_code, 'COL_NAME2',p_tcuv_rec.quantity);
755: OKC_API.set_message(G_APP_NAME, G_UNQS2);
756: l_return_status := OKC_API.G_RET_STS_ERROR;
757: RETURN (l_return_status);
758: END IF;
751: l_row_found := c2%FOUND;
752: CLOSE c2;
753: IF l_row_found THEN
754: --OKC_API.set_message(G_APP_NAME, G_UNQS, 'COL_NAME1', p_tcuv_rec.uom_code, 'COL_NAME2',p_tcuv_rec.quantity);
755: OKC_API.set_message(G_APP_NAME, G_UNQS2);
756: l_return_status := OKC_API.G_RET_STS_ERROR;
757: RETURN (l_return_status);
758: END IF;
759:
752: CLOSE c2;
753: IF l_row_found THEN
754: --OKC_API.set_message(G_APP_NAME, G_UNQS, 'COL_NAME1', p_tcuv_rec.uom_code, 'COL_NAME2',p_tcuv_rec.quantity);
755: OKC_API.set_message(G_APP_NAME, G_UNQS2);
756: l_return_status := OKC_API.G_RET_STS_ERROR;
757: RETURN (l_return_status);
758: END IF;
759:
760: END IF;
880: p_tcuv_rec IN tcuv_rec_type) IS
881:
882: l_api_version CONSTANT NUMBER := 1;
883: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
884: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
885: l_tcuv_rec tcuv_rec_type := p_tcuv_rec;
886: l_tcu_rec tcu_rec_type;
887: l_okc_time_code_units_tl_rec OkcTimeCodeUnitsTlRecType;
888: BEGIN
885: l_tcuv_rec tcuv_rec_type := p_tcuv_rec;
886: l_tcu_rec tcu_rec_type;
887: l_okc_time_code_units_tl_rec OkcTimeCodeUnitsTlRecType;
888: BEGIN
889: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
890: G_PKG_NAME,
891: p_init_msg_list,
892: l_api_version,
893: p_api_version,
892: l_api_version,
893: p_api_version,
894: '_PVT',
895: x_return_status);
896: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
897: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
898: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
899: RAISE OKC_API.G_EXCEPTION_ERROR;
900: END IF;
893: p_api_version,
894: '_PVT',
895: x_return_status);
896: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
897: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
898: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
899: RAISE OKC_API.G_EXCEPTION_ERROR;
900: END IF;
901: --- Validate all non-missing attributes (Item Level Validation)
894: '_PVT',
895: x_return_status);
896: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
897: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
898: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
899: RAISE OKC_API.G_EXCEPTION_ERROR;
900: END IF;
901: --- Validate all non-missing attributes (Item Level Validation)
902: l_return_status := Validate_Attributes(l_tcuv_rec);
895: x_return_status);
896: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
897: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
898: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
899: RAISE OKC_API.G_EXCEPTION_ERROR;
900: END IF;
901: --- Validate all non-missing attributes (Item Level Validation)
902: l_return_status := Validate_Attributes(l_tcuv_rec);
903: --- If any errors happen abort API
900: END IF;
901: --- Validate all non-missing attributes (Item Level Validation)
902: l_return_status := Validate_Attributes(l_tcuv_rec);
903: --- If any errors happen abort API
904: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
905: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
906: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
907: RAISE OKC_API.G_EXCEPTION_ERROR;
908: END IF;
901: --- Validate all non-missing attributes (Item Level Validation)
902: l_return_status := Validate_Attributes(l_tcuv_rec);
903: --- If any errors happen abort API
904: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
905: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
906: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
907: RAISE OKC_API.G_EXCEPTION_ERROR;
908: END IF;
909: l_return_status := Validate_Record(l_tcuv_rec);
902: l_return_status := Validate_Attributes(l_tcuv_rec);
903: --- If any errors happen abort API
904: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
905: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
906: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
907: RAISE OKC_API.G_EXCEPTION_ERROR;
908: END IF;
909: l_return_status := Validate_Record(l_tcuv_rec);
910: G_QUANTITY := OKC_API.G_MISS_NUM;
903: --- If any errors happen abort API
904: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
905: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
906: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
907: RAISE OKC_API.G_EXCEPTION_ERROR;
908: END IF;
909: l_return_status := Validate_Record(l_tcuv_rec);
910: G_QUANTITY := OKC_API.G_MISS_NUM;
911: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
906: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
907: RAISE OKC_API.G_EXCEPTION_ERROR;
908: END IF;
909: l_return_status := Validate_Record(l_tcuv_rec);
910: G_QUANTITY := OKC_API.G_MISS_NUM;
911: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
912: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
913: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
914: RAISE OKC_API.G_EXCEPTION_ERROR;
907: RAISE OKC_API.G_EXCEPTION_ERROR;
908: END IF;
909: l_return_status := Validate_Record(l_tcuv_rec);
910: G_QUANTITY := OKC_API.G_MISS_NUM;
911: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
912: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
913: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
914: RAISE OKC_API.G_EXCEPTION_ERROR;
915: END IF;
908: END IF;
909: l_return_status := Validate_Record(l_tcuv_rec);
910: G_QUANTITY := OKC_API.G_MISS_NUM;
911: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
912: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
913: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
914: RAISE OKC_API.G_EXCEPTION_ERROR;
915: END IF;
916: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
909: l_return_status := Validate_Record(l_tcuv_rec);
910: G_QUANTITY := OKC_API.G_MISS_NUM;
911: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
912: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
913: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
914: RAISE OKC_API.G_EXCEPTION_ERROR;
915: END IF;
916: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
917: EXCEPTION
910: G_QUANTITY := OKC_API.G_MISS_NUM;
911: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
912: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
913: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
914: RAISE OKC_API.G_EXCEPTION_ERROR;
915: END IF;
916: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
917: EXCEPTION
918: WHEN OKC_API.G_EXCEPTION_ERROR THEN
912: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
913: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
914: RAISE OKC_API.G_EXCEPTION_ERROR;
915: END IF;
916: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
917: EXCEPTION
918: WHEN OKC_API.G_EXCEPTION_ERROR THEN
919: x_return_status := OKC_API.HANDLE_EXCEPTIONS
920: (
914: RAISE OKC_API.G_EXCEPTION_ERROR;
915: END IF;
916: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
917: EXCEPTION
918: WHEN OKC_API.G_EXCEPTION_ERROR THEN
919: x_return_status := OKC_API.HANDLE_EXCEPTIONS
920: (
921: l_api_name,
922: G_PKG_NAME,
915: END IF;
916: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
917: EXCEPTION
918: WHEN OKC_API.G_EXCEPTION_ERROR THEN
919: x_return_status := OKC_API.HANDLE_EXCEPTIONS
920: (
921: l_api_name,
922: G_PKG_NAME,
923: 'OKC_API.G_RET_STS_ERROR',
919: x_return_status := OKC_API.HANDLE_EXCEPTIONS
920: (
921: l_api_name,
922: G_PKG_NAME,
923: 'OKC_API.G_RET_STS_ERROR',
924: x_msg_count,
925: x_msg_data,
926: '_PVT'
927: );
924: x_msg_count,
925: x_msg_data,
926: '_PVT'
927: );
928: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
929: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
930: (
931: l_api_name,
932: G_PKG_NAME,
925: x_msg_data,
926: '_PVT'
927: );
928: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
929: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
930: (
931: l_api_name,
932: G_PKG_NAME,
933: 'OKC_API.G_RET_STS_UNEXP_ERROR',
929: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
930: (
931: l_api_name,
932: G_PKG_NAME,
933: 'OKC_API.G_RET_STS_UNEXP_ERROR',
934: x_msg_count,
935: x_msg_data,
936: '_PVT'
937: );
935: x_msg_data,
936: '_PVT'
937: );
938: WHEN OTHERS THEN
939: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
940: (
941: l_api_name,
942: G_PKG_NAME,
943: 'OTHERS',
958: p_tcuv_tbl IN tcuv_tbl_type) IS
959:
960: l_api_version CONSTANT NUMBER := 1;
961: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
962: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
963: i NUMBER := 0;
964: BEGIN
965: OKC_API.init_msg_list(p_init_msg_list);
966: -- Make sure PL/SQL table has records in it before passing
961: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
962: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
963: i NUMBER := 0;
964: BEGIN
965: OKC_API.init_msg_list(p_init_msg_list);
966: -- Make sure PL/SQL table has records in it before passing
967: IF (p_tcuv_tbl.COUNT > 0) THEN
968: i := p_tcuv_tbl.FIRST;
969: LOOP
968: i := p_tcuv_tbl.FIRST;
969: LOOP
970: validate_row (
971: p_api_version => p_api_version,
972: p_init_msg_list => OKC_API.G_FALSE,
973: x_return_status => x_return_status,
974: x_msg_count => x_msg_count,
975: x_msg_data => x_msg_data,
976: p_tcuv_rec => p_tcuv_tbl(i));
978: i := p_tcuv_tbl.NEXT(i);
979: END LOOP;
980: END IF;
981: EXCEPTION
982: WHEN OKC_API.G_EXCEPTION_ERROR THEN
983: x_return_status := OKC_API.HANDLE_EXCEPTIONS
984: (
985: l_api_name,
986: G_PKG_NAME,
979: END LOOP;
980: END IF;
981: EXCEPTION
982: WHEN OKC_API.G_EXCEPTION_ERROR THEN
983: x_return_status := OKC_API.HANDLE_EXCEPTIONS
984: (
985: l_api_name,
986: G_PKG_NAME,
987: 'OKC_API.G_RET_STS_ERROR',
983: x_return_status := OKC_API.HANDLE_EXCEPTIONS
984: (
985: l_api_name,
986: G_PKG_NAME,
987: 'OKC_API.G_RET_STS_ERROR',
988: x_msg_count,
989: x_msg_data,
990: '_PVT'
991: );
988: x_msg_count,
989: x_msg_data,
990: '_PVT'
991: );
992: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
993: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
994: (
995: l_api_name,
996: G_PKG_NAME,
989: x_msg_data,
990: '_PVT'
991: );
992: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
993: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
994: (
995: l_api_name,
996: G_PKG_NAME,
997: 'OKC_API.G_RET_STS_UNEXP_ERROR',
993: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
994: (
995: l_api_name,
996: G_PKG_NAME,
997: 'OKC_API.G_RET_STS_UNEXP_ERROR',
998: x_msg_count,
999: x_msg_data,
1000: '_PVT'
1001: );
999: x_msg_data,
1000: '_PVT'
1001: );
1002: WHEN OTHERS THEN
1003: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1004: (
1005: l_api_name,
1006: G_PKG_NAME,
1007: 'OTHERS',
1026: x_tcu_rec OUT NOCOPY tcu_rec_type) IS
1027:
1028: l_api_version CONSTANT NUMBER := 1;
1029: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
1030: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1031: l_tcu_rec tcu_rec_type := p_tcu_rec;
1032: l_def_tcu_rec tcu_rec_type;
1033: ----------------------------------------------
1034: -- Set_Attributes for:OKC_TIME_CODE_UNITS_B --
1036: FUNCTION Set_Attributes (
1037: p_tcu_rec IN tcu_rec_type,
1038: x_tcu_rec OUT NOCOPY tcu_rec_type
1039: ) RETURN VARCHAR2 IS
1040: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1041: BEGIN
1042: x_tcu_rec := p_tcu_rec;
1043: RETURN(l_return_status);
1044: END Set_Attributes;
1042: x_tcu_rec := p_tcu_rec;
1043: RETURN(l_return_status);
1044: END Set_Attributes;
1045: BEGIN
1046: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1047: p_init_msg_list,
1048: '_PVT',
1049: x_return_status);
1050: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1046: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1047: p_init_msg_list,
1048: '_PVT',
1049: x_return_status);
1050: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1051: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1052: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1053: RAISE OKC_API.G_EXCEPTION_ERROR;
1054: END IF;
1047: p_init_msg_list,
1048: '_PVT',
1049: x_return_status);
1050: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1051: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1052: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1053: RAISE OKC_API.G_EXCEPTION_ERROR;
1054: END IF;
1055: --- Setting item attributes
1048: '_PVT',
1049: x_return_status);
1050: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1051: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1052: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1053: RAISE OKC_API.G_EXCEPTION_ERROR;
1054: END IF;
1055: --- Setting item attributes
1056: l_return_status := Set_Attributes(
1049: x_return_status);
1050: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1051: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1052: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1053: RAISE OKC_API.G_EXCEPTION_ERROR;
1054: END IF;
1055: --- Setting item attributes
1056: l_return_status := Set_Attributes(
1057: p_tcu_rec, -- IN
1056: l_return_status := Set_Attributes(
1057: p_tcu_rec, -- IN
1058: l_tcu_rec); -- OUT
1059: --- If any errors happen abort API
1060: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1061: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1062: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1063: RAISE OKC_API.G_EXCEPTION_ERROR;
1064: END IF;
1057: p_tcu_rec, -- IN
1058: l_tcu_rec); -- OUT
1059: --- If any errors happen abort API
1060: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1061: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1062: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1063: RAISE OKC_API.G_EXCEPTION_ERROR;
1064: END IF;
1065: INSERT INTO OKC_TIME_CODE_UNITS_B(
1058: l_tcu_rec); -- OUT
1059: --- If any errors happen abort API
1060: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1061: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1062: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1063: RAISE OKC_API.G_EXCEPTION_ERROR;
1064: END IF;
1065: INSERT INTO OKC_TIME_CODE_UNITS_B(
1066: tce_code,
1059: --- If any errors happen abort API
1060: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1061: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1062: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1063: RAISE OKC_API.G_EXCEPTION_ERROR;
1064: END IF;
1065: INSERT INTO OKC_TIME_CODE_UNITS_B(
1066: tce_code,
1067: uom_code,
1117: l_tcu_rec.attribute14,
1118: l_tcu_rec.attribute15);
1119: -- Set OUT values
1120: x_tcu_rec := l_tcu_rec;
1121: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1122: EXCEPTION
1123: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1124: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1125: (
1119: -- Set OUT values
1120: x_tcu_rec := l_tcu_rec;
1121: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1122: EXCEPTION
1123: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1124: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1125: (
1126: l_api_name,
1127: G_PKG_NAME,
1120: x_tcu_rec := l_tcu_rec;
1121: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1122: EXCEPTION
1123: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1124: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1125: (
1126: l_api_name,
1127: G_PKG_NAME,
1128: 'OKC_API.G_RET_STS_ERROR',
1124: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1125: (
1126: l_api_name,
1127: G_PKG_NAME,
1128: 'OKC_API.G_RET_STS_ERROR',
1129: x_msg_count,
1130: x_msg_data,
1131: '_PVT'
1132: );
1129: x_msg_count,
1130: x_msg_data,
1131: '_PVT'
1132: );
1133: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1134: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1135: (
1136: l_api_name,
1137: G_PKG_NAME,
1130: x_msg_data,
1131: '_PVT'
1132: );
1133: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1134: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1135: (
1136: l_api_name,
1137: G_PKG_NAME,
1138: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1134: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1135: (
1136: l_api_name,
1137: G_PKG_NAME,
1138: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1139: x_msg_count,
1140: x_msg_data,
1141: '_PVT'
1142: );
1140: x_msg_data,
1141: '_PVT'
1142: );
1143: WHEN OTHERS THEN
1144: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1145: (
1146: l_api_name,
1147: G_PKG_NAME,
1148: 'OTHERS',
1163: x_okc_time_code_units_tl_rec OUT NOCOPY OkcTimeCodeUnitsTlRecType) IS
1164:
1165: l_api_version CONSTANT NUMBER := 1;
1166: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1167: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1168: l_okc_time_code_units_tl_rec OkcTimeCodeUnitsTlRecType := p_okc_time_code_units_tl_rec;
1169: ldefokctimecodeunitstlrec OkcTimeCodeUnitsTlRecType;
1170: CURSOR get_languages IS
1171: SELECT *
1177: FUNCTION Set_Attributes (
1178: p_okc_time_code_units_tl_rec IN OkcTimeCodeUnitsTlRecType,
1179: x_okc_time_code_units_tl_rec OUT NOCOPY OkcTimeCodeUnitsTlRecType
1180: ) RETURN VARCHAR2 IS
1181: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1182: BEGIN
1183: x_okc_time_code_units_tl_rec := p_okc_time_code_units_tl_rec;
1184: x_okc_time_code_units_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
1185: x_okc_time_code_units_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
1185: x_okc_time_code_units_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
1186: RETURN(l_return_status);
1187: END Set_Attributes;
1188: BEGIN
1189: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1190: p_init_msg_list,
1191: '_PVT',
1192: x_return_status);
1193: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1189: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1190: p_init_msg_list,
1191: '_PVT',
1192: x_return_status);
1193: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1194: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1195: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1196: RAISE OKC_API.G_EXCEPTION_ERROR;
1197: END IF;
1190: p_init_msg_list,
1191: '_PVT',
1192: x_return_status);
1193: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1194: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1195: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1196: RAISE OKC_API.G_EXCEPTION_ERROR;
1197: END IF;
1198: --- Setting item attributes
1191: '_PVT',
1192: x_return_status);
1193: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1194: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1195: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1196: RAISE OKC_API.G_EXCEPTION_ERROR;
1197: END IF;
1198: --- Setting item attributes
1199: l_return_status := Set_Attributes(
1192: x_return_status);
1193: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1194: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1195: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1196: RAISE OKC_API.G_EXCEPTION_ERROR;
1197: END IF;
1198: --- Setting item attributes
1199: l_return_status := Set_Attributes(
1200: p_okc_time_code_units_tl_rec, -- IN
1199: l_return_status := Set_Attributes(
1200: p_okc_time_code_units_tl_rec, -- IN
1201: l_okc_time_code_units_tl_rec); -- OUT
1202: --- If any errors happen abort API
1203: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1204: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1205: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1206: RAISE OKC_API.G_EXCEPTION_ERROR;
1207: END IF;
1200: p_okc_time_code_units_tl_rec, -- IN
1201: l_okc_time_code_units_tl_rec); -- OUT
1202: --- If any errors happen abort API
1203: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1204: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1205: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1206: RAISE OKC_API.G_EXCEPTION_ERROR;
1207: END IF;
1208: FOR l_lang_rec IN get_languages LOOP
1201: l_okc_time_code_units_tl_rec); -- OUT
1202: --- If any errors happen abort API
1203: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1204: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1205: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1206: RAISE OKC_API.G_EXCEPTION_ERROR;
1207: END IF;
1208: FOR l_lang_rec IN get_languages LOOP
1209: l_okc_time_code_units_tl_rec.language := l_lang_rec.language_code;
1202: --- If any errors happen abort API
1203: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1204: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1205: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1206: RAISE OKC_API.G_EXCEPTION_ERROR;
1207: END IF;
1208: FOR l_lang_rec IN get_languages LOOP
1209: l_okc_time_code_units_tl_rec.language := l_lang_rec.language_code;
1210: INSERT INTO OKC_TIME_CODE_UNITS_TL(
1237: l_okc_time_code_units_tl_rec.last_update_login);
1238: END LOOP;
1239: -- Set OUT values
1240: x_okc_time_code_units_tl_rec := l_okc_time_code_units_tl_rec;
1241: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1242: EXCEPTION
1243: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1244: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1245: (
1239: -- Set OUT values
1240: x_okc_time_code_units_tl_rec := l_okc_time_code_units_tl_rec;
1241: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1242: EXCEPTION
1243: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1244: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1245: (
1246: l_api_name,
1247: G_PKG_NAME,
1240: x_okc_time_code_units_tl_rec := l_okc_time_code_units_tl_rec;
1241: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1242: EXCEPTION
1243: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1244: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1245: (
1246: l_api_name,
1247: G_PKG_NAME,
1248: 'OKC_API.G_RET_STS_ERROR',
1244: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1245: (
1246: l_api_name,
1247: G_PKG_NAME,
1248: 'OKC_API.G_RET_STS_ERROR',
1249: x_msg_count,
1250: x_msg_data,
1251: '_PVT'
1252: );
1249: x_msg_count,
1250: x_msg_data,
1251: '_PVT'
1252: );
1253: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1254: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1255: (
1256: l_api_name,
1257: G_PKG_NAME,
1250: x_msg_data,
1251: '_PVT'
1252: );
1253: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1254: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1255: (
1256: l_api_name,
1257: G_PKG_NAME,
1258: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1254: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1255: (
1256: l_api_name,
1257: G_PKG_NAME,
1258: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1259: x_msg_count,
1260: x_msg_data,
1261: '_PVT'
1262: );
1260: x_msg_data,
1261: '_PVT'
1262: );
1263: WHEN OTHERS THEN
1264: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1265: (
1266: l_api_name,
1267: G_PKG_NAME,
1268: 'OTHERS',
1284: x_tcuv_rec OUT NOCOPY tcuv_rec_type) IS
1285:
1286: l_api_version CONSTANT NUMBER := 1;
1287: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
1288: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1289: l_tcuv_rec tcuv_rec_type;
1290: l_def_tcuv_rec tcuv_rec_type;
1291: l_tcu_rec tcu_rec_type;
1292: lx_tcu_rec tcu_rec_type;
1313: FUNCTION Set_Attributes (
1314: p_tcuv_rec IN tcuv_rec_type,
1315: x_tcuv_rec OUT NOCOPY tcuv_rec_type
1316: ) RETURN VARCHAR2 IS
1317: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1318: BEGIN
1319: x_tcuv_rec := p_tcuv_rec;
1320: x_tcuv_rec.OBJECT_VERSION_NUMBER := 1;
1321: x_tcuv_rec.SFWT_FLAG := 'N';
1321: x_tcuv_rec.SFWT_FLAG := 'N';
1322: RETURN(l_return_status);
1323: END Set_Attributes;
1324: BEGIN
1325: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1326: G_PKG_NAME,
1327: p_init_msg_list,
1328: l_api_version,
1329: p_api_version,
1328: l_api_version,
1329: p_api_version,
1330: '_PVT',
1331: x_return_status);
1332: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1333: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1334: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1335: RAISE OKC_API.G_EXCEPTION_ERROR;
1336: END IF;
1329: p_api_version,
1330: '_PVT',
1331: x_return_status);
1332: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1333: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1334: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1335: RAISE OKC_API.G_EXCEPTION_ERROR;
1336: END IF;
1337: l_tcuv_rec := null_out_defaults(p_tcuv_rec);
1330: '_PVT',
1331: x_return_status);
1332: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1333: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1334: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1335: RAISE OKC_API.G_EXCEPTION_ERROR;
1336: END IF;
1337: l_tcuv_rec := null_out_defaults(p_tcuv_rec);
1338: --- Setting item attributes
1331: x_return_status);
1332: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1333: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1334: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1335: RAISE OKC_API.G_EXCEPTION_ERROR;
1336: END IF;
1337: l_tcuv_rec := null_out_defaults(p_tcuv_rec);
1338: --- Setting item attributes
1339: l_return_status := Set_Attributes(
1339: l_return_status := Set_Attributes(
1340: l_tcuv_rec, -- IN
1341: l_def_tcuv_rec); -- OUT
1342: --- If any errors happen abort API
1343: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1344: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1345: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1346: RAISE OKC_API.G_EXCEPTION_ERROR;
1347: END IF;
1340: l_tcuv_rec, -- IN
1341: l_def_tcuv_rec); -- OUT
1342: --- If any errors happen abort API
1343: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1344: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1345: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1346: RAISE OKC_API.G_EXCEPTION_ERROR;
1347: END IF;
1348: l_def_tcuv_rec := fill_who_columns(l_def_tcuv_rec);
1341: l_def_tcuv_rec); -- OUT
1342: --- If any errors happen abort API
1343: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1344: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1345: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1346: RAISE OKC_API.G_EXCEPTION_ERROR;
1347: END IF;
1348: l_def_tcuv_rec := fill_who_columns(l_def_tcuv_rec);
1349: --- Validate all non-missing attributes (Item Level Validation)
1342: --- If any errors happen abort API
1343: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1344: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1345: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1346: RAISE OKC_API.G_EXCEPTION_ERROR;
1347: END IF;
1348: l_def_tcuv_rec := fill_who_columns(l_def_tcuv_rec);
1349: --- Validate all non-missing attributes (Item Level Validation)
1350: l_return_status := Validate_Attributes(l_def_tcuv_rec);
1348: l_def_tcuv_rec := fill_who_columns(l_def_tcuv_rec);
1349: --- Validate all non-missing attributes (Item Level Validation)
1350: l_return_status := Validate_Attributes(l_def_tcuv_rec);
1351: --- If any errors happen abort API
1352: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1353: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1354: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1355: RAISE OKC_API.G_EXCEPTION_ERROR;
1356: END IF;
1349: --- Validate all non-missing attributes (Item Level Validation)
1350: l_return_status := Validate_Attributes(l_def_tcuv_rec);
1351: --- If any errors happen abort API
1352: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1353: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1354: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1355: RAISE OKC_API.G_EXCEPTION_ERROR;
1356: END IF;
1357: --**** uniqueness is checked only in insert cases--------------------
1350: l_return_status := Validate_Attributes(l_def_tcuv_rec);
1351: --- If any errors happen abort API
1352: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1353: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1354: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1355: RAISE OKC_API.G_EXCEPTION_ERROR;
1356: END IF;
1357: --**** uniqueness is checked only in insert cases--------------------
1358: G_RECORD_STATUS := 'I';
1351: --- If any errors happen abort API
1352: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1353: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1354: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1355: RAISE OKC_API.G_EXCEPTION_ERROR;
1356: END IF;
1357: --**** uniqueness is checked only in insert cases--------------------
1358: G_RECORD_STATUS := 'I';
1359: l_return_status := Validate_Record(l_def_tcuv_rec);
1356: END IF;
1357: --**** uniqueness is checked only in insert cases--------------------
1358: G_RECORD_STATUS := 'I';
1359: l_return_status := Validate_Record(l_def_tcuv_rec);
1360: G_RECORD_STATUS := OKC_API.G_MISS_CHAR;
1361: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1362: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1363: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1364: RAISE OKC_API.G_EXCEPTION_ERROR;
1357: --**** uniqueness is checked only in insert cases--------------------
1358: G_RECORD_STATUS := 'I';
1359: l_return_status := Validate_Record(l_def_tcuv_rec);
1360: G_RECORD_STATUS := OKC_API.G_MISS_CHAR;
1361: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1362: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1363: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1364: RAISE OKC_API.G_EXCEPTION_ERROR;
1365: END IF;
1358: G_RECORD_STATUS := 'I';
1359: l_return_status := Validate_Record(l_def_tcuv_rec);
1360: G_RECORD_STATUS := OKC_API.G_MISS_CHAR;
1361: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1362: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1363: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1364: RAISE OKC_API.G_EXCEPTION_ERROR;
1365: END IF;
1366: --------------------------------------
1359: l_return_status := Validate_Record(l_def_tcuv_rec);
1360: G_RECORD_STATUS := OKC_API.G_MISS_CHAR;
1361: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1362: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1363: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1364: RAISE OKC_API.G_EXCEPTION_ERROR;
1365: END IF;
1366: --------------------------------------
1367: -- Move VIEW record to "Child" records
1360: G_RECORD_STATUS := OKC_API.G_MISS_CHAR;
1361: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1362: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1363: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1364: RAISE OKC_API.G_EXCEPTION_ERROR;
1365: END IF;
1366: --------------------------------------
1367: -- Move VIEW record to "Child" records
1368: --------------------------------------
1378: x_msg_data,
1379: l_tcu_rec,
1380: lx_tcu_rec
1381: );
1382: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1383: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1384: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1385: RAISE OKC_API.G_EXCEPTION_ERROR;
1386: END IF;
1379: l_tcu_rec,
1380: lx_tcu_rec
1381: );
1382: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1383: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1384: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1385: RAISE OKC_API.G_EXCEPTION_ERROR;
1386: END IF;
1387: migrate(lx_tcu_rec, l_def_tcuv_rec);
1380: lx_tcu_rec
1381: );
1382: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1383: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1384: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1385: RAISE OKC_API.G_EXCEPTION_ERROR;
1386: END IF;
1387: migrate(lx_tcu_rec, l_def_tcuv_rec);
1388: insert_row(
1381: );
1382: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1383: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1384: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1385: RAISE OKC_API.G_EXCEPTION_ERROR;
1386: END IF;
1387: migrate(lx_tcu_rec, l_def_tcuv_rec);
1388: insert_row(
1389: p_init_msg_list,
1392: x_msg_data,
1393: l_okc_time_code_units_tl_rec,
1394: lx_okc_time_code_units_tl_rec
1395: );
1396: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1397: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1398: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1399: RAISE OKC_API.G_EXCEPTION_ERROR;
1400: END IF;
1393: l_okc_time_code_units_tl_rec,
1394: lx_okc_time_code_units_tl_rec
1395: );
1396: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1397: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1398: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1399: RAISE OKC_API.G_EXCEPTION_ERROR;
1400: END IF;
1401: migrate(lx_okc_time_code_units_tl_rec, l_def_tcuv_rec);
1394: lx_okc_time_code_units_tl_rec
1395: );
1396: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1397: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1398: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1399: RAISE OKC_API.G_EXCEPTION_ERROR;
1400: END IF;
1401: migrate(lx_okc_time_code_units_tl_rec, l_def_tcuv_rec);
1402: -- Set OUT values
1395: );
1396: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1397: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1398: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1399: RAISE OKC_API.G_EXCEPTION_ERROR;
1400: END IF;
1401: migrate(lx_okc_time_code_units_tl_rec, l_def_tcuv_rec);
1402: -- Set OUT values
1403: x_tcuv_rec := l_def_tcuv_rec;
1400: END IF;
1401: migrate(lx_okc_time_code_units_tl_rec, l_def_tcuv_rec);
1402: -- Set OUT values
1403: x_tcuv_rec := l_def_tcuv_rec;
1404: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1405: EXCEPTION
1406: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1407: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1408: (
1402: -- Set OUT values
1403: x_tcuv_rec := l_def_tcuv_rec;
1404: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1405: EXCEPTION
1406: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1407: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1408: (
1409: l_api_name,
1410: G_PKG_NAME,
1403: x_tcuv_rec := l_def_tcuv_rec;
1404: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1405: EXCEPTION
1406: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1407: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1408: (
1409: l_api_name,
1410: G_PKG_NAME,
1411: 'OKC_API.G_RET_STS_ERROR',
1407: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1408: (
1409: l_api_name,
1410: G_PKG_NAME,
1411: 'OKC_API.G_RET_STS_ERROR',
1412: x_msg_count,
1413: x_msg_data,
1414: '_PVT'
1415: );
1412: x_msg_count,
1413: x_msg_data,
1414: '_PVT'
1415: );
1416: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1417: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1418: (
1419: l_api_name,
1420: G_PKG_NAME,
1413: x_msg_data,
1414: '_PVT'
1415: );
1416: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1417: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1418: (
1419: l_api_name,
1420: G_PKG_NAME,
1421: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1417: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1418: (
1419: l_api_name,
1420: G_PKG_NAME,
1421: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1422: x_msg_count,
1423: x_msg_data,
1424: '_PVT'
1425: );
1423: x_msg_data,
1424: '_PVT'
1425: );
1426: WHEN OTHERS THEN
1427: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1428: (
1429: l_api_name,
1430: G_PKG_NAME,
1431: 'OTHERS',
1447: x_tcuv_tbl OUT NOCOPY tcuv_tbl_type) IS
1448:
1449: l_api_version CONSTANT NUMBER := 1;
1450: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1451: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1452: i NUMBER := 0;
1453: BEGIN
1454: OKC_API.init_msg_list(p_init_msg_list);
1455: -- Make sure PL/SQL table has records in it before passing
1450: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1451: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1452: i NUMBER := 0;
1453: BEGIN
1454: OKC_API.init_msg_list(p_init_msg_list);
1455: -- Make sure PL/SQL table has records in it before passing
1456: IF (p_tcuv_tbl.COUNT > 0) THEN
1457: i := p_tcuv_tbl.FIRST;
1458: LOOP
1457: i := p_tcuv_tbl.FIRST;
1458: LOOP
1459: insert_row (
1460: p_api_version => p_api_version,
1461: p_init_msg_list => OKC_API.G_FALSE,
1462: x_return_status => x_return_status,
1463: x_msg_count => x_msg_count,
1464: x_msg_data => x_msg_data,
1465: p_tcuv_rec => p_tcuv_tbl(i),
1468: i := p_tcuv_tbl.NEXT(i);
1469: END LOOP;
1470: END IF;
1471: EXCEPTION
1472: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1473: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1474: (
1475: l_api_name,
1476: G_PKG_NAME,
1469: END LOOP;
1470: END IF;
1471: EXCEPTION
1472: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1473: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1474: (
1475: l_api_name,
1476: G_PKG_NAME,
1477: 'OKC_API.G_RET_STS_ERROR',
1473: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1474: (
1475: l_api_name,
1476: G_PKG_NAME,
1477: 'OKC_API.G_RET_STS_ERROR',
1478: x_msg_count,
1479: x_msg_data,
1480: '_PVT'
1481: );
1478: x_msg_count,
1479: x_msg_data,
1480: '_PVT'
1481: );
1482: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1483: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1484: (
1485: l_api_name,
1486: G_PKG_NAME,
1479: x_msg_data,
1480: '_PVT'
1481: );
1482: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1483: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1484: (
1485: l_api_name,
1486: G_PKG_NAME,
1487: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1483: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1484: (
1485: l_api_name,
1486: G_PKG_NAME,
1487: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1488: x_msg_count,
1489: x_msg_data,
1490: '_PVT'
1491: );
1489: x_msg_data,
1490: '_PVT'
1491: );
1492: WHEN OTHERS THEN
1493: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1494: (
1495: l_api_name,
1496: G_PKG_NAME,
1497: 'OTHERS',
1530: WHERE uom_code = p_tcu_rec.uom_code
1531: AND TCE_CODE = p_tcu_rec.tce_code;
1532: l_api_version CONSTANT NUMBER := 1;
1533: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
1534: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1535: l_object_version_number OKC_TIME_CODE_UNITS_B.OBJECT_VERSION_NUMBER%TYPE;
1536: lc_object_version_number OKC_TIME_CODE_UNITS_B.OBJECT_VERSION_NUMBER%TYPE;
1537: l_row_notfound BOOLEAN := FALSE;
1538: lc_row_notfound BOOLEAN := FALSE;
1536: lc_object_version_number OKC_TIME_CODE_UNITS_B.OBJECT_VERSION_NUMBER%TYPE;
1537: l_row_notfound BOOLEAN := FALSE;
1538: lc_row_notfound BOOLEAN := FALSE;
1539: BEGIN
1540: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1541: p_init_msg_list,
1542: '_PVT',
1543: x_return_status);
1544: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1540: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1541: p_init_msg_list,
1542: '_PVT',
1543: x_return_status);
1544: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1545: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1546: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1547: RAISE OKC_API.G_EXCEPTION_ERROR;
1548: END IF;
1541: p_init_msg_list,
1542: '_PVT',
1543: x_return_status);
1544: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1545: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1546: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1547: RAISE OKC_API.G_EXCEPTION_ERROR;
1548: END IF;
1549: BEGIN
1542: '_PVT',
1543: x_return_status);
1544: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1545: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1546: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1547: RAISE OKC_API.G_EXCEPTION_ERROR;
1548: END IF;
1549: BEGIN
1550: OPEN lock_csr(p_tcu_rec);
1543: x_return_status);
1544: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1545: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1546: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1547: RAISE OKC_API.G_EXCEPTION_ERROR;
1548: END IF;
1549: BEGIN
1550: OPEN lock_csr(p_tcu_rec);
1551: FETCH lock_csr INTO l_object_version_number;
1555: WHEN E_Resource_Busy THEN
1556: IF (lock_csr%ISOPEN) THEN
1557: CLOSE lock_csr;
1558: END IF;
1559: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
1560: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
1561: END;
1562:
1563: IF ( l_row_notfound ) THEN
1566: lc_row_notfound := lchk_csr%NOTFOUND;
1567: CLOSE lchk_csr;
1568: END IF;
1569: IF (lc_row_notfound) THEN
1570: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1571: RAISE OKC_API.G_EXCEPTION_ERROR;
1572: ELSIF lc_object_version_number > p_tcu_rec.object_version_number THEN
1573: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1574: RAISE OKC_API.G_EXCEPTION_ERROR;
1567: CLOSE lchk_csr;
1568: END IF;
1569: IF (lc_row_notfound) THEN
1570: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1571: RAISE OKC_API.G_EXCEPTION_ERROR;
1572: ELSIF lc_object_version_number > p_tcu_rec.object_version_number THEN
1573: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1574: RAISE OKC_API.G_EXCEPTION_ERROR;
1575: ELSIF lc_object_version_number <> p_tcu_rec.object_version_number THEN
1569: IF (lc_row_notfound) THEN
1570: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1571: RAISE OKC_API.G_EXCEPTION_ERROR;
1572: ELSIF lc_object_version_number > p_tcu_rec.object_version_number THEN
1573: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1574: RAISE OKC_API.G_EXCEPTION_ERROR;
1575: ELSIF lc_object_version_number <> p_tcu_rec.object_version_number THEN
1576: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1577: RAISE OKC_API.G_EXCEPTION_ERROR;
1570: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1571: RAISE OKC_API.G_EXCEPTION_ERROR;
1572: ELSIF lc_object_version_number > p_tcu_rec.object_version_number THEN
1573: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1574: RAISE OKC_API.G_EXCEPTION_ERROR;
1575: ELSIF lc_object_version_number <> p_tcu_rec.object_version_number THEN
1576: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1577: RAISE OKC_API.G_EXCEPTION_ERROR;
1578: ELSIF lc_object_version_number = -1 THEN
1572: ELSIF lc_object_version_number > p_tcu_rec.object_version_number THEN
1573: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1574: RAISE OKC_API.G_EXCEPTION_ERROR;
1575: ELSIF lc_object_version_number <> p_tcu_rec.object_version_number THEN
1576: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1577: RAISE OKC_API.G_EXCEPTION_ERROR;
1578: ELSIF lc_object_version_number = -1 THEN
1579: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1580: RAISE OKC_API.G_EXCEPTION_ERROR;
1573: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1574: RAISE OKC_API.G_EXCEPTION_ERROR;
1575: ELSIF lc_object_version_number <> p_tcu_rec.object_version_number THEN
1576: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1577: RAISE OKC_API.G_EXCEPTION_ERROR;
1578: ELSIF lc_object_version_number = -1 THEN
1579: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1580: RAISE OKC_API.G_EXCEPTION_ERROR;
1581: END IF;
1575: ELSIF lc_object_version_number <> p_tcu_rec.object_version_number THEN
1576: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1577: RAISE OKC_API.G_EXCEPTION_ERROR;
1578: ELSIF lc_object_version_number = -1 THEN
1579: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1580: RAISE OKC_API.G_EXCEPTION_ERROR;
1581: END IF;
1582: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1583: EXCEPTION
1576: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1577: RAISE OKC_API.G_EXCEPTION_ERROR;
1578: ELSIF lc_object_version_number = -1 THEN
1579: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1580: RAISE OKC_API.G_EXCEPTION_ERROR;
1581: END IF;
1582: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1583: EXCEPTION
1584: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1578: ELSIF lc_object_version_number = -1 THEN
1579: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1580: RAISE OKC_API.G_EXCEPTION_ERROR;
1581: END IF;
1582: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1583: EXCEPTION
1584: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1585: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1586: (
1580: RAISE OKC_API.G_EXCEPTION_ERROR;
1581: END IF;
1582: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1583: EXCEPTION
1584: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1585: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1586: (
1587: l_api_name,
1588: G_PKG_NAME,
1581: END IF;
1582: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1583: EXCEPTION
1584: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1585: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1586: (
1587: l_api_name,
1588: G_PKG_NAME,
1589: 'OKC_API.G_RET_STS_ERROR',
1585: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1586: (
1587: l_api_name,
1588: G_PKG_NAME,
1589: 'OKC_API.G_RET_STS_ERROR',
1590: x_msg_count,
1591: x_msg_data,
1592: '_PVT'
1593: );
1590: x_msg_count,
1591: x_msg_data,
1592: '_PVT'
1593: );
1594: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1595: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1596: (
1597: l_api_name,
1598: G_PKG_NAME,
1591: x_msg_data,
1592: '_PVT'
1593: );
1594: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1595: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1596: (
1597: l_api_name,
1598: G_PKG_NAME,
1599: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1595: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1596: (
1597: l_api_name,
1598: G_PKG_NAME,
1599: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1600: x_msg_count,
1601: x_msg_data,
1602: '_PVT'
1603: );
1601: x_msg_data,
1602: '_PVT'
1603: );
1604: WHEN OTHERS THEN
1605: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1606: (
1607: l_api_name,
1608: G_PKG_NAME,
1609: 'OTHERS',
1632: FOR UPDATE NOWAIT;
1633:
1634: l_api_version CONSTANT NUMBER := 1;
1635: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
1636: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1637: l_lock_var lock_csr%ROWTYPE;
1638: l_row_notfound BOOLEAN := FALSE;
1639: lc_row_notfound BOOLEAN := FALSE;
1640: BEGIN
1637: l_lock_var lock_csr%ROWTYPE;
1638: l_row_notfound BOOLEAN := FALSE;
1639: lc_row_notfound BOOLEAN := FALSE;
1640: BEGIN
1641: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1642: p_init_msg_list,
1643: '_PVT',
1644: x_return_status);
1645: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1641: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1642: p_init_msg_list,
1643: '_PVT',
1644: x_return_status);
1645: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1646: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1647: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1648: RAISE OKC_API.G_EXCEPTION_ERROR;
1649: END IF;
1642: p_init_msg_list,
1643: '_PVT',
1644: x_return_status);
1645: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1646: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1647: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1648: RAISE OKC_API.G_EXCEPTION_ERROR;
1649: END IF;
1650: BEGIN
1643: '_PVT',
1644: x_return_status);
1645: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1646: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1647: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1648: RAISE OKC_API.G_EXCEPTION_ERROR;
1649: END IF;
1650: BEGIN
1651: OPEN lock_csr(p_okc_time_code_units_tl_rec);
1644: x_return_status);
1645: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1646: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1647: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1648: RAISE OKC_API.G_EXCEPTION_ERROR;
1649: END IF;
1650: BEGIN
1651: OPEN lock_csr(p_okc_time_code_units_tl_rec);
1652: FETCH lock_csr INTO l_lock_var;
1656: WHEN E_Resource_Busy THEN
1657: IF (lock_csr%ISOPEN) THEN
1658: CLOSE lock_csr;
1659: END IF;
1660: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
1661: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
1662: END;
1663:
1664: IF ( l_row_notfound ) THEN
1661: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
1662: END;
1663:
1664: IF ( l_row_notfound ) THEN
1665: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1666: RAISE OKC_API.G_EXCEPTION_ERROR;
1667: END IF;
1668: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1669: EXCEPTION
1662: END;
1663:
1664: IF ( l_row_notfound ) THEN
1665: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1666: RAISE OKC_API.G_EXCEPTION_ERROR;
1667: END IF;
1668: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1669: EXCEPTION
1670: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1664: IF ( l_row_notfound ) THEN
1665: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1666: RAISE OKC_API.G_EXCEPTION_ERROR;
1667: END IF;
1668: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1669: EXCEPTION
1670: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1671: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1672: (
1666: RAISE OKC_API.G_EXCEPTION_ERROR;
1667: END IF;
1668: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1669: EXCEPTION
1670: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1671: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1672: (
1673: l_api_name,
1674: G_PKG_NAME,
1667: END IF;
1668: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1669: EXCEPTION
1670: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1671: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1672: (
1673: l_api_name,
1674: G_PKG_NAME,
1675: 'OKC_API.G_RET_STS_ERROR',
1671: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1672: (
1673: l_api_name,
1674: G_PKG_NAME,
1675: 'OKC_API.G_RET_STS_ERROR',
1676: x_msg_count,
1677: x_msg_data,
1678: '_PVT'
1679: );
1676: x_msg_count,
1677: x_msg_data,
1678: '_PVT'
1679: );
1680: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1681: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1682: (
1683: l_api_name,
1684: G_PKG_NAME,
1677: x_msg_data,
1678: '_PVT'
1679: );
1680: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1681: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1682: (
1683: l_api_name,
1684: G_PKG_NAME,
1685: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1681: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1682: (
1683: l_api_name,
1684: G_PKG_NAME,
1685: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1686: x_msg_count,
1687: x_msg_data,
1688: '_PVT'
1689: );
1687: x_msg_data,
1688: '_PVT'
1689: );
1690: WHEN OTHERS THEN
1691: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1692: (
1693: l_api_name,
1694: G_PKG_NAME,
1695: 'OTHERS',
1710: p_tcuv_rec IN tcuv_rec_type) IS
1711:
1712: l_api_version CONSTANT NUMBER := 1;
1713: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1714: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1715: l_tcu_rec tcu_rec_type;
1716: l_okc_time_code_units_tl_rec OkcTimeCodeUnitsTlRecType;
1717: BEGIN
1718: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1714: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1715: l_tcu_rec tcu_rec_type;
1716: l_okc_time_code_units_tl_rec OkcTimeCodeUnitsTlRecType;
1717: BEGIN
1718: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1719: G_PKG_NAME,
1720: p_init_msg_list,
1721: l_api_version,
1722: p_api_version,
1721: l_api_version,
1722: p_api_version,
1723: '_PVT',
1724: x_return_status);
1725: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1726: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1727: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1728: RAISE OKC_API.G_EXCEPTION_ERROR;
1729: END IF;
1722: p_api_version,
1723: '_PVT',
1724: x_return_status);
1725: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1726: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1727: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1728: RAISE OKC_API.G_EXCEPTION_ERROR;
1729: END IF;
1730: --------------------------------------
1723: '_PVT',
1724: x_return_status);
1725: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1726: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1727: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1728: RAISE OKC_API.G_EXCEPTION_ERROR;
1729: END IF;
1730: --------------------------------------
1731: -- Move VIEW record to "Child" records
1724: x_return_status);
1725: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1726: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1727: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1728: RAISE OKC_API.G_EXCEPTION_ERROR;
1729: END IF;
1730: --------------------------------------
1731: -- Move VIEW record to "Child" records
1732: --------------------------------------
1741: x_msg_count,
1742: x_msg_data,
1743: l_tcu_rec
1744: );
1745: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1746: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1747: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1748: RAISE OKC_API.G_EXCEPTION_ERROR;
1749: END IF;
1742: x_msg_data,
1743: l_tcu_rec
1744: );
1745: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1746: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1747: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1748: RAISE OKC_API.G_EXCEPTION_ERROR;
1749: END IF;
1750: lock_row(
1743: l_tcu_rec
1744: );
1745: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1746: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1747: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1748: RAISE OKC_API.G_EXCEPTION_ERROR;
1749: END IF;
1750: lock_row(
1751: p_init_msg_list,
1744: );
1745: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1746: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1747: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1748: RAISE OKC_API.G_EXCEPTION_ERROR;
1749: END IF;
1750: lock_row(
1751: p_init_msg_list,
1752: x_return_status,
1753: x_msg_count,
1754: x_msg_data,
1755: l_okc_time_code_units_tl_rec
1756: );
1757: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1758: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1759: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1760: RAISE OKC_API.G_EXCEPTION_ERROR;
1761: END IF;
1754: x_msg_data,
1755: l_okc_time_code_units_tl_rec
1756: );
1757: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1758: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1759: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1760: RAISE OKC_API.G_EXCEPTION_ERROR;
1761: END IF;
1762: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1755: l_okc_time_code_units_tl_rec
1756: );
1757: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1758: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1759: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1760: RAISE OKC_API.G_EXCEPTION_ERROR;
1761: END IF;
1762: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1763: EXCEPTION
1756: );
1757: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1758: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1759: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1760: RAISE OKC_API.G_EXCEPTION_ERROR;
1761: END IF;
1762: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1763: EXCEPTION
1764: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1758: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1759: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1760: RAISE OKC_API.G_EXCEPTION_ERROR;
1761: END IF;
1762: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1763: EXCEPTION
1764: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1765: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1766: (
1760: RAISE OKC_API.G_EXCEPTION_ERROR;
1761: END IF;
1762: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1763: EXCEPTION
1764: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1765: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1766: (
1767: l_api_name,
1768: G_PKG_NAME,
1761: END IF;
1762: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1763: EXCEPTION
1764: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1765: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1766: (
1767: l_api_name,
1768: G_PKG_NAME,
1769: 'OKC_API.G_RET_STS_ERROR',
1765: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1766: (
1767: l_api_name,
1768: G_PKG_NAME,
1769: 'OKC_API.G_RET_STS_ERROR',
1770: x_msg_count,
1771: x_msg_data,
1772: '_PVT'
1773: );
1770: x_msg_count,
1771: x_msg_data,
1772: '_PVT'
1773: );
1774: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1775: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1776: (
1777: l_api_name,
1778: G_PKG_NAME,
1771: x_msg_data,
1772: '_PVT'
1773: );
1774: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1775: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1776: (
1777: l_api_name,
1778: G_PKG_NAME,
1779: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1775: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1776: (
1777: l_api_name,
1778: G_PKG_NAME,
1779: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1780: x_msg_count,
1781: x_msg_data,
1782: '_PVT'
1783: );
1781: x_msg_data,
1782: '_PVT'
1783: );
1784: WHEN OTHERS THEN
1785: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1786: (
1787: l_api_name,
1788: G_PKG_NAME,
1789: 'OTHERS',
1804: p_tcuv_tbl IN tcuv_tbl_type) IS
1805:
1806: l_api_version CONSTANT NUMBER := 1;
1807: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
1808: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1809: i NUMBER := 0;
1810: BEGIN
1811: OKC_API.init_msg_list(p_init_msg_list);
1812: -- Make sure PL/SQL table has records in it before passing
1807: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
1808: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1809: i NUMBER := 0;
1810: BEGIN
1811: OKC_API.init_msg_list(p_init_msg_list);
1812: -- Make sure PL/SQL table has records in it before passing
1813: IF (p_tcuv_tbl.COUNT > 0) THEN
1814: i := p_tcuv_tbl.FIRST;
1815: LOOP
1814: i := p_tcuv_tbl.FIRST;
1815: LOOP
1816: lock_row (
1817: p_api_version => p_api_version,
1818: p_init_msg_list => OKC_API.G_FALSE,
1819: x_return_status => x_return_status,
1820: x_msg_count => x_msg_count,
1821: x_msg_data => x_msg_data,
1822: p_tcuv_rec => p_tcuv_tbl(i));
1824: i := p_tcuv_tbl.NEXT(i);
1825: END LOOP;
1826: END IF;
1827: EXCEPTION
1828: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1829: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1830: (
1831: l_api_name,
1832: G_PKG_NAME,
1825: END LOOP;
1826: END IF;
1827: EXCEPTION
1828: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1829: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1830: (
1831: l_api_name,
1832: G_PKG_NAME,
1833: 'OKC_API.G_RET_STS_ERROR',
1829: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1830: (
1831: l_api_name,
1832: G_PKG_NAME,
1833: 'OKC_API.G_RET_STS_ERROR',
1834: x_msg_count,
1835: x_msg_data,
1836: '_PVT'
1837: );
1834: x_msg_count,
1835: x_msg_data,
1836: '_PVT'
1837: );
1838: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1839: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1840: (
1841: l_api_name,
1842: G_PKG_NAME,
1835: x_msg_data,
1836: '_PVT'
1837: );
1838: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1839: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1840: (
1841: l_api_name,
1842: G_PKG_NAME,
1843: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1839: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1840: (
1841: l_api_name,
1842: G_PKG_NAME,
1843: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1844: x_msg_count,
1845: x_msg_data,
1846: '_PVT'
1847: );
1845: x_msg_data,
1846: '_PVT'
1847: );
1848: WHEN OTHERS THEN
1849: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1850: (
1851: l_api_name,
1852: G_PKG_NAME,
1853: 'OTHERS',
1872: x_tcu_rec OUT NOCOPY tcu_rec_type) IS
1873:
1874: l_api_version CONSTANT NUMBER := 1;
1875: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
1876: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1877: l_tcu_rec tcu_rec_type := p_tcu_rec;
1878: l_def_tcu_rec tcu_rec_type;
1879: l_row_notfound BOOLEAN := TRUE;
1880: ----------------------------------
1885: x_tcu_rec OUT NOCOPY tcu_rec_type
1886: ) RETURN VARCHAR2 IS
1887: l_tcu_rec tcu_rec_type;
1888: l_row_notfound BOOLEAN := TRUE;
1889: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1890: BEGIN
1891: x_tcu_rec := p_tcu_rec;
1892: -- Get current database values
1893: l_tcu_rec := get_rec(p_tcu_rec, l_row_notfound);
1891: x_tcu_rec := p_tcu_rec;
1892: -- Get current database values
1893: l_tcu_rec := get_rec(p_tcu_rec, l_row_notfound);
1894: IF (l_row_notfound) THEN
1895: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1896: END IF;
1897: IF (x_tcu_rec.tce_code = OKC_API.G_MISS_CHAR)
1898: THEN
1899: x_tcu_rec.tce_code := l_tcu_rec.tce_code;
1893: l_tcu_rec := get_rec(p_tcu_rec, l_row_notfound);
1894: IF (l_row_notfound) THEN
1895: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1896: END IF;
1897: IF (x_tcu_rec.tce_code = OKC_API.G_MISS_CHAR)
1898: THEN
1899: x_tcu_rec.tce_code := l_tcu_rec.tce_code;
1900: END IF;
1901: IF (x_tcu_rec.uom_code = OKC_API.G_MISS_CHAR)
1897: IF (x_tcu_rec.tce_code = OKC_API.G_MISS_CHAR)
1898: THEN
1899: x_tcu_rec.tce_code := l_tcu_rec.tce_code;
1900: END IF;
1901: IF (x_tcu_rec.uom_code = OKC_API.G_MISS_CHAR)
1902: THEN
1903: x_tcu_rec.uom_code := l_tcu_rec.uom_code;
1904: END IF;
1905: IF (x_tcu_rec.quantity = OKC_API.G_MISS_NUM)
1901: IF (x_tcu_rec.uom_code = OKC_API.G_MISS_CHAR)
1902: THEN
1903: x_tcu_rec.uom_code := l_tcu_rec.uom_code;
1904: END IF;
1905: IF (x_tcu_rec.quantity = OKC_API.G_MISS_NUM)
1906: THEN
1907: x_tcu_rec.quantity := l_tcu_rec.quantity;
1908: END IF;
1909: IF (x_tcu_rec.active_flag = OKC_API.G_MISS_CHAR)
1905: IF (x_tcu_rec.quantity = OKC_API.G_MISS_NUM)
1906: THEN
1907: x_tcu_rec.quantity := l_tcu_rec.quantity;
1908: END IF;
1909: IF (x_tcu_rec.active_flag = OKC_API.G_MISS_CHAR)
1910: THEN
1911: x_tcu_rec.active_flag := l_tcu_rec.active_flag;
1912: END IF;
1913: IF (x_tcu_rec.object_version_number = OKC_API.G_MISS_NUM)
1909: IF (x_tcu_rec.active_flag = OKC_API.G_MISS_CHAR)
1910: THEN
1911: x_tcu_rec.active_flag := l_tcu_rec.active_flag;
1912: END IF;
1913: IF (x_tcu_rec.object_version_number = OKC_API.G_MISS_NUM)
1914: THEN
1915: x_tcu_rec.object_version_number := l_tcu_rec.object_version_number;
1916: END IF;
1917: IF (x_tcu_rec.created_by = OKC_API.G_MISS_NUM)
1913: IF (x_tcu_rec.object_version_number = OKC_API.G_MISS_NUM)
1914: THEN
1915: x_tcu_rec.object_version_number := l_tcu_rec.object_version_number;
1916: END IF;
1917: IF (x_tcu_rec.created_by = OKC_API.G_MISS_NUM)
1918: THEN
1919: x_tcu_rec.created_by := l_tcu_rec.created_by;
1920: END IF;
1921: IF (x_tcu_rec.creation_date = OKC_API.G_MISS_DATE)
1917: IF (x_tcu_rec.created_by = OKC_API.G_MISS_NUM)
1918: THEN
1919: x_tcu_rec.created_by := l_tcu_rec.created_by;
1920: END IF;
1921: IF (x_tcu_rec.creation_date = OKC_API.G_MISS_DATE)
1922: THEN
1923: x_tcu_rec.creation_date := l_tcu_rec.creation_date;
1924: END IF;
1925: IF (x_tcu_rec.last_updated_by = OKC_API.G_MISS_NUM)
1921: IF (x_tcu_rec.creation_date = OKC_API.G_MISS_DATE)
1922: THEN
1923: x_tcu_rec.creation_date := l_tcu_rec.creation_date;
1924: END IF;
1925: IF (x_tcu_rec.last_updated_by = OKC_API.G_MISS_NUM)
1926: THEN
1927: x_tcu_rec.last_updated_by := l_tcu_rec.last_updated_by;
1928: END IF;
1929: IF (x_tcu_rec.last_update_date = OKC_API.G_MISS_DATE)
1925: IF (x_tcu_rec.last_updated_by = OKC_API.G_MISS_NUM)
1926: THEN
1927: x_tcu_rec.last_updated_by := l_tcu_rec.last_updated_by;
1928: END IF;
1929: IF (x_tcu_rec.last_update_date = OKC_API.G_MISS_DATE)
1930: THEN
1931: x_tcu_rec.last_update_date := l_tcu_rec.last_update_date;
1932: END IF;
1933: IF (x_tcu_rec.last_update_login = OKC_API.G_MISS_NUM)
1929: IF (x_tcu_rec.last_update_date = OKC_API.G_MISS_DATE)
1930: THEN
1931: x_tcu_rec.last_update_date := l_tcu_rec.last_update_date;
1932: END IF;
1933: IF (x_tcu_rec.last_update_login = OKC_API.G_MISS_NUM)
1934: THEN
1935: x_tcu_rec.last_update_login := l_tcu_rec.last_update_login;
1936: END IF;
1937: IF (x_tcu_rec.attribute_category = OKC_API.G_MISS_CHAR)
1933: IF (x_tcu_rec.last_update_login = OKC_API.G_MISS_NUM)
1934: THEN
1935: x_tcu_rec.last_update_login := l_tcu_rec.last_update_login;
1936: END IF;
1937: IF (x_tcu_rec.attribute_category = OKC_API.G_MISS_CHAR)
1938: THEN
1939: x_tcu_rec.attribute_category := l_tcu_rec.attribute_category;
1940: END IF;
1941: IF (x_tcu_rec.attribute1 = OKC_API.G_MISS_CHAR)
1937: IF (x_tcu_rec.attribute_category = OKC_API.G_MISS_CHAR)
1938: THEN
1939: x_tcu_rec.attribute_category := l_tcu_rec.attribute_category;
1940: END IF;
1941: IF (x_tcu_rec.attribute1 = OKC_API.G_MISS_CHAR)
1942: THEN
1943: x_tcu_rec.attribute1 := l_tcu_rec.attribute1;
1944: END IF;
1945: IF (x_tcu_rec.attribute2 = OKC_API.G_MISS_CHAR)
1941: IF (x_tcu_rec.attribute1 = OKC_API.G_MISS_CHAR)
1942: THEN
1943: x_tcu_rec.attribute1 := l_tcu_rec.attribute1;
1944: END IF;
1945: IF (x_tcu_rec.attribute2 = OKC_API.G_MISS_CHAR)
1946: THEN
1947: x_tcu_rec.attribute2 := l_tcu_rec.attribute2;
1948: END IF;
1949: IF (x_tcu_rec.attribute3 = OKC_API.G_MISS_CHAR)
1945: IF (x_tcu_rec.attribute2 = OKC_API.G_MISS_CHAR)
1946: THEN
1947: x_tcu_rec.attribute2 := l_tcu_rec.attribute2;
1948: END IF;
1949: IF (x_tcu_rec.attribute3 = OKC_API.G_MISS_CHAR)
1950: THEN
1951: x_tcu_rec.attribute3 := l_tcu_rec.attribute3;
1952: END IF;
1953: IF (x_tcu_rec.attribute4 = OKC_API.G_MISS_CHAR)
1949: IF (x_tcu_rec.attribute3 = OKC_API.G_MISS_CHAR)
1950: THEN
1951: x_tcu_rec.attribute3 := l_tcu_rec.attribute3;
1952: END IF;
1953: IF (x_tcu_rec.attribute4 = OKC_API.G_MISS_CHAR)
1954: THEN
1955: x_tcu_rec.attribute4 := l_tcu_rec.attribute4;
1956: END IF;
1957: IF (x_tcu_rec.attribute5 = OKC_API.G_MISS_CHAR)
1953: IF (x_tcu_rec.attribute4 = OKC_API.G_MISS_CHAR)
1954: THEN
1955: x_tcu_rec.attribute4 := l_tcu_rec.attribute4;
1956: END IF;
1957: IF (x_tcu_rec.attribute5 = OKC_API.G_MISS_CHAR)
1958: THEN
1959: x_tcu_rec.attribute5 := l_tcu_rec.attribute5;
1960: END IF;
1961: IF (x_tcu_rec.attribute6 = OKC_API.G_MISS_CHAR)
1957: IF (x_tcu_rec.attribute5 = OKC_API.G_MISS_CHAR)
1958: THEN
1959: x_tcu_rec.attribute5 := l_tcu_rec.attribute5;
1960: END IF;
1961: IF (x_tcu_rec.attribute6 = OKC_API.G_MISS_CHAR)
1962: THEN
1963: x_tcu_rec.attribute6 := l_tcu_rec.attribute6;
1964: END IF;
1965: IF (x_tcu_rec.attribute7 = OKC_API.G_MISS_CHAR)
1961: IF (x_tcu_rec.attribute6 = OKC_API.G_MISS_CHAR)
1962: THEN
1963: x_tcu_rec.attribute6 := l_tcu_rec.attribute6;
1964: END IF;
1965: IF (x_tcu_rec.attribute7 = OKC_API.G_MISS_CHAR)
1966: THEN
1967: x_tcu_rec.attribute7 := l_tcu_rec.attribute7;
1968: END IF;
1969: IF (x_tcu_rec.attribute8 = OKC_API.G_MISS_CHAR)
1965: IF (x_tcu_rec.attribute7 = OKC_API.G_MISS_CHAR)
1966: THEN
1967: x_tcu_rec.attribute7 := l_tcu_rec.attribute7;
1968: END IF;
1969: IF (x_tcu_rec.attribute8 = OKC_API.G_MISS_CHAR)
1970: THEN
1971: x_tcu_rec.attribute8 := l_tcu_rec.attribute8;
1972: END IF;
1973: IF (x_tcu_rec.attribute9 = OKC_API.G_MISS_CHAR)
1969: IF (x_tcu_rec.attribute8 = OKC_API.G_MISS_CHAR)
1970: THEN
1971: x_tcu_rec.attribute8 := l_tcu_rec.attribute8;
1972: END IF;
1973: IF (x_tcu_rec.attribute9 = OKC_API.G_MISS_CHAR)
1974: THEN
1975: x_tcu_rec.attribute9 := l_tcu_rec.attribute9;
1976: END IF;
1977: IF (x_tcu_rec.attribute10 = OKC_API.G_MISS_CHAR)
1973: IF (x_tcu_rec.attribute9 = OKC_API.G_MISS_CHAR)
1974: THEN
1975: x_tcu_rec.attribute9 := l_tcu_rec.attribute9;
1976: END IF;
1977: IF (x_tcu_rec.attribute10 = OKC_API.G_MISS_CHAR)
1978: THEN
1979: x_tcu_rec.attribute10 := l_tcu_rec.attribute10;
1980: END IF;
1981: IF (x_tcu_rec.attribute11 = OKC_API.G_MISS_CHAR)
1977: IF (x_tcu_rec.attribute10 = OKC_API.G_MISS_CHAR)
1978: THEN
1979: x_tcu_rec.attribute10 := l_tcu_rec.attribute10;
1980: END IF;
1981: IF (x_tcu_rec.attribute11 = OKC_API.G_MISS_CHAR)
1982: THEN
1983: x_tcu_rec.attribute11 := l_tcu_rec.attribute11;
1984: END IF;
1985: IF (x_tcu_rec.attribute12 = OKC_API.G_MISS_CHAR)
1981: IF (x_tcu_rec.attribute11 = OKC_API.G_MISS_CHAR)
1982: THEN
1983: x_tcu_rec.attribute11 := l_tcu_rec.attribute11;
1984: END IF;
1985: IF (x_tcu_rec.attribute12 = OKC_API.G_MISS_CHAR)
1986: THEN
1987: x_tcu_rec.attribute12 := l_tcu_rec.attribute12;
1988: END IF;
1989: IF (x_tcu_rec.attribute13 = OKC_API.G_MISS_CHAR)
1985: IF (x_tcu_rec.attribute12 = OKC_API.G_MISS_CHAR)
1986: THEN
1987: x_tcu_rec.attribute12 := l_tcu_rec.attribute12;
1988: END IF;
1989: IF (x_tcu_rec.attribute13 = OKC_API.G_MISS_CHAR)
1990: THEN
1991: x_tcu_rec.attribute13 := l_tcu_rec.attribute13;
1992: END IF;
1993: IF (x_tcu_rec.attribute14 = OKC_API.G_MISS_CHAR)
1989: IF (x_tcu_rec.attribute13 = OKC_API.G_MISS_CHAR)
1990: THEN
1991: x_tcu_rec.attribute13 := l_tcu_rec.attribute13;
1992: END IF;
1993: IF (x_tcu_rec.attribute14 = OKC_API.G_MISS_CHAR)
1994: THEN
1995: x_tcu_rec.attribute14 := l_tcu_rec.attribute14;
1996: END IF;
1997: IF (x_tcu_rec.attribute15 = OKC_API.G_MISS_CHAR)
1993: IF (x_tcu_rec.attribute14 = OKC_API.G_MISS_CHAR)
1994: THEN
1995: x_tcu_rec.attribute14 := l_tcu_rec.attribute14;
1996: END IF;
1997: IF (x_tcu_rec.attribute15 = OKC_API.G_MISS_CHAR)
1998: THEN
1999: x_tcu_rec.attribute15 := l_tcu_rec.attribute15;
2000: END IF;
2001: RETURN(l_return_status);
2006: FUNCTION Set_Attributes (
2007: p_tcu_rec IN tcu_rec_type,
2008: x_tcu_rec OUT NOCOPY tcu_rec_type
2009: ) RETURN VARCHAR2 IS
2010: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2011: BEGIN
2012: x_tcu_rec := p_tcu_rec;
2013: RETURN(l_return_status);
2014: END Set_Attributes;
2012: x_tcu_rec := p_tcu_rec;
2013: RETURN(l_return_status);
2014: END Set_Attributes;
2015: BEGIN
2016: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2017: p_init_msg_list,
2018: '_PVT',
2019: x_return_status);
2020: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2016: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2017: p_init_msg_list,
2018: '_PVT',
2019: x_return_status);
2020: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2021: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2022: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2023: RAISE OKC_API.G_EXCEPTION_ERROR;
2024: END IF;
2017: p_init_msg_list,
2018: '_PVT',
2019: x_return_status);
2020: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2021: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2022: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2023: RAISE OKC_API.G_EXCEPTION_ERROR;
2024: END IF;
2025: --- Setting item attributes
2018: '_PVT',
2019: x_return_status);
2020: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2021: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2022: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2023: RAISE OKC_API.G_EXCEPTION_ERROR;
2024: END IF;
2025: --- Setting item attributes
2026: l_return_status := Set_Attributes(
2019: x_return_status);
2020: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2021: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2022: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2023: RAISE OKC_API.G_EXCEPTION_ERROR;
2024: END IF;
2025: --- Setting item attributes
2026: l_return_status := Set_Attributes(
2027: p_tcu_rec, -- IN
2026: l_return_status := Set_Attributes(
2027: p_tcu_rec, -- IN
2028: l_tcu_rec); -- OUT
2029: --- If any errors happen abort API
2030: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2031: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2032: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2033: RAISE OKC_API.G_EXCEPTION_ERROR;
2034: END IF;
2027: p_tcu_rec, -- IN
2028: l_tcu_rec); -- OUT
2029: --- If any errors happen abort API
2030: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2031: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2032: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2033: RAISE OKC_API.G_EXCEPTION_ERROR;
2034: END IF;
2035: l_return_status := populate_new_record(l_tcu_rec, l_def_tcu_rec);
2028: l_tcu_rec); -- OUT
2029: --- If any errors happen abort API
2030: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2031: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2032: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2033: RAISE OKC_API.G_EXCEPTION_ERROR;
2034: END IF;
2035: l_return_status := populate_new_record(l_tcu_rec, l_def_tcu_rec);
2036: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2029: --- If any errors happen abort API
2030: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2031: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2032: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2033: RAISE OKC_API.G_EXCEPTION_ERROR;
2034: END IF;
2035: l_return_status := populate_new_record(l_tcu_rec, l_def_tcu_rec);
2036: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2037: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2032: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2033: RAISE OKC_API.G_EXCEPTION_ERROR;
2034: END IF;
2035: l_return_status := populate_new_record(l_tcu_rec, l_def_tcu_rec);
2036: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2037: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2038: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2039: RAISE OKC_API.G_EXCEPTION_ERROR;
2040: END IF;
2033: RAISE OKC_API.G_EXCEPTION_ERROR;
2034: END IF;
2035: l_return_status := populate_new_record(l_tcu_rec, l_def_tcu_rec);
2036: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2037: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2038: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2039: RAISE OKC_API.G_EXCEPTION_ERROR;
2040: END IF;
2041: UPDATE OKC_TIME_CODE_UNITS_B
2034: END IF;
2035: l_return_status := populate_new_record(l_tcu_rec, l_def_tcu_rec);
2036: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2037: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2038: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2039: RAISE OKC_API.G_EXCEPTION_ERROR;
2040: END IF;
2041: UPDATE OKC_TIME_CODE_UNITS_B
2042: SET QUANTITY = l_def_tcu_rec.quantity,
2035: l_return_status := populate_new_record(l_tcu_rec, l_def_tcu_rec);
2036: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2037: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2038: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2039: RAISE OKC_API.G_EXCEPTION_ERROR;
2040: END IF;
2041: UPDATE OKC_TIME_CODE_UNITS_B
2042: SET QUANTITY = l_def_tcu_rec.quantity,
2043: ACTIVE_FLAG = l_def_tcu_rec.active_flag,
2066: WHERE uom_code = l_def_tcu_rec.uom_code
2067: AND TCE_CODE = l_def_tcu_rec.tce_code;
2068:
2069: x_tcu_rec := l_def_tcu_rec;
2070: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2071: EXCEPTION
2072: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2073: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2074: (
2068:
2069: x_tcu_rec := l_def_tcu_rec;
2070: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2071: EXCEPTION
2072: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2073: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2074: (
2075: l_api_name,
2076: G_PKG_NAME,
2069: x_tcu_rec := l_def_tcu_rec;
2070: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2071: EXCEPTION
2072: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2073: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2074: (
2075: l_api_name,
2076: G_PKG_NAME,
2077: 'OKC_API.G_RET_STS_ERROR',
2073: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2074: (
2075: l_api_name,
2076: G_PKG_NAME,
2077: 'OKC_API.G_RET_STS_ERROR',
2078: x_msg_count,
2079: x_msg_data,
2080: '_PVT'
2081: );
2078: x_msg_count,
2079: x_msg_data,
2080: '_PVT'
2081: );
2082: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2083: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2084: (
2085: l_api_name,
2086: G_PKG_NAME,
2079: x_msg_data,
2080: '_PVT'
2081: );
2082: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2083: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2084: (
2085: l_api_name,
2086: G_PKG_NAME,
2087: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2083: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2084: (
2085: l_api_name,
2086: G_PKG_NAME,
2087: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2088: x_msg_count,
2089: x_msg_data,
2090: '_PVT'
2091: );
2089: x_msg_data,
2090: '_PVT'
2091: );
2092: WHEN OTHERS THEN
2093: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2094: (
2095: l_api_name,
2096: G_PKG_NAME,
2097: 'OTHERS',
2112: x_okc_time_code_units_tl_rec OUT NOCOPY OkcTimeCodeUnitsTlRecType) IS
2113:
2114: l_api_version CONSTANT NUMBER := 1;
2115: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2116: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2117: l_okc_time_code_units_tl_rec OkcTimeCodeUnitsTlRecType := p_okc_time_code_units_tl_rec;
2118: ldefokctimecodeunitstlrec OkcTimeCodeUnitsTlRecType;
2119: l_row_notfound BOOLEAN := TRUE;
2120: ----------------------------------
2125: x_okc_time_code_units_tl_rec OUT NOCOPY OkcTimeCodeUnitsTlRecType
2126: ) RETURN VARCHAR2 IS
2127: l_okc_time_code_units_tl_rec OkcTimeCodeUnitsTlRecType;
2128: l_row_notfound BOOLEAN := TRUE;
2129: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2130: BEGIN
2131: x_okc_time_code_units_tl_rec := p_okc_time_code_units_tl_rec;
2132: -- Get current database values
2133: l_okc_time_code_units_tl_rec := get_rec(p_okc_time_code_units_tl_rec, l_row_notfound);
2131: x_okc_time_code_units_tl_rec := p_okc_time_code_units_tl_rec;
2132: -- Get current database values
2133: l_okc_time_code_units_tl_rec := get_rec(p_okc_time_code_units_tl_rec, l_row_notfound);
2134: IF (l_row_notfound) THEN
2135: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2136: END IF;
2137: IF (x_okc_time_code_units_tl_rec.uom_code = OKC_API.G_MISS_CHAR)
2138: THEN
2139: x_okc_time_code_units_tl_rec.uom_code := l_okc_time_code_units_tl_rec.uom_code;
2133: l_okc_time_code_units_tl_rec := get_rec(p_okc_time_code_units_tl_rec, l_row_notfound);
2134: IF (l_row_notfound) THEN
2135: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2136: END IF;
2137: IF (x_okc_time_code_units_tl_rec.uom_code = OKC_API.G_MISS_CHAR)
2138: THEN
2139: x_okc_time_code_units_tl_rec.uom_code := l_okc_time_code_units_tl_rec.uom_code;
2140: END IF;
2141: IF (x_okc_time_code_units_tl_rec.tce_code = OKC_API.G_MISS_CHAR)
2137: IF (x_okc_time_code_units_tl_rec.uom_code = OKC_API.G_MISS_CHAR)
2138: THEN
2139: x_okc_time_code_units_tl_rec.uom_code := l_okc_time_code_units_tl_rec.uom_code;
2140: END IF;
2141: IF (x_okc_time_code_units_tl_rec.tce_code = OKC_API.G_MISS_CHAR)
2142: THEN
2143: x_okc_time_code_units_tl_rec.tce_code := l_okc_time_code_units_tl_rec.tce_code;
2144: END IF;
2145: IF (x_okc_time_code_units_tl_rec.language = OKC_API.G_MISS_CHAR)
2141: IF (x_okc_time_code_units_tl_rec.tce_code = OKC_API.G_MISS_CHAR)
2142: THEN
2143: x_okc_time_code_units_tl_rec.tce_code := l_okc_time_code_units_tl_rec.tce_code;
2144: END IF;
2145: IF (x_okc_time_code_units_tl_rec.language = OKC_API.G_MISS_CHAR)
2146: THEN
2147: x_okc_time_code_units_tl_rec.language := l_okc_time_code_units_tl_rec.language;
2148: END IF;
2149: IF (x_okc_time_code_units_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2145: IF (x_okc_time_code_units_tl_rec.language = OKC_API.G_MISS_CHAR)
2146: THEN
2147: x_okc_time_code_units_tl_rec.language := l_okc_time_code_units_tl_rec.language;
2148: END IF;
2149: IF (x_okc_time_code_units_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2150: THEN
2151: x_okc_time_code_units_tl_rec.source_lang := l_okc_time_code_units_tl_rec.source_lang;
2152: END IF;
2153: IF (x_okc_time_code_units_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2149: IF (x_okc_time_code_units_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2150: THEN
2151: x_okc_time_code_units_tl_rec.source_lang := l_okc_time_code_units_tl_rec.source_lang;
2152: END IF;
2153: IF (x_okc_time_code_units_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2154: THEN
2155: x_okc_time_code_units_tl_rec.sfwt_flag := l_okc_time_code_units_tl_rec.sfwt_flag;
2156: END IF;
2157: IF (x_okc_time_code_units_tl_rec.short_description = OKC_API.G_MISS_CHAR)
2153: IF (x_okc_time_code_units_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2154: THEN
2155: x_okc_time_code_units_tl_rec.sfwt_flag := l_okc_time_code_units_tl_rec.sfwt_flag;
2156: END IF;
2157: IF (x_okc_time_code_units_tl_rec.short_description = OKC_API.G_MISS_CHAR)
2158: THEN
2159: x_okc_time_code_units_tl_rec.short_description := l_okc_time_code_units_tl_rec.short_description;
2160: END IF;
2161: IF (x_okc_time_code_units_tl_rec.description = OKC_API.G_MISS_CHAR)
2157: IF (x_okc_time_code_units_tl_rec.short_description = OKC_API.G_MISS_CHAR)
2158: THEN
2159: x_okc_time_code_units_tl_rec.short_description := l_okc_time_code_units_tl_rec.short_description;
2160: END IF;
2161: IF (x_okc_time_code_units_tl_rec.description = OKC_API.G_MISS_CHAR)
2162: THEN
2163: x_okc_time_code_units_tl_rec.description := l_okc_time_code_units_tl_rec.description;
2164: END IF;
2165: IF (x_okc_time_code_units_tl_rec.comments = OKC_API.G_MISS_CHAR)
2161: IF (x_okc_time_code_units_tl_rec.description = OKC_API.G_MISS_CHAR)
2162: THEN
2163: x_okc_time_code_units_tl_rec.description := l_okc_time_code_units_tl_rec.description;
2164: END IF;
2165: IF (x_okc_time_code_units_tl_rec.comments = OKC_API.G_MISS_CHAR)
2166: THEN
2167: x_okc_time_code_units_tl_rec.comments := l_okc_time_code_units_tl_rec.comments;
2168: END IF;
2169: IF (x_okc_time_code_units_tl_rec.created_by = OKC_API.G_MISS_NUM)
2165: IF (x_okc_time_code_units_tl_rec.comments = OKC_API.G_MISS_CHAR)
2166: THEN
2167: x_okc_time_code_units_tl_rec.comments := l_okc_time_code_units_tl_rec.comments;
2168: END IF;
2169: IF (x_okc_time_code_units_tl_rec.created_by = OKC_API.G_MISS_NUM)
2170: THEN
2171: x_okc_time_code_units_tl_rec.created_by := l_okc_time_code_units_tl_rec.created_by;
2172: END IF;
2173: IF (x_okc_time_code_units_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2169: IF (x_okc_time_code_units_tl_rec.created_by = OKC_API.G_MISS_NUM)
2170: THEN
2171: x_okc_time_code_units_tl_rec.created_by := l_okc_time_code_units_tl_rec.created_by;
2172: END IF;
2173: IF (x_okc_time_code_units_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2174: THEN
2175: x_okc_time_code_units_tl_rec.creation_date := l_okc_time_code_units_tl_rec.creation_date;
2176: END IF;
2177: IF (x_okc_time_code_units_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2173: IF (x_okc_time_code_units_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2174: THEN
2175: x_okc_time_code_units_tl_rec.creation_date := l_okc_time_code_units_tl_rec.creation_date;
2176: END IF;
2177: IF (x_okc_time_code_units_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2178: THEN
2179: x_okc_time_code_units_tl_rec.last_updated_by := l_okc_time_code_units_tl_rec.last_updated_by;
2180: END IF;
2181: IF (x_okc_time_code_units_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2177: IF (x_okc_time_code_units_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2178: THEN
2179: x_okc_time_code_units_tl_rec.last_updated_by := l_okc_time_code_units_tl_rec.last_updated_by;
2180: END IF;
2181: IF (x_okc_time_code_units_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2182: THEN
2183: x_okc_time_code_units_tl_rec.last_update_date := l_okc_time_code_units_tl_rec.last_update_date;
2184: END IF;
2185: IF (x_okc_time_code_units_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
2181: IF (x_okc_time_code_units_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2182: THEN
2183: x_okc_time_code_units_tl_rec.last_update_date := l_okc_time_code_units_tl_rec.last_update_date;
2184: END IF;
2185: IF (x_okc_time_code_units_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
2186: THEN
2187: x_okc_time_code_units_tl_rec.last_update_login := l_okc_time_code_units_tl_rec.last_update_login;
2188: END IF;
2189: RETURN(l_return_status);
2194: FUNCTION Set_Attributes (
2195: p_okc_time_code_units_tl_rec IN OkcTimeCodeUnitsTlRecType,
2196: x_okc_time_code_units_tl_rec OUT NOCOPY OkcTimeCodeUnitsTlRecType
2197: ) RETURN VARCHAR2 IS
2198: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2199: BEGIN
2200: x_okc_time_code_units_tl_rec := p_okc_time_code_units_tl_rec;
2201: x_okc_time_code_units_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
2202: x_okc_time_code_units_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
2202: x_okc_time_code_units_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
2203: RETURN(l_return_status);
2204: END Set_Attributes;
2205: BEGIN
2206: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2207: p_init_msg_list,
2208: '_PVT',
2209: x_return_status);
2210: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2206: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2207: p_init_msg_list,
2208: '_PVT',
2209: x_return_status);
2210: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2211: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2212: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2213: RAISE OKC_API.G_EXCEPTION_ERROR;
2214: END IF;
2207: p_init_msg_list,
2208: '_PVT',
2209: x_return_status);
2210: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2211: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2212: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2213: RAISE OKC_API.G_EXCEPTION_ERROR;
2214: END IF;
2215: --- Setting item attributes
2208: '_PVT',
2209: x_return_status);
2210: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2211: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2212: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2213: RAISE OKC_API.G_EXCEPTION_ERROR;
2214: END IF;
2215: --- Setting item attributes
2216: l_return_status := Set_Attributes(
2209: x_return_status);
2210: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2211: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2212: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2213: RAISE OKC_API.G_EXCEPTION_ERROR;
2214: END IF;
2215: --- Setting item attributes
2216: l_return_status := Set_Attributes(
2217: p_okc_time_code_units_tl_rec, -- IN
2216: l_return_status := Set_Attributes(
2217: p_okc_time_code_units_tl_rec, -- IN
2218: l_okc_time_code_units_tl_rec); -- OUT
2219: --- If any errors happen abort API
2220: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2221: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2222: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2223: RAISE OKC_API.G_EXCEPTION_ERROR;
2224: END IF;
2217: p_okc_time_code_units_tl_rec, -- IN
2218: l_okc_time_code_units_tl_rec); -- OUT
2219: --- If any errors happen abort API
2220: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2221: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2222: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2223: RAISE OKC_API.G_EXCEPTION_ERROR;
2224: END IF;
2225: l_return_status := populate_new_record(l_okc_time_code_units_tl_rec, ldefokctimecodeunitstlrec);
2218: l_okc_time_code_units_tl_rec); -- OUT
2219: --- If any errors happen abort API
2220: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2221: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2222: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2223: RAISE OKC_API.G_EXCEPTION_ERROR;
2224: END IF;
2225: l_return_status := populate_new_record(l_okc_time_code_units_tl_rec, ldefokctimecodeunitstlrec);
2226: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2219: --- If any errors happen abort API
2220: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2221: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2222: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2223: RAISE OKC_API.G_EXCEPTION_ERROR;
2224: END IF;
2225: l_return_status := populate_new_record(l_okc_time_code_units_tl_rec, ldefokctimecodeunitstlrec);
2226: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2227: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2222: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2223: RAISE OKC_API.G_EXCEPTION_ERROR;
2224: END IF;
2225: l_return_status := populate_new_record(l_okc_time_code_units_tl_rec, ldefokctimecodeunitstlrec);
2226: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2227: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2228: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2229: RAISE OKC_API.G_EXCEPTION_ERROR;
2230: END IF;
2223: RAISE OKC_API.G_EXCEPTION_ERROR;
2224: END IF;
2225: l_return_status := populate_new_record(l_okc_time_code_units_tl_rec, ldefokctimecodeunitstlrec);
2226: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2227: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2228: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2229: RAISE OKC_API.G_EXCEPTION_ERROR;
2230: END IF;
2231: UPDATE OKC_TIME_CODE_UNITS_TL
2224: END IF;
2225: l_return_status := populate_new_record(l_okc_time_code_units_tl_rec, ldefokctimecodeunitstlrec);
2226: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2227: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2228: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2229: RAISE OKC_API.G_EXCEPTION_ERROR;
2230: END IF;
2231: UPDATE OKC_TIME_CODE_UNITS_TL
2232: SET SHORT_DESCRIPTION = ldefokctimecodeunitstlrec.short_description,
2225: l_return_status := populate_new_record(l_okc_time_code_units_tl_rec, ldefokctimecodeunitstlrec);
2226: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2227: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2228: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2229: RAISE OKC_API.G_EXCEPTION_ERROR;
2230: END IF;
2231: UPDATE OKC_TIME_CODE_UNITS_TL
2232: SET SHORT_DESCRIPTION = ldefokctimecodeunitstlrec.short_description,
2233: DESCRIPTION = ldefokctimecodeunitstlrec.description,
2247: AND TCE_CODE = ldefokctimecodeunitstlrec.tce_code
2248: AND SOURCE_LANG <> USERENV('LANG');
2249:
2250: x_okc_time_code_units_tl_rec := ldefokctimecodeunitstlrec;
2251: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2252: EXCEPTION
2253: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2254: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2255: (
2249:
2250: x_okc_time_code_units_tl_rec := ldefokctimecodeunitstlrec;
2251: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2252: EXCEPTION
2253: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2254: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2255: (
2256: l_api_name,
2257: G_PKG_NAME,
2250: x_okc_time_code_units_tl_rec := ldefokctimecodeunitstlrec;
2251: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2252: EXCEPTION
2253: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2254: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2255: (
2256: l_api_name,
2257: G_PKG_NAME,
2258: 'OKC_API.G_RET_STS_ERROR',
2254: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2255: (
2256: l_api_name,
2257: G_PKG_NAME,
2258: 'OKC_API.G_RET_STS_ERROR',
2259: x_msg_count,
2260: x_msg_data,
2261: '_PVT'
2262: );
2259: x_msg_count,
2260: x_msg_data,
2261: '_PVT'
2262: );
2263: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2264: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2265: (
2266: l_api_name,
2267: G_PKG_NAME,
2260: x_msg_data,
2261: '_PVT'
2262: );
2263: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2264: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2265: (
2266: l_api_name,
2267: G_PKG_NAME,
2268: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2264: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2265: (
2266: l_api_name,
2267: G_PKG_NAME,
2268: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2269: x_msg_count,
2270: x_msg_data,
2271: '_PVT'
2272: );
2270: x_msg_data,
2271: '_PVT'
2272: );
2273: WHEN OTHERS THEN
2274: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2275: (
2276: l_api_name,
2277: G_PKG_NAME,
2278: 'OTHERS',
2294: x_tcuv_rec OUT NOCOPY tcuv_rec_type) IS
2295:
2296: l_api_version CONSTANT NUMBER := 1;
2297: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
2298: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2299: l_tcuv_rec tcuv_rec_type := p_tcuv_rec;
2300: l_def_tcuv_rec tcuv_rec_type;
2301: l_okc_time_code_units_tl_rec OkcTimeCodeUnitsTlRecType;
2302: lx_okc_time_code_units_tl_rec OkcTimeCodeUnitsTlRecType;
2323: x_tcuv_rec OUT NOCOPY tcuv_rec_type
2324: ) RETURN VARCHAR2 IS
2325: l_tcuv_rec tcuv_rec_type;
2326: l_row_notfound BOOLEAN := TRUE;
2327: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2328: BEGIN
2329: x_tcuv_rec := p_tcuv_rec;
2330: -- Get current database values
2331: l_tcuv_rec := get_rec(p_tcuv_rec, l_row_notfound);
2329: x_tcuv_rec := p_tcuv_rec;
2330: -- Get current database values
2331: l_tcuv_rec := get_rec(p_tcuv_rec, l_row_notfound);
2332: IF (l_row_notfound) THEN
2333: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2334: END IF;
2335: IF (x_tcuv_rec.uom_code = OKC_API.G_MISS_CHAR)
2336: THEN
2337: x_tcuv_rec.uom_code := l_tcuv_rec.uom_code;
2331: l_tcuv_rec := get_rec(p_tcuv_rec, l_row_notfound);
2332: IF (l_row_notfound) THEN
2333: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2334: END IF;
2335: IF (x_tcuv_rec.uom_code = OKC_API.G_MISS_CHAR)
2336: THEN
2337: x_tcuv_rec.uom_code := l_tcuv_rec.uom_code;
2338: END IF;
2339: IF (x_tcuv_rec.tce_code = OKC_API.G_MISS_CHAR)
2335: IF (x_tcuv_rec.uom_code = OKC_API.G_MISS_CHAR)
2336: THEN
2337: x_tcuv_rec.uom_code := l_tcuv_rec.uom_code;
2338: END IF;
2339: IF (x_tcuv_rec.tce_code = OKC_API.G_MISS_CHAR)
2340: THEN
2341: x_tcuv_rec.tce_code := l_tcuv_rec.tce_code;
2342: END IF;
2343: IF (x_tcuv_rec.object_version_number = OKC_API.G_MISS_NUM)
2339: IF (x_tcuv_rec.tce_code = OKC_API.G_MISS_CHAR)
2340: THEN
2341: x_tcuv_rec.tce_code := l_tcuv_rec.tce_code;
2342: END IF;
2343: IF (x_tcuv_rec.object_version_number = OKC_API.G_MISS_NUM)
2344: THEN
2345: x_tcuv_rec.object_version_number := l_tcuv_rec.object_version_number;
2346: END IF;
2347: IF (x_tcuv_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2343: IF (x_tcuv_rec.object_version_number = OKC_API.G_MISS_NUM)
2344: THEN
2345: x_tcuv_rec.object_version_number := l_tcuv_rec.object_version_number;
2346: END IF;
2347: IF (x_tcuv_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2348: THEN
2349: x_tcuv_rec.sfwt_flag := l_tcuv_rec.sfwt_flag;
2350: END IF;
2351: IF (x_tcuv_rec.quantity = OKC_API.G_MISS_NUM)
2347: IF (x_tcuv_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2348: THEN
2349: x_tcuv_rec.sfwt_flag := l_tcuv_rec.sfwt_flag;
2350: END IF;
2351: IF (x_tcuv_rec.quantity = OKC_API.G_MISS_NUM)
2352: THEN
2353: x_tcuv_rec.quantity := l_tcuv_rec.quantity;
2354: END IF;
2355: IF (x_tcuv_rec.active_flag = OKC_API.G_MISS_CHAR)
2351: IF (x_tcuv_rec.quantity = OKC_API.G_MISS_NUM)
2352: THEN
2353: x_tcuv_rec.quantity := l_tcuv_rec.quantity;
2354: END IF;
2355: IF (x_tcuv_rec.active_flag = OKC_API.G_MISS_CHAR)
2356: THEN
2357: x_tcuv_rec.active_flag := l_tcuv_rec.active_flag;
2358: END IF;
2359: IF (x_tcuv_rec.short_description = OKC_API.G_MISS_CHAR)
2355: IF (x_tcuv_rec.active_flag = OKC_API.G_MISS_CHAR)
2356: THEN
2357: x_tcuv_rec.active_flag := l_tcuv_rec.active_flag;
2358: END IF;
2359: IF (x_tcuv_rec.short_description = OKC_API.G_MISS_CHAR)
2360: THEN
2361: x_tcuv_rec.short_description := l_tcuv_rec.short_description;
2362: END IF;
2363: IF (x_tcuv_rec.description = OKC_API.G_MISS_CHAR)
2359: IF (x_tcuv_rec.short_description = OKC_API.G_MISS_CHAR)
2360: THEN
2361: x_tcuv_rec.short_description := l_tcuv_rec.short_description;
2362: END IF;
2363: IF (x_tcuv_rec.description = OKC_API.G_MISS_CHAR)
2364: THEN
2365: x_tcuv_rec.description := l_tcuv_rec.description;
2366: END IF;
2367: IF (x_tcuv_rec.comments = OKC_API.G_MISS_CHAR)
2363: IF (x_tcuv_rec.description = OKC_API.G_MISS_CHAR)
2364: THEN
2365: x_tcuv_rec.description := l_tcuv_rec.description;
2366: END IF;
2367: IF (x_tcuv_rec.comments = OKC_API.G_MISS_CHAR)
2368: THEN
2369: x_tcuv_rec.comments := l_tcuv_rec.comments;
2370: END IF;
2371: IF (x_tcuv_rec.attribute_category = OKC_API.G_MISS_CHAR)
2367: IF (x_tcuv_rec.comments = OKC_API.G_MISS_CHAR)
2368: THEN
2369: x_tcuv_rec.comments := l_tcuv_rec.comments;
2370: END IF;
2371: IF (x_tcuv_rec.attribute_category = OKC_API.G_MISS_CHAR)
2372: THEN
2373: x_tcuv_rec.attribute_category := l_tcuv_rec.attribute_category;
2374: END IF;
2375: IF (x_tcuv_rec.attribute1 = OKC_API.G_MISS_CHAR)
2371: IF (x_tcuv_rec.attribute_category = OKC_API.G_MISS_CHAR)
2372: THEN
2373: x_tcuv_rec.attribute_category := l_tcuv_rec.attribute_category;
2374: END IF;
2375: IF (x_tcuv_rec.attribute1 = OKC_API.G_MISS_CHAR)
2376: THEN
2377: x_tcuv_rec.attribute1 := l_tcuv_rec.attribute1;
2378: END IF;
2379: IF (x_tcuv_rec.attribute2 = OKC_API.G_MISS_CHAR)
2375: IF (x_tcuv_rec.attribute1 = OKC_API.G_MISS_CHAR)
2376: THEN
2377: x_tcuv_rec.attribute1 := l_tcuv_rec.attribute1;
2378: END IF;
2379: IF (x_tcuv_rec.attribute2 = OKC_API.G_MISS_CHAR)
2380: THEN
2381: x_tcuv_rec.attribute2 := l_tcuv_rec.attribute2;
2382: END IF;
2383: IF (x_tcuv_rec.attribute3 = OKC_API.G_MISS_CHAR)
2379: IF (x_tcuv_rec.attribute2 = OKC_API.G_MISS_CHAR)
2380: THEN
2381: x_tcuv_rec.attribute2 := l_tcuv_rec.attribute2;
2382: END IF;
2383: IF (x_tcuv_rec.attribute3 = OKC_API.G_MISS_CHAR)
2384: THEN
2385: x_tcuv_rec.attribute3 := l_tcuv_rec.attribute3;
2386: END IF;
2387: IF (x_tcuv_rec.attribute4 = OKC_API.G_MISS_CHAR)
2383: IF (x_tcuv_rec.attribute3 = OKC_API.G_MISS_CHAR)
2384: THEN
2385: x_tcuv_rec.attribute3 := l_tcuv_rec.attribute3;
2386: END IF;
2387: IF (x_tcuv_rec.attribute4 = OKC_API.G_MISS_CHAR)
2388: THEN
2389: x_tcuv_rec.attribute4 := l_tcuv_rec.attribute4;
2390: END IF;
2391: IF (x_tcuv_rec.attribute5 = OKC_API.G_MISS_CHAR)
2387: IF (x_tcuv_rec.attribute4 = OKC_API.G_MISS_CHAR)
2388: THEN
2389: x_tcuv_rec.attribute4 := l_tcuv_rec.attribute4;
2390: END IF;
2391: IF (x_tcuv_rec.attribute5 = OKC_API.G_MISS_CHAR)
2392: THEN
2393: x_tcuv_rec.attribute5 := l_tcuv_rec.attribute5;
2394: END IF;
2395: IF (x_tcuv_rec.attribute6 = OKC_API.G_MISS_CHAR)
2391: IF (x_tcuv_rec.attribute5 = OKC_API.G_MISS_CHAR)
2392: THEN
2393: x_tcuv_rec.attribute5 := l_tcuv_rec.attribute5;
2394: END IF;
2395: IF (x_tcuv_rec.attribute6 = OKC_API.G_MISS_CHAR)
2396: THEN
2397: x_tcuv_rec.attribute6 := l_tcuv_rec.attribute6;
2398: END IF;
2399: IF (x_tcuv_rec.attribute7 = OKC_API.G_MISS_CHAR)
2395: IF (x_tcuv_rec.attribute6 = OKC_API.G_MISS_CHAR)
2396: THEN
2397: x_tcuv_rec.attribute6 := l_tcuv_rec.attribute6;
2398: END IF;
2399: IF (x_tcuv_rec.attribute7 = OKC_API.G_MISS_CHAR)
2400: THEN
2401: x_tcuv_rec.attribute7 := l_tcuv_rec.attribute7;
2402: END IF;
2403: IF (x_tcuv_rec.attribute8 = OKC_API.G_MISS_CHAR)
2399: IF (x_tcuv_rec.attribute7 = OKC_API.G_MISS_CHAR)
2400: THEN
2401: x_tcuv_rec.attribute7 := l_tcuv_rec.attribute7;
2402: END IF;
2403: IF (x_tcuv_rec.attribute8 = OKC_API.G_MISS_CHAR)
2404: THEN
2405: x_tcuv_rec.attribute8 := l_tcuv_rec.attribute8;
2406: END IF;
2407: IF (x_tcuv_rec.attribute9 = OKC_API.G_MISS_CHAR)
2403: IF (x_tcuv_rec.attribute8 = OKC_API.G_MISS_CHAR)
2404: THEN
2405: x_tcuv_rec.attribute8 := l_tcuv_rec.attribute8;
2406: END IF;
2407: IF (x_tcuv_rec.attribute9 = OKC_API.G_MISS_CHAR)
2408: THEN
2409: x_tcuv_rec.attribute9 := l_tcuv_rec.attribute9;
2410: END IF;
2411: IF (x_tcuv_rec.attribute10 = OKC_API.G_MISS_CHAR)
2407: IF (x_tcuv_rec.attribute9 = OKC_API.G_MISS_CHAR)
2408: THEN
2409: x_tcuv_rec.attribute9 := l_tcuv_rec.attribute9;
2410: END IF;
2411: IF (x_tcuv_rec.attribute10 = OKC_API.G_MISS_CHAR)
2412: THEN
2413: x_tcuv_rec.attribute10 := l_tcuv_rec.attribute10;
2414: END IF;
2415: IF (x_tcuv_rec.attribute11 = OKC_API.G_MISS_CHAR)
2411: IF (x_tcuv_rec.attribute10 = OKC_API.G_MISS_CHAR)
2412: THEN
2413: x_tcuv_rec.attribute10 := l_tcuv_rec.attribute10;
2414: END IF;
2415: IF (x_tcuv_rec.attribute11 = OKC_API.G_MISS_CHAR)
2416: THEN
2417: x_tcuv_rec.attribute11 := l_tcuv_rec.attribute11;
2418: END IF;
2419: IF (x_tcuv_rec.attribute12 = OKC_API.G_MISS_CHAR)
2415: IF (x_tcuv_rec.attribute11 = OKC_API.G_MISS_CHAR)
2416: THEN
2417: x_tcuv_rec.attribute11 := l_tcuv_rec.attribute11;
2418: END IF;
2419: IF (x_tcuv_rec.attribute12 = OKC_API.G_MISS_CHAR)
2420: THEN
2421: x_tcuv_rec.attribute12 := l_tcuv_rec.attribute12;
2422: END IF;
2423: IF (x_tcuv_rec.attribute13 = OKC_API.G_MISS_CHAR)
2419: IF (x_tcuv_rec.attribute12 = OKC_API.G_MISS_CHAR)
2420: THEN
2421: x_tcuv_rec.attribute12 := l_tcuv_rec.attribute12;
2422: END IF;
2423: IF (x_tcuv_rec.attribute13 = OKC_API.G_MISS_CHAR)
2424: THEN
2425: x_tcuv_rec.attribute13 := l_tcuv_rec.attribute13;
2426: END IF;
2427: IF (x_tcuv_rec.attribute14 = OKC_API.G_MISS_CHAR)
2423: IF (x_tcuv_rec.attribute13 = OKC_API.G_MISS_CHAR)
2424: THEN
2425: x_tcuv_rec.attribute13 := l_tcuv_rec.attribute13;
2426: END IF;
2427: IF (x_tcuv_rec.attribute14 = OKC_API.G_MISS_CHAR)
2428: THEN
2429: x_tcuv_rec.attribute14 := l_tcuv_rec.attribute14;
2430: END IF;
2431: IF (x_tcuv_rec.attribute15 = OKC_API.G_MISS_CHAR)
2427: IF (x_tcuv_rec.attribute14 = OKC_API.G_MISS_CHAR)
2428: THEN
2429: x_tcuv_rec.attribute14 := l_tcuv_rec.attribute14;
2430: END IF;
2431: IF (x_tcuv_rec.attribute15 = OKC_API.G_MISS_CHAR)
2432: THEN
2433: x_tcuv_rec.attribute15 := l_tcuv_rec.attribute15;
2434: END IF;
2435: IF (x_tcuv_rec.created_by = OKC_API.G_MISS_NUM)
2431: IF (x_tcuv_rec.attribute15 = OKC_API.G_MISS_CHAR)
2432: THEN
2433: x_tcuv_rec.attribute15 := l_tcuv_rec.attribute15;
2434: END IF;
2435: IF (x_tcuv_rec.created_by = OKC_API.G_MISS_NUM)
2436: THEN
2437: x_tcuv_rec.created_by := l_tcuv_rec.created_by;
2438: END IF;
2439: IF (x_tcuv_rec.creation_date = OKC_API.G_MISS_DATE)
2435: IF (x_tcuv_rec.created_by = OKC_API.G_MISS_NUM)
2436: THEN
2437: x_tcuv_rec.created_by := l_tcuv_rec.created_by;
2438: END IF;
2439: IF (x_tcuv_rec.creation_date = OKC_API.G_MISS_DATE)
2440: THEN
2441: x_tcuv_rec.creation_date := l_tcuv_rec.creation_date;
2442: END IF;
2443: IF (x_tcuv_rec.last_updated_by = OKC_API.G_MISS_NUM)
2439: IF (x_tcuv_rec.creation_date = OKC_API.G_MISS_DATE)
2440: THEN
2441: x_tcuv_rec.creation_date := l_tcuv_rec.creation_date;
2442: END IF;
2443: IF (x_tcuv_rec.last_updated_by = OKC_API.G_MISS_NUM)
2444: THEN
2445: x_tcuv_rec.last_updated_by := l_tcuv_rec.last_updated_by;
2446: END IF;
2447: IF (x_tcuv_rec.last_update_date = OKC_API.G_MISS_DATE)
2443: IF (x_tcuv_rec.last_updated_by = OKC_API.G_MISS_NUM)
2444: THEN
2445: x_tcuv_rec.last_updated_by := l_tcuv_rec.last_updated_by;
2446: END IF;
2447: IF (x_tcuv_rec.last_update_date = OKC_API.G_MISS_DATE)
2448: THEN
2449: x_tcuv_rec.last_update_date := l_tcuv_rec.last_update_date;
2450: END IF;
2451: IF (x_tcuv_rec.last_update_login = OKC_API.G_MISS_NUM)
2447: IF (x_tcuv_rec.last_update_date = OKC_API.G_MISS_DATE)
2448: THEN
2449: x_tcuv_rec.last_update_date := l_tcuv_rec.last_update_date;
2450: END IF;
2451: IF (x_tcuv_rec.last_update_login = OKC_API.G_MISS_NUM)
2452: THEN
2453: x_tcuv_rec.last_update_login := l_tcuv_rec.last_update_login;
2454: END IF;
2455: RETURN(l_return_status);
2460: FUNCTION Set_Attributes (
2461: p_tcuv_rec IN tcuv_rec_type,
2462: x_tcuv_rec OUT NOCOPY tcuv_rec_type
2463: ) RETURN VARCHAR2 IS
2464: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2465: BEGIN
2466: x_tcuv_rec := p_tcuv_rec;
2467: -- **** Added the following two lines for uppercasing *********
2468: x_tcuv_rec.SFWT_FLAG := upper(p_tcuv_rec.SFWT_FLAG);
2469: x_tcuv_rec.OBJECT_VERSION_NUMBER := NVL(x_tcuv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
2470: RETURN(l_return_status);
2471: END Set_Attributes;
2472: BEGIN
2473: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2474: G_PKG_NAME,
2475: p_init_msg_list,
2476: l_api_version,
2477: p_api_version,
2476: l_api_version,
2477: p_api_version,
2478: '_PVT',
2479: x_return_status);
2480: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2481: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2482: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2483: RAISE OKC_API.G_EXCEPTION_ERROR;
2484: END IF;
2477: p_api_version,
2478: '_PVT',
2479: x_return_status);
2480: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2481: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2482: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2483: RAISE OKC_API.G_EXCEPTION_ERROR;
2484: END IF;
2485: --- Setting item attributes
2478: '_PVT',
2479: x_return_status);
2480: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2481: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2482: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2483: RAISE OKC_API.G_EXCEPTION_ERROR;
2484: END IF;
2485: --- Setting item attributes
2486: l_return_status := Set_Attributes(
2479: x_return_status);
2480: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2481: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2482: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2483: RAISE OKC_API.G_EXCEPTION_ERROR;
2484: END IF;
2485: --- Setting item attributes
2486: l_return_status := Set_Attributes(
2487: p_tcuv_rec, -- IN
2486: l_return_status := Set_Attributes(
2487: p_tcuv_rec, -- IN
2488: l_tcuv_rec); -- OUT
2489: --- If any errors happen abort API
2490: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2491: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2492: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2493: RAISE OKC_API.G_EXCEPTION_ERROR;
2494: END IF;
2487: p_tcuv_rec, -- IN
2488: l_tcuv_rec); -- OUT
2489: --- If any errors happen abort API
2490: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2491: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2492: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2493: RAISE OKC_API.G_EXCEPTION_ERROR;
2494: END IF;
2495: l_return_status := populate_new_record(l_tcuv_rec, l_def_tcuv_rec);
2488: l_tcuv_rec); -- OUT
2489: --- If any errors happen abort API
2490: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2491: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2492: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2493: RAISE OKC_API.G_EXCEPTION_ERROR;
2494: END IF;
2495: l_return_status := populate_new_record(l_tcuv_rec, l_def_tcuv_rec);
2496: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2489: --- If any errors happen abort API
2490: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2491: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2492: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2493: RAISE OKC_API.G_EXCEPTION_ERROR;
2494: END IF;
2495: l_return_status := populate_new_record(l_tcuv_rec, l_def_tcuv_rec);
2496: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2497: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2492: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2493: RAISE OKC_API.G_EXCEPTION_ERROR;
2494: END IF;
2495: l_return_status := populate_new_record(l_tcuv_rec, l_def_tcuv_rec);
2496: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2497: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2498: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2499: RAISE OKC_API.G_EXCEPTION_ERROR;
2500: END IF;
2493: RAISE OKC_API.G_EXCEPTION_ERROR;
2494: END IF;
2495: l_return_status := populate_new_record(l_tcuv_rec, l_def_tcuv_rec);
2496: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2497: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2498: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2499: RAISE OKC_API.G_EXCEPTION_ERROR;
2500: END IF;
2501: l_def_tcuv_rec := fill_who_columns(l_def_tcuv_rec);
2494: END IF;
2495: l_return_status := populate_new_record(l_tcuv_rec, l_def_tcuv_rec);
2496: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2497: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2498: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2499: RAISE OKC_API.G_EXCEPTION_ERROR;
2500: END IF;
2501: l_def_tcuv_rec := fill_who_columns(l_def_tcuv_rec);
2502: --- Validate all non-missing attributes (Item Level Validation)
2495: l_return_status := populate_new_record(l_tcuv_rec, l_def_tcuv_rec);
2496: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2497: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2498: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2499: RAISE OKC_API.G_EXCEPTION_ERROR;
2500: END IF;
2501: l_def_tcuv_rec := fill_who_columns(l_def_tcuv_rec);
2502: --- Validate all non-missing attributes (Item Level Validation)
2503: l_return_status := Validate_Attributes(l_def_tcuv_rec);
2501: l_def_tcuv_rec := fill_who_columns(l_def_tcuv_rec);
2502: --- Validate all non-missing attributes (Item Level Validation)
2503: l_return_status := Validate_Attributes(l_def_tcuv_rec);
2504: --- If any errors happen abort API
2505: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2506: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2507: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2508: RAISE OKC_API.G_EXCEPTION_ERROR;
2509: END IF;
2502: --- Validate all non-missing attributes (Item Level Validation)
2503: l_return_status := Validate_Attributes(l_def_tcuv_rec);
2504: --- If any errors happen abort API
2505: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2506: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2507: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2508: RAISE OKC_API.G_EXCEPTION_ERROR;
2509: END IF;
2510: l_return_status := Validate_Record(l_def_tcuv_rec);
2503: l_return_status := Validate_Attributes(l_def_tcuv_rec);
2504: --- If any errors happen abort API
2505: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2506: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2507: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2508: RAISE OKC_API.G_EXCEPTION_ERROR;
2509: END IF;
2510: l_return_status := Validate_Record(l_def_tcuv_rec);
2511: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2504: --- If any errors happen abort API
2505: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2506: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2507: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2508: RAISE OKC_API.G_EXCEPTION_ERROR;
2509: END IF;
2510: l_return_status := Validate_Record(l_def_tcuv_rec);
2511: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2512: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2507: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2508: RAISE OKC_API.G_EXCEPTION_ERROR;
2509: END IF;
2510: l_return_status := Validate_Record(l_def_tcuv_rec);
2511: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2512: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2513: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2514: RAISE OKC_API.G_EXCEPTION_ERROR;
2515: END IF;
2508: RAISE OKC_API.G_EXCEPTION_ERROR;
2509: END IF;
2510: l_return_status := Validate_Record(l_def_tcuv_rec);
2511: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2512: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2513: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2514: RAISE OKC_API.G_EXCEPTION_ERROR;
2515: END IF;
2516:
2509: END IF;
2510: l_return_status := Validate_Record(l_def_tcuv_rec);
2511: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2512: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2513: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2514: RAISE OKC_API.G_EXCEPTION_ERROR;
2515: END IF;
2516:
2517: --------------------------------------
2510: l_return_status := Validate_Record(l_def_tcuv_rec);
2511: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2512: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2513: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2514: RAISE OKC_API.G_EXCEPTION_ERROR;
2515: END IF;
2516:
2517: --------------------------------------
2518: -- Move VIEW record to "Child" records
2529: x_msg_data,
2530: l_okc_time_code_units_tl_rec,
2531: lx_okc_time_code_units_tl_rec
2532: );
2533: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2534: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2535: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2536: RAISE OKC_API.G_EXCEPTION_ERROR;
2537: END IF;
2530: l_okc_time_code_units_tl_rec,
2531: lx_okc_time_code_units_tl_rec
2532: );
2533: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2534: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2535: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2536: RAISE OKC_API.G_EXCEPTION_ERROR;
2537: END IF;
2538: migrate(lx_okc_time_code_units_tl_rec, l_def_tcuv_rec);
2531: lx_okc_time_code_units_tl_rec
2532: );
2533: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2534: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2535: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2536: RAISE OKC_API.G_EXCEPTION_ERROR;
2537: END IF;
2538: migrate(lx_okc_time_code_units_tl_rec, l_def_tcuv_rec);
2539: update_row(
2532: );
2533: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2534: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2535: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2536: RAISE OKC_API.G_EXCEPTION_ERROR;
2537: END IF;
2538: migrate(lx_okc_time_code_units_tl_rec, l_def_tcuv_rec);
2539: update_row(
2540: p_init_msg_list,
2543: x_msg_data,
2544: l_tcu_rec,
2545: lx_tcu_rec
2546: );
2547: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2548: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2549: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2550: RAISE OKC_API.G_EXCEPTION_ERROR;
2551: END IF;
2544: l_tcu_rec,
2545: lx_tcu_rec
2546: );
2547: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2548: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2549: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2550: RAISE OKC_API.G_EXCEPTION_ERROR;
2551: END IF;
2552: migrate(lx_tcu_rec, l_def_tcuv_rec);
2545: lx_tcu_rec
2546: );
2547: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2548: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2549: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2550: RAISE OKC_API.G_EXCEPTION_ERROR;
2551: END IF;
2552: migrate(lx_tcu_rec, l_def_tcuv_rec);
2553: x_tcuv_rec := l_def_tcuv_rec;
2546: );
2547: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2548: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2549: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2550: RAISE OKC_API.G_EXCEPTION_ERROR;
2551: END IF;
2552: migrate(lx_tcu_rec, l_def_tcuv_rec);
2553: x_tcuv_rec := l_def_tcuv_rec;
2554: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2550: RAISE OKC_API.G_EXCEPTION_ERROR;
2551: END IF;
2552: migrate(lx_tcu_rec, l_def_tcuv_rec);
2553: x_tcuv_rec := l_def_tcuv_rec;
2554: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2555: EXCEPTION
2556: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2557: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2558: (
2552: migrate(lx_tcu_rec, l_def_tcuv_rec);
2553: x_tcuv_rec := l_def_tcuv_rec;
2554: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2555: EXCEPTION
2556: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2557: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2558: (
2559: l_api_name,
2560: G_PKG_NAME,
2553: x_tcuv_rec := l_def_tcuv_rec;
2554: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2555: EXCEPTION
2556: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2557: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2558: (
2559: l_api_name,
2560: G_PKG_NAME,
2561: 'OKC_API.G_RET_STS_ERROR',
2557: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2558: (
2559: l_api_name,
2560: G_PKG_NAME,
2561: 'OKC_API.G_RET_STS_ERROR',
2562: x_msg_count,
2563: x_msg_data,
2564: '_PVT'
2565: );
2562: x_msg_count,
2563: x_msg_data,
2564: '_PVT'
2565: );
2566: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2567: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2568: (
2569: l_api_name,
2570: G_PKG_NAME,
2563: x_msg_data,
2564: '_PVT'
2565: );
2566: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2567: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2568: (
2569: l_api_name,
2570: G_PKG_NAME,
2571: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2567: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2568: (
2569: l_api_name,
2570: G_PKG_NAME,
2571: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2572: x_msg_count,
2573: x_msg_data,
2574: '_PVT'
2575: );
2573: x_msg_data,
2574: '_PVT'
2575: );
2576: WHEN OTHERS THEN
2577: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2578: (
2579: l_api_name,
2580: G_PKG_NAME,
2581: 'OTHERS',
2597: x_tcuv_tbl OUT NOCOPY tcuv_tbl_type) IS
2598:
2599: l_api_version CONSTANT NUMBER := 1;
2600: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
2601: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2602: i NUMBER := 0;
2603: BEGIN
2604: OKC_API.init_msg_list(p_init_msg_list);
2605: -- Make sure PL/SQL table has records in it before passing
2600: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
2601: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2602: i NUMBER := 0;
2603: BEGIN
2604: OKC_API.init_msg_list(p_init_msg_list);
2605: -- Make sure PL/SQL table has records in it before passing
2606: IF (p_tcuv_tbl.COUNT > 0) THEN
2607: i := p_tcuv_tbl.FIRST;
2608: LOOP
2607: i := p_tcuv_tbl.FIRST;
2608: LOOP
2609: update_row (
2610: p_api_version => p_api_version,
2611: p_init_msg_list => OKC_API.G_FALSE,
2612: x_return_status => x_return_status,
2613: x_msg_count => x_msg_count,
2614: x_msg_data => x_msg_data,
2615: p_tcuv_rec => p_tcuv_tbl(i),
2618: i := p_tcuv_tbl.NEXT(i);
2619: END LOOP;
2620: END IF;
2621: EXCEPTION
2622: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2623: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2624: (
2625: l_api_name,
2626: G_PKG_NAME,
2619: END LOOP;
2620: END IF;
2621: EXCEPTION
2622: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2623: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2624: (
2625: l_api_name,
2626: G_PKG_NAME,
2627: 'OKC_API.G_RET_STS_ERROR',
2623: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2624: (
2625: l_api_name,
2626: G_PKG_NAME,
2627: 'OKC_API.G_RET_STS_ERROR',
2628: x_msg_count,
2629: x_msg_data,
2630: '_PVT'
2631: );
2628: x_msg_count,
2629: x_msg_data,
2630: '_PVT'
2631: );
2632: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2633: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2634: (
2635: l_api_name,
2636: G_PKG_NAME,
2629: x_msg_data,
2630: '_PVT'
2631: );
2632: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2633: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2634: (
2635: l_api_name,
2636: G_PKG_NAME,
2637: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2633: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2634: (
2635: l_api_name,
2636: G_PKG_NAME,
2637: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2638: x_msg_count,
2639: x_msg_data,
2640: '_PVT'
2641: );
2639: x_msg_data,
2640: '_PVT'
2641: );
2642: WHEN OTHERS THEN
2643: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2644: (
2645: l_api_name,
2646: G_PKG_NAME,
2647: 'OTHERS',
2665: p_tcu_rec IN tcu_rec_type) IS
2666:
2667: l_api_version CONSTANT NUMBER := 1;
2668: l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
2669: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2670: l_tcu_rec tcu_rec_type:= p_tcu_rec;
2671: l_row_notfound BOOLEAN := TRUE;
2672: BEGIN
2673: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2669: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2670: l_tcu_rec tcu_rec_type:= p_tcu_rec;
2671: l_row_notfound BOOLEAN := TRUE;
2672: BEGIN
2673: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2674: p_init_msg_list,
2675: '_PVT',
2676: x_return_status);
2677: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2673: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2674: p_init_msg_list,
2675: '_PVT',
2676: x_return_status);
2677: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2678: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2679: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2680: RAISE OKC_API.G_EXCEPTION_ERROR;
2681: END IF;
2674: p_init_msg_list,
2675: '_PVT',
2676: x_return_status);
2677: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2678: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2679: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2680: RAISE OKC_API.G_EXCEPTION_ERROR;
2681: END IF;
2682: DELETE FROM OKC_TIME_CODE_UNITS_B
2675: '_PVT',
2676: x_return_status);
2677: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2678: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2679: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2680: RAISE OKC_API.G_EXCEPTION_ERROR;
2681: END IF;
2682: DELETE FROM OKC_TIME_CODE_UNITS_B
2683: WHERE uom_code = l_tcu_rec.uom_code AND
2676: x_return_status);
2677: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2678: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2679: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2680: RAISE OKC_API.G_EXCEPTION_ERROR;
2681: END IF;
2682: DELETE FROM OKC_TIME_CODE_UNITS_B
2683: WHERE uom_code = l_tcu_rec.uom_code AND
2684: TCE_CODE = l_tcu_rec.tce_code;
2682: DELETE FROM OKC_TIME_CODE_UNITS_B
2683: WHERE uom_code = l_tcu_rec.uom_code AND
2684: TCE_CODE = l_tcu_rec.tce_code;
2685:
2686: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2687: EXCEPTION
2688: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2689: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2690: (
2684: TCE_CODE = l_tcu_rec.tce_code;
2685:
2686: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2687: EXCEPTION
2688: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2689: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2690: (
2691: l_api_name,
2692: G_PKG_NAME,
2685:
2686: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2687: EXCEPTION
2688: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2689: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2690: (
2691: l_api_name,
2692: G_PKG_NAME,
2693: 'OKC_API.G_RET_STS_ERROR',
2689: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2690: (
2691: l_api_name,
2692: G_PKG_NAME,
2693: 'OKC_API.G_RET_STS_ERROR',
2694: x_msg_count,
2695: x_msg_data,
2696: '_PVT'
2697: );
2694: x_msg_count,
2695: x_msg_data,
2696: '_PVT'
2697: );
2698: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2699: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2700: (
2701: l_api_name,
2702: G_PKG_NAME,
2695: x_msg_data,
2696: '_PVT'
2697: );
2698: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2699: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2700: (
2701: l_api_name,
2702: G_PKG_NAME,
2703: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2699: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2700: (
2701: l_api_name,
2702: G_PKG_NAME,
2703: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2704: x_msg_count,
2705: x_msg_data,
2706: '_PVT'
2707: );
2705: x_msg_data,
2706: '_PVT'
2707: );
2708: WHEN OTHERS THEN
2709: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2710: (
2711: l_api_name,
2712: G_PKG_NAME,
2713: 'OTHERS',
2727: p_okc_time_code_units_tl_rec IN OkcTimeCodeUnitsTlRecType) IS
2728:
2729: l_api_version CONSTANT NUMBER := 1;
2730: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
2731: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2732: l_okc_time_code_units_tl_rec OkcTimeCodeUnitsTlRecType:= p_okc_time_code_units_tl_rec;
2733: l_row_notfound BOOLEAN := TRUE;
2734: -----------------------------------------------
2735: -- Set_Attributes for:OKC_TIME_CODE_UNITS_TL --
2737: FUNCTION Set_Attributes (
2738: p_okc_time_code_units_tl_rec IN OkcTimeCodeUnitsTlRecType,
2739: x_okc_time_code_units_tl_rec OUT NOCOPY OkcTimeCodeUnitsTlRecType
2740: ) RETURN VARCHAR2 IS
2741: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2742: BEGIN
2743: x_okc_time_code_units_tl_rec := p_okc_time_code_units_tl_rec;
2744: x_okc_time_code_units_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
2745: RETURN(l_return_status);
2744: x_okc_time_code_units_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
2745: RETURN(l_return_status);
2746: END Set_Attributes;
2747: BEGIN
2748: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2749: p_init_msg_list,
2750: '_PVT',
2751: x_return_status);
2752: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2748: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2749: p_init_msg_list,
2750: '_PVT',
2751: x_return_status);
2752: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2753: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2754: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2755: RAISE OKC_API.G_EXCEPTION_ERROR;
2756: END IF;
2749: p_init_msg_list,
2750: '_PVT',
2751: x_return_status);
2752: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2753: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2754: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2755: RAISE OKC_API.G_EXCEPTION_ERROR;
2756: END IF;
2757: --- Setting item attributes
2750: '_PVT',
2751: x_return_status);
2752: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2753: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2754: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2755: RAISE OKC_API.G_EXCEPTION_ERROR;
2756: END IF;
2757: --- Setting item attributes
2758: l_return_status := Set_Attributes(
2751: x_return_status);
2752: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2753: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2754: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2755: RAISE OKC_API.G_EXCEPTION_ERROR;
2756: END IF;
2757: --- Setting item attributes
2758: l_return_status := Set_Attributes(
2759: p_okc_time_code_units_tl_rec, -- IN
2758: l_return_status := Set_Attributes(
2759: p_okc_time_code_units_tl_rec, -- IN
2760: l_okc_time_code_units_tl_rec); -- OUT
2761: --- If any errors happen abort API
2762: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2763: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2764: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2765: RAISE OKC_API.G_EXCEPTION_ERROR;
2766: END IF;
2759: p_okc_time_code_units_tl_rec, -- IN
2760: l_okc_time_code_units_tl_rec); -- OUT
2761: --- If any errors happen abort API
2762: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2763: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2764: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2765: RAISE OKC_API.G_EXCEPTION_ERROR;
2766: END IF;
2767: DELETE FROM OKC_TIME_CODE_UNITS_TL
2760: l_okc_time_code_units_tl_rec); -- OUT
2761: --- If any errors happen abort API
2762: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2763: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2764: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2765: RAISE OKC_API.G_EXCEPTION_ERROR;
2766: END IF;
2767: DELETE FROM OKC_TIME_CODE_UNITS_TL
2768: WHERE uom_code = l_okc_time_code_units_tl_rec.uom_code AND
2761: --- If any errors happen abort API
2762: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2763: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2764: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2765: RAISE OKC_API.G_EXCEPTION_ERROR;
2766: END IF;
2767: DELETE FROM OKC_TIME_CODE_UNITS_TL
2768: WHERE uom_code = l_okc_time_code_units_tl_rec.uom_code AND
2769: TCE_CODE = l_okc_time_code_units_tl_rec.tce_code;
2767: DELETE FROM OKC_TIME_CODE_UNITS_TL
2768: WHERE uom_code = l_okc_time_code_units_tl_rec.uom_code AND
2769: TCE_CODE = l_okc_time_code_units_tl_rec.tce_code;
2770:
2771: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2772: EXCEPTION
2773: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2774: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2775: (
2769: TCE_CODE = l_okc_time_code_units_tl_rec.tce_code;
2770:
2771: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2772: EXCEPTION
2773: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2774: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2775: (
2776: l_api_name,
2777: G_PKG_NAME,
2770:
2771: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2772: EXCEPTION
2773: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2774: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2775: (
2776: l_api_name,
2777: G_PKG_NAME,
2778: 'OKC_API.G_RET_STS_ERROR',
2774: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2775: (
2776: l_api_name,
2777: G_PKG_NAME,
2778: 'OKC_API.G_RET_STS_ERROR',
2779: x_msg_count,
2780: x_msg_data,
2781: '_PVT'
2782: );
2779: x_msg_count,
2780: x_msg_data,
2781: '_PVT'
2782: );
2783: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2784: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2785: (
2786: l_api_name,
2787: G_PKG_NAME,
2780: x_msg_data,
2781: '_PVT'
2782: );
2783: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2784: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2785: (
2786: l_api_name,
2787: G_PKG_NAME,
2788: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2784: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2785: (
2786: l_api_name,
2787: G_PKG_NAME,
2788: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2789: x_msg_count,
2790: x_msg_data,
2791: '_PVT'
2792: );
2790: x_msg_data,
2791: '_PVT'
2792: );
2793: WHEN OTHERS THEN
2794: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2795: (
2796: l_api_name,
2797: G_PKG_NAME,
2798: 'OTHERS',
2813: p_tcuv_rec IN tcuv_rec_type) IS
2814:
2815: l_api_version CONSTANT NUMBER := 1;
2816: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
2817: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2818: l_tcuv_rec tcuv_rec_type := p_tcuv_rec;
2819: l_okc_time_code_units_tl_rec OkcTimeCodeUnitsTlRecType;
2820: l_tcu_rec tcu_rec_type;
2821: BEGIN
2818: l_tcuv_rec tcuv_rec_type := p_tcuv_rec;
2819: l_okc_time_code_units_tl_rec OkcTimeCodeUnitsTlRecType;
2820: l_tcu_rec tcu_rec_type;
2821: BEGIN
2822: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2823: G_PKG_NAME,
2824: p_init_msg_list,
2825: l_api_version,
2826: p_api_version,
2825: l_api_version,
2826: p_api_version,
2827: '_PVT',
2828: x_return_status);
2829: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2830: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2831: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2832: RAISE OKC_API.G_EXCEPTION_ERROR;
2833: END IF;
2826: p_api_version,
2827: '_PVT',
2828: x_return_status);
2829: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2830: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2831: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2832: RAISE OKC_API.G_EXCEPTION_ERROR;
2833: END IF;
2834: --------------------------------------
2827: '_PVT',
2828: x_return_status);
2829: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2830: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2831: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2832: RAISE OKC_API.G_EXCEPTION_ERROR;
2833: END IF;
2834: --------------------------------------
2835: -- Move VIEW record to "Child" records
2828: x_return_status);
2829: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2830: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2831: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2832: RAISE OKC_API.G_EXCEPTION_ERROR;
2833: END IF;
2834: --------------------------------------
2835: -- Move VIEW record to "Child" records
2836: --------------------------------------
2845: x_msg_count,
2846: x_msg_data,
2847: l_okc_time_code_units_tl_rec
2848: );
2849: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2850: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2851: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2852: RAISE OKC_API.G_EXCEPTION_ERROR;
2853: END IF;
2846: x_msg_data,
2847: l_okc_time_code_units_tl_rec
2848: );
2849: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2850: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2851: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2852: RAISE OKC_API.G_EXCEPTION_ERROR;
2853: END IF;
2854: delete_row(
2847: l_okc_time_code_units_tl_rec
2848: );
2849: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2850: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2851: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2852: RAISE OKC_API.G_EXCEPTION_ERROR;
2853: END IF;
2854: delete_row(
2855: p_init_msg_list,
2848: );
2849: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2850: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2851: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2852: RAISE OKC_API.G_EXCEPTION_ERROR;
2853: END IF;
2854: delete_row(
2855: p_init_msg_list,
2856: x_return_status,
2857: x_msg_count,
2858: x_msg_data,
2859: l_tcu_rec
2860: );
2861: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2862: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2863: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2864: RAISE OKC_API.G_EXCEPTION_ERROR;
2865: END IF;
2858: x_msg_data,
2859: l_tcu_rec
2860: );
2861: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2862: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2863: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2864: RAISE OKC_API.G_EXCEPTION_ERROR;
2865: END IF;
2866: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2859: l_tcu_rec
2860: );
2861: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2862: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2863: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2864: RAISE OKC_API.G_EXCEPTION_ERROR;
2865: END IF;
2866: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2867: EXCEPTION
2860: );
2861: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2862: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2863: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2864: RAISE OKC_API.G_EXCEPTION_ERROR;
2865: END IF;
2866: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2867: EXCEPTION
2868: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2862: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2863: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2864: RAISE OKC_API.G_EXCEPTION_ERROR;
2865: END IF;
2866: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2867: EXCEPTION
2868: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2869: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2870: (
2864: RAISE OKC_API.G_EXCEPTION_ERROR;
2865: END IF;
2866: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2867: EXCEPTION
2868: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2869: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2870: (
2871: l_api_name,
2872: G_PKG_NAME,
2865: END IF;
2866: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2867: EXCEPTION
2868: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2869: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2870: (
2871: l_api_name,
2872: G_PKG_NAME,
2873: 'OKC_API.G_RET_STS_ERROR',
2869: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2870: (
2871: l_api_name,
2872: G_PKG_NAME,
2873: 'OKC_API.G_RET_STS_ERROR',
2874: x_msg_count,
2875: x_msg_data,
2876: '_PVT'
2877: );
2874: x_msg_count,
2875: x_msg_data,
2876: '_PVT'
2877: );
2878: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2879: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2880: (
2881: l_api_name,
2882: G_PKG_NAME,
2875: x_msg_data,
2876: '_PVT'
2877: );
2878: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2879: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2880: (
2881: l_api_name,
2882: G_PKG_NAME,
2883: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2879: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2880: (
2881: l_api_name,
2882: G_PKG_NAME,
2883: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2884: x_msg_count,
2885: x_msg_data,
2886: '_PVT'
2887: );
2885: x_msg_data,
2886: '_PVT'
2887: );
2888: WHEN OTHERS THEN
2889: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2890: (
2891: l_api_name,
2892: G_PKG_NAME,
2893: 'OTHERS',
2908: p_tcuv_tbl IN tcuv_tbl_type) IS
2909:
2910: l_api_version CONSTANT NUMBER := 1;
2911: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
2912: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2913: i NUMBER := 0;
2914: BEGIN
2915: OKC_API.init_msg_list(p_init_msg_list);
2916: -- Make sure PL/SQL table has records in it before passing
2911: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
2912: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2913: i NUMBER := 0;
2914: BEGIN
2915: OKC_API.init_msg_list(p_init_msg_list);
2916: -- Make sure PL/SQL table has records in it before passing
2917: IF (p_tcuv_tbl.COUNT > 0) THEN
2918: i := p_tcuv_tbl.FIRST;
2919: LOOP
2918: i := p_tcuv_tbl.FIRST;
2919: LOOP
2920: delete_row (
2921: p_api_version => p_api_version,
2922: p_init_msg_list => OKC_API.G_FALSE,
2923: x_return_status => x_return_status,
2924: x_msg_count => x_msg_count,
2925: x_msg_data => x_msg_data,
2926: p_tcuv_rec => p_tcuv_tbl(i));
2928: i := p_tcuv_tbl.NEXT(i);
2929: END LOOP;
2930: END IF;
2931: EXCEPTION
2932: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2933: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2934: (
2935: l_api_name,
2936: G_PKG_NAME,
2929: END LOOP;
2930: END IF;
2931: EXCEPTION
2932: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2933: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2934: (
2935: l_api_name,
2936: G_PKG_NAME,
2937: 'OKC_API.G_RET_STS_ERROR',
2933: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2934: (
2935: l_api_name,
2936: G_PKG_NAME,
2937: 'OKC_API.G_RET_STS_ERROR',
2938: x_msg_count,
2939: x_msg_data,
2940: '_PVT'
2941: );
2938: x_msg_count,
2939: x_msg_data,
2940: '_PVT'
2941: );
2942: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2943: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2944: (
2945: l_api_name,
2946: G_PKG_NAME,
2939: x_msg_data,
2940: '_PVT'
2941: );
2942: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2943: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2944: (
2945: l_api_name,
2946: G_PKG_NAME,
2947: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2943: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2944: (
2945: l_api_name,
2946: G_PKG_NAME,
2947: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2948: x_msg_count,
2949: x_msg_data,
2950: '_PVT'
2951: );
2949: x_msg_data,
2950: '_PVT'
2951: );
2952: WHEN OTHERS THEN
2953: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2954: (
2955: l_api_name,
2956: G_PKG_NAME,
2957: 'OTHERS',