570: END IF;
571:
572: IF (p_attr_type = 'GLN') THEN
573: l_msg_data := 'Validation Failed: GLN should be 13 length digits';
574: FND_MESSAGE.SET_NAME('CLN','M4U_ATTRVAL_GLN_1');
575: x_msg_data := FND_MESSAGE.GET;
576:
577: select length(p_attr_value) into l_attr_len from dual;
578:
571:
572: IF (p_attr_type = 'GLN') THEN
573: l_msg_data := 'Validation Failed: GLN should be 13 length digits';
574: FND_MESSAGE.SET_NAME('CLN','M4U_ATTRVAL_GLN_1');
575: x_msg_data := FND_MESSAGE.GET;
576:
577: select length(p_attr_value) into l_attr_len from dual;
578:
579: If(l_attr_len <> 13) THEN
581: END IF;
582:
583: l_msg_data := 'Validation Failed: GLN should be a numeric value';
584:
585: FND_MESSAGE.SET_NAME('CLN','M4U_ATTRVAL_GLN_2');
586: x_msg_data := FND_MESSAGE.GET;
587: select to_number(p_attr_value,'9999999999999') into l_attr_value from dual;
588:
589:
582:
583: l_msg_data := 'Validation Failed: GLN should be a numeric value';
584:
585: FND_MESSAGE.SET_NAME('CLN','M4U_ATTRVAL_GLN_2');
586: x_msg_data := FND_MESSAGE.GET;
587: select to_number(p_attr_value,'9999999999999') into l_attr_value from dual;
588:
589:
590: l_msg_data := 'Validation Failed: GLN check digitsum is wrong';
588:
589:
590: l_msg_data := 'Validation Failed: GLN check digitsum is wrong';
591:
592: FND_MESSAGE.SET_NAME('CLN','M4U_ATTRVAL_GLN_3');
593: x_msg_data := FND_MESSAGE.GET;
594:
595: IF(NOT validate_checkdigit_gln(p_attr_value)) THEN
596: RAISE FND_API.G_EXC_ERROR;
589:
590: l_msg_data := 'Validation Failed: GLN check digitsum is wrong';
591:
592: FND_MESSAGE.SET_NAME('CLN','M4U_ATTRVAL_GLN_3');
593: x_msg_data := FND_MESSAGE.GET;
594:
595: IF(NOT validate_checkdigit_gln(p_attr_value)) THEN
596: RAISE FND_API.G_EXC_ERROR;
597: END IF;
597: END IF;
598: return TRUE;
599: l_msg_data := 'GLN validated';
600:
601: FND_MESSAGE.SET_NAME('CLN','M4U_ATTRVAL_GLN_VALID');
602: x_msg_data := FND_MESSAGE.GET;
603: END IF;
604:
605: IF (p_attr_type = 'GTIN') THEN
598: return TRUE;
599: l_msg_data := 'GLN validated';
600:
601: FND_MESSAGE.SET_NAME('CLN','M4U_ATTRVAL_GLN_VALID');
602: x_msg_data := FND_MESSAGE.GET;
603: END IF;
604:
605: IF (p_attr_type = 'GTIN') THEN
606: -- 1. GTINs submitted in RCI messages must be 14 characters
604:
605: IF (p_attr_type = 'GTIN') THEN
606: -- 1. GTINs submitted in RCI messages must be 14 characters
607: l_msg_data := 'Validation Failed: GTIN should be 14 length digits';
608: FND_MESSAGE.SET_NAME('CLN','M4U_ATTRVAL_GTIN_1');
609: x_msg_data := FND_MESSAGE.GET;
610:
611: select length(p_attr_value) into l_attr_len from dual;
612:
605: IF (p_attr_type = 'GTIN') THEN
606: -- 1. GTINs submitted in RCI messages must be 14 characters
607: l_msg_data := 'Validation Failed: GTIN should be 14 length digits';
608: FND_MESSAGE.SET_NAME('CLN','M4U_ATTRVAL_GTIN_1');
609: x_msg_data := FND_MESSAGE.GET;
610:
611: select length(p_attr_value) into l_attr_len from dual;
612:
613: If(l_attr_len <> 14) THEN
616:
617:
618: -- 2. GTIN should be a numeric entity
619: l_msg_data := 'Validation Failed: GTIN should be a numeric value';
620: FND_MESSAGE.SET_NAME('CLN','M4U_ATTRVAL_GTIN_2');
621: x_msg_data := FND_MESSAGE.GET;
622:
623: select to_number(p_attr_value,'99999999999999') into l_attr_value from dual;
624:
617:
618: -- 2. GTIN should be a numeric entity
619: l_msg_data := 'Validation Failed: GTIN should be a numeric value';
620: FND_MESSAGE.SET_NAME('CLN','M4U_ATTRVAL_GTIN_2');
621: x_msg_data := FND_MESSAGE.GET;
622:
623: select to_number(p_attr_value,'99999999999999') into l_attr_value from dual;
624:
625: -- 3. Checksum should be correct
623: select to_number(p_attr_value,'99999999999999') into l_attr_value from dual;
624:
625: -- 3. Checksum should be correct
626: l_msg_data := 'Validation Failed: GTIN check digitsum is wrong';
627: FND_MESSAGE.SET_NAME('CLN','M4U_ATTRVAL_GTIN_3');
628: x_msg_data := FND_MESSAGE.GET;
629:
630: IF(NOT validate_checkdigit_gtin(p_attr_value)) THEN
631: RAISE FND_API.G_EXC_ERROR;
624:
625: -- 3. Checksum should be correct
626: l_msg_data := 'Validation Failed: GTIN check digitsum is wrong';
627: FND_MESSAGE.SET_NAME('CLN','M4U_ATTRVAL_GTIN_3');
628: x_msg_data := FND_MESSAGE.GET;
629:
630: IF(NOT validate_checkdigit_gtin(p_attr_value)) THEN
631: RAISE FND_API.G_EXC_ERROR;
632: END IF;
632: END IF;
633: return TRUE;
634:
635: l_msg_data := 'GTIN validated';
636: FND_MESSAGE.SET_NAME('CLN','M4U_ATTRVAL_GTIN_VALID');
637: x_msg_data := FND_MESSAGE.GET;
638: END IF;
639:
640: IF (p_attr_type = 'TRGMKT') THEN
633: return TRUE;
634:
635: l_msg_data := 'GTIN validated';
636: FND_MESSAGE.SET_NAME('CLN','M4U_ATTRVAL_GTIN_VALID');
637: x_msg_data := FND_MESSAGE.GET;
638: END IF;
639:
640: IF (p_attr_type = 'TRGMKT') THEN
641: -- Parameters received
644: END IF;
645:
646:
647: l_msg_data := 'Validation Failed: Target Market should be 1-3 digits';
648: FND_MESSAGE.SET_NAME('CLN','M4U_ATTRVAL_TRGMKT_1');
649: x_msg_data := FND_MESSAGE.GET;
650:
651: select length(p_attr_value) into l_attr_len from dual;
652:
645:
646:
647: l_msg_data := 'Validation Failed: Target Market should be 1-3 digits';
648: FND_MESSAGE.SET_NAME('CLN','M4U_ATTRVAL_TRGMKT_1');
649: x_msg_data := FND_MESSAGE.GET;
650:
651: select length(p_attr_value) into l_attr_len from dual;
652:
653: If(l_attr_len > 3) THEN