334: p_sfev_rec IN sfev_rec_type
335: ) RETURN sfev_rec_type IS
336: l_sfev_rec sfev_rec_type := p_sfev_rec;
337: BEGIN
338: IF (l_sfev_rec.sfe_type = OKC_API.G_MISS_CHAR) THEN
339: l_sfev_rec.sfe_type := NULL;
340: END IF;
341: IF (l_sfev_rec.date_start = OKC_API.G_MISS_DATE) THEN
342: l_sfev_rec.date_start := NULL;
337: BEGIN
338: IF (l_sfev_rec.sfe_type = OKC_API.G_MISS_CHAR) THEN
339: l_sfev_rec.sfe_type := NULL;
340: END IF;
341: IF (l_sfev_rec.date_start = OKC_API.G_MISS_DATE) THEN
342: l_sfev_rec.date_start := NULL;
343: END IF;
344: IF (l_sfev_rec.date_paid = OKC_API.G_MISS_DATE) THEN
345: l_sfev_rec.date_paid := NULL;
340: END IF;
341: IF (l_sfev_rec.date_start = OKC_API.G_MISS_DATE) THEN
342: l_sfev_rec.date_start := NULL;
343: END IF;
344: IF (l_sfev_rec.date_paid = OKC_API.G_MISS_DATE) THEN
345: l_sfev_rec.date_paid := NULL;
346: END IF;
347: IF (l_sfev_rec.amount = OKC_API.G_MISS_NUM) THEN
348: l_sfev_rec.amount := NULL;
343: END IF;
344: IF (l_sfev_rec.date_paid = OKC_API.G_MISS_DATE) THEN
345: l_sfev_rec.date_paid := NULL;
346: END IF;
347: IF (l_sfev_rec.amount = OKC_API.G_MISS_NUM) THEN
348: l_sfev_rec.amount := NULL;
349: END IF;
350: IF (l_sfev_rec.idc_accounting_flag = OKC_API.G_MISS_CHAR) THEN
351: l_sfev_rec.idc_accounting_flag := NULL;
346: END IF;
347: IF (l_sfev_rec.amount = OKC_API.G_MISS_NUM) THEN
348: l_sfev_rec.amount := NULL;
349: END IF;
350: IF (l_sfev_rec.idc_accounting_flag = OKC_API.G_MISS_CHAR) THEN
351: l_sfev_rec.idc_accounting_flag := NULL;
352: END IF;
353: IF (l_sfev_rec.income_or_expense = OKC_API.G_MISS_CHAR) THEN
354: l_sfev_rec.income_or_expense := NULL;
349: END IF;
350: IF (l_sfev_rec.idc_accounting_flag = OKC_API.G_MISS_CHAR) THEN
351: l_sfev_rec.idc_accounting_flag := NULL;
352: END IF;
353: IF (l_sfev_rec.income_or_expense = OKC_API.G_MISS_CHAR) THEN
354: l_sfev_rec.income_or_expense := NULL;
355: END IF;
356: IF (l_sfev_rec.description = OKC_API.G_MISS_CHAR) THEN
357: l_sfev_rec.description := NULL;
352: END IF;
353: IF (l_sfev_rec.income_or_expense = OKC_API.G_MISS_CHAR) THEN
354: l_sfev_rec.income_or_expense := NULL;
355: END IF;
356: IF (l_sfev_rec.description = OKC_API.G_MISS_CHAR) THEN
357: l_sfev_rec.description := NULL;
358: END IF;
359: IF (l_sfev_rec.fee_index_number = OKC_API.G_MISS_NUM) THEN
360: l_sfev_rec.fee_index_number := NULL;
355: END IF;
356: IF (l_sfev_rec.description = OKC_API.G_MISS_CHAR) THEN
357: l_sfev_rec.description := NULL;
358: END IF;
359: IF (l_sfev_rec.fee_index_number = OKC_API.G_MISS_NUM) THEN
360: l_sfev_rec.fee_index_number := NULL;
361: END IF;
362: IF (l_sfev_rec.level_index_number = OKC_API.G_MISS_NUM) THEN
363: l_sfev_rec.level_index_number := NULL;
358: END IF;
359: IF (l_sfev_rec.fee_index_number = OKC_API.G_MISS_NUM) THEN
360: l_sfev_rec.fee_index_number := NULL;
361: END IF;
362: IF (l_sfev_rec.level_index_number = OKC_API.G_MISS_NUM) THEN
363: l_sfev_rec.level_index_number := NULL;
364:
365: END IF;
366: IF (l_sfev_rec.advance_or_arrears = OKC_API.G_MISS_CHAR) THEN
362: IF (l_sfev_rec.level_index_number = OKC_API.G_MISS_NUM) THEN
363: l_sfev_rec.level_index_number := NULL;
364:
365: END IF;
366: IF (l_sfev_rec.advance_or_arrears = OKC_API.G_MISS_CHAR) THEN
367: l_sfev_rec.advance_or_arrears := NULL;
368: END IF;
369:
370: IF (l_sfev_rec.cash_effect_yn = OKC_API.G_MISS_CHAR) THEN
366: IF (l_sfev_rec.advance_or_arrears = OKC_API.G_MISS_CHAR) THEN
367: l_sfev_rec.advance_or_arrears := NULL;
368: END IF;
369:
370: IF (l_sfev_rec.cash_effect_yn = OKC_API.G_MISS_CHAR) THEN
371: l_sfev_rec.cash_effect_yn := NULL;
372: END IF;
373:
374: IF (l_sfev_rec.tax_effect_yn = OKC_API.G_MISS_CHAR) THEN
370: IF (l_sfev_rec.cash_effect_yn = OKC_API.G_MISS_CHAR) THEN
371: l_sfev_rec.cash_effect_yn := NULL;
372: END IF;
373:
374: IF (l_sfev_rec.tax_effect_yn = OKC_API.G_MISS_CHAR) THEN
375: l_sfev_rec.tax_effect_yn := NULL;
376: END IF;
377:
378: IF (l_sfev_rec.days_in_month = OKC_API.G_MISS_CHAR) THEN
374: IF (l_sfev_rec.tax_effect_yn = OKC_API.G_MISS_CHAR) THEN
375: l_sfev_rec.tax_effect_yn := NULL;
376: END IF;
377:
378: IF (l_sfev_rec.days_in_month = OKC_API.G_MISS_CHAR) THEN
379: l_sfev_rec.days_in_month := NULL;
380: END IF;
381:
382: IF (l_sfev_rec.days_in_year = OKC_API.G_MISS_CHAR) THEN
378: IF (l_sfev_rec.days_in_month = OKC_API.G_MISS_CHAR) THEN
379: l_sfev_rec.days_in_month := NULL;
380: END IF;
381:
382: IF (l_sfev_rec.days_in_year = OKC_API.G_MISS_CHAR) THEN
383: l_sfev_rec.days_in_year := NULL;
384: END IF;
385:
386: IF (l_sfev_rec.balance_type_code = OKC_API.G_MISS_CHAR) THEN
382: IF (l_sfev_rec.days_in_year = OKC_API.G_MISS_CHAR) THEN
383: l_sfev_rec.days_in_year := NULL;
384: END IF;
385:
386: IF (l_sfev_rec.balance_type_code = OKC_API.G_MISS_CHAR) THEN
387: l_sfev_rec.balance_type_code := NULL;
388: END IF;
389:
390: IF (l_sfev_rec.level_type = OKC_API.G_MISS_CHAR) THEN
386: IF (l_sfev_rec.balance_type_code = OKC_API.G_MISS_CHAR) THEN
387: l_sfev_rec.balance_type_code := NULL;
388: END IF;
389:
390: IF (l_sfev_rec.level_type = OKC_API.G_MISS_CHAR) THEN
391: l_sfev_rec.level_type := NULL;
392: END IF;
393: IF (l_sfev_rec.lock_level_step = OKC_API.G_MISS_CHAR) THEN
394: l_sfev_rec.lock_level_step := NULL;
389:
390: IF (l_sfev_rec.level_type = OKC_API.G_MISS_CHAR) THEN
391: l_sfev_rec.level_type := NULL;
392: END IF;
393: IF (l_sfev_rec.lock_level_step = OKC_API.G_MISS_CHAR) THEN
394: l_sfev_rec.lock_level_step := NULL;
395: END IF;
396: IF (l_sfev_rec.period = OKC_API.G_MISS_CHAR) THEN
397: l_sfev_rec.period := NULL;
392: END IF;
393: IF (l_sfev_rec.lock_level_step = OKC_API.G_MISS_CHAR) THEN
394: l_sfev_rec.lock_level_step := NULL;
395: END IF;
396: IF (l_sfev_rec.period = OKC_API.G_MISS_CHAR) THEN
397: l_sfev_rec.period := NULL;
398: END IF;
399: IF (l_sfev_rec.number_of_periods = OKC_API.G_MISS_NUM) THEN
400: l_sfev_rec.number_of_periods := NULL;
395: END IF;
396: IF (l_sfev_rec.period = OKC_API.G_MISS_CHAR) THEN
397: l_sfev_rec.period := NULL;
398: END IF;
399: IF (l_sfev_rec.number_of_periods = OKC_API.G_MISS_NUM) THEN
400: l_sfev_rec.number_of_periods := NULL;
401: END IF;
402: IF (l_sfev_rec.level_line_number = OKC_API.G_MISS_NUM) THEN
403: l_sfev_rec.level_line_number := NULL;
398: END IF;
399: IF (l_sfev_rec.number_of_periods = OKC_API.G_MISS_NUM) THEN
400: l_sfev_rec.number_of_periods := NULL;
401: END IF;
402: IF (l_sfev_rec.level_line_number = OKC_API.G_MISS_NUM) THEN
403: l_sfev_rec.level_line_number := NULL;
404: END IF;
405: IF (l_sfev_rec.sif_id = OKC_API.G_MISS_NUM) THEN
406: l_sfev_rec.sif_id := NULL;
401: END IF;
402: IF (l_sfev_rec.level_line_number = OKC_API.G_MISS_NUM) THEN
403: l_sfev_rec.level_line_number := NULL;
404: END IF;
405: IF (l_sfev_rec.sif_id = OKC_API.G_MISS_NUM) THEN
406: l_sfev_rec.sif_id := NULL;
407: END IF;
408: IF (l_sfev_rec.kle_id = OKC_API.G_MISS_NUM) THEN
409: l_sfev_rec.kle_id := NULL;
404: END IF;
405: IF (l_sfev_rec.sif_id = OKC_API.G_MISS_NUM) THEN
406: l_sfev_rec.sif_id := NULL;
407: END IF;
408: IF (l_sfev_rec.kle_id = OKC_API.G_MISS_NUM) THEN
409: l_sfev_rec.kle_id := NULL;
410: END IF;
411: IF (l_sfev_rec.sil_id = OKC_API.G_MISS_NUM) THEN
412: l_sfev_rec.sil_id := NULL;
407: END IF;
408: IF (l_sfev_rec.kle_id = OKC_API.G_MISS_NUM) THEN
409: l_sfev_rec.kle_id := NULL;
410: END IF;
411: IF (l_sfev_rec.sil_id = OKC_API.G_MISS_NUM) THEN
412: l_sfev_rec.sil_id := NULL;
413: END IF;
414: IF (l_sfev_rec.rate = OKC_API.G_MISS_NUM) THEN
415: l_sfev_rec.rate := NULL;
410: END IF;
411: IF (l_sfev_rec.sil_id = OKC_API.G_MISS_NUM) THEN
412: l_sfev_rec.sil_id := NULL;
413: END IF;
414: IF (l_sfev_rec.rate = OKC_API.G_MISS_NUM) THEN
415: l_sfev_rec.rate := NULL;
416: END IF;
417: -- mvasudev, 05/13/2002
418: IF (l_sfev_rec.query_level_yn = OKC_API.G_MISS_CHAR) THEN
414: IF (l_sfev_rec.rate = OKC_API.G_MISS_NUM) THEN
415: l_sfev_rec.rate := NULL;
416: END IF;
417: -- mvasudev, 05/13/2002
418: IF (l_sfev_rec.query_level_yn = OKC_API.G_MISS_CHAR) THEN
419: l_sfev_rec.query_level_yn := NULL;
420: END IF;
421: IF (l_sfev_rec.structure = OKC_API.G_MISS_CHAR) THEN
422: l_sfev_rec.structure := NULL;
417: -- mvasudev, 05/13/2002
418: IF (l_sfev_rec.query_level_yn = OKC_API.G_MISS_CHAR) THEN
419: l_sfev_rec.query_level_yn := NULL;
420: END IF;
421: IF (l_sfev_rec.structure = OKC_API.G_MISS_CHAR) THEN
422: l_sfev_rec.structure := NULL;
423: END IF;
424: IF (l_sfev_rec.DAYS_IN_PERIOD = OKC_API.G_MISS_NUM) THEN
425: l_sfev_rec.DAYS_IN_PERIOD := NULL;
420: END IF;
421: IF (l_sfev_rec.structure = OKC_API.G_MISS_CHAR) THEN
422: l_sfev_rec.structure := NULL;
423: END IF;
424: IF (l_sfev_rec.DAYS_IN_PERIOD = OKC_API.G_MISS_NUM) THEN
425: l_sfev_rec.DAYS_IN_PERIOD := NULL;
426: END IF;
427: --
428: IF (l_sfev_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
424: IF (l_sfev_rec.DAYS_IN_PERIOD = OKC_API.G_MISS_NUM) THEN
425: l_sfev_rec.DAYS_IN_PERIOD := NULL;
426: END IF;
427: --
428: IF (l_sfev_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
429: l_sfev_rec.object_version_number := NULL;
430: END IF;
431: IF (l_sfev_rec.stream_interface_attribute01 = OKC_API.G_MISS_CHAR) THEN
432: l_sfev_rec.stream_interface_attribute01 := NULL;
427: --
428: IF (l_sfev_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
429: l_sfev_rec.object_version_number := NULL;
430: END IF;
431: IF (l_sfev_rec.stream_interface_attribute01 = OKC_API.G_MISS_CHAR) THEN
432: l_sfev_rec.stream_interface_attribute01 := NULL;
433: END IF;
434: IF (l_sfev_rec.stream_interface_attribute02 = OKC_API.G_MISS_CHAR) THEN
435: l_sfev_rec.stream_interface_attribute02 := NULL;
430: END IF;
431: IF (l_sfev_rec.stream_interface_attribute01 = OKC_API.G_MISS_CHAR) THEN
432: l_sfev_rec.stream_interface_attribute01 := NULL;
433: END IF;
434: IF (l_sfev_rec.stream_interface_attribute02 = OKC_API.G_MISS_CHAR) THEN
435: l_sfev_rec.stream_interface_attribute02 := NULL;
436: END IF;
437: IF (l_sfev_rec.stream_interface_attribute03 = OKC_API.G_MISS_CHAR) THEN
438: l_sfev_rec.stream_interface_attribute03 := NULL;
433: END IF;
434: IF (l_sfev_rec.stream_interface_attribute02 = OKC_API.G_MISS_CHAR) THEN
435: l_sfev_rec.stream_interface_attribute02 := NULL;
436: END IF;
437: IF (l_sfev_rec.stream_interface_attribute03 = OKC_API.G_MISS_CHAR) THEN
438: l_sfev_rec.stream_interface_attribute03 := NULL;
439: END IF;
440: IF (l_sfev_rec.stream_interface_attribute04 = OKC_API.G_MISS_CHAR) THEN
441: l_sfev_rec.stream_interface_attribute04 := NULL;
436: END IF;
437: IF (l_sfev_rec.stream_interface_attribute03 = OKC_API.G_MISS_CHAR) THEN
438: l_sfev_rec.stream_interface_attribute03 := NULL;
439: END IF;
440: IF (l_sfev_rec.stream_interface_attribute04 = OKC_API.G_MISS_CHAR) THEN
441: l_sfev_rec.stream_interface_attribute04 := NULL;
442: END IF;
443: IF (l_sfev_rec.stream_interface_attribute05 = OKC_API.G_MISS_CHAR) THEN
444: l_sfev_rec.stream_interface_attribute05 := NULL;
439: END IF;
440: IF (l_sfev_rec.stream_interface_attribute04 = OKC_API.G_MISS_CHAR) THEN
441: l_sfev_rec.stream_interface_attribute04 := NULL;
442: END IF;
443: IF (l_sfev_rec.stream_interface_attribute05 = OKC_API.G_MISS_CHAR) THEN
444: l_sfev_rec.stream_interface_attribute05 := NULL;
445: END IF;
446: IF (l_sfev_rec.stream_interface_attribute06 = OKC_API.G_MISS_CHAR) THEN
447: l_sfev_rec.stream_interface_attribute06 := NULL;
442: END IF;
443: IF (l_sfev_rec.stream_interface_attribute05 = OKC_API.G_MISS_CHAR) THEN
444: l_sfev_rec.stream_interface_attribute05 := NULL;
445: END IF;
446: IF (l_sfev_rec.stream_interface_attribute06 = OKC_API.G_MISS_CHAR) THEN
447: l_sfev_rec.stream_interface_attribute06 := NULL;
448: END IF;
449: IF (l_sfev_rec.stream_interface_attribute07 = OKC_API.G_MISS_CHAR) THEN
450: l_sfev_rec.stream_interface_attribute07 := NULL;
445: END IF;
446: IF (l_sfev_rec.stream_interface_attribute06 = OKC_API.G_MISS_CHAR) THEN
447: l_sfev_rec.stream_interface_attribute06 := NULL;
448: END IF;
449: IF (l_sfev_rec.stream_interface_attribute07 = OKC_API.G_MISS_CHAR) THEN
450: l_sfev_rec.stream_interface_attribute07 := NULL;
451: END IF;
452: IF (l_sfev_rec.stream_interface_attribute08 = OKC_API.G_MISS_CHAR) THEN
453: l_sfev_rec.stream_interface_attribute08 := NULL;
448: END IF;
449: IF (l_sfev_rec.stream_interface_attribute07 = OKC_API.G_MISS_CHAR) THEN
450: l_sfev_rec.stream_interface_attribute07 := NULL;
451: END IF;
452: IF (l_sfev_rec.stream_interface_attribute08 = OKC_API.G_MISS_CHAR) THEN
453: l_sfev_rec.stream_interface_attribute08 := NULL;
454: END IF;
455: IF (l_sfev_rec.stream_interface_attribute09 = OKC_API.G_MISS_CHAR) THEN
456: l_sfev_rec.stream_interface_attribute09 := NULL;
451: END IF;
452: IF (l_sfev_rec.stream_interface_attribute08 = OKC_API.G_MISS_CHAR) THEN
453: l_sfev_rec.stream_interface_attribute08 := NULL;
454: END IF;
455: IF (l_sfev_rec.stream_interface_attribute09 = OKC_API.G_MISS_CHAR) THEN
456: l_sfev_rec.stream_interface_attribute09 := NULL;
457: END IF;
458: IF (l_sfev_rec.stream_interface_attribute10 = OKC_API.G_MISS_CHAR) THEN
459: l_sfev_rec.stream_interface_attribute10 := NULL;
454: END IF;
455: IF (l_sfev_rec.stream_interface_attribute09 = OKC_API.G_MISS_CHAR) THEN
456: l_sfev_rec.stream_interface_attribute09 := NULL;
457: END IF;
458: IF (l_sfev_rec.stream_interface_attribute10 = OKC_API.G_MISS_CHAR) THEN
459: l_sfev_rec.stream_interface_attribute10 := NULL;
460: END IF;
461: IF (l_sfev_rec.stream_interface_attribute11 = OKC_API.G_MISS_CHAR) THEN
462: l_sfev_rec.stream_interface_attribute11 := NULL;
457: END IF;
458: IF (l_sfev_rec.stream_interface_attribute10 = OKC_API.G_MISS_CHAR) THEN
459: l_sfev_rec.stream_interface_attribute10 := NULL;
460: END IF;
461: IF (l_sfev_rec.stream_interface_attribute11 = OKC_API.G_MISS_CHAR) THEN
462: l_sfev_rec.stream_interface_attribute11 := NULL;
463: END IF;
464: IF (l_sfev_rec.stream_interface_attribute12 = OKC_API.G_MISS_CHAR) THEN
465: l_sfev_rec.stream_interface_attribute12 := NULL;
460: END IF;
461: IF (l_sfev_rec.stream_interface_attribute11 = OKC_API.G_MISS_CHAR) THEN
462: l_sfev_rec.stream_interface_attribute11 := NULL;
463: END IF;
464: IF (l_sfev_rec.stream_interface_attribute12 = OKC_API.G_MISS_CHAR) THEN
465: l_sfev_rec.stream_interface_attribute12 := NULL;
466: END IF;
467: IF (l_sfev_rec.stream_interface_attribute13 = OKC_API.G_MISS_CHAR) THEN
468: l_sfev_rec.stream_interface_attribute13 := NULL;
463: END IF;
464: IF (l_sfev_rec.stream_interface_attribute12 = OKC_API.G_MISS_CHAR) THEN
465: l_sfev_rec.stream_interface_attribute12 := NULL;
466: END IF;
467: IF (l_sfev_rec.stream_interface_attribute13 = OKC_API.G_MISS_CHAR) THEN
468: l_sfev_rec.stream_interface_attribute13 := NULL;
469: END IF;
470: IF (l_sfev_rec.stream_interface_attribute14 = OKC_API.G_MISS_CHAR) THEN
471: l_sfev_rec.stream_interface_attribute14 := NULL;
466: END IF;
467: IF (l_sfev_rec.stream_interface_attribute13 = OKC_API.G_MISS_CHAR) THEN
468: l_sfev_rec.stream_interface_attribute13 := NULL;
469: END IF;
470: IF (l_sfev_rec.stream_interface_attribute14 = OKC_API.G_MISS_CHAR) THEN
471: l_sfev_rec.stream_interface_attribute14 := NULL;
472: END IF;
473: IF (l_sfev_rec.stream_interface_attribute15 = OKC_API.G_MISS_CHAR) THEN
474: l_sfev_rec.stream_interface_attribute15 := NULL;
469: END IF;
470: IF (l_sfev_rec.stream_interface_attribute14 = OKC_API.G_MISS_CHAR) THEN
471: l_sfev_rec.stream_interface_attribute14 := NULL;
472: END IF;
473: IF (l_sfev_rec.stream_interface_attribute15 = OKC_API.G_MISS_CHAR) THEN
474: l_sfev_rec.stream_interface_attribute15 := NULL;
475: END IF;
476: IF (l_sfev_rec.stream_interface_attribute16 = OKC_API.G_MISS_CHAR) THEN
477: l_sfev_rec.stream_interface_attribute16 := NULL;
472: END IF;
473: IF (l_sfev_rec.stream_interface_attribute15 = OKC_API.G_MISS_CHAR) THEN
474: l_sfev_rec.stream_interface_attribute15 := NULL;
475: END IF;
476: IF (l_sfev_rec.stream_interface_attribute16 = OKC_API.G_MISS_CHAR) THEN
477: l_sfev_rec.stream_interface_attribute16 := NULL;
478: END IF;
479: IF (l_sfev_rec.stream_interface_attribute17 = OKC_API.G_MISS_CHAR) THEN
480: l_sfev_rec.stream_interface_attribute17 := NULL;
475: END IF;
476: IF (l_sfev_rec.stream_interface_attribute16 = OKC_API.G_MISS_CHAR) THEN
477: l_sfev_rec.stream_interface_attribute16 := NULL;
478: END IF;
479: IF (l_sfev_rec.stream_interface_attribute17 = OKC_API.G_MISS_CHAR) THEN
480: l_sfev_rec.stream_interface_attribute17 := NULL;
481: END IF;
482: IF (l_sfev_rec.stream_interface_attribute18 = OKC_API.G_MISS_CHAR) THEN
483: l_sfev_rec.stream_interface_attribute18 := NULL;
478: END IF;
479: IF (l_sfev_rec.stream_interface_attribute17 = OKC_API.G_MISS_CHAR) THEN
480: l_sfev_rec.stream_interface_attribute17 := NULL;
481: END IF;
482: IF (l_sfev_rec.stream_interface_attribute18 = OKC_API.G_MISS_CHAR) THEN
483: l_sfev_rec.stream_interface_attribute18 := NULL;
484: END IF;
485:
486: IF (l_sfev_rec.stream_interface_attribute19 = OKC_API.G_MISS_CHAR) THEN
482: IF (l_sfev_rec.stream_interface_attribute18 = OKC_API.G_MISS_CHAR) THEN
483: l_sfev_rec.stream_interface_attribute18 := NULL;
484: END IF;
485:
486: IF (l_sfev_rec.stream_interface_attribute19 = OKC_API.G_MISS_CHAR) THEN
487: l_sfev_rec.stream_interface_attribute19 := NULL;
488: END IF;
489: IF (l_sfev_rec.stream_interface_attribute20 = OKC_API.G_MISS_CHAR) THEN
490: l_sfev_rec.stream_interface_attribute20 := NULL;
485:
486: IF (l_sfev_rec.stream_interface_attribute19 = OKC_API.G_MISS_CHAR) THEN
487: l_sfev_rec.stream_interface_attribute19 := NULL;
488: END IF;
489: IF (l_sfev_rec.stream_interface_attribute20 = OKC_API.G_MISS_CHAR) THEN
490: l_sfev_rec.stream_interface_attribute20 := NULL;
491: END IF;
492: IF (l_sfev_rec.created_by = OKC_API.G_MISS_NUM) THEN
493: l_sfev_rec.created_by := NULL;
488: END IF;
489: IF (l_sfev_rec.stream_interface_attribute20 = OKC_API.G_MISS_CHAR) THEN
490: l_sfev_rec.stream_interface_attribute20 := NULL;
491: END IF;
492: IF (l_sfev_rec.created_by = OKC_API.G_MISS_NUM) THEN
493: l_sfev_rec.created_by := NULL;
494: END IF;
495: IF (l_sfev_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
496: l_sfev_rec.last_updated_by := NULL;
491: END IF;
492: IF (l_sfev_rec.created_by = OKC_API.G_MISS_NUM) THEN
493: l_sfev_rec.created_by := NULL;
494: END IF;
495: IF (l_sfev_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
496: l_sfev_rec.last_updated_by := NULL;
497: END IF;
498: IF (l_sfev_rec.creation_date = OKC_API.G_MISS_DATE) THEN
499: l_sfev_rec.creation_date := NULL;
494: END IF;
495: IF (l_sfev_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
496: l_sfev_rec.last_updated_by := NULL;
497: END IF;
498: IF (l_sfev_rec.creation_date = OKC_API.G_MISS_DATE) THEN
499: l_sfev_rec.creation_date := NULL;
500: END IF;
501: IF (l_sfev_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
502: l_sfev_rec.last_update_date := NULL;
497: END IF;
498: IF (l_sfev_rec.creation_date = OKC_API.G_MISS_DATE) THEN
499: l_sfev_rec.creation_date := NULL;
500: END IF;
501: IF (l_sfev_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
502: l_sfev_rec.last_update_date := NULL;
503: END IF;
504: IF (l_sfev_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
505: l_sfev_rec.last_update_login := NULL;
500: END IF;
501: IF (l_sfev_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
502: l_sfev_rec.last_update_date := NULL;
503: END IF;
504: IF (l_sfev_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
505: l_sfev_rec.last_update_login := NULL;
506: END IF;
507: IF (l_sfev_rec.down_payment_amount = OKC_API.G_MISS_NUM) THEN
508: l_sfev_rec.down_payment_amount := NULL;
503: END IF;
504: IF (l_sfev_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
505: l_sfev_rec.last_update_login := NULL;
506: END IF;
507: IF (l_sfev_rec.down_payment_amount = OKC_API.G_MISS_NUM) THEN
508: l_sfev_rec.down_payment_amount := NULL;
509: END IF;
510:
511: IF (l_sfev_rec.orig_contract_line_id = OKC_API.G_MISS_NUM) THEN
507: IF (l_sfev_rec.down_payment_amount = OKC_API.G_MISS_NUM) THEN
508: l_sfev_rec.down_payment_amount := NULL;
509: END IF;
510:
511: IF (l_sfev_rec.orig_contract_line_id = OKC_API.G_MISS_NUM) THEN
512: l_sfev_rec.orig_contract_line_id := NULL;
513: END IF;
514:
515: RETURN(l_sfev_rec);
527: --------------------------------------------
528: FUNCTION Validate_Attributes (
529: p_sfev_rec IN sfev_rec_type
530: ) RETURN VARCHAR2 IS
531: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
532: BEGIN
533: IF p_sfev_rec.id = OKC_API.G_MISS_NUM OR
534: p_sfev_rec.id IS NULL
535: THEN
529: p_sfev_rec IN sfev_rec_type
530: ) RETURN VARCHAR2 IS
531: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
532: BEGIN
533: IF p_sfev_rec.id = OKC_API.G_MISS_NUM OR
534: p_sfev_rec.id IS NULL
535: THEN
536: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
537: l_return_status := OKC_API.G_RET_STS_ERROR;
532: BEGIN
533: IF p_sfev_rec.id = OKC_API.G_MISS_NUM OR
534: p_sfev_rec.id IS NULL
535: THEN
536: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
537: l_return_status := OKC_API.G_RET_STS_ERROR;
538: ELSIF p_sfev_rec.sfe_type = OKC_API.G_MISS_CHAR OR
539: p_sfev_rec.sfe_type IS NULL
540: THEN
533: IF p_sfev_rec.id = OKC_API.G_MISS_NUM OR
534: p_sfev_rec.id IS NULL
535: THEN
536: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
537: l_return_status := OKC_API.G_RET_STS_ERROR;
538: ELSIF p_sfev_rec.sfe_type = OKC_API.G_MISS_CHAR OR
539: p_sfev_rec.sfe_type IS NULL
540: THEN
541: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'sfe_type');
534: p_sfev_rec.id IS NULL
535: THEN
536: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
537: l_return_status := OKC_API.G_RET_STS_ERROR;
538: ELSIF p_sfev_rec.sfe_type = OKC_API.G_MISS_CHAR OR
539: p_sfev_rec.sfe_type IS NULL
540: THEN
541: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'sfe_type');
542: l_return_status := OKC_API.G_RET_STS_ERROR;
537: l_return_status := OKC_API.G_RET_STS_ERROR;
538: ELSIF p_sfev_rec.sfe_type = OKC_API.G_MISS_CHAR OR
539: p_sfev_rec.sfe_type IS NULL
540: THEN
541: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'sfe_type');
542: l_return_status := OKC_API.G_RET_STS_ERROR;
543: ELSIF p_sfev_rec.income_or_expense = OKC_API.G_MISS_CHAR OR
544: p_sfev_rec.income_or_expense IS NULL
545: THEN
538: ELSIF p_sfev_rec.sfe_type = OKC_API.G_MISS_CHAR OR
539: p_sfev_rec.sfe_type IS NULL
540: THEN
541: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'sfe_type');
542: l_return_status := OKC_API.G_RET_STS_ERROR;
543: ELSIF p_sfev_rec.income_or_expense = OKC_API.G_MISS_CHAR OR
544: p_sfev_rec.income_or_expense IS NULL
545: THEN
546: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'income_or_expense');
539: p_sfev_rec.sfe_type IS NULL
540: THEN
541: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'sfe_type');
542: l_return_status := OKC_API.G_RET_STS_ERROR;
543: ELSIF p_sfev_rec.income_or_expense = OKC_API.G_MISS_CHAR OR
544: p_sfev_rec.income_or_expense IS NULL
545: THEN
546: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'income_or_expense');
547: l_return_status := OKC_API.G_RET_STS_ERROR;
542: l_return_status := OKC_API.G_RET_STS_ERROR;
543: ELSIF p_sfev_rec.income_or_expense = OKC_API.G_MISS_CHAR OR
544: p_sfev_rec.income_or_expense IS NULL
545: THEN
546: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'income_or_expense');
547: l_return_status := OKC_API.G_RET_STS_ERROR;
548: ELSIF p_sfev_rec.fee_index_number = OKC_API.G_MISS_NUM OR
549: p_sfev_rec.fee_index_number IS NULL
550: THEN
543: ELSIF p_sfev_rec.income_or_expense = OKC_API.G_MISS_CHAR OR
544: p_sfev_rec.income_or_expense IS NULL
545: THEN
546: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'income_or_expense');
547: l_return_status := OKC_API.G_RET_STS_ERROR;
548: ELSIF p_sfev_rec.fee_index_number = OKC_API.G_MISS_NUM OR
549: p_sfev_rec.fee_index_number IS NULL
550: THEN
551: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'fee_index_number');
544: p_sfev_rec.income_or_expense IS NULL
545: THEN
546: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'income_or_expense');
547: l_return_status := OKC_API.G_RET_STS_ERROR;
548: ELSIF p_sfev_rec.fee_index_number = OKC_API.G_MISS_NUM OR
549: p_sfev_rec.fee_index_number IS NULL
550: THEN
551: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'fee_index_number');
552: l_return_status := OKC_API.G_RET_STS_ERROR;
547: l_return_status := OKC_API.G_RET_STS_ERROR;
548: ELSIF p_sfev_rec.fee_index_number = OKC_API.G_MISS_NUM OR
549: p_sfev_rec.fee_index_number IS NULL
550: THEN
551: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'fee_index_number');
552: l_return_status := OKC_API.G_RET_STS_ERROR;
553: ELSIF p_sfev_rec.level_index_number = OKC_API.G_MISS_NUM OR
554: p_sfev_rec.level_index_number IS NULL
555: THEN
548: ELSIF p_sfev_rec.fee_index_number = OKC_API.G_MISS_NUM OR
549: p_sfev_rec.fee_index_number IS NULL
550: THEN
551: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'fee_index_number');
552: l_return_status := OKC_API.G_RET_STS_ERROR;
553: ELSIF p_sfev_rec.level_index_number = OKC_API.G_MISS_NUM OR
554: p_sfev_rec.level_index_number IS NULL
555: THEN
556: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'level_index_number');
549: p_sfev_rec.fee_index_number IS NULL
550: THEN
551: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'fee_index_number');
552: l_return_status := OKC_API.G_RET_STS_ERROR;
553: ELSIF p_sfev_rec.level_index_number = OKC_API.G_MISS_NUM OR
554: p_sfev_rec.level_index_number IS NULL
555: THEN
556: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'level_index_number');
557: l_return_status := OKC_API.G_RET_STS_ERROR;
552: l_return_status := OKC_API.G_RET_STS_ERROR;
553: ELSIF p_sfev_rec.level_index_number = OKC_API.G_MISS_NUM OR
554: p_sfev_rec.level_index_number IS NULL
555: THEN
556: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'level_index_number');
557: l_return_status := OKC_API.G_RET_STS_ERROR;
558: ELSIF p_sfev_rec.advance_or_arrears = OKC_API.G_MISS_CHAR OR
559: p_sfev_rec.advance_or_arrears IS NULL
560: THEN
553: ELSIF p_sfev_rec.level_index_number = OKC_API.G_MISS_NUM OR
554: p_sfev_rec.level_index_number IS NULL
555: THEN
556: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'level_index_number');
557: l_return_status := OKC_API.G_RET_STS_ERROR;
558: ELSIF p_sfev_rec.advance_or_arrears = OKC_API.G_MISS_CHAR OR
559: p_sfev_rec.advance_or_arrears IS NULL
560: THEN
561: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'advance_or_arrears');
554: p_sfev_rec.level_index_number IS NULL
555: THEN
556: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'level_index_number');
557: l_return_status := OKC_API.G_RET_STS_ERROR;
558: ELSIF p_sfev_rec.advance_or_arrears = OKC_API.G_MISS_CHAR OR
559: p_sfev_rec.advance_or_arrears IS NULL
560: THEN
561: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'advance_or_arrears');
562: l_return_status := OKC_API.G_RET_STS_ERROR;
557: l_return_status := OKC_API.G_RET_STS_ERROR;
558: ELSIF p_sfev_rec.advance_or_arrears = OKC_API.G_MISS_CHAR OR
559: p_sfev_rec.advance_or_arrears IS NULL
560: THEN
561: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'advance_or_arrears');
562: l_return_status := OKC_API.G_RET_STS_ERROR;
563: ELSIF p_sfev_rec.level_type = OKC_API.G_MISS_CHAR OR
564: p_sfev_rec.level_type IS NULL
565: THEN
558: ELSIF p_sfev_rec.advance_or_arrears = OKC_API.G_MISS_CHAR OR
559: p_sfev_rec.advance_or_arrears IS NULL
560: THEN
561: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'advance_or_arrears');
562: l_return_status := OKC_API.G_RET_STS_ERROR;
563: ELSIF p_sfev_rec.level_type = OKC_API.G_MISS_CHAR OR
564: p_sfev_rec.level_type IS NULL
565: THEN
566: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'level_type');
559: p_sfev_rec.advance_or_arrears IS NULL
560: THEN
561: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'advance_or_arrears');
562: l_return_status := OKC_API.G_RET_STS_ERROR;
563: ELSIF p_sfev_rec.level_type = OKC_API.G_MISS_CHAR OR
564: p_sfev_rec.level_type IS NULL
565: THEN
566: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'level_type');
567: l_return_status := OKC_API.G_RET_STS_ERROR;
562: l_return_status := OKC_API.G_RET_STS_ERROR;
563: ELSIF p_sfev_rec.level_type = OKC_API.G_MISS_CHAR OR
564: p_sfev_rec.level_type IS NULL
565: THEN
566: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'level_type');
567: l_return_status := OKC_API.G_RET_STS_ERROR;
568: ELSIF p_sfev_rec.period = OKC_API.G_MISS_CHAR OR
569: p_sfev_rec.period IS NULL
570: THEN
563: ELSIF p_sfev_rec.level_type = OKC_API.G_MISS_CHAR OR
564: p_sfev_rec.level_type IS NULL
565: THEN
566: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'level_type');
567: l_return_status := OKC_API.G_RET_STS_ERROR;
568: ELSIF p_sfev_rec.period = OKC_API.G_MISS_CHAR OR
569: p_sfev_rec.period IS NULL
570: THEN
571: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'period');
564: p_sfev_rec.level_type IS NULL
565: THEN
566: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'level_type');
567: l_return_status := OKC_API.G_RET_STS_ERROR;
568: ELSIF p_sfev_rec.period = OKC_API.G_MISS_CHAR OR
569: p_sfev_rec.period IS NULL
570: THEN
571: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'period');
572: l_return_status := OKC_API.G_RET_STS_ERROR;
567: l_return_status := OKC_API.G_RET_STS_ERROR;
568: ELSIF p_sfev_rec.period = OKC_API.G_MISS_CHAR OR
569: p_sfev_rec.period IS NULL
570: THEN
571: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'period');
572: l_return_status := OKC_API.G_RET_STS_ERROR;
573: ELSIF p_sfev_rec.number_of_periods = OKC_API.G_MISS_NUM OR
574: p_sfev_rec.number_of_periods IS NULL
575: THEN
568: ELSIF p_sfev_rec.period = OKC_API.G_MISS_CHAR OR
569: p_sfev_rec.period IS NULL
570: THEN
571: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'period');
572: l_return_status := OKC_API.G_RET_STS_ERROR;
573: ELSIF p_sfev_rec.number_of_periods = OKC_API.G_MISS_NUM OR
574: p_sfev_rec.number_of_periods IS NULL
575: THEN
576: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'number_of_periods');
569: p_sfev_rec.period IS NULL
570: THEN
571: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'period');
572: l_return_status := OKC_API.G_RET_STS_ERROR;
573: ELSIF p_sfev_rec.number_of_periods = OKC_API.G_MISS_NUM OR
574: p_sfev_rec.number_of_periods IS NULL
575: THEN
576: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'number_of_periods');
577: l_return_status := OKC_API.G_RET_STS_ERROR;
572: l_return_status := OKC_API.G_RET_STS_ERROR;
573: ELSIF p_sfev_rec.number_of_periods = OKC_API.G_MISS_NUM OR
574: p_sfev_rec.number_of_periods IS NULL
575: THEN
576: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'number_of_periods');
577: l_return_status := OKC_API.G_RET_STS_ERROR;
578: ELSIF p_sfev_rec.level_line_number = OKC_API.G_MISS_NUM OR
579: p_sfev_rec.level_line_number IS NULL
580: THEN
573: ELSIF p_sfev_rec.number_of_periods = OKC_API.G_MISS_NUM OR
574: p_sfev_rec.number_of_periods IS NULL
575: THEN
576: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'number_of_periods');
577: l_return_status := OKC_API.G_RET_STS_ERROR;
578: ELSIF p_sfev_rec.level_line_number = OKC_API.G_MISS_NUM OR
579: p_sfev_rec.level_line_number IS NULL
580: THEN
581: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'level_line_number');
574: p_sfev_rec.number_of_periods IS NULL
575: THEN
576: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'number_of_periods');
577: l_return_status := OKC_API.G_RET_STS_ERROR;
578: ELSIF p_sfev_rec.level_line_number = OKC_API.G_MISS_NUM OR
579: p_sfev_rec.level_line_number IS NULL
580: THEN
581: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'level_line_number');
582: l_return_status := OKC_API.G_RET_STS_ERROR;
577: l_return_status := OKC_API.G_RET_STS_ERROR;
578: ELSIF p_sfev_rec.level_line_number = OKC_API.G_MISS_NUM OR
579: p_sfev_rec.level_line_number IS NULL
580: THEN
581: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'level_line_number');
582: l_return_status := OKC_API.G_RET_STS_ERROR;
583: ELSIF p_sfev_rec.object_version_number = OKC_API.G_MISS_NUM OR
584: p_sfev_rec.object_version_number IS NULL
585: THEN
578: ELSIF p_sfev_rec.level_line_number = OKC_API.G_MISS_NUM OR
579: p_sfev_rec.level_line_number IS NULL
580: THEN
581: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'level_line_number');
582: l_return_status := OKC_API.G_RET_STS_ERROR;
583: ELSIF p_sfev_rec.object_version_number = OKC_API.G_MISS_NUM OR
584: p_sfev_rec.object_version_number IS NULL
585: THEN
586: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
579: p_sfev_rec.level_line_number IS NULL
580: THEN
581: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'level_line_number');
582: l_return_status := OKC_API.G_RET_STS_ERROR;
583: ELSIF p_sfev_rec.object_version_number = OKC_API.G_MISS_NUM OR
584: p_sfev_rec.object_version_number IS NULL
585: THEN
586: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
587: l_return_status := OKC_API.G_RET_STS_ERROR;
582: l_return_status := OKC_API.G_RET_STS_ERROR;
583: ELSIF p_sfev_rec.object_version_number = OKC_API.G_MISS_NUM OR
584: p_sfev_rec.object_version_number IS NULL
585: THEN
586: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
587: l_return_status := OKC_API.G_RET_STS_ERROR;
588: END IF;
589: RETURN(l_return_status);
590: END Validate_Attributes;
583: ELSIF p_sfev_rec.object_version_number = OKC_API.G_MISS_NUM OR
584: p_sfev_rec.object_version_number IS NULL
585: THEN
586: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
587: l_return_status := OKC_API.G_RET_STS_ERROR;
588: END IF;
589: RETURN(l_return_status);
590: END Validate_Attributes;
591:
616: ) IS
617:
618: BEGIN
619: -- initialize return status
620: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
621:
622: IF p_sfev_rec.id = Okc_Api.G_MISS_NUM OR
623: p_sfev_rec.id IS NULL
624: THEN
618: BEGIN
619: -- initialize return status
620: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
621:
622: IF p_sfev_rec.id = Okc_Api.G_MISS_NUM OR
623: p_sfev_rec.id IS NULL
624: THEN
625: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
626: x_return_status := Okc_Api.G_RET_STS_ERROR;
621:
622: IF p_sfev_rec.id = Okc_Api.G_MISS_NUM OR
623: p_sfev_rec.id IS NULL
624: THEN
625: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
626: x_return_status := Okc_Api.G_RET_STS_ERROR;
627: RAISE G_EXCEPTION_HALT_VALIDATION;
628: END IF;
629:
622: IF p_sfev_rec.id = Okc_Api.G_MISS_NUM OR
623: p_sfev_rec.id IS NULL
624: THEN
625: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
626: x_return_status := Okc_Api.G_RET_STS_ERROR;
627: RAISE G_EXCEPTION_HALT_VALIDATION;
628: END IF;
629:
630: EXCEPTION
634: NULL;
635:
636: WHEN OTHERS THEN
637: -- store SQL error message on message stack for caller
638: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME
639: ,p_msg_name => G_OKL_UNEXPECTED_ERROR
640: ,p_token1 => G_OKL_SQLCODE_TOKEN
641: ,p_token1_value => SQLCODE
642: ,p_token2 => G_OKL_SQLERRM_TOKEN
642: ,p_token2 => G_OKL_SQLERRM_TOKEN
643: ,p_token2_value => SQLERRM);
644:
645: -- notify caller of an UNEXPECTED error
646: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
647:
648: END Validate_Id;
649:
650: ---------------------------------------------------------------------------
666:
667: BEGIN
668:
669: -- initialize return status
670: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
671:
672: IF p_sfev_rec.object_version_number = Okc_Api.G_MISS_NUM OR
673: p_sfev_rec.object_version_number IS NULL
674: THEN
668:
669: -- initialize return status
670: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
671:
672: IF p_sfev_rec.object_version_number = Okc_Api.G_MISS_NUM OR
673: p_sfev_rec.object_version_number IS NULL
674: THEN
675: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
676: x_return_status := Okc_Api.G_RET_STS_ERROR;
671:
672: IF p_sfev_rec.object_version_number = Okc_Api.G_MISS_NUM OR
673: p_sfev_rec.object_version_number IS NULL
674: THEN
675: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
676: x_return_status := Okc_Api.G_RET_STS_ERROR;
677: RAISE G_EXCEPTION_HALT_VALIDATION;
678: END IF;
679:
672: IF p_sfev_rec.object_version_number = Okc_Api.G_MISS_NUM OR
673: p_sfev_rec.object_version_number IS NULL
674: THEN
675: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
676: x_return_status := Okc_Api.G_RET_STS_ERROR;
677: RAISE G_EXCEPTION_HALT_VALIDATION;
678: END IF;
679:
680: EXCEPTION
684: NULL;
685:
686: WHEN OTHERS THEN
687: -- store SQL error message on message stack for caller
688: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME
689: ,p_msg_name => G_OKL_UNEXPECTED_ERROR
690: ,p_token1 => G_OKL_SQLCODE_TOKEN
691: ,p_token1_value => SQLCODE
692: ,p_token2 => G_OKL_SQLERRM_TOKEN
693:
694: ,p_token2_value => SQLERRM);
695:
696: -- notify caller of an UNEXPECTED error
697: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
698:
699: END Validate_Object_Version_Number;
700:
701: ---------------------------------------------------------------------------
717: l_found VARCHAR2(1);
718: BEGIN
719:
720: -- initialize return status
721: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
722:
723: IF p_sfev_rec.Sfe_Type = Okc_Api.G_MISS_CHAR OR
724: p_sfev_rec.Sfe_Type IS NULL
725: THEN
719:
720: -- initialize return status
721: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
722:
723: IF p_sfev_rec.Sfe_Type = Okc_Api.G_MISS_CHAR OR
724: p_sfev_rec.Sfe_Type IS NULL
725: THEN
726: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Sfe_Type');
727: x_return_status := Okc_Api.G_RET_STS_ERROR;
722:
723: IF p_sfev_rec.Sfe_Type = Okc_Api.G_MISS_CHAR OR
724: p_sfev_rec.Sfe_Type IS NULL
725: THEN
726: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Sfe_Type');
727: x_return_status := Okc_Api.G_RET_STS_ERROR;
728: RAISE G_EXCEPTION_HALT_VALIDATION;
729: ELSE
730: --Check if Sfe_Type exists in the fnd_common_lookups or not
723: IF p_sfev_rec.Sfe_Type = Okc_Api.G_MISS_CHAR OR
724: p_sfev_rec.Sfe_Type IS NULL
725: THEN
726: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Sfe_Type');
727: x_return_status := Okc_Api.G_RET_STS_ERROR;
728: RAISE G_EXCEPTION_HALT_VALIDATION;
729: ELSE
730: --Check if Sfe_Type exists in the fnd_common_lookups or not
731: l_found := okl_accounting_util.validate_lookup_code(p_lookup_type => 'OKL_SFE_TYPE',
732: p_lookup_code => p_sfev_rec.Sfe_Type);
733:
734:
735: IF (l_found <> OKL_API.G_TRUE ) THEN
736: OKC_API.set_message(G_OKC_APP, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Sfe_Type');
737: x_return_status := Okc_Api.G_RET_STS_ERROR;
738: -- raise the exception as there's no matching foreign key value
739: RAISE G_EXCEPTION_HALT_VALIDATION;
740: END IF;
733:
734:
735: IF (l_found <> OKL_API.G_TRUE ) THEN
736: OKC_API.set_message(G_OKC_APP, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Sfe_Type');
737: x_return_status := Okc_Api.G_RET_STS_ERROR;
738: -- raise the exception as there's no matching foreign key value
739: RAISE G_EXCEPTION_HALT_VALIDATION;
740: END IF;
741:
749: NULL;
750:
751: WHEN OTHERS THEN
752: -- store SQL error message on message stack for caller
753: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME
754: ,p_msg_name => G_OKL_UNEXPECTED_ERROR
755: ,p_token1 => G_OKL_SQLCODE_TOKEN
756: ,p_token1_value => SQLCODE
757: ,p_token2 => G_OKL_SQLERRM_TOKEN
757: ,p_token2 => G_OKL_SQLERRM_TOKEN
758: ,p_token2_value => SQLERRM);
759:
760: -- notify caller of an UNEXPECTED error
761: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
762:
763: END Validate_Sfe_Type;
764:
765:
782:
783: BEGIN
784:
785: -- initialize return status
786: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
787: --dbms_output.put_line('Validate_Income_Or_Expense value '||p_sfev_rec.Income_Or_Expense);
788: IF p_sfev_rec.Income_Or_Expense = Okc_Api.G_MISS_CHAR OR
789: p_sfev_rec.Income_Or_Expense IS NULL
790: THEN
784:
785: -- initialize return status
786: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
787: --dbms_output.put_line('Validate_Income_Or_Expense value '||p_sfev_rec.Income_Or_Expense);
788: IF p_sfev_rec.Income_Or_Expense = Okc_Api.G_MISS_CHAR OR
789: p_sfev_rec.Income_Or_Expense IS NULL
790: THEN
791: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Income_Or_Expense');
792: x_return_status := Okc_Api.G_RET_STS_ERROR;
787: --dbms_output.put_line('Validate_Income_Or_Expense value '||p_sfev_rec.Income_Or_Expense);
788: IF p_sfev_rec.Income_Or_Expense = Okc_Api.G_MISS_CHAR OR
789: p_sfev_rec.Income_Or_Expense IS NULL
790: THEN
791: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Income_Or_Expense');
792: x_return_status := Okc_Api.G_RET_STS_ERROR;
793:
794: RAISE G_EXCEPTION_HALT_VALIDATION;
795: END IF;
788: IF p_sfev_rec.Income_Or_Expense = Okc_Api.G_MISS_CHAR OR
789: p_sfev_rec.Income_Or_Expense IS NULL
790: THEN
791: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Income_Or_Expense');
792: x_return_status := Okc_Api.G_RET_STS_ERROR;
793:
794: RAISE G_EXCEPTION_HALT_VALIDATION;
795: END IF;
796:
801: NULL;
802:
803: WHEN OTHERS THEN
804: -- store SQL error message on message stack for caller
805: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME
806: ,p_msg_name => G_OKL_UNEXPECTED_ERROR
807: ,p_token1 => G_OKL_SQLCODE_TOKEN
808: ,p_token1_value => SQLCODE
809: ,p_token2 => G_OKL_SQLERRM_TOKEN
809: ,p_token2 => G_OKL_SQLERRM_TOKEN
810: ,p_token2_value => SQLERRM);
811:
812: -- notify caller of an UNEXPECTED error
813: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
814:
815: END Validate_Income_Or_Expense;
816:
817:
834:
835: BEGIN
836:
837: -- initialize return status
838: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
839:
840: IF p_sfev_rec.Fee_Index_Number = Okc_Api.G_MISS_NUM OR
841: p_sfev_rec.Fee_Index_Number IS NULL
842: THEN
836:
837: -- initialize return status
838: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
839:
840: IF p_sfev_rec.Fee_Index_Number = Okc_Api.G_MISS_NUM OR
841: p_sfev_rec.Fee_Index_Number IS NULL
842: THEN
843: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Fee_Index_Number');
844: x_return_status := Okc_Api.G_RET_STS_ERROR;
839:
840: IF p_sfev_rec.Fee_Index_Number = Okc_Api.G_MISS_NUM OR
841: p_sfev_rec.Fee_Index_Number IS NULL
842: THEN
843: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Fee_Index_Number');
844: x_return_status := Okc_Api.G_RET_STS_ERROR;
845: RAISE G_EXCEPTION_HALT_VALIDATION;
846: END IF;
847:
840: IF p_sfev_rec.Fee_Index_Number = Okc_Api.G_MISS_NUM OR
841: p_sfev_rec.Fee_Index_Number IS NULL
842: THEN
843: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Fee_Index_Number');
844: x_return_status := Okc_Api.G_RET_STS_ERROR;
845: RAISE G_EXCEPTION_HALT_VALIDATION;
846: END IF;
847:
848: EXCEPTION
852: NULL;
853:
854: WHEN OTHERS THEN
855: -- store SQL error message on message stack for caller
856: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME
857: ,p_msg_name => G_OKL_UNEXPECTED_ERROR
858: ,p_token1 => G_OKL_SQLCODE_TOKEN
859: ,p_token1_value => SQLCODE
860: ,p_token2 => G_OKL_SQLERRM_TOKEN
860: ,p_token2 => G_OKL_SQLERRM_TOKEN
861: ,p_token2_value => SQLERRM);
862:
863: -- notify caller of an UNEXPECTED error
864: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
865:
866: END Validate_Fee_Index_Number;
867:
868:
886:
887: BEGIN
888:
889: -- initialize return status
890: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
891:
892: IF p_sfev_rec.Level_Index_Number = Okc_Api.G_MISS_NUM OR
893:
894: p_sfev_rec.Level_Index_Number IS NULL
888:
889: -- initialize return status
890: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
891:
892: IF p_sfev_rec.Level_Index_Number = Okc_Api.G_MISS_NUM OR
893:
894: p_sfev_rec.Level_Index_Number IS NULL
895: THEN
896: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Level_Index_Number');
892: IF p_sfev_rec.Level_Index_Number = Okc_Api.G_MISS_NUM OR
893:
894: p_sfev_rec.Level_Index_Number IS NULL
895: THEN
896: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Level_Index_Number');
897: x_return_status := Okc_Api.G_RET_STS_ERROR;
898: RAISE G_EXCEPTION_HALT_VALIDATION;
899: END IF;
900:
893:
894: p_sfev_rec.Level_Index_Number IS NULL
895: THEN
896: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Level_Index_Number');
897: x_return_status := Okc_Api.G_RET_STS_ERROR;
898: RAISE G_EXCEPTION_HALT_VALIDATION;
899: END IF;
900:
901: EXCEPTION
905: NULL;
906:
907: WHEN OTHERS THEN
908: -- store SQL error message on message stack for caller
909: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME
910: ,p_msg_name => G_OKL_UNEXPECTED_ERROR
911: ,p_token1 => G_OKL_SQLCODE_TOKEN
912: ,p_token1_value => SQLCODE
913: ,p_token2 => G_OKL_SQLERRM_TOKEN
913: ,p_token2 => G_OKL_SQLERRM_TOKEN
914: ,p_token2_value => SQLERRM);
915:
916: -- notify caller of an UNEXPECTED error
917: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
918:
919: END Validate_Level_Index_Number;
920:
921: ---------------------------------------------------------------------------
937:
938: BEGIN
939:
940: -- initialize return status
941: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
942: --dbms_output.put_line('Validate_Advance_Or_Arrears value '||p_sfev_rec.Advance_Or_Arrears);
943: IF p_sfev_rec.Advance_Or_Arrears = Okc_Api.G_MISS_CHAR OR
944: p_sfev_rec.Advance_Or_Arrears IS NULL
945: THEN
939:
940: -- initialize return status
941: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
942: --dbms_output.put_line('Validate_Advance_Or_Arrears value '||p_sfev_rec.Advance_Or_Arrears);
943: IF p_sfev_rec.Advance_Or_Arrears = Okc_Api.G_MISS_CHAR OR
944: p_sfev_rec.Advance_Or_Arrears IS NULL
945: THEN
946: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Advance_Or_Arrears');
947: x_return_status := Okc_Api.G_RET_STS_ERROR;
942: --dbms_output.put_line('Validate_Advance_Or_Arrears value '||p_sfev_rec.Advance_Or_Arrears);
943: IF p_sfev_rec.Advance_Or_Arrears = Okc_Api.G_MISS_CHAR OR
944: p_sfev_rec.Advance_Or_Arrears IS NULL
945: THEN
946: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Advance_Or_Arrears');
947: x_return_status := Okc_Api.G_RET_STS_ERROR;
948: RAISE G_EXCEPTION_HALT_VALIDATION;
949: END IF;
950:
943: IF p_sfev_rec.Advance_Or_Arrears = Okc_Api.G_MISS_CHAR OR
944: p_sfev_rec.Advance_Or_Arrears IS NULL
945: THEN
946: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Advance_Or_Arrears');
947: x_return_status := Okc_Api.G_RET_STS_ERROR;
948: RAISE G_EXCEPTION_HALT_VALIDATION;
949: END IF;
950:
951: EXCEPTION
955: NULL;
956:
957: WHEN OTHERS THEN
958: -- store SQL error message on message stack for caller
959: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME
960: ,p_msg_name => G_OKL_UNEXPECTED_ERROR
961: ,p_token1 => G_OKL_SQLCODE_TOKEN
962: ,p_token1_value => SQLCODE
963: ,p_token2 => G_OKL_SQLERRM_TOKEN
963: ,p_token2 => G_OKL_SQLERRM_TOKEN
964: ,p_token2_value => SQLERRM);
965:
966: -- notify caller of an UNEXPECTED error
967: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
968:
969: END Validate_Advance_Or_Arrears;
970:
971: /*
992: BEGIN
993:
994:
995: -- initialize return status
996: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
997:
998: IF p_sfev_rec.Level_Type = Okc_Api.G_MISS_CHAR OR
999: p_sfev_rec.Level_type IS NULL
1000: THEN
994:
995: -- initialize return status
996: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
997:
998: IF p_sfev_rec.Level_Type = Okc_Api.G_MISS_CHAR OR
999: p_sfev_rec.Level_type IS NULL
1000: THEN
1001: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Level_type');
1002: x_return_status := Okc_Api.G_RET_STS_ERROR;
997:
998: IF p_sfev_rec.Level_Type = Okc_Api.G_MISS_CHAR OR
999: p_sfev_rec.Level_type IS NULL
1000: THEN
1001: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Level_type');
1002: x_return_status := Okc_Api.G_RET_STS_ERROR;
1003: RAISE G_EXCEPTION_HALT_VALIDATION;
1004: /*
1005: -- UnComment this Code if an FND entity is created for this
998: IF p_sfev_rec.Level_Type = Okc_Api.G_MISS_CHAR OR
999: p_sfev_rec.Level_type IS NULL
1000: THEN
1001: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Level_type');
1002: x_return_status := Okc_Api.G_RET_STS_ERROR;
1003: RAISE G_EXCEPTION_HALT_VALIDATION;
1004: /*
1005: -- UnComment this Code if an FND entity is created for this
1006: ELSE
1009: p_lookup_code => p_sfev_rec.Level_type);
1010:
1011:
1012: IF (l_found <> OKL_API.G_TRUE ) THEN
1013: OKC_API.set_message(G_OKC_APP, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Level_type');
1014: x_return_status := Okc_Api.G_RET_STS_ERROR;
1015: -- raise the exception as there's no matching foreign key value
1016: RAISE G_EXCEPTION_HALT_VALIDATION;
1017: END IF;
1010:
1011:
1012: IF (l_found <> OKL_API.G_TRUE ) THEN
1013: OKC_API.set_message(G_OKC_APP, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Level_type');
1014: x_return_status := Okc_Api.G_RET_STS_ERROR;
1015: -- raise the exception as there's no matching foreign key value
1016: RAISE G_EXCEPTION_HALT_VALIDATION;
1017: END IF;
1018: *
1025: NULL;
1026:
1027: WHEN OTHERS THEN
1028: -- store SQL error message on message stack for caller
1029: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME
1030: ,p_msg_name => G_OKL_UNEXPECTED_ERROR
1031: ,p_token1 => G_OKL_SQLCODE_TOKEN
1032: ,p_token1_value => SQLCODE
1033: ,p_token2 => G_OKL_SQLERRM_TOKEN
1033: ,p_token2 => G_OKL_SQLERRM_TOKEN
1034: ,p_token2_value => SQLERRM);
1035:
1036: -- notify caller of an UNEXPECTED error
1037: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1038:
1039: END Validate_Level_type;
1040:
1041: -- end,mvasudev -- 02/21/2002
1069:
1070: BEGIN
1071:
1072: -- initialize return status
1073: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1074:
1075: IF p_sfev_rec.sif_id = Okc_Api.G_MISS_NUM OR
1076: p_sfev_rec.sif_id IS NULL
1077: THEN
1071:
1072: -- initialize return status
1073: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1074:
1075: IF p_sfev_rec.sif_id = Okc_Api.G_MISS_NUM OR
1076: p_sfev_rec.sif_id IS NULL
1077: THEN
1078: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Sif_id');
1079: x_return_status := Okc_Api.G_RET_STS_ERROR;
1074:
1075: IF p_sfev_rec.sif_id = Okc_Api.G_MISS_NUM OR
1076: p_sfev_rec.sif_id IS NULL
1077: THEN
1078: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Sif_id');
1079: x_return_status := Okc_Api.G_RET_STS_ERROR;
1080: RAISE G_EXCEPTION_HALT_VALIDATION;
1081: END IF;
1082:
1075: IF p_sfev_rec.sif_id = Okc_Api.G_MISS_NUM OR
1076: p_sfev_rec.sif_id IS NULL
1077: THEN
1078: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Sif_id');
1079: x_return_status := Okc_Api.G_RET_STS_ERROR;
1080: RAISE G_EXCEPTION_HALT_VALIDATION;
1081: END IF;
1082:
1083: OPEN okl_sifv_pk_csr(p_sfev_rec.Sif_id);
1085: l_row_not_found := okl_sifv_pk_csr%NOTFOUND;
1086: CLOSE okl_sifv_pk_csr;
1087:
1088: IF l_row_not_found THEN
1089: Okc_Api.set_message(G_APP_NAME,G_OKL_UNQS);
1090: x_return_status := Okc_Api.G_RET_STS_ERROR;
1091: END IF;
1092:
1093:
1086: CLOSE okl_sifv_pk_csr;
1087:
1088: IF l_row_not_found THEN
1089: Okc_Api.set_message(G_APP_NAME,G_OKL_UNQS);
1090: x_return_status := Okc_Api.G_RET_STS_ERROR;
1091: END IF;
1092:
1093:
1094: EXCEPTION
1098: NULL;
1099:
1100: WHEN OTHERS THEN
1101: -- store SQL error message on message stack for caller
1102: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME
1103: ,p_msg_name => G_OKL_UNEXPECTED_ERROR
1104: ,p_token1 => G_OKL_SQLCODE_TOKEN
1105: ,p_token1_value => SQLCODE
1106: ,p_token2 => G_OKL_SQLERRM_TOKEN
1106: ,p_token2 => G_OKL_SQLERRM_TOKEN
1107: ,p_token2_value => SQLERRM);
1108:
1109: -- notify caller of an UNEXPECTED error
1110: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1111:
1112: -- verify that the cursor was closed
1113: IF okl_sifv_pk_csr%ISOPEN THEN
1114: CLOSE okl_sifv_pk_csr;
1144:
1145: BEGIN
1146:
1147: -- initialize return status
1148: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1149:
1150: IF p_sfev_rec.kle_id <> Okc_Api.G_MISS_NUM AND
1151: p_sfev_rec.kle_id IS NOT NULL
1152: THEN
1146:
1147: -- initialize return status
1148: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1149:
1150: IF p_sfev_rec.kle_id <> Okc_Api.G_MISS_NUM AND
1151: p_sfev_rec.kle_id IS NOT NULL
1152: THEN
1153: OPEN okl_klev_pk_csr(p_sfev_rec.kle_id);
1154: FETCH okl_klev_pk_csr INTO l_dummy;
1155: l_row_not_found := okl_klev_pk_csr%NOTFOUND;
1156: CLOSE okl_klev_pk_csr;
1157:
1158: IF l_row_not_found THEN
1159: Okc_Api.set_message(G_OKC_APP,G_INVALID_VALUE,G_COL_NAME_TOKEN,'Kle_id');
1160: x_return_status := Okc_Api.G_RET_STS_ERROR;
1161: END IF;
1162: END IF;
1163:
1156: CLOSE okl_klev_pk_csr;
1157:
1158: IF l_row_not_found THEN
1159: Okc_Api.set_message(G_OKC_APP,G_INVALID_VALUE,G_COL_NAME_TOKEN,'Kle_id');
1160: x_return_status := Okc_Api.G_RET_STS_ERROR;
1161: END IF;
1162: END IF;
1163:
1164: EXCEPTION
1168: NULL;
1169:
1170: WHEN OTHERS THEN
1171: -- store SQL error message on message stack for caller
1172: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME
1173: ,p_msg_name => G_OKL_UNEXPECTED_ERROR
1174: ,p_token1 => G_OKL_SQLCODE_TOKEN
1175: ,p_token1_value => SQLCODE
1176: ,p_token2 => G_OKL_SQLERRM_TOKEN
1176: ,p_token2 => G_OKL_SQLERRM_TOKEN
1177: ,p_token2_value => SQLERRM);
1178:
1179: -- notify caller of an UNEXPECTED error
1180: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1181:
1182: -- verify that the cursor was closed
1183: IF okl_klev_pk_csr%ISOPEN THEN
1184: CLOSE okl_klev_pk_csr;
1216:
1217: BEGIN
1218:
1219: -- initialize return status
1220: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1221:
1222: IF p_sfev_rec.Sil_id <> Okc_Api.G_MISS_NUM AND
1223: p_sfev_rec.Sil_id IS NOT NULL
1224: THEN
1218:
1219: -- initialize return status
1220: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1221:
1222: IF p_sfev_rec.Sil_id <> Okc_Api.G_MISS_NUM AND
1223: p_sfev_rec.Sil_id IS NOT NULL
1224: THEN
1225: OPEN okl_sfev_pk_csr(p_sfev_rec.Sil_id);
1226: FETCH okl_sfev_pk_csr INTO l_dummy;
1226: FETCH okl_sfev_pk_csr INTO l_dummy;
1227: l_row_not_found := okl_sfev_pk_csr%NOTFOUND;
1228: CLOSE okl_sfev_pk_csr;
1229: IF l_row_not_found THEN
1230: Okc_Api.set_message(G_OKC_APP,G_INVALID_VALUE,G_COL_NAME_TOKEN,'Sil_id');
1231: x_return_status := Okc_Api.G_RET_STS_ERROR;
1232: END IF;
1233: END IF;
1234:
1227: l_row_not_found := okl_sfev_pk_csr%NOTFOUND;
1228: CLOSE okl_sfev_pk_csr;
1229: IF l_row_not_found THEN
1230: Okc_Api.set_message(G_OKC_APP,G_INVALID_VALUE,G_COL_NAME_TOKEN,'Sil_id');
1231: x_return_status := Okc_Api.G_RET_STS_ERROR;
1232: END IF;
1233: END IF;
1234:
1235: EXCEPTION
1239: NULL;
1240:
1241: WHEN OTHERS THEN
1242: -- store SQL error message on message stack for caller
1243: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME
1244: ,p_msg_name => G_OKL_UNEXPECTED_ERROR
1245: ,p_token1 => G_OKL_SQLCODE_TOKEN
1246: ,p_token1_value => SQLCODE
1247: ,p_token2 => G_OKL_SQLERRM_TOKEN
1247: ,p_token2 => G_OKL_SQLERRM_TOKEN
1248: ,p_token2_value => SQLERRM);
1249:
1250: -- notify caller of an UNEXPECTED error
1251: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1252:
1253: -- verify that the cursor was closed
1254: IF okl_sfev_pk_csr%ISOPEN THEN
1255: CLOSE okl_sfev_pk_csr;
1276:
1277: BEGIN
1278:
1279: -- initialize return status
1280: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1281:
1282: IF p_sfev_rec.Date_Start = Okc_Api.G_MISS_DATE OR
1283: p_sfev_rec.Date_Start IS NULL
1284: THEN
1278:
1279: -- initialize return status
1280: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1281:
1282: IF p_sfev_rec.Date_Start = Okc_Api.G_MISS_DATE OR
1283: p_sfev_rec.Date_Start IS NULL
1284: THEN
1285: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Date_Start');
1286: x_return_status := Okc_Api.G_RET_STS_ERROR;
1281:
1282: IF p_sfev_rec.Date_Start = Okc_Api.G_MISS_DATE OR
1283: p_sfev_rec.Date_Start IS NULL
1284: THEN
1285: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Date_Start');
1286: x_return_status := Okc_Api.G_RET_STS_ERROR;
1287: RAISE G_EXCEPTION_HALT_VALIDATION;
1288: END IF;
1289:
1282: IF p_sfev_rec.Date_Start = Okc_Api.G_MISS_DATE OR
1283: p_sfev_rec.Date_Start IS NULL
1284: THEN
1285: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Date_Start');
1286: x_return_status := Okc_Api.G_RET_STS_ERROR;
1287: RAISE G_EXCEPTION_HALT_VALIDATION;
1288: END IF;
1289:
1290: EXCEPTION
1295: NULL;
1296:
1297: WHEN OTHERS THEN
1298: -- store SQL error message on message stack for caller
1299: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME
1300: ,p_msg_name => G_OKL_UNEXPECTED_ERROR
1301: ,p_token1 => G_OKL_SQLCODE_TOKEN
1302: ,p_token1_value => SQLCODE
1303: ,p_token2 => G_OKL_SQLERRM_TOKEN
1303: ,p_token2 => G_OKL_SQLERRM_TOKEN
1304: ,p_token2_value => SQLERRM);
1305:
1306: -- notify caller of an UNEXPECTED error
1307: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1308:
1309: END Validate_Date_Start;
1310:
1311: ---------------------------------------------------------------------------
1327:
1328: BEGIN
1329:
1330: -- initialize return status
1331: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1332:
1333: IF p_sfev_rec.Date_Paid = Okc_Api.G_MISS_DATE OR
1334: p_sfev_rec.Date_Paid IS NULL
1335: THEN
1329:
1330: -- initialize return status
1331: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1332:
1333: IF p_sfev_rec.Date_Paid = Okc_Api.G_MISS_DATE OR
1334: p_sfev_rec.Date_Paid IS NULL
1335: THEN
1336: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Date_Paid');
1337: x_return_status := Okc_Api.G_RET_STS_ERROR;
1332:
1333: IF p_sfev_rec.Date_Paid = Okc_Api.G_MISS_DATE OR
1334: p_sfev_rec.Date_Paid IS NULL
1335: THEN
1336: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Date_Paid');
1337: x_return_status := Okc_Api.G_RET_STS_ERROR;
1338: RAISE G_EXCEPTION_HALT_VALIDATION;
1339: END IF;
1340:
1333: IF p_sfev_rec.Date_Paid = Okc_Api.G_MISS_DATE OR
1334: p_sfev_rec.Date_Paid IS NULL
1335: THEN
1336: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Date_Paid');
1337: x_return_status := Okc_Api.G_RET_STS_ERROR;
1338: RAISE G_EXCEPTION_HALT_VALIDATION;
1339: END IF;
1340:
1341: EXCEPTION
1345: NULL;
1346:
1347: WHEN OTHERS THEN
1348: -- store SQL error message on message stack for caller
1349: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME
1350: ,p_msg_name => G_OKL_UNEXPECTED_ERROR
1351: ,p_token1 => G_OKL_SQLCODE_TOKEN
1352: ,p_token1_value => SQLCODE
1353: ,p_token2 => G_OKL_SQLERRM_TOKEN
1353: ,p_token2 => G_OKL_SQLERRM_TOKEN
1354: ,p_token2_value => SQLERRM);
1355:
1356: -- notify caller of an UNEXPECTED error
1357: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1358:
1359: END Validate_Date_Paid;
1360:
1361: ---------------------------------------------------------------------------
1377:
1378: BEGIN
1379:
1380: -- initialize return status
1381: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1382:
1383: IF p_sfev_rec.Rate IS NULL AND (p_sfev_rec.Amount = Okc_Api.G_MISS_NUM OR
1384: p_sfev_rec.Amount IS NULL)
1385: THEN
1379:
1380: -- initialize return status
1381: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1382:
1383: IF p_sfev_rec.Rate IS NULL AND (p_sfev_rec.Amount = Okc_Api.G_MISS_NUM OR
1384: p_sfev_rec.Amount IS NULL)
1385: THEN
1386: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Amount');
1387: x_return_status := Okc_Api.G_RET_STS_ERROR;
1382:
1383: IF p_sfev_rec.Rate IS NULL AND (p_sfev_rec.Amount = Okc_Api.G_MISS_NUM OR
1384: p_sfev_rec.Amount IS NULL)
1385: THEN
1386: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Amount');
1387: x_return_status := Okc_Api.G_RET_STS_ERROR;
1388: RAISE G_EXCEPTION_HALT_VALIDATION;
1389: END IF;
1390:
1383: IF p_sfev_rec.Rate IS NULL AND (p_sfev_rec.Amount = Okc_Api.G_MISS_NUM OR
1384: p_sfev_rec.Amount IS NULL)
1385: THEN
1386: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Amount');
1387: x_return_status := Okc_Api.G_RET_STS_ERROR;
1388: RAISE G_EXCEPTION_HALT_VALIDATION;
1389: END IF;
1390:
1391: EXCEPTION
1396: NULL;
1397:
1398: WHEN OTHERS THEN
1399: -- store SQL error message on message stack for caller
1400: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME
1401: ,p_msg_name => G_OKL_UNEXPECTED_ERROR
1402: ,p_token1 => G_OKL_SQLCODE_TOKEN
1403: ,p_token1_value => SQLCODE
1404: ,p_token2 => G_OKL_SQLERRM_TOKEN
1404: ,p_token2 => G_OKL_SQLERRM_TOKEN
1405: ,p_token2_value => SQLERRM);
1406:
1407: -- notify caller of an UNEXPECTED error
1408: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1409:
1410: END Validate_Amount;
1411:
1412:
1429:
1430: BEGIN
1431:
1432: -- initialize return status
1433: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1434:
1435: IF p_sfev_rec.Period = Okc_Api.G_MISS_CHAR OR
1436: p_sfev_rec.Period IS NULL
1437: THEN
1431:
1432: -- initialize return status
1433: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1434:
1435: IF p_sfev_rec.Period = Okc_Api.G_MISS_CHAR OR
1436: p_sfev_rec.Period IS NULL
1437: THEN
1438: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Period');
1439: x_return_status := Okc_Api.G_RET_STS_ERROR;
1434:
1435: IF p_sfev_rec.Period = Okc_Api.G_MISS_CHAR OR
1436: p_sfev_rec.Period IS NULL
1437: THEN
1438: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Period');
1439: x_return_status := Okc_Api.G_RET_STS_ERROR;
1440: RAISE G_EXCEPTION_HALT_VALIDATION;
1441: END IF;
1442:
1435: IF p_sfev_rec.Period = Okc_Api.G_MISS_CHAR OR
1436: p_sfev_rec.Period IS NULL
1437: THEN
1438: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Period');
1439: x_return_status := Okc_Api.G_RET_STS_ERROR;
1440: RAISE G_EXCEPTION_HALT_VALIDATION;
1441: END IF;
1442:
1443: EXCEPTION
1447: NULL;
1448:
1449: WHEN OTHERS THEN
1450: -- store SQL error message on message stack for caller
1451: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME
1452: ,p_msg_name => G_OKL_UNEXPECTED_ERROR
1453: ,p_token1 => G_OKL_SQLCODE_TOKEN
1454: ,p_token1_value => SQLCODE
1455: ,p_token2 => G_OKL_SQLERRM_TOKEN
1455: ,p_token2 => G_OKL_SQLERRM_TOKEN
1456: ,p_token2_value => SQLERRM);
1457:
1458: -- notify caller of an UNEXPECTED error
1459: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1460:
1461: END Validate_Period;
1462:
1463: ---------------------------------------------------------------------------
1479:
1480: BEGIN
1481:
1482: -- initialize return status
1483: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1484:
1485: IF p_sfev_rec.Number_Of_Periods = Okc_Api.G_MISS_NUM OR
1486: p_sfev_rec.Number_Of_Periods IS NULL
1487: THEN
1481:
1482: -- initialize return status
1483: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1484:
1485: IF p_sfev_rec.Number_Of_Periods = Okc_Api.G_MISS_NUM OR
1486: p_sfev_rec.Number_Of_Periods IS NULL
1487: THEN
1488: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Number_Of_Periods');
1489: x_return_status := Okc_Api.G_RET_STS_ERROR;
1484:
1485: IF p_sfev_rec.Number_Of_Periods = Okc_Api.G_MISS_NUM OR
1486: p_sfev_rec.Number_Of_Periods IS NULL
1487: THEN
1488: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Number_Of_Periods');
1489: x_return_status := Okc_Api.G_RET_STS_ERROR;
1490: RAISE G_EXCEPTION_HALT_VALIDATION;
1491: END IF;
1492:
1485: IF p_sfev_rec.Number_Of_Periods = Okc_Api.G_MISS_NUM OR
1486: p_sfev_rec.Number_Of_Periods IS NULL
1487: THEN
1488: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Number_Of_Periods');
1489: x_return_status := Okc_Api.G_RET_STS_ERROR;
1490: RAISE G_EXCEPTION_HALT_VALIDATION;
1491: END IF;
1492:
1493:
1498: NULL;
1499:
1500: WHEN OTHERS THEN
1501: -- store SQL error message on message stack for caller
1502: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME
1503: ,p_msg_name => G_OKL_UNEXPECTED_ERROR
1504: ,p_token1 => G_OKL_SQLCODE_TOKEN
1505: ,p_token1_value => SQLCODE
1506: ,p_token2 => G_OKL_SQLERRM_TOKEN
1506: ,p_token2 => G_OKL_SQLERRM_TOKEN
1507: ,p_token2_value => SQLERRM);
1508:
1509: -- notify caller of an UNEXPECTED error
1510: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1511:
1512: END Validate_Number_Of_Periods;
1513:
1514: ---------------------------------------------------------------------------
1527: FUNCTION Validate_Attributes (
1528: p_sfev_rec IN sfev_rec_type
1529: ) RETURN VARCHAR2 IS
1530:
1531: x_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1532: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1533: BEGIN
1534: -- call each column-level validation
1535: -- Validate_Id
1528: p_sfev_rec IN sfev_rec_type
1529: ) RETURN VARCHAR2 IS
1530:
1531: x_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1532: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1533: BEGIN
1534: -- call each column-level validation
1535: -- Validate_Id
1536: Validate_Id(p_sfev_rec, x_return_status);
1533: BEGIN
1534: -- call each column-level validation
1535: -- Validate_Id
1536: Validate_Id(p_sfev_rec, x_return_status);
1537: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1538: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1539: -- need to exit
1540: l_return_status := x_return_status;
1541: RAISE G_EXCEPTION_HALT_VALIDATION;
1534: -- call each column-level validation
1535: -- Validate_Id
1536: Validate_Id(p_sfev_rec, x_return_status);
1537: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1538: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1539: -- need to exit
1540: l_return_status := x_return_status;
1541: RAISE G_EXCEPTION_HALT_VALIDATION;
1542: ELSE
1546: END IF;
1547:
1548: -- Validate_Object_Version_Number
1549: Validate_Object_Version_Number(p_sfev_rec, x_return_status);
1550: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1551: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1552: -- need to exit
1553: l_return_status := x_return_status;
1554: RAISE G_EXCEPTION_HALT_VALIDATION;
1547:
1548: -- Validate_Object_Version_Number
1549: Validate_Object_Version_Number(p_sfev_rec, x_return_status);
1550: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1551: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1552: -- need to exit
1553: l_return_status := x_return_status;
1554: RAISE G_EXCEPTION_HALT_VALIDATION;
1555: ELSE
1559: END IF;
1560:
1561: -- Validate_Sif_id
1562: Validate_Sif_id(p_sfev_rec, x_return_status);
1563: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1564: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1565:
1566: -- need to exit
1567: l_return_status := x_return_status;
1560:
1561: -- Validate_Sif_id
1562: Validate_Sif_id(p_sfev_rec, x_return_status);
1563: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1564: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1565:
1566: -- need to exit
1567: l_return_status := x_return_status;
1568: RAISE G_EXCEPTION_HALT_VALIDATION;
1573: END IF;
1574:
1575: -- Validate_Kle_Id
1576: Validate_Kle_Id(p_sfev_rec, x_return_status);
1577: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1578: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1579: -- need to exit
1580: l_return_status := x_return_status;
1581: RAISE G_EXCEPTION_HALT_VALIDATION;
1574:
1575: -- Validate_Kle_Id
1576: Validate_Kle_Id(p_sfev_rec, x_return_status);
1577: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1578: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1579: -- need to exit
1580: l_return_status := x_return_status;
1581: RAISE G_EXCEPTION_HALT_VALIDATION;
1582: ELSE
1586: END IF;
1587:
1588: -- Validate_Sil_Id
1589: Validate_Sil_Id(p_sfev_rec, x_return_status);
1590: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1591: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1592: -- need to exit
1593: l_return_status := x_return_status;
1594: RAISE G_EXCEPTION_HALT_VALIDATION;
1587:
1588: -- Validate_Sil_Id
1589: Validate_Sil_Id(p_sfev_rec, x_return_status);
1590: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1591: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1592: -- need to exit
1593: l_return_status := x_return_status;
1594: RAISE G_EXCEPTION_HALT_VALIDATION;
1595: ELSE
1600:
1601:
1602: -- Validate_Sfe_Type
1603: Validate_Sfe_Type(p_sfev_rec, x_return_status);
1604: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1605: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1606: -- need to exit
1607: l_return_status := x_return_status;
1608: RAISE G_EXCEPTION_HALT_VALIDATION;
1601:
1602: -- Validate_Sfe_Type
1603: Validate_Sfe_Type(p_sfev_rec, x_return_status);
1604: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1605: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1606: -- need to exit
1607: l_return_status := x_return_status;
1608: RAISE G_EXCEPTION_HALT_VALIDATION;
1609: ELSE
1613: END IF;
1614:
1615: -- Validate_Income_Or_Expense
1616: Validate_Income_Or_Expense(p_sfev_rec, x_return_status);
1617: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1618: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1619: -- need to exit
1620: l_return_status := x_return_status;
1621: RAISE G_EXCEPTION_HALT_VALIDATION;
1614:
1615: -- Validate_Income_Or_Expense
1616: Validate_Income_Or_Expense(p_sfev_rec, x_return_status);
1617: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1618: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1619: -- need to exit
1620: l_return_status := x_return_status;
1621: RAISE G_EXCEPTION_HALT_VALIDATION;
1622: ELSE
1626: END IF;
1627:
1628: -- Validate_Advance_Or_Arrears
1629: Validate_Advance_Or_Arrears(p_sfev_rec, x_return_status);
1630: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1631: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1632: -- need to exit
1633: l_return_status := x_return_status;
1634: RAISE G_EXCEPTION_HALT_VALIDATION;
1627:
1628: -- Validate_Advance_Or_Arrears
1629: Validate_Advance_Or_Arrears(p_sfev_rec, x_return_status);
1630: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1631: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1632: -- need to exit
1633: l_return_status := x_return_status;
1634: RAISE G_EXCEPTION_HALT_VALIDATION;
1635: ELSE
1639: END IF;
1640:
1641: -- Validate_Amount
1642: Validate_Amount(p_sfev_rec, x_return_status);
1643: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1644: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1645: -- need to exit
1646: l_return_status := x_return_status;
1647: RAISE G_EXCEPTION_HALT_VALIDATION;
1640:
1641: -- Validate_Amount
1642: Validate_Amount(p_sfev_rec, x_return_status);
1643: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1644: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1645: -- need to exit
1646: l_return_status := x_return_status;
1647: RAISE G_EXCEPTION_HALT_VALIDATION;
1648: ELSE
1654: IF (p_sfev_rec.Sfe_Type = G_SFE_TYPE_ONE_OFF)
1655: THEN
1656: -- Validate_Date_Paid
1657: Validate_Date_Paid(p_sfev_rec, x_return_status);
1658: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1659: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1660: -- need to exit
1661: l_return_status := x_return_status;
1662: RAISE G_EXCEPTION_HALT_VALIDATION;
1655: THEN
1656: -- Validate_Date_Paid
1657: Validate_Date_Paid(p_sfev_rec, x_return_status);
1658: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1659: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1660: -- need to exit
1661: l_return_status := x_return_status;
1662: RAISE G_EXCEPTION_HALT_VALIDATION;
1663: ELSE
1671: OR p_sfev_rec.Sfe_Type = G_SFE_TYPE_LOAN )
1672: THEN
1673: -- Validate_Date_Start
1674: Validate_Date_Start(p_sfev_rec, x_return_status);
1675: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1676: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1677: -- need to exit
1678: l_return_status := x_return_status;
1679: RAISE G_EXCEPTION_HALT_VALIDATION;
1672: THEN
1673: -- Validate_Date_Start
1674: Validate_Date_Start(p_sfev_rec, x_return_status);
1675: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1676: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1677: -- need to exit
1678: l_return_status := x_return_status;
1679: RAISE G_EXCEPTION_HALT_VALIDATION;
1680: ELSE
1685:
1686: -- Validate_Level_Index_Number
1687: Validate_Level_Index_Number(p_sfev_rec, x_return_status);
1688:
1689: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1690: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1691: -- need to exit
1692: l_return_status := x_return_status;
1693: RAISE G_EXCEPTION_HALT_VALIDATION;
1686: -- Validate_Level_Index_Number
1687: Validate_Level_Index_Number(p_sfev_rec, x_return_status);
1688:
1689: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1690: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1691: -- need to exit
1692: l_return_status := x_return_status;
1693: RAISE G_EXCEPTION_HALT_VALIDATION;
1694: ELSE
1702: -- Validation removed as LEVEL_TYPE is made NULLABLE.
1703:
1704: -- Validate_Level_Type
1705: Validate_Level_Type(p_sfev_rec, x_return_status);
1706: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1707: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1708: -- need to exit
1709: l_return_status := x_return_status;
1710: RAISE G_EXCEPTION_HALT_VALIDATION;
1703:
1704: -- Validate_Level_Type
1705: Validate_Level_Type(p_sfev_rec, x_return_status);
1706: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1707: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1708: -- need to exit
1709: l_return_status := x_return_status;
1710: RAISE G_EXCEPTION_HALT_VALIDATION;
1711: ELSE
1718:
1719: -- Validate_Period
1720: Validate_Period(p_sfev_rec, x_return_status);
1721:
1722: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1723: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1724: -- need to exit
1725: l_return_status := x_return_status;
1726: RAISE G_EXCEPTION_HALT_VALIDATION;
1719: -- Validate_Period
1720: Validate_Period(p_sfev_rec, x_return_status);
1721:
1722: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1723: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1724: -- need to exit
1725: l_return_status := x_return_status;
1726: RAISE G_EXCEPTION_HALT_VALIDATION;
1727: ELSE
1730: END IF;
1731: END IF;
1732: -- Validate_Number_Of_Periods
1733: Validate_Number_Of_Periods(p_sfev_rec, x_return_status);
1734: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1735: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1736: -- need to exit
1737: l_return_status := x_return_status;
1738: RAISE G_EXCEPTION_HALT_VALIDATION;
1731: END IF;
1732: -- Validate_Number_Of_Periods
1733: Validate_Number_Of_Periods(p_sfev_rec, x_return_status);
1734: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1735: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1736: -- need to exit
1737: l_return_status := x_return_status;
1738: RAISE G_EXCEPTION_HALT_VALIDATION;
1739: ELSE
1750: RETURN (l_return_status);
1751:
1752: WHEN OTHERS THEN
1753: -- store SQL error message on message stack for caller
1754: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
1755: p_msg_name => G_OKL_UNEXPECTED_ERROR,
1756: p_token1 => G_OKL_SQLCODE_TOKEN,
1757: p_token1_value => SQLCODE,
1758: p_token2 => G_OKL_SQLERRM_TOKEN,
1757: p_token1_value => SQLCODE,
1758: p_token2 => G_OKL_SQLERRM_TOKEN,
1759: p_token2_value => SQLERRM);
1760: -- notify caller of an UNEXPECTED error
1761: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1762:
1763: RETURN(l_return_status);
1764: END Validate_Attributes;
1765: -- END change : akjain
1794: l_row_found := okl_sfe_unique_csr%FOUND;
1795: CLOSE okl_sfe_unique_csr;
1796:
1797: IF l_row_found THEN
1798: Okc_Api.set_message(G_APP_NAME,G_OKL_UNQS);
1799: x_return_status := Okc_Api.G_RET_STS_ERROR;
1800: END IF;
1801: EXCEPTION
1802: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1795: CLOSE okl_sfe_unique_csr;
1796:
1797: IF l_row_found THEN
1798: Okc_Api.set_message(G_APP_NAME,G_OKL_UNQS);
1799: x_return_status := Okc_Api.G_RET_STS_ERROR;
1800: END IF;
1801: EXCEPTION
1802: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1803: -- no processing necessary; validation can continue
1808: END IF;
1809:
1810: WHEN OTHERS THEN
1811: -- store SQL error message on message stack for caller
1812: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME
1813: ,p_msg_name => G_OKL_UNEXPECTED_ERROR
1814: ,p_token1 => G_OKL_SQLCODE_TOKEN
1815: ,p_token1_value => SQLCODE
1816: ,p_token2 => G_OKL_SQLERRM_TOKEN
1816: ,p_token2 => G_OKL_SQLERRM_TOKEN
1817: ,p_token2_value => SQLERRM);
1818:
1819: -- notify caller of an UNEXPECTED error
1820: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1821:
1822: -- verify that the cursor was closed
1823: IF okl_sfe_unique_csr%ISOPEN THEN
1824: CLOSE okl_sfe_unique_csr;
1833: ----------------------------------------
1834: FUNCTION Validate_Record (
1835: p_sfev_rec IN sfev_rec_type
1836: ) RETURN VARCHAR2 IS
1837: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1838: BEGIN
1839: -- Validate_Unique_Sfe_Record
1840: Validate_Unique_Sfe_Record(p_sfev_rec, l_return_status);
1841: IF (l_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1837: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1838: BEGIN
1839: -- Validate_Unique_Sfe_Record
1840: Validate_Unique_Sfe_Record(p_sfev_rec, l_return_status);
1841: IF (l_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1842: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1843: RAISE G_EXCEPTION_HALT_VALIDATION;
1844: END IF;
1845: END IF;
1838: BEGIN
1839: -- Validate_Unique_Sfe_Record
1840: Validate_Unique_Sfe_Record(p_sfev_rec, l_return_status);
1841: IF (l_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1842: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1843: RAISE G_EXCEPTION_HALT_VALIDATION;
1844: END IF;
1845: END IF;
1846:
1852: RETURN (l_return_status);
1853:
1854: WHEN OTHERS THEN
1855: -- store SQL error message on message stack for caller
1856: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
1857: p_msg_name => G_OKL_UNEXPECTED_ERROR,
1858: p_token1 => G_OKL_SQLCODE_TOKEN,
1859: p_token1_value => SQLCODE,
1860: p_token2 => G_OKL_SQLERRM_TOKEN,
1859: p_token1_value => SQLCODE,
1860: p_token2 => G_OKL_SQLERRM_TOKEN,
1861: p_token2_value => SQLERRM);
1862: -- notify caller of an UNEXPECTED error
1863: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1864:
1865: RETURN (l_return_status);
1866: END Validate_Record;
1867:
2005: -- validate_row for:OKL_SIF_FEES_V --
2006: -------------------------------------
2007: PROCEDURE validate_row(
2008: p_api_version IN NUMBER,
2009: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2010: x_return_status OUT NOCOPY VARCHAR2,
2011: x_msg_count OUT NOCOPY NUMBER,
2012: x_msg_data OUT NOCOPY VARCHAR2,
2013: p_sfev_rec IN sfev_rec_type) IS
2013: p_sfev_rec IN sfev_rec_type) IS
2014:
2015: l_api_version CONSTANT NUMBER := 1;
2016: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
2017: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2018: l_sfev_rec sfev_rec_type := p_sfev_rec;
2019: l_sfe_rec sfe_rec_type;
2020: BEGIN
2021: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2017: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2018: l_sfev_rec sfev_rec_type := p_sfev_rec;
2019: l_sfe_rec sfe_rec_type;
2020: BEGIN
2021: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2022: G_PKG_NAME,
2023: p_init_msg_list,
2024: l_api_version,
2025: p_api_version,
2024: l_api_version,
2025: p_api_version,
2026: '_PVT',
2027: x_return_status);
2028: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2029: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2030: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2031: RAISE OKC_API.G_EXCEPTION_ERROR;
2032: END IF;
2025: p_api_version,
2026: '_PVT',
2027: x_return_status);
2028: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2029: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2030: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2031: RAISE OKC_API.G_EXCEPTION_ERROR;
2032: END IF;
2033: --- Validate all non-missing attributes (Item Level Validation)
2026: '_PVT',
2027: x_return_status);
2028: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2029: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2030: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2031: RAISE OKC_API.G_EXCEPTION_ERROR;
2032: END IF;
2033: --- Validate all non-missing attributes (Item Level Validation)
2034: l_return_status := Validate_Attributes(l_sfev_rec);
2027: x_return_status);
2028: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2029: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2030: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2031: RAISE OKC_API.G_EXCEPTION_ERROR;
2032: END IF;
2033: --- Validate all non-missing attributes (Item Level Validation)
2034: l_return_status := Validate_Attributes(l_sfev_rec);
2035: --- If any errors happen abort API
2032: END IF;
2033: --- Validate all non-missing attributes (Item Level Validation)
2034: l_return_status := Validate_Attributes(l_sfev_rec);
2035: --- If any errors happen abort API
2036: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2037: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2038: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2039: RAISE OKC_API.G_EXCEPTION_ERROR;
2040: END IF;
2033: --- Validate all non-missing attributes (Item Level Validation)
2034: l_return_status := Validate_Attributes(l_sfev_rec);
2035: --- If any errors happen abort API
2036: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2037: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2038: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2039: RAISE OKC_API.G_EXCEPTION_ERROR;
2040: END IF;
2041: l_return_status := Validate_Record(l_sfev_rec);
2034: l_return_status := Validate_Attributes(l_sfev_rec);
2035: --- If any errors happen abort API
2036: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2037: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2038: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2039: RAISE OKC_API.G_EXCEPTION_ERROR;
2040: END IF;
2041: l_return_status := Validate_Record(l_sfev_rec);
2042: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2035: --- If any errors happen abort API
2036: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2037: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2038: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2039: RAISE OKC_API.G_EXCEPTION_ERROR;
2040: END IF;
2041: l_return_status := Validate_Record(l_sfev_rec);
2042: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2043: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2038: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2039: RAISE OKC_API.G_EXCEPTION_ERROR;
2040: END IF;
2041: l_return_status := Validate_Record(l_sfev_rec);
2042: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2043: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2044: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2045: RAISE OKC_API.G_EXCEPTION_ERROR;
2046: END IF;
2039: RAISE OKC_API.G_EXCEPTION_ERROR;
2040: END IF;
2041: l_return_status := Validate_Record(l_sfev_rec);
2042: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2043: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2044: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2045: RAISE OKC_API.G_EXCEPTION_ERROR;
2046: END IF;
2047: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2040: END IF;
2041: l_return_status := Validate_Record(l_sfev_rec);
2042: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2043: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2044: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2045: RAISE OKC_API.G_EXCEPTION_ERROR;
2046: END IF;
2047: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2048: EXCEPTION
2041: l_return_status := Validate_Record(l_sfev_rec);
2042: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2043: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2044: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2045: RAISE OKC_API.G_EXCEPTION_ERROR;
2046: END IF;
2047: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2048: EXCEPTION
2049: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2043: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2044: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2045: RAISE OKC_API.G_EXCEPTION_ERROR;
2046: END IF;
2047: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2048: EXCEPTION
2049: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2050: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2051:
2045: RAISE OKC_API.G_EXCEPTION_ERROR;
2046: END IF;
2047: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2048: EXCEPTION
2049: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2050: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2051:
2052: (
2053: l_api_name,
2046: END IF;
2047: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2048: EXCEPTION
2049: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2050: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2051:
2052: (
2053: l_api_name,
2054: G_PKG_NAME,
2051:
2052: (
2053: l_api_name,
2054: G_PKG_NAME,
2055: 'OKC_API.G_RET_STS_ERROR',
2056: x_msg_count,
2057: x_msg_data,
2058: '_PVT'
2059: );
2056: x_msg_count,
2057: x_msg_data,
2058: '_PVT'
2059: );
2060: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2061: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2062: (
2063: l_api_name,
2064: G_PKG_NAME,
2057: x_msg_data,
2058: '_PVT'
2059: );
2060: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2061: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2062: (
2063: l_api_name,
2064: G_PKG_NAME,
2065: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2061: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2062: (
2063: l_api_name,
2064: G_PKG_NAME,
2065: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2066: x_msg_count,
2067: x_msg_data,
2068: '_PVT'
2069: );
2067: x_msg_data,
2068: '_PVT'
2069: );
2070: WHEN OTHERS THEN
2071: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2072: (
2073: l_api_name,
2074: G_PKG_NAME,
2075: 'OTHERS',
2082: -- PL/SQL TBL validate_row for:SFEV_TBL --
2083: ------------------------------------------
2084: PROCEDURE validate_row(
2085: p_api_version IN NUMBER,
2086: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2087: x_return_status OUT NOCOPY VARCHAR2,
2088: x_msg_count OUT NOCOPY NUMBER,
2089: x_msg_data OUT NOCOPY VARCHAR2,
2090: p_sfev_tbl IN sfev_tbl_type) IS
2090: p_sfev_tbl IN sfev_tbl_type) IS
2091:
2092: l_api_version CONSTANT NUMBER := 1;
2093: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
2094: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2095: i NUMBER := 0;
2096:
2097: -- START change : akjain, 09/05/2001
2098: -- Adding OverAll Status Flag
2095: i NUMBER := 0;
2096:
2097: -- START change : akjain, 09/05/2001
2098: -- Adding OverAll Status Flag
2099: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2100: -- END change : akjain
2101:
2102: BEGIN
2103: OKC_API.init_msg_list(p_init_msg_list);
2099: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2100: -- END change : akjain
2101:
2102: BEGIN
2103: OKC_API.init_msg_list(p_init_msg_list);
2104: -- Make sure PL/SQL table has records in it before passing
2105: IF (p_sfev_tbl.COUNT > 0) THEN
2106: i := p_sfev_tbl.FIRST;
2107: LOOP
2106: i := p_sfev_tbl.FIRST;
2107: LOOP
2108: validate_row (
2109: p_api_version => p_api_version,
2110: p_init_msg_list => OKC_API.G_FALSE,
2111: x_return_status => x_return_status,
2112: x_msg_count => x_msg_count,
2113: x_msg_data => x_msg_data,
2114: p_sfev_rec => p_sfev_tbl(i));
2113: x_msg_data => x_msg_data,
2114: p_sfev_rec => p_sfev_tbl(i));
2115: -- START change : akjain, 09/05/2001
2116: -- store the highest degree of error
2117: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
2118: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
2119: l_overall_status := x_return_status;
2120: END IF;
2121: END IF;
2114: p_sfev_rec => p_sfev_tbl(i));
2115: -- START change : akjain, 09/05/2001
2116: -- store the highest degree of error
2117: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
2118: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
2119: l_overall_status := x_return_status;
2120: END IF;
2121: END IF;
2122: -- END change : akjain
2129: -- END change : akjain
2130:
2131: END IF;
2132: EXCEPTION
2133: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2134: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2135: (
2136: l_api_name,
2137: G_PKG_NAME,
2130:
2131: END IF;
2132: EXCEPTION
2133: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2134: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2135: (
2136: l_api_name,
2137: G_PKG_NAME,
2138: 'OKC_API.G_RET_STS_ERROR',
2134: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2135: (
2136: l_api_name,
2137: G_PKG_NAME,
2138: 'OKC_API.G_RET_STS_ERROR',
2139: x_msg_count,
2140: x_msg_data,
2141: '_PVT'
2142: );
2139: x_msg_count,
2140: x_msg_data,
2141: '_PVT'
2142: );
2143: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2144: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2145: (
2146: l_api_name,
2147: G_PKG_NAME,
2140: x_msg_data,
2141: '_PVT'
2142: );
2143: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2144: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2145: (
2146: l_api_name,
2147: G_PKG_NAME,
2148: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2144: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2145: (
2146: l_api_name,
2147: G_PKG_NAME,
2148: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2149: x_msg_count,
2150: x_msg_data,
2151:
2152: '_PVT'
2151:
2152: '_PVT'
2153: );
2154: WHEN OTHERS THEN
2155: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2156: (
2157: l_api_name,
2158: G_PKG_NAME,
2159: 'OTHERS',
2169: ---------------------------------
2170: -- insert_row for:OKL_SIF_FEES --
2171: ---------------------------------
2172: PROCEDURE insert_row(
2173: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2174: x_return_status OUT NOCOPY VARCHAR2,
2175: x_msg_count OUT NOCOPY NUMBER,
2176: x_msg_data OUT NOCOPY VARCHAR2,
2177: p_sfe_rec IN sfe_rec_type,
2178: x_sfe_rec OUT NOCOPY sfe_rec_type) IS
2179:
2180: l_api_version CONSTANT NUMBER := 1;
2181: l_api_name CONSTANT VARCHAR2(30) := 'FEES_insert_row';
2182: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2183: l_sfe_rec sfe_rec_type := p_sfe_rec;
2184: l_def_sfe_rec sfe_rec_type;
2185: -------------------------------------
2186: -- Set_Attributes for:OKL_SIF_FEES --
2188: FUNCTION Set_Attributes (
2189: p_sfe_rec IN sfe_rec_type,
2190: x_sfe_rec OUT NOCOPY sfe_rec_type
2191: ) RETURN VARCHAR2 IS
2192: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2193: BEGIN
2194: x_sfe_rec := p_sfe_rec;
2195: RETURN(l_return_status);
2196: END Set_Attributes;
2194: x_sfe_rec := p_sfe_rec;
2195: RETURN(l_return_status);
2196: END Set_Attributes;
2197: BEGIN
2198: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2199: p_init_msg_list,
2200: '_PVT',
2201: x_return_status);
2202: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2198: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2199: p_init_msg_list,
2200: '_PVT',
2201: x_return_status);
2202: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2203: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2204: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2205: RAISE OKC_API.G_EXCEPTION_ERROR;
2206: END IF;
2199: p_init_msg_list,
2200: '_PVT',
2201: x_return_status);
2202: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2203: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2204: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2205: RAISE OKC_API.G_EXCEPTION_ERROR;
2206: END IF;
2207: --- Setting item attributes
2200: '_PVT',
2201: x_return_status);
2202: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2203: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2204: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2205: RAISE OKC_API.G_EXCEPTION_ERROR;
2206: END IF;
2207: --- Setting item attributes
2208: l_return_status := Set_Attributes(
2201: x_return_status);
2202: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2203: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2204: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2205: RAISE OKC_API.G_EXCEPTION_ERROR;
2206: END IF;
2207: --- Setting item attributes
2208: l_return_status := Set_Attributes(
2209: p_sfe_rec, -- IN
2208: l_return_status := Set_Attributes(
2209: p_sfe_rec, -- IN
2210: l_sfe_rec); -- OUT
2211: --- If any errors happen abort API
2212: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2213: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2214: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2215: RAISE OKC_API.G_EXCEPTION_ERROR;
2216: END IF;
2209: p_sfe_rec, -- IN
2210: l_sfe_rec); -- OUT
2211: --- If any errors happen abort API
2212: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2213: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2214: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2215: RAISE OKC_API.G_EXCEPTION_ERROR;
2216: END IF;
2217:
2210: l_sfe_rec); -- OUT
2211: --- If any errors happen abort API
2212: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2213: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2214: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2215: RAISE OKC_API.G_EXCEPTION_ERROR;
2216: END IF;
2217:
2218: INSERT INTO OKL_SIF_FEES(
2211: --- If any errors happen abort API
2212: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2213: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2214: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2215: RAISE OKC_API.G_EXCEPTION_ERROR;
2216: END IF;
2217:
2218: INSERT INTO OKL_SIF_FEES(
2219: id,
2334: l_sfe_rec.down_payment_amount,
2335: l_sfe_rec.orig_contract_line_id);
2336: -- Set OUT values
2337: x_sfe_rec := l_sfe_rec;
2338: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2339: EXCEPTION
2340: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2341: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2342: (
2336: -- Set OUT values
2337: x_sfe_rec := l_sfe_rec;
2338: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2339: EXCEPTION
2340: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2341: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2342: (
2343: l_api_name,
2344: G_PKG_NAME,
2337: x_sfe_rec := l_sfe_rec;
2338: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2339: EXCEPTION
2340: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2341: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2342: (
2343: l_api_name,
2344: G_PKG_NAME,
2345: 'OKC_API.G_RET_STS_ERROR',
2341: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2342: (
2343: l_api_name,
2344: G_PKG_NAME,
2345: 'OKC_API.G_RET_STS_ERROR',
2346: x_msg_count,
2347: x_msg_data,
2348: '_PVT'
2349: );
2346: x_msg_count,
2347: x_msg_data,
2348: '_PVT'
2349: );
2350: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2351: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2352: (
2353: l_api_name,
2354: G_PKG_NAME,
2347: x_msg_data,
2348: '_PVT'
2349: );
2350: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2351: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2352: (
2353: l_api_name,
2354: G_PKG_NAME,
2355: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2351: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2352: (
2353: l_api_name,
2354: G_PKG_NAME,
2355: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2356: x_msg_count,
2357: x_msg_data,
2358: '_PVT'
2359: );
2357: x_msg_data,
2358: '_PVT'
2359: );
2360: WHEN OTHERS THEN
2361: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2362: (
2363: l_api_name,
2364: G_PKG_NAME,
2365:
2373: -- insert_row for:OKL_SIF_FEES_V --
2374: -----------------------------------
2375: PROCEDURE insert_row(
2376: p_api_version IN NUMBER,
2377: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2378: x_return_status OUT NOCOPY VARCHAR2,
2379: x_msg_count OUT NOCOPY NUMBER,
2380: x_msg_data OUT NOCOPY VARCHAR2,
2381: p_sfev_rec IN sfev_rec_type,
2382: x_sfev_rec OUT NOCOPY sfev_rec_type) IS
2383:
2384: l_api_version CONSTANT NUMBER := 1;
2385: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
2386: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2387: l_sfev_rec sfev_rec_type;
2388: l_def_sfev_rec sfev_rec_type;
2389: l_sfe_rec sfe_rec_type;
2390: lx_sfe_rec sfe_rec_type;
2409: FUNCTION Set_Attributes (
2410: p_sfev_rec IN sfev_rec_type,
2411: x_sfev_rec OUT NOCOPY sfev_rec_type
2412: ) RETURN VARCHAR2 IS
2413: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2414: BEGIN
2415: x_sfev_rec := p_sfev_rec;
2416: x_sfev_rec.OBJECT_VERSION_NUMBER := 1;
2417: RETURN(l_return_status);
2416: x_sfev_rec.OBJECT_VERSION_NUMBER := 1;
2417: RETURN(l_return_status);
2418: END Set_Attributes;
2419: BEGIN
2420: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2421: G_PKG_NAME,
2422: p_init_msg_list,
2423: l_api_version,
2424: p_api_version,
2423: l_api_version,
2424: p_api_version,
2425: '_PVT',
2426: x_return_status);
2427: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2428: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2429: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2430: RAISE OKC_API.G_EXCEPTION_ERROR;
2431: END IF;
2424: p_api_version,
2425: '_PVT',
2426: x_return_status);
2427: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2428: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2429: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2430: RAISE OKC_API.G_EXCEPTION_ERROR;
2431: END IF;
2432: l_sfev_rec := null_out_defaults(p_sfev_rec);
2425: '_PVT',
2426: x_return_status);
2427: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2428: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2429: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2430: RAISE OKC_API.G_EXCEPTION_ERROR;
2431: END IF;
2432: l_sfev_rec := null_out_defaults(p_sfev_rec);
2433: -- Set primary key value
2426: x_return_status);
2427: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2428: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2429: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2430: RAISE OKC_API.G_EXCEPTION_ERROR;
2431: END IF;
2432: l_sfev_rec := null_out_defaults(p_sfev_rec);
2433: -- Set primary key value
2434: l_sfev_rec.ID := get_seq_id;
2436: l_return_status := Set_Attributes(
2437: l_sfev_rec, -- IN
2438: l_def_sfev_rec); -- OUT
2439: --- If any errors happen abort API
2440: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2441: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2442: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2443: RAISE OKC_API.G_EXCEPTION_ERROR;
2444: END IF;
2437: l_sfev_rec, -- IN
2438: l_def_sfev_rec); -- OUT
2439: --- If any errors happen abort API
2440: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2441: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2442: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2443: RAISE OKC_API.G_EXCEPTION_ERROR;
2444: END IF;
2445: l_def_sfev_rec := fill_who_columns(l_def_sfev_rec);
2438: l_def_sfev_rec); -- OUT
2439: --- If any errors happen abort API
2440: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2441: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2442: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2443: RAISE OKC_API.G_EXCEPTION_ERROR;
2444: END IF;
2445: l_def_sfev_rec := fill_who_columns(l_def_sfev_rec);
2446: --- Validate all non-missing attributes (Item Level Validation)
2439: --- If any errors happen abort API
2440: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2441: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2442: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2443: RAISE OKC_API.G_EXCEPTION_ERROR;
2444: END IF;
2445: l_def_sfev_rec := fill_who_columns(l_def_sfev_rec);
2446: --- Validate all non-missing attributes (Item Level Validation)
2447: l_return_status := Validate_Attributes(l_def_sfev_rec);
2445: l_def_sfev_rec := fill_who_columns(l_def_sfev_rec);
2446: --- Validate all non-missing attributes (Item Level Validation)
2447: l_return_status := Validate_Attributes(l_def_sfev_rec);
2448: --- If any errors happen abort API
2449: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2450: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2451: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2452: RAISE OKC_API.G_EXCEPTION_ERROR;
2453: END IF;
2446: --- Validate all non-missing attributes (Item Level Validation)
2447: l_return_status := Validate_Attributes(l_def_sfev_rec);
2448: --- If any errors happen abort API
2449: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2450: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2451: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2452: RAISE OKC_API.G_EXCEPTION_ERROR;
2453: END IF;
2454: l_return_status := Validate_Record(l_def_sfev_rec);
2447: l_return_status := Validate_Attributes(l_def_sfev_rec);
2448: --- If any errors happen abort API
2449: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2450: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2451: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2452: RAISE OKC_API.G_EXCEPTION_ERROR;
2453: END IF;
2454: l_return_status := Validate_Record(l_def_sfev_rec);
2455: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2448: --- If any errors happen abort API
2449: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2450: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2451: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2452: RAISE OKC_API.G_EXCEPTION_ERROR;
2453: END IF;
2454: l_return_status := Validate_Record(l_def_sfev_rec);
2455: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2456: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2451: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2452: RAISE OKC_API.G_EXCEPTION_ERROR;
2453: END IF;
2454: l_return_status := Validate_Record(l_def_sfev_rec);
2455: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2456: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2457: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2458: RAISE OKC_API.G_EXCEPTION_ERROR;
2459: END IF;
2452: RAISE OKC_API.G_EXCEPTION_ERROR;
2453: END IF;
2454: l_return_status := Validate_Record(l_def_sfev_rec);
2455: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2456: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2457: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2458: RAISE OKC_API.G_EXCEPTION_ERROR;
2459: END IF;
2460: --------------------------------------
2453: END IF;
2454: l_return_status := Validate_Record(l_def_sfev_rec);
2455: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2456: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2457: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2458: RAISE OKC_API.G_EXCEPTION_ERROR;
2459: END IF;
2460: --------------------------------------
2461: -- Move VIEW record to "Child" records
2454: l_return_status := Validate_Record(l_def_sfev_rec);
2455: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2456: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2457: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2458: RAISE OKC_API.G_EXCEPTION_ERROR;
2459: END IF;
2460: --------------------------------------
2461: -- Move VIEW record to "Child" records
2462: --------------------------------------
2471: x_msg_data,
2472: l_sfe_rec,
2473: lx_sfe_rec
2474: );
2475: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2476: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2477: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2478: RAISE OKC_API.G_EXCEPTION_ERROR;
2479: END IF;
2472: l_sfe_rec,
2473: lx_sfe_rec
2474: );
2475: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2476: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2477: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2478: RAISE OKC_API.G_EXCEPTION_ERROR;
2479: END IF;
2480: migrate(lx_sfe_rec, l_def_sfev_rec);
2473: lx_sfe_rec
2474: );
2475: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2476: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2477: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2478: RAISE OKC_API.G_EXCEPTION_ERROR;
2479: END IF;
2480: migrate(lx_sfe_rec, l_def_sfev_rec);
2481: -- Set OUT values
2474: );
2475: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2476: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2477: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2478: RAISE OKC_API.G_EXCEPTION_ERROR;
2479: END IF;
2480: migrate(lx_sfe_rec, l_def_sfev_rec);
2481: -- Set OUT values
2482: x_sfev_rec := l_def_sfev_rec;
2479: END IF;
2480: migrate(lx_sfe_rec, l_def_sfev_rec);
2481: -- Set OUT values
2482: x_sfev_rec := l_def_sfev_rec;
2483: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2484: EXCEPTION
2485: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2486: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2487: (
2481: -- Set OUT values
2482: x_sfev_rec := l_def_sfev_rec;
2483: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2484: EXCEPTION
2485: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2486: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2487: (
2488: l_api_name,
2489: G_PKG_NAME,
2482: x_sfev_rec := l_def_sfev_rec;
2483: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2484: EXCEPTION
2485: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2486: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2487: (
2488: l_api_name,
2489: G_PKG_NAME,
2490: 'OKC_API.G_RET_STS_ERROR',
2486: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2487: (
2488: l_api_name,
2489: G_PKG_NAME,
2490: 'OKC_API.G_RET_STS_ERROR',
2491: x_msg_count,
2492: x_msg_data,
2493: '_PVT'
2494: );
2491: x_msg_count,
2492: x_msg_data,
2493: '_PVT'
2494: );
2495: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2496: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2497: (
2498: l_api_name,
2499: G_PKG_NAME,
2492: x_msg_data,
2493: '_PVT'
2494: );
2495: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2496: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2497: (
2498: l_api_name,
2499: G_PKG_NAME,
2500: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2496: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2497: (
2498: l_api_name,
2499: G_PKG_NAME,
2500: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2501: x_msg_count,
2502: x_msg_data,
2503: '_PVT'
2504: );
2502: x_msg_data,
2503: '_PVT'
2504: );
2505: WHEN OTHERS THEN
2506: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2507: (
2508: l_api_name,
2509: G_PKG_NAME,
2510: 'OTHERS',
2517: -- PL/SQL TBL insert_row for:SFEV_TBL --
2518: ----------------------------------------
2519: PROCEDURE insert_row(
2520: p_api_version IN NUMBER,
2521: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2522: x_return_status OUT NOCOPY VARCHAR2,
2523: x_msg_count OUT NOCOPY NUMBER,
2524: x_msg_data OUT NOCOPY VARCHAR2,
2525: p_sfev_tbl IN sfev_tbl_type,
2526: x_sfev_tbl OUT NOCOPY sfev_tbl_type) IS
2527:
2528: l_api_version CONSTANT NUMBER := 1;
2529: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
2530: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2531: i NUMBER := 0;
2532: -- START change : akjain, 09/05/2001
2533: -- Adding OverAll Status Flag
2534: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2530: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2531: i NUMBER := 0;
2532: -- START change : akjain, 09/05/2001
2533: -- Adding OverAll Status Flag
2534: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2535: -- END change : akjain
2536:
2537: BEGIN
2538: OKC_API.init_msg_list(p_init_msg_list);
2534: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2535: -- END change : akjain
2536:
2537: BEGIN
2538: OKC_API.init_msg_list(p_init_msg_list);
2539: -- Make sure PL/SQL table has records in it before passing
2540: IF (p_sfev_tbl.COUNT > 0) THEN
2541: i := p_sfev_tbl.FIRST;
2542: LOOP
2541: i := p_sfev_tbl.FIRST;
2542: LOOP
2543: insert_row (
2544: p_api_version => p_api_version,
2545: p_init_msg_list => OKC_API.G_FALSE,
2546: x_return_status => x_return_status,
2547: x_msg_count => x_msg_count,
2548: x_msg_data => x_msg_data,
2549: p_sfev_rec => p_sfev_tbl(i),
2549: p_sfev_rec => p_sfev_tbl(i),
2550: x_sfev_rec => x_sfev_tbl(i));
2551: -- START change : akjain, 09/05/2001
2552: -- store the highest degree of error
2553: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
2554: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
2555: l_overall_status := x_return_status;
2556: END IF;
2557: END IF;
2550: x_sfev_rec => x_sfev_tbl(i));
2551: -- START change : akjain, 09/05/2001
2552: -- store the highest degree of error
2553: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
2554: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
2555: l_overall_status := x_return_status;
2556: END IF;
2557: END IF;
2558: -- END change : akjain
2565: x_return_status := l_overall_status;
2566: -- END change : akjain
2567: END IF;
2568: EXCEPTION
2569: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2570: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2571: (
2572: l_api_name,
2573: G_PKG_NAME,
2566: -- END change : akjain
2567: END IF;
2568: EXCEPTION
2569: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2570: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2571: (
2572: l_api_name,
2573: G_PKG_NAME,
2574: 'OKC_API.G_RET_STS_ERROR',
2570: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2571: (
2572: l_api_name,
2573: G_PKG_NAME,
2574: 'OKC_API.G_RET_STS_ERROR',
2575: x_msg_count,
2576: x_msg_data,
2577: '_PVT'
2578: );
2575: x_msg_count,
2576: x_msg_data,
2577: '_PVT'
2578: );
2579: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2580: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2581: (
2582: l_api_name,
2583: G_PKG_NAME,
2576: x_msg_data,
2577: '_PVT'
2578: );
2579: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2580: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2581: (
2582: l_api_name,
2583: G_PKG_NAME,
2584: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2580: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2581: (
2582: l_api_name,
2583: G_PKG_NAME,
2584: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2585: x_msg_count,
2586: x_msg_data,
2587: '_PVT'
2588: );
2586: x_msg_data,
2587: '_PVT'
2588: );
2589: WHEN OTHERS THEN
2590: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2591: (
2592: l_api_name,
2593: G_PKG_NAME,
2594: 'OTHERS',
2604: -------------------------------
2605: -- lock_row for:OKL_SIF_FEES --
2606: -------------------------------
2607: PROCEDURE lock_row(
2608: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2609: x_return_status OUT NOCOPY VARCHAR2,
2610: x_msg_count OUT NOCOPY NUMBER,
2611: x_msg_data OUT NOCOPY VARCHAR2,
2612: p_sfe_rec IN sfe_rec_type) IS
2625: FROM OKL_SIF_FEES
2626: WHERE ID = p_sfe_rec.id;
2627: l_api_version CONSTANT NUMBER := 1;
2628: l_api_name CONSTANT VARCHAR2(30) := 'FEES_lock_row';
2629: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2630: l_object_version_number OKL_SIF_FEES.OBJECT_VERSION_NUMBER%TYPE;
2631: lc_object_version_number OKL_SIF_FEES.OBJECT_VERSION_NUMBER%TYPE;
2632: l_row_notfound BOOLEAN := FALSE;
2633: lc_row_notfound BOOLEAN := FALSE;
2631: lc_object_version_number OKL_SIF_FEES.OBJECT_VERSION_NUMBER%TYPE;
2632: l_row_notfound BOOLEAN := FALSE;
2633: lc_row_notfound BOOLEAN := FALSE;
2634: BEGIN
2635: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2636: p_init_msg_list,
2637: '_PVT',
2638: x_return_status);
2639: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2635: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2636: p_init_msg_list,
2637: '_PVT',
2638: x_return_status);
2639: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2640: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2641: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2642: RAISE OKC_API.G_EXCEPTION_ERROR;
2643: END IF;
2636: p_init_msg_list,
2637: '_PVT',
2638: x_return_status);
2639: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2640: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2641: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2642: RAISE OKC_API.G_EXCEPTION_ERROR;
2643: END IF;
2644: BEGIN
2637: '_PVT',
2638: x_return_status);
2639: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2640: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2641: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2642: RAISE OKC_API.G_EXCEPTION_ERROR;
2643: END IF;
2644: BEGIN
2645: OPEN lock_csr(p_sfe_rec);
2638: x_return_status);
2639: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2640: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2641: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2642: RAISE OKC_API.G_EXCEPTION_ERROR;
2643: END IF;
2644: BEGIN
2645: OPEN lock_csr(p_sfe_rec);
2646: FETCH lock_csr INTO l_object_version_number;
2650: WHEN E_Resource_Busy THEN
2651: IF (lock_csr%ISOPEN) THEN
2652: CLOSE lock_csr;
2653: END IF;
2654: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
2655: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
2656: END;
2657:
2658: IF ( l_row_notfound ) THEN
2662: lc_row_notfound := lchk_csr%NOTFOUND;
2663: CLOSE lchk_csr;
2664: END IF;
2665: IF (lc_row_notfound) THEN
2666: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2667: RAISE OKC_API.G_EXCEPTION_ERROR;
2668: ELSIF lc_object_version_number > p_sfe_rec.object_version_number THEN
2669: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2670: RAISE OKC_API.G_EXCEPTION_ERROR;
2663: CLOSE lchk_csr;
2664: END IF;
2665: IF (lc_row_notfound) THEN
2666: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2667: RAISE OKC_API.G_EXCEPTION_ERROR;
2668: ELSIF lc_object_version_number > p_sfe_rec.object_version_number THEN
2669: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2670: RAISE OKC_API.G_EXCEPTION_ERROR;
2671: ELSIF lc_object_version_number <> p_sfe_rec.object_version_number THEN
2665: IF (lc_row_notfound) THEN
2666: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2667: RAISE OKC_API.G_EXCEPTION_ERROR;
2668: ELSIF lc_object_version_number > p_sfe_rec.object_version_number THEN
2669: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2670: RAISE OKC_API.G_EXCEPTION_ERROR;
2671: ELSIF lc_object_version_number <> p_sfe_rec.object_version_number THEN
2672: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2673: RAISE OKC_API.G_EXCEPTION_ERROR;
2666: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2667: RAISE OKC_API.G_EXCEPTION_ERROR;
2668: ELSIF lc_object_version_number > p_sfe_rec.object_version_number THEN
2669: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2670: RAISE OKC_API.G_EXCEPTION_ERROR;
2671: ELSIF lc_object_version_number <> p_sfe_rec.object_version_number THEN
2672: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2673: RAISE OKC_API.G_EXCEPTION_ERROR;
2674: ELSIF lc_object_version_number = -1 THEN
2668: ELSIF lc_object_version_number > p_sfe_rec.object_version_number THEN
2669: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2670: RAISE OKC_API.G_EXCEPTION_ERROR;
2671: ELSIF lc_object_version_number <> p_sfe_rec.object_version_number THEN
2672: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2673: RAISE OKC_API.G_EXCEPTION_ERROR;
2674: ELSIF lc_object_version_number = -1 THEN
2675: OKC_API.set_message(G_OKC_APP,G_RECORD_LOGICALLY_DELETED);
2676: RAISE OKC_API.G_EXCEPTION_ERROR;
2669: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2670: RAISE OKC_API.G_EXCEPTION_ERROR;
2671: ELSIF lc_object_version_number <> p_sfe_rec.object_version_number THEN
2672: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2673: RAISE OKC_API.G_EXCEPTION_ERROR;
2674: ELSIF lc_object_version_number = -1 THEN
2675: OKC_API.set_message(G_OKC_APP,G_RECORD_LOGICALLY_DELETED);
2676: RAISE OKC_API.G_EXCEPTION_ERROR;
2677: END IF;
2671: ELSIF lc_object_version_number <> p_sfe_rec.object_version_number THEN
2672: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2673: RAISE OKC_API.G_EXCEPTION_ERROR;
2674: ELSIF lc_object_version_number = -1 THEN
2675: OKC_API.set_message(G_OKC_APP,G_RECORD_LOGICALLY_DELETED);
2676: RAISE OKC_API.G_EXCEPTION_ERROR;
2677: END IF;
2678: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2679: EXCEPTION
2672: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2673: RAISE OKC_API.G_EXCEPTION_ERROR;
2674: ELSIF lc_object_version_number = -1 THEN
2675: OKC_API.set_message(G_OKC_APP,G_RECORD_LOGICALLY_DELETED);
2676: RAISE OKC_API.G_EXCEPTION_ERROR;
2677: END IF;
2678: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2679: EXCEPTION
2680: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2674: ELSIF lc_object_version_number = -1 THEN
2675: OKC_API.set_message(G_OKC_APP,G_RECORD_LOGICALLY_DELETED);
2676: RAISE OKC_API.G_EXCEPTION_ERROR;
2677: END IF;
2678: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2679: EXCEPTION
2680: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2681: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2682: (
2676: RAISE OKC_API.G_EXCEPTION_ERROR;
2677: END IF;
2678: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2679: EXCEPTION
2680: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2681: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2682: (
2683: l_api_name,
2684: G_PKG_NAME,
2677: END IF;
2678: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2679: EXCEPTION
2680: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2681: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2682: (
2683: l_api_name,
2684: G_PKG_NAME,
2685: 'OKC_API.G_RET_STS_ERROR',
2681: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2682: (
2683: l_api_name,
2684: G_PKG_NAME,
2685: 'OKC_API.G_RET_STS_ERROR',
2686: x_msg_count,
2687: x_msg_data,
2688: '_PVT'
2689: );
2686: x_msg_count,
2687: x_msg_data,
2688: '_PVT'
2689: );
2690: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2691: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2692: (
2693: l_api_name,
2694: G_PKG_NAME,
2687: x_msg_data,
2688: '_PVT'
2689: );
2690: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2691: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2692: (
2693: l_api_name,
2694: G_PKG_NAME,
2695: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2691: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2692: (
2693: l_api_name,
2694: G_PKG_NAME,
2695: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2696: x_msg_count,
2697: x_msg_data,
2698: '_PVT'
2699: );
2697: x_msg_data,
2698: '_PVT'
2699: );
2700: WHEN OTHERS THEN
2701: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2702: (
2703: l_api_name,
2704: G_PKG_NAME,
2705: 'OTHERS',
2712: -- lock_row for:OKL_SIF_FEES_V --
2713: ---------------------------------
2714: PROCEDURE lock_row(
2715: p_api_version IN NUMBER,
2716: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2717: x_return_status OUT NOCOPY VARCHAR2,
2718: x_msg_count OUT NOCOPY NUMBER,
2719: x_msg_data OUT NOCOPY VARCHAR2,
2720: p_sfev_rec IN sfev_rec_type) IS
2720: p_sfev_rec IN sfev_rec_type) IS
2721:
2722: l_api_version CONSTANT NUMBER := 1;
2723: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2724: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2725: l_sfe_rec sfe_rec_type;
2726: BEGIN
2727: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2728: G_PKG_NAME,
2723: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2724: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2725: l_sfe_rec sfe_rec_type;
2726: BEGIN
2727: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2728: G_PKG_NAME,
2729: p_init_msg_list,
2730: l_api_version,
2731: p_api_version,
2730: l_api_version,
2731: p_api_version,
2732: '_PVT',
2733: x_return_status);
2734: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2735: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2736: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2737: RAISE OKC_API.G_EXCEPTION_ERROR;
2738: END IF;
2731: p_api_version,
2732: '_PVT',
2733: x_return_status);
2734: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2735: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2736: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2737: RAISE OKC_API.G_EXCEPTION_ERROR;
2738: END IF;
2739: --------------------------------------
2732: '_PVT',
2733: x_return_status);
2734: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2735: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2736: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2737: RAISE OKC_API.G_EXCEPTION_ERROR;
2738: END IF;
2739: --------------------------------------
2740: -- Move VIEW record to "Child" records
2733: x_return_status);
2734: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2735: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2736: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2737: RAISE OKC_API.G_EXCEPTION_ERROR;
2738: END IF;
2739: --------------------------------------
2740: -- Move VIEW record to "Child" records
2741: --------------------------------------
2749: x_msg_count,
2750: x_msg_data,
2751: l_sfe_rec
2752: );
2753: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2754: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2755: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2756: RAISE OKC_API.G_EXCEPTION_ERROR;
2757: END IF;
2750: x_msg_data,
2751: l_sfe_rec
2752: );
2753: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2754: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2755: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2756: RAISE OKC_API.G_EXCEPTION_ERROR;
2757: END IF;
2758: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2751: l_sfe_rec
2752: );
2753: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2754: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2755: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2756: RAISE OKC_API.G_EXCEPTION_ERROR;
2757: END IF;
2758: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2759:
2752: );
2753: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2754: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2755: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2756: RAISE OKC_API.G_EXCEPTION_ERROR;
2757: END IF;
2758: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2759:
2760: EXCEPTION
2754: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2755: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2756: RAISE OKC_API.G_EXCEPTION_ERROR;
2757: END IF;
2758: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2759:
2760: EXCEPTION
2761: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2762: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2757: END IF;
2758: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2759:
2760: EXCEPTION
2761: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2762: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2763: (
2764: l_api_name,
2765: G_PKG_NAME,
2758: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2759:
2760: EXCEPTION
2761: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2762: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2763: (
2764: l_api_name,
2765: G_PKG_NAME,
2766: 'OKC_API.G_RET_STS_ERROR',
2762: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2763: (
2764: l_api_name,
2765: G_PKG_NAME,
2766: 'OKC_API.G_RET_STS_ERROR',
2767: x_msg_count,
2768: x_msg_data,
2769: '_PVT'
2770: );
2767: x_msg_count,
2768: x_msg_data,
2769: '_PVT'
2770: );
2771: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2772: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2773: (
2774: l_api_name,
2775: G_PKG_NAME,
2768: x_msg_data,
2769: '_PVT'
2770: );
2771: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2772: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2773: (
2774: l_api_name,
2775: G_PKG_NAME,
2776: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2772: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2773: (
2774: l_api_name,
2775: G_PKG_NAME,
2776: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2777: x_msg_count,
2778: x_msg_data,
2779: '_PVT'
2780: );
2778: x_msg_data,
2779: '_PVT'
2780: );
2781: WHEN OTHERS THEN
2782: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2783: (
2784: l_api_name,
2785: G_PKG_NAME,
2786: 'OTHERS',
2793: -- PL/SQL TBL lock_row for:SFEV_TBL --
2794: --------------------------------------
2795: PROCEDURE lock_row(
2796: p_api_version IN NUMBER,
2797: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2798: x_return_status OUT NOCOPY VARCHAR2,
2799: x_msg_count OUT NOCOPY NUMBER,
2800: x_msg_data OUT NOCOPY VARCHAR2,
2801: p_sfev_tbl IN sfev_tbl_type) IS
2801: p_sfev_tbl IN sfev_tbl_type) IS
2802:
2803: l_api_version CONSTANT NUMBER := 1;
2804: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2805: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2806: i NUMBER := 0;
2807: -- START change : akjain, 09/05/2001
2808: -- Adding OverAll Status Flag
2809: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2805: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2806: i NUMBER := 0;
2807: -- START change : akjain, 09/05/2001
2808: -- Adding OverAll Status Flag
2809: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2810: -- END change : akjain
2811:
2812: BEGIN
2813: OKC_API.init_msg_list(p_init_msg_list);
2809: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2810: -- END change : akjain
2811:
2812: BEGIN
2813: OKC_API.init_msg_list(p_init_msg_list);
2814: -- Make sure PL/SQL table has records in it before passing
2815: IF (p_sfev_tbl.COUNT > 0) THEN
2816: i := p_sfev_tbl.FIRST;
2817: LOOP
2816: i := p_sfev_tbl.FIRST;
2817: LOOP
2818: lock_row (
2819: p_api_version => p_api_version,
2820: p_init_msg_list => OKC_API.G_FALSE,
2821: x_return_status => x_return_status,
2822: x_msg_count => x_msg_count,
2823: x_msg_data => x_msg_data,
2824: p_sfev_rec => p_sfev_tbl(i));
2823: x_msg_data => x_msg_data,
2824: p_sfev_rec => p_sfev_tbl(i));
2825: -- START change : akjain, 09/05/2001
2826: -- store the highest degree of error
2827: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
2828: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
2829: l_overall_status := x_return_status;
2830: END IF;
2831: END IF;
2824: p_sfev_rec => p_sfev_tbl(i));
2825: -- START change : akjain, 09/05/2001
2826: -- store the highest degree of error
2827: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
2828: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
2829: l_overall_status := x_return_status;
2830: END IF;
2831: END IF;
2832: -- END change : akjain
2838: x_return_status := l_overall_status;
2839: -- END change : akjain
2840: END IF;
2841: EXCEPTION
2842: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2843: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2844: (
2845: l_api_name,
2846: G_PKG_NAME,
2839: -- END change : akjain
2840: END IF;
2841: EXCEPTION
2842: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2843: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2844: (
2845: l_api_name,
2846: G_PKG_NAME,
2847: 'OKC_API.G_RET_STS_ERROR',
2843: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2844: (
2845: l_api_name,
2846: G_PKG_NAME,
2847: 'OKC_API.G_RET_STS_ERROR',
2848: x_msg_count,
2849: x_msg_data,
2850: '_PVT'
2851: );
2848: x_msg_count,
2849: x_msg_data,
2850: '_PVT'
2851: );
2852: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2853: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2854: (
2855: l_api_name,
2856: G_PKG_NAME,
2849: x_msg_data,
2850: '_PVT'
2851: );
2852: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2853: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2854: (
2855: l_api_name,
2856: G_PKG_NAME,
2857: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2853: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2854: (
2855: l_api_name,
2856: G_PKG_NAME,
2857: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2858: x_msg_count,
2859:
2860: x_msg_data,
2861: '_PVT'
2860: x_msg_data,
2861: '_PVT'
2862: );
2863: WHEN OTHERS THEN
2864: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2865: (
2866: l_api_name,
2867: G_PKG_NAME,
2868: 'OTHERS',
2878: ---------------------------------
2879: -- update_row for:OKL_SIF_FEES --
2880: ---------------------------------
2881: PROCEDURE update_row(
2882: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2883: x_return_status OUT NOCOPY VARCHAR2,
2884: x_msg_count OUT NOCOPY NUMBER,
2885: x_msg_data OUT NOCOPY VARCHAR2,
2886: p_sfe_rec IN sfe_rec_type,
2887: x_sfe_rec OUT NOCOPY sfe_rec_type) IS
2888:
2889: l_api_version CONSTANT NUMBER := 1;
2890: l_api_name CONSTANT VARCHAR2(30) := 'FEES_update_row';
2891: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2892: l_sfe_rec sfe_rec_type := p_sfe_rec;
2893: l_def_sfe_rec sfe_rec_type;
2894: l_row_notfound BOOLEAN := TRUE;
2895: ----------------------------------
2900: x_sfe_rec OUT NOCOPY sfe_rec_type
2901: ) RETURN VARCHAR2 IS
2902: l_sfe_rec sfe_rec_type;
2903: l_row_notfound BOOLEAN := TRUE;
2904: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2905: BEGIN
2906: x_sfe_rec := p_sfe_rec;
2907: -- Get current database values
2908: l_sfe_rec := get_rec(p_sfe_rec, l_row_notfound);
2906: x_sfe_rec := p_sfe_rec;
2907: -- Get current database values
2908: l_sfe_rec := get_rec(p_sfe_rec, l_row_notfound);
2909: IF (l_row_notfound) THEN
2910: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2911: END IF;
2912: IF (x_sfe_rec.id = OKC_API.G_MISS_NUM)
2913: THEN
2914: x_sfe_rec.id := l_sfe_rec.id;
2908: l_sfe_rec := get_rec(p_sfe_rec, l_row_notfound);
2909: IF (l_row_notfound) THEN
2910: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2911: END IF;
2912: IF (x_sfe_rec.id = OKC_API.G_MISS_NUM)
2913: THEN
2914: x_sfe_rec.id := l_sfe_rec.id;
2915: END IF;
2916: IF (x_sfe_rec.sfe_type = OKC_API.G_MISS_CHAR)
2912: IF (x_sfe_rec.id = OKC_API.G_MISS_NUM)
2913: THEN
2914: x_sfe_rec.id := l_sfe_rec.id;
2915: END IF;
2916: IF (x_sfe_rec.sfe_type = OKC_API.G_MISS_CHAR)
2917: THEN
2918: x_sfe_rec.sfe_type := l_sfe_rec.sfe_type;
2919: END IF;
2920: IF (x_sfe_rec.date_start = OKC_API.G_MISS_DATE)
2916: IF (x_sfe_rec.sfe_type = OKC_API.G_MISS_CHAR)
2917: THEN
2918: x_sfe_rec.sfe_type := l_sfe_rec.sfe_type;
2919: END IF;
2920: IF (x_sfe_rec.date_start = OKC_API.G_MISS_DATE)
2921: THEN
2922: x_sfe_rec.date_start := l_sfe_rec.date_start;
2923: END IF;
2924: IF (x_sfe_rec.date_paid = OKC_API.G_MISS_DATE)
2920: IF (x_sfe_rec.date_start = OKC_API.G_MISS_DATE)
2921: THEN
2922: x_sfe_rec.date_start := l_sfe_rec.date_start;
2923: END IF;
2924: IF (x_sfe_rec.date_paid = OKC_API.G_MISS_DATE)
2925: THEN
2926: x_sfe_rec.date_paid := l_sfe_rec.date_paid;
2927: END IF;
2928: IF (x_sfe_rec.amount = OKC_API.G_MISS_NUM)
2924: IF (x_sfe_rec.date_paid = OKC_API.G_MISS_DATE)
2925: THEN
2926: x_sfe_rec.date_paid := l_sfe_rec.date_paid;
2927: END IF;
2928: IF (x_sfe_rec.amount = OKC_API.G_MISS_NUM)
2929: THEN
2930: x_sfe_rec.amount := l_sfe_rec.amount;
2931: END IF;
2932: IF (x_sfe_rec.idc_accounting_flag = OKC_API.G_MISS_CHAR)
2928: IF (x_sfe_rec.amount = OKC_API.G_MISS_NUM)
2929: THEN
2930: x_sfe_rec.amount := l_sfe_rec.amount;
2931: END IF;
2932: IF (x_sfe_rec.idc_accounting_flag = OKC_API.G_MISS_CHAR)
2933: THEN
2934: x_sfe_rec.idc_accounting_flag := l_sfe_rec.idc_accounting_flag;
2935: END IF;
2936: IF (x_sfe_rec.income_or_expense = OKC_API.G_MISS_CHAR)
2932: IF (x_sfe_rec.idc_accounting_flag = OKC_API.G_MISS_CHAR)
2933: THEN
2934: x_sfe_rec.idc_accounting_flag := l_sfe_rec.idc_accounting_flag;
2935: END IF;
2936: IF (x_sfe_rec.income_or_expense = OKC_API.G_MISS_CHAR)
2937: THEN
2938: x_sfe_rec.income_or_expense := l_sfe_rec.income_or_expense;
2939: END IF;
2940: IF (x_sfe_rec.description = OKC_API.G_MISS_CHAR)
2936: IF (x_sfe_rec.income_or_expense = OKC_API.G_MISS_CHAR)
2937: THEN
2938: x_sfe_rec.income_or_expense := l_sfe_rec.income_or_expense;
2939: END IF;
2940: IF (x_sfe_rec.description = OKC_API.G_MISS_CHAR)
2941: THEN
2942: x_sfe_rec.description := l_sfe_rec.description;
2943: END IF;
2944: IF (x_sfe_rec.fee_index_number = OKC_API.G_MISS_NUM)
2940: IF (x_sfe_rec.description = OKC_API.G_MISS_CHAR)
2941: THEN
2942: x_sfe_rec.description := l_sfe_rec.description;
2943: END IF;
2944: IF (x_sfe_rec.fee_index_number = OKC_API.G_MISS_NUM)
2945: THEN
2946: x_sfe_rec.fee_index_number := l_sfe_rec.fee_index_number;
2947: END IF;
2948: IF (x_sfe_rec.level_index_number = OKC_API.G_MISS_NUM)
2944: IF (x_sfe_rec.fee_index_number = OKC_API.G_MISS_NUM)
2945: THEN
2946: x_sfe_rec.fee_index_number := l_sfe_rec.fee_index_number;
2947: END IF;
2948: IF (x_sfe_rec.level_index_number = OKC_API.G_MISS_NUM)
2949: THEN
2950: x_sfe_rec.level_index_number := l_sfe_rec.level_index_number;
2951: END IF;
2952: IF (x_sfe_rec.advance_or_arrears = OKC_API.G_MISS_CHAR)
2948: IF (x_sfe_rec.level_index_number = OKC_API.G_MISS_NUM)
2949: THEN
2950: x_sfe_rec.level_index_number := l_sfe_rec.level_index_number;
2951: END IF;
2952: IF (x_sfe_rec.advance_or_arrears = OKC_API.G_MISS_CHAR)
2953: THEN
2954: x_sfe_rec.advance_or_arrears := l_sfe_rec.advance_or_arrears;
2955: END IF;
2956:
2953: THEN
2954: x_sfe_rec.advance_or_arrears := l_sfe_rec.advance_or_arrears;
2955: END IF;
2956:
2957: IF (x_sfe_rec.cash_effect_yn = OKC_API.G_MISS_CHAR)
2958: THEN
2959: x_sfe_rec.cash_effect_yn := l_sfe_rec.cash_effect_yn;
2960: END IF;
2961:
2958: THEN
2959: x_sfe_rec.cash_effect_yn := l_sfe_rec.cash_effect_yn;
2960: END IF;
2961:
2962: IF (x_sfe_rec.tax_effect_yn = OKC_API.G_MISS_CHAR)
2963: THEN
2964: x_sfe_rec.tax_effect_yn := l_sfe_rec.tax_effect_yn;
2965: END IF;
2966:
2963: THEN
2964: x_sfe_rec.tax_effect_yn := l_sfe_rec.tax_effect_yn;
2965: END IF;
2966:
2967: IF (x_sfe_rec.days_in_month = OKC_API.G_MISS_CHAR)
2968: THEN
2969: x_sfe_rec.days_in_month := l_sfe_rec.days_in_month;
2970: END IF;
2971:
2968: THEN
2969: x_sfe_rec.days_in_month := l_sfe_rec.days_in_month;
2970: END IF;
2971:
2972: IF (x_sfe_rec.days_in_year = OKC_API.G_MISS_CHAR)
2973: THEN
2974: x_sfe_rec.days_in_year := l_sfe_rec.days_in_year;
2975: END IF;
2976:
2973: THEN
2974: x_sfe_rec.days_in_year := l_sfe_rec.days_in_year;
2975: END IF;
2976:
2977: IF (x_sfe_rec.balance_type_code = OKC_API.G_MISS_CHAR)
2978: THEN
2979: x_sfe_rec.balance_type_code := l_sfe_rec.balance_type_code;
2980: END IF;
2981:
2978: THEN
2979: x_sfe_rec.balance_type_code := l_sfe_rec.balance_type_code;
2980: END IF;
2981:
2982: IF (x_sfe_rec.level_type = OKC_API.G_MISS_CHAR)
2983: THEN
2984: x_sfe_rec.level_type := l_sfe_rec.level_type;
2985:
2986: END IF;
2983: THEN
2984: x_sfe_rec.level_type := l_sfe_rec.level_type;
2985:
2986: END IF;
2987: IF (x_sfe_rec.lock_level_step = OKC_API.G_MISS_CHAR)
2988: THEN
2989: x_sfe_rec.lock_level_step := l_sfe_rec.lock_level_step;
2990: END IF;
2991: IF (x_sfe_rec.period = OKC_API.G_MISS_CHAR)
2987: IF (x_sfe_rec.lock_level_step = OKC_API.G_MISS_CHAR)
2988: THEN
2989: x_sfe_rec.lock_level_step := l_sfe_rec.lock_level_step;
2990: END IF;
2991: IF (x_sfe_rec.period = OKC_API.G_MISS_CHAR)
2992: THEN
2993: x_sfe_rec.period := l_sfe_rec.period;
2994: END IF;
2995: IF (x_sfe_rec.number_of_periods = OKC_API.G_MISS_NUM)
2991: IF (x_sfe_rec.period = OKC_API.G_MISS_CHAR)
2992: THEN
2993: x_sfe_rec.period := l_sfe_rec.period;
2994: END IF;
2995: IF (x_sfe_rec.number_of_periods = OKC_API.G_MISS_NUM)
2996: THEN
2997: x_sfe_rec.number_of_periods := l_sfe_rec.number_of_periods;
2998: END IF;
2999: IF (x_sfe_rec.level_line_number = OKC_API.G_MISS_NUM)
2995: IF (x_sfe_rec.number_of_periods = OKC_API.G_MISS_NUM)
2996: THEN
2997: x_sfe_rec.number_of_periods := l_sfe_rec.number_of_periods;
2998: END IF;
2999: IF (x_sfe_rec.level_line_number = OKC_API.G_MISS_NUM)
3000: THEN
3001: x_sfe_rec.level_line_number := l_sfe_rec.level_line_number;
3002: END IF;
3003: IF (x_sfe_rec.sif_id = OKC_API.G_MISS_NUM)
2999: IF (x_sfe_rec.level_line_number = OKC_API.G_MISS_NUM)
3000: THEN
3001: x_sfe_rec.level_line_number := l_sfe_rec.level_line_number;
3002: END IF;
3003: IF (x_sfe_rec.sif_id = OKC_API.G_MISS_NUM)
3004: THEN
3005: x_sfe_rec.sif_id := l_sfe_rec.sif_id;
3006: END IF;
3007: IF (x_sfe_rec.kle_id = OKC_API.G_MISS_NUM)
3003: IF (x_sfe_rec.sif_id = OKC_API.G_MISS_NUM)
3004: THEN
3005: x_sfe_rec.sif_id := l_sfe_rec.sif_id;
3006: END IF;
3007: IF (x_sfe_rec.kle_id = OKC_API.G_MISS_NUM)
3008: THEN
3009: x_sfe_rec.kle_id := l_sfe_rec.kle_id;
3010: END IF;
3011: IF (x_sfe_rec.sil_id = OKC_API.G_MISS_NUM)
3007: IF (x_sfe_rec.kle_id = OKC_API.G_MISS_NUM)
3008: THEN
3009: x_sfe_rec.kle_id := l_sfe_rec.kle_id;
3010: END IF;
3011: IF (x_sfe_rec.sil_id = OKC_API.G_MISS_NUM)
3012: THEN
3013: x_sfe_rec.sil_id := l_sfe_rec.sil_id;
3014: END IF;
3015: IF (x_sfe_rec.rate = OKC_API.G_MISS_NUM)
3011: IF (x_sfe_rec.sil_id = OKC_API.G_MISS_NUM)
3012: THEN
3013: x_sfe_rec.sil_id := l_sfe_rec.sil_id;
3014: END IF;
3015: IF (x_sfe_rec.rate = OKC_API.G_MISS_NUM)
3016: THEN
3017: x_sfe_rec.rate := l_sfe_rec.rate;
3018: END IF;
3019: -- mvasudev, 05/13/2002
3016: THEN
3017: x_sfe_rec.rate := l_sfe_rec.rate;
3018: END IF;
3019: -- mvasudev, 05/13/2002
3020: IF (x_sfe_rec.query_level_yn = OKC_API.G_MISS_CHAR)
3021: THEN
3022: x_sfe_rec.query_level_yn := l_sfe_rec.query_level_yn;
3023: END IF;
3024: IF (x_sfe_rec.STRUCTURE = OKC_API.G_MISS_CHAR)
3020: IF (x_sfe_rec.query_level_yn = OKC_API.G_MISS_CHAR)
3021: THEN
3022: x_sfe_rec.query_level_yn := l_sfe_rec.query_level_yn;
3023: END IF;
3024: IF (x_sfe_rec.STRUCTURE = OKC_API.G_MISS_CHAR)
3025: THEN
3026: x_sfe_rec.STRUCTURE := l_sfe_rec.STRUCTURE;
3027: END IF;
3028: IF (x_sfe_rec.DAYS_IN_PERIOD = OKC_API.G_MISS_NUM)
3024: IF (x_sfe_rec.STRUCTURE = OKC_API.G_MISS_CHAR)
3025: THEN
3026: x_sfe_rec.STRUCTURE := l_sfe_rec.STRUCTURE;
3027: END IF;
3028: IF (x_sfe_rec.DAYS_IN_PERIOD = OKC_API.G_MISS_NUM)
3029: THEN
3030: x_sfe_rec.DAYS_IN_PERIOD := l_sfe_rec.DAYS_IN_PERIOD;
3031: END IF;
3032: --
3029: THEN
3030: x_sfe_rec.DAYS_IN_PERIOD := l_sfe_rec.DAYS_IN_PERIOD;
3031: END IF;
3032: --
3033: IF (x_sfe_rec.object_version_number = OKC_API.G_MISS_NUM)
3034: THEN
3035: x_sfe_rec.object_version_number := l_sfe_rec.object_version_number;
3036: END IF;
3037: IF (x_sfe_rec.stream_interface_attribute01 = OKC_API.G_MISS_CHAR)
3033: IF (x_sfe_rec.object_version_number = OKC_API.G_MISS_NUM)
3034: THEN
3035: x_sfe_rec.object_version_number := l_sfe_rec.object_version_number;
3036: END IF;
3037: IF (x_sfe_rec.stream_interface_attribute01 = OKC_API.G_MISS_CHAR)
3038: THEN
3039: x_sfe_rec.stream_interface_attribute01 := l_sfe_rec.stream_interface_attribute01;
3040: END IF;
3041: IF (x_sfe_rec.stream_interface_attribute02 = OKC_API.G_MISS_CHAR)
3037: IF (x_sfe_rec.stream_interface_attribute01 = OKC_API.G_MISS_CHAR)
3038: THEN
3039: x_sfe_rec.stream_interface_attribute01 := l_sfe_rec.stream_interface_attribute01;
3040: END IF;
3041: IF (x_sfe_rec.stream_interface_attribute02 = OKC_API.G_MISS_CHAR)
3042: THEN
3043: x_sfe_rec.stream_interface_attribute02 := l_sfe_rec.stream_interface_attribute02;
3044: END IF;
3045: IF (x_sfe_rec.stream_interface_attribute03 = OKC_API.G_MISS_CHAR)
3041: IF (x_sfe_rec.stream_interface_attribute02 = OKC_API.G_MISS_CHAR)
3042: THEN
3043: x_sfe_rec.stream_interface_attribute02 := l_sfe_rec.stream_interface_attribute02;
3044: END IF;
3045: IF (x_sfe_rec.stream_interface_attribute03 = OKC_API.G_MISS_CHAR)
3046: THEN
3047: x_sfe_rec.stream_interface_attribute03 := l_sfe_rec.stream_interface_attribute03;
3048: END IF;
3049: IF (x_sfe_rec.stream_interface_attribute04 = OKC_API.G_MISS_CHAR)
3045: IF (x_sfe_rec.stream_interface_attribute03 = OKC_API.G_MISS_CHAR)
3046: THEN
3047: x_sfe_rec.stream_interface_attribute03 := l_sfe_rec.stream_interface_attribute03;
3048: END IF;
3049: IF (x_sfe_rec.stream_interface_attribute04 = OKC_API.G_MISS_CHAR)
3050: THEN
3051: x_sfe_rec.stream_interface_attribute04 := l_sfe_rec.stream_interface_attribute04;
3052: END IF;
3053: IF (x_sfe_rec.stream_interface_attribute05 = OKC_API.G_MISS_CHAR)
3049: IF (x_sfe_rec.stream_interface_attribute04 = OKC_API.G_MISS_CHAR)
3050: THEN
3051: x_sfe_rec.stream_interface_attribute04 := l_sfe_rec.stream_interface_attribute04;
3052: END IF;
3053: IF (x_sfe_rec.stream_interface_attribute05 = OKC_API.G_MISS_CHAR)
3054: THEN
3055: x_sfe_rec.stream_interface_attribute05 := l_sfe_rec.stream_interface_attribute05;
3056: END IF;
3057: IF (x_sfe_rec.stream_interface_attribute06 = OKC_API.G_MISS_CHAR)
3053: IF (x_sfe_rec.stream_interface_attribute05 = OKC_API.G_MISS_CHAR)
3054: THEN
3055: x_sfe_rec.stream_interface_attribute05 := l_sfe_rec.stream_interface_attribute05;
3056: END IF;
3057: IF (x_sfe_rec.stream_interface_attribute06 = OKC_API.G_MISS_CHAR)
3058: THEN
3059: x_sfe_rec.stream_interface_attribute06 := l_sfe_rec.stream_interface_attribute06;
3060: END IF;
3061: IF (x_sfe_rec.stream_interface_attribute07 = OKC_API.G_MISS_CHAR)
3057: IF (x_sfe_rec.stream_interface_attribute06 = OKC_API.G_MISS_CHAR)
3058: THEN
3059: x_sfe_rec.stream_interface_attribute06 := l_sfe_rec.stream_interface_attribute06;
3060: END IF;
3061: IF (x_sfe_rec.stream_interface_attribute07 = OKC_API.G_MISS_CHAR)
3062: THEN
3063: x_sfe_rec.stream_interface_attribute07 := l_sfe_rec.stream_interface_attribute07;
3064: END IF;
3065: IF (x_sfe_rec.stream_interface_attribute08 = OKC_API.G_MISS_CHAR)
3061: IF (x_sfe_rec.stream_interface_attribute07 = OKC_API.G_MISS_CHAR)
3062: THEN
3063: x_sfe_rec.stream_interface_attribute07 := l_sfe_rec.stream_interface_attribute07;
3064: END IF;
3065: IF (x_sfe_rec.stream_interface_attribute08 = OKC_API.G_MISS_CHAR)
3066: THEN
3067: x_sfe_rec.stream_interface_attribute08 := l_sfe_rec.stream_interface_attribute08;
3068: END IF;
3069: IF (x_sfe_rec.stream_interface_attribute09 = OKC_API.G_MISS_CHAR)
3065: IF (x_sfe_rec.stream_interface_attribute08 = OKC_API.G_MISS_CHAR)
3066: THEN
3067: x_sfe_rec.stream_interface_attribute08 := l_sfe_rec.stream_interface_attribute08;
3068: END IF;
3069: IF (x_sfe_rec.stream_interface_attribute09 = OKC_API.G_MISS_CHAR)
3070: THEN
3071: x_sfe_rec.stream_interface_attribute09 := l_sfe_rec.stream_interface_attribute09;
3072: END IF;
3073: IF (x_sfe_rec.stream_interface_attribute10 = OKC_API.G_MISS_CHAR)
3069: IF (x_sfe_rec.stream_interface_attribute09 = OKC_API.G_MISS_CHAR)
3070: THEN
3071: x_sfe_rec.stream_interface_attribute09 := l_sfe_rec.stream_interface_attribute09;
3072: END IF;
3073: IF (x_sfe_rec.stream_interface_attribute10 = OKC_API.G_MISS_CHAR)
3074: THEN
3075: x_sfe_rec.stream_interface_attribute10 := l_sfe_rec.stream_interface_attribute10;
3076: END IF;
3077: IF (x_sfe_rec.stream_interface_attribute11 = OKC_API.G_MISS_CHAR)
3073: IF (x_sfe_rec.stream_interface_attribute10 = OKC_API.G_MISS_CHAR)
3074: THEN
3075: x_sfe_rec.stream_interface_attribute10 := l_sfe_rec.stream_interface_attribute10;
3076: END IF;
3077: IF (x_sfe_rec.stream_interface_attribute11 = OKC_API.G_MISS_CHAR)
3078: THEN
3079: x_sfe_rec.stream_interface_attribute11 := l_sfe_rec.stream_interface_attribute11;
3080: END IF;
3081: IF (x_sfe_rec.stream_interface_attribute12 = OKC_API.G_MISS_CHAR)
3077: IF (x_sfe_rec.stream_interface_attribute11 = OKC_API.G_MISS_CHAR)
3078: THEN
3079: x_sfe_rec.stream_interface_attribute11 := l_sfe_rec.stream_interface_attribute11;
3080: END IF;
3081: IF (x_sfe_rec.stream_interface_attribute12 = OKC_API.G_MISS_CHAR)
3082: THEN
3083: x_sfe_rec.stream_interface_attribute12 := l_sfe_rec.stream_interface_attribute12;
3084: END IF;
3085:
3082: THEN
3083: x_sfe_rec.stream_interface_attribute12 := l_sfe_rec.stream_interface_attribute12;
3084: END IF;
3085:
3086: IF (x_sfe_rec.stream_interface_attribute13 = OKC_API.G_MISS_CHAR)
3087: THEN
3088: x_sfe_rec.stream_interface_attribute13 := l_sfe_rec.stream_interface_attribute13;
3089: END IF;
3090: IF (x_sfe_rec.stream_interface_attribute14 = OKC_API.G_MISS_CHAR)
3086: IF (x_sfe_rec.stream_interface_attribute13 = OKC_API.G_MISS_CHAR)
3087: THEN
3088: x_sfe_rec.stream_interface_attribute13 := l_sfe_rec.stream_interface_attribute13;
3089: END IF;
3090: IF (x_sfe_rec.stream_interface_attribute14 = OKC_API.G_MISS_CHAR)
3091: THEN
3092: x_sfe_rec.stream_interface_attribute14 := l_sfe_rec.stream_interface_attribute14;
3093: END IF;
3094: IF (x_sfe_rec.stream_interface_attribute15 = OKC_API.G_MISS_CHAR)
3090: IF (x_sfe_rec.stream_interface_attribute14 = OKC_API.G_MISS_CHAR)
3091: THEN
3092: x_sfe_rec.stream_interface_attribute14 := l_sfe_rec.stream_interface_attribute14;
3093: END IF;
3094: IF (x_sfe_rec.stream_interface_attribute15 = OKC_API.G_MISS_CHAR)
3095: THEN
3096: x_sfe_rec.stream_interface_attribute15 := l_sfe_rec.stream_interface_attribute15;
3097: END IF;
3098: IF (x_sfe_rec.stream_interface_attribute16 = OKC_API.G_MISS_CHAR)
3094: IF (x_sfe_rec.stream_interface_attribute15 = OKC_API.G_MISS_CHAR)
3095: THEN
3096: x_sfe_rec.stream_interface_attribute15 := l_sfe_rec.stream_interface_attribute15;
3097: END IF;
3098: IF (x_sfe_rec.stream_interface_attribute16 = OKC_API.G_MISS_CHAR)
3099: THEN
3100: x_sfe_rec.stream_interface_attribute16 := l_sfe_rec.stream_interface_attribute16;
3101: END IF;
3102: IF (x_sfe_rec.stream_interface_attribute17 = OKC_API.G_MISS_CHAR)
3098: IF (x_sfe_rec.stream_interface_attribute16 = OKC_API.G_MISS_CHAR)
3099: THEN
3100: x_sfe_rec.stream_interface_attribute16 := l_sfe_rec.stream_interface_attribute16;
3101: END IF;
3102: IF (x_sfe_rec.stream_interface_attribute17 = OKC_API.G_MISS_CHAR)
3103: THEN
3104: x_sfe_rec.stream_interface_attribute17 := l_sfe_rec.stream_interface_attribute17;
3105: END IF;
3106: IF (x_sfe_rec.stream_interface_attribute18 = OKC_API.G_MISS_CHAR)
3102: IF (x_sfe_rec.stream_interface_attribute17 = OKC_API.G_MISS_CHAR)
3103: THEN
3104: x_sfe_rec.stream_interface_attribute17 := l_sfe_rec.stream_interface_attribute17;
3105: END IF;
3106: IF (x_sfe_rec.stream_interface_attribute18 = OKC_API.G_MISS_CHAR)
3107: THEN
3108: x_sfe_rec.stream_interface_attribute18 := l_sfe_rec.stream_interface_attribute18;
3109: END IF;
3110: IF (x_sfe_rec.stream_interface_attribute19 = OKC_API.G_MISS_CHAR)
3106: IF (x_sfe_rec.stream_interface_attribute18 = OKC_API.G_MISS_CHAR)
3107: THEN
3108: x_sfe_rec.stream_interface_attribute18 := l_sfe_rec.stream_interface_attribute18;
3109: END IF;
3110: IF (x_sfe_rec.stream_interface_attribute19 = OKC_API.G_MISS_CHAR)
3111: THEN
3112: x_sfe_rec.stream_interface_attribute19 := l_sfe_rec.stream_interface_attribute19;
3113: END IF;
3114: IF (x_sfe_rec.stream_interface_attribute20 = OKC_API.G_MISS_CHAR)
3110: IF (x_sfe_rec.stream_interface_attribute19 = OKC_API.G_MISS_CHAR)
3111: THEN
3112: x_sfe_rec.stream_interface_attribute19 := l_sfe_rec.stream_interface_attribute19;
3113: END IF;
3114: IF (x_sfe_rec.stream_interface_attribute20 = OKC_API.G_MISS_CHAR)
3115: THEN
3116: x_sfe_rec.stream_interface_attribute20 := l_sfe_rec.stream_interface_attribute20;
3117: END IF;
3118: IF (x_sfe_rec.created_by = OKC_API.G_MISS_NUM)
3114: IF (x_sfe_rec.stream_interface_attribute20 = OKC_API.G_MISS_CHAR)
3115: THEN
3116: x_sfe_rec.stream_interface_attribute20 := l_sfe_rec.stream_interface_attribute20;
3117: END IF;
3118: IF (x_sfe_rec.created_by = OKC_API.G_MISS_NUM)
3119: THEN
3120: x_sfe_rec.created_by := l_sfe_rec.created_by;
3121: END IF;
3122: IF (x_sfe_rec.last_updated_by = OKC_API.G_MISS_NUM)
3118: IF (x_sfe_rec.created_by = OKC_API.G_MISS_NUM)
3119: THEN
3120: x_sfe_rec.created_by := l_sfe_rec.created_by;
3121: END IF;
3122: IF (x_sfe_rec.last_updated_by = OKC_API.G_MISS_NUM)
3123: THEN
3124: x_sfe_rec.last_updated_by := l_sfe_rec.last_updated_by;
3125: END IF;
3126: IF (x_sfe_rec.creation_date = OKC_API.G_MISS_DATE)
3122: IF (x_sfe_rec.last_updated_by = OKC_API.G_MISS_NUM)
3123: THEN
3124: x_sfe_rec.last_updated_by := l_sfe_rec.last_updated_by;
3125: END IF;
3126: IF (x_sfe_rec.creation_date = OKC_API.G_MISS_DATE)
3127: THEN
3128: x_sfe_rec.creation_date := l_sfe_rec.creation_date;
3129: END IF;
3130: IF (x_sfe_rec.last_update_date = OKC_API.G_MISS_DATE)
3126: IF (x_sfe_rec.creation_date = OKC_API.G_MISS_DATE)
3127: THEN
3128: x_sfe_rec.creation_date := l_sfe_rec.creation_date;
3129: END IF;
3130: IF (x_sfe_rec.last_update_date = OKC_API.G_MISS_DATE)
3131: THEN
3132: x_sfe_rec.last_update_date := l_sfe_rec.last_update_date;
3133: END IF;
3134: IF (x_sfe_rec.last_update_login = OKC_API.G_MISS_NUM)
3130: IF (x_sfe_rec.last_update_date = OKC_API.G_MISS_DATE)
3131: THEN
3132: x_sfe_rec.last_update_date := l_sfe_rec.last_update_date;
3133: END IF;
3134: IF (x_sfe_rec.last_update_login = OKC_API.G_MISS_NUM)
3135: THEN
3136: x_sfe_rec.last_update_login := l_sfe_rec.last_update_login;
3137: END IF;
3138: IF (x_sfe_rec.down_payment_amount = OKC_API.G_MISS_NUM)
3134: IF (x_sfe_rec.last_update_login = OKC_API.G_MISS_NUM)
3135: THEN
3136: x_sfe_rec.last_update_login := l_sfe_rec.last_update_login;
3137: END IF;
3138: IF (x_sfe_rec.down_payment_amount = OKC_API.G_MISS_NUM)
3139: THEN
3140: x_sfe_rec.down_payment_amount := l_sfe_rec.down_payment_amount;
3141: END IF;
3142:
3139: THEN
3140: x_sfe_rec.down_payment_amount := l_sfe_rec.down_payment_amount;
3141: END IF;
3142:
3143: IF (x_sfe_rec.orig_contract_line_id = OKC_API.G_MISS_NUM)
3144: THEN
3145: x_sfe_rec.orig_contract_line_id := l_sfe_rec.orig_contract_line_id;
3146: END IF;
3147:
3153: FUNCTION Set_Attributes (
3154: p_sfe_rec IN sfe_rec_type,
3155: x_sfe_rec OUT NOCOPY sfe_rec_type
3156: ) RETURN VARCHAR2 IS
3157: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3158: BEGIN
3159: x_sfe_rec := p_sfe_rec;
3160: RETURN(l_return_status);
3161: END Set_Attributes;
3159: x_sfe_rec := p_sfe_rec;
3160: RETURN(l_return_status);
3161: END Set_Attributes;
3162: BEGIN
3163: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3164: p_init_msg_list,
3165: '_PVT',
3166: x_return_status);
3167: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3163: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3164: p_init_msg_list,
3165: '_PVT',
3166: x_return_status);
3167: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3168: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3169: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3170: RAISE OKC_API.G_EXCEPTION_ERROR;
3171: END IF;
3164: p_init_msg_list,
3165: '_PVT',
3166: x_return_status);
3167: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3168: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3169: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3170: RAISE OKC_API.G_EXCEPTION_ERROR;
3171: END IF;
3172: --- Setting item attributes
3165: '_PVT',
3166: x_return_status);
3167: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3168: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3169: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3170: RAISE OKC_API.G_EXCEPTION_ERROR;
3171: END IF;
3172: --- Setting item attributes
3173: l_return_status := Set_Attributes(
3166: x_return_status);
3167: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3168: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3169: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3170: RAISE OKC_API.G_EXCEPTION_ERROR;
3171: END IF;
3172: --- Setting item attributes
3173: l_return_status := Set_Attributes(
3174: p_sfe_rec, -- IN
3173: l_return_status := Set_Attributes(
3174: p_sfe_rec, -- IN
3175: l_sfe_rec); -- OUT
3176: --- If any errors happen abort API
3177: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3178: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3179: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3180: RAISE OKC_API.G_EXCEPTION_ERROR;
3181: END IF;
3174: p_sfe_rec, -- IN
3175: l_sfe_rec); -- OUT
3176: --- If any errors happen abort API
3177: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3178: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3179: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3180: RAISE OKC_API.G_EXCEPTION_ERROR;
3181: END IF;
3182: l_return_status := populate_new_record(l_sfe_rec, l_def_sfe_rec);
3175: l_sfe_rec); -- OUT
3176: --- If any errors happen abort API
3177: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3178: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3179: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3180: RAISE OKC_API.G_EXCEPTION_ERROR;
3181: END IF;
3182: l_return_status := populate_new_record(l_sfe_rec, l_def_sfe_rec);
3183: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3176: --- If any errors happen abort API
3177: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3178: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3179: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3180: RAISE OKC_API.G_EXCEPTION_ERROR;
3181: END IF;
3182: l_return_status := populate_new_record(l_sfe_rec, l_def_sfe_rec);
3183: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3184: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3179: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3180: RAISE OKC_API.G_EXCEPTION_ERROR;
3181: END IF;
3182: l_return_status := populate_new_record(l_sfe_rec, l_def_sfe_rec);
3183: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3184: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3185: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3186: RAISE OKC_API.G_EXCEPTION_ERROR;
3187: END IF;
3180: RAISE OKC_API.G_EXCEPTION_ERROR;
3181: END IF;
3182: l_return_status := populate_new_record(l_sfe_rec, l_def_sfe_rec);
3183: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3184: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3185: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3186: RAISE OKC_API.G_EXCEPTION_ERROR;
3187: END IF;
3188: UPDATE OKL_SIF_FEES
3181: END IF;
3182: l_return_status := populate_new_record(l_sfe_rec, l_def_sfe_rec);
3183: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3184: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3185: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3186: RAISE OKC_API.G_EXCEPTION_ERROR;
3187: END IF;
3188: UPDATE OKL_SIF_FEES
3189: SET SFE_TYPE = l_def_sfe_rec.sfe_type,
3182: l_return_status := populate_new_record(l_sfe_rec, l_def_sfe_rec);
3183: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3184: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3185: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3186: RAISE OKC_API.G_EXCEPTION_ERROR;
3187: END IF;
3188: UPDATE OKL_SIF_FEES
3189: SET SFE_TYPE = l_def_sfe_rec.sfe_type,
3190: DATE_START = l_def_sfe_rec.date_start,
3245: orig_contract_line_id = l_def_sfe_rec.orig_contract_line_id
3246: WHERE ID = l_def_sfe_rec.id;
3247:
3248: x_sfe_rec := l_def_sfe_rec;
3249: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3250: EXCEPTION
3251: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3252: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3253: (
3247:
3248: x_sfe_rec := l_def_sfe_rec;
3249: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3250: EXCEPTION
3251: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3252: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3253: (
3254: l_api_name,
3255: G_PKG_NAME,
3248: x_sfe_rec := l_def_sfe_rec;
3249: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3250: EXCEPTION
3251: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3252: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3253: (
3254: l_api_name,
3255: G_PKG_NAME,
3256: 'OKC_API.G_RET_STS_ERROR',
3252: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3253: (
3254: l_api_name,
3255: G_PKG_NAME,
3256: 'OKC_API.G_RET_STS_ERROR',
3257: x_msg_count,
3258: x_msg_data,
3259: '_PVT'
3260: );
3257: x_msg_count,
3258: x_msg_data,
3259: '_PVT'
3260: );
3261: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3262: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3263: (
3264: l_api_name,
3265: G_PKG_NAME,
3258: x_msg_data,
3259: '_PVT'
3260: );
3261: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3262: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3263: (
3264: l_api_name,
3265: G_PKG_NAME,
3266: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3262: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3263: (
3264: l_api_name,
3265: G_PKG_NAME,
3266: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3267: x_msg_count,
3268: x_msg_data,
3269: '_PVT'
3270: );
3268: x_msg_data,
3269: '_PVT'
3270: );
3271: WHEN OTHERS THEN
3272: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3273: (
3274: l_api_name,
3275: G_PKG_NAME,
3276: 'OTHERS',
3283: -- update_row for:OKL_SIF_FEES_V --
3284: -----------------------------------
3285: PROCEDURE update_row(
3286: p_api_version IN NUMBER,
3287: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3288: x_return_status OUT NOCOPY VARCHAR2,
3289: x_msg_count OUT NOCOPY NUMBER,
3290: x_msg_data OUT NOCOPY VARCHAR2,
3291: p_sfev_rec IN sfev_rec_type,
3292: x_sfev_rec OUT NOCOPY sfev_rec_type) IS
3293:
3294: l_api_version CONSTANT NUMBER := 1;
3295: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
3296: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3297: l_sfev_rec sfev_rec_type := p_sfev_rec;
3298: l_def_sfev_rec sfev_rec_type;
3299: l_sfe_rec sfe_rec_type;
3300: lx_sfe_rec sfe_rec_type;
3320: x_sfev_rec OUT NOCOPY sfev_rec_type
3321: ) RETURN VARCHAR2 IS
3322: l_sfev_rec sfev_rec_type;
3323: l_row_notfound BOOLEAN := TRUE;
3324: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3325: BEGIN
3326: x_sfev_rec := p_sfev_rec;
3327: -- Get current database values
3328: l_sfev_rec := get_rec(p_sfev_rec, l_row_notfound);
3326: x_sfev_rec := p_sfev_rec;
3327: -- Get current database values
3328: l_sfev_rec := get_rec(p_sfev_rec, l_row_notfound);
3329: IF (l_row_notfound) THEN
3330: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3331: END IF;
3332: IF (x_sfev_rec.id = OKC_API.G_MISS_NUM)
3333: THEN
3334: x_sfev_rec.id := l_sfev_rec.id;
3328: l_sfev_rec := get_rec(p_sfev_rec, l_row_notfound);
3329: IF (l_row_notfound) THEN
3330: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3331: END IF;
3332: IF (x_sfev_rec.id = OKC_API.G_MISS_NUM)
3333: THEN
3334: x_sfev_rec.id := l_sfev_rec.id;
3335: END IF;
3336: IF (x_sfev_rec.sfe_type = OKC_API.G_MISS_CHAR)
3332: IF (x_sfev_rec.id = OKC_API.G_MISS_NUM)
3333: THEN
3334: x_sfev_rec.id := l_sfev_rec.id;
3335: END IF;
3336: IF (x_sfev_rec.sfe_type = OKC_API.G_MISS_CHAR)
3337: THEN
3338: x_sfev_rec.sfe_type := l_sfev_rec.sfe_type;
3339: END IF;
3340: IF (x_sfev_rec.date_start = OKC_API.G_MISS_DATE)
3336: IF (x_sfev_rec.sfe_type = OKC_API.G_MISS_CHAR)
3337: THEN
3338: x_sfev_rec.sfe_type := l_sfev_rec.sfe_type;
3339: END IF;
3340: IF (x_sfev_rec.date_start = OKC_API.G_MISS_DATE)
3341: THEN
3342: x_sfev_rec.date_start := l_sfev_rec.date_start;
3343: END IF;
3344: IF (x_sfev_rec.date_paid = OKC_API.G_MISS_DATE)
3340: IF (x_sfev_rec.date_start = OKC_API.G_MISS_DATE)
3341: THEN
3342: x_sfev_rec.date_start := l_sfev_rec.date_start;
3343: END IF;
3344: IF (x_sfev_rec.date_paid = OKC_API.G_MISS_DATE)
3345: THEN
3346: x_sfev_rec.date_paid := l_sfev_rec.date_paid;
3347: END IF;
3348: IF (x_sfev_rec.amount = OKC_API.G_MISS_NUM)
3344: IF (x_sfev_rec.date_paid = OKC_API.G_MISS_DATE)
3345: THEN
3346: x_sfev_rec.date_paid := l_sfev_rec.date_paid;
3347: END IF;
3348: IF (x_sfev_rec.amount = OKC_API.G_MISS_NUM)
3349: THEN
3350: x_sfev_rec.amount := l_sfev_rec.amount;
3351: END IF;
3352: IF (x_sfev_rec.idc_accounting_flag = OKC_API.G_MISS_CHAR)
3348: IF (x_sfev_rec.amount = OKC_API.G_MISS_NUM)
3349: THEN
3350: x_sfev_rec.amount := l_sfev_rec.amount;
3351: END IF;
3352: IF (x_sfev_rec.idc_accounting_flag = OKC_API.G_MISS_CHAR)
3353: THEN
3354: x_sfev_rec.idc_accounting_flag := l_sfev_rec.idc_accounting_flag;
3355: END IF;
3356: IF (x_sfev_rec.income_or_expense = OKC_API.G_MISS_CHAR)
3352: IF (x_sfev_rec.idc_accounting_flag = OKC_API.G_MISS_CHAR)
3353: THEN
3354: x_sfev_rec.idc_accounting_flag := l_sfev_rec.idc_accounting_flag;
3355: END IF;
3356: IF (x_sfev_rec.income_or_expense = OKC_API.G_MISS_CHAR)
3357: THEN
3358: x_sfev_rec.income_or_expense := l_sfev_rec.income_or_expense;
3359: END IF;
3360: IF (x_sfev_rec.description = OKC_API.G_MISS_CHAR)
3356: IF (x_sfev_rec.income_or_expense = OKC_API.G_MISS_CHAR)
3357: THEN
3358: x_sfev_rec.income_or_expense := l_sfev_rec.income_or_expense;
3359: END IF;
3360: IF (x_sfev_rec.description = OKC_API.G_MISS_CHAR)
3361: THEN
3362: x_sfev_rec.description := l_sfev_rec.description;
3363: END IF;
3364: IF (x_sfev_rec.fee_index_number = OKC_API.G_MISS_NUM)
3360: IF (x_sfev_rec.description = OKC_API.G_MISS_CHAR)
3361: THEN
3362: x_sfev_rec.description := l_sfev_rec.description;
3363: END IF;
3364: IF (x_sfev_rec.fee_index_number = OKC_API.G_MISS_NUM)
3365: THEN
3366: x_sfev_rec.fee_index_number := l_sfev_rec.fee_index_number;
3367: END IF;
3368: IF (x_sfev_rec.level_index_number = OKC_API.G_MISS_NUM)
3364: IF (x_sfev_rec.fee_index_number = OKC_API.G_MISS_NUM)
3365: THEN
3366: x_sfev_rec.fee_index_number := l_sfev_rec.fee_index_number;
3367: END IF;
3368: IF (x_sfev_rec.level_index_number = OKC_API.G_MISS_NUM)
3369: THEN
3370: x_sfev_rec.level_index_number := l_sfev_rec.level_index_number;
3371: END IF;
3372: IF (x_sfev_rec.advance_or_arrears = OKC_API.G_MISS_CHAR)
3368: IF (x_sfev_rec.level_index_number = OKC_API.G_MISS_NUM)
3369: THEN
3370: x_sfev_rec.level_index_number := l_sfev_rec.level_index_number;
3371: END IF;
3372: IF (x_sfev_rec.advance_or_arrears = OKC_API.G_MISS_CHAR)
3373: THEN
3374: x_sfev_rec.advance_or_arrears := l_sfev_rec.advance_or_arrears;
3375: END IF;
3376:
3373: THEN
3374: x_sfev_rec.advance_or_arrears := l_sfev_rec.advance_or_arrears;
3375: END IF;
3376:
3377: IF (x_sfev_rec.cash_effect_yn = OKC_API.G_MISS_CHAR)
3378: THEN
3379: x_sfev_rec.cash_effect_yn := l_sfev_rec.cash_effect_yn;
3380: END IF;
3381:
3378: THEN
3379: x_sfev_rec.cash_effect_yn := l_sfev_rec.cash_effect_yn;
3380: END IF;
3381:
3382: IF (x_sfev_rec.tax_effect_yn = OKC_API.G_MISS_CHAR)
3383: THEN
3384: x_sfev_rec.tax_effect_yn := l_sfev_rec.tax_effect_yn;
3385: END IF;
3386:
3383: THEN
3384: x_sfev_rec.tax_effect_yn := l_sfev_rec.tax_effect_yn;
3385: END IF;
3386:
3387: IF (x_sfev_rec.days_in_month = OKC_API.G_MISS_CHAR)
3388: THEN
3389: x_sfev_rec.days_in_month := l_sfev_rec.days_in_month;
3390: END IF;
3391:
3388: THEN
3389: x_sfev_rec.days_in_month := l_sfev_rec.days_in_month;
3390: END IF;
3391:
3392: IF (x_sfev_rec.days_in_year = OKC_API.G_MISS_CHAR)
3393: THEN
3394: x_sfev_rec.days_in_year := l_sfev_rec.days_in_year;
3395: END IF;
3396:
3393: THEN
3394: x_sfev_rec.days_in_year := l_sfev_rec.days_in_year;
3395: END IF;
3396:
3397: IF (x_sfev_rec.balance_type_code = OKC_API.G_MISS_CHAR)
3398: THEN
3399: x_sfev_rec.balance_type_code := l_sfev_rec.balance_type_code;
3400: END IF;
3401:
3398: THEN
3399: x_sfev_rec.balance_type_code := l_sfev_rec.balance_type_code;
3400: END IF;
3401:
3402: IF (x_sfev_rec.level_type = OKC_API.G_MISS_CHAR)
3403: THEN
3404: x_sfev_rec.level_type := l_sfev_rec.level_type;
3405: END IF;
3406: IF (x_sfev_rec.lock_level_step = OKC_API.G_MISS_CHAR)
3402: IF (x_sfev_rec.level_type = OKC_API.G_MISS_CHAR)
3403: THEN
3404: x_sfev_rec.level_type := l_sfev_rec.level_type;
3405: END IF;
3406: IF (x_sfev_rec.lock_level_step = OKC_API.G_MISS_CHAR)
3407: THEN
3408: x_sfev_rec.lock_level_step := l_sfev_rec.lock_level_step;
3409: END IF;
3410: -- mvasudev, 05/13/2002
3407: THEN
3408: x_sfev_rec.lock_level_step := l_sfev_rec.lock_level_step;
3409: END IF;
3410: -- mvasudev, 05/13/2002
3411: IF (x_sfev_rec.query_level_yn = OKC_API.G_MISS_CHAR)
3412: THEN
3413: x_sfev_rec.query_level_yn := l_sfev_rec.query_level_yn;
3414: END IF;
3415: IF (x_sfev_rec.STRUCTURE = OKC_API.G_MISS_CHAR)
3411: IF (x_sfev_rec.query_level_yn = OKC_API.G_MISS_CHAR)
3412: THEN
3413: x_sfev_rec.query_level_yn := l_sfev_rec.query_level_yn;
3414: END IF;
3415: IF (x_sfev_rec.STRUCTURE = OKC_API.G_MISS_CHAR)
3416: THEN
3417: x_sfev_rec.STRUCTURE := l_sfev_rec.STRUCTURE;
3418: END IF;
3419: IF (x_sfev_rec.DAYS_IN_PERIOD = OKC_API.G_MISS_NUM)
3415: IF (x_sfev_rec.STRUCTURE = OKC_API.G_MISS_CHAR)
3416: THEN
3417: x_sfev_rec.STRUCTURE := l_sfev_rec.STRUCTURE;
3418: END IF;
3419: IF (x_sfev_rec.DAYS_IN_PERIOD = OKC_API.G_MISS_NUM)
3420: THEN
3421: x_sfev_rec.DAYS_IN_PERIOD := l_sfev_rec.DAYS_IN_PERIOD;
3422: END IF;
3423: --
3420: THEN
3421: x_sfev_rec.DAYS_IN_PERIOD := l_sfev_rec.DAYS_IN_PERIOD;
3422: END IF;
3423: --
3424: IF (x_sfev_rec.period = OKC_API.G_MISS_CHAR)
3425: THEN
3426: x_sfev_rec.period := l_sfev_rec.period;
3427:
3428: END IF;
3425: THEN
3426: x_sfev_rec.period := l_sfev_rec.period;
3427:
3428: END IF;
3429: IF (x_sfev_rec.number_of_periods = OKC_API.G_MISS_NUM)
3430: THEN
3431: x_sfev_rec.number_of_periods := l_sfev_rec.number_of_periods;
3432: END IF;
3433: IF (x_sfev_rec.level_line_number = OKC_API.G_MISS_NUM)
3429: IF (x_sfev_rec.number_of_periods = OKC_API.G_MISS_NUM)
3430: THEN
3431: x_sfev_rec.number_of_periods := l_sfev_rec.number_of_periods;
3432: END IF;
3433: IF (x_sfev_rec.level_line_number = OKC_API.G_MISS_NUM)
3434: THEN
3435: x_sfev_rec.level_line_number := l_sfev_rec.level_line_number;
3436: END IF;
3437: IF (x_sfev_rec.sif_id = OKC_API.G_MISS_NUM)
3433: IF (x_sfev_rec.level_line_number = OKC_API.G_MISS_NUM)
3434: THEN
3435: x_sfev_rec.level_line_number := l_sfev_rec.level_line_number;
3436: END IF;
3437: IF (x_sfev_rec.sif_id = OKC_API.G_MISS_NUM)
3438: THEN
3439: x_sfev_rec.sif_id := l_sfev_rec.sif_id;
3440: END IF;
3441: IF (x_sfev_rec.kle_id = OKC_API.G_MISS_NUM)
3437: IF (x_sfev_rec.sif_id = OKC_API.G_MISS_NUM)
3438: THEN
3439: x_sfev_rec.sif_id := l_sfev_rec.sif_id;
3440: END IF;
3441: IF (x_sfev_rec.kle_id = OKC_API.G_MISS_NUM)
3442: THEN
3443: x_sfev_rec.kle_id := l_sfev_rec.kle_id;
3444: END IF;
3445: IF (x_sfev_rec.sil_id = OKC_API.G_MISS_NUM)
3441: IF (x_sfev_rec.kle_id = OKC_API.G_MISS_NUM)
3442: THEN
3443: x_sfev_rec.kle_id := l_sfev_rec.kle_id;
3444: END IF;
3445: IF (x_sfev_rec.sil_id = OKC_API.G_MISS_NUM)
3446: THEN
3447: x_sfev_rec.sil_id := l_sfev_rec.sil_id;
3448: END IF;
3449: IF (x_sfev_rec.rate = OKC_API.G_MISS_NUM)
3445: IF (x_sfev_rec.sil_id = OKC_API.G_MISS_NUM)
3446: THEN
3447: x_sfev_rec.sil_id := l_sfev_rec.sil_id;
3448: END IF;
3449: IF (x_sfev_rec.rate = OKC_API.G_MISS_NUM)
3450: THEN
3451: x_sfev_rec.rate := l_sfev_rec.rate;
3452: END IF;
3453: IF (x_sfev_rec.object_version_number = OKC_API.G_MISS_NUM)
3449: IF (x_sfev_rec.rate = OKC_API.G_MISS_NUM)
3450: THEN
3451: x_sfev_rec.rate := l_sfev_rec.rate;
3452: END IF;
3453: IF (x_sfev_rec.object_version_number = OKC_API.G_MISS_NUM)
3454: THEN
3455: x_sfev_rec.object_version_number := l_sfev_rec.object_version_number;
3456: END IF;
3457: IF (x_sfev_rec.stream_interface_attribute01 = OKC_API.G_MISS_CHAR)
3453: IF (x_sfev_rec.object_version_number = OKC_API.G_MISS_NUM)
3454: THEN
3455: x_sfev_rec.object_version_number := l_sfev_rec.object_version_number;
3456: END IF;
3457: IF (x_sfev_rec.stream_interface_attribute01 = OKC_API.G_MISS_CHAR)
3458: THEN
3459: x_sfev_rec.stream_interface_attribute01 := l_sfev_rec.stream_interface_attribute01;
3460: END IF;
3461: IF (x_sfev_rec.stream_interface_attribute02 = OKC_API.G_MISS_CHAR)
3457: IF (x_sfev_rec.stream_interface_attribute01 = OKC_API.G_MISS_CHAR)
3458: THEN
3459: x_sfev_rec.stream_interface_attribute01 := l_sfev_rec.stream_interface_attribute01;
3460: END IF;
3461: IF (x_sfev_rec.stream_interface_attribute02 = OKC_API.G_MISS_CHAR)
3462: THEN
3463: x_sfev_rec.stream_interface_attribute02 := l_sfev_rec.stream_interface_attribute02;
3464: END IF;
3465: IF (x_sfev_rec.stream_interface_attribute03 = OKC_API.G_MISS_CHAR)
3461: IF (x_sfev_rec.stream_interface_attribute02 = OKC_API.G_MISS_CHAR)
3462: THEN
3463: x_sfev_rec.stream_interface_attribute02 := l_sfev_rec.stream_interface_attribute02;
3464: END IF;
3465: IF (x_sfev_rec.stream_interface_attribute03 = OKC_API.G_MISS_CHAR)
3466: THEN
3467: x_sfev_rec.stream_interface_attribute03 := l_sfev_rec.stream_interface_attribute03;
3468: END IF;
3469: IF (x_sfev_rec.stream_interface_attribute04 = OKC_API.G_MISS_CHAR)
3465: IF (x_sfev_rec.stream_interface_attribute03 = OKC_API.G_MISS_CHAR)
3466: THEN
3467: x_sfev_rec.stream_interface_attribute03 := l_sfev_rec.stream_interface_attribute03;
3468: END IF;
3469: IF (x_sfev_rec.stream_interface_attribute04 = OKC_API.G_MISS_CHAR)
3470: THEN
3471: x_sfev_rec.stream_interface_attribute04 := l_sfev_rec.stream_interface_attribute04;
3472: END IF;
3473: IF (x_sfev_rec.stream_interface_attribute05 = OKC_API.G_MISS_CHAR)
3469: IF (x_sfev_rec.stream_interface_attribute04 = OKC_API.G_MISS_CHAR)
3470: THEN
3471: x_sfev_rec.stream_interface_attribute04 := l_sfev_rec.stream_interface_attribute04;
3472: END IF;
3473: IF (x_sfev_rec.stream_interface_attribute05 = OKC_API.G_MISS_CHAR)
3474: THEN
3475: x_sfev_rec.stream_interface_attribute05 := l_sfev_rec.stream_interface_attribute05;
3476: END IF;
3477: IF (x_sfev_rec.stream_interface_attribute06 = OKC_API.G_MISS_CHAR)
3473: IF (x_sfev_rec.stream_interface_attribute05 = OKC_API.G_MISS_CHAR)
3474: THEN
3475: x_sfev_rec.stream_interface_attribute05 := l_sfev_rec.stream_interface_attribute05;
3476: END IF;
3477: IF (x_sfev_rec.stream_interface_attribute06 = OKC_API.G_MISS_CHAR)
3478: THEN
3479: x_sfev_rec.stream_interface_attribute06 := l_sfev_rec.stream_interface_attribute06;
3480: END IF;
3481: IF (x_sfev_rec.stream_interface_attribute07 = OKC_API.G_MISS_CHAR)
3477: IF (x_sfev_rec.stream_interface_attribute06 = OKC_API.G_MISS_CHAR)
3478: THEN
3479: x_sfev_rec.stream_interface_attribute06 := l_sfev_rec.stream_interface_attribute06;
3480: END IF;
3481: IF (x_sfev_rec.stream_interface_attribute07 = OKC_API.G_MISS_CHAR)
3482: THEN
3483: x_sfev_rec.stream_interface_attribute07 := l_sfev_rec.stream_interface_attribute07;
3484: END IF;
3485: IF (x_sfev_rec.stream_interface_attribute08 = OKC_API.G_MISS_CHAR)
3481: IF (x_sfev_rec.stream_interface_attribute07 = OKC_API.G_MISS_CHAR)
3482: THEN
3483: x_sfev_rec.stream_interface_attribute07 := l_sfev_rec.stream_interface_attribute07;
3484: END IF;
3485: IF (x_sfev_rec.stream_interface_attribute08 = OKC_API.G_MISS_CHAR)
3486: THEN
3487: x_sfev_rec.stream_interface_attribute08 := l_sfev_rec.stream_interface_attribute08;
3488: END IF;
3489: IF (x_sfev_rec.stream_interface_attribute09 = OKC_API.G_MISS_CHAR)
3485: IF (x_sfev_rec.stream_interface_attribute08 = OKC_API.G_MISS_CHAR)
3486: THEN
3487: x_sfev_rec.stream_interface_attribute08 := l_sfev_rec.stream_interface_attribute08;
3488: END IF;
3489: IF (x_sfev_rec.stream_interface_attribute09 = OKC_API.G_MISS_CHAR)
3490: THEN
3491: x_sfev_rec.stream_interface_attribute09 := l_sfev_rec.stream_interface_attribute09;
3492: END IF;
3493: IF (x_sfev_rec.stream_interface_attribute10 = OKC_API.G_MISS_CHAR)
3489: IF (x_sfev_rec.stream_interface_attribute09 = OKC_API.G_MISS_CHAR)
3490: THEN
3491: x_sfev_rec.stream_interface_attribute09 := l_sfev_rec.stream_interface_attribute09;
3492: END IF;
3493: IF (x_sfev_rec.stream_interface_attribute10 = OKC_API.G_MISS_CHAR)
3494: THEN
3495: x_sfev_rec.stream_interface_attribute10 := l_sfev_rec.stream_interface_attribute10;
3496: END IF;
3497: IF (x_sfev_rec.stream_interface_attribute11 = OKC_API.G_MISS_CHAR)
3493: IF (x_sfev_rec.stream_interface_attribute10 = OKC_API.G_MISS_CHAR)
3494: THEN
3495: x_sfev_rec.stream_interface_attribute10 := l_sfev_rec.stream_interface_attribute10;
3496: END IF;
3497: IF (x_sfev_rec.stream_interface_attribute11 = OKC_API.G_MISS_CHAR)
3498: THEN
3499: x_sfev_rec.stream_interface_attribute11 := l_sfev_rec.stream_interface_attribute11;
3500: END IF;
3501: IF (x_sfev_rec.stream_interface_attribute12 = OKC_API.G_MISS_CHAR)
3497: IF (x_sfev_rec.stream_interface_attribute11 = OKC_API.G_MISS_CHAR)
3498: THEN
3499: x_sfev_rec.stream_interface_attribute11 := l_sfev_rec.stream_interface_attribute11;
3500: END IF;
3501: IF (x_sfev_rec.stream_interface_attribute12 = OKC_API.G_MISS_CHAR)
3502: THEN
3503: x_sfev_rec.stream_interface_attribute12 := l_sfev_rec.stream_interface_attribute12;
3504: END IF;
3505: IF (x_sfev_rec.stream_interface_attribute13 = OKC_API.G_MISS_CHAR)
3501: IF (x_sfev_rec.stream_interface_attribute12 = OKC_API.G_MISS_CHAR)
3502: THEN
3503: x_sfev_rec.stream_interface_attribute12 := l_sfev_rec.stream_interface_attribute12;
3504: END IF;
3505: IF (x_sfev_rec.stream_interface_attribute13 = OKC_API.G_MISS_CHAR)
3506: THEN
3507: x_sfev_rec.stream_interface_attribute13 := l_sfev_rec.stream_interface_attribute13;
3508: END IF;
3509: IF (x_sfev_rec.stream_interface_attribute14 = OKC_API.G_MISS_CHAR)
3505: IF (x_sfev_rec.stream_interface_attribute13 = OKC_API.G_MISS_CHAR)
3506: THEN
3507: x_sfev_rec.stream_interface_attribute13 := l_sfev_rec.stream_interface_attribute13;
3508: END IF;
3509: IF (x_sfev_rec.stream_interface_attribute14 = OKC_API.G_MISS_CHAR)
3510: THEN
3511: x_sfev_rec.stream_interface_attribute14 := l_sfev_rec.stream_interface_attribute14;
3512: END IF;
3513: IF (x_sfev_rec.stream_interface_attribute15 = OKC_API.G_MISS_CHAR)
3509: IF (x_sfev_rec.stream_interface_attribute14 = OKC_API.G_MISS_CHAR)
3510: THEN
3511: x_sfev_rec.stream_interface_attribute14 := l_sfev_rec.stream_interface_attribute14;
3512: END IF;
3513: IF (x_sfev_rec.stream_interface_attribute15 = OKC_API.G_MISS_CHAR)
3514: THEN
3515: x_sfev_rec.stream_interface_attribute15 := l_sfev_rec.stream_interface_attribute15;
3516: END IF;
3517: IF (x_sfev_rec.stream_interface_attribute16 = OKC_API.G_MISS_CHAR)
3513: IF (x_sfev_rec.stream_interface_attribute15 = OKC_API.G_MISS_CHAR)
3514: THEN
3515: x_sfev_rec.stream_interface_attribute15 := l_sfev_rec.stream_interface_attribute15;
3516: END IF;
3517: IF (x_sfev_rec.stream_interface_attribute16 = OKC_API.G_MISS_CHAR)
3518: THEN
3519: x_sfev_rec.stream_interface_attribute16 := l_sfev_rec.stream_interface_attribute16;
3520: END IF;
3521: IF (x_sfev_rec.stream_interface_attribute17 = OKC_API.G_MISS_CHAR)
3517: IF (x_sfev_rec.stream_interface_attribute16 = OKC_API.G_MISS_CHAR)
3518: THEN
3519: x_sfev_rec.stream_interface_attribute16 := l_sfev_rec.stream_interface_attribute16;
3520: END IF;
3521: IF (x_sfev_rec.stream_interface_attribute17 = OKC_API.G_MISS_CHAR)
3522: THEN
3523: x_sfev_rec.stream_interface_attribute17 := l_sfev_rec.stream_interface_attribute17;
3524: END IF;
3525: IF (x_sfev_rec.stream_interface_attribute18 = OKC_API.G_MISS_CHAR)
3521: IF (x_sfev_rec.stream_interface_attribute17 = OKC_API.G_MISS_CHAR)
3522: THEN
3523: x_sfev_rec.stream_interface_attribute17 := l_sfev_rec.stream_interface_attribute17;
3524: END IF;
3525: IF (x_sfev_rec.stream_interface_attribute18 = OKC_API.G_MISS_CHAR)
3526: THEN
3527:
3528: x_sfev_rec.stream_interface_attribute18 := l_sfev_rec.stream_interface_attribute18;
3529: END IF;
3526: THEN
3527:
3528: x_sfev_rec.stream_interface_attribute18 := l_sfev_rec.stream_interface_attribute18;
3529: END IF;
3530: IF (x_sfev_rec.stream_interface_attribute19 = OKC_API.G_MISS_CHAR)
3531: THEN
3532: x_sfev_rec.stream_interface_attribute19 := l_sfev_rec.stream_interface_attribute19;
3533: END IF;
3534: IF (x_sfev_rec.stream_interface_attribute20 = OKC_API.G_MISS_CHAR)
3530: IF (x_sfev_rec.stream_interface_attribute19 = OKC_API.G_MISS_CHAR)
3531: THEN
3532: x_sfev_rec.stream_interface_attribute19 := l_sfev_rec.stream_interface_attribute19;
3533: END IF;
3534: IF (x_sfev_rec.stream_interface_attribute20 = OKC_API.G_MISS_CHAR)
3535: THEN
3536: x_sfev_rec.stream_interface_attribute20 := l_sfev_rec.stream_interface_attribute20;
3537: END IF;
3538: IF (x_sfev_rec.created_by = OKC_API.G_MISS_NUM)
3534: IF (x_sfev_rec.stream_interface_attribute20 = OKC_API.G_MISS_CHAR)
3535: THEN
3536: x_sfev_rec.stream_interface_attribute20 := l_sfev_rec.stream_interface_attribute20;
3537: END IF;
3538: IF (x_sfev_rec.created_by = OKC_API.G_MISS_NUM)
3539: THEN
3540: x_sfev_rec.created_by := l_sfev_rec.created_by;
3541: END IF;
3542: IF (x_sfev_rec.last_updated_by = OKC_API.G_MISS_NUM)
3538: IF (x_sfev_rec.created_by = OKC_API.G_MISS_NUM)
3539: THEN
3540: x_sfev_rec.created_by := l_sfev_rec.created_by;
3541: END IF;
3542: IF (x_sfev_rec.last_updated_by = OKC_API.G_MISS_NUM)
3543: THEN
3544: x_sfev_rec.last_updated_by := l_sfev_rec.last_updated_by;
3545: END IF;
3546: IF (x_sfev_rec.creation_date = OKC_API.G_MISS_DATE)
3542: IF (x_sfev_rec.last_updated_by = OKC_API.G_MISS_NUM)
3543: THEN
3544: x_sfev_rec.last_updated_by := l_sfev_rec.last_updated_by;
3545: END IF;
3546: IF (x_sfev_rec.creation_date = OKC_API.G_MISS_DATE)
3547: THEN
3548: x_sfev_rec.creation_date := l_sfev_rec.creation_date;
3549: END IF;
3550: IF (x_sfev_rec.last_update_date = OKC_API.G_MISS_DATE)
3546: IF (x_sfev_rec.creation_date = OKC_API.G_MISS_DATE)
3547: THEN
3548: x_sfev_rec.creation_date := l_sfev_rec.creation_date;
3549: END IF;
3550: IF (x_sfev_rec.last_update_date = OKC_API.G_MISS_DATE)
3551: THEN
3552: x_sfev_rec.last_update_date := l_sfev_rec.last_update_date;
3553: END IF;
3554: IF (x_sfev_rec.last_update_login = OKC_API.G_MISS_NUM)
3550: IF (x_sfev_rec.last_update_date = OKC_API.G_MISS_DATE)
3551: THEN
3552: x_sfev_rec.last_update_date := l_sfev_rec.last_update_date;
3553: END IF;
3554: IF (x_sfev_rec.last_update_login = OKC_API.G_MISS_NUM)
3555: THEN
3556: x_sfev_rec.last_update_login := l_sfev_rec.last_update_login;
3557: END IF;
3558: IF (x_sfev_rec.down_payment_amount = OKC_API.G_MISS_NUM)
3554: IF (x_sfev_rec.last_update_login = OKC_API.G_MISS_NUM)
3555: THEN
3556: x_sfev_rec.last_update_login := l_sfev_rec.last_update_login;
3557: END IF;
3558: IF (x_sfev_rec.down_payment_amount = OKC_API.G_MISS_NUM)
3559: THEN
3560: x_sfev_rec.down_payment_amount := l_sfev_rec.down_payment_amount;
3561: END IF;
3562:
3559: THEN
3560: x_sfev_rec.down_payment_amount := l_sfev_rec.down_payment_amount;
3561: END IF;
3562:
3563: IF (x_sfev_rec.orig_contract_line_id = OKC_API.G_MISS_NUM)
3564: THEN
3565: x_sfev_rec.orig_contract_line_id := l_sfev_rec.orig_contract_line_id;
3566: END IF;
3567:
3573: FUNCTION Set_Attributes (
3574: p_sfev_rec IN sfev_rec_type,
3575: x_sfev_rec OUT NOCOPY sfev_rec_type
3576: ) RETURN VARCHAR2 IS
3577: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3578: BEGIN
3579: x_sfev_rec := p_sfev_rec;
3580: x_sfev_rec.OBJECT_VERSION_NUMBER := NVL(x_sfev_rec.OBJECT_VERSION_NUMBER, 0) + 1;
3581: RETURN(l_return_status);
3580: x_sfev_rec.OBJECT_VERSION_NUMBER := NVL(x_sfev_rec.OBJECT_VERSION_NUMBER, 0) + 1;
3581: RETURN(l_return_status);
3582: END Set_Attributes;
3583: BEGIN
3584: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3585: G_PKG_NAME,
3586: p_init_msg_list,
3587: l_api_version,
3588: p_api_version,
3587: l_api_version,
3588: p_api_version,
3589: '_PVT',
3590: x_return_status);
3591: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3592: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3593: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3594: RAISE OKC_API.G_EXCEPTION_ERROR;
3595: END IF;
3588: p_api_version,
3589: '_PVT',
3590: x_return_status);
3591: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3592: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3593: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3594: RAISE OKC_API.G_EXCEPTION_ERROR;
3595: END IF;
3596: --- Setting item attributes
3589: '_PVT',
3590: x_return_status);
3591: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3592: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3593: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3594: RAISE OKC_API.G_EXCEPTION_ERROR;
3595: END IF;
3596: --- Setting item attributes
3597: l_return_status := Set_Attributes(
3590: x_return_status);
3591: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3592: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3593: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3594: RAISE OKC_API.G_EXCEPTION_ERROR;
3595: END IF;
3596: --- Setting item attributes
3597: l_return_status := Set_Attributes(
3598: p_sfev_rec, -- IN
3597: l_return_status := Set_Attributes(
3598: p_sfev_rec, -- IN
3599: l_sfev_rec); -- OUT
3600: --- If any errors happen abort API
3601: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3602: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3603: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3604: RAISE OKC_API.G_EXCEPTION_ERROR;
3605: END IF;
3598: p_sfev_rec, -- IN
3599: l_sfev_rec); -- OUT
3600: --- If any errors happen abort API
3601: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3602: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3603: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3604: RAISE OKC_API.G_EXCEPTION_ERROR;
3605: END IF;
3606: l_return_status := populate_new_record(l_sfev_rec, l_def_sfev_rec);
3599: l_sfev_rec); -- OUT
3600: --- If any errors happen abort API
3601: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3602: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3603: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3604: RAISE OKC_API.G_EXCEPTION_ERROR;
3605: END IF;
3606: l_return_status := populate_new_record(l_sfev_rec, l_def_sfev_rec);
3607: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3600: --- If any errors happen abort API
3601: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3602: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3603: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3604: RAISE OKC_API.G_EXCEPTION_ERROR;
3605: END IF;
3606: l_return_status := populate_new_record(l_sfev_rec, l_def_sfev_rec);
3607: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3608: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3603: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3604: RAISE OKC_API.G_EXCEPTION_ERROR;
3605: END IF;
3606: l_return_status := populate_new_record(l_sfev_rec, l_def_sfev_rec);
3607: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3608: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3609: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3610: RAISE OKC_API.G_EXCEPTION_ERROR;
3611: END IF;
3604: RAISE OKC_API.G_EXCEPTION_ERROR;
3605: END IF;
3606: l_return_status := populate_new_record(l_sfev_rec, l_def_sfev_rec);
3607: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3608: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3609: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3610: RAISE OKC_API.G_EXCEPTION_ERROR;
3611: END IF;
3612: l_def_sfev_rec := fill_who_columns(l_def_sfev_rec);
3605: END IF;
3606: l_return_status := populate_new_record(l_sfev_rec, l_def_sfev_rec);
3607: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3608: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3609: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3610: RAISE OKC_API.G_EXCEPTION_ERROR;
3611: END IF;
3612: l_def_sfev_rec := fill_who_columns(l_def_sfev_rec);
3613: --- Validate all non-missing attributes (Item Level Validation)
3606: l_return_status := populate_new_record(l_sfev_rec, l_def_sfev_rec);
3607: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3608: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3609: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3610: RAISE OKC_API.G_EXCEPTION_ERROR;
3611: END IF;
3612: l_def_sfev_rec := fill_who_columns(l_def_sfev_rec);
3613: --- Validate all non-missing attributes (Item Level Validation)
3614: l_return_status := Validate_Attributes(l_def_sfev_rec);
3612: l_def_sfev_rec := fill_who_columns(l_def_sfev_rec);
3613: --- Validate all non-missing attributes (Item Level Validation)
3614: l_return_status := Validate_Attributes(l_def_sfev_rec);
3615: --- If any errors happen abort API
3616: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3617: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3618: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3619: RAISE OKC_API.G_EXCEPTION_ERROR;
3620: END IF;
3613: --- Validate all non-missing attributes (Item Level Validation)
3614: l_return_status := Validate_Attributes(l_def_sfev_rec);
3615: --- If any errors happen abort API
3616: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3617: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3618: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3619: RAISE OKC_API.G_EXCEPTION_ERROR;
3620: END IF;
3621: l_return_status := Validate_Record(l_def_sfev_rec);
3614: l_return_status := Validate_Attributes(l_def_sfev_rec);
3615: --- If any errors happen abort API
3616: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3617: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3618: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3619: RAISE OKC_API.G_EXCEPTION_ERROR;
3620: END IF;
3621: l_return_status := Validate_Record(l_def_sfev_rec);
3622: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3615: --- If any errors happen abort API
3616: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3617: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3618: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3619: RAISE OKC_API.G_EXCEPTION_ERROR;
3620: END IF;
3621: l_return_status := Validate_Record(l_def_sfev_rec);
3622: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3623: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3618: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3619: RAISE OKC_API.G_EXCEPTION_ERROR;
3620: END IF;
3621: l_return_status := Validate_Record(l_def_sfev_rec);
3622: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3623: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3624: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3625: RAISE OKC_API.G_EXCEPTION_ERROR;
3626: END IF;
3619: RAISE OKC_API.G_EXCEPTION_ERROR;
3620: END IF;
3621: l_return_status := Validate_Record(l_def_sfev_rec);
3622: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3623: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3624: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3625: RAISE OKC_API.G_EXCEPTION_ERROR;
3626: END IF;
3627:
3620: END IF;
3621: l_return_status := Validate_Record(l_def_sfev_rec);
3622: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3623: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3624: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3625: RAISE OKC_API.G_EXCEPTION_ERROR;
3626: END IF;
3627:
3628: --------------------------------------
3621: l_return_status := Validate_Record(l_def_sfev_rec);
3622: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3623: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3624: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3625: RAISE OKC_API.G_EXCEPTION_ERROR;
3626: END IF;
3627:
3628: --------------------------------------
3629: -- Move VIEW record to "Child" records
3640: x_msg_data,
3641: l_sfe_rec,
3642: lx_sfe_rec
3643: );
3644: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3645: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3646: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3647: RAISE OKC_API.G_EXCEPTION_ERROR;
3648: END IF;
3641: l_sfe_rec,
3642: lx_sfe_rec
3643: );
3644: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3645: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3646: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3647: RAISE OKC_API.G_EXCEPTION_ERROR;
3648: END IF;
3649: migrate(lx_sfe_rec, l_def_sfev_rec);
3642: lx_sfe_rec
3643: );
3644: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3645: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3646: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3647: RAISE OKC_API.G_EXCEPTION_ERROR;
3648: END IF;
3649: migrate(lx_sfe_rec, l_def_sfev_rec);
3650: x_sfev_rec := l_def_sfev_rec;
3643: );
3644: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3645: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3646: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3647: RAISE OKC_API.G_EXCEPTION_ERROR;
3648: END IF;
3649: migrate(lx_sfe_rec, l_def_sfev_rec);
3650: x_sfev_rec := l_def_sfev_rec;
3651: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3647: RAISE OKC_API.G_EXCEPTION_ERROR;
3648: END IF;
3649: migrate(lx_sfe_rec, l_def_sfev_rec);
3650: x_sfev_rec := l_def_sfev_rec;
3651: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3652: EXCEPTION
3653: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3654: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3655: (
3649: migrate(lx_sfe_rec, l_def_sfev_rec);
3650: x_sfev_rec := l_def_sfev_rec;
3651: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3652: EXCEPTION
3653: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3654: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3655: (
3656: l_api_name,
3657: G_PKG_NAME,
3650: x_sfev_rec := l_def_sfev_rec;
3651: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3652: EXCEPTION
3653: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3654: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3655: (
3656: l_api_name,
3657: G_PKG_NAME,
3658: 'OKC_API.G_RET_STS_ERROR',
3654: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3655: (
3656: l_api_name,
3657: G_PKG_NAME,
3658: 'OKC_API.G_RET_STS_ERROR',
3659: x_msg_count,
3660: x_msg_data,
3661: '_PVT'
3662: );
3659: x_msg_count,
3660: x_msg_data,
3661: '_PVT'
3662: );
3663: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3664: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3665: (
3666: l_api_name,
3667: G_PKG_NAME,
3660: x_msg_data,
3661: '_PVT'
3662: );
3663: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3664: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3665: (
3666: l_api_name,
3667: G_PKG_NAME,
3668: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3664: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3665: (
3666: l_api_name,
3667: G_PKG_NAME,
3668: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3669: x_msg_count,
3670: x_msg_data,
3671: '_PVT'
3672: );
3670: x_msg_data,
3671: '_PVT'
3672: );
3673: WHEN OTHERS THEN
3674: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3675: (
3676: l_api_name,
3677: G_PKG_NAME,
3678: 'OTHERS',
3685: -- PL/SQL TBL update_row for:SFEV_TBL --
3686: ----------------------------------------
3687: PROCEDURE update_row(
3688: p_api_version IN NUMBER,
3689: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3690: x_return_status OUT NOCOPY VARCHAR2,
3691: x_msg_count OUT NOCOPY NUMBER,
3692: x_msg_data OUT NOCOPY VARCHAR2,
3693: p_sfev_tbl IN sfev_tbl_type,
3694: x_sfev_tbl OUT NOCOPY sfev_tbl_type) IS
3695:
3696: l_api_version CONSTANT NUMBER := 1;
3697: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3698: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3699: i NUMBER := 0;
3700: -- START change : akjain, 09/05/2001
3701: -- Adding OverAll Status Flag
3702: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3698: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3699: i NUMBER := 0;
3700: -- START change : akjain, 09/05/2001
3701: -- Adding OverAll Status Flag
3702: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3703: -- END change : akjain
3704:
3705: BEGIN
3706: OKC_API.init_msg_list(p_init_msg_list);
3702: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3703: -- END change : akjain
3704:
3705: BEGIN
3706: OKC_API.init_msg_list(p_init_msg_list);
3707: -- Make sure PL/SQL table has records in it before passing
3708: IF (p_sfev_tbl.COUNT > 0) THEN
3709: i := p_sfev_tbl.FIRST;
3710: LOOP
3709: i := p_sfev_tbl.FIRST;
3710: LOOP
3711: update_row (
3712: p_api_version => p_api_version,
3713: p_init_msg_list => OKC_API.G_FALSE,
3714: x_return_status => x_return_status,
3715: x_msg_count => x_msg_count,
3716: x_msg_data => x_msg_data,
3717: p_sfev_rec => p_sfev_tbl(i),
3717: p_sfev_rec => p_sfev_tbl(i),
3718: x_sfev_rec => x_sfev_tbl(i));
3719: -- START change : akjain, 09/05/2001
3720: -- store the highest degree of error
3721: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
3722: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
3723: l_overall_status := x_return_status;
3724: END IF;
3725: END IF;
3718: x_sfev_rec => x_sfev_tbl(i));
3719: -- START change : akjain, 09/05/2001
3720: -- store the highest degree of error
3721: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
3722: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
3723: l_overall_status := x_return_status;
3724: END IF;
3725: END IF;
3726: -- END change : akjain
3732: x_return_status := l_overall_status;
3733: -- END change : akjain
3734: END IF;
3735: EXCEPTION
3736: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3737:
3738: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3739: (
3740: l_api_name,
3734: END IF;
3735: EXCEPTION
3736: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3737:
3738: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3739: (
3740: l_api_name,
3741: G_PKG_NAME,
3742: 'OKC_API.G_RET_STS_ERROR',
3738: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3739: (
3740: l_api_name,
3741: G_PKG_NAME,
3742: 'OKC_API.G_RET_STS_ERROR',
3743: x_msg_count,
3744: x_msg_data,
3745: '_PVT'
3746: );
3743: x_msg_count,
3744: x_msg_data,
3745: '_PVT'
3746: );
3747: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3748: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3749: (
3750: l_api_name,
3751: G_PKG_NAME,
3744: x_msg_data,
3745: '_PVT'
3746: );
3747: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3748: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3749: (
3750: l_api_name,
3751: G_PKG_NAME,
3752: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3748: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3749: (
3750: l_api_name,
3751: G_PKG_NAME,
3752: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3753: x_msg_count,
3754: x_msg_data,
3755: '_PVT'
3756: );
3754: x_msg_data,
3755: '_PVT'
3756: );
3757: WHEN OTHERS THEN
3758: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3759: (
3760: l_api_name,
3761: G_PKG_NAME,
3762: 'OTHERS',
3772: ---------------------------------
3773: -- delete_row for:OKL_SIF_FEES --
3774: ---------------------------------
3775: PROCEDURE delete_row(
3776: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3777: x_return_status OUT NOCOPY VARCHAR2,
3778: x_msg_count OUT NOCOPY NUMBER,
3779: x_msg_data OUT NOCOPY VARCHAR2,
3780: p_sfe_rec IN sfe_rec_type) IS
3780: p_sfe_rec IN sfe_rec_type) IS
3781:
3782: l_api_version CONSTANT NUMBER := 1;
3783: l_api_name CONSTANT VARCHAR2(30) := 'FEES_delete_row';
3784: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3785: l_sfe_rec sfe_rec_type:= p_sfe_rec;
3786: l_row_notfound BOOLEAN := TRUE;
3787: BEGIN
3788: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3784: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3785: l_sfe_rec sfe_rec_type:= p_sfe_rec;
3786: l_row_notfound BOOLEAN := TRUE;
3787: BEGIN
3788: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3789: p_init_msg_list,
3790: '_PVT',
3791: x_return_status);
3792: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3788: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3789: p_init_msg_list,
3790: '_PVT',
3791: x_return_status);
3792: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3793: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3794: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3795: RAISE OKC_API.G_EXCEPTION_ERROR;
3796: END IF;
3789: p_init_msg_list,
3790: '_PVT',
3791: x_return_status);
3792: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3793: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3794: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3795: RAISE OKC_API.G_EXCEPTION_ERROR;
3796: END IF;
3797: DELETE FROM OKL_SIF_FEES
3790: '_PVT',
3791: x_return_status);
3792: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3793: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3794: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3795: RAISE OKC_API.G_EXCEPTION_ERROR;
3796: END IF;
3797: DELETE FROM OKL_SIF_FEES
3798: WHERE ID = l_sfe_rec.id;
3791: x_return_status);
3792: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3793: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3794: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3795: RAISE OKC_API.G_EXCEPTION_ERROR;
3796: END IF;
3797: DELETE FROM OKL_SIF_FEES
3798: WHERE ID = l_sfe_rec.id;
3799:
3796: END IF;
3797: DELETE FROM OKL_SIF_FEES
3798: WHERE ID = l_sfe_rec.id;
3799:
3800: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3801: EXCEPTION
3802: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3803: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3804: (
3798: WHERE ID = l_sfe_rec.id;
3799:
3800: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3801: EXCEPTION
3802: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3803: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3804: (
3805: l_api_name,
3806: G_PKG_NAME,
3799:
3800: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3801: EXCEPTION
3802: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3803: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3804: (
3805: l_api_name,
3806: G_PKG_NAME,
3807: 'OKC_API.G_RET_STS_ERROR',
3803: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3804: (
3805: l_api_name,
3806: G_PKG_NAME,
3807: 'OKC_API.G_RET_STS_ERROR',
3808: x_msg_count,
3809: x_msg_data,
3810: '_PVT'
3811: );
3808: x_msg_count,
3809: x_msg_data,
3810: '_PVT'
3811: );
3812: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3813: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3814: (
3815: l_api_name,
3816: G_PKG_NAME,
3809: x_msg_data,
3810: '_PVT'
3811: );
3812: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3813: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3814: (
3815: l_api_name,
3816: G_PKG_NAME,
3817: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3813: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3814: (
3815: l_api_name,
3816: G_PKG_NAME,
3817: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3818: x_msg_count,
3819: x_msg_data,
3820: '_PVT'
3821: );
3819: x_msg_data,
3820: '_PVT'
3821: );
3822: WHEN OTHERS THEN
3823: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3824: (
3825: l_api_name,
3826: G_PKG_NAME,
3827: 'OTHERS',
3835: -----------------------------------
3836: PROCEDURE delete_row(
3837:
3838: p_api_version IN NUMBER,
3839: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3840: x_return_status OUT NOCOPY VARCHAR2,
3841: x_msg_count OUT NOCOPY NUMBER,
3842: x_msg_data OUT NOCOPY VARCHAR2,
3843: p_sfev_rec IN sfev_rec_type) IS
3843: p_sfev_rec IN sfev_rec_type) IS
3844:
3845: l_api_version CONSTANT NUMBER := 1;
3846: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
3847: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3848: l_sfev_rec sfev_rec_type := p_sfev_rec;
3849: l_sfe_rec sfe_rec_type;
3850: BEGIN
3851: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3847: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3848: l_sfev_rec sfev_rec_type := p_sfev_rec;
3849: l_sfe_rec sfe_rec_type;
3850: BEGIN
3851: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3852: G_PKG_NAME,
3853: p_init_msg_list,
3854: l_api_version,
3855: p_api_version,
3854: l_api_version,
3855: p_api_version,
3856: '_PVT',
3857: x_return_status);
3858: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3859: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3860: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3861: RAISE OKC_API.G_EXCEPTION_ERROR;
3862: END IF;
3855: p_api_version,
3856: '_PVT',
3857: x_return_status);
3858: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3859: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3860: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3861: RAISE OKC_API.G_EXCEPTION_ERROR;
3862: END IF;
3863: --------------------------------------
3856: '_PVT',
3857: x_return_status);
3858: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3859: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3860: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3861: RAISE OKC_API.G_EXCEPTION_ERROR;
3862: END IF;
3863: --------------------------------------
3864: -- Move VIEW record to "Child" records
3857: x_return_status);
3858: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3859: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3860: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3861: RAISE OKC_API.G_EXCEPTION_ERROR;
3862: END IF;
3863: --------------------------------------
3864: -- Move VIEW record to "Child" records
3865: --------------------------------------
3873: x_msg_count,
3874: x_msg_data,
3875: l_sfe_rec
3876: );
3877: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3878: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3879: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3880: RAISE OKC_API.G_EXCEPTION_ERROR;
3881: END IF;
3874: x_msg_data,
3875: l_sfe_rec
3876: );
3877: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3878: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3879: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3880: RAISE OKC_API.G_EXCEPTION_ERROR;
3881: END IF;
3882: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3875: l_sfe_rec
3876: );
3877: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3878: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3879: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3880: RAISE OKC_API.G_EXCEPTION_ERROR;
3881: END IF;
3882: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3883: EXCEPTION
3876: );
3877: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3878: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3879: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3880: RAISE OKC_API.G_EXCEPTION_ERROR;
3881: END IF;
3882: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3883: EXCEPTION
3884: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3878: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3879: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3880: RAISE OKC_API.G_EXCEPTION_ERROR;
3881: END IF;
3882: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3883: EXCEPTION
3884: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3885: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3886: (
3880: RAISE OKC_API.G_EXCEPTION_ERROR;
3881: END IF;
3882: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3883: EXCEPTION
3884: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3885: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3886: (
3887: l_api_name,
3888: G_PKG_NAME,
3881: END IF;
3882: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3883: EXCEPTION
3884: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3885: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3886: (
3887: l_api_name,
3888: G_PKG_NAME,
3889: 'OKC_API.G_RET_STS_ERROR',
3885: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3886: (
3887: l_api_name,
3888: G_PKG_NAME,
3889: 'OKC_API.G_RET_STS_ERROR',
3890: x_msg_count,
3891: x_msg_data,
3892: '_PVT'
3893: );
3890: x_msg_count,
3891: x_msg_data,
3892: '_PVT'
3893: );
3894: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3895: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3896: (
3897: l_api_name,
3898: G_PKG_NAME,
3891: x_msg_data,
3892: '_PVT'
3893: );
3894: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3895: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3896: (
3897: l_api_name,
3898: G_PKG_NAME,
3899: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3895: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3896: (
3897: l_api_name,
3898: G_PKG_NAME,
3899: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3900: x_msg_count,
3901: x_msg_data,
3902: '_PVT'
3903: );
3901: x_msg_data,
3902: '_PVT'
3903: );
3904: WHEN OTHERS THEN
3905: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3906: (
3907: l_api_name,
3908: G_PKG_NAME,
3909: 'OTHERS',
3916: -- PL/SQL TBL delete_row for:SFEV_TBL --
3917: ----------------------------------------
3918: PROCEDURE delete_row(
3919: p_api_version IN NUMBER,
3920: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3921: x_return_status OUT NOCOPY VARCHAR2,
3922: x_msg_count OUT NOCOPY NUMBER,
3923: x_msg_data OUT NOCOPY VARCHAR2,
3924: p_sfev_tbl IN sfev_tbl_type) IS
3924: p_sfev_tbl IN sfev_tbl_type) IS
3925:
3926: l_api_version CONSTANT NUMBER := 1;
3927: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3928: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3929: i NUMBER := 0;
3930: -- START change : akjain, 09/05/2001
3931: -- Adding OverAll Status Flag
3932: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3928: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3929: i NUMBER := 0;
3930: -- START change : akjain, 09/05/2001
3931: -- Adding OverAll Status Flag
3932: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3933: -- END change : akjain
3934:
3935: BEGIN
3936: OKC_API.init_msg_list(p_init_msg_list);
3932: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3933: -- END change : akjain
3934:
3935: BEGIN
3936: OKC_API.init_msg_list(p_init_msg_list);
3937:
3938: -- Make sure PL/SQL table has records in it before passing
3939: IF (p_sfev_tbl.COUNT > 0) THEN
3940: i := p_sfev_tbl.FIRST;
3940: i := p_sfev_tbl.FIRST;
3941: LOOP
3942: delete_row (
3943: p_api_version => p_api_version,
3944: p_init_msg_list => OKC_API.G_FALSE,
3945: x_return_status => x_return_status,
3946: x_msg_count => x_msg_count,
3947: x_msg_data => x_msg_data,
3948: p_sfev_rec => p_sfev_tbl(i));
3947: x_msg_data => x_msg_data,
3948: p_sfev_rec => p_sfev_tbl(i));
3949: -- START change : akjain, 09/05/2001
3950: -- store the highest degree of error
3951: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
3952: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
3953: l_overall_status := x_return_status;
3954: END IF;
3955: END IF;
3948: p_sfev_rec => p_sfev_tbl(i));
3949: -- START change : akjain, 09/05/2001
3950: -- store the highest degree of error
3951: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
3952: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
3953: l_overall_status := x_return_status;
3954: END IF;
3955: END IF;
3956: -- END change : akjain
3962: x_return_status := l_overall_status;
3963: -- END change : akjain
3964: END IF;
3965: EXCEPTION
3966: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3967: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3968: (
3969: l_api_name,
3970: G_PKG_NAME,
3963: -- END change : akjain
3964: END IF;
3965: EXCEPTION
3966: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3967: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3968: (
3969: l_api_name,
3970: G_PKG_NAME,
3971: 'OKC_API.G_RET_STS_ERROR',
3967: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3968: (
3969: l_api_name,
3970: G_PKG_NAME,
3971: 'OKC_API.G_RET_STS_ERROR',
3972: x_msg_count,
3973: x_msg_data,
3974: '_PVT'
3975: );
3972: x_msg_count,
3973: x_msg_data,
3974: '_PVT'
3975: );
3976: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3977: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3978: (
3979: l_api_name,
3980: G_PKG_NAME,
3973: x_msg_data,
3974: '_PVT'
3975: );
3976: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3977: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3978: (
3979: l_api_name,
3980: G_PKG_NAME,
3981: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3977: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3978: (
3979: l_api_name,
3980: G_PKG_NAME,
3981: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3982: x_msg_count,
3983: x_msg_data,
3984: '_PVT'
3985: );
3983: x_msg_data,
3984: '_PVT'
3985: );
3986: WHEN OTHERS THEN
3987: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3988: (
3989: l_api_name,
3990: G_PKG_NAME,
3991: 'OTHERS',