330: p_sfev_rec IN sfev_rec_type
331: ) RETURN sfev_rec_type IS
332: l_sfev_rec sfev_rec_type := p_sfev_rec;
333: BEGIN
334: IF (l_sfev_rec.sfe_type = OKC_API.G_MISS_CHAR) THEN
335: l_sfev_rec.sfe_type := NULL;
336: END IF;
337: IF (l_sfev_rec.date_start = OKC_API.G_MISS_DATE) THEN
338: l_sfev_rec.date_start := NULL;
333: BEGIN
334: IF (l_sfev_rec.sfe_type = OKC_API.G_MISS_CHAR) THEN
335: l_sfev_rec.sfe_type := NULL;
336: END IF;
337: IF (l_sfev_rec.date_start = OKC_API.G_MISS_DATE) THEN
338: l_sfev_rec.date_start := NULL;
339: END IF;
340: IF (l_sfev_rec.date_paid = OKC_API.G_MISS_DATE) THEN
341: l_sfev_rec.date_paid := NULL;
336: END IF;
337: IF (l_sfev_rec.date_start = OKC_API.G_MISS_DATE) THEN
338: l_sfev_rec.date_start := NULL;
339: END IF;
340: IF (l_sfev_rec.date_paid = OKC_API.G_MISS_DATE) THEN
341: l_sfev_rec.date_paid := NULL;
342: END IF;
343: IF (l_sfev_rec.amount = OKC_API.G_MISS_NUM) THEN
344: l_sfev_rec.amount := NULL;
339: END IF;
340: IF (l_sfev_rec.date_paid = OKC_API.G_MISS_DATE) THEN
341: l_sfev_rec.date_paid := NULL;
342: END IF;
343: IF (l_sfev_rec.amount = OKC_API.G_MISS_NUM) THEN
344: l_sfev_rec.amount := NULL;
345: END IF;
346: IF (l_sfev_rec.idc_accounting_flag = OKC_API.G_MISS_CHAR) THEN
347: l_sfev_rec.idc_accounting_flag := NULL;
342: END IF;
343: IF (l_sfev_rec.amount = OKC_API.G_MISS_NUM) THEN
344: l_sfev_rec.amount := NULL;
345: END IF;
346: IF (l_sfev_rec.idc_accounting_flag = OKC_API.G_MISS_CHAR) THEN
347: l_sfev_rec.idc_accounting_flag := NULL;
348: END IF;
349: IF (l_sfev_rec.income_or_expense = OKC_API.G_MISS_CHAR) THEN
350: l_sfev_rec.income_or_expense := NULL;
345: END IF;
346: IF (l_sfev_rec.idc_accounting_flag = OKC_API.G_MISS_CHAR) THEN
347: l_sfev_rec.idc_accounting_flag := NULL;
348: END IF;
349: IF (l_sfev_rec.income_or_expense = OKC_API.G_MISS_CHAR) THEN
350: l_sfev_rec.income_or_expense := NULL;
351: END IF;
352: IF (l_sfev_rec.description = OKC_API.G_MISS_CHAR) THEN
353: l_sfev_rec.description := NULL;
348: END IF;
349: IF (l_sfev_rec.income_or_expense = OKC_API.G_MISS_CHAR) THEN
350: l_sfev_rec.income_or_expense := NULL;
351: END IF;
352: IF (l_sfev_rec.description = OKC_API.G_MISS_CHAR) THEN
353: l_sfev_rec.description := NULL;
354: END IF;
355: IF (l_sfev_rec.fee_index_number = OKC_API.G_MISS_NUM) THEN
356: l_sfev_rec.fee_index_number := NULL;
351: END IF;
352: IF (l_sfev_rec.description = OKC_API.G_MISS_CHAR) THEN
353: l_sfev_rec.description := NULL;
354: END IF;
355: IF (l_sfev_rec.fee_index_number = OKC_API.G_MISS_NUM) THEN
356: l_sfev_rec.fee_index_number := NULL;
357: END IF;
358: IF (l_sfev_rec.level_index_number = OKC_API.G_MISS_NUM) THEN
359: l_sfev_rec.level_index_number := NULL;
354: END IF;
355: IF (l_sfev_rec.fee_index_number = OKC_API.G_MISS_NUM) THEN
356: l_sfev_rec.fee_index_number := NULL;
357: END IF;
358: IF (l_sfev_rec.level_index_number = OKC_API.G_MISS_NUM) THEN
359: l_sfev_rec.level_index_number := NULL;
360:
361: END IF;
362: IF (l_sfev_rec.advance_or_arrears = OKC_API.G_MISS_CHAR) THEN
358: IF (l_sfev_rec.level_index_number = OKC_API.G_MISS_NUM) THEN
359: l_sfev_rec.level_index_number := NULL;
360:
361: END IF;
362: IF (l_sfev_rec.advance_or_arrears = OKC_API.G_MISS_CHAR) THEN
363: l_sfev_rec.advance_or_arrears := NULL;
364: END IF;
365:
366: IF (l_sfev_rec.cash_effect_yn = OKC_API.G_MISS_CHAR) THEN
362: IF (l_sfev_rec.advance_or_arrears = OKC_API.G_MISS_CHAR) THEN
363: l_sfev_rec.advance_or_arrears := NULL;
364: END IF;
365:
366: IF (l_sfev_rec.cash_effect_yn = OKC_API.G_MISS_CHAR) THEN
367: l_sfev_rec.cash_effect_yn := NULL;
368: END IF;
369:
370: IF (l_sfev_rec.tax_effect_yn = OKC_API.G_MISS_CHAR) THEN
366: IF (l_sfev_rec.cash_effect_yn = OKC_API.G_MISS_CHAR) THEN
367: l_sfev_rec.cash_effect_yn := NULL;
368: END IF;
369:
370: IF (l_sfev_rec.tax_effect_yn = OKC_API.G_MISS_CHAR) THEN
371: l_sfev_rec.tax_effect_yn := NULL;
372: END IF;
373:
374: IF (l_sfev_rec.days_in_month = OKC_API.G_MISS_CHAR) THEN
370: IF (l_sfev_rec.tax_effect_yn = OKC_API.G_MISS_CHAR) THEN
371: l_sfev_rec.tax_effect_yn := NULL;
372: END IF;
373:
374: IF (l_sfev_rec.days_in_month = OKC_API.G_MISS_CHAR) THEN
375: l_sfev_rec.days_in_month := NULL;
376: END IF;
377:
378: IF (l_sfev_rec.days_in_year = OKC_API.G_MISS_CHAR) THEN
374: IF (l_sfev_rec.days_in_month = OKC_API.G_MISS_CHAR) THEN
375: l_sfev_rec.days_in_month := NULL;
376: END IF;
377:
378: IF (l_sfev_rec.days_in_year = OKC_API.G_MISS_CHAR) THEN
379: l_sfev_rec.days_in_year := NULL;
380: END IF;
381:
382: IF (l_sfev_rec.balance_type_code = OKC_API.G_MISS_CHAR) THEN
378: IF (l_sfev_rec.days_in_year = OKC_API.G_MISS_CHAR) THEN
379: l_sfev_rec.days_in_year := NULL;
380: END IF;
381:
382: IF (l_sfev_rec.balance_type_code = OKC_API.G_MISS_CHAR) THEN
383: l_sfev_rec.balance_type_code := NULL;
384: END IF;
385:
386: IF (l_sfev_rec.level_type = OKC_API.G_MISS_CHAR) THEN
382: IF (l_sfev_rec.balance_type_code = OKC_API.G_MISS_CHAR) THEN
383: l_sfev_rec.balance_type_code := NULL;
384: END IF;
385:
386: IF (l_sfev_rec.level_type = OKC_API.G_MISS_CHAR) THEN
387: l_sfev_rec.level_type := NULL;
388: END IF;
389: IF (l_sfev_rec.lock_level_step = OKC_API.G_MISS_CHAR) THEN
390: l_sfev_rec.lock_level_step := NULL;
385:
386: IF (l_sfev_rec.level_type = OKC_API.G_MISS_CHAR) THEN
387: l_sfev_rec.level_type := NULL;
388: END IF;
389: IF (l_sfev_rec.lock_level_step = OKC_API.G_MISS_CHAR) THEN
390: l_sfev_rec.lock_level_step := NULL;
391: END IF;
392: IF (l_sfev_rec.period = OKC_API.G_MISS_CHAR) THEN
393: l_sfev_rec.period := NULL;
388: END IF;
389: IF (l_sfev_rec.lock_level_step = OKC_API.G_MISS_CHAR) THEN
390: l_sfev_rec.lock_level_step := NULL;
391: END IF;
392: IF (l_sfev_rec.period = OKC_API.G_MISS_CHAR) THEN
393: l_sfev_rec.period := NULL;
394: END IF;
395: IF (l_sfev_rec.number_of_periods = OKC_API.G_MISS_NUM) THEN
396: l_sfev_rec.number_of_periods := NULL;
391: END IF;
392: IF (l_sfev_rec.period = OKC_API.G_MISS_CHAR) THEN
393: l_sfev_rec.period := NULL;
394: END IF;
395: IF (l_sfev_rec.number_of_periods = OKC_API.G_MISS_NUM) THEN
396: l_sfev_rec.number_of_periods := NULL;
397: END IF;
398: IF (l_sfev_rec.level_line_number = OKC_API.G_MISS_NUM) THEN
399: l_sfev_rec.level_line_number := NULL;
394: END IF;
395: IF (l_sfev_rec.number_of_periods = OKC_API.G_MISS_NUM) THEN
396: l_sfev_rec.number_of_periods := NULL;
397: END IF;
398: IF (l_sfev_rec.level_line_number = OKC_API.G_MISS_NUM) THEN
399: l_sfev_rec.level_line_number := NULL;
400: END IF;
401: IF (l_sfev_rec.sif_id = OKC_API.G_MISS_NUM) THEN
402: l_sfev_rec.sif_id := NULL;
397: END IF;
398: IF (l_sfev_rec.level_line_number = OKC_API.G_MISS_NUM) THEN
399: l_sfev_rec.level_line_number := NULL;
400: END IF;
401: IF (l_sfev_rec.sif_id = OKC_API.G_MISS_NUM) THEN
402: l_sfev_rec.sif_id := NULL;
403: END IF;
404: IF (l_sfev_rec.kle_id = OKC_API.G_MISS_NUM) THEN
405: l_sfev_rec.kle_id := NULL;
400: END IF;
401: IF (l_sfev_rec.sif_id = OKC_API.G_MISS_NUM) THEN
402: l_sfev_rec.sif_id := NULL;
403: END IF;
404: IF (l_sfev_rec.kle_id = OKC_API.G_MISS_NUM) THEN
405: l_sfev_rec.kle_id := NULL;
406: END IF;
407: IF (l_sfev_rec.sil_id = OKC_API.G_MISS_NUM) THEN
408: l_sfev_rec.sil_id := NULL;
403: END IF;
404: IF (l_sfev_rec.kle_id = OKC_API.G_MISS_NUM) THEN
405: l_sfev_rec.kle_id := NULL;
406: END IF;
407: IF (l_sfev_rec.sil_id = OKC_API.G_MISS_NUM) THEN
408: l_sfev_rec.sil_id := NULL;
409: END IF;
410: IF (l_sfev_rec.rate = OKC_API.G_MISS_NUM) THEN
411: l_sfev_rec.rate := NULL;
406: END IF;
407: IF (l_sfev_rec.sil_id = OKC_API.G_MISS_NUM) THEN
408: l_sfev_rec.sil_id := NULL;
409: END IF;
410: IF (l_sfev_rec.rate = OKC_API.G_MISS_NUM) THEN
411: l_sfev_rec.rate := NULL;
412: END IF;
413: -- mvasudev, 05/13/2002
414: IF (l_sfev_rec.query_level_yn = OKC_API.G_MISS_CHAR) THEN
410: IF (l_sfev_rec.rate = OKC_API.G_MISS_NUM) THEN
411: l_sfev_rec.rate := NULL;
412: END IF;
413: -- mvasudev, 05/13/2002
414: IF (l_sfev_rec.query_level_yn = OKC_API.G_MISS_CHAR) THEN
415: l_sfev_rec.query_level_yn := NULL;
416: END IF;
417: IF (l_sfev_rec.structure = OKC_API.G_MISS_CHAR) THEN
418: l_sfev_rec.structure := NULL;
413: -- mvasudev, 05/13/2002
414: IF (l_sfev_rec.query_level_yn = OKC_API.G_MISS_CHAR) THEN
415: l_sfev_rec.query_level_yn := NULL;
416: END IF;
417: IF (l_sfev_rec.structure = OKC_API.G_MISS_CHAR) THEN
418: l_sfev_rec.structure := NULL;
419: END IF;
420: IF (l_sfev_rec.DAYS_IN_PERIOD = OKC_API.G_MISS_NUM) THEN
421: l_sfev_rec.DAYS_IN_PERIOD := NULL;
416: END IF;
417: IF (l_sfev_rec.structure = OKC_API.G_MISS_CHAR) THEN
418: l_sfev_rec.structure := NULL;
419: END IF;
420: IF (l_sfev_rec.DAYS_IN_PERIOD = OKC_API.G_MISS_NUM) THEN
421: l_sfev_rec.DAYS_IN_PERIOD := NULL;
422: END IF;
423: --
424: IF (l_sfev_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
420: IF (l_sfev_rec.DAYS_IN_PERIOD = OKC_API.G_MISS_NUM) THEN
421: l_sfev_rec.DAYS_IN_PERIOD := NULL;
422: END IF;
423: --
424: IF (l_sfev_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
425: l_sfev_rec.object_version_number := NULL;
426: END IF;
427: IF (l_sfev_rec.stream_interface_attribute01 = OKC_API.G_MISS_CHAR) THEN
428: l_sfev_rec.stream_interface_attribute01 := NULL;
423: --
424: IF (l_sfev_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
425: l_sfev_rec.object_version_number := NULL;
426: END IF;
427: IF (l_sfev_rec.stream_interface_attribute01 = OKC_API.G_MISS_CHAR) THEN
428: l_sfev_rec.stream_interface_attribute01 := NULL;
429: END IF;
430: IF (l_sfev_rec.stream_interface_attribute02 = OKC_API.G_MISS_CHAR) THEN
431: l_sfev_rec.stream_interface_attribute02 := NULL;
426: END IF;
427: IF (l_sfev_rec.stream_interface_attribute01 = OKC_API.G_MISS_CHAR) THEN
428: l_sfev_rec.stream_interface_attribute01 := NULL;
429: END IF;
430: IF (l_sfev_rec.stream_interface_attribute02 = OKC_API.G_MISS_CHAR) THEN
431: l_sfev_rec.stream_interface_attribute02 := NULL;
432: END IF;
433: IF (l_sfev_rec.stream_interface_attribute03 = OKC_API.G_MISS_CHAR) THEN
434: l_sfev_rec.stream_interface_attribute03 := NULL;
429: END IF;
430: IF (l_sfev_rec.stream_interface_attribute02 = OKC_API.G_MISS_CHAR) THEN
431: l_sfev_rec.stream_interface_attribute02 := NULL;
432: END IF;
433: IF (l_sfev_rec.stream_interface_attribute03 = OKC_API.G_MISS_CHAR) THEN
434: l_sfev_rec.stream_interface_attribute03 := NULL;
435: END IF;
436: IF (l_sfev_rec.stream_interface_attribute04 = OKC_API.G_MISS_CHAR) THEN
437: l_sfev_rec.stream_interface_attribute04 := NULL;
432: END IF;
433: IF (l_sfev_rec.stream_interface_attribute03 = OKC_API.G_MISS_CHAR) THEN
434: l_sfev_rec.stream_interface_attribute03 := NULL;
435: END IF;
436: IF (l_sfev_rec.stream_interface_attribute04 = OKC_API.G_MISS_CHAR) THEN
437: l_sfev_rec.stream_interface_attribute04 := NULL;
438: END IF;
439: IF (l_sfev_rec.stream_interface_attribute05 = OKC_API.G_MISS_CHAR) THEN
440: l_sfev_rec.stream_interface_attribute05 := NULL;
435: END IF;
436: IF (l_sfev_rec.stream_interface_attribute04 = OKC_API.G_MISS_CHAR) THEN
437: l_sfev_rec.stream_interface_attribute04 := NULL;
438: END IF;
439: IF (l_sfev_rec.stream_interface_attribute05 = OKC_API.G_MISS_CHAR) THEN
440: l_sfev_rec.stream_interface_attribute05 := NULL;
441: END IF;
442: IF (l_sfev_rec.stream_interface_attribute06 = OKC_API.G_MISS_CHAR) THEN
443: l_sfev_rec.stream_interface_attribute06 := NULL;
438: END IF;
439: IF (l_sfev_rec.stream_interface_attribute05 = OKC_API.G_MISS_CHAR) THEN
440: l_sfev_rec.stream_interface_attribute05 := NULL;
441: END IF;
442: IF (l_sfev_rec.stream_interface_attribute06 = OKC_API.G_MISS_CHAR) THEN
443: l_sfev_rec.stream_interface_attribute06 := NULL;
444: END IF;
445: IF (l_sfev_rec.stream_interface_attribute07 = OKC_API.G_MISS_CHAR) THEN
446: l_sfev_rec.stream_interface_attribute07 := NULL;
441: END IF;
442: IF (l_sfev_rec.stream_interface_attribute06 = OKC_API.G_MISS_CHAR) THEN
443: l_sfev_rec.stream_interface_attribute06 := NULL;
444: END IF;
445: IF (l_sfev_rec.stream_interface_attribute07 = OKC_API.G_MISS_CHAR) THEN
446: l_sfev_rec.stream_interface_attribute07 := NULL;
447: END IF;
448: IF (l_sfev_rec.stream_interface_attribute08 = OKC_API.G_MISS_CHAR) THEN
449: l_sfev_rec.stream_interface_attribute08 := NULL;
444: END IF;
445: IF (l_sfev_rec.stream_interface_attribute07 = OKC_API.G_MISS_CHAR) THEN
446: l_sfev_rec.stream_interface_attribute07 := NULL;
447: END IF;
448: IF (l_sfev_rec.stream_interface_attribute08 = OKC_API.G_MISS_CHAR) THEN
449: l_sfev_rec.stream_interface_attribute08 := NULL;
450: END IF;
451: IF (l_sfev_rec.stream_interface_attribute09 = OKC_API.G_MISS_CHAR) THEN
452: l_sfev_rec.stream_interface_attribute09 := NULL;
447: END IF;
448: IF (l_sfev_rec.stream_interface_attribute08 = OKC_API.G_MISS_CHAR) THEN
449: l_sfev_rec.stream_interface_attribute08 := NULL;
450: END IF;
451: IF (l_sfev_rec.stream_interface_attribute09 = OKC_API.G_MISS_CHAR) THEN
452: l_sfev_rec.stream_interface_attribute09 := NULL;
453: END IF;
454: IF (l_sfev_rec.stream_interface_attribute10 = OKC_API.G_MISS_CHAR) THEN
455: l_sfev_rec.stream_interface_attribute10 := NULL;
450: END IF;
451: IF (l_sfev_rec.stream_interface_attribute09 = OKC_API.G_MISS_CHAR) THEN
452: l_sfev_rec.stream_interface_attribute09 := NULL;
453: END IF;
454: IF (l_sfev_rec.stream_interface_attribute10 = OKC_API.G_MISS_CHAR) THEN
455: l_sfev_rec.stream_interface_attribute10 := NULL;
456: END IF;
457: IF (l_sfev_rec.stream_interface_attribute11 = OKC_API.G_MISS_CHAR) THEN
458: l_sfev_rec.stream_interface_attribute11 := NULL;
453: END IF;
454: IF (l_sfev_rec.stream_interface_attribute10 = OKC_API.G_MISS_CHAR) THEN
455: l_sfev_rec.stream_interface_attribute10 := NULL;
456: END IF;
457: IF (l_sfev_rec.stream_interface_attribute11 = OKC_API.G_MISS_CHAR) THEN
458: l_sfev_rec.stream_interface_attribute11 := NULL;
459: END IF;
460: IF (l_sfev_rec.stream_interface_attribute12 = OKC_API.G_MISS_CHAR) THEN
461: l_sfev_rec.stream_interface_attribute12 := NULL;
456: END IF;
457: IF (l_sfev_rec.stream_interface_attribute11 = OKC_API.G_MISS_CHAR) THEN
458: l_sfev_rec.stream_interface_attribute11 := NULL;
459: END IF;
460: IF (l_sfev_rec.stream_interface_attribute12 = OKC_API.G_MISS_CHAR) THEN
461: l_sfev_rec.stream_interface_attribute12 := NULL;
462: END IF;
463: IF (l_sfev_rec.stream_interface_attribute13 = OKC_API.G_MISS_CHAR) THEN
464: l_sfev_rec.stream_interface_attribute13 := NULL;
459: END IF;
460: IF (l_sfev_rec.stream_interface_attribute12 = OKC_API.G_MISS_CHAR) THEN
461: l_sfev_rec.stream_interface_attribute12 := NULL;
462: END IF;
463: IF (l_sfev_rec.stream_interface_attribute13 = OKC_API.G_MISS_CHAR) THEN
464: l_sfev_rec.stream_interface_attribute13 := NULL;
465: END IF;
466: IF (l_sfev_rec.stream_interface_attribute14 = OKC_API.G_MISS_CHAR) THEN
467: l_sfev_rec.stream_interface_attribute14 := NULL;
462: END IF;
463: IF (l_sfev_rec.stream_interface_attribute13 = OKC_API.G_MISS_CHAR) THEN
464: l_sfev_rec.stream_interface_attribute13 := NULL;
465: END IF;
466: IF (l_sfev_rec.stream_interface_attribute14 = OKC_API.G_MISS_CHAR) THEN
467: l_sfev_rec.stream_interface_attribute14 := NULL;
468: END IF;
469: IF (l_sfev_rec.stream_interface_attribute15 = OKC_API.G_MISS_CHAR) THEN
470: l_sfev_rec.stream_interface_attribute15 := NULL;
465: END IF;
466: IF (l_sfev_rec.stream_interface_attribute14 = OKC_API.G_MISS_CHAR) THEN
467: l_sfev_rec.stream_interface_attribute14 := NULL;
468: END IF;
469: IF (l_sfev_rec.stream_interface_attribute15 = OKC_API.G_MISS_CHAR) THEN
470: l_sfev_rec.stream_interface_attribute15 := NULL;
471: END IF;
472: IF (l_sfev_rec.stream_interface_attribute16 = OKC_API.G_MISS_CHAR) THEN
473: l_sfev_rec.stream_interface_attribute16 := NULL;
468: END IF;
469: IF (l_sfev_rec.stream_interface_attribute15 = OKC_API.G_MISS_CHAR) THEN
470: l_sfev_rec.stream_interface_attribute15 := NULL;
471: END IF;
472: IF (l_sfev_rec.stream_interface_attribute16 = OKC_API.G_MISS_CHAR) THEN
473: l_sfev_rec.stream_interface_attribute16 := NULL;
474: END IF;
475: IF (l_sfev_rec.stream_interface_attribute17 = OKC_API.G_MISS_CHAR) THEN
476: l_sfev_rec.stream_interface_attribute17 := NULL;
471: END IF;
472: IF (l_sfev_rec.stream_interface_attribute16 = OKC_API.G_MISS_CHAR) THEN
473: l_sfev_rec.stream_interface_attribute16 := NULL;
474: END IF;
475: IF (l_sfev_rec.stream_interface_attribute17 = OKC_API.G_MISS_CHAR) THEN
476: l_sfev_rec.stream_interface_attribute17 := NULL;
477: END IF;
478: IF (l_sfev_rec.stream_interface_attribute18 = OKC_API.G_MISS_CHAR) THEN
479: l_sfev_rec.stream_interface_attribute18 := NULL;
474: END IF;
475: IF (l_sfev_rec.stream_interface_attribute17 = OKC_API.G_MISS_CHAR) THEN
476: l_sfev_rec.stream_interface_attribute17 := NULL;
477: END IF;
478: IF (l_sfev_rec.stream_interface_attribute18 = OKC_API.G_MISS_CHAR) THEN
479: l_sfev_rec.stream_interface_attribute18 := NULL;
480: END IF;
481:
482: IF (l_sfev_rec.stream_interface_attribute19 = OKC_API.G_MISS_CHAR) THEN
478: IF (l_sfev_rec.stream_interface_attribute18 = OKC_API.G_MISS_CHAR) THEN
479: l_sfev_rec.stream_interface_attribute18 := NULL;
480: END IF;
481:
482: IF (l_sfev_rec.stream_interface_attribute19 = OKC_API.G_MISS_CHAR) THEN
483: l_sfev_rec.stream_interface_attribute19 := NULL;
484: END IF;
485: IF (l_sfev_rec.stream_interface_attribute20 = OKC_API.G_MISS_CHAR) THEN
486: l_sfev_rec.stream_interface_attribute20 := NULL;
481:
482: IF (l_sfev_rec.stream_interface_attribute19 = OKC_API.G_MISS_CHAR) THEN
483: l_sfev_rec.stream_interface_attribute19 := NULL;
484: END IF;
485: IF (l_sfev_rec.stream_interface_attribute20 = OKC_API.G_MISS_CHAR) THEN
486: l_sfev_rec.stream_interface_attribute20 := NULL;
487: END IF;
488: IF (l_sfev_rec.created_by = OKC_API.G_MISS_NUM) THEN
489: l_sfev_rec.created_by := NULL;
484: END IF;
485: IF (l_sfev_rec.stream_interface_attribute20 = OKC_API.G_MISS_CHAR) THEN
486: l_sfev_rec.stream_interface_attribute20 := NULL;
487: END IF;
488: IF (l_sfev_rec.created_by = OKC_API.G_MISS_NUM) THEN
489: l_sfev_rec.created_by := NULL;
490: END IF;
491: IF (l_sfev_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
492: l_sfev_rec.last_updated_by := NULL;
487: END IF;
488: IF (l_sfev_rec.created_by = OKC_API.G_MISS_NUM) THEN
489: l_sfev_rec.created_by := NULL;
490: END IF;
491: IF (l_sfev_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
492: l_sfev_rec.last_updated_by := NULL;
493: END IF;
494: IF (l_sfev_rec.creation_date = OKC_API.G_MISS_DATE) THEN
495: l_sfev_rec.creation_date := NULL;
490: END IF;
491: IF (l_sfev_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
492: l_sfev_rec.last_updated_by := NULL;
493: END IF;
494: IF (l_sfev_rec.creation_date = OKC_API.G_MISS_DATE) THEN
495: l_sfev_rec.creation_date := NULL;
496: END IF;
497: IF (l_sfev_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
498: l_sfev_rec.last_update_date := NULL;
493: END IF;
494: IF (l_sfev_rec.creation_date = OKC_API.G_MISS_DATE) THEN
495: l_sfev_rec.creation_date := NULL;
496: END IF;
497: IF (l_sfev_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
498: l_sfev_rec.last_update_date := NULL;
499: END IF;
500: IF (l_sfev_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
501: l_sfev_rec.last_update_login := NULL;
496: END IF;
497: IF (l_sfev_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
498: l_sfev_rec.last_update_date := NULL;
499: END IF;
500: IF (l_sfev_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
501: l_sfev_rec.last_update_login := NULL;
502: END IF;
503: IF (l_sfev_rec.down_payment_amount = OKC_API.G_MISS_NUM) THEN
504: l_sfev_rec.down_payment_amount := NULL;
499: END IF;
500: IF (l_sfev_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
501: l_sfev_rec.last_update_login := NULL;
502: END IF;
503: IF (l_sfev_rec.down_payment_amount = OKC_API.G_MISS_NUM) THEN
504: l_sfev_rec.down_payment_amount := NULL;
505: END IF;
506: RETURN(l_sfev_rec);
507: END null_out_defaults;
518: --------------------------------------------
519: FUNCTION Validate_Attributes (
520: p_sfev_rec IN sfev_rec_type
521: ) RETURN VARCHAR2 IS
522: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
523: BEGIN
524: IF p_sfev_rec.id = OKC_API.G_MISS_NUM OR
525: p_sfev_rec.id IS NULL
526: THEN
520: p_sfev_rec IN sfev_rec_type
521: ) RETURN VARCHAR2 IS
522: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
523: BEGIN
524: IF p_sfev_rec.id = OKC_API.G_MISS_NUM OR
525: p_sfev_rec.id IS NULL
526: THEN
527: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
528: l_return_status := OKC_API.G_RET_STS_ERROR;
523: BEGIN
524: IF p_sfev_rec.id = OKC_API.G_MISS_NUM OR
525: p_sfev_rec.id IS NULL
526: THEN
527: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
528: l_return_status := OKC_API.G_RET_STS_ERROR;
529: ELSIF p_sfev_rec.sfe_type = OKC_API.G_MISS_CHAR OR
530: p_sfev_rec.sfe_type IS NULL
531: THEN
524: IF p_sfev_rec.id = OKC_API.G_MISS_NUM OR
525: p_sfev_rec.id IS NULL
526: THEN
527: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
528: l_return_status := OKC_API.G_RET_STS_ERROR;
529: ELSIF p_sfev_rec.sfe_type = OKC_API.G_MISS_CHAR OR
530: p_sfev_rec.sfe_type IS NULL
531: THEN
532: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'sfe_type');
525: p_sfev_rec.id IS NULL
526: THEN
527: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
528: l_return_status := OKC_API.G_RET_STS_ERROR;
529: ELSIF p_sfev_rec.sfe_type = OKC_API.G_MISS_CHAR OR
530: p_sfev_rec.sfe_type IS NULL
531: THEN
532: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'sfe_type');
533: l_return_status := OKC_API.G_RET_STS_ERROR;
528: l_return_status := OKC_API.G_RET_STS_ERROR;
529: ELSIF p_sfev_rec.sfe_type = OKC_API.G_MISS_CHAR OR
530: p_sfev_rec.sfe_type IS NULL
531: THEN
532: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'sfe_type');
533: l_return_status := OKC_API.G_RET_STS_ERROR;
534: ELSIF p_sfev_rec.income_or_expense = OKC_API.G_MISS_CHAR OR
535: p_sfev_rec.income_or_expense IS NULL
536: THEN
529: ELSIF p_sfev_rec.sfe_type = OKC_API.G_MISS_CHAR OR
530: p_sfev_rec.sfe_type IS NULL
531: THEN
532: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'sfe_type');
533: l_return_status := OKC_API.G_RET_STS_ERROR;
534: ELSIF p_sfev_rec.income_or_expense = OKC_API.G_MISS_CHAR OR
535: p_sfev_rec.income_or_expense IS NULL
536: THEN
537: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'income_or_expense');
530: p_sfev_rec.sfe_type IS NULL
531: THEN
532: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'sfe_type');
533: l_return_status := OKC_API.G_RET_STS_ERROR;
534: ELSIF p_sfev_rec.income_or_expense = OKC_API.G_MISS_CHAR OR
535: p_sfev_rec.income_or_expense IS NULL
536: THEN
537: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'income_or_expense');
538: l_return_status := OKC_API.G_RET_STS_ERROR;
533: l_return_status := OKC_API.G_RET_STS_ERROR;
534: ELSIF p_sfev_rec.income_or_expense = OKC_API.G_MISS_CHAR OR
535: p_sfev_rec.income_or_expense IS NULL
536: THEN
537: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'income_or_expense');
538: l_return_status := OKC_API.G_RET_STS_ERROR;
539: ELSIF p_sfev_rec.fee_index_number = OKC_API.G_MISS_NUM OR
540: p_sfev_rec.fee_index_number IS NULL
541: THEN
534: ELSIF p_sfev_rec.income_or_expense = OKC_API.G_MISS_CHAR OR
535: p_sfev_rec.income_or_expense IS NULL
536: THEN
537: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'income_or_expense');
538: l_return_status := OKC_API.G_RET_STS_ERROR;
539: ELSIF p_sfev_rec.fee_index_number = OKC_API.G_MISS_NUM OR
540: p_sfev_rec.fee_index_number IS NULL
541: THEN
542: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'fee_index_number');
535: p_sfev_rec.income_or_expense IS NULL
536: THEN
537: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'income_or_expense');
538: l_return_status := OKC_API.G_RET_STS_ERROR;
539: ELSIF p_sfev_rec.fee_index_number = OKC_API.G_MISS_NUM OR
540: p_sfev_rec.fee_index_number IS NULL
541: THEN
542: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'fee_index_number');
543: l_return_status := OKC_API.G_RET_STS_ERROR;
538: l_return_status := OKC_API.G_RET_STS_ERROR;
539: ELSIF p_sfev_rec.fee_index_number = OKC_API.G_MISS_NUM OR
540: p_sfev_rec.fee_index_number IS NULL
541: THEN
542: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'fee_index_number');
543: l_return_status := OKC_API.G_RET_STS_ERROR;
544: ELSIF p_sfev_rec.level_index_number = OKC_API.G_MISS_NUM OR
545: p_sfev_rec.level_index_number IS NULL
546: THEN
539: ELSIF p_sfev_rec.fee_index_number = OKC_API.G_MISS_NUM OR
540: p_sfev_rec.fee_index_number IS NULL
541: THEN
542: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'fee_index_number');
543: l_return_status := OKC_API.G_RET_STS_ERROR;
544: ELSIF p_sfev_rec.level_index_number = OKC_API.G_MISS_NUM OR
545: p_sfev_rec.level_index_number IS NULL
546: THEN
547: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'level_index_number');
540: p_sfev_rec.fee_index_number IS NULL
541: THEN
542: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'fee_index_number');
543: l_return_status := OKC_API.G_RET_STS_ERROR;
544: ELSIF p_sfev_rec.level_index_number = OKC_API.G_MISS_NUM OR
545: p_sfev_rec.level_index_number IS NULL
546: THEN
547: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'level_index_number');
548: l_return_status := OKC_API.G_RET_STS_ERROR;
543: l_return_status := OKC_API.G_RET_STS_ERROR;
544: ELSIF p_sfev_rec.level_index_number = OKC_API.G_MISS_NUM OR
545: p_sfev_rec.level_index_number IS NULL
546: THEN
547: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'level_index_number');
548: l_return_status := OKC_API.G_RET_STS_ERROR;
549: ELSIF p_sfev_rec.advance_or_arrears = OKC_API.G_MISS_CHAR OR
550: p_sfev_rec.advance_or_arrears IS NULL
551: THEN
544: ELSIF p_sfev_rec.level_index_number = OKC_API.G_MISS_NUM OR
545: p_sfev_rec.level_index_number IS NULL
546: THEN
547: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'level_index_number');
548: l_return_status := OKC_API.G_RET_STS_ERROR;
549: ELSIF p_sfev_rec.advance_or_arrears = OKC_API.G_MISS_CHAR OR
550: p_sfev_rec.advance_or_arrears IS NULL
551: THEN
552: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'advance_or_arrears');
545: p_sfev_rec.level_index_number IS NULL
546: THEN
547: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'level_index_number');
548: l_return_status := OKC_API.G_RET_STS_ERROR;
549: ELSIF p_sfev_rec.advance_or_arrears = OKC_API.G_MISS_CHAR OR
550: p_sfev_rec.advance_or_arrears IS NULL
551: THEN
552: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'advance_or_arrears');
553: l_return_status := OKC_API.G_RET_STS_ERROR;
548: l_return_status := OKC_API.G_RET_STS_ERROR;
549: ELSIF p_sfev_rec.advance_or_arrears = OKC_API.G_MISS_CHAR OR
550: p_sfev_rec.advance_or_arrears IS NULL
551: THEN
552: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'advance_or_arrears');
553: l_return_status := OKC_API.G_RET_STS_ERROR;
554: ELSIF p_sfev_rec.level_type = OKC_API.G_MISS_CHAR OR
555: p_sfev_rec.level_type IS NULL
556: THEN
549: ELSIF p_sfev_rec.advance_or_arrears = OKC_API.G_MISS_CHAR OR
550: p_sfev_rec.advance_or_arrears IS NULL
551: THEN
552: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'advance_or_arrears');
553: l_return_status := OKC_API.G_RET_STS_ERROR;
554: ELSIF p_sfev_rec.level_type = OKC_API.G_MISS_CHAR OR
555: p_sfev_rec.level_type IS NULL
556: THEN
557: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'level_type');
550: p_sfev_rec.advance_or_arrears IS NULL
551: THEN
552: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'advance_or_arrears');
553: l_return_status := OKC_API.G_RET_STS_ERROR;
554: ELSIF p_sfev_rec.level_type = OKC_API.G_MISS_CHAR OR
555: p_sfev_rec.level_type IS NULL
556: THEN
557: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'level_type');
558: l_return_status := OKC_API.G_RET_STS_ERROR;
553: l_return_status := OKC_API.G_RET_STS_ERROR;
554: ELSIF p_sfev_rec.level_type = OKC_API.G_MISS_CHAR OR
555: p_sfev_rec.level_type IS NULL
556: THEN
557: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'level_type');
558: l_return_status := OKC_API.G_RET_STS_ERROR;
559: ELSIF p_sfev_rec.period = OKC_API.G_MISS_CHAR OR
560: p_sfev_rec.period IS NULL
561: THEN
554: ELSIF p_sfev_rec.level_type = OKC_API.G_MISS_CHAR OR
555: p_sfev_rec.level_type IS NULL
556: THEN
557: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'level_type');
558: l_return_status := OKC_API.G_RET_STS_ERROR;
559: ELSIF p_sfev_rec.period = OKC_API.G_MISS_CHAR OR
560: p_sfev_rec.period IS NULL
561: THEN
562: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'period');
555: p_sfev_rec.level_type IS NULL
556: THEN
557: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'level_type');
558: l_return_status := OKC_API.G_RET_STS_ERROR;
559: ELSIF p_sfev_rec.period = OKC_API.G_MISS_CHAR OR
560: p_sfev_rec.period IS NULL
561: THEN
562: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'period');
563: l_return_status := OKC_API.G_RET_STS_ERROR;
558: l_return_status := OKC_API.G_RET_STS_ERROR;
559: ELSIF p_sfev_rec.period = OKC_API.G_MISS_CHAR OR
560: p_sfev_rec.period IS NULL
561: THEN
562: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'period');
563: l_return_status := OKC_API.G_RET_STS_ERROR;
564: ELSIF p_sfev_rec.number_of_periods = OKC_API.G_MISS_NUM OR
565: p_sfev_rec.number_of_periods IS NULL
566: THEN
559: ELSIF p_sfev_rec.period = OKC_API.G_MISS_CHAR OR
560: p_sfev_rec.period IS NULL
561: THEN
562: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'period');
563: l_return_status := OKC_API.G_RET_STS_ERROR;
564: ELSIF p_sfev_rec.number_of_periods = OKC_API.G_MISS_NUM OR
565: p_sfev_rec.number_of_periods IS NULL
566: THEN
567: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'number_of_periods');
560: p_sfev_rec.period IS NULL
561: THEN
562: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'period');
563: l_return_status := OKC_API.G_RET_STS_ERROR;
564: ELSIF p_sfev_rec.number_of_periods = OKC_API.G_MISS_NUM OR
565: p_sfev_rec.number_of_periods IS NULL
566: THEN
567: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'number_of_periods');
568: l_return_status := OKC_API.G_RET_STS_ERROR;
563: l_return_status := OKC_API.G_RET_STS_ERROR;
564: ELSIF p_sfev_rec.number_of_periods = OKC_API.G_MISS_NUM OR
565: p_sfev_rec.number_of_periods IS NULL
566: THEN
567: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'number_of_periods');
568: l_return_status := OKC_API.G_RET_STS_ERROR;
569: ELSIF p_sfev_rec.level_line_number = OKC_API.G_MISS_NUM OR
570: p_sfev_rec.level_line_number IS NULL
571: THEN
564: ELSIF p_sfev_rec.number_of_periods = OKC_API.G_MISS_NUM OR
565: p_sfev_rec.number_of_periods IS NULL
566: THEN
567: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'number_of_periods');
568: l_return_status := OKC_API.G_RET_STS_ERROR;
569: ELSIF p_sfev_rec.level_line_number = OKC_API.G_MISS_NUM OR
570: p_sfev_rec.level_line_number IS NULL
571: THEN
572: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'level_line_number');
565: p_sfev_rec.number_of_periods IS NULL
566: THEN
567: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'number_of_periods');
568: l_return_status := OKC_API.G_RET_STS_ERROR;
569: ELSIF p_sfev_rec.level_line_number = OKC_API.G_MISS_NUM OR
570: p_sfev_rec.level_line_number IS NULL
571: THEN
572: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'level_line_number');
573: l_return_status := OKC_API.G_RET_STS_ERROR;
568: l_return_status := OKC_API.G_RET_STS_ERROR;
569: ELSIF p_sfev_rec.level_line_number = OKC_API.G_MISS_NUM OR
570: p_sfev_rec.level_line_number IS NULL
571: THEN
572: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'level_line_number');
573: l_return_status := OKC_API.G_RET_STS_ERROR;
574: ELSIF p_sfev_rec.object_version_number = OKC_API.G_MISS_NUM OR
575: p_sfev_rec.object_version_number IS NULL
576: THEN
569: ELSIF p_sfev_rec.level_line_number = OKC_API.G_MISS_NUM OR
570: p_sfev_rec.level_line_number IS NULL
571: THEN
572: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'level_line_number');
573: l_return_status := OKC_API.G_RET_STS_ERROR;
574: ELSIF p_sfev_rec.object_version_number = OKC_API.G_MISS_NUM OR
575: p_sfev_rec.object_version_number IS NULL
576: THEN
577: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
570: p_sfev_rec.level_line_number IS NULL
571: THEN
572: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'level_line_number');
573: l_return_status := OKC_API.G_RET_STS_ERROR;
574: ELSIF p_sfev_rec.object_version_number = OKC_API.G_MISS_NUM OR
575: p_sfev_rec.object_version_number IS NULL
576: THEN
577: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
578: l_return_status := OKC_API.G_RET_STS_ERROR;
573: l_return_status := OKC_API.G_RET_STS_ERROR;
574: ELSIF p_sfev_rec.object_version_number = OKC_API.G_MISS_NUM OR
575: p_sfev_rec.object_version_number IS NULL
576: THEN
577: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
578: l_return_status := OKC_API.G_RET_STS_ERROR;
579: END IF;
580: RETURN(l_return_status);
581: END Validate_Attributes;
574: ELSIF p_sfev_rec.object_version_number = OKC_API.G_MISS_NUM OR
575: p_sfev_rec.object_version_number IS NULL
576: THEN
577: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
578: l_return_status := OKC_API.G_RET_STS_ERROR;
579: END IF;
580: RETURN(l_return_status);
581: END Validate_Attributes;
582:
607: ) IS
608:
609: BEGIN
610: -- initialize return status
611: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
612:
613: IF p_sfev_rec.id = Okc_Api.G_MISS_NUM OR
614: p_sfev_rec.id IS NULL
615: THEN
609: BEGIN
610: -- initialize return status
611: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
612:
613: IF p_sfev_rec.id = Okc_Api.G_MISS_NUM OR
614: p_sfev_rec.id IS NULL
615: THEN
616: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
617: x_return_status := Okc_Api.G_RET_STS_ERROR;
612:
613: IF p_sfev_rec.id = Okc_Api.G_MISS_NUM OR
614: p_sfev_rec.id IS NULL
615: THEN
616: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
617: x_return_status := Okc_Api.G_RET_STS_ERROR;
618: RAISE G_EXCEPTION_HALT_VALIDATION;
619: END IF;
620:
613: IF p_sfev_rec.id = Okc_Api.G_MISS_NUM OR
614: p_sfev_rec.id IS NULL
615: THEN
616: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
617: x_return_status := Okc_Api.G_RET_STS_ERROR;
618: RAISE G_EXCEPTION_HALT_VALIDATION;
619: END IF;
620:
621: EXCEPTION
625: NULL;
626:
627: WHEN OTHERS THEN
628: -- store SQL error message on message stack for caller
629: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME
630: ,p_msg_name => G_OKL_UNEXPECTED_ERROR
631: ,p_token1 => G_OKL_SQLCODE_TOKEN
632: ,p_token1_value => SQLCODE
633: ,p_token2 => G_OKL_SQLERRM_TOKEN
633: ,p_token2 => G_OKL_SQLERRM_TOKEN
634: ,p_token2_value => SQLERRM);
635:
636: -- notify caller of an UNEXPECTED error
637: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
638:
639: END Validate_Id;
640:
641: ---------------------------------------------------------------------------
657:
658: BEGIN
659:
660: -- initialize return status
661: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
662:
663: IF p_sfev_rec.object_version_number = Okc_Api.G_MISS_NUM OR
664: p_sfev_rec.object_version_number IS NULL
665: THEN
659:
660: -- initialize return status
661: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
662:
663: IF p_sfev_rec.object_version_number = Okc_Api.G_MISS_NUM OR
664: p_sfev_rec.object_version_number IS NULL
665: THEN
666: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
667: x_return_status := Okc_Api.G_RET_STS_ERROR;
662:
663: IF p_sfev_rec.object_version_number = Okc_Api.G_MISS_NUM OR
664: p_sfev_rec.object_version_number IS NULL
665: THEN
666: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
667: x_return_status := Okc_Api.G_RET_STS_ERROR;
668: RAISE G_EXCEPTION_HALT_VALIDATION;
669: END IF;
670:
663: IF p_sfev_rec.object_version_number = Okc_Api.G_MISS_NUM OR
664: p_sfev_rec.object_version_number IS NULL
665: THEN
666: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
667: x_return_status := Okc_Api.G_RET_STS_ERROR;
668: RAISE G_EXCEPTION_HALT_VALIDATION;
669: END IF;
670:
671: EXCEPTION
675: NULL;
676:
677: WHEN OTHERS THEN
678: -- store SQL error message on message stack for caller
679: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME
680: ,p_msg_name => G_OKL_UNEXPECTED_ERROR
681: ,p_token1 => G_OKL_SQLCODE_TOKEN
682: ,p_token1_value => SQLCODE
683: ,p_token2 => G_OKL_SQLERRM_TOKEN
684:
685: ,p_token2_value => SQLERRM);
686:
687: -- notify caller of an UNEXPECTED error
688: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
689:
690: END Validate_Object_Version_Number;
691:
692: ---------------------------------------------------------------------------
708: l_found VARCHAR2(1);
709: BEGIN
710:
711: -- initialize return status
712: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
713:
714: IF p_sfev_rec.Sfe_Type = Okc_Api.G_MISS_CHAR OR
715: p_sfev_rec.Sfe_Type IS NULL
716: THEN
710:
711: -- initialize return status
712: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
713:
714: IF p_sfev_rec.Sfe_Type = Okc_Api.G_MISS_CHAR OR
715: p_sfev_rec.Sfe_Type IS NULL
716: THEN
717: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Sfe_Type');
718: x_return_status := Okc_Api.G_RET_STS_ERROR;
713:
714: IF p_sfev_rec.Sfe_Type = Okc_Api.G_MISS_CHAR OR
715: p_sfev_rec.Sfe_Type IS NULL
716: THEN
717: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Sfe_Type');
718: x_return_status := Okc_Api.G_RET_STS_ERROR;
719: RAISE G_EXCEPTION_HALT_VALIDATION;
720: ELSE
721: --Check if Sfe_Type exists in the fnd_common_lookups or not
714: IF p_sfev_rec.Sfe_Type = Okc_Api.G_MISS_CHAR OR
715: p_sfev_rec.Sfe_Type IS NULL
716: THEN
717: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Sfe_Type');
718: x_return_status := Okc_Api.G_RET_STS_ERROR;
719: RAISE G_EXCEPTION_HALT_VALIDATION;
720: ELSE
721: --Check if Sfe_Type exists in the fnd_common_lookups or not
722: l_found := okl_accounting_util.validate_lookup_code(p_lookup_type => 'OKL_SFE_TYPE',
723: p_lookup_code => p_sfev_rec.Sfe_Type);
724:
725:
726: IF (l_found <> OKL_API.G_TRUE ) THEN
727: OKC_API.set_message(G_OKC_APP, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Sfe_Type');
728: x_return_status := Okc_Api.G_RET_STS_ERROR;
729: -- raise the exception as there's no matching foreign key value
730: RAISE G_EXCEPTION_HALT_VALIDATION;
731: END IF;
724:
725:
726: IF (l_found <> OKL_API.G_TRUE ) THEN
727: OKC_API.set_message(G_OKC_APP, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Sfe_Type');
728: x_return_status := Okc_Api.G_RET_STS_ERROR;
729: -- raise the exception as there's no matching foreign key value
730: RAISE G_EXCEPTION_HALT_VALIDATION;
731: END IF;
732:
740: NULL;
741:
742: WHEN OTHERS THEN
743: -- store SQL error message on message stack for caller
744: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME
745: ,p_msg_name => G_OKL_UNEXPECTED_ERROR
746: ,p_token1 => G_OKL_SQLCODE_TOKEN
747: ,p_token1_value => SQLCODE
748: ,p_token2 => G_OKL_SQLERRM_TOKEN
748: ,p_token2 => G_OKL_SQLERRM_TOKEN
749: ,p_token2_value => SQLERRM);
750:
751: -- notify caller of an UNEXPECTED error
752: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
753:
754: END Validate_Sfe_Type;
755:
756:
773:
774: BEGIN
775:
776: -- initialize return status
777: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
778: --dbms_output.put_line('Validate_Income_Or_Expense value '||p_sfev_rec.Income_Or_Expense);
779: IF p_sfev_rec.Income_Or_Expense = Okc_Api.G_MISS_CHAR OR
780: p_sfev_rec.Income_Or_Expense IS NULL
781: THEN
775:
776: -- initialize return status
777: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
778: --dbms_output.put_line('Validate_Income_Or_Expense value '||p_sfev_rec.Income_Or_Expense);
779: IF p_sfev_rec.Income_Or_Expense = Okc_Api.G_MISS_CHAR OR
780: p_sfev_rec.Income_Or_Expense IS NULL
781: THEN
782: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Income_Or_Expense');
783: x_return_status := Okc_Api.G_RET_STS_ERROR;
778: --dbms_output.put_line('Validate_Income_Or_Expense value '||p_sfev_rec.Income_Or_Expense);
779: IF p_sfev_rec.Income_Or_Expense = Okc_Api.G_MISS_CHAR OR
780: p_sfev_rec.Income_Or_Expense IS NULL
781: THEN
782: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Income_Or_Expense');
783: x_return_status := Okc_Api.G_RET_STS_ERROR;
784:
785: RAISE G_EXCEPTION_HALT_VALIDATION;
786: END IF;
779: IF p_sfev_rec.Income_Or_Expense = Okc_Api.G_MISS_CHAR OR
780: p_sfev_rec.Income_Or_Expense IS NULL
781: THEN
782: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Income_Or_Expense');
783: x_return_status := Okc_Api.G_RET_STS_ERROR;
784:
785: RAISE G_EXCEPTION_HALT_VALIDATION;
786: END IF;
787:
792: NULL;
793:
794: WHEN OTHERS THEN
795: -- store SQL error message on message stack for caller
796: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME
797: ,p_msg_name => G_OKL_UNEXPECTED_ERROR
798: ,p_token1 => G_OKL_SQLCODE_TOKEN
799: ,p_token1_value => SQLCODE
800: ,p_token2 => G_OKL_SQLERRM_TOKEN
800: ,p_token2 => G_OKL_SQLERRM_TOKEN
801: ,p_token2_value => SQLERRM);
802:
803: -- notify caller of an UNEXPECTED error
804: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
805:
806: END Validate_Income_Or_Expense;
807:
808:
825:
826: BEGIN
827:
828: -- initialize return status
829: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
830:
831: IF p_sfev_rec.Fee_Index_Number = Okc_Api.G_MISS_NUM OR
832: p_sfev_rec.Fee_Index_Number IS NULL
833: THEN
827:
828: -- initialize return status
829: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
830:
831: IF p_sfev_rec.Fee_Index_Number = Okc_Api.G_MISS_NUM OR
832: p_sfev_rec.Fee_Index_Number IS NULL
833: THEN
834: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Fee_Index_Number');
835: x_return_status := Okc_Api.G_RET_STS_ERROR;
830:
831: IF p_sfev_rec.Fee_Index_Number = Okc_Api.G_MISS_NUM OR
832: p_sfev_rec.Fee_Index_Number IS NULL
833: THEN
834: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Fee_Index_Number');
835: x_return_status := Okc_Api.G_RET_STS_ERROR;
836: RAISE G_EXCEPTION_HALT_VALIDATION;
837: END IF;
838:
831: IF p_sfev_rec.Fee_Index_Number = Okc_Api.G_MISS_NUM OR
832: p_sfev_rec.Fee_Index_Number IS NULL
833: THEN
834: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Fee_Index_Number');
835: x_return_status := Okc_Api.G_RET_STS_ERROR;
836: RAISE G_EXCEPTION_HALT_VALIDATION;
837: END IF;
838:
839: EXCEPTION
843: NULL;
844:
845: WHEN OTHERS THEN
846: -- store SQL error message on message stack for caller
847: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME
848: ,p_msg_name => G_OKL_UNEXPECTED_ERROR
849: ,p_token1 => G_OKL_SQLCODE_TOKEN
850: ,p_token1_value => SQLCODE
851: ,p_token2 => G_OKL_SQLERRM_TOKEN
851: ,p_token2 => G_OKL_SQLERRM_TOKEN
852: ,p_token2_value => SQLERRM);
853:
854: -- notify caller of an UNEXPECTED error
855: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
856:
857: END Validate_Fee_Index_Number;
858:
859:
877:
878: BEGIN
879:
880: -- initialize return status
881: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
882:
883: IF p_sfev_rec.Level_Index_Number = Okc_Api.G_MISS_NUM OR
884:
885: p_sfev_rec.Level_Index_Number IS NULL
879:
880: -- initialize return status
881: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
882:
883: IF p_sfev_rec.Level_Index_Number = Okc_Api.G_MISS_NUM OR
884:
885: p_sfev_rec.Level_Index_Number IS NULL
886: THEN
887: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Level_Index_Number');
883: IF p_sfev_rec.Level_Index_Number = Okc_Api.G_MISS_NUM OR
884:
885: p_sfev_rec.Level_Index_Number IS NULL
886: THEN
887: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Level_Index_Number');
888: x_return_status := Okc_Api.G_RET_STS_ERROR;
889: RAISE G_EXCEPTION_HALT_VALIDATION;
890: END IF;
891:
884:
885: p_sfev_rec.Level_Index_Number IS NULL
886: THEN
887: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Level_Index_Number');
888: x_return_status := Okc_Api.G_RET_STS_ERROR;
889: RAISE G_EXCEPTION_HALT_VALIDATION;
890: END IF;
891:
892: EXCEPTION
896: NULL;
897:
898: WHEN OTHERS THEN
899: -- store SQL error message on message stack for caller
900: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME
901: ,p_msg_name => G_OKL_UNEXPECTED_ERROR
902: ,p_token1 => G_OKL_SQLCODE_TOKEN
903: ,p_token1_value => SQLCODE
904: ,p_token2 => G_OKL_SQLERRM_TOKEN
904: ,p_token2 => G_OKL_SQLERRM_TOKEN
905: ,p_token2_value => SQLERRM);
906:
907: -- notify caller of an UNEXPECTED error
908: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
909:
910: END Validate_Level_Index_Number;
911:
912: ---------------------------------------------------------------------------
928:
929: BEGIN
930:
931: -- initialize return status
932: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
933: --dbms_output.put_line('Validate_Advance_Or_Arrears value '||p_sfev_rec.Advance_Or_Arrears);
934: IF p_sfev_rec.Advance_Or_Arrears = Okc_Api.G_MISS_CHAR OR
935: p_sfev_rec.Advance_Or_Arrears IS NULL
936: THEN
930:
931: -- initialize return status
932: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
933: --dbms_output.put_line('Validate_Advance_Or_Arrears value '||p_sfev_rec.Advance_Or_Arrears);
934: IF p_sfev_rec.Advance_Or_Arrears = Okc_Api.G_MISS_CHAR OR
935: p_sfev_rec.Advance_Or_Arrears IS NULL
936: THEN
937: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Advance_Or_Arrears');
938: x_return_status := Okc_Api.G_RET_STS_ERROR;
933: --dbms_output.put_line('Validate_Advance_Or_Arrears value '||p_sfev_rec.Advance_Or_Arrears);
934: IF p_sfev_rec.Advance_Or_Arrears = Okc_Api.G_MISS_CHAR OR
935: p_sfev_rec.Advance_Or_Arrears IS NULL
936: THEN
937: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Advance_Or_Arrears');
938: x_return_status := Okc_Api.G_RET_STS_ERROR;
939: RAISE G_EXCEPTION_HALT_VALIDATION;
940: END IF;
941:
934: IF p_sfev_rec.Advance_Or_Arrears = Okc_Api.G_MISS_CHAR OR
935: p_sfev_rec.Advance_Or_Arrears IS NULL
936: THEN
937: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Advance_Or_Arrears');
938: x_return_status := Okc_Api.G_RET_STS_ERROR;
939: RAISE G_EXCEPTION_HALT_VALIDATION;
940: END IF;
941:
942: EXCEPTION
946: NULL;
947:
948: WHEN OTHERS THEN
949: -- store SQL error message on message stack for caller
950: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME
951: ,p_msg_name => G_OKL_UNEXPECTED_ERROR
952: ,p_token1 => G_OKL_SQLCODE_TOKEN
953: ,p_token1_value => SQLCODE
954: ,p_token2 => G_OKL_SQLERRM_TOKEN
954: ,p_token2 => G_OKL_SQLERRM_TOKEN
955: ,p_token2_value => SQLERRM);
956:
957: -- notify caller of an UNEXPECTED error
958: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
959:
960: END Validate_Advance_Or_Arrears;
961:
962: /*
983: BEGIN
984:
985:
986: -- initialize return status
987: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
988:
989: IF p_sfev_rec.Level_Type = Okc_Api.G_MISS_CHAR OR
990: p_sfev_rec.Level_type IS NULL
991: THEN
985:
986: -- initialize return status
987: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
988:
989: IF p_sfev_rec.Level_Type = Okc_Api.G_MISS_CHAR OR
990: p_sfev_rec.Level_type IS NULL
991: THEN
992: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Level_type');
993: x_return_status := Okc_Api.G_RET_STS_ERROR;
988:
989: IF p_sfev_rec.Level_Type = Okc_Api.G_MISS_CHAR OR
990: p_sfev_rec.Level_type IS NULL
991: THEN
992: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Level_type');
993: x_return_status := Okc_Api.G_RET_STS_ERROR;
994: RAISE G_EXCEPTION_HALT_VALIDATION;
995: /*
996: -- UnComment this Code if an FND entity is created for this
989: IF p_sfev_rec.Level_Type = Okc_Api.G_MISS_CHAR OR
990: p_sfev_rec.Level_type IS NULL
991: THEN
992: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Level_type');
993: x_return_status := Okc_Api.G_RET_STS_ERROR;
994: RAISE G_EXCEPTION_HALT_VALIDATION;
995: /*
996: -- UnComment this Code if an FND entity is created for this
997: ELSE
1000: p_lookup_code => p_sfev_rec.Level_type);
1001:
1002:
1003: IF (l_found <> OKL_API.G_TRUE ) THEN
1004: OKC_API.set_message(G_OKC_APP, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Level_type');
1005: x_return_status := Okc_Api.G_RET_STS_ERROR;
1006: -- raise the exception as there's no matching foreign key value
1007: RAISE G_EXCEPTION_HALT_VALIDATION;
1008: END IF;
1001:
1002:
1003: IF (l_found <> OKL_API.G_TRUE ) THEN
1004: OKC_API.set_message(G_OKC_APP, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Level_type');
1005: x_return_status := Okc_Api.G_RET_STS_ERROR;
1006: -- raise the exception as there's no matching foreign key value
1007: RAISE G_EXCEPTION_HALT_VALIDATION;
1008: END IF;
1009: *
1016: NULL;
1017:
1018: WHEN OTHERS THEN
1019: -- store SQL error message on message stack for caller
1020: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME
1021: ,p_msg_name => G_OKL_UNEXPECTED_ERROR
1022: ,p_token1 => G_OKL_SQLCODE_TOKEN
1023: ,p_token1_value => SQLCODE
1024: ,p_token2 => G_OKL_SQLERRM_TOKEN
1024: ,p_token2 => G_OKL_SQLERRM_TOKEN
1025: ,p_token2_value => SQLERRM);
1026:
1027: -- notify caller of an UNEXPECTED error
1028: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1029:
1030: END Validate_Level_type;
1031:
1032: -- end,mvasudev -- 02/21/2002
1060:
1061: BEGIN
1062:
1063: -- initialize return status
1064: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1065:
1066: IF p_sfev_rec.sif_id = Okc_Api.G_MISS_NUM OR
1067: p_sfev_rec.sif_id IS NULL
1068: THEN
1062:
1063: -- initialize return status
1064: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1065:
1066: IF p_sfev_rec.sif_id = Okc_Api.G_MISS_NUM OR
1067: p_sfev_rec.sif_id IS NULL
1068: THEN
1069: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Sif_id');
1070: x_return_status := Okc_Api.G_RET_STS_ERROR;
1065:
1066: IF p_sfev_rec.sif_id = Okc_Api.G_MISS_NUM OR
1067: p_sfev_rec.sif_id IS NULL
1068: THEN
1069: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Sif_id');
1070: x_return_status := Okc_Api.G_RET_STS_ERROR;
1071: RAISE G_EXCEPTION_HALT_VALIDATION;
1072: END IF;
1073:
1066: IF p_sfev_rec.sif_id = Okc_Api.G_MISS_NUM OR
1067: p_sfev_rec.sif_id IS NULL
1068: THEN
1069: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Sif_id');
1070: x_return_status := Okc_Api.G_RET_STS_ERROR;
1071: RAISE G_EXCEPTION_HALT_VALIDATION;
1072: END IF;
1073:
1074: OPEN okl_sifv_pk_csr(p_sfev_rec.Sif_id);
1076: l_row_not_found := okl_sifv_pk_csr%NOTFOUND;
1077: CLOSE okl_sifv_pk_csr;
1078:
1079: IF l_row_not_found THEN
1080: Okc_Api.set_message(G_APP_NAME,G_OKL_UNQS);
1081: x_return_status := Okc_Api.G_RET_STS_ERROR;
1082: END IF;
1083:
1084:
1077: CLOSE okl_sifv_pk_csr;
1078:
1079: IF l_row_not_found THEN
1080: Okc_Api.set_message(G_APP_NAME,G_OKL_UNQS);
1081: x_return_status := Okc_Api.G_RET_STS_ERROR;
1082: END IF;
1083:
1084:
1085: EXCEPTION
1089: NULL;
1090:
1091: WHEN OTHERS THEN
1092: -- store SQL error message on message stack for caller
1093: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME
1094: ,p_msg_name => G_OKL_UNEXPECTED_ERROR
1095: ,p_token1 => G_OKL_SQLCODE_TOKEN
1096: ,p_token1_value => SQLCODE
1097: ,p_token2 => G_OKL_SQLERRM_TOKEN
1097: ,p_token2 => G_OKL_SQLERRM_TOKEN
1098: ,p_token2_value => SQLERRM);
1099:
1100: -- notify caller of an UNEXPECTED error
1101: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1102:
1103: -- verify that the cursor was closed
1104: IF okl_sifv_pk_csr%ISOPEN THEN
1105: CLOSE okl_sifv_pk_csr;
1135:
1136: BEGIN
1137:
1138: -- initialize return status
1139: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1140:
1141: IF p_sfev_rec.kle_id <> Okc_Api.G_MISS_NUM AND
1142: p_sfev_rec.kle_id IS NOT NULL
1143: THEN
1137:
1138: -- initialize return status
1139: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1140:
1141: IF p_sfev_rec.kle_id <> Okc_Api.G_MISS_NUM AND
1142: p_sfev_rec.kle_id IS NOT NULL
1143: THEN
1144: OPEN okl_klev_pk_csr(p_sfev_rec.kle_id);
1145: FETCH okl_klev_pk_csr INTO l_dummy;
1146: l_row_not_found := okl_klev_pk_csr%NOTFOUND;
1147: CLOSE okl_klev_pk_csr;
1148:
1149: IF l_row_not_found THEN
1150: Okc_Api.set_message(G_OKC_APP,G_INVALID_VALUE,G_COL_NAME_TOKEN,'Kle_id');
1151: x_return_status := Okc_Api.G_RET_STS_ERROR;
1152: END IF;
1153: END IF;
1154:
1147: CLOSE okl_klev_pk_csr;
1148:
1149: IF l_row_not_found THEN
1150: Okc_Api.set_message(G_OKC_APP,G_INVALID_VALUE,G_COL_NAME_TOKEN,'Kle_id');
1151: x_return_status := Okc_Api.G_RET_STS_ERROR;
1152: END IF;
1153: END IF;
1154:
1155: EXCEPTION
1159: NULL;
1160:
1161: WHEN OTHERS THEN
1162: -- store SQL error message on message stack for caller
1163: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME
1164: ,p_msg_name => G_OKL_UNEXPECTED_ERROR
1165: ,p_token1 => G_OKL_SQLCODE_TOKEN
1166: ,p_token1_value => SQLCODE
1167: ,p_token2 => G_OKL_SQLERRM_TOKEN
1167: ,p_token2 => G_OKL_SQLERRM_TOKEN
1168: ,p_token2_value => SQLERRM);
1169:
1170: -- notify caller of an UNEXPECTED error
1171: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1172:
1173: -- verify that the cursor was closed
1174: IF okl_klev_pk_csr%ISOPEN THEN
1175: CLOSE okl_klev_pk_csr;
1207:
1208: BEGIN
1209:
1210: -- initialize return status
1211: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1212:
1213: IF p_sfev_rec.Sil_id <> Okc_Api.G_MISS_NUM AND
1214: p_sfev_rec.Sil_id IS NOT NULL
1215: THEN
1209:
1210: -- initialize return status
1211: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1212:
1213: IF p_sfev_rec.Sil_id <> Okc_Api.G_MISS_NUM AND
1214: p_sfev_rec.Sil_id IS NOT NULL
1215: THEN
1216: OPEN okl_sfev_pk_csr(p_sfev_rec.Sil_id);
1217: FETCH okl_sfev_pk_csr INTO l_dummy;
1217: FETCH okl_sfev_pk_csr INTO l_dummy;
1218: l_row_not_found := okl_sfev_pk_csr%NOTFOUND;
1219: CLOSE okl_sfev_pk_csr;
1220: IF l_row_not_found THEN
1221: Okc_Api.set_message(G_OKC_APP,G_INVALID_VALUE,G_COL_NAME_TOKEN,'Sil_id');
1222: x_return_status := Okc_Api.G_RET_STS_ERROR;
1223: END IF;
1224: END IF;
1225:
1218: l_row_not_found := okl_sfev_pk_csr%NOTFOUND;
1219: CLOSE okl_sfev_pk_csr;
1220: IF l_row_not_found THEN
1221: Okc_Api.set_message(G_OKC_APP,G_INVALID_VALUE,G_COL_NAME_TOKEN,'Sil_id');
1222: x_return_status := Okc_Api.G_RET_STS_ERROR;
1223: END IF;
1224: END IF;
1225:
1226: EXCEPTION
1230: NULL;
1231:
1232: WHEN OTHERS THEN
1233: -- store SQL error message on message stack for caller
1234: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME
1235: ,p_msg_name => G_OKL_UNEXPECTED_ERROR
1236: ,p_token1 => G_OKL_SQLCODE_TOKEN
1237: ,p_token1_value => SQLCODE
1238: ,p_token2 => G_OKL_SQLERRM_TOKEN
1238: ,p_token2 => G_OKL_SQLERRM_TOKEN
1239: ,p_token2_value => SQLERRM);
1240:
1241: -- notify caller of an UNEXPECTED error
1242: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1243:
1244: -- verify that the cursor was closed
1245: IF okl_sfev_pk_csr%ISOPEN THEN
1246: CLOSE okl_sfev_pk_csr;
1267:
1268: BEGIN
1269:
1270: -- initialize return status
1271: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1272:
1273: IF p_sfev_rec.Date_Start = Okc_Api.G_MISS_DATE OR
1274: p_sfev_rec.Date_Start IS NULL
1275: THEN
1269:
1270: -- initialize return status
1271: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1272:
1273: IF p_sfev_rec.Date_Start = Okc_Api.G_MISS_DATE OR
1274: p_sfev_rec.Date_Start IS NULL
1275: THEN
1276: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Date_Start');
1277: x_return_status := Okc_Api.G_RET_STS_ERROR;
1272:
1273: IF p_sfev_rec.Date_Start = Okc_Api.G_MISS_DATE OR
1274: p_sfev_rec.Date_Start IS NULL
1275: THEN
1276: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Date_Start');
1277: x_return_status := Okc_Api.G_RET_STS_ERROR;
1278: RAISE G_EXCEPTION_HALT_VALIDATION;
1279: END IF;
1280:
1273: IF p_sfev_rec.Date_Start = Okc_Api.G_MISS_DATE OR
1274: p_sfev_rec.Date_Start IS NULL
1275: THEN
1276: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Date_Start');
1277: x_return_status := Okc_Api.G_RET_STS_ERROR;
1278: RAISE G_EXCEPTION_HALT_VALIDATION;
1279: END IF;
1280:
1281: EXCEPTION
1286: NULL;
1287:
1288: WHEN OTHERS THEN
1289: -- store SQL error message on message stack for caller
1290: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME
1291: ,p_msg_name => G_OKL_UNEXPECTED_ERROR
1292: ,p_token1 => G_OKL_SQLCODE_TOKEN
1293: ,p_token1_value => SQLCODE
1294: ,p_token2 => G_OKL_SQLERRM_TOKEN
1294: ,p_token2 => G_OKL_SQLERRM_TOKEN
1295: ,p_token2_value => SQLERRM);
1296:
1297: -- notify caller of an UNEXPECTED error
1298: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1299:
1300: END Validate_Date_Start;
1301:
1302: ---------------------------------------------------------------------------
1318:
1319: BEGIN
1320:
1321: -- initialize return status
1322: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1323:
1324: IF p_sfev_rec.Date_Paid = Okc_Api.G_MISS_DATE OR
1325: p_sfev_rec.Date_Paid IS NULL
1326: THEN
1320:
1321: -- initialize return status
1322: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1323:
1324: IF p_sfev_rec.Date_Paid = Okc_Api.G_MISS_DATE OR
1325: p_sfev_rec.Date_Paid IS NULL
1326: THEN
1327: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Date_Paid');
1328: x_return_status := Okc_Api.G_RET_STS_ERROR;
1323:
1324: IF p_sfev_rec.Date_Paid = Okc_Api.G_MISS_DATE OR
1325: p_sfev_rec.Date_Paid IS NULL
1326: THEN
1327: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Date_Paid');
1328: x_return_status := Okc_Api.G_RET_STS_ERROR;
1329: RAISE G_EXCEPTION_HALT_VALIDATION;
1330: END IF;
1331:
1324: IF p_sfev_rec.Date_Paid = Okc_Api.G_MISS_DATE OR
1325: p_sfev_rec.Date_Paid IS NULL
1326: THEN
1327: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Date_Paid');
1328: x_return_status := Okc_Api.G_RET_STS_ERROR;
1329: RAISE G_EXCEPTION_HALT_VALIDATION;
1330: END IF;
1331:
1332: EXCEPTION
1336: NULL;
1337:
1338: WHEN OTHERS THEN
1339: -- store SQL error message on message stack for caller
1340: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME
1341: ,p_msg_name => G_OKL_UNEXPECTED_ERROR
1342: ,p_token1 => G_OKL_SQLCODE_TOKEN
1343: ,p_token1_value => SQLCODE
1344: ,p_token2 => G_OKL_SQLERRM_TOKEN
1344: ,p_token2 => G_OKL_SQLERRM_TOKEN
1345: ,p_token2_value => SQLERRM);
1346:
1347: -- notify caller of an UNEXPECTED error
1348: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1349:
1350: END Validate_Date_Paid;
1351:
1352: ---------------------------------------------------------------------------
1368:
1369: BEGIN
1370:
1371: -- initialize return status
1372: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1373:
1374: IF p_sfev_rec.Rate IS NULL AND (p_sfev_rec.Amount = Okc_Api.G_MISS_NUM OR
1375: p_sfev_rec.Amount IS NULL)
1376: THEN
1370:
1371: -- initialize return status
1372: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1373:
1374: IF p_sfev_rec.Rate IS NULL AND (p_sfev_rec.Amount = Okc_Api.G_MISS_NUM OR
1375: p_sfev_rec.Amount IS NULL)
1376: THEN
1377: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Amount');
1378: x_return_status := Okc_Api.G_RET_STS_ERROR;
1373:
1374: IF p_sfev_rec.Rate IS NULL AND (p_sfev_rec.Amount = Okc_Api.G_MISS_NUM OR
1375: p_sfev_rec.Amount IS NULL)
1376: THEN
1377: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Amount');
1378: x_return_status := Okc_Api.G_RET_STS_ERROR;
1379: RAISE G_EXCEPTION_HALT_VALIDATION;
1380: END IF;
1381:
1374: IF p_sfev_rec.Rate IS NULL AND (p_sfev_rec.Amount = Okc_Api.G_MISS_NUM OR
1375: p_sfev_rec.Amount IS NULL)
1376: THEN
1377: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Amount');
1378: x_return_status := Okc_Api.G_RET_STS_ERROR;
1379: RAISE G_EXCEPTION_HALT_VALIDATION;
1380: END IF;
1381:
1382: EXCEPTION
1387: NULL;
1388:
1389: WHEN OTHERS THEN
1390: -- store SQL error message on message stack for caller
1391: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME
1392: ,p_msg_name => G_OKL_UNEXPECTED_ERROR
1393: ,p_token1 => G_OKL_SQLCODE_TOKEN
1394: ,p_token1_value => SQLCODE
1395: ,p_token2 => G_OKL_SQLERRM_TOKEN
1395: ,p_token2 => G_OKL_SQLERRM_TOKEN
1396: ,p_token2_value => SQLERRM);
1397:
1398: -- notify caller of an UNEXPECTED error
1399: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1400:
1401: END Validate_Amount;
1402:
1403:
1420:
1421: BEGIN
1422:
1423: -- initialize return status
1424: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1425:
1426: IF p_sfev_rec.Period = Okc_Api.G_MISS_CHAR OR
1427: p_sfev_rec.Period IS NULL
1428: THEN
1422:
1423: -- initialize return status
1424: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1425:
1426: IF p_sfev_rec.Period = Okc_Api.G_MISS_CHAR OR
1427: p_sfev_rec.Period IS NULL
1428: THEN
1429: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Period');
1430: x_return_status := Okc_Api.G_RET_STS_ERROR;
1425:
1426: IF p_sfev_rec.Period = Okc_Api.G_MISS_CHAR OR
1427: p_sfev_rec.Period IS NULL
1428: THEN
1429: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Period');
1430: x_return_status := Okc_Api.G_RET_STS_ERROR;
1431: RAISE G_EXCEPTION_HALT_VALIDATION;
1432: END IF;
1433:
1426: IF p_sfev_rec.Period = Okc_Api.G_MISS_CHAR OR
1427: p_sfev_rec.Period IS NULL
1428: THEN
1429: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Period');
1430: x_return_status := Okc_Api.G_RET_STS_ERROR;
1431: RAISE G_EXCEPTION_HALT_VALIDATION;
1432: END IF;
1433:
1434: EXCEPTION
1438: NULL;
1439:
1440: WHEN OTHERS THEN
1441: -- store SQL error message on message stack for caller
1442: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME
1443: ,p_msg_name => G_OKL_UNEXPECTED_ERROR
1444: ,p_token1 => G_OKL_SQLCODE_TOKEN
1445: ,p_token1_value => SQLCODE
1446: ,p_token2 => G_OKL_SQLERRM_TOKEN
1446: ,p_token2 => G_OKL_SQLERRM_TOKEN
1447: ,p_token2_value => SQLERRM);
1448:
1449: -- notify caller of an UNEXPECTED error
1450: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1451:
1452: END Validate_Period;
1453:
1454: ---------------------------------------------------------------------------
1470:
1471: BEGIN
1472:
1473: -- initialize return status
1474: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1475:
1476: IF p_sfev_rec.Number_Of_Periods = Okc_Api.G_MISS_NUM OR
1477: p_sfev_rec.Number_Of_Periods IS NULL
1478: THEN
1472:
1473: -- initialize return status
1474: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1475:
1476: IF p_sfev_rec.Number_Of_Periods = Okc_Api.G_MISS_NUM OR
1477: p_sfev_rec.Number_Of_Periods IS NULL
1478: THEN
1479: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Number_Of_Periods');
1480: x_return_status := Okc_Api.G_RET_STS_ERROR;
1475:
1476: IF p_sfev_rec.Number_Of_Periods = Okc_Api.G_MISS_NUM OR
1477: p_sfev_rec.Number_Of_Periods IS NULL
1478: THEN
1479: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Number_Of_Periods');
1480: x_return_status := Okc_Api.G_RET_STS_ERROR;
1481: RAISE G_EXCEPTION_HALT_VALIDATION;
1482: END IF;
1483:
1476: IF p_sfev_rec.Number_Of_Periods = Okc_Api.G_MISS_NUM OR
1477: p_sfev_rec.Number_Of_Periods IS NULL
1478: THEN
1479: Okc_Api.set_message(G_OKC_APP, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Number_Of_Periods');
1480: x_return_status := Okc_Api.G_RET_STS_ERROR;
1481: RAISE G_EXCEPTION_HALT_VALIDATION;
1482: END IF;
1483:
1484:
1489: NULL;
1490:
1491: WHEN OTHERS THEN
1492: -- store SQL error message on message stack for caller
1493: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME
1494: ,p_msg_name => G_OKL_UNEXPECTED_ERROR
1495: ,p_token1 => G_OKL_SQLCODE_TOKEN
1496: ,p_token1_value => SQLCODE
1497: ,p_token2 => G_OKL_SQLERRM_TOKEN
1497: ,p_token2 => G_OKL_SQLERRM_TOKEN
1498: ,p_token2_value => SQLERRM);
1499:
1500: -- notify caller of an UNEXPECTED error
1501: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1502:
1503: END Validate_Number_Of_Periods;
1504:
1505: ---------------------------------------------------------------------------
1518: FUNCTION Validate_Attributes (
1519: p_sfev_rec IN sfev_rec_type
1520: ) RETURN VARCHAR2 IS
1521:
1522: x_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1523: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1524: BEGIN
1525: -- call each column-level validation
1526: -- Validate_Id
1519: p_sfev_rec IN sfev_rec_type
1520: ) RETURN VARCHAR2 IS
1521:
1522: x_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1523: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1524: BEGIN
1525: -- call each column-level validation
1526: -- Validate_Id
1527: Validate_Id(p_sfev_rec, x_return_status);
1524: BEGIN
1525: -- call each column-level validation
1526: -- Validate_Id
1527: Validate_Id(p_sfev_rec, x_return_status);
1528: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1529: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1530: -- need to exit
1531: l_return_status := x_return_status;
1532: RAISE G_EXCEPTION_HALT_VALIDATION;
1525: -- call each column-level validation
1526: -- Validate_Id
1527: Validate_Id(p_sfev_rec, x_return_status);
1528: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1529: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1530: -- need to exit
1531: l_return_status := x_return_status;
1532: RAISE G_EXCEPTION_HALT_VALIDATION;
1533: ELSE
1537: END IF;
1538:
1539: -- Validate_Object_Version_Number
1540: Validate_Object_Version_Number(p_sfev_rec, x_return_status);
1541: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1542: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1543: -- need to exit
1544: l_return_status := x_return_status;
1545: RAISE G_EXCEPTION_HALT_VALIDATION;
1538:
1539: -- Validate_Object_Version_Number
1540: Validate_Object_Version_Number(p_sfev_rec, x_return_status);
1541: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1542: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1543: -- need to exit
1544: l_return_status := x_return_status;
1545: RAISE G_EXCEPTION_HALT_VALIDATION;
1546: ELSE
1550: END IF;
1551:
1552: -- Validate_Sif_id
1553: Validate_Sif_id(p_sfev_rec, x_return_status);
1554: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1555: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1556:
1557: -- need to exit
1558: l_return_status := x_return_status;
1551:
1552: -- Validate_Sif_id
1553: Validate_Sif_id(p_sfev_rec, x_return_status);
1554: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1555: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1556:
1557: -- need to exit
1558: l_return_status := x_return_status;
1559: RAISE G_EXCEPTION_HALT_VALIDATION;
1564: END IF;
1565:
1566: -- Validate_Kle_Id
1567: Validate_Kle_Id(p_sfev_rec, x_return_status);
1568: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1569: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1570: -- need to exit
1571: l_return_status := x_return_status;
1572: RAISE G_EXCEPTION_HALT_VALIDATION;
1565:
1566: -- Validate_Kle_Id
1567: Validate_Kle_Id(p_sfev_rec, x_return_status);
1568: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1569: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1570: -- need to exit
1571: l_return_status := x_return_status;
1572: RAISE G_EXCEPTION_HALT_VALIDATION;
1573: ELSE
1577: END IF;
1578:
1579: -- Validate_Sil_Id
1580: Validate_Sil_Id(p_sfev_rec, x_return_status);
1581: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1582: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1583: -- need to exit
1584: l_return_status := x_return_status;
1585: RAISE G_EXCEPTION_HALT_VALIDATION;
1578:
1579: -- Validate_Sil_Id
1580: Validate_Sil_Id(p_sfev_rec, x_return_status);
1581: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1582: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1583: -- need to exit
1584: l_return_status := x_return_status;
1585: RAISE G_EXCEPTION_HALT_VALIDATION;
1586: ELSE
1591:
1592:
1593: -- Validate_Sfe_Type
1594: Validate_Sfe_Type(p_sfev_rec, x_return_status);
1595: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1596: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1597: -- need to exit
1598: l_return_status := x_return_status;
1599: RAISE G_EXCEPTION_HALT_VALIDATION;
1592:
1593: -- Validate_Sfe_Type
1594: Validate_Sfe_Type(p_sfev_rec, x_return_status);
1595: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1596: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1597: -- need to exit
1598: l_return_status := x_return_status;
1599: RAISE G_EXCEPTION_HALT_VALIDATION;
1600: ELSE
1604: END IF;
1605:
1606: -- Validate_Income_Or_Expense
1607: Validate_Income_Or_Expense(p_sfev_rec, x_return_status);
1608: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1609: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1610: -- need to exit
1611: l_return_status := x_return_status;
1612: RAISE G_EXCEPTION_HALT_VALIDATION;
1605:
1606: -- Validate_Income_Or_Expense
1607: Validate_Income_Or_Expense(p_sfev_rec, x_return_status);
1608: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1609: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1610: -- need to exit
1611: l_return_status := x_return_status;
1612: RAISE G_EXCEPTION_HALT_VALIDATION;
1613: ELSE
1617: END IF;
1618:
1619: -- Validate_Advance_Or_Arrears
1620: Validate_Advance_Or_Arrears(p_sfev_rec, x_return_status);
1621: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1622: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1623: -- need to exit
1624: l_return_status := x_return_status;
1625: RAISE G_EXCEPTION_HALT_VALIDATION;
1618:
1619: -- Validate_Advance_Or_Arrears
1620: Validate_Advance_Or_Arrears(p_sfev_rec, x_return_status);
1621: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1622: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1623: -- need to exit
1624: l_return_status := x_return_status;
1625: RAISE G_EXCEPTION_HALT_VALIDATION;
1626: ELSE
1630: END IF;
1631:
1632: -- Validate_Amount
1633: Validate_Amount(p_sfev_rec, x_return_status);
1634: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1635: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1636: -- need to exit
1637: l_return_status := x_return_status;
1638: RAISE G_EXCEPTION_HALT_VALIDATION;
1631:
1632: -- Validate_Amount
1633: Validate_Amount(p_sfev_rec, x_return_status);
1634: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1635: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1636: -- need to exit
1637: l_return_status := x_return_status;
1638: RAISE G_EXCEPTION_HALT_VALIDATION;
1639: ELSE
1645: IF (p_sfev_rec.Sfe_Type = G_SFE_TYPE_ONE_OFF)
1646: THEN
1647: -- Validate_Date_Paid
1648: Validate_Date_Paid(p_sfev_rec, x_return_status);
1649: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1650: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1651: -- need to exit
1652: l_return_status := x_return_status;
1653: RAISE G_EXCEPTION_HALT_VALIDATION;
1646: THEN
1647: -- Validate_Date_Paid
1648: Validate_Date_Paid(p_sfev_rec, x_return_status);
1649: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1650: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1651: -- need to exit
1652: l_return_status := x_return_status;
1653: RAISE G_EXCEPTION_HALT_VALIDATION;
1654: ELSE
1662: OR p_sfev_rec.Sfe_Type = G_SFE_TYPE_LOAN )
1663: THEN
1664: -- Validate_Date_Start
1665: Validate_Date_Start(p_sfev_rec, x_return_status);
1666: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1667: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1668: -- need to exit
1669: l_return_status := x_return_status;
1670: RAISE G_EXCEPTION_HALT_VALIDATION;
1663: THEN
1664: -- Validate_Date_Start
1665: Validate_Date_Start(p_sfev_rec, x_return_status);
1666: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1667: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1668: -- need to exit
1669: l_return_status := x_return_status;
1670: RAISE G_EXCEPTION_HALT_VALIDATION;
1671: ELSE
1676:
1677: -- Validate_Level_Index_Number
1678: Validate_Level_Index_Number(p_sfev_rec, x_return_status);
1679:
1680: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1681: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1682: -- need to exit
1683: l_return_status := x_return_status;
1684: RAISE G_EXCEPTION_HALT_VALIDATION;
1677: -- Validate_Level_Index_Number
1678: Validate_Level_Index_Number(p_sfev_rec, x_return_status);
1679:
1680: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1681: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1682: -- need to exit
1683: l_return_status := x_return_status;
1684: RAISE G_EXCEPTION_HALT_VALIDATION;
1685: ELSE
1693: -- Validation removed as LEVEL_TYPE is made NULLABLE.
1694:
1695: -- Validate_Level_Type
1696: Validate_Level_Type(p_sfev_rec, x_return_status);
1697: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1698: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1699: -- need to exit
1700: l_return_status := x_return_status;
1701: RAISE G_EXCEPTION_HALT_VALIDATION;
1694:
1695: -- Validate_Level_Type
1696: Validate_Level_Type(p_sfev_rec, x_return_status);
1697: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1698: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1699: -- need to exit
1700: l_return_status := x_return_status;
1701: RAISE G_EXCEPTION_HALT_VALIDATION;
1702: ELSE
1709:
1710: -- Validate_Period
1711: Validate_Period(p_sfev_rec, x_return_status);
1712:
1713: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1714: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1715: -- need to exit
1716: l_return_status := x_return_status;
1717: RAISE G_EXCEPTION_HALT_VALIDATION;
1710: -- Validate_Period
1711: Validate_Period(p_sfev_rec, x_return_status);
1712:
1713: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1714: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1715: -- need to exit
1716: l_return_status := x_return_status;
1717: RAISE G_EXCEPTION_HALT_VALIDATION;
1718: ELSE
1721: END IF;
1722: END IF;
1723: -- Validate_Number_Of_Periods
1724: Validate_Number_Of_Periods(p_sfev_rec, x_return_status);
1725: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1726: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1727: -- need to exit
1728: l_return_status := x_return_status;
1729: RAISE G_EXCEPTION_HALT_VALIDATION;
1722: END IF;
1723: -- Validate_Number_Of_Periods
1724: Validate_Number_Of_Periods(p_sfev_rec, x_return_status);
1725: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1726: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1727: -- need to exit
1728: l_return_status := x_return_status;
1729: RAISE G_EXCEPTION_HALT_VALIDATION;
1730: ELSE
1741: RETURN (l_return_status);
1742:
1743: WHEN OTHERS THEN
1744: -- store SQL error message on message stack for caller
1745: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
1746: p_msg_name => G_OKL_UNEXPECTED_ERROR,
1747: p_token1 => G_OKL_SQLCODE_TOKEN,
1748: p_token1_value => SQLCODE,
1749: p_token2 => G_OKL_SQLERRM_TOKEN,
1748: p_token1_value => SQLCODE,
1749: p_token2 => G_OKL_SQLERRM_TOKEN,
1750: p_token2_value => SQLERRM);
1751: -- notify caller of an UNEXPECTED error
1752: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1753:
1754: RETURN(l_return_status);
1755: END Validate_Attributes;
1756: -- END change : akjain
1785: l_row_found := okl_sfe_unique_csr%FOUND;
1786: CLOSE okl_sfe_unique_csr;
1787:
1788: IF l_row_found THEN
1789: Okc_Api.set_message(G_APP_NAME,G_OKL_UNQS);
1790: x_return_status := Okc_Api.G_RET_STS_ERROR;
1791: END IF;
1792: EXCEPTION
1793: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1786: CLOSE okl_sfe_unique_csr;
1787:
1788: IF l_row_found THEN
1789: Okc_Api.set_message(G_APP_NAME,G_OKL_UNQS);
1790: x_return_status := Okc_Api.G_RET_STS_ERROR;
1791: END IF;
1792: EXCEPTION
1793: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1794: -- no processing necessary; validation can continue
1799: END IF;
1800:
1801: WHEN OTHERS THEN
1802: -- store SQL error message on message stack for caller
1803: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME
1804: ,p_msg_name => G_OKL_UNEXPECTED_ERROR
1805: ,p_token1 => G_OKL_SQLCODE_TOKEN
1806: ,p_token1_value => SQLCODE
1807: ,p_token2 => G_OKL_SQLERRM_TOKEN
1807: ,p_token2 => G_OKL_SQLERRM_TOKEN
1808: ,p_token2_value => SQLERRM);
1809:
1810: -- notify caller of an UNEXPECTED error
1811: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1812:
1813: -- verify that the cursor was closed
1814: IF okl_sfe_unique_csr%ISOPEN THEN
1815: CLOSE okl_sfe_unique_csr;
1824: ----------------------------------------
1825: FUNCTION Validate_Record (
1826: p_sfev_rec IN sfev_rec_type
1827: ) RETURN VARCHAR2 IS
1828: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1829: BEGIN
1830: -- Validate_Unique_Sfe_Record
1831: Validate_Unique_Sfe_Record(p_sfev_rec, l_return_status);
1832: IF (l_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1828: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1829: BEGIN
1830: -- Validate_Unique_Sfe_Record
1831: Validate_Unique_Sfe_Record(p_sfev_rec, l_return_status);
1832: IF (l_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1833: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1834: RAISE G_EXCEPTION_HALT_VALIDATION;
1835: END IF;
1836: END IF;
1829: BEGIN
1830: -- Validate_Unique_Sfe_Record
1831: Validate_Unique_Sfe_Record(p_sfev_rec, l_return_status);
1832: IF (l_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
1833: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1834: RAISE G_EXCEPTION_HALT_VALIDATION;
1835: END IF;
1836: END IF;
1837:
1843: RETURN (l_return_status);
1844:
1845: WHEN OTHERS THEN
1846: -- store SQL error message on message stack for caller
1847: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
1848: p_msg_name => G_OKL_UNEXPECTED_ERROR,
1849: p_token1 => G_OKL_SQLCODE_TOKEN,
1850: p_token1_value => SQLCODE,
1851: p_token2 => G_OKL_SQLERRM_TOKEN,
1850: p_token1_value => SQLCODE,
1851: p_token2 => G_OKL_SQLERRM_TOKEN,
1852: p_token2_value => SQLERRM);
1853: -- notify caller of an UNEXPECTED error
1854: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1855:
1856: RETURN (l_return_status);
1857: END Validate_Record;
1858:
1994: -- validate_row for:OKL_SIF_FEES_V --
1995: -------------------------------------
1996: PROCEDURE validate_row(
1997: p_api_version IN NUMBER,
1998: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1999: x_return_status OUT NOCOPY VARCHAR2,
2000: x_msg_count OUT NOCOPY NUMBER,
2001: x_msg_data OUT NOCOPY VARCHAR2,
2002: p_sfev_rec IN sfev_rec_type) IS
2002: p_sfev_rec IN sfev_rec_type) IS
2003:
2004: l_api_version CONSTANT NUMBER := 1;
2005: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
2006: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2007: l_sfev_rec sfev_rec_type := p_sfev_rec;
2008: l_sfe_rec sfe_rec_type;
2009: BEGIN
2010: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2006: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2007: l_sfev_rec sfev_rec_type := p_sfev_rec;
2008: l_sfe_rec sfe_rec_type;
2009: BEGIN
2010: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2011: G_PKG_NAME,
2012: p_init_msg_list,
2013: l_api_version,
2014: p_api_version,
2013: l_api_version,
2014: p_api_version,
2015: '_PVT',
2016: x_return_status);
2017: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2018: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2019: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2020: RAISE OKC_API.G_EXCEPTION_ERROR;
2021: END IF;
2014: p_api_version,
2015: '_PVT',
2016: x_return_status);
2017: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2018: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2019: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2020: RAISE OKC_API.G_EXCEPTION_ERROR;
2021: END IF;
2022: --- Validate all non-missing attributes (Item Level Validation)
2015: '_PVT',
2016: x_return_status);
2017: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2018: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2019: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2020: RAISE OKC_API.G_EXCEPTION_ERROR;
2021: END IF;
2022: --- Validate all non-missing attributes (Item Level Validation)
2023: l_return_status := Validate_Attributes(l_sfev_rec);
2016: x_return_status);
2017: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2018: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2019: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2020: RAISE OKC_API.G_EXCEPTION_ERROR;
2021: END IF;
2022: --- Validate all non-missing attributes (Item Level Validation)
2023: l_return_status := Validate_Attributes(l_sfev_rec);
2024: --- If any errors happen abort API
2021: END IF;
2022: --- Validate all non-missing attributes (Item Level Validation)
2023: l_return_status := Validate_Attributes(l_sfev_rec);
2024: --- If any errors happen abort API
2025: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2026: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2027: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2028: RAISE OKC_API.G_EXCEPTION_ERROR;
2029: END IF;
2022: --- Validate all non-missing attributes (Item Level Validation)
2023: l_return_status := Validate_Attributes(l_sfev_rec);
2024: --- If any errors happen abort API
2025: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2026: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2027: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2028: RAISE OKC_API.G_EXCEPTION_ERROR;
2029: END IF;
2030: l_return_status := Validate_Record(l_sfev_rec);
2023: l_return_status := Validate_Attributes(l_sfev_rec);
2024: --- If any errors happen abort API
2025: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2026: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2027: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2028: RAISE OKC_API.G_EXCEPTION_ERROR;
2029: END IF;
2030: l_return_status := Validate_Record(l_sfev_rec);
2031: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2024: --- If any errors happen abort API
2025: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2026: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2027: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2028: RAISE OKC_API.G_EXCEPTION_ERROR;
2029: END IF;
2030: l_return_status := Validate_Record(l_sfev_rec);
2031: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2032: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2027: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2028: RAISE OKC_API.G_EXCEPTION_ERROR;
2029: END IF;
2030: l_return_status := Validate_Record(l_sfev_rec);
2031: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2032: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2033: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2034: RAISE OKC_API.G_EXCEPTION_ERROR;
2035: END IF;
2028: RAISE OKC_API.G_EXCEPTION_ERROR;
2029: END IF;
2030: l_return_status := Validate_Record(l_sfev_rec);
2031: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2032: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2033: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2034: RAISE OKC_API.G_EXCEPTION_ERROR;
2035: END IF;
2036: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2029: END IF;
2030: l_return_status := Validate_Record(l_sfev_rec);
2031: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2032: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2033: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2034: RAISE OKC_API.G_EXCEPTION_ERROR;
2035: END IF;
2036: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2037: EXCEPTION
2030: l_return_status := Validate_Record(l_sfev_rec);
2031: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2032: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2033: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2034: RAISE OKC_API.G_EXCEPTION_ERROR;
2035: END IF;
2036: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2037: EXCEPTION
2038: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2032: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2033: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2034: RAISE OKC_API.G_EXCEPTION_ERROR;
2035: END IF;
2036: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2037: EXCEPTION
2038: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2039: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2040:
2034: RAISE OKC_API.G_EXCEPTION_ERROR;
2035: END IF;
2036: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2037: EXCEPTION
2038: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2039: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2040:
2041: (
2042: l_api_name,
2035: END IF;
2036: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2037: EXCEPTION
2038: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2039: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2040:
2041: (
2042: l_api_name,
2043: G_PKG_NAME,
2040:
2041: (
2042: l_api_name,
2043: G_PKG_NAME,
2044: 'OKC_API.G_RET_STS_ERROR',
2045: x_msg_count,
2046: x_msg_data,
2047: '_PVT'
2048: );
2045: x_msg_count,
2046: x_msg_data,
2047: '_PVT'
2048: );
2049: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2050: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2051: (
2052: l_api_name,
2053: G_PKG_NAME,
2046: x_msg_data,
2047: '_PVT'
2048: );
2049: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2050: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2051: (
2052: l_api_name,
2053: G_PKG_NAME,
2054: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2050: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2051: (
2052: l_api_name,
2053: G_PKG_NAME,
2054: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2055: x_msg_count,
2056: x_msg_data,
2057: '_PVT'
2058: );
2056: x_msg_data,
2057: '_PVT'
2058: );
2059: WHEN OTHERS THEN
2060: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2061: (
2062: l_api_name,
2063: G_PKG_NAME,
2064: 'OTHERS',
2071: -- PL/SQL TBL validate_row for:SFEV_TBL --
2072: ------------------------------------------
2073: PROCEDURE validate_row(
2074: p_api_version IN NUMBER,
2075: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2076: x_return_status OUT NOCOPY VARCHAR2,
2077: x_msg_count OUT NOCOPY NUMBER,
2078: x_msg_data OUT NOCOPY VARCHAR2,
2079: p_sfev_tbl IN sfev_tbl_type) IS
2079: p_sfev_tbl IN sfev_tbl_type) IS
2080:
2081: l_api_version CONSTANT NUMBER := 1;
2082: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
2083: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2084: i NUMBER := 0;
2085:
2086: -- START change : akjain, 09/05/2001
2087: -- Adding OverAll Status Flag
2084: i NUMBER := 0;
2085:
2086: -- START change : akjain, 09/05/2001
2087: -- Adding OverAll Status Flag
2088: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2089: -- END change : akjain
2090:
2091: BEGIN
2092: OKC_API.init_msg_list(p_init_msg_list);
2088: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2089: -- END change : akjain
2090:
2091: BEGIN
2092: OKC_API.init_msg_list(p_init_msg_list);
2093: -- Make sure PL/SQL table has records in it before passing
2094: IF (p_sfev_tbl.COUNT > 0) THEN
2095: i := p_sfev_tbl.FIRST;
2096: LOOP
2095: i := p_sfev_tbl.FIRST;
2096: LOOP
2097: validate_row (
2098: p_api_version => p_api_version,
2099: p_init_msg_list => OKC_API.G_FALSE,
2100: x_return_status => x_return_status,
2101: x_msg_count => x_msg_count,
2102: x_msg_data => x_msg_data,
2103: p_sfev_rec => p_sfev_tbl(i));
2102: x_msg_data => x_msg_data,
2103: p_sfev_rec => p_sfev_tbl(i));
2104: -- START change : akjain, 09/05/2001
2105: -- store the highest degree of error
2106: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
2107: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
2108: l_overall_status := x_return_status;
2109: END IF;
2110: END IF;
2103: p_sfev_rec => p_sfev_tbl(i));
2104: -- START change : akjain, 09/05/2001
2105: -- store the highest degree of error
2106: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
2107: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
2108: l_overall_status := x_return_status;
2109: END IF;
2110: END IF;
2111: -- END change : akjain
2118: -- END change : akjain
2119:
2120: END IF;
2121: EXCEPTION
2122: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2123: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2124: (
2125: l_api_name,
2126: G_PKG_NAME,
2119:
2120: END IF;
2121: EXCEPTION
2122: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2123: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2124: (
2125: l_api_name,
2126: G_PKG_NAME,
2127: 'OKC_API.G_RET_STS_ERROR',
2123: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2124: (
2125: l_api_name,
2126: G_PKG_NAME,
2127: 'OKC_API.G_RET_STS_ERROR',
2128: x_msg_count,
2129: x_msg_data,
2130: '_PVT'
2131: );
2128: x_msg_count,
2129: x_msg_data,
2130: '_PVT'
2131: );
2132: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2133: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2134: (
2135: l_api_name,
2136: G_PKG_NAME,
2129: x_msg_data,
2130: '_PVT'
2131: );
2132: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2133: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2134: (
2135: l_api_name,
2136: G_PKG_NAME,
2137: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2133: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2134: (
2135: l_api_name,
2136: G_PKG_NAME,
2137: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2138: x_msg_count,
2139: x_msg_data,
2140:
2141: '_PVT'
2140:
2141: '_PVT'
2142: );
2143: WHEN OTHERS THEN
2144: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2145: (
2146: l_api_name,
2147: G_PKG_NAME,
2148: 'OTHERS',
2158: ---------------------------------
2159: -- insert_row for:OKL_SIF_FEES --
2160: ---------------------------------
2161: PROCEDURE insert_row(
2162: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2163: x_return_status OUT NOCOPY VARCHAR2,
2164: x_msg_count OUT NOCOPY NUMBER,
2165: x_msg_data OUT NOCOPY VARCHAR2,
2166: p_sfe_rec IN sfe_rec_type,
2167: x_sfe_rec OUT NOCOPY sfe_rec_type) IS
2168:
2169: l_api_version CONSTANT NUMBER := 1;
2170: l_api_name CONSTANT VARCHAR2(30) := 'FEES_insert_row';
2171: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2172: l_sfe_rec sfe_rec_type := p_sfe_rec;
2173: l_def_sfe_rec sfe_rec_type;
2174: -------------------------------------
2175: -- Set_Attributes for:OKL_SIF_FEES --
2177: FUNCTION Set_Attributes (
2178: p_sfe_rec IN sfe_rec_type,
2179: x_sfe_rec OUT NOCOPY sfe_rec_type
2180: ) RETURN VARCHAR2 IS
2181: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2182: BEGIN
2183: x_sfe_rec := p_sfe_rec;
2184: RETURN(l_return_status);
2185: END Set_Attributes;
2183: x_sfe_rec := p_sfe_rec;
2184: RETURN(l_return_status);
2185: END Set_Attributes;
2186: BEGIN
2187: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2188: p_init_msg_list,
2189: '_PVT',
2190: x_return_status);
2191: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2187: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2188: p_init_msg_list,
2189: '_PVT',
2190: x_return_status);
2191: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2192: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2193: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2194: RAISE OKC_API.G_EXCEPTION_ERROR;
2195: END IF;
2188: p_init_msg_list,
2189: '_PVT',
2190: x_return_status);
2191: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2192: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2193: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2194: RAISE OKC_API.G_EXCEPTION_ERROR;
2195: END IF;
2196: --- Setting item attributes
2189: '_PVT',
2190: x_return_status);
2191: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2192: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2193: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2194: RAISE OKC_API.G_EXCEPTION_ERROR;
2195: END IF;
2196: --- Setting item attributes
2197: l_return_status := Set_Attributes(
2190: x_return_status);
2191: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2192: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2193: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2194: RAISE OKC_API.G_EXCEPTION_ERROR;
2195: END IF;
2196: --- Setting item attributes
2197: l_return_status := Set_Attributes(
2198: p_sfe_rec, -- IN
2197: l_return_status := Set_Attributes(
2198: p_sfe_rec, -- IN
2199: l_sfe_rec); -- OUT
2200: --- If any errors happen abort API
2201: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2202: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2203: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2204: RAISE OKC_API.G_EXCEPTION_ERROR;
2205: END IF;
2198: p_sfe_rec, -- IN
2199: l_sfe_rec); -- OUT
2200: --- If any errors happen abort API
2201: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2202: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2203: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2204: RAISE OKC_API.G_EXCEPTION_ERROR;
2205: END IF;
2206:
2199: l_sfe_rec); -- OUT
2200: --- If any errors happen abort API
2201: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2202: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2203: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2204: RAISE OKC_API.G_EXCEPTION_ERROR;
2205: END IF;
2206:
2207: INSERT INTO OKL_SIF_FEES(
2200: --- If any errors happen abort API
2201: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2202: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2203: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2204: RAISE OKC_API.G_EXCEPTION_ERROR;
2205: END IF;
2206:
2207: INSERT INTO OKL_SIF_FEES(
2208: id,
2321: l_sfe_rec.last_update_login,
2322: l_sfe_rec.down_payment_amount);
2323: -- Set OUT values
2324: x_sfe_rec := l_sfe_rec;
2325: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2326: EXCEPTION
2327: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2328: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2329: (
2323: -- Set OUT values
2324: x_sfe_rec := l_sfe_rec;
2325: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2326: EXCEPTION
2327: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2328: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2329: (
2330: l_api_name,
2331: G_PKG_NAME,
2324: x_sfe_rec := l_sfe_rec;
2325: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2326: EXCEPTION
2327: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2328: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2329: (
2330: l_api_name,
2331: G_PKG_NAME,
2332: 'OKC_API.G_RET_STS_ERROR',
2328: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2329: (
2330: l_api_name,
2331: G_PKG_NAME,
2332: 'OKC_API.G_RET_STS_ERROR',
2333: x_msg_count,
2334: x_msg_data,
2335: '_PVT'
2336: );
2333: x_msg_count,
2334: x_msg_data,
2335: '_PVT'
2336: );
2337: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2338: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2339: (
2340: l_api_name,
2341: G_PKG_NAME,
2334: x_msg_data,
2335: '_PVT'
2336: );
2337: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2338: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2339: (
2340: l_api_name,
2341: G_PKG_NAME,
2342: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2338: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2339: (
2340: l_api_name,
2341: G_PKG_NAME,
2342: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2343: x_msg_count,
2344: x_msg_data,
2345: '_PVT'
2346: );
2344: x_msg_data,
2345: '_PVT'
2346: );
2347: WHEN OTHERS THEN
2348: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2349: (
2350: l_api_name,
2351: G_PKG_NAME,
2352:
2360: -- insert_row for:OKL_SIF_FEES_V --
2361: -----------------------------------
2362: PROCEDURE insert_row(
2363: p_api_version IN NUMBER,
2364: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2365: x_return_status OUT NOCOPY VARCHAR2,
2366: x_msg_count OUT NOCOPY NUMBER,
2367: x_msg_data OUT NOCOPY VARCHAR2,
2368: p_sfev_rec IN sfev_rec_type,
2369: x_sfev_rec OUT NOCOPY sfev_rec_type) IS
2370:
2371: l_api_version CONSTANT NUMBER := 1;
2372: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
2373: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2374: l_sfev_rec sfev_rec_type;
2375: l_def_sfev_rec sfev_rec_type;
2376: l_sfe_rec sfe_rec_type;
2377: lx_sfe_rec sfe_rec_type;
2396: FUNCTION Set_Attributes (
2397: p_sfev_rec IN sfev_rec_type,
2398: x_sfev_rec OUT NOCOPY sfev_rec_type
2399: ) RETURN VARCHAR2 IS
2400: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2401: BEGIN
2402: x_sfev_rec := p_sfev_rec;
2403: x_sfev_rec.OBJECT_VERSION_NUMBER := 1;
2404: RETURN(l_return_status);
2403: x_sfev_rec.OBJECT_VERSION_NUMBER := 1;
2404: RETURN(l_return_status);
2405: END Set_Attributes;
2406: BEGIN
2407: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2408: G_PKG_NAME,
2409: p_init_msg_list,
2410: l_api_version,
2411: p_api_version,
2410: l_api_version,
2411: p_api_version,
2412: '_PVT',
2413: x_return_status);
2414: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2415: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2416: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2417: RAISE OKC_API.G_EXCEPTION_ERROR;
2418: END IF;
2411: p_api_version,
2412: '_PVT',
2413: x_return_status);
2414: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2415: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2416: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2417: RAISE OKC_API.G_EXCEPTION_ERROR;
2418: END IF;
2419: l_sfev_rec := null_out_defaults(p_sfev_rec);
2412: '_PVT',
2413: x_return_status);
2414: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2415: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2416: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2417: RAISE OKC_API.G_EXCEPTION_ERROR;
2418: END IF;
2419: l_sfev_rec := null_out_defaults(p_sfev_rec);
2420: -- Set primary key value
2413: x_return_status);
2414: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2415: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2416: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2417: RAISE OKC_API.G_EXCEPTION_ERROR;
2418: END IF;
2419: l_sfev_rec := null_out_defaults(p_sfev_rec);
2420: -- Set primary key value
2421: l_sfev_rec.ID := get_seq_id;
2423: l_return_status := Set_Attributes(
2424: l_sfev_rec, -- IN
2425: l_def_sfev_rec); -- OUT
2426: --- If any errors happen abort API
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: l_sfev_rec, -- IN
2425: l_def_sfev_rec); -- OUT
2426: --- If any errors happen abort API
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_def_sfev_rec := fill_who_columns(l_def_sfev_rec);
2425: l_def_sfev_rec); -- OUT
2426: --- If any errors happen abort API
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_def_sfev_rec := fill_who_columns(l_def_sfev_rec);
2433: --- Validate all non-missing attributes (Item Level Validation)
2426: --- If any errors happen abort API
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_def_sfev_rec := fill_who_columns(l_def_sfev_rec);
2433: --- Validate all non-missing attributes (Item Level Validation)
2434: l_return_status := Validate_Attributes(l_def_sfev_rec);
2432: l_def_sfev_rec := fill_who_columns(l_def_sfev_rec);
2433: --- Validate all non-missing attributes (Item Level Validation)
2434: l_return_status := Validate_Attributes(l_def_sfev_rec);
2435: --- If any errors happen abort API
2436: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2437: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2438: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2439: RAISE OKC_API.G_EXCEPTION_ERROR;
2440: END IF;
2433: --- Validate all non-missing attributes (Item Level Validation)
2434: l_return_status := Validate_Attributes(l_def_sfev_rec);
2435: --- If any errors happen abort API
2436: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2437: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2438: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2439: RAISE OKC_API.G_EXCEPTION_ERROR;
2440: END IF;
2441: l_return_status := Validate_Record(l_def_sfev_rec);
2434: l_return_status := Validate_Attributes(l_def_sfev_rec);
2435: --- If any errors happen abort API
2436: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2437: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2438: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2439: RAISE OKC_API.G_EXCEPTION_ERROR;
2440: END IF;
2441: l_return_status := Validate_Record(l_def_sfev_rec);
2442: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2435: --- If any errors happen abort API
2436: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2437: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2438: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2439: RAISE OKC_API.G_EXCEPTION_ERROR;
2440: END IF;
2441: l_return_status := Validate_Record(l_def_sfev_rec);
2442: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2443: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2438: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2439: RAISE OKC_API.G_EXCEPTION_ERROR;
2440: END IF;
2441: l_return_status := Validate_Record(l_def_sfev_rec);
2442: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2443: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2444: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2445: RAISE OKC_API.G_EXCEPTION_ERROR;
2446: END IF;
2439: RAISE OKC_API.G_EXCEPTION_ERROR;
2440: END IF;
2441: l_return_status := Validate_Record(l_def_sfev_rec);
2442: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2443: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2444: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2445: RAISE OKC_API.G_EXCEPTION_ERROR;
2446: END IF;
2447: --------------------------------------
2440: END IF;
2441: l_return_status := Validate_Record(l_def_sfev_rec);
2442: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2443: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2444: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2445: RAISE OKC_API.G_EXCEPTION_ERROR;
2446: END IF;
2447: --------------------------------------
2448: -- Move VIEW record to "Child" records
2441: l_return_status := Validate_Record(l_def_sfev_rec);
2442: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2443: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2444: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2445: RAISE OKC_API.G_EXCEPTION_ERROR;
2446: END IF;
2447: --------------------------------------
2448: -- Move VIEW record to "Child" records
2449: --------------------------------------
2458: x_msg_data,
2459: l_sfe_rec,
2460: lx_sfe_rec
2461: );
2462: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2463: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2464: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2465: RAISE OKC_API.G_EXCEPTION_ERROR;
2466: END IF;
2459: l_sfe_rec,
2460: lx_sfe_rec
2461: );
2462: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2463: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2464: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2465: RAISE OKC_API.G_EXCEPTION_ERROR;
2466: END IF;
2467: migrate(lx_sfe_rec, l_def_sfev_rec);
2460: lx_sfe_rec
2461: );
2462: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2463: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2464: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2465: RAISE OKC_API.G_EXCEPTION_ERROR;
2466: END IF;
2467: migrate(lx_sfe_rec, l_def_sfev_rec);
2468: -- Set OUT values
2461: );
2462: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2463: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2464: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2465: RAISE OKC_API.G_EXCEPTION_ERROR;
2466: END IF;
2467: migrate(lx_sfe_rec, l_def_sfev_rec);
2468: -- Set OUT values
2469: x_sfev_rec := l_def_sfev_rec;
2466: END IF;
2467: migrate(lx_sfe_rec, l_def_sfev_rec);
2468: -- Set OUT values
2469: x_sfev_rec := l_def_sfev_rec;
2470: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2471: EXCEPTION
2472: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2473: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2474: (
2468: -- Set OUT values
2469: x_sfev_rec := l_def_sfev_rec;
2470: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2471: EXCEPTION
2472: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2473: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2474: (
2475: l_api_name,
2476: G_PKG_NAME,
2469: x_sfev_rec := l_def_sfev_rec;
2470: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2471: EXCEPTION
2472: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2473: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2474: (
2475: l_api_name,
2476: G_PKG_NAME,
2477: 'OKC_API.G_RET_STS_ERROR',
2473: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2474: (
2475: l_api_name,
2476: G_PKG_NAME,
2477: 'OKC_API.G_RET_STS_ERROR',
2478: x_msg_count,
2479: x_msg_data,
2480: '_PVT'
2481: );
2478: x_msg_count,
2479: x_msg_data,
2480: '_PVT'
2481: );
2482: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2483: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2484: (
2485: l_api_name,
2486: G_PKG_NAME,
2479: x_msg_data,
2480: '_PVT'
2481: );
2482: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2483: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2484: (
2485: l_api_name,
2486: G_PKG_NAME,
2487: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2483: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2484: (
2485: l_api_name,
2486: G_PKG_NAME,
2487: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2488: x_msg_count,
2489: x_msg_data,
2490: '_PVT'
2491: );
2489: x_msg_data,
2490: '_PVT'
2491: );
2492: WHEN OTHERS THEN
2493: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2494: (
2495: l_api_name,
2496: G_PKG_NAME,
2497: 'OTHERS',
2504: -- PL/SQL TBL insert_row for:SFEV_TBL --
2505: ----------------------------------------
2506: PROCEDURE insert_row(
2507: p_api_version IN NUMBER,
2508: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2509: x_return_status OUT NOCOPY VARCHAR2,
2510: x_msg_count OUT NOCOPY NUMBER,
2511: x_msg_data OUT NOCOPY VARCHAR2,
2512: p_sfev_tbl IN sfev_tbl_type,
2513: x_sfev_tbl OUT NOCOPY sfev_tbl_type) IS
2514:
2515: l_api_version CONSTANT NUMBER := 1;
2516: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
2517: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2518: i NUMBER := 0;
2519: -- START change : akjain, 09/05/2001
2520: -- Adding OverAll Status Flag
2521: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2517: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2518: i NUMBER := 0;
2519: -- START change : akjain, 09/05/2001
2520: -- Adding OverAll Status Flag
2521: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2522: -- END change : akjain
2523:
2524: BEGIN
2525: OKC_API.init_msg_list(p_init_msg_list);
2521: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2522: -- END change : akjain
2523:
2524: BEGIN
2525: OKC_API.init_msg_list(p_init_msg_list);
2526: -- Make sure PL/SQL table has records in it before passing
2527: IF (p_sfev_tbl.COUNT > 0) THEN
2528: i := p_sfev_tbl.FIRST;
2529: LOOP
2528: i := p_sfev_tbl.FIRST;
2529: LOOP
2530: insert_row (
2531: p_api_version => p_api_version,
2532: p_init_msg_list => OKC_API.G_FALSE,
2533: x_return_status => x_return_status,
2534: x_msg_count => x_msg_count,
2535: x_msg_data => x_msg_data,
2536: p_sfev_rec => p_sfev_tbl(i),
2536: p_sfev_rec => p_sfev_tbl(i),
2537: x_sfev_rec => x_sfev_tbl(i));
2538: -- START change : akjain, 09/05/2001
2539: -- store the highest degree of error
2540: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
2541: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
2542: l_overall_status := x_return_status;
2543: END IF;
2544: END IF;
2537: x_sfev_rec => x_sfev_tbl(i));
2538: -- START change : akjain, 09/05/2001
2539: -- store the highest degree of error
2540: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
2541: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
2542: l_overall_status := x_return_status;
2543: END IF;
2544: END IF;
2545: -- END change : akjain
2552: x_return_status := l_overall_status;
2553: -- END change : akjain
2554: END IF;
2555: EXCEPTION
2556: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2557: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2558: (
2559: l_api_name,
2560: G_PKG_NAME,
2553: -- END change : akjain
2554: END IF;
2555: EXCEPTION
2556: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2557: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2558: (
2559: l_api_name,
2560: G_PKG_NAME,
2561: 'OKC_API.G_RET_STS_ERROR',
2557: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2558: (
2559: l_api_name,
2560: G_PKG_NAME,
2561: 'OKC_API.G_RET_STS_ERROR',
2562: x_msg_count,
2563: x_msg_data,
2564: '_PVT'
2565: );
2562: x_msg_count,
2563: x_msg_data,
2564: '_PVT'
2565: );
2566: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2567: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2568: (
2569: l_api_name,
2570: G_PKG_NAME,
2563: x_msg_data,
2564: '_PVT'
2565: );
2566: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2567: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2568: (
2569: l_api_name,
2570: G_PKG_NAME,
2571: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2567: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2568: (
2569: l_api_name,
2570: G_PKG_NAME,
2571: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2572: x_msg_count,
2573: x_msg_data,
2574: '_PVT'
2575: );
2573: x_msg_data,
2574: '_PVT'
2575: );
2576: WHEN OTHERS THEN
2577: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2578: (
2579: l_api_name,
2580: G_PKG_NAME,
2581: 'OTHERS',
2591: -------------------------------
2592: -- lock_row for:OKL_SIF_FEES --
2593: -------------------------------
2594: PROCEDURE lock_row(
2595: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2596: x_return_status OUT NOCOPY VARCHAR2,
2597: x_msg_count OUT NOCOPY NUMBER,
2598: x_msg_data OUT NOCOPY VARCHAR2,
2599: p_sfe_rec IN sfe_rec_type) IS
2612: FROM OKL_SIF_FEES
2613: WHERE ID = p_sfe_rec.id;
2614: l_api_version CONSTANT NUMBER := 1;
2615: l_api_name CONSTANT VARCHAR2(30) := 'FEES_lock_row';
2616: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2617: l_object_version_number OKL_SIF_FEES.OBJECT_VERSION_NUMBER%TYPE;
2618: lc_object_version_number OKL_SIF_FEES.OBJECT_VERSION_NUMBER%TYPE;
2619: l_row_notfound BOOLEAN := FALSE;
2620: lc_row_notfound BOOLEAN := FALSE;
2618: lc_object_version_number OKL_SIF_FEES.OBJECT_VERSION_NUMBER%TYPE;
2619: l_row_notfound BOOLEAN := FALSE;
2620: lc_row_notfound BOOLEAN := FALSE;
2621: BEGIN
2622: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2623: p_init_msg_list,
2624: '_PVT',
2625: x_return_status);
2626: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2622: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2623: p_init_msg_list,
2624: '_PVT',
2625: x_return_status);
2626: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2627: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2628: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2629: RAISE OKC_API.G_EXCEPTION_ERROR;
2630: END IF;
2623: p_init_msg_list,
2624: '_PVT',
2625: x_return_status);
2626: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2627: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2628: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2629: RAISE OKC_API.G_EXCEPTION_ERROR;
2630: END IF;
2631: BEGIN
2624: '_PVT',
2625: x_return_status);
2626: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2627: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2628: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2629: RAISE OKC_API.G_EXCEPTION_ERROR;
2630: END IF;
2631: BEGIN
2632: OPEN lock_csr(p_sfe_rec);
2625: x_return_status);
2626: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2627: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2628: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2629: RAISE OKC_API.G_EXCEPTION_ERROR;
2630: END IF;
2631: BEGIN
2632: OPEN lock_csr(p_sfe_rec);
2633: FETCH lock_csr INTO l_object_version_number;
2637: WHEN E_Resource_Busy THEN
2638: IF (lock_csr%ISOPEN) THEN
2639: CLOSE lock_csr;
2640: END IF;
2641: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
2642: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
2643: END;
2644:
2645: IF ( l_row_notfound ) THEN
2649: lc_row_notfound := lchk_csr%NOTFOUND;
2650: CLOSE lchk_csr;
2651: END IF;
2652: IF (lc_row_notfound) THEN
2653: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2654: RAISE OKC_API.G_EXCEPTION_ERROR;
2655: ELSIF lc_object_version_number > p_sfe_rec.object_version_number THEN
2656: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2657: RAISE OKC_API.G_EXCEPTION_ERROR;
2650: CLOSE lchk_csr;
2651: END IF;
2652: IF (lc_row_notfound) THEN
2653: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2654: RAISE OKC_API.G_EXCEPTION_ERROR;
2655: ELSIF lc_object_version_number > p_sfe_rec.object_version_number THEN
2656: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2657: RAISE OKC_API.G_EXCEPTION_ERROR;
2658: ELSIF lc_object_version_number <> p_sfe_rec.object_version_number THEN
2652: IF (lc_row_notfound) THEN
2653: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2654: RAISE OKC_API.G_EXCEPTION_ERROR;
2655: ELSIF lc_object_version_number > p_sfe_rec.object_version_number THEN
2656: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2657: RAISE OKC_API.G_EXCEPTION_ERROR;
2658: ELSIF lc_object_version_number <> p_sfe_rec.object_version_number THEN
2659: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2660: RAISE OKC_API.G_EXCEPTION_ERROR;
2653: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2654: RAISE OKC_API.G_EXCEPTION_ERROR;
2655: ELSIF lc_object_version_number > p_sfe_rec.object_version_number THEN
2656: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2657: RAISE OKC_API.G_EXCEPTION_ERROR;
2658: ELSIF lc_object_version_number <> p_sfe_rec.object_version_number THEN
2659: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2660: RAISE OKC_API.G_EXCEPTION_ERROR;
2661: ELSIF lc_object_version_number = -1 THEN
2655: ELSIF lc_object_version_number > p_sfe_rec.object_version_number THEN
2656: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2657: RAISE OKC_API.G_EXCEPTION_ERROR;
2658: ELSIF lc_object_version_number <> p_sfe_rec.object_version_number THEN
2659: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2660: RAISE OKC_API.G_EXCEPTION_ERROR;
2661: ELSIF lc_object_version_number = -1 THEN
2662: OKC_API.set_message(G_OKC_APP,G_RECORD_LOGICALLY_DELETED);
2663: RAISE OKC_API.G_EXCEPTION_ERROR;
2656: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2657: RAISE OKC_API.G_EXCEPTION_ERROR;
2658: ELSIF lc_object_version_number <> p_sfe_rec.object_version_number THEN
2659: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2660: RAISE OKC_API.G_EXCEPTION_ERROR;
2661: ELSIF lc_object_version_number = -1 THEN
2662: OKC_API.set_message(G_OKC_APP,G_RECORD_LOGICALLY_DELETED);
2663: RAISE OKC_API.G_EXCEPTION_ERROR;
2664: END IF;
2658: ELSIF lc_object_version_number <> p_sfe_rec.object_version_number THEN
2659: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2660: RAISE OKC_API.G_EXCEPTION_ERROR;
2661: ELSIF lc_object_version_number = -1 THEN
2662: OKC_API.set_message(G_OKC_APP,G_RECORD_LOGICALLY_DELETED);
2663: RAISE OKC_API.G_EXCEPTION_ERROR;
2664: END IF;
2665: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2666: EXCEPTION
2659: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2660: RAISE OKC_API.G_EXCEPTION_ERROR;
2661: ELSIF lc_object_version_number = -1 THEN
2662: OKC_API.set_message(G_OKC_APP,G_RECORD_LOGICALLY_DELETED);
2663: RAISE OKC_API.G_EXCEPTION_ERROR;
2664: END IF;
2665: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2666: EXCEPTION
2667: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2661: ELSIF lc_object_version_number = -1 THEN
2662: OKC_API.set_message(G_OKC_APP,G_RECORD_LOGICALLY_DELETED);
2663: RAISE OKC_API.G_EXCEPTION_ERROR;
2664: END IF;
2665: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2666: EXCEPTION
2667: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2668: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2669: (
2663: RAISE OKC_API.G_EXCEPTION_ERROR;
2664: END IF;
2665: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2666: EXCEPTION
2667: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2668: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2669: (
2670: l_api_name,
2671: G_PKG_NAME,
2664: END IF;
2665: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2666: EXCEPTION
2667: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2668: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2669: (
2670: l_api_name,
2671: G_PKG_NAME,
2672: 'OKC_API.G_RET_STS_ERROR',
2668: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2669: (
2670: l_api_name,
2671: G_PKG_NAME,
2672: 'OKC_API.G_RET_STS_ERROR',
2673: x_msg_count,
2674: x_msg_data,
2675: '_PVT'
2676: );
2673: x_msg_count,
2674: x_msg_data,
2675: '_PVT'
2676: );
2677: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2678: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2679: (
2680: l_api_name,
2681: G_PKG_NAME,
2674: x_msg_data,
2675: '_PVT'
2676: );
2677: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2678: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2679: (
2680: l_api_name,
2681: G_PKG_NAME,
2682: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2678: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2679: (
2680: l_api_name,
2681: G_PKG_NAME,
2682: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2683: x_msg_count,
2684: x_msg_data,
2685: '_PVT'
2686: );
2684: x_msg_data,
2685: '_PVT'
2686: );
2687: WHEN OTHERS THEN
2688: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2689: (
2690: l_api_name,
2691: G_PKG_NAME,
2692: 'OTHERS',
2699: -- lock_row for:OKL_SIF_FEES_V --
2700: ---------------------------------
2701: PROCEDURE lock_row(
2702: p_api_version IN NUMBER,
2703: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2704: x_return_status OUT NOCOPY VARCHAR2,
2705: x_msg_count OUT NOCOPY NUMBER,
2706: x_msg_data OUT NOCOPY VARCHAR2,
2707: p_sfev_rec IN sfev_rec_type) IS
2707: p_sfev_rec IN sfev_rec_type) IS
2708:
2709: l_api_version CONSTANT NUMBER := 1;
2710: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2711: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2712: l_sfe_rec sfe_rec_type;
2713: BEGIN
2714: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2715: G_PKG_NAME,
2710: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2711: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2712: l_sfe_rec sfe_rec_type;
2713: BEGIN
2714: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2715: G_PKG_NAME,
2716: p_init_msg_list,
2717: l_api_version,
2718: p_api_version,
2717: l_api_version,
2718: p_api_version,
2719: '_PVT',
2720: x_return_status);
2721: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2722: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2723: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2724: RAISE OKC_API.G_EXCEPTION_ERROR;
2725: END IF;
2718: p_api_version,
2719: '_PVT',
2720: x_return_status);
2721: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2722: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2723: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2724: RAISE OKC_API.G_EXCEPTION_ERROR;
2725: END IF;
2726: --------------------------------------
2719: '_PVT',
2720: x_return_status);
2721: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2722: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2723: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2724: RAISE OKC_API.G_EXCEPTION_ERROR;
2725: END IF;
2726: --------------------------------------
2727: -- Move VIEW record to "Child" records
2720: x_return_status);
2721: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2722: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2723: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2724: RAISE OKC_API.G_EXCEPTION_ERROR;
2725: END IF;
2726: --------------------------------------
2727: -- Move VIEW record to "Child" records
2728: --------------------------------------
2736: x_msg_count,
2737: x_msg_data,
2738: l_sfe_rec
2739: );
2740: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2741: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2742: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2743: RAISE OKC_API.G_EXCEPTION_ERROR;
2744: END IF;
2737: x_msg_data,
2738: l_sfe_rec
2739: );
2740: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2741: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2742: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2743: RAISE OKC_API.G_EXCEPTION_ERROR;
2744: END IF;
2745: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2738: l_sfe_rec
2739: );
2740: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2741: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2742: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2743: RAISE OKC_API.G_EXCEPTION_ERROR;
2744: END IF;
2745: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2746:
2739: );
2740: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2741: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2742: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2743: RAISE OKC_API.G_EXCEPTION_ERROR;
2744: END IF;
2745: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2746:
2747: EXCEPTION
2741: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2742: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2743: RAISE OKC_API.G_EXCEPTION_ERROR;
2744: END IF;
2745: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2746:
2747: EXCEPTION
2748: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2749: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2744: END IF;
2745: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2746:
2747: EXCEPTION
2748: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2749: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2750: (
2751: l_api_name,
2752: G_PKG_NAME,
2745: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2746:
2747: EXCEPTION
2748: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2749: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2750: (
2751: l_api_name,
2752: G_PKG_NAME,
2753: 'OKC_API.G_RET_STS_ERROR',
2749: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2750: (
2751: l_api_name,
2752: G_PKG_NAME,
2753: 'OKC_API.G_RET_STS_ERROR',
2754: x_msg_count,
2755: x_msg_data,
2756: '_PVT'
2757: );
2754: x_msg_count,
2755: x_msg_data,
2756: '_PVT'
2757: );
2758: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2759: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2760: (
2761: l_api_name,
2762: G_PKG_NAME,
2755: x_msg_data,
2756: '_PVT'
2757: );
2758: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2759: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2760: (
2761: l_api_name,
2762: G_PKG_NAME,
2763: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2759: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2760: (
2761: l_api_name,
2762: G_PKG_NAME,
2763: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2764: x_msg_count,
2765: x_msg_data,
2766: '_PVT'
2767: );
2765: x_msg_data,
2766: '_PVT'
2767: );
2768: WHEN OTHERS THEN
2769: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2770: (
2771: l_api_name,
2772: G_PKG_NAME,
2773: 'OTHERS',
2780: -- PL/SQL TBL lock_row for:SFEV_TBL --
2781: --------------------------------------
2782: PROCEDURE lock_row(
2783: p_api_version IN NUMBER,
2784: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2785: x_return_status OUT NOCOPY VARCHAR2,
2786: x_msg_count OUT NOCOPY NUMBER,
2787: x_msg_data OUT NOCOPY VARCHAR2,
2788: p_sfev_tbl IN sfev_tbl_type) IS
2788: p_sfev_tbl IN sfev_tbl_type) IS
2789:
2790: l_api_version CONSTANT NUMBER := 1;
2791: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2792: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2793: i NUMBER := 0;
2794: -- START change : akjain, 09/05/2001
2795: -- Adding OverAll Status Flag
2796: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2792: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2793: i NUMBER := 0;
2794: -- START change : akjain, 09/05/2001
2795: -- Adding OverAll Status Flag
2796: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2797: -- END change : akjain
2798:
2799: BEGIN
2800: OKC_API.init_msg_list(p_init_msg_list);
2796: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2797: -- END change : akjain
2798:
2799: BEGIN
2800: OKC_API.init_msg_list(p_init_msg_list);
2801: -- Make sure PL/SQL table has records in it before passing
2802: IF (p_sfev_tbl.COUNT > 0) THEN
2803: i := p_sfev_tbl.FIRST;
2804: LOOP
2803: i := p_sfev_tbl.FIRST;
2804: LOOP
2805: lock_row (
2806: p_api_version => p_api_version,
2807: p_init_msg_list => OKC_API.G_FALSE,
2808: x_return_status => x_return_status,
2809: x_msg_count => x_msg_count,
2810: x_msg_data => x_msg_data,
2811: p_sfev_rec => p_sfev_tbl(i));
2810: x_msg_data => x_msg_data,
2811: p_sfev_rec => p_sfev_tbl(i));
2812: -- START change : akjain, 09/05/2001
2813: -- store the highest degree of error
2814: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
2815: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
2816: l_overall_status := x_return_status;
2817: END IF;
2818: END IF;
2811: p_sfev_rec => p_sfev_tbl(i));
2812: -- START change : akjain, 09/05/2001
2813: -- store the highest degree of error
2814: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
2815: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
2816: l_overall_status := x_return_status;
2817: END IF;
2818: END IF;
2819: -- END change : akjain
2825: x_return_status := l_overall_status;
2826: -- END change : akjain
2827: END IF;
2828: EXCEPTION
2829: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2830: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2831: (
2832: l_api_name,
2833: G_PKG_NAME,
2826: -- END change : akjain
2827: END IF;
2828: EXCEPTION
2829: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2830: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2831: (
2832: l_api_name,
2833: G_PKG_NAME,
2834: 'OKC_API.G_RET_STS_ERROR',
2830: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2831: (
2832: l_api_name,
2833: G_PKG_NAME,
2834: 'OKC_API.G_RET_STS_ERROR',
2835: x_msg_count,
2836: x_msg_data,
2837: '_PVT'
2838: );
2835: x_msg_count,
2836: x_msg_data,
2837: '_PVT'
2838: );
2839: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2840: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2841: (
2842: l_api_name,
2843: G_PKG_NAME,
2836: x_msg_data,
2837: '_PVT'
2838: );
2839: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2840: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2841: (
2842: l_api_name,
2843: G_PKG_NAME,
2844: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2840: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2841: (
2842: l_api_name,
2843: G_PKG_NAME,
2844: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2845: x_msg_count,
2846:
2847: x_msg_data,
2848: '_PVT'
2847: x_msg_data,
2848: '_PVT'
2849: );
2850: WHEN OTHERS THEN
2851: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2852: (
2853: l_api_name,
2854: G_PKG_NAME,
2855: 'OTHERS',
2865: ---------------------------------
2866: -- update_row for:OKL_SIF_FEES --
2867: ---------------------------------
2868: PROCEDURE update_row(
2869: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2870: x_return_status OUT NOCOPY VARCHAR2,
2871: x_msg_count OUT NOCOPY NUMBER,
2872: x_msg_data OUT NOCOPY VARCHAR2,
2873: p_sfe_rec IN sfe_rec_type,
2874: x_sfe_rec OUT NOCOPY sfe_rec_type) IS
2875:
2876: l_api_version CONSTANT NUMBER := 1;
2877: l_api_name CONSTANT VARCHAR2(30) := 'FEES_update_row';
2878: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2879: l_sfe_rec sfe_rec_type := p_sfe_rec;
2880: l_def_sfe_rec sfe_rec_type;
2881: l_row_notfound BOOLEAN := TRUE;
2882: ----------------------------------
2887: x_sfe_rec OUT NOCOPY sfe_rec_type
2888: ) RETURN VARCHAR2 IS
2889: l_sfe_rec sfe_rec_type;
2890: l_row_notfound BOOLEAN := TRUE;
2891: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2892: BEGIN
2893: x_sfe_rec := p_sfe_rec;
2894: -- Get current database values
2895: l_sfe_rec := get_rec(p_sfe_rec, l_row_notfound);
2893: x_sfe_rec := p_sfe_rec;
2894: -- Get current database values
2895: l_sfe_rec := get_rec(p_sfe_rec, l_row_notfound);
2896: IF (l_row_notfound) THEN
2897: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2898: END IF;
2899: IF (x_sfe_rec.id = OKC_API.G_MISS_NUM)
2900: THEN
2901: x_sfe_rec.id := l_sfe_rec.id;
2895: l_sfe_rec := get_rec(p_sfe_rec, l_row_notfound);
2896: IF (l_row_notfound) THEN
2897: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2898: END IF;
2899: IF (x_sfe_rec.id = OKC_API.G_MISS_NUM)
2900: THEN
2901: x_sfe_rec.id := l_sfe_rec.id;
2902: END IF;
2903: IF (x_sfe_rec.sfe_type = OKC_API.G_MISS_CHAR)
2899: IF (x_sfe_rec.id = OKC_API.G_MISS_NUM)
2900: THEN
2901: x_sfe_rec.id := l_sfe_rec.id;
2902: END IF;
2903: IF (x_sfe_rec.sfe_type = OKC_API.G_MISS_CHAR)
2904: THEN
2905: x_sfe_rec.sfe_type := l_sfe_rec.sfe_type;
2906: END IF;
2907: IF (x_sfe_rec.date_start = OKC_API.G_MISS_DATE)
2903: IF (x_sfe_rec.sfe_type = OKC_API.G_MISS_CHAR)
2904: THEN
2905: x_sfe_rec.sfe_type := l_sfe_rec.sfe_type;
2906: END IF;
2907: IF (x_sfe_rec.date_start = OKC_API.G_MISS_DATE)
2908: THEN
2909: x_sfe_rec.date_start := l_sfe_rec.date_start;
2910: END IF;
2911: IF (x_sfe_rec.date_paid = OKC_API.G_MISS_DATE)
2907: IF (x_sfe_rec.date_start = OKC_API.G_MISS_DATE)
2908: THEN
2909: x_sfe_rec.date_start := l_sfe_rec.date_start;
2910: END IF;
2911: IF (x_sfe_rec.date_paid = OKC_API.G_MISS_DATE)
2912: THEN
2913: x_sfe_rec.date_paid := l_sfe_rec.date_paid;
2914: END IF;
2915: IF (x_sfe_rec.amount = OKC_API.G_MISS_NUM)
2911: IF (x_sfe_rec.date_paid = OKC_API.G_MISS_DATE)
2912: THEN
2913: x_sfe_rec.date_paid := l_sfe_rec.date_paid;
2914: END IF;
2915: IF (x_sfe_rec.amount = OKC_API.G_MISS_NUM)
2916: THEN
2917: x_sfe_rec.amount := l_sfe_rec.amount;
2918: END IF;
2919: IF (x_sfe_rec.idc_accounting_flag = OKC_API.G_MISS_CHAR)
2915: IF (x_sfe_rec.amount = OKC_API.G_MISS_NUM)
2916: THEN
2917: x_sfe_rec.amount := l_sfe_rec.amount;
2918: END IF;
2919: IF (x_sfe_rec.idc_accounting_flag = OKC_API.G_MISS_CHAR)
2920: THEN
2921: x_sfe_rec.idc_accounting_flag := l_sfe_rec.idc_accounting_flag;
2922: END IF;
2923: IF (x_sfe_rec.income_or_expense = OKC_API.G_MISS_CHAR)
2919: IF (x_sfe_rec.idc_accounting_flag = OKC_API.G_MISS_CHAR)
2920: THEN
2921: x_sfe_rec.idc_accounting_flag := l_sfe_rec.idc_accounting_flag;
2922: END IF;
2923: IF (x_sfe_rec.income_or_expense = OKC_API.G_MISS_CHAR)
2924: THEN
2925: x_sfe_rec.income_or_expense := l_sfe_rec.income_or_expense;
2926: END IF;
2927: IF (x_sfe_rec.description = OKC_API.G_MISS_CHAR)
2923: IF (x_sfe_rec.income_or_expense = OKC_API.G_MISS_CHAR)
2924: THEN
2925: x_sfe_rec.income_or_expense := l_sfe_rec.income_or_expense;
2926: END IF;
2927: IF (x_sfe_rec.description = OKC_API.G_MISS_CHAR)
2928: THEN
2929: x_sfe_rec.description := l_sfe_rec.description;
2930: END IF;
2931: IF (x_sfe_rec.fee_index_number = OKC_API.G_MISS_NUM)
2927: IF (x_sfe_rec.description = OKC_API.G_MISS_CHAR)
2928: THEN
2929: x_sfe_rec.description := l_sfe_rec.description;
2930: END IF;
2931: IF (x_sfe_rec.fee_index_number = OKC_API.G_MISS_NUM)
2932: THEN
2933: x_sfe_rec.fee_index_number := l_sfe_rec.fee_index_number;
2934: END IF;
2935: IF (x_sfe_rec.level_index_number = OKC_API.G_MISS_NUM)
2931: IF (x_sfe_rec.fee_index_number = OKC_API.G_MISS_NUM)
2932: THEN
2933: x_sfe_rec.fee_index_number := l_sfe_rec.fee_index_number;
2934: END IF;
2935: IF (x_sfe_rec.level_index_number = OKC_API.G_MISS_NUM)
2936: THEN
2937: x_sfe_rec.level_index_number := l_sfe_rec.level_index_number;
2938: END IF;
2939: IF (x_sfe_rec.advance_or_arrears = OKC_API.G_MISS_CHAR)
2935: IF (x_sfe_rec.level_index_number = OKC_API.G_MISS_NUM)
2936: THEN
2937: x_sfe_rec.level_index_number := l_sfe_rec.level_index_number;
2938: END IF;
2939: IF (x_sfe_rec.advance_or_arrears = OKC_API.G_MISS_CHAR)
2940: THEN
2941: x_sfe_rec.advance_or_arrears := l_sfe_rec.advance_or_arrears;
2942: END IF;
2943:
2940: THEN
2941: x_sfe_rec.advance_or_arrears := l_sfe_rec.advance_or_arrears;
2942: END IF;
2943:
2944: IF (x_sfe_rec.cash_effect_yn = OKC_API.G_MISS_CHAR)
2945: THEN
2946: x_sfe_rec.cash_effect_yn := l_sfe_rec.cash_effect_yn;
2947: END IF;
2948:
2945: THEN
2946: x_sfe_rec.cash_effect_yn := l_sfe_rec.cash_effect_yn;
2947: END IF;
2948:
2949: IF (x_sfe_rec.tax_effect_yn = OKC_API.G_MISS_CHAR)
2950: THEN
2951: x_sfe_rec.tax_effect_yn := l_sfe_rec.tax_effect_yn;
2952: END IF;
2953:
2950: THEN
2951: x_sfe_rec.tax_effect_yn := l_sfe_rec.tax_effect_yn;
2952: END IF;
2953:
2954: IF (x_sfe_rec.days_in_month = OKC_API.G_MISS_CHAR)
2955: THEN
2956: x_sfe_rec.days_in_month := l_sfe_rec.days_in_month;
2957: END IF;
2958:
2955: THEN
2956: x_sfe_rec.days_in_month := l_sfe_rec.days_in_month;
2957: END IF;
2958:
2959: IF (x_sfe_rec.days_in_year = OKC_API.G_MISS_CHAR)
2960: THEN
2961: x_sfe_rec.days_in_year := l_sfe_rec.days_in_year;
2962: END IF;
2963:
2960: THEN
2961: x_sfe_rec.days_in_year := l_sfe_rec.days_in_year;
2962: END IF;
2963:
2964: IF (x_sfe_rec.balance_type_code = OKC_API.G_MISS_CHAR)
2965: THEN
2966: x_sfe_rec.balance_type_code := l_sfe_rec.balance_type_code;
2967: END IF;
2968:
2965: THEN
2966: x_sfe_rec.balance_type_code := l_sfe_rec.balance_type_code;
2967: END IF;
2968:
2969: IF (x_sfe_rec.level_type = OKC_API.G_MISS_CHAR)
2970: THEN
2971: x_sfe_rec.level_type := l_sfe_rec.level_type;
2972:
2973: END IF;
2970: THEN
2971: x_sfe_rec.level_type := l_sfe_rec.level_type;
2972:
2973: END IF;
2974: IF (x_sfe_rec.lock_level_step = OKC_API.G_MISS_CHAR)
2975: THEN
2976: x_sfe_rec.lock_level_step := l_sfe_rec.lock_level_step;
2977: END IF;
2978: IF (x_sfe_rec.period = OKC_API.G_MISS_CHAR)
2974: IF (x_sfe_rec.lock_level_step = OKC_API.G_MISS_CHAR)
2975: THEN
2976: x_sfe_rec.lock_level_step := l_sfe_rec.lock_level_step;
2977: END IF;
2978: IF (x_sfe_rec.period = OKC_API.G_MISS_CHAR)
2979: THEN
2980: x_sfe_rec.period := l_sfe_rec.period;
2981: END IF;
2982: IF (x_sfe_rec.number_of_periods = OKC_API.G_MISS_NUM)
2978: IF (x_sfe_rec.period = OKC_API.G_MISS_CHAR)
2979: THEN
2980: x_sfe_rec.period := l_sfe_rec.period;
2981: END IF;
2982: IF (x_sfe_rec.number_of_periods = OKC_API.G_MISS_NUM)
2983: THEN
2984: x_sfe_rec.number_of_periods := l_sfe_rec.number_of_periods;
2985: END IF;
2986: IF (x_sfe_rec.level_line_number = OKC_API.G_MISS_NUM)
2982: IF (x_sfe_rec.number_of_periods = OKC_API.G_MISS_NUM)
2983: THEN
2984: x_sfe_rec.number_of_periods := l_sfe_rec.number_of_periods;
2985: END IF;
2986: IF (x_sfe_rec.level_line_number = OKC_API.G_MISS_NUM)
2987: THEN
2988: x_sfe_rec.level_line_number := l_sfe_rec.level_line_number;
2989: END IF;
2990: IF (x_sfe_rec.sif_id = OKC_API.G_MISS_NUM)
2986: IF (x_sfe_rec.level_line_number = OKC_API.G_MISS_NUM)
2987: THEN
2988: x_sfe_rec.level_line_number := l_sfe_rec.level_line_number;
2989: END IF;
2990: IF (x_sfe_rec.sif_id = OKC_API.G_MISS_NUM)
2991: THEN
2992: x_sfe_rec.sif_id := l_sfe_rec.sif_id;
2993: END IF;
2994: IF (x_sfe_rec.kle_id = OKC_API.G_MISS_NUM)
2990: IF (x_sfe_rec.sif_id = OKC_API.G_MISS_NUM)
2991: THEN
2992: x_sfe_rec.sif_id := l_sfe_rec.sif_id;
2993: END IF;
2994: IF (x_sfe_rec.kle_id = OKC_API.G_MISS_NUM)
2995: THEN
2996: x_sfe_rec.kle_id := l_sfe_rec.kle_id;
2997: END IF;
2998: IF (x_sfe_rec.sil_id = OKC_API.G_MISS_NUM)
2994: IF (x_sfe_rec.kle_id = OKC_API.G_MISS_NUM)
2995: THEN
2996: x_sfe_rec.kle_id := l_sfe_rec.kle_id;
2997: END IF;
2998: IF (x_sfe_rec.sil_id = OKC_API.G_MISS_NUM)
2999: THEN
3000: x_sfe_rec.sil_id := l_sfe_rec.sil_id;
3001: END IF;
3002: IF (x_sfe_rec.rate = OKC_API.G_MISS_NUM)
2998: IF (x_sfe_rec.sil_id = OKC_API.G_MISS_NUM)
2999: THEN
3000: x_sfe_rec.sil_id := l_sfe_rec.sil_id;
3001: END IF;
3002: IF (x_sfe_rec.rate = OKC_API.G_MISS_NUM)
3003: THEN
3004: x_sfe_rec.rate := l_sfe_rec.rate;
3005: END IF;
3006: -- mvasudev, 05/13/2002
3003: THEN
3004: x_sfe_rec.rate := l_sfe_rec.rate;
3005: END IF;
3006: -- mvasudev, 05/13/2002
3007: IF (x_sfe_rec.query_level_yn = OKC_API.G_MISS_CHAR)
3008: THEN
3009: x_sfe_rec.query_level_yn := l_sfe_rec.query_level_yn;
3010: END IF;
3011: IF (x_sfe_rec.STRUCTURE = OKC_API.G_MISS_CHAR)
3007: IF (x_sfe_rec.query_level_yn = OKC_API.G_MISS_CHAR)
3008: THEN
3009: x_sfe_rec.query_level_yn := l_sfe_rec.query_level_yn;
3010: END IF;
3011: IF (x_sfe_rec.STRUCTURE = OKC_API.G_MISS_CHAR)
3012: THEN
3013: x_sfe_rec.STRUCTURE := l_sfe_rec.STRUCTURE;
3014: END IF;
3015: IF (x_sfe_rec.DAYS_IN_PERIOD = OKC_API.G_MISS_NUM)
3011: IF (x_sfe_rec.STRUCTURE = OKC_API.G_MISS_CHAR)
3012: THEN
3013: x_sfe_rec.STRUCTURE := l_sfe_rec.STRUCTURE;
3014: END IF;
3015: IF (x_sfe_rec.DAYS_IN_PERIOD = OKC_API.G_MISS_NUM)
3016: THEN
3017: x_sfe_rec.DAYS_IN_PERIOD := l_sfe_rec.DAYS_IN_PERIOD;
3018: END IF;
3019: --
3016: THEN
3017: x_sfe_rec.DAYS_IN_PERIOD := l_sfe_rec.DAYS_IN_PERIOD;
3018: END IF;
3019: --
3020: IF (x_sfe_rec.object_version_number = OKC_API.G_MISS_NUM)
3021: THEN
3022: x_sfe_rec.object_version_number := l_sfe_rec.object_version_number;
3023: END IF;
3024: IF (x_sfe_rec.stream_interface_attribute01 = OKC_API.G_MISS_CHAR)
3020: IF (x_sfe_rec.object_version_number = OKC_API.G_MISS_NUM)
3021: THEN
3022: x_sfe_rec.object_version_number := l_sfe_rec.object_version_number;
3023: END IF;
3024: IF (x_sfe_rec.stream_interface_attribute01 = OKC_API.G_MISS_CHAR)
3025: THEN
3026: x_sfe_rec.stream_interface_attribute01 := l_sfe_rec.stream_interface_attribute01;
3027: END IF;
3028: IF (x_sfe_rec.stream_interface_attribute02 = OKC_API.G_MISS_CHAR)
3024: IF (x_sfe_rec.stream_interface_attribute01 = OKC_API.G_MISS_CHAR)
3025: THEN
3026: x_sfe_rec.stream_interface_attribute01 := l_sfe_rec.stream_interface_attribute01;
3027: END IF;
3028: IF (x_sfe_rec.stream_interface_attribute02 = OKC_API.G_MISS_CHAR)
3029: THEN
3030: x_sfe_rec.stream_interface_attribute02 := l_sfe_rec.stream_interface_attribute02;
3031: END IF;
3032: IF (x_sfe_rec.stream_interface_attribute03 = OKC_API.G_MISS_CHAR)
3028: IF (x_sfe_rec.stream_interface_attribute02 = OKC_API.G_MISS_CHAR)
3029: THEN
3030: x_sfe_rec.stream_interface_attribute02 := l_sfe_rec.stream_interface_attribute02;
3031: END IF;
3032: IF (x_sfe_rec.stream_interface_attribute03 = OKC_API.G_MISS_CHAR)
3033: THEN
3034: x_sfe_rec.stream_interface_attribute03 := l_sfe_rec.stream_interface_attribute03;
3035: END IF;
3036: IF (x_sfe_rec.stream_interface_attribute04 = OKC_API.G_MISS_CHAR)
3032: IF (x_sfe_rec.stream_interface_attribute03 = OKC_API.G_MISS_CHAR)
3033: THEN
3034: x_sfe_rec.stream_interface_attribute03 := l_sfe_rec.stream_interface_attribute03;
3035: END IF;
3036: IF (x_sfe_rec.stream_interface_attribute04 = OKC_API.G_MISS_CHAR)
3037: THEN
3038: x_sfe_rec.stream_interface_attribute04 := l_sfe_rec.stream_interface_attribute04;
3039: END IF;
3040: IF (x_sfe_rec.stream_interface_attribute05 = OKC_API.G_MISS_CHAR)
3036: IF (x_sfe_rec.stream_interface_attribute04 = OKC_API.G_MISS_CHAR)
3037: THEN
3038: x_sfe_rec.stream_interface_attribute04 := l_sfe_rec.stream_interface_attribute04;
3039: END IF;
3040: IF (x_sfe_rec.stream_interface_attribute05 = OKC_API.G_MISS_CHAR)
3041: THEN
3042: x_sfe_rec.stream_interface_attribute05 := l_sfe_rec.stream_interface_attribute05;
3043: END IF;
3044: IF (x_sfe_rec.stream_interface_attribute06 = OKC_API.G_MISS_CHAR)
3040: IF (x_sfe_rec.stream_interface_attribute05 = OKC_API.G_MISS_CHAR)
3041: THEN
3042: x_sfe_rec.stream_interface_attribute05 := l_sfe_rec.stream_interface_attribute05;
3043: END IF;
3044: IF (x_sfe_rec.stream_interface_attribute06 = OKC_API.G_MISS_CHAR)
3045: THEN
3046: x_sfe_rec.stream_interface_attribute06 := l_sfe_rec.stream_interface_attribute06;
3047: END IF;
3048: IF (x_sfe_rec.stream_interface_attribute07 = OKC_API.G_MISS_CHAR)
3044: IF (x_sfe_rec.stream_interface_attribute06 = OKC_API.G_MISS_CHAR)
3045: THEN
3046: x_sfe_rec.stream_interface_attribute06 := l_sfe_rec.stream_interface_attribute06;
3047: END IF;
3048: IF (x_sfe_rec.stream_interface_attribute07 = OKC_API.G_MISS_CHAR)
3049: THEN
3050: x_sfe_rec.stream_interface_attribute07 := l_sfe_rec.stream_interface_attribute07;
3051: END IF;
3052: IF (x_sfe_rec.stream_interface_attribute08 = OKC_API.G_MISS_CHAR)
3048: IF (x_sfe_rec.stream_interface_attribute07 = OKC_API.G_MISS_CHAR)
3049: THEN
3050: x_sfe_rec.stream_interface_attribute07 := l_sfe_rec.stream_interface_attribute07;
3051: END IF;
3052: IF (x_sfe_rec.stream_interface_attribute08 = OKC_API.G_MISS_CHAR)
3053: THEN
3054: x_sfe_rec.stream_interface_attribute08 := l_sfe_rec.stream_interface_attribute08;
3055: END IF;
3056: IF (x_sfe_rec.stream_interface_attribute09 = OKC_API.G_MISS_CHAR)
3052: IF (x_sfe_rec.stream_interface_attribute08 = OKC_API.G_MISS_CHAR)
3053: THEN
3054: x_sfe_rec.stream_interface_attribute08 := l_sfe_rec.stream_interface_attribute08;
3055: END IF;
3056: IF (x_sfe_rec.stream_interface_attribute09 = OKC_API.G_MISS_CHAR)
3057: THEN
3058: x_sfe_rec.stream_interface_attribute09 := l_sfe_rec.stream_interface_attribute09;
3059: END IF;
3060: IF (x_sfe_rec.stream_interface_attribute10 = OKC_API.G_MISS_CHAR)
3056: IF (x_sfe_rec.stream_interface_attribute09 = OKC_API.G_MISS_CHAR)
3057: THEN
3058: x_sfe_rec.stream_interface_attribute09 := l_sfe_rec.stream_interface_attribute09;
3059: END IF;
3060: IF (x_sfe_rec.stream_interface_attribute10 = OKC_API.G_MISS_CHAR)
3061: THEN
3062: x_sfe_rec.stream_interface_attribute10 := l_sfe_rec.stream_interface_attribute10;
3063: END IF;
3064: IF (x_sfe_rec.stream_interface_attribute11 = OKC_API.G_MISS_CHAR)
3060: IF (x_sfe_rec.stream_interface_attribute10 = OKC_API.G_MISS_CHAR)
3061: THEN
3062: x_sfe_rec.stream_interface_attribute10 := l_sfe_rec.stream_interface_attribute10;
3063: END IF;
3064: IF (x_sfe_rec.stream_interface_attribute11 = OKC_API.G_MISS_CHAR)
3065: THEN
3066: x_sfe_rec.stream_interface_attribute11 := l_sfe_rec.stream_interface_attribute11;
3067: END IF;
3068: IF (x_sfe_rec.stream_interface_attribute12 = OKC_API.G_MISS_CHAR)
3064: IF (x_sfe_rec.stream_interface_attribute11 = OKC_API.G_MISS_CHAR)
3065: THEN
3066: x_sfe_rec.stream_interface_attribute11 := l_sfe_rec.stream_interface_attribute11;
3067: END IF;
3068: IF (x_sfe_rec.stream_interface_attribute12 = OKC_API.G_MISS_CHAR)
3069: THEN
3070: x_sfe_rec.stream_interface_attribute12 := l_sfe_rec.stream_interface_attribute12;
3071: END IF;
3072:
3069: THEN
3070: x_sfe_rec.stream_interface_attribute12 := l_sfe_rec.stream_interface_attribute12;
3071: END IF;
3072:
3073: IF (x_sfe_rec.stream_interface_attribute13 = OKC_API.G_MISS_CHAR)
3074: THEN
3075: x_sfe_rec.stream_interface_attribute13 := l_sfe_rec.stream_interface_attribute13;
3076: END IF;
3077: IF (x_sfe_rec.stream_interface_attribute14 = OKC_API.G_MISS_CHAR)
3073: IF (x_sfe_rec.stream_interface_attribute13 = OKC_API.G_MISS_CHAR)
3074: THEN
3075: x_sfe_rec.stream_interface_attribute13 := l_sfe_rec.stream_interface_attribute13;
3076: END IF;
3077: IF (x_sfe_rec.stream_interface_attribute14 = OKC_API.G_MISS_CHAR)
3078: THEN
3079: x_sfe_rec.stream_interface_attribute14 := l_sfe_rec.stream_interface_attribute14;
3080: END IF;
3081: IF (x_sfe_rec.stream_interface_attribute15 = OKC_API.G_MISS_CHAR)
3077: IF (x_sfe_rec.stream_interface_attribute14 = OKC_API.G_MISS_CHAR)
3078: THEN
3079: x_sfe_rec.stream_interface_attribute14 := l_sfe_rec.stream_interface_attribute14;
3080: END IF;
3081: IF (x_sfe_rec.stream_interface_attribute15 = OKC_API.G_MISS_CHAR)
3082: THEN
3083: x_sfe_rec.stream_interface_attribute15 := l_sfe_rec.stream_interface_attribute15;
3084: END IF;
3085: IF (x_sfe_rec.stream_interface_attribute16 = OKC_API.G_MISS_CHAR)
3081: IF (x_sfe_rec.stream_interface_attribute15 = OKC_API.G_MISS_CHAR)
3082: THEN
3083: x_sfe_rec.stream_interface_attribute15 := l_sfe_rec.stream_interface_attribute15;
3084: END IF;
3085: IF (x_sfe_rec.stream_interface_attribute16 = OKC_API.G_MISS_CHAR)
3086: THEN
3087: x_sfe_rec.stream_interface_attribute16 := l_sfe_rec.stream_interface_attribute16;
3088: END IF;
3089: IF (x_sfe_rec.stream_interface_attribute17 = OKC_API.G_MISS_CHAR)
3085: IF (x_sfe_rec.stream_interface_attribute16 = OKC_API.G_MISS_CHAR)
3086: THEN
3087: x_sfe_rec.stream_interface_attribute16 := l_sfe_rec.stream_interface_attribute16;
3088: END IF;
3089: IF (x_sfe_rec.stream_interface_attribute17 = OKC_API.G_MISS_CHAR)
3090: THEN
3091: x_sfe_rec.stream_interface_attribute17 := l_sfe_rec.stream_interface_attribute17;
3092: END IF;
3093: IF (x_sfe_rec.stream_interface_attribute18 = OKC_API.G_MISS_CHAR)
3089: IF (x_sfe_rec.stream_interface_attribute17 = OKC_API.G_MISS_CHAR)
3090: THEN
3091: x_sfe_rec.stream_interface_attribute17 := l_sfe_rec.stream_interface_attribute17;
3092: END IF;
3093: IF (x_sfe_rec.stream_interface_attribute18 = OKC_API.G_MISS_CHAR)
3094: THEN
3095: x_sfe_rec.stream_interface_attribute18 := l_sfe_rec.stream_interface_attribute18;
3096: END IF;
3097: IF (x_sfe_rec.stream_interface_attribute19 = OKC_API.G_MISS_CHAR)
3093: IF (x_sfe_rec.stream_interface_attribute18 = OKC_API.G_MISS_CHAR)
3094: THEN
3095: x_sfe_rec.stream_interface_attribute18 := l_sfe_rec.stream_interface_attribute18;
3096: END IF;
3097: IF (x_sfe_rec.stream_interface_attribute19 = OKC_API.G_MISS_CHAR)
3098: THEN
3099: x_sfe_rec.stream_interface_attribute19 := l_sfe_rec.stream_interface_attribute19;
3100: END IF;
3101: IF (x_sfe_rec.stream_interface_attribute20 = OKC_API.G_MISS_CHAR)
3097: IF (x_sfe_rec.stream_interface_attribute19 = OKC_API.G_MISS_CHAR)
3098: THEN
3099: x_sfe_rec.stream_interface_attribute19 := l_sfe_rec.stream_interface_attribute19;
3100: END IF;
3101: IF (x_sfe_rec.stream_interface_attribute20 = OKC_API.G_MISS_CHAR)
3102: THEN
3103: x_sfe_rec.stream_interface_attribute20 := l_sfe_rec.stream_interface_attribute20;
3104: END IF;
3105: IF (x_sfe_rec.created_by = OKC_API.G_MISS_NUM)
3101: IF (x_sfe_rec.stream_interface_attribute20 = OKC_API.G_MISS_CHAR)
3102: THEN
3103: x_sfe_rec.stream_interface_attribute20 := l_sfe_rec.stream_interface_attribute20;
3104: END IF;
3105: IF (x_sfe_rec.created_by = OKC_API.G_MISS_NUM)
3106: THEN
3107: x_sfe_rec.created_by := l_sfe_rec.created_by;
3108: END IF;
3109: IF (x_sfe_rec.last_updated_by = OKC_API.G_MISS_NUM)
3105: IF (x_sfe_rec.created_by = OKC_API.G_MISS_NUM)
3106: THEN
3107: x_sfe_rec.created_by := l_sfe_rec.created_by;
3108: END IF;
3109: IF (x_sfe_rec.last_updated_by = OKC_API.G_MISS_NUM)
3110: THEN
3111: x_sfe_rec.last_updated_by := l_sfe_rec.last_updated_by;
3112: END IF;
3113: IF (x_sfe_rec.creation_date = OKC_API.G_MISS_DATE)
3109: IF (x_sfe_rec.last_updated_by = OKC_API.G_MISS_NUM)
3110: THEN
3111: x_sfe_rec.last_updated_by := l_sfe_rec.last_updated_by;
3112: END IF;
3113: IF (x_sfe_rec.creation_date = OKC_API.G_MISS_DATE)
3114: THEN
3115: x_sfe_rec.creation_date := l_sfe_rec.creation_date;
3116: END IF;
3117: IF (x_sfe_rec.last_update_date = OKC_API.G_MISS_DATE)
3113: IF (x_sfe_rec.creation_date = OKC_API.G_MISS_DATE)
3114: THEN
3115: x_sfe_rec.creation_date := l_sfe_rec.creation_date;
3116: END IF;
3117: IF (x_sfe_rec.last_update_date = OKC_API.G_MISS_DATE)
3118: THEN
3119: x_sfe_rec.last_update_date := l_sfe_rec.last_update_date;
3120: END IF;
3121: IF (x_sfe_rec.last_update_login = OKC_API.G_MISS_NUM)
3117: IF (x_sfe_rec.last_update_date = OKC_API.G_MISS_DATE)
3118: THEN
3119: x_sfe_rec.last_update_date := l_sfe_rec.last_update_date;
3120: END IF;
3121: IF (x_sfe_rec.last_update_login = OKC_API.G_MISS_NUM)
3122: THEN
3123: x_sfe_rec.last_update_login := l_sfe_rec.last_update_login;
3124: END IF;
3125: IF (x_sfe_rec.down_payment_amount = OKC_API.G_MISS_NUM)
3121: IF (x_sfe_rec.last_update_login = OKC_API.G_MISS_NUM)
3122: THEN
3123: x_sfe_rec.last_update_login := l_sfe_rec.last_update_login;
3124: END IF;
3125: IF (x_sfe_rec.down_payment_amount = OKC_API.G_MISS_NUM)
3126: THEN
3127: x_sfe_rec.down_payment_amount := l_sfe_rec.down_payment_amount;
3128: END IF;
3129: RETURN(l_return_status);
3134: FUNCTION Set_Attributes (
3135: p_sfe_rec IN sfe_rec_type,
3136: x_sfe_rec OUT NOCOPY sfe_rec_type
3137: ) RETURN VARCHAR2 IS
3138: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3139: BEGIN
3140: x_sfe_rec := p_sfe_rec;
3141: RETURN(l_return_status);
3142: END Set_Attributes;
3140: x_sfe_rec := p_sfe_rec;
3141: RETURN(l_return_status);
3142: END Set_Attributes;
3143: BEGIN
3144: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3145: p_init_msg_list,
3146: '_PVT',
3147: x_return_status);
3148: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3144: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3145: p_init_msg_list,
3146: '_PVT',
3147: x_return_status);
3148: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3149: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3150: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3151: RAISE OKC_API.G_EXCEPTION_ERROR;
3152: END IF;
3145: p_init_msg_list,
3146: '_PVT',
3147: x_return_status);
3148: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3149: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3150: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3151: RAISE OKC_API.G_EXCEPTION_ERROR;
3152: END IF;
3153: --- Setting item attributes
3146: '_PVT',
3147: x_return_status);
3148: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3149: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3150: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3151: RAISE OKC_API.G_EXCEPTION_ERROR;
3152: END IF;
3153: --- Setting item attributes
3154: l_return_status := Set_Attributes(
3147: x_return_status);
3148: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3149: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3150: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3151: RAISE OKC_API.G_EXCEPTION_ERROR;
3152: END IF;
3153: --- Setting item attributes
3154: l_return_status := Set_Attributes(
3155: p_sfe_rec, -- IN
3154: l_return_status := Set_Attributes(
3155: p_sfe_rec, -- IN
3156: l_sfe_rec); -- OUT
3157: --- If any errors happen abort API
3158: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3159: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3160: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3161: RAISE OKC_API.G_EXCEPTION_ERROR;
3162: END IF;
3155: p_sfe_rec, -- IN
3156: l_sfe_rec); -- OUT
3157: --- If any errors happen abort API
3158: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3159: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3160: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3161: RAISE OKC_API.G_EXCEPTION_ERROR;
3162: END IF;
3163: l_return_status := populate_new_record(l_sfe_rec, l_def_sfe_rec);
3156: l_sfe_rec); -- OUT
3157: --- If any errors happen abort API
3158: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3159: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3160: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3161: RAISE OKC_API.G_EXCEPTION_ERROR;
3162: END IF;
3163: l_return_status := populate_new_record(l_sfe_rec, l_def_sfe_rec);
3164: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3157: --- If any errors happen abort API
3158: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3159: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3160: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3161: RAISE OKC_API.G_EXCEPTION_ERROR;
3162: END IF;
3163: l_return_status := populate_new_record(l_sfe_rec, l_def_sfe_rec);
3164: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3165: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3160: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3161: RAISE OKC_API.G_EXCEPTION_ERROR;
3162: END IF;
3163: l_return_status := populate_new_record(l_sfe_rec, l_def_sfe_rec);
3164: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3165: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3166: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3167: RAISE OKC_API.G_EXCEPTION_ERROR;
3168: END IF;
3161: RAISE OKC_API.G_EXCEPTION_ERROR;
3162: END IF;
3163: l_return_status := populate_new_record(l_sfe_rec, l_def_sfe_rec);
3164: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3165: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3166: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3167: RAISE OKC_API.G_EXCEPTION_ERROR;
3168: END IF;
3169: UPDATE OKL_SIF_FEES
3162: END IF;
3163: l_return_status := populate_new_record(l_sfe_rec, l_def_sfe_rec);
3164: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3165: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3166: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3167: RAISE OKC_API.G_EXCEPTION_ERROR;
3168: END IF;
3169: UPDATE OKL_SIF_FEES
3170: SET SFE_TYPE = l_def_sfe_rec.sfe_type,
3163: l_return_status := populate_new_record(l_sfe_rec, l_def_sfe_rec);
3164: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3165: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3166: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3167: RAISE OKC_API.G_EXCEPTION_ERROR;
3168: END IF;
3169: UPDATE OKL_SIF_FEES
3170: SET SFE_TYPE = l_def_sfe_rec.sfe_type,
3171: DATE_START = l_def_sfe_rec.date_start,
3225: DOWN_PAYMENT_AMOUNT = l_def_sfe_rec.down_payment_amount
3226: WHERE ID = l_def_sfe_rec.id;
3227:
3228: x_sfe_rec := l_def_sfe_rec;
3229: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3230: EXCEPTION
3231: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3232: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3233: (
3227:
3228: x_sfe_rec := l_def_sfe_rec;
3229: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3230: EXCEPTION
3231: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3232: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3233: (
3234: l_api_name,
3235: G_PKG_NAME,
3228: x_sfe_rec := l_def_sfe_rec;
3229: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3230: EXCEPTION
3231: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3232: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3233: (
3234: l_api_name,
3235: G_PKG_NAME,
3236: 'OKC_API.G_RET_STS_ERROR',
3232: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3233: (
3234: l_api_name,
3235: G_PKG_NAME,
3236: 'OKC_API.G_RET_STS_ERROR',
3237: x_msg_count,
3238: x_msg_data,
3239: '_PVT'
3240: );
3237: x_msg_count,
3238: x_msg_data,
3239: '_PVT'
3240: );
3241: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3242: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3243: (
3244: l_api_name,
3245: G_PKG_NAME,
3238: x_msg_data,
3239: '_PVT'
3240: );
3241: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3242: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3243: (
3244: l_api_name,
3245: G_PKG_NAME,
3246: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3242: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3243: (
3244: l_api_name,
3245: G_PKG_NAME,
3246: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3247: x_msg_count,
3248: x_msg_data,
3249: '_PVT'
3250: );
3248: x_msg_data,
3249: '_PVT'
3250: );
3251: WHEN OTHERS THEN
3252: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3253: (
3254: l_api_name,
3255: G_PKG_NAME,
3256: 'OTHERS',
3263: -- update_row for:OKL_SIF_FEES_V --
3264: -----------------------------------
3265: PROCEDURE update_row(
3266: p_api_version IN NUMBER,
3267: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3268: x_return_status OUT NOCOPY VARCHAR2,
3269: x_msg_count OUT NOCOPY NUMBER,
3270: x_msg_data OUT NOCOPY VARCHAR2,
3271: p_sfev_rec IN sfev_rec_type,
3272: x_sfev_rec OUT NOCOPY sfev_rec_type) IS
3273:
3274: l_api_version CONSTANT NUMBER := 1;
3275: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
3276: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3277: l_sfev_rec sfev_rec_type := p_sfev_rec;
3278: l_def_sfev_rec sfev_rec_type;
3279: l_sfe_rec sfe_rec_type;
3280: lx_sfe_rec sfe_rec_type;
3300: x_sfev_rec OUT NOCOPY sfev_rec_type
3301: ) RETURN VARCHAR2 IS
3302: l_sfev_rec sfev_rec_type;
3303: l_row_notfound BOOLEAN := TRUE;
3304: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3305: BEGIN
3306: x_sfev_rec := p_sfev_rec;
3307: -- Get current database values
3308: l_sfev_rec := get_rec(p_sfev_rec, l_row_notfound);
3306: x_sfev_rec := p_sfev_rec;
3307: -- Get current database values
3308: l_sfev_rec := get_rec(p_sfev_rec, l_row_notfound);
3309: IF (l_row_notfound) THEN
3310: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3311: END IF;
3312: IF (x_sfev_rec.id = OKC_API.G_MISS_NUM)
3313: THEN
3314: x_sfev_rec.id := l_sfev_rec.id;
3308: l_sfev_rec := get_rec(p_sfev_rec, l_row_notfound);
3309: IF (l_row_notfound) THEN
3310: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3311: END IF;
3312: IF (x_sfev_rec.id = OKC_API.G_MISS_NUM)
3313: THEN
3314: x_sfev_rec.id := l_sfev_rec.id;
3315: END IF;
3316: IF (x_sfev_rec.sfe_type = OKC_API.G_MISS_CHAR)
3312: IF (x_sfev_rec.id = OKC_API.G_MISS_NUM)
3313: THEN
3314: x_sfev_rec.id := l_sfev_rec.id;
3315: END IF;
3316: IF (x_sfev_rec.sfe_type = OKC_API.G_MISS_CHAR)
3317: THEN
3318: x_sfev_rec.sfe_type := l_sfev_rec.sfe_type;
3319: END IF;
3320: IF (x_sfev_rec.date_start = OKC_API.G_MISS_DATE)
3316: IF (x_sfev_rec.sfe_type = OKC_API.G_MISS_CHAR)
3317: THEN
3318: x_sfev_rec.sfe_type := l_sfev_rec.sfe_type;
3319: END IF;
3320: IF (x_sfev_rec.date_start = OKC_API.G_MISS_DATE)
3321: THEN
3322: x_sfev_rec.date_start := l_sfev_rec.date_start;
3323: END IF;
3324: IF (x_sfev_rec.date_paid = OKC_API.G_MISS_DATE)
3320: IF (x_sfev_rec.date_start = OKC_API.G_MISS_DATE)
3321: THEN
3322: x_sfev_rec.date_start := l_sfev_rec.date_start;
3323: END IF;
3324: IF (x_sfev_rec.date_paid = OKC_API.G_MISS_DATE)
3325: THEN
3326: x_sfev_rec.date_paid := l_sfev_rec.date_paid;
3327: END IF;
3328: IF (x_sfev_rec.amount = OKC_API.G_MISS_NUM)
3324: IF (x_sfev_rec.date_paid = OKC_API.G_MISS_DATE)
3325: THEN
3326: x_sfev_rec.date_paid := l_sfev_rec.date_paid;
3327: END IF;
3328: IF (x_sfev_rec.amount = OKC_API.G_MISS_NUM)
3329: THEN
3330: x_sfev_rec.amount := l_sfev_rec.amount;
3331: END IF;
3332: IF (x_sfev_rec.idc_accounting_flag = OKC_API.G_MISS_CHAR)
3328: IF (x_sfev_rec.amount = OKC_API.G_MISS_NUM)
3329: THEN
3330: x_sfev_rec.amount := l_sfev_rec.amount;
3331: END IF;
3332: IF (x_sfev_rec.idc_accounting_flag = OKC_API.G_MISS_CHAR)
3333: THEN
3334: x_sfev_rec.idc_accounting_flag := l_sfev_rec.idc_accounting_flag;
3335: END IF;
3336: IF (x_sfev_rec.income_or_expense = OKC_API.G_MISS_CHAR)
3332: IF (x_sfev_rec.idc_accounting_flag = OKC_API.G_MISS_CHAR)
3333: THEN
3334: x_sfev_rec.idc_accounting_flag := l_sfev_rec.idc_accounting_flag;
3335: END IF;
3336: IF (x_sfev_rec.income_or_expense = OKC_API.G_MISS_CHAR)
3337: THEN
3338: x_sfev_rec.income_or_expense := l_sfev_rec.income_or_expense;
3339: END IF;
3340: IF (x_sfev_rec.description = OKC_API.G_MISS_CHAR)
3336: IF (x_sfev_rec.income_or_expense = OKC_API.G_MISS_CHAR)
3337: THEN
3338: x_sfev_rec.income_or_expense := l_sfev_rec.income_or_expense;
3339: END IF;
3340: IF (x_sfev_rec.description = OKC_API.G_MISS_CHAR)
3341: THEN
3342: x_sfev_rec.description := l_sfev_rec.description;
3343: END IF;
3344: IF (x_sfev_rec.fee_index_number = OKC_API.G_MISS_NUM)
3340: IF (x_sfev_rec.description = OKC_API.G_MISS_CHAR)
3341: THEN
3342: x_sfev_rec.description := l_sfev_rec.description;
3343: END IF;
3344: IF (x_sfev_rec.fee_index_number = OKC_API.G_MISS_NUM)
3345: THEN
3346: x_sfev_rec.fee_index_number := l_sfev_rec.fee_index_number;
3347: END IF;
3348: IF (x_sfev_rec.level_index_number = OKC_API.G_MISS_NUM)
3344: IF (x_sfev_rec.fee_index_number = OKC_API.G_MISS_NUM)
3345: THEN
3346: x_sfev_rec.fee_index_number := l_sfev_rec.fee_index_number;
3347: END IF;
3348: IF (x_sfev_rec.level_index_number = OKC_API.G_MISS_NUM)
3349: THEN
3350: x_sfev_rec.level_index_number := l_sfev_rec.level_index_number;
3351: END IF;
3352: IF (x_sfev_rec.advance_or_arrears = OKC_API.G_MISS_CHAR)
3348: IF (x_sfev_rec.level_index_number = OKC_API.G_MISS_NUM)
3349: THEN
3350: x_sfev_rec.level_index_number := l_sfev_rec.level_index_number;
3351: END IF;
3352: IF (x_sfev_rec.advance_or_arrears = OKC_API.G_MISS_CHAR)
3353: THEN
3354: x_sfev_rec.advance_or_arrears := l_sfev_rec.advance_or_arrears;
3355: END IF;
3356:
3353: THEN
3354: x_sfev_rec.advance_or_arrears := l_sfev_rec.advance_or_arrears;
3355: END IF;
3356:
3357: IF (x_sfev_rec.cash_effect_yn = OKC_API.G_MISS_CHAR)
3358: THEN
3359: x_sfev_rec.cash_effect_yn := l_sfev_rec.cash_effect_yn;
3360: END IF;
3361:
3358: THEN
3359: x_sfev_rec.cash_effect_yn := l_sfev_rec.cash_effect_yn;
3360: END IF;
3361:
3362: IF (x_sfev_rec.tax_effect_yn = OKC_API.G_MISS_CHAR)
3363: THEN
3364: x_sfev_rec.tax_effect_yn := l_sfev_rec.tax_effect_yn;
3365: END IF;
3366:
3363: THEN
3364: x_sfev_rec.tax_effect_yn := l_sfev_rec.tax_effect_yn;
3365: END IF;
3366:
3367: IF (x_sfev_rec.days_in_month = OKC_API.G_MISS_CHAR)
3368: THEN
3369: x_sfev_rec.days_in_month := l_sfev_rec.days_in_month;
3370: END IF;
3371:
3368: THEN
3369: x_sfev_rec.days_in_month := l_sfev_rec.days_in_month;
3370: END IF;
3371:
3372: IF (x_sfev_rec.days_in_year = OKC_API.G_MISS_CHAR)
3373: THEN
3374: x_sfev_rec.days_in_year := l_sfev_rec.days_in_year;
3375: END IF;
3376:
3373: THEN
3374: x_sfev_rec.days_in_year := l_sfev_rec.days_in_year;
3375: END IF;
3376:
3377: IF (x_sfev_rec.balance_type_code = OKC_API.G_MISS_CHAR)
3378: THEN
3379: x_sfev_rec.balance_type_code := l_sfev_rec.balance_type_code;
3380: END IF;
3381:
3378: THEN
3379: x_sfev_rec.balance_type_code := l_sfev_rec.balance_type_code;
3380: END IF;
3381:
3382: IF (x_sfev_rec.level_type = OKC_API.G_MISS_CHAR)
3383: THEN
3384: x_sfev_rec.level_type := l_sfev_rec.level_type;
3385: END IF;
3386: IF (x_sfev_rec.lock_level_step = OKC_API.G_MISS_CHAR)
3382: IF (x_sfev_rec.level_type = OKC_API.G_MISS_CHAR)
3383: THEN
3384: x_sfev_rec.level_type := l_sfev_rec.level_type;
3385: END IF;
3386: IF (x_sfev_rec.lock_level_step = OKC_API.G_MISS_CHAR)
3387: THEN
3388: x_sfev_rec.lock_level_step := l_sfev_rec.lock_level_step;
3389: END IF;
3390: -- mvasudev, 05/13/2002
3387: THEN
3388: x_sfev_rec.lock_level_step := l_sfev_rec.lock_level_step;
3389: END IF;
3390: -- mvasudev, 05/13/2002
3391: IF (x_sfev_rec.query_level_yn = OKC_API.G_MISS_CHAR)
3392: THEN
3393: x_sfev_rec.query_level_yn := l_sfev_rec.query_level_yn;
3394: END IF;
3395: IF (x_sfev_rec.STRUCTURE = OKC_API.G_MISS_CHAR)
3391: IF (x_sfev_rec.query_level_yn = OKC_API.G_MISS_CHAR)
3392: THEN
3393: x_sfev_rec.query_level_yn := l_sfev_rec.query_level_yn;
3394: END IF;
3395: IF (x_sfev_rec.STRUCTURE = OKC_API.G_MISS_CHAR)
3396: THEN
3397: x_sfev_rec.STRUCTURE := l_sfev_rec.STRUCTURE;
3398: END IF;
3399: IF (x_sfev_rec.DAYS_IN_PERIOD = OKC_API.G_MISS_NUM)
3395: IF (x_sfev_rec.STRUCTURE = OKC_API.G_MISS_CHAR)
3396: THEN
3397: x_sfev_rec.STRUCTURE := l_sfev_rec.STRUCTURE;
3398: END IF;
3399: IF (x_sfev_rec.DAYS_IN_PERIOD = OKC_API.G_MISS_NUM)
3400: THEN
3401: x_sfev_rec.DAYS_IN_PERIOD := l_sfev_rec.DAYS_IN_PERIOD;
3402: END IF;
3403: --
3400: THEN
3401: x_sfev_rec.DAYS_IN_PERIOD := l_sfev_rec.DAYS_IN_PERIOD;
3402: END IF;
3403: --
3404: IF (x_sfev_rec.period = OKC_API.G_MISS_CHAR)
3405: THEN
3406: x_sfev_rec.period := l_sfev_rec.period;
3407:
3408: END IF;
3405: THEN
3406: x_sfev_rec.period := l_sfev_rec.period;
3407:
3408: END IF;
3409: IF (x_sfev_rec.number_of_periods = OKC_API.G_MISS_NUM)
3410: THEN
3411: x_sfev_rec.number_of_periods := l_sfev_rec.number_of_periods;
3412: END IF;
3413: IF (x_sfev_rec.level_line_number = OKC_API.G_MISS_NUM)
3409: IF (x_sfev_rec.number_of_periods = OKC_API.G_MISS_NUM)
3410: THEN
3411: x_sfev_rec.number_of_periods := l_sfev_rec.number_of_periods;
3412: END IF;
3413: IF (x_sfev_rec.level_line_number = OKC_API.G_MISS_NUM)
3414: THEN
3415: x_sfev_rec.level_line_number := l_sfev_rec.level_line_number;
3416: END IF;
3417: IF (x_sfev_rec.sif_id = OKC_API.G_MISS_NUM)
3413: IF (x_sfev_rec.level_line_number = OKC_API.G_MISS_NUM)
3414: THEN
3415: x_sfev_rec.level_line_number := l_sfev_rec.level_line_number;
3416: END IF;
3417: IF (x_sfev_rec.sif_id = OKC_API.G_MISS_NUM)
3418: THEN
3419: x_sfev_rec.sif_id := l_sfev_rec.sif_id;
3420: END IF;
3421: IF (x_sfev_rec.kle_id = OKC_API.G_MISS_NUM)
3417: IF (x_sfev_rec.sif_id = OKC_API.G_MISS_NUM)
3418: THEN
3419: x_sfev_rec.sif_id := l_sfev_rec.sif_id;
3420: END IF;
3421: IF (x_sfev_rec.kle_id = OKC_API.G_MISS_NUM)
3422: THEN
3423: x_sfev_rec.kle_id := l_sfev_rec.kle_id;
3424: END IF;
3425: IF (x_sfev_rec.sil_id = OKC_API.G_MISS_NUM)
3421: IF (x_sfev_rec.kle_id = OKC_API.G_MISS_NUM)
3422: THEN
3423: x_sfev_rec.kle_id := l_sfev_rec.kle_id;
3424: END IF;
3425: IF (x_sfev_rec.sil_id = OKC_API.G_MISS_NUM)
3426: THEN
3427: x_sfev_rec.sil_id := l_sfev_rec.sil_id;
3428: END IF;
3429: IF (x_sfev_rec.rate = OKC_API.G_MISS_NUM)
3425: IF (x_sfev_rec.sil_id = OKC_API.G_MISS_NUM)
3426: THEN
3427: x_sfev_rec.sil_id := l_sfev_rec.sil_id;
3428: END IF;
3429: IF (x_sfev_rec.rate = OKC_API.G_MISS_NUM)
3430: THEN
3431: x_sfev_rec.rate := l_sfev_rec.rate;
3432: END IF;
3433: IF (x_sfev_rec.object_version_number = OKC_API.G_MISS_NUM)
3429: IF (x_sfev_rec.rate = OKC_API.G_MISS_NUM)
3430: THEN
3431: x_sfev_rec.rate := l_sfev_rec.rate;
3432: END IF;
3433: IF (x_sfev_rec.object_version_number = OKC_API.G_MISS_NUM)
3434: THEN
3435: x_sfev_rec.object_version_number := l_sfev_rec.object_version_number;
3436: END IF;
3437: IF (x_sfev_rec.stream_interface_attribute01 = OKC_API.G_MISS_CHAR)
3433: IF (x_sfev_rec.object_version_number = OKC_API.G_MISS_NUM)
3434: THEN
3435: x_sfev_rec.object_version_number := l_sfev_rec.object_version_number;
3436: END IF;
3437: IF (x_sfev_rec.stream_interface_attribute01 = OKC_API.G_MISS_CHAR)
3438: THEN
3439: x_sfev_rec.stream_interface_attribute01 := l_sfev_rec.stream_interface_attribute01;
3440: END IF;
3441: IF (x_sfev_rec.stream_interface_attribute02 = OKC_API.G_MISS_CHAR)
3437: IF (x_sfev_rec.stream_interface_attribute01 = OKC_API.G_MISS_CHAR)
3438: THEN
3439: x_sfev_rec.stream_interface_attribute01 := l_sfev_rec.stream_interface_attribute01;
3440: END IF;
3441: IF (x_sfev_rec.stream_interface_attribute02 = OKC_API.G_MISS_CHAR)
3442: THEN
3443: x_sfev_rec.stream_interface_attribute02 := l_sfev_rec.stream_interface_attribute02;
3444: END IF;
3445: IF (x_sfev_rec.stream_interface_attribute03 = OKC_API.G_MISS_CHAR)
3441: IF (x_sfev_rec.stream_interface_attribute02 = OKC_API.G_MISS_CHAR)
3442: THEN
3443: x_sfev_rec.stream_interface_attribute02 := l_sfev_rec.stream_interface_attribute02;
3444: END IF;
3445: IF (x_sfev_rec.stream_interface_attribute03 = OKC_API.G_MISS_CHAR)
3446: THEN
3447: x_sfev_rec.stream_interface_attribute03 := l_sfev_rec.stream_interface_attribute03;
3448: END IF;
3449: IF (x_sfev_rec.stream_interface_attribute04 = OKC_API.G_MISS_CHAR)
3445: IF (x_sfev_rec.stream_interface_attribute03 = OKC_API.G_MISS_CHAR)
3446: THEN
3447: x_sfev_rec.stream_interface_attribute03 := l_sfev_rec.stream_interface_attribute03;
3448: END IF;
3449: IF (x_sfev_rec.stream_interface_attribute04 = OKC_API.G_MISS_CHAR)
3450: THEN
3451: x_sfev_rec.stream_interface_attribute04 := l_sfev_rec.stream_interface_attribute04;
3452: END IF;
3453: IF (x_sfev_rec.stream_interface_attribute05 = OKC_API.G_MISS_CHAR)
3449: IF (x_sfev_rec.stream_interface_attribute04 = OKC_API.G_MISS_CHAR)
3450: THEN
3451: x_sfev_rec.stream_interface_attribute04 := l_sfev_rec.stream_interface_attribute04;
3452: END IF;
3453: IF (x_sfev_rec.stream_interface_attribute05 = OKC_API.G_MISS_CHAR)
3454: THEN
3455: x_sfev_rec.stream_interface_attribute05 := l_sfev_rec.stream_interface_attribute05;
3456: END IF;
3457: IF (x_sfev_rec.stream_interface_attribute06 = OKC_API.G_MISS_CHAR)
3453: IF (x_sfev_rec.stream_interface_attribute05 = OKC_API.G_MISS_CHAR)
3454: THEN
3455: x_sfev_rec.stream_interface_attribute05 := l_sfev_rec.stream_interface_attribute05;
3456: END IF;
3457: IF (x_sfev_rec.stream_interface_attribute06 = OKC_API.G_MISS_CHAR)
3458: THEN
3459: x_sfev_rec.stream_interface_attribute06 := l_sfev_rec.stream_interface_attribute06;
3460: END IF;
3461: IF (x_sfev_rec.stream_interface_attribute07 = OKC_API.G_MISS_CHAR)
3457: IF (x_sfev_rec.stream_interface_attribute06 = OKC_API.G_MISS_CHAR)
3458: THEN
3459: x_sfev_rec.stream_interface_attribute06 := l_sfev_rec.stream_interface_attribute06;
3460: END IF;
3461: IF (x_sfev_rec.stream_interface_attribute07 = OKC_API.G_MISS_CHAR)
3462: THEN
3463: x_sfev_rec.stream_interface_attribute07 := l_sfev_rec.stream_interface_attribute07;
3464: END IF;
3465: IF (x_sfev_rec.stream_interface_attribute08 = OKC_API.G_MISS_CHAR)
3461: IF (x_sfev_rec.stream_interface_attribute07 = OKC_API.G_MISS_CHAR)
3462: THEN
3463: x_sfev_rec.stream_interface_attribute07 := l_sfev_rec.stream_interface_attribute07;
3464: END IF;
3465: IF (x_sfev_rec.stream_interface_attribute08 = OKC_API.G_MISS_CHAR)
3466: THEN
3467: x_sfev_rec.stream_interface_attribute08 := l_sfev_rec.stream_interface_attribute08;
3468: END IF;
3469: IF (x_sfev_rec.stream_interface_attribute09 = OKC_API.G_MISS_CHAR)
3465: IF (x_sfev_rec.stream_interface_attribute08 = OKC_API.G_MISS_CHAR)
3466: THEN
3467: x_sfev_rec.stream_interface_attribute08 := l_sfev_rec.stream_interface_attribute08;
3468: END IF;
3469: IF (x_sfev_rec.stream_interface_attribute09 = OKC_API.G_MISS_CHAR)
3470: THEN
3471: x_sfev_rec.stream_interface_attribute09 := l_sfev_rec.stream_interface_attribute09;
3472: END IF;
3473: IF (x_sfev_rec.stream_interface_attribute10 = OKC_API.G_MISS_CHAR)
3469: IF (x_sfev_rec.stream_interface_attribute09 = OKC_API.G_MISS_CHAR)
3470: THEN
3471: x_sfev_rec.stream_interface_attribute09 := l_sfev_rec.stream_interface_attribute09;
3472: END IF;
3473: IF (x_sfev_rec.stream_interface_attribute10 = OKC_API.G_MISS_CHAR)
3474: THEN
3475: x_sfev_rec.stream_interface_attribute10 := l_sfev_rec.stream_interface_attribute10;
3476: END IF;
3477: IF (x_sfev_rec.stream_interface_attribute11 = OKC_API.G_MISS_CHAR)
3473: IF (x_sfev_rec.stream_interface_attribute10 = OKC_API.G_MISS_CHAR)
3474: THEN
3475: x_sfev_rec.stream_interface_attribute10 := l_sfev_rec.stream_interface_attribute10;
3476: END IF;
3477: IF (x_sfev_rec.stream_interface_attribute11 = OKC_API.G_MISS_CHAR)
3478: THEN
3479: x_sfev_rec.stream_interface_attribute11 := l_sfev_rec.stream_interface_attribute11;
3480: END IF;
3481: IF (x_sfev_rec.stream_interface_attribute12 = OKC_API.G_MISS_CHAR)
3477: IF (x_sfev_rec.stream_interface_attribute11 = OKC_API.G_MISS_CHAR)
3478: THEN
3479: x_sfev_rec.stream_interface_attribute11 := l_sfev_rec.stream_interface_attribute11;
3480: END IF;
3481: IF (x_sfev_rec.stream_interface_attribute12 = OKC_API.G_MISS_CHAR)
3482: THEN
3483: x_sfev_rec.stream_interface_attribute12 := l_sfev_rec.stream_interface_attribute12;
3484: END IF;
3485: IF (x_sfev_rec.stream_interface_attribute13 = OKC_API.G_MISS_CHAR)
3481: IF (x_sfev_rec.stream_interface_attribute12 = OKC_API.G_MISS_CHAR)
3482: THEN
3483: x_sfev_rec.stream_interface_attribute12 := l_sfev_rec.stream_interface_attribute12;
3484: END IF;
3485: IF (x_sfev_rec.stream_interface_attribute13 = OKC_API.G_MISS_CHAR)
3486: THEN
3487: x_sfev_rec.stream_interface_attribute13 := l_sfev_rec.stream_interface_attribute13;
3488: END IF;
3489: IF (x_sfev_rec.stream_interface_attribute14 = OKC_API.G_MISS_CHAR)
3485: IF (x_sfev_rec.stream_interface_attribute13 = OKC_API.G_MISS_CHAR)
3486: THEN
3487: x_sfev_rec.stream_interface_attribute13 := l_sfev_rec.stream_interface_attribute13;
3488: END IF;
3489: IF (x_sfev_rec.stream_interface_attribute14 = OKC_API.G_MISS_CHAR)
3490: THEN
3491: x_sfev_rec.stream_interface_attribute14 := l_sfev_rec.stream_interface_attribute14;
3492: END IF;
3493: IF (x_sfev_rec.stream_interface_attribute15 = OKC_API.G_MISS_CHAR)
3489: IF (x_sfev_rec.stream_interface_attribute14 = OKC_API.G_MISS_CHAR)
3490: THEN
3491: x_sfev_rec.stream_interface_attribute14 := l_sfev_rec.stream_interface_attribute14;
3492: END IF;
3493: IF (x_sfev_rec.stream_interface_attribute15 = OKC_API.G_MISS_CHAR)
3494: THEN
3495: x_sfev_rec.stream_interface_attribute15 := l_sfev_rec.stream_interface_attribute15;
3496: END IF;
3497: IF (x_sfev_rec.stream_interface_attribute16 = OKC_API.G_MISS_CHAR)
3493: IF (x_sfev_rec.stream_interface_attribute15 = OKC_API.G_MISS_CHAR)
3494: THEN
3495: x_sfev_rec.stream_interface_attribute15 := l_sfev_rec.stream_interface_attribute15;
3496: END IF;
3497: IF (x_sfev_rec.stream_interface_attribute16 = OKC_API.G_MISS_CHAR)
3498: THEN
3499: x_sfev_rec.stream_interface_attribute16 := l_sfev_rec.stream_interface_attribute16;
3500: END IF;
3501: IF (x_sfev_rec.stream_interface_attribute17 = OKC_API.G_MISS_CHAR)
3497: IF (x_sfev_rec.stream_interface_attribute16 = OKC_API.G_MISS_CHAR)
3498: THEN
3499: x_sfev_rec.stream_interface_attribute16 := l_sfev_rec.stream_interface_attribute16;
3500: END IF;
3501: IF (x_sfev_rec.stream_interface_attribute17 = OKC_API.G_MISS_CHAR)
3502: THEN
3503: x_sfev_rec.stream_interface_attribute17 := l_sfev_rec.stream_interface_attribute17;
3504: END IF;
3505: IF (x_sfev_rec.stream_interface_attribute18 = OKC_API.G_MISS_CHAR)
3501: IF (x_sfev_rec.stream_interface_attribute17 = OKC_API.G_MISS_CHAR)
3502: THEN
3503: x_sfev_rec.stream_interface_attribute17 := l_sfev_rec.stream_interface_attribute17;
3504: END IF;
3505: IF (x_sfev_rec.stream_interface_attribute18 = OKC_API.G_MISS_CHAR)
3506: THEN
3507:
3508: x_sfev_rec.stream_interface_attribute18 := l_sfev_rec.stream_interface_attribute18;
3509: END IF;
3506: THEN
3507:
3508: x_sfev_rec.stream_interface_attribute18 := l_sfev_rec.stream_interface_attribute18;
3509: END IF;
3510: IF (x_sfev_rec.stream_interface_attribute19 = OKC_API.G_MISS_CHAR)
3511: THEN
3512: x_sfev_rec.stream_interface_attribute19 := l_sfev_rec.stream_interface_attribute19;
3513: END IF;
3514: IF (x_sfev_rec.stream_interface_attribute20 = OKC_API.G_MISS_CHAR)
3510: IF (x_sfev_rec.stream_interface_attribute19 = OKC_API.G_MISS_CHAR)
3511: THEN
3512: x_sfev_rec.stream_interface_attribute19 := l_sfev_rec.stream_interface_attribute19;
3513: END IF;
3514: IF (x_sfev_rec.stream_interface_attribute20 = OKC_API.G_MISS_CHAR)
3515: THEN
3516: x_sfev_rec.stream_interface_attribute20 := l_sfev_rec.stream_interface_attribute20;
3517: END IF;
3518: IF (x_sfev_rec.created_by = OKC_API.G_MISS_NUM)
3514: IF (x_sfev_rec.stream_interface_attribute20 = OKC_API.G_MISS_CHAR)
3515: THEN
3516: x_sfev_rec.stream_interface_attribute20 := l_sfev_rec.stream_interface_attribute20;
3517: END IF;
3518: IF (x_sfev_rec.created_by = OKC_API.G_MISS_NUM)
3519: THEN
3520: x_sfev_rec.created_by := l_sfev_rec.created_by;
3521: END IF;
3522: IF (x_sfev_rec.last_updated_by = OKC_API.G_MISS_NUM)
3518: IF (x_sfev_rec.created_by = OKC_API.G_MISS_NUM)
3519: THEN
3520: x_sfev_rec.created_by := l_sfev_rec.created_by;
3521: END IF;
3522: IF (x_sfev_rec.last_updated_by = OKC_API.G_MISS_NUM)
3523: THEN
3524: x_sfev_rec.last_updated_by := l_sfev_rec.last_updated_by;
3525: END IF;
3526: IF (x_sfev_rec.creation_date = OKC_API.G_MISS_DATE)
3522: IF (x_sfev_rec.last_updated_by = OKC_API.G_MISS_NUM)
3523: THEN
3524: x_sfev_rec.last_updated_by := l_sfev_rec.last_updated_by;
3525: END IF;
3526: IF (x_sfev_rec.creation_date = OKC_API.G_MISS_DATE)
3527: THEN
3528: x_sfev_rec.creation_date := l_sfev_rec.creation_date;
3529: END IF;
3530: IF (x_sfev_rec.last_update_date = OKC_API.G_MISS_DATE)
3526: IF (x_sfev_rec.creation_date = OKC_API.G_MISS_DATE)
3527: THEN
3528: x_sfev_rec.creation_date := l_sfev_rec.creation_date;
3529: END IF;
3530: IF (x_sfev_rec.last_update_date = OKC_API.G_MISS_DATE)
3531: THEN
3532: x_sfev_rec.last_update_date := l_sfev_rec.last_update_date;
3533: END IF;
3534: IF (x_sfev_rec.last_update_login = OKC_API.G_MISS_NUM)
3530: IF (x_sfev_rec.last_update_date = OKC_API.G_MISS_DATE)
3531: THEN
3532: x_sfev_rec.last_update_date := l_sfev_rec.last_update_date;
3533: END IF;
3534: IF (x_sfev_rec.last_update_login = OKC_API.G_MISS_NUM)
3535: THEN
3536: x_sfev_rec.last_update_login := l_sfev_rec.last_update_login;
3537: END IF;
3538: IF (x_sfev_rec.down_payment_amount = OKC_API.G_MISS_NUM)
3534: IF (x_sfev_rec.last_update_login = OKC_API.G_MISS_NUM)
3535: THEN
3536: x_sfev_rec.last_update_login := l_sfev_rec.last_update_login;
3537: END IF;
3538: IF (x_sfev_rec.down_payment_amount = OKC_API.G_MISS_NUM)
3539: THEN
3540: x_sfev_rec.down_payment_amount := l_sfev_rec.down_payment_amount;
3541: END IF;
3542: RETURN(l_return_status);
3547: FUNCTION Set_Attributes (
3548: p_sfev_rec IN sfev_rec_type,
3549: x_sfev_rec OUT NOCOPY sfev_rec_type
3550: ) RETURN VARCHAR2 IS
3551: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3552: BEGIN
3553: x_sfev_rec := p_sfev_rec;
3554: x_sfev_rec.OBJECT_VERSION_NUMBER := NVL(x_sfev_rec.OBJECT_VERSION_NUMBER, 0) + 1;
3555: RETURN(l_return_status);
3554: x_sfev_rec.OBJECT_VERSION_NUMBER := NVL(x_sfev_rec.OBJECT_VERSION_NUMBER, 0) + 1;
3555: RETURN(l_return_status);
3556: END Set_Attributes;
3557: BEGIN
3558: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3559: G_PKG_NAME,
3560: p_init_msg_list,
3561: l_api_version,
3562: p_api_version,
3561: l_api_version,
3562: p_api_version,
3563: '_PVT',
3564: x_return_status);
3565: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3566: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3567: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3568: RAISE OKC_API.G_EXCEPTION_ERROR;
3569: END IF;
3562: p_api_version,
3563: '_PVT',
3564: x_return_status);
3565: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3566: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3567: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3568: RAISE OKC_API.G_EXCEPTION_ERROR;
3569: END IF;
3570: --- Setting item attributes
3563: '_PVT',
3564: x_return_status);
3565: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3566: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3567: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3568: RAISE OKC_API.G_EXCEPTION_ERROR;
3569: END IF;
3570: --- Setting item attributes
3571: l_return_status := Set_Attributes(
3564: x_return_status);
3565: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3566: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3567: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3568: RAISE OKC_API.G_EXCEPTION_ERROR;
3569: END IF;
3570: --- Setting item attributes
3571: l_return_status := Set_Attributes(
3572: p_sfev_rec, -- IN
3571: l_return_status := Set_Attributes(
3572: p_sfev_rec, -- IN
3573: l_sfev_rec); -- OUT
3574: --- If any errors happen abort API
3575: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3576: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3577: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3578: RAISE OKC_API.G_EXCEPTION_ERROR;
3579: END IF;
3572: p_sfev_rec, -- IN
3573: l_sfev_rec); -- OUT
3574: --- If any errors happen abort API
3575: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3576: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3577: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3578: RAISE OKC_API.G_EXCEPTION_ERROR;
3579: END IF;
3580: l_return_status := populate_new_record(l_sfev_rec, l_def_sfev_rec);
3573: l_sfev_rec); -- OUT
3574: --- If any errors happen abort API
3575: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3576: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3577: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3578: RAISE OKC_API.G_EXCEPTION_ERROR;
3579: END IF;
3580: l_return_status := populate_new_record(l_sfev_rec, l_def_sfev_rec);
3581: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3574: --- If any errors happen abort API
3575: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3576: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3577: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3578: RAISE OKC_API.G_EXCEPTION_ERROR;
3579: END IF;
3580: l_return_status := populate_new_record(l_sfev_rec, l_def_sfev_rec);
3581: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3582: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3577: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3578: RAISE OKC_API.G_EXCEPTION_ERROR;
3579: END IF;
3580: l_return_status := populate_new_record(l_sfev_rec, l_def_sfev_rec);
3581: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3582: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3583: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3584: RAISE OKC_API.G_EXCEPTION_ERROR;
3585: END IF;
3578: RAISE OKC_API.G_EXCEPTION_ERROR;
3579: END IF;
3580: l_return_status := populate_new_record(l_sfev_rec, l_def_sfev_rec);
3581: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3582: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3583: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3584: RAISE OKC_API.G_EXCEPTION_ERROR;
3585: END IF;
3586: l_def_sfev_rec := fill_who_columns(l_def_sfev_rec);
3579: END IF;
3580: l_return_status := populate_new_record(l_sfev_rec, l_def_sfev_rec);
3581: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3582: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3583: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3584: RAISE OKC_API.G_EXCEPTION_ERROR;
3585: END IF;
3586: l_def_sfev_rec := fill_who_columns(l_def_sfev_rec);
3587: --- Validate all non-missing attributes (Item Level Validation)
3580: l_return_status := populate_new_record(l_sfev_rec, l_def_sfev_rec);
3581: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3582: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3583: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3584: RAISE OKC_API.G_EXCEPTION_ERROR;
3585: END IF;
3586: l_def_sfev_rec := fill_who_columns(l_def_sfev_rec);
3587: --- Validate all non-missing attributes (Item Level Validation)
3588: l_return_status := Validate_Attributes(l_def_sfev_rec);
3586: l_def_sfev_rec := fill_who_columns(l_def_sfev_rec);
3587: --- Validate all non-missing attributes (Item Level Validation)
3588: l_return_status := Validate_Attributes(l_def_sfev_rec);
3589: --- If any errors happen abort API
3590: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3591: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3592: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3593: RAISE OKC_API.G_EXCEPTION_ERROR;
3594: END IF;
3587: --- Validate all non-missing attributes (Item Level Validation)
3588: l_return_status := Validate_Attributes(l_def_sfev_rec);
3589: --- If any errors happen abort API
3590: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3591: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3592: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3593: RAISE OKC_API.G_EXCEPTION_ERROR;
3594: END IF;
3595: l_return_status := Validate_Record(l_def_sfev_rec);
3588: l_return_status := Validate_Attributes(l_def_sfev_rec);
3589: --- If any errors happen abort API
3590: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3591: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3592: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3593: RAISE OKC_API.G_EXCEPTION_ERROR;
3594: END IF;
3595: l_return_status := Validate_Record(l_def_sfev_rec);
3596: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3589: --- If any errors happen abort API
3590: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3591: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3592: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3593: RAISE OKC_API.G_EXCEPTION_ERROR;
3594: END IF;
3595: l_return_status := Validate_Record(l_def_sfev_rec);
3596: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3597: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3592: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3593: RAISE OKC_API.G_EXCEPTION_ERROR;
3594: END IF;
3595: l_return_status := Validate_Record(l_def_sfev_rec);
3596: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3597: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3598: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3599: RAISE OKC_API.G_EXCEPTION_ERROR;
3600: END IF;
3593: RAISE OKC_API.G_EXCEPTION_ERROR;
3594: END IF;
3595: l_return_status := Validate_Record(l_def_sfev_rec);
3596: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3597: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3598: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3599: RAISE OKC_API.G_EXCEPTION_ERROR;
3600: END IF;
3601:
3594: END IF;
3595: l_return_status := Validate_Record(l_def_sfev_rec);
3596: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3597: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3598: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3599: RAISE OKC_API.G_EXCEPTION_ERROR;
3600: END IF;
3601:
3602: --------------------------------------
3595: l_return_status := Validate_Record(l_def_sfev_rec);
3596: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3597: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3598: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3599: RAISE OKC_API.G_EXCEPTION_ERROR;
3600: END IF;
3601:
3602: --------------------------------------
3603: -- Move VIEW record to "Child" records
3614: x_msg_data,
3615: l_sfe_rec,
3616: lx_sfe_rec
3617: );
3618: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3619: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3620: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3621: RAISE OKC_API.G_EXCEPTION_ERROR;
3622: END IF;
3615: l_sfe_rec,
3616: lx_sfe_rec
3617: );
3618: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3619: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3620: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3621: RAISE OKC_API.G_EXCEPTION_ERROR;
3622: END IF;
3623: migrate(lx_sfe_rec, l_def_sfev_rec);
3616: lx_sfe_rec
3617: );
3618: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3619: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3620: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3621: RAISE OKC_API.G_EXCEPTION_ERROR;
3622: END IF;
3623: migrate(lx_sfe_rec, l_def_sfev_rec);
3624: x_sfev_rec := l_def_sfev_rec;
3617: );
3618: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3619: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3620: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3621: RAISE OKC_API.G_EXCEPTION_ERROR;
3622: END IF;
3623: migrate(lx_sfe_rec, l_def_sfev_rec);
3624: x_sfev_rec := l_def_sfev_rec;
3625: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3621: RAISE OKC_API.G_EXCEPTION_ERROR;
3622: END IF;
3623: migrate(lx_sfe_rec, l_def_sfev_rec);
3624: x_sfev_rec := l_def_sfev_rec;
3625: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3626: EXCEPTION
3627: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3628: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3629: (
3623: migrate(lx_sfe_rec, l_def_sfev_rec);
3624: x_sfev_rec := l_def_sfev_rec;
3625: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3626: EXCEPTION
3627: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3628: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3629: (
3630: l_api_name,
3631: G_PKG_NAME,
3624: x_sfev_rec := l_def_sfev_rec;
3625: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3626: EXCEPTION
3627: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3628: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3629: (
3630: l_api_name,
3631: G_PKG_NAME,
3632: 'OKC_API.G_RET_STS_ERROR',
3628: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3629: (
3630: l_api_name,
3631: G_PKG_NAME,
3632: 'OKC_API.G_RET_STS_ERROR',
3633: x_msg_count,
3634: x_msg_data,
3635: '_PVT'
3636: );
3633: x_msg_count,
3634: x_msg_data,
3635: '_PVT'
3636: );
3637: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3638: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3639: (
3640: l_api_name,
3641: G_PKG_NAME,
3634: x_msg_data,
3635: '_PVT'
3636: );
3637: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3638: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3639: (
3640: l_api_name,
3641: G_PKG_NAME,
3642: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3638: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3639: (
3640: l_api_name,
3641: G_PKG_NAME,
3642: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3643: x_msg_count,
3644: x_msg_data,
3645: '_PVT'
3646: );
3644: x_msg_data,
3645: '_PVT'
3646: );
3647: WHEN OTHERS THEN
3648: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3649: (
3650: l_api_name,
3651: G_PKG_NAME,
3652: 'OTHERS',
3659: -- PL/SQL TBL update_row for:SFEV_TBL --
3660: ----------------------------------------
3661: PROCEDURE update_row(
3662: p_api_version IN NUMBER,
3663: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3664: x_return_status OUT NOCOPY VARCHAR2,
3665: x_msg_count OUT NOCOPY NUMBER,
3666: x_msg_data OUT NOCOPY VARCHAR2,
3667: p_sfev_tbl IN sfev_tbl_type,
3668: x_sfev_tbl OUT NOCOPY sfev_tbl_type) IS
3669:
3670: l_api_version CONSTANT NUMBER := 1;
3671: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3672: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3673: i NUMBER := 0;
3674: -- START change : akjain, 09/05/2001
3675: -- Adding OverAll Status Flag
3676: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3672: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3673: i NUMBER := 0;
3674: -- START change : akjain, 09/05/2001
3675: -- Adding OverAll Status Flag
3676: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3677: -- END change : akjain
3678:
3679: BEGIN
3680: OKC_API.init_msg_list(p_init_msg_list);
3676: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3677: -- END change : akjain
3678:
3679: BEGIN
3680: OKC_API.init_msg_list(p_init_msg_list);
3681: -- Make sure PL/SQL table has records in it before passing
3682: IF (p_sfev_tbl.COUNT > 0) THEN
3683: i := p_sfev_tbl.FIRST;
3684: LOOP
3683: i := p_sfev_tbl.FIRST;
3684: LOOP
3685: update_row (
3686: p_api_version => p_api_version,
3687: p_init_msg_list => OKC_API.G_FALSE,
3688: x_return_status => x_return_status,
3689: x_msg_count => x_msg_count,
3690: x_msg_data => x_msg_data,
3691: p_sfev_rec => p_sfev_tbl(i),
3691: p_sfev_rec => p_sfev_tbl(i),
3692: x_sfev_rec => x_sfev_tbl(i));
3693: -- START change : akjain, 09/05/2001
3694: -- store the highest degree of error
3695: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
3696: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
3697: l_overall_status := x_return_status;
3698: END IF;
3699: END IF;
3692: x_sfev_rec => x_sfev_tbl(i));
3693: -- START change : akjain, 09/05/2001
3694: -- store the highest degree of error
3695: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
3696: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
3697: l_overall_status := x_return_status;
3698: END IF;
3699: END IF;
3700: -- END change : akjain
3706: x_return_status := l_overall_status;
3707: -- END change : akjain
3708: END IF;
3709: EXCEPTION
3710: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3711:
3712: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3713: (
3714: l_api_name,
3708: END IF;
3709: EXCEPTION
3710: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3711:
3712: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3713: (
3714: l_api_name,
3715: G_PKG_NAME,
3716: 'OKC_API.G_RET_STS_ERROR',
3712: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3713: (
3714: l_api_name,
3715: G_PKG_NAME,
3716: 'OKC_API.G_RET_STS_ERROR',
3717: x_msg_count,
3718: x_msg_data,
3719: '_PVT'
3720: );
3717: x_msg_count,
3718: x_msg_data,
3719: '_PVT'
3720: );
3721: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3722: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3723: (
3724: l_api_name,
3725: G_PKG_NAME,
3718: x_msg_data,
3719: '_PVT'
3720: );
3721: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3722: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3723: (
3724: l_api_name,
3725: G_PKG_NAME,
3726: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3722: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3723: (
3724: l_api_name,
3725: G_PKG_NAME,
3726: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3727: x_msg_count,
3728: x_msg_data,
3729: '_PVT'
3730: );
3728: x_msg_data,
3729: '_PVT'
3730: );
3731: WHEN OTHERS THEN
3732: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3733: (
3734: l_api_name,
3735: G_PKG_NAME,
3736: 'OTHERS',
3746: ---------------------------------
3747: -- delete_row for:OKL_SIF_FEES --
3748: ---------------------------------
3749: PROCEDURE delete_row(
3750: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3751: x_return_status OUT NOCOPY VARCHAR2,
3752: x_msg_count OUT NOCOPY NUMBER,
3753: x_msg_data OUT NOCOPY VARCHAR2,
3754: p_sfe_rec IN sfe_rec_type) IS
3754: p_sfe_rec IN sfe_rec_type) IS
3755:
3756: l_api_version CONSTANT NUMBER := 1;
3757: l_api_name CONSTANT VARCHAR2(30) := 'FEES_delete_row';
3758: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3759: l_sfe_rec sfe_rec_type:= p_sfe_rec;
3760: l_row_notfound BOOLEAN := TRUE;
3761: BEGIN
3762: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3758: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3759: l_sfe_rec sfe_rec_type:= p_sfe_rec;
3760: l_row_notfound BOOLEAN := TRUE;
3761: BEGIN
3762: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3763: p_init_msg_list,
3764: '_PVT',
3765: x_return_status);
3766: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3762: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3763: p_init_msg_list,
3764: '_PVT',
3765: x_return_status);
3766: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3767: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3768: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3769: RAISE OKC_API.G_EXCEPTION_ERROR;
3770: END IF;
3763: p_init_msg_list,
3764: '_PVT',
3765: x_return_status);
3766: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3767: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3768: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3769: RAISE OKC_API.G_EXCEPTION_ERROR;
3770: END IF;
3771: DELETE FROM OKL_SIF_FEES
3764: '_PVT',
3765: x_return_status);
3766: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3767: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3768: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3769: RAISE OKC_API.G_EXCEPTION_ERROR;
3770: END IF;
3771: DELETE FROM OKL_SIF_FEES
3772: WHERE ID = l_sfe_rec.id;
3765: x_return_status);
3766: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3767: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3768: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3769: RAISE OKC_API.G_EXCEPTION_ERROR;
3770: END IF;
3771: DELETE FROM OKL_SIF_FEES
3772: WHERE ID = l_sfe_rec.id;
3773:
3770: END IF;
3771: DELETE FROM OKL_SIF_FEES
3772: WHERE ID = l_sfe_rec.id;
3773:
3774: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3775: EXCEPTION
3776: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3777: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3778: (
3772: WHERE ID = l_sfe_rec.id;
3773:
3774: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3775: EXCEPTION
3776: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3777: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3778: (
3779: l_api_name,
3780: G_PKG_NAME,
3773:
3774: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3775: EXCEPTION
3776: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3777: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3778: (
3779: l_api_name,
3780: G_PKG_NAME,
3781: 'OKC_API.G_RET_STS_ERROR',
3777: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3778: (
3779: l_api_name,
3780: G_PKG_NAME,
3781: 'OKC_API.G_RET_STS_ERROR',
3782: x_msg_count,
3783: x_msg_data,
3784: '_PVT'
3785: );
3782: x_msg_count,
3783: x_msg_data,
3784: '_PVT'
3785: );
3786: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3787: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3788: (
3789: l_api_name,
3790: G_PKG_NAME,
3783: x_msg_data,
3784: '_PVT'
3785: );
3786: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3787: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3788: (
3789: l_api_name,
3790: G_PKG_NAME,
3791: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3787: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3788: (
3789: l_api_name,
3790: G_PKG_NAME,
3791: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3792: x_msg_count,
3793: x_msg_data,
3794: '_PVT'
3795: );
3793: x_msg_data,
3794: '_PVT'
3795: );
3796: WHEN OTHERS THEN
3797: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3798: (
3799: l_api_name,
3800: G_PKG_NAME,
3801: 'OTHERS',
3809: -----------------------------------
3810: PROCEDURE delete_row(
3811:
3812: p_api_version IN NUMBER,
3813: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3814: x_return_status OUT NOCOPY VARCHAR2,
3815: x_msg_count OUT NOCOPY NUMBER,
3816: x_msg_data OUT NOCOPY VARCHAR2,
3817: p_sfev_rec IN sfev_rec_type) IS
3817: p_sfev_rec IN sfev_rec_type) IS
3818:
3819: l_api_version CONSTANT NUMBER := 1;
3820: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
3821: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3822: l_sfev_rec sfev_rec_type := p_sfev_rec;
3823: l_sfe_rec sfe_rec_type;
3824: BEGIN
3825: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3821: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3822: l_sfev_rec sfev_rec_type := p_sfev_rec;
3823: l_sfe_rec sfe_rec_type;
3824: BEGIN
3825: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3826: G_PKG_NAME,
3827: p_init_msg_list,
3828: l_api_version,
3829: p_api_version,
3828: l_api_version,
3829: p_api_version,
3830: '_PVT',
3831: x_return_status);
3832: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3833: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3834: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3835: RAISE OKC_API.G_EXCEPTION_ERROR;
3836: END IF;
3829: p_api_version,
3830: '_PVT',
3831: x_return_status);
3832: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3833: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3834: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3835: RAISE OKC_API.G_EXCEPTION_ERROR;
3836: END IF;
3837: --------------------------------------
3830: '_PVT',
3831: x_return_status);
3832: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3833: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3834: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3835: RAISE OKC_API.G_EXCEPTION_ERROR;
3836: END IF;
3837: --------------------------------------
3838: -- Move VIEW record to "Child" records
3831: x_return_status);
3832: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3833: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3834: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3835: RAISE OKC_API.G_EXCEPTION_ERROR;
3836: END IF;
3837: --------------------------------------
3838: -- Move VIEW record to "Child" records
3839: --------------------------------------
3847: x_msg_count,
3848: x_msg_data,
3849: l_sfe_rec
3850: );
3851: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3852: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3853: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3854: RAISE OKC_API.G_EXCEPTION_ERROR;
3855: END IF;
3848: x_msg_data,
3849: l_sfe_rec
3850: );
3851: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3852: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3853: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3854: RAISE OKC_API.G_EXCEPTION_ERROR;
3855: END IF;
3856: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3849: l_sfe_rec
3850: );
3851: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3852: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3853: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3854: RAISE OKC_API.G_EXCEPTION_ERROR;
3855: END IF;
3856: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3857: EXCEPTION
3850: );
3851: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3852: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3853: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3854: RAISE OKC_API.G_EXCEPTION_ERROR;
3855: END IF;
3856: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3857: EXCEPTION
3858: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3852: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3853: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3854: RAISE OKC_API.G_EXCEPTION_ERROR;
3855: END IF;
3856: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3857: EXCEPTION
3858: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3859: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3860: (
3854: RAISE OKC_API.G_EXCEPTION_ERROR;
3855: END IF;
3856: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3857: EXCEPTION
3858: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3859: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3860: (
3861: l_api_name,
3862: G_PKG_NAME,
3855: END IF;
3856: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3857: EXCEPTION
3858: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3859: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3860: (
3861: l_api_name,
3862: G_PKG_NAME,
3863: 'OKC_API.G_RET_STS_ERROR',
3859: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3860: (
3861: l_api_name,
3862: G_PKG_NAME,
3863: 'OKC_API.G_RET_STS_ERROR',
3864: x_msg_count,
3865: x_msg_data,
3866: '_PVT'
3867: );
3864: x_msg_count,
3865: x_msg_data,
3866: '_PVT'
3867: );
3868: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3869: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3870: (
3871: l_api_name,
3872: G_PKG_NAME,
3865: x_msg_data,
3866: '_PVT'
3867: );
3868: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3869: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3870: (
3871: l_api_name,
3872: G_PKG_NAME,
3873: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3869: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3870: (
3871: l_api_name,
3872: G_PKG_NAME,
3873: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3874: x_msg_count,
3875: x_msg_data,
3876: '_PVT'
3877: );
3875: x_msg_data,
3876: '_PVT'
3877: );
3878: WHEN OTHERS THEN
3879: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3880: (
3881: l_api_name,
3882: G_PKG_NAME,
3883: 'OTHERS',
3890: -- PL/SQL TBL delete_row for:SFEV_TBL --
3891: ----------------------------------------
3892: PROCEDURE delete_row(
3893: p_api_version IN NUMBER,
3894: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3895: x_return_status OUT NOCOPY VARCHAR2,
3896: x_msg_count OUT NOCOPY NUMBER,
3897: x_msg_data OUT NOCOPY VARCHAR2,
3898: p_sfev_tbl IN sfev_tbl_type) IS
3898: p_sfev_tbl IN sfev_tbl_type) IS
3899:
3900: l_api_version CONSTANT NUMBER := 1;
3901: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3902: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3903: i NUMBER := 0;
3904: -- START change : akjain, 09/05/2001
3905: -- Adding OverAll Status Flag
3906: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3902: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3903: i NUMBER := 0;
3904: -- START change : akjain, 09/05/2001
3905: -- Adding OverAll Status Flag
3906: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3907: -- END change : akjain
3908:
3909: BEGIN
3910: OKC_API.init_msg_list(p_init_msg_list);
3906: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3907: -- END change : akjain
3908:
3909: BEGIN
3910: OKC_API.init_msg_list(p_init_msg_list);
3911:
3912: -- Make sure PL/SQL table has records in it before passing
3913: IF (p_sfev_tbl.COUNT > 0) THEN
3914: i := p_sfev_tbl.FIRST;
3914: i := p_sfev_tbl.FIRST;
3915: LOOP
3916: delete_row (
3917: p_api_version => p_api_version,
3918: p_init_msg_list => OKC_API.G_FALSE,
3919: x_return_status => x_return_status,
3920: x_msg_count => x_msg_count,
3921: x_msg_data => x_msg_data,
3922: p_sfev_rec => p_sfev_tbl(i));
3921: x_msg_data => x_msg_data,
3922: p_sfev_rec => p_sfev_tbl(i));
3923: -- START change : akjain, 09/05/2001
3924: -- store the highest degree of error
3925: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
3926: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
3927: l_overall_status := x_return_status;
3928: END IF;
3929: END IF;
3922: p_sfev_rec => p_sfev_tbl(i));
3923: -- START change : akjain, 09/05/2001
3924: -- store the highest degree of error
3925: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
3926: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
3927: l_overall_status := x_return_status;
3928: END IF;
3929: END IF;
3930: -- END change : akjain
3936: x_return_status := l_overall_status;
3937: -- END change : akjain
3938: END IF;
3939: EXCEPTION
3940: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3941: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3942: (
3943: l_api_name,
3944: G_PKG_NAME,
3937: -- END change : akjain
3938: END IF;
3939: EXCEPTION
3940: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3941: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3942: (
3943: l_api_name,
3944: G_PKG_NAME,
3945: 'OKC_API.G_RET_STS_ERROR',
3941: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3942: (
3943: l_api_name,
3944: G_PKG_NAME,
3945: 'OKC_API.G_RET_STS_ERROR',
3946: x_msg_count,
3947: x_msg_data,
3948: '_PVT'
3949: );
3946: x_msg_count,
3947: x_msg_data,
3948: '_PVT'
3949: );
3950: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3951: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3952: (
3953: l_api_name,
3954: G_PKG_NAME,
3947: x_msg_data,
3948: '_PVT'
3949: );
3950: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3951: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3952: (
3953: l_api_name,
3954: G_PKG_NAME,
3955: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3951: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3952: (
3953: l_api_name,
3954: G_PKG_NAME,
3955: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3956: x_msg_count,
3957: x_msg_data,
3958: '_PVT'
3959: );
3957: x_msg_data,
3958: '_PVT'
3959: );
3960: WHEN OTHERS THEN
3961: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3962: (
3963: l_api_name,
3964: G_PKG_NAME,
3965: 'OTHERS',