40: -- in a OKL_API.ERROR_TBL_TYPE, and returns it.
41: FUNCTION find_highest_exception(
42: p_error_tbl IN OKL_API.ERROR_TBL_TYPE
43: ) RETURN VARCHAR2 AS
44: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
45: i INTEGER := 1;
46: BEGIN
47: IF (p_error_tbl.COUNT > 0) THEN
48: i := p_error_tbl.FIRST;
46: BEGIN
47: IF (p_error_tbl.COUNT > 0) THEN
48: i := p_error_tbl.FIRST;
49: LOOP
50: IF (p_error_tbl(i).error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
51: IF (l_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
52: l_return_status := p_error_tbl(i).error_type;
53: END IF;
54: END IF;
47: IF (p_error_tbl.COUNT > 0) THEN
48: i := p_error_tbl.FIRST;
49: LOOP
50: IF (p_error_tbl(i).error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
51: IF (l_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
52: l_return_status := p_error_tbl(i).error_type;
53: END IF;
54: END IF;
55: EXIT WHEN (i = p_error_tbl.LAST);
286: ) RETURN oinv_rec_type AS
287: l_oinv_rec oinv_rec_type;
288: l_row_notfound BOOLEAN := TRUE;
289: BEGIN
290: x_return_status := OKC_API.G_RET_STS_SUCCESS;
291: l_oinv_rec := get_rec(p_oinv_rec, l_row_notfound);
292: IF (l_row_notfound) THEN
293: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
294: x_return_status := OKC_API.G_RET_STS_ERROR;
289: BEGIN
290: x_return_status := OKC_API.G_RET_STS_SUCCESS;
291: l_oinv_rec := get_rec(p_oinv_rec, l_row_notfound);
292: IF (l_row_notfound) THEN
293: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
294: x_return_status := OKC_API.G_RET_STS_ERROR;
295: END IF;
296: RETURN(l_oinv_rec);
297: END get_rec;
290: x_return_status := OKC_API.G_RET_STS_SUCCESS;
291: l_oinv_rec := get_rec(p_oinv_rec, l_row_notfound);
292: IF (l_row_notfound) THEN
293: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
294: x_return_status := OKC_API.G_RET_STS_ERROR;
295: END IF;
296: RETURN(l_oinv_rec);
297: END get_rec;
298: -----------------------------------------------------------
501: ) RETURN oin_rec_type AS
502: l_oin_rec oin_rec_type;
503: l_row_notfound BOOLEAN := TRUE;
504: BEGIN
505: x_return_status := OKC_API.G_RET_STS_SUCCESS;
506: l_oin_rec := get_rec(p_oin_rec, l_row_notfound);
507: IF (l_row_notfound) THEN
508: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
509: x_return_status := OKC_API.G_RET_STS_ERROR;
504: BEGIN
505: x_return_status := OKC_API.G_RET_STS_SUCCESS;
506: l_oin_rec := get_rec(p_oin_rec, l_row_notfound);
507: IF (l_row_notfound) THEN
508: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
509: x_return_status := OKC_API.G_RET_STS_ERROR;
510: END IF;
511: RETURN(l_oin_rec);
512: END get_rec;
505: x_return_status := OKC_API.G_RET_STS_SUCCESS;
506: l_oin_rec := get_rec(p_oin_rec, l_row_notfound);
507: IF (l_row_notfound) THEN
508: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
509: x_return_status := OKC_API.G_RET_STS_ERROR;
510: END IF;
511: RETURN(l_oin_rec);
512: END get_rec;
513: -----------------------------------------------------------
527: p_oinv_rec IN oinv_rec_type
528: ) RETURN oinv_rec_type AS
529: l_oinv_rec oinv_rec_type := p_oinv_rec;
530: BEGIN
531: IF (l_oinv_rec.id = OKC_API.G_MISS_NUM ) THEN
532: l_oinv_rec.id := NULL;
533: END IF;
534: IF (l_oinv_rec.party_id = OKC_API.G_MISS_NUM ) THEN
535: l_oinv_rec.party_id := NULL;
530: BEGIN
531: IF (l_oinv_rec.id = OKC_API.G_MISS_NUM ) THEN
532: l_oinv_rec.id := NULL;
533: END IF;
534: IF (l_oinv_rec.party_id = OKC_API.G_MISS_NUM ) THEN
535: l_oinv_rec.party_id := NULL;
536: END IF;
537: IF (l_oinv_rec.party_name = OKC_API.G_MISS_CHAR ) THEN
538: l_oinv_rec.party_name := NULL;
533: END IF;
534: IF (l_oinv_rec.party_id = OKC_API.G_MISS_NUM ) THEN
535: l_oinv_rec.party_id := NULL;
536: END IF;
537: IF (l_oinv_rec.party_name = OKC_API.G_MISS_CHAR ) THEN
538: l_oinv_rec.party_name := NULL;
539: END IF;
540: IF (l_oinv_rec.party_type = OKC_API.G_MISS_CHAR ) THEN
541: l_oinv_rec.party_type := NULL;
536: END IF;
537: IF (l_oinv_rec.party_name = OKC_API.G_MISS_CHAR ) THEN
538: l_oinv_rec.party_name := NULL;
539: END IF;
540: IF (l_oinv_rec.party_type = OKC_API.G_MISS_CHAR ) THEN
541: l_oinv_rec.party_type := NULL;
542: END IF;
543: IF (l_oinv_rec.date_of_birth = OKC_API.G_MISS_DATE ) THEN
544: l_oinv_rec.date_of_birth := NULL;
539: END IF;
540: IF (l_oinv_rec.party_type = OKC_API.G_MISS_CHAR ) THEN
541: l_oinv_rec.party_type := NULL;
542: END IF;
543: IF (l_oinv_rec.date_of_birth = OKC_API.G_MISS_DATE ) THEN
544: l_oinv_rec.date_of_birth := NULL;
545: END IF;
546: IF (l_oinv_rec.place_of_birth = OKC_API.G_MISS_CHAR ) THEN
547: l_oinv_rec.place_of_birth := NULL;
542: END IF;
543: IF (l_oinv_rec.date_of_birth = OKC_API.G_MISS_DATE ) THEN
544: l_oinv_rec.date_of_birth := NULL;
545: END IF;
546: IF (l_oinv_rec.place_of_birth = OKC_API.G_MISS_CHAR ) THEN
547: l_oinv_rec.place_of_birth := NULL;
548: END IF;
549: IF (l_oinv_rec.person_identifier = OKC_API.G_MISS_CHAR ) THEN
550: l_oinv_rec.person_identifier := NULL;
545: END IF;
546: IF (l_oinv_rec.place_of_birth = OKC_API.G_MISS_CHAR ) THEN
547: l_oinv_rec.place_of_birth := NULL;
548: END IF;
549: IF (l_oinv_rec.person_identifier = OKC_API.G_MISS_CHAR ) THEN
550: l_oinv_rec.person_identifier := NULL;
551: END IF;
552: IF (l_oinv_rec.person_iden_type = OKC_API.G_MISS_CHAR ) THEN
553: l_oinv_rec.person_iden_type := NULL;
548: END IF;
549: IF (l_oinv_rec.person_identifier = OKC_API.G_MISS_CHAR ) THEN
550: l_oinv_rec.person_identifier := NULL;
551: END IF;
552: IF (l_oinv_rec.person_iden_type = OKC_API.G_MISS_CHAR ) THEN
553: l_oinv_rec.person_iden_type := NULL;
554: END IF;
555: IF (l_oinv_rec.country = OKC_API.G_MISS_CHAR ) THEN
556: l_oinv_rec.country := NULL;
551: END IF;
552: IF (l_oinv_rec.person_iden_type = OKC_API.G_MISS_CHAR ) THEN
553: l_oinv_rec.person_iden_type := NULL;
554: END IF;
555: IF (l_oinv_rec.country = OKC_API.G_MISS_CHAR ) THEN
556: l_oinv_rec.country := NULL;
557: END IF;
558: IF (l_oinv_rec.address1 = OKC_API.G_MISS_CHAR ) THEN
559: l_oinv_rec.address1 := NULL;
554: END IF;
555: IF (l_oinv_rec.country = OKC_API.G_MISS_CHAR ) THEN
556: l_oinv_rec.country := NULL;
557: END IF;
558: IF (l_oinv_rec.address1 = OKC_API.G_MISS_CHAR ) THEN
559: l_oinv_rec.address1 := NULL;
560: END IF;
561: IF (l_oinv_rec.address2 = OKC_API.G_MISS_CHAR ) THEN
562: l_oinv_rec.address2 := NULL;
557: END IF;
558: IF (l_oinv_rec.address1 = OKC_API.G_MISS_CHAR ) THEN
559: l_oinv_rec.address1 := NULL;
560: END IF;
561: IF (l_oinv_rec.address2 = OKC_API.G_MISS_CHAR ) THEN
562: l_oinv_rec.address2 := NULL;
563: END IF;
564: IF (l_oinv_rec.address3 = OKC_API.G_MISS_CHAR ) THEN
565: l_oinv_rec.address3 := NULL;
560: END IF;
561: IF (l_oinv_rec.address2 = OKC_API.G_MISS_CHAR ) THEN
562: l_oinv_rec.address2 := NULL;
563: END IF;
564: IF (l_oinv_rec.address3 = OKC_API.G_MISS_CHAR ) THEN
565: l_oinv_rec.address3 := NULL;
566: END IF;
567: IF (l_oinv_rec.address4 = OKC_API.G_MISS_CHAR ) THEN
568: l_oinv_rec.address4 := NULL;
563: END IF;
564: IF (l_oinv_rec.address3 = OKC_API.G_MISS_CHAR ) THEN
565: l_oinv_rec.address3 := NULL;
566: END IF;
567: IF (l_oinv_rec.address4 = OKC_API.G_MISS_CHAR ) THEN
568: l_oinv_rec.address4 := NULL;
569: END IF;
570: IF (l_oinv_rec.city = OKC_API.G_MISS_CHAR ) THEN
571: l_oinv_rec.city := NULL;
566: END IF;
567: IF (l_oinv_rec.address4 = OKC_API.G_MISS_CHAR ) THEN
568: l_oinv_rec.address4 := NULL;
569: END IF;
570: IF (l_oinv_rec.city = OKC_API.G_MISS_CHAR ) THEN
571: l_oinv_rec.city := NULL;
572: END IF;
573: IF (l_oinv_rec.postal_code = OKC_API.G_MISS_CHAR ) THEN
574: l_oinv_rec.postal_code := NULL;
569: END IF;
570: IF (l_oinv_rec.city = OKC_API.G_MISS_CHAR ) THEN
571: l_oinv_rec.city := NULL;
572: END IF;
573: IF (l_oinv_rec.postal_code = OKC_API.G_MISS_CHAR ) THEN
574: l_oinv_rec.postal_code := NULL;
575: END IF;
576: IF (l_oinv_rec.state = OKC_API.G_MISS_CHAR ) THEN
577: l_oinv_rec.state := NULL;
572: END IF;
573: IF (l_oinv_rec.postal_code = OKC_API.G_MISS_CHAR ) THEN
574: l_oinv_rec.postal_code := NULL;
575: END IF;
576: IF (l_oinv_rec.state = OKC_API.G_MISS_CHAR ) THEN
577: l_oinv_rec.state := NULL;
578: END IF;
579: IF (l_oinv_rec.province = OKC_API.G_MISS_CHAR ) THEN
580: l_oinv_rec.province := NULL;
575: END IF;
576: IF (l_oinv_rec.state = OKC_API.G_MISS_CHAR ) THEN
577: l_oinv_rec.state := NULL;
578: END IF;
579: IF (l_oinv_rec.province = OKC_API.G_MISS_CHAR ) THEN
580: l_oinv_rec.province := NULL;
581: END IF;
582: IF (l_oinv_rec.county = OKC_API.G_MISS_CHAR ) THEN
583: l_oinv_rec.county := NULL;
578: END IF;
579: IF (l_oinv_rec.province = OKC_API.G_MISS_CHAR ) THEN
580: l_oinv_rec.province := NULL;
581: END IF;
582: IF (l_oinv_rec.county = OKC_API.G_MISS_CHAR ) THEN
583: l_oinv_rec.county := NULL;
584: END IF;
585: IF (l_oinv_rec.po_box_number = OKC_API.G_MISS_CHAR ) THEN
586: l_oinv_rec.po_box_number := NULL;
581: END IF;
582: IF (l_oinv_rec.county = OKC_API.G_MISS_CHAR ) THEN
583: l_oinv_rec.county := NULL;
584: END IF;
585: IF (l_oinv_rec.po_box_number = OKC_API.G_MISS_CHAR ) THEN
586: l_oinv_rec.po_box_number := NULL;
587: END IF;
588: IF (l_oinv_rec.house_number = OKC_API.G_MISS_CHAR ) THEN
589: l_oinv_rec.house_number := NULL;
584: END IF;
585: IF (l_oinv_rec.po_box_number = OKC_API.G_MISS_CHAR ) THEN
586: l_oinv_rec.po_box_number := NULL;
587: END IF;
588: IF (l_oinv_rec.house_number = OKC_API.G_MISS_CHAR ) THEN
589: l_oinv_rec.house_number := NULL;
590: END IF;
591: IF (l_oinv_rec.street_suffix = OKC_API.G_MISS_CHAR ) THEN
592: l_oinv_rec.street_suffix := NULL;
587: END IF;
588: IF (l_oinv_rec.house_number = OKC_API.G_MISS_CHAR ) THEN
589: l_oinv_rec.house_number := NULL;
590: END IF;
591: IF (l_oinv_rec.street_suffix = OKC_API.G_MISS_CHAR ) THEN
592: l_oinv_rec.street_suffix := NULL;
593: END IF;
594: IF (l_oinv_rec.apartment_number = OKC_API.G_MISS_CHAR ) THEN
595: l_oinv_rec.apartment_number := NULL;
590: END IF;
591: IF (l_oinv_rec.street_suffix = OKC_API.G_MISS_CHAR ) THEN
592: l_oinv_rec.street_suffix := NULL;
593: END IF;
594: IF (l_oinv_rec.apartment_number = OKC_API.G_MISS_CHAR ) THEN
595: l_oinv_rec.apartment_number := NULL;
596: END IF;
597: IF (l_oinv_rec.street = OKC_API.G_MISS_CHAR ) THEN
598: l_oinv_rec.street := NULL;
593: END IF;
594: IF (l_oinv_rec.apartment_number = OKC_API.G_MISS_CHAR ) THEN
595: l_oinv_rec.apartment_number := NULL;
596: END IF;
597: IF (l_oinv_rec.street = OKC_API.G_MISS_CHAR ) THEN
598: l_oinv_rec.street := NULL;
599: END IF;
600: IF (l_oinv_rec.rural_route_number = OKC_API.G_MISS_CHAR ) THEN
601: l_oinv_rec.rural_route_number := NULL;
596: END IF;
597: IF (l_oinv_rec.street = OKC_API.G_MISS_CHAR ) THEN
598: l_oinv_rec.street := NULL;
599: END IF;
600: IF (l_oinv_rec.rural_route_number = OKC_API.G_MISS_CHAR ) THEN
601: l_oinv_rec.rural_route_number := NULL;
602: END IF;
603: IF (l_oinv_rec.street_number = OKC_API.G_MISS_CHAR ) THEN
604: l_oinv_rec.street_number := NULL;
599: END IF;
600: IF (l_oinv_rec.rural_route_number = OKC_API.G_MISS_CHAR ) THEN
601: l_oinv_rec.rural_route_number := NULL;
602: END IF;
603: IF (l_oinv_rec.street_number = OKC_API.G_MISS_CHAR ) THEN
604: l_oinv_rec.street_number := NULL;
605: END IF;
606: IF (l_oinv_rec.building = OKC_API.G_MISS_CHAR ) THEN
607: l_oinv_rec.building := NULL;
602: END IF;
603: IF (l_oinv_rec.street_number = OKC_API.G_MISS_CHAR ) THEN
604: l_oinv_rec.street_number := NULL;
605: END IF;
606: IF (l_oinv_rec.building = OKC_API.G_MISS_CHAR ) THEN
607: l_oinv_rec.building := NULL;
608: END IF;
609: IF (l_oinv_rec.floor = OKC_API.G_MISS_CHAR ) THEN
610: l_oinv_rec.floor := NULL;
605: END IF;
606: IF (l_oinv_rec.building = OKC_API.G_MISS_CHAR ) THEN
607: l_oinv_rec.building := NULL;
608: END IF;
609: IF (l_oinv_rec.floor = OKC_API.G_MISS_CHAR ) THEN
610: l_oinv_rec.floor := NULL;
611: END IF;
612: IF (l_oinv_rec.suite = OKC_API.G_MISS_CHAR ) THEN
613: l_oinv_rec.suite := NULL;
608: END IF;
609: IF (l_oinv_rec.floor = OKC_API.G_MISS_CHAR ) THEN
610: l_oinv_rec.floor := NULL;
611: END IF;
612: IF (l_oinv_rec.suite = OKC_API.G_MISS_CHAR ) THEN
613: l_oinv_rec.suite := NULL;
614: END IF;
615: IF (l_oinv_rec.room = OKC_API.G_MISS_CHAR ) THEN
616: l_oinv_rec.room := NULL;
611: END IF;
612: IF (l_oinv_rec.suite = OKC_API.G_MISS_CHAR ) THEN
613: l_oinv_rec.suite := NULL;
614: END IF;
615: IF (l_oinv_rec.room = OKC_API.G_MISS_CHAR ) THEN
616: l_oinv_rec.room := NULL;
617: END IF;
618: IF (l_oinv_rec.postal_plus4_code = OKC_API.G_MISS_CHAR ) THEN
619: l_oinv_rec.postal_plus4_code := NULL;
614: END IF;
615: IF (l_oinv_rec.room = OKC_API.G_MISS_CHAR ) THEN
616: l_oinv_rec.room := NULL;
617: END IF;
618: IF (l_oinv_rec.postal_plus4_code = OKC_API.G_MISS_CHAR ) THEN
619: l_oinv_rec.postal_plus4_code := NULL;
620: END IF;
621: IF (l_oinv_rec.cas_id = OKC_API.G_MISS_NUM ) THEN
622: l_oinv_rec.cas_id := NULL;
617: END IF;
618: IF (l_oinv_rec.postal_plus4_code = OKC_API.G_MISS_CHAR ) THEN
619: l_oinv_rec.postal_plus4_code := NULL;
620: END IF;
621: IF (l_oinv_rec.cas_id = OKC_API.G_MISS_NUM ) THEN
622: l_oinv_rec.cas_id := NULL;
623: END IF;
624: IF (l_oinv_rec.case_number = OKC_API.G_MISS_CHAR ) THEN
625: l_oinv_rec.case_number := NULL;
620: END IF;
621: IF (l_oinv_rec.cas_id = OKC_API.G_MISS_NUM ) THEN
622: l_oinv_rec.cas_id := NULL;
623: END IF;
624: IF (l_oinv_rec.case_number = OKC_API.G_MISS_CHAR ) THEN
625: l_oinv_rec.case_number := NULL;
626: END IF;
627: IF (l_oinv_rec.khr_id = OKC_API.G_MISS_NUM ) THEN
628: l_oinv_rec.khr_id := NULL;
623: END IF;
624: IF (l_oinv_rec.case_number = OKC_API.G_MISS_CHAR ) THEN
625: l_oinv_rec.case_number := NULL;
626: END IF;
627: IF (l_oinv_rec.khr_id = OKC_API.G_MISS_NUM ) THEN
628: l_oinv_rec.khr_id := NULL;
629: END IF;
630: IF (l_oinv_rec.contract_number = OKC_API.G_MISS_CHAR ) THEN
631: l_oinv_rec.contract_number := NULL;
626: END IF;
627: IF (l_oinv_rec.khr_id = OKC_API.G_MISS_NUM ) THEN
628: l_oinv_rec.khr_id := NULL;
629: END IF;
630: IF (l_oinv_rec.contract_number = OKC_API.G_MISS_CHAR ) THEN
631: l_oinv_rec.contract_number := NULL;
632: END IF;
633: IF (l_oinv_rec.contract_type = OKC_API.G_MISS_CHAR ) THEN
634: l_oinv_rec.contract_type := NULL;
629: END IF;
630: IF (l_oinv_rec.contract_number = OKC_API.G_MISS_CHAR ) THEN
631: l_oinv_rec.contract_number := NULL;
632: END IF;
633: IF (l_oinv_rec.contract_type = OKC_API.G_MISS_CHAR ) THEN
634: l_oinv_rec.contract_type := NULL;
635: END IF;
636: IF (l_oinv_rec.contract_status = OKC_API.G_MISS_CHAR ) THEN
637: l_oinv_rec.contract_status := NULL;
632: END IF;
633: IF (l_oinv_rec.contract_type = OKC_API.G_MISS_CHAR ) THEN
634: l_oinv_rec.contract_type := NULL;
635: END IF;
636: IF (l_oinv_rec.contract_status = OKC_API.G_MISS_CHAR ) THEN
637: l_oinv_rec.contract_status := NULL;
638: END IF;
639: IF (l_oinv_rec.original_amount = OKC_API.G_MISS_NUM ) THEN
640: l_oinv_rec.original_amount := NULL;
635: END IF;
636: IF (l_oinv_rec.contract_status = OKC_API.G_MISS_CHAR ) THEN
637: l_oinv_rec.contract_status := NULL;
638: END IF;
639: IF (l_oinv_rec.original_amount = OKC_API.G_MISS_NUM ) THEN
640: l_oinv_rec.original_amount := NULL;
641: END IF;
642: IF (l_oinv_rec.start_date = OKC_API.G_MISS_DATE ) THEN
643: l_oinv_rec.start_date := NULL;
638: END IF;
639: IF (l_oinv_rec.original_amount = OKC_API.G_MISS_NUM ) THEN
640: l_oinv_rec.original_amount := NULL;
641: END IF;
642: IF (l_oinv_rec.start_date = OKC_API.G_MISS_DATE ) THEN
643: l_oinv_rec.start_date := NULL;
644: END IF;
645: IF (l_oinv_rec.close_date = OKC_API.G_MISS_DATE ) THEN
646: l_oinv_rec.close_date := NULL;
641: END IF;
642: IF (l_oinv_rec.start_date = OKC_API.G_MISS_DATE ) THEN
643: l_oinv_rec.start_date := NULL;
644: END IF;
645: IF (l_oinv_rec.close_date = OKC_API.G_MISS_DATE ) THEN
646: l_oinv_rec.close_date := NULL;
647: END IF;
648: IF (l_oinv_rec.term_duration = OKC_API.G_MISS_NUM ) THEN
649: l_oinv_rec.term_duration := NULL;
644: END IF;
645: IF (l_oinv_rec.close_date = OKC_API.G_MISS_DATE ) THEN
646: l_oinv_rec.close_date := NULL;
647: END IF;
648: IF (l_oinv_rec.term_duration = OKC_API.G_MISS_NUM ) THEN
649: l_oinv_rec.term_duration := NULL;
650: END IF;
651: IF (l_oinv_rec.monthly_payment_amount = OKC_API.G_MISS_NUM ) THEN
652: l_oinv_rec.monthly_payment_amount := NULL;
647: END IF;
648: IF (l_oinv_rec.term_duration = OKC_API.G_MISS_NUM ) THEN
649: l_oinv_rec.term_duration := NULL;
650: END IF;
651: IF (l_oinv_rec.monthly_payment_amount = OKC_API.G_MISS_NUM ) THEN
652: l_oinv_rec.monthly_payment_amount := NULL;
653: END IF;
654: IF (l_oinv_rec.last_payment_date = OKC_API.G_MISS_DATE ) THEN
655: l_oinv_rec.last_payment_date := NULL;
650: END IF;
651: IF (l_oinv_rec.monthly_payment_amount = OKC_API.G_MISS_NUM ) THEN
652: l_oinv_rec.monthly_payment_amount := NULL;
653: END IF;
654: IF (l_oinv_rec.last_payment_date = OKC_API.G_MISS_DATE ) THEN
655: l_oinv_rec.last_payment_date := NULL;
656: END IF;
657: IF (l_oinv_rec.delinquency_occurance_date = OKC_API.G_MISS_DATE ) THEN
658: l_oinv_rec.delinquency_occurance_date := NULL;
653: END IF;
654: IF (l_oinv_rec.last_payment_date = OKC_API.G_MISS_DATE ) THEN
655: l_oinv_rec.last_payment_date := NULL;
656: END IF;
657: IF (l_oinv_rec.delinquency_occurance_date = OKC_API.G_MISS_DATE ) THEN
658: l_oinv_rec.delinquency_occurance_date := NULL;
659: END IF;
660: IF (l_oinv_rec.past_due_amount = OKC_API.G_MISS_NUM ) THEN
661: l_oinv_rec.past_due_amount := NULL;
656: END IF;
657: IF (l_oinv_rec.delinquency_occurance_date = OKC_API.G_MISS_DATE ) THEN
658: l_oinv_rec.delinquency_occurance_date := NULL;
659: END IF;
660: IF (l_oinv_rec.past_due_amount = OKC_API.G_MISS_NUM ) THEN
661: l_oinv_rec.past_due_amount := NULL;
662: END IF;
663: IF (l_oinv_rec.remaining_amount = OKC_API.G_MISS_NUM ) THEN
664: l_oinv_rec.remaining_amount := NULL;
659: END IF;
660: IF (l_oinv_rec.past_due_amount = OKC_API.G_MISS_NUM ) THEN
661: l_oinv_rec.past_due_amount := NULL;
662: END IF;
663: IF (l_oinv_rec.remaining_amount = OKC_API.G_MISS_NUM ) THEN
664: l_oinv_rec.remaining_amount := NULL;
665: END IF;
666: IF (l_oinv_rec.credit_indicator = OKC_API.G_MISS_CHAR ) THEN
667: l_oinv_rec.credit_indicator := NULL;
662: END IF;
663: IF (l_oinv_rec.remaining_amount = OKC_API.G_MISS_NUM ) THEN
664: l_oinv_rec.remaining_amount := NULL;
665: END IF;
666: IF (l_oinv_rec.credit_indicator = OKC_API.G_MISS_CHAR ) THEN
667: l_oinv_rec.credit_indicator := NULL;
668: END IF;
669: IF (l_oinv_rec.notification_date = OKC_API.G_MISS_DATE ) THEN
670: l_oinv_rec.notification_date := NULL;
665: END IF;
666: IF (l_oinv_rec.credit_indicator = OKC_API.G_MISS_CHAR ) THEN
667: l_oinv_rec.credit_indicator := NULL;
668: END IF;
669: IF (l_oinv_rec.notification_date = OKC_API.G_MISS_DATE ) THEN
670: l_oinv_rec.notification_date := NULL;
671: END IF;
672: IF (l_oinv_rec.credit_bureau_report_date = OKC_API.G_MISS_DATE ) THEN
673: l_oinv_rec.credit_bureau_report_date := NULL;
668: END IF;
669: IF (l_oinv_rec.notification_date = OKC_API.G_MISS_DATE ) THEN
670: l_oinv_rec.notification_date := NULL;
671: END IF;
672: IF (l_oinv_rec.credit_bureau_report_date = OKC_API.G_MISS_DATE ) THEN
673: l_oinv_rec.credit_bureau_report_date := NULL;
674: END IF;
675: IF (l_oinv_rec.external_agency_transfer_date = OKC_API.G_MISS_DATE ) THEN
676: l_oinv_rec.external_agency_transfer_date := NULL;
671: END IF;
672: IF (l_oinv_rec.credit_bureau_report_date = OKC_API.G_MISS_DATE ) THEN
673: l_oinv_rec.credit_bureau_report_date := NULL;
674: END IF;
675: IF (l_oinv_rec.external_agency_transfer_date = OKC_API.G_MISS_DATE ) THEN
676: l_oinv_rec.external_agency_transfer_date := NULL;
677: END IF;
678: IF (l_oinv_rec.external_agency_recall_date = OKC_API.G_MISS_DATE ) THEN
679: l_oinv_rec.external_agency_recall_date := NULL;
674: END IF;
675: IF (l_oinv_rec.external_agency_transfer_date = OKC_API.G_MISS_DATE ) THEN
676: l_oinv_rec.external_agency_transfer_date := NULL;
677: END IF;
678: IF (l_oinv_rec.external_agency_recall_date = OKC_API.G_MISS_DATE ) THEN
679: l_oinv_rec.external_agency_recall_date := NULL;
680: END IF;
681: IF (l_oinv_rec.referral_number = OKC_API.G_MISS_NUM ) THEN
682: l_oinv_rec.referral_number := NULL;
677: END IF;
678: IF (l_oinv_rec.external_agency_recall_date = OKC_API.G_MISS_DATE ) THEN
679: l_oinv_rec.external_agency_recall_date := NULL;
680: END IF;
681: IF (l_oinv_rec.referral_number = OKC_API.G_MISS_NUM ) THEN
682: l_oinv_rec.referral_number := NULL;
683: END IF;
684: IF (l_oinv_rec.contact_id = OKC_API.G_MISS_NUM ) THEN
685: l_oinv_rec.contact_id := NULL;
680: END IF;
681: IF (l_oinv_rec.referral_number = OKC_API.G_MISS_NUM ) THEN
682: l_oinv_rec.referral_number := NULL;
683: END IF;
684: IF (l_oinv_rec.contact_id = OKC_API.G_MISS_NUM ) THEN
685: l_oinv_rec.contact_id := NULL;
686: END IF;
687: IF (l_oinv_rec.contact_name = OKC_API.G_MISS_CHAR ) THEN
688: l_oinv_rec.contact_name := NULL;
683: END IF;
684: IF (l_oinv_rec.contact_id = OKC_API.G_MISS_NUM ) THEN
685: l_oinv_rec.contact_id := NULL;
686: END IF;
687: IF (l_oinv_rec.contact_name = OKC_API.G_MISS_CHAR ) THEN
688: l_oinv_rec.contact_name := NULL;
689: END IF;
690: IF (l_oinv_rec.contact_phone = OKC_API.G_MISS_CHAR ) THEN
691: l_oinv_rec.contact_phone := NULL;
686: END IF;
687: IF (l_oinv_rec.contact_name = OKC_API.G_MISS_CHAR ) THEN
688: l_oinv_rec.contact_name := NULL;
689: END IF;
690: IF (l_oinv_rec.contact_phone = OKC_API.G_MISS_CHAR ) THEN
691: l_oinv_rec.contact_phone := NULL;
692: END IF;
693: IF (l_oinv_rec.contact_email = OKC_API.G_MISS_CHAR ) THEN
694: l_oinv_rec.contact_email := NULL;
689: END IF;
690: IF (l_oinv_rec.contact_phone = OKC_API.G_MISS_CHAR ) THEN
691: l_oinv_rec.contact_phone := NULL;
692: END IF;
693: IF (l_oinv_rec.contact_email = OKC_API.G_MISS_CHAR ) THEN
694: l_oinv_rec.contact_email := NULL;
695: END IF;
696: IF (l_oinv_rec.object_version_number = OKC_API.G_MISS_NUM ) THEN
697: l_oinv_rec.object_version_number := NULL;
692: END IF;
693: IF (l_oinv_rec.contact_email = OKC_API.G_MISS_CHAR ) THEN
694: l_oinv_rec.contact_email := NULL;
695: END IF;
696: IF (l_oinv_rec.object_version_number = OKC_API.G_MISS_NUM ) THEN
697: l_oinv_rec.object_version_number := NULL;
698: END IF;
699: IF (l_oinv_rec.org_id = OKC_API.G_MISS_NUM ) THEN
700: l_oinv_rec.org_id := NULL;
695: END IF;
696: IF (l_oinv_rec.object_version_number = OKC_API.G_MISS_NUM ) THEN
697: l_oinv_rec.object_version_number := NULL;
698: END IF;
699: IF (l_oinv_rec.org_id = OKC_API.G_MISS_NUM ) THEN
700: l_oinv_rec.org_id := NULL;
701: END IF;
702: IF (l_oinv_rec.request_id = OKC_API.G_MISS_NUM ) THEN
703: l_oinv_rec.request_id := NULL;
698: END IF;
699: IF (l_oinv_rec.org_id = OKC_API.G_MISS_NUM ) THEN
700: l_oinv_rec.org_id := NULL;
701: END IF;
702: IF (l_oinv_rec.request_id = OKC_API.G_MISS_NUM ) THEN
703: l_oinv_rec.request_id := NULL;
704: END IF;
705: IF (l_oinv_rec.program_application_id = OKC_API.G_MISS_NUM ) THEN
706: l_oinv_rec.program_application_id := NULL;
701: END IF;
702: IF (l_oinv_rec.request_id = OKC_API.G_MISS_NUM ) THEN
703: l_oinv_rec.request_id := NULL;
704: END IF;
705: IF (l_oinv_rec.program_application_id = OKC_API.G_MISS_NUM ) THEN
706: l_oinv_rec.program_application_id := NULL;
707: END IF;
708: IF (l_oinv_rec.program_id = OKC_API.G_MISS_NUM ) THEN
709: l_oinv_rec.program_id := NULL;
704: END IF;
705: IF (l_oinv_rec.program_application_id = OKC_API.G_MISS_NUM ) THEN
706: l_oinv_rec.program_application_id := NULL;
707: END IF;
708: IF (l_oinv_rec.program_id = OKC_API.G_MISS_NUM ) THEN
709: l_oinv_rec.program_id := NULL;
710: END IF;
711: IF (l_oinv_rec.program_update_date = OKC_API.G_MISS_DATE ) THEN
712: l_oinv_rec.program_update_date := NULL;
707: END IF;
708: IF (l_oinv_rec.program_id = OKC_API.G_MISS_NUM ) THEN
709: l_oinv_rec.program_id := NULL;
710: END IF;
711: IF (l_oinv_rec.program_update_date = OKC_API.G_MISS_DATE ) THEN
712: l_oinv_rec.program_update_date := NULL;
713: END IF;
714: IF (l_oinv_rec.attribute_category = OKC_API.G_MISS_CHAR ) THEN
715: l_oinv_rec.attribute_category := NULL;
710: END IF;
711: IF (l_oinv_rec.program_update_date = OKC_API.G_MISS_DATE ) THEN
712: l_oinv_rec.program_update_date := NULL;
713: END IF;
714: IF (l_oinv_rec.attribute_category = OKC_API.G_MISS_CHAR ) THEN
715: l_oinv_rec.attribute_category := NULL;
716: END IF;
717: IF (l_oinv_rec.attribute1 = OKC_API.G_MISS_CHAR ) THEN
718: l_oinv_rec.attribute1 := NULL;
713: END IF;
714: IF (l_oinv_rec.attribute_category = OKC_API.G_MISS_CHAR ) THEN
715: l_oinv_rec.attribute_category := NULL;
716: END IF;
717: IF (l_oinv_rec.attribute1 = OKC_API.G_MISS_CHAR ) THEN
718: l_oinv_rec.attribute1 := NULL;
719: END IF;
720: IF (l_oinv_rec.attribute2 = OKC_API.G_MISS_CHAR ) THEN
721: l_oinv_rec.attribute2 := NULL;
716: END IF;
717: IF (l_oinv_rec.attribute1 = OKC_API.G_MISS_CHAR ) THEN
718: l_oinv_rec.attribute1 := NULL;
719: END IF;
720: IF (l_oinv_rec.attribute2 = OKC_API.G_MISS_CHAR ) THEN
721: l_oinv_rec.attribute2 := NULL;
722: END IF;
723: IF (l_oinv_rec.attribute3 = OKC_API.G_MISS_CHAR ) THEN
724: l_oinv_rec.attribute3 := NULL;
719: END IF;
720: IF (l_oinv_rec.attribute2 = OKC_API.G_MISS_CHAR ) THEN
721: l_oinv_rec.attribute2 := NULL;
722: END IF;
723: IF (l_oinv_rec.attribute3 = OKC_API.G_MISS_CHAR ) THEN
724: l_oinv_rec.attribute3 := NULL;
725: END IF;
726: IF (l_oinv_rec.attribute4 = OKC_API.G_MISS_CHAR ) THEN
727: l_oinv_rec.attribute4 := NULL;
722: END IF;
723: IF (l_oinv_rec.attribute3 = OKC_API.G_MISS_CHAR ) THEN
724: l_oinv_rec.attribute3 := NULL;
725: END IF;
726: IF (l_oinv_rec.attribute4 = OKC_API.G_MISS_CHAR ) THEN
727: l_oinv_rec.attribute4 := NULL;
728: END IF;
729: IF (l_oinv_rec.attribute5 = OKC_API.G_MISS_CHAR ) THEN
730: l_oinv_rec.attribute5 := NULL;
725: END IF;
726: IF (l_oinv_rec.attribute4 = OKC_API.G_MISS_CHAR ) THEN
727: l_oinv_rec.attribute4 := NULL;
728: END IF;
729: IF (l_oinv_rec.attribute5 = OKC_API.G_MISS_CHAR ) THEN
730: l_oinv_rec.attribute5 := NULL;
731: END IF;
732: IF (l_oinv_rec.attribute6 = OKC_API.G_MISS_CHAR ) THEN
733: l_oinv_rec.attribute6 := NULL;
728: END IF;
729: IF (l_oinv_rec.attribute5 = OKC_API.G_MISS_CHAR ) THEN
730: l_oinv_rec.attribute5 := NULL;
731: END IF;
732: IF (l_oinv_rec.attribute6 = OKC_API.G_MISS_CHAR ) THEN
733: l_oinv_rec.attribute6 := NULL;
734: END IF;
735: IF (l_oinv_rec.attribute7 = OKC_API.G_MISS_CHAR ) THEN
736: l_oinv_rec.attribute7 := NULL;
731: END IF;
732: IF (l_oinv_rec.attribute6 = OKC_API.G_MISS_CHAR ) THEN
733: l_oinv_rec.attribute6 := NULL;
734: END IF;
735: IF (l_oinv_rec.attribute7 = OKC_API.G_MISS_CHAR ) THEN
736: l_oinv_rec.attribute7 := NULL;
737: END IF;
738: IF (l_oinv_rec.attribute8 = OKC_API.G_MISS_CHAR ) THEN
739: l_oinv_rec.attribute8 := NULL;
734: END IF;
735: IF (l_oinv_rec.attribute7 = OKC_API.G_MISS_CHAR ) THEN
736: l_oinv_rec.attribute7 := NULL;
737: END IF;
738: IF (l_oinv_rec.attribute8 = OKC_API.G_MISS_CHAR ) THEN
739: l_oinv_rec.attribute8 := NULL;
740: END IF;
741: IF (l_oinv_rec.attribute9 = OKC_API.G_MISS_CHAR ) THEN
742: l_oinv_rec.attribute9 := NULL;
737: END IF;
738: IF (l_oinv_rec.attribute8 = OKC_API.G_MISS_CHAR ) THEN
739: l_oinv_rec.attribute8 := NULL;
740: END IF;
741: IF (l_oinv_rec.attribute9 = OKC_API.G_MISS_CHAR ) THEN
742: l_oinv_rec.attribute9 := NULL;
743: END IF;
744: IF (l_oinv_rec.attribute10 = OKC_API.G_MISS_CHAR ) THEN
745: l_oinv_rec.attribute10 := NULL;
740: END IF;
741: IF (l_oinv_rec.attribute9 = OKC_API.G_MISS_CHAR ) THEN
742: l_oinv_rec.attribute9 := NULL;
743: END IF;
744: IF (l_oinv_rec.attribute10 = OKC_API.G_MISS_CHAR ) THEN
745: l_oinv_rec.attribute10 := NULL;
746: END IF;
747: IF (l_oinv_rec.attribute11 = OKC_API.G_MISS_CHAR ) THEN
748: l_oinv_rec.attribute11 := NULL;
743: END IF;
744: IF (l_oinv_rec.attribute10 = OKC_API.G_MISS_CHAR ) THEN
745: l_oinv_rec.attribute10 := NULL;
746: END IF;
747: IF (l_oinv_rec.attribute11 = OKC_API.G_MISS_CHAR ) THEN
748: l_oinv_rec.attribute11 := NULL;
749: END IF;
750: IF (l_oinv_rec.attribute12 = OKC_API.G_MISS_CHAR ) THEN
751: l_oinv_rec.attribute12 := NULL;
746: END IF;
747: IF (l_oinv_rec.attribute11 = OKC_API.G_MISS_CHAR ) THEN
748: l_oinv_rec.attribute11 := NULL;
749: END IF;
750: IF (l_oinv_rec.attribute12 = OKC_API.G_MISS_CHAR ) THEN
751: l_oinv_rec.attribute12 := NULL;
752: END IF;
753: IF (l_oinv_rec.attribute13 = OKC_API.G_MISS_CHAR ) THEN
754: l_oinv_rec.attribute13 := NULL;
749: END IF;
750: IF (l_oinv_rec.attribute12 = OKC_API.G_MISS_CHAR ) THEN
751: l_oinv_rec.attribute12 := NULL;
752: END IF;
753: IF (l_oinv_rec.attribute13 = OKC_API.G_MISS_CHAR ) THEN
754: l_oinv_rec.attribute13 := NULL;
755: END IF;
756: IF (l_oinv_rec.attribute14 = OKC_API.G_MISS_CHAR ) THEN
757: l_oinv_rec.attribute14 := NULL;
752: END IF;
753: IF (l_oinv_rec.attribute13 = OKC_API.G_MISS_CHAR ) THEN
754: l_oinv_rec.attribute13 := NULL;
755: END IF;
756: IF (l_oinv_rec.attribute14 = OKC_API.G_MISS_CHAR ) THEN
757: l_oinv_rec.attribute14 := NULL;
758: END IF;
759: IF (l_oinv_rec.attribute15 = OKC_API.G_MISS_CHAR ) THEN
760: l_oinv_rec.attribute15 := NULL;
755: END IF;
756: IF (l_oinv_rec.attribute14 = OKC_API.G_MISS_CHAR ) THEN
757: l_oinv_rec.attribute14 := NULL;
758: END IF;
759: IF (l_oinv_rec.attribute15 = OKC_API.G_MISS_CHAR ) THEN
760: l_oinv_rec.attribute15 := NULL;
761: END IF;
762: IF (l_oinv_rec.created_by = OKC_API.G_MISS_NUM ) THEN
763: l_oinv_rec.created_by := NULL;
758: END IF;
759: IF (l_oinv_rec.attribute15 = OKC_API.G_MISS_CHAR ) THEN
760: l_oinv_rec.attribute15 := NULL;
761: END IF;
762: IF (l_oinv_rec.created_by = OKC_API.G_MISS_NUM ) THEN
763: l_oinv_rec.created_by := NULL;
764: END IF;
765: IF (l_oinv_rec.creation_date = OKC_API.G_MISS_DATE ) THEN
766: l_oinv_rec.creation_date := NULL;
761: END IF;
762: IF (l_oinv_rec.created_by = OKC_API.G_MISS_NUM ) THEN
763: l_oinv_rec.created_by := NULL;
764: END IF;
765: IF (l_oinv_rec.creation_date = OKC_API.G_MISS_DATE ) THEN
766: l_oinv_rec.creation_date := NULL;
767: END IF;
768: IF (l_oinv_rec.last_updated_by = OKC_API.G_MISS_NUM ) THEN
769: l_oinv_rec.last_updated_by := NULL;
764: END IF;
765: IF (l_oinv_rec.creation_date = OKC_API.G_MISS_DATE ) THEN
766: l_oinv_rec.creation_date := NULL;
767: END IF;
768: IF (l_oinv_rec.last_updated_by = OKC_API.G_MISS_NUM ) THEN
769: l_oinv_rec.last_updated_by := NULL;
770: END IF;
771: IF (l_oinv_rec.last_update_date = OKC_API.G_MISS_DATE ) THEN
772: l_oinv_rec.last_update_date := NULL;
767: END IF;
768: IF (l_oinv_rec.last_updated_by = OKC_API.G_MISS_NUM ) THEN
769: l_oinv_rec.last_updated_by := NULL;
770: END IF;
771: IF (l_oinv_rec.last_update_date = OKC_API.G_MISS_DATE ) THEN
772: l_oinv_rec.last_update_date := NULL;
773: END IF;
774: IF (l_oinv_rec.last_update_login = OKC_API.G_MISS_NUM ) THEN
775: l_oinv_rec.last_update_login := NULL;
770: END IF;
771: IF (l_oinv_rec.last_update_date = OKC_API.G_MISS_DATE ) THEN
772: l_oinv_rec.last_update_date := NULL;
773: END IF;
774: IF (l_oinv_rec.last_update_login = OKC_API.G_MISS_NUM ) THEN
775: l_oinv_rec.last_update_login := NULL;
776: END IF;
777: RETURN(l_oinv_rec);
778: END null_out_defaults;
781: ---------------------------------
782: PROCEDURE validate_id(
783: x_return_status OUT NOCOPY VARCHAR2,
784: p_oinv_rec IN oinv_rec_type) AS
785: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
786: BEGIN
787: IF (p_oinv_rec.id = OKC_API.G_MISS_NUM OR
788: p_oinv_rec.id IS NULL)
789: THEN
783: x_return_status OUT NOCOPY VARCHAR2,
784: p_oinv_rec IN oinv_rec_type) AS
785: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
786: BEGIN
787: IF (p_oinv_rec.id = OKC_API.G_MISS_NUM OR
788: p_oinv_rec.id IS NULL)
789: THEN
790: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
791: l_return_status := OKC_API.G_RET_STS_ERROR;
786: BEGIN
787: IF (p_oinv_rec.id = OKC_API.G_MISS_NUM OR
788: p_oinv_rec.id IS NULL)
789: THEN
790: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
791: l_return_status := OKC_API.G_RET_STS_ERROR;
792: END IF;
793:
794: x_return_status := l_return_status;
787: IF (p_oinv_rec.id = OKC_API.G_MISS_NUM OR
788: p_oinv_rec.id IS NULL)
789: THEN
790: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
791: l_return_status := OKC_API.G_RET_STS_ERROR;
792: END IF;
793:
794: x_return_status := l_return_status;
795: EXCEPTION
793:
794: x_return_status := l_return_status;
795: EXCEPTION
796: WHEN OTHERS THEN
797: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
798: ,p_msg_name => G_UNEXPECTED_ERROR
799: ,p_token1 => G_SQLCODE_TOKEN
800: ,p_token1_value => SQLCODE
801: ,p_token2 => G_SQLERRM_TOKEN
799: ,p_token1 => G_SQLCODE_TOKEN
800: ,p_token1_value => SQLCODE
801: ,p_token2 => G_SQLERRM_TOKEN
802: ,p_token2_value => SQLERRM);
803: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
804: END validate_id;
805: ---------------------------------------
806: -- Validate_Attributes for: PARTY_ID --
807: ---------------------------------------
807: ---------------------------------------
808: PROCEDURE validate_party_id(
809: x_return_status OUT NOCOPY VARCHAR2,
810: p_oinv_rec IN oinv_rec_type) AS
811: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
812: BEGIN
813: IF (p_oinv_rec.party_id = OKC_API.G_MISS_NUM OR
814: p_oinv_rec.party_id IS NULL)
815: THEN
809: x_return_status OUT NOCOPY VARCHAR2,
810: p_oinv_rec IN oinv_rec_type) AS
811: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
812: BEGIN
813: IF (p_oinv_rec.party_id = OKC_API.G_MISS_NUM OR
814: p_oinv_rec.party_id IS NULL)
815: THEN
816: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'party_id');
817: l_return_status := OKC_API.G_RET_STS_ERROR;
812: BEGIN
813: IF (p_oinv_rec.party_id = OKC_API.G_MISS_NUM OR
814: p_oinv_rec.party_id IS NULL)
815: THEN
816: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'party_id');
817: l_return_status := OKC_API.G_RET_STS_ERROR;
818: END IF;
819:
820: x_return_status := l_return_status;
813: IF (p_oinv_rec.party_id = OKC_API.G_MISS_NUM OR
814: p_oinv_rec.party_id IS NULL)
815: THEN
816: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'party_id');
817: l_return_status := OKC_API.G_RET_STS_ERROR;
818: END IF;
819:
820: x_return_status := l_return_status;
821: EXCEPTION
819:
820: x_return_status := l_return_status;
821: EXCEPTION
822: WHEN OTHERS THEN
823: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
824: ,p_msg_name => G_UNEXPECTED_ERROR
825: ,p_token1 => G_SQLCODE_TOKEN
826: ,p_token1_value => SQLCODE
827: ,p_token2 => G_SQLERRM_TOKEN
825: ,p_token1 => G_SQLCODE_TOKEN
826: ,p_token1_value => SQLCODE
827: ,p_token2 => G_SQLERRM_TOKEN
828: ,p_token2_value => SQLERRM);
829: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
830: END validate_party_id;
831: -----------------------------------------
832: -- Validate_Attributes for: PARTY_NAME --
833: -----------------------------------------
833: -----------------------------------------
834: PROCEDURE validate_party_name(
835: x_return_status OUT NOCOPY VARCHAR2,
836: p_oinv_rec IN oinv_rec_type) AS
837: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
838: BEGIN
839: IF (p_oinv_rec.party_name = OKC_API.G_MISS_CHAR OR
840: p_oinv_rec.party_name IS NULL)
841: THEN
835: x_return_status OUT NOCOPY VARCHAR2,
836: p_oinv_rec IN oinv_rec_type) AS
837: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
838: BEGIN
839: IF (p_oinv_rec.party_name = OKC_API.G_MISS_CHAR OR
840: p_oinv_rec.party_name IS NULL)
841: THEN
842: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'party_name');
843: l_return_status := OKC_API.G_RET_STS_ERROR;
838: BEGIN
839: IF (p_oinv_rec.party_name = OKC_API.G_MISS_CHAR OR
840: p_oinv_rec.party_name IS NULL)
841: THEN
842: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'party_name');
843: l_return_status := OKC_API.G_RET_STS_ERROR;
844: END IF;
845:
846: x_return_status := l_return_status;
839: IF (p_oinv_rec.party_name = OKC_API.G_MISS_CHAR OR
840: p_oinv_rec.party_name IS NULL)
841: THEN
842: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'party_name');
843: l_return_status := OKC_API.G_RET_STS_ERROR;
844: END IF;
845:
846: x_return_status := l_return_status;
847: EXCEPTION
845:
846: x_return_status := l_return_status;
847: EXCEPTION
848: WHEN OTHERS THEN
849: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
850: ,p_msg_name => G_UNEXPECTED_ERROR
851: ,p_token1 => G_SQLCODE_TOKEN
852: ,p_token1_value => SQLCODE
853: ,p_token2 => G_SQLERRM_TOKEN
851: ,p_token1 => G_SQLCODE_TOKEN
852: ,p_token1_value => SQLCODE
853: ,p_token2 => G_SQLERRM_TOKEN
854: ,p_token2_value => SQLERRM);
855: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
856: END validate_party_name;
857: -----------------------------------------
858: -- Validate_Attributes for: PARTY_TYPE --
859: -----------------------------------------
859: -----------------------------------------
860: PROCEDURE validate_party_type(
861: x_return_status OUT NOCOPY VARCHAR2,
862: p_oinv_rec IN oinv_rec_type) AS
863: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
864: BEGIN
865: IF (p_oinv_rec.party_type = OKC_API.G_MISS_CHAR OR
866: p_oinv_rec.party_type IS NULL)
867: THEN
861: x_return_status OUT NOCOPY VARCHAR2,
862: p_oinv_rec IN oinv_rec_type) AS
863: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
864: BEGIN
865: IF (p_oinv_rec.party_type = OKC_API.G_MISS_CHAR OR
866: p_oinv_rec.party_type IS NULL)
867: THEN
868: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'party_type');
869: l_return_status := OKC_API.G_RET_STS_ERROR;
864: BEGIN
865: IF (p_oinv_rec.party_type = OKC_API.G_MISS_CHAR OR
866: p_oinv_rec.party_type IS NULL)
867: THEN
868: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'party_type');
869: l_return_status := OKC_API.G_RET_STS_ERROR;
870: END IF;
871:
872: x_return_status := l_return_status;
865: IF (p_oinv_rec.party_type = OKC_API.G_MISS_CHAR OR
866: p_oinv_rec.party_type IS NULL)
867: THEN
868: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'party_type');
869: l_return_status := OKC_API.G_RET_STS_ERROR;
870: END IF;
871:
872: x_return_status := l_return_status;
873: EXCEPTION
871:
872: x_return_status := l_return_status;
873: EXCEPTION
874: WHEN OTHERS THEN
875: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
876: ,p_msg_name => G_UNEXPECTED_ERROR
877: ,p_token1 => G_SQLCODE_TOKEN
878: ,p_token1_value => SQLCODE
879: ,p_token2 => G_SQLERRM_TOKEN
877: ,p_token1 => G_SQLCODE_TOKEN
878: ,p_token1_value => SQLCODE
879: ,p_token2 => G_SQLERRM_TOKEN
880: ,p_token2_value => SQLERRM);
881: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
882: END validate_party_type;
883: -------------------------------------
884: -- Validate_Attributes for: CAS_ID --
885: -------------------------------------
885: -------------------------------------
886: PROCEDURE validate_cas_id(
887: x_return_status OUT NOCOPY VARCHAR2,
888: p_oinv_rec IN oinv_rec_type) AS
889: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
890: BEGIN
891: IF (p_oinv_rec.cas_id = OKC_API.G_MISS_NUM OR
892: p_oinv_rec.cas_id IS NULL)
893: THEN
887: x_return_status OUT NOCOPY VARCHAR2,
888: p_oinv_rec IN oinv_rec_type) AS
889: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
890: BEGIN
891: IF (p_oinv_rec.cas_id = OKC_API.G_MISS_NUM OR
892: p_oinv_rec.cas_id IS NULL)
893: THEN
894: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'cas_id');
895: l_return_status := OKC_API.G_RET_STS_ERROR;
890: BEGIN
891: IF (p_oinv_rec.cas_id = OKC_API.G_MISS_NUM OR
892: p_oinv_rec.cas_id IS NULL)
893: THEN
894: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'cas_id');
895: l_return_status := OKC_API.G_RET_STS_ERROR;
896: END IF;
897:
898: x_return_status := l_return_status;
891: IF (p_oinv_rec.cas_id = OKC_API.G_MISS_NUM OR
892: p_oinv_rec.cas_id IS NULL)
893: THEN
894: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'cas_id');
895: l_return_status := OKC_API.G_RET_STS_ERROR;
896: END IF;
897:
898: x_return_status := l_return_status;
899: EXCEPTION
897:
898: x_return_status := l_return_status;
899: EXCEPTION
900: WHEN OTHERS THEN
901: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
902: ,p_msg_name => G_UNEXPECTED_ERROR
903: ,p_token1 => G_SQLCODE_TOKEN
904: ,p_token1_value => SQLCODE
905: ,p_token2 => G_SQLERRM_TOKEN
903: ,p_token1 => G_SQLCODE_TOKEN
904: ,p_token1_value => SQLCODE
905: ,p_token2 => G_SQLERRM_TOKEN
906: ,p_token2_value => SQLERRM);
907: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
908: END validate_cas_id;
909: ------------------------------------------
910: -- Validate_Attributes for: CASE_NUMBER --
911: ------------------------------------------
911: ------------------------------------------
912: PROCEDURE validate_case_number(
913: x_return_status OUT NOCOPY VARCHAR2,
914: p_oinv_rec IN oinv_rec_type) AS
915: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
916: BEGIN
917: IF (p_oinv_rec.case_number = OKC_API.G_MISS_CHAR OR
918: p_oinv_rec.case_number IS NULL)
919: THEN
913: x_return_status OUT NOCOPY VARCHAR2,
914: p_oinv_rec IN oinv_rec_type) AS
915: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
916: BEGIN
917: IF (p_oinv_rec.case_number = OKC_API.G_MISS_CHAR OR
918: p_oinv_rec.case_number IS NULL)
919: THEN
920: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'case_number');
921: l_return_status := OKC_API.G_RET_STS_ERROR;
916: BEGIN
917: IF (p_oinv_rec.case_number = OKC_API.G_MISS_CHAR OR
918: p_oinv_rec.case_number IS NULL)
919: THEN
920: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'case_number');
921: l_return_status := OKC_API.G_RET_STS_ERROR;
922: END IF;
923:
924: x_return_status := l_return_status;
917: IF (p_oinv_rec.case_number = OKC_API.G_MISS_CHAR OR
918: p_oinv_rec.case_number IS NULL)
919: THEN
920: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'case_number');
921: l_return_status := OKC_API.G_RET_STS_ERROR;
922: END IF;
923:
924: x_return_status := l_return_status;
925: EXCEPTION
923:
924: x_return_status := l_return_status;
925: EXCEPTION
926: WHEN OTHERS THEN
927: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
928: ,p_msg_name => G_UNEXPECTED_ERROR
929: ,p_token1 => G_SQLCODE_TOKEN
930: ,p_token1_value => SQLCODE
931: ,p_token2 => G_SQLERRM_TOKEN
929: ,p_token1 => G_SQLCODE_TOKEN
930: ,p_token1_value => SQLCODE
931: ,p_token2 => G_SQLERRM_TOKEN
932: ,p_token2_value => SQLERRM);
933: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
934: END validate_case_number;
935: -------------------------------------
936: -- Validate_Attributes for: KHR_ID --
937: -------------------------------------
937: -------------------------------------
938: PROCEDURE validate_khr_id(
939: x_return_status OUT NOCOPY VARCHAR2,
940: p_oinv_rec IN oinv_rec_type) AS
941: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
942: BEGIN
943: IF (p_oinv_rec.khr_id = OKC_API.G_MISS_NUM OR
944: p_oinv_rec.khr_id IS NULL)
945: THEN
939: x_return_status OUT NOCOPY VARCHAR2,
940: p_oinv_rec IN oinv_rec_type) AS
941: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
942: BEGIN
943: IF (p_oinv_rec.khr_id = OKC_API.G_MISS_NUM OR
944: p_oinv_rec.khr_id IS NULL)
945: THEN
946: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'khr_id');
947: l_return_status := OKC_API.G_RET_STS_ERROR;
942: BEGIN
943: IF (p_oinv_rec.khr_id = OKC_API.G_MISS_NUM OR
944: p_oinv_rec.khr_id IS NULL)
945: THEN
946: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'khr_id');
947: l_return_status := OKC_API.G_RET_STS_ERROR;
948: END IF;
949:
950: x_return_status := l_return_status;
943: IF (p_oinv_rec.khr_id = OKC_API.G_MISS_NUM OR
944: p_oinv_rec.khr_id IS NULL)
945: THEN
946: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'khr_id');
947: l_return_status := OKC_API.G_RET_STS_ERROR;
948: END IF;
949:
950: x_return_status := l_return_status;
951: EXCEPTION
949:
950: x_return_status := l_return_status;
951: EXCEPTION
952: WHEN OTHERS THEN
953: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
954: ,p_msg_name => G_UNEXPECTED_ERROR
955: ,p_token1 => G_SQLCODE_TOKEN
956: ,p_token1_value => SQLCODE
957: ,p_token2 => G_SQLERRM_TOKEN
955: ,p_token1 => G_SQLCODE_TOKEN
956: ,p_token1_value => SQLCODE
957: ,p_token2 => G_SQLERRM_TOKEN
958: ,p_token2_value => SQLERRM);
959: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
960: END validate_khr_id;
961: ----------------------------------------------
962: -- Validate_Attributes for: CONTRACT_NUMBER --
963: ----------------------------------------------
963: ----------------------------------------------
964: PROCEDURE validate_contract_number(
965: x_return_status OUT NOCOPY VARCHAR2,
966: p_oinv_rec IN oinv_rec_type) AS
967: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
968: BEGIN
969: IF (p_oinv_rec.contract_number = OKC_API.G_MISS_CHAR OR
970: p_oinv_rec.contract_number IS NULL)
971: THEN
965: x_return_status OUT NOCOPY VARCHAR2,
966: p_oinv_rec IN oinv_rec_type) AS
967: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
968: BEGIN
969: IF (p_oinv_rec.contract_number = OKC_API.G_MISS_CHAR OR
970: p_oinv_rec.contract_number IS NULL)
971: THEN
972: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'contract_number');
973: l_return_status := OKC_API.G_RET_STS_ERROR;
968: BEGIN
969: IF (p_oinv_rec.contract_number = OKC_API.G_MISS_CHAR OR
970: p_oinv_rec.contract_number IS NULL)
971: THEN
972: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'contract_number');
973: l_return_status := OKC_API.G_RET_STS_ERROR;
974: END IF;
975:
976: x_return_status := l_return_status;
969: IF (p_oinv_rec.contract_number = OKC_API.G_MISS_CHAR OR
970: p_oinv_rec.contract_number IS NULL)
971: THEN
972: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'contract_number');
973: l_return_status := OKC_API.G_RET_STS_ERROR;
974: END IF;
975:
976: x_return_status := l_return_status;
977: EXCEPTION
975:
976: x_return_status := l_return_status;
977: EXCEPTION
978: WHEN OTHERS THEN
979: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
980: ,p_msg_name => G_UNEXPECTED_ERROR
981: ,p_token1 => G_SQLCODE_TOKEN
982: ,p_token1_value => SQLCODE
983: ,p_token2 => G_SQLERRM_TOKEN
981: ,p_token1 => G_SQLCODE_TOKEN
982: ,p_token1_value => SQLCODE
983: ,p_token2 => G_SQLERRM_TOKEN
984: ,p_token2_value => SQLERRM);
985: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
986: END validate_contract_number;
987: --------------------------------------------
988: -- Validate_Attributes for: CONTRACT_TYPE --
989: --------------------------------------------
989: --------------------------------------------
990: PROCEDURE validate_contract_type(
991: x_return_status OUT NOCOPY VARCHAR2,
992: p_oinv_rec IN oinv_rec_type) AS
993: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
994: BEGIN
995: IF (p_oinv_rec.contract_type = OKC_API.G_MISS_CHAR OR
996: p_oinv_rec.contract_type IS NULL)
997: THEN
991: x_return_status OUT NOCOPY VARCHAR2,
992: p_oinv_rec IN oinv_rec_type) AS
993: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
994: BEGIN
995: IF (p_oinv_rec.contract_type = OKC_API.G_MISS_CHAR OR
996: p_oinv_rec.contract_type IS NULL)
997: THEN
998: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'contract_type');
999: l_return_status := OKC_API.G_RET_STS_ERROR;
994: BEGIN
995: IF (p_oinv_rec.contract_type = OKC_API.G_MISS_CHAR OR
996: p_oinv_rec.contract_type IS NULL)
997: THEN
998: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'contract_type');
999: l_return_status := OKC_API.G_RET_STS_ERROR;
1000: END IF;
1001:
1002: x_return_status := l_return_status;
995: IF (p_oinv_rec.contract_type = OKC_API.G_MISS_CHAR OR
996: p_oinv_rec.contract_type IS NULL)
997: THEN
998: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'contract_type');
999: l_return_status := OKC_API.G_RET_STS_ERROR;
1000: END IF;
1001:
1002: x_return_status := l_return_status;
1003: EXCEPTION
1001:
1002: x_return_status := l_return_status;
1003: EXCEPTION
1004: WHEN OTHERS THEN
1005: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
1006: ,p_msg_name => G_UNEXPECTED_ERROR
1007: ,p_token1 => G_SQLCODE_TOKEN
1008: ,p_token1_value => SQLCODE
1009: ,p_token2 => G_SQLERRM_TOKEN
1007: ,p_token1 => G_SQLCODE_TOKEN
1008: ,p_token1_value => SQLCODE
1009: ,p_token2 => G_SQLERRM_TOKEN
1010: ,p_token2_value => SQLERRM);
1011: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1012: END validate_contract_type;
1013: ----------------------------------------------
1014: -- Validate_Attributes for: CONTRACT_STATUS --
1015: ----------------------------------------------
1015: ----------------------------------------------
1016: PROCEDURE validate_contract_status(
1017: x_return_status OUT NOCOPY VARCHAR2,
1018: p_oinv_rec IN oinv_rec_type) AS
1019: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1020: BEGIN
1021: IF (p_oinv_rec.contract_status = OKC_API.G_MISS_CHAR OR
1022: p_oinv_rec.contract_status IS NULL)
1023: THEN
1017: x_return_status OUT NOCOPY VARCHAR2,
1018: p_oinv_rec IN oinv_rec_type) AS
1019: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1020: BEGIN
1021: IF (p_oinv_rec.contract_status = OKC_API.G_MISS_CHAR OR
1022: p_oinv_rec.contract_status IS NULL)
1023: THEN
1024: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'contract_status');
1025: l_return_status := OKC_API.G_RET_STS_ERROR;
1020: BEGIN
1021: IF (p_oinv_rec.contract_status = OKC_API.G_MISS_CHAR OR
1022: p_oinv_rec.contract_status IS NULL)
1023: THEN
1024: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'contract_status');
1025: l_return_status := OKC_API.G_RET_STS_ERROR;
1026: END IF;
1027:
1028: x_return_status := l_return_status;
1021: IF (p_oinv_rec.contract_status = OKC_API.G_MISS_CHAR OR
1022: p_oinv_rec.contract_status IS NULL)
1023: THEN
1024: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'contract_status');
1025: l_return_status := OKC_API.G_RET_STS_ERROR;
1026: END IF;
1027:
1028: x_return_status := l_return_status;
1029: EXCEPTION
1027:
1028: x_return_status := l_return_status;
1029: EXCEPTION
1030: WHEN OTHERS THEN
1031: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
1032: ,p_msg_name => G_UNEXPECTED_ERROR
1033: ,p_token1 => G_SQLCODE_TOKEN
1034: ,p_token1_value => SQLCODE
1035: ,p_token2 => G_SQLERRM_TOKEN
1033: ,p_token1 => G_SQLCODE_TOKEN
1034: ,p_token1_value => SQLCODE
1035: ,p_token2 => G_SQLERRM_TOKEN
1036: ,p_token2_value => SQLERRM);
1037: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1038: END validate_contract_status;
1039: ----------------------------------------------------
1040: -- Validate_Attributes for: OBJECT_VERSION_NUMBER --
1041: ----------------------------------------------------
1041: ----------------------------------------------------
1042: PROCEDURE validate_object_version_number(
1043: x_return_status OUT NOCOPY VARCHAR2,
1044: p_oinv_rec IN oinv_rec_type) AS
1045: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1046: BEGIN
1047: /*
1048: IF (p_object_version_number = OKC_API.G_MISS_NUM OR
1049: p_object_version_number IS NULL)
1044: p_oinv_rec IN oinv_rec_type) AS
1045: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1046: BEGIN
1047: /*
1048: IF (p_object_version_number = OKC_API.G_MISS_NUM OR
1049: p_object_version_number IS NULL)
1050: THEN
1051: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'object_version_number');
1052: x_return_status := OKC_API.G_RET_STS_ERROR;
1047: /*
1048: IF (p_object_version_number = OKC_API.G_MISS_NUM OR
1049: p_object_version_number IS NULL)
1050: THEN
1051: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'object_version_number');
1052: x_return_status := OKC_API.G_RET_STS_ERROR;
1053: RAISE G_EXCEPTION_HALT_VALIDATION;
1054: END IF;
1055: */
1048: IF (p_object_version_number = OKC_API.G_MISS_NUM OR
1049: p_object_version_number IS NULL)
1050: THEN
1051: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'object_version_number');
1052: x_return_status := OKC_API.G_RET_STS_ERROR;
1053: RAISE G_EXCEPTION_HALT_VALIDATION;
1054: END IF;
1055: */
1056:
1056:
1057: x_return_status := l_return_status;
1058: EXCEPTION
1059: WHEN OTHERS THEN
1060: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
1061: ,p_msg_name => G_UNEXPECTED_ERROR
1062: ,p_token1 => G_SQLCODE_TOKEN
1063: ,p_token1_value => SQLCODE
1064: ,p_token2 => G_SQLERRM_TOKEN
1062: ,p_token1 => G_SQLCODE_TOKEN
1063: ,p_token1_value => SQLCODE
1064: ,p_token2 => G_SQLERRM_TOKEN
1065: ,p_token2_value => SQLERRM);
1066: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1067: END validate_object_version_number;
1068: ---------------------------------------------------------------------------
1069: -- FUNCTION Validate_Attributes
1070: ---------------------------------------------------------------------------
1073: --------------------------------------------
1074: FUNCTION Validate_Attributes (
1075: p_oinv_rec IN oinv_rec_type
1076: ) RETURN VARCHAR2 AS
1077: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1078: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1079: BEGIN
1080: -----------------------------
1081: -- Column Level Validation --
1074: FUNCTION Validate_Attributes (
1075: p_oinv_rec IN oinv_rec_type
1076: ) RETURN VARCHAR2 AS
1077: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1078: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1079: BEGIN
1080: -----------------------------
1081: -- Column Level Validation --
1082: -----------------------------
1083: -- ***
1084: -- id
1085: -- ***
1086: validate_id(l_return_status, p_oinv_rec);
1087: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1088: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1089: x_return_status := l_return_status;
1090: RAISE G_EXCEPTION_HALT_VALIDATION;
1091: ELSE
1084: -- id
1085: -- ***
1086: validate_id(l_return_status, p_oinv_rec);
1087: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1088: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1089: x_return_status := l_return_status;
1090: RAISE G_EXCEPTION_HALT_VALIDATION;
1091: ELSE
1092: x_return_status := l_return_status;
1096: -- ***
1097: -- party_id
1098: -- ***
1099: validate_party_id(l_return_status, p_oinv_rec);
1100: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1101: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1102: x_return_status := l_return_status;
1103: RAISE G_EXCEPTION_HALT_VALIDATION;
1104: ELSE
1097: -- party_id
1098: -- ***
1099: validate_party_id(l_return_status, p_oinv_rec);
1100: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1101: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1102: x_return_status := l_return_status;
1103: RAISE G_EXCEPTION_HALT_VALIDATION;
1104: ELSE
1105: x_return_status := l_return_status;
1109: -- ***
1110: -- party_name
1111: -- ***
1112: validate_party_name(l_return_status, p_oinv_rec);
1113: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1114: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1115: x_return_status := l_return_status;
1116: RAISE G_EXCEPTION_HALT_VALIDATION;
1117: ELSE
1110: -- party_name
1111: -- ***
1112: validate_party_name(l_return_status, p_oinv_rec);
1113: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1114: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1115: x_return_status := l_return_status;
1116: RAISE G_EXCEPTION_HALT_VALIDATION;
1117: ELSE
1118: x_return_status := l_return_status;
1122: -- ***
1123: -- party_type
1124: -- ***
1125: validate_party_type(l_return_status, p_oinv_rec);
1126: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1127: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1128: x_return_status := l_return_status;
1129: RAISE G_EXCEPTION_HALT_VALIDATION;
1130: ELSE
1123: -- party_type
1124: -- ***
1125: validate_party_type(l_return_status, p_oinv_rec);
1126: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1127: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1128: x_return_status := l_return_status;
1129: RAISE G_EXCEPTION_HALT_VALIDATION;
1130: ELSE
1131: x_return_status := l_return_status;
1135: -- ***
1136: -- cas_id
1137: -- ***
1138: validate_cas_id(l_return_status, p_oinv_rec);
1139: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1140: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1141: x_return_status := l_return_status;
1142: RAISE G_EXCEPTION_HALT_VALIDATION;
1143: ELSE
1136: -- cas_id
1137: -- ***
1138: validate_cas_id(l_return_status, p_oinv_rec);
1139: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1140: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1141: x_return_status := l_return_status;
1142: RAISE G_EXCEPTION_HALT_VALIDATION;
1143: ELSE
1144: x_return_status := l_return_status;
1148: -- ***
1149: -- case_number
1150: -- ***
1151: validate_case_number(l_return_status, p_oinv_rec);
1152: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1153: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1154: x_return_status := l_return_status;
1155: RAISE G_EXCEPTION_HALT_VALIDATION;
1156: ELSE
1149: -- case_number
1150: -- ***
1151: validate_case_number(l_return_status, p_oinv_rec);
1152: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1153: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1154: x_return_status := l_return_status;
1155: RAISE G_EXCEPTION_HALT_VALIDATION;
1156: ELSE
1157: x_return_status := l_return_status;
1161: -- ***
1162: -- khr_id
1163: -- ***
1164: validate_khr_id(l_return_status, p_oinv_rec);
1165: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1166: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1167: x_return_status := l_return_status;
1168: RAISE G_EXCEPTION_HALT_VALIDATION;
1169: ELSE
1162: -- khr_id
1163: -- ***
1164: validate_khr_id(l_return_status, p_oinv_rec);
1165: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1166: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1167: x_return_status := l_return_status;
1168: RAISE G_EXCEPTION_HALT_VALIDATION;
1169: ELSE
1170: x_return_status := l_return_status;
1174: -- ***
1175: -- contract_number
1176: -- ***
1177: validate_contract_number(l_return_status, p_oinv_rec);
1178: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1179: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1180: x_return_status := l_return_status;
1181: RAISE G_EXCEPTION_HALT_VALIDATION;
1182: ELSE
1175: -- contract_number
1176: -- ***
1177: validate_contract_number(l_return_status, p_oinv_rec);
1178: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1179: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1180: x_return_status := l_return_status;
1181: RAISE G_EXCEPTION_HALT_VALIDATION;
1182: ELSE
1183: x_return_status := l_return_status;
1187: -- ***
1188: -- contract_type
1189: -- ***
1190: validate_contract_type(l_return_status, p_oinv_rec);
1191: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1192: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1193: x_return_status := l_return_status;
1194: RAISE G_EXCEPTION_HALT_VALIDATION;
1195: ELSE
1188: -- contract_type
1189: -- ***
1190: validate_contract_type(l_return_status, p_oinv_rec);
1191: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1192: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1193: x_return_status := l_return_status;
1194: RAISE G_EXCEPTION_HALT_VALIDATION;
1195: ELSE
1196: x_return_status := l_return_status;
1200: -- ***
1201: -- contract_status
1202: -- ***
1203: validate_contract_status(l_return_status, p_oinv_rec);
1204: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1205: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1206: x_return_status := l_return_status;
1207: RAISE G_EXCEPTION_HALT_VALIDATION;
1208: ELSE
1201: -- contract_status
1202: -- ***
1203: validate_contract_status(l_return_status, p_oinv_rec);
1204: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1205: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1206: x_return_status := l_return_status;
1207: RAISE G_EXCEPTION_HALT_VALIDATION;
1208: ELSE
1209: x_return_status := l_return_status;
1214: -- object_version_number
1215: -- ***
1216: /*
1217: validate_object_version_number(x_return_status, p_oinv_rec.object_version_number);
1218: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1219: l_return_status := x_return_status;
1220: RAISE G_EXCEPTION_HALT_VALIDATION;
1221: END IF;
1222: */
1225: EXCEPTION
1226: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1227: RETURN(x_return_status);
1228: WHEN OTHERS THEN
1229: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
1230: ,p_msg_name => G_UNEXPECTED_ERROR
1231: ,p_token1 => G_SQLCODE_TOKEN
1232: ,p_token1_value => SQLCODE
1233: ,p_token2 => G_SQLERRM_TOKEN
1231: ,p_token1 => G_SQLCODE_TOKEN
1232: ,p_token1_value => SQLCODE
1233: ,p_token2 => G_SQLERRM_TOKEN
1234: ,p_token2_value => SQLERRM);
1235: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1236: RETURN(x_return_status);
1237: END Validate_Attributes;
1238: ---------------------------------------------------------------------------
1239: -- PROCEDURE Validate_Record
1244: FUNCTION Validate_Record (
1245: p_oinv_rec IN oinv_rec_type,
1246: p_db_oinv_rec IN oinv_rec_type
1247: ) RETURN VARCHAR2 AS
1248: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1249: BEGIN
1250: RETURN (l_return_status);
1251: END Validate_Record;
1252: FUNCTION Validate_Record (
1251: END Validate_Record;
1252: FUNCTION Validate_Record (
1253: p_oinv_rec IN oinv_rec_type
1254: ) RETURN VARCHAR2 AS
1255: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1256: l_db_oinv_rec oinv_rec_type := get_rec(p_oinv_rec);
1257: BEGIN
1258: l_return_status := Validate_Record(p_oinv_rec => p_oinv_rec,
1259: p_db_oinv_rec => l_db_oinv_rec);
1446: -- validate_row for:OKL_OPEN_INT_V --
1447: -------------------------------------
1448: PROCEDURE validate_row(
1449: p_api_version IN NUMBER,
1450: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1451: x_return_status OUT NOCOPY VARCHAR2,
1452: x_msg_count OUT NOCOPY NUMBER,
1453: x_msg_data OUT NOCOPY VARCHAR2,
1454: p_oinv_rec IN oinv_rec_type) AS
1454: p_oinv_rec IN oinv_rec_type) AS
1455:
1456: l_api_version CONSTANT NUMBER := 1;
1457: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
1458: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1459: l_oinv_rec oinv_rec_type := p_oinv_rec;
1460: l_oin_rec oin_rec_type;
1461: l_oin_rec oin_rec_type;
1462: BEGIN
1459: l_oinv_rec oinv_rec_type := p_oinv_rec;
1460: l_oin_rec oin_rec_type;
1461: l_oin_rec oin_rec_type;
1462: BEGIN
1463: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1464: G_PKG_NAME,
1465: p_init_msg_list,
1466: l_api_version,
1467: p_api_version,
1466: l_api_version,
1467: p_api_version,
1468: '_PVT',
1469: x_return_status);
1470: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1471: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1472: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1473: RAISE OKC_API.G_EXCEPTION_ERROR;
1474: END IF;
1467: p_api_version,
1468: '_PVT',
1469: x_return_status);
1470: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1471: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1472: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1473: RAISE OKC_API.G_EXCEPTION_ERROR;
1474: END IF;
1475: --- Validate all non-missing attributes (Item Level Validation)
1468: '_PVT',
1469: x_return_status);
1470: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1471: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1472: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1473: RAISE OKC_API.G_EXCEPTION_ERROR;
1474: END IF;
1475: --- Validate all non-missing attributes (Item Level Validation)
1476: l_return_status := Validate_Attributes(l_oinv_rec);
1469: x_return_status);
1470: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1471: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1472: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1473: RAISE OKC_API.G_EXCEPTION_ERROR;
1474: END IF;
1475: --- Validate all non-missing attributes (Item Level Validation)
1476: l_return_status := Validate_Attributes(l_oinv_rec);
1477: --- If any errors happen abort API
1474: END IF;
1475: --- Validate all non-missing attributes (Item Level Validation)
1476: l_return_status := Validate_Attributes(l_oinv_rec);
1477: --- If any errors happen abort API
1478: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1479: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1480: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1481: RAISE OKC_API.G_EXCEPTION_ERROR;
1482: END IF;
1475: --- Validate all non-missing attributes (Item Level Validation)
1476: l_return_status := Validate_Attributes(l_oinv_rec);
1477: --- If any errors happen abort API
1478: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1479: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1480: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1481: RAISE OKC_API.G_EXCEPTION_ERROR;
1482: END IF;
1483: l_return_status := Validate_Record(l_oinv_rec);
1476: l_return_status := Validate_Attributes(l_oinv_rec);
1477: --- If any errors happen abort API
1478: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1479: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1480: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1481: RAISE OKC_API.G_EXCEPTION_ERROR;
1482: END IF;
1483: l_return_status := Validate_Record(l_oinv_rec);
1484: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1477: --- If any errors happen abort API
1478: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1479: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1480: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1481: RAISE OKC_API.G_EXCEPTION_ERROR;
1482: END IF;
1483: l_return_status := Validate_Record(l_oinv_rec);
1484: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1485: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1480: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1481: RAISE OKC_API.G_EXCEPTION_ERROR;
1482: END IF;
1483: l_return_status := Validate_Record(l_oinv_rec);
1484: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1485: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1486: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1487: RAISE OKC_API.G_EXCEPTION_ERROR;
1488: END IF;
1481: RAISE OKC_API.G_EXCEPTION_ERROR;
1482: END IF;
1483: l_return_status := Validate_Record(l_oinv_rec);
1484: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1485: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1486: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1487: RAISE OKC_API.G_EXCEPTION_ERROR;
1488: END IF;
1489: x_return_status := l_return_status;
1482: END IF;
1483: l_return_status := Validate_Record(l_oinv_rec);
1484: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1485: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1486: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1487: RAISE OKC_API.G_EXCEPTION_ERROR;
1488: END IF;
1489: x_return_status := l_return_status;
1490: EXCEPTION
1483: l_return_status := Validate_Record(l_oinv_rec);
1484: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1485: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1486: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1487: RAISE OKC_API.G_EXCEPTION_ERROR;
1488: END IF;
1489: x_return_status := l_return_status;
1490: EXCEPTION
1491: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1487: RAISE OKC_API.G_EXCEPTION_ERROR;
1488: END IF;
1489: x_return_status := l_return_status;
1490: EXCEPTION
1491: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1492: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1493: (
1494: l_api_name,
1495: G_PKG_NAME,
1488: END IF;
1489: x_return_status := l_return_status;
1490: EXCEPTION
1491: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1492: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1493: (
1494: l_api_name,
1495: G_PKG_NAME,
1496: 'OKC_API.G_RET_STS_ERROR',
1492: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1493: (
1494: l_api_name,
1495: G_PKG_NAME,
1496: 'OKC_API.G_RET_STS_ERROR',
1497: x_msg_count,
1498: x_msg_data,
1499: '_PVT'
1500: );
1497: x_msg_count,
1498: x_msg_data,
1499: '_PVT'
1500: );
1501: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1502: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1503: (
1504: l_api_name,
1505: G_PKG_NAME,
1498: x_msg_data,
1499: '_PVT'
1500: );
1501: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1502: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1503: (
1504: l_api_name,
1505: G_PKG_NAME,
1506: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1502: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1503: (
1504: l_api_name,
1505: G_PKG_NAME,
1506: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1507: x_msg_count,
1508: x_msg_data,
1509: '_PVT'
1510: );
1508: x_msg_data,
1509: '_PVT'
1510: );
1511: WHEN OTHERS THEN
1512: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1513: (
1514: l_api_name,
1515: G_PKG_NAME,
1516: 'OTHERS',
1523: -- PL/SQL TBL validate_row for:OKL_OPEN_INT_V --
1524: ------------------------------------------------
1525: PROCEDURE validate_row(
1526: p_api_version IN NUMBER,
1527: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1528: x_return_status OUT NOCOPY VARCHAR2,
1529: x_msg_count OUT NOCOPY NUMBER,
1530: x_msg_data OUT NOCOPY VARCHAR2,
1531: p_oinv_tbl IN oinv_tbl_type,
1534: l_api_version CONSTANT NUMBER := 1;
1535: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_validate_row';
1536: i NUMBER := 0;
1537: BEGIN
1538: OKC_API.init_msg_list(p_init_msg_list);
1539: -- Make sure PL/SQL table has records in it before passing
1540: IF (p_oinv_tbl.COUNT > 0) THEN
1541: i := p_oinv_tbl.FIRST;
1542: LOOP
1547: l_error_rec.api_package := G_PKG_NAME;
1548: l_error_rec.idx := i;
1549: validate_row (
1550: p_api_version => p_api_version,
1551: p_init_msg_list => OKC_API.G_FALSE,
1552: x_return_status => l_error_rec.error_type,
1553: x_msg_count => l_error_rec.msg_count,
1554: x_msg_data => l_error_rec.msg_data,
1555: p_oinv_rec => p_oinv_tbl(i));
1552: x_return_status => l_error_rec.error_type,
1553: x_msg_count => l_error_rec.msg_count,
1554: x_msg_data => l_error_rec.msg_data,
1555: p_oinv_rec => p_oinv_tbl(i));
1556: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
1557: l_error_rec.sqlcode := SQLCODE;
1558: load_error_tbl(l_error_rec, px_error_tbl);
1559: ELSE
1560: x_msg_count := l_error_rec.msg_count;
1560: x_msg_count := l_error_rec.msg_count;
1561: x_msg_data := l_error_rec.msg_data;
1562: END IF;
1563: EXCEPTION
1564: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1565: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1566: l_error_rec.sqlcode := SQLCODE;
1567: load_error_tbl(l_error_rec, px_error_tbl);
1568: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1561: x_msg_data := l_error_rec.msg_data;
1562: END IF;
1563: EXCEPTION
1564: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1565: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1566: l_error_rec.sqlcode := SQLCODE;
1567: load_error_tbl(l_error_rec, px_error_tbl);
1568: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1569: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
1564: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1565: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1566: l_error_rec.sqlcode := SQLCODE;
1567: load_error_tbl(l_error_rec, px_error_tbl);
1568: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1569: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
1570: l_error_rec.sqlcode := SQLCODE;
1571: load_error_tbl(l_error_rec, px_error_tbl);
1572: WHEN OTHERS THEN
1565: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1566: l_error_rec.sqlcode := SQLCODE;
1567: load_error_tbl(l_error_rec, px_error_tbl);
1568: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1569: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
1570: l_error_rec.sqlcode := SQLCODE;
1571: load_error_tbl(l_error_rec, px_error_tbl);
1572: WHEN OTHERS THEN
1573: l_error_rec.error_type := 'OTHERS';
1580: END IF;
1581: -- Loop through the error_tbl to find the error with the highest severity
1582: -- and return it.
1583: x_return_status := find_highest_exception(px_error_tbl);
1584: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1585: EXCEPTION
1586: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1587: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1588: (
1582: -- and return it.
1583: x_return_status := find_highest_exception(px_error_tbl);
1584: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1585: EXCEPTION
1586: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1587: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1588: (
1589: l_api_name,
1590: G_PKG_NAME,
1583: x_return_status := find_highest_exception(px_error_tbl);
1584: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1585: EXCEPTION
1586: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1587: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1588: (
1589: l_api_name,
1590: G_PKG_NAME,
1591: 'OKC_API.G_RET_STS_ERROR',
1587: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1588: (
1589: l_api_name,
1590: G_PKG_NAME,
1591: 'OKC_API.G_RET_STS_ERROR',
1592: x_msg_count,
1593: x_msg_data,
1594: '_PVT'
1595: );
1592: x_msg_count,
1593: x_msg_data,
1594: '_PVT'
1595: );
1596: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1597: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1598: (
1599: l_api_name,
1600: G_PKG_NAME,
1593: x_msg_data,
1594: '_PVT'
1595: );
1596: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1597: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1598: (
1599: l_api_name,
1600: G_PKG_NAME,
1601: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1597: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1598: (
1599: l_api_name,
1600: G_PKG_NAME,
1601: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1602: x_msg_count,
1603: x_msg_data,
1604: '_PVT'
1605: );
1603: x_msg_data,
1604: '_PVT'
1605: );
1606: WHEN OTHERS THEN
1607: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1608: (
1609: l_api_name,
1610: G_PKG_NAME,
1611: 'OTHERS',
1619: -- PL/SQL TBL validate_row for:OKL_OPEN_INT_V --
1620: ------------------------------------------------
1621: PROCEDURE validate_row(
1622: p_api_version IN NUMBER,
1623: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1624: x_return_status OUT NOCOPY VARCHAR2,
1625: x_msg_count OUT NOCOPY NUMBER,
1626: x_msg_data OUT NOCOPY VARCHAR2,
1627: p_oinv_tbl IN oinv_tbl_type) AS
1627: p_oinv_tbl IN oinv_tbl_type) AS
1628:
1629: l_api_version CONSTANT NUMBER := 1;
1630: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1631: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1632: l_error_tbl OKL_API.ERROR_TBL_TYPE;
1633: BEGIN
1634: OKC_API.init_msg_list(p_init_msg_list);
1635: -- Make sure PL/SQL table has records in it before passing
1630: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1631: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1632: l_error_tbl OKL_API.ERROR_TBL_TYPE;
1633: BEGIN
1634: OKC_API.init_msg_list(p_init_msg_list);
1635: -- Make sure PL/SQL table has records in it before passing
1636: IF (p_oinv_tbl.COUNT > 0) THEN
1637: validate_row (
1638: p_api_version => p_api_version,
1635: -- Make sure PL/SQL table has records in it before passing
1636: IF (p_oinv_tbl.COUNT > 0) THEN
1637: validate_row (
1638: p_api_version => p_api_version,
1639: p_init_msg_list => OKC_API.G_FALSE,
1640: x_return_status => x_return_status,
1641: x_msg_count => x_msg_count,
1642: x_msg_data => x_msg_data,
1643: p_oinv_tbl => p_oinv_tbl,
1642: x_msg_data => x_msg_data,
1643: p_oinv_tbl => p_oinv_tbl,
1644: px_error_tbl => l_error_tbl);
1645: END IF;
1646: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1647: EXCEPTION
1648: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1649: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1650: (
1644: px_error_tbl => l_error_tbl);
1645: END IF;
1646: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1647: EXCEPTION
1648: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1649: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1650: (
1651: l_api_name,
1652: G_PKG_NAME,
1645: END IF;
1646: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1647: EXCEPTION
1648: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1649: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1650: (
1651: l_api_name,
1652: G_PKG_NAME,
1653: 'OKC_API.G_RET_STS_ERROR',
1649: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1650: (
1651: l_api_name,
1652: G_PKG_NAME,
1653: 'OKC_API.G_RET_STS_ERROR',
1654: x_msg_count,
1655: x_msg_data,
1656: '_PVT'
1657: );
1654: x_msg_count,
1655: x_msg_data,
1656: '_PVT'
1657: );
1658: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1659: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1660: (
1661: l_api_name,
1662: G_PKG_NAME,
1655: x_msg_data,
1656: '_PVT'
1657: );
1658: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1659: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1660: (
1661: l_api_name,
1662: G_PKG_NAME,
1663: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1659: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1660: (
1661: l_api_name,
1662: G_PKG_NAME,
1663: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1664: x_msg_count,
1665: x_msg_data,
1666: '_PVT'
1667: );
1665: x_msg_data,
1666: '_PVT'
1667: );
1668: WHEN OTHERS THEN
1669: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1670: (
1671: l_api_name,
1672: G_PKG_NAME,
1673: 'OTHERS',
1683: ---------------------------------
1684: -- insert_row for:OKL_OPEN_INT --
1685: ---------------------------------
1686: PROCEDURE insert_row(
1687: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1688: x_return_status OUT NOCOPY VARCHAR2,
1689: x_msg_count OUT NOCOPY NUMBER,
1690: x_msg_data OUT NOCOPY VARCHAR2,
1691: p_oin_rec IN oin_rec_type,
1692: x_oin_rec OUT NOCOPY oin_rec_type) AS
1693:
1694: l_api_version CONSTANT NUMBER := 1;
1695: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
1696: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1697: l_oin_rec oin_rec_type := p_oin_rec;
1698: l_def_oin_rec oin_rec_type;
1699: -------------------------------------
1700: -- Set_Attributes for:OKL_OPEN_INT --
1702: FUNCTION Set_Attributes (
1703: p_oin_rec IN oin_rec_type,
1704: x_oin_rec OUT NOCOPY oin_rec_type
1705: ) RETURN VARCHAR2 AS
1706: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1707: BEGIN
1708: x_oin_rec := p_oin_rec;
1709: RETURN(l_return_status);
1710: END Set_Attributes;
1708: x_oin_rec := p_oin_rec;
1709: RETURN(l_return_status);
1710: END Set_Attributes;
1711: BEGIN
1712: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1713: p_init_msg_list,
1714: '_PVT',
1715: x_return_status);
1716: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1712: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1713: p_init_msg_list,
1714: '_PVT',
1715: x_return_status);
1716: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1717: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1718: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1719: RAISE OKC_API.G_EXCEPTION_ERROR;
1720: END IF;
1713: p_init_msg_list,
1714: '_PVT',
1715: x_return_status);
1716: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1717: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1718: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1719: RAISE OKC_API.G_EXCEPTION_ERROR;
1720: END IF;
1721: --- Setting item atributes
1714: '_PVT',
1715: x_return_status);
1716: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1717: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1718: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1719: RAISE OKC_API.G_EXCEPTION_ERROR;
1720: END IF;
1721: --- Setting item atributes
1722: l_return_status := Set_Attributes(
1715: x_return_status);
1716: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1717: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1718: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1719: RAISE OKC_API.G_EXCEPTION_ERROR;
1720: END IF;
1721: --- Setting item atributes
1722: l_return_status := Set_Attributes(
1723: p_oin_rec, -- IN
1722: l_return_status := Set_Attributes(
1723: p_oin_rec, -- IN
1724: l_oin_rec); -- OUT
1725: --- If any errors happen abort API
1726: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1727: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1728: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1729: RAISE OKC_API.G_EXCEPTION_ERROR;
1730: END IF;
1723: p_oin_rec, -- IN
1724: l_oin_rec); -- OUT
1725: --- If any errors happen abort API
1726: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1727: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1728: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1729: RAISE OKC_API.G_EXCEPTION_ERROR;
1730: END IF;
1731: INSERT INTO OKL_OPEN_INT(
1724: l_oin_rec); -- OUT
1725: --- If any errors happen abort API
1726: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1727: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1728: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1729: RAISE OKC_API.G_EXCEPTION_ERROR;
1730: END IF;
1731: INSERT INTO OKL_OPEN_INT(
1732: id,
1725: --- If any errors happen abort API
1726: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1727: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1728: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1729: RAISE OKC_API.G_EXCEPTION_ERROR;
1730: END IF;
1731: INSERT INTO OKL_OPEN_INT(
1732: id,
1733: party_id,
1896: l_oin_rec.last_update_login);
1897: -- Set OUT values
1898: x_oin_rec := l_oin_rec;
1899: x_return_status := l_return_status;
1900: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1901: EXCEPTION
1902: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1903: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1904: (
1898: x_oin_rec := l_oin_rec;
1899: x_return_status := l_return_status;
1900: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1901: EXCEPTION
1902: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1903: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1904: (
1905: l_api_name,
1906: G_PKG_NAME,
1899: x_return_status := l_return_status;
1900: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1901: EXCEPTION
1902: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1903: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1904: (
1905: l_api_name,
1906: G_PKG_NAME,
1907: 'OKC_API.G_RET_STS_ERROR',
1903: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1904: (
1905: l_api_name,
1906: G_PKG_NAME,
1907: 'OKC_API.G_RET_STS_ERROR',
1908: x_msg_count,
1909: x_msg_data,
1910: '_PVT'
1911: );
1908: x_msg_count,
1909: x_msg_data,
1910: '_PVT'
1911: );
1912: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1913: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1914: (
1915: l_api_name,
1916: G_PKG_NAME,
1909: x_msg_data,
1910: '_PVT'
1911: );
1912: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1913: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1914: (
1915: l_api_name,
1916: G_PKG_NAME,
1917: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1913: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1914: (
1915: l_api_name,
1916: G_PKG_NAME,
1917: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1918: x_msg_count,
1919: x_msg_data,
1920: '_PVT'
1921: );
1919: x_msg_data,
1920: '_PVT'
1921: );
1922: WHEN OTHERS THEN
1923: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1924: (
1925: l_api_name,
1926: G_PKG_NAME,
1927: 'OTHERS',
1934: -- insert_row for :OKL_OPEN_INT_V --
1935: ------------------------------------
1936: PROCEDURE insert_row(
1937: p_api_version IN NUMBER,
1938: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1939: x_return_status OUT NOCOPY VARCHAR2,
1940: x_msg_count OUT NOCOPY NUMBER,
1941: x_msg_data OUT NOCOPY VARCHAR2,
1942: p_oinv_rec IN oinv_rec_type,
1943: x_oinv_rec OUT NOCOPY oinv_rec_type) AS
1944:
1945: l_api_version CONSTANT NUMBER := 1;
1946: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
1947: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1948: l_oinv_rec oinv_rec_type := p_oinv_rec;
1949: l_def_oinv_rec oinv_rec_type;
1950: l_oin_rec oin_rec_type;
1951: lx_oin_rec oin_rec_type;
1970: FUNCTION Set_Attributes (
1971: p_oinv_rec IN oinv_rec_type,
1972: x_oinv_rec OUT NOCOPY oinv_rec_type
1973: ) RETURN VARCHAR2 AS
1974: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1975: BEGIN
1976: x_oinv_rec := p_oinv_rec;
1977: x_oinv_rec.OBJECT_VERSION_NUMBER := 1;
1978:
1994:
1995: RETURN(l_return_status);
1996: END Set_Attributes;
1997: BEGIN
1998: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1999: G_PKG_NAME,
2000: p_init_msg_list,
2001: l_api_version,
2002: p_api_version,
2001: l_api_version,
2002: p_api_version,
2003: '_PVT',
2004: x_return_status);
2005: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2006: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2007: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2008: RAISE OKC_API.G_EXCEPTION_ERROR;
2009: END IF;
2002: p_api_version,
2003: '_PVT',
2004: x_return_status);
2005: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2006: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2007: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2008: RAISE OKC_API.G_EXCEPTION_ERROR;
2009: END IF;
2010: l_oinv_rec := null_out_defaults(p_oinv_rec);
2003: '_PVT',
2004: x_return_status);
2005: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2006: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2007: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2008: RAISE OKC_API.G_EXCEPTION_ERROR;
2009: END IF;
2010: l_oinv_rec := null_out_defaults(p_oinv_rec);
2011: -- Set primary key value
2004: x_return_status);
2005: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2006: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2007: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2008: RAISE OKC_API.G_EXCEPTION_ERROR;
2009: END IF;
2010: l_oinv_rec := null_out_defaults(p_oinv_rec);
2011: -- Set primary key value
2012: l_oinv_rec.ID := get_seq_id;
2014: l_return_Status := Set_Attributes(
2015: l_oinv_rec, -- IN
2016: l_def_oinv_rec); -- OUT
2017: --- If any errors happen abort API
2018: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2019: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2020: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2021: RAISE OKC_API.G_EXCEPTION_ERROR;
2022: END IF;
2015: l_oinv_rec, -- IN
2016: l_def_oinv_rec); -- OUT
2017: --- If any errors happen abort API
2018: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2019: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2020: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2021: RAISE OKC_API.G_EXCEPTION_ERROR;
2022: END IF;
2023: l_def_oinv_rec := fill_who_columns(l_def_oinv_rec);
2016: l_def_oinv_rec); -- OUT
2017: --- If any errors happen abort API
2018: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2019: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2020: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2021: RAISE OKC_API.G_EXCEPTION_ERROR;
2022: END IF;
2023: l_def_oinv_rec := fill_who_columns(l_def_oinv_rec);
2024: --- Validate all non-missing attributes (Item Level Validation)
2017: --- If any errors happen abort API
2018: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2019: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2020: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2021: RAISE OKC_API.G_EXCEPTION_ERROR;
2022: END IF;
2023: l_def_oinv_rec := fill_who_columns(l_def_oinv_rec);
2024: --- Validate all non-missing attributes (Item Level Validation)
2025: l_return_status := Validate_Attributes(l_def_oinv_rec);
2023: l_def_oinv_rec := fill_who_columns(l_def_oinv_rec);
2024: --- Validate all non-missing attributes (Item Level Validation)
2025: l_return_status := Validate_Attributes(l_def_oinv_rec);
2026: --- If any errors happen abort API
2027: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2028: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2029: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2030: RAISE OKC_API.G_EXCEPTION_ERROR;
2031: END IF;
2024: --- Validate all non-missing attributes (Item Level Validation)
2025: l_return_status := Validate_Attributes(l_def_oinv_rec);
2026: --- If any errors happen abort API
2027: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2028: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2029: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2030: RAISE OKC_API.G_EXCEPTION_ERROR;
2031: END IF;
2032: l_return_status := Validate_Record(l_def_oinv_rec);
2025: l_return_status := Validate_Attributes(l_def_oinv_rec);
2026: --- If any errors happen abort API
2027: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2028: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2029: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2030: RAISE OKC_API.G_EXCEPTION_ERROR;
2031: END IF;
2032: l_return_status := Validate_Record(l_def_oinv_rec);
2033: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2026: --- If any errors happen abort API
2027: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2028: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2029: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2030: RAISE OKC_API.G_EXCEPTION_ERROR;
2031: END IF;
2032: l_return_status := Validate_Record(l_def_oinv_rec);
2033: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2034: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2029: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2030: RAISE OKC_API.G_EXCEPTION_ERROR;
2031: END IF;
2032: l_return_status := Validate_Record(l_def_oinv_rec);
2033: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2034: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2035: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2036: RAISE OKC_API.G_EXCEPTION_ERROR;
2037: END IF;
2030: RAISE OKC_API.G_EXCEPTION_ERROR;
2031: END IF;
2032: l_return_status := Validate_Record(l_def_oinv_rec);
2033: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2034: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2035: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2036: RAISE OKC_API.G_EXCEPTION_ERROR;
2037: END IF;
2038: -----------------------------------------
2031: END IF;
2032: l_return_status := Validate_Record(l_def_oinv_rec);
2033: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2034: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2035: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2036: RAISE OKC_API.G_EXCEPTION_ERROR;
2037: END IF;
2038: -----------------------------------------
2039: -- Move VIEW record to "Child" records --
2032: l_return_status := Validate_Record(l_def_oinv_rec);
2033: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2034: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2035: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2036: RAISE OKC_API.G_EXCEPTION_ERROR;
2037: END IF;
2038: -----------------------------------------
2039: -- Move VIEW record to "Child" records --
2040: -----------------------------------------
2049: x_msg_data,
2050: l_oin_rec,
2051: lx_oin_rec
2052: );
2053: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2054: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2055: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2056: RAISE OKC_API.G_EXCEPTION_ERROR;
2057: END IF;
2050: l_oin_rec,
2051: lx_oin_rec
2052: );
2053: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2054: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2055: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2056: RAISE OKC_API.G_EXCEPTION_ERROR;
2057: END IF;
2058: migrate(lx_oin_rec, l_def_oinv_rec);
2051: lx_oin_rec
2052: );
2053: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2054: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2055: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2056: RAISE OKC_API.G_EXCEPTION_ERROR;
2057: END IF;
2058: migrate(lx_oin_rec, l_def_oinv_rec);
2059: -- Set OUT values
2052: );
2053: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2054: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2055: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2056: RAISE OKC_API.G_EXCEPTION_ERROR;
2057: END IF;
2058: migrate(lx_oin_rec, l_def_oinv_rec);
2059: -- Set OUT values
2060: x_oinv_rec := l_def_oinv_rec;
2058: migrate(lx_oin_rec, l_def_oinv_rec);
2059: -- Set OUT values
2060: x_oinv_rec := l_def_oinv_rec;
2061: x_return_status := l_return_status;
2062: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2063: EXCEPTION
2064: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2065: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2066: (
2060: x_oinv_rec := l_def_oinv_rec;
2061: x_return_status := l_return_status;
2062: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2063: EXCEPTION
2064: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2065: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2066: (
2067: l_api_name,
2068: G_PKG_NAME,
2061: x_return_status := l_return_status;
2062: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2063: EXCEPTION
2064: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2065: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2066: (
2067: l_api_name,
2068: G_PKG_NAME,
2069: 'OKC_API.G_RET_STS_ERROR',
2065: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2066: (
2067: l_api_name,
2068: G_PKG_NAME,
2069: 'OKC_API.G_RET_STS_ERROR',
2070: x_msg_count,
2071: x_msg_data,
2072: '_PVT'
2073: );
2070: x_msg_count,
2071: x_msg_data,
2072: '_PVT'
2073: );
2074: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2075: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2076: (
2077: l_api_name,
2078: G_PKG_NAME,
2071: x_msg_data,
2072: '_PVT'
2073: );
2074: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2075: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2076: (
2077: l_api_name,
2078: G_PKG_NAME,
2079: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2075: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2076: (
2077: l_api_name,
2078: G_PKG_NAME,
2079: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2080: x_msg_count,
2081: x_msg_data,
2082: '_PVT'
2083: );
2081: x_msg_data,
2082: '_PVT'
2083: );
2084: WHEN OTHERS THEN
2085: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2086: (
2087: l_api_name,
2088: G_PKG_NAME,
2089: 'OTHERS',
2096: -- PL/SQL TBL insert_row for:OINV_TBL --
2097: ----------------------------------------
2098: PROCEDURE insert_row(
2099: p_api_version IN NUMBER,
2100: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2101: x_return_status OUT NOCOPY VARCHAR2,
2102: x_msg_count OUT NOCOPY NUMBER,
2103: x_msg_data OUT NOCOPY VARCHAR2,
2104: p_oinv_tbl IN oinv_tbl_type,
2108: l_api_version CONSTANT NUMBER := 1;
2109: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_insert_row';
2110: i NUMBER := 0;
2111: BEGIN
2112: OKC_API.init_msg_list(p_init_msg_list);
2113: -- Make sure PL/SQL table has records in it before passing
2114: IF (p_oinv_tbl.COUNT > 0) THEN
2115: i := p_oinv_tbl.FIRST;
2116: LOOP
2121: l_error_rec.api_package := G_PKG_NAME;
2122: l_error_rec.idx := i;
2123: insert_row (
2124: p_api_version => p_api_version,
2125: p_init_msg_list => OKC_API.G_FALSE,
2126: x_return_status => l_error_rec.error_type,
2127: x_msg_count => l_error_rec.msg_count,
2128: x_msg_data => l_error_rec.msg_data,
2129: p_oinv_rec => p_oinv_tbl(i),
2127: x_msg_count => l_error_rec.msg_count,
2128: x_msg_data => l_error_rec.msg_data,
2129: p_oinv_rec => p_oinv_tbl(i),
2130: x_oinv_rec => x_oinv_tbl(i));
2131: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
2132: l_error_rec.sqlcode := SQLCODE;
2133: load_error_tbl(l_error_rec, px_error_tbl);
2134: ELSE
2135: x_msg_count := l_error_rec.msg_count;
2135: x_msg_count := l_error_rec.msg_count;
2136: x_msg_data := l_error_rec.msg_data;
2137: END IF;
2138: EXCEPTION
2139: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2140: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2141: l_error_rec.sqlcode := SQLCODE;
2142: load_error_tbl(l_error_rec, px_error_tbl);
2143: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2136: x_msg_data := l_error_rec.msg_data;
2137: END IF;
2138: EXCEPTION
2139: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2140: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2141: l_error_rec.sqlcode := SQLCODE;
2142: load_error_tbl(l_error_rec, px_error_tbl);
2143: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2144: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
2139: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2140: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2141: l_error_rec.sqlcode := SQLCODE;
2142: load_error_tbl(l_error_rec, px_error_tbl);
2143: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2144: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
2145: l_error_rec.sqlcode := SQLCODE;
2146: load_error_tbl(l_error_rec, px_error_tbl);
2147: WHEN OTHERS THEN
2140: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2141: l_error_rec.sqlcode := SQLCODE;
2142: load_error_tbl(l_error_rec, px_error_tbl);
2143: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2144: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
2145: l_error_rec.sqlcode := SQLCODE;
2146: load_error_tbl(l_error_rec, px_error_tbl);
2147: WHEN OTHERS THEN
2148: l_error_rec.error_type := 'OTHERS';
2155: END IF;
2156: -- Loop through the error_tbl to find the error with the highest severity
2157: -- and return it.
2158: x_return_status := find_highest_exception(px_error_tbl);
2159: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2160: EXCEPTION
2161: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2162: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2163: (
2157: -- and return it.
2158: x_return_status := find_highest_exception(px_error_tbl);
2159: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2160: EXCEPTION
2161: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2162: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2163: (
2164: l_api_name,
2165: G_PKG_NAME,
2158: x_return_status := find_highest_exception(px_error_tbl);
2159: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2160: EXCEPTION
2161: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2162: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2163: (
2164: l_api_name,
2165: G_PKG_NAME,
2166: 'OKC_API.G_RET_STS_ERROR',
2162: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2163: (
2164: l_api_name,
2165: G_PKG_NAME,
2166: 'OKC_API.G_RET_STS_ERROR',
2167: x_msg_count,
2168: x_msg_data,
2169: '_PVT'
2170: );
2167: x_msg_count,
2168: x_msg_data,
2169: '_PVT'
2170: );
2171: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2172: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2173: (
2174: l_api_name,
2175: G_PKG_NAME,
2168: x_msg_data,
2169: '_PVT'
2170: );
2171: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2172: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2173: (
2174: l_api_name,
2175: G_PKG_NAME,
2176: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2172: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2173: (
2174: l_api_name,
2175: G_PKG_NAME,
2176: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2177: x_msg_count,
2178: x_msg_data,
2179: '_PVT'
2180: );
2178: x_msg_data,
2179: '_PVT'
2180: );
2181: WHEN OTHERS THEN
2182: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2183: (
2184: l_api_name,
2185: G_PKG_NAME,
2186: 'OTHERS',
2194: -- PL/SQL TBL insert_row for:OINV_TBL --
2195: ----------------------------------------
2196: PROCEDURE insert_row(
2197: p_api_version IN NUMBER,
2198: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2199: x_return_status OUT NOCOPY VARCHAR2,
2200: x_msg_count OUT NOCOPY NUMBER,
2201: x_msg_data OUT NOCOPY VARCHAR2,
2202: p_oinv_tbl IN oinv_tbl_type,
2203: x_oinv_tbl OUT NOCOPY oinv_tbl_type) AS
2204:
2205: l_api_version CONSTANT NUMBER := 1;
2206: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
2207: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2208: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2209: BEGIN
2210: OKC_API.init_msg_list(p_init_msg_list);
2211: -- Make sure PL/SQL table has records in it before passing
2206: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
2207: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2208: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2209: BEGIN
2210: OKC_API.init_msg_list(p_init_msg_list);
2211: -- Make sure PL/SQL table has records in it before passing
2212: IF (p_oinv_tbl.COUNT > 0) THEN
2213: insert_row (
2214: p_api_version => p_api_version,
2211: -- Make sure PL/SQL table has records in it before passing
2212: IF (p_oinv_tbl.COUNT > 0) THEN
2213: insert_row (
2214: p_api_version => p_api_version,
2215: p_init_msg_list => OKC_API.G_FALSE,
2216: x_return_status => x_return_status,
2217: x_msg_count => x_msg_count,
2218: x_msg_data => x_msg_data,
2219: p_oinv_tbl => p_oinv_tbl,
2219: p_oinv_tbl => p_oinv_tbl,
2220: x_oinv_tbl => x_oinv_tbl,
2221: px_error_tbl => l_error_tbl);
2222: END IF;
2223: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2224: EXCEPTION
2225: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2226: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2227: (
2221: px_error_tbl => l_error_tbl);
2222: END IF;
2223: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2224: EXCEPTION
2225: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2226: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2227: (
2228: l_api_name,
2229: G_PKG_NAME,
2222: END IF;
2223: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2224: EXCEPTION
2225: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2226: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2227: (
2228: l_api_name,
2229: G_PKG_NAME,
2230: 'OKC_API.G_RET_STS_ERROR',
2226: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2227: (
2228: l_api_name,
2229: G_PKG_NAME,
2230: 'OKC_API.G_RET_STS_ERROR',
2231: x_msg_count,
2232: x_msg_data,
2233: '_PVT'
2234: );
2231: x_msg_count,
2232: x_msg_data,
2233: '_PVT'
2234: );
2235: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2236: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2237: (
2238: l_api_name,
2239: G_PKG_NAME,
2232: x_msg_data,
2233: '_PVT'
2234: );
2235: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2236: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2237: (
2238: l_api_name,
2239: G_PKG_NAME,
2240: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2236: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2237: (
2238: l_api_name,
2239: G_PKG_NAME,
2240: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2241: x_msg_count,
2242: x_msg_data,
2243: '_PVT'
2244: );
2242: x_msg_data,
2243: '_PVT'
2244: );
2245: WHEN OTHERS THEN
2246: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2247: (
2248: l_api_name,
2249: G_PKG_NAME,
2250: 'OTHERS',
2260: -------------------------------
2261: -- lock_row for:OKL_OPEN_INT --
2262: -------------------------------
2263: PROCEDURE lock_row(
2264: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2265: x_return_status OUT NOCOPY VARCHAR2,
2266: x_msg_count OUT NOCOPY NUMBER,
2267: x_msg_data OUT NOCOPY VARCHAR2,
2268: p_oin_rec IN oin_rec_type) AS
2281: FROM OKL_OPEN_INT
2282: WHERE ID = p_oin_rec.id;
2283: l_api_version CONSTANT NUMBER := 1;
2284: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
2285: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2286: l_object_version_number OKL_OPEN_INT.OBJECT_VERSION_NUMBER%TYPE;
2287: lc_object_version_number OKL_OPEN_INT.OBJECT_VERSION_NUMBER%TYPE;
2288: l_row_notfound BOOLEAN := FALSE;
2289: lc_row_notfound BOOLEAN := FALSE;
2287: lc_object_version_number OKL_OPEN_INT.OBJECT_VERSION_NUMBER%TYPE;
2288: l_row_notfound BOOLEAN := FALSE;
2289: lc_row_notfound BOOLEAN := FALSE;
2290: BEGIN
2291: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2292: p_init_msg_list,
2293: '_PVT',
2294: x_return_status);
2295: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2291: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2292: p_init_msg_list,
2293: '_PVT',
2294: x_return_status);
2295: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2296: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2297: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2298: RAISE OKC_API.G_EXCEPTION_ERROR;
2299: END IF;
2292: p_init_msg_list,
2293: '_PVT',
2294: x_return_status);
2295: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2296: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2297: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2298: RAISE OKC_API.G_EXCEPTION_ERROR;
2299: END IF;
2300: BEGIN
2293: '_PVT',
2294: x_return_status);
2295: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2296: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2297: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2298: RAISE OKC_API.G_EXCEPTION_ERROR;
2299: END IF;
2300: BEGIN
2301: OPEN lock_csr(p_oin_rec);
2294: x_return_status);
2295: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2296: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2297: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2298: RAISE OKC_API.G_EXCEPTION_ERROR;
2299: END IF;
2300: BEGIN
2301: OPEN lock_csr(p_oin_rec);
2302: FETCH lock_csr INTO l_object_version_number;
2306: WHEN E_Resource_Busy THEN
2307: IF (lock_csr%ISOPEN) THEN
2308: CLOSE lock_csr;
2309: END IF;
2310: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
2311: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
2312: END;
2313:
2314: IF ( l_row_notfound ) THEN
2317: lc_row_notfound := lchk_csr%NOTFOUND;
2318: CLOSE lchk_csr;
2319: END IF;
2320: IF (lc_row_notfound) THEN
2321: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2322: RAISE OKC_API.G_EXCEPTION_ERROR;
2323: ELSIF lc_object_version_number > p_oin_rec.object_version_number THEN
2324: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2325: RAISE OKC_API.G_EXCEPTION_ERROR;
2318: CLOSE lchk_csr;
2319: END IF;
2320: IF (lc_row_notfound) THEN
2321: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2322: RAISE OKC_API.G_EXCEPTION_ERROR;
2323: ELSIF lc_object_version_number > p_oin_rec.object_version_number THEN
2324: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2325: RAISE OKC_API.G_EXCEPTION_ERROR;
2326: ELSIF lc_object_version_number <> p_oin_rec.object_version_number THEN
2320: IF (lc_row_notfound) THEN
2321: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2322: RAISE OKC_API.G_EXCEPTION_ERROR;
2323: ELSIF lc_object_version_number > p_oin_rec.object_version_number THEN
2324: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2325: RAISE OKC_API.G_EXCEPTION_ERROR;
2326: ELSIF lc_object_version_number <> p_oin_rec.object_version_number THEN
2327: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2328: RAISE OKC_API.G_EXCEPTION_ERROR;
2321: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2322: RAISE OKC_API.G_EXCEPTION_ERROR;
2323: ELSIF lc_object_version_number > p_oin_rec.object_version_number THEN
2324: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2325: RAISE OKC_API.G_EXCEPTION_ERROR;
2326: ELSIF lc_object_version_number <> p_oin_rec.object_version_number THEN
2327: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2328: RAISE OKC_API.G_EXCEPTION_ERROR;
2329: ELSIF lc_object_version_number = -1 THEN
2323: ELSIF lc_object_version_number > p_oin_rec.object_version_number THEN
2324: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2325: RAISE OKC_API.G_EXCEPTION_ERROR;
2326: ELSIF lc_object_version_number <> p_oin_rec.object_version_number THEN
2327: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2328: RAISE OKC_API.G_EXCEPTION_ERROR;
2329: ELSIF lc_object_version_number = -1 THEN
2330: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2331: RAISE OKC_API.G_EXCEPTION_ERROR;
2324: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2325: RAISE OKC_API.G_EXCEPTION_ERROR;
2326: ELSIF lc_object_version_number <> p_oin_rec.object_version_number THEN
2327: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2328: RAISE OKC_API.G_EXCEPTION_ERROR;
2329: ELSIF lc_object_version_number = -1 THEN
2330: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2331: RAISE OKC_API.G_EXCEPTION_ERROR;
2332: END IF;
2326: ELSIF lc_object_version_number <> p_oin_rec.object_version_number THEN
2327: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2328: RAISE OKC_API.G_EXCEPTION_ERROR;
2329: ELSIF lc_object_version_number = -1 THEN
2330: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2331: RAISE OKC_API.G_EXCEPTION_ERROR;
2332: END IF;
2333: x_return_status := l_return_status;
2334: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2327: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2328: RAISE OKC_API.G_EXCEPTION_ERROR;
2329: ELSIF lc_object_version_number = -1 THEN
2330: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2331: RAISE OKC_API.G_EXCEPTION_ERROR;
2332: END IF;
2333: x_return_status := l_return_status;
2334: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2335: EXCEPTION
2330: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2331: RAISE OKC_API.G_EXCEPTION_ERROR;
2332: END IF;
2333: x_return_status := l_return_status;
2334: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2335: EXCEPTION
2336: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2337: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2338: (
2332: END IF;
2333: x_return_status := l_return_status;
2334: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2335: EXCEPTION
2336: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2337: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2338: (
2339: l_api_name,
2340: G_PKG_NAME,
2333: x_return_status := l_return_status;
2334: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2335: EXCEPTION
2336: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2337: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2338: (
2339: l_api_name,
2340: G_PKG_NAME,
2341: 'OKC_API.G_RET_STS_ERROR',
2337: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2338: (
2339: l_api_name,
2340: G_PKG_NAME,
2341: 'OKC_API.G_RET_STS_ERROR',
2342: x_msg_count,
2343: x_msg_data,
2344: '_PVT'
2345: );
2342: x_msg_count,
2343: x_msg_data,
2344: '_PVT'
2345: );
2346: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2347: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2348: (
2349: l_api_name,
2350: G_PKG_NAME,
2343: x_msg_data,
2344: '_PVT'
2345: );
2346: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2347: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2348: (
2349: l_api_name,
2350: G_PKG_NAME,
2351: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2347: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2348: (
2349: l_api_name,
2350: G_PKG_NAME,
2351: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2352: x_msg_count,
2353: x_msg_data,
2354: '_PVT'
2355: );
2353: x_msg_data,
2354: '_PVT'
2355: );
2356: WHEN OTHERS THEN
2357: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2358: (
2359: l_api_name,
2360: G_PKG_NAME,
2361: 'OTHERS',
2368: -- lock_row for: OKL_OPEN_INT_V --
2369: ----------------------------------
2370: PROCEDURE lock_row(
2371: p_api_version IN NUMBER,
2372: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2373: x_return_status OUT NOCOPY VARCHAR2,
2374: x_msg_count OUT NOCOPY NUMBER,
2375: x_msg_data OUT NOCOPY VARCHAR2,
2376: p_oinv_rec IN oinv_rec_type) AS
2376: p_oinv_rec IN oinv_rec_type) AS
2377:
2378: l_api_version CONSTANT NUMBER := 1;
2379: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2380: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2381: l_oin_rec oin_rec_type;
2382: BEGIN
2383: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2384: G_PKG_NAME,
2379: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2380: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2381: l_oin_rec oin_rec_type;
2382: BEGIN
2383: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2384: G_PKG_NAME,
2385: p_init_msg_list,
2386: l_api_version,
2387: p_api_version,
2386: l_api_version,
2387: p_api_version,
2388: '_PVT',
2389: x_return_status);
2390: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2391: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2392: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2393: RAISE OKC_API.G_EXCEPTION_ERROR;
2394: END IF;
2387: p_api_version,
2388: '_PVT',
2389: x_return_status);
2390: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2391: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2392: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2393: RAISE OKC_API.G_EXCEPTION_ERROR;
2394: END IF;
2395: -----------------------------------------
2388: '_PVT',
2389: x_return_status);
2390: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2391: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2392: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2393: RAISE OKC_API.G_EXCEPTION_ERROR;
2394: END IF;
2395: -----------------------------------------
2396: -- Move VIEW record to "Child" records --
2389: x_return_status);
2390: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2391: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2392: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2393: RAISE OKC_API.G_EXCEPTION_ERROR;
2394: END IF;
2395: -----------------------------------------
2396: -- Move VIEW record to "Child" records --
2397: -----------------------------------------
2405: x_msg_count,
2406: x_msg_data,
2407: l_oin_rec
2408: );
2409: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2410: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2411: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2412: RAISE OKC_API.G_EXCEPTION_ERROR;
2413: END IF;
2406: x_msg_data,
2407: l_oin_rec
2408: );
2409: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2410: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2411: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2412: RAISE OKC_API.G_EXCEPTION_ERROR;
2413: END IF;
2414: x_return_status := l_return_status;
2407: l_oin_rec
2408: );
2409: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2410: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2411: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2412: RAISE OKC_API.G_EXCEPTION_ERROR;
2413: END IF;
2414: x_return_status := l_return_status;
2415: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2408: );
2409: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2410: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2411: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2412: RAISE OKC_API.G_EXCEPTION_ERROR;
2413: END IF;
2414: x_return_status := l_return_status;
2415: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2416: EXCEPTION
2411: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2412: RAISE OKC_API.G_EXCEPTION_ERROR;
2413: END IF;
2414: x_return_status := l_return_status;
2415: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2416: EXCEPTION
2417: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2418: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2419: (
2413: END IF;
2414: x_return_status := l_return_status;
2415: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2416: EXCEPTION
2417: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2418: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2419: (
2420: l_api_name,
2421: G_PKG_NAME,
2414: x_return_status := l_return_status;
2415: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2416: EXCEPTION
2417: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2418: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2419: (
2420: l_api_name,
2421: G_PKG_NAME,
2422: 'OKC_API.G_RET_STS_ERROR',
2418: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2419: (
2420: l_api_name,
2421: G_PKG_NAME,
2422: 'OKC_API.G_RET_STS_ERROR',
2423: x_msg_count,
2424: x_msg_data,
2425: '_PVT'
2426: );
2423: x_msg_count,
2424: x_msg_data,
2425: '_PVT'
2426: );
2427: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2428: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2429: (
2430: l_api_name,
2431: G_PKG_NAME,
2424: x_msg_data,
2425: '_PVT'
2426: );
2427: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2428: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2429: (
2430: l_api_name,
2431: G_PKG_NAME,
2432: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2428: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2429: (
2430: l_api_name,
2431: G_PKG_NAME,
2432: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2433: x_msg_count,
2434: x_msg_data,
2435: '_PVT'
2436: );
2434: x_msg_data,
2435: '_PVT'
2436: );
2437: WHEN OTHERS THEN
2438: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2439: (
2440: l_api_name,
2441: G_PKG_NAME,
2442: 'OTHERS',
2449: -- PL/SQL TBL lock_row for:OINV_TBL --
2450: --------------------------------------
2451: PROCEDURE lock_row(
2452: p_api_version IN NUMBER,
2453: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2454: x_return_status OUT NOCOPY VARCHAR2,
2455: x_msg_count OUT NOCOPY NUMBER,
2456: x_msg_data OUT NOCOPY VARCHAR2,
2457: p_oinv_tbl IN oinv_tbl_type,
2460: l_api_version CONSTANT NUMBER := 1;
2461: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_lock_row';
2462: i NUMBER := 0;
2463: BEGIN
2464: OKC_API.init_msg_list(p_init_msg_list);
2465: -- Make sure PL/SQL table has recrods in it before passing
2466: IF (p_oinv_tbl.COUNT > 0) THEN
2467: i := p_oinv_tbl.FIRST;
2468: LOOP
2473: l_error_rec.api_package := G_PKG_NAME;
2474: l_error_rec.idx := i;
2475: lock_row(
2476: p_api_version => p_api_version,
2477: p_init_msg_list => OKC_API.G_FALSE,
2478: x_return_status => l_error_rec.error_type,
2479: x_msg_count => l_error_rec.msg_count,
2480: x_msg_data => l_error_rec.msg_data,
2481: p_oinv_rec => p_oinv_tbl(i));
2478: x_return_status => l_error_rec.error_type,
2479: x_msg_count => l_error_rec.msg_count,
2480: x_msg_data => l_error_rec.msg_data,
2481: p_oinv_rec => p_oinv_tbl(i));
2482: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
2483: l_error_rec.sqlcode := SQLCODE;
2484: load_error_tbl(l_error_rec, px_error_tbl);
2485: ELSE
2486: x_msg_count := l_error_rec.msg_count;
2486: x_msg_count := l_error_rec.msg_count;
2487: x_msg_data := l_error_rec.msg_data;
2488: END IF;
2489: EXCEPTION
2490: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2491: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2492: l_error_rec.sqlcode := SQLCODE;
2493: load_error_tbl(l_error_rec, px_error_tbl);
2494: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2487: x_msg_data := l_error_rec.msg_data;
2488: END IF;
2489: EXCEPTION
2490: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2491: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2492: l_error_rec.sqlcode := SQLCODE;
2493: load_error_tbl(l_error_rec, px_error_tbl);
2494: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2495: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
2490: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2491: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2492: l_error_rec.sqlcode := SQLCODE;
2493: load_error_tbl(l_error_rec, px_error_tbl);
2494: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2495: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
2496: l_error_rec.sqlcode := SQLCODE;
2497: load_error_tbl(l_error_rec, px_error_tbl);
2498: WHEN OTHERS THEN
2491: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2492: l_error_rec.sqlcode := SQLCODE;
2493: load_error_tbl(l_error_rec, px_error_tbl);
2494: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2495: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
2496: l_error_rec.sqlcode := SQLCODE;
2497: load_error_tbl(l_error_rec, px_error_tbl);
2498: WHEN OTHERS THEN
2499: l_error_rec.error_type := 'OTHERS';
2506: END IF;
2507: -- Loop through the error_tbl to find the error with the highest severity
2508: -- and return it.
2509: x_return_status := find_highest_exception(px_error_tbl);
2510: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2511: EXCEPTION
2512: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2513: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2514: (
2508: -- and return it.
2509: x_return_status := find_highest_exception(px_error_tbl);
2510: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2511: EXCEPTION
2512: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2513: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2514: (
2515: l_api_name,
2516: G_PKG_NAME,
2509: x_return_status := find_highest_exception(px_error_tbl);
2510: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2511: EXCEPTION
2512: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2513: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2514: (
2515: l_api_name,
2516: G_PKG_NAME,
2517: 'OKC_API.G_RET_STS_ERROR',
2513: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2514: (
2515: l_api_name,
2516: G_PKG_NAME,
2517: 'OKC_API.G_RET_STS_ERROR',
2518: x_msg_count,
2519: x_msg_data,
2520: '_PVT'
2521: );
2518: x_msg_count,
2519: x_msg_data,
2520: '_PVT'
2521: );
2522: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2523: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2524: (
2525: l_api_name,
2526: G_PKG_NAME,
2519: x_msg_data,
2520: '_PVT'
2521: );
2522: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2523: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2524: (
2525: l_api_name,
2526: G_PKG_NAME,
2527: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2523: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2524: (
2525: l_api_name,
2526: G_PKG_NAME,
2527: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2528: x_msg_count,
2529: x_msg_data,
2530: '_PVT'
2531: );
2529: x_msg_data,
2530: '_PVT'
2531: );
2532: WHEN OTHERS THEN
2533: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2534: (
2535: l_api_name,
2536: G_PKG_NAME,
2537: 'OTHERS',
2544: -- PL/SQL TBL lock_row for:OINV_TBL --
2545: --------------------------------------
2546: PROCEDURE lock_row(
2547: p_api_version IN NUMBER,
2548: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2549: x_return_status OUT NOCOPY VARCHAR2,
2550: x_msg_count OUT NOCOPY NUMBER,
2551: x_msg_data OUT NOCOPY VARCHAR2,
2552: p_oinv_tbl IN oinv_tbl_type) AS
2552: p_oinv_tbl IN oinv_tbl_type) AS
2553:
2554: l_api_version CONSTANT NUMBER := 1;
2555: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2556: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2557: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2558: BEGIN
2559: OKC_API.init_msg_list(p_init_msg_list);
2560: -- Make sure PL/SQL table has recrods in it before passing
2555: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2556: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2557: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2558: BEGIN
2559: OKC_API.init_msg_list(p_init_msg_list);
2560: -- Make sure PL/SQL table has recrods in it before passing
2561: IF (p_oinv_tbl.COUNT > 0) THEN
2562: lock_row(
2563: p_api_version => p_api_version,
2560: -- Make sure PL/SQL table has recrods in it before passing
2561: IF (p_oinv_tbl.COUNT > 0) THEN
2562: lock_row(
2563: p_api_version => p_api_version,
2564: p_init_msg_list => OKC_API.G_FALSE,
2565: x_return_status => x_return_status,
2566: x_msg_count => x_msg_count,
2567: x_msg_data => x_msg_data,
2568: p_oinv_tbl => p_oinv_tbl,
2567: x_msg_data => x_msg_data,
2568: p_oinv_tbl => p_oinv_tbl,
2569: px_error_tbl => l_error_tbl);
2570: END IF;
2571: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2572: EXCEPTION
2573: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2574: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2575: (
2569: px_error_tbl => l_error_tbl);
2570: END IF;
2571: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2572: EXCEPTION
2573: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2574: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2575: (
2576: l_api_name,
2577: G_PKG_NAME,
2570: END IF;
2571: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2572: EXCEPTION
2573: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2574: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2575: (
2576: l_api_name,
2577: G_PKG_NAME,
2578: 'OKC_API.G_RET_STS_ERROR',
2574: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2575: (
2576: l_api_name,
2577: G_PKG_NAME,
2578: 'OKC_API.G_RET_STS_ERROR',
2579: x_msg_count,
2580: x_msg_data,
2581: '_PVT'
2582: );
2579: x_msg_count,
2580: x_msg_data,
2581: '_PVT'
2582: );
2583: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2584: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2585: (
2586: l_api_name,
2587: G_PKG_NAME,
2580: x_msg_data,
2581: '_PVT'
2582: );
2583: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2584: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2585: (
2586: l_api_name,
2587: G_PKG_NAME,
2588: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2584: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2585: (
2586: l_api_name,
2587: G_PKG_NAME,
2588: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2589: x_msg_count,
2590: x_msg_data,
2591: '_PVT'
2592: );
2590: x_msg_data,
2591: '_PVT'
2592: );
2593: WHEN OTHERS THEN
2594: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2595: (
2596: l_api_name,
2597: G_PKG_NAME,
2598: 'OTHERS',
2607: ---------------------------------
2608: -- update_row for:OKL_OPEN_INT --
2609: ---------------------------------
2610: PROCEDURE update_row(
2611: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2612: x_return_status OUT NOCOPY VARCHAR2,
2613: x_msg_count OUT NOCOPY NUMBER,
2614: x_msg_data OUT NOCOPY VARCHAR2,
2615: p_oin_rec IN oin_rec_type,
2616: x_oin_rec OUT NOCOPY oin_rec_type) AS
2617:
2618: l_api_version CONSTANT NUMBER := 1;
2619: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
2620: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2621: l_oin_rec oin_rec_type := p_oin_rec;
2622: l_def_oin_rec oin_rec_type;
2623: l_row_notfound BOOLEAN := TRUE;
2624: ----------------------------------
2629: x_oin_rec OUT NOCOPY oin_rec_type
2630: ) RETURN VARCHAR2 AS
2631: l_oin_rec oin_rec_type;
2632: l_row_notfound BOOLEAN := TRUE;
2633: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2634: BEGIN
2635: x_oin_rec := p_oin_rec;
2636: -- Get current database values
2637: l_oin_rec := get_rec(p_oin_rec, l_return_status);
2634: BEGIN
2635: x_oin_rec := p_oin_rec;
2636: -- Get current database values
2637: l_oin_rec := get_rec(p_oin_rec, l_return_status);
2638: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
2639: IF (x_oin_rec.id = OKC_API.G_MISS_NUM)
2640: THEN
2641: x_oin_rec.id := l_oin_rec.id;
2642: END IF;
2635: x_oin_rec := p_oin_rec;
2636: -- Get current database values
2637: l_oin_rec := get_rec(p_oin_rec, l_return_status);
2638: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
2639: IF (x_oin_rec.id = OKC_API.G_MISS_NUM)
2640: THEN
2641: x_oin_rec.id := l_oin_rec.id;
2642: END IF;
2643: IF (x_oin_rec.party_id = OKC_API.G_MISS_NUM)
2639: IF (x_oin_rec.id = OKC_API.G_MISS_NUM)
2640: THEN
2641: x_oin_rec.id := l_oin_rec.id;
2642: END IF;
2643: IF (x_oin_rec.party_id = OKC_API.G_MISS_NUM)
2644: THEN
2645: x_oin_rec.party_id := l_oin_rec.party_id;
2646: END IF;
2647: IF (x_oin_rec.party_name = OKC_API.G_MISS_CHAR)
2643: IF (x_oin_rec.party_id = OKC_API.G_MISS_NUM)
2644: THEN
2645: x_oin_rec.party_id := l_oin_rec.party_id;
2646: END IF;
2647: IF (x_oin_rec.party_name = OKC_API.G_MISS_CHAR)
2648: THEN
2649: x_oin_rec.party_name := l_oin_rec.party_name;
2650: END IF;
2651: IF (x_oin_rec.party_type = OKC_API.G_MISS_CHAR)
2647: IF (x_oin_rec.party_name = OKC_API.G_MISS_CHAR)
2648: THEN
2649: x_oin_rec.party_name := l_oin_rec.party_name;
2650: END IF;
2651: IF (x_oin_rec.party_type = OKC_API.G_MISS_CHAR)
2652: THEN
2653: x_oin_rec.party_type := l_oin_rec.party_type;
2654: END IF;
2655: IF (x_oin_rec.date_of_birth = OKC_API.G_MISS_DATE)
2651: IF (x_oin_rec.party_type = OKC_API.G_MISS_CHAR)
2652: THEN
2653: x_oin_rec.party_type := l_oin_rec.party_type;
2654: END IF;
2655: IF (x_oin_rec.date_of_birth = OKC_API.G_MISS_DATE)
2656: THEN
2657: x_oin_rec.date_of_birth := l_oin_rec.date_of_birth;
2658: END IF;
2659: IF (x_oin_rec.place_of_birth = OKC_API.G_MISS_CHAR)
2655: IF (x_oin_rec.date_of_birth = OKC_API.G_MISS_DATE)
2656: THEN
2657: x_oin_rec.date_of_birth := l_oin_rec.date_of_birth;
2658: END IF;
2659: IF (x_oin_rec.place_of_birth = OKC_API.G_MISS_CHAR)
2660: THEN
2661: x_oin_rec.place_of_birth := l_oin_rec.place_of_birth;
2662: END IF;
2663: IF (x_oin_rec.person_identifier = OKC_API.G_MISS_CHAR)
2659: IF (x_oin_rec.place_of_birth = OKC_API.G_MISS_CHAR)
2660: THEN
2661: x_oin_rec.place_of_birth := l_oin_rec.place_of_birth;
2662: END IF;
2663: IF (x_oin_rec.person_identifier = OKC_API.G_MISS_CHAR)
2664: THEN
2665: x_oin_rec.person_identifier := l_oin_rec.person_identifier;
2666: END IF;
2667: IF (x_oin_rec.person_iden_type = OKC_API.G_MISS_CHAR)
2663: IF (x_oin_rec.person_identifier = OKC_API.G_MISS_CHAR)
2664: THEN
2665: x_oin_rec.person_identifier := l_oin_rec.person_identifier;
2666: END IF;
2667: IF (x_oin_rec.person_iden_type = OKC_API.G_MISS_CHAR)
2668: THEN
2669: x_oin_rec.person_iden_type := l_oin_rec.person_iden_type;
2670: END IF;
2671: IF (x_oin_rec.country = OKC_API.G_MISS_CHAR)
2667: IF (x_oin_rec.person_iden_type = OKC_API.G_MISS_CHAR)
2668: THEN
2669: x_oin_rec.person_iden_type := l_oin_rec.person_iden_type;
2670: END IF;
2671: IF (x_oin_rec.country = OKC_API.G_MISS_CHAR)
2672: THEN
2673: x_oin_rec.country := l_oin_rec.country;
2674: END IF;
2675: IF (x_oin_rec.address1 = OKC_API.G_MISS_CHAR)
2671: IF (x_oin_rec.country = OKC_API.G_MISS_CHAR)
2672: THEN
2673: x_oin_rec.country := l_oin_rec.country;
2674: END IF;
2675: IF (x_oin_rec.address1 = OKC_API.G_MISS_CHAR)
2676: THEN
2677: x_oin_rec.address1 := l_oin_rec.address1;
2678: END IF;
2679: IF (x_oin_rec.address2 = OKC_API.G_MISS_CHAR)
2675: IF (x_oin_rec.address1 = OKC_API.G_MISS_CHAR)
2676: THEN
2677: x_oin_rec.address1 := l_oin_rec.address1;
2678: END IF;
2679: IF (x_oin_rec.address2 = OKC_API.G_MISS_CHAR)
2680: THEN
2681: x_oin_rec.address2 := l_oin_rec.address2;
2682: END IF;
2683: IF (x_oin_rec.address3 = OKC_API.G_MISS_CHAR)
2679: IF (x_oin_rec.address2 = OKC_API.G_MISS_CHAR)
2680: THEN
2681: x_oin_rec.address2 := l_oin_rec.address2;
2682: END IF;
2683: IF (x_oin_rec.address3 = OKC_API.G_MISS_CHAR)
2684: THEN
2685: x_oin_rec.address3 := l_oin_rec.address3;
2686: END IF;
2687: IF (x_oin_rec.address4 = OKC_API.G_MISS_CHAR)
2683: IF (x_oin_rec.address3 = OKC_API.G_MISS_CHAR)
2684: THEN
2685: x_oin_rec.address3 := l_oin_rec.address3;
2686: END IF;
2687: IF (x_oin_rec.address4 = OKC_API.G_MISS_CHAR)
2688: THEN
2689: x_oin_rec.address4 := l_oin_rec.address4;
2690: END IF;
2691: IF (x_oin_rec.city = OKC_API.G_MISS_CHAR)
2687: IF (x_oin_rec.address4 = OKC_API.G_MISS_CHAR)
2688: THEN
2689: x_oin_rec.address4 := l_oin_rec.address4;
2690: END IF;
2691: IF (x_oin_rec.city = OKC_API.G_MISS_CHAR)
2692: THEN
2693: x_oin_rec.city := l_oin_rec.city;
2694: END IF;
2695: IF (x_oin_rec.postal_code = OKC_API.G_MISS_CHAR)
2691: IF (x_oin_rec.city = OKC_API.G_MISS_CHAR)
2692: THEN
2693: x_oin_rec.city := l_oin_rec.city;
2694: END IF;
2695: IF (x_oin_rec.postal_code = OKC_API.G_MISS_CHAR)
2696: THEN
2697: x_oin_rec.postal_code := l_oin_rec.postal_code;
2698: END IF;
2699: IF (x_oin_rec.state = OKC_API.G_MISS_CHAR)
2695: IF (x_oin_rec.postal_code = OKC_API.G_MISS_CHAR)
2696: THEN
2697: x_oin_rec.postal_code := l_oin_rec.postal_code;
2698: END IF;
2699: IF (x_oin_rec.state = OKC_API.G_MISS_CHAR)
2700: THEN
2701: x_oin_rec.state := l_oin_rec.state;
2702: END IF;
2703: IF (x_oin_rec.province = OKC_API.G_MISS_CHAR)
2699: IF (x_oin_rec.state = OKC_API.G_MISS_CHAR)
2700: THEN
2701: x_oin_rec.state := l_oin_rec.state;
2702: END IF;
2703: IF (x_oin_rec.province = OKC_API.G_MISS_CHAR)
2704: THEN
2705: x_oin_rec.province := l_oin_rec.province;
2706: END IF;
2707: IF (x_oin_rec.county = OKC_API.G_MISS_CHAR)
2703: IF (x_oin_rec.province = OKC_API.G_MISS_CHAR)
2704: THEN
2705: x_oin_rec.province := l_oin_rec.province;
2706: END IF;
2707: IF (x_oin_rec.county = OKC_API.G_MISS_CHAR)
2708: THEN
2709: x_oin_rec.county := l_oin_rec.county;
2710: END IF;
2711: IF (x_oin_rec.po_box_number = OKC_API.G_MISS_CHAR)
2707: IF (x_oin_rec.county = OKC_API.G_MISS_CHAR)
2708: THEN
2709: x_oin_rec.county := l_oin_rec.county;
2710: END IF;
2711: IF (x_oin_rec.po_box_number = OKC_API.G_MISS_CHAR)
2712: THEN
2713: x_oin_rec.po_box_number := l_oin_rec.po_box_number;
2714: END IF;
2715: IF (x_oin_rec.house_number = OKC_API.G_MISS_CHAR)
2711: IF (x_oin_rec.po_box_number = OKC_API.G_MISS_CHAR)
2712: THEN
2713: x_oin_rec.po_box_number := l_oin_rec.po_box_number;
2714: END IF;
2715: IF (x_oin_rec.house_number = OKC_API.G_MISS_CHAR)
2716: THEN
2717: x_oin_rec.house_number := l_oin_rec.house_number;
2718: END IF;
2719: IF (x_oin_rec.street_suffix = OKC_API.G_MISS_CHAR)
2715: IF (x_oin_rec.house_number = OKC_API.G_MISS_CHAR)
2716: THEN
2717: x_oin_rec.house_number := l_oin_rec.house_number;
2718: END IF;
2719: IF (x_oin_rec.street_suffix = OKC_API.G_MISS_CHAR)
2720: THEN
2721: x_oin_rec.street_suffix := l_oin_rec.street_suffix;
2722: END IF;
2723: IF (x_oin_rec.apartment_number = OKC_API.G_MISS_CHAR)
2719: IF (x_oin_rec.street_suffix = OKC_API.G_MISS_CHAR)
2720: THEN
2721: x_oin_rec.street_suffix := l_oin_rec.street_suffix;
2722: END IF;
2723: IF (x_oin_rec.apartment_number = OKC_API.G_MISS_CHAR)
2724: THEN
2725: x_oin_rec.apartment_number := l_oin_rec.apartment_number;
2726: END IF;
2727: IF (x_oin_rec.street = OKC_API.G_MISS_CHAR)
2723: IF (x_oin_rec.apartment_number = OKC_API.G_MISS_CHAR)
2724: THEN
2725: x_oin_rec.apartment_number := l_oin_rec.apartment_number;
2726: END IF;
2727: IF (x_oin_rec.street = OKC_API.G_MISS_CHAR)
2728: THEN
2729: x_oin_rec.street := l_oin_rec.street;
2730: END IF;
2731: IF (x_oin_rec.rural_route_number = OKC_API.G_MISS_CHAR)
2727: IF (x_oin_rec.street = OKC_API.G_MISS_CHAR)
2728: THEN
2729: x_oin_rec.street := l_oin_rec.street;
2730: END IF;
2731: IF (x_oin_rec.rural_route_number = OKC_API.G_MISS_CHAR)
2732: THEN
2733: x_oin_rec.rural_route_number := l_oin_rec.rural_route_number;
2734: END IF;
2735: IF (x_oin_rec.street_number = OKC_API.G_MISS_CHAR)
2731: IF (x_oin_rec.rural_route_number = OKC_API.G_MISS_CHAR)
2732: THEN
2733: x_oin_rec.rural_route_number := l_oin_rec.rural_route_number;
2734: END IF;
2735: IF (x_oin_rec.street_number = OKC_API.G_MISS_CHAR)
2736: THEN
2737: x_oin_rec.street_number := l_oin_rec.street_number;
2738: END IF;
2739: IF (x_oin_rec.building = OKC_API.G_MISS_CHAR)
2735: IF (x_oin_rec.street_number = OKC_API.G_MISS_CHAR)
2736: THEN
2737: x_oin_rec.street_number := l_oin_rec.street_number;
2738: END IF;
2739: IF (x_oin_rec.building = OKC_API.G_MISS_CHAR)
2740: THEN
2741: x_oin_rec.building := l_oin_rec.building;
2742: END IF;
2743: IF (x_oin_rec.floor = OKC_API.G_MISS_CHAR)
2739: IF (x_oin_rec.building = OKC_API.G_MISS_CHAR)
2740: THEN
2741: x_oin_rec.building := l_oin_rec.building;
2742: END IF;
2743: IF (x_oin_rec.floor = OKC_API.G_MISS_CHAR)
2744: THEN
2745: x_oin_rec.floor := l_oin_rec.floor;
2746: END IF;
2747: IF (x_oin_rec.suite = OKC_API.G_MISS_CHAR)
2743: IF (x_oin_rec.floor = OKC_API.G_MISS_CHAR)
2744: THEN
2745: x_oin_rec.floor := l_oin_rec.floor;
2746: END IF;
2747: IF (x_oin_rec.suite = OKC_API.G_MISS_CHAR)
2748: THEN
2749: x_oin_rec.suite := l_oin_rec.suite;
2750: END IF;
2751: IF (x_oin_rec.room = OKC_API.G_MISS_CHAR)
2747: IF (x_oin_rec.suite = OKC_API.G_MISS_CHAR)
2748: THEN
2749: x_oin_rec.suite := l_oin_rec.suite;
2750: END IF;
2751: IF (x_oin_rec.room = OKC_API.G_MISS_CHAR)
2752: THEN
2753: x_oin_rec.room := l_oin_rec.room;
2754: END IF;
2755: IF (x_oin_rec.postal_plus4_code = OKC_API.G_MISS_CHAR)
2751: IF (x_oin_rec.room = OKC_API.G_MISS_CHAR)
2752: THEN
2753: x_oin_rec.room := l_oin_rec.room;
2754: END IF;
2755: IF (x_oin_rec.postal_plus4_code = OKC_API.G_MISS_CHAR)
2756: THEN
2757: x_oin_rec.postal_plus4_code := l_oin_rec.postal_plus4_code;
2758: END IF;
2759: IF (x_oin_rec.cas_id = OKC_API.G_MISS_NUM)
2755: IF (x_oin_rec.postal_plus4_code = OKC_API.G_MISS_CHAR)
2756: THEN
2757: x_oin_rec.postal_plus4_code := l_oin_rec.postal_plus4_code;
2758: END IF;
2759: IF (x_oin_rec.cas_id = OKC_API.G_MISS_NUM)
2760: THEN
2761: x_oin_rec.cas_id := l_oin_rec.cas_id;
2762: END IF;
2763: IF (x_oin_rec.case_number = OKC_API.G_MISS_CHAR)
2759: IF (x_oin_rec.cas_id = OKC_API.G_MISS_NUM)
2760: THEN
2761: x_oin_rec.cas_id := l_oin_rec.cas_id;
2762: END IF;
2763: IF (x_oin_rec.case_number = OKC_API.G_MISS_CHAR)
2764: THEN
2765: x_oin_rec.case_number := l_oin_rec.case_number;
2766: END IF;
2767: IF (x_oin_rec.khr_id = OKC_API.G_MISS_NUM)
2763: IF (x_oin_rec.case_number = OKC_API.G_MISS_CHAR)
2764: THEN
2765: x_oin_rec.case_number := l_oin_rec.case_number;
2766: END IF;
2767: IF (x_oin_rec.khr_id = OKC_API.G_MISS_NUM)
2768: THEN
2769: x_oin_rec.khr_id := l_oin_rec.khr_id;
2770: END IF;
2771: IF (x_oin_rec.contract_number = OKC_API.G_MISS_CHAR)
2767: IF (x_oin_rec.khr_id = OKC_API.G_MISS_NUM)
2768: THEN
2769: x_oin_rec.khr_id := l_oin_rec.khr_id;
2770: END IF;
2771: IF (x_oin_rec.contract_number = OKC_API.G_MISS_CHAR)
2772: THEN
2773: x_oin_rec.contract_number := l_oin_rec.contract_number;
2774: END IF;
2775: IF (x_oin_rec.contract_type = OKC_API.G_MISS_CHAR)
2771: IF (x_oin_rec.contract_number = OKC_API.G_MISS_CHAR)
2772: THEN
2773: x_oin_rec.contract_number := l_oin_rec.contract_number;
2774: END IF;
2775: IF (x_oin_rec.contract_type = OKC_API.G_MISS_CHAR)
2776: THEN
2777: x_oin_rec.contract_type := l_oin_rec.contract_type;
2778: END IF;
2779: IF (x_oin_rec.contract_status = OKC_API.G_MISS_CHAR)
2775: IF (x_oin_rec.contract_type = OKC_API.G_MISS_CHAR)
2776: THEN
2777: x_oin_rec.contract_type := l_oin_rec.contract_type;
2778: END IF;
2779: IF (x_oin_rec.contract_status = OKC_API.G_MISS_CHAR)
2780: THEN
2781: x_oin_rec.contract_status := l_oin_rec.contract_status;
2782: END IF;
2783: IF (x_oin_rec.original_amount = OKC_API.G_MISS_NUM)
2779: IF (x_oin_rec.contract_status = OKC_API.G_MISS_CHAR)
2780: THEN
2781: x_oin_rec.contract_status := l_oin_rec.contract_status;
2782: END IF;
2783: IF (x_oin_rec.original_amount = OKC_API.G_MISS_NUM)
2784: THEN
2785: x_oin_rec.original_amount := l_oin_rec.original_amount;
2786: END IF;
2787: IF (x_oin_rec.start_date = OKC_API.G_MISS_DATE)
2783: IF (x_oin_rec.original_amount = OKC_API.G_MISS_NUM)
2784: THEN
2785: x_oin_rec.original_amount := l_oin_rec.original_amount;
2786: END IF;
2787: IF (x_oin_rec.start_date = OKC_API.G_MISS_DATE)
2788: THEN
2789: x_oin_rec.start_date := l_oin_rec.start_date;
2790: END IF;
2791: IF (x_oin_rec.close_date = OKC_API.G_MISS_DATE)
2787: IF (x_oin_rec.start_date = OKC_API.G_MISS_DATE)
2788: THEN
2789: x_oin_rec.start_date := l_oin_rec.start_date;
2790: END IF;
2791: IF (x_oin_rec.close_date = OKC_API.G_MISS_DATE)
2792: THEN
2793: x_oin_rec.close_date := l_oin_rec.close_date;
2794: END IF;
2795: IF (x_oin_rec.term_duration = OKC_API.G_MISS_NUM)
2791: IF (x_oin_rec.close_date = OKC_API.G_MISS_DATE)
2792: THEN
2793: x_oin_rec.close_date := l_oin_rec.close_date;
2794: END IF;
2795: IF (x_oin_rec.term_duration = OKC_API.G_MISS_NUM)
2796: THEN
2797: x_oin_rec.term_duration := l_oin_rec.term_duration;
2798: END IF;
2799: IF (x_oin_rec.monthly_payment_amount = OKC_API.G_MISS_NUM)
2795: IF (x_oin_rec.term_duration = OKC_API.G_MISS_NUM)
2796: THEN
2797: x_oin_rec.term_duration := l_oin_rec.term_duration;
2798: END IF;
2799: IF (x_oin_rec.monthly_payment_amount = OKC_API.G_MISS_NUM)
2800: THEN
2801: x_oin_rec.monthly_payment_amount := l_oin_rec.monthly_payment_amount;
2802: END IF;
2803: IF (x_oin_rec.last_payment_date = OKC_API.G_MISS_DATE)
2799: IF (x_oin_rec.monthly_payment_amount = OKC_API.G_MISS_NUM)
2800: THEN
2801: x_oin_rec.monthly_payment_amount := l_oin_rec.monthly_payment_amount;
2802: END IF;
2803: IF (x_oin_rec.last_payment_date = OKC_API.G_MISS_DATE)
2804: THEN
2805: x_oin_rec.last_payment_date := l_oin_rec.last_payment_date;
2806: END IF;
2807: IF (x_oin_rec.delinquency_occurance_date = OKC_API.G_MISS_DATE)
2803: IF (x_oin_rec.last_payment_date = OKC_API.G_MISS_DATE)
2804: THEN
2805: x_oin_rec.last_payment_date := l_oin_rec.last_payment_date;
2806: END IF;
2807: IF (x_oin_rec.delinquency_occurance_date = OKC_API.G_MISS_DATE)
2808: THEN
2809: x_oin_rec.delinquency_occurance_date := l_oin_rec.delinquency_occurance_date;
2810: END IF;
2811: IF (x_oin_rec.past_due_amount = OKC_API.G_MISS_NUM)
2807: IF (x_oin_rec.delinquency_occurance_date = OKC_API.G_MISS_DATE)
2808: THEN
2809: x_oin_rec.delinquency_occurance_date := l_oin_rec.delinquency_occurance_date;
2810: END IF;
2811: IF (x_oin_rec.past_due_amount = OKC_API.G_MISS_NUM)
2812: THEN
2813: x_oin_rec.past_due_amount := l_oin_rec.past_due_amount;
2814: END IF;
2815: IF (x_oin_rec.remaining_amount = OKC_API.G_MISS_NUM)
2811: IF (x_oin_rec.past_due_amount = OKC_API.G_MISS_NUM)
2812: THEN
2813: x_oin_rec.past_due_amount := l_oin_rec.past_due_amount;
2814: END IF;
2815: IF (x_oin_rec.remaining_amount = OKC_API.G_MISS_NUM)
2816: THEN
2817: x_oin_rec.remaining_amount := l_oin_rec.remaining_amount;
2818: END IF;
2819: IF (x_oin_rec.credit_indicator = OKC_API.G_MISS_CHAR)
2815: IF (x_oin_rec.remaining_amount = OKC_API.G_MISS_NUM)
2816: THEN
2817: x_oin_rec.remaining_amount := l_oin_rec.remaining_amount;
2818: END IF;
2819: IF (x_oin_rec.credit_indicator = OKC_API.G_MISS_CHAR)
2820: THEN
2821: x_oin_rec.credit_indicator := l_oin_rec.credit_indicator;
2822: END IF;
2823: IF (x_oin_rec.notification_date = OKC_API.G_MISS_DATE)
2819: IF (x_oin_rec.credit_indicator = OKC_API.G_MISS_CHAR)
2820: THEN
2821: x_oin_rec.credit_indicator := l_oin_rec.credit_indicator;
2822: END IF;
2823: IF (x_oin_rec.notification_date = OKC_API.G_MISS_DATE)
2824: THEN
2825: x_oin_rec.notification_date := l_oin_rec.notification_date;
2826: END IF;
2827: IF (x_oin_rec.credit_bureau_report_date = OKC_API.G_MISS_DATE)
2823: IF (x_oin_rec.notification_date = OKC_API.G_MISS_DATE)
2824: THEN
2825: x_oin_rec.notification_date := l_oin_rec.notification_date;
2826: END IF;
2827: IF (x_oin_rec.credit_bureau_report_date = OKC_API.G_MISS_DATE)
2828: THEN
2829: x_oin_rec.credit_bureau_report_date := l_oin_rec.credit_bureau_report_date;
2830: END IF;
2831: IF (x_oin_rec.external_agency_transfer_date = OKC_API.G_MISS_DATE)
2827: IF (x_oin_rec.credit_bureau_report_date = OKC_API.G_MISS_DATE)
2828: THEN
2829: x_oin_rec.credit_bureau_report_date := l_oin_rec.credit_bureau_report_date;
2830: END IF;
2831: IF (x_oin_rec.external_agency_transfer_date = OKC_API.G_MISS_DATE)
2832: THEN
2833: x_oin_rec.external_agency_transfer_date := l_oin_rec.external_agency_transfer_date;
2834: END IF;
2835: IF (x_oin_rec.external_agency_recall_date = OKC_API.G_MISS_DATE)
2831: IF (x_oin_rec.external_agency_transfer_date = OKC_API.G_MISS_DATE)
2832: THEN
2833: x_oin_rec.external_agency_transfer_date := l_oin_rec.external_agency_transfer_date;
2834: END IF;
2835: IF (x_oin_rec.external_agency_recall_date = OKC_API.G_MISS_DATE)
2836: THEN
2837: x_oin_rec.external_agency_recall_date := l_oin_rec.external_agency_recall_date;
2838: END IF;
2839: IF (x_oin_rec.referral_number = OKC_API.G_MISS_NUM)
2835: IF (x_oin_rec.external_agency_recall_date = OKC_API.G_MISS_DATE)
2836: THEN
2837: x_oin_rec.external_agency_recall_date := l_oin_rec.external_agency_recall_date;
2838: END IF;
2839: IF (x_oin_rec.referral_number = OKC_API.G_MISS_NUM)
2840: THEN
2841: x_oin_rec.referral_number := l_oin_rec.referral_number;
2842: END IF;
2843: IF (x_oin_rec.contact_id = OKC_API.G_MISS_NUM)
2839: IF (x_oin_rec.referral_number = OKC_API.G_MISS_NUM)
2840: THEN
2841: x_oin_rec.referral_number := l_oin_rec.referral_number;
2842: END IF;
2843: IF (x_oin_rec.contact_id = OKC_API.G_MISS_NUM)
2844: THEN
2845: x_oin_rec.contact_id := l_oin_rec.contact_id;
2846: END IF;
2847: IF (x_oin_rec.contact_name = OKC_API.G_MISS_CHAR)
2843: IF (x_oin_rec.contact_id = OKC_API.G_MISS_NUM)
2844: THEN
2845: x_oin_rec.contact_id := l_oin_rec.contact_id;
2846: END IF;
2847: IF (x_oin_rec.contact_name = OKC_API.G_MISS_CHAR)
2848: THEN
2849: x_oin_rec.contact_name := l_oin_rec.contact_name;
2850: END IF;
2851: IF (x_oin_rec.contact_phone = OKC_API.G_MISS_CHAR)
2847: IF (x_oin_rec.contact_name = OKC_API.G_MISS_CHAR)
2848: THEN
2849: x_oin_rec.contact_name := l_oin_rec.contact_name;
2850: END IF;
2851: IF (x_oin_rec.contact_phone = OKC_API.G_MISS_CHAR)
2852: THEN
2853: x_oin_rec.contact_phone := l_oin_rec.contact_phone;
2854: END IF;
2855: IF (x_oin_rec.contact_email = OKC_API.G_MISS_CHAR)
2851: IF (x_oin_rec.contact_phone = OKC_API.G_MISS_CHAR)
2852: THEN
2853: x_oin_rec.contact_phone := l_oin_rec.contact_phone;
2854: END IF;
2855: IF (x_oin_rec.contact_email = OKC_API.G_MISS_CHAR)
2856: THEN
2857: x_oin_rec.contact_email := l_oin_rec.contact_email;
2858: END IF;
2859: IF (x_oin_rec.object_version_number = OKC_API.G_MISS_NUM)
2855: IF (x_oin_rec.contact_email = OKC_API.G_MISS_CHAR)
2856: THEN
2857: x_oin_rec.contact_email := l_oin_rec.contact_email;
2858: END IF;
2859: IF (x_oin_rec.object_version_number = OKC_API.G_MISS_NUM)
2860: THEN
2861: x_oin_rec.object_version_number := l_oin_rec.object_version_number;
2862: END IF;
2863: IF (x_oin_rec.org_id = OKC_API.G_MISS_NUM)
2859: IF (x_oin_rec.object_version_number = OKC_API.G_MISS_NUM)
2860: THEN
2861: x_oin_rec.object_version_number := l_oin_rec.object_version_number;
2862: END IF;
2863: IF (x_oin_rec.org_id = OKC_API.G_MISS_NUM)
2864: THEN
2865: x_oin_rec.org_id := l_oin_rec.org_id;
2866: END IF;
2867: IF (x_oin_rec.request_id = OKC_API.G_MISS_NUM)
2863: IF (x_oin_rec.org_id = OKC_API.G_MISS_NUM)
2864: THEN
2865: x_oin_rec.org_id := l_oin_rec.org_id;
2866: END IF;
2867: IF (x_oin_rec.request_id = OKC_API.G_MISS_NUM)
2868: THEN
2869: x_oin_rec.request_id := l_oin_rec.request_id;
2870: END IF;
2871: IF (x_oin_rec.program_application_id = OKC_API.G_MISS_NUM)
2867: IF (x_oin_rec.request_id = OKC_API.G_MISS_NUM)
2868: THEN
2869: x_oin_rec.request_id := l_oin_rec.request_id;
2870: END IF;
2871: IF (x_oin_rec.program_application_id = OKC_API.G_MISS_NUM)
2872: THEN
2873: x_oin_rec.program_application_id := l_oin_rec.program_application_id;
2874: END IF;
2875: IF (x_oin_rec.program_id = OKC_API.G_MISS_NUM)
2871: IF (x_oin_rec.program_application_id = OKC_API.G_MISS_NUM)
2872: THEN
2873: x_oin_rec.program_application_id := l_oin_rec.program_application_id;
2874: END IF;
2875: IF (x_oin_rec.program_id = OKC_API.G_MISS_NUM)
2876: THEN
2877: x_oin_rec.program_id := l_oin_rec.program_id;
2878: END IF;
2879: IF (x_oin_rec.program_update_date = OKC_API.G_MISS_DATE)
2875: IF (x_oin_rec.program_id = OKC_API.G_MISS_NUM)
2876: THEN
2877: x_oin_rec.program_id := l_oin_rec.program_id;
2878: END IF;
2879: IF (x_oin_rec.program_update_date = OKC_API.G_MISS_DATE)
2880: THEN
2881: x_oin_rec.program_update_date := l_oin_rec.program_update_date;
2882: END IF;
2883: IF (x_oin_rec.attribute_category = OKC_API.G_MISS_CHAR)
2879: IF (x_oin_rec.program_update_date = OKC_API.G_MISS_DATE)
2880: THEN
2881: x_oin_rec.program_update_date := l_oin_rec.program_update_date;
2882: END IF;
2883: IF (x_oin_rec.attribute_category = OKC_API.G_MISS_CHAR)
2884: THEN
2885: x_oin_rec.attribute_category := l_oin_rec.attribute_category;
2886: END IF;
2887: IF (x_oin_rec.attribute1 = OKC_API.G_MISS_CHAR)
2883: IF (x_oin_rec.attribute_category = OKC_API.G_MISS_CHAR)
2884: THEN
2885: x_oin_rec.attribute_category := l_oin_rec.attribute_category;
2886: END IF;
2887: IF (x_oin_rec.attribute1 = OKC_API.G_MISS_CHAR)
2888: THEN
2889: x_oin_rec.attribute1 := l_oin_rec.attribute1;
2890: END IF;
2891: IF (x_oin_rec.attribute2 = OKC_API.G_MISS_CHAR)
2887: IF (x_oin_rec.attribute1 = OKC_API.G_MISS_CHAR)
2888: THEN
2889: x_oin_rec.attribute1 := l_oin_rec.attribute1;
2890: END IF;
2891: IF (x_oin_rec.attribute2 = OKC_API.G_MISS_CHAR)
2892: THEN
2893: x_oin_rec.attribute2 := l_oin_rec.attribute2;
2894: END IF;
2895: IF (x_oin_rec.attribute3 = OKC_API.G_MISS_CHAR)
2891: IF (x_oin_rec.attribute2 = OKC_API.G_MISS_CHAR)
2892: THEN
2893: x_oin_rec.attribute2 := l_oin_rec.attribute2;
2894: END IF;
2895: IF (x_oin_rec.attribute3 = OKC_API.G_MISS_CHAR)
2896: THEN
2897: x_oin_rec.attribute3 := l_oin_rec.attribute3;
2898: END IF;
2899: IF (x_oin_rec.attribute4 = OKC_API.G_MISS_CHAR)
2895: IF (x_oin_rec.attribute3 = OKC_API.G_MISS_CHAR)
2896: THEN
2897: x_oin_rec.attribute3 := l_oin_rec.attribute3;
2898: END IF;
2899: IF (x_oin_rec.attribute4 = OKC_API.G_MISS_CHAR)
2900: THEN
2901: x_oin_rec.attribute4 := l_oin_rec.attribute4;
2902: END IF;
2903: IF (x_oin_rec.attribute5 = OKC_API.G_MISS_CHAR)
2899: IF (x_oin_rec.attribute4 = OKC_API.G_MISS_CHAR)
2900: THEN
2901: x_oin_rec.attribute4 := l_oin_rec.attribute4;
2902: END IF;
2903: IF (x_oin_rec.attribute5 = OKC_API.G_MISS_CHAR)
2904: THEN
2905: x_oin_rec.attribute5 := l_oin_rec.attribute5;
2906: END IF;
2907: IF (x_oin_rec.attribute6 = OKC_API.G_MISS_CHAR)
2903: IF (x_oin_rec.attribute5 = OKC_API.G_MISS_CHAR)
2904: THEN
2905: x_oin_rec.attribute5 := l_oin_rec.attribute5;
2906: END IF;
2907: IF (x_oin_rec.attribute6 = OKC_API.G_MISS_CHAR)
2908: THEN
2909: x_oin_rec.attribute6 := l_oin_rec.attribute6;
2910: END IF;
2911: IF (x_oin_rec.attribute7 = OKC_API.G_MISS_CHAR)
2907: IF (x_oin_rec.attribute6 = OKC_API.G_MISS_CHAR)
2908: THEN
2909: x_oin_rec.attribute6 := l_oin_rec.attribute6;
2910: END IF;
2911: IF (x_oin_rec.attribute7 = OKC_API.G_MISS_CHAR)
2912: THEN
2913: x_oin_rec.attribute7 := l_oin_rec.attribute7;
2914: END IF;
2915: IF (x_oin_rec.attribute8 = OKC_API.G_MISS_CHAR)
2911: IF (x_oin_rec.attribute7 = OKC_API.G_MISS_CHAR)
2912: THEN
2913: x_oin_rec.attribute7 := l_oin_rec.attribute7;
2914: END IF;
2915: IF (x_oin_rec.attribute8 = OKC_API.G_MISS_CHAR)
2916: THEN
2917: x_oin_rec.attribute8 := l_oin_rec.attribute8;
2918: END IF;
2919: IF (x_oin_rec.attribute9 = OKC_API.G_MISS_CHAR)
2915: IF (x_oin_rec.attribute8 = OKC_API.G_MISS_CHAR)
2916: THEN
2917: x_oin_rec.attribute8 := l_oin_rec.attribute8;
2918: END IF;
2919: IF (x_oin_rec.attribute9 = OKC_API.G_MISS_CHAR)
2920: THEN
2921: x_oin_rec.attribute9 := l_oin_rec.attribute9;
2922: END IF;
2923: IF (x_oin_rec.attribute10 = OKC_API.G_MISS_CHAR)
2919: IF (x_oin_rec.attribute9 = OKC_API.G_MISS_CHAR)
2920: THEN
2921: x_oin_rec.attribute9 := l_oin_rec.attribute9;
2922: END IF;
2923: IF (x_oin_rec.attribute10 = OKC_API.G_MISS_CHAR)
2924: THEN
2925: x_oin_rec.attribute10 := l_oin_rec.attribute10;
2926: END IF;
2927: IF (x_oin_rec.attribute11 = OKC_API.G_MISS_CHAR)
2923: IF (x_oin_rec.attribute10 = OKC_API.G_MISS_CHAR)
2924: THEN
2925: x_oin_rec.attribute10 := l_oin_rec.attribute10;
2926: END IF;
2927: IF (x_oin_rec.attribute11 = OKC_API.G_MISS_CHAR)
2928: THEN
2929: x_oin_rec.attribute11 := l_oin_rec.attribute11;
2930: END IF;
2931: IF (x_oin_rec.attribute12 = OKC_API.G_MISS_CHAR)
2927: IF (x_oin_rec.attribute11 = OKC_API.G_MISS_CHAR)
2928: THEN
2929: x_oin_rec.attribute11 := l_oin_rec.attribute11;
2930: END IF;
2931: IF (x_oin_rec.attribute12 = OKC_API.G_MISS_CHAR)
2932: THEN
2933: x_oin_rec.attribute12 := l_oin_rec.attribute12;
2934: END IF;
2935: IF (x_oin_rec.attribute13 = OKC_API.G_MISS_CHAR)
2931: IF (x_oin_rec.attribute12 = OKC_API.G_MISS_CHAR)
2932: THEN
2933: x_oin_rec.attribute12 := l_oin_rec.attribute12;
2934: END IF;
2935: IF (x_oin_rec.attribute13 = OKC_API.G_MISS_CHAR)
2936: THEN
2937: x_oin_rec.attribute13 := l_oin_rec.attribute13;
2938: END IF;
2939: IF (x_oin_rec.attribute14 = OKC_API.G_MISS_CHAR)
2935: IF (x_oin_rec.attribute13 = OKC_API.G_MISS_CHAR)
2936: THEN
2937: x_oin_rec.attribute13 := l_oin_rec.attribute13;
2938: END IF;
2939: IF (x_oin_rec.attribute14 = OKC_API.G_MISS_CHAR)
2940: THEN
2941: x_oin_rec.attribute14 := l_oin_rec.attribute14;
2942: END IF;
2943: IF (x_oin_rec.attribute15 = OKC_API.G_MISS_CHAR)
2939: IF (x_oin_rec.attribute14 = OKC_API.G_MISS_CHAR)
2940: THEN
2941: x_oin_rec.attribute14 := l_oin_rec.attribute14;
2942: END IF;
2943: IF (x_oin_rec.attribute15 = OKC_API.G_MISS_CHAR)
2944: THEN
2945: x_oin_rec.attribute15 := l_oin_rec.attribute15;
2946: END IF;
2947: IF (x_oin_rec.created_by = OKC_API.G_MISS_NUM)
2943: IF (x_oin_rec.attribute15 = OKC_API.G_MISS_CHAR)
2944: THEN
2945: x_oin_rec.attribute15 := l_oin_rec.attribute15;
2946: END IF;
2947: IF (x_oin_rec.created_by = OKC_API.G_MISS_NUM)
2948: THEN
2949: x_oin_rec.created_by := l_oin_rec.created_by;
2950: END IF;
2951: IF (x_oin_rec.creation_date = OKC_API.G_MISS_DATE)
2947: IF (x_oin_rec.created_by = OKC_API.G_MISS_NUM)
2948: THEN
2949: x_oin_rec.created_by := l_oin_rec.created_by;
2950: END IF;
2951: IF (x_oin_rec.creation_date = OKC_API.G_MISS_DATE)
2952: THEN
2953: x_oin_rec.creation_date := l_oin_rec.creation_date;
2954: END IF;
2955: IF (x_oin_rec.last_updated_by = OKC_API.G_MISS_NUM)
2951: IF (x_oin_rec.creation_date = OKC_API.G_MISS_DATE)
2952: THEN
2953: x_oin_rec.creation_date := l_oin_rec.creation_date;
2954: END IF;
2955: IF (x_oin_rec.last_updated_by = OKC_API.G_MISS_NUM)
2956: THEN
2957: x_oin_rec.last_updated_by := l_oin_rec.last_updated_by;
2958: END IF;
2959: IF (x_oin_rec.last_update_date = OKC_API.G_MISS_DATE)
2955: IF (x_oin_rec.last_updated_by = OKC_API.G_MISS_NUM)
2956: THEN
2957: x_oin_rec.last_updated_by := l_oin_rec.last_updated_by;
2958: END IF;
2959: IF (x_oin_rec.last_update_date = OKC_API.G_MISS_DATE)
2960: THEN
2961: x_oin_rec.last_update_date := l_oin_rec.last_update_date;
2962: END IF;
2963: IF (x_oin_rec.last_update_login = OKC_API.G_MISS_NUM)
2959: IF (x_oin_rec.last_update_date = OKC_API.G_MISS_DATE)
2960: THEN
2961: x_oin_rec.last_update_date := l_oin_rec.last_update_date;
2962: END IF;
2963: IF (x_oin_rec.last_update_login = OKC_API.G_MISS_NUM)
2964: THEN
2965: x_oin_rec.last_update_login := l_oin_rec.last_update_login;
2966: END IF;
2967: END IF;
2973: FUNCTION Set_Attributes (
2974: p_oin_rec IN oin_rec_type,
2975: x_oin_rec OUT NOCOPY oin_rec_type
2976: ) RETURN VARCHAR2 AS
2977: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2978: BEGIN
2979: x_oin_rec := p_oin_rec;
2980: x_oin_rec.OBJECT_VERSION_NUMBER := p_oin_rec.OBJECT_VERSION_NUMBER + 1;
2981: RETURN(l_return_status);
2980: x_oin_rec.OBJECT_VERSION_NUMBER := p_oin_rec.OBJECT_VERSION_NUMBER + 1;
2981: RETURN(l_return_status);
2982: END Set_Attributes;
2983: BEGIN
2984: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2985: p_init_msg_list,
2986: '_PVT',
2987: x_return_status);
2988: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2984: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2985: p_init_msg_list,
2986: '_PVT',
2987: x_return_status);
2988: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2989: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2990: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2991: RAISE OKC_API.G_EXCEPTION_ERROR;
2992: END IF;
2985: p_init_msg_list,
2986: '_PVT',
2987: x_return_status);
2988: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2989: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2990: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2991: RAISE OKC_API.G_EXCEPTION_ERROR;
2992: END IF;
2993: --- Setting item attributes
2986: '_PVT',
2987: x_return_status);
2988: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2989: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2990: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2991: RAISE OKC_API.G_EXCEPTION_ERROR;
2992: END IF;
2993: --- Setting item attributes
2994: l_return_status := Set_Attributes(
2987: x_return_status);
2988: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2989: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2990: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2991: RAISE OKC_API.G_EXCEPTION_ERROR;
2992: END IF;
2993: --- Setting item attributes
2994: l_return_status := Set_Attributes(
2995: p_oin_rec, -- IN
2994: l_return_status := Set_Attributes(
2995: p_oin_rec, -- IN
2996: l_oin_rec); -- OUT
2997: --- If any errors happen abort API
2998: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2999: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3000: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3001: RAISE OKC_API.G_EXCEPTION_ERROR;
3002: END IF;
2995: p_oin_rec, -- IN
2996: l_oin_rec); -- OUT
2997: --- If any errors happen abort API
2998: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2999: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3000: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3001: RAISE OKC_API.G_EXCEPTION_ERROR;
3002: END IF;
3003: l_return_status := populate_new_record(l_oin_rec, l_def_oin_rec);
2996: l_oin_rec); -- OUT
2997: --- If any errors happen abort API
2998: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2999: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3000: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3001: RAISE OKC_API.G_EXCEPTION_ERROR;
3002: END IF;
3003: l_return_status := populate_new_record(l_oin_rec, l_def_oin_rec);
3004: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2997: --- If any errors happen abort API
2998: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2999: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3000: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3001: RAISE OKC_API.G_EXCEPTION_ERROR;
3002: END IF;
3003: l_return_status := populate_new_record(l_oin_rec, l_def_oin_rec);
3004: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3005: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3000: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3001: RAISE OKC_API.G_EXCEPTION_ERROR;
3002: END IF;
3003: l_return_status := populate_new_record(l_oin_rec, l_def_oin_rec);
3004: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3005: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3006: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3007: RAISE OKC_API.G_EXCEPTION_ERROR;
3008: END IF;
3001: RAISE OKC_API.G_EXCEPTION_ERROR;
3002: END IF;
3003: l_return_status := populate_new_record(l_oin_rec, l_def_oin_rec);
3004: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3005: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3006: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3007: RAISE OKC_API.G_EXCEPTION_ERROR;
3008: END IF;
3009: UPDATE OKL_OPEN_INT
3002: END IF;
3003: l_return_status := populate_new_record(l_oin_rec, l_def_oin_rec);
3004: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3005: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3006: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3007: RAISE OKC_API.G_EXCEPTION_ERROR;
3008: END IF;
3009: UPDATE OKL_OPEN_INT
3010: SET PARTY_ID = l_def_oin_rec.party_id,
3003: l_return_status := populate_new_record(l_oin_rec, l_def_oin_rec);
3004: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3005: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3006: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3007: RAISE OKC_API.G_EXCEPTION_ERROR;
3008: END IF;
3009: UPDATE OKL_OPEN_INT
3010: SET PARTY_ID = l_def_oin_rec.party_id,
3011: PARTY_NAME = l_def_oin_rec.party_name,
3091: WHERE ID = l_def_oin_rec.id;
3092:
3093: x_oin_rec := l_oin_rec;
3094: x_return_status := l_return_status;
3095: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3096: EXCEPTION
3097: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3098: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3099: (
3093: x_oin_rec := l_oin_rec;
3094: x_return_status := l_return_status;
3095: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3096: EXCEPTION
3097: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3098: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3099: (
3100: l_api_name,
3101: G_PKG_NAME,
3094: x_return_status := l_return_status;
3095: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3096: EXCEPTION
3097: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3098: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3099: (
3100: l_api_name,
3101: G_PKG_NAME,
3102: 'OKC_API.G_RET_STS_ERROR',
3098: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3099: (
3100: l_api_name,
3101: G_PKG_NAME,
3102: 'OKC_API.G_RET_STS_ERROR',
3103: x_msg_count,
3104: x_msg_data,
3105: '_PVT'
3106: );
3103: x_msg_count,
3104: x_msg_data,
3105: '_PVT'
3106: );
3107: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3108: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3109: (
3110: l_api_name,
3111: G_PKG_NAME,
3104: x_msg_data,
3105: '_PVT'
3106: );
3107: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3108: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3109: (
3110: l_api_name,
3111: G_PKG_NAME,
3112: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3108: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3109: (
3110: l_api_name,
3111: G_PKG_NAME,
3112: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3113: x_msg_count,
3114: x_msg_data,
3115: '_PVT'
3116: );
3114: x_msg_data,
3115: '_PVT'
3116: );
3117: WHEN OTHERS THEN
3118: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3119: (
3120: l_api_name,
3121: G_PKG_NAME,
3122: 'OTHERS',
3129: -- update_row for:OKL_OPEN_INT_V --
3130: -----------------------------------
3131: PROCEDURE update_row(
3132: p_api_version IN NUMBER,
3133: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3134: x_return_status OUT NOCOPY VARCHAR2,
3135: x_msg_count OUT NOCOPY NUMBER,
3136: x_msg_data OUT NOCOPY VARCHAR2,
3137: p_oinv_rec IN oinv_rec_type,
3138: x_oinv_rec OUT NOCOPY oinv_rec_type) AS
3139:
3140: l_api_version CONSTANT NUMBER := 1;
3141: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
3142: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3143: l_oinv_rec oinv_rec_type := p_oinv_rec;
3144: l_def_oinv_rec oinv_rec_type;
3145: l_db_oinv_rec oinv_rec_type;
3146: l_oin_rec oin_rec_type;
3165: p_oinv_rec IN oinv_rec_type,
3166: x_oinv_rec OUT NOCOPY oinv_rec_type
3167: ) RETURN VARCHAR2 AS
3168: l_row_notfound BOOLEAN := TRUE;
3169: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3170: BEGIN
3171: x_oinv_rec := p_oinv_rec;
3172: -- Get current database values
3173: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
3172: -- Get current database values
3173: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
3174: -- so it may be verified through LOCK_ROW.
3175: l_db_oinv_rec := get_rec(p_oinv_rec, l_return_status);
3176: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
3177: IF (x_oinv_rec.id = OKC_API.G_MISS_NUM)
3178: THEN
3179: x_oinv_rec.id := l_db_oinv_rec.id;
3180: END IF;
3173: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
3174: -- so it may be verified through LOCK_ROW.
3175: l_db_oinv_rec := get_rec(p_oinv_rec, l_return_status);
3176: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
3177: IF (x_oinv_rec.id = OKC_API.G_MISS_NUM)
3178: THEN
3179: x_oinv_rec.id := l_db_oinv_rec.id;
3180: END IF;
3181: IF (x_oinv_rec.party_id = OKC_API.G_MISS_NUM)
3177: IF (x_oinv_rec.id = OKC_API.G_MISS_NUM)
3178: THEN
3179: x_oinv_rec.id := l_db_oinv_rec.id;
3180: END IF;
3181: IF (x_oinv_rec.party_id = OKC_API.G_MISS_NUM)
3182: THEN
3183: x_oinv_rec.party_id := l_db_oinv_rec.party_id;
3184: END IF;
3185: IF (x_oinv_rec.party_name = OKC_API.G_MISS_CHAR)
3181: IF (x_oinv_rec.party_id = OKC_API.G_MISS_NUM)
3182: THEN
3183: x_oinv_rec.party_id := l_db_oinv_rec.party_id;
3184: END IF;
3185: IF (x_oinv_rec.party_name = OKC_API.G_MISS_CHAR)
3186: THEN
3187: x_oinv_rec.party_name := l_db_oinv_rec.party_name;
3188: END IF;
3189: IF (x_oinv_rec.party_type = OKC_API.G_MISS_CHAR)
3185: IF (x_oinv_rec.party_name = OKC_API.G_MISS_CHAR)
3186: THEN
3187: x_oinv_rec.party_name := l_db_oinv_rec.party_name;
3188: END IF;
3189: IF (x_oinv_rec.party_type = OKC_API.G_MISS_CHAR)
3190: THEN
3191: x_oinv_rec.party_type := l_db_oinv_rec.party_type;
3192: END IF;
3193: IF (x_oinv_rec.date_of_birth = OKC_API.G_MISS_DATE)
3189: IF (x_oinv_rec.party_type = OKC_API.G_MISS_CHAR)
3190: THEN
3191: x_oinv_rec.party_type := l_db_oinv_rec.party_type;
3192: END IF;
3193: IF (x_oinv_rec.date_of_birth = OKC_API.G_MISS_DATE)
3194: THEN
3195: x_oinv_rec.date_of_birth := l_db_oinv_rec.date_of_birth;
3196: END IF;
3197: IF (x_oinv_rec.place_of_birth = OKC_API.G_MISS_CHAR)
3193: IF (x_oinv_rec.date_of_birth = OKC_API.G_MISS_DATE)
3194: THEN
3195: x_oinv_rec.date_of_birth := l_db_oinv_rec.date_of_birth;
3196: END IF;
3197: IF (x_oinv_rec.place_of_birth = OKC_API.G_MISS_CHAR)
3198: THEN
3199: x_oinv_rec.place_of_birth := l_db_oinv_rec.place_of_birth;
3200: END IF;
3201: IF (x_oinv_rec.person_identifier = OKC_API.G_MISS_CHAR)
3197: IF (x_oinv_rec.place_of_birth = OKC_API.G_MISS_CHAR)
3198: THEN
3199: x_oinv_rec.place_of_birth := l_db_oinv_rec.place_of_birth;
3200: END IF;
3201: IF (x_oinv_rec.person_identifier = OKC_API.G_MISS_CHAR)
3202: THEN
3203: x_oinv_rec.person_identifier := l_db_oinv_rec.person_identifier;
3204: END IF;
3205: IF (x_oinv_rec.person_iden_type = OKC_API.G_MISS_CHAR)
3201: IF (x_oinv_rec.person_identifier = OKC_API.G_MISS_CHAR)
3202: THEN
3203: x_oinv_rec.person_identifier := l_db_oinv_rec.person_identifier;
3204: END IF;
3205: IF (x_oinv_rec.person_iden_type = OKC_API.G_MISS_CHAR)
3206: THEN
3207: x_oinv_rec.person_iden_type := l_db_oinv_rec.person_iden_type;
3208: END IF;
3209: IF (x_oinv_rec.country = OKC_API.G_MISS_CHAR)
3205: IF (x_oinv_rec.person_iden_type = OKC_API.G_MISS_CHAR)
3206: THEN
3207: x_oinv_rec.person_iden_type := l_db_oinv_rec.person_iden_type;
3208: END IF;
3209: IF (x_oinv_rec.country = OKC_API.G_MISS_CHAR)
3210: THEN
3211: x_oinv_rec.country := l_db_oinv_rec.country;
3212: END IF;
3213: IF (x_oinv_rec.address1 = OKC_API.G_MISS_CHAR)
3209: IF (x_oinv_rec.country = OKC_API.G_MISS_CHAR)
3210: THEN
3211: x_oinv_rec.country := l_db_oinv_rec.country;
3212: END IF;
3213: IF (x_oinv_rec.address1 = OKC_API.G_MISS_CHAR)
3214: THEN
3215: x_oinv_rec.address1 := l_db_oinv_rec.address1;
3216: END IF;
3217: IF (x_oinv_rec.address2 = OKC_API.G_MISS_CHAR)
3213: IF (x_oinv_rec.address1 = OKC_API.G_MISS_CHAR)
3214: THEN
3215: x_oinv_rec.address1 := l_db_oinv_rec.address1;
3216: END IF;
3217: IF (x_oinv_rec.address2 = OKC_API.G_MISS_CHAR)
3218: THEN
3219: x_oinv_rec.address2 := l_db_oinv_rec.address2;
3220: END IF;
3221: IF (x_oinv_rec.address3 = OKC_API.G_MISS_CHAR)
3217: IF (x_oinv_rec.address2 = OKC_API.G_MISS_CHAR)
3218: THEN
3219: x_oinv_rec.address2 := l_db_oinv_rec.address2;
3220: END IF;
3221: IF (x_oinv_rec.address3 = OKC_API.G_MISS_CHAR)
3222: THEN
3223: x_oinv_rec.address3 := l_db_oinv_rec.address3;
3224: END IF;
3225: IF (x_oinv_rec.address4 = OKC_API.G_MISS_CHAR)
3221: IF (x_oinv_rec.address3 = OKC_API.G_MISS_CHAR)
3222: THEN
3223: x_oinv_rec.address3 := l_db_oinv_rec.address3;
3224: END IF;
3225: IF (x_oinv_rec.address4 = OKC_API.G_MISS_CHAR)
3226: THEN
3227: x_oinv_rec.address4 := l_db_oinv_rec.address4;
3228: END IF;
3229: IF (x_oinv_rec.city = OKC_API.G_MISS_CHAR)
3225: IF (x_oinv_rec.address4 = OKC_API.G_MISS_CHAR)
3226: THEN
3227: x_oinv_rec.address4 := l_db_oinv_rec.address4;
3228: END IF;
3229: IF (x_oinv_rec.city = OKC_API.G_MISS_CHAR)
3230: THEN
3231: x_oinv_rec.city := l_db_oinv_rec.city;
3232: END IF;
3233: IF (x_oinv_rec.postal_code = OKC_API.G_MISS_CHAR)
3229: IF (x_oinv_rec.city = OKC_API.G_MISS_CHAR)
3230: THEN
3231: x_oinv_rec.city := l_db_oinv_rec.city;
3232: END IF;
3233: IF (x_oinv_rec.postal_code = OKC_API.G_MISS_CHAR)
3234: THEN
3235: x_oinv_rec.postal_code := l_db_oinv_rec.postal_code;
3236: END IF;
3237: IF (x_oinv_rec.state = OKC_API.G_MISS_CHAR)
3233: IF (x_oinv_rec.postal_code = OKC_API.G_MISS_CHAR)
3234: THEN
3235: x_oinv_rec.postal_code := l_db_oinv_rec.postal_code;
3236: END IF;
3237: IF (x_oinv_rec.state = OKC_API.G_MISS_CHAR)
3238: THEN
3239: x_oinv_rec.state := l_db_oinv_rec.state;
3240: END IF;
3241: IF (x_oinv_rec.province = OKC_API.G_MISS_CHAR)
3237: IF (x_oinv_rec.state = OKC_API.G_MISS_CHAR)
3238: THEN
3239: x_oinv_rec.state := l_db_oinv_rec.state;
3240: END IF;
3241: IF (x_oinv_rec.province = OKC_API.G_MISS_CHAR)
3242: THEN
3243: x_oinv_rec.province := l_db_oinv_rec.province;
3244: END IF;
3245: IF (x_oinv_rec.county = OKC_API.G_MISS_CHAR)
3241: IF (x_oinv_rec.province = OKC_API.G_MISS_CHAR)
3242: THEN
3243: x_oinv_rec.province := l_db_oinv_rec.province;
3244: END IF;
3245: IF (x_oinv_rec.county = OKC_API.G_MISS_CHAR)
3246: THEN
3247: x_oinv_rec.county := l_db_oinv_rec.county;
3248: END IF;
3249: IF (x_oinv_rec.po_box_number = OKC_API.G_MISS_CHAR)
3245: IF (x_oinv_rec.county = OKC_API.G_MISS_CHAR)
3246: THEN
3247: x_oinv_rec.county := l_db_oinv_rec.county;
3248: END IF;
3249: IF (x_oinv_rec.po_box_number = OKC_API.G_MISS_CHAR)
3250: THEN
3251: x_oinv_rec.po_box_number := l_db_oinv_rec.po_box_number;
3252: END IF;
3253: IF (x_oinv_rec.house_number = OKC_API.G_MISS_CHAR)
3249: IF (x_oinv_rec.po_box_number = OKC_API.G_MISS_CHAR)
3250: THEN
3251: x_oinv_rec.po_box_number := l_db_oinv_rec.po_box_number;
3252: END IF;
3253: IF (x_oinv_rec.house_number = OKC_API.G_MISS_CHAR)
3254: THEN
3255: x_oinv_rec.house_number := l_db_oinv_rec.house_number;
3256: END IF;
3257: IF (x_oinv_rec.street_suffix = OKC_API.G_MISS_CHAR)
3253: IF (x_oinv_rec.house_number = OKC_API.G_MISS_CHAR)
3254: THEN
3255: x_oinv_rec.house_number := l_db_oinv_rec.house_number;
3256: END IF;
3257: IF (x_oinv_rec.street_suffix = OKC_API.G_MISS_CHAR)
3258: THEN
3259: x_oinv_rec.street_suffix := l_db_oinv_rec.street_suffix;
3260: END IF;
3261: IF (x_oinv_rec.apartment_number = OKC_API.G_MISS_CHAR)
3257: IF (x_oinv_rec.street_suffix = OKC_API.G_MISS_CHAR)
3258: THEN
3259: x_oinv_rec.street_suffix := l_db_oinv_rec.street_suffix;
3260: END IF;
3261: IF (x_oinv_rec.apartment_number = OKC_API.G_MISS_CHAR)
3262: THEN
3263: x_oinv_rec.apartment_number := l_db_oinv_rec.apartment_number;
3264: END IF;
3265: IF (x_oinv_rec.street = OKC_API.G_MISS_CHAR)
3261: IF (x_oinv_rec.apartment_number = OKC_API.G_MISS_CHAR)
3262: THEN
3263: x_oinv_rec.apartment_number := l_db_oinv_rec.apartment_number;
3264: END IF;
3265: IF (x_oinv_rec.street = OKC_API.G_MISS_CHAR)
3266: THEN
3267: x_oinv_rec.street := l_db_oinv_rec.street;
3268: END IF;
3269: IF (x_oinv_rec.rural_route_number = OKC_API.G_MISS_CHAR)
3265: IF (x_oinv_rec.street = OKC_API.G_MISS_CHAR)
3266: THEN
3267: x_oinv_rec.street := l_db_oinv_rec.street;
3268: END IF;
3269: IF (x_oinv_rec.rural_route_number = OKC_API.G_MISS_CHAR)
3270: THEN
3271: x_oinv_rec.rural_route_number := l_db_oinv_rec.rural_route_number;
3272: END IF;
3273: IF (x_oinv_rec.street_number = OKC_API.G_MISS_CHAR)
3269: IF (x_oinv_rec.rural_route_number = OKC_API.G_MISS_CHAR)
3270: THEN
3271: x_oinv_rec.rural_route_number := l_db_oinv_rec.rural_route_number;
3272: END IF;
3273: IF (x_oinv_rec.street_number = OKC_API.G_MISS_CHAR)
3274: THEN
3275: x_oinv_rec.street_number := l_db_oinv_rec.street_number;
3276: END IF;
3277: IF (x_oinv_rec.building = OKC_API.G_MISS_CHAR)
3273: IF (x_oinv_rec.street_number = OKC_API.G_MISS_CHAR)
3274: THEN
3275: x_oinv_rec.street_number := l_db_oinv_rec.street_number;
3276: END IF;
3277: IF (x_oinv_rec.building = OKC_API.G_MISS_CHAR)
3278: THEN
3279: x_oinv_rec.building := l_db_oinv_rec.building;
3280: END IF;
3281: IF (x_oinv_rec.floor = OKC_API.G_MISS_CHAR)
3277: IF (x_oinv_rec.building = OKC_API.G_MISS_CHAR)
3278: THEN
3279: x_oinv_rec.building := l_db_oinv_rec.building;
3280: END IF;
3281: IF (x_oinv_rec.floor = OKC_API.G_MISS_CHAR)
3282: THEN
3283: x_oinv_rec.floor := l_db_oinv_rec.floor;
3284: END IF;
3285: IF (x_oinv_rec.suite = OKC_API.G_MISS_CHAR)
3281: IF (x_oinv_rec.floor = OKC_API.G_MISS_CHAR)
3282: THEN
3283: x_oinv_rec.floor := l_db_oinv_rec.floor;
3284: END IF;
3285: IF (x_oinv_rec.suite = OKC_API.G_MISS_CHAR)
3286: THEN
3287: x_oinv_rec.suite := l_db_oinv_rec.suite;
3288: END IF;
3289: IF (x_oinv_rec.room = OKC_API.G_MISS_CHAR)
3285: IF (x_oinv_rec.suite = OKC_API.G_MISS_CHAR)
3286: THEN
3287: x_oinv_rec.suite := l_db_oinv_rec.suite;
3288: END IF;
3289: IF (x_oinv_rec.room = OKC_API.G_MISS_CHAR)
3290: THEN
3291: x_oinv_rec.room := l_db_oinv_rec.room;
3292: END IF;
3293: IF (x_oinv_rec.postal_plus4_code = OKC_API.G_MISS_CHAR)
3289: IF (x_oinv_rec.room = OKC_API.G_MISS_CHAR)
3290: THEN
3291: x_oinv_rec.room := l_db_oinv_rec.room;
3292: END IF;
3293: IF (x_oinv_rec.postal_plus4_code = OKC_API.G_MISS_CHAR)
3294: THEN
3295: x_oinv_rec.postal_plus4_code := l_db_oinv_rec.postal_plus4_code;
3296: END IF;
3297: IF (x_oinv_rec.cas_id = OKC_API.G_MISS_NUM)
3293: IF (x_oinv_rec.postal_plus4_code = OKC_API.G_MISS_CHAR)
3294: THEN
3295: x_oinv_rec.postal_plus4_code := l_db_oinv_rec.postal_plus4_code;
3296: END IF;
3297: IF (x_oinv_rec.cas_id = OKC_API.G_MISS_NUM)
3298: THEN
3299: x_oinv_rec.cas_id := l_db_oinv_rec.cas_id;
3300: END IF;
3301: IF (x_oinv_rec.case_number = OKC_API.G_MISS_CHAR)
3297: IF (x_oinv_rec.cas_id = OKC_API.G_MISS_NUM)
3298: THEN
3299: x_oinv_rec.cas_id := l_db_oinv_rec.cas_id;
3300: END IF;
3301: IF (x_oinv_rec.case_number = OKC_API.G_MISS_CHAR)
3302: THEN
3303: x_oinv_rec.case_number := l_db_oinv_rec.case_number;
3304: END IF;
3305: IF (x_oinv_rec.khr_id = OKC_API.G_MISS_NUM)
3301: IF (x_oinv_rec.case_number = OKC_API.G_MISS_CHAR)
3302: THEN
3303: x_oinv_rec.case_number := l_db_oinv_rec.case_number;
3304: END IF;
3305: IF (x_oinv_rec.khr_id = OKC_API.G_MISS_NUM)
3306: THEN
3307: x_oinv_rec.khr_id := l_db_oinv_rec.khr_id;
3308: END IF;
3309: IF (x_oinv_rec.contract_number = OKC_API.G_MISS_CHAR)
3305: IF (x_oinv_rec.khr_id = OKC_API.G_MISS_NUM)
3306: THEN
3307: x_oinv_rec.khr_id := l_db_oinv_rec.khr_id;
3308: END IF;
3309: IF (x_oinv_rec.contract_number = OKC_API.G_MISS_CHAR)
3310: THEN
3311: x_oinv_rec.contract_number := l_db_oinv_rec.contract_number;
3312: END IF;
3313: IF (x_oinv_rec.contract_type = OKC_API.G_MISS_CHAR)
3309: IF (x_oinv_rec.contract_number = OKC_API.G_MISS_CHAR)
3310: THEN
3311: x_oinv_rec.contract_number := l_db_oinv_rec.contract_number;
3312: END IF;
3313: IF (x_oinv_rec.contract_type = OKC_API.G_MISS_CHAR)
3314: THEN
3315: x_oinv_rec.contract_type := l_db_oinv_rec.contract_type;
3316: END IF;
3317: IF (x_oinv_rec.contract_status = OKC_API.G_MISS_CHAR)
3313: IF (x_oinv_rec.contract_type = OKC_API.G_MISS_CHAR)
3314: THEN
3315: x_oinv_rec.contract_type := l_db_oinv_rec.contract_type;
3316: END IF;
3317: IF (x_oinv_rec.contract_status = OKC_API.G_MISS_CHAR)
3318: THEN
3319: x_oinv_rec.contract_status := l_db_oinv_rec.contract_status;
3320: END IF;
3321: IF (x_oinv_rec.original_amount = OKC_API.G_MISS_NUM)
3317: IF (x_oinv_rec.contract_status = OKC_API.G_MISS_CHAR)
3318: THEN
3319: x_oinv_rec.contract_status := l_db_oinv_rec.contract_status;
3320: END IF;
3321: IF (x_oinv_rec.original_amount = OKC_API.G_MISS_NUM)
3322: THEN
3323: x_oinv_rec.original_amount := l_db_oinv_rec.original_amount;
3324: END IF;
3325: IF (x_oinv_rec.start_date = OKC_API.G_MISS_DATE)
3321: IF (x_oinv_rec.original_amount = OKC_API.G_MISS_NUM)
3322: THEN
3323: x_oinv_rec.original_amount := l_db_oinv_rec.original_amount;
3324: END IF;
3325: IF (x_oinv_rec.start_date = OKC_API.G_MISS_DATE)
3326: THEN
3327: x_oinv_rec.start_date := l_db_oinv_rec.start_date;
3328: END IF;
3329: IF (x_oinv_rec.close_date = OKC_API.G_MISS_DATE)
3325: IF (x_oinv_rec.start_date = OKC_API.G_MISS_DATE)
3326: THEN
3327: x_oinv_rec.start_date := l_db_oinv_rec.start_date;
3328: END IF;
3329: IF (x_oinv_rec.close_date = OKC_API.G_MISS_DATE)
3330: THEN
3331: x_oinv_rec.close_date := l_db_oinv_rec.close_date;
3332: END IF;
3333: IF (x_oinv_rec.term_duration = OKC_API.G_MISS_NUM)
3329: IF (x_oinv_rec.close_date = OKC_API.G_MISS_DATE)
3330: THEN
3331: x_oinv_rec.close_date := l_db_oinv_rec.close_date;
3332: END IF;
3333: IF (x_oinv_rec.term_duration = OKC_API.G_MISS_NUM)
3334: THEN
3335: x_oinv_rec.term_duration := l_db_oinv_rec.term_duration;
3336: END IF;
3337: IF (x_oinv_rec.monthly_payment_amount = OKC_API.G_MISS_NUM)
3333: IF (x_oinv_rec.term_duration = OKC_API.G_MISS_NUM)
3334: THEN
3335: x_oinv_rec.term_duration := l_db_oinv_rec.term_duration;
3336: END IF;
3337: IF (x_oinv_rec.monthly_payment_amount = OKC_API.G_MISS_NUM)
3338: THEN
3339: x_oinv_rec.monthly_payment_amount := l_db_oinv_rec.monthly_payment_amount;
3340: END IF;
3341: IF (x_oinv_rec.last_payment_date = OKC_API.G_MISS_DATE)
3337: IF (x_oinv_rec.monthly_payment_amount = OKC_API.G_MISS_NUM)
3338: THEN
3339: x_oinv_rec.monthly_payment_amount := l_db_oinv_rec.monthly_payment_amount;
3340: END IF;
3341: IF (x_oinv_rec.last_payment_date = OKC_API.G_MISS_DATE)
3342: THEN
3343: x_oinv_rec.last_payment_date := l_db_oinv_rec.last_payment_date;
3344: END IF;
3345: IF (x_oinv_rec.delinquency_occurance_date = OKC_API.G_MISS_DATE)
3341: IF (x_oinv_rec.last_payment_date = OKC_API.G_MISS_DATE)
3342: THEN
3343: x_oinv_rec.last_payment_date := l_db_oinv_rec.last_payment_date;
3344: END IF;
3345: IF (x_oinv_rec.delinquency_occurance_date = OKC_API.G_MISS_DATE)
3346: THEN
3347: x_oinv_rec.delinquency_occurance_date := l_db_oinv_rec.delinquency_occurance_date;
3348: END IF;
3349: IF (x_oinv_rec.past_due_amount = OKC_API.G_MISS_NUM)
3345: IF (x_oinv_rec.delinquency_occurance_date = OKC_API.G_MISS_DATE)
3346: THEN
3347: x_oinv_rec.delinquency_occurance_date := l_db_oinv_rec.delinquency_occurance_date;
3348: END IF;
3349: IF (x_oinv_rec.past_due_amount = OKC_API.G_MISS_NUM)
3350: THEN
3351: x_oinv_rec.past_due_amount := l_db_oinv_rec.past_due_amount;
3352: END IF;
3353: IF (x_oinv_rec.remaining_amount = OKC_API.G_MISS_NUM)
3349: IF (x_oinv_rec.past_due_amount = OKC_API.G_MISS_NUM)
3350: THEN
3351: x_oinv_rec.past_due_amount := l_db_oinv_rec.past_due_amount;
3352: END IF;
3353: IF (x_oinv_rec.remaining_amount = OKC_API.G_MISS_NUM)
3354: THEN
3355: x_oinv_rec.remaining_amount := l_db_oinv_rec.remaining_amount;
3356: END IF;
3357: IF (x_oinv_rec.credit_indicator = OKC_API.G_MISS_CHAR)
3353: IF (x_oinv_rec.remaining_amount = OKC_API.G_MISS_NUM)
3354: THEN
3355: x_oinv_rec.remaining_amount := l_db_oinv_rec.remaining_amount;
3356: END IF;
3357: IF (x_oinv_rec.credit_indicator = OKC_API.G_MISS_CHAR)
3358: THEN
3359: x_oinv_rec.credit_indicator := l_db_oinv_rec.credit_indicator;
3360: END IF;
3361: IF (x_oinv_rec.notification_date = OKC_API.G_MISS_DATE)
3357: IF (x_oinv_rec.credit_indicator = OKC_API.G_MISS_CHAR)
3358: THEN
3359: x_oinv_rec.credit_indicator := l_db_oinv_rec.credit_indicator;
3360: END IF;
3361: IF (x_oinv_rec.notification_date = OKC_API.G_MISS_DATE)
3362: THEN
3363: x_oinv_rec.notification_date := l_db_oinv_rec.notification_date;
3364: END IF;
3365: IF (x_oinv_rec.credit_bureau_report_date = OKC_API.G_MISS_DATE)
3361: IF (x_oinv_rec.notification_date = OKC_API.G_MISS_DATE)
3362: THEN
3363: x_oinv_rec.notification_date := l_db_oinv_rec.notification_date;
3364: END IF;
3365: IF (x_oinv_rec.credit_bureau_report_date = OKC_API.G_MISS_DATE)
3366: THEN
3367: x_oinv_rec.credit_bureau_report_date := l_db_oinv_rec.credit_bureau_report_date;
3368: END IF;
3369: IF (x_oinv_rec.external_agency_transfer_date = OKC_API.G_MISS_DATE)
3365: IF (x_oinv_rec.credit_bureau_report_date = OKC_API.G_MISS_DATE)
3366: THEN
3367: x_oinv_rec.credit_bureau_report_date := l_db_oinv_rec.credit_bureau_report_date;
3368: END IF;
3369: IF (x_oinv_rec.external_agency_transfer_date = OKC_API.G_MISS_DATE)
3370: THEN
3371: x_oinv_rec.external_agency_transfer_date := l_db_oinv_rec.external_agency_transfer_date;
3372: END IF;
3373: IF (x_oinv_rec.external_agency_recall_date = OKC_API.G_MISS_DATE)
3369: IF (x_oinv_rec.external_agency_transfer_date = OKC_API.G_MISS_DATE)
3370: THEN
3371: x_oinv_rec.external_agency_transfer_date := l_db_oinv_rec.external_agency_transfer_date;
3372: END IF;
3373: IF (x_oinv_rec.external_agency_recall_date = OKC_API.G_MISS_DATE)
3374: THEN
3375: x_oinv_rec.external_agency_recall_date := l_db_oinv_rec.external_agency_recall_date;
3376: END IF;
3377: IF (x_oinv_rec.referral_number = OKC_API.G_MISS_NUM)
3373: IF (x_oinv_rec.external_agency_recall_date = OKC_API.G_MISS_DATE)
3374: THEN
3375: x_oinv_rec.external_agency_recall_date := l_db_oinv_rec.external_agency_recall_date;
3376: END IF;
3377: IF (x_oinv_rec.referral_number = OKC_API.G_MISS_NUM)
3378: THEN
3379: x_oinv_rec.referral_number := l_db_oinv_rec.referral_number;
3380: END IF;
3381: IF (x_oinv_rec.contact_id = OKC_API.G_MISS_NUM)
3377: IF (x_oinv_rec.referral_number = OKC_API.G_MISS_NUM)
3378: THEN
3379: x_oinv_rec.referral_number := l_db_oinv_rec.referral_number;
3380: END IF;
3381: IF (x_oinv_rec.contact_id = OKC_API.G_MISS_NUM)
3382: THEN
3383: x_oinv_rec.contact_id := l_db_oinv_rec.contact_id;
3384: END IF;
3385: IF (x_oinv_rec.contact_name = OKC_API.G_MISS_CHAR)
3381: IF (x_oinv_rec.contact_id = OKC_API.G_MISS_NUM)
3382: THEN
3383: x_oinv_rec.contact_id := l_db_oinv_rec.contact_id;
3384: END IF;
3385: IF (x_oinv_rec.contact_name = OKC_API.G_MISS_CHAR)
3386: THEN
3387: x_oinv_rec.contact_name := l_db_oinv_rec.contact_name;
3388: END IF;
3389: IF (x_oinv_rec.contact_phone = OKC_API.G_MISS_CHAR)
3385: IF (x_oinv_rec.contact_name = OKC_API.G_MISS_CHAR)
3386: THEN
3387: x_oinv_rec.contact_name := l_db_oinv_rec.contact_name;
3388: END IF;
3389: IF (x_oinv_rec.contact_phone = OKC_API.G_MISS_CHAR)
3390: THEN
3391: x_oinv_rec.contact_phone := l_db_oinv_rec.contact_phone;
3392: END IF;
3393: IF (x_oinv_rec.contact_email = OKC_API.G_MISS_CHAR)
3389: IF (x_oinv_rec.contact_phone = OKC_API.G_MISS_CHAR)
3390: THEN
3391: x_oinv_rec.contact_phone := l_db_oinv_rec.contact_phone;
3392: END IF;
3393: IF (x_oinv_rec.contact_email = OKC_API.G_MISS_CHAR)
3394: THEN
3395: x_oinv_rec.contact_email := l_db_oinv_rec.contact_email;
3396: END IF;
3397: IF (x_oinv_rec.object_version_number = OKC_API.G_MISS_NUM)
3393: IF (x_oinv_rec.contact_email = OKC_API.G_MISS_CHAR)
3394: THEN
3395: x_oinv_rec.contact_email := l_db_oinv_rec.contact_email;
3396: END IF;
3397: IF (x_oinv_rec.object_version_number = OKC_API.G_MISS_NUM)
3398: THEN
3399: x_oinv_rec.object_version_number := l_db_oinv_rec.object_version_number;
3400: END IF;
3401: IF (x_oinv_rec.org_id = OKC_API.G_MISS_NUM)
3397: IF (x_oinv_rec.object_version_number = OKC_API.G_MISS_NUM)
3398: THEN
3399: x_oinv_rec.object_version_number := l_db_oinv_rec.object_version_number;
3400: END IF;
3401: IF (x_oinv_rec.org_id = OKC_API.G_MISS_NUM)
3402: THEN
3403: x_oinv_rec.org_id := l_db_oinv_rec.org_id;
3404: END IF;
3405: IF (x_oinv_rec.request_id = OKC_API.G_MISS_NUM)
3401: IF (x_oinv_rec.org_id = OKC_API.G_MISS_NUM)
3402: THEN
3403: x_oinv_rec.org_id := l_db_oinv_rec.org_id;
3404: END IF;
3405: IF (x_oinv_rec.request_id = OKC_API.G_MISS_NUM)
3406: THEN
3407: x_oinv_rec.request_id := l_db_oinv_rec.request_id;
3408: END IF;
3409: IF (x_oinv_rec.program_application_id = OKC_API.G_MISS_NUM)
3405: IF (x_oinv_rec.request_id = OKC_API.G_MISS_NUM)
3406: THEN
3407: x_oinv_rec.request_id := l_db_oinv_rec.request_id;
3408: END IF;
3409: IF (x_oinv_rec.program_application_id = OKC_API.G_MISS_NUM)
3410: THEN
3411: x_oinv_rec.program_application_id := l_db_oinv_rec.program_application_id;
3412: END IF;
3413: IF (x_oinv_rec.program_id = OKC_API.G_MISS_NUM)
3409: IF (x_oinv_rec.program_application_id = OKC_API.G_MISS_NUM)
3410: THEN
3411: x_oinv_rec.program_application_id := l_db_oinv_rec.program_application_id;
3412: END IF;
3413: IF (x_oinv_rec.program_id = OKC_API.G_MISS_NUM)
3414: THEN
3415: x_oinv_rec.program_id := l_db_oinv_rec.program_id;
3416: END IF;
3417: IF (x_oinv_rec.program_update_date = OKC_API.G_MISS_DATE)
3413: IF (x_oinv_rec.program_id = OKC_API.G_MISS_NUM)
3414: THEN
3415: x_oinv_rec.program_id := l_db_oinv_rec.program_id;
3416: END IF;
3417: IF (x_oinv_rec.program_update_date = OKC_API.G_MISS_DATE)
3418: THEN
3419: x_oinv_rec.program_update_date := l_db_oinv_rec.program_update_date;
3420: END IF;
3421: IF (x_oinv_rec.attribute_category = OKC_API.G_MISS_CHAR)
3417: IF (x_oinv_rec.program_update_date = OKC_API.G_MISS_DATE)
3418: THEN
3419: x_oinv_rec.program_update_date := l_db_oinv_rec.program_update_date;
3420: END IF;
3421: IF (x_oinv_rec.attribute_category = OKC_API.G_MISS_CHAR)
3422: THEN
3423: x_oinv_rec.attribute_category := l_db_oinv_rec.attribute_category;
3424: END IF;
3425: IF (x_oinv_rec.attribute1 = OKC_API.G_MISS_CHAR)
3421: IF (x_oinv_rec.attribute_category = OKC_API.G_MISS_CHAR)
3422: THEN
3423: x_oinv_rec.attribute_category := l_db_oinv_rec.attribute_category;
3424: END IF;
3425: IF (x_oinv_rec.attribute1 = OKC_API.G_MISS_CHAR)
3426: THEN
3427: x_oinv_rec.attribute1 := l_db_oinv_rec.attribute1;
3428: END IF;
3429: IF (x_oinv_rec.attribute2 = OKC_API.G_MISS_CHAR)
3425: IF (x_oinv_rec.attribute1 = OKC_API.G_MISS_CHAR)
3426: THEN
3427: x_oinv_rec.attribute1 := l_db_oinv_rec.attribute1;
3428: END IF;
3429: IF (x_oinv_rec.attribute2 = OKC_API.G_MISS_CHAR)
3430: THEN
3431: x_oinv_rec.attribute2 := l_db_oinv_rec.attribute2;
3432: END IF;
3433: IF (x_oinv_rec.attribute3 = OKC_API.G_MISS_CHAR)
3429: IF (x_oinv_rec.attribute2 = OKC_API.G_MISS_CHAR)
3430: THEN
3431: x_oinv_rec.attribute2 := l_db_oinv_rec.attribute2;
3432: END IF;
3433: IF (x_oinv_rec.attribute3 = OKC_API.G_MISS_CHAR)
3434: THEN
3435: x_oinv_rec.attribute3 := l_db_oinv_rec.attribute3;
3436: END IF;
3437: IF (x_oinv_rec.attribute4 = OKC_API.G_MISS_CHAR)
3433: IF (x_oinv_rec.attribute3 = OKC_API.G_MISS_CHAR)
3434: THEN
3435: x_oinv_rec.attribute3 := l_db_oinv_rec.attribute3;
3436: END IF;
3437: IF (x_oinv_rec.attribute4 = OKC_API.G_MISS_CHAR)
3438: THEN
3439: x_oinv_rec.attribute4 := l_db_oinv_rec.attribute4;
3440: END IF;
3441: IF (x_oinv_rec.attribute5 = OKC_API.G_MISS_CHAR)
3437: IF (x_oinv_rec.attribute4 = OKC_API.G_MISS_CHAR)
3438: THEN
3439: x_oinv_rec.attribute4 := l_db_oinv_rec.attribute4;
3440: END IF;
3441: IF (x_oinv_rec.attribute5 = OKC_API.G_MISS_CHAR)
3442: THEN
3443: x_oinv_rec.attribute5 := l_db_oinv_rec.attribute5;
3444: END IF;
3445: IF (x_oinv_rec.attribute6 = OKC_API.G_MISS_CHAR)
3441: IF (x_oinv_rec.attribute5 = OKC_API.G_MISS_CHAR)
3442: THEN
3443: x_oinv_rec.attribute5 := l_db_oinv_rec.attribute5;
3444: END IF;
3445: IF (x_oinv_rec.attribute6 = OKC_API.G_MISS_CHAR)
3446: THEN
3447: x_oinv_rec.attribute6 := l_db_oinv_rec.attribute6;
3448: END IF;
3449: IF (x_oinv_rec.attribute7 = OKC_API.G_MISS_CHAR)
3445: IF (x_oinv_rec.attribute6 = OKC_API.G_MISS_CHAR)
3446: THEN
3447: x_oinv_rec.attribute6 := l_db_oinv_rec.attribute6;
3448: END IF;
3449: IF (x_oinv_rec.attribute7 = OKC_API.G_MISS_CHAR)
3450: THEN
3451: x_oinv_rec.attribute7 := l_db_oinv_rec.attribute7;
3452: END IF;
3453: IF (x_oinv_rec.attribute8 = OKC_API.G_MISS_CHAR)
3449: IF (x_oinv_rec.attribute7 = OKC_API.G_MISS_CHAR)
3450: THEN
3451: x_oinv_rec.attribute7 := l_db_oinv_rec.attribute7;
3452: END IF;
3453: IF (x_oinv_rec.attribute8 = OKC_API.G_MISS_CHAR)
3454: THEN
3455: x_oinv_rec.attribute8 := l_db_oinv_rec.attribute8;
3456: END IF;
3457: IF (x_oinv_rec.attribute9 = OKC_API.G_MISS_CHAR)
3453: IF (x_oinv_rec.attribute8 = OKC_API.G_MISS_CHAR)
3454: THEN
3455: x_oinv_rec.attribute8 := l_db_oinv_rec.attribute8;
3456: END IF;
3457: IF (x_oinv_rec.attribute9 = OKC_API.G_MISS_CHAR)
3458: THEN
3459: x_oinv_rec.attribute9 := l_db_oinv_rec.attribute9;
3460: END IF;
3461: IF (x_oinv_rec.attribute10 = OKC_API.G_MISS_CHAR)
3457: IF (x_oinv_rec.attribute9 = OKC_API.G_MISS_CHAR)
3458: THEN
3459: x_oinv_rec.attribute9 := l_db_oinv_rec.attribute9;
3460: END IF;
3461: IF (x_oinv_rec.attribute10 = OKC_API.G_MISS_CHAR)
3462: THEN
3463: x_oinv_rec.attribute10 := l_db_oinv_rec.attribute10;
3464: END IF;
3465: IF (x_oinv_rec.attribute11 = OKC_API.G_MISS_CHAR)
3461: IF (x_oinv_rec.attribute10 = OKC_API.G_MISS_CHAR)
3462: THEN
3463: x_oinv_rec.attribute10 := l_db_oinv_rec.attribute10;
3464: END IF;
3465: IF (x_oinv_rec.attribute11 = OKC_API.G_MISS_CHAR)
3466: THEN
3467: x_oinv_rec.attribute11 := l_db_oinv_rec.attribute11;
3468: END IF;
3469: IF (x_oinv_rec.attribute12 = OKC_API.G_MISS_CHAR)
3465: IF (x_oinv_rec.attribute11 = OKC_API.G_MISS_CHAR)
3466: THEN
3467: x_oinv_rec.attribute11 := l_db_oinv_rec.attribute11;
3468: END IF;
3469: IF (x_oinv_rec.attribute12 = OKC_API.G_MISS_CHAR)
3470: THEN
3471: x_oinv_rec.attribute12 := l_db_oinv_rec.attribute12;
3472: END IF;
3473: IF (x_oinv_rec.attribute13 = OKC_API.G_MISS_CHAR)
3469: IF (x_oinv_rec.attribute12 = OKC_API.G_MISS_CHAR)
3470: THEN
3471: x_oinv_rec.attribute12 := l_db_oinv_rec.attribute12;
3472: END IF;
3473: IF (x_oinv_rec.attribute13 = OKC_API.G_MISS_CHAR)
3474: THEN
3475: x_oinv_rec.attribute13 := l_db_oinv_rec.attribute13;
3476: END IF;
3477: IF (x_oinv_rec.attribute14 = OKC_API.G_MISS_CHAR)
3473: IF (x_oinv_rec.attribute13 = OKC_API.G_MISS_CHAR)
3474: THEN
3475: x_oinv_rec.attribute13 := l_db_oinv_rec.attribute13;
3476: END IF;
3477: IF (x_oinv_rec.attribute14 = OKC_API.G_MISS_CHAR)
3478: THEN
3479: x_oinv_rec.attribute14 := l_db_oinv_rec.attribute14;
3480: END IF;
3481: IF (x_oinv_rec.attribute15 = OKC_API.G_MISS_CHAR)
3477: IF (x_oinv_rec.attribute14 = OKC_API.G_MISS_CHAR)
3478: THEN
3479: x_oinv_rec.attribute14 := l_db_oinv_rec.attribute14;
3480: END IF;
3481: IF (x_oinv_rec.attribute15 = OKC_API.G_MISS_CHAR)
3482: THEN
3483: x_oinv_rec.attribute15 := l_db_oinv_rec.attribute15;
3484: END IF;
3485: IF (x_oinv_rec.created_by = OKC_API.G_MISS_NUM)
3481: IF (x_oinv_rec.attribute15 = OKC_API.G_MISS_CHAR)
3482: THEN
3483: x_oinv_rec.attribute15 := l_db_oinv_rec.attribute15;
3484: END IF;
3485: IF (x_oinv_rec.created_by = OKC_API.G_MISS_NUM)
3486: THEN
3487: x_oinv_rec.created_by := l_db_oinv_rec.created_by;
3488: END IF;
3489: IF (x_oinv_rec.creation_date = OKC_API.G_MISS_DATE)
3485: IF (x_oinv_rec.created_by = OKC_API.G_MISS_NUM)
3486: THEN
3487: x_oinv_rec.created_by := l_db_oinv_rec.created_by;
3488: END IF;
3489: IF (x_oinv_rec.creation_date = OKC_API.G_MISS_DATE)
3490: THEN
3491: x_oinv_rec.creation_date := l_db_oinv_rec.creation_date;
3492: END IF;
3493: IF (x_oinv_rec.last_updated_by = OKC_API.G_MISS_NUM)
3489: IF (x_oinv_rec.creation_date = OKC_API.G_MISS_DATE)
3490: THEN
3491: x_oinv_rec.creation_date := l_db_oinv_rec.creation_date;
3492: END IF;
3493: IF (x_oinv_rec.last_updated_by = OKC_API.G_MISS_NUM)
3494: THEN
3495: x_oinv_rec.last_updated_by := l_db_oinv_rec.last_updated_by;
3496: END IF;
3497: IF (x_oinv_rec.last_update_date = OKC_API.G_MISS_DATE)
3493: IF (x_oinv_rec.last_updated_by = OKC_API.G_MISS_NUM)
3494: THEN
3495: x_oinv_rec.last_updated_by := l_db_oinv_rec.last_updated_by;
3496: END IF;
3497: IF (x_oinv_rec.last_update_date = OKC_API.G_MISS_DATE)
3498: THEN
3499: x_oinv_rec.last_update_date := l_db_oinv_rec.last_update_date;
3500: END IF;
3501: IF (x_oinv_rec.last_update_login = OKC_API.G_MISS_NUM)
3497: IF (x_oinv_rec.last_update_date = OKC_API.G_MISS_DATE)
3498: THEN
3499: x_oinv_rec.last_update_date := l_db_oinv_rec.last_update_date;
3500: END IF;
3501: IF (x_oinv_rec.last_update_login = OKC_API.G_MISS_NUM)
3502: THEN
3503: x_oinv_rec.last_update_login := l_db_oinv_rec.last_update_login;
3504: END IF;
3505: END IF;
3511: FUNCTION Set_Attributes (
3512: p_oinv_rec IN oinv_rec_type,
3513: x_oinv_rec OUT NOCOPY oinv_rec_type
3514: ) RETURN VARCHAR2 AS
3515: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3516: BEGIN
3517: x_oinv_rec := p_oinv_rec;
3518:
3519: -- Begin Post-Generation Change
3533:
3534: RETURN(l_return_status);
3535: END Set_Attributes;
3536: BEGIN
3537: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3538: G_PKG_NAME,
3539: p_init_msg_list,
3540: l_api_version,
3541: p_api_version,
3540: l_api_version,
3541: p_api_version,
3542: '_PVT',
3543: x_return_status);
3544: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3545: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3546: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3547: RAISE OKC_API.G_EXCEPTION_ERROR;
3548: END IF;
3541: p_api_version,
3542: '_PVT',
3543: x_return_status);
3544: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3545: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3546: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3547: RAISE OKC_API.G_EXCEPTION_ERROR;
3548: END IF;
3549: --- Setting item attributes
3542: '_PVT',
3543: x_return_status);
3544: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3545: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3546: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3547: RAISE OKC_API.G_EXCEPTION_ERROR;
3548: END IF;
3549: --- Setting item attributes
3550: l_return_status := Set_Attributes(
3543: x_return_status);
3544: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3545: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3546: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3547: RAISE OKC_API.G_EXCEPTION_ERROR;
3548: END IF;
3549: --- Setting item attributes
3550: l_return_status := Set_Attributes(
3551: p_oinv_rec, -- IN
3550: l_return_status := Set_Attributes(
3551: p_oinv_rec, -- IN
3552: x_oinv_rec); -- OUT
3553: --- If any errors happen abort API
3554: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3555: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3556: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3557: RAISE OKC_API.G_EXCEPTION_ERROR;
3558: END IF;
3551: p_oinv_rec, -- IN
3552: x_oinv_rec); -- OUT
3553: --- If any errors happen abort API
3554: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3555: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3556: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3557: RAISE OKC_API.G_EXCEPTION_ERROR;
3558: END IF;
3559: l_return_status := populate_new_record(x_oinv_rec, l_def_oinv_rec);
3552: x_oinv_rec); -- OUT
3553: --- If any errors happen abort API
3554: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3555: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3556: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3557: RAISE OKC_API.G_EXCEPTION_ERROR;
3558: END IF;
3559: l_return_status := populate_new_record(x_oinv_rec, l_def_oinv_rec);
3560: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3553: --- If any errors happen abort API
3554: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3555: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3556: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3557: RAISE OKC_API.G_EXCEPTION_ERROR;
3558: END IF;
3559: l_return_status := populate_new_record(x_oinv_rec, l_def_oinv_rec);
3560: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3561: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3556: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3557: RAISE OKC_API.G_EXCEPTION_ERROR;
3558: END IF;
3559: l_return_status := populate_new_record(x_oinv_rec, l_def_oinv_rec);
3560: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3561: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3562: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3563: RAISE OKC_API.G_EXCEPTION_ERROR;
3564: END IF;
3557: RAISE OKC_API.G_EXCEPTION_ERROR;
3558: END IF;
3559: l_return_status := populate_new_record(x_oinv_rec, l_def_oinv_rec);
3560: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3561: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3562: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3563: RAISE OKC_API.G_EXCEPTION_ERROR;
3564: END IF;
3565: l_def_oinv_rec := fill_who_columns(l_def_oinv_rec);
3558: END IF;
3559: l_return_status := populate_new_record(x_oinv_rec, l_def_oinv_rec);
3560: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3561: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3562: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3563: RAISE OKC_API.G_EXCEPTION_ERROR;
3564: END IF;
3565: l_def_oinv_rec := fill_who_columns(l_def_oinv_rec);
3566: --- Validate all non-missing attributes (Item Level Validation)
3559: l_return_status := populate_new_record(x_oinv_rec, l_def_oinv_rec);
3560: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3561: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3562: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3563: RAISE OKC_API.G_EXCEPTION_ERROR;
3564: END IF;
3565: l_def_oinv_rec := fill_who_columns(l_def_oinv_rec);
3566: --- Validate all non-missing attributes (Item Level Validation)
3567: l_return_status := Validate_Attributes(l_def_oinv_rec);
3565: l_def_oinv_rec := fill_who_columns(l_def_oinv_rec);
3566: --- Validate all non-missing attributes (Item Level Validation)
3567: l_return_status := Validate_Attributes(l_def_oinv_rec);
3568: --- If any errors happen abort API
3569: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3570: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3571: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3572: RAISE OKC_API.G_EXCEPTION_ERROR;
3573: END IF;
3566: --- Validate all non-missing attributes (Item Level Validation)
3567: l_return_status := Validate_Attributes(l_def_oinv_rec);
3568: --- If any errors happen abort API
3569: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3570: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3571: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3572: RAISE OKC_API.G_EXCEPTION_ERROR;
3573: END IF;
3574: l_return_status := Validate_Record(l_def_oinv_rec, l_db_oinv_rec);
3567: l_return_status := Validate_Attributes(l_def_oinv_rec);
3568: --- If any errors happen abort API
3569: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3570: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3571: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3572: RAISE OKC_API.G_EXCEPTION_ERROR;
3573: END IF;
3574: l_return_status := Validate_Record(l_def_oinv_rec, l_db_oinv_rec);
3575: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3568: --- If any errors happen abort API
3569: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3570: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3571: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3572: RAISE OKC_API.G_EXCEPTION_ERROR;
3573: END IF;
3574: l_return_status := Validate_Record(l_def_oinv_rec, l_db_oinv_rec);
3575: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3576: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3571: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3572: RAISE OKC_API.G_EXCEPTION_ERROR;
3573: END IF;
3574: l_return_status := Validate_Record(l_def_oinv_rec, l_db_oinv_rec);
3575: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3576: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3577: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3578: RAISE OKC_API.G_EXCEPTION_ERROR;
3579: END IF;
3572: RAISE OKC_API.G_EXCEPTION_ERROR;
3573: END IF;
3574: l_return_status := Validate_Record(l_def_oinv_rec, l_db_oinv_rec);
3575: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3576: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3577: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3578: RAISE OKC_API.G_EXCEPTION_ERROR;
3579: END IF;
3580:
3573: END IF;
3574: l_return_status := Validate_Record(l_def_oinv_rec, l_db_oinv_rec);
3575: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3576: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3577: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3578: RAISE OKC_API.G_EXCEPTION_ERROR;
3579: END IF;
3580:
3581: -- Lock the Record
3574: l_return_status := Validate_Record(l_def_oinv_rec, l_db_oinv_rec);
3575: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3576: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3577: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3578: RAISE OKC_API.G_EXCEPTION_ERROR;
3579: END IF;
3580:
3581: -- Lock the Record
3582: /*
3586: x_return_status => l_return_status,
3587: x_msg_count => x_msg_count,
3588: x_msg_data => x_msg_data,
3589: p_oinv_rec => p_oinv_rec);
3590: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3591: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3592: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3593: RAISE OKC_API.G_EXCEPTION_ERROR;
3594: END IF;
3587: x_msg_count => x_msg_count,
3588: x_msg_data => x_msg_data,
3589: p_oinv_rec => p_oinv_rec);
3590: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3591: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3592: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3593: RAISE OKC_API.G_EXCEPTION_ERROR;
3594: END IF;
3595: */
3588: x_msg_data => x_msg_data,
3589: p_oinv_rec => p_oinv_rec);
3590: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3591: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3592: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3593: RAISE OKC_API.G_EXCEPTION_ERROR;
3594: END IF;
3595: */
3596:
3589: p_oinv_rec => p_oinv_rec);
3590: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3591: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3592: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3593: RAISE OKC_API.G_EXCEPTION_ERROR;
3594: END IF;
3595: */
3596:
3597: -----------------------------------------
3608: x_msg_data,
3609: l_oin_rec,
3610: lx_oin_rec
3611: );
3612: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3613: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3614: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3615: RAISE OKC_API.G_EXCEPTION_ERROR;
3616: END IF;
3609: l_oin_rec,
3610: lx_oin_rec
3611: );
3612: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3613: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3614: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3615: RAISE OKC_API.G_EXCEPTION_ERROR;
3616: END IF;
3617: migrate(lx_oin_rec, l_def_oinv_rec);
3610: lx_oin_rec
3611: );
3612: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3613: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3614: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3615: RAISE OKC_API.G_EXCEPTION_ERROR;
3616: END IF;
3617: migrate(lx_oin_rec, l_def_oinv_rec);
3618: x_oinv_rec := l_def_oinv_rec;
3611: );
3612: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3613: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3614: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3615: RAISE OKC_API.G_EXCEPTION_ERROR;
3616: END IF;
3617: migrate(lx_oin_rec, l_def_oinv_rec);
3618: x_oinv_rec := l_def_oinv_rec;
3619: x_return_status := l_return_status;
3616: END IF;
3617: migrate(lx_oin_rec, l_def_oinv_rec);
3618: x_oinv_rec := l_def_oinv_rec;
3619: x_return_status := l_return_status;
3620: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3621: EXCEPTION
3622: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3623: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3624: (
3618: x_oinv_rec := l_def_oinv_rec;
3619: x_return_status := l_return_status;
3620: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3621: EXCEPTION
3622: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3623: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3624: (
3625: l_api_name,
3626: G_PKG_NAME,
3619: x_return_status := l_return_status;
3620: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3621: EXCEPTION
3622: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3623: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3624: (
3625: l_api_name,
3626: G_PKG_NAME,
3627: 'OKC_API.G_RET_STS_ERROR',
3623: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3624: (
3625: l_api_name,
3626: G_PKG_NAME,
3627: 'OKC_API.G_RET_STS_ERROR',
3628: x_msg_count,
3629: x_msg_data,
3630: '_PVT'
3631: );
3628: x_msg_count,
3629: x_msg_data,
3630: '_PVT'
3631: );
3632: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3633: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3634: (
3635: l_api_name,
3636: G_PKG_NAME,
3629: x_msg_data,
3630: '_PVT'
3631: );
3632: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3633: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3634: (
3635: l_api_name,
3636: G_PKG_NAME,
3637: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3633: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3634: (
3635: l_api_name,
3636: G_PKG_NAME,
3637: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3638: x_msg_count,
3639: x_msg_data,
3640: '_PVT'
3641: );
3639: x_msg_data,
3640: '_PVT'
3641: );
3642: WHEN OTHERS THEN
3643: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3644: (
3645: l_api_name,
3646: G_PKG_NAME,
3647: 'OTHERS',
3654: -- PL/SQL TBL update_row for:oinv_tbl --
3655: ----------------------------------------
3656: PROCEDURE update_row(
3657: p_api_version IN NUMBER,
3658: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3659: x_return_status OUT NOCOPY VARCHAR2,
3660: x_msg_count OUT NOCOPY NUMBER,
3661: x_msg_data OUT NOCOPY VARCHAR2,
3662: p_oinv_tbl IN oinv_tbl_type,
3666: l_api_version CONSTANT NUMBER := 1;
3667: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_update_row';
3668: i NUMBER := 0;
3669: BEGIN
3670: OKC_API.init_msg_list(p_init_msg_list);
3671: -- Make sure PL/SQL table has records in it before passing
3672: IF (p_oinv_tbl.COUNT > 0) THEN
3673: i := p_oinv_tbl.FIRST;
3674: LOOP
3679: l_error_rec.api_package := G_PKG_NAME;
3680: l_error_rec.idx := i;
3681: update_row (
3682: p_api_version => p_api_version,
3683: p_init_msg_list => OKC_API.G_FALSE,
3684: x_return_status => l_error_rec.error_type,
3685: x_msg_count => l_error_rec.msg_count,
3686: x_msg_data => l_error_rec.msg_data,
3687: p_oinv_rec => p_oinv_tbl(i),
3685: x_msg_count => l_error_rec.msg_count,
3686: x_msg_data => l_error_rec.msg_data,
3687: p_oinv_rec => p_oinv_tbl(i),
3688: x_oinv_rec => x_oinv_tbl(i));
3689: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
3690: l_error_rec.sqlcode := SQLCODE;
3691: load_error_tbl(l_error_rec, px_error_tbl);
3692: ELSE
3693: x_msg_count := l_error_rec.msg_count;
3693: x_msg_count := l_error_rec.msg_count;
3694: x_msg_data := l_error_rec.msg_data;
3695: END IF;
3696: EXCEPTION
3697: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3698: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
3699: l_error_rec.sqlcode := SQLCODE;
3700: load_error_tbl(l_error_rec, px_error_tbl);
3701: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3694: x_msg_data := l_error_rec.msg_data;
3695: END IF;
3696: EXCEPTION
3697: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3698: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
3699: l_error_rec.sqlcode := SQLCODE;
3700: load_error_tbl(l_error_rec, px_error_tbl);
3701: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3702: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
3697: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3698: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
3699: l_error_rec.sqlcode := SQLCODE;
3700: load_error_tbl(l_error_rec, px_error_tbl);
3701: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3702: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
3703: l_error_rec.sqlcode := SQLCODE;
3704: load_error_tbl(l_error_rec, px_error_tbl);
3705: WHEN OTHERS THEN
3698: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
3699: l_error_rec.sqlcode := SQLCODE;
3700: load_error_tbl(l_error_rec, px_error_tbl);
3701: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3702: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
3703: l_error_rec.sqlcode := SQLCODE;
3704: load_error_tbl(l_error_rec, px_error_tbl);
3705: WHEN OTHERS THEN
3706: l_error_rec.error_type := 'OTHERS';
3713: END IF;
3714: -- Loop through the error_tbl to find the error with the highest severity
3715: -- and return it.
3716: x_return_status := find_highest_exception(px_error_tbl);
3717: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3718: EXCEPTION
3719: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3720: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3721: (
3715: -- and return it.
3716: x_return_status := find_highest_exception(px_error_tbl);
3717: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3718: EXCEPTION
3719: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3720: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3721: (
3722: l_api_name,
3723: G_PKG_NAME,
3716: x_return_status := find_highest_exception(px_error_tbl);
3717: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3718: EXCEPTION
3719: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3720: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3721: (
3722: l_api_name,
3723: G_PKG_NAME,
3724: 'OKC_API.G_RET_STS_ERROR',
3720: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3721: (
3722: l_api_name,
3723: G_PKG_NAME,
3724: 'OKC_API.G_RET_STS_ERROR',
3725: x_msg_count,
3726: x_msg_data,
3727: '_PVT'
3728: );
3725: x_msg_count,
3726: x_msg_data,
3727: '_PVT'
3728: );
3729: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3730: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3731: (
3732: l_api_name,
3733: G_PKG_NAME,
3726: x_msg_data,
3727: '_PVT'
3728: );
3729: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3730: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3731: (
3732: l_api_name,
3733: G_PKG_NAME,
3734: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3730: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3731: (
3732: l_api_name,
3733: G_PKG_NAME,
3734: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3735: x_msg_count,
3736: x_msg_data,
3737: '_PVT'
3738: );
3736: x_msg_data,
3737: '_PVT'
3738: );
3739: WHEN OTHERS THEN
3740: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3741: (
3742: l_api_name,
3743: G_PKG_NAME,
3744: 'OTHERS',
3752: -- PL/SQL TBL update_row for:OINV_TBL --
3753: ----------------------------------------
3754: PROCEDURE update_row(
3755: p_api_version IN NUMBER,
3756: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3757: x_return_status OUT NOCOPY VARCHAR2,
3758: x_msg_count OUT NOCOPY NUMBER,
3759: x_msg_data OUT NOCOPY VARCHAR2,
3760: p_oinv_tbl IN oinv_tbl_type,
3761: x_oinv_tbl OUT NOCOPY oinv_tbl_type) AS
3762:
3763: l_api_version CONSTANT NUMBER := 1;
3764: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3765: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3766: l_error_tbl OKL_API.ERROR_TBL_TYPE;
3767: BEGIN
3768: OKC_API.init_msg_list(p_init_msg_list);
3769: -- Make sure PL/SQL table has records in it before passing
3764: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3765: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3766: l_error_tbl OKL_API.ERROR_TBL_TYPE;
3767: BEGIN
3768: OKC_API.init_msg_list(p_init_msg_list);
3769: -- Make sure PL/SQL table has records in it before passing
3770: IF (p_oinv_tbl.COUNT > 0) THEN
3771: update_row (
3772: p_api_version => p_api_version,
3769: -- Make sure PL/SQL table has records in it before passing
3770: IF (p_oinv_tbl.COUNT > 0) THEN
3771: update_row (
3772: p_api_version => p_api_version,
3773: p_init_msg_list => OKC_API.G_FALSE,
3774: x_return_status => x_return_status,
3775: x_msg_count => x_msg_count,
3776: x_msg_data => x_msg_data,
3777: p_oinv_tbl => p_oinv_tbl,
3777: p_oinv_tbl => p_oinv_tbl,
3778: x_oinv_tbl => x_oinv_tbl,
3779: px_error_tbl => l_error_tbl);
3780: END IF;
3781: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3782: EXCEPTION
3783: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3784: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3785: (
3779: px_error_tbl => l_error_tbl);
3780: END IF;
3781: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3782: EXCEPTION
3783: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3784: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3785: (
3786: l_api_name,
3787: G_PKG_NAME,
3780: END IF;
3781: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3782: EXCEPTION
3783: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3784: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3785: (
3786: l_api_name,
3787: G_PKG_NAME,
3788: 'OKC_API.G_RET_STS_ERROR',
3784: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3785: (
3786: l_api_name,
3787: G_PKG_NAME,
3788: 'OKC_API.G_RET_STS_ERROR',
3789: x_msg_count,
3790: x_msg_data,
3791: '_PVT'
3792: );
3789: x_msg_count,
3790: x_msg_data,
3791: '_PVT'
3792: );
3793: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3794: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3795: (
3796: l_api_name,
3797: G_PKG_NAME,
3790: x_msg_data,
3791: '_PVT'
3792: );
3793: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3794: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3795: (
3796: l_api_name,
3797: G_PKG_NAME,
3798: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3794: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3795: (
3796: l_api_name,
3797: G_PKG_NAME,
3798: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3799: x_msg_count,
3800: x_msg_data,
3801: '_PVT'
3802: );
3800: x_msg_data,
3801: '_PVT'
3802: );
3803: WHEN OTHERS THEN
3804: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3805: (
3806: l_api_name,
3807: G_PKG_NAME,
3808: 'OTHERS',
3818: ---------------------------------
3819: -- delete_row for:OKL_OPEN_INT --
3820: ---------------------------------
3821: PROCEDURE delete_row(
3822: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3823: x_return_status OUT NOCOPY VARCHAR2,
3824: x_msg_count OUT NOCOPY NUMBER,
3825: x_msg_data OUT NOCOPY VARCHAR2,
3826: p_oin_rec IN oin_rec_type) AS
3826: p_oin_rec IN oin_rec_type) AS
3827:
3828: l_api_version CONSTANT NUMBER := 1;
3829: l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
3830: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3831: l_oin_rec oin_rec_type := p_oin_rec;
3832: l_row_notfound BOOLEAN := TRUE;
3833: BEGIN
3834: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3830: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3831: l_oin_rec oin_rec_type := p_oin_rec;
3832: l_row_notfound BOOLEAN := TRUE;
3833: BEGIN
3834: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3835: p_init_msg_list,
3836: '_PVT',
3837: x_return_status);
3838: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3834: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3835: p_init_msg_list,
3836: '_PVT',
3837: x_return_status);
3838: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3839: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3840: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3841: RAISE OKC_API.G_EXCEPTION_ERROR;
3842: END IF;
3835: p_init_msg_list,
3836: '_PVT',
3837: x_return_status);
3838: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3839: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3840: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3841: RAISE OKC_API.G_EXCEPTION_ERROR;
3842: END IF;
3843:
3836: '_PVT',
3837: x_return_status);
3838: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3839: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3840: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3841: RAISE OKC_API.G_EXCEPTION_ERROR;
3842: END IF;
3843:
3844: DELETE FROM OKL_OPEN_INT
3837: x_return_status);
3838: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3839: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3840: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3841: RAISE OKC_API.G_EXCEPTION_ERROR;
3842: END IF;
3843:
3844: DELETE FROM OKL_OPEN_INT
3845: WHERE ID = p_oin_rec.id;
3844: DELETE FROM OKL_OPEN_INT
3845: WHERE ID = p_oin_rec.id;
3846:
3847: x_return_status := l_return_status;
3848: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3849: EXCEPTION
3850: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3851: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3852: (
3846:
3847: x_return_status := l_return_status;
3848: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3849: EXCEPTION
3850: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3851: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3852: (
3853: l_api_name,
3854: G_PKG_NAME,
3847: x_return_status := l_return_status;
3848: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3849: EXCEPTION
3850: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3851: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3852: (
3853: l_api_name,
3854: G_PKG_NAME,
3855: 'OKC_API.G_RET_STS_ERROR',
3851: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3852: (
3853: l_api_name,
3854: G_PKG_NAME,
3855: 'OKC_API.G_RET_STS_ERROR',
3856: x_msg_count,
3857: x_msg_data,
3858: '_PVT'
3859: );
3856: x_msg_count,
3857: x_msg_data,
3858: '_PVT'
3859: );
3860: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3861: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3862: (
3863: l_api_name,
3864: G_PKG_NAME,
3857: x_msg_data,
3858: '_PVT'
3859: );
3860: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3861: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3862: (
3863: l_api_name,
3864: G_PKG_NAME,
3865: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3861: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3862: (
3863: l_api_name,
3864: G_PKG_NAME,
3865: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3866: x_msg_count,
3867: x_msg_data,
3868: '_PVT'
3869: );
3867: x_msg_data,
3868: '_PVT'
3869: );
3870: WHEN OTHERS THEN
3871: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3872: (
3873: l_api_name,
3874: G_PKG_NAME,
3875: 'OTHERS',
3882: -- delete_row for:OKL_OPEN_INT_V --
3883: -----------------------------------
3884: PROCEDURE delete_row(
3885: p_api_version IN NUMBER,
3886: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3887: x_return_status OUT NOCOPY VARCHAR2,
3888: x_msg_count OUT NOCOPY NUMBER,
3889: x_msg_data OUT NOCOPY VARCHAR2,
3890: p_oinv_rec IN oinv_rec_type) AS
3890: p_oinv_rec IN oinv_rec_type) AS
3891:
3892: l_api_version CONSTANT NUMBER := 1;
3893: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
3894: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3895: l_oinv_rec oinv_rec_type := p_oinv_rec;
3896: l_oin_rec oin_rec_type;
3897: BEGIN
3898: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3894: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3895: l_oinv_rec oinv_rec_type := p_oinv_rec;
3896: l_oin_rec oin_rec_type;
3897: BEGIN
3898: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3899: G_PKG_NAME,
3900: p_init_msg_list,
3901: l_api_version,
3902: p_api_version,
3901: l_api_version,
3902: p_api_version,
3903: '_PVT',
3904: x_return_status);
3905: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3906: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3907: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3908: RAISE OKC_API.G_EXCEPTION_ERROR;
3909: END IF;
3902: p_api_version,
3903: '_PVT',
3904: x_return_status);
3905: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3906: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3907: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3908: RAISE OKC_API.G_EXCEPTION_ERROR;
3909: END IF;
3910: -----------------------------------------
3903: '_PVT',
3904: x_return_status);
3905: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3906: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3907: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3908: RAISE OKC_API.G_EXCEPTION_ERROR;
3909: END IF;
3910: -----------------------------------------
3911: -- Move VIEW record to "Child" records --
3904: x_return_status);
3905: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3906: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3907: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3908: RAISE OKC_API.G_EXCEPTION_ERROR;
3909: END IF;
3910: -----------------------------------------
3911: -- Move VIEW record to "Child" records --
3912: -----------------------------------------
3920: x_msg_count,
3921: x_msg_data,
3922: l_oin_rec
3923: );
3924: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3925: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3926: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3927: RAISE OKC_API.G_EXCEPTION_ERROR;
3928: END IF;
3921: x_msg_data,
3922: l_oin_rec
3923: );
3924: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3925: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3926: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3927: RAISE OKC_API.G_EXCEPTION_ERROR;
3928: END IF;
3929: x_return_status := l_return_status;
3922: l_oin_rec
3923: );
3924: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3925: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3926: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3927: RAISE OKC_API.G_EXCEPTION_ERROR;
3928: END IF;
3929: x_return_status := l_return_status;
3930: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3923: );
3924: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3925: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3926: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3927: RAISE OKC_API.G_EXCEPTION_ERROR;
3928: END IF;
3929: x_return_status := l_return_status;
3930: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3931: EXCEPTION
3926: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3927: RAISE OKC_API.G_EXCEPTION_ERROR;
3928: END IF;
3929: x_return_status := l_return_status;
3930: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3931: EXCEPTION
3932: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3933: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3934: (
3928: END IF;
3929: x_return_status := l_return_status;
3930: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3931: EXCEPTION
3932: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3933: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3934: (
3935: l_api_name,
3936: G_PKG_NAME,
3929: x_return_status := l_return_status;
3930: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3931: EXCEPTION
3932: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3933: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3934: (
3935: l_api_name,
3936: G_PKG_NAME,
3937: 'OKC_API.G_RET_STS_ERROR',
3933: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3934: (
3935: l_api_name,
3936: G_PKG_NAME,
3937: 'OKC_API.G_RET_STS_ERROR',
3938: x_msg_count,
3939: x_msg_data,
3940: '_PVT'
3941: );
3938: x_msg_count,
3939: x_msg_data,
3940: '_PVT'
3941: );
3942: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3943: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3944: (
3945: l_api_name,
3946: G_PKG_NAME,
3939: x_msg_data,
3940: '_PVT'
3941: );
3942: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3943: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3944: (
3945: l_api_name,
3946: G_PKG_NAME,
3947: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3943: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3944: (
3945: l_api_name,
3946: G_PKG_NAME,
3947: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3948: x_msg_count,
3949: x_msg_data,
3950: '_PVT'
3951: );
3949: x_msg_data,
3950: '_PVT'
3951: );
3952: WHEN OTHERS THEN
3953: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3954: (
3955: l_api_name,
3956: G_PKG_NAME,
3957: 'OTHERS',
3964: -- PL/SQL TBL delete_row for:OKL_OPEN_INT_V --
3965: ----------------------------------------------
3966: PROCEDURE delete_row(
3967: p_api_version IN NUMBER,
3968: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3969: x_return_status OUT NOCOPY VARCHAR2,
3970: x_msg_count OUT NOCOPY NUMBER,
3971: x_msg_data OUT NOCOPY VARCHAR2,
3972: p_oinv_tbl IN oinv_tbl_type,
3975: l_api_version CONSTANT NUMBER := 1;
3976: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_delete_row';
3977: i NUMBER := 0;
3978: BEGIN
3979: OKC_API.init_msg_list(p_init_msg_list);
3980: -- Make sure PL/SQL table has records in it before passing
3981: IF (p_oinv_tbl.COUNT > 0) THEN
3982: i := p_oinv_tbl.FIRST;
3983: LOOP
3988: l_error_rec.api_package := G_PKG_NAME;
3989: l_error_rec.idx := i;
3990: delete_row (
3991: p_api_version => p_api_version,
3992: p_init_msg_list => OKC_API.G_FALSE,
3993: x_return_status => l_error_rec.error_type,
3994: x_msg_count => l_error_rec.msg_count,
3995: x_msg_data => l_error_rec.msg_data,
3996: p_oinv_rec => p_oinv_tbl(i));
3993: x_return_status => l_error_rec.error_type,
3994: x_msg_count => l_error_rec.msg_count,
3995: x_msg_data => l_error_rec.msg_data,
3996: p_oinv_rec => p_oinv_tbl(i));
3997: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
3998: l_error_rec.sqlcode := SQLCODE;
3999: load_error_tbl(l_error_rec, px_error_tbl);
4000: ELSE
4001: x_msg_count := l_error_rec.msg_count;
4001: x_msg_count := l_error_rec.msg_count;
4002: x_msg_data := l_error_rec.msg_data;
4003: END IF;
4004: EXCEPTION
4005: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4006: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
4007: l_error_rec.sqlcode := SQLCODE;
4008: load_error_tbl(l_error_rec, px_error_tbl);
4009: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4002: x_msg_data := l_error_rec.msg_data;
4003: END IF;
4004: EXCEPTION
4005: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4006: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
4007: l_error_rec.sqlcode := SQLCODE;
4008: load_error_tbl(l_error_rec, px_error_tbl);
4009: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4010: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
4005: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4006: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
4007: l_error_rec.sqlcode := SQLCODE;
4008: load_error_tbl(l_error_rec, px_error_tbl);
4009: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4010: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
4011: l_error_rec.sqlcode := SQLCODE;
4012: load_error_tbl(l_error_rec, px_error_tbl);
4013: WHEN OTHERS THEN
4006: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
4007: l_error_rec.sqlcode := SQLCODE;
4008: load_error_tbl(l_error_rec, px_error_tbl);
4009: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4010: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
4011: l_error_rec.sqlcode := SQLCODE;
4012: load_error_tbl(l_error_rec, px_error_tbl);
4013: WHEN OTHERS THEN
4014: l_error_rec.error_type := 'OTHERS';
4021: END IF;
4022: -- Loop through the error_tbl to find the error with the highest severity
4023: -- and return it.
4024: x_return_status := find_highest_exception(px_error_tbl);
4025: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4026: EXCEPTION
4027: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4028: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4029: (
4023: -- and return it.
4024: x_return_status := find_highest_exception(px_error_tbl);
4025: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4026: EXCEPTION
4027: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4028: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4029: (
4030: l_api_name,
4031: G_PKG_NAME,
4024: x_return_status := find_highest_exception(px_error_tbl);
4025: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4026: EXCEPTION
4027: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4028: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4029: (
4030: l_api_name,
4031: G_PKG_NAME,
4032: 'OKC_API.G_RET_STS_ERROR',
4028: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4029: (
4030: l_api_name,
4031: G_PKG_NAME,
4032: 'OKC_API.G_RET_STS_ERROR',
4033: x_msg_count,
4034: x_msg_data,
4035: '_PVT'
4036: );
4033: x_msg_count,
4034: x_msg_data,
4035: '_PVT'
4036: );
4037: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4038: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4039: (
4040: l_api_name,
4041: G_PKG_NAME,
4034: x_msg_data,
4035: '_PVT'
4036: );
4037: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4038: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4039: (
4040: l_api_name,
4041: G_PKG_NAME,
4042: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4038: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4039: (
4040: l_api_name,
4041: G_PKG_NAME,
4042: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4043: x_msg_count,
4044: x_msg_data,
4045: '_PVT'
4046: );
4044: x_msg_data,
4045: '_PVT'
4046: );
4047: WHEN OTHERS THEN
4048: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4049: (
4050: l_api_name,
4051: G_PKG_NAME,
4052: 'OTHERS',
4060: -- PL/SQL TBL delete_row for:OKL_OPEN_INT_V --
4061: ----------------------------------------------
4062: PROCEDURE delete_row(
4063: p_api_version IN NUMBER,
4064: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4065: x_return_status OUT NOCOPY VARCHAR2,
4066: x_msg_count OUT NOCOPY NUMBER,
4067: x_msg_data OUT NOCOPY VARCHAR2,
4068: p_oinv_tbl IN oinv_tbl_type) AS
4068: p_oinv_tbl IN oinv_tbl_type) AS
4069:
4070: l_api_version CONSTANT NUMBER := 1;
4071: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
4072: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4073: l_error_tbl OKL_API.ERROR_TBL_TYPE;
4074: BEGIN
4075: OKC_API.init_msg_list(p_init_msg_list);
4076: -- Make sure PL/SQL table has records in it before passing
4071: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
4072: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4073: l_error_tbl OKL_API.ERROR_TBL_TYPE;
4074: BEGIN
4075: OKC_API.init_msg_list(p_init_msg_list);
4076: -- Make sure PL/SQL table has records in it before passing
4077: IF (p_oinv_tbl.COUNT > 0) THEN
4078: delete_row (
4079: p_api_version => p_api_version,
4076: -- Make sure PL/SQL table has records in it before passing
4077: IF (p_oinv_tbl.COUNT > 0) THEN
4078: delete_row (
4079: p_api_version => p_api_version,
4080: p_init_msg_list => OKC_API.G_FALSE,
4081: x_return_status => x_return_status,
4082: x_msg_count => x_msg_count,
4083: x_msg_data => x_msg_data,
4084: p_oinv_tbl => p_oinv_tbl,
4083: x_msg_data => x_msg_data,
4084: p_oinv_tbl => p_oinv_tbl,
4085: px_error_tbl => l_error_tbl);
4086: END IF;
4087: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4088: EXCEPTION
4089: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4090: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4091: (
4085: px_error_tbl => l_error_tbl);
4086: END IF;
4087: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4088: EXCEPTION
4089: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4090: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4091: (
4092: l_api_name,
4093: G_PKG_NAME,
4086: END IF;
4087: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4088: EXCEPTION
4089: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4090: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4091: (
4092: l_api_name,
4093: G_PKG_NAME,
4094: 'OKC_API.G_RET_STS_ERROR',
4090: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4091: (
4092: l_api_name,
4093: G_PKG_NAME,
4094: 'OKC_API.G_RET_STS_ERROR',
4095: x_msg_count,
4096: x_msg_data,
4097: '_PVT'
4098: );
4095: x_msg_count,
4096: x_msg_data,
4097: '_PVT'
4098: );
4099: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4100: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4101: (
4102: l_api_name,
4103: G_PKG_NAME,
4096: x_msg_data,
4097: '_PVT'
4098: );
4099: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4100: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4101: (
4102: l_api_name,
4103: G_PKG_NAME,
4104: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4100: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4101: (
4102: l_api_name,
4103: G_PKG_NAME,
4104: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4105: x_msg_count,
4106: x_msg_data,
4107: '_PVT'
4108: );
4106: x_msg_data,
4107: '_PVT'
4108: );
4109: WHEN OTHERS THEN
4110: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4111: (
4112: l_api_name,
4113: G_PKG_NAME,
4114: 'OTHERS',