332: p_tavv_rec IN tavv_rec_type
333: ) RETURN tavv_rec_type IS
334: l_tavv_rec tavv_rec_type := p_tavv_rec;
335: BEGIN
336: IF (l_tavv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
337: l_tavv_rec.object_version_number := NULL;
338: END IF;
339: --Bug 3122962
340: /* IF (l_tavv_rec.sfwt_flag = OKC_API.G_MISS_CHAR) THEN
336: IF (l_tavv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
337: l_tavv_rec.object_version_number := NULL;
338: END IF;
339: --Bug 3122962
340: /* IF (l_tavv_rec.sfwt_flag = OKC_API.G_MISS_CHAR) THEN
341: l_tavv_rec.sfwt_flag := NULL;
342: END IF;
343: */
344: IF (l_tavv_rec.spn_id = OKC_API.G_MISS_NUM) THEN
340: /* IF (l_tavv_rec.sfwt_flag = OKC_API.G_MISS_CHAR) THEN
341: l_tavv_rec.sfwt_flag := NULL;
342: END IF;
343: */
344: IF (l_tavv_rec.spn_id = OKC_API.G_MISS_NUM) THEN
345: l_tavv_rec.spn_id := NULL;
346: END IF;
347: IF (l_tavv_rec.tve_id_generated_by = OKC_API.G_MISS_NUM) THEN
348: l_tavv_rec.tve_id_generated_by := NULL;
343: */
344: IF (l_tavv_rec.spn_id = OKC_API.G_MISS_NUM) THEN
345: l_tavv_rec.spn_id := NULL;
346: END IF;
347: IF (l_tavv_rec.tve_id_generated_by = OKC_API.G_MISS_NUM) THEN
348: l_tavv_rec.tve_id_generated_by := NULL;
349: END IF;
350: IF (l_tavv_rec.tve_id_limited = OKC_API.G_MISS_NUM) THEN
351: l_tavv_rec.tve_id_limited := NULL;
346: END IF;
347: IF (l_tavv_rec.tve_id_generated_by = OKC_API.G_MISS_NUM) THEN
348: l_tavv_rec.tve_id_generated_by := NULL;
349: END IF;
350: IF (l_tavv_rec.tve_id_limited = OKC_API.G_MISS_NUM) THEN
351: l_tavv_rec.tve_id_limited := NULL;
352: END IF;
353: IF (l_tavv_rec.dnz_chr_id = OKC_API.G_MISS_NUM) THEN
354: l_tavv_rec.dnz_chr_id := NULL;
349: END IF;
350: IF (l_tavv_rec.tve_id_limited = OKC_API.G_MISS_NUM) THEN
351: l_tavv_rec.tve_id_limited := NULL;
352: END IF;
353: IF (l_tavv_rec.dnz_chr_id = OKC_API.G_MISS_NUM) THEN
354: l_tavv_rec.dnz_chr_id := NULL;
355: END IF;
356: IF (l_tavv_rec.tze_id = OKC_API.G_MISS_NUM) THEN
357: l_tavv_rec.tze_id := NULL;
352: END IF;
353: IF (l_tavv_rec.dnz_chr_id = OKC_API.G_MISS_NUM) THEN
354: l_tavv_rec.dnz_chr_id := NULL;
355: END IF;
356: IF (l_tavv_rec.tze_id = OKC_API.G_MISS_NUM) THEN
357: l_tavv_rec.tze_id := NULL;
358: END IF;
359: IF (l_tavv_rec.description = OKC_API.G_MISS_CHAR) THEN
360: l_tavv_rec.description := NULL;
355: END IF;
356: IF (l_tavv_rec.tze_id = OKC_API.G_MISS_NUM) THEN
357: l_tavv_rec.tze_id := NULL;
358: END IF;
359: IF (l_tavv_rec.description = OKC_API.G_MISS_CHAR) THEN
360: l_tavv_rec.description := NULL;
361: END IF;
362: IF (l_tavv_rec.short_description = OKC_API.G_MISS_CHAR) THEN
363: l_tavv_rec.short_description := NULL;
358: END IF;
359: IF (l_tavv_rec.description = OKC_API.G_MISS_CHAR) THEN
360: l_tavv_rec.description := NULL;
361: END IF;
362: IF (l_tavv_rec.short_description = OKC_API.G_MISS_CHAR) THEN
363: l_tavv_rec.short_description := NULL;
364: END IF;
365: IF (l_tavv_rec.comments = OKC_API.G_MISS_CHAR) THEN
366: l_tavv_rec.comments := NULL;
361: END IF;
362: IF (l_tavv_rec.short_description = OKC_API.G_MISS_CHAR) THEN
363: l_tavv_rec.short_description := NULL;
364: END IF;
365: IF (l_tavv_rec.comments = OKC_API.G_MISS_CHAR) THEN
366: l_tavv_rec.comments := NULL;
367: END IF;
368: IF (l_tavv_rec.datetime = OKC_API.G_MISS_DATE) THEN
369: l_tavv_rec.datetime := NULL;
364: END IF;
365: IF (l_tavv_rec.comments = OKC_API.G_MISS_CHAR) THEN
366: l_tavv_rec.comments := NULL;
367: END IF;
368: IF (l_tavv_rec.datetime = OKC_API.G_MISS_DATE) THEN
369: l_tavv_rec.datetime := NULL;
370: END IF;
371: IF (l_tavv_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
372: l_tavv_rec.attribute_category := NULL;
367: END IF;
368: IF (l_tavv_rec.datetime = OKC_API.G_MISS_DATE) THEN
369: l_tavv_rec.datetime := NULL;
370: END IF;
371: IF (l_tavv_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
372: l_tavv_rec.attribute_category := NULL;
373: END IF;
374: IF (l_tavv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
375: l_tavv_rec.attribute1 := NULL;
370: END IF;
371: IF (l_tavv_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
372: l_tavv_rec.attribute_category := NULL;
373: END IF;
374: IF (l_tavv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
375: l_tavv_rec.attribute1 := NULL;
376: END IF;
377: IF (l_tavv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
378: l_tavv_rec.attribute2 := NULL;
373: END IF;
374: IF (l_tavv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
375: l_tavv_rec.attribute1 := NULL;
376: END IF;
377: IF (l_tavv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
378: l_tavv_rec.attribute2 := NULL;
379: END IF;
380: IF (l_tavv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
381: l_tavv_rec.attribute3 := NULL;
376: END IF;
377: IF (l_tavv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
378: l_tavv_rec.attribute2 := NULL;
379: END IF;
380: IF (l_tavv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
381: l_tavv_rec.attribute3 := NULL;
382: END IF;
383: IF (l_tavv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
384: l_tavv_rec.attribute4 := NULL;
379: END IF;
380: IF (l_tavv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
381: l_tavv_rec.attribute3 := NULL;
382: END IF;
383: IF (l_tavv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
384: l_tavv_rec.attribute4 := NULL;
385: END IF;
386: IF (l_tavv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
387: l_tavv_rec.attribute5 := NULL;
382: END IF;
383: IF (l_tavv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
384: l_tavv_rec.attribute4 := NULL;
385: END IF;
386: IF (l_tavv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
387: l_tavv_rec.attribute5 := NULL;
388: END IF;
389: IF (l_tavv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
390: l_tavv_rec.attribute6 := NULL;
385: END IF;
386: IF (l_tavv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
387: l_tavv_rec.attribute5 := NULL;
388: END IF;
389: IF (l_tavv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
390: l_tavv_rec.attribute6 := NULL;
391: END IF;
392: IF (l_tavv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
393: l_tavv_rec.attribute7 := NULL;
388: END IF;
389: IF (l_tavv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
390: l_tavv_rec.attribute6 := NULL;
391: END IF;
392: IF (l_tavv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
393: l_tavv_rec.attribute7 := NULL;
394: END IF;
395: IF (l_tavv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
396: l_tavv_rec.attribute8 := NULL;
391: END IF;
392: IF (l_tavv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
393: l_tavv_rec.attribute7 := NULL;
394: END IF;
395: IF (l_tavv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
396: l_tavv_rec.attribute8 := NULL;
397: END IF;
398: IF (l_tavv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
399: l_tavv_rec.attribute9 := NULL;
394: END IF;
395: IF (l_tavv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
396: l_tavv_rec.attribute8 := NULL;
397: END IF;
398: IF (l_tavv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
399: l_tavv_rec.attribute9 := NULL;
400: END IF;
401: IF (l_tavv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
402: l_tavv_rec.attribute10 := NULL;
397: END IF;
398: IF (l_tavv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
399: l_tavv_rec.attribute9 := NULL;
400: END IF;
401: IF (l_tavv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
402: l_tavv_rec.attribute10 := NULL;
403: END IF;
404: IF (l_tavv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
405: l_tavv_rec.attribute11 := NULL;
400: END IF;
401: IF (l_tavv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
402: l_tavv_rec.attribute10 := NULL;
403: END IF;
404: IF (l_tavv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
405: l_tavv_rec.attribute11 := NULL;
406: END IF;
407: IF (l_tavv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
408: l_tavv_rec.attribute12 := NULL;
403: END IF;
404: IF (l_tavv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
405: l_tavv_rec.attribute11 := NULL;
406: END IF;
407: IF (l_tavv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
408: l_tavv_rec.attribute12 := NULL;
409: END IF;
410: IF (l_tavv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
411: l_tavv_rec.attribute13 := NULL;
406: END IF;
407: IF (l_tavv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
408: l_tavv_rec.attribute12 := NULL;
409: END IF;
410: IF (l_tavv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
411: l_tavv_rec.attribute13 := NULL;
412: END IF;
413: IF (l_tavv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
414: l_tavv_rec.attribute14 := NULL;
409: END IF;
410: IF (l_tavv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
411: l_tavv_rec.attribute13 := NULL;
412: END IF;
413: IF (l_tavv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
414: l_tavv_rec.attribute14 := NULL;
415: END IF;
416: IF (l_tavv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
417: l_tavv_rec.attribute15 := NULL;
412: END IF;
413: IF (l_tavv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
414: l_tavv_rec.attribute14 := NULL;
415: END IF;
416: IF (l_tavv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
417: l_tavv_rec.attribute15 := NULL;
418: END IF;
419: IF (l_tavv_rec.created_by = OKC_API.G_MISS_NUM) THEN
420: l_tavv_rec.created_by := NULL;
415: END IF;
416: IF (l_tavv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
417: l_tavv_rec.attribute15 := NULL;
418: END IF;
419: IF (l_tavv_rec.created_by = OKC_API.G_MISS_NUM) THEN
420: l_tavv_rec.created_by := NULL;
421: END IF;
422: IF (l_tavv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
423: l_tavv_rec.creation_date := NULL;
418: END IF;
419: IF (l_tavv_rec.created_by = OKC_API.G_MISS_NUM) THEN
420: l_tavv_rec.created_by := NULL;
421: END IF;
422: IF (l_tavv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
423: l_tavv_rec.creation_date := NULL;
424: END IF;
425: IF (l_tavv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
426: l_tavv_rec.last_updated_by := NULL;
421: END IF;
422: IF (l_tavv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
423: l_tavv_rec.creation_date := NULL;
424: END IF;
425: IF (l_tavv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
426: l_tavv_rec.last_updated_by := NULL;
427: END IF;
428: IF (l_tavv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
429: l_tavv_rec.last_update_date := NULL;
424: END IF;
425: IF (l_tavv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
426: l_tavv_rec.last_updated_by := NULL;
427: END IF;
428: IF (l_tavv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
429: l_tavv_rec.last_update_date := NULL;
430: END IF;
431: IF (l_tavv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
432: l_tavv_rec.last_update_login := NULL;
427: END IF;
428: IF (l_tavv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
429: l_tavv_rec.last_update_date := NULL;
430: END IF;
431: IF (l_tavv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
432: l_tavv_rec.last_update_login := NULL;
433: END IF;
434: RETURN(l_tavv_rec);
435: END null_out_defaults;
448: p_tve_rec IN tve_rec_type
449: ) RETURN tve_rec_type IS
450: l_tve_rec tve_rec_type := p_tve_rec;
451: BEGIN
452: IF (l_tve_rec.tve_id_offset = OKC_API.G_MISS_NUM) THEN
453: l_tve_rec.tve_id_offset := NULL;
454: END IF;
455: IF (l_tve_rec.uom_code = OKC_API.G_MISS_CHAR) THEN
456: l_tve_rec.uom_code := NULL;
451: BEGIN
452: IF (l_tve_rec.tve_id_offset = OKC_API.G_MISS_NUM) THEN
453: l_tve_rec.tve_id_offset := NULL;
454: END IF;
455: IF (l_tve_rec.uom_code = OKC_API.G_MISS_CHAR) THEN
456: l_tve_rec.uom_code := NULL;
457: END IF;
458: IF (l_tve_rec.tve_id_started = OKC_API.G_MISS_NUM) THEN
459: l_tve_rec.tve_id_started := NULL;
454: END IF;
455: IF (l_tve_rec.uom_code = OKC_API.G_MISS_CHAR) THEN
456: l_tve_rec.uom_code := NULL;
457: END IF;
458: IF (l_tve_rec.tve_id_started = OKC_API.G_MISS_NUM) THEN
459: l_tve_rec.tve_id_started := NULL;
460: END IF;
461: IF (l_tve_rec.tve_id_ended = OKC_API.G_MISS_NUM) THEN
462: l_tve_rec.tve_id_ended := NULL;
457: END IF;
458: IF (l_tve_rec.tve_id_started = OKC_API.G_MISS_NUM) THEN
459: l_tve_rec.tve_id_started := NULL;
460: END IF;
461: IF (l_tve_rec.tve_id_ended = OKC_API.G_MISS_NUM) THEN
462: l_tve_rec.tve_id_ended := NULL;
463: END IF;
464: IF (l_tve_rec.cnh_id = OKC_API.G_MISS_NUM) THEN
465: l_tve_rec.cnh_id := NULL;
460: END IF;
461: IF (l_tve_rec.tve_id_ended = OKC_API.G_MISS_NUM) THEN
462: l_tve_rec.tve_id_ended := NULL;
463: END IF;
464: IF (l_tve_rec.cnh_id = OKC_API.G_MISS_NUM) THEN
465: l_tve_rec.cnh_id := NULL;
466: END IF;
467: IF (l_tve_rec.duration = OKC_API.G_MISS_NUM) THEN
468: l_tve_rec.duration := NULL;
463: END IF;
464: IF (l_tve_rec.cnh_id = OKC_API.G_MISS_NUM) THEN
465: l_tve_rec.cnh_id := NULL;
466: END IF;
467: IF (l_tve_rec.duration = OKC_API.G_MISS_NUM) THEN
468: l_tve_rec.duration := NULL;
469: END IF;
470: IF (l_tve_rec.operator = OKC_API.G_MISS_CHAR) THEN
471: l_tve_rec.operator := NULL;
466: END IF;
467: IF (l_tve_rec.duration = OKC_API.G_MISS_NUM) THEN
468: l_tve_rec.duration := NULL;
469: END IF;
470: IF (l_tve_rec.operator = OKC_API.G_MISS_CHAR) THEN
471: l_tve_rec.operator := NULL;
472: END IF;
473: IF (l_tve_rec.before_after = OKC_API.G_MISS_CHAR) THEN
474: l_tve_rec.before_after := NULL;
469: END IF;
470: IF (l_tve_rec.operator = OKC_API.G_MISS_CHAR) THEN
471: l_tve_rec.operator := NULL;
472: END IF;
473: IF (l_tve_rec.before_after = OKC_API.G_MISS_CHAR) THEN
474: l_tve_rec.before_after := NULL;
475: END IF;
476: IF (l_tve_rec.month = OKC_API.G_MISS_NUM) THEN
477: l_tve_rec.month := NULL;
472: END IF;
473: IF (l_tve_rec.before_after = OKC_API.G_MISS_CHAR) THEN
474: l_tve_rec.before_after := NULL;
475: END IF;
476: IF (l_tve_rec.month = OKC_API.G_MISS_NUM) THEN
477: l_tve_rec.month := NULL;
478: END IF;
479: IF (l_tve_rec.day = OKC_API.G_MISS_NUM) THEN
480: l_tve_rec.day := NULL;
475: END IF;
476: IF (l_tve_rec.month = OKC_API.G_MISS_NUM) THEN
477: l_tve_rec.month := NULL;
478: END IF;
479: IF (l_tve_rec.day = OKC_API.G_MISS_NUM) THEN
480: l_tve_rec.day := NULL;
481: END IF;
482: IF (l_tve_rec.hour = OKC_API.G_MISS_NUM) THEN
483: l_tve_rec.hour := NULL;
478: END IF;
479: IF (l_tve_rec.day = OKC_API.G_MISS_NUM) THEN
480: l_tve_rec.day := NULL;
481: END IF;
482: IF (l_tve_rec.hour = OKC_API.G_MISS_NUM) THEN
483: l_tve_rec.hour := NULL;
484: END IF;
485: IF (l_tve_rec.minute = OKC_API.G_MISS_NUM) THEN
486: l_tve_rec.minute := NULL;
481: END IF;
482: IF (l_tve_rec.hour = OKC_API.G_MISS_NUM) THEN
483: l_tve_rec.hour := NULL;
484: END IF;
485: IF (l_tve_rec.minute = OKC_API.G_MISS_NUM) THEN
486: l_tve_rec.minute := NULL;
487: END IF;
488: IF (l_tve_rec.second = OKC_API.G_MISS_NUM) THEN
489: l_tve_rec.second := NULL;
484: END IF;
485: IF (l_tve_rec.minute = OKC_API.G_MISS_NUM) THEN
486: l_tve_rec.minute := NULL;
487: END IF;
488: IF (l_tve_rec.second = OKC_API.G_MISS_NUM) THEN
489: l_tve_rec.second := NULL;
490: END IF;
491: IF (l_tve_rec.day_of_week = OKC_API.G_MISS_CHAR) THEN
492: l_tve_rec.day_of_week := NULL;
487: END IF;
488: IF (l_tve_rec.second = OKC_API.G_MISS_NUM) THEN
489: l_tve_rec.second := NULL;
490: END IF;
491: IF (l_tve_rec.day_of_week = OKC_API.G_MISS_CHAR) THEN
492: l_tve_rec.day_of_week := NULL;
493: END IF;
494: IF (l_tve_rec.interval_yn = OKC_API.G_MISS_CHAR) THEN
495: l_tve_rec.interval_yn := NULL;
490: END IF;
491: IF (l_tve_rec.day_of_week = OKC_API.G_MISS_CHAR) THEN
492: l_tve_rec.day_of_week := NULL;
493: END IF;
494: IF (l_tve_rec.interval_yn = OKC_API.G_MISS_CHAR) THEN
495: l_tve_rec.interval_yn := NULL;
496: END IF;
497: IF (l_tve_rec.nth = OKC_API.G_MISS_NUM) THEN
498: l_tve_rec.nth := NULL;
493: END IF;
494: IF (l_tve_rec.interval_yn = OKC_API.G_MISS_CHAR) THEN
495: l_tve_rec.interval_yn := NULL;
496: END IF;
497: IF (l_tve_rec.nth = OKC_API.G_MISS_NUM) THEN
498: l_tve_rec.nth := NULL;
499: END IF;
500: --Bug 3122962
501: IF (l_tve_rec.description = OKC_API.G_MISS_CHAR) THEN
497: IF (l_tve_rec.nth = OKC_API.G_MISS_NUM) THEN
498: l_tve_rec.nth := NULL;
499: END IF;
500: --Bug 3122962
501: IF (l_tve_rec.description = OKC_API.G_MISS_CHAR) THEN
502: l_tve_rec.description := NULL;
503: END IF;
504: IF (l_tve_rec.short_description = OKC_API.G_MISS_CHAR) THEN
505: l_tve_rec.short_description := NULL;
500: --Bug 3122962
501: IF (l_tve_rec.description = OKC_API.G_MISS_CHAR) THEN
502: l_tve_rec.description := NULL;
503: END IF;
504: IF (l_tve_rec.short_description = OKC_API.G_MISS_CHAR) THEN
505: l_tve_rec.short_description := NULL;
506: END IF;
507: IF (l_tve_rec.comments = OKC_API.G_MISS_CHAR) THEN
508: l_tve_rec.comments := NULL;
503: END IF;
504: IF (l_tve_rec.short_description = OKC_API.G_MISS_CHAR) THEN
505: l_tve_rec.short_description := NULL;
506: END IF;
507: IF (l_tve_rec.comments = OKC_API.G_MISS_CHAR) THEN
508: l_tve_rec.comments := NULL;
509: END IF;
510: IF (l_tve_rec.name = OKC_API.G_MISS_CHAR) THEN
511: l_tve_rec.name := NULL;
506: END IF;
507: IF (l_tve_rec.comments = OKC_API.G_MISS_CHAR) THEN
508: l_tve_rec.comments := NULL;
509: END IF;
510: IF (l_tve_rec.name = OKC_API.G_MISS_CHAR) THEN
511: l_tve_rec.name := NULL;
512: END IF;
513: RETURN(l_tve_rec);
514: END null_out_defaults;
517: p_tve_tl_rec IN okc_timevalues_tl_rec_type
518: ) RETURN okc_timevalues_tl_rec_type IS
519: l_tve_tl_rec okc_timevalues_tl_rec_type := p_tve_tl_rec;
520: BEGIN
521: IF (l_tve_tl_rec.name = OKC_API.G_MISS_CHAR) THEN
522: l_tve_tl_rec.name := NULL;
523: END IF;
524: RETURN(l_tve_tl_rec);
525: END null_out_defaults;
540: FROM Okc_Span
541: WHERE id = p_id;
542: l_okc_spnv_pk okc_spnv_pk_csr%ROWTYPE;
543: BEGIN
544: x_return_status := OKC_API.G_RET_STS_SUCCESS;
545: IF (p_tavv_rec.SPN_ID IS NOT NULL AND
546: p_tavv_rec.SPN_ID <> OKC_API.G_MISS_NUM)
547: THEN
548: OPEN okc_spnv_pk_csr(p_tavv_rec.SPN_ID);
542: l_okc_spnv_pk okc_spnv_pk_csr%ROWTYPE;
543: BEGIN
544: x_return_status := OKC_API.G_RET_STS_SUCCESS;
545: IF (p_tavv_rec.SPN_ID IS NOT NULL AND
546: p_tavv_rec.SPN_ID <> OKC_API.G_MISS_NUM)
547: THEN
548: OPEN okc_spnv_pk_csr(p_tavv_rec.SPN_ID);
549: FETCH okc_spnv_pk_csr INTO l_okc_spnv_pk;
550: l_row_notfound := okc_spnv_pk_csr%NOTFOUND;
549: FETCH okc_spnv_pk_csr INTO l_okc_spnv_pk;
550: l_row_notfound := okc_spnv_pk_csr%NOTFOUND;
551: CLOSE okc_spnv_pk_csr;
552: IF (l_row_notfound) THEN
553: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SPN_ID');
554: RAISE item_not_found_error;
555: END IF;
556: END IF;
557: EXCEPTION
555: END IF;
556: END IF;
557: EXCEPTION
558: WHEN item_not_found_error THEN
559: x_return_status := OKC_API.G_RET_STS_ERROR;
560: WHEN OTHERS THEN
561: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
562: p_msg_name => g_unexpected_error,
563: p_token1 => g_sqlcode_token,
557: EXCEPTION
558: WHEN item_not_found_error THEN
559: x_return_status := OKC_API.G_RET_STS_ERROR;
560: WHEN OTHERS THEN
561: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
562: p_msg_name => g_unexpected_error,
563: p_token1 => g_sqlcode_token,
564: p_token1_value => sqlcode,
565: p_token2 => g_col_name_token,
566: p_token2_value => 'SPN_ID',
567: p_token3 => g_sqlerrm_token,
568: p_token3_value => sqlerrm);
569: -- notify caller of an UNEXPECTED error
570: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
571: END Validate_Spn_Id ;
572:
573: PROCEDURE Validate_Generated_By (
574: x_return_status OUT NOCOPY VARCHAR2,
580: FROM Okc_Timevalues
581: WHERE id = p_id;
582: l_okc_tvev_pk okc_tvev_pk_csr%ROWTYPE;
583: BEGIN
584: x_return_status := OKC_API.G_RET_STS_SUCCESS;
585: IF (p_tavv_rec.TVE_ID_GENERATED_BY IS NOT NULL AND
586: p_tavv_rec.TVE_ID_GENERATED_BY <> OKC_API.G_MISS_NUM)
587: THEN
588: OPEN okc_tvev_pk_csr(p_tavv_rec.TVE_ID_GENERATED_BY);
582: l_okc_tvev_pk okc_tvev_pk_csr%ROWTYPE;
583: BEGIN
584: x_return_status := OKC_API.G_RET_STS_SUCCESS;
585: IF (p_tavv_rec.TVE_ID_GENERATED_BY IS NOT NULL AND
586: p_tavv_rec.TVE_ID_GENERATED_BY <> OKC_API.G_MISS_NUM)
587: THEN
588: OPEN okc_tvev_pk_csr(p_tavv_rec.TVE_ID_GENERATED_BY);
589: FETCH okc_tvev_pk_csr INTO l_okc_tvev_pk;
590: l_row_notfound := okc_tvev_pk_csr%NOTFOUND;
589: FETCH okc_tvev_pk_csr INTO l_okc_tvev_pk;
590: l_row_notfound := okc_tvev_pk_csr%NOTFOUND;
591: CLOSE okc_tvev_pk_csr;
592: IF (l_row_notfound) THEN
593: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'TVE_ID_GENERATED_BY');
594: RAISE item_not_found_error;
595: END IF;
596: END IF;
597: EXCEPTION
595: END IF;
596: END IF;
597: EXCEPTION
598: WHEN item_not_found_error THEN
599: x_return_status := OKC_API.G_RET_STS_ERROR;
600: WHEN OTHERS THEN
601: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
602: p_msg_name => g_unexpected_error,
603: p_token1 => g_sqlcode_token,
597: EXCEPTION
598: WHEN item_not_found_error THEN
599: x_return_status := OKC_API.G_RET_STS_ERROR;
600: WHEN OTHERS THEN
601: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
602: p_msg_name => g_unexpected_error,
603: p_token1 => g_sqlcode_token,
604: p_token1_value => sqlcode,
605: p_token2 => g_col_name_token,
606: p_token2_value => 'TVE_ID_GENERATED_BY',
607: p_token3 => g_sqlerrm_token,
608: p_token3_value => sqlerrm);
609: -- notify caller of an UNEXPECTED error
610: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
611: END Validate_Generated_By ;
612:
613: PROCEDURE Validate_Tve_Id_Limited (
614: x_return_status OUT NOCOPY VARCHAR2,
621: WHERE id = p_id
622: and tve_type in ('ISE','IGS');
623: l_okc_tvev_pk okc_tvev_pk_csr%ROWTYPE;
624: BEGIN
625: x_return_status := OKC_API.G_RET_STS_SUCCESS;
626: IF (p_tavv_rec.TVE_ID_LIMITED IS NOT NULL AND
627: p_tavv_rec.TVE_ID_LIMITED <> OKC_API.G_MISS_NUM)
628: THEN
629: OPEN okc_tvev_pk_csr(p_tavv_rec.TVE_ID_LIMITED);
623: l_okc_tvev_pk okc_tvev_pk_csr%ROWTYPE;
624: BEGIN
625: x_return_status := OKC_API.G_RET_STS_SUCCESS;
626: IF (p_tavv_rec.TVE_ID_LIMITED IS NOT NULL AND
627: p_tavv_rec.TVE_ID_LIMITED <> OKC_API.G_MISS_NUM)
628: THEN
629: OPEN okc_tvev_pk_csr(p_tavv_rec.TVE_ID_LIMITED);
630: FETCH okc_tvev_pk_csr INTO l_okc_tvev_pk;
631: l_row_notfound := okc_tvev_pk_csr%NOTFOUND;
630: FETCH okc_tvev_pk_csr INTO l_okc_tvev_pk;
631: l_row_notfound := okc_tvev_pk_csr%NOTFOUND;
632: CLOSE okc_tvev_pk_csr;
633: IF (l_row_notfound) THEN
634: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'TVE_ID_LIMITED');
635: RAISE item_not_found_error;
636: END IF;
637: END IF;
638: EXCEPTION
636: END IF;
637: END IF;
638: EXCEPTION
639: WHEN item_not_found_error THEN
640: x_return_status := OKC_API.G_RET_STS_ERROR;
641: WHEN OTHERS THEN
642: -- store SQL error message on message stack for caller
643: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
644: p_msg_name => g_unexpected_error,
639: WHEN item_not_found_error THEN
640: x_return_status := OKC_API.G_RET_STS_ERROR;
641: WHEN OTHERS THEN
642: -- store SQL error message on message stack for caller
643: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
644: p_msg_name => g_unexpected_error,
645: p_token1 => g_sqlcode_token,
646: p_token1_value => sqlcode,
647: p_token2 => g_col_name_token,
648: p_token2_value => 'TVE_ID_LIMITED',
649: p_token3 => g_sqlerrm_token,
650: p_token3_value => sqlerrm);
651: -- notify caller of an UNEXPECTED error
652: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
653: END Validate_Tve_Id_Limited ;
654:
655: PROCEDURE Validate_DNZ_Chr_ID (
656: x_return_status OUT NOCOPY VARCHAR2,
662: FROM Okc_k_headers_b
663: WHERE id = p_id;
664: l_okc_chrv_pk okc_chrv_pk_csr%ROWTYPE;
665: BEGIN
666: x_return_status := OKC_API.G_RET_STS_SUCCESS;
667: IF (p_tavv_rec.dnz_chr_id IS NOT NULL AND
668: p_tavv_rec.dnz_chr_id <> OKC_API.G_MISS_NUM)
669: THEN
670: OPEN okc_chrv_pk_csr(p_tavv_rec.dnz_chr_id);
664: l_okc_chrv_pk okc_chrv_pk_csr%ROWTYPE;
665: BEGIN
666: x_return_status := OKC_API.G_RET_STS_SUCCESS;
667: IF (p_tavv_rec.dnz_chr_id IS NOT NULL AND
668: p_tavv_rec.dnz_chr_id <> OKC_API.G_MISS_NUM)
669: THEN
670: OPEN okc_chrv_pk_csr(p_tavv_rec.dnz_chr_id);
671: FETCH okc_chrv_pk_csr INTO l_okc_chrv_pk;
672: l_row_notfound := okc_chrv_pk_csr%NOTFOUND;
671: FETCH okc_chrv_pk_csr INTO l_okc_chrv_pk;
672: l_row_notfound := okc_chrv_pk_csr%NOTFOUND;
673: CLOSE okc_chrv_pk_csr;
674: IF (l_row_notfound) THEN
675: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'DNZ_CHR_ID');
676: RAISE item_not_found_error;
677: END IF;
678: ELSE
679: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'DNZ_CHR_ID');
675: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'DNZ_CHR_ID');
676: RAISE item_not_found_error;
677: END IF;
678: ELSE
679: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'DNZ_CHR_ID');
680: x_return_status := OKC_API.G_RET_STS_ERROR;
681: END IF;
682: EXCEPTION
683: WHEN item_not_found_error THEN
676: RAISE item_not_found_error;
677: END IF;
678: ELSE
679: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'DNZ_CHR_ID');
680: x_return_status := OKC_API.G_RET_STS_ERROR;
681: END IF;
682: EXCEPTION
683: WHEN item_not_found_error THEN
684: x_return_status := OKC_API.G_RET_STS_ERROR;
680: x_return_status := OKC_API.G_RET_STS_ERROR;
681: END IF;
682: EXCEPTION
683: WHEN item_not_found_error THEN
684: x_return_status := OKC_API.G_RET_STS_ERROR;
685: WHEN OTHERS THEN
686: -- store SQL error message on message stack for caller
687: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
688: p_msg_name => g_unexpected_error,
683: WHEN item_not_found_error THEN
684: x_return_status := OKC_API.G_RET_STS_ERROR;
685: WHEN OTHERS THEN
686: -- store SQL error message on message stack for caller
687: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
688: p_msg_name => g_unexpected_error,
689: p_token1 => g_sqlcode_token,
690: p_token1_value => sqlcode,
691: p_token2 => g_col_name_token,
692: p_token2_value => 'DNZ_CHR_ID',
693: p_token3 => g_sqlerrm_token,
694: p_token3_value => sqlerrm);
695: -- notify caller of an UNEXPECTED error
696: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
697: END Validate_DNZ_Chr_Id ;
698:
699: PROCEDURE Validate_Datetime (
700: x_return_status OUT NOCOPY VARCHAR2,
699: PROCEDURE Validate_Datetime (
700: x_return_status OUT NOCOPY VARCHAR2,
701: p_tavv_rec IN tavv_rec_type) IS
702: BEGIN
703: x_return_status := OKC_API.G_RET_STS_SUCCESS;
704: IF (p_tavv_rec.datetime = OKC_API.G_MISS_DATE OR
705: p_tavv_rec.datetime IS NULL) THEN
706: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'datetime');
707: x_return_status := OKC_API.G_RET_STS_ERROR;
700: x_return_status OUT NOCOPY VARCHAR2,
701: p_tavv_rec IN tavv_rec_type) IS
702: BEGIN
703: x_return_status := OKC_API.G_RET_STS_SUCCESS;
704: IF (p_tavv_rec.datetime = OKC_API.G_MISS_DATE OR
705: p_tavv_rec.datetime IS NULL) THEN
706: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'datetime');
707: x_return_status := OKC_API.G_RET_STS_ERROR;
708: END IF;
702: BEGIN
703: x_return_status := OKC_API.G_RET_STS_SUCCESS;
704: IF (p_tavv_rec.datetime = OKC_API.G_MISS_DATE OR
705: p_tavv_rec.datetime IS NULL) THEN
706: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'datetime');
707: x_return_status := OKC_API.G_RET_STS_ERROR;
708: END IF;
709: END Validate_Datetime;
710:
703: x_return_status := OKC_API.G_RET_STS_SUCCESS;
704: IF (p_tavv_rec.datetime = OKC_API.G_MISS_DATE OR
705: p_tavv_rec.datetime IS NULL) THEN
706: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'datetime');
707: x_return_status := OKC_API.G_RET_STS_ERROR;
708: END IF;
709: END Validate_Datetime;
710:
711: PROCEDURE Validate_Time_Zone_Id (
719: FROM Okx_TimeZones_V
720: WHERE okx_timezones_v.timezone_id = p_tze_id;
721: l_okx_timezones_v_pk okx_timezones_v_pk_csr%ROWTYPE;
722: BEGIN
723: x_return_status := OKC_API.G_RET_STS_SUCCESS;
724: IF (p_tavv_rec.TZE_ID IS NOT NULL AND
725: p_tavv_rec.TZE_ID <> OKC_API.G_MISS_NUM)
726: THEN
727: OPEN okx_timezones_v_pk_csr(p_tavv_rec.TZE_ID);
721: l_okx_timezones_v_pk okx_timezones_v_pk_csr%ROWTYPE;
722: BEGIN
723: x_return_status := OKC_API.G_RET_STS_SUCCESS;
724: IF (p_tavv_rec.TZE_ID IS NOT NULL AND
725: p_tavv_rec.TZE_ID <> OKC_API.G_MISS_NUM)
726: THEN
727: OPEN okx_timezones_v_pk_csr(p_tavv_rec.TZE_ID);
728: FETCH okx_timezones_v_pk_csr INTO l_okx_timezones_v_pk;
729: l_row_notfound := okx_timezones_v_pk_csr%NOTFOUND;
728: FETCH okx_timezones_v_pk_csr INTO l_okx_timezones_v_pk;
729: l_row_notfound := okx_timezones_v_pk_csr%NOTFOUND;
730: CLOSE okx_timezones_v_pk_csr;
731: IF (l_row_notfound) THEN
732: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'TZE_ID');
733: RAISE item_not_found_error;
734: END IF;
735: END IF;
736: EXCEPTION
734: END IF;
735: END IF;
736: EXCEPTION
737: WHEN item_not_found_error THEN
738: x_return_status := OKC_API.G_RET_STS_ERROR;
739: WHEN OTHERS THEN
740: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
741: p_msg_name => g_unexpected_error,
742: p_token1 => g_sqlcode_token,
736: EXCEPTION
737: WHEN item_not_found_error THEN
738: x_return_status := OKC_API.G_RET_STS_ERROR;
739: WHEN OTHERS THEN
740: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
741: p_msg_name => g_unexpected_error,
742: p_token1 => g_sqlcode_token,
743: p_token1_value => sqlcode,
744: p_token2 => g_col_name_token,
745: p_token2_value => 'TZE_ID',
746: p_token3 => g_sqlerrm_token,
747: p_token3_value => sqlerrm);
748: -- notify caller of an UNEXPECTED error
749: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
750: END Validate_Time_Zone_Id ;
751:
752: /* PROCEDURE Validate_SFWT_Flag (
753: x_return_status OUT NOCOPY VARCHAR2,
758: THEN
759: IF p_tavv_rec.sfwt_flag = 'Y' OR
760: p_tavv_rec.sfwt_flag = 'N'
761: THEN
762: x_return_status := OKC_API.G_RET_STS_SUCCESS;
763: ELSE
764: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'SFWT_FLAG');
765: x_return_status := OKC_API.G_RET_STS_ERROR;
766: END IF;
760: p_tavv_rec.sfwt_flag = 'N'
761: THEN
762: x_return_status := OKC_API.G_RET_STS_SUCCESS;
763: ELSE
764: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'SFWT_FLAG');
765: x_return_status := OKC_API.G_RET_STS_ERROR;
766: END IF;
767: ELSE
768: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SFWT_FLAG');
761: THEN
762: x_return_status := OKC_API.G_RET_STS_SUCCESS;
763: ELSE
764: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'SFWT_FLAG');
765: x_return_status := OKC_API.G_RET_STS_ERROR;
766: END IF;
767: ELSE
768: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SFWT_FLAG');
769: x_return_status := OKC_API.G_RET_STS_ERROR;
764: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'SFWT_FLAG');
765: x_return_status := OKC_API.G_RET_STS_ERROR;
766: END IF;
767: ELSE
768: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SFWT_FLAG');
769: x_return_status := OKC_API.G_RET_STS_ERROR;
770: END IF;
771: END Validate_SFWT_Flag;
772: */
765: x_return_status := OKC_API.G_RET_STS_ERROR;
766: END IF;
767: ELSE
768: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SFWT_FLAG');
769: x_return_status := OKC_API.G_RET_STS_ERROR;
770: END IF;
771: END Validate_SFWT_Flag;
772: */
773: FUNCTION Validate_Attributes (
772: */
773: FUNCTION Validate_Attributes (
774: p_tavv_rec IN tavv_rec_type
775: ) RETURN VARCHAR2 IS
776: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
777: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
778: BEGIN
779: IF p_tavv_rec.id = OKC_API.G_MISS_NUM OR
780: p_tavv_rec.id IS NULL
773: FUNCTION Validate_Attributes (
774: p_tavv_rec IN tavv_rec_type
775: ) RETURN VARCHAR2 IS
776: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
777: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
778: BEGIN
779: IF p_tavv_rec.id = OKC_API.G_MISS_NUM OR
780: p_tavv_rec.id IS NULL
781: THEN
775: ) RETURN VARCHAR2 IS
776: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
777: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
778: BEGIN
779: IF p_tavv_rec.id = OKC_API.G_MISS_NUM OR
780: p_tavv_rec.id IS NULL
781: THEN
782: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
783: x_return_status := OKC_API.G_RET_STS_ERROR;
778: BEGIN
779: IF p_tavv_rec.id = OKC_API.G_MISS_NUM OR
780: p_tavv_rec.id IS NULL
781: THEN
782: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
783: x_return_status := OKC_API.G_RET_STS_ERROR;
784: ELSIF p_tavv_rec.object_version_number = OKC_API.G_MISS_NUM OR
785: p_tavv_rec.object_version_number IS NULL
786: THEN
779: IF p_tavv_rec.id = OKC_API.G_MISS_NUM OR
780: p_tavv_rec.id IS NULL
781: THEN
782: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
783: x_return_status := OKC_API.G_RET_STS_ERROR;
784: ELSIF p_tavv_rec.object_version_number = OKC_API.G_MISS_NUM OR
785: p_tavv_rec.object_version_number IS NULL
786: THEN
787: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
780: p_tavv_rec.id IS NULL
781: THEN
782: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
783: x_return_status := OKC_API.G_RET_STS_ERROR;
784: ELSIF p_tavv_rec.object_version_number = OKC_API.G_MISS_NUM OR
785: p_tavv_rec.object_version_number IS NULL
786: THEN
787: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
788: x_return_status := OKC_API.G_RET_STS_ERROR;
783: x_return_status := OKC_API.G_RET_STS_ERROR;
784: ELSIF p_tavv_rec.object_version_number = OKC_API.G_MISS_NUM OR
785: p_tavv_rec.object_version_number IS NULL
786: THEN
787: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
788: x_return_status := OKC_API.G_RET_STS_ERROR;
789: END IF;
790: IF (p_tavv_rec.spn_id is NOT NULL AND
791: p_tavv_rec.spn_id <> OKC_API.G_MISS_NUM) THEN
784: ELSIF p_tavv_rec.object_version_number = OKC_API.G_MISS_NUM OR
785: p_tavv_rec.object_version_number IS NULL
786: THEN
787: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
788: x_return_status := OKC_API.G_RET_STS_ERROR;
789: END IF;
790: IF (p_tavv_rec.spn_id is NOT NULL AND
791: p_tavv_rec.spn_id <> OKC_API.G_MISS_NUM) THEN
792: Validate_Spn_Id (l_return_status,
787: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
788: x_return_status := OKC_API.G_RET_STS_ERROR;
789: END IF;
790: IF (p_tavv_rec.spn_id is NOT NULL AND
791: p_tavv_rec.spn_id <> OKC_API.G_MISS_NUM) THEN
792: Validate_Spn_Id (l_return_status,
793: p_tavv_rec);
794: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
795: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
790: IF (p_tavv_rec.spn_id is NOT NULL AND
791: p_tavv_rec.spn_id <> OKC_API.G_MISS_NUM) THEN
792: Validate_Spn_Id (l_return_status,
793: p_tavv_rec);
794: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
795: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
796: x_return_status := l_return_status;
797: RAISE G_EXCEPTION_HALT_VALIDATION;
798: ELSE
791: p_tavv_rec.spn_id <> OKC_API.G_MISS_NUM) THEN
792: Validate_Spn_Id (l_return_status,
793: p_tavv_rec);
794: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
795: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
796: x_return_status := l_return_status;
797: RAISE G_EXCEPTION_HALT_VALIDATION;
798: ELSE
799: x_return_status := l_return_status; -- record that there was an error
800: END IF;
801: END IF;
802: END IF;
803: IF (p_tavv_rec.tve_id_generated_by is NOT NULL AND
804: p_tavv_rec.tve_id_generated_by <> OKC_API.G_MISS_NUM) THEN
805: Validate_Generated_By (l_return_status,
806: p_tavv_rec);
807: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
808: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
803: IF (p_tavv_rec.tve_id_generated_by is NOT NULL AND
804: p_tavv_rec.tve_id_generated_by <> OKC_API.G_MISS_NUM) THEN
805: Validate_Generated_By (l_return_status,
806: p_tavv_rec);
807: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
808: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
809: x_return_status := l_return_status;
810: RAISE G_EXCEPTION_HALT_VALIDATION;
811: ELSE
804: p_tavv_rec.tve_id_generated_by <> OKC_API.G_MISS_NUM) THEN
805: Validate_Generated_By (l_return_status,
806: p_tavv_rec);
807: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
808: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
809: x_return_status := l_return_status;
810: RAISE G_EXCEPTION_HALT_VALIDATION;
811: ELSE
812: x_return_status := l_return_status; -- record that there was an error
813: END IF;
814: END IF;
815: END IF;
816: IF (p_tavv_rec.tve_id_limited is NOT NULL AND
817: p_tavv_rec.tve_id_limited <> OKC_API.G_MISS_NUM) THEN
818: Validate_Tve_Id_Limited (l_return_status,
819: p_tavv_rec);
820: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
821: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
816: IF (p_tavv_rec.tve_id_limited is NOT NULL AND
817: p_tavv_rec.tve_id_limited <> OKC_API.G_MISS_NUM) THEN
818: Validate_Tve_Id_Limited (l_return_status,
819: p_tavv_rec);
820: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
821: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
822: x_return_status := l_return_status;
823: RAISE G_EXCEPTION_HALT_VALIDATION;
824: ELSE
817: p_tavv_rec.tve_id_limited <> OKC_API.G_MISS_NUM) THEN
818: Validate_Tve_Id_Limited (l_return_status,
819: p_tavv_rec);
820: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
821: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
822: x_return_status := l_return_status;
823: RAISE G_EXCEPTION_HALT_VALIDATION;
824: ELSE
825: x_return_status := l_return_status; -- record that there was an error
828: END IF;
829: IF p_tavv_rec.dnz_chr_id <> 0 Then
830: Validate_DNZ_Chr_Id (l_return_status,
831: p_tavv_rec);
832: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
833: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
834: x_return_status := l_return_status;
835: RAISE G_EXCEPTION_HALT_VALIDATION;
836: ELSE
829: IF p_tavv_rec.dnz_chr_id <> 0 Then
830: Validate_DNZ_Chr_Id (l_return_status,
831: p_tavv_rec);
832: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
833: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
834: x_return_status := l_return_status;
835: RAISE G_EXCEPTION_HALT_VALIDATION;
836: ELSE
837: x_return_status := l_return_status; -- record that there was an error
839: END IF;
840: END IF;
841: Validate_Datetime (l_return_status,
842: p_tavv_rec);
843: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
844: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
845: x_return_status := l_return_status;
846: RAISE G_EXCEPTION_HALT_VALIDATION;
847: ELSE
840: END IF;
841: Validate_Datetime (l_return_status,
842: p_tavv_rec);
843: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
844: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
845: x_return_status := l_return_status;
846: RAISE G_EXCEPTION_HALT_VALIDATION;
847: ELSE
848: x_return_status := l_return_status; -- record that there was an error
848: x_return_status := l_return_status; -- record that there was an error
849: END IF;
850: END IF;
851: IF (p_tavv_rec.TZE_ID IS NOT NULL AND
852: p_tavv_rec.TZE_ID <> OKC_API.G_MISS_NUM)
853: THEN
854: Validate_Time_Zone_Id (l_return_status,
855: p_tavv_rec);
856: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
852: p_tavv_rec.TZE_ID <> OKC_API.G_MISS_NUM)
853: THEN
854: Validate_Time_Zone_Id (l_return_status,
855: p_tavv_rec);
856: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
857: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
858: x_return_status := l_return_status;
859: RAISE G_EXCEPTION_HALT_VALIDATION;
860: ELSE
853: THEN
854: Validate_Time_Zone_Id (l_return_status,
855: p_tavv_rec);
856: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
857: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
858: x_return_status := l_return_status;
859: RAISE G_EXCEPTION_HALT_VALIDATION;
860: ELSE
861: x_return_status := l_return_status; -- record that there was an error
863: END IF;
864: END IF;
865: /* Validate_SFWT_Flag (l_return_status,
866: p_tavv_rec);
867: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
868: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
869: x_return_status := l_return_status;
870: RAISE G_EXCEPTION_HALT_VALIDATION;
871: ELSE
864: END IF;
865: /* Validate_SFWT_Flag (l_return_status,
866: p_tavv_rec);
867: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
868: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
869: x_return_status := l_return_status;
870: RAISE G_EXCEPTION_HALT_VALIDATION;
871: ELSE
872: x_return_status := l_return_status; -- record that there was an error
879: RETURN(x_return_status);
880:
881: WHEN OTHERS THEN
882: -- store SQL error message on message stack for caller
883: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
884: p_msg_name => g_unexpected_error,
885: p_token1 => g_sqlcode_token,
886: p_token1_value => sqlcode,
887: p_token2 => g_sqlerrm_token,
887: p_token2 => g_sqlerrm_token,
888: p_token2_value => sqlerrm);
889:
890: -- notify caller of an UNEXPECTED error
891: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
892: RETURN(x_return_status);
893:
894: END Validate_Attributes;
895:
901: ----------------------------------------------
902: FUNCTION Validate_Record (
903: p_tavv_rec IN tavv_rec_type
904: ) RETURN VARCHAR2 IS
905: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
906: BEGIN
907: RETURN (l_return_status);
908: END Validate_Record;
909:
1052: p_tavv_rec IN tavv_rec_type) IS
1053:
1054: l_api_version CONSTANT NUMBER := 1;
1055: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
1056: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1057: l_tavv_rec tavv_rec_type := p_tavv_rec;
1058: l_tve_rec tve_rec_type;
1059: --Bug 3122962 l_okc_timevalues_tl_rec okc_timevalues_tl_rec_type;
1060: BEGIN
1057: l_tavv_rec tavv_rec_type := p_tavv_rec;
1058: l_tve_rec tve_rec_type;
1059: --Bug 3122962 l_okc_timevalues_tl_rec okc_timevalues_tl_rec_type;
1060: BEGIN
1061: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1062: G_PKG_NAME,
1063: p_init_msg_list,
1064: l_api_version,
1065: p_api_version,
1064: l_api_version,
1065: p_api_version,
1066: '_PVT',
1067: x_return_status);
1068: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1069: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1070: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1071: RAISE OKC_API.G_EXCEPTION_ERROR;
1072: END IF;
1065: p_api_version,
1066: '_PVT',
1067: x_return_status);
1068: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1069: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1070: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1071: RAISE OKC_API.G_EXCEPTION_ERROR;
1072: END IF;
1073: --- Validate all non-missing attributes (Item Level Validation)
1066: '_PVT',
1067: x_return_status);
1068: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1069: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1070: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1071: RAISE OKC_API.G_EXCEPTION_ERROR;
1072: END IF;
1073: --- Validate all non-missing attributes (Item Level Validation)
1074: l_return_status := Validate_Attributes(l_tavv_rec);
1067: x_return_status);
1068: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1069: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1070: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1071: RAISE OKC_API.G_EXCEPTION_ERROR;
1072: END IF;
1073: --- Validate all non-missing attributes (Item Level Validation)
1074: l_return_status := Validate_Attributes(l_tavv_rec);
1075: --- If any errors happen abort API
1072: END IF;
1073: --- Validate all non-missing attributes (Item Level Validation)
1074: l_return_status := Validate_Attributes(l_tavv_rec);
1075: --- If any errors happen abort API
1076: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1077: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1078: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1079: RAISE OKC_API.G_EXCEPTION_ERROR;
1080: END IF;
1073: --- Validate all non-missing attributes (Item Level Validation)
1074: l_return_status := Validate_Attributes(l_tavv_rec);
1075: --- If any errors happen abort API
1076: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1077: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1078: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1079: RAISE OKC_API.G_EXCEPTION_ERROR;
1080: END IF;
1081: l_return_status := Validate_Record(l_tavv_rec);
1074: l_return_status := Validate_Attributes(l_tavv_rec);
1075: --- If any errors happen abort API
1076: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1077: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1078: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1079: RAISE OKC_API.G_EXCEPTION_ERROR;
1080: END IF;
1081: l_return_status := Validate_Record(l_tavv_rec);
1082: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1075: --- If any errors happen abort API
1076: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1077: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1078: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1079: RAISE OKC_API.G_EXCEPTION_ERROR;
1080: END IF;
1081: l_return_status := Validate_Record(l_tavv_rec);
1082: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1083: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1078: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1079: RAISE OKC_API.G_EXCEPTION_ERROR;
1080: END IF;
1081: l_return_status := Validate_Record(l_tavv_rec);
1082: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1083: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1084: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1085: RAISE OKC_API.G_EXCEPTION_ERROR;
1086: END IF;
1079: RAISE OKC_API.G_EXCEPTION_ERROR;
1080: END IF;
1081: l_return_status := Validate_Record(l_tavv_rec);
1082: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1083: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1084: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1085: RAISE OKC_API.G_EXCEPTION_ERROR;
1086: END IF;
1087: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1080: END IF;
1081: l_return_status := Validate_Record(l_tavv_rec);
1082: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1083: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1084: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1085: RAISE OKC_API.G_EXCEPTION_ERROR;
1086: END IF;
1087: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1088: EXCEPTION
1081: l_return_status := Validate_Record(l_tavv_rec);
1082: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1083: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1084: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1085: RAISE OKC_API.G_EXCEPTION_ERROR;
1086: END IF;
1087: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1088: EXCEPTION
1089: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1083: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1084: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1085: RAISE OKC_API.G_EXCEPTION_ERROR;
1086: END IF;
1087: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1088: EXCEPTION
1089: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1090: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1091: (
1085: RAISE OKC_API.G_EXCEPTION_ERROR;
1086: END IF;
1087: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1088: EXCEPTION
1089: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1090: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1091: (
1092: l_api_name,
1093: G_PKG_NAME,
1086: END IF;
1087: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1088: EXCEPTION
1089: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1090: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1091: (
1092: l_api_name,
1093: G_PKG_NAME,
1094: 'OKC_API.G_RET_STS_ERROR',
1090: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1091: (
1092: l_api_name,
1093: G_PKG_NAME,
1094: 'OKC_API.G_RET_STS_ERROR',
1095: x_msg_count,
1096: x_msg_data,
1097: '_PVT'
1098: );
1095: x_msg_count,
1096: x_msg_data,
1097: '_PVT'
1098: );
1099: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1100: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1101: (
1102: l_api_name,
1103: G_PKG_NAME,
1096: x_msg_data,
1097: '_PVT'
1098: );
1099: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1100: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1101: (
1102: l_api_name,
1103: G_PKG_NAME,
1104: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1100: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1101: (
1102: l_api_name,
1103: G_PKG_NAME,
1104: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1105: x_msg_count,
1106: x_msg_data,
1107: '_PVT'
1108: );
1106: x_msg_data,
1107: '_PVT'
1108: );
1109: WHEN OTHERS THEN
1110: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1111: (
1112: l_api_name,
1113: G_PKG_NAME,
1114: 'OTHERS',
1129: p_tavv_tbl IN tavv_tbl_type) IS
1130:
1131: l_api_version CONSTANT NUMBER := 1;
1132: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1133: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1134: i NUMBER := 0;
1135: BEGIN
1136: -- Make sure PL/SQL table has records in it before passing
1137: IF (p_tavv_tbl.COUNT > 0) THEN
1148: i := p_tavv_tbl.NEXT(i);
1149: END LOOP;
1150: END IF;
1151: EXCEPTION
1152: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1153: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1154: (
1155: l_api_name,
1156: G_PKG_NAME,
1149: END LOOP;
1150: END IF;
1151: EXCEPTION
1152: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1153: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1154: (
1155: l_api_name,
1156: G_PKG_NAME,
1157: 'OKC_API.G_RET_STS_ERROR',
1153: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1154: (
1155: l_api_name,
1156: G_PKG_NAME,
1157: 'OKC_API.G_RET_STS_ERROR',
1158: x_msg_count,
1159: x_msg_data,
1160: '_PVT'
1161: );
1158: x_msg_count,
1159: x_msg_data,
1160: '_PVT'
1161: );
1162: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1163: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1164: (
1165: l_api_name,
1166: G_PKG_NAME,
1159: x_msg_data,
1160: '_PVT'
1161: );
1162: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1163: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1164: (
1165: l_api_name,
1166: G_PKG_NAME,
1167: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1163: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1164: (
1165: l_api_name,
1166: G_PKG_NAME,
1167: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1168: x_msg_count,
1169: x_msg_data,
1170: '_PVT'
1171: );
1169: x_msg_data,
1170: '_PVT'
1171: );
1172: WHEN OTHERS THEN
1173: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1174: (
1175: l_api_name,
1176: G_PKG_NAME,
1177: 'OTHERS',
1196: x_tve_rec OUT NOCOPY tve_rec_type) IS
1197:
1198: l_api_version CONSTANT NUMBER := 1;
1199: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
1200: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1201: l_tve_rec tve_rec_type := p_tve_rec;
1202: l_def_tve_rec tve_rec_type;
1203: -----------------------------------------
1204: -- Set_Attributes for:OKC_TIMEVALUES_B --
1206: FUNCTION Set_Attributes (
1207: p_tve_rec IN tve_rec_type,
1208: x_tve_rec OUT NOCOPY tve_rec_type
1209: ) RETURN VARCHAR2 IS
1210: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1211: BEGIN
1212: x_tve_rec := p_tve_rec;
1213: RETURN(l_return_status);
1214: END Set_Attributes;
1212: x_tve_rec := p_tve_rec;
1213: RETURN(l_return_status);
1214: END Set_Attributes;
1215: BEGIN
1216: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1217: p_init_msg_list,
1218: '_PVT',
1219: x_return_status);
1220: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1216: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1217: p_init_msg_list,
1218: '_PVT',
1219: x_return_status);
1220: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1221: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1222: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1223: RAISE OKC_API.G_EXCEPTION_ERROR;
1224: END IF;
1217: p_init_msg_list,
1218: '_PVT',
1219: x_return_status);
1220: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1221: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1222: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1223: RAISE OKC_API.G_EXCEPTION_ERROR;
1224: END IF;
1225: --- Setting item attributes
1218: '_PVT',
1219: x_return_status);
1220: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1221: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1222: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1223: RAISE OKC_API.G_EXCEPTION_ERROR;
1224: END IF;
1225: --- Setting item attributes
1226: l_return_status := Set_Attributes(
1219: x_return_status);
1220: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1221: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1222: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1223: RAISE OKC_API.G_EXCEPTION_ERROR;
1224: END IF;
1225: --- Setting item attributes
1226: l_return_status := Set_Attributes(
1227: p_tve_rec, -- IN
1226: l_return_status := Set_Attributes(
1227: p_tve_rec, -- IN
1228: l_tve_rec); -- OUT
1229: --- If any errors happen abort API
1230: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1231: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1232: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1233: RAISE OKC_API.G_EXCEPTION_ERROR;
1234: END IF;
1227: p_tve_rec, -- IN
1228: l_tve_rec); -- OUT
1229: --- If any errors happen abort API
1230: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1231: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1232: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1233: RAISE OKC_API.G_EXCEPTION_ERROR;
1234: END IF;
1235: INSERT INTO OKC_TIMEVALUES(
1228: l_tve_rec); -- OUT
1229: --- If any errors happen abort API
1230: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1231: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1232: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1233: RAISE OKC_API.G_EXCEPTION_ERROR;
1234: END IF;
1235: INSERT INTO OKC_TIMEVALUES(
1236: id,
1229: --- If any errors happen abort API
1230: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1231: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1232: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1233: RAISE OKC_API.G_EXCEPTION_ERROR;
1234: END IF;
1235: INSERT INTO OKC_TIMEVALUES(
1236: id,
1237: spn_id,
1339: l_tve_rec.attribute14,
1340: l_tve_rec.attribute15);
1341: -- Set OUT values
1342: x_tve_rec := l_tve_rec;
1343: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1344: EXCEPTION
1345: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1346: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1347: (
1341: -- Set OUT values
1342: x_tve_rec := l_tve_rec;
1343: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1344: EXCEPTION
1345: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1346: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1347: (
1348: l_api_name,
1349: G_PKG_NAME,
1342: x_tve_rec := l_tve_rec;
1343: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1344: EXCEPTION
1345: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1346: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1347: (
1348: l_api_name,
1349: G_PKG_NAME,
1350: 'OKC_API.G_RET_STS_ERROR',
1346: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1347: (
1348: l_api_name,
1349: G_PKG_NAME,
1350: 'OKC_API.G_RET_STS_ERROR',
1351: x_msg_count,
1352: x_msg_data,
1353: '_PVT'
1354: );
1351: x_msg_count,
1352: x_msg_data,
1353: '_PVT'
1354: );
1355: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1356: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1357: (
1358: l_api_name,
1359: G_PKG_NAME,
1352: x_msg_data,
1353: '_PVT'
1354: );
1355: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1356: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1357: (
1358: l_api_name,
1359: G_PKG_NAME,
1360: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1356: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1357: (
1358: l_api_name,
1359: G_PKG_NAME,
1360: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1361: x_msg_count,
1362: x_msg_data,
1363: '_PVT'
1364: );
1362: x_msg_data,
1363: '_PVT'
1364: );
1365: WHEN OTHERS THEN
1366: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1367: (
1368: l_api_name,
1369: G_PKG_NAME,
1370: 'OTHERS',
1385: x_okc_timevalues_tl_rec OUT NOCOPY okc_timevalues_tl_rec_type) IS
1386:
1387: l_api_version CONSTANT NUMBER := 1;
1388: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1389: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1390: l_okc_timevalues_tl_rec okc_timevalues_tl_rec_type := p_okc_timevalues_tl_rec;
1391: l_def_okc_timevalues_tl_rec okc_timevalues_tl_rec_type;
1392: CURSOR get_languages IS
1393: SELECT *
1399: FUNCTION Set_Attributes (
1400: p_okc_timevalues_tl_rec IN okc_timevalues_tl_rec_type,
1401: x_okc_timevalues_tl_rec OUT NOCOPY okc_timevalues_tl_rec_type
1402: ) RETURN VARCHAR2 IS
1403: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1404: BEGIN
1405: x_okc_timevalues_tl_rec := p_okc_timevalues_tl_rec;
1406: x_okc_timevalues_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
1407: x_okc_timevalues_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
1407: x_okc_timevalues_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
1408: RETURN(l_return_status);
1409: END Set_Attributes;
1410: BEGIN
1411: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1412: p_init_msg_list,
1413: '_PVT',
1414: x_return_status);
1415: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1411: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1412: p_init_msg_list,
1413: '_PVT',
1414: x_return_status);
1415: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1416: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1417: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1418: RAISE OKC_API.G_EXCEPTION_ERROR;
1419: END IF;
1412: p_init_msg_list,
1413: '_PVT',
1414: x_return_status);
1415: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1416: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1417: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1418: RAISE OKC_API.G_EXCEPTION_ERROR;
1419: END IF;
1420: --- Setting item attributes
1413: '_PVT',
1414: x_return_status);
1415: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1416: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1417: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1418: RAISE OKC_API.G_EXCEPTION_ERROR;
1419: END IF;
1420: --- Setting item attributes
1421: l_return_status := Set_Attributes(
1414: x_return_status);
1415: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1416: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1417: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1418: RAISE OKC_API.G_EXCEPTION_ERROR;
1419: END IF;
1420: --- Setting item attributes
1421: l_return_status := Set_Attributes(
1422: p_okc_timevalues_tl_rec, -- IN
1421: l_return_status := Set_Attributes(
1422: p_okc_timevalues_tl_rec, -- IN
1423: l_okc_timevalues_tl_rec); -- OUT
1424: --- If any errors happen abort API
1425: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1426: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1427: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1428: RAISE OKC_API.G_EXCEPTION_ERROR;
1429: END IF;
1422: p_okc_timevalues_tl_rec, -- IN
1423: l_okc_timevalues_tl_rec); -- OUT
1424: --- If any errors happen abort API
1425: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1426: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1427: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1428: RAISE OKC_API.G_EXCEPTION_ERROR;
1429: END IF;
1430: FOR l_lang_rec IN get_languages LOOP
1423: l_okc_timevalues_tl_rec); -- OUT
1424: --- If any errors happen abort API
1425: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1426: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1427: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1428: RAISE OKC_API.G_EXCEPTION_ERROR;
1429: END IF;
1430: FOR l_lang_rec IN get_languages LOOP
1431: l_okc_timevalues_tl_rec.language := l_lang_rec.language_code;
1424: --- If any errors happen abort API
1425: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1426: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1427: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1428: RAISE OKC_API.G_EXCEPTION_ERROR;
1429: END IF;
1430: FOR l_lang_rec IN get_languages LOOP
1431: l_okc_timevalues_tl_rec.language := l_lang_rec.language_code;
1432: INSERT INTO OKC_TIMEVALUES_TL(
1459: l_okc_timevalues_tl_rec.last_update_login);
1460: END LOOP;
1461: -- Set OUT values
1462: x_okc_timevalues_tl_rec := l_okc_timevalues_tl_rec;
1463: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1464: EXCEPTION
1465: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1466: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1467: (
1461: -- Set OUT values
1462: x_okc_timevalues_tl_rec := l_okc_timevalues_tl_rec;
1463: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1464: EXCEPTION
1465: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1466: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1467: (
1468: l_api_name,
1469: G_PKG_NAME,
1462: x_okc_timevalues_tl_rec := l_okc_timevalues_tl_rec;
1463: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1464: EXCEPTION
1465: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1466: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1467: (
1468: l_api_name,
1469: G_PKG_NAME,
1470: 'OKC_API.G_RET_STS_ERROR',
1466: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1467: (
1468: l_api_name,
1469: G_PKG_NAME,
1470: 'OKC_API.G_RET_STS_ERROR',
1471: x_msg_count,
1472: x_msg_data,
1473: '_PVT'
1474: );
1471: x_msg_count,
1472: x_msg_data,
1473: '_PVT'
1474: );
1475: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1476: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1477: (
1478: l_api_name,
1479: G_PKG_NAME,
1472: x_msg_data,
1473: '_PVT'
1474: );
1475: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1476: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1477: (
1478: l_api_name,
1479: G_PKG_NAME,
1480: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1476: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1477: (
1478: l_api_name,
1479: G_PKG_NAME,
1480: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1481: x_msg_count,
1482: x_msg_data,
1483: '_PVT'
1484: );
1482: x_msg_data,
1483: '_PVT'
1484: );
1485: WHEN OTHERS THEN
1486: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1487: (
1488: l_api_name,
1489: G_PKG_NAME,
1490: 'OTHERS',
1507: x_tavv_rec OUT NOCOPY tavv_rec_type) IS
1508:
1509: l_api_version CONSTANT NUMBER := 1;
1510: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
1511: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1512: l_tavv_rec tavv_rec_type;
1513: l_def_tavv_rec tavv_rec_type;
1514: l_tve_rec tve_rec_type;
1515: lx_tve_rec tve_rec_type;
1536: FUNCTION Set_Attributes (
1537: p_tavv_rec IN tavv_rec_type,
1538: x_tavv_rec OUT NOCOPY tavv_rec_type
1539: ) RETURN VARCHAR2 IS
1540: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1541: BEGIN
1542: x_tavv_rec := p_tavv_rec;
1543: x_tavv_rec.OBJECT_VERSION_NUMBER := 1;
1544: --Bug 3122962 x_tavv_rec.SFWT_FLAG := 'N';
1544: --Bug 3122962 x_tavv_rec.SFWT_FLAG := 'N';
1545: RETURN(l_return_status);
1546: END Set_Attributes;
1547: BEGIN
1548: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1549: G_PKG_NAME,
1550: p_init_msg_list,
1551: l_api_version,
1552: p_api_version,
1551: l_api_version,
1552: p_api_version,
1553: '_PVT',
1554: x_return_status);
1555: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1556: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1557: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1558: RAISE OKC_API.G_EXCEPTION_ERROR;
1559: END IF;
1552: p_api_version,
1553: '_PVT',
1554: x_return_status);
1555: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1556: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1557: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1558: RAISE OKC_API.G_EXCEPTION_ERROR;
1559: END IF;
1560: l_tavv_rec := null_out_defaults(p_tavv_rec);
1553: '_PVT',
1554: x_return_status);
1555: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1556: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1557: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1558: RAISE OKC_API.G_EXCEPTION_ERROR;
1559: END IF;
1560: l_tavv_rec := null_out_defaults(p_tavv_rec);
1561: -- Set primary key value
1554: x_return_status);
1555: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1556: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1557: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1558: RAISE OKC_API.G_EXCEPTION_ERROR;
1559: END IF;
1560: l_tavv_rec := null_out_defaults(p_tavv_rec);
1561: -- Set primary key value
1562: l_tavv_rec.ID := get_seq_id;
1564: l_return_status := Set_Attributes(
1565: l_tavv_rec, -- IN
1566: l_def_tavv_rec); -- OUT
1567: --- If any errors happen abort API
1568: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1569: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1570: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1571: RAISE OKC_API.G_EXCEPTION_ERROR;
1572: END IF;
1565: l_tavv_rec, -- IN
1566: l_def_tavv_rec); -- OUT
1567: --- If any errors happen abort API
1568: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1569: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1570: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1571: RAISE OKC_API.G_EXCEPTION_ERROR;
1572: END IF;
1573: l_def_tavv_rec := fill_who_columns(l_def_tavv_rec);
1566: l_def_tavv_rec); -- OUT
1567: --- If any errors happen abort API
1568: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1569: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1570: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1571: RAISE OKC_API.G_EXCEPTION_ERROR;
1572: END IF;
1573: l_def_tavv_rec := fill_who_columns(l_def_tavv_rec);
1574: --- Validate all non-missing attributes (Item Level Validation)
1567: --- If any errors happen abort API
1568: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1569: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1570: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1571: RAISE OKC_API.G_EXCEPTION_ERROR;
1572: END IF;
1573: l_def_tavv_rec := fill_who_columns(l_def_tavv_rec);
1574: --- Validate all non-missing attributes (Item Level Validation)
1575: l_return_status := Validate_Attributes(l_def_tavv_rec);
1573: l_def_tavv_rec := fill_who_columns(l_def_tavv_rec);
1574: --- Validate all non-missing attributes (Item Level Validation)
1575: l_return_status := Validate_Attributes(l_def_tavv_rec);
1576: --- If any errors happen abort API
1577: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1578: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1579: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1580: RAISE OKC_API.G_EXCEPTION_ERROR;
1581: END IF;
1574: --- Validate all non-missing attributes (Item Level Validation)
1575: l_return_status := Validate_Attributes(l_def_tavv_rec);
1576: --- If any errors happen abort API
1577: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1578: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1579: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1580: RAISE OKC_API.G_EXCEPTION_ERROR;
1581: END IF;
1582: l_return_status := Validate_Record(l_def_tavv_rec);
1575: l_return_status := Validate_Attributes(l_def_tavv_rec);
1576: --- If any errors happen abort API
1577: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1578: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1579: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1580: RAISE OKC_API.G_EXCEPTION_ERROR;
1581: END IF;
1582: l_return_status := Validate_Record(l_def_tavv_rec);
1583: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1576: --- If any errors happen abort API
1577: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1578: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1579: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1580: RAISE OKC_API.G_EXCEPTION_ERROR;
1581: END IF;
1582: l_return_status := Validate_Record(l_def_tavv_rec);
1583: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1584: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1579: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1580: RAISE OKC_API.G_EXCEPTION_ERROR;
1581: END IF;
1582: l_return_status := Validate_Record(l_def_tavv_rec);
1583: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1584: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1585: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1586: RAISE OKC_API.G_EXCEPTION_ERROR;
1587: END IF;
1580: RAISE OKC_API.G_EXCEPTION_ERROR;
1581: END IF;
1582: l_return_status := Validate_Record(l_def_tavv_rec);
1583: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1584: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1585: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1586: RAISE OKC_API.G_EXCEPTION_ERROR;
1587: END IF;
1588: --------------------------------------
1581: END IF;
1582: l_return_status := Validate_Record(l_def_tavv_rec);
1583: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1584: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1585: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1586: RAISE OKC_API.G_EXCEPTION_ERROR;
1587: END IF;
1588: --------------------------------------
1589: -- Move VIEW record to "Child" records
1582: l_return_status := Validate_Record(l_def_tavv_rec);
1583: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1584: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1585: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1586: RAISE OKC_API.G_EXCEPTION_ERROR;
1587: END IF;
1588: --------------------------------------
1589: -- Move VIEW record to "Child" records
1590: --------------------------------------
1600: x_msg_data,
1601: l_tve_rec,
1602: lx_tve_rec
1603: );
1604: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1605: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1606: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1607: RAISE OKC_API.G_EXCEPTION_ERROR;
1608: END IF;
1601: l_tve_rec,
1602: lx_tve_rec
1603: );
1604: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1605: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1606: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1607: RAISE OKC_API.G_EXCEPTION_ERROR;
1608: END IF;
1609: migrate(lx_tve_rec, l_def_tavv_rec);
1602: lx_tve_rec
1603: );
1604: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1605: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1606: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1607: RAISE OKC_API.G_EXCEPTION_ERROR;
1608: END IF;
1609: migrate(lx_tve_rec, l_def_tavv_rec);
1610: /* insert_row(
1603: );
1604: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1605: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1606: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1607: RAISE OKC_API.G_EXCEPTION_ERROR;
1608: END IF;
1609: migrate(lx_tve_rec, l_def_tavv_rec);
1610: /* insert_row(
1611: p_init_msg_list,
1614: x_msg_data,
1615: l_okc_timevalues_tl_rec,
1616: lx_okc_timevalues_tl_rec
1617: );
1618: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1619: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1620: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1621: RAISE OKC_API.G_EXCEPTION_ERROR;
1622: END IF;
1615: l_okc_timevalues_tl_rec,
1616: lx_okc_timevalues_tl_rec
1617: );
1618: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1619: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1620: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1621: RAISE OKC_API.G_EXCEPTION_ERROR;
1622: END IF;
1623: migrate(lx_okc_timevalues_tl_rec, l_def_tavv_rec);
1616: lx_okc_timevalues_tl_rec
1617: );
1618: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1619: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1620: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1621: RAISE OKC_API.G_EXCEPTION_ERROR;
1622: END IF;
1623: migrate(lx_okc_timevalues_tl_rec, l_def_tavv_rec);
1624: */
1617: );
1618: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1619: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1620: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1621: RAISE OKC_API.G_EXCEPTION_ERROR;
1622: END IF;
1623: migrate(lx_okc_timevalues_tl_rec, l_def_tavv_rec);
1624: */
1625: -- Set OUT values
1623: migrate(lx_okc_timevalues_tl_rec, l_def_tavv_rec);
1624: */
1625: -- Set OUT values
1626: x_tavv_rec := l_def_tavv_rec;
1627: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1628: EXCEPTION
1629: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1630: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1631: (
1625: -- Set OUT values
1626: x_tavv_rec := l_def_tavv_rec;
1627: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1628: EXCEPTION
1629: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1630: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1631: (
1632: l_api_name,
1633: G_PKG_NAME,
1626: x_tavv_rec := l_def_tavv_rec;
1627: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1628: EXCEPTION
1629: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1630: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1631: (
1632: l_api_name,
1633: G_PKG_NAME,
1634: 'OKC_API.G_RET_STS_ERROR',
1630: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1631: (
1632: l_api_name,
1633: G_PKG_NAME,
1634: 'OKC_API.G_RET_STS_ERROR',
1635: x_msg_count,
1636: x_msg_data,
1637: '_PVT'
1638: );
1635: x_msg_count,
1636: x_msg_data,
1637: '_PVT'
1638: );
1639: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1640: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1641: (
1642: l_api_name,
1643: G_PKG_NAME,
1636: x_msg_data,
1637: '_PVT'
1638: );
1639: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1640: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1641: (
1642: l_api_name,
1643: G_PKG_NAME,
1644: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1640: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1641: (
1642: l_api_name,
1643: G_PKG_NAME,
1644: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1645: x_msg_count,
1646: x_msg_data,
1647: '_PVT'
1648: );
1646: x_msg_data,
1647: '_PVT'
1648: );
1649: WHEN OTHERS THEN
1650: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1651: (
1652: l_api_name,
1653: G_PKG_NAME,
1654: 'OTHERS',
1670: x_tavv_tbl OUT NOCOPY tavv_tbl_type) IS
1671:
1672: l_api_version CONSTANT NUMBER := 1;
1673: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1674: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1675: i NUMBER := 0;
1676: BEGIN
1677: -- Make sure PL/SQL table has records in it before passing
1678: IF (p_tavv_tbl.COUNT > 0) THEN
1690: i := p_tavv_tbl.NEXT(i);
1691: END LOOP;
1692: END IF;
1693: EXCEPTION
1694: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1695: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1696: (
1697: l_api_name,
1698: G_PKG_NAME,
1691: END LOOP;
1692: END IF;
1693: EXCEPTION
1694: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1695: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1696: (
1697: l_api_name,
1698: G_PKG_NAME,
1699: 'OKC_API.G_RET_STS_ERROR',
1695: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1696: (
1697: l_api_name,
1698: G_PKG_NAME,
1699: 'OKC_API.G_RET_STS_ERROR',
1700: x_msg_count,
1701: x_msg_data,
1702: '_PVT'
1703: );
1700: x_msg_count,
1701: x_msg_data,
1702: '_PVT'
1703: );
1704: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1705: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1706: (
1707: l_api_name,
1708: G_PKG_NAME,
1701: x_msg_data,
1702: '_PVT'
1703: );
1704: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1705: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1706: (
1707: l_api_name,
1708: G_PKG_NAME,
1709: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1705: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1706: (
1707: l_api_name,
1708: G_PKG_NAME,
1709: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1710: x_msg_count,
1711: x_msg_data,
1712: '_PVT'
1713: );
1711: x_msg_data,
1712: '_PVT'
1713: );
1714: WHEN OTHERS THEN
1715: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1716: (
1717: l_api_name,
1718: G_PKG_NAME,
1719: 'OTHERS',
1750: FROM OKC_TIMEVALUES
1751: WHERE ID = p_tve_rec.id;
1752: l_api_version CONSTANT NUMBER := 1;
1753: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
1754: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1755: l_object_version_number OKC_TIMEVALUES.OBJECT_VERSION_NUMBER%TYPE;
1756: lc_object_version_number OKC_TIMEVALUES.OBJECT_VERSION_NUMBER%TYPE;
1757: l_row_notfound BOOLEAN := FALSE;
1758: lc_row_notfound BOOLEAN := FALSE;
1756: lc_object_version_number OKC_TIMEVALUES.OBJECT_VERSION_NUMBER%TYPE;
1757: l_row_notfound BOOLEAN := FALSE;
1758: lc_row_notfound BOOLEAN := FALSE;
1759: BEGIN
1760: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1761: p_init_msg_list,
1762: '_PVT',
1763: x_return_status);
1764: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1760: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1761: p_init_msg_list,
1762: '_PVT',
1763: x_return_status);
1764: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1765: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1766: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1767: RAISE OKC_API.G_EXCEPTION_ERROR;
1768: END IF;
1761: p_init_msg_list,
1762: '_PVT',
1763: x_return_status);
1764: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1765: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1766: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1767: RAISE OKC_API.G_EXCEPTION_ERROR;
1768: END IF;
1769: BEGIN
1762: '_PVT',
1763: x_return_status);
1764: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1765: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1766: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1767: RAISE OKC_API.G_EXCEPTION_ERROR;
1768: END IF;
1769: BEGIN
1770: OPEN lock_csr(p_tve_rec);
1763: x_return_status);
1764: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1765: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1766: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1767: RAISE OKC_API.G_EXCEPTION_ERROR;
1768: END IF;
1769: BEGIN
1770: OPEN lock_csr(p_tve_rec);
1771: FETCH lock_csr INTO l_object_version_number;
1775: WHEN E_Resource_Busy THEN
1776: IF (lock_csr%ISOPEN) THEN
1777: CLOSE lock_csr;
1778: END IF;
1779: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
1780: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
1781: END;
1782:
1783: IF ( l_row_notfound ) THEN
1786: lc_row_notfound := lchk_csr%NOTFOUND;
1787: CLOSE lchk_csr;
1788: END IF;
1789: IF (lc_row_notfound) THEN
1790: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1791: RAISE OKC_API.G_EXCEPTION_ERROR;
1792: ELSIF lc_object_version_number > p_tve_rec.object_version_number THEN
1793: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1794: RAISE OKC_API.G_EXCEPTION_ERROR;
1787: CLOSE lchk_csr;
1788: END IF;
1789: IF (lc_row_notfound) THEN
1790: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1791: RAISE OKC_API.G_EXCEPTION_ERROR;
1792: ELSIF lc_object_version_number > p_tve_rec.object_version_number THEN
1793: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1794: RAISE OKC_API.G_EXCEPTION_ERROR;
1795: ELSIF lc_object_version_number <> p_tve_rec.object_version_number THEN
1789: IF (lc_row_notfound) THEN
1790: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1791: RAISE OKC_API.G_EXCEPTION_ERROR;
1792: ELSIF lc_object_version_number > p_tve_rec.object_version_number THEN
1793: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1794: RAISE OKC_API.G_EXCEPTION_ERROR;
1795: ELSIF lc_object_version_number <> p_tve_rec.object_version_number THEN
1796: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1797: RAISE OKC_API.G_EXCEPTION_ERROR;
1790: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1791: RAISE OKC_API.G_EXCEPTION_ERROR;
1792: ELSIF lc_object_version_number > p_tve_rec.object_version_number THEN
1793: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1794: RAISE OKC_API.G_EXCEPTION_ERROR;
1795: ELSIF lc_object_version_number <> p_tve_rec.object_version_number THEN
1796: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1797: RAISE OKC_API.G_EXCEPTION_ERROR;
1798: ELSIF lc_object_version_number = -1 THEN
1792: ELSIF lc_object_version_number > p_tve_rec.object_version_number THEN
1793: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1794: RAISE OKC_API.G_EXCEPTION_ERROR;
1795: ELSIF lc_object_version_number <> p_tve_rec.object_version_number THEN
1796: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1797: RAISE OKC_API.G_EXCEPTION_ERROR;
1798: ELSIF lc_object_version_number = -1 THEN
1799: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1800: RAISE OKC_API.G_EXCEPTION_ERROR;
1793: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1794: RAISE OKC_API.G_EXCEPTION_ERROR;
1795: ELSIF lc_object_version_number <> p_tve_rec.object_version_number THEN
1796: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1797: RAISE OKC_API.G_EXCEPTION_ERROR;
1798: ELSIF lc_object_version_number = -1 THEN
1799: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1800: RAISE OKC_API.G_EXCEPTION_ERROR;
1801: END IF;
1795: ELSIF lc_object_version_number <> p_tve_rec.object_version_number THEN
1796: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1797: RAISE OKC_API.G_EXCEPTION_ERROR;
1798: ELSIF lc_object_version_number = -1 THEN
1799: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1800: RAISE OKC_API.G_EXCEPTION_ERROR;
1801: END IF;
1802: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1803: EXCEPTION
1796: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1797: RAISE OKC_API.G_EXCEPTION_ERROR;
1798: ELSIF lc_object_version_number = -1 THEN
1799: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1800: RAISE OKC_API.G_EXCEPTION_ERROR;
1801: END IF;
1802: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1803: EXCEPTION
1804: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1798: ELSIF lc_object_version_number = -1 THEN
1799: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1800: RAISE OKC_API.G_EXCEPTION_ERROR;
1801: END IF;
1802: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1803: EXCEPTION
1804: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1805: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1806: (
1800: RAISE OKC_API.G_EXCEPTION_ERROR;
1801: END IF;
1802: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1803: EXCEPTION
1804: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1805: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1806: (
1807: l_api_name,
1808: G_PKG_NAME,
1801: END IF;
1802: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1803: EXCEPTION
1804: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1805: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1806: (
1807: l_api_name,
1808: G_PKG_NAME,
1809: 'OKC_API.G_RET_STS_ERROR',
1805: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1806: (
1807: l_api_name,
1808: G_PKG_NAME,
1809: 'OKC_API.G_RET_STS_ERROR',
1810: x_msg_count,
1811: x_msg_data,
1812: '_PVT'
1813: );
1810: x_msg_count,
1811: x_msg_data,
1812: '_PVT'
1813: );
1814: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1815: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1816: (
1817: l_api_name,
1818: G_PKG_NAME,
1811: x_msg_data,
1812: '_PVT'
1813: );
1814: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1815: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1816: (
1817: l_api_name,
1818: G_PKG_NAME,
1819: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1815: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1816: (
1817: l_api_name,
1818: G_PKG_NAME,
1819: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1820: x_msg_count,
1821: x_msg_data,
1822: '_PVT'
1823: );
1821: x_msg_data,
1822: '_PVT'
1823: );
1824: WHEN OTHERS THEN
1825: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1826: (
1827: l_api_name,
1828: G_PKG_NAME,
1829: 'OTHERS',
1851: FOR UPDATE NOWAIT;
1852:
1853: l_api_version CONSTANT NUMBER := 1;
1854: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
1855: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1856: l_lock_var lock_csr%ROWTYPE;
1857: l_row_notfound BOOLEAN := FALSE;
1858: lc_row_notfound BOOLEAN := FALSE;
1859: BEGIN
1856: l_lock_var lock_csr%ROWTYPE;
1857: l_row_notfound BOOLEAN := FALSE;
1858: lc_row_notfound BOOLEAN := FALSE;
1859: BEGIN
1860: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1861: p_init_msg_list,
1862: '_PVT',
1863: x_return_status);
1864: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1860: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1861: p_init_msg_list,
1862: '_PVT',
1863: x_return_status);
1864: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1865: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1866: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1867: RAISE OKC_API.G_EXCEPTION_ERROR;
1868: END IF;
1861: p_init_msg_list,
1862: '_PVT',
1863: x_return_status);
1864: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1865: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1866: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1867: RAISE OKC_API.G_EXCEPTION_ERROR;
1868: END IF;
1869: BEGIN
1862: '_PVT',
1863: x_return_status);
1864: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1865: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1866: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1867: RAISE OKC_API.G_EXCEPTION_ERROR;
1868: END IF;
1869: BEGIN
1870: OPEN lock_csr(p_okc_timevalues_tl_rec);
1863: x_return_status);
1864: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1865: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1866: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1867: RAISE OKC_API.G_EXCEPTION_ERROR;
1868: END IF;
1869: BEGIN
1870: OPEN lock_csr(p_okc_timevalues_tl_rec);
1871: FETCH lock_csr INTO l_lock_var;
1875: WHEN E_Resource_Busy THEN
1876: IF (lock_csr%ISOPEN) THEN
1877: CLOSE lock_csr;
1878: END IF;
1879: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
1880: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
1881: END;
1882:
1883: IF ( l_row_notfound ) THEN
1880: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
1881: END;
1882:
1883: IF ( l_row_notfound ) THEN
1884: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1885: RAISE OKC_API.G_EXCEPTION_ERROR;
1886: END IF;
1887: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1888: EXCEPTION
1881: END;
1882:
1883: IF ( l_row_notfound ) THEN
1884: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1885: RAISE OKC_API.G_EXCEPTION_ERROR;
1886: END IF;
1887: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1888: EXCEPTION
1889: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1883: IF ( l_row_notfound ) THEN
1884: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1885: RAISE OKC_API.G_EXCEPTION_ERROR;
1886: END IF;
1887: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1888: EXCEPTION
1889: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1890: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1891: (
1885: RAISE OKC_API.G_EXCEPTION_ERROR;
1886: END IF;
1887: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1888: EXCEPTION
1889: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1890: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1891: (
1892: l_api_name,
1893: G_PKG_NAME,
1886: END IF;
1887: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1888: EXCEPTION
1889: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1890: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1891: (
1892: l_api_name,
1893: G_PKG_NAME,
1894: 'OKC_API.G_RET_STS_ERROR',
1890: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1891: (
1892: l_api_name,
1893: G_PKG_NAME,
1894: 'OKC_API.G_RET_STS_ERROR',
1895: x_msg_count,
1896: x_msg_data,
1897: '_PVT'
1898: );
1895: x_msg_count,
1896: x_msg_data,
1897: '_PVT'
1898: );
1899: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1900: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1901: (
1902: l_api_name,
1903: G_PKG_NAME,
1896: x_msg_data,
1897: '_PVT'
1898: );
1899: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1900: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1901: (
1902: l_api_name,
1903: G_PKG_NAME,
1904: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1900: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1901: (
1902: l_api_name,
1903: G_PKG_NAME,
1904: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1905: x_msg_count,
1906: x_msg_data,
1907: '_PVT'
1908: );
1906: x_msg_data,
1907: '_PVT'
1908: );
1909: WHEN OTHERS THEN
1910: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1911: (
1912: l_api_name,
1913: G_PKG_NAME,
1914: 'OTHERS',
1930: p_tavv_rec IN tavv_rec_type) IS
1931:
1932: l_api_version CONSTANT NUMBER := 1;
1933: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1934: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1935: l_tve_rec tve_rec_type;
1936: --Bug 3122962 l_okc_timevalues_tl_rec okc_timevalues_tl_rec_type;
1937: BEGIN
1938: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1934: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1935: l_tve_rec tve_rec_type;
1936: --Bug 3122962 l_okc_timevalues_tl_rec okc_timevalues_tl_rec_type;
1937: BEGIN
1938: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1939: G_PKG_NAME,
1940: p_init_msg_list,
1941: l_api_version,
1942: p_api_version,
1941: l_api_version,
1942: p_api_version,
1943: '_PVT',
1944: x_return_status);
1945: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1946: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1947: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1948: RAISE OKC_API.G_EXCEPTION_ERROR;
1949: END IF;
1942: p_api_version,
1943: '_PVT',
1944: x_return_status);
1945: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1946: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1947: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1948: RAISE OKC_API.G_EXCEPTION_ERROR;
1949: END IF;
1950: --------------------------------------
1943: '_PVT',
1944: x_return_status);
1945: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1946: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1947: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1948: RAISE OKC_API.G_EXCEPTION_ERROR;
1949: END IF;
1950: --------------------------------------
1951: -- Move VIEW record to "Child" records
1944: x_return_status);
1945: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1946: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1947: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1948: RAISE OKC_API.G_EXCEPTION_ERROR;
1949: END IF;
1950: --------------------------------------
1951: -- Move VIEW record to "Child" records
1952: --------------------------------------
1961: x_msg_count,
1962: x_msg_data,
1963: l_tve_rec
1964: );
1965: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1966: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1967: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1968: RAISE OKC_API.G_EXCEPTION_ERROR;
1969: END IF;
1962: x_msg_data,
1963: l_tve_rec
1964: );
1965: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1966: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1967: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1968: RAISE OKC_API.G_EXCEPTION_ERROR;
1969: END IF;
1970: /* lock_row(
1963: l_tve_rec
1964: );
1965: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1966: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1967: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1968: RAISE OKC_API.G_EXCEPTION_ERROR;
1969: END IF;
1970: /* lock_row(
1971: p_init_msg_list,
1964: );
1965: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1966: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1967: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1968: RAISE OKC_API.G_EXCEPTION_ERROR;
1969: END IF;
1970: /* lock_row(
1971: p_init_msg_list,
1972: x_return_status,
1973: x_msg_count,
1974: x_msg_data,
1975: l_okc_timevalues_tl_rec
1976: );
1977: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1978: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1979: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1980: RAISE OKC_API.G_EXCEPTION_ERROR;
1981: END IF;
1974: x_msg_data,
1975: l_okc_timevalues_tl_rec
1976: );
1977: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1978: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1979: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1980: RAISE OKC_API.G_EXCEPTION_ERROR;
1981: END IF;
1982: */
1975: l_okc_timevalues_tl_rec
1976: );
1977: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1978: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1979: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1980: RAISE OKC_API.G_EXCEPTION_ERROR;
1981: END IF;
1982: */
1983: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1976: );
1977: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1978: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1979: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1980: RAISE OKC_API.G_EXCEPTION_ERROR;
1981: END IF;
1982: */
1983: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1984: EXCEPTION
1979: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1980: RAISE OKC_API.G_EXCEPTION_ERROR;
1981: END IF;
1982: */
1983: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1984: EXCEPTION
1985: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1986: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1987: (
1981: END IF;
1982: */
1983: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1984: EXCEPTION
1985: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1986: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1987: (
1988: l_api_name,
1989: G_PKG_NAME,
1982: */
1983: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1984: EXCEPTION
1985: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1986: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1987: (
1988: l_api_name,
1989: G_PKG_NAME,
1990: 'OKC_API.G_RET_STS_ERROR',
1986: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1987: (
1988: l_api_name,
1989: G_PKG_NAME,
1990: 'OKC_API.G_RET_STS_ERROR',
1991: x_msg_count,
1992: x_msg_data,
1993: '_PVT'
1994: );
1991: x_msg_count,
1992: x_msg_data,
1993: '_PVT'
1994: );
1995: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1996: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1997: (
1998: l_api_name,
1999: G_PKG_NAME,
1992: x_msg_data,
1993: '_PVT'
1994: );
1995: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1996: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1997: (
1998: l_api_name,
1999: G_PKG_NAME,
2000: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1996: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1997: (
1998: l_api_name,
1999: G_PKG_NAME,
2000: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2001: x_msg_count,
2002: x_msg_data,
2003: '_PVT'
2004: );
2002: x_msg_data,
2003: '_PVT'
2004: );
2005: WHEN OTHERS THEN
2006: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2007: (
2008: l_api_name,
2009: G_PKG_NAME,
2010: 'OTHERS',
2025: p_tavv_tbl IN tavv_tbl_type) IS
2026:
2027: l_api_version CONSTANT NUMBER := 1;
2028: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2029: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2030: i NUMBER := 0;
2031: BEGIN
2032: -- Make sure PL/SQL table has records in it before passing
2033: IF (p_tavv_tbl.COUNT > 0) THEN
2044: i := p_tavv_tbl.NEXT(i);
2045: END LOOP;
2046: END IF;
2047: EXCEPTION
2048: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2049: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2050: (
2051: l_api_name,
2052: G_PKG_NAME,
2045: END LOOP;
2046: END IF;
2047: EXCEPTION
2048: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2049: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2050: (
2051: l_api_name,
2052: G_PKG_NAME,
2053: 'OKC_API.G_RET_STS_ERROR',
2049: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2050: (
2051: l_api_name,
2052: G_PKG_NAME,
2053: 'OKC_API.G_RET_STS_ERROR',
2054: x_msg_count,
2055: x_msg_data,
2056: '_PVT'
2057: );
2054: x_msg_count,
2055: x_msg_data,
2056: '_PVT'
2057: );
2058: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2059: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2060: (
2061: l_api_name,
2062: G_PKG_NAME,
2055: x_msg_data,
2056: '_PVT'
2057: );
2058: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2059: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2060: (
2061: l_api_name,
2062: G_PKG_NAME,
2063: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2059: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2060: (
2061: l_api_name,
2062: G_PKG_NAME,
2063: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2064: x_msg_count,
2065: x_msg_data,
2066: '_PVT'
2067: );
2065: x_msg_data,
2066: '_PVT'
2067: );
2068: WHEN OTHERS THEN
2069: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2070: (
2071: l_api_name,
2072: G_PKG_NAME,
2073: 'OTHERS',
2092: x_tve_rec OUT NOCOPY tve_rec_type) IS
2093:
2094: l_api_version CONSTANT NUMBER := 1;
2095: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
2096: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2097: l_tve_rec tve_rec_type := p_tve_rec;
2098: l_def_tve_rec tve_rec_type;
2099: l_row_notfound BOOLEAN := TRUE;
2100: ----------------------------------
2105: x_tve_rec OUT NOCOPY tve_rec_type
2106: ) RETURN VARCHAR2 IS
2107: l_tve_rec tve_rec_type;
2108: l_row_notfound BOOLEAN := TRUE;
2109: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2110: BEGIN
2111: x_tve_rec := p_tve_rec;
2112: -- Get current database values
2113: l_tve_rec := get_rec(p_tve_rec, l_row_notfound);
2111: x_tve_rec := p_tve_rec;
2112: -- Get current database values
2113: l_tve_rec := get_rec(p_tve_rec, l_row_notfound);
2114: IF (l_row_notfound) THEN
2115: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2116: END IF;
2117: IF (x_tve_rec.id = OKC_API.G_MISS_NUM)
2118: THEN
2119: x_tve_rec.id := l_tve_rec.id;
2113: l_tve_rec := get_rec(p_tve_rec, l_row_notfound);
2114: IF (l_row_notfound) THEN
2115: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2116: END IF;
2117: IF (x_tve_rec.id = OKC_API.G_MISS_NUM)
2118: THEN
2119: x_tve_rec.id := l_tve_rec.id;
2120: END IF;
2121: IF (x_tve_rec.spn_id = OKC_API.G_MISS_NUM)
2117: IF (x_tve_rec.id = OKC_API.G_MISS_NUM)
2118: THEN
2119: x_tve_rec.id := l_tve_rec.id;
2120: END IF;
2121: IF (x_tve_rec.spn_id = OKC_API.G_MISS_NUM)
2122: THEN
2123: x_tve_rec.spn_id := l_tve_rec.spn_id;
2124: END IF;
2125: IF (x_tve_rec.tve_id_offset = OKC_API.G_MISS_NUM)
2121: IF (x_tve_rec.spn_id = OKC_API.G_MISS_NUM)
2122: THEN
2123: x_tve_rec.spn_id := l_tve_rec.spn_id;
2124: END IF;
2125: IF (x_tve_rec.tve_id_offset = OKC_API.G_MISS_NUM)
2126: THEN
2127: x_tve_rec.tve_id_offset := l_tve_rec.tve_id_offset;
2128: END IF;
2129: IF (x_tve_rec.uom_code = OKC_API.G_MISS_CHAR)
2125: IF (x_tve_rec.tve_id_offset = OKC_API.G_MISS_NUM)
2126: THEN
2127: x_tve_rec.tve_id_offset := l_tve_rec.tve_id_offset;
2128: END IF;
2129: IF (x_tve_rec.uom_code = OKC_API.G_MISS_CHAR)
2130: THEN
2131: x_tve_rec.uom_code := l_tve_rec.uom_code;
2132: END IF;
2133: IF (x_tve_rec.tve_id_generated_by = OKC_API.G_MISS_NUM)
2129: IF (x_tve_rec.uom_code = OKC_API.G_MISS_CHAR)
2130: THEN
2131: x_tve_rec.uom_code := l_tve_rec.uom_code;
2132: END IF;
2133: IF (x_tve_rec.tve_id_generated_by = OKC_API.G_MISS_NUM)
2134: THEN
2135: x_tve_rec.tve_id_generated_by := l_tve_rec.tve_id_generated_by;
2136: END IF;
2137: IF (x_tve_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
2133: IF (x_tve_rec.tve_id_generated_by = OKC_API.G_MISS_NUM)
2134: THEN
2135: x_tve_rec.tve_id_generated_by := l_tve_rec.tve_id_generated_by;
2136: END IF;
2137: IF (x_tve_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
2138: THEN
2139: x_tve_rec.dnz_chr_id := l_tve_rec.dnz_chr_id;
2140: END IF;
2141: IF (x_tve_rec.tze_id = OKC_API.G_MISS_NUM)
2137: IF (x_tve_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
2138: THEN
2139: x_tve_rec.dnz_chr_id := l_tve_rec.dnz_chr_id;
2140: END IF;
2141: IF (x_tve_rec.tze_id = OKC_API.G_MISS_NUM)
2142: THEN
2143: x_tve_rec.tze_id := l_tve_rec.tze_id;
2144: END IF;
2145: IF (x_tve_rec.tve_id_limited = OKC_API.G_MISS_NUM)
2141: IF (x_tve_rec.tze_id = OKC_API.G_MISS_NUM)
2142: THEN
2143: x_tve_rec.tze_id := l_tve_rec.tze_id;
2144: END IF;
2145: IF (x_tve_rec.tve_id_limited = OKC_API.G_MISS_NUM)
2146: THEN
2147: x_tve_rec.tve_id_limited := l_tve_rec.tve_id_limited;
2148: END IF;
2149: IF (x_tve_rec.tve_id_started = OKC_API.G_MISS_NUM)
2145: IF (x_tve_rec.tve_id_limited = OKC_API.G_MISS_NUM)
2146: THEN
2147: x_tve_rec.tve_id_limited := l_tve_rec.tve_id_limited;
2148: END IF;
2149: IF (x_tve_rec.tve_id_started = OKC_API.G_MISS_NUM)
2150: THEN
2151: x_tve_rec.tve_id_started := l_tve_rec.tve_id_started;
2152: END IF;
2153: IF (x_tve_rec.tve_id_ended = OKC_API.G_MISS_NUM)
2149: IF (x_tve_rec.tve_id_started = OKC_API.G_MISS_NUM)
2150: THEN
2151: x_tve_rec.tve_id_started := l_tve_rec.tve_id_started;
2152: END IF;
2153: IF (x_tve_rec.tve_id_ended = OKC_API.G_MISS_NUM)
2154: THEN
2155: x_tve_rec.tve_id_ended := l_tve_rec.tve_id_ended;
2156: END IF;
2157: IF (x_tve_rec.cnh_id = OKC_API.G_MISS_NUM)
2153: IF (x_tve_rec.tve_id_ended = OKC_API.G_MISS_NUM)
2154: THEN
2155: x_tve_rec.tve_id_ended := l_tve_rec.tve_id_ended;
2156: END IF;
2157: IF (x_tve_rec.cnh_id = OKC_API.G_MISS_NUM)
2158: THEN
2159: x_tve_rec.cnh_id := l_tve_rec.cnh_id;
2160: END IF;
2161: IF (x_tve_rec.tve_type = OKC_API.G_MISS_CHAR)
2157: IF (x_tve_rec.cnh_id = OKC_API.G_MISS_NUM)
2158: THEN
2159: x_tve_rec.cnh_id := l_tve_rec.cnh_id;
2160: END IF;
2161: IF (x_tve_rec.tve_type = OKC_API.G_MISS_CHAR)
2162: THEN
2163: x_tve_rec.tve_type := l_tve_rec.tve_type;
2164: END IF;
2165: IF (x_tve_rec.object_version_number = OKC_API.G_MISS_NUM)
2161: IF (x_tve_rec.tve_type = OKC_API.G_MISS_CHAR)
2162: THEN
2163: x_tve_rec.tve_type := l_tve_rec.tve_type;
2164: END IF;
2165: IF (x_tve_rec.object_version_number = OKC_API.G_MISS_NUM)
2166: THEN
2167: x_tve_rec.object_version_number := l_tve_rec.object_version_number;
2168: END IF;
2169: IF (x_tve_rec.created_by = OKC_API.G_MISS_NUM)
2165: IF (x_tve_rec.object_version_number = OKC_API.G_MISS_NUM)
2166: THEN
2167: x_tve_rec.object_version_number := l_tve_rec.object_version_number;
2168: END IF;
2169: IF (x_tve_rec.created_by = OKC_API.G_MISS_NUM)
2170: THEN
2171: x_tve_rec.created_by := l_tve_rec.created_by;
2172: END IF;
2173: IF (x_tve_rec.creation_date = OKC_API.G_MISS_DATE)
2169: IF (x_tve_rec.created_by = OKC_API.G_MISS_NUM)
2170: THEN
2171: x_tve_rec.created_by := l_tve_rec.created_by;
2172: END IF;
2173: IF (x_tve_rec.creation_date = OKC_API.G_MISS_DATE)
2174: THEN
2175: x_tve_rec.creation_date := l_tve_rec.creation_date;
2176: END IF;
2177: IF (x_tve_rec.last_updated_by = OKC_API.G_MISS_NUM)
2173: IF (x_tve_rec.creation_date = OKC_API.G_MISS_DATE)
2174: THEN
2175: x_tve_rec.creation_date := l_tve_rec.creation_date;
2176: END IF;
2177: IF (x_tve_rec.last_updated_by = OKC_API.G_MISS_NUM)
2178: THEN
2179: x_tve_rec.last_updated_by := l_tve_rec.last_updated_by;
2180: END IF;
2181: IF (x_tve_rec.last_update_date = OKC_API.G_MISS_DATE)
2177: IF (x_tve_rec.last_updated_by = OKC_API.G_MISS_NUM)
2178: THEN
2179: x_tve_rec.last_updated_by := l_tve_rec.last_updated_by;
2180: END IF;
2181: IF (x_tve_rec.last_update_date = OKC_API.G_MISS_DATE)
2182: THEN
2183: x_tve_rec.last_update_date := l_tve_rec.last_update_date;
2184: END IF;
2185: IF (x_tve_rec.duration = OKC_API.G_MISS_NUM)
2181: IF (x_tve_rec.last_update_date = OKC_API.G_MISS_DATE)
2182: THEN
2183: x_tve_rec.last_update_date := l_tve_rec.last_update_date;
2184: END IF;
2185: IF (x_tve_rec.duration = OKC_API.G_MISS_NUM)
2186: THEN
2187: x_tve_rec.duration := l_tve_rec.duration;
2188: END IF;
2189: IF (x_tve_rec.operator = OKC_API.G_MISS_CHAR)
2185: IF (x_tve_rec.duration = OKC_API.G_MISS_NUM)
2186: THEN
2187: x_tve_rec.duration := l_tve_rec.duration;
2188: END IF;
2189: IF (x_tve_rec.operator = OKC_API.G_MISS_CHAR)
2190: THEN
2191: x_tve_rec.operator := l_tve_rec.operator;
2192: END IF;
2193: IF (x_tve_rec.before_after = OKC_API.G_MISS_CHAR)
2189: IF (x_tve_rec.operator = OKC_API.G_MISS_CHAR)
2190: THEN
2191: x_tve_rec.operator := l_tve_rec.operator;
2192: END IF;
2193: IF (x_tve_rec.before_after = OKC_API.G_MISS_CHAR)
2194: THEN
2195: x_tve_rec.before_after := l_tve_rec.before_after;
2196: END IF;
2197: IF (x_tve_rec.datetime = OKC_API.G_MISS_DATE)
2193: IF (x_tve_rec.before_after = OKC_API.G_MISS_CHAR)
2194: THEN
2195: x_tve_rec.before_after := l_tve_rec.before_after;
2196: END IF;
2197: IF (x_tve_rec.datetime = OKC_API.G_MISS_DATE)
2198: THEN
2199: x_tve_rec.datetime := l_tve_rec.datetime;
2200: END IF;
2201: IF (x_tve_rec.month = OKC_API.G_MISS_NUM)
2197: IF (x_tve_rec.datetime = OKC_API.G_MISS_DATE)
2198: THEN
2199: x_tve_rec.datetime := l_tve_rec.datetime;
2200: END IF;
2201: IF (x_tve_rec.month = OKC_API.G_MISS_NUM)
2202: THEN
2203: x_tve_rec.month := l_tve_rec.month;
2204: END IF;
2205: IF (x_tve_rec.day = OKC_API.G_MISS_NUM)
2201: IF (x_tve_rec.month = OKC_API.G_MISS_NUM)
2202: THEN
2203: x_tve_rec.month := l_tve_rec.month;
2204: END IF;
2205: IF (x_tve_rec.day = OKC_API.G_MISS_NUM)
2206: THEN
2207: x_tve_rec.day := l_tve_rec.day;
2208: END IF;
2209: IF (x_tve_rec.hour = OKC_API.G_MISS_NUM)
2205: IF (x_tve_rec.day = OKC_API.G_MISS_NUM)
2206: THEN
2207: x_tve_rec.day := l_tve_rec.day;
2208: END IF;
2209: IF (x_tve_rec.hour = OKC_API.G_MISS_NUM)
2210: THEN
2211: x_tve_rec.hour := l_tve_rec.hour;
2212: END IF;
2213: IF (x_tve_rec.minute = OKC_API.G_MISS_NUM)
2209: IF (x_tve_rec.hour = OKC_API.G_MISS_NUM)
2210: THEN
2211: x_tve_rec.hour := l_tve_rec.hour;
2212: END IF;
2213: IF (x_tve_rec.minute = OKC_API.G_MISS_NUM)
2214: THEN
2215: x_tve_rec.minute := l_tve_rec.minute;
2216: END IF;
2217: IF (x_tve_rec.second = OKC_API.G_MISS_NUM)
2213: IF (x_tve_rec.minute = OKC_API.G_MISS_NUM)
2214: THEN
2215: x_tve_rec.minute := l_tve_rec.minute;
2216: END IF;
2217: IF (x_tve_rec.second = OKC_API.G_MISS_NUM)
2218: THEN
2219: x_tve_rec.second := l_tve_rec.second;
2220: END IF;
2221: IF (x_tve_rec.day_of_week = OKC_API.G_MISS_CHAR)
2217: IF (x_tve_rec.second = OKC_API.G_MISS_NUM)
2218: THEN
2219: x_tve_rec.second := l_tve_rec.second;
2220: END IF;
2221: IF (x_tve_rec.day_of_week = OKC_API.G_MISS_CHAR)
2222: THEN
2223: x_tve_rec.day_of_week := l_tve_rec.day_of_week;
2224: END IF;
2225: IF (x_tve_rec.interval_yn = OKC_API.G_MISS_CHAR)
2221: IF (x_tve_rec.day_of_week = OKC_API.G_MISS_CHAR)
2222: THEN
2223: x_tve_rec.day_of_week := l_tve_rec.day_of_week;
2224: END IF;
2225: IF (x_tve_rec.interval_yn = OKC_API.G_MISS_CHAR)
2226: THEN
2227: x_tve_rec.interval_yn := l_tve_rec.interval_yn;
2228: END IF;
2229: IF (x_tve_rec.nth = OKC_API.G_MISS_NUM)
2225: IF (x_tve_rec.interval_yn = OKC_API.G_MISS_CHAR)
2226: THEN
2227: x_tve_rec.interval_yn := l_tve_rec.interval_yn;
2228: END IF;
2229: IF (x_tve_rec.nth = OKC_API.G_MISS_NUM)
2230: THEN
2231: x_tve_rec.nth := l_tve_rec.nth;
2232: END IF;
2233: IF (x_tve_rec.last_update_login = OKC_API.G_MISS_NUM)
2229: IF (x_tve_rec.nth = OKC_API.G_MISS_NUM)
2230: THEN
2231: x_tve_rec.nth := l_tve_rec.nth;
2232: END IF;
2233: IF (x_tve_rec.last_update_login = OKC_API.G_MISS_NUM)
2234: THEN
2235: x_tve_rec.last_update_login := l_tve_rec.last_update_login;
2236: END IF;
2237: IF (x_tve_rec.attribute_category = OKC_API.G_MISS_CHAR)
2233: IF (x_tve_rec.last_update_login = OKC_API.G_MISS_NUM)
2234: THEN
2235: x_tve_rec.last_update_login := l_tve_rec.last_update_login;
2236: END IF;
2237: IF (x_tve_rec.attribute_category = OKC_API.G_MISS_CHAR)
2238: THEN
2239: x_tve_rec.attribute_category := l_tve_rec.attribute_category;
2240: END IF;
2241: IF (x_tve_rec.attribute1 = OKC_API.G_MISS_CHAR)
2237: IF (x_tve_rec.attribute_category = OKC_API.G_MISS_CHAR)
2238: THEN
2239: x_tve_rec.attribute_category := l_tve_rec.attribute_category;
2240: END IF;
2241: IF (x_tve_rec.attribute1 = OKC_API.G_MISS_CHAR)
2242: THEN
2243: x_tve_rec.attribute1 := l_tve_rec.attribute1;
2244: END IF;
2245: IF (x_tve_rec.attribute2 = OKC_API.G_MISS_CHAR)
2241: IF (x_tve_rec.attribute1 = OKC_API.G_MISS_CHAR)
2242: THEN
2243: x_tve_rec.attribute1 := l_tve_rec.attribute1;
2244: END IF;
2245: IF (x_tve_rec.attribute2 = OKC_API.G_MISS_CHAR)
2246: THEN
2247: x_tve_rec.attribute2 := l_tve_rec.attribute2;
2248: END IF;
2249: IF (x_tve_rec.attribute3 = OKC_API.G_MISS_CHAR)
2245: IF (x_tve_rec.attribute2 = OKC_API.G_MISS_CHAR)
2246: THEN
2247: x_tve_rec.attribute2 := l_tve_rec.attribute2;
2248: END IF;
2249: IF (x_tve_rec.attribute3 = OKC_API.G_MISS_CHAR)
2250: THEN
2251: x_tve_rec.attribute3 := l_tve_rec.attribute3;
2252: END IF;
2253: IF (x_tve_rec.attribute4 = OKC_API.G_MISS_CHAR)
2249: IF (x_tve_rec.attribute3 = OKC_API.G_MISS_CHAR)
2250: THEN
2251: x_tve_rec.attribute3 := l_tve_rec.attribute3;
2252: END IF;
2253: IF (x_tve_rec.attribute4 = OKC_API.G_MISS_CHAR)
2254: THEN
2255: x_tve_rec.attribute4 := l_tve_rec.attribute4;
2256: END IF;
2257: IF (x_tve_rec.attribute5 = OKC_API.G_MISS_CHAR)
2253: IF (x_tve_rec.attribute4 = OKC_API.G_MISS_CHAR)
2254: THEN
2255: x_tve_rec.attribute4 := l_tve_rec.attribute4;
2256: END IF;
2257: IF (x_tve_rec.attribute5 = OKC_API.G_MISS_CHAR)
2258: THEN
2259: x_tve_rec.attribute5 := l_tve_rec.attribute5;
2260: END IF;
2261: IF (x_tve_rec.attribute6 = OKC_API.G_MISS_CHAR)
2257: IF (x_tve_rec.attribute5 = OKC_API.G_MISS_CHAR)
2258: THEN
2259: x_tve_rec.attribute5 := l_tve_rec.attribute5;
2260: END IF;
2261: IF (x_tve_rec.attribute6 = OKC_API.G_MISS_CHAR)
2262: THEN
2263: x_tve_rec.attribute6 := l_tve_rec.attribute6;
2264: END IF;
2265: IF (x_tve_rec.attribute7 = OKC_API.G_MISS_CHAR)
2261: IF (x_tve_rec.attribute6 = OKC_API.G_MISS_CHAR)
2262: THEN
2263: x_tve_rec.attribute6 := l_tve_rec.attribute6;
2264: END IF;
2265: IF (x_tve_rec.attribute7 = OKC_API.G_MISS_CHAR)
2266: THEN
2267: x_tve_rec.attribute7 := l_tve_rec.attribute7;
2268: END IF;
2269: IF (x_tve_rec.attribute8 = OKC_API.G_MISS_CHAR)
2265: IF (x_tve_rec.attribute7 = OKC_API.G_MISS_CHAR)
2266: THEN
2267: x_tve_rec.attribute7 := l_tve_rec.attribute7;
2268: END IF;
2269: IF (x_tve_rec.attribute8 = OKC_API.G_MISS_CHAR)
2270: THEN
2271: x_tve_rec.attribute8 := l_tve_rec.attribute8;
2272: END IF;
2273: IF (x_tve_rec.attribute9 = OKC_API.G_MISS_CHAR)
2269: IF (x_tve_rec.attribute8 = OKC_API.G_MISS_CHAR)
2270: THEN
2271: x_tve_rec.attribute8 := l_tve_rec.attribute8;
2272: END IF;
2273: IF (x_tve_rec.attribute9 = OKC_API.G_MISS_CHAR)
2274: THEN
2275: x_tve_rec.attribute9 := l_tve_rec.attribute9;
2276: END IF;
2277: IF (x_tve_rec.attribute10 = OKC_API.G_MISS_CHAR)
2273: IF (x_tve_rec.attribute9 = OKC_API.G_MISS_CHAR)
2274: THEN
2275: x_tve_rec.attribute9 := l_tve_rec.attribute9;
2276: END IF;
2277: IF (x_tve_rec.attribute10 = OKC_API.G_MISS_CHAR)
2278: THEN
2279: x_tve_rec.attribute10 := l_tve_rec.attribute10;
2280: END IF;
2281: IF (x_tve_rec.attribute11 = OKC_API.G_MISS_CHAR)
2277: IF (x_tve_rec.attribute10 = OKC_API.G_MISS_CHAR)
2278: THEN
2279: x_tve_rec.attribute10 := l_tve_rec.attribute10;
2280: END IF;
2281: IF (x_tve_rec.attribute11 = OKC_API.G_MISS_CHAR)
2282: THEN
2283: x_tve_rec.attribute11 := l_tve_rec.attribute11;
2284: END IF;
2285: IF (x_tve_rec.attribute12 = OKC_API.G_MISS_CHAR)
2281: IF (x_tve_rec.attribute11 = OKC_API.G_MISS_CHAR)
2282: THEN
2283: x_tve_rec.attribute11 := l_tve_rec.attribute11;
2284: END IF;
2285: IF (x_tve_rec.attribute12 = OKC_API.G_MISS_CHAR)
2286: THEN
2287: x_tve_rec.attribute12 := l_tve_rec.attribute12;
2288: END IF;
2289: IF (x_tve_rec.attribute13 = OKC_API.G_MISS_CHAR)
2285: IF (x_tve_rec.attribute12 = OKC_API.G_MISS_CHAR)
2286: THEN
2287: x_tve_rec.attribute12 := l_tve_rec.attribute12;
2288: END IF;
2289: IF (x_tve_rec.attribute13 = OKC_API.G_MISS_CHAR)
2290: THEN
2291: x_tve_rec.attribute13 := l_tve_rec.attribute13;
2292: END IF;
2293: IF (x_tve_rec.attribute14 = OKC_API.G_MISS_CHAR)
2289: IF (x_tve_rec.attribute13 = OKC_API.G_MISS_CHAR)
2290: THEN
2291: x_tve_rec.attribute13 := l_tve_rec.attribute13;
2292: END IF;
2293: IF (x_tve_rec.attribute14 = OKC_API.G_MISS_CHAR)
2294: THEN
2295: x_tve_rec.attribute14 := l_tve_rec.attribute14;
2296: END IF;
2297: IF (x_tve_rec.attribute15 = OKC_API.G_MISS_CHAR)
2293: IF (x_tve_rec.attribute14 = OKC_API.G_MISS_CHAR)
2294: THEN
2295: x_tve_rec.attribute14 := l_tve_rec.attribute14;
2296: END IF;
2297: IF (x_tve_rec.attribute15 = OKC_API.G_MISS_CHAR)
2298: THEN
2299: x_tve_rec.attribute15 := l_tve_rec.attribute15;
2300: END IF;
2301: --Bug 3122962
2298: THEN
2299: x_tve_rec.attribute15 := l_tve_rec.attribute15;
2300: END IF;
2301: --Bug 3122962
2302: IF (x_tve_rec.description = OKC_API.G_MISS_CHAR)
2303: THEN
2304: x_tve_rec.description := l_tve_rec.description;
2305: END IF;
2306: IF (x_tve_rec.short_description = OKC_API.G_MISS_CHAR)
2302: IF (x_tve_rec.description = OKC_API.G_MISS_CHAR)
2303: THEN
2304: x_tve_rec.description := l_tve_rec.description;
2305: END IF;
2306: IF (x_tve_rec.short_description = OKC_API.G_MISS_CHAR)
2307: THEN
2308: x_tve_rec.short_description := l_tve_rec.short_description;
2309: END IF;
2310: IF (x_tve_rec.comments = OKC_API.G_MISS_CHAR)
2306: IF (x_tve_rec.short_description = OKC_API.G_MISS_CHAR)
2307: THEN
2308: x_tve_rec.short_description := l_tve_rec.short_description;
2309: END IF;
2310: IF (x_tve_rec.comments = OKC_API.G_MISS_CHAR)
2311: THEN
2312: x_tve_rec.comments := l_tve_rec.comments;
2313: END IF;
2314: IF (x_tve_rec.name = OKC_API.G_MISS_CHAR)
2310: IF (x_tve_rec.comments = OKC_API.G_MISS_CHAR)
2311: THEN
2312: x_tve_rec.comments := l_tve_rec.comments;
2313: END IF;
2314: IF (x_tve_rec.name = OKC_API.G_MISS_CHAR)
2315: THEN
2316: x_tve_rec.name := l_tve_rec.name;
2317: END IF;
2318:
2324: FUNCTION Set_Attributes (
2325: p_tve_rec IN tve_rec_type,
2326: x_tve_rec OUT NOCOPY tve_rec_type
2327: ) RETURN VARCHAR2 IS
2328: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2329: BEGIN
2330: x_tve_rec := p_tve_rec;
2331: RETURN(l_return_status);
2332: END Set_Attributes;
2330: x_tve_rec := p_tve_rec;
2331: RETURN(l_return_status);
2332: END Set_Attributes;
2333: BEGIN
2334: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2335: p_init_msg_list,
2336: '_PVT',
2337: x_return_status);
2338: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2334: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2335: p_init_msg_list,
2336: '_PVT',
2337: x_return_status);
2338: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2339: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2340: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2341: RAISE OKC_API.G_EXCEPTION_ERROR;
2342: END IF;
2335: p_init_msg_list,
2336: '_PVT',
2337: x_return_status);
2338: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2339: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2340: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2341: RAISE OKC_API.G_EXCEPTION_ERROR;
2342: END IF;
2343: --- Setting item attributes
2336: '_PVT',
2337: x_return_status);
2338: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2339: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2340: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2341: RAISE OKC_API.G_EXCEPTION_ERROR;
2342: END IF;
2343: --- Setting item attributes
2344: l_return_status := Set_Attributes(
2337: x_return_status);
2338: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2339: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2340: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2341: RAISE OKC_API.G_EXCEPTION_ERROR;
2342: END IF;
2343: --- Setting item attributes
2344: l_return_status := Set_Attributes(
2345: p_tve_rec, -- IN
2344: l_return_status := Set_Attributes(
2345: p_tve_rec, -- IN
2346: l_tve_rec); -- OUT
2347: --- If any errors happen abort API
2348: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2349: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2350: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2351: RAISE OKC_API.G_EXCEPTION_ERROR;
2352: END IF;
2345: p_tve_rec, -- IN
2346: l_tve_rec); -- OUT
2347: --- If any errors happen abort API
2348: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2349: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2350: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2351: RAISE OKC_API.G_EXCEPTION_ERROR;
2352: END IF;
2353: l_return_status := populate_new_record(l_tve_rec, l_def_tve_rec);
2346: l_tve_rec); -- OUT
2347: --- If any errors happen abort API
2348: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2349: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2350: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2351: RAISE OKC_API.G_EXCEPTION_ERROR;
2352: END IF;
2353: l_return_status := populate_new_record(l_tve_rec, l_def_tve_rec);
2354: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2347: --- If any errors happen abort API
2348: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2349: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2350: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2351: RAISE OKC_API.G_EXCEPTION_ERROR;
2352: END IF;
2353: l_return_status := populate_new_record(l_tve_rec, l_def_tve_rec);
2354: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2355: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2350: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2351: RAISE OKC_API.G_EXCEPTION_ERROR;
2352: END IF;
2353: l_return_status := populate_new_record(l_tve_rec, l_def_tve_rec);
2354: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2355: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2356: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2357: RAISE OKC_API.G_EXCEPTION_ERROR;
2358: END IF;
2351: RAISE OKC_API.G_EXCEPTION_ERROR;
2352: END IF;
2353: l_return_status := populate_new_record(l_tve_rec, l_def_tve_rec);
2354: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2355: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2356: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2357: RAISE OKC_API.G_EXCEPTION_ERROR;
2358: END IF;
2359: UPDATE OKC_TIMEVALUES
2352: END IF;
2353: l_return_status := populate_new_record(l_tve_rec, l_def_tve_rec);
2354: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2355: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2356: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2357: RAISE OKC_API.G_EXCEPTION_ERROR;
2358: END IF;
2359: UPDATE OKC_TIMEVALUES
2360: SET SPN_ID = l_def_tve_rec.spn_id,
2353: l_return_status := populate_new_record(l_tve_rec, l_def_tve_rec);
2354: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2355: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2356: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2357: RAISE OKC_API.G_EXCEPTION_ERROR;
2358: END IF;
2359: UPDATE OKC_TIMEVALUES
2360: SET SPN_ID = l_def_tve_rec.spn_id,
2361: TVE_ID_OFFSET = l_def_tve_rec.tve_id_offset,
2409: ATTRIBUTE14 = l_def_tve_rec.attribute14,
2410: ATTRIBUTE15 = l_def_tve_rec.attribute15
2411: WHERE ID = l_def_tve_rec.id;
2412: x_tve_rec := l_def_tve_rec;
2413: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2414: EXCEPTION
2415: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2416: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2417: (
2411: WHERE ID = l_def_tve_rec.id;
2412: x_tve_rec := l_def_tve_rec;
2413: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2414: EXCEPTION
2415: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2416: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2417: (
2418: l_api_name,
2419: G_PKG_NAME,
2412: x_tve_rec := l_def_tve_rec;
2413: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2414: EXCEPTION
2415: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2416: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2417: (
2418: l_api_name,
2419: G_PKG_NAME,
2420: 'OKC_API.G_RET_STS_ERROR',
2416: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2417: (
2418: l_api_name,
2419: G_PKG_NAME,
2420: 'OKC_API.G_RET_STS_ERROR',
2421: x_msg_count,
2422: x_msg_data,
2423: '_PVT'
2424: );
2421: x_msg_count,
2422: x_msg_data,
2423: '_PVT'
2424: );
2425: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2426: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2427: (
2428: l_api_name,
2429: G_PKG_NAME,
2422: x_msg_data,
2423: '_PVT'
2424: );
2425: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2426: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2427: (
2428: l_api_name,
2429: G_PKG_NAME,
2430: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2426: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2427: (
2428: l_api_name,
2429: G_PKG_NAME,
2430: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2431: x_msg_count,
2432: x_msg_data,
2433: '_PVT'
2434: );
2432: x_msg_data,
2433: '_PVT'
2434: );
2435: WHEN OTHERS THEN
2436: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2437: (
2438: l_api_name,
2439: G_PKG_NAME,
2440: 'OTHERS',
2455: x_okc_timevalues_tl_rec OUT NOCOPY okc_timevalues_tl_rec_type) IS
2456:
2457: l_api_version CONSTANT NUMBER := 1;
2458: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2459: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2460: l_okc_timevalues_tl_rec okc_timevalues_tl_rec_type := p_okc_timevalues_tl_rec;
2461: l_def_okc_timevalues_tl_rec okc_timevalues_tl_rec_type;
2462: l_row_notfound BOOLEAN := TRUE;
2463: ----------------------------------
2468: x_okc_timevalues_tl_rec OUT NOCOPY okc_timevalues_tl_rec_type
2469: ) RETURN VARCHAR2 IS
2470: l_okc_timevalues_tl_rec okc_timevalues_tl_rec_type;
2471: l_row_notfound BOOLEAN := TRUE;
2472: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2473: BEGIN
2474: x_okc_timevalues_tl_rec := p_okc_timevalues_tl_rec;
2475: -- Get current database values
2476: l_okc_timevalues_tl_rec := get_rec(p_okc_timevalues_tl_rec, l_row_notfound);
2474: x_okc_timevalues_tl_rec := p_okc_timevalues_tl_rec;
2475: -- Get current database values
2476: l_okc_timevalues_tl_rec := get_rec(p_okc_timevalues_tl_rec, l_row_notfound);
2477: IF (l_row_notfound) THEN
2478: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2479: END IF;
2480: IF (x_okc_timevalues_tl_rec.id = OKC_API.G_MISS_NUM)
2481: THEN
2482: x_okc_timevalues_tl_rec.id := l_okc_timevalues_tl_rec.id;
2476: l_okc_timevalues_tl_rec := get_rec(p_okc_timevalues_tl_rec, l_row_notfound);
2477: IF (l_row_notfound) THEN
2478: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2479: END IF;
2480: IF (x_okc_timevalues_tl_rec.id = OKC_API.G_MISS_NUM)
2481: THEN
2482: x_okc_timevalues_tl_rec.id := l_okc_timevalues_tl_rec.id;
2483: END IF;
2484: IF (x_okc_timevalues_tl_rec.language = OKC_API.G_MISS_CHAR)
2480: IF (x_okc_timevalues_tl_rec.id = OKC_API.G_MISS_NUM)
2481: THEN
2482: x_okc_timevalues_tl_rec.id := l_okc_timevalues_tl_rec.id;
2483: END IF;
2484: IF (x_okc_timevalues_tl_rec.language = OKC_API.G_MISS_CHAR)
2485: THEN
2486: x_okc_timevalues_tl_rec.language := l_okc_timevalues_tl_rec.language;
2487: END IF;
2488: IF (x_okc_timevalues_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2484: IF (x_okc_timevalues_tl_rec.language = OKC_API.G_MISS_CHAR)
2485: THEN
2486: x_okc_timevalues_tl_rec.language := l_okc_timevalues_tl_rec.language;
2487: END IF;
2488: IF (x_okc_timevalues_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2489: THEN
2490: x_okc_timevalues_tl_rec.source_lang := l_okc_timevalues_tl_rec.source_lang;
2491: END IF;
2492: IF (x_okc_timevalues_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2488: IF (x_okc_timevalues_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2489: THEN
2490: x_okc_timevalues_tl_rec.source_lang := l_okc_timevalues_tl_rec.source_lang;
2491: END IF;
2492: IF (x_okc_timevalues_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2493: THEN
2494: x_okc_timevalues_tl_rec.sfwt_flag := l_okc_timevalues_tl_rec.sfwt_flag;
2495: END IF;
2496: IF (x_okc_timevalues_tl_rec.description = OKC_API.G_MISS_CHAR)
2492: IF (x_okc_timevalues_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2493: THEN
2494: x_okc_timevalues_tl_rec.sfwt_flag := l_okc_timevalues_tl_rec.sfwt_flag;
2495: END IF;
2496: IF (x_okc_timevalues_tl_rec.description = OKC_API.G_MISS_CHAR)
2497: THEN
2498: x_okc_timevalues_tl_rec.description := l_okc_timevalues_tl_rec.description;
2499: END IF;
2500: IF (x_okc_timevalues_tl_rec.short_description = OKC_API.G_MISS_CHAR)
2496: IF (x_okc_timevalues_tl_rec.description = OKC_API.G_MISS_CHAR)
2497: THEN
2498: x_okc_timevalues_tl_rec.description := l_okc_timevalues_tl_rec.description;
2499: END IF;
2500: IF (x_okc_timevalues_tl_rec.short_description = OKC_API.G_MISS_CHAR)
2501: THEN
2502: x_okc_timevalues_tl_rec.short_description := l_okc_timevalues_tl_rec.short_description;
2503: END IF;
2504: IF (x_okc_timevalues_tl_rec.comments = OKC_API.G_MISS_CHAR)
2500: IF (x_okc_timevalues_tl_rec.short_description = OKC_API.G_MISS_CHAR)
2501: THEN
2502: x_okc_timevalues_tl_rec.short_description := l_okc_timevalues_tl_rec.short_description;
2503: END IF;
2504: IF (x_okc_timevalues_tl_rec.comments = OKC_API.G_MISS_CHAR)
2505: THEN
2506: x_okc_timevalues_tl_rec.comments := l_okc_timevalues_tl_rec.comments;
2507: END IF;
2508: IF (x_okc_timevalues_tl_rec.name = OKC_API.G_MISS_CHAR)
2504: IF (x_okc_timevalues_tl_rec.comments = OKC_API.G_MISS_CHAR)
2505: THEN
2506: x_okc_timevalues_tl_rec.comments := l_okc_timevalues_tl_rec.comments;
2507: END IF;
2508: IF (x_okc_timevalues_tl_rec.name = OKC_API.G_MISS_CHAR)
2509: THEN
2510: x_okc_timevalues_tl_rec.name := l_okc_timevalues_tl_rec.name;
2511: END IF;
2512: IF (x_okc_timevalues_tl_rec.created_by = OKC_API.G_MISS_NUM)
2508: IF (x_okc_timevalues_tl_rec.name = OKC_API.G_MISS_CHAR)
2509: THEN
2510: x_okc_timevalues_tl_rec.name := l_okc_timevalues_tl_rec.name;
2511: END IF;
2512: IF (x_okc_timevalues_tl_rec.created_by = OKC_API.G_MISS_NUM)
2513: THEN
2514: x_okc_timevalues_tl_rec.created_by := l_okc_timevalues_tl_rec.created_by;
2515: END IF;
2516: IF (x_okc_timevalues_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2512: IF (x_okc_timevalues_tl_rec.created_by = OKC_API.G_MISS_NUM)
2513: THEN
2514: x_okc_timevalues_tl_rec.created_by := l_okc_timevalues_tl_rec.created_by;
2515: END IF;
2516: IF (x_okc_timevalues_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2517: THEN
2518: x_okc_timevalues_tl_rec.creation_date := l_okc_timevalues_tl_rec.creation_date;
2519: END IF;
2520: IF (x_okc_timevalues_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2516: IF (x_okc_timevalues_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2517: THEN
2518: x_okc_timevalues_tl_rec.creation_date := l_okc_timevalues_tl_rec.creation_date;
2519: END IF;
2520: IF (x_okc_timevalues_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2521: THEN
2522: x_okc_timevalues_tl_rec.last_updated_by := l_okc_timevalues_tl_rec.last_updated_by;
2523: END IF;
2524: IF (x_okc_timevalues_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2520: IF (x_okc_timevalues_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2521: THEN
2522: x_okc_timevalues_tl_rec.last_updated_by := l_okc_timevalues_tl_rec.last_updated_by;
2523: END IF;
2524: IF (x_okc_timevalues_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2525: THEN
2526: x_okc_timevalues_tl_rec.last_update_date := l_okc_timevalues_tl_rec.last_update_date;
2527: END IF;
2528: IF (x_okc_timevalues_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
2524: IF (x_okc_timevalues_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2525: THEN
2526: x_okc_timevalues_tl_rec.last_update_date := l_okc_timevalues_tl_rec.last_update_date;
2527: END IF;
2528: IF (x_okc_timevalues_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
2529: THEN
2530: x_okc_timevalues_tl_rec.last_update_login := l_okc_timevalues_tl_rec.last_update_login;
2531: END IF;
2532: RETURN(l_return_status);
2537: FUNCTION Set_Attributes (
2538: p_okc_timevalues_tl_rec IN okc_timevalues_tl_rec_type,
2539: x_okc_timevalues_tl_rec OUT NOCOPY okc_timevalues_tl_rec_type
2540: ) RETURN VARCHAR2 IS
2541: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2542: BEGIN
2543: x_okc_timevalues_tl_rec := p_okc_timevalues_tl_rec;
2544: x_okc_timevalues_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
2545: x_okc_timevalues_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
2545: x_okc_timevalues_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
2546: RETURN(l_return_status);
2547: END Set_Attributes;
2548: BEGIN
2549: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2550: p_init_msg_list,
2551: '_PVT',
2552: x_return_status);
2553: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2549: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2550: p_init_msg_list,
2551: '_PVT',
2552: x_return_status);
2553: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2554: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2555: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2556: RAISE OKC_API.G_EXCEPTION_ERROR;
2557: END IF;
2550: p_init_msg_list,
2551: '_PVT',
2552: x_return_status);
2553: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2554: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2555: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2556: RAISE OKC_API.G_EXCEPTION_ERROR;
2557: END IF;
2558: --- Setting item attributes
2551: '_PVT',
2552: x_return_status);
2553: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2554: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2555: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2556: RAISE OKC_API.G_EXCEPTION_ERROR;
2557: END IF;
2558: --- Setting item attributes
2559: l_return_status := Set_Attributes(
2552: x_return_status);
2553: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2554: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2555: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2556: RAISE OKC_API.G_EXCEPTION_ERROR;
2557: END IF;
2558: --- Setting item attributes
2559: l_return_status := Set_Attributes(
2560: p_okc_timevalues_tl_rec, -- IN
2559: l_return_status := Set_Attributes(
2560: p_okc_timevalues_tl_rec, -- IN
2561: l_okc_timevalues_tl_rec); -- OUT
2562: --- If any errors happen abort API
2563: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2564: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2565: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2566: RAISE OKC_API.G_EXCEPTION_ERROR;
2567: END IF;
2560: p_okc_timevalues_tl_rec, -- IN
2561: l_okc_timevalues_tl_rec); -- OUT
2562: --- If any errors happen abort API
2563: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2564: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2565: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2566: RAISE OKC_API.G_EXCEPTION_ERROR;
2567: END IF;
2568: l_return_status := populate_new_record(l_okc_timevalues_tl_rec, l_def_okc_timevalues_tl_rec);
2561: l_okc_timevalues_tl_rec); -- OUT
2562: --- If any errors happen abort API
2563: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2564: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2565: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2566: RAISE OKC_API.G_EXCEPTION_ERROR;
2567: END IF;
2568: l_return_status := populate_new_record(l_okc_timevalues_tl_rec, l_def_okc_timevalues_tl_rec);
2569: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2562: --- If any errors happen abort API
2563: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2564: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2565: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2566: RAISE OKC_API.G_EXCEPTION_ERROR;
2567: END IF;
2568: l_return_status := populate_new_record(l_okc_timevalues_tl_rec, l_def_okc_timevalues_tl_rec);
2569: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2570: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2565: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2566: RAISE OKC_API.G_EXCEPTION_ERROR;
2567: END IF;
2568: l_return_status := populate_new_record(l_okc_timevalues_tl_rec, l_def_okc_timevalues_tl_rec);
2569: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2570: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2571: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2572: RAISE OKC_API.G_EXCEPTION_ERROR;
2573: END IF;
2566: RAISE OKC_API.G_EXCEPTION_ERROR;
2567: END IF;
2568: l_return_status := populate_new_record(l_okc_timevalues_tl_rec, l_def_okc_timevalues_tl_rec);
2569: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2570: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2571: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2572: RAISE OKC_API.G_EXCEPTION_ERROR;
2573: END IF;
2574: UPDATE OKC_TIMEVALUES_TL
2567: END IF;
2568: l_return_status := populate_new_record(l_okc_timevalues_tl_rec, l_def_okc_timevalues_tl_rec);
2569: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2570: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2571: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2572: RAISE OKC_API.G_EXCEPTION_ERROR;
2573: END IF;
2574: UPDATE OKC_TIMEVALUES_TL
2575: SET DESCRIPTION = l_def_okc_timevalues_tl_rec.description,
2568: l_return_status := populate_new_record(l_okc_timevalues_tl_rec, l_def_okc_timevalues_tl_rec);
2569: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2570: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2571: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2572: RAISE OKC_API.G_EXCEPTION_ERROR;
2573: END IF;
2574: UPDATE OKC_TIMEVALUES_TL
2575: SET DESCRIPTION = l_def_okc_timevalues_tl_rec.description,
2576: SHORT_DESCRIPTION = l_def_okc_timevalues_tl_rec.short_description,
2589: WHERE ID = l_def_okc_timevalues_tl_rec.id
2590: AND SOURCE_LANG <> USERENV('LANG');
2591:
2592: x_okc_timevalues_tl_rec := l_def_okc_timevalues_tl_rec;
2593: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2594: EXCEPTION
2595: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2596: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2597: (
2591:
2592: x_okc_timevalues_tl_rec := l_def_okc_timevalues_tl_rec;
2593: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2594: EXCEPTION
2595: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2596: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2597: (
2598: l_api_name,
2599: G_PKG_NAME,
2592: x_okc_timevalues_tl_rec := l_def_okc_timevalues_tl_rec;
2593: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2594: EXCEPTION
2595: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2596: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2597: (
2598: l_api_name,
2599: G_PKG_NAME,
2600: 'OKC_API.G_RET_STS_ERROR',
2596: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2597: (
2598: l_api_name,
2599: G_PKG_NAME,
2600: 'OKC_API.G_RET_STS_ERROR',
2601: x_msg_count,
2602: x_msg_data,
2603: '_PVT'
2604: );
2601: x_msg_count,
2602: x_msg_data,
2603: '_PVT'
2604: );
2605: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2606: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2607: (
2608: l_api_name,
2609: G_PKG_NAME,
2602: x_msg_data,
2603: '_PVT'
2604: );
2605: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2606: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2607: (
2608: l_api_name,
2609: G_PKG_NAME,
2610: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2606: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2607: (
2608: l_api_name,
2609: G_PKG_NAME,
2610: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2611: x_msg_count,
2612: x_msg_data,
2613: '_PVT'
2614: );
2612: x_msg_data,
2613: '_PVT'
2614: );
2615: WHEN OTHERS THEN
2616: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2617: (
2618: l_api_name,
2619: G_PKG_NAME,
2620: 'OTHERS',
2637: x_tavv_rec OUT NOCOPY tavv_rec_type) IS
2638:
2639: l_api_version CONSTANT NUMBER := 1;
2640: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
2641: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2642: l_tavv_rec tavv_rec_type := p_tavv_rec;
2643: l_def_tavv_rec tavv_rec_type;
2644: --Bug 3122962 l_okc_timevalues_tl_rec okc_timevalues_tl_rec_type;
2645: --Bug 3122962 lx_okc_timevalues_tl_rec okc_timevalues_tl_rec_type;
2666: x_tavv_rec OUT NOCOPY tavv_rec_type
2667: ) RETURN VARCHAR2 IS
2668: l_tavv_rec tavv_rec_type;
2669: l_row_notfound BOOLEAN := TRUE;
2670: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2671: BEGIN
2672: x_tavv_rec := p_tavv_rec;
2673: -- Get current database values
2674: l_tavv_rec := get_rec(p_tavv_rec, l_row_notfound);
2672: x_tavv_rec := p_tavv_rec;
2673: -- Get current database values
2674: l_tavv_rec := get_rec(p_tavv_rec, l_row_notfound);
2675: IF (l_row_notfound) THEN
2676: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2677: END IF;
2678: IF (x_tavv_rec.id = OKC_API.G_MISS_NUM)
2679: THEN
2680: x_tavv_rec.id := l_tavv_rec.id;
2674: l_tavv_rec := get_rec(p_tavv_rec, l_row_notfound);
2675: IF (l_row_notfound) THEN
2676: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2677: END IF;
2678: IF (x_tavv_rec.id = OKC_API.G_MISS_NUM)
2679: THEN
2680: x_tavv_rec.id := l_tavv_rec.id;
2681: END IF;
2682: IF (x_tavv_rec.object_version_number = OKC_API.G_MISS_NUM)
2678: IF (x_tavv_rec.id = OKC_API.G_MISS_NUM)
2679: THEN
2680: x_tavv_rec.id := l_tavv_rec.id;
2681: END IF;
2682: IF (x_tavv_rec.object_version_number = OKC_API.G_MISS_NUM)
2683: THEN
2684: x_tavv_rec.object_version_number := l_tavv_rec.object_version_number;
2685: END IF;
2686: --Bug 3122962
2683: THEN
2684: x_tavv_rec.object_version_number := l_tavv_rec.object_version_number;
2685: END IF;
2686: --Bug 3122962
2687: /* IF (x_tavv_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2688: THEN
2689: x_tavv_rec.sfwt_flag := l_tavv_rec.sfwt_flag;
2690: END IF;
2691: */
2688: THEN
2689: x_tavv_rec.sfwt_flag := l_tavv_rec.sfwt_flag;
2690: END IF;
2691: */
2692: IF (x_tavv_rec.spn_id = OKC_API.G_MISS_NUM)
2693: THEN
2694: x_tavv_rec.spn_id := l_tavv_rec.spn_id;
2695: END IF;
2696: IF (x_tavv_rec.tve_id_generated_by = OKC_API.G_MISS_NUM)
2692: IF (x_tavv_rec.spn_id = OKC_API.G_MISS_NUM)
2693: THEN
2694: x_tavv_rec.spn_id := l_tavv_rec.spn_id;
2695: END IF;
2696: IF (x_tavv_rec.tve_id_generated_by = OKC_API.G_MISS_NUM)
2697: THEN
2698: x_tavv_rec.tve_id_generated_by := l_tavv_rec.tve_id_generated_by;
2699: END IF;
2700: IF (x_tavv_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
2696: IF (x_tavv_rec.tve_id_generated_by = OKC_API.G_MISS_NUM)
2697: THEN
2698: x_tavv_rec.tve_id_generated_by := l_tavv_rec.tve_id_generated_by;
2699: END IF;
2700: IF (x_tavv_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
2701: THEN
2702: x_tavv_rec.dnz_chr_id := l_tavv_rec.dnz_chr_id;
2703: END IF;
2704: IF (x_tavv_rec.tze_id = OKC_API.G_MISS_NUM)
2700: IF (x_tavv_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
2701: THEN
2702: x_tavv_rec.dnz_chr_id := l_tavv_rec.dnz_chr_id;
2703: END IF;
2704: IF (x_tavv_rec.tze_id = OKC_API.G_MISS_NUM)
2705: THEN
2706: x_tavv_rec.tze_id := l_tavv_rec.tze_id;
2707: END IF;
2708: IF (x_tavv_rec.tve_id_limited = OKC_API.G_MISS_NUM)
2704: IF (x_tavv_rec.tze_id = OKC_API.G_MISS_NUM)
2705: THEN
2706: x_tavv_rec.tze_id := l_tavv_rec.tze_id;
2707: END IF;
2708: IF (x_tavv_rec.tve_id_limited = OKC_API.G_MISS_NUM)
2709: THEN
2710: x_tavv_rec.tve_id_limited := l_tavv_rec.tve_id_limited;
2711: END IF;
2712: IF (x_tavv_rec.description = OKC_API.G_MISS_CHAR)
2708: IF (x_tavv_rec.tve_id_limited = OKC_API.G_MISS_NUM)
2709: THEN
2710: x_tavv_rec.tve_id_limited := l_tavv_rec.tve_id_limited;
2711: END IF;
2712: IF (x_tavv_rec.description = OKC_API.G_MISS_CHAR)
2713: THEN
2714: x_tavv_rec.description := l_tavv_rec.description;
2715: END IF;
2716: IF (x_tavv_rec.short_description = OKC_API.G_MISS_CHAR)
2712: IF (x_tavv_rec.description = OKC_API.G_MISS_CHAR)
2713: THEN
2714: x_tavv_rec.description := l_tavv_rec.description;
2715: END IF;
2716: IF (x_tavv_rec.short_description = OKC_API.G_MISS_CHAR)
2717: THEN
2718: x_tavv_rec.short_description := l_tavv_rec.short_description;
2719: END IF;
2720: IF (x_tavv_rec.comments = OKC_API.G_MISS_CHAR)
2716: IF (x_tavv_rec.short_description = OKC_API.G_MISS_CHAR)
2717: THEN
2718: x_tavv_rec.short_description := l_tavv_rec.short_description;
2719: END IF;
2720: IF (x_tavv_rec.comments = OKC_API.G_MISS_CHAR)
2721: THEN
2722: x_tavv_rec.comments := l_tavv_rec.comments;
2723: END IF;
2724: IF (x_tavv_rec.datetime = OKC_API.G_MISS_DATE)
2720: IF (x_tavv_rec.comments = OKC_API.G_MISS_CHAR)
2721: THEN
2722: x_tavv_rec.comments := l_tavv_rec.comments;
2723: END IF;
2724: IF (x_tavv_rec.datetime = OKC_API.G_MISS_DATE)
2725: THEN
2726: x_tavv_rec.datetime := l_tavv_rec.datetime;
2727: END IF;
2728: IF (x_tavv_rec.attribute_category = OKC_API.G_MISS_CHAR)
2724: IF (x_tavv_rec.datetime = OKC_API.G_MISS_DATE)
2725: THEN
2726: x_tavv_rec.datetime := l_tavv_rec.datetime;
2727: END IF;
2728: IF (x_tavv_rec.attribute_category = OKC_API.G_MISS_CHAR)
2729: THEN
2730: x_tavv_rec.attribute_category := l_tavv_rec.attribute_category;
2731: END IF;
2732: IF (x_tavv_rec.attribute1 = OKC_API.G_MISS_CHAR)
2728: IF (x_tavv_rec.attribute_category = OKC_API.G_MISS_CHAR)
2729: THEN
2730: x_tavv_rec.attribute_category := l_tavv_rec.attribute_category;
2731: END IF;
2732: IF (x_tavv_rec.attribute1 = OKC_API.G_MISS_CHAR)
2733: THEN
2734: x_tavv_rec.attribute1 := l_tavv_rec.attribute1;
2735: END IF;
2736: IF (x_tavv_rec.attribute2 = OKC_API.G_MISS_CHAR)
2732: IF (x_tavv_rec.attribute1 = OKC_API.G_MISS_CHAR)
2733: THEN
2734: x_tavv_rec.attribute1 := l_tavv_rec.attribute1;
2735: END IF;
2736: IF (x_tavv_rec.attribute2 = OKC_API.G_MISS_CHAR)
2737: THEN
2738: x_tavv_rec.attribute2 := l_tavv_rec.attribute2;
2739: END IF;
2740: IF (x_tavv_rec.attribute3 = OKC_API.G_MISS_CHAR)
2736: IF (x_tavv_rec.attribute2 = OKC_API.G_MISS_CHAR)
2737: THEN
2738: x_tavv_rec.attribute2 := l_tavv_rec.attribute2;
2739: END IF;
2740: IF (x_tavv_rec.attribute3 = OKC_API.G_MISS_CHAR)
2741: THEN
2742: x_tavv_rec.attribute3 := l_tavv_rec.attribute3;
2743: END IF;
2744: IF (x_tavv_rec.attribute4 = OKC_API.G_MISS_CHAR)
2740: IF (x_tavv_rec.attribute3 = OKC_API.G_MISS_CHAR)
2741: THEN
2742: x_tavv_rec.attribute3 := l_tavv_rec.attribute3;
2743: END IF;
2744: IF (x_tavv_rec.attribute4 = OKC_API.G_MISS_CHAR)
2745: THEN
2746: x_tavv_rec.attribute4 := l_tavv_rec.attribute4;
2747: END IF;
2748: IF (x_tavv_rec.attribute5 = OKC_API.G_MISS_CHAR)
2744: IF (x_tavv_rec.attribute4 = OKC_API.G_MISS_CHAR)
2745: THEN
2746: x_tavv_rec.attribute4 := l_tavv_rec.attribute4;
2747: END IF;
2748: IF (x_tavv_rec.attribute5 = OKC_API.G_MISS_CHAR)
2749: THEN
2750: x_tavv_rec.attribute5 := l_tavv_rec.attribute5;
2751: END IF;
2752: IF (x_tavv_rec.attribute6 = OKC_API.G_MISS_CHAR)
2748: IF (x_tavv_rec.attribute5 = OKC_API.G_MISS_CHAR)
2749: THEN
2750: x_tavv_rec.attribute5 := l_tavv_rec.attribute5;
2751: END IF;
2752: IF (x_tavv_rec.attribute6 = OKC_API.G_MISS_CHAR)
2753: THEN
2754: x_tavv_rec.attribute6 := l_tavv_rec.attribute6;
2755: END IF;
2756: IF (x_tavv_rec.attribute7 = OKC_API.G_MISS_CHAR)
2752: IF (x_tavv_rec.attribute6 = OKC_API.G_MISS_CHAR)
2753: THEN
2754: x_tavv_rec.attribute6 := l_tavv_rec.attribute6;
2755: END IF;
2756: IF (x_tavv_rec.attribute7 = OKC_API.G_MISS_CHAR)
2757: THEN
2758: x_tavv_rec.attribute7 := l_tavv_rec.attribute7;
2759: END IF;
2760: IF (x_tavv_rec.attribute8 = OKC_API.G_MISS_CHAR)
2756: IF (x_tavv_rec.attribute7 = OKC_API.G_MISS_CHAR)
2757: THEN
2758: x_tavv_rec.attribute7 := l_tavv_rec.attribute7;
2759: END IF;
2760: IF (x_tavv_rec.attribute8 = OKC_API.G_MISS_CHAR)
2761: THEN
2762: x_tavv_rec.attribute8 := l_tavv_rec.attribute8;
2763: END IF;
2764: IF (x_tavv_rec.attribute9 = OKC_API.G_MISS_CHAR)
2760: IF (x_tavv_rec.attribute8 = OKC_API.G_MISS_CHAR)
2761: THEN
2762: x_tavv_rec.attribute8 := l_tavv_rec.attribute8;
2763: END IF;
2764: IF (x_tavv_rec.attribute9 = OKC_API.G_MISS_CHAR)
2765: THEN
2766: x_tavv_rec.attribute9 := l_tavv_rec.attribute9;
2767: END IF;
2768: IF (x_tavv_rec.attribute10 = OKC_API.G_MISS_CHAR)
2764: IF (x_tavv_rec.attribute9 = OKC_API.G_MISS_CHAR)
2765: THEN
2766: x_tavv_rec.attribute9 := l_tavv_rec.attribute9;
2767: END IF;
2768: IF (x_tavv_rec.attribute10 = OKC_API.G_MISS_CHAR)
2769: THEN
2770: x_tavv_rec.attribute10 := l_tavv_rec.attribute10;
2771: END IF;
2772: IF (x_tavv_rec.attribute11 = OKC_API.G_MISS_CHAR)
2768: IF (x_tavv_rec.attribute10 = OKC_API.G_MISS_CHAR)
2769: THEN
2770: x_tavv_rec.attribute10 := l_tavv_rec.attribute10;
2771: END IF;
2772: IF (x_tavv_rec.attribute11 = OKC_API.G_MISS_CHAR)
2773: THEN
2774: x_tavv_rec.attribute11 := l_tavv_rec.attribute11;
2775: END IF;
2776: IF (x_tavv_rec.attribute12 = OKC_API.G_MISS_CHAR)
2772: IF (x_tavv_rec.attribute11 = OKC_API.G_MISS_CHAR)
2773: THEN
2774: x_tavv_rec.attribute11 := l_tavv_rec.attribute11;
2775: END IF;
2776: IF (x_tavv_rec.attribute12 = OKC_API.G_MISS_CHAR)
2777: THEN
2778: x_tavv_rec.attribute12 := l_tavv_rec.attribute12;
2779: END IF;
2780: IF (x_tavv_rec.attribute13 = OKC_API.G_MISS_CHAR)
2776: IF (x_tavv_rec.attribute12 = OKC_API.G_MISS_CHAR)
2777: THEN
2778: x_tavv_rec.attribute12 := l_tavv_rec.attribute12;
2779: END IF;
2780: IF (x_tavv_rec.attribute13 = OKC_API.G_MISS_CHAR)
2781: THEN
2782: x_tavv_rec.attribute13 := l_tavv_rec.attribute13;
2783: END IF;
2784: IF (x_tavv_rec.attribute14 = OKC_API.G_MISS_CHAR)
2780: IF (x_tavv_rec.attribute13 = OKC_API.G_MISS_CHAR)
2781: THEN
2782: x_tavv_rec.attribute13 := l_tavv_rec.attribute13;
2783: END IF;
2784: IF (x_tavv_rec.attribute14 = OKC_API.G_MISS_CHAR)
2785: THEN
2786: x_tavv_rec.attribute14 := l_tavv_rec.attribute14;
2787: END IF;
2788: IF (x_tavv_rec.attribute15 = OKC_API.G_MISS_CHAR)
2784: IF (x_tavv_rec.attribute14 = OKC_API.G_MISS_CHAR)
2785: THEN
2786: x_tavv_rec.attribute14 := l_tavv_rec.attribute14;
2787: END IF;
2788: IF (x_tavv_rec.attribute15 = OKC_API.G_MISS_CHAR)
2789: THEN
2790: x_tavv_rec.attribute15 := l_tavv_rec.attribute15;
2791: END IF;
2792: IF (x_tavv_rec.created_by = OKC_API.G_MISS_NUM)
2788: IF (x_tavv_rec.attribute15 = OKC_API.G_MISS_CHAR)
2789: THEN
2790: x_tavv_rec.attribute15 := l_tavv_rec.attribute15;
2791: END IF;
2792: IF (x_tavv_rec.created_by = OKC_API.G_MISS_NUM)
2793: THEN
2794: x_tavv_rec.created_by := l_tavv_rec.created_by;
2795: END IF;
2796: IF (x_tavv_rec.creation_date = OKC_API.G_MISS_DATE)
2792: IF (x_tavv_rec.created_by = OKC_API.G_MISS_NUM)
2793: THEN
2794: x_tavv_rec.created_by := l_tavv_rec.created_by;
2795: END IF;
2796: IF (x_tavv_rec.creation_date = OKC_API.G_MISS_DATE)
2797: THEN
2798: x_tavv_rec.creation_date := l_tavv_rec.creation_date;
2799: END IF;
2800: IF (x_tavv_rec.last_updated_by = OKC_API.G_MISS_NUM)
2796: IF (x_tavv_rec.creation_date = OKC_API.G_MISS_DATE)
2797: THEN
2798: x_tavv_rec.creation_date := l_tavv_rec.creation_date;
2799: END IF;
2800: IF (x_tavv_rec.last_updated_by = OKC_API.G_MISS_NUM)
2801: THEN
2802: x_tavv_rec.last_updated_by := l_tavv_rec.last_updated_by;
2803: END IF;
2804: IF (x_tavv_rec.last_update_date = OKC_API.G_MISS_DATE)
2800: IF (x_tavv_rec.last_updated_by = OKC_API.G_MISS_NUM)
2801: THEN
2802: x_tavv_rec.last_updated_by := l_tavv_rec.last_updated_by;
2803: END IF;
2804: IF (x_tavv_rec.last_update_date = OKC_API.G_MISS_DATE)
2805: THEN
2806: x_tavv_rec.last_update_date := l_tavv_rec.last_update_date;
2807: END IF;
2808: IF (x_tavv_rec.last_update_login = OKC_API.G_MISS_NUM)
2804: IF (x_tavv_rec.last_update_date = OKC_API.G_MISS_DATE)
2805: THEN
2806: x_tavv_rec.last_update_date := l_tavv_rec.last_update_date;
2807: END IF;
2808: IF (x_tavv_rec.last_update_login = OKC_API.G_MISS_NUM)
2809: THEN
2810: x_tavv_rec.last_update_login := l_tavv_rec.last_update_login;
2811: END IF;
2812: RETURN(l_return_status);
2817: FUNCTION Set_Attributes (
2818: p_tavv_rec IN tavv_rec_type,
2819: x_tavv_rec OUT NOCOPY tavv_rec_type
2820: ) RETURN VARCHAR2 IS
2821: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2822: BEGIN
2823: x_tavv_rec := p_tavv_rec;
2824: -- **** Added the following line(s) for uppercasing *****
2825: -- x_tavv_rec.SFWT_FLAG := upper(p_tavv_rec.SFWT_FLAG);
2826: x_tavv_rec.OBJECT_VERSION_NUMBER := NVL(x_tavv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
2827: RETURN(l_return_status);
2828: END Set_Attributes;
2829: BEGIN
2830: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2831: G_PKG_NAME,
2832: p_init_msg_list,
2833: l_api_version,
2834: p_api_version,
2833: l_api_version,
2834: p_api_version,
2835: '_PVT',
2836: x_return_status);
2837: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2838: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2839: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2840: RAISE OKC_API.G_EXCEPTION_ERROR;
2841: END IF;
2834: p_api_version,
2835: '_PVT',
2836: x_return_status);
2837: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2838: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2839: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2840: RAISE OKC_API.G_EXCEPTION_ERROR;
2841: END IF;
2842: --- Setting item attributes
2835: '_PVT',
2836: x_return_status);
2837: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2838: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2839: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2840: RAISE OKC_API.G_EXCEPTION_ERROR;
2841: END IF;
2842: --- Setting item attributes
2843: l_return_status := Set_Attributes(
2836: x_return_status);
2837: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2838: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2839: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2840: RAISE OKC_API.G_EXCEPTION_ERROR;
2841: END IF;
2842: --- Setting item attributes
2843: l_return_status := Set_Attributes(
2844: p_tavv_rec, -- IN
2843: l_return_status := Set_Attributes(
2844: p_tavv_rec, -- IN
2845: l_tavv_rec); -- OUT
2846: --- If any errors happen abort API
2847: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2848: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2849: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2850: RAISE OKC_API.G_EXCEPTION_ERROR;
2851: END IF;
2844: p_tavv_rec, -- IN
2845: l_tavv_rec); -- OUT
2846: --- If any errors happen abort API
2847: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2848: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2849: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2850: RAISE OKC_API.G_EXCEPTION_ERROR;
2851: END IF;
2852: l_return_status := populate_new_record(l_tavv_rec, l_def_tavv_rec);
2845: l_tavv_rec); -- OUT
2846: --- If any errors happen abort API
2847: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2848: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2849: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2850: RAISE OKC_API.G_EXCEPTION_ERROR;
2851: END IF;
2852: l_return_status := populate_new_record(l_tavv_rec, l_def_tavv_rec);
2853: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2846: --- If any errors happen abort API
2847: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2848: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2849: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2850: RAISE OKC_API.G_EXCEPTION_ERROR;
2851: END IF;
2852: l_return_status := populate_new_record(l_tavv_rec, l_def_tavv_rec);
2853: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2854: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2849: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2850: RAISE OKC_API.G_EXCEPTION_ERROR;
2851: END IF;
2852: l_return_status := populate_new_record(l_tavv_rec, l_def_tavv_rec);
2853: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2854: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2855: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2856: RAISE OKC_API.G_EXCEPTION_ERROR;
2857: END IF;
2850: RAISE OKC_API.G_EXCEPTION_ERROR;
2851: END IF;
2852: l_return_status := populate_new_record(l_tavv_rec, l_def_tavv_rec);
2853: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2854: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2855: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2856: RAISE OKC_API.G_EXCEPTION_ERROR;
2857: END IF;
2858: l_def_tavv_rec := fill_who_columns(l_def_tavv_rec);
2851: END IF;
2852: l_return_status := populate_new_record(l_tavv_rec, l_def_tavv_rec);
2853: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2854: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2855: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2856: RAISE OKC_API.G_EXCEPTION_ERROR;
2857: END IF;
2858: l_def_tavv_rec := fill_who_columns(l_def_tavv_rec);
2859: --- Validate all non-missing attributes (Item Level Validation)
2852: l_return_status := populate_new_record(l_tavv_rec, l_def_tavv_rec);
2853: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2854: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2855: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2856: RAISE OKC_API.G_EXCEPTION_ERROR;
2857: END IF;
2858: l_def_tavv_rec := fill_who_columns(l_def_tavv_rec);
2859: --- Validate all non-missing attributes (Item Level Validation)
2860: l_return_status := Validate_Attributes(l_def_tavv_rec);
2858: l_def_tavv_rec := fill_who_columns(l_def_tavv_rec);
2859: --- Validate all non-missing attributes (Item Level Validation)
2860: l_return_status := Validate_Attributes(l_def_tavv_rec);
2861: --- If any errors happen abort API
2862: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2863: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2864: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2865: RAISE OKC_API.G_EXCEPTION_ERROR;
2866: END IF;
2859: --- Validate all non-missing attributes (Item Level Validation)
2860: l_return_status := Validate_Attributes(l_def_tavv_rec);
2861: --- If any errors happen abort API
2862: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2863: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2864: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2865: RAISE OKC_API.G_EXCEPTION_ERROR;
2866: END IF;
2867: l_return_status := Validate_Record(l_def_tavv_rec);
2860: l_return_status := Validate_Attributes(l_def_tavv_rec);
2861: --- If any errors happen abort API
2862: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2863: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2864: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2865: RAISE OKC_API.G_EXCEPTION_ERROR;
2866: END IF;
2867: l_return_status := Validate_Record(l_def_tavv_rec);
2868: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2861: --- If any errors happen abort API
2862: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2863: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2864: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2865: RAISE OKC_API.G_EXCEPTION_ERROR;
2866: END IF;
2867: l_return_status := Validate_Record(l_def_tavv_rec);
2868: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2869: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2864: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2865: RAISE OKC_API.G_EXCEPTION_ERROR;
2866: END IF;
2867: l_return_status := Validate_Record(l_def_tavv_rec);
2868: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2869: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2870: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2871: RAISE OKC_API.G_EXCEPTION_ERROR;
2872: END IF;
2865: RAISE OKC_API.G_EXCEPTION_ERROR;
2866: END IF;
2867: l_return_status := Validate_Record(l_def_tavv_rec);
2868: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2869: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2870: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2871: RAISE OKC_API.G_EXCEPTION_ERROR;
2872: END IF;
2873:
2866: END IF;
2867: l_return_status := Validate_Record(l_def_tavv_rec);
2868: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2869: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2870: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2871: RAISE OKC_API.G_EXCEPTION_ERROR;
2872: END IF;
2873:
2874: --------------------------------------
2867: l_return_status := Validate_Record(l_def_tavv_rec);
2868: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2869: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2870: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2871: RAISE OKC_API.G_EXCEPTION_ERROR;
2872: END IF;
2873:
2874: --------------------------------------
2875: -- Move VIEW record to "Child" records
2886: x_msg_data,
2887: l_okc_timevalues_tl_rec,
2888: lx_okc_timevalues_tl_rec
2889: );
2890: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2891: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2892: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2893: RAISE OKC_API.G_EXCEPTION_ERROR;
2894: END IF;
2887: l_okc_timevalues_tl_rec,
2888: lx_okc_timevalues_tl_rec
2889: );
2890: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2891: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2892: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2893: RAISE OKC_API.G_EXCEPTION_ERROR;
2894: END IF;
2895: migrate(lx_okc_timevalues_tl_rec, l_def_tavv_rec);
2888: lx_okc_timevalues_tl_rec
2889: );
2890: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2891: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2892: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2893: RAISE OKC_API.G_EXCEPTION_ERROR;
2894: END IF;
2895: migrate(lx_okc_timevalues_tl_rec, l_def_tavv_rec);
2896: */
2889: );
2890: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2891: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2892: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2893: RAISE OKC_API.G_EXCEPTION_ERROR;
2894: END IF;
2895: migrate(lx_okc_timevalues_tl_rec, l_def_tavv_rec);
2896: */
2897: update_row(
2901: x_msg_data,
2902: l_tve_rec,
2903: lx_tve_rec
2904: );
2905: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2906: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2907: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2908: RAISE OKC_API.G_EXCEPTION_ERROR;
2909: END IF;
2902: l_tve_rec,
2903: lx_tve_rec
2904: );
2905: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2906: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2907: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2908: RAISE OKC_API.G_EXCEPTION_ERROR;
2909: END IF;
2910: migrate(lx_tve_rec, l_def_tavv_rec);
2903: lx_tve_rec
2904: );
2905: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2906: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2907: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2908: RAISE OKC_API.G_EXCEPTION_ERROR;
2909: END IF;
2910: migrate(lx_tve_rec, l_def_tavv_rec);
2911: x_tavv_rec := l_def_tavv_rec;
2904: );
2905: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2906: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2907: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2908: RAISE OKC_API.G_EXCEPTION_ERROR;
2909: END IF;
2910: migrate(lx_tve_rec, l_def_tavv_rec);
2911: x_tavv_rec := l_def_tavv_rec;
2912: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2908: RAISE OKC_API.G_EXCEPTION_ERROR;
2909: END IF;
2910: migrate(lx_tve_rec, l_def_tavv_rec);
2911: x_tavv_rec := l_def_tavv_rec;
2912: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2913: EXCEPTION
2914: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2915: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2916: (
2910: migrate(lx_tve_rec, l_def_tavv_rec);
2911: x_tavv_rec := l_def_tavv_rec;
2912: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2913: EXCEPTION
2914: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2915: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2916: (
2917: l_api_name,
2918: G_PKG_NAME,
2911: x_tavv_rec := l_def_tavv_rec;
2912: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2913: EXCEPTION
2914: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2915: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2916: (
2917: l_api_name,
2918: G_PKG_NAME,
2919: 'OKC_API.G_RET_STS_ERROR',
2915: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2916: (
2917: l_api_name,
2918: G_PKG_NAME,
2919: 'OKC_API.G_RET_STS_ERROR',
2920: x_msg_count,
2921: x_msg_data,
2922: '_PVT'
2923: );
2920: x_msg_count,
2921: x_msg_data,
2922: '_PVT'
2923: );
2924: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2925: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2926: (
2927: l_api_name,
2928: G_PKG_NAME,
2921: x_msg_data,
2922: '_PVT'
2923: );
2924: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2925: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2926: (
2927: l_api_name,
2928: G_PKG_NAME,
2929: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2925: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2926: (
2927: l_api_name,
2928: G_PKG_NAME,
2929: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2930: x_msg_count,
2931: x_msg_data,
2932: '_PVT'
2933: );
2931: x_msg_data,
2932: '_PVT'
2933: );
2934: WHEN OTHERS THEN
2935: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2936: (
2937: l_api_name,
2938: G_PKG_NAME,
2939: 'OTHERS',
2955: x_tavv_tbl OUT NOCOPY tavv_tbl_type) IS
2956:
2957: l_api_version CONSTANT NUMBER := 1;
2958: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
2959: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2960: i NUMBER := 0;
2961: BEGIN
2962: -- Make sure PL/SQL table has records in it before passing
2963: IF (p_tavv_tbl.COUNT > 0) THEN
2975: i := p_tavv_tbl.NEXT(i);
2976: END LOOP;
2977: END IF;
2978: EXCEPTION
2979: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2980: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2981: (
2982: l_api_name,
2983: G_PKG_NAME,
2976: END LOOP;
2977: END IF;
2978: EXCEPTION
2979: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2980: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2981: (
2982: l_api_name,
2983: G_PKG_NAME,
2984: 'OKC_API.G_RET_STS_ERROR',
2980: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2981: (
2982: l_api_name,
2983: G_PKG_NAME,
2984: 'OKC_API.G_RET_STS_ERROR',
2985: x_msg_count,
2986: x_msg_data,
2987: '_PVT'
2988: );
2985: x_msg_count,
2986: x_msg_data,
2987: '_PVT'
2988: );
2989: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2990: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2991: (
2992: l_api_name,
2993: G_PKG_NAME,
2986: x_msg_data,
2987: '_PVT'
2988: );
2989: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2990: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2991: (
2992: l_api_name,
2993: G_PKG_NAME,
2994: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2990: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2991: (
2992: l_api_name,
2993: G_PKG_NAME,
2994: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2995: x_msg_count,
2996: x_msg_data,
2997: '_PVT'
2998: );
2996: x_msg_data,
2997: '_PVT'
2998: );
2999: WHEN OTHERS THEN
3000: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3001: (
3002: l_api_name,
3003: G_PKG_NAME,
3004: 'OTHERS',
3022: p_tve_rec IN tve_rec_type) IS
3023:
3024: l_api_version CONSTANT NUMBER := 1;
3025: l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
3026: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3027: l_tve_rec tve_rec_type:= p_tve_rec;
3028: l_row_notfound BOOLEAN := TRUE;
3029: BEGIN
3030: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3026: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3027: l_tve_rec tve_rec_type:= p_tve_rec;
3028: l_row_notfound BOOLEAN := TRUE;
3029: BEGIN
3030: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3031: p_init_msg_list,
3032: '_PVT',
3033: x_return_status);
3034: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3030: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3031: p_init_msg_list,
3032: '_PVT',
3033: x_return_status);
3034: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3035: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3036: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3037: RAISE OKC_API.G_EXCEPTION_ERROR;
3038: END IF;
3031: p_init_msg_list,
3032: '_PVT',
3033: x_return_status);
3034: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3035: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3036: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3037: RAISE OKC_API.G_EXCEPTION_ERROR;
3038: END IF;
3039: DELETE FROM OKC_TIMEVALUES
3032: '_PVT',
3033: x_return_status);
3034: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3035: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3036: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3037: RAISE OKC_API.G_EXCEPTION_ERROR;
3038: END IF;
3039: DELETE FROM OKC_TIMEVALUES
3040: WHERE ID = l_tve_rec.id;
3033: x_return_status);
3034: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3035: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3036: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3037: RAISE OKC_API.G_EXCEPTION_ERROR;
3038: END IF;
3039: DELETE FROM OKC_TIMEVALUES
3040: WHERE ID = l_tve_rec.id;
3041:
3038: END IF;
3039: DELETE FROM OKC_TIMEVALUES
3040: WHERE ID = l_tve_rec.id;
3041:
3042: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3043: EXCEPTION
3044: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3045: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3046: (
3040: WHERE ID = l_tve_rec.id;
3041:
3042: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3043: EXCEPTION
3044: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3045: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3046: (
3047: l_api_name,
3048: G_PKG_NAME,
3041:
3042: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3043: EXCEPTION
3044: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3045: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3046: (
3047: l_api_name,
3048: G_PKG_NAME,
3049: 'OKC_API.G_RET_STS_ERROR',
3045: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3046: (
3047: l_api_name,
3048: G_PKG_NAME,
3049: 'OKC_API.G_RET_STS_ERROR',
3050: x_msg_count,
3051: x_msg_data,
3052: '_PVT'
3053: );
3050: x_msg_count,
3051: x_msg_data,
3052: '_PVT'
3053: );
3054: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3055: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3056: (
3057: l_api_name,
3058: G_PKG_NAME,
3051: x_msg_data,
3052: '_PVT'
3053: );
3054: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3055: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3056: (
3057: l_api_name,
3058: G_PKG_NAME,
3059: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3055: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3056: (
3057: l_api_name,
3058: G_PKG_NAME,
3059: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3060: x_msg_count,
3061: x_msg_data,
3062: '_PVT'
3063: );
3061: x_msg_data,
3062: '_PVT'
3063: );
3064: WHEN OTHERS THEN
3065: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3066: (
3067: l_api_name,
3068: G_PKG_NAME,
3069: 'OTHERS',
3083: p_okc_timevalues_tl_rec IN okc_timevalues_tl_rec_type) IS
3084:
3085: l_api_version CONSTANT NUMBER := 1;
3086: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
3087: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3088: l_okc_timevalues_tl_rec okc_timevalues_tl_rec_type:= p_okc_timevalues_tl_rec;
3089: l_row_notfound BOOLEAN := TRUE;
3090: ------------------------------------------
3091: -- Set_Attributes for:OKC_TIMEVALUES_TL --
3093: FUNCTION Set_Attributes (
3094: p_okc_timevalues_tl_rec IN okc_timevalues_tl_rec_type,
3095: x_okc_timevalues_tl_rec OUT NOCOPY okc_timevalues_tl_rec_type
3096: ) RETURN VARCHAR2 IS
3097: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3098: BEGIN
3099: x_okc_timevalues_tl_rec := p_okc_timevalues_tl_rec;
3100: x_okc_timevalues_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
3101: RETURN(l_return_status);
3100: x_okc_timevalues_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
3101: RETURN(l_return_status);
3102: END Set_Attributes;
3103: BEGIN
3104: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3105: p_init_msg_list,
3106: '_PVT',
3107: x_return_status);
3108: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3104: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3105: p_init_msg_list,
3106: '_PVT',
3107: x_return_status);
3108: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3109: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3110: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3111: RAISE OKC_API.G_EXCEPTION_ERROR;
3112: END IF;
3105: p_init_msg_list,
3106: '_PVT',
3107: x_return_status);
3108: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3109: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3110: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3111: RAISE OKC_API.G_EXCEPTION_ERROR;
3112: END IF;
3113: --- Setting item attributes
3106: '_PVT',
3107: x_return_status);
3108: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3109: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3110: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3111: RAISE OKC_API.G_EXCEPTION_ERROR;
3112: END IF;
3113: --- Setting item attributes
3114: l_return_status := Set_Attributes(
3107: x_return_status);
3108: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3109: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3110: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3111: RAISE OKC_API.G_EXCEPTION_ERROR;
3112: END IF;
3113: --- Setting item attributes
3114: l_return_status := Set_Attributes(
3115: p_okc_timevalues_tl_rec, -- IN
3114: l_return_status := Set_Attributes(
3115: p_okc_timevalues_tl_rec, -- IN
3116: l_okc_timevalues_tl_rec); -- OUT
3117: --- If any errors happen abort API
3118: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3119: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3120: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3121: RAISE OKC_API.G_EXCEPTION_ERROR;
3122: END IF;
3115: p_okc_timevalues_tl_rec, -- IN
3116: l_okc_timevalues_tl_rec); -- OUT
3117: --- If any errors happen abort API
3118: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3119: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3120: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3121: RAISE OKC_API.G_EXCEPTION_ERROR;
3122: END IF;
3123: DELETE FROM OKC_TIMEVALUES_TL
3116: l_okc_timevalues_tl_rec); -- OUT
3117: --- If any errors happen abort API
3118: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3119: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3120: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3121: RAISE OKC_API.G_EXCEPTION_ERROR;
3122: END IF;
3123: DELETE FROM OKC_TIMEVALUES_TL
3124: WHERE ID = l_okc_timevalues_tl_rec.id;
3117: --- If any errors happen abort API
3118: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3119: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3120: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3121: RAISE OKC_API.G_EXCEPTION_ERROR;
3122: END IF;
3123: DELETE FROM OKC_TIMEVALUES_TL
3124: WHERE ID = l_okc_timevalues_tl_rec.id;
3125:
3122: END IF;
3123: DELETE FROM OKC_TIMEVALUES_TL
3124: WHERE ID = l_okc_timevalues_tl_rec.id;
3125:
3126: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3127: EXCEPTION
3128: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3129: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3130: (
3124: WHERE ID = l_okc_timevalues_tl_rec.id;
3125:
3126: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3127: EXCEPTION
3128: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3129: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3130: (
3131: l_api_name,
3132: G_PKG_NAME,
3125:
3126: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3127: EXCEPTION
3128: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3129: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3130: (
3131: l_api_name,
3132: G_PKG_NAME,
3133: 'OKC_API.G_RET_STS_ERROR',
3129: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3130: (
3131: l_api_name,
3132: G_PKG_NAME,
3133: 'OKC_API.G_RET_STS_ERROR',
3134: x_msg_count,
3135: x_msg_data,
3136: '_PVT'
3137: );
3134: x_msg_count,
3135: x_msg_data,
3136: '_PVT'
3137: );
3138: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3139: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3140: (
3141: l_api_name,
3142: G_PKG_NAME,
3135: x_msg_data,
3136: '_PVT'
3137: );
3138: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3139: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3140: (
3141: l_api_name,
3142: G_PKG_NAME,
3143: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3139: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3140: (
3141: l_api_name,
3142: G_PKG_NAME,
3143: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3144: x_msg_count,
3145: x_msg_data,
3146: '_PVT'
3147: );
3145: x_msg_data,
3146: '_PVT'
3147: );
3148: WHEN OTHERS THEN
3149: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3150: (
3151: l_api_name,
3152: G_PKG_NAME,
3153: 'OTHERS',
3169: p_tavv_rec IN tavv_rec_type) IS
3170:
3171: l_api_version CONSTANT NUMBER := 1;
3172: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
3173: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3174: l_tavv_rec tavv_rec_type := p_tavv_rec;
3175: --Bug 3122962 l_okc_timevalues_tl_rec okc_timevalues_tl_rec_type;
3176: l_tve_rec tve_rec_type;
3177: BEGIN
3174: l_tavv_rec tavv_rec_type := p_tavv_rec;
3175: --Bug 3122962 l_okc_timevalues_tl_rec okc_timevalues_tl_rec_type;
3176: l_tve_rec tve_rec_type;
3177: BEGIN
3178: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3179: G_PKG_NAME,
3180: p_init_msg_list,
3181: l_api_version,
3182: p_api_version,
3181: l_api_version,
3182: p_api_version,
3183: '_PVT',
3184: x_return_status);
3185: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3186: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3187: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3188: RAISE OKC_API.G_EXCEPTION_ERROR;
3189: END IF;
3182: p_api_version,
3183: '_PVT',
3184: x_return_status);
3185: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3186: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3187: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3188: RAISE OKC_API.G_EXCEPTION_ERROR;
3189: END IF;
3190: --------------------------------------
3183: '_PVT',
3184: x_return_status);
3185: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3186: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3187: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3188: RAISE OKC_API.G_EXCEPTION_ERROR;
3189: END IF;
3190: --------------------------------------
3191: -- Move VIEW record to "Child" records
3184: x_return_status);
3185: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3186: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3187: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3188: RAISE OKC_API.G_EXCEPTION_ERROR;
3189: END IF;
3190: --------------------------------------
3191: -- Move VIEW record to "Child" records
3192: --------------------------------------
3201: x_msg_count,
3202: x_msg_data,
3203: l_okc_timevalues_tl_rec
3204: );
3205: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3206: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3207: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3208: RAISE OKC_API.G_EXCEPTION_ERROR;
3209: END IF;
3202: x_msg_data,
3203: l_okc_timevalues_tl_rec
3204: );
3205: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3206: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3207: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3208: RAISE OKC_API.G_EXCEPTION_ERROR;
3209: END IF;
3210: */
3203: l_okc_timevalues_tl_rec
3204: );
3205: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3206: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3207: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3208: RAISE OKC_API.G_EXCEPTION_ERROR;
3209: END IF;
3210: */
3211: delete_row(
3204: );
3205: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3206: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3207: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3208: RAISE OKC_API.G_EXCEPTION_ERROR;
3209: END IF;
3210: */
3211: delete_row(
3212: p_init_msg_list,
3214: x_msg_count,
3215: x_msg_data,
3216: l_tve_rec
3217: );
3218: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3219: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3220: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3221: RAISE OKC_API.G_EXCEPTION_ERROR;
3222: END IF;
3215: x_msg_data,
3216: l_tve_rec
3217: );
3218: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3219: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3220: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3221: RAISE OKC_API.G_EXCEPTION_ERROR;
3222: END IF;
3223: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3216: l_tve_rec
3217: );
3218: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3219: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3220: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3221: RAISE OKC_API.G_EXCEPTION_ERROR;
3222: END IF;
3223: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3224: EXCEPTION
3217: );
3218: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3219: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3220: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3221: RAISE OKC_API.G_EXCEPTION_ERROR;
3222: END IF;
3223: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3224: EXCEPTION
3225: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3219: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3220: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3221: RAISE OKC_API.G_EXCEPTION_ERROR;
3222: END IF;
3223: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3224: EXCEPTION
3225: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3226: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3227: (
3221: RAISE OKC_API.G_EXCEPTION_ERROR;
3222: END IF;
3223: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3224: EXCEPTION
3225: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3226: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3227: (
3228: l_api_name,
3229: G_PKG_NAME,
3222: END IF;
3223: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3224: EXCEPTION
3225: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3226: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3227: (
3228: l_api_name,
3229: G_PKG_NAME,
3230: 'OKC_API.G_RET_STS_ERROR',
3226: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3227: (
3228: l_api_name,
3229: G_PKG_NAME,
3230: 'OKC_API.G_RET_STS_ERROR',
3231: x_msg_count,
3232: x_msg_data,
3233: '_PVT'
3234: );
3231: x_msg_count,
3232: x_msg_data,
3233: '_PVT'
3234: );
3235: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3236: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3237: (
3238: l_api_name,
3239: G_PKG_NAME,
3232: x_msg_data,
3233: '_PVT'
3234: );
3235: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3236: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3237: (
3238: l_api_name,
3239: G_PKG_NAME,
3240: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3236: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3237: (
3238: l_api_name,
3239: G_PKG_NAME,
3240: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3241: x_msg_count,
3242: x_msg_data,
3243: '_PVT'
3244: );
3242: x_msg_data,
3243: '_PVT'
3244: );
3245: WHEN OTHERS THEN
3246: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3247: (
3248: l_api_name,
3249: G_PKG_NAME,
3250: 'OTHERS',
3265: p_tavv_tbl IN tavv_tbl_type) IS
3266:
3267: l_api_version CONSTANT NUMBER := 1;
3268: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3269: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3270: i NUMBER := 0;
3271: BEGIN
3272: -- Make sure PL/SQL table has records in it before passing
3273: IF (p_tavv_tbl.COUNT > 0) THEN
3284: i := p_tavv_tbl.NEXT(i);
3285: END LOOP;
3286: END IF;
3287: EXCEPTION
3288: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3289: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3290: (
3291: l_api_name,
3292: G_PKG_NAME,
3285: END LOOP;
3286: END IF;
3287: EXCEPTION
3288: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3289: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3290: (
3291: l_api_name,
3292: G_PKG_NAME,
3293: 'OKC_API.G_RET_STS_ERROR',
3289: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3290: (
3291: l_api_name,
3292: G_PKG_NAME,
3293: 'OKC_API.G_RET_STS_ERROR',
3294: x_msg_count,
3295: x_msg_data,
3296: '_PVT'
3297: );
3294: x_msg_count,
3295: x_msg_data,
3296: '_PVT'
3297: );
3298: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3299: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3300: (
3301: l_api_name,
3302: G_PKG_NAME,
3295: x_msg_data,
3296: '_PVT'
3297: );
3298: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3299: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3300: (
3301: l_api_name,
3302: G_PKG_NAME,
3303: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3299: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3300: (
3301: l_api_name,
3302: G_PKG_NAME,
3303: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3304: x_msg_count,
3305: x_msg_data,
3306: '_PVT'
3307: );
3305: x_msg_data,
3306: '_PVT'
3307: );
3308: WHEN OTHERS THEN
3309: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3310: (
3311: l_api_name,
3312: G_PKG_NAME,
3313: 'OTHERS',
3325: p_chr_id IN NUMBER,
3326: p_major_version IN NUMBER
3327: ) RETURN VARCHAR2 IS
3328:
3329: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
3330:
3331: BEGIN
3332: INSERT INTO okc_timevalues_h
3333: (
3488: EXCEPTION
3489: -- other appropriate handlers
3490: WHEN OTHERS THEN
3491: -- store SQL error message on message stack
3492: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
3493: p_msg_name => okc_version_pvt.G_UNEXPECTED_ERROR,
3494: p_token1 => okc_version_pvt.G_SQLCODE_TOKEN,
3495: p_token1_value => sqlcode,
3496: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
3496: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
3497: p_token2_value => sqlerrm);
3498:
3499: -- notify UNEXPECTED error
3500: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3501: return l_return_status;
3502: END create_version;
3503:
3504: --This Function is called from Versioning API OKC_VERSION_PVT
3509: p_chr_id IN NUMBER,
3510: p_major_version IN NUMBER
3511: ) RETURN VARCHAR2 IS
3512:
3513: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
3514:
3515: BEGIN
3516: --Bug 3122962
3517: /*
3671: EXCEPTION
3672: -- other appropriate handlers
3673: WHEN OTHERS THEN
3674: -- store SQL error message on message stack
3675: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
3676: p_msg_name => okc_version_pvt.G_UNEXPECTED_ERROR,
3677: p_token1 => okc_version_pvt.G_SQLCODE_TOKEN,
3678: p_token1_value => sqlcode,
3679: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
3679: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
3680: p_token2_value => sqlerrm);
3681:
3682: -- notify UNEXPECTED error
3683: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3684: return l_return_status;
3685: END restore_version;
3686:
3687: END OKC_TAV_PVT;