[Home] [Help]
414: okc_debug.Set_Indentation('OKC_PAT_PVT');
415: okc_debug.log('900: Entered null_out_defaults', 2);
416: END IF;
417:
418: IF (l_patv_rec.pat_id = OKC_API.G_MISS_NUM) THEN
419: l_patv_rec.pat_id := NULL;
420: END IF;
421: IF (l_patv_rec.chr_id = OKC_API.G_MISS_NUM) THEN
422: l_patv_rec.chr_id := NULL;
417:
418: IF (l_patv_rec.pat_id = OKC_API.G_MISS_NUM) THEN
419: l_patv_rec.pat_id := NULL;
420: END IF;
421: IF (l_patv_rec.chr_id = OKC_API.G_MISS_NUM) THEN
422: l_patv_rec.chr_id := NULL;
423: END IF;
424: IF (l_patv_rec.cle_id = OKC_API.G_MISS_NUM) THEN
425: l_patv_rec.cle_id := NULL;
420: END IF;
421: IF (l_patv_rec.chr_id = OKC_API.G_MISS_NUM) THEN
422: l_patv_rec.chr_id := NULL;
423: END IF;
424: IF (l_patv_rec.cle_id = OKC_API.G_MISS_NUM) THEN
425: l_patv_rec.cle_id := NULL;
426: END IF;
427: IF (l_patv_rec.bsl_id = OKC_API.G_MISS_NUM) THEN
428: l_patv_rec.bsl_id := NULL;
423: END IF;
424: IF (l_patv_rec.cle_id = OKC_API.G_MISS_NUM) THEN
425: l_patv_rec.cle_id := NULL;
426: END IF;
427: IF (l_patv_rec.bsl_id = OKC_API.G_MISS_NUM) THEN
428: l_patv_rec.bsl_id := NULL;
429: END IF;
430: IF (l_patv_rec.bcl_id = OKC_API.G_MISS_NUM) THEN
431: l_patv_rec.bcl_id := NULL;
426: END IF;
427: IF (l_patv_rec.bsl_id = OKC_API.G_MISS_NUM) THEN
428: l_patv_rec.bsl_id := NULL;
429: END IF;
430: IF (l_patv_rec.bcl_id = OKC_API.G_MISS_NUM) THEN
431: l_patv_rec.bcl_id := NULL;
432: END IF;
433: IF (l_patv_rec.modified_from = OKC_API.G_MISS_NUM) THEN
434: l_patv_rec.modified_from := NULL;
429: END IF;
430: IF (l_patv_rec.bcl_id = OKC_API.G_MISS_NUM) THEN
431: l_patv_rec.bcl_id := NULL;
432: END IF;
433: IF (l_patv_rec.modified_from = OKC_API.G_MISS_NUM) THEN
434: l_patv_rec.modified_from := NULL;
435: END IF;
436: IF (l_patv_rec.modified_to = OKC_API.G_MISS_NUM) THEN
437: l_patv_rec.modified_to := NULL;
432: END IF;
433: IF (l_patv_rec.modified_from = OKC_API.G_MISS_NUM) THEN
434: l_patv_rec.modified_from := NULL;
435: END IF;
436: IF (l_patv_rec.modified_to = OKC_API.G_MISS_NUM) THEN
437: l_patv_rec.modified_to := NULL;
438: END IF;
439: IF (l_patv_rec.modifier_mechanism_type_code = OKC_API.G_MISS_CHAR) THEN
440: l_patv_rec.modifier_mechanism_type_code := NULL;
435: END IF;
436: IF (l_patv_rec.modified_to = OKC_API.G_MISS_NUM) THEN
437: l_patv_rec.modified_to := NULL;
438: END IF;
439: IF (l_patv_rec.modifier_mechanism_type_code = OKC_API.G_MISS_CHAR) THEN
440: l_patv_rec.modifier_mechanism_type_code := NULL;
441: END IF;
442: IF (l_patv_rec.operand = OKC_API.G_MISS_NUM) THEN
443: l_patv_rec.operand := NULL;
438: END IF;
439: IF (l_patv_rec.modifier_mechanism_type_code = OKC_API.G_MISS_CHAR) THEN
440: l_patv_rec.modifier_mechanism_type_code := NULL;
441: END IF;
442: IF (l_patv_rec.operand = OKC_API.G_MISS_NUM) THEN
443: l_patv_rec.operand := NULL;
444: END IF;
445: IF (l_patv_rec.arithmetic_operator = OKC_API.G_MISS_CHAR) THEN
446: l_patv_rec.arithmetic_operator := NULL;
441: END IF;
442: IF (l_patv_rec.operand = OKC_API.G_MISS_NUM) THEN
443: l_patv_rec.operand := NULL;
444: END IF;
445: IF (l_patv_rec.arithmetic_operator = OKC_API.G_MISS_CHAR) THEN
446: l_patv_rec.arithmetic_operator := NULL;
447: END IF;
448: IF (l_patv_rec.automatic_flag = OKC_API.G_MISS_CHAR) THEN
449: l_patv_rec.automatic_flag := NULL;
444: END IF;
445: IF (l_patv_rec.arithmetic_operator = OKC_API.G_MISS_CHAR) THEN
446: l_patv_rec.arithmetic_operator := NULL;
447: END IF;
448: IF (l_patv_rec.automatic_flag = OKC_API.G_MISS_CHAR) THEN
449: l_patv_rec.automatic_flag := NULL;
450: END IF;
451: IF (l_patv_rec.update_allowed = OKC_API.G_MISS_CHAR) THEN
452: l_patv_rec.update_allowed := NULL;
447: END IF;
448: IF (l_patv_rec.automatic_flag = OKC_API.G_MISS_CHAR) THEN
449: l_patv_rec.automatic_flag := NULL;
450: END IF;
451: IF (l_patv_rec.update_allowed = OKC_API.G_MISS_CHAR) THEN
452: l_patv_rec.update_allowed := NULL;
453: END IF;
454: IF (l_patv_rec.updated_flag = OKC_API.G_MISS_CHAR) THEN
455: l_patv_rec.updated_flag := NULL;
450: END IF;
451: IF (l_patv_rec.update_allowed = OKC_API.G_MISS_CHAR) THEN
452: l_patv_rec.update_allowed := NULL;
453: END IF;
454: IF (l_patv_rec.updated_flag = OKC_API.G_MISS_CHAR) THEN
455: l_patv_rec.updated_flag := NULL;
456: END IF;
457: IF (l_patv_rec.applied_flag = OKC_API.G_MISS_CHAR) THEN
458: l_patv_rec.applied_flag := NULL;
453: END IF;
454: IF (l_patv_rec.updated_flag = OKC_API.G_MISS_CHAR) THEN
455: l_patv_rec.updated_flag := NULL;
456: END IF;
457: IF (l_patv_rec.applied_flag = OKC_API.G_MISS_CHAR) THEN
458: l_patv_rec.applied_flag := NULL;
459: END IF;
460: IF (l_patv_rec.on_invoice_flag = OKC_API.G_MISS_CHAR) THEN
461: l_patv_rec.on_invoice_flag := NULL;
456: END IF;
457: IF (l_patv_rec.applied_flag = OKC_API.G_MISS_CHAR) THEN
458: l_patv_rec.applied_flag := NULL;
459: END IF;
460: IF (l_patv_rec.on_invoice_flag = OKC_API.G_MISS_CHAR) THEN
461: l_patv_rec.on_invoice_flag := NULL;
462: END IF;
463: IF (l_patv_rec.pricing_phase_id = OKC_API.G_MISS_NUM) THEN
464: l_patv_rec.pricing_phase_id := NULL;
459: END IF;
460: IF (l_patv_rec.on_invoice_flag = OKC_API.G_MISS_CHAR) THEN
461: l_patv_rec.on_invoice_flag := NULL;
462: END IF;
463: IF (l_patv_rec.pricing_phase_id = OKC_API.G_MISS_NUM) THEN
464: l_patv_rec.pricing_phase_id := NULL;
465: END IF;
466: IF (l_patv_rec.context = OKC_API.G_MISS_CHAR) THEN
467: l_patv_rec.context := NULL;
462: END IF;
463: IF (l_patv_rec.pricing_phase_id = OKC_API.G_MISS_NUM) THEN
464: l_patv_rec.pricing_phase_id := NULL;
465: END IF;
466: IF (l_patv_rec.context = OKC_API.G_MISS_CHAR) THEN
467: l_patv_rec.context := NULL;
468: END IF;
469:
470: IF (l_patv_rec.program_application_id = OKC_API.G_MISS_NUM) THEN
466: IF (l_patv_rec.context = OKC_API.G_MISS_CHAR) THEN
467: l_patv_rec.context := NULL;
468: END IF;
469:
470: IF (l_patv_rec.program_application_id = OKC_API.G_MISS_NUM) THEN
471: l_patv_rec.program_application_id := NULL;
472: END IF;
473: IF (l_patv_rec.program_id = OKC_API.G_MISS_NUM) THEN
474: l_patv_rec.program_id := NULL;
469:
470: IF (l_patv_rec.program_application_id = OKC_API.G_MISS_NUM) THEN
471: l_patv_rec.program_application_id := NULL;
472: END IF;
473: IF (l_patv_rec.program_id = OKC_API.G_MISS_NUM) THEN
474: l_patv_rec.program_id := NULL;
475: END IF;
476: IF(l_patv_rec.program_update_date = OKC_API.G_MISS_DATE) THEN
477: l_patv_rec.program_update_date := NULL;
472: END IF;
473: IF (l_patv_rec.program_id = OKC_API.G_MISS_NUM) THEN
474: l_patv_rec.program_id := NULL;
475: END IF;
476: IF(l_patv_rec.program_update_date = OKC_API.G_MISS_DATE) THEN
477: l_patv_rec.program_update_date := NULL;
478: END IF;
479: IF (l_patv_rec.request_id= OKC_API.G_MISS_NUM) THEN
480: l_patv_rec.request_id := NULL;
475: END IF;
476: IF(l_patv_rec.program_update_date = OKC_API.G_MISS_DATE) THEN
477: l_patv_rec.program_update_date := NULL;
478: END IF;
479: IF (l_patv_rec.request_id= OKC_API.G_MISS_NUM) THEN
480: l_patv_rec.request_id := NULL;
481: END IF;
482: IF (l_patv_rec.list_header_id = OKC_API.G_MISS_NUM) THEN
483: l_patv_rec.list_header_id := NULL;
478: END IF;
479: IF (l_patv_rec.request_id= OKC_API.G_MISS_NUM) THEN
480: l_patv_rec.request_id := NULL;
481: END IF;
482: IF (l_patv_rec.list_header_id = OKC_API.G_MISS_NUM) THEN
483: l_patv_rec.list_header_id := NULL;
484: END IF;
485:
486: IF (l_patv_rec.list_line_id = OKC_API.G_MISS_NUM) THEN
482: IF (l_patv_rec.list_header_id = OKC_API.G_MISS_NUM) THEN
483: l_patv_rec.list_header_id := NULL;
484: END IF;
485:
486: IF (l_patv_rec.list_line_id = OKC_API.G_MISS_NUM) THEN
487: l_patv_rec.list_line_id := NULL;
488: END IF;
489: IF (l_patv_rec.list_line_type_code = OKC_API.G_MISS_CHAR) THEN
490: l_patv_rec.list_line_type_code := NULL;
485:
486: IF (l_patv_rec.list_line_id = OKC_API.G_MISS_NUM) THEN
487: l_patv_rec.list_line_id := NULL;
488: END IF;
489: IF (l_patv_rec.list_line_type_code = OKC_API.G_MISS_CHAR) THEN
490: l_patv_rec.list_line_type_code := NULL;
491: END IF;
492: IF (l_patv_rec.change_reason_code = OKC_API.G_MISS_CHAR) THEN
493: l_patv_rec.change_reason_code := NULL;
488: END IF;
489: IF (l_patv_rec.list_line_type_code = OKC_API.G_MISS_CHAR) THEN
490: l_patv_rec.list_line_type_code := NULL;
491: END IF;
492: IF (l_patv_rec.change_reason_code = OKC_API.G_MISS_CHAR) THEN
493: l_patv_rec.change_reason_code := NULL;
494: END IF;
495: IF (l_patv_rec.change_reason_text = OKC_API.G_MISS_CHAR) THEN
496: l_patv_rec.change_reason_text := NULL;
491: END IF;
492: IF (l_patv_rec.change_reason_code = OKC_API.G_MISS_CHAR) THEN
493: l_patv_rec.change_reason_code := NULL;
494: END IF;
495: IF (l_patv_rec.change_reason_text = OKC_API.G_MISS_CHAR) THEN
496: l_patv_rec.change_reason_text := NULL;
497: END IF;
498: IF (l_patv_rec.estimated_flag = OKC_API.G_MISS_CHAR) THEN
499: l_patv_rec.estimated_flag := NULL;
494: END IF;
495: IF (l_patv_rec.change_reason_text = OKC_API.G_MISS_CHAR) THEN
496: l_patv_rec.change_reason_text := NULL;
497: END IF;
498: IF (l_patv_rec.estimated_flag = OKC_API.G_MISS_CHAR) THEN
499: l_patv_rec.estimated_flag := NULL;
500: END IF;
501: IF(l_patv_rec.adjusted_amount = OKC_API.G_MISS_NUM) THEN
502: l_patv_rec.adjusted_amount := NULL;
497: END IF;
498: IF (l_patv_rec.estimated_flag = OKC_API.G_MISS_CHAR) THEN
499: l_patv_rec.estimated_flag := NULL;
500: END IF;
501: IF(l_patv_rec.adjusted_amount = OKC_API.G_MISS_NUM) THEN
502: l_patv_rec.adjusted_amount := NULL;
503: END IF;
504: IF (l_patv_rec.charge_type_code = OKC_API.G_MISS_CHAR) THEN
505: l_patv_rec.charge_type_code := NULL;
500: END IF;
501: IF(l_patv_rec.adjusted_amount = OKC_API.G_MISS_NUM) THEN
502: l_patv_rec.adjusted_amount := NULL;
503: END IF;
504: IF (l_patv_rec.charge_type_code = OKC_API.G_MISS_CHAR) THEN
505: l_patv_rec.charge_type_code := NULL;
506: END IF;
507: IF(l_patv_rec.charge_subtype_code = OKC_API.G_MISS_CHAR) THEN
508: l_patv_rec.charge_subtype_code := NULL;
503: END IF;
504: IF (l_patv_rec.charge_type_code = OKC_API.G_MISS_CHAR) THEN
505: l_patv_rec.charge_type_code := NULL;
506: END IF;
507: IF(l_patv_rec.charge_subtype_code = OKC_API.G_MISS_CHAR) THEN
508: l_patv_rec.charge_subtype_code := NULL;
509: END IF;
510: IF (l_patv_rec.range_break_quantity = OKC_API.G_MISS_NUM) THEN
511: l_patv_rec.range_break_quantity := NULL;
506: END IF;
507: IF(l_patv_rec.charge_subtype_code = OKC_API.G_MISS_CHAR) THEN
508: l_patv_rec.charge_subtype_code := NULL;
509: END IF;
510: IF (l_patv_rec.range_break_quantity = OKC_API.G_MISS_NUM) THEN
511: l_patv_rec.range_break_quantity := NULL;
512: END IF;
513: IF (l_patv_rec.accrual_conversion_rate = OKC_API.G_MISS_NUM) THEN
514: l_patv_rec.accrual_conversion_rate := NULL;
509: END IF;
510: IF (l_patv_rec.range_break_quantity = OKC_API.G_MISS_NUM) THEN
511: l_patv_rec.range_break_quantity := NULL;
512: END IF;
513: IF (l_patv_rec.accrual_conversion_rate = OKC_API.G_MISS_NUM) THEN
514: l_patv_rec.accrual_conversion_rate := NULL;
515: END IF;
516: IF (l_patv_rec.pricing_group_sequence = OKC_API.G_MISS_NUM) THEN
517: l_patv_rec.pricing_group_sequence := NULL;
512: END IF;
513: IF (l_patv_rec.accrual_conversion_rate = OKC_API.G_MISS_NUM) THEN
514: l_patv_rec.accrual_conversion_rate := NULL;
515: END IF;
516: IF (l_patv_rec.pricing_group_sequence = OKC_API.G_MISS_NUM) THEN
517: l_patv_rec.pricing_group_sequence := NULL;
518: END IF;
519: IF(l_patv_rec.accrual_flag = OKC_API.G_MISS_CHAR) THEN
520: l_patv_rec.accrual_flag := NULL;
515: END IF;
516: IF (l_patv_rec.pricing_group_sequence = OKC_API.G_MISS_NUM) THEN
517: l_patv_rec.pricing_group_sequence := NULL;
518: END IF;
519: IF(l_patv_rec.accrual_flag = OKC_API.G_MISS_CHAR) THEN
520: l_patv_rec.accrual_flag := NULL;
521: END IF;
522: IF(l_patv_rec.list_line_no = OKC_API.G_MISS_CHAR) THEN
523: l_patv_rec.list_line_no := NULL;
518: END IF;
519: IF(l_patv_rec.accrual_flag = OKC_API.G_MISS_CHAR) THEN
520: l_patv_rec.accrual_flag := NULL;
521: END IF;
522: IF(l_patv_rec.list_line_no = OKC_API.G_MISS_CHAR) THEN
523: l_patv_rec.list_line_no := NULL;
524: END IF;
525: IF (l_patv_rec.source_system_code = OKC_API.G_MISS_CHAR) THEN
526: l_patv_rec.source_system_code := NULL;
521: END IF;
522: IF(l_patv_rec.list_line_no = OKC_API.G_MISS_CHAR) THEN
523: l_patv_rec.list_line_no := NULL;
524: END IF;
525: IF (l_patv_rec.source_system_code = OKC_API.G_MISS_CHAR) THEN
526: l_patv_rec.source_system_code := NULL;
527: END IF;
528: IF (l_patv_rec.benefit_qty = OKC_API.G_MISS_NUM) THEN
529: l_patv_rec.benefit_qty := NULL;
524: END IF;
525: IF (l_patv_rec.source_system_code = OKC_API.G_MISS_CHAR) THEN
526: l_patv_rec.source_system_code := NULL;
527: END IF;
528: IF (l_patv_rec.benefit_qty = OKC_API.G_MISS_NUM) THEN
529: l_patv_rec.benefit_qty := NULL;
530: END IF;
531: IF (l_patv_rec.benefit_uom_code = OKC_API.G_MISS_CHAR) THEN
532: l_patv_rec.benefit_uom_code := NULL;
527: END IF;
528: IF (l_patv_rec.benefit_qty = OKC_API.G_MISS_NUM) THEN
529: l_patv_rec.benefit_qty := NULL;
530: END IF;
531: IF (l_patv_rec.benefit_uom_code = OKC_API.G_MISS_CHAR) THEN
532: l_patv_rec.benefit_uom_code := NULL;
533: END IF;
534: IF (l_patv_rec.expiration_date = OKC_API.G_MISS_DATE) THEN
535: l_patv_rec.expiration_date := NULL;
530: END IF;
531: IF (l_patv_rec.benefit_uom_code = OKC_API.G_MISS_CHAR) THEN
532: l_patv_rec.benefit_uom_code := NULL;
533: END IF;
534: IF (l_patv_rec.expiration_date = OKC_API.G_MISS_DATE) THEN
535: l_patv_rec.expiration_date := NULL;
536: END IF;
537: IF (l_patv_rec.modifier_level_code = OKC_API.G_MISS_CHAR) THEN
538: l_patv_rec.modifier_level_code := NULL;
533: END IF;
534: IF (l_patv_rec.expiration_date = OKC_API.G_MISS_DATE) THEN
535: l_patv_rec.expiration_date := NULL;
536: END IF;
537: IF (l_patv_rec.modifier_level_code = OKC_API.G_MISS_CHAR) THEN
538: l_patv_rec.modifier_level_code := NULL;
539: END IF;
540: IF (l_patv_rec.price_break_type_code = OKC_API.G_MISS_CHAR) THEN
541: l_patv_rec.price_break_type_code := NULL;
536: END IF;
537: IF (l_patv_rec.modifier_level_code = OKC_API.G_MISS_CHAR) THEN
538: l_patv_rec.modifier_level_code := NULL;
539: END IF;
540: IF (l_patv_rec.price_break_type_code = OKC_API.G_MISS_CHAR) THEN
541: l_patv_rec.price_break_type_code := NULL;
542: END IF;
543: IF (l_patv_rec.substitution_attribute = OKC_API.G_MISS_CHAR) THEN
544: l_patv_rec.substitution_attribute := NULL;
539: END IF;
540: IF (l_patv_rec.price_break_type_code = OKC_API.G_MISS_CHAR) THEN
541: l_patv_rec.price_break_type_code := NULL;
542: END IF;
543: IF (l_patv_rec.substitution_attribute = OKC_API.G_MISS_CHAR) THEN
544: l_patv_rec.substitution_attribute := NULL;
545: END IF;
546: IF (l_patv_rec.proration_type_code = OKC_API.G_MISS_CHAR) THEN
547: l_patv_rec.proration_type_code := NULL;
542: END IF;
543: IF (l_patv_rec.substitution_attribute = OKC_API.G_MISS_CHAR) THEN
544: l_patv_rec.substitution_attribute := NULL;
545: END IF;
546: IF (l_patv_rec.proration_type_code = OKC_API.G_MISS_CHAR) THEN
547: l_patv_rec.proration_type_code := NULL;
548: END IF;
549: IF (l_patv_rec.include_on_returns_flag = OKC_API.G_MISS_CHAR) THEN
550: l_patv_rec.include_on_returns_flag := NULL;
545: END IF;
546: IF (l_patv_rec.proration_type_code = OKC_API.G_MISS_CHAR) THEN
547: l_patv_rec.proration_type_code := NULL;
548: END IF;
549: IF (l_patv_rec.include_on_returns_flag = OKC_API.G_MISS_CHAR) THEN
550: l_patv_rec.include_on_returns_flag := NULL;
551: END IF;
552: IF (l_patv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
553: l_patv_rec.object_version_number := NULL;
548: END IF;
549: IF (l_patv_rec.include_on_returns_flag = OKC_API.G_MISS_CHAR) THEN
550: l_patv_rec.include_on_returns_flag := NULL;
551: END IF;
552: IF (l_patv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
553: l_patv_rec.object_version_number := NULL;
554: END IF;
555:
556: IF (l_patv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
552: IF (l_patv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
553: l_patv_rec.object_version_number := NULL;
554: END IF;
555:
556: IF (l_patv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
557: l_patv_rec.attribute1 := NULL;
558: END IF;
559: IF (l_patv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
560: l_patv_rec.attribute2 := NULL;
555:
556: IF (l_patv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
557: l_patv_rec.attribute1 := NULL;
558: END IF;
559: IF (l_patv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
560: l_patv_rec.attribute2 := NULL;
561: END IF;
562: IF (l_patv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
563: l_patv_rec.attribute3 := NULL;
558: END IF;
559: IF (l_patv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
560: l_patv_rec.attribute2 := NULL;
561: END IF;
562: IF (l_patv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
563: l_patv_rec.attribute3 := NULL;
564: END IF;
565: IF (l_patv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
566: l_patv_rec.attribute4 := NULL;
561: END IF;
562: IF (l_patv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
563: l_patv_rec.attribute3 := NULL;
564: END IF;
565: IF (l_patv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
566: l_patv_rec.attribute4 := NULL;
567: END IF;
568: IF (l_patv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
569: l_patv_rec.attribute5 := NULL;
564: END IF;
565: IF (l_patv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
566: l_patv_rec.attribute4 := NULL;
567: END IF;
568: IF (l_patv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
569: l_patv_rec.attribute5 := NULL;
570: END IF;
571: IF (l_patv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
572: l_patv_rec.attribute6 := NULL;
567: END IF;
568: IF (l_patv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
569: l_patv_rec.attribute5 := NULL;
570: END IF;
571: IF (l_patv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
572: l_patv_rec.attribute6 := NULL;
573: END IF;
574: IF (l_patv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
575: l_patv_rec.attribute7 := NULL;
570: END IF;
571: IF (l_patv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
572: l_patv_rec.attribute6 := NULL;
573: END IF;
574: IF (l_patv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
575: l_patv_rec.attribute7 := NULL;
576: END IF;
577: IF (l_patv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
578: l_patv_rec.attribute8 := NULL;
573: END IF;
574: IF (l_patv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
575: l_patv_rec.attribute7 := NULL;
576: END IF;
577: IF (l_patv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
578: l_patv_rec.attribute8 := NULL;
579: END IF;
580: IF (l_patv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
581: l_patv_rec.attribute9 := NULL;
576: END IF;
577: IF (l_patv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
578: l_patv_rec.attribute8 := NULL;
579: END IF;
580: IF (l_patv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
581: l_patv_rec.attribute9 := NULL;
582: END IF;
583: IF (l_patv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
584: l_patv_rec.attribute10 := NULL;
579: END IF;
580: IF (l_patv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
581: l_patv_rec.attribute9 := NULL;
582: END IF;
583: IF (l_patv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
584: l_patv_rec.attribute10 := NULL;
585: END IF;
586: IF (l_patv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
587: l_patv_rec.attribute11 := NULL;
582: END IF;
583: IF (l_patv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
584: l_patv_rec.attribute10 := NULL;
585: END IF;
586: IF (l_patv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
587: l_patv_rec.attribute11 := NULL;
588: END IF;
589: IF (l_patv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
590: l_patv_rec.attribute12 := NULL;
585: END IF;
586: IF (l_patv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
587: l_patv_rec.attribute11 := NULL;
588: END IF;
589: IF (l_patv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
590: l_patv_rec.attribute12 := NULL;
591: END IF;
592: IF (l_patv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
593: l_patv_rec.attribute13 := NULL;
588: END IF;
589: IF (l_patv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
590: l_patv_rec.attribute12 := NULL;
591: END IF;
592: IF (l_patv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
593: l_patv_rec.attribute13 := NULL;
594: END IF;
595: IF (l_patv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
596: l_patv_rec.attribute14 := NULL;
591: END IF;
592: IF (l_patv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
593: l_patv_rec.attribute13 := NULL;
594: END IF;
595: IF (l_patv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
596: l_patv_rec.attribute14 := NULL;
597: END IF;
598: IF (l_patv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
599: l_patv_rec.attribute15 := NULL;
594: END IF;
595: IF (l_patv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
596: l_patv_rec.attribute14 := NULL;
597: END IF;
598: IF (l_patv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
599: l_patv_rec.attribute15 := NULL;
600: END IF;
601: IF (l_patv_rec.created_by = OKC_API.G_MISS_NUM) THEN
602: l_patv_rec.created_by := NULL;
597: END IF;
598: IF (l_patv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
599: l_patv_rec.attribute15 := NULL;
600: END IF;
601: IF (l_patv_rec.created_by = OKC_API.G_MISS_NUM) THEN
602: l_patv_rec.created_by := NULL;
603: END IF;
604: IF (l_patv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
605: l_patv_rec.creation_date := NULL;
600: END IF;
601: IF (l_patv_rec.created_by = OKC_API.G_MISS_NUM) THEN
602: l_patv_rec.created_by := NULL;
603: END IF;
604: IF (l_patv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
605: l_patv_rec.creation_date := NULL;
606: END IF;
607: IF (l_patv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
608: l_patv_rec.last_updated_by := NULL;
603: END IF;
604: IF (l_patv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
605: l_patv_rec.creation_date := NULL;
606: END IF;
607: IF (l_patv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
608: l_patv_rec.last_updated_by := NULL;
609: END IF;
610: IF (l_patv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
611: l_patv_rec.last_update_date := NULL;
606: END IF;
607: IF (l_patv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
608: l_patv_rec.last_updated_by := NULL;
609: END IF;
610: IF (l_patv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
611: l_patv_rec.last_update_date := NULL;
612: END IF;
613: IF (l_patv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
614: l_patv_rec.last_update_login := NULL;
609: END IF;
610: IF (l_patv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
611: l_patv_rec.last_update_date := NULL;
612: END IF;
613: IF (l_patv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
614: l_patv_rec.last_update_login := NULL;
615: END IF;
616: IF (l_patv_rec.rebate_transaction_type_code = OKC_API.G_MISS_CHAR) THEN
617: l_patv_rec.rebate_transaction_type_code := NULL;
612: END IF;
613: IF (l_patv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
614: l_patv_rec.last_update_login := NULL;
615: END IF;
616: IF (l_patv_rec.rebate_transaction_type_code = OKC_API.G_MISS_CHAR) THEN
617: l_patv_rec.rebate_transaction_type_code := NULL;
618: END IF;
619:
620: IF (l_debug = 'Y') THEN
641: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
642: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
643: G_VIEW CONSTANT VARCHAR2(200) := 'QP_LIST_HEADERS_V';
644: G_EXCEPTION_HALT_VALIDATION exception;
645: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
646:
647: l_dummy_var VARCHAR2(1) := '?';
648: Cursor l_patv_csr Is
649: select 'x'
656: okc_debug.log('1000: Entered validate_list_header_id', 2);
657: END IF;
658:
659: -- initialize return status
660: x_return_status := OKC_API.G_RET_STS_SUCCESS;
661:
662: -- enforce foreign key, if data exists
663: If (p_patv_rec.list_header_id <> OKC_API.G_MISS_NUM and
664: p_patv_rec.chr_id IS NOT NULL)
659: -- initialize return status
660: x_return_status := OKC_API.G_RET_STS_SUCCESS;
661:
662: -- enforce foreign key, if data exists
663: If (p_patv_rec.list_header_id <> OKC_API.G_MISS_NUM and
664: p_patv_rec.chr_id IS NOT NULL)
665: Then
666: Open l_patv_csr;
667: Fetch l_patv_csr Into l_dummy_var;
668: Close l_patv_csr;
669:
670: -- if l_dummy_var still set to default, data was not found
671: If (l_dummy_var = '?') Then
672: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
673: p_msg_name => g_no_parent_record,
674: p_token1 => g_col_name_token,
675: p_token1_value=> 'chr_id',
676: p_token2 => g_child_table_token,
677: p_token2_value=> G_VIEW,
678: p_token3 => g_parent_table_token,
679: p_token3_value=> 'QP_LIST_HEADERS_V');
680: -- notify caller of an error
681: x_return_status := OKC_API.G_RET_STS_ERROR;
682: End If;
683: End If;
684:
685: IF (l_debug = 'Y') THEN
695: okc_debug.Reset_Indentation;
696: END IF;
697:
698: -- store SQL error message on message stack
699: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
700: p_msg_name => g_unexpected_error,
701: p_token1 => g_sqlcode_token,
702: p_token1_value => sqlcode,
703: p_token2 => g_sqlerrm_token,
702: p_token1_value => sqlcode,
703: p_token2 => g_sqlerrm_token,
704: p_token2_value => sqlerrm);
705: -- notify caller of an error as UNEXPETED error
706: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
707:
708: -- verify that cursor was closed
709: if l_patv_csr%ISOPEN then
710: close l_patv_csr;
721: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
722: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
723: G_VIEW CONSTANT VARCHAR2(200) := 'QP_LIST_HEADERS_V';
724: G_EXCEPTION_HALT_VALIDATION exception;
725: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
726:
727: l_dummy_var VARCHAR2(1) := '?';
728: Cursor l_patv_csr Is
729: select 'x'
736: okc_debug.log('1300: Entered validate_list_line_id', 2);
737: END IF;
738:
739: -- initialize return status
740: x_return_status := OKC_API.G_RET_STS_SUCCESS;
741:
742: -- enforce foreign key, if data exists
743: If (p_patv_rec.list_line_id <> OKC_API.G_MISS_NUM and
744: p_patv_rec.list_line_id IS NOT NULL)
739: -- initialize return status
740: x_return_status := OKC_API.G_RET_STS_SUCCESS;
741:
742: -- enforce foreign key, if data exists
743: If (p_patv_rec.list_line_id <> OKC_API.G_MISS_NUM and
744: p_patv_rec.list_line_id IS NOT NULL)
745: Then
746: Open l_patv_csr;
747: Fetch l_patv_csr Into l_dummy_var;
748: Close l_patv_csr;
749:
750: -- if l_dummy_var still set to default, data was not found
751: If (l_dummy_var = '?') Then
752: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
753: p_msg_name => g_no_parent_record,
754: p_token1 => g_col_name_token,
755: p_token1_value=> 'chr_id',
756: p_token2 => g_child_table_token,
757: p_token2_value=> G_VIEW,
758: p_token3 => g_parent_table_token,
759: p_token3_value=> 'QP_LIST_LINE_V');
760: -- notify caller of an error
761: x_return_status := OKC_API.G_RET_STS_ERROR;
762: End If;
763: End If;
764:
765: IF (l_debug = 'Y') THEN
775: okc_debug.Reset_Indentation;
776: END IF;
777:
778: -- store SQL error message on message stack
779: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
780: p_msg_name => g_unexpected_error,
781: p_token1 => g_sqlcode_token,
782: p_token1_value => sqlcode,
783: p_token2 => g_sqlerrm_token,
782: p_token1_value => sqlcode,
783: p_token2 => g_sqlerrm_token,
784: p_token2_value => sqlerrm);
785: -- notify caller of an error as UNEXPETED error
786: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
787:
788: -- verify that cursor was closed
789: if l_patv_csr%ISOPEN then
790: close l_patv_csr;
798: ---------------------------------------------------------------------------
799: PROCEDURE validate_id(
800: p_patv_rec IN patv_rec_type,
801: x_return_status OUT NOCOPY VARCHAR2) IS
802: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
803: BEGIN
804:
805: IF (l_debug = 'Y') THEN
806: okc_debug.Set_Indentation('OKC_PAT_PVT');
806: okc_debug.Set_Indentation('OKC_PAT_PVT');
807: okc_debug.log('1600: Entered validate_id', 2);
808: END IF;
809:
810: IF p_patv_rec.id = OKC_API.G_MISS_NUM OR
811: p_patv_rec.id IS NULL
812: THEN
813: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
814: l_return_status := OKC_API.G_RET_STS_ERROR;
809:
810: IF p_patv_rec.id = OKC_API.G_MISS_NUM OR
811: p_patv_rec.id IS NULL
812: THEN
813: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
814: l_return_status := OKC_API.G_RET_STS_ERROR;
815: END IF;
816: x_return_status := l_return_status;
817:
810: IF p_patv_rec.id = OKC_API.G_MISS_NUM OR
811: p_patv_rec.id IS NULL
812: THEN
813: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
814: l_return_status := OKC_API.G_RET_STS_ERROR;
815: END IF;
816: x_return_status := l_return_status;
817:
818: IF (l_debug = 'Y') THEN
828: okc_debug.Reset_Indentation;
829: END IF;
830:
831: -- store SQL error message on message stack for caller
832: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
833: -- notify caller of an UNEXPECTED error
834: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
835:
836: END validate_id;
830:
831: -- store SQL error message on message stack for caller
832: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
833: -- notify caller of an UNEXPECTED error
834: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
835:
836: END validate_id;
837:
838: ---------------------------------------------------------------------------
840: ---------------------------------------------------------------------------
841: PROCEDURE validate_automatic_flag(
842: p_patv_rec IN patv_rec_type,
843: x_return_status OUT NOCOPY VARCHAR2) IS
844: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
845: BEGIN
846:
847: IF (l_debug = 'Y') THEN
848: okc_debug.Set_Indentation('OKC_PAT_PVT');
852: -- Check if automatic_flag is Y or N.
853:
854: IF p_patv_rec.automatic_flag NOT IN ('Y', 'N')
855: THEN
856: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'automatic_flag');
857: l_return_status := OKC_API.G_RET_STS_ERROR;
858: RAISE G_EXCEPTION_HALT_VALIDATION;
859: END IF;
860: x_return_status := l_return_status;
853:
854: IF p_patv_rec.automatic_flag NOT IN ('Y', 'N')
855: THEN
856: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'automatic_flag');
857: l_return_status := OKC_API.G_RET_STS_ERROR;
858: RAISE G_EXCEPTION_HALT_VALIDATION;
859: END IF;
860: x_return_status := l_return_status;
861:
880: okc_debug.Reset_Indentation;
881: END IF;
882:
883: -- store SQL error message on message stack for caller
884: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
885: -- notify caller of an UNEXPECTED error
886: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
887:
888:
882:
883: -- store SQL error message on message stack for caller
884: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
885: -- notify caller of an UNEXPECTED error
886: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
887:
888:
889: END validate_automatic_flag;
890:
893: ---------------------------------------------------------------------------
894: PROCEDURE validate_update_allowed(
895: p_patv_rec IN patv_rec_type,
896: x_return_status OUT NOCOPY VARCHAR2) IS
897: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
898: BEGIN
899:
900: IF (l_debug = 'Y') THEN
901: okc_debug.Set_Indentation('OKC_PAT_PVT');
904:
905:
906: IF p_patv_rec.update_allowed NOT IN ('Y', 'N')
907: THEN
908: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'update_allowed');
909: l_return_status := OKC_API.G_RET_STS_ERROR;
910: RAISE G_EXCEPTION_HALT_VALIDATION;
911: END IF;
912: x_return_status := l_return_status;
905:
906: IF p_patv_rec.update_allowed NOT IN ('Y', 'N')
907: THEN
908: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'update_allowed');
909: l_return_status := OKC_API.G_RET_STS_ERROR;
910: RAISE G_EXCEPTION_HALT_VALIDATION;
911: END IF;
912: x_return_status := l_return_status;
913:
932: okc_debug.Reset_Indentation;
933: END IF;
934:
935: -- store SQL error message on message stack for caller
936: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
937: -- notify caller of an UNEXPECTED error
938: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
939:
940: END validate_update_allowed;
934:
935: -- store SQL error message on message stack for caller
936: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
937: -- notify caller of an UNEXPECTED error
938: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
939:
940: END validate_update_allowed;
941:
942:
945: ---------------------------------------------------------------------------
946: PROCEDURE validate_updated_flag(
947: p_patv_rec IN patv_rec_type,
948: x_return_status OUT NOCOPY VARCHAR2) IS
949: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
950: BEGIN
951:
952: IF (l_debug = 'Y') THEN
953: okc_debug.Set_Indentation('OKC_PAT_PVT');
956:
957:
958: IF p_patv_rec.updated_flag NOT IN ('Y', 'N')
959: THEN
960: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'updated_flag');
961: l_return_status := OKC_API.G_RET_STS_ERROR;
962: RAISE G_EXCEPTION_HALT_VALIDATION;
963: END IF;
964: x_return_status := l_return_status;
957:
958: IF p_patv_rec.updated_flag NOT IN ('Y', 'N')
959: THEN
960: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'updated_flag');
961: l_return_status := OKC_API.G_RET_STS_ERROR;
962: RAISE G_EXCEPTION_HALT_VALIDATION;
963: END IF;
964: x_return_status := l_return_status;
965:
984: okc_debug.Reset_Indentation;
985: END IF;
986:
987: -- store SQL error message on message stack for caller
988: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
989: -- notify caller of an UNEXPECTED error
990: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
991:
992: END validate_updated_flag;
986:
987: -- store SQL error message on message stack for caller
988: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
989: -- notify caller of an UNEXPECTED error
990: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
991:
992: END validate_updated_flag;
993:
994:
997: ---------------------------------------------------------------------------
998: PROCEDURE validate_applied_flag(
999: p_patv_rec IN patv_rec_type,
1000: x_return_status OUT NOCOPY VARCHAR2) IS
1001: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1002: BEGIN
1003:
1004: IF (l_debug = 'Y') THEN
1005: okc_debug.Set_Indentation('OKC_PAT_PVT');
1008:
1009:
1010: IF p_patv_rec.applied_flag NOT IN ('Y', 'N')
1011: THEN
1012: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'applied_flag');
1013: l_return_status := OKC_API.G_RET_STS_ERROR;
1014: RAISE G_EXCEPTION_HALT_VALIDATION;
1015: END IF;
1016: x_return_status := l_return_status;
1009:
1010: IF p_patv_rec.applied_flag NOT IN ('Y', 'N')
1011: THEN
1012: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'applied_flag');
1013: l_return_status := OKC_API.G_RET_STS_ERROR;
1014: RAISE G_EXCEPTION_HALT_VALIDATION;
1015: END IF;
1016: x_return_status := l_return_status;
1017:
1036: okc_debug.Reset_Indentation;
1037: END IF;
1038:
1039: -- store SQL error message on message stack for caller
1040: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1041: -- notify caller of an UNEXPECTED error
1042: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1043:
1044:
1038:
1039: -- store SQL error message on message stack for caller
1040: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1041: -- notify caller of an UNEXPECTED error
1042: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1043:
1044:
1045: END validate_applied_flag;
1046:
1050: ---------------------------------------------------------------------------
1051: PROCEDURE validate_on_invoice_flag(
1052: p_patv_rec IN patv_rec_type,
1053: x_return_status OUT NOCOPY VARCHAR2) IS
1054: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1055: BEGIN
1056:
1057: IF (l_debug = 'Y') THEN
1058: okc_debug.Set_Indentation('OKC_PAT_PVT');
1061:
1062:
1063: IF p_patv_rec.on_invoice_flag NOT IN ('Y', 'N')
1064: THEN
1065: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'on_invoice_flag');
1066: l_return_status := OKC_API.G_RET_STS_ERROR;
1067: RAISE G_EXCEPTION_HALT_VALIDATION;
1068: END IF;
1069: x_return_status := l_return_status;
1062:
1063: IF p_patv_rec.on_invoice_flag NOT IN ('Y', 'N')
1064: THEN
1065: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'on_invoice_flag');
1066: l_return_status := OKC_API.G_RET_STS_ERROR;
1067: RAISE G_EXCEPTION_HALT_VALIDATION;
1068: END IF;
1069: x_return_status := l_return_status;
1070:
1089: okc_debug.Reset_Indentation;
1090: END IF;
1091:
1092: -- store SQL error message on message stack for caller
1093: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1094: -- notify caller of an UNEXPECTED error
1095: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1096:
1097:
1091:
1092: -- store SQL error message on message stack for caller
1093: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1094: -- notify caller of an UNEXPECTED error
1095: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1096:
1097:
1098: END validate_on_invoice_flag;
1099:
1113: okc_debug.Set_Indentation('OKC_PAT_PVT');
1114: okc_debug.log('3900: Entered validate_chr_id', 2);
1115: END IF;
1116:
1117: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1118: if (p_patv_rec.chr_id = OKC_API.G_MISS_NUM or p_patv_rec.chr_id is NULL) then
1119: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1120: return;
1121: end if;
1114: okc_debug.log('3900: Entered validate_chr_id', 2);
1115: END IF;
1116:
1117: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1118: if (p_patv_rec.chr_id = OKC_API.G_MISS_NUM or p_patv_rec.chr_id is NULL) then
1119: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1120: return;
1121: end if;
1122: open l_chr_csr;
1115: END IF;
1116:
1117: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1118: if (p_patv_rec.chr_id = OKC_API.G_MISS_NUM or p_patv_rec.chr_id is NULL) then
1119: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1120: return;
1121: end if;
1122: open l_chr_csr;
1123: fetch l_chr_csr into l_dummy_var;
1122: open l_chr_csr;
1123: fetch l_chr_csr into l_dummy_var;
1124: close l_chr_csr;
1125: if (l_dummy_var = '?') then
1126: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CHR_ID');
1127: x_return_status := OKC_API.G_RET_STS_ERROR;
1128: end if;
1129:
1130: IF (l_debug = 'Y') THEN
1123: fetch l_chr_csr into l_dummy_var;
1124: close l_chr_csr;
1125: if (l_dummy_var = '?') then
1126: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CHR_ID');
1127: x_return_status := OKC_API.G_RET_STS_ERROR;
1128: end if;
1129:
1130: IF (l_debug = 'Y') THEN
1131: okc_debug.log('4000: Leaving validate_chr_id', 2);
1142:
1143: if l_chr_csr%ISOPEN then
1144: close l_chr_csr;
1145: end if;
1146: OKC_API.set_message(p_app_name => g_app_name,
1147: p_msg_name => g_unexpected_error,
1148: p_token1 => g_sqlcode_token,
1149: p_token1_value => sqlcode,
1150: p_token2 => g_sqlerrm_token,
1148: p_token1 => g_sqlcode_token,
1149: p_token1_value => sqlcode,
1150: p_token2 => g_sqlerrm_token,
1151: p_token2_value => sqlerrm);
1152: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1153:
1154: end validate_chr_id;
1155: --------------------------------------------
1156: ---------------------------------------------------------------------------
1161: -----------------------------------------------------
1162: FUNCTION Validate_Attributes (
1163: p_patv_rec IN patv_rec_type
1164: ) RETURN VARCHAR2 IS
1165: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1166: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1167:
1168: BEGIN
1169:
1162: FUNCTION Validate_Attributes (
1163: p_patv_rec IN patv_rec_type
1164: ) RETURN VARCHAR2 IS
1165: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1166: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1167:
1168: BEGIN
1169:
1170: IF (l_debug = 'Y') THEN
1176: --Attribute Level Validation Procedure Calls Starts(Modification on TAPI generated Code.)--
1177: ---------------------------------------------------------------------------------------
1178:
1179: VALIDATE_id(p_patv_rec, l_return_status);
1180: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1181: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1182: x_return_status := l_return_status;
1183: RAISE G_EXCEPTION_HALT_VALIDATION;
1184: ELSE
1177: ---------------------------------------------------------------------------------------
1178:
1179: VALIDATE_id(p_patv_rec, l_return_status);
1180: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1181: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1182: x_return_status := l_return_status;
1183: RAISE G_EXCEPTION_HALT_VALIDATION;
1184: ELSE
1185: x_return_status := l_return_status; -- record that there was an error
1186: END IF;
1187: END IF;
1188:
1189: VALIDATE_automatic_flag(p_patv_rec, l_return_status);
1190: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1191: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1192: x_return_status := l_return_status;
1193: RAISE G_EXCEPTION_HALT_VALIDATION;
1194: ELSE
1187: END IF;
1188:
1189: VALIDATE_automatic_flag(p_patv_rec, l_return_status);
1190: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1191: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1192: x_return_status := l_return_status;
1193: RAISE G_EXCEPTION_HALT_VALIDATION;
1194: ELSE
1195: x_return_status := l_return_status; -- record that there was an error
1196: END IF;
1197: END IF;
1198:
1199: VALIDATE_update_allowed(p_patv_rec, l_return_status);
1200: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1201: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1202: x_return_status := l_return_status;
1203: RAISE G_EXCEPTION_HALT_VALIDATION;
1204: ELSE
1197: END IF;
1198:
1199: VALIDATE_update_allowed(p_patv_rec, l_return_status);
1200: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1201: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1202: x_return_status := l_return_status;
1203: RAISE G_EXCEPTION_HALT_VALIDATION;
1204: ELSE
1205: x_return_status := l_return_status; -- record that there was an error
1206: END IF;
1207: END IF;
1208:
1209: VALIDATE_updated_flag(p_patv_rec, l_return_status);
1210: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1211: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1212: x_return_status := l_return_status;
1213: RAISE G_EXCEPTION_HALT_VALIDATION;
1214: ELSE
1207: END IF;
1208:
1209: VALIDATE_updated_flag(p_patv_rec, l_return_status);
1210: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1211: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1212: x_return_status := l_return_status;
1213: RAISE G_EXCEPTION_HALT_VALIDATION;
1214: ELSE
1215: x_return_status := l_return_status; -- record that there was an error
1216: END IF;
1217: END IF;
1218:
1219: VALIDATE_applied_flag(p_patv_rec, l_return_status);
1220: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1221: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1222: x_return_status := l_return_status;
1223: RAISE G_EXCEPTION_HALT_VALIDATION;
1224: ELSE
1217: END IF;
1218:
1219: VALIDATE_applied_flag(p_patv_rec, l_return_status);
1220: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1221: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1222: x_return_status := l_return_status;
1223: RAISE G_EXCEPTION_HALT_VALIDATION;
1224: ELSE
1225: x_return_status := l_return_status; -- record that there was an error
1226: END IF;
1227: END IF;
1228:
1229: validate_list_header_id(l_return_status,p_patv_rec);
1230: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1231: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1232: x_return_status := l_return_status;
1233: RAISE G_EXCEPTION_HALT_VALIDATION;
1234: ELSE
1227: END IF;
1228:
1229: validate_list_header_id(l_return_status,p_patv_rec);
1230: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1231: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1232: x_return_status := l_return_status;
1233: RAISE G_EXCEPTION_HALT_VALIDATION;
1234: ELSE
1235: x_return_status := l_return_status; -- record that there was an error
1236: END IF;
1237: END IF;
1238:
1239: validate_chr_id(l_return_status,p_patv_rec);
1240: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1241: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1242: x_return_status := l_return_status;
1243: RAISE G_EXCEPTION_HALT_VALIDATION;
1244: ELSE
1237: END IF;
1238:
1239: validate_chr_id(l_return_status,p_patv_rec);
1240: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1241: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1242: x_return_status := l_return_status;
1243: RAISE G_EXCEPTION_HALT_VALIDATION;
1244: ELSE
1245: x_return_status := l_return_status; -- record that there was an error
1247: END IF;
1248:
1249:
1250: validate_list_line_id(l_return_status ,p_patv_rec);
1251: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1252: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1253: x_return_status := l_return_status;
1254: RAISE G_EXCEPTION_HALT_VALIDATION;
1255: ELSE
1248:
1249:
1250: validate_list_line_id(l_return_status ,p_patv_rec);
1251: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1252: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1253: x_return_status := l_return_status;
1254: RAISE G_EXCEPTION_HALT_VALIDATION;
1255: ELSE
1256: x_return_status := l_return_status; -- record that there was an error
1258: END IF;
1259:
1260:
1261: VALIDATE_on_invoice_flag(p_patv_rec, l_return_status);
1262: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1263: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1264: x_return_status := l_return_status;
1265: RAISE G_EXCEPTION_HALT_VALIDATION;
1266: ELSE
1259:
1260:
1261: VALIDATE_on_invoice_flag(p_patv_rec, l_return_status);
1262: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1263: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1264: x_return_status := l_return_status;
1265: RAISE G_EXCEPTION_HALT_VALIDATION;
1266: ELSE
1267: x_return_status := l_return_status; -- record that there was an error
1291: okc_debug.Reset_Indentation;
1292: END IF;
1293:
1294: -- store SQL error message on message stack for caller
1295: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1296: -- notify caller of an UNEXPECTED error
1297: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1298: return(x_return_status);
1299:
1293:
1294: -- store SQL error message on message stack for caller
1295: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1296: -- notify caller of an UNEXPECTED error
1297: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1298: return(x_return_status);
1299:
1300:
1301: ---------------------------------------------------------------------------------------
1313: -------------------------------------------------
1314: FUNCTION Validate_Record (
1315: p_patv_rec IN patv_rec_type
1316: ) RETURN VARCHAR2 IS
1317: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1318: ------------------------------------
1319: -- FUNCTION validate_foreign_keys --
1320: ------------------------------------
1321: FUNCTION validate_foreign_keys (
1363: l_okc_bclv_pk okc_bclv_pk_csr%ROWTYPE;
1364: */
1365:
1366:
1367: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1368: l_row_notfound BOOLEAN := TRUE;
1369: BEGIN
1370:
1371: IF (l_debug = 'Y') THEN
1379: FETCH okc_patv_pk_csr INTO l_okc_patv_pk;
1380: l_row_notfound := okc_patv_pk_csr%NOTFOUND;
1381: CLOSE okc_patv_pk_csr;
1382: IF (l_row_notfound) THEN
1383: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'PAT_ID');
1384: RAISE item_not_found_error;
1385: END IF;
1386: END IF;
1387: IF (p_patv_rec.CHR_ID IS NOT NULL)
1390: FETCH okc_chrv_pk_csr INTO l_okc_chrv_pk;
1391: l_row_notfound := okc_chrv_pk_csr%NOTFOUND;
1392: CLOSE okc_chrv_pk_csr;
1393: IF (l_row_notfound) THEN
1394: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CHR_ID');
1395: RAISE item_not_found_error;
1396: END IF;
1397: END IF;
1398: IF (p_patv_rec.CLE_ID IS NOT NULL)
1401: FETCH okc_clev_pk_csr INTO l_okc_clev_pk;
1402: l_row_notfound := okc_clev_pk_csr%NOTFOUND;
1403: CLOSE okc_clev_pk_csr;
1404: IF (l_row_notfound) THEN
1405: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CLE_ID');
1406: RAISE item_not_found_error;
1407: END IF;
1408: END IF;
1409:
1419: FETCH oks_bslv_pk_csr INTO l_oks_bslv_pk;
1420: l_row_notfound := oks_bslv_pk_csr%NOTFOUND;
1421: CLOSE oks_bslv_pk_csr;
1422: IF (l_row_notfound) THEN
1423: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'BSL_ID');
1424: RAISE item_not_found_error;
1425: END IF;
1426: END IF;
1427: IF (p_patv_rec.BCL_ID IS NOT NULL)
1430: FETCH okc_bclv_pk_csr INTO l_okc_bclv_pk;
1431: l_row_notfound := okc_bclv_pk_csr%NOTFOUND;
1432: CLOSE okc_bclv_pk_csr;
1433: IF (l_row_notfound) THEN
1434: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'BCL_ID');
1435: RAISE item_not_found_error;
1436: END IF;
1437: END IF;
1438: */
1450: okc_debug.log('4800: Exiting validate_foreign_keys:item_not_found_error Exception', 2);
1451: okc_debug.Reset_Indentation;
1452: END IF;
1453:
1454: l_return_status := OKC_API.G_RET_STS_ERROR;
1455: RETURN (l_return_status);
1456:
1457: END validate_foreign_keys;
1458: BEGIN
1634: p_patv_rec IN patv_rec_type) IS
1635:
1636: l_api_version CONSTANT NUMBER := 1;
1637: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
1638: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1639: l_patv_rec patv_rec_type := p_patv_rec;
1640: l_pat_rec pat_rec_type;
1641: BEGIN
1642:
1644: okc_debug.Set_Indentation('OKC_PAT_PVT');
1645: okc_debug.log('5200: Entered validate_row', 2);
1646: END IF;
1647:
1648: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1649: G_PKG_NAME,
1650: p_init_msg_list,
1651: l_api_version,
1652: p_api_version,
1651: l_api_version,
1652: p_api_version,
1653: '_PVT',
1654: x_return_status);
1655: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1656: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1657: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1658: RAISE OKC_API.G_EXCEPTION_ERROR;
1659: END IF;
1652: p_api_version,
1653: '_PVT',
1654: x_return_status);
1655: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1656: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1657: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1658: RAISE OKC_API.G_EXCEPTION_ERROR;
1659: END IF;
1660: --- Validate all non-missing attributes (Item Level Validation)
1653: '_PVT',
1654: x_return_status);
1655: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1656: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1657: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1658: RAISE OKC_API.G_EXCEPTION_ERROR;
1659: END IF;
1660: --- Validate all non-missing attributes (Item Level Validation)
1661: l_return_status := Validate_Attributes(l_patv_rec);
1654: x_return_status);
1655: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1656: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1657: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1658: RAISE OKC_API.G_EXCEPTION_ERROR;
1659: END IF;
1660: --- Validate all non-missing attributes (Item Level Validation)
1661: l_return_status := Validate_Attributes(l_patv_rec);
1662: --- If any errors happen abort API
1659: END IF;
1660: --- Validate all non-missing attributes (Item Level Validation)
1661: l_return_status := Validate_Attributes(l_patv_rec);
1662: --- If any errors happen abort API
1663: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1664: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1665: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1666: RAISE OKC_API.G_EXCEPTION_ERROR;
1667: END IF;
1660: --- Validate all non-missing attributes (Item Level Validation)
1661: l_return_status := Validate_Attributes(l_patv_rec);
1662: --- If any errors happen abort API
1663: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1664: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1665: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1666: RAISE OKC_API.G_EXCEPTION_ERROR;
1667: END IF;
1668: l_return_status := Validate_Record(l_patv_rec);
1661: l_return_status := Validate_Attributes(l_patv_rec);
1662: --- If any errors happen abort API
1663: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1664: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1665: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1666: RAISE OKC_API.G_EXCEPTION_ERROR;
1667: END IF;
1668: l_return_status := Validate_Record(l_patv_rec);
1669: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1662: --- If any errors happen abort API
1663: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1664: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1665: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1666: RAISE OKC_API.G_EXCEPTION_ERROR;
1667: END IF;
1668: l_return_status := Validate_Record(l_patv_rec);
1669: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1670: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1665: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1666: RAISE OKC_API.G_EXCEPTION_ERROR;
1667: END IF;
1668: l_return_status := Validate_Record(l_patv_rec);
1669: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1670: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1671: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1672: RAISE OKC_API.G_EXCEPTION_ERROR;
1673: END IF;
1666: RAISE OKC_API.G_EXCEPTION_ERROR;
1667: END IF;
1668: l_return_status := Validate_Record(l_patv_rec);
1669: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1670: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1671: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1672: RAISE OKC_API.G_EXCEPTION_ERROR;
1673: END IF;
1674: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1667: END IF;
1668: l_return_status := Validate_Record(l_patv_rec);
1669: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1670: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1671: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1672: RAISE OKC_API.G_EXCEPTION_ERROR;
1673: END IF;
1674: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1675:
1668: l_return_status := Validate_Record(l_patv_rec);
1669: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1670: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1671: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1672: RAISE OKC_API.G_EXCEPTION_ERROR;
1673: END IF;
1674: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1675:
1676: IF (l_debug = 'Y') THEN
1670: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1671: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1672: RAISE OKC_API.G_EXCEPTION_ERROR;
1673: END IF;
1674: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1675:
1676: IF (l_debug = 'Y') THEN
1677: okc_debug.log('5300: Leaving validate_row', 2);
1678: okc_debug.Reset_Indentation;
1678: okc_debug.Reset_Indentation;
1679: END IF;
1680:
1681: EXCEPTION
1682: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1683:
1684: IF (l_debug = 'Y') THEN
1685: okc_debug.log('5400: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1686: okc_debug.Reset_Indentation;
1681: EXCEPTION
1682: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1683:
1684: IF (l_debug = 'Y') THEN
1685: okc_debug.log('5400: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1686: okc_debug.Reset_Indentation;
1687: END IF;
1688:
1689: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1685: okc_debug.log('5400: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1686: okc_debug.Reset_Indentation;
1687: END IF;
1688:
1689: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1690: (
1691: l_api_name,
1692: G_PKG_NAME,
1693: 'OKC_API.G_RET_STS_ERROR',
1689: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1690: (
1691: l_api_name,
1692: G_PKG_NAME,
1693: 'OKC_API.G_RET_STS_ERROR',
1694: x_msg_count,
1695: x_msg_data,
1696: '_PVT'
1697: );
1694: x_msg_count,
1695: x_msg_data,
1696: '_PVT'
1697: );
1698: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1699:
1700: IF (l_debug = 'Y') THEN
1701: okc_debug.log('5500: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1702: okc_debug.Reset_Indentation;
1697: );
1698: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1699:
1700: IF (l_debug = 'Y') THEN
1701: okc_debug.log('5500: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1702: okc_debug.Reset_Indentation;
1703: END IF;
1704:
1705: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1701: okc_debug.log('5500: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1702: okc_debug.Reset_Indentation;
1703: END IF;
1704:
1705: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1706: (
1707: l_api_name,
1708: G_PKG_NAME,
1709: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1705: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1706: (
1707: l_api_name,
1708: G_PKG_NAME,
1709: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1710: x_msg_count,
1711: x_msg_data,
1712: '_PVT'
1713: );
1717: okc_debug.log('5600: Exiting validate_row:OTHERS Exception', 2);
1718: okc_debug.Reset_Indentation;
1719: END IF;
1720:
1721: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1722: (
1723: l_api_name,
1724: G_PKG_NAME,
1725: 'OTHERS',
1741: p_patv_tbl IN patv_tbl_type) IS
1742:
1743: l_api_version CONSTANT NUMBER := 1;
1744: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1745: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1746: i NUMBER := 0;
1747: BEGIN
1748:
1749: IF (l_debug = 'Y') THEN
1750: okc_debug.Set_Indentation('OKC_PAT_PVT');
1751: okc_debug.log('5700: Entered validate_row', 2);
1752: END IF;
1753:
1754: OKC_API.init_msg_list(p_init_msg_list);
1755: -- Make sure PL/SQL table has records in it before passing
1756: IF (p_patv_tbl.COUNT > 0) THEN
1757: i := p_patv_tbl.FIRST;
1758: LOOP
1757: i := p_patv_tbl.FIRST;
1758: LOOP
1759: validate_row (
1760: p_api_version => p_api_version,
1761: p_init_msg_list => OKC_API.G_FALSE,
1762: x_return_status => x_return_status,
1763: x_msg_count => x_msg_count,
1764: x_msg_data => x_msg_data,
1765: p_patv_rec => p_patv_tbl(i));
1773: okc_debug.Reset_Indentation;
1774: END IF;
1775:
1776: EXCEPTION
1777: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1778:
1779: IF (l_debug = 'Y') THEN
1780: okc_debug.log('5900: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1781: okc_debug.Reset_Indentation;
1776: EXCEPTION
1777: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1778:
1779: IF (l_debug = 'Y') THEN
1780: okc_debug.log('5900: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1781: okc_debug.Reset_Indentation;
1782: END IF;
1783:
1784: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1780: okc_debug.log('5900: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1781: okc_debug.Reset_Indentation;
1782: END IF;
1783:
1784: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1785: (
1786: l_api_name,
1787: G_PKG_NAME,
1788: 'OKC_API.G_RET_STS_ERROR',
1784: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1785: (
1786: l_api_name,
1787: G_PKG_NAME,
1788: 'OKC_API.G_RET_STS_ERROR',
1789: x_msg_count,
1790: x_msg_data,
1791: '_PVT'
1792: );
1789: x_msg_count,
1790: x_msg_data,
1791: '_PVT'
1792: );
1793: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1794:
1795: IF (l_debug = 'Y') THEN
1796: okc_debug.log('6000: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1797: okc_debug.Reset_Indentation;
1792: );
1793: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1794:
1795: IF (l_debug = 'Y') THEN
1796: okc_debug.log('6000: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1797: okc_debug.Reset_Indentation;
1798: END IF;
1799:
1800: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1796: okc_debug.log('6000: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1797: okc_debug.Reset_Indentation;
1798: END IF;
1799:
1800: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1801: (
1802: l_api_name,
1803: G_PKG_NAME,
1804: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1800: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1801: (
1802: l_api_name,
1803: G_PKG_NAME,
1804: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1805: x_msg_count,
1806: x_msg_data,
1807: '_PVT'
1808: );
1812: okc_debug.log('6100: Exiting validate_row:OTHERS Exception', 2);
1813: okc_debug.Reset_Indentation;
1814: END IF;
1815:
1816: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1817: (
1818: l_api_name,
1819: G_PKG_NAME,
1820: 'OTHERS',
1840: x_pat_rec OUT NOCOPY pat_rec_type) IS
1841:
1842: l_api_version CONSTANT NUMBER := 1;
1843: l_api_name CONSTANT VARCHAR2(30) := 'ADJUSTMENTS_insert_row';
1844: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1845: l_pat_rec pat_rec_type := p_pat_rec;
1846: l_def_pat_rec pat_rec_type;
1847: ----------------------------------------------
1848: -- Set_Attributes for:OKC_PRICE_ADJUSTMENTS --
1850: FUNCTION Set_Attributes (
1851: p_pat_rec IN pat_rec_type,
1852: x_pat_rec OUT NOCOPY pat_rec_type
1853: ) RETURN VARCHAR2 IS
1854: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1855: BEGIN
1856:
1857: x_pat_rec := p_pat_rec;
1858: RETURN(l_return_status);
1864: okc_debug.Set_Indentation('OKC_PAT_PVT');
1865: okc_debug.log('6300: Entered insert_row', 2);
1866: END IF;
1867:
1868: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1869: p_init_msg_list,
1870: '_PVT',
1871: x_return_status);
1872: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1868: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1869: p_init_msg_list,
1870: '_PVT',
1871: x_return_status);
1872: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1873: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1874: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1875: RAISE OKC_API.G_EXCEPTION_ERROR;
1876: END IF;
1869: p_init_msg_list,
1870: '_PVT',
1871: x_return_status);
1872: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1873: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1874: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1875: RAISE OKC_API.G_EXCEPTION_ERROR;
1876: END IF;
1877: --- Setting item attributes
1870: '_PVT',
1871: x_return_status);
1872: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1873: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1874: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1875: RAISE OKC_API.G_EXCEPTION_ERROR;
1876: END IF;
1877: --- Setting item attributes
1878: l_return_status := Set_Attributes(
1871: x_return_status);
1872: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1873: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1874: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1875: RAISE OKC_API.G_EXCEPTION_ERROR;
1876: END IF;
1877: --- Setting item attributes
1878: l_return_status := Set_Attributes(
1879: p_pat_rec, -- IN
1878: l_return_status := Set_Attributes(
1879: p_pat_rec, -- IN
1880: l_pat_rec); -- OUT
1881: --- If any errors happen abort API
1882: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1883: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1884: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1885: RAISE OKC_API.G_EXCEPTION_ERROR;
1886: END IF;
1879: p_pat_rec, -- IN
1880: l_pat_rec); -- OUT
1881: --- If any errors happen abort API
1882: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1883: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1884: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1885: RAISE OKC_API.G_EXCEPTION_ERROR;
1886: END IF;
1887: INSERT INTO OKC_PRICE_ADJUSTMENTS(
1880: l_pat_rec); -- OUT
1881: --- If any errors happen abort API
1882: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1883: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1884: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1885: RAISE OKC_API.G_EXCEPTION_ERROR;
1886: END IF;
1887: INSERT INTO OKC_PRICE_ADJUSTMENTS(
1888: id,
1881: --- If any errors happen abort API
1882: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1883: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1884: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1885: RAISE OKC_API.G_EXCEPTION_ERROR;
1886: END IF;
1887: INSERT INTO OKC_PRICE_ADJUSTMENTS(
1888: id,
1889: pat_id,
2021: l_pat_rec.last_update_login,
2022: l_pat_rec.rebate_transaction_type_code);
2023: -- Set OUT values
2024: x_pat_rec := l_pat_rec;
2025: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2026:
2027: IF (l_debug = 'Y') THEN
2028: okc_debug.log('6400: Exiting insert_row', 2);
2029: okc_debug.Reset_Indentation;
2029: okc_debug.Reset_Indentation;
2030: END IF;
2031:
2032: EXCEPTION
2033: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2034:
2035: IF (l_debug = 'Y') THEN
2036: okc_debug.log('6500: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2037: okc_debug.Reset_Indentation;
2032: EXCEPTION
2033: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2034:
2035: IF (l_debug = 'Y') THEN
2036: okc_debug.log('6500: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2037: okc_debug.Reset_Indentation;
2038: END IF;
2039:
2040: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2036: okc_debug.log('6500: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2037: okc_debug.Reset_Indentation;
2038: END IF;
2039:
2040: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2041: (
2042: l_api_name,
2043: G_PKG_NAME,
2044: 'OKC_API.G_RET_STS_ERROR',
2040: x_return_status := OKC_API.HANDLE_EXCEPTIONS
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:
2051: IF (l_debug = 'Y') THEN
2052: okc_debug.log('6600: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2053: okc_debug.Reset_Indentation;
2048: );
2049: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2050:
2051: IF (l_debug = 'Y') THEN
2052: okc_debug.log('6600: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2053: okc_debug.Reset_Indentation;
2054: END IF;
2055:
2056: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2052: okc_debug.log('6600: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2053: okc_debug.Reset_Indentation;
2054: END IF;
2055:
2056: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2057: (
2058: l_api_name,
2059: G_PKG_NAME,
2060: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2056: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2057: (
2058: l_api_name,
2059: G_PKG_NAME,
2060: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2061: x_msg_count,
2062: x_msg_data,
2063: '_PVT'
2064: );
2068: okc_debug.log('6700: Exiting insert_row:OTHERS Exception', 2);
2069: okc_debug.Reset_Indentation;
2070: END IF;
2071:
2072: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2073: (
2074: l_api_name,
2075: G_PKG_NAME,
2076: 'OTHERS',
2093: x_patv_rec OUT NOCOPY patv_rec_type) IS
2094:
2095: l_api_version CONSTANT NUMBER := 1;
2096: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
2097: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2098: l_patv_rec patv_rec_type;
2099: l_def_patv_rec patv_rec_type;
2100: l_pat_rec pat_rec_type;
2101: lx_pat_rec pat_rec_type;
2122: FUNCTION Set_Attributes (
2123: p_patv_rec IN patv_rec_type,
2124: x_patv_rec OUT NOCOPY patv_rec_type
2125: ) RETURN VARCHAR2 IS
2126: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2127: BEGIN
2128:
2129: x_patv_rec := p_patv_rec;
2130: x_patv_rec.OBJECT_VERSION_NUMBER := 1;
2137: okc_debug.Set_Indentation('OKC_PAT_PVT');
2138: okc_debug.log('7000: Entered insert_row', 2);
2139: END IF;
2140:
2141: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2142: G_PKG_NAME,
2143: p_init_msg_list,
2144: l_api_version,
2145: p_api_version,
2144: l_api_version,
2145: p_api_version,
2146: '_PVT',
2147: x_return_status);
2148: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2149: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2150: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2151: RAISE OKC_API.G_EXCEPTION_ERROR;
2152: END IF;
2145: p_api_version,
2146: '_PVT',
2147: x_return_status);
2148: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2149: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2150: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2151: RAISE OKC_API.G_EXCEPTION_ERROR;
2152: END IF;
2153: l_patv_rec := null_out_defaults(p_patv_rec);
2146: '_PVT',
2147: x_return_status);
2148: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2149: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2150: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2151: RAISE OKC_API.G_EXCEPTION_ERROR;
2152: END IF;
2153: l_patv_rec := null_out_defaults(p_patv_rec);
2154: -- Set primary key value
2147: x_return_status);
2148: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2149: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2150: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2151: RAISE OKC_API.G_EXCEPTION_ERROR;
2152: END IF;
2153: l_patv_rec := null_out_defaults(p_patv_rec);
2154: -- Set primary key value
2155: l_patv_rec.ID := get_seq_id;
2157: l_return_status := Set_Attributes(
2158: l_patv_rec, -- IN
2159: l_def_patv_rec); -- OUT
2160: --- If any errors happen abort API
2161: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2162: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2163: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2164: RAISE OKC_API.G_EXCEPTION_ERROR;
2165: END IF;
2158: l_patv_rec, -- IN
2159: l_def_patv_rec); -- OUT
2160: --- If any errors happen abort API
2161: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2162: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2163: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2164: RAISE OKC_API.G_EXCEPTION_ERROR;
2165: END IF;
2166: l_def_patv_rec := fill_who_columns(l_def_patv_rec);
2159: l_def_patv_rec); -- OUT
2160: --- If any errors happen abort API
2161: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2162: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2163: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2164: RAISE OKC_API.G_EXCEPTION_ERROR;
2165: END IF;
2166: l_def_patv_rec := fill_who_columns(l_def_patv_rec);
2167: --- Validate all non-missing attributes (Item Level Validation)
2160: --- If any errors happen abort API
2161: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2162: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2163: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2164: RAISE OKC_API.G_EXCEPTION_ERROR;
2165: END IF;
2166: l_def_patv_rec := fill_who_columns(l_def_patv_rec);
2167: --- Validate all non-missing attributes (Item Level Validation)
2168: l_return_status := Validate_Attributes(l_def_patv_rec);
2166: l_def_patv_rec := fill_who_columns(l_def_patv_rec);
2167: --- Validate all non-missing attributes (Item Level Validation)
2168: l_return_status := Validate_Attributes(l_def_patv_rec);
2169: --- If any errors happen abort API
2170: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2171: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2172: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2173: RAISE OKC_API.G_EXCEPTION_ERROR;
2174: END IF;
2167: --- Validate all non-missing attributes (Item Level Validation)
2168: l_return_status := Validate_Attributes(l_def_patv_rec);
2169: --- If any errors happen abort API
2170: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2171: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2172: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2173: RAISE OKC_API.G_EXCEPTION_ERROR;
2174: END IF;
2175: l_return_status := Validate_Record(l_def_patv_rec);
2168: l_return_status := Validate_Attributes(l_def_patv_rec);
2169: --- If any errors happen abort API
2170: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2171: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2172: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2173: RAISE OKC_API.G_EXCEPTION_ERROR;
2174: END IF;
2175: l_return_status := Validate_Record(l_def_patv_rec);
2176: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2169: --- If any errors happen abort API
2170: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2171: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2172: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2173: RAISE OKC_API.G_EXCEPTION_ERROR;
2174: END IF;
2175: l_return_status := Validate_Record(l_def_patv_rec);
2176: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2177: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2172: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2173: RAISE OKC_API.G_EXCEPTION_ERROR;
2174: END IF;
2175: l_return_status := Validate_Record(l_def_patv_rec);
2176: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2177: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2178: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2179: RAISE OKC_API.G_EXCEPTION_ERROR;
2180: END IF;
2173: RAISE OKC_API.G_EXCEPTION_ERROR;
2174: END IF;
2175: l_return_status := Validate_Record(l_def_patv_rec);
2176: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2177: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2178: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2179: RAISE OKC_API.G_EXCEPTION_ERROR;
2180: END IF;
2181: --------------------------------------
2174: END IF;
2175: l_return_status := Validate_Record(l_def_patv_rec);
2176: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2177: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2178: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2179: RAISE OKC_API.G_EXCEPTION_ERROR;
2180: END IF;
2181: --------------------------------------
2182: -- Move VIEW record to "Child" records
2175: l_return_status := Validate_Record(l_def_patv_rec);
2176: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2177: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2178: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2179: RAISE OKC_API.G_EXCEPTION_ERROR;
2180: END IF;
2181: --------------------------------------
2182: -- Move VIEW record to "Child" records
2183: --------------------------------------
2192: x_msg_data,
2193: l_pat_rec,
2194: lx_pat_rec
2195: );
2196: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2197: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2198: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2199: RAISE OKC_API.G_EXCEPTION_ERROR;
2200: END IF;
2193: l_pat_rec,
2194: lx_pat_rec
2195: );
2196: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2197: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2198: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2199: RAISE OKC_API.G_EXCEPTION_ERROR;
2200: END IF;
2201: migrate(lx_pat_rec, l_def_patv_rec);
2194: lx_pat_rec
2195: );
2196: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2197: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2198: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2199: RAISE OKC_API.G_EXCEPTION_ERROR;
2200: END IF;
2201: migrate(lx_pat_rec, l_def_patv_rec);
2202: -- Set OUT values
2195: );
2196: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2197: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2198: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2199: RAISE OKC_API.G_EXCEPTION_ERROR;
2200: END IF;
2201: migrate(lx_pat_rec, l_def_patv_rec);
2202: -- Set OUT values
2203: x_patv_rec := l_def_patv_rec;
2200: END IF;
2201: migrate(lx_pat_rec, l_def_patv_rec);
2202: -- Set OUT values
2203: x_patv_rec := l_def_patv_rec;
2204: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2205:
2206: IF (l_debug = 'Y') THEN
2207: okc_debug.log('7100: Exiting insert_row', 2);
2208: okc_debug.Reset_Indentation;
2208: okc_debug.Reset_Indentation;
2209: END IF;
2210:
2211: EXCEPTION
2212: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2213:
2214: IF (l_debug = 'Y') THEN
2215: okc_debug.log('7200: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2216: okc_debug.Reset_Indentation;
2211: EXCEPTION
2212: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2213:
2214: IF (l_debug = 'Y') THEN
2215: okc_debug.log('7200: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2216: okc_debug.Reset_Indentation;
2217: END IF;
2218:
2219: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2215: okc_debug.log('7200: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2216: okc_debug.Reset_Indentation;
2217: END IF;
2218:
2219: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2220: (
2221: l_api_name,
2222: G_PKG_NAME,
2223: 'OKC_API.G_RET_STS_ERROR',
2219: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2220: (
2221: l_api_name,
2222: G_PKG_NAME,
2223: 'OKC_API.G_RET_STS_ERROR',
2224: x_msg_count,
2225: x_msg_data,
2226: '_PVT'
2227: );
2224: x_msg_count,
2225: x_msg_data,
2226: '_PVT'
2227: );
2228: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2229:
2230: IF (l_debug = 'Y') THEN
2231: okc_debug.log('7300: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2232: okc_debug.Reset_Indentation;
2227: );
2228: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2229:
2230: IF (l_debug = 'Y') THEN
2231: okc_debug.log('7300: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2232: okc_debug.Reset_Indentation;
2233: END IF;
2234:
2235: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2231: okc_debug.log('7300: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2232: okc_debug.Reset_Indentation;
2233: END IF;
2234:
2235: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2236: (
2237: l_api_name,
2238: G_PKG_NAME,
2239: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2235: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2236: (
2237: l_api_name,
2238: G_PKG_NAME,
2239: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2240: x_msg_count,
2241: x_msg_data,
2242: '_PVT'
2243: );
2247: okc_debug.log('7400: Exiting insert_row:OTHERS Exception', 2);
2248: okc_debug.Reset_Indentation;
2249: END IF;
2250:
2251: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2252: (
2253: l_api_name,
2254: G_PKG_NAME,
2255: 'OTHERS',
2272: x_patv_tbl OUT NOCOPY patv_tbl_type) IS
2273:
2274: l_api_version CONSTANT NUMBER := 1;
2275: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
2276: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2277: i NUMBER := 0;
2278: BEGIN
2279:
2280: IF (l_debug = 'Y') THEN
2281: okc_debug.Set_Indentation('OKC_PAT_PVT');
2282: okc_debug.log('7500: Entered insert_row', 2);
2283: END IF;
2284:
2285: OKC_API.init_msg_list(p_init_msg_list);
2286: -- Make sure PL/SQL table has records in it before passing
2287: IF (p_patv_tbl.COUNT > 0) THEN
2288: i := p_patv_tbl.FIRST;
2289: LOOP
2288: i := p_patv_tbl.FIRST;
2289: LOOP
2290: insert_row (
2291: p_api_version => p_api_version,
2292: p_init_msg_list => OKC_API.G_FALSE,
2293: x_return_status => x_return_status,
2294: x_msg_count => x_msg_count,
2295: x_msg_data => x_msg_data,
2296: p_patv_rec => p_patv_tbl(i),
2305: okc_debug.Reset_Indentation;
2306: END IF;
2307:
2308: EXCEPTION
2309: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2310:
2311: IF (l_debug = 'Y') THEN
2312: okc_debug.log('7700: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2313: okc_debug.Reset_Indentation;
2308: EXCEPTION
2309: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2310:
2311: IF (l_debug = 'Y') THEN
2312: okc_debug.log('7700: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2313: okc_debug.Reset_Indentation;
2314: END IF;
2315:
2316: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2312: okc_debug.log('7700: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2313: okc_debug.Reset_Indentation;
2314: END IF;
2315:
2316: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2317: (
2318: l_api_name,
2319: G_PKG_NAME,
2320: 'OKC_API.G_RET_STS_ERROR',
2316: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2317: (
2318: l_api_name,
2319: G_PKG_NAME,
2320: 'OKC_API.G_RET_STS_ERROR',
2321: x_msg_count,
2322: x_msg_data,
2323: '_PVT'
2324: );
2321: x_msg_count,
2322: x_msg_data,
2323: '_PVT'
2324: );
2325: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2326:
2327: IF (l_debug = 'Y') THEN
2328: okc_debug.log('7800: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2329: okc_debug.Reset_Indentation;
2324: );
2325: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2326:
2327: IF (l_debug = 'Y') THEN
2328: okc_debug.log('7800: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2329: okc_debug.Reset_Indentation;
2330: END IF;
2331:
2332: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2328: okc_debug.log('7800: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2329: okc_debug.Reset_Indentation;
2330: END IF;
2331:
2332: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2333: (
2334: l_api_name,
2335: G_PKG_NAME,
2336: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2332: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2333: (
2334: l_api_name,
2335: G_PKG_NAME,
2336: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2337: x_msg_count,
2338: x_msg_data,
2339: '_PVT'
2340: );
2344: okc_debug.log('7900: Exiting insert_row:OTHERS Exception', 2);
2345: okc_debug.Reset_Indentation;
2346: END IF;
2347:
2348: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2349: (
2350: l_api_name,
2351: G_PKG_NAME,
2352: 'OTHERS',
2385: WHERE ID = p_pat_rec.id;
2386:
2387: l_api_version CONSTANT NUMBER := 1;
2388: l_api_name CONSTANT VARCHAR2(30) := 'ADJUSTMENTS_lock_row';
2389: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2390: l_object_version_number OKC_PRICE_ADJUSTMENTS.OBJECT_VERSION_NUMBER%TYPE;
2391: lc_object_version_number OKC_PRICE_ADJUSTMENTS.OBJECT_VERSION_NUMBER%TYPE;
2392: l_row_notfound BOOLEAN := FALSE;
2393: lc_row_notfound BOOLEAN := FALSE;
2397: okc_debug.Set_Indentation('OKC_PAT_PVT');
2398: okc_debug.log('8000: Entered lock_row', 2);
2399: END IF;
2400:
2401: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2402: p_init_msg_list,
2403: '_PVT',
2404: x_return_status);
2405: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2401: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2402: p_init_msg_list,
2403: '_PVT',
2404: x_return_status);
2405: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2406: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2407: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2408: RAISE OKC_API.G_EXCEPTION_ERROR;
2409: END IF;
2402: p_init_msg_list,
2403: '_PVT',
2404: x_return_status);
2405: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2406: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2407: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2408: RAISE OKC_API.G_EXCEPTION_ERROR;
2409: END IF;
2410: BEGIN
2403: '_PVT',
2404: x_return_status);
2405: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2406: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2407: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2408: RAISE OKC_API.G_EXCEPTION_ERROR;
2409: END IF;
2410: BEGIN
2411:
2404: x_return_status);
2405: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2406: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2407: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2408: RAISE OKC_API.G_EXCEPTION_ERROR;
2409: END IF;
2410: BEGIN
2411:
2412: IF (l_debug = 'Y') THEN
2434:
2435: IF (lock_csr%ISOPEN) THEN
2436: CLOSE lock_csr;
2437: END IF;
2438: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
2439: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
2440: END;
2441:
2442: IF ( l_row_notfound ) THEN
2445: lc_row_notfound := lchk_csr%NOTFOUND;
2446: CLOSE lchk_csr;
2447: END IF;
2448: IF (lc_row_notfound) THEN
2449: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2450: RAISE OKC_API.G_EXCEPTION_ERROR;
2451: ELSIF lc_object_version_number > p_pat_rec.object_version_number THEN
2452: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2453: RAISE OKC_API.G_EXCEPTION_ERROR;
2446: CLOSE lchk_csr;
2447: END IF;
2448: IF (lc_row_notfound) THEN
2449: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2450: RAISE OKC_API.G_EXCEPTION_ERROR;
2451: ELSIF lc_object_version_number > p_pat_rec.object_version_number THEN
2452: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2453: RAISE OKC_API.G_EXCEPTION_ERROR;
2454: ELSIF lc_object_version_number <> p_pat_rec.object_version_number THEN
2448: IF (lc_row_notfound) THEN
2449: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2450: RAISE OKC_API.G_EXCEPTION_ERROR;
2451: ELSIF lc_object_version_number > p_pat_rec.object_version_number THEN
2452: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2453: RAISE OKC_API.G_EXCEPTION_ERROR;
2454: ELSIF lc_object_version_number <> p_pat_rec.object_version_number THEN
2455: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2456: RAISE OKC_API.G_EXCEPTION_ERROR;
2449: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2450: RAISE OKC_API.G_EXCEPTION_ERROR;
2451: ELSIF lc_object_version_number > p_pat_rec.object_version_number THEN
2452: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2453: RAISE OKC_API.G_EXCEPTION_ERROR;
2454: ELSIF lc_object_version_number <> p_pat_rec.object_version_number THEN
2455: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2456: RAISE OKC_API.G_EXCEPTION_ERROR;
2457: ELSIF lc_object_version_number = -1 THEN
2451: ELSIF lc_object_version_number > p_pat_rec.object_version_number THEN
2452: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2453: RAISE OKC_API.G_EXCEPTION_ERROR;
2454: ELSIF lc_object_version_number <> p_pat_rec.object_version_number THEN
2455: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2456: RAISE OKC_API.G_EXCEPTION_ERROR;
2457: ELSIF lc_object_version_number = -1 THEN
2458: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2459: RAISE OKC_API.G_EXCEPTION_ERROR;
2452: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2453: RAISE OKC_API.G_EXCEPTION_ERROR;
2454: ELSIF lc_object_version_number <> p_pat_rec.object_version_number THEN
2455: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2456: RAISE OKC_API.G_EXCEPTION_ERROR;
2457: ELSIF lc_object_version_number = -1 THEN
2458: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2459: RAISE OKC_API.G_EXCEPTION_ERROR;
2460: END IF;
2454: ELSIF lc_object_version_number <> p_pat_rec.object_version_number THEN
2455: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2456: RAISE OKC_API.G_EXCEPTION_ERROR;
2457: ELSIF lc_object_version_number = -1 THEN
2458: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2459: RAISE OKC_API.G_EXCEPTION_ERROR;
2460: END IF;
2461:
2462: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2455: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2456: RAISE OKC_API.G_EXCEPTION_ERROR;
2457: ELSIF lc_object_version_number = -1 THEN
2458: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2459: RAISE OKC_API.G_EXCEPTION_ERROR;
2460: END IF;
2461:
2462: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2463:
2458: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2459: RAISE OKC_API.G_EXCEPTION_ERROR;
2460: END IF;
2461:
2462: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2463:
2464: IF (l_debug = 'Y') THEN
2465: okc_debug.log('8400: Exiting lock_row', 2);
2466: okc_debug.Reset_Indentation;
2466: okc_debug.Reset_Indentation;
2467: END IF;
2468:
2469: EXCEPTION
2470: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2471:
2472: IF (l_debug = 'Y') THEN
2473: okc_debug.log('8500: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2474: okc_debug.Reset_Indentation;
2469: EXCEPTION
2470: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2471:
2472: IF (l_debug = 'Y') THEN
2473: okc_debug.log('8500: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2474: okc_debug.Reset_Indentation;
2475: END IF;
2476:
2477: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2473: okc_debug.log('8500: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2474: okc_debug.Reset_Indentation;
2475: END IF;
2476:
2477: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2478: (
2479: l_api_name,
2480: G_PKG_NAME,
2481: 'OKC_API.G_RET_STS_ERROR',
2477: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2478: (
2479: l_api_name,
2480: G_PKG_NAME,
2481: 'OKC_API.G_RET_STS_ERROR',
2482: x_msg_count,
2483: x_msg_data,
2484: '_PVT'
2485: );
2482: x_msg_count,
2483: x_msg_data,
2484: '_PVT'
2485: );
2486: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2487:
2488: IF (l_debug = 'Y') THEN
2489: okc_debug.log('8600: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2490: okc_debug.Reset_Indentation;
2485: );
2486: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2487:
2488: IF (l_debug = 'Y') THEN
2489: okc_debug.log('8600: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2490: okc_debug.Reset_Indentation;
2491: END IF;
2492:
2493: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2489: okc_debug.log('8600: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2490: okc_debug.Reset_Indentation;
2491: END IF;
2492:
2493: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2494: (
2495: l_api_name,
2496: G_PKG_NAME,
2497: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2493: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2494: (
2495: l_api_name,
2496: G_PKG_NAME,
2497: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2498: x_msg_count,
2499: x_msg_data,
2500: '_PVT'
2501: );
2505: okc_debug.log('8700: Exiting lock_row:OTHERS Exception', 2);
2506: okc_debug.Reset_Indentation;
2507: END IF;
2508:
2509: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2510: (
2511: l_api_name,
2512: G_PKG_NAME,
2513: 'OTHERS',
2529: p_patv_rec IN patv_rec_type) IS
2530:
2531: l_api_version CONSTANT NUMBER := 1;
2532: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2533: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2534: l_pat_rec pat_rec_type;
2535: BEGIN
2536:
2537: IF (l_debug = 'Y') THEN
2538: okc_debug.Set_Indentation('OKC_PAT_PVT');
2539: okc_debug.log('8800: Entered lock_row', 2);
2540: END IF;
2541:
2542: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2543: G_PKG_NAME,
2544: p_init_msg_list,
2545: l_api_version,
2546: p_api_version,
2545: l_api_version,
2546: p_api_version,
2547: '_PVT',
2548: x_return_status);
2549: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2550: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2551: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2552: RAISE OKC_API.G_EXCEPTION_ERROR;
2553: END IF;
2546: p_api_version,
2547: '_PVT',
2548: x_return_status);
2549: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2550: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2551: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2552: RAISE OKC_API.G_EXCEPTION_ERROR;
2553: END IF;
2554: --------------------------------------
2547: '_PVT',
2548: x_return_status);
2549: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2550: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2551: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2552: RAISE OKC_API.G_EXCEPTION_ERROR;
2553: END IF;
2554: --------------------------------------
2555: -- Move VIEW record to "Child" records
2548: x_return_status);
2549: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2550: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2551: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2552: RAISE OKC_API.G_EXCEPTION_ERROR;
2553: END IF;
2554: --------------------------------------
2555: -- Move VIEW record to "Child" records
2556: --------------------------------------
2564: x_msg_count,
2565: x_msg_data,
2566: l_pat_rec
2567: );
2568: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2569: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2570: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2571: RAISE OKC_API.G_EXCEPTION_ERROR;
2572: END IF;
2565: x_msg_data,
2566: l_pat_rec
2567: );
2568: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2569: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2570: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2571: RAISE OKC_API.G_EXCEPTION_ERROR;
2572: END IF;
2573: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2566: l_pat_rec
2567: );
2568: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2569: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2570: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2571: RAISE OKC_API.G_EXCEPTION_ERROR;
2572: END IF;
2573: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2574:
2567: );
2568: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2569: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2570: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2571: RAISE OKC_API.G_EXCEPTION_ERROR;
2572: END IF;
2573: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2574:
2575: IF (l_debug = 'Y') THEN
2569: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2570: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2571: RAISE OKC_API.G_EXCEPTION_ERROR;
2572: END IF;
2573: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2574:
2575: IF (l_debug = 'Y') THEN
2576: okc_debug.log('8900: Exiting lock_row', 2);
2577: okc_debug.Reset_Indentation;
2577: okc_debug.Reset_Indentation;
2578: END IF;
2579:
2580: EXCEPTION
2581: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2582:
2583: IF (l_debug = 'Y') THEN
2584: okc_debug.log('9000: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2585: okc_debug.Reset_Indentation;
2580: EXCEPTION
2581: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2582:
2583: IF (l_debug = 'Y') THEN
2584: okc_debug.log('9000: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2585: okc_debug.Reset_Indentation;
2586: END IF;
2587:
2588: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2584: okc_debug.log('9000: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2585: okc_debug.Reset_Indentation;
2586: END IF;
2587:
2588: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2589: (
2590: l_api_name,
2591: G_PKG_NAME,
2592: 'OKC_API.G_RET_STS_ERROR',
2588: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2589: (
2590: l_api_name,
2591: G_PKG_NAME,
2592: 'OKC_API.G_RET_STS_ERROR',
2593: x_msg_count,
2594: x_msg_data,
2595: '_PVT'
2596: );
2593: x_msg_count,
2594: x_msg_data,
2595: '_PVT'
2596: );
2597: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2598:
2599: IF (l_debug = 'Y') THEN
2600: okc_debug.log('9100: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2601: okc_debug.Reset_Indentation;
2596: );
2597: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2598:
2599: IF (l_debug = 'Y') THEN
2600: okc_debug.log('9100: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2601: okc_debug.Reset_Indentation;
2602: END IF;
2603:
2604: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2600: okc_debug.log('9100: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2601: okc_debug.Reset_Indentation;
2602: END IF;
2603:
2604: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2605: (
2606: l_api_name,
2607: G_PKG_NAME,
2608: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2604: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2605: (
2606: l_api_name,
2607: G_PKG_NAME,
2608: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2609: x_msg_count,
2610: x_msg_data,
2611: '_PVT'
2612: );
2616: okc_debug.log('9200: Exiting lock_row:OTHERS Exception', 2);
2617: okc_debug.Reset_Indentation;
2618: END IF;
2619:
2620: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2621: (
2622: l_api_name,
2623: G_PKG_NAME,
2624: 'OTHERS',
2640: p_patv_tbl IN patv_tbl_type) IS
2641:
2642: l_api_version CONSTANT NUMBER := 1;
2643: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2644: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2645: i NUMBER := 0;
2646: BEGIN
2647:
2648: IF (l_debug = 'Y') THEN
2649: okc_debug.Set_Indentation('OKC_PAT_PVT');
2650: okc_debug.log('9300: Entered lock_row', 2);
2651: END IF;
2652:
2653: OKC_API.init_msg_list(p_init_msg_list);
2654: -- Make sure PL/SQL table has records in it before passing
2655: IF (p_patv_tbl.COUNT > 0) THEN
2656: i := p_patv_tbl.FIRST;
2657: LOOP
2656: i := p_patv_tbl.FIRST;
2657: LOOP
2658: lock_row (
2659: p_api_version => p_api_version,
2660: p_init_msg_list => OKC_API.G_FALSE,
2661: x_return_status => x_return_status,
2662: x_msg_count => x_msg_count,
2663: x_msg_data => x_msg_data,
2664: p_patv_rec => p_patv_tbl(i));
2672: okc_debug.Reset_Indentation;
2673: END IF;
2674:
2675: EXCEPTION
2676: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2677:
2678: IF (l_debug = 'Y') THEN
2679: okc_debug.log('9500: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2680: okc_debug.Reset_Indentation;
2675: EXCEPTION
2676: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2677:
2678: IF (l_debug = 'Y') THEN
2679: okc_debug.log('9500: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2680: okc_debug.Reset_Indentation;
2681: END IF;
2682:
2683: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2679: okc_debug.log('9500: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2680: okc_debug.Reset_Indentation;
2681: END IF;
2682:
2683: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2684: (
2685: l_api_name,
2686: G_PKG_NAME,
2687: 'OKC_API.G_RET_STS_ERROR',
2683: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2684: (
2685: l_api_name,
2686: G_PKG_NAME,
2687: 'OKC_API.G_RET_STS_ERROR',
2688: x_msg_count,
2689: x_msg_data,
2690: '_PVT'
2691: );
2688: x_msg_count,
2689: x_msg_data,
2690: '_PVT'
2691: );
2692: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2693:
2694: IF (l_debug = 'Y') THEN
2695: okc_debug.log('9600: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2696: okc_debug.Reset_Indentation;
2691: );
2692: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2693:
2694: IF (l_debug = 'Y') THEN
2695: okc_debug.log('9600: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2696: okc_debug.Reset_Indentation;
2697: END IF;
2698:
2699: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2695: okc_debug.log('9600: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2696: okc_debug.Reset_Indentation;
2697: END IF;
2698:
2699: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2700: (
2701: l_api_name,
2702: G_PKG_NAME,
2703: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2699: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2700: (
2701: l_api_name,
2702: G_PKG_NAME,
2703: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2704: x_msg_count,
2705: x_msg_data,
2706: '_PVT'
2707: );
2711: okc_debug.log('9700: Exiting lock_row:OTHERS Exception', 2);
2712: okc_debug.Reset_Indentation;
2713: END IF;
2714:
2715: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2716: (
2717: l_api_name,
2718: G_PKG_NAME,
2719: 'OTHERS',
2739: x_pat_rec OUT NOCOPY pat_rec_type) IS
2740:
2741: l_api_version CONSTANT NUMBER := 1;
2742: l_api_name CONSTANT VARCHAR2(30) := 'ADJUSTMENTS_update_row';
2743: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2744: l_pat_rec pat_rec_type := p_pat_rec;
2745: l_def_pat_rec pat_rec_type;
2746: l_row_notfound BOOLEAN := TRUE;
2747: ----------------------------------
2752: x_pat_rec OUT NOCOPY pat_rec_type
2753: ) RETURN VARCHAR2 IS
2754: l_pat_rec pat_rec_type;
2755: l_row_notfound BOOLEAN := TRUE;
2756: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2757: BEGIN
2758:
2759: IF (l_debug = 'Y') THEN
2760: okc_debug.Set_Indentation('OKC_PAT_PVT');
2764: x_pat_rec := p_pat_rec;
2765: -- Get current database values
2766: l_pat_rec := get_rec(p_pat_rec, l_row_notfound);
2767: IF (l_row_notfound) THEN
2768: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2769: END IF;
2770: IF (x_pat_rec.id = OKC_API.G_MISS_NUM)
2771: THEN
2772: x_pat_rec.id := l_pat_rec.id;
2766: l_pat_rec := get_rec(p_pat_rec, l_row_notfound);
2767: IF (l_row_notfound) THEN
2768: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2769: END IF;
2770: IF (x_pat_rec.id = OKC_API.G_MISS_NUM)
2771: THEN
2772: x_pat_rec.id := l_pat_rec.id;
2773: END IF;
2774: IF (x_pat_rec.pat_id = OKC_API.G_MISS_NUM)
2770: IF (x_pat_rec.id = OKC_API.G_MISS_NUM)
2771: THEN
2772: x_pat_rec.id := l_pat_rec.id;
2773: END IF;
2774: IF (x_pat_rec.pat_id = OKC_API.G_MISS_NUM)
2775: THEN
2776: x_pat_rec.pat_id := l_pat_rec.pat_id;
2777: END IF;
2778: IF (x_pat_rec.chr_id = OKC_API.G_MISS_NUM)
2774: IF (x_pat_rec.pat_id = OKC_API.G_MISS_NUM)
2775: THEN
2776: x_pat_rec.pat_id := l_pat_rec.pat_id;
2777: END IF;
2778: IF (x_pat_rec.chr_id = OKC_API.G_MISS_NUM)
2779: THEN
2780: x_pat_rec.chr_id := l_pat_rec.chr_id;
2781: END IF;
2782: IF (x_pat_rec.cle_id = OKC_API.G_MISS_NUM)
2778: IF (x_pat_rec.chr_id = OKC_API.G_MISS_NUM)
2779: THEN
2780: x_pat_rec.chr_id := l_pat_rec.chr_id;
2781: END IF;
2782: IF (x_pat_rec.cle_id = OKC_API.G_MISS_NUM)
2783: THEN
2784: x_pat_rec.cle_id := l_pat_rec.cle_id;
2785: END IF;
2786: IF (x_pat_rec.bsl_id = OKC_API.G_MISS_NUM)
2782: IF (x_pat_rec.cle_id = OKC_API.G_MISS_NUM)
2783: THEN
2784: x_pat_rec.cle_id := l_pat_rec.cle_id;
2785: END IF;
2786: IF (x_pat_rec.bsl_id = OKC_API.G_MISS_NUM)
2787: THEN
2788: x_pat_rec.bsl_id := l_pat_rec.bsl_id;
2789: END IF;
2790: IF (x_pat_rec.bcl_id = OKC_API.G_MISS_NUM)
2786: IF (x_pat_rec.bsl_id = OKC_API.G_MISS_NUM)
2787: THEN
2788: x_pat_rec.bsl_id := l_pat_rec.bsl_id;
2789: END IF;
2790: IF (x_pat_rec.bcl_id = OKC_API.G_MISS_NUM)
2791: THEN
2792: x_pat_rec.bcl_id := l_pat_rec.bcl_id;
2793: END IF;
2794: IF (x_pat_rec.created_by = OKC_API.G_MISS_NUM)
2790: IF (x_pat_rec.bcl_id = OKC_API.G_MISS_NUM)
2791: THEN
2792: x_pat_rec.bcl_id := l_pat_rec.bcl_id;
2793: END IF;
2794: IF (x_pat_rec.created_by = OKC_API.G_MISS_NUM)
2795: THEN
2796: x_pat_rec.created_by := l_pat_rec.created_by;
2797: END IF;
2798: IF (x_pat_rec.creation_date = OKC_API.G_MISS_DATE)
2794: IF (x_pat_rec.created_by = OKC_API.G_MISS_NUM)
2795: THEN
2796: x_pat_rec.created_by := l_pat_rec.created_by;
2797: END IF;
2798: IF (x_pat_rec.creation_date = OKC_API.G_MISS_DATE)
2799: THEN
2800: x_pat_rec.creation_date := l_pat_rec.creation_date;
2801: END IF;
2802: IF (x_pat_rec.last_updated_by = OKC_API.G_MISS_NUM)
2798: IF (x_pat_rec.creation_date = OKC_API.G_MISS_DATE)
2799: THEN
2800: x_pat_rec.creation_date := l_pat_rec.creation_date;
2801: END IF;
2802: IF (x_pat_rec.last_updated_by = OKC_API.G_MISS_NUM)
2803: THEN
2804: x_pat_rec.last_updated_by := l_pat_rec.last_updated_by;
2805: END IF;
2806: IF (x_pat_rec.last_update_date = OKC_API.G_MISS_DATE)
2802: IF (x_pat_rec.last_updated_by = OKC_API.G_MISS_NUM)
2803: THEN
2804: x_pat_rec.last_updated_by := l_pat_rec.last_updated_by;
2805: END IF;
2806: IF (x_pat_rec.last_update_date = OKC_API.G_MISS_DATE)
2807: THEN
2808: x_pat_rec.last_update_date := l_pat_rec.last_update_date;
2809: END IF;
2810: IF (x_pat_rec.modified_from = OKC_API.G_MISS_NUM)
2806: IF (x_pat_rec.last_update_date = OKC_API.G_MISS_DATE)
2807: THEN
2808: x_pat_rec.last_update_date := l_pat_rec.last_update_date;
2809: END IF;
2810: IF (x_pat_rec.modified_from = OKC_API.G_MISS_NUM)
2811: THEN
2812: x_pat_rec.modified_from := l_pat_rec.modified_from;
2813: END IF;
2814: IF (x_pat_rec.modified_to = OKC_API.G_MISS_NUM)
2810: IF (x_pat_rec.modified_from = OKC_API.G_MISS_NUM)
2811: THEN
2812: x_pat_rec.modified_from := l_pat_rec.modified_from;
2813: END IF;
2814: IF (x_pat_rec.modified_to = OKC_API.G_MISS_NUM)
2815: THEN
2816: x_pat_rec.modified_to := l_pat_rec.modified_to;
2817: END IF;
2818: IF (x_pat_rec.modifier_mechanism_type_code = OKC_API.G_MISS_CHAR)
2814: IF (x_pat_rec.modified_to = OKC_API.G_MISS_NUM)
2815: THEN
2816: x_pat_rec.modified_to := l_pat_rec.modified_to;
2817: END IF;
2818: IF (x_pat_rec.modifier_mechanism_type_code = OKC_API.G_MISS_CHAR)
2819: THEN
2820: x_pat_rec.modifier_mechanism_type_code := l_pat_rec.modifier_mechanism_type_code;
2821: END IF;
2822: IF (x_pat_rec.operand = OKC_API.G_MISS_NUM)
2818: IF (x_pat_rec.modifier_mechanism_type_code = OKC_API.G_MISS_CHAR)
2819: THEN
2820: x_pat_rec.modifier_mechanism_type_code := l_pat_rec.modifier_mechanism_type_code;
2821: END IF;
2822: IF (x_pat_rec.operand = OKC_API.G_MISS_NUM)
2823: THEN
2824: x_pat_rec.operand := l_pat_rec.operand;
2825: END IF;
2826: IF (x_pat_rec.arithmetic_operator = OKC_API.G_MISS_CHAR)
2822: IF (x_pat_rec.operand = OKC_API.G_MISS_NUM)
2823: THEN
2824: x_pat_rec.operand := l_pat_rec.operand;
2825: END IF;
2826: IF (x_pat_rec.arithmetic_operator = OKC_API.G_MISS_CHAR)
2827: THEN
2828: x_pat_rec.arithmetic_operator := l_pat_rec.arithmetic_operator;
2829: END IF;
2830: IF (x_pat_rec.automatic_flag = OKC_API.G_MISS_CHAR)
2826: IF (x_pat_rec.arithmetic_operator = OKC_API.G_MISS_CHAR)
2827: THEN
2828: x_pat_rec.arithmetic_operator := l_pat_rec.arithmetic_operator;
2829: END IF;
2830: IF (x_pat_rec.automatic_flag = OKC_API.G_MISS_CHAR)
2831: THEN
2832: x_pat_rec.automatic_flag := l_pat_rec.automatic_flag;
2833: END IF;
2834: IF (x_pat_rec.update_allowed = OKC_API.G_MISS_CHAR)
2830: IF (x_pat_rec.automatic_flag = OKC_API.G_MISS_CHAR)
2831: THEN
2832: x_pat_rec.automatic_flag := l_pat_rec.automatic_flag;
2833: END IF;
2834: IF (x_pat_rec.update_allowed = OKC_API.G_MISS_CHAR)
2835: THEN
2836: x_pat_rec.update_allowed := l_pat_rec.update_allowed;
2837: END IF;
2838: IF (x_pat_rec.updated_flag = OKC_API.G_MISS_CHAR)
2834: IF (x_pat_rec.update_allowed = OKC_API.G_MISS_CHAR)
2835: THEN
2836: x_pat_rec.update_allowed := l_pat_rec.update_allowed;
2837: END IF;
2838: IF (x_pat_rec.updated_flag = OKC_API.G_MISS_CHAR)
2839: THEN
2840: x_pat_rec.updated_flag := l_pat_rec.updated_flag;
2841: END IF;
2842: IF (x_pat_rec.applied_flag = OKC_API.G_MISS_CHAR)
2838: IF (x_pat_rec.updated_flag = OKC_API.G_MISS_CHAR)
2839: THEN
2840: x_pat_rec.updated_flag := l_pat_rec.updated_flag;
2841: END IF;
2842: IF (x_pat_rec.applied_flag = OKC_API.G_MISS_CHAR)
2843: THEN
2844: x_pat_rec.applied_flag := l_pat_rec.applied_flag;
2845: END IF;
2846: IF (x_pat_rec.on_invoice_flag = OKC_API.G_MISS_CHAR)
2842: IF (x_pat_rec.applied_flag = OKC_API.G_MISS_CHAR)
2843: THEN
2844: x_pat_rec.applied_flag := l_pat_rec.applied_flag;
2845: END IF;
2846: IF (x_pat_rec.on_invoice_flag = OKC_API.G_MISS_CHAR)
2847: THEN
2848: x_pat_rec.on_invoice_flag := l_pat_rec.on_invoice_flag;
2849: END IF;
2850: IF (x_pat_rec.pricing_phase_id = OKC_API.G_MISS_NUM)
2846: IF (x_pat_rec.on_invoice_flag = OKC_API.G_MISS_CHAR)
2847: THEN
2848: x_pat_rec.on_invoice_flag := l_pat_rec.on_invoice_flag;
2849: END IF;
2850: IF (x_pat_rec.pricing_phase_id = OKC_API.G_MISS_NUM)
2851: THEN
2852: x_pat_rec.pricing_phase_id := l_pat_rec.pricing_phase_id;
2853: END IF;
2854: IF (x_pat_rec.context = OKC_API.G_MISS_CHAR)
2850: IF (x_pat_rec.pricing_phase_id = OKC_API.G_MISS_NUM)
2851: THEN
2852: x_pat_rec.pricing_phase_id := l_pat_rec.pricing_phase_id;
2853: END IF;
2854: IF (x_pat_rec.context = OKC_API.G_MISS_CHAR)
2855: THEN
2856: x_pat_rec.context := l_pat_rec.context;
2857: END IF;
2858: IF (x_pat_rec.program_application_id = OKC_API.G_MISS_NUM)
2854: IF (x_pat_rec.context = OKC_API.G_MISS_CHAR)
2855: THEN
2856: x_pat_rec.context := l_pat_rec.context;
2857: END IF;
2858: IF (x_pat_rec.program_application_id = OKC_API.G_MISS_NUM)
2859: THEN
2860: x_pat_rec.program_application_id := l_pat_rec.program_application_id;
2861: END IF;
2862: IF (x_pat_rec.program_id = OKC_API.G_MISS_NUM)
2858: IF (x_pat_rec.program_application_id = OKC_API.G_MISS_NUM)
2859: THEN
2860: x_pat_rec.program_application_id := l_pat_rec.program_application_id;
2861: END IF;
2862: IF (x_pat_rec.program_id = OKC_API.G_MISS_NUM)
2863: THEN
2864: x_pat_rec.program_id := l_pat_rec.program_id;
2865: END IF;
2866: IF (x_pat_rec.program_update_date = OKC_API.G_MISS_DATE)
2862: IF (x_pat_rec.program_id = OKC_API.G_MISS_NUM)
2863: THEN
2864: x_pat_rec.program_id := l_pat_rec.program_id;
2865: END IF;
2866: IF (x_pat_rec.program_update_date = OKC_API.G_MISS_DATE)
2867: THEN
2868: x_pat_rec.program_update_date := l_pat_rec.program_update_date;
2869: END IF;
2870: IF (x_pat_rec.request_id = OKC_API.G_MISS_NUM)
2866: IF (x_pat_rec.program_update_date = OKC_API.G_MISS_DATE)
2867: THEN
2868: x_pat_rec.program_update_date := l_pat_rec.program_update_date;
2869: END IF;
2870: IF (x_pat_rec.request_id = OKC_API.G_MISS_NUM)
2871: THEN
2872: x_pat_rec.request_id := l_pat_rec.request_id;
2873: END IF;
2874: IF (x_pat_rec.list_header_id = OKC_API.G_MISS_NUM)
2870: IF (x_pat_rec.request_id = OKC_API.G_MISS_NUM)
2871: THEN
2872: x_pat_rec.request_id := l_pat_rec.request_id;
2873: END IF;
2874: IF (x_pat_rec.list_header_id = OKC_API.G_MISS_NUM)
2875: THEN
2876: x_pat_rec.list_header_id := l_pat_rec.list_header_id;
2877: END IF;
2878: IF (x_pat_rec.list_line_id = OKC_API.G_MISS_NUM)
2874: IF (x_pat_rec.list_header_id = OKC_API.G_MISS_NUM)
2875: THEN
2876: x_pat_rec.list_header_id := l_pat_rec.list_header_id;
2877: END IF;
2878: IF (x_pat_rec.list_line_id = OKC_API.G_MISS_NUM)
2879: THEN
2880: x_pat_rec.list_line_id := l_pat_rec.list_line_id;
2881: END IF;
2882: IF (x_pat_rec.list_line_type_code = OKC_API.G_MISS_CHAR)
2878: IF (x_pat_rec.list_line_id = OKC_API.G_MISS_NUM)
2879: THEN
2880: x_pat_rec.list_line_id := l_pat_rec.list_line_id;
2881: END IF;
2882: IF (x_pat_rec.list_line_type_code = OKC_API.G_MISS_CHAR)
2883: THEN
2884: x_pat_rec.list_line_type_code := l_pat_rec.list_line_type_code;
2885: END IF;
2886: IF (x_pat_rec.change_reason_code = OKC_API.G_MISS_CHAR)
2882: IF (x_pat_rec.list_line_type_code = OKC_API.G_MISS_CHAR)
2883: THEN
2884: x_pat_rec.list_line_type_code := l_pat_rec.list_line_type_code;
2885: END IF;
2886: IF (x_pat_rec.change_reason_code = OKC_API.G_MISS_CHAR)
2887: THEN
2888: x_pat_rec.change_reason_code := l_pat_rec.change_reason_code;
2889: END IF;
2890: IF (x_pat_rec.change_reason_text = OKC_API.G_MISS_CHAR)
2886: IF (x_pat_rec.change_reason_code = OKC_API.G_MISS_CHAR)
2887: THEN
2888: x_pat_rec.change_reason_code := l_pat_rec.change_reason_code;
2889: END IF;
2890: IF (x_pat_rec.change_reason_text = OKC_API.G_MISS_CHAR)
2891: THEN
2892: x_pat_rec.change_reason_text := l_pat_rec.change_reason_text;
2893: END IF;
2894: IF (x_pat_rec.estimated_flag = OKC_API.G_MISS_CHAR)
2890: IF (x_pat_rec.change_reason_text = OKC_API.G_MISS_CHAR)
2891: THEN
2892: x_pat_rec.change_reason_text := l_pat_rec.change_reason_text;
2893: END IF;
2894: IF (x_pat_rec.estimated_flag = OKC_API.G_MISS_CHAR)
2895: THEN
2896: x_pat_rec.estimated_flag := l_pat_rec.estimated_flag;
2897: END IF;
2898: IF (x_pat_rec.adjusted_amount = OKC_API.G_MISS_NUM)
2894: IF (x_pat_rec.estimated_flag = OKC_API.G_MISS_CHAR)
2895: THEN
2896: x_pat_rec.estimated_flag := l_pat_rec.estimated_flag;
2897: END IF;
2898: IF (x_pat_rec.adjusted_amount = OKC_API.G_MISS_NUM)
2899: THEN
2900: x_pat_rec.adjusted_amount := l_pat_rec.adjusted_amount;
2901: END IF;
2902: IF (x_pat_rec.charge_type_code = OKC_API.G_MISS_CHAR)
2898: IF (x_pat_rec.adjusted_amount = OKC_API.G_MISS_NUM)
2899: THEN
2900: x_pat_rec.adjusted_amount := l_pat_rec.adjusted_amount;
2901: END IF;
2902: IF (x_pat_rec.charge_type_code = OKC_API.G_MISS_CHAR)
2903: THEN
2904: x_pat_rec.charge_type_code := l_pat_rec.charge_type_code ;
2905: END IF;
2906: IF (x_pat_rec.charge_subtype_code = OKC_API.G_MISS_CHAR)
2902: IF (x_pat_rec.charge_type_code = OKC_API.G_MISS_CHAR)
2903: THEN
2904: x_pat_rec.charge_type_code := l_pat_rec.charge_type_code ;
2905: END IF;
2906: IF (x_pat_rec.charge_subtype_code = OKC_API.G_MISS_CHAR)
2907: THEN
2908: x_pat_rec.charge_subtype_code := l_pat_rec.charge_subtype_code;
2909: END IF;
2910: IF (x_pat_rec.range_break_quantity = OKC_API.G_MISS_NUM)
2906: IF (x_pat_rec.charge_subtype_code = OKC_API.G_MISS_CHAR)
2907: THEN
2908: x_pat_rec.charge_subtype_code := l_pat_rec.charge_subtype_code;
2909: END IF;
2910: IF (x_pat_rec.range_break_quantity = OKC_API.G_MISS_NUM)
2911: THEN
2912: x_pat_rec.range_break_quantity := l_pat_rec.range_break_quantity;
2913: END IF;
2914: IF (x_pat_rec.accrual_conversion_rate = OKC_API.G_MISS_NUM)
2910: IF (x_pat_rec.range_break_quantity = OKC_API.G_MISS_NUM)
2911: THEN
2912: x_pat_rec.range_break_quantity := l_pat_rec.range_break_quantity;
2913: END IF;
2914: IF (x_pat_rec.accrual_conversion_rate = OKC_API.G_MISS_NUM)
2915: THEN
2916: x_pat_rec.accrual_conversion_rate := l_pat_rec.accrual_conversion_rate;
2917: END IF;
2918: IF (x_pat_rec.pricing_group_sequence = OKC_API.G_MISS_NUM)
2914: IF (x_pat_rec.accrual_conversion_rate = OKC_API.G_MISS_NUM)
2915: THEN
2916: x_pat_rec.accrual_conversion_rate := l_pat_rec.accrual_conversion_rate;
2917: END IF;
2918: IF (x_pat_rec.pricing_group_sequence = OKC_API.G_MISS_NUM)
2919: THEN
2920: x_pat_rec.pricing_group_sequence := l_pat_rec.pricing_group_sequence;
2921: END IF;
2922: IF (x_pat_rec.accrual_flag = OKC_API.G_MISS_CHAR)
2918: IF (x_pat_rec.pricing_group_sequence = OKC_API.G_MISS_NUM)
2919: THEN
2920: x_pat_rec.pricing_group_sequence := l_pat_rec.pricing_group_sequence;
2921: END IF;
2922: IF (x_pat_rec.accrual_flag = OKC_API.G_MISS_CHAR)
2923: THEN
2924: x_pat_rec.accrual_flag := l_pat_rec.accrual_flag;
2925: END IF;
2926: IF (x_pat_rec.list_line_no = OKC_API.G_MISS_CHAR)
2922: IF (x_pat_rec.accrual_flag = OKC_API.G_MISS_CHAR)
2923: THEN
2924: x_pat_rec.accrual_flag := l_pat_rec.accrual_flag;
2925: END IF;
2926: IF (x_pat_rec.list_line_no = OKC_API.G_MISS_CHAR)
2927: THEN
2928: x_pat_rec.list_line_no := l_pat_rec.list_line_no;
2929: END IF;
2930: IF (x_pat_rec.source_system_code = OKC_API.G_MISS_CHAR)
2926: IF (x_pat_rec.list_line_no = OKC_API.G_MISS_CHAR)
2927: THEN
2928: x_pat_rec.list_line_no := l_pat_rec.list_line_no;
2929: END IF;
2930: IF (x_pat_rec.source_system_code = OKC_API.G_MISS_CHAR)
2931: THEN
2932: x_pat_rec.source_system_code := l_pat_rec.source_system_code;
2933: END IF;
2934: IF (x_pat_rec.benefit_qty = OKC_API.G_MISS_NUM)
2930: IF (x_pat_rec.source_system_code = OKC_API.G_MISS_CHAR)
2931: THEN
2932: x_pat_rec.source_system_code := l_pat_rec.source_system_code;
2933: END IF;
2934: IF (x_pat_rec.benefit_qty = OKC_API.G_MISS_NUM)
2935: THEN
2936: x_pat_rec.benefit_qty := l_pat_rec.benefit_qty;
2937: END IF;
2938: IF (x_pat_rec.benefit_uom_code = OKC_API.G_MISS_CHAR)
2934: IF (x_pat_rec.benefit_qty = OKC_API.G_MISS_NUM)
2935: THEN
2936: x_pat_rec.benefit_qty := l_pat_rec.benefit_qty;
2937: END IF;
2938: IF (x_pat_rec.benefit_uom_code = OKC_API.G_MISS_CHAR)
2939: THEN
2940: x_pat_rec.benefit_uom_code := l_pat_rec.benefit_uom_code;
2941: END IF;
2942: IF (x_pat_rec.expiration_date = OKC_API.G_MISS_DATE)
2938: IF (x_pat_rec.benefit_uom_code = OKC_API.G_MISS_CHAR)
2939: THEN
2940: x_pat_rec.benefit_uom_code := l_pat_rec.benefit_uom_code;
2941: END IF;
2942: IF (x_pat_rec.expiration_date = OKC_API.G_MISS_DATE)
2943: THEN
2944: x_pat_rec.expiration_date := l_pat_rec.expiration_date;
2945: END IF;
2946: IF (x_pat_rec.modifier_level_code = OKC_API.G_MISS_CHAR)
2942: IF (x_pat_rec.expiration_date = OKC_API.G_MISS_DATE)
2943: THEN
2944: x_pat_rec.expiration_date := l_pat_rec.expiration_date;
2945: END IF;
2946: IF (x_pat_rec.modifier_level_code = OKC_API.G_MISS_CHAR)
2947: THEN
2948: x_pat_rec.modifier_level_code := l_pat_rec.modifier_level_code;
2949: END IF;
2950: IF (x_pat_rec.price_break_type_code = OKC_API.G_MISS_CHAR)
2946: IF (x_pat_rec.modifier_level_code = OKC_API.G_MISS_CHAR)
2947: THEN
2948: x_pat_rec.modifier_level_code := l_pat_rec.modifier_level_code;
2949: END IF;
2950: IF (x_pat_rec.price_break_type_code = OKC_API.G_MISS_CHAR)
2951: THEN
2952: x_pat_rec.price_break_type_code := l_pat_rec.price_break_type_code;
2953: END IF;
2954: IF (x_pat_rec.substitution_attribute = OKC_API.G_MISS_CHAR)
2950: IF (x_pat_rec.price_break_type_code = OKC_API.G_MISS_CHAR)
2951: THEN
2952: x_pat_rec.price_break_type_code := l_pat_rec.price_break_type_code;
2953: END IF;
2954: IF (x_pat_rec.substitution_attribute = OKC_API.G_MISS_CHAR)
2955: THEN
2956: x_pat_rec.substitution_attribute := l_pat_rec.substitution_attribute;
2957: END IF;
2958: IF (x_pat_rec.proration_type_code = OKC_API.G_MISS_CHAR)
2954: IF (x_pat_rec.substitution_attribute = OKC_API.G_MISS_CHAR)
2955: THEN
2956: x_pat_rec.substitution_attribute := l_pat_rec.substitution_attribute;
2957: END IF;
2958: IF (x_pat_rec.proration_type_code = OKC_API.G_MISS_CHAR)
2959: THEN
2960: x_pat_rec.proration_type_code := l_pat_rec.proration_type_code;
2961: END IF;
2962: IF (x_pat_rec.include_on_returns_flag = OKC_API.G_MISS_CHAR)
2958: IF (x_pat_rec.proration_type_code = OKC_API.G_MISS_CHAR)
2959: THEN
2960: x_pat_rec.proration_type_code := l_pat_rec.proration_type_code;
2961: END IF;
2962: IF (x_pat_rec.include_on_returns_flag = OKC_API.G_MISS_CHAR)
2963: THEN
2964: x_pat_rec.include_on_returns_flag := l_pat_rec.include_on_returns_flag;
2965: END IF;
2966: IF (x_pat_rec.object_version_number = OKC_API.G_MISS_NUM)
2962: IF (x_pat_rec.include_on_returns_flag = OKC_API.G_MISS_CHAR)
2963: THEN
2964: x_pat_rec.include_on_returns_flag := l_pat_rec.include_on_returns_flag;
2965: END IF;
2966: IF (x_pat_rec.object_version_number = OKC_API.G_MISS_NUM)
2967: THEN
2968: x_pat_rec.object_version_number := l_pat_rec.object_version_number;
2969: END IF;
2970:
2967: THEN
2968: x_pat_rec.object_version_number := l_pat_rec.object_version_number;
2969: END IF;
2970:
2971: IF (x_pat_rec.attribute1 = OKC_API.G_MISS_CHAR)
2972: THEN
2973: x_pat_rec.attribute1 := l_pat_rec.attribute1;
2974: END IF;
2975: IF (x_pat_rec.attribute2 = OKC_API.G_MISS_CHAR)
2971: IF (x_pat_rec.attribute1 = OKC_API.G_MISS_CHAR)
2972: THEN
2973: x_pat_rec.attribute1 := l_pat_rec.attribute1;
2974: END IF;
2975: IF (x_pat_rec.attribute2 = OKC_API.G_MISS_CHAR)
2976: THEN
2977: x_pat_rec.attribute2 := l_pat_rec.attribute2;
2978: END IF;
2979: IF (x_pat_rec.attribute3 = OKC_API.G_MISS_CHAR)
2975: IF (x_pat_rec.attribute2 = OKC_API.G_MISS_CHAR)
2976: THEN
2977: x_pat_rec.attribute2 := l_pat_rec.attribute2;
2978: END IF;
2979: IF (x_pat_rec.attribute3 = OKC_API.G_MISS_CHAR)
2980: THEN
2981: x_pat_rec.attribute3 := l_pat_rec.attribute3;
2982: END IF;
2983: IF (x_pat_rec.attribute4 = OKC_API.G_MISS_CHAR)
2979: IF (x_pat_rec.attribute3 = OKC_API.G_MISS_CHAR)
2980: THEN
2981: x_pat_rec.attribute3 := l_pat_rec.attribute3;
2982: END IF;
2983: IF (x_pat_rec.attribute4 = OKC_API.G_MISS_CHAR)
2984: THEN
2985: x_pat_rec.attribute4 := l_pat_rec.attribute4;
2986: END IF;
2987: IF (x_pat_rec.attribute5 = OKC_API.G_MISS_CHAR)
2983: IF (x_pat_rec.attribute4 = OKC_API.G_MISS_CHAR)
2984: THEN
2985: x_pat_rec.attribute4 := l_pat_rec.attribute4;
2986: END IF;
2987: IF (x_pat_rec.attribute5 = OKC_API.G_MISS_CHAR)
2988: THEN
2989: x_pat_rec.attribute5 := l_pat_rec.attribute5;
2990: END IF;
2991: IF (x_pat_rec.attribute6 = OKC_API.G_MISS_CHAR)
2987: IF (x_pat_rec.attribute5 = OKC_API.G_MISS_CHAR)
2988: THEN
2989: x_pat_rec.attribute5 := l_pat_rec.attribute5;
2990: END IF;
2991: IF (x_pat_rec.attribute6 = OKC_API.G_MISS_CHAR)
2992: THEN
2993: x_pat_rec.attribute6 := l_pat_rec.attribute6;
2994: END IF;
2995: IF (x_pat_rec.attribute7 = OKC_API.G_MISS_CHAR)
2991: IF (x_pat_rec.attribute6 = OKC_API.G_MISS_CHAR)
2992: THEN
2993: x_pat_rec.attribute6 := l_pat_rec.attribute6;
2994: END IF;
2995: IF (x_pat_rec.attribute7 = OKC_API.G_MISS_CHAR)
2996: THEN
2997: x_pat_rec.attribute7 := l_pat_rec.attribute7;
2998: END IF;
2999: IF (x_pat_rec.attribute8 = OKC_API.G_MISS_CHAR)
2995: IF (x_pat_rec.attribute7 = OKC_API.G_MISS_CHAR)
2996: THEN
2997: x_pat_rec.attribute7 := l_pat_rec.attribute7;
2998: END IF;
2999: IF (x_pat_rec.attribute8 = OKC_API.G_MISS_CHAR)
3000: THEN
3001: x_pat_rec.attribute8 := l_pat_rec.attribute8;
3002: END IF;
3003: IF (x_pat_rec.attribute9 = OKC_API.G_MISS_CHAR)
2999: IF (x_pat_rec.attribute8 = OKC_API.G_MISS_CHAR)
3000: THEN
3001: x_pat_rec.attribute8 := l_pat_rec.attribute8;
3002: END IF;
3003: IF (x_pat_rec.attribute9 = OKC_API.G_MISS_CHAR)
3004: THEN
3005: x_pat_rec.attribute9 := l_pat_rec.attribute9;
3006: END IF;
3007: IF (x_pat_rec.attribute10 = OKC_API.G_MISS_CHAR)
3003: IF (x_pat_rec.attribute9 = OKC_API.G_MISS_CHAR)
3004: THEN
3005: x_pat_rec.attribute9 := l_pat_rec.attribute9;
3006: END IF;
3007: IF (x_pat_rec.attribute10 = OKC_API.G_MISS_CHAR)
3008: THEN
3009: x_pat_rec.attribute10 := l_pat_rec.attribute10;
3010: END IF;
3011: IF (x_pat_rec.attribute11 = OKC_API.G_MISS_CHAR)
3007: IF (x_pat_rec.attribute10 = OKC_API.G_MISS_CHAR)
3008: THEN
3009: x_pat_rec.attribute10 := l_pat_rec.attribute10;
3010: END IF;
3011: IF (x_pat_rec.attribute11 = OKC_API.G_MISS_CHAR)
3012: THEN
3013: x_pat_rec.attribute11 := l_pat_rec.attribute11;
3014: END IF;
3015: IF (x_pat_rec.attribute12 = OKC_API.G_MISS_CHAR)
3011: IF (x_pat_rec.attribute11 = OKC_API.G_MISS_CHAR)
3012: THEN
3013: x_pat_rec.attribute11 := l_pat_rec.attribute11;
3014: END IF;
3015: IF (x_pat_rec.attribute12 = OKC_API.G_MISS_CHAR)
3016: THEN
3017: x_pat_rec.attribute12 := l_pat_rec.attribute12;
3018: END IF;
3019: IF (x_pat_rec.attribute13 = OKC_API.G_MISS_CHAR)
3015: IF (x_pat_rec.attribute12 = OKC_API.G_MISS_CHAR)
3016: THEN
3017: x_pat_rec.attribute12 := l_pat_rec.attribute12;
3018: END IF;
3019: IF (x_pat_rec.attribute13 = OKC_API.G_MISS_CHAR)
3020: THEN
3021: x_pat_rec.attribute13 := l_pat_rec.attribute13;
3022: END IF;
3023: IF (x_pat_rec.attribute14 = OKC_API.G_MISS_CHAR)
3019: IF (x_pat_rec.attribute13 = OKC_API.G_MISS_CHAR)
3020: THEN
3021: x_pat_rec.attribute13 := l_pat_rec.attribute13;
3022: END IF;
3023: IF (x_pat_rec.attribute14 = OKC_API.G_MISS_CHAR)
3024: THEN
3025: x_pat_rec.attribute14 := l_pat_rec.attribute14;
3026: END IF;
3027: IF (x_pat_rec.attribute15 = OKC_API.G_MISS_CHAR)
3023: IF (x_pat_rec.attribute14 = OKC_API.G_MISS_CHAR)
3024: THEN
3025: x_pat_rec.attribute14 := l_pat_rec.attribute14;
3026: END IF;
3027: IF (x_pat_rec.attribute15 = OKC_API.G_MISS_CHAR)
3028: THEN
3029: x_pat_rec.attribute15 := l_pat_rec.attribute15;
3030: END IF;
3031: IF (x_pat_rec.last_update_login = OKC_API.G_MISS_NUM)
3027: IF (x_pat_rec.attribute15 = OKC_API.G_MISS_CHAR)
3028: THEN
3029: x_pat_rec.attribute15 := l_pat_rec.attribute15;
3030: END IF;
3031: IF (x_pat_rec.last_update_login = OKC_API.G_MISS_NUM)
3032: THEN
3033: x_pat_rec.last_update_login := l_pat_rec.last_update_login;
3034: END IF;
3035: IF (x_pat_rec.rebate_transaction_type_code = OKC_API.G_MISS_CHAR)
3031: IF (x_pat_rec.last_update_login = OKC_API.G_MISS_NUM)
3032: THEN
3033: x_pat_rec.last_update_login := l_pat_rec.last_update_login;
3034: END IF;
3035: IF (x_pat_rec.rebate_transaction_type_code = OKC_API.G_MISS_CHAR)
3036: THEN
3037: x_pat_rec.rebate_transaction_type_code := l_pat_rec.rebate_transaction_type_code;
3038: END IF;
3039:
3051: FUNCTION Set_Attributes (
3052: p_pat_rec IN pat_rec_type,
3053: x_pat_rec OUT NOCOPY pat_rec_type
3054: ) RETURN VARCHAR2 IS
3055: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3056: BEGIN
3057:
3058: x_pat_rec := p_pat_rec;
3059: RETURN(l_return_status);
3065: okc_debug.Set_Indentation('OKC_PAT_PVT');
3066: okc_debug.log('10000: Entered update_row', 2);
3067: END IF;
3068:
3069: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3070: p_init_msg_list,
3071: '_PVT',
3072: x_return_status);
3073: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3069: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3070: p_init_msg_list,
3071: '_PVT',
3072: x_return_status);
3073: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3074: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3075: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3076: RAISE OKC_API.G_EXCEPTION_ERROR;
3077: END IF;
3070: p_init_msg_list,
3071: '_PVT',
3072: x_return_status);
3073: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3074: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3075: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3076: RAISE OKC_API.G_EXCEPTION_ERROR;
3077: END IF;
3078: --- Setting item attributes
3071: '_PVT',
3072: x_return_status);
3073: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3074: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3075: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3076: RAISE OKC_API.G_EXCEPTION_ERROR;
3077: END IF;
3078: --- Setting item attributes
3079: l_return_status := Set_Attributes(
3072: x_return_status);
3073: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3074: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3075: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3076: RAISE OKC_API.G_EXCEPTION_ERROR;
3077: END IF;
3078: --- Setting item attributes
3079: l_return_status := Set_Attributes(
3080: p_pat_rec, -- IN
3079: l_return_status := Set_Attributes(
3080: p_pat_rec, -- IN
3081: l_pat_rec); -- OUT
3082: --- If any errors happen abort API
3083: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3084: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3085: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3086: RAISE OKC_API.G_EXCEPTION_ERROR;
3087: END IF;
3080: p_pat_rec, -- IN
3081: l_pat_rec); -- OUT
3082: --- If any errors happen abort API
3083: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3084: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3085: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3086: RAISE OKC_API.G_EXCEPTION_ERROR;
3087: END IF;
3088: l_return_status := populate_new_record(l_pat_rec, l_def_pat_rec);
3081: l_pat_rec); -- OUT
3082: --- If any errors happen abort API
3083: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3084: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3085: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3086: RAISE OKC_API.G_EXCEPTION_ERROR;
3087: END IF;
3088: l_return_status := populate_new_record(l_pat_rec, l_def_pat_rec);
3089: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3082: --- If any errors happen abort API
3083: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3084: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3085: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3086: RAISE OKC_API.G_EXCEPTION_ERROR;
3087: END IF;
3088: l_return_status := populate_new_record(l_pat_rec, l_def_pat_rec);
3089: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3090: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3085: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3086: RAISE OKC_API.G_EXCEPTION_ERROR;
3087: END IF;
3088: l_return_status := populate_new_record(l_pat_rec, l_def_pat_rec);
3089: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3090: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3091: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3092: RAISE OKC_API.G_EXCEPTION_ERROR;
3093: END IF;
3086: RAISE OKC_API.G_EXCEPTION_ERROR;
3087: END IF;
3088: l_return_status := populate_new_record(l_pat_rec, l_def_pat_rec);
3089: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3090: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3091: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3092: RAISE OKC_API.G_EXCEPTION_ERROR;
3093: END IF;
3094: UPDATE OKC_PRICE_ADJUSTMENTS
3087: END IF;
3088: l_return_status := populate_new_record(l_pat_rec, l_def_pat_rec);
3089: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3090: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3091: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3092: RAISE OKC_API.G_EXCEPTION_ERROR;
3093: END IF;
3094: UPDATE OKC_PRICE_ADJUSTMENTS
3095: SET --PAT_ID = l_def_pat_rec.pat_id,
3088: l_return_status := populate_new_record(l_pat_rec, l_def_pat_rec);
3089: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3090: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3091: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3092: RAISE OKC_API.G_EXCEPTION_ERROR;
3093: END IF;
3094: UPDATE OKC_PRICE_ADJUSTMENTS
3095: SET --PAT_ID = l_def_pat_rec.pat_id,
3096: --CHR_ID = l_def_pat_rec.chr_id,
3161: REBATE_TRANSACTION_TYPE_CODE = l_def_pat_rec.rebate_transaction_type_code
3162: WHERE ID = l_def_pat_rec.id;
3163:
3164: x_pat_rec := l_def_pat_rec;
3165: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3166:
3167: IF (l_debug = 'Y') THEN
3168: okc_debug.log('10100: Exiting update_row', 2);
3169: okc_debug.Reset_Indentation;
3169: okc_debug.Reset_Indentation;
3170: END IF;
3171:
3172: EXCEPTION
3173: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3174:
3175: IF (l_debug = 'Y') THEN
3176: okc_debug.log('10200: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3177: okc_debug.Reset_Indentation;
3172: EXCEPTION
3173: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3174:
3175: IF (l_debug = 'Y') THEN
3176: okc_debug.log('10200: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3177: okc_debug.Reset_Indentation;
3178: END IF;
3179:
3180: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3176: okc_debug.log('10200: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3177: okc_debug.Reset_Indentation;
3178: END IF;
3179:
3180: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3181: (
3182: l_api_name,
3183: G_PKG_NAME,
3184: 'OKC_API.G_RET_STS_ERROR',
3180: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3181: (
3182: l_api_name,
3183: G_PKG_NAME,
3184: 'OKC_API.G_RET_STS_ERROR',
3185: x_msg_count,
3186: x_msg_data,
3187: '_PVT'
3188: );
3185: x_msg_count,
3186: x_msg_data,
3187: '_PVT'
3188: );
3189: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3190:
3191: IF (l_debug = 'Y') THEN
3192: okc_debug.log('10300: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3193: okc_debug.Reset_Indentation;
3188: );
3189: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3190:
3191: IF (l_debug = 'Y') THEN
3192: okc_debug.log('10300: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3193: okc_debug.Reset_Indentation;
3194: END IF;
3195:
3196: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3192: okc_debug.log('10300: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3193: okc_debug.Reset_Indentation;
3194: END IF;
3195:
3196: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3197: (
3198: l_api_name,
3199: G_PKG_NAME,
3200: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3196: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3197: (
3198: l_api_name,
3199: G_PKG_NAME,
3200: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3201: x_msg_count,
3202: x_msg_data,
3203: '_PVT'
3204: );
3208: okc_debug.log('10400: Exiting update_row:OTHERS Exception', 2);
3209: okc_debug.Reset_Indentation;
3210: END IF;
3211:
3212: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3213: (
3214: l_api_name,
3215: G_PKG_NAME,
3216: 'OTHERS',
3233: x_patv_rec OUT NOCOPY patv_rec_type) IS
3234:
3235: l_api_version CONSTANT NUMBER := 1;
3236: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
3237: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3238: l_patv_rec patv_rec_type := p_patv_rec;
3239: l_def_patv_rec patv_rec_type;
3240: l_pat_rec pat_rec_type;
3241: lx_pat_rec pat_rec_type;
3262: x_patv_rec OUT NOCOPY patv_rec_type
3263: ) RETURN VARCHAR2 IS
3264: l_patv_rec patv_rec_type;
3265: l_row_notfound BOOLEAN := TRUE;
3266: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3267: BEGIN
3268:
3269: IF (l_debug = 'Y') THEN
3270: okc_debug.Set_Indentation('OKC_PAT_PVT');
3274: x_patv_rec := p_patv_rec;
3275: -- Get current database values
3276: l_patv_rec := get_rec(p_patv_rec, l_row_notfound);
3277: IF (l_row_notfound) THEN
3278: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3279: END IF;
3280: IF (x_patv_rec.id = OKC_API.G_MISS_NUM)
3281: THEN
3282: x_patv_rec.id := l_patv_rec.id;
3276: l_patv_rec := get_rec(p_patv_rec, l_row_notfound);
3277: IF (l_row_notfound) THEN
3278: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3279: END IF;
3280: IF (x_patv_rec.id = OKC_API.G_MISS_NUM)
3281: THEN
3282: x_patv_rec.id := l_patv_rec.id;
3283: END IF;
3284: IF (x_patv_rec.pat_id = OKC_API.G_MISS_NUM)
3280: IF (x_patv_rec.id = OKC_API.G_MISS_NUM)
3281: THEN
3282: x_patv_rec.id := l_patv_rec.id;
3283: END IF;
3284: IF (x_patv_rec.pat_id = OKC_API.G_MISS_NUM)
3285: THEN
3286: x_patv_rec.pat_id := l_patv_rec.pat_id;
3287: END IF;
3288: IF (x_patv_rec.chr_id = OKC_API.G_MISS_NUM)
3284: IF (x_patv_rec.pat_id = OKC_API.G_MISS_NUM)
3285: THEN
3286: x_patv_rec.pat_id := l_patv_rec.pat_id;
3287: END IF;
3288: IF (x_patv_rec.chr_id = OKC_API.G_MISS_NUM)
3289: THEN
3290: x_patv_rec.chr_id := l_patv_rec.chr_id;
3291: END IF;
3292: IF (x_patv_rec.cle_id = OKC_API.G_MISS_NUM)
3288: IF (x_patv_rec.chr_id = OKC_API.G_MISS_NUM)
3289: THEN
3290: x_patv_rec.chr_id := l_patv_rec.chr_id;
3291: END IF;
3292: IF (x_patv_rec.cle_id = OKC_API.G_MISS_NUM)
3293: THEN
3294: x_patv_rec.cle_id := l_patv_rec.cle_id;
3295: END IF;
3296: IF (x_patv_rec.bsl_id = OKC_API.G_MISS_NUM)
3292: IF (x_patv_rec.cle_id = OKC_API.G_MISS_NUM)
3293: THEN
3294: x_patv_rec.cle_id := l_patv_rec.cle_id;
3295: END IF;
3296: IF (x_patv_rec.bsl_id = OKC_API.G_MISS_NUM)
3297: THEN
3298: x_patv_rec.bsl_id := l_patv_rec.bsl_id;
3299: END IF;
3300: IF (x_patv_rec.bcl_id = OKC_API.G_MISS_NUM)
3296: IF (x_patv_rec.bsl_id = OKC_API.G_MISS_NUM)
3297: THEN
3298: x_patv_rec.bsl_id := l_patv_rec.bsl_id;
3299: END IF;
3300: IF (x_patv_rec.bcl_id = OKC_API.G_MISS_NUM)
3301: THEN
3302: x_patv_rec.bcl_id := l_patv_rec.bcl_id;
3303: END IF;
3304: IF (x_patv_rec.modified_from = OKC_API.G_MISS_NUM)
3300: IF (x_patv_rec.bcl_id = OKC_API.G_MISS_NUM)
3301: THEN
3302: x_patv_rec.bcl_id := l_patv_rec.bcl_id;
3303: END IF;
3304: IF (x_patv_rec.modified_from = OKC_API.G_MISS_NUM)
3305: THEN
3306: x_patv_rec.modified_from := l_patv_rec.modified_from;
3307: END IF;
3308: IF (x_patv_rec.modified_to = OKC_API.G_MISS_NUM)
3304: IF (x_patv_rec.modified_from = OKC_API.G_MISS_NUM)
3305: THEN
3306: x_patv_rec.modified_from := l_patv_rec.modified_from;
3307: END IF;
3308: IF (x_patv_rec.modified_to = OKC_API.G_MISS_NUM)
3309: THEN
3310: x_patv_rec.modified_to := l_patv_rec.modified_to;
3311: END IF;
3312: IF (x_patv_rec.modifier_mechanism_type_code = OKC_API.G_MISS_CHAR)
3308: IF (x_patv_rec.modified_to = OKC_API.G_MISS_NUM)
3309: THEN
3310: x_patv_rec.modified_to := l_patv_rec.modified_to;
3311: END IF;
3312: IF (x_patv_rec.modifier_mechanism_type_code = OKC_API.G_MISS_CHAR)
3313: THEN
3314: x_patv_rec.modifier_mechanism_type_code := l_patv_rec.modifier_mechanism_type_code;
3315: END IF;
3316: IF (x_patv_rec.operand = OKC_API.G_MISS_NUM)
3312: IF (x_patv_rec.modifier_mechanism_type_code = OKC_API.G_MISS_CHAR)
3313: THEN
3314: x_patv_rec.modifier_mechanism_type_code := l_patv_rec.modifier_mechanism_type_code;
3315: END IF;
3316: IF (x_patv_rec.operand = OKC_API.G_MISS_NUM)
3317: THEN
3318: x_patv_rec.operand := l_patv_rec.operand;
3319: END IF;
3320: IF (x_patv_rec.arithmetic_operator = OKC_API.G_MISS_CHAR)
3316: IF (x_patv_rec.operand = OKC_API.G_MISS_NUM)
3317: THEN
3318: x_patv_rec.operand := l_patv_rec.operand;
3319: END IF;
3320: IF (x_patv_rec.arithmetic_operator = OKC_API.G_MISS_CHAR)
3321: THEN
3322: x_patv_rec.arithmetic_operator := l_patv_rec.arithmetic_operator;
3323: END IF;
3324: IF (x_patv_rec.automatic_flag = OKC_API.G_MISS_CHAR)
3320: IF (x_patv_rec.arithmetic_operator = OKC_API.G_MISS_CHAR)
3321: THEN
3322: x_patv_rec.arithmetic_operator := l_patv_rec.arithmetic_operator;
3323: END IF;
3324: IF (x_patv_rec.automatic_flag = OKC_API.G_MISS_CHAR)
3325: THEN
3326: x_patv_rec.automatic_flag := l_patv_rec.automatic_flag;
3327: END IF;
3328: IF (x_patv_rec.update_allowed = OKC_API.G_MISS_CHAR)
3324: IF (x_patv_rec.automatic_flag = OKC_API.G_MISS_CHAR)
3325: THEN
3326: x_patv_rec.automatic_flag := l_patv_rec.automatic_flag;
3327: END IF;
3328: IF (x_patv_rec.update_allowed = OKC_API.G_MISS_CHAR)
3329: THEN
3330: x_patv_rec.update_allowed := l_patv_rec.update_allowed;
3331: END IF;
3332: IF (x_patv_rec.updated_flag = OKC_API.G_MISS_CHAR)
3328: IF (x_patv_rec.update_allowed = OKC_API.G_MISS_CHAR)
3329: THEN
3330: x_patv_rec.update_allowed := l_patv_rec.update_allowed;
3331: END IF;
3332: IF (x_patv_rec.updated_flag = OKC_API.G_MISS_CHAR)
3333: THEN
3334: x_patv_rec.updated_flag := l_patv_rec.updated_flag;
3335: END IF;
3336: IF (x_patv_rec.applied_flag = OKC_API.G_MISS_CHAR)
3332: IF (x_patv_rec.updated_flag = OKC_API.G_MISS_CHAR)
3333: THEN
3334: x_patv_rec.updated_flag := l_patv_rec.updated_flag;
3335: END IF;
3336: IF (x_patv_rec.applied_flag = OKC_API.G_MISS_CHAR)
3337: THEN
3338: x_patv_rec.applied_flag := l_patv_rec.applied_flag;
3339: END IF;
3340: IF (x_patv_rec.on_invoice_flag = OKC_API.G_MISS_CHAR)
3336: IF (x_patv_rec.applied_flag = OKC_API.G_MISS_CHAR)
3337: THEN
3338: x_patv_rec.applied_flag := l_patv_rec.applied_flag;
3339: END IF;
3340: IF (x_patv_rec.on_invoice_flag = OKC_API.G_MISS_CHAR)
3341: THEN
3342: x_patv_rec.on_invoice_flag := l_patv_rec.on_invoice_flag;
3343: END IF;
3344: IF (x_patv_rec.pricing_phase_id = OKC_API.G_MISS_NUM)
3340: IF (x_patv_rec.on_invoice_flag = OKC_API.G_MISS_CHAR)
3341: THEN
3342: x_patv_rec.on_invoice_flag := l_patv_rec.on_invoice_flag;
3343: END IF;
3344: IF (x_patv_rec.pricing_phase_id = OKC_API.G_MISS_NUM)
3345: THEN
3346: x_patv_rec.pricing_phase_id := l_patv_rec.pricing_phase_id;
3347: END IF;
3348: IF (x_patv_rec.context = OKC_API.G_MISS_CHAR)
3344: IF (x_patv_rec.pricing_phase_id = OKC_API.G_MISS_NUM)
3345: THEN
3346: x_patv_rec.pricing_phase_id := l_patv_rec.pricing_phase_id;
3347: END IF;
3348: IF (x_patv_rec.context = OKC_API.G_MISS_CHAR)
3349: THEN
3350: x_patv_rec.context := l_patv_rec.context;
3351: END IF;
3352:
3349: THEN
3350: x_patv_rec.context := l_patv_rec.context;
3351: END IF;
3352:
3353: IF (x_patv_rec.program_application_id = OKC_API.G_MISS_NUM)
3354: THEN
3355: x_patv_rec.program_application_id := l_patv_rec.program_application_id;
3356: END IF;
3357: IF (x_patv_rec.program_id = OKC_API.G_MISS_NUM)
3353: IF (x_patv_rec.program_application_id = OKC_API.G_MISS_NUM)
3354: THEN
3355: x_patv_rec.program_application_id := l_patv_rec.program_application_id;
3356: END IF;
3357: IF (x_patv_rec.program_id = OKC_API.G_MISS_NUM)
3358: THEN
3359: x_patv_rec.program_id := l_patv_rec.program_id;
3360: END IF;
3361: IF (x_patv_rec.program_update_date = OKC_API.G_MISS_DATE)
3357: IF (x_patv_rec.program_id = OKC_API.G_MISS_NUM)
3358: THEN
3359: x_patv_rec.program_id := l_patv_rec.program_id;
3360: END IF;
3361: IF (x_patv_rec.program_update_date = OKC_API.G_MISS_DATE)
3362: THEN
3363: x_patv_rec.program_update_date := l_patv_rec.program_update_date;
3364: END IF;
3365: IF (x_patv_rec.request_id = OKC_API.G_MISS_NUM)
3361: IF (x_patv_rec.program_update_date = OKC_API.G_MISS_DATE)
3362: THEN
3363: x_patv_rec.program_update_date := l_patv_rec.program_update_date;
3364: END IF;
3365: IF (x_patv_rec.request_id = OKC_API.G_MISS_NUM)
3366: THEN
3367: x_patv_rec.request_id := l_patv_rec.request_id;
3368: END IF;
3369: IF (x_patv_rec.list_header_id = OKC_API.G_MISS_NUM)
3365: IF (x_patv_rec.request_id = OKC_API.G_MISS_NUM)
3366: THEN
3367: x_patv_rec.request_id := l_patv_rec.request_id;
3368: END IF;
3369: IF (x_patv_rec.list_header_id = OKC_API.G_MISS_NUM)
3370: THEN
3371: x_patv_rec.list_header_id := l_patv_rec.list_header_id;
3372: END IF;
3373: IF (x_patv_rec.list_line_id = OKC_API.G_MISS_NUM)
3369: IF (x_patv_rec.list_header_id = OKC_API.G_MISS_NUM)
3370: THEN
3371: x_patv_rec.list_header_id := l_patv_rec.list_header_id;
3372: END IF;
3373: IF (x_patv_rec.list_line_id = OKC_API.G_MISS_NUM)
3374: THEN
3375: x_patv_rec.list_line_id := l_patv_rec.list_line_id;
3376: END IF;
3377: IF (x_patv_rec.list_line_type_code = OKC_API.G_MISS_CHAR)
3373: IF (x_patv_rec.list_line_id = OKC_API.G_MISS_NUM)
3374: THEN
3375: x_patv_rec.list_line_id := l_patv_rec.list_line_id;
3376: END IF;
3377: IF (x_patv_rec.list_line_type_code = OKC_API.G_MISS_CHAR)
3378: THEN
3379: x_patv_rec.list_line_type_code := l_patv_rec.list_line_type_code;
3380: END IF;
3381: IF (x_patv_rec.change_reason_code = OKC_API.G_MISS_CHAR)
3377: IF (x_patv_rec.list_line_type_code = OKC_API.G_MISS_CHAR)
3378: THEN
3379: x_patv_rec.list_line_type_code := l_patv_rec.list_line_type_code;
3380: END IF;
3381: IF (x_patv_rec.change_reason_code = OKC_API.G_MISS_CHAR)
3382: THEN
3383: x_patv_rec.change_reason_code := l_patv_rec.change_reason_code;
3384: END IF;
3385: IF (x_patv_rec.change_reason_text = OKC_API.G_MISS_CHAR)
3381: IF (x_patv_rec.change_reason_code = OKC_API.G_MISS_CHAR)
3382: THEN
3383: x_patv_rec.change_reason_code := l_patv_rec.change_reason_code;
3384: END IF;
3385: IF (x_patv_rec.change_reason_text = OKC_API.G_MISS_CHAR)
3386: THEN
3387: x_patv_rec.change_reason_text := l_patv_rec.change_reason_text;
3388: END IF;
3389: IF (x_patv_rec.estimated_flag = OKC_API.G_MISS_CHAR)
3385: IF (x_patv_rec.change_reason_text = OKC_API.G_MISS_CHAR)
3386: THEN
3387: x_patv_rec.change_reason_text := l_patv_rec.change_reason_text;
3388: END IF;
3389: IF (x_patv_rec.estimated_flag = OKC_API.G_MISS_CHAR)
3390: THEN
3391: x_patv_rec.estimated_flag := l_patv_rec.estimated_flag;
3392: END IF;
3393: IF (x_patv_rec.adjusted_amount = OKC_API.G_MISS_NUM)
3389: IF (x_patv_rec.estimated_flag = OKC_API.G_MISS_CHAR)
3390: THEN
3391: x_patv_rec.estimated_flag := l_patv_rec.estimated_flag;
3392: END IF;
3393: IF (x_patv_rec.adjusted_amount = OKC_API.G_MISS_NUM)
3394: THEN
3395: x_patv_rec.adjusted_amount := l_patv_rec.adjusted_amount;
3396: END IF;
3397: IF (x_patv_rec.charge_type_code = OKC_API.G_MISS_CHAR)
3393: IF (x_patv_rec.adjusted_amount = OKC_API.G_MISS_NUM)
3394: THEN
3395: x_patv_rec.adjusted_amount := l_patv_rec.adjusted_amount;
3396: END IF;
3397: IF (x_patv_rec.charge_type_code = OKC_API.G_MISS_CHAR)
3398: THEN
3399: x_patv_rec.charge_type_code := l_patv_rec.charge_type_code ;
3400: END IF;
3401: IF (x_patv_rec.charge_subtype_code = OKC_API.G_MISS_CHAR)
3397: IF (x_patv_rec.charge_type_code = OKC_API.G_MISS_CHAR)
3398: THEN
3399: x_patv_rec.charge_type_code := l_patv_rec.charge_type_code ;
3400: END IF;
3401: IF (x_patv_rec.charge_subtype_code = OKC_API.G_MISS_CHAR)
3402: THEN
3403: x_patv_rec.charge_subtype_code := l_patv_rec.charge_subtype_code;
3404: END IF;
3405: IF (x_patv_rec.range_break_quantity = OKC_API.G_MISS_NUM)
3401: IF (x_patv_rec.charge_subtype_code = OKC_API.G_MISS_CHAR)
3402: THEN
3403: x_patv_rec.charge_subtype_code := l_patv_rec.charge_subtype_code;
3404: END IF;
3405: IF (x_patv_rec.range_break_quantity = OKC_API.G_MISS_NUM)
3406: THEN
3407: x_patv_rec.range_break_quantity := l_patv_rec.range_break_quantity;
3408: END IF;
3409: IF (x_patv_rec.accrual_conversion_rate = OKC_API.G_MISS_NUM)
3405: IF (x_patv_rec.range_break_quantity = OKC_API.G_MISS_NUM)
3406: THEN
3407: x_patv_rec.range_break_quantity := l_patv_rec.range_break_quantity;
3408: END IF;
3409: IF (x_patv_rec.accrual_conversion_rate = OKC_API.G_MISS_NUM)
3410: THEN
3411: x_patv_rec.accrual_conversion_rate := l_patv_rec.accrual_conversion_rate;
3412: END IF;
3413: IF (x_patv_rec.pricing_group_sequence = OKC_API.G_MISS_NUM)
3409: IF (x_patv_rec.accrual_conversion_rate = OKC_API.G_MISS_NUM)
3410: THEN
3411: x_patv_rec.accrual_conversion_rate := l_patv_rec.accrual_conversion_rate;
3412: END IF;
3413: IF (x_patv_rec.pricing_group_sequence = OKC_API.G_MISS_NUM)
3414: THEN
3415: x_patv_rec.pricing_group_sequence := l_patv_rec.pricing_group_sequence;
3416: END IF;
3417: IF (x_patv_rec.accrual_flag = OKC_API.G_MISS_CHAR)
3413: IF (x_patv_rec.pricing_group_sequence = OKC_API.G_MISS_NUM)
3414: THEN
3415: x_patv_rec.pricing_group_sequence := l_patv_rec.pricing_group_sequence;
3416: END IF;
3417: IF (x_patv_rec.accrual_flag = OKC_API.G_MISS_CHAR)
3418: THEN
3419: x_patv_rec.accrual_flag := l_patv_rec.accrual_flag;
3420: END IF;
3421: IF (x_patv_rec.list_line_no = OKC_API.G_MISS_CHAR)
3417: IF (x_patv_rec.accrual_flag = OKC_API.G_MISS_CHAR)
3418: THEN
3419: x_patv_rec.accrual_flag := l_patv_rec.accrual_flag;
3420: END IF;
3421: IF (x_patv_rec.list_line_no = OKC_API.G_MISS_CHAR)
3422: THEN
3423: x_patv_rec.list_line_no := l_patv_rec.list_line_no;
3424: END IF;
3425: IF (x_patv_rec.source_system_code = OKC_API.G_MISS_CHAR)
3421: IF (x_patv_rec.list_line_no = OKC_API.G_MISS_CHAR)
3422: THEN
3423: x_patv_rec.list_line_no := l_patv_rec.list_line_no;
3424: END IF;
3425: IF (x_patv_rec.source_system_code = OKC_API.G_MISS_CHAR)
3426: THEN
3427: x_patv_rec.source_system_code := l_patv_rec.source_system_code;
3428: END IF;
3429: IF (x_patv_rec.benefit_qty = OKC_API.G_MISS_NUM)
3425: IF (x_patv_rec.source_system_code = OKC_API.G_MISS_CHAR)
3426: THEN
3427: x_patv_rec.source_system_code := l_patv_rec.source_system_code;
3428: END IF;
3429: IF (x_patv_rec.benefit_qty = OKC_API.G_MISS_NUM)
3430: THEN
3431: x_patv_rec.benefit_qty := l_patv_rec.benefit_qty;
3432: END IF;
3433: IF (x_patv_rec.benefit_uom_code = OKC_API.G_MISS_CHAR)
3429: IF (x_patv_rec.benefit_qty = OKC_API.G_MISS_NUM)
3430: THEN
3431: x_patv_rec.benefit_qty := l_patv_rec.benefit_qty;
3432: END IF;
3433: IF (x_patv_rec.benefit_uom_code = OKC_API.G_MISS_CHAR)
3434: THEN
3435: x_patv_rec.benefit_uom_code := l_patv_rec.benefit_uom_code;
3436: END IF;
3437:
3434: THEN
3435: x_patv_rec.benefit_uom_code := l_patv_rec.benefit_uom_code;
3436: END IF;
3437:
3438: IF (x_patv_rec.expiration_date = OKC_API.G_MISS_DATE)
3439: THEN
3440: x_patv_rec.expiration_date := l_patv_rec.expiration_date;
3441: END IF;
3442: IF (x_patv_rec.modifier_level_code = OKC_API.G_MISS_CHAR)
3438: IF (x_patv_rec.expiration_date = OKC_API.G_MISS_DATE)
3439: THEN
3440: x_patv_rec.expiration_date := l_patv_rec.expiration_date;
3441: END IF;
3442: IF (x_patv_rec.modifier_level_code = OKC_API.G_MISS_CHAR)
3443: THEN
3444: x_patv_rec.modifier_level_code := l_patv_rec.modifier_level_code;
3445: END IF;
3446: IF (x_patv_rec.price_break_type_code = OKC_API.G_MISS_CHAR)
3442: IF (x_patv_rec.modifier_level_code = OKC_API.G_MISS_CHAR)
3443: THEN
3444: x_patv_rec.modifier_level_code := l_patv_rec.modifier_level_code;
3445: END IF;
3446: IF (x_patv_rec.price_break_type_code = OKC_API.G_MISS_CHAR)
3447: THEN
3448: x_patv_rec.price_break_type_code := l_patv_rec.price_break_type_code;
3449: END IF;
3450: IF (x_patv_rec.substitution_attribute = OKC_API.G_MISS_CHAR)
3446: IF (x_patv_rec.price_break_type_code = OKC_API.G_MISS_CHAR)
3447: THEN
3448: x_patv_rec.price_break_type_code := l_patv_rec.price_break_type_code;
3449: END IF;
3450: IF (x_patv_rec.substitution_attribute = OKC_API.G_MISS_CHAR)
3451: THEN
3452: x_patv_rec.substitution_attribute := l_patv_rec.substitution_attribute;
3453: END IF;
3454: IF (x_patv_rec.proration_type_code = OKC_API.G_MISS_CHAR)
3450: IF (x_patv_rec.substitution_attribute = OKC_API.G_MISS_CHAR)
3451: THEN
3452: x_patv_rec.substitution_attribute := l_patv_rec.substitution_attribute;
3453: END IF;
3454: IF (x_patv_rec.proration_type_code = OKC_API.G_MISS_CHAR)
3455: THEN
3456: x_patv_rec.proration_type_code := l_patv_rec.proration_type_code;
3457: END IF;
3458: IF (x_patv_rec.include_on_returns_flag = OKC_API.G_MISS_CHAR)
3454: IF (x_patv_rec.proration_type_code = OKC_API.G_MISS_CHAR)
3455: THEN
3456: x_patv_rec.proration_type_code := l_patv_rec.proration_type_code;
3457: END IF;
3458: IF (x_patv_rec.include_on_returns_flag = OKC_API.G_MISS_CHAR)
3459: THEN
3460: x_patv_rec.include_on_returns_flag := l_patv_rec.include_on_returns_flag;
3461: END IF;
3462: IF (x_patv_rec.object_version_number = OKC_API.G_MISS_NUM)
3458: IF (x_patv_rec.include_on_returns_flag = OKC_API.G_MISS_CHAR)
3459: THEN
3460: x_patv_rec.include_on_returns_flag := l_patv_rec.include_on_returns_flag;
3461: END IF;
3462: IF (x_patv_rec.object_version_number = OKC_API.G_MISS_NUM)
3463: THEN
3464: x_patv_rec.object_version_number := l_patv_rec.object_version_number;
3465: END IF;
3466:
3463: THEN
3464: x_patv_rec.object_version_number := l_patv_rec.object_version_number;
3465: END IF;
3466:
3467: IF (x_patv_rec.attribute1 = OKC_API.G_MISS_CHAR)
3468: THEN
3469: x_patv_rec.attribute1 := l_patv_rec.attribute1;
3470: END IF;
3471: IF (x_patv_rec.attribute2 = OKC_API.G_MISS_CHAR)
3467: IF (x_patv_rec.attribute1 = OKC_API.G_MISS_CHAR)
3468: THEN
3469: x_patv_rec.attribute1 := l_patv_rec.attribute1;
3470: END IF;
3471: IF (x_patv_rec.attribute2 = OKC_API.G_MISS_CHAR)
3472: THEN
3473: x_patv_rec.attribute2 := l_patv_rec.attribute2;
3474: END IF;
3475: IF (x_patv_rec.attribute3 = OKC_API.G_MISS_CHAR)
3471: IF (x_patv_rec.attribute2 = OKC_API.G_MISS_CHAR)
3472: THEN
3473: x_patv_rec.attribute2 := l_patv_rec.attribute2;
3474: END IF;
3475: IF (x_patv_rec.attribute3 = OKC_API.G_MISS_CHAR)
3476: THEN
3477: x_patv_rec.attribute3 := l_patv_rec.attribute3;
3478: END IF;
3479: IF (x_patv_rec.attribute4 = OKC_API.G_MISS_CHAR)
3475: IF (x_patv_rec.attribute3 = OKC_API.G_MISS_CHAR)
3476: THEN
3477: x_patv_rec.attribute3 := l_patv_rec.attribute3;
3478: END IF;
3479: IF (x_patv_rec.attribute4 = OKC_API.G_MISS_CHAR)
3480: THEN
3481: x_patv_rec.attribute4 := l_patv_rec.attribute4;
3482: END IF;
3483: IF (x_patv_rec.attribute5 = OKC_API.G_MISS_CHAR)
3479: IF (x_patv_rec.attribute4 = OKC_API.G_MISS_CHAR)
3480: THEN
3481: x_patv_rec.attribute4 := l_patv_rec.attribute4;
3482: END IF;
3483: IF (x_patv_rec.attribute5 = OKC_API.G_MISS_CHAR)
3484: THEN
3485: x_patv_rec.attribute5 := l_patv_rec.attribute5;
3486: END IF;
3487: IF (x_patv_rec.attribute6 = OKC_API.G_MISS_CHAR)
3483: IF (x_patv_rec.attribute5 = OKC_API.G_MISS_CHAR)
3484: THEN
3485: x_patv_rec.attribute5 := l_patv_rec.attribute5;
3486: END IF;
3487: IF (x_patv_rec.attribute6 = OKC_API.G_MISS_CHAR)
3488: THEN
3489: x_patv_rec.attribute6 := l_patv_rec.attribute6;
3490: END IF;
3491: IF (x_patv_rec.attribute7 = OKC_API.G_MISS_CHAR)
3487: IF (x_patv_rec.attribute6 = OKC_API.G_MISS_CHAR)
3488: THEN
3489: x_patv_rec.attribute6 := l_patv_rec.attribute6;
3490: END IF;
3491: IF (x_patv_rec.attribute7 = OKC_API.G_MISS_CHAR)
3492: THEN
3493: x_patv_rec.attribute7 := l_patv_rec.attribute7;
3494: END IF;
3495: IF (x_patv_rec.attribute8 = OKC_API.G_MISS_CHAR)
3491: IF (x_patv_rec.attribute7 = OKC_API.G_MISS_CHAR)
3492: THEN
3493: x_patv_rec.attribute7 := l_patv_rec.attribute7;
3494: END IF;
3495: IF (x_patv_rec.attribute8 = OKC_API.G_MISS_CHAR)
3496: THEN
3497: x_patv_rec.attribute8 := l_patv_rec.attribute8;
3498: END IF;
3499: IF (x_patv_rec.attribute9 = OKC_API.G_MISS_CHAR)
3495: IF (x_patv_rec.attribute8 = OKC_API.G_MISS_CHAR)
3496: THEN
3497: x_patv_rec.attribute8 := l_patv_rec.attribute8;
3498: END IF;
3499: IF (x_patv_rec.attribute9 = OKC_API.G_MISS_CHAR)
3500: THEN
3501: x_patv_rec.attribute9 := l_patv_rec.attribute9;
3502: END IF;
3503: IF (x_patv_rec.attribute10 = OKC_API.G_MISS_CHAR)
3499: IF (x_patv_rec.attribute9 = OKC_API.G_MISS_CHAR)
3500: THEN
3501: x_patv_rec.attribute9 := l_patv_rec.attribute9;
3502: END IF;
3503: IF (x_patv_rec.attribute10 = OKC_API.G_MISS_CHAR)
3504: THEN
3505: x_patv_rec.attribute10 := l_patv_rec.attribute10;
3506: END IF;
3507: IF (x_patv_rec.attribute11 = OKC_API.G_MISS_CHAR)
3503: IF (x_patv_rec.attribute10 = OKC_API.G_MISS_CHAR)
3504: THEN
3505: x_patv_rec.attribute10 := l_patv_rec.attribute10;
3506: END IF;
3507: IF (x_patv_rec.attribute11 = OKC_API.G_MISS_CHAR)
3508: THEN
3509: x_patv_rec.attribute11 := l_patv_rec.attribute11;
3510: END IF;
3511: IF (x_patv_rec.attribute12 = OKC_API.G_MISS_CHAR)
3507: IF (x_patv_rec.attribute11 = OKC_API.G_MISS_CHAR)
3508: THEN
3509: x_patv_rec.attribute11 := l_patv_rec.attribute11;
3510: END IF;
3511: IF (x_patv_rec.attribute12 = OKC_API.G_MISS_CHAR)
3512: THEN
3513: x_patv_rec.attribute12 := l_patv_rec.attribute12;
3514: END IF;
3515: IF (x_patv_rec.attribute13 = OKC_API.G_MISS_CHAR)
3511: IF (x_patv_rec.attribute12 = OKC_API.G_MISS_CHAR)
3512: THEN
3513: x_patv_rec.attribute12 := l_patv_rec.attribute12;
3514: END IF;
3515: IF (x_patv_rec.attribute13 = OKC_API.G_MISS_CHAR)
3516: THEN
3517: x_patv_rec.attribute13 := l_patv_rec.attribute13;
3518: END IF;
3519: IF (x_patv_rec.attribute14 = OKC_API.G_MISS_CHAR)
3515: IF (x_patv_rec.attribute13 = OKC_API.G_MISS_CHAR)
3516: THEN
3517: x_patv_rec.attribute13 := l_patv_rec.attribute13;
3518: END IF;
3519: IF (x_patv_rec.attribute14 = OKC_API.G_MISS_CHAR)
3520: THEN
3521: x_patv_rec.attribute14 := l_patv_rec.attribute14;
3522: END IF;
3523: IF (x_patv_rec.attribute15 = OKC_API.G_MISS_CHAR)
3519: IF (x_patv_rec.attribute14 = OKC_API.G_MISS_CHAR)
3520: THEN
3521: x_patv_rec.attribute14 := l_patv_rec.attribute14;
3522: END IF;
3523: IF (x_patv_rec.attribute15 = OKC_API.G_MISS_CHAR)
3524: THEN
3525: x_patv_rec.attribute15 := l_patv_rec.attribute15;
3526: END IF;
3527: IF (x_patv_rec.created_by = OKC_API.G_MISS_NUM)
3523: IF (x_patv_rec.attribute15 = OKC_API.G_MISS_CHAR)
3524: THEN
3525: x_patv_rec.attribute15 := l_patv_rec.attribute15;
3526: END IF;
3527: IF (x_patv_rec.created_by = OKC_API.G_MISS_NUM)
3528: THEN
3529: x_patv_rec.created_by := l_patv_rec.created_by;
3530: END IF;
3531: IF (x_patv_rec.creation_date = OKC_API.G_MISS_DATE)
3527: IF (x_patv_rec.created_by = OKC_API.G_MISS_NUM)
3528: THEN
3529: x_patv_rec.created_by := l_patv_rec.created_by;
3530: END IF;
3531: IF (x_patv_rec.creation_date = OKC_API.G_MISS_DATE)
3532: THEN
3533: x_patv_rec.creation_date := l_patv_rec.creation_date;
3534: END IF;
3535: IF (x_patv_rec.last_updated_by = OKC_API.G_MISS_NUM)
3531: IF (x_patv_rec.creation_date = OKC_API.G_MISS_DATE)
3532: THEN
3533: x_patv_rec.creation_date := l_patv_rec.creation_date;
3534: END IF;
3535: IF (x_patv_rec.last_updated_by = OKC_API.G_MISS_NUM)
3536: THEN
3537: x_patv_rec.last_updated_by := l_patv_rec.last_updated_by;
3538: END IF;
3539: IF (x_patv_rec.last_update_date = OKC_API.G_MISS_DATE)
3535: IF (x_patv_rec.last_updated_by = OKC_API.G_MISS_NUM)
3536: THEN
3537: x_patv_rec.last_updated_by := l_patv_rec.last_updated_by;
3538: END IF;
3539: IF (x_patv_rec.last_update_date = OKC_API.G_MISS_DATE)
3540: THEN
3541: x_patv_rec.last_update_date := l_patv_rec.last_update_date;
3542: END IF;
3543: IF (x_patv_rec.last_update_login = OKC_API.G_MISS_NUM)
3539: IF (x_patv_rec.last_update_date = OKC_API.G_MISS_DATE)
3540: THEN
3541: x_patv_rec.last_update_date := l_patv_rec.last_update_date;
3542: END IF;
3543: IF (x_patv_rec.last_update_login = OKC_API.G_MISS_NUM)
3544: THEN
3545: x_patv_rec.last_update_login := l_patv_rec.last_update_login;
3546: END IF;
3547: IF (x_patv_rec.rebate_transaction_type_code = OKC_API.G_MISS_CHAR)
3543: IF (x_patv_rec.last_update_login = OKC_API.G_MISS_NUM)
3544: THEN
3545: x_patv_rec.last_update_login := l_patv_rec.last_update_login;
3546: END IF;
3547: IF (x_patv_rec.rebate_transaction_type_code = OKC_API.G_MISS_CHAR)
3548: THEN
3549: x_patv_rec.rebate_transaction_type_code := l_patv_rec.rebate_transaction_type_code;
3550: END IF;
3551:
3563: FUNCTION Set_Attributes (
3564: p_patv_rec IN patv_rec_type,
3565: x_patv_rec OUT NOCOPY patv_rec_type
3566: ) RETURN VARCHAR2 IS
3567: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3568: BEGIN
3569:
3570: x_patv_rec := p_patv_rec;
3571: x_patv_rec.OBJECT_VERSION_NUMBER := NVL(x_patv_rec.OBJECT_VERSION_NUMBER,0)+1;
3578: okc_debug.Set_Indentation('OKC_PAT_PVT');
3579: okc_debug.log('10800: Entered update_row', 2);
3580: END IF;
3581:
3582: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3583: G_PKG_NAME,
3584: p_init_msg_list,
3585: l_api_version,
3586: p_api_version,
3585: l_api_version,
3586: p_api_version,
3587: '_PVT',
3588: x_return_status);
3589: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3590: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3591: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3592: RAISE OKC_API.G_EXCEPTION_ERROR;
3593: END IF;
3586: p_api_version,
3587: '_PVT',
3588: x_return_status);
3589: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3590: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3591: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3592: RAISE OKC_API.G_EXCEPTION_ERROR;
3593: END IF;
3594: --- Setting item attributes
3587: '_PVT',
3588: x_return_status);
3589: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3590: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3591: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3592: RAISE OKC_API.G_EXCEPTION_ERROR;
3593: END IF;
3594: --- Setting item attributes
3595: l_return_status := Set_Attributes(
3588: x_return_status);
3589: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3590: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3591: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3592: RAISE OKC_API.G_EXCEPTION_ERROR;
3593: END IF;
3594: --- Setting item attributes
3595: l_return_status := Set_Attributes(
3596: p_patv_rec, -- IN
3595: l_return_status := Set_Attributes(
3596: p_patv_rec, -- IN
3597: l_patv_rec); -- OUT
3598: --- If any errors happen abort API
3599: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3600: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3601: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3602: RAISE OKC_API.G_EXCEPTION_ERROR;
3603: END IF;
3596: p_patv_rec, -- IN
3597: l_patv_rec); -- OUT
3598: --- If any errors happen abort API
3599: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3600: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3601: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3602: RAISE OKC_API.G_EXCEPTION_ERROR;
3603: END IF;
3604: l_return_status := populate_new_record(l_patv_rec, l_def_patv_rec);
3597: l_patv_rec); -- OUT
3598: --- If any errors happen abort API
3599: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3600: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3601: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3602: RAISE OKC_API.G_EXCEPTION_ERROR;
3603: END IF;
3604: l_return_status := populate_new_record(l_patv_rec, l_def_patv_rec);
3605: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3598: --- If any errors happen abort API
3599: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3600: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3601: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3602: RAISE OKC_API.G_EXCEPTION_ERROR;
3603: END IF;
3604: l_return_status := populate_new_record(l_patv_rec, l_def_patv_rec);
3605: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3606: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3601: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3602: RAISE OKC_API.G_EXCEPTION_ERROR;
3603: END IF;
3604: l_return_status := populate_new_record(l_patv_rec, l_def_patv_rec);
3605: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3606: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3607: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3608: RAISE OKC_API.G_EXCEPTION_ERROR;
3609: END IF;
3602: RAISE OKC_API.G_EXCEPTION_ERROR;
3603: END IF;
3604: l_return_status := populate_new_record(l_patv_rec, l_def_patv_rec);
3605: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3606: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3607: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3608: RAISE OKC_API.G_EXCEPTION_ERROR;
3609: END IF;
3610: l_def_patv_rec := fill_who_columns(l_def_patv_rec);
3603: END IF;
3604: l_return_status := populate_new_record(l_patv_rec, l_def_patv_rec);
3605: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3606: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3607: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3608: RAISE OKC_API.G_EXCEPTION_ERROR;
3609: END IF;
3610: l_def_patv_rec := fill_who_columns(l_def_patv_rec);
3611: --- Validate all non-missing attributes (Item Level Validation)
3604: l_return_status := populate_new_record(l_patv_rec, l_def_patv_rec);
3605: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3606: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3607: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3608: RAISE OKC_API.G_EXCEPTION_ERROR;
3609: END IF;
3610: l_def_patv_rec := fill_who_columns(l_def_patv_rec);
3611: --- Validate all non-missing attributes (Item Level Validation)
3612: l_return_status := Validate_Attributes(l_def_patv_rec);
3610: l_def_patv_rec := fill_who_columns(l_def_patv_rec);
3611: --- Validate all non-missing attributes (Item Level Validation)
3612: l_return_status := Validate_Attributes(l_def_patv_rec);
3613: --- If any errors happen abort API
3614: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3615: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3616: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3617: RAISE OKC_API.G_EXCEPTION_ERROR;
3618: END IF;
3611: --- Validate all non-missing attributes (Item Level Validation)
3612: l_return_status := Validate_Attributes(l_def_patv_rec);
3613: --- If any errors happen abort API
3614: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3615: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3616: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3617: RAISE OKC_API.G_EXCEPTION_ERROR;
3618: END IF;
3619: l_return_status := Validate_Record(l_def_patv_rec);
3612: l_return_status := Validate_Attributes(l_def_patv_rec);
3613: --- If any errors happen abort API
3614: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3615: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3616: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3617: RAISE OKC_API.G_EXCEPTION_ERROR;
3618: END IF;
3619: l_return_status := Validate_Record(l_def_patv_rec);
3620: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3613: --- If any errors happen abort API
3614: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3615: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3616: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3617: RAISE OKC_API.G_EXCEPTION_ERROR;
3618: END IF;
3619: l_return_status := Validate_Record(l_def_patv_rec);
3620: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3621: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3616: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3617: RAISE OKC_API.G_EXCEPTION_ERROR;
3618: END IF;
3619: l_return_status := Validate_Record(l_def_patv_rec);
3620: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3621: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3622: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3623: RAISE OKC_API.G_EXCEPTION_ERROR;
3624: END IF;
3617: RAISE OKC_API.G_EXCEPTION_ERROR;
3618: END IF;
3619: l_return_status := Validate_Record(l_def_patv_rec);
3620: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3621: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3622: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3623: RAISE OKC_API.G_EXCEPTION_ERROR;
3624: END IF;
3625:
3618: END IF;
3619: l_return_status := Validate_Record(l_def_patv_rec);
3620: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3621: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3622: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3623: RAISE OKC_API.G_EXCEPTION_ERROR;
3624: END IF;
3625:
3626: --------------------------------------
3619: l_return_status := Validate_Record(l_def_patv_rec);
3620: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3621: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3622: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3623: RAISE OKC_API.G_EXCEPTION_ERROR;
3624: END IF;
3625:
3626: --------------------------------------
3627: -- Move VIEW record to "Child" records
3637: x_msg_data,
3638: l_pat_rec,
3639: lx_pat_rec
3640: );
3641: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3642: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3643: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3644: RAISE OKC_API.G_EXCEPTION_ERROR;
3645: END IF;
3638: l_pat_rec,
3639: lx_pat_rec
3640: );
3641: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3642: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3643: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3644: RAISE OKC_API.G_EXCEPTION_ERROR;
3645: END IF;
3646: migrate(lx_pat_rec, l_def_patv_rec);
3639: lx_pat_rec
3640: );
3641: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3642: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3643: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3644: RAISE OKC_API.G_EXCEPTION_ERROR;
3645: END IF;
3646: migrate(lx_pat_rec, l_def_patv_rec);
3647: x_patv_rec := l_def_patv_rec;
3640: );
3641: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3642: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3643: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3644: RAISE OKC_API.G_EXCEPTION_ERROR;
3645: END IF;
3646: migrate(lx_pat_rec, l_def_patv_rec);
3647: x_patv_rec := l_def_patv_rec;
3648: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3644: RAISE OKC_API.G_EXCEPTION_ERROR;
3645: END IF;
3646: migrate(lx_pat_rec, l_def_patv_rec);
3647: x_patv_rec := l_def_patv_rec;
3648: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3649:
3650: IF (l_debug = 'Y') THEN
3651: okc_debug.log('10900: Exiting update_row', 2);
3652: okc_debug.Reset_Indentation;
3652: okc_debug.Reset_Indentation;
3653: END IF;
3654:
3655: EXCEPTION
3656: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3657:
3658: IF (l_debug = 'Y') THEN
3659: okc_debug.log('11000: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3660: okc_debug.Reset_Indentation;
3655: EXCEPTION
3656: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3657:
3658: IF (l_debug = 'Y') THEN
3659: okc_debug.log('11000: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3660: okc_debug.Reset_Indentation;
3661: END IF;
3662:
3663: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3659: okc_debug.log('11000: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3660: okc_debug.Reset_Indentation;
3661: END IF;
3662:
3663: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3664: (
3665: l_api_name,
3666: G_PKG_NAME,
3667: 'OKC_API.G_RET_STS_ERROR',
3663: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3664: (
3665: l_api_name,
3666: G_PKG_NAME,
3667: 'OKC_API.G_RET_STS_ERROR',
3668: x_msg_count,
3669: x_msg_data,
3670: '_PVT'
3671: );
3668: x_msg_count,
3669: x_msg_data,
3670: '_PVT'
3671: );
3672: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3673:
3674: IF (l_debug = 'Y') THEN
3675: okc_debug.log('11100: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3676: okc_debug.Reset_Indentation;
3671: );
3672: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3673:
3674: IF (l_debug = 'Y') THEN
3675: okc_debug.log('11100: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3676: okc_debug.Reset_Indentation;
3677: END IF;
3678:
3679: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3675: okc_debug.log('11100: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3676: okc_debug.Reset_Indentation;
3677: END IF;
3678:
3679: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3680: (
3681: l_api_name,
3682: G_PKG_NAME,
3683: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3679: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3680: (
3681: l_api_name,
3682: G_PKG_NAME,
3683: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3684: x_msg_count,
3685: x_msg_data,
3686: '_PVT'
3687: );
3691: okc_debug.log('11200: Exiting update_row:OTHERS Exception', 2);
3692: okc_debug.Reset_Indentation;
3693: END IF;
3694:
3695: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3696: (
3697: l_api_name,
3698: G_PKG_NAME,
3699: 'OTHERS',
3716: x_patv_tbl OUT NOCOPY patv_tbl_type) IS
3717:
3718: l_api_version CONSTANT NUMBER := 1;
3719: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3720: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3721: i NUMBER := 0;
3722: BEGIN
3723:
3724: IF (l_debug = 'Y') THEN
3725: okc_debug.Set_Indentation('OKC_PAT_PVT');
3726: okc_debug.log('11300: Entered update_row', 2);
3727: END IF;
3728:
3729: OKC_API.init_msg_list(p_init_msg_list);
3730: -- Make sure PL/SQL table has records in it before passing
3731: IF (p_patv_tbl.COUNT > 0) THEN
3732: i := p_patv_tbl.FIRST;
3733: LOOP
3732: i := p_patv_tbl.FIRST;
3733: LOOP
3734: update_row (
3735: p_api_version => p_api_version,
3736: p_init_msg_list => OKC_API.G_FALSE,
3737: x_return_status => x_return_status,
3738: x_msg_count => x_msg_count,
3739: x_msg_data => x_msg_data,
3740: p_patv_rec => p_patv_tbl(i),
3749: okc_debug.Reset_Indentation;
3750: END IF;
3751:
3752: EXCEPTION
3753: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3754:
3755: IF (l_debug = 'Y') THEN
3756: okc_debug.log('11500: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3757: okc_debug.Reset_Indentation;
3752: EXCEPTION
3753: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3754:
3755: IF (l_debug = 'Y') THEN
3756: okc_debug.log('11500: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3757: okc_debug.Reset_Indentation;
3758: END IF;
3759:
3760: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3756: okc_debug.log('11500: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3757: okc_debug.Reset_Indentation;
3758: END IF;
3759:
3760: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3761: (
3762: l_api_name,
3763: G_PKG_NAME,
3764: 'OKC_API.G_RET_STS_ERROR',
3760: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3761: (
3762: l_api_name,
3763: G_PKG_NAME,
3764: 'OKC_API.G_RET_STS_ERROR',
3765: x_msg_count,
3766: x_msg_data,
3767: '_PVT'
3768: );
3765: x_msg_count,
3766: x_msg_data,
3767: '_PVT'
3768: );
3769: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3770:
3771: IF (l_debug = 'Y') THEN
3772: okc_debug.log('11600: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3773: okc_debug.Reset_Indentation;
3768: );
3769: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3770:
3771: IF (l_debug = 'Y') THEN
3772: okc_debug.log('11600: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3773: okc_debug.Reset_Indentation;
3774: END IF;
3775:
3776: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3772: okc_debug.log('11600: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3773: okc_debug.Reset_Indentation;
3774: END IF;
3775:
3776: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3777: (
3778: l_api_name,
3779: G_PKG_NAME,
3780: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3776: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3777: (
3778: l_api_name,
3779: G_PKG_NAME,
3780: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3781: x_msg_count,
3782: x_msg_data,
3783: '_PVT'
3784: );
3788: okc_debug.log('11700: Exiting update_row:OTHERS Exception', 2);
3789: okc_debug.Reset_Indentation;
3790: END IF;
3791:
3792: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3793: (
3794: l_api_name,
3795: G_PKG_NAME,
3796: 'OTHERS',
3815: p_pat_rec IN pat_rec_type) IS
3816:
3817: l_api_version CONSTANT NUMBER := 1;
3818: l_api_name CONSTANT VARCHAR2(30) := 'ADJUSTMENTS_delete_row';
3819: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3820: l_pat_rec pat_rec_type:= p_pat_rec;
3821: l_row_notfound BOOLEAN := TRUE;
3822: BEGIN
3823:
3825: okc_debug.Set_Indentation('OKC_PAT_PVT');
3826: okc_debug.log('11800: Entered delete_row', 2);
3827: END IF;
3828:
3829: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3830: p_init_msg_list,
3831: '_PVT',
3832: x_return_status);
3833: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3829: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3830: p_init_msg_list,
3831: '_PVT',
3832: x_return_status);
3833: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3834: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3835: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3836: RAISE OKC_API.G_EXCEPTION_ERROR;
3837: END IF;
3830: p_init_msg_list,
3831: '_PVT',
3832: x_return_status);
3833: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3834: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3835: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3836: RAISE OKC_API.G_EXCEPTION_ERROR;
3837: END IF;
3838: DELETE FROM OKC_PRICE_ADJUSTMENTS
3831: '_PVT',
3832: x_return_status);
3833: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3834: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3835: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3836: RAISE OKC_API.G_EXCEPTION_ERROR;
3837: END IF;
3838: DELETE FROM OKC_PRICE_ADJUSTMENTS
3839: WHERE ID = l_pat_rec.id;
3832: x_return_status);
3833: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3834: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3835: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3836: RAISE OKC_API.G_EXCEPTION_ERROR;
3837: END IF;
3838: DELETE FROM OKC_PRICE_ADJUSTMENTS
3839: WHERE ID = l_pat_rec.id;
3840:
3837: END IF;
3838: DELETE FROM OKC_PRICE_ADJUSTMENTS
3839: WHERE ID = l_pat_rec.id;
3840:
3841: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3842:
3843: IF (l_debug = 'Y') THEN
3844: okc_debug.log('11900: Exiting delete_row', 2);
3845: okc_debug.Reset_Indentation;
3845: okc_debug.Reset_Indentation;
3846: END IF;
3847:
3848: EXCEPTION
3849: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3850:
3851: IF (l_debug = 'Y') THEN
3852: okc_debug.log('12000: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3853: okc_debug.Reset_Indentation;
3848: EXCEPTION
3849: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3850:
3851: IF (l_debug = 'Y') THEN
3852: okc_debug.log('12000: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3853: okc_debug.Reset_Indentation;
3854: END IF;
3855:
3856: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3852: okc_debug.log('12000: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3853: okc_debug.Reset_Indentation;
3854: END IF;
3855:
3856: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3857: (
3858: l_api_name,
3859: G_PKG_NAME,
3860: 'OKC_API.G_RET_STS_ERROR',
3856: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3857: (
3858: l_api_name,
3859: G_PKG_NAME,
3860: 'OKC_API.G_RET_STS_ERROR',
3861: x_msg_count,
3862: x_msg_data,
3863: '_PVT'
3864: );
3861: x_msg_count,
3862: x_msg_data,
3863: '_PVT'
3864: );
3865: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3866:
3867: IF (l_debug = 'Y') THEN
3868: okc_debug.log('12100: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3869: okc_debug.Reset_Indentation;
3864: );
3865: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3866:
3867: IF (l_debug = 'Y') THEN
3868: okc_debug.log('12100: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3869: okc_debug.Reset_Indentation;
3870: END IF;
3871:
3872: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3868: okc_debug.log('12100: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3869: okc_debug.Reset_Indentation;
3870: END IF;
3871:
3872: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3873: (
3874: l_api_name,
3875: G_PKG_NAME,
3876: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3872: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3873: (
3874: l_api_name,
3875: G_PKG_NAME,
3876: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3877: x_msg_count,
3878: x_msg_data,
3879: '_PVT'
3880: );
3884: okc_debug.log('12200: Exiting delete_row:OTHERS Exception', 2);
3885: okc_debug.Reset_Indentation;
3886: END IF;
3887:
3888: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3889: (
3890: l_api_name,
3891: G_PKG_NAME,
3892: 'OTHERS',
3908: p_patv_rec IN patv_rec_type) IS
3909:
3910: l_api_version CONSTANT NUMBER := 1;
3911: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
3912: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3913: l_patv_rec patv_rec_type := p_patv_rec;
3914: l_pat_rec pat_rec_type;
3915: BEGIN
3916:
3918: okc_debug.Set_Indentation('OKC_PAT_PVT');
3919: okc_debug.log('12300: Entered delete_row', 2);
3920: END IF;
3921:
3922: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3923: G_PKG_NAME,
3924: p_init_msg_list,
3925: l_api_version,
3926: p_api_version,
3925: l_api_version,
3926: p_api_version,
3927: '_PVT',
3928: x_return_status);
3929: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3930: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3931: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3932: RAISE OKC_API.G_EXCEPTION_ERROR;
3933: END IF;
3926: p_api_version,
3927: '_PVT',
3928: x_return_status);
3929: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3930: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3931: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3932: RAISE OKC_API.G_EXCEPTION_ERROR;
3933: END IF;
3934: --------------------------------------
3927: '_PVT',
3928: x_return_status);
3929: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3930: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3931: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3932: RAISE OKC_API.G_EXCEPTION_ERROR;
3933: END IF;
3934: --------------------------------------
3935: -- Move VIEW record to "Child" records
3928: x_return_status);
3929: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3930: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3931: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3932: RAISE OKC_API.G_EXCEPTION_ERROR;
3933: END IF;
3934: --------------------------------------
3935: -- Move VIEW record to "Child" records
3936: --------------------------------------
3944: x_msg_count,
3945: x_msg_data,
3946: l_pat_rec
3947: );
3948: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3949: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3950: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3951: RAISE OKC_API.G_EXCEPTION_ERROR;
3952: END IF;
3945: x_msg_data,
3946: l_pat_rec
3947: );
3948: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3949: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3950: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3951: RAISE OKC_API.G_EXCEPTION_ERROR;
3952: END IF;
3953: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3946: l_pat_rec
3947: );
3948: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3949: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3950: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3951: RAISE OKC_API.G_EXCEPTION_ERROR;
3952: END IF;
3953: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3954:
3947: );
3948: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3949: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3950: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3951: RAISE OKC_API.G_EXCEPTION_ERROR;
3952: END IF;
3953: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3954:
3955: IF (l_debug = 'Y') THEN
3949: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3950: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3951: RAISE OKC_API.G_EXCEPTION_ERROR;
3952: END IF;
3953: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3954:
3955: IF (l_debug = 'Y') THEN
3956: okc_debug.log('12400: Exiting delete_row', 2);
3957: okc_debug.Reset_Indentation;
3957: okc_debug.Reset_Indentation;
3958: END IF;
3959:
3960: EXCEPTION
3961: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3962:
3963: IF (l_debug = 'Y') THEN
3964: okc_debug.log('12500: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3965: okc_debug.Reset_Indentation;
3960: EXCEPTION
3961: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3962:
3963: IF (l_debug = 'Y') THEN
3964: okc_debug.log('12500: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3965: okc_debug.Reset_Indentation;
3966: END IF;
3967:
3968: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3964: okc_debug.log('12500: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3965: okc_debug.Reset_Indentation;
3966: END IF;
3967:
3968: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3969: (
3970: l_api_name,
3971: G_PKG_NAME,
3972: 'OKC_API.G_RET_STS_ERROR',
3968: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3969: (
3970: l_api_name,
3971: G_PKG_NAME,
3972: 'OKC_API.G_RET_STS_ERROR',
3973: x_msg_count,
3974: x_msg_data,
3975: '_PVT'
3976: );
3973: x_msg_count,
3974: x_msg_data,
3975: '_PVT'
3976: );
3977: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3978:
3979: IF (l_debug = 'Y') THEN
3980: okc_debug.log('12600: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3981: okc_debug.Reset_Indentation;
3976: );
3977: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3978:
3979: IF (l_debug = 'Y') THEN
3980: okc_debug.log('12600: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3981: okc_debug.Reset_Indentation;
3982: END IF;
3983:
3984: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3980: okc_debug.log('12600: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3981: okc_debug.Reset_Indentation;
3982: END IF;
3983:
3984: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3985: (
3986: l_api_name,
3987: G_PKG_NAME,
3988: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3984: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3985: (
3986: l_api_name,
3987: G_PKG_NAME,
3988: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3989: x_msg_count,
3990: x_msg_data,
3991: '_PVT'
3992: );
3996: okc_debug.log('12700: Exiting delete_row:OTHERS Exception', 2);
3997: okc_debug.Reset_Indentation;
3998: END IF;
3999:
4000: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4001: (
4002: l_api_name,
4003: G_PKG_NAME,
4004: 'OTHERS',
4019: p_patv_tbl IN patv_tbl_type) IS
4020:
4021: l_api_version CONSTANT NUMBER := 1;
4022: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
4023: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4024: i NUMBER := 0;
4025: BEGIN
4026:
4027: IF (l_debug = 'Y') THEN
4028: okc_debug.Set_Indentation('OKC_PAT_PVT');
4029: okc_debug.log('12800: Entered delete_row', 2);
4030: END IF;
4031:
4032: OKC_API.init_msg_list(p_init_msg_list);
4033: -- Make sure PL/SQL table has records in it before passing
4034: IF (p_patv_tbl.COUNT > 0) THEN
4035: i := p_patv_tbl.FIRST;
4036: LOOP
4035: i := p_patv_tbl.FIRST;
4036: LOOP
4037: delete_row (
4038: p_api_version => p_api_version,
4039: p_init_msg_list => OKC_API.G_FALSE,
4040: x_return_status => x_return_status,
4041: x_msg_count => x_msg_count,
4042: x_msg_data => x_msg_data,
4043: p_patv_rec => p_patv_tbl(i));
4051: okc_debug.Reset_Indentation;
4052: END IF;
4053:
4054: EXCEPTION
4055: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4056:
4057: IF (l_debug = 'Y') THEN
4058: okc_debug.log('13000: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4059: okc_debug.Reset_Indentation;
4054: EXCEPTION
4055: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4056:
4057: IF (l_debug = 'Y') THEN
4058: okc_debug.log('13000: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4059: okc_debug.Reset_Indentation;
4060: END IF;
4061:
4062: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4058: okc_debug.log('13000: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4059: okc_debug.Reset_Indentation;
4060: END IF;
4061:
4062: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4063: (
4064: l_api_name,
4065: G_PKG_NAME,
4066: 'OKC_API.G_RET_STS_ERROR',
4062: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4063: (
4064: l_api_name,
4065: G_PKG_NAME,
4066: 'OKC_API.G_RET_STS_ERROR',
4067: x_msg_count,
4068: x_msg_data,
4069: '_PVT'
4070: );
4067: x_msg_count,
4068: x_msg_data,
4069: '_PVT'
4070: );
4071: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4072:
4073: IF (l_debug = 'Y') THEN
4074: okc_debug.log('13100: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4075: okc_debug.Reset_Indentation;
4070: );
4071: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4072:
4073: IF (l_debug = 'Y') THEN
4074: okc_debug.log('13100: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4075: okc_debug.Reset_Indentation;
4076: END IF;
4077:
4078: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4074: okc_debug.log('13100: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4075: okc_debug.Reset_Indentation;
4076: END IF;
4077:
4078: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4079: (
4080: l_api_name,
4081: G_PKG_NAME,
4082: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4078: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4079: (
4080: l_api_name,
4081: G_PKG_NAME,
4082: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4083: x_msg_count,
4084: x_msg_data,
4085: '_PVT'
4086: );
4090: okc_debug.log('13200: Exiting delete_row:OTHERS Exception', 2);
4091: okc_debug.Reset_Indentation;
4092: END IF;
4093:
4094: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4095: (
4096: l_api_name,
4097: G_PKG_NAME,
4098: 'OTHERS',
4181: j number;
4182: BEGIN
4183:
4184: --Initialize return status
4185: x_return_status := OKC_API.G_RET_STS_SUCCESS;
4186:
4187: IF (l_debug = 'Y') THEN
4188: okc_debug.Set_Indentation('OKC_PAT_PVT');
4189: okc_debug.log('13300: Entered INSERT_ROW_UPG', 2);
4413:
4414: EXCEPTION
4415: WHEN OTHERS THEN
4416: --Store SQL error message on message stack
4417: OKC_API.SET_MESSAGE(
4418: p_app_name => G_APP_NAME,
4419: p_msg_name => G_UNEXPECTED_ERROR,
4420: p_token1 => G_SQLCODE_TOKEN,
4421: p_token1_value => SQLCODE,
4421: p_token1_value => SQLCODE,
4422: p_token2 => G_SQLERRM_TOKEN,
4423: p_token2_value => SQLERRM);
4424: -- notify caller of an error as UNEXPECTED error
4425: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4426:
4427: -- okc_debug.log('13500: Exiting INSERT_ROW_UPG:OTHERS Exception', 2);
4428: -- okc_debug.Reset_Indentation;
4429:
4435: p_chr_id IN NUMBER,
4436: p_major_version IN NUMBER
4437: ) RETURN VARCHAR2 IS
4438:
4439: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
4440:
4441: BEGIN
4442:
4443: IF (l_debug = 'Y') THEN
4606: okc_debug.Reset_Indentation;
4607: END IF;
4608:
4609: -- store SQL error message on message stack
4610: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
4611: p_msg_name => okc_version_pvt.G_UNEXPECTED_ERROR,
4612: p_token1 => okc_version_pvt.G_SQLCODE_TOKEN,
4613: p_token1_value => sqlcode,
4614: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
4614: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
4615: p_token2_value => sqlerrm);
4616:
4617: -- notify UNEXPECTED error
4618: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4619: return l_return_status;
4620:
4621: END create_version;
4622:
4624: p_chr_id IN NUMBER,
4625: p_major_version IN NUMBER
4626: ) RETURN VARCHAR2 IS
4627:
4628: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
4629:
4630: BEGIN
4631:
4632: IF (l_debug = 'Y') THEN
4794: okc_debug.Reset_Indentation;
4795: END IF;
4796:
4797: -- store SQL error message on message stack
4798: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
4799: p_msg_name => okc_version_pvt.G_UNEXPECTED_ERROR,
4800: p_token1 => okc_version_pvt.G_SQLCODE_TOKEN,
4801: p_token1_value => sqlcode,
4802: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
4802: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
4803: p_token2_value => sqlerrm);
4804:
4805: -- notify UNEXPECTED error
4806: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4807: return l_return_status;
4808:
4809: END restore_version;
4810: