663: IF (g_asn_debug = 'Y') THEN
664: asn_debug.put_line('NO_DATA_FOUND exception occured. Receiving options are not defined for organization = ' || p_header_record.header_record.ship_to_organization_id);
665: END IF;
666: p_header_record.error_record.error_status := 'E';
667: rcv_error_pkg.set_error_message('RCV_NO_OPTION', p_header_record.error_record.error_message);
668: rcv_error_pkg.set_token('ORG', p_header_record.header_record.ship_to_organization_id);
669: -- End of code for bugfix #4070516
670: WHEN OTHERS THEN
671: p_header_record.error_record.error_status := 'E';
664: asn_debug.put_line('NO_DATA_FOUND exception occured. Receiving options are not defined for organization = ' || p_header_record.header_record.ship_to_organization_id);
665: END IF;
666: p_header_record.error_record.error_status := 'E';
667: rcv_error_pkg.set_error_message('RCV_NO_OPTION', p_header_record.error_record.error_message);
668: rcv_error_pkg.set_token('ORG', p_header_record.header_record.ship_to_organization_id);
669: -- End of code for bugfix #4070516
670: WHEN OTHERS THEN
671: p_header_record.error_record.error_status := 'E';
672: p_header_record.error_record.error_message := SQLERRM;
805: lookup_record.error_record.error_message := NULL; --p_header_record.error_record.error_message;
806: po_core_s.validate_lookup_info(lookup_record);
807:
808: IF (lookup_record.error_record.error_status <> 'S') THEN
809: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
810: rcv_error_pkg.set_error_message('RCV_TRX_TYPE_INVALID', p_header_record.error_record.error_message);
811: rcv_error_pkg.set_token('TYPE', lookup_record.lookup_code);
812: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'TRANSACTION_TYPE');
813: END IF;
806: po_core_s.validate_lookup_info(lookup_record);
807:
808: IF (lookup_record.error_record.error_status <> 'S') THEN
809: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
810: rcv_error_pkg.set_error_message('RCV_TRX_TYPE_INVALID', p_header_record.error_record.error_message);
811: rcv_error_pkg.set_token('TYPE', lookup_record.lookup_code);
812: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'TRANSACTION_TYPE');
813: END IF;
814:
807:
808: IF (lookup_record.error_record.error_status <> 'S') THEN
809: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
810: rcv_error_pkg.set_error_message('RCV_TRX_TYPE_INVALID', p_header_record.error_record.error_message);
811: rcv_error_pkg.set_token('TYPE', lookup_record.lookup_code);
812: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'TRANSACTION_TYPE');
813: END IF;
814:
815: IF (g_asn_debug = 'Y') THEN
808: IF (lookup_record.error_record.error_status <> 'S') THEN
809: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
810: rcv_error_pkg.set_error_message('RCV_TRX_TYPE_INVALID', p_header_record.error_record.error_message);
811: rcv_error_pkg.set_token('TYPE', lookup_record.lookup_code);
812: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'TRANSACTION_TYPE');
813: END IF;
814:
815: IF (g_asn_debug = 'Y') THEN
816: asn_debug.put_line('validated transaction type');
815: IF (g_asn_debug = 'Y') THEN
816: asn_debug.put_line('validated transaction type');
817: END IF;
818: EXCEPTION
819: WHEN rcv_error_pkg.e_fatal_error THEN
820: NULL;
821: END validate_trx_type;
822:
823: PROCEDURE validate_expected_receipt_date(
836: */
837: IF (p_header_record.header_record.transaction_type <> 'CANCEL') THEN
838: IF (p_header_record.header_record.expected_receipt_date IS NULL and
839: p_header_record.header_record.asn_type <> 'WC') THEN
840: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
841: rcv_error_pkg.set_error_message('RCV_ASN_EXPECTED_RECEIPT_DATE', p_header_record.error_record.error_message);
842: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'EXPECTED_RECEIPT_DATE');
843: END IF;
844: END IF;
837: IF (p_header_record.header_record.transaction_type <> 'CANCEL') THEN
838: IF (p_header_record.header_record.expected_receipt_date IS NULL and
839: p_header_record.header_record.asn_type <> 'WC') THEN
840: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
841: rcv_error_pkg.set_error_message('RCV_ASN_EXPECTED_RECEIPT_DATE', p_header_record.error_record.error_message);
842: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'EXPECTED_RECEIPT_DATE');
843: END IF;
844: END IF;
845:
838: IF (p_header_record.header_record.expected_receipt_date IS NULL and
839: p_header_record.header_record.asn_type <> 'WC') THEN
840: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
841: rcv_error_pkg.set_error_message('RCV_ASN_EXPECTED_RECEIPT_DATE', p_header_record.error_record.error_message);
842: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'EXPECTED_RECEIPT_DATE');
843: END IF;
844: END IF;
845:
846: IF (g_asn_debug = 'Y') THEN
846: IF (g_asn_debug = 'Y') THEN
847: asn_debug.put_line('validated expected_receipt_date is not missing');
848: END IF;
849: EXCEPTION
850: WHEN rcv_error_pkg.e_fatal_error THEN
851: NULL;
852: END validate_expected_receipt_date;
853:
854: PROCEDURE validate_receipt_num(
872: /* Bug 3590735.
873: * When we error out with receipt number mandatory error,
874: * we need to set this error in po_interface_errors.
875: */
876: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
877: rcv_error_pkg.set_error_message('RCV_RECEIPT_NUM_REQ', p_header_record.error_record.error_message);
878: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'RECEIPT_NUM');
879: END IF;
880:
873: * When we error out with receipt number mandatory error,
874: * we need to set this error in po_interface_errors.
875: */
876: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
877: rcv_error_pkg.set_error_message('RCV_RECEIPT_NUM_REQ', p_header_record.error_record.error_message);
878: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'RECEIPT_NUM');
879: END IF;
880:
881: /* Bug 12719212
874: * we need to set this error in po_interface_errors.
875: */
876: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
877: rcv_error_pkg.set_error_message('RCV_RECEIPT_NUM_REQ', p_header_record.error_record.error_message);
878: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'RECEIPT_NUM');
879: END IF;
880:
881: /* Bug 12719212
882: * get the value if the shipment is new shipment (has not been received),
943: END IF;
944: END IF;
945:
946: IF (x_count > 0 OR x_rhi_count > 1) THEN
947: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
948: rcv_error_pkg.set_error_message('PO_PDOI_RECEIPT_NUM_UNIQUE', p_header_record.error_record.error_message);
949: rcv_error_pkg.set_token('VALUE', p_header_record.header_record.receipt_num);
950: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'RECEIPT_NUM');
951: END IF;
944: END IF;
945:
946: IF (x_count > 0 OR x_rhi_count > 1) THEN
947: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
948: rcv_error_pkg.set_error_message('PO_PDOI_RECEIPT_NUM_UNIQUE', p_header_record.error_record.error_message);
949: rcv_error_pkg.set_token('VALUE', p_header_record.header_record.receipt_num);
950: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'RECEIPT_NUM');
951: END IF;
952: /* End of fix for Bug 9126513 */
945:
946: IF (x_count > 0 OR x_rhi_count > 1) THEN
947: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
948: rcv_error_pkg.set_error_message('PO_PDOI_RECEIPT_NUM_UNIQUE', p_header_record.error_record.error_message);
949: rcv_error_pkg.set_token('VALUE', p_header_record.header_record.receipt_num);
950: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'RECEIPT_NUM');
951: END IF;
952: /* End of fix for Bug 9126513 */
953:
946: IF (x_count > 0 OR x_rhi_count > 1) THEN
947: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
948: rcv_error_pkg.set_error_message('PO_PDOI_RECEIPT_NUM_UNIQUE', p_header_record.error_record.error_message);
949: rcv_error_pkg.set_token('VALUE', p_header_record.header_record.receipt_num);
950: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'RECEIPT_NUM');
951: END IF;
952: /* End of fix for Bug 9126513 */
953:
954: IF (g_asn_debug = 'Y') THEN
955: asn_debug.put_line('validated receipt number');
956: END IF;
957: END IF;
958: EXCEPTION
959: WHEN rcv_error_pkg.e_fatal_error THEN
960: NULL;
961: END validate_receipt_num;
962:
963: PROCEDURE validate_ship_to_org_info(
971:
972: IF p_header_record.header_record.asn_type IN('ASN', 'ASBN', 'STD', 'LCM') THEN /* lcm changes */
973: ship_to_org_record.organization_code := p_header_record.header_record.ship_to_organization_code;
974: ship_to_org_record.organization_id := p_header_record.header_record.ship_to_organization_id;
975: ship_to_org_record.error_record.error_status := rcv_error_pkg.g_ret_sts_success;
976: ship_to_org_record.error_record.error_message := NULL;
977:
978: IF (g_asn_debug = 'Y') THEN
979: asn_debug.put_line('In Validate Ship to Organization Procedure');
987: IF (g_asn_debug = 'Y') THEN
988: asn_debug.put_line('Error with RCV_SHIPTO_ORG_DISABLED');
989: END IF;
990:
991: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
992: rcv_error_pkg.set_error_message('RCV_SHIPTO_ORG_DISABLED', p_header_record.error_record.error_message);
993: rcv_error_pkg.set_token('ORGANIZATION', ship_to_org_record.organization_id);
994: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'SHIP_TO_ORGANIZATION_ID');
995: END IF;
988: asn_debug.put_line('Error with RCV_SHIPTO_ORG_DISABLED');
989: END IF;
990:
991: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
992: rcv_error_pkg.set_error_message('RCV_SHIPTO_ORG_DISABLED', p_header_record.error_record.error_message);
993: rcv_error_pkg.set_token('ORGANIZATION', ship_to_org_record.organization_id);
994: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'SHIP_TO_ORGANIZATION_ID');
995: END IF;
996: ELSE
989: END IF;
990:
991: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
992: rcv_error_pkg.set_error_message('RCV_SHIPTO_ORG_DISABLED', p_header_record.error_record.error_message);
993: rcv_error_pkg.set_token('ORGANIZATION', ship_to_org_record.organization_id);
994: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'SHIP_TO_ORGANIZATION_ID');
995: END IF;
996: ELSE
997: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
990:
991: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
992: rcv_error_pkg.set_error_message('RCV_SHIPTO_ORG_DISABLED', p_header_record.error_record.error_message);
993: rcv_error_pkg.set_token('ORGANIZATION', ship_to_org_record.organization_id);
994: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'SHIP_TO_ORGANIZATION_ID');
995: END IF;
996: ELSE
997: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
998: rcv_error_pkg.set_error_message('PO_PDOI_INVALID_SHIP_TO_ORG_ID', p_header_record.error_record.error_message);
993: rcv_error_pkg.set_token('ORGANIZATION', ship_to_org_record.organization_id);
994: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'SHIP_TO_ORGANIZATION_ID');
995: END IF;
996: ELSE
997: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
998: rcv_error_pkg.set_error_message('PO_PDOI_INVALID_SHIP_TO_ORG_ID', p_header_record.error_record.error_message);
999: rcv_error_pkg.set_token('VALUE', ship_to_org_record.organization_id);
1000: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'SHIP_TO_ORGANIZATION_ID');
1001: END IF;
994: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'SHIP_TO_ORGANIZATION_ID');
995: END IF;
996: ELSE
997: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
998: rcv_error_pkg.set_error_message('PO_PDOI_INVALID_SHIP_TO_ORG_ID', p_header_record.error_record.error_message);
999: rcv_error_pkg.set_token('VALUE', ship_to_org_record.organization_id);
1000: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'SHIP_TO_ORGANIZATION_ID');
1001: END IF;
1002: END IF;
995: END IF;
996: ELSE
997: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
998: rcv_error_pkg.set_error_message('PO_PDOI_INVALID_SHIP_TO_ORG_ID', p_header_record.error_record.error_message);
999: rcv_error_pkg.set_token('VALUE', ship_to_org_record.organization_id);
1000: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'SHIP_TO_ORGANIZATION_ID');
1001: END IF;
1002: END IF;
1003:
996: ELSE
997: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
998: rcv_error_pkg.set_error_message('PO_PDOI_INVALID_SHIP_TO_ORG_ID', p_header_record.error_record.error_message);
999: rcv_error_pkg.set_token('VALUE', ship_to_org_record.organization_id);
1000: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'SHIP_TO_ORGANIZATION_ID');
1001: END IF;
1002: END IF;
1003:
1004: IF (g_asn_debug = 'Y') THEN
1041: IF (g_asn_debug = 'Y') THEN
1042: asn_debug.put_line('Atleast one of the RTIs has a different org id/code than that of the header');
1043: END IF;
1044:
1045: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1046: rcv_error_pkg.set_error_message('RCV_MUL_DESTN_ORGS_FOR_LINES', p_header_record.error_record.error_message);
1047: rcv_error_pkg.set_token('VALUE', p_header_record.header_record.ship_to_organization_id);
1048: rcv_error_pkg.log_interface_error('SHIP_TO_ORGANIZATION_ID');
1049: ELSE
1042: asn_debug.put_line('Atleast one of the RTIs has a different org id/code than that of the header');
1043: END IF;
1044:
1045: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1046: rcv_error_pkg.set_error_message('RCV_MUL_DESTN_ORGS_FOR_LINES', p_header_record.error_record.error_message);
1047: rcv_error_pkg.set_token('VALUE', p_header_record.header_record.ship_to_organization_id);
1048: rcv_error_pkg.log_interface_error('SHIP_TO_ORGANIZATION_ID');
1049: ELSE
1050: IF (g_asn_debug = 'Y') THEN
1043: END IF;
1044:
1045: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1046: rcv_error_pkg.set_error_message('RCV_MUL_DESTN_ORGS_FOR_LINES', p_header_record.error_record.error_message);
1047: rcv_error_pkg.set_token('VALUE', p_header_record.header_record.ship_to_organization_id);
1048: rcv_error_pkg.log_interface_error('SHIP_TO_ORGANIZATION_ID');
1049: ELSE
1050: IF (g_asn_debug = 'Y') THEN
1051: asn_debug.put_line('In the ELSE part');
1044:
1045: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1046: rcv_error_pkg.set_error_message('RCV_MUL_DESTN_ORGS_FOR_LINES', p_header_record.error_record.error_message);
1047: rcv_error_pkg.set_token('VALUE', p_header_record.header_record.ship_to_organization_id);
1048: rcv_error_pkg.log_interface_error('SHIP_TO_ORGANIZATION_ID');
1049: ELSE
1050: IF (g_asn_debug = 'Y') THEN
1051: asn_debug.put_line('In the ELSE part');
1052: END IF;
1103: IF (g_asn_debug = 'Y') THEN
1104: asn_debug.put_line('For one of the RTI records a different org id/code is derived');
1105: END IF;
1106:
1107: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1108: rcv_error_pkg.set_error_message('RCV_MUL_DESTN_ORGS_FOR_LINES', p_header_record.error_record.error_message);
1109: rcv_error_pkg.set_token('VALUE', p_header_record.header_record.ship_to_organization_id);
1110: rcv_error_pkg.log_interface_error('SHIP_TO_ORGANIZATION_ID');
1111: END IF;
1104: asn_debug.put_line('For one of the RTI records a different org id/code is derived');
1105: END IF;
1106:
1107: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1108: rcv_error_pkg.set_error_message('RCV_MUL_DESTN_ORGS_FOR_LINES', p_header_record.error_record.error_message);
1109: rcv_error_pkg.set_token('VALUE', p_header_record.header_record.ship_to_organization_id);
1110: rcv_error_pkg.log_interface_error('SHIP_TO_ORGANIZATION_ID');
1111: END IF;
1112: END IF;
1105: END IF;
1106:
1107: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1108: rcv_error_pkg.set_error_message('RCV_MUL_DESTN_ORGS_FOR_LINES', p_header_record.error_record.error_message);
1109: rcv_error_pkg.set_token('VALUE', p_header_record.header_record.ship_to_organization_id);
1110: rcv_error_pkg.log_interface_error('SHIP_TO_ORGANIZATION_ID');
1111: END IF;
1112: END IF;
1113:
1106:
1107: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1108: rcv_error_pkg.set_error_message('RCV_MUL_DESTN_ORGS_FOR_LINES', p_header_record.error_record.error_message);
1109: rcv_error_pkg.set_token('VALUE', p_header_record.header_record.ship_to_organization_id);
1110: rcv_error_pkg.log_interface_error('SHIP_TO_ORGANIZATION_ID');
1111: END IF;
1112: END IF;
1113:
1114: IF (g_asn_debug = 'Y') THEN
1117: END IF;
1118: END IF; --End of bug# 3662698.
1119:
1120: EXCEPTION
1121: WHEN rcv_error_pkg.e_fatal_error THEN
1122: NULL;
1123: END validate_ship_to_org_info;
1124:
1125: PROCEDURE validate_from_org_info(
1135: IF from_org_record.organization_code IS NOT NULL
1136: OR from_org_record.organization_id IS NOT NULL THEN
1137: from_org_record.organization_code := p_header_record.header_record.from_organization_code;
1138: from_org_record.organization_id := p_header_record.header_record.from_organization_id;
1139: from_org_record.error_record.error_status := rcv_error_pkg.g_ret_sts_success;
1140: from_org_record.error_record.error_message := NULL;
1141:
1142: IF (g_asn_debug = 'Y') THEN
1143: asn_debug.put_line('In Validate From Organization Procedure');
1151: IF (g_asn_debug = 'Y') THEN
1152: asn_debug.put_line('Error with RCV_SHIPTO_ORG_DISABLED');
1153: END IF;
1154:
1155: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1156: rcv_error_pkg.set_error_message('RCV_FROM_ORG_DISABLED', p_header_record.error_record.error_message);
1157: rcv_error_pkg.set_token('ORGANIZATION', from_org_record.organization_code);
1158: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'FROM_ORGANIZATION_ID');
1159: END IF;
1152: asn_debug.put_line('Error with RCV_SHIPTO_ORG_DISABLED');
1153: END IF;
1154:
1155: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1156: rcv_error_pkg.set_error_message('RCV_FROM_ORG_DISABLED', p_header_record.error_record.error_message);
1157: rcv_error_pkg.set_token('ORGANIZATION', from_org_record.organization_code);
1158: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'FROM_ORGANIZATION_ID');
1159: END IF;
1160: ELSE
1153: END IF;
1154:
1155: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1156: rcv_error_pkg.set_error_message('RCV_FROM_ORG_DISABLED', p_header_record.error_record.error_message);
1157: rcv_error_pkg.set_token('ORGANIZATION', from_org_record.organization_code);
1158: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'FROM_ORGANIZATION_ID');
1159: END IF;
1160: ELSE
1161: IF (g_asn_debug = 'Y') THEN
1154:
1155: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1156: rcv_error_pkg.set_error_message('RCV_FROM_ORG_DISABLED', p_header_record.error_record.error_message);
1157: rcv_error_pkg.set_token('ORGANIZATION', from_org_record.organization_code);
1158: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'FROM_ORGANIZATION_ID');
1159: END IF;
1160: ELSE
1161: IF (g_asn_debug = 'Y') THEN
1162: asn_debug.put_line('Error with from ORG_ID');
1161: IF (g_asn_debug = 'Y') THEN
1162: asn_debug.put_line('Error with from ORG_ID');
1163: END IF;
1164:
1165: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1166: rcv_error_pkg.set_error_message('RCV_FROM_ORG_ID', p_header_record.error_record.error_message);
1167: rcv_error_pkg.set_token('ORGANIZATION', from_org_record.organization_code);
1168: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'FROM_ORGANIZATION_ID');
1169: END IF;
1162: asn_debug.put_line('Error with from ORG_ID');
1163: END IF;
1164:
1165: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1166: rcv_error_pkg.set_error_message('RCV_FROM_ORG_ID', p_header_record.error_record.error_message);
1167: rcv_error_pkg.set_token('ORGANIZATION', from_org_record.organization_code);
1168: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'FROM_ORGANIZATION_ID');
1169: END IF;
1170: END IF;
1163: END IF;
1164:
1165: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1166: rcv_error_pkg.set_error_message('RCV_FROM_ORG_ID', p_header_record.error_record.error_message);
1167: rcv_error_pkg.set_token('ORGANIZATION', from_org_record.organization_code);
1168: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'FROM_ORGANIZATION_ID');
1169: END IF;
1170: END IF;
1171:
1164:
1165: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1166: rcv_error_pkg.set_error_message('RCV_FROM_ORG_ID', p_header_record.error_record.error_message);
1167: rcv_error_pkg.set_token('ORGANIZATION', from_org_record.organization_code);
1168: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'FROM_ORGANIZATION_ID');
1169: END IF;
1170: END IF;
1171:
1172: IF (g_asn_debug = 'Y') THEN
1174: END IF;
1175: END IF;
1176: END IF;
1177: EXCEPTION
1178: WHEN rcv_error_pkg.e_fatal_error THEN
1179: NULL;
1180: END validate_from_org_info;
1181:
1182: PROCEDURE validate_location_info(
1194: OR p_header_record.header_record.location_id IS NOT NULL) THEN
1195: loc_record.location_code := p_header_record.header_record.location_code;
1196: loc_record.location_id := p_header_record.header_record.location_id;
1197: loc_record.organization_id := p_header_record.header_record.ship_to_organization_id;
1198: loc_record.error_record.error_status := rcv_error_pkg.g_ret_sts_success;
1199: loc_record.error_record.error_message := NULL;
1200:
1201: IF (g_asn_debug = 'Y') THEN
1202: asn_debug.put_line('In Validate Location Code Procedure');
1205: po_locations_s.validate_location_info(loc_record);
1206:
1207: IF loc_record.error_record.error_status <> 'S' THEN
1208: IF loc_record.error_record.error_message = 'LOC_NOT_IN_ORG' THEN
1209: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1210: rcv_error_pkg.set_error_message('RCV_LOC_NOT_IN_ORG', p_header_record.error_record.error_message);
1211: rcv_error_pkg.set_token('LOCATION', loc_record.location_id);
1212: rcv_error_pkg.set_token('ORGANIZATION', loc_record.organization_id);
1213: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'LOCATION_ID');
1206:
1207: IF loc_record.error_record.error_status <> 'S' THEN
1208: IF loc_record.error_record.error_message = 'LOC_NOT_IN_ORG' THEN
1209: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1210: rcv_error_pkg.set_error_message('RCV_LOC_NOT_IN_ORG', p_header_record.error_record.error_message);
1211: rcv_error_pkg.set_token('LOCATION', loc_record.location_id);
1212: rcv_error_pkg.set_token('ORGANIZATION', loc_record.organization_id);
1213: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'LOCATION_ID');
1214: ELSE
1207: IF loc_record.error_record.error_status <> 'S' THEN
1208: IF loc_record.error_record.error_message = 'LOC_NOT_IN_ORG' THEN
1209: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1210: rcv_error_pkg.set_error_message('RCV_LOC_NOT_IN_ORG', p_header_record.error_record.error_message);
1211: rcv_error_pkg.set_token('LOCATION', loc_record.location_id);
1212: rcv_error_pkg.set_token('ORGANIZATION', loc_record.organization_id);
1213: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'LOCATION_ID');
1214: ELSE
1215: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1208: IF loc_record.error_record.error_message = 'LOC_NOT_IN_ORG' THEN
1209: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1210: rcv_error_pkg.set_error_message('RCV_LOC_NOT_IN_ORG', p_header_record.error_record.error_message);
1211: rcv_error_pkg.set_token('LOCATION', loc_record.location_id);
1212: rcv_error_pkg.set_token('ORGANIZATION', loc_record.organization_id);
1213: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'LOCATION_ID');
1214: ELSE
1215: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1216: rcv_error_pkg.set_error_message('PO_PDOI_INVALID_SHIP_TO_LOC_ID', p_header_record.error_record.error_message);
1209: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1210: rcv_error_pkg.set_error_message('RCV_LOC_NOT_IN_ORG', p_header_record.error_record.error_message);
1211: rcv_error_pkg.set_token('LOCATION', loc_record.location_id);
1212: rcv_error_pkg.set_token('ORGANIZATION', loc_record.organization_id);
1213: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'LOCATION_ID');
1214: ELSE
1215: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1216: rcv_error_pkg.set_error_message('PO_PDOI_INVALID_SHIP_TO_LOC_ID', p_header_record.error_record.error_message);
1217: rcv_error_pkg.set_token('VALUE', loc_record.location_id);
1211: rcv_error_pkg.set_token('LOCATION', loc_record.location_id);
1212: rcv_error_pkg.set_token('ORGANIZATION', loc_record.organization_id);
1213: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'LOCATION_ID');
1214: ELSE
1215: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1216: rcv_error_pkg.set_error_message('PO_PDOI_INVALID_SHIP_TO_LOC_ID', p_header_record.error_record.error_message);
1217: rcv_error_pkg.set_token('VALUE', loc_record.location_id);
1218: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'LOCATION_ID');
1219: END IF;
1212: rcv_error_pkg.set_token('ORGANIZATION', loc_record.organization_id);
1213: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'LOCATION_ID');
1214: ELSE
1215: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1216: rcv_error_pkg.set_error_message('PO_PDOI_INVALID_SHIP_TO_LOC_ID', p_header_record.error_record.error_message);
1217: rcv_error_pkg.set_token('VALUE', loc_record.location_id);
1218: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'LOCATION_ID');
1219: END IF;
1220: END IF;
1213: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'LOCATION_ID');
1214: ELSE
1215: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1216: rcv_error_pkg.set_error_message('PO_PDOI_INVALID_SHIP_TO_LOC_ID', p_header_record.error_record.error_message);
1217: rcv_error_pkg.set_token('VALUE', loc_record.location_id);
1218: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'LOCATION_ID');
1219: END IF;
1220: END IF;
1221:
1214: ELSE
1215: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1216: rcv_error_pkg.set_error_message('PO_PDOI_INVALID_SHIP_TO_LOC_ID', p_header_record.error_record.error_message);
1217: rcv_error_pkg.set_token('VALUE', loc_record.location_id);
1218: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'LOCATION_ID');
1219: END IF;
1220: END IF;
1221:
1222: IF (g_asn_debug = 'Y') THEN
1225: asn_debug.put_line('Validated location info');
1226: END IF;
1227: END IF;
1228: EXCEPTION
1229: WHEN rcv_error_pkg.e_fatal_error THEN
1230: NULL;
1231: END validate_location_info;
1232:
1233: PROCEDURE validate_ship_from_loc_info(
1280: AND p_header_record.header_record.asn_type in ('ASN', 'ASBN') ) THEN
1281: IF (g_asn_debug = 'Y') THEN
1282: asn_debug.put_line('Ship from location id cannot be null if shipping_control is BUYER');
1283: END IF;
1284: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1285: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE_NE');
1286: rcv_error_pkg.set_token('ROI_VALUE',p_header_record.header_record.ship_from_location_id);
1287: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'SHIP_FROM_LOCATION_ID');
1288:
1281: IF (g_asn_debug = 'Y') THEN
1282: asn_debug.put_line('Ship from location id cannot be null if shipping_control is BUYER');
1283: END IF;
1284: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1285: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE_NE');
1286: rcv_error_pkg.set_token('ROI_VALUE',p_header_record.header_record.ship_from_location_id);
1287: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'SHIP_FROM_LOCATION_ID');
1288:
1289: END IF;*/
1282: asn_debug.put_line('Ship from location id cannot be null if shipping_control is BUYER');
1283: END IF;
1284: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1285: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE_NE');
1286: rcv_error_pkg.set_token('ROI_VALUE',p_header_record.header_record.ship_from_location_id);
1287: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'SHIP_FROM_LOCATION_ID');
1288:
1289: END IF;*/
1290: --End Bug 5263268
1283: END IF;
1284: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1285: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE_NE');
1286: rcv_error_pkg.set_token('ROI_VALUE',p_header_record.header_record.ship_from_location_id);
1287: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'SHIP_FROM_LOCATION_ID');
1288:
1289: END IF;*/
1290: --End Bug 5263268
1291:
1305: x_msg_data
1306: );
1307:
1308: IF (x_out_rec.is_valid = FALSE) THEN
1309: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1310: rcv_error_pkg.set_error_message('RCV_LOC_NOT_IN_ORG', p_header_record.error_record.error_message);
1311: rcv_error_pkg.set_token('LOCATION', p_header_record.header_record.ship_from_location_id);
1312: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'SHIP_FROM_LOCATION_ID');
1313: END IF;
1306: );
1307:
1308: IF (x_out_rec.is_valid = FALSE) THEN
1309: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1310: rcv_error_pkg.set_error_message('RCV_LOC_NOT_IN_ORG', p_header_record.error_record.error_message);
1311: rcv_error_pkg.set_token('LOCATION', p_header_record.header_record.ship_from_location_id);
1312: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'SHIP_FROM_LOCATION_ID');
1313: END IF;
1314:
1307:
1308: IF (x_out_rec.is_valid = FALSE) THEN
1309: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1310: rcv_error_pkg.set_error_message('RCV_LOC_NOT_IN_ORG', p_header_record.error_record.error_message);
1311: rcv_error_pkg.set_token('LOCATION', p_header_record.header_record.ship_from_location_id);
1312: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'SHIP_FROM_LOCATION_ID');
1313: END IF;
1314:
1315: IF (g_asn_debug = 'Y') THEN
1308: IF (x_out_rec.is_valid = FALSE) THEN
1309: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1310: rcv_error_pkg.set_error_message('RCV_LOC_NOT_IN_ORG', p_header_record.error_record.error_message);
1311: rcv_error_pkg.set_token('LOCATION', p_header_record.header_record.ship_from_location_id);
1312: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'SHIP_FROM_LOCATION_ID');
1313: END IF;
1314:
1315: IF (g_asn_debug = 'Y') THEN
1316: asn_debug.put_line('Validated location info with status=' || p_header_record.error_record.error_status);
1316: asn_debug.put_line('Validated location info with status=' || p_header_record.error_record.error_status);
1317: END IF;
1318: END IF;
1319: EXCEPTION
1320: WHEN rcv_error_pkg.e_fatal_error THEN
1321: NULL;
1322: END validate_ship_from_loc_info;
1323:
1324: PROCEDURE validate_payment_terms_info(
1334: OR p_header_record.header_record.payment_terms_id IS NOT NULL)
1335: AND p_header_record.header_record.transaction_type <> 'CANCEL' THEN
1336: pay_record.payment_term_id := p_header_record.header_record.payment_terms_id;
1337: pay_record.payment_term_name := p_header_record.header_record.payment_terms_name;
1338: pay_record.error_record.error_status := rcv_error_pkg.g_ret_sts_success;
1339: pay_record.error_record.error_message := NULL;
1340:
1341: IF (g_asn_debug = 'Y') THEN
1342: asn_debug.put_line('In Validate Payment Terms ');
1349: pay_record.error_record.error_status := 'S';
1350: END IF;
1351:
1352: IF pay_record.error_record.error_status <> 'S' THEN
1353: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1354: rcv_error_pkg.set_error_message('PO_PDOI_INVALID_PAY_TERMS', p_header_record.error_record.error_message);
1355: rcv_error_pkg.set_token('VALUE', pay_record.payment_term_id);
1356: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'PAYMENT_TERMS_ID');
1357: END IF;
1350: END IF;
1351:
1352: IF pay_record.error_record.error_status <> 'S' THEN
1353: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1354: rcv_error_pkg.set_error_message('PO_PDOI_INVALID_PAY_TERMS', p_header_record.error_record.error_message);
1355: rcv_error_pkg.set_token('VALUE', pay_record.payment_term_id);
1356: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'PAYMENT_TERMS_ID');
1357: END IF;
1358:
1351:
1352: IF pay_record.error_record.error_status <> 'S' THEN
1353: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1354: rcv_error_pkg.set_error_message('PO_PDOI_INVALID_PAY_TERMS', p_header_record.error_record.error_message);
1355: rcv_error_pkg.set_token('VALUE', pay_record.payment_term_id);
1356: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'PAYMENT_TERMS_ID');
1357: END IF;
1358:
1359: IF (g_asn_debug = 'Y') THEN
1352: IF pay_record.error_record.error_status <> 'S' THEN
1353: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1354: rcv_error_pkg.set_error_message('PO_PDOI_INVALID_PAY_TERMS', p_header_record.error_record.error_message);
1355: rcv_error_pkg.set_token('VALUE', pay_record.payment_term_id);
1356: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'PAYMENT_TERMS_ID');
1357: END IF;
1358:
1359: IF (g_asn_debug = 'Y') THEN
1360: asn_debug.put_line(pay_record.error_record.error_status);
1364: asn_debug.put_line('Validated payment info');
1365: END IF;
1366: END IF;
1367: EXCEPTION
1368: WHEN rcv_error_pkg.e_fatal_error THEN
1369: NULL;
1370: END validate_payment_terms_info;
1371:
1372: PROCEDURE validate_receiver_info(
1383: AND ( p_header_record.header_record.employee_name IS NOT NULL
1384: OR p_header_record.header_record.employee_id IS NOT NULL) THEN
1385: emp_record.employee_name := p_header_record.header_record.employee_name;
1386: emp_record.employee_id := p_header_record.header_record.employee_id;
1387: emp_record.error_record.error_status := rcv_error_pkg.g_ret_sts_success;
1388: emp_record.error_record.error_message := NULL;
1389:
1390: IF (g_asn_debug = 'Y') THEN
1391: asn_debug.put_line('In Validate Receiver Information');
1397: asn_debug.put_line(emp_record.error_record.error_status);
1398: END IF;
1399:
1400: IF emp_record.error_record.error_status <> 'S' THEN
1401: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1402: rcv_error_pkg.set_error_message('RCV_RECEIVER_ID', p_header_record.error_record.error_message);
1403: rcv_error_pkg.set_token('NAME', emp_record.employee_name);
1404: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'EMPLOYEE_ID');
1405: END IF;
1398: END IF;
1399:
1400: IF emp_record.error_record.error_status <> 'S' THEN
1401: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1402: rcv_error_pkg.set_error_message('RCV_RECEIVER_ID', p_header_record.error_record.error_message);
1403: rcv_error_pkg.set_token('NAME', emp_record.employee_name);
1404: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'EMPLOYEE_ID');
1405: END IF;
1406:
1399:
1400: IF emp_record.error_record.error_status <> 'S' THEN
1401: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1402: rcv_error_pkg.set_error_message('RCV_RECEIVER_ID', p_header_record.error_record.error_message);
1403: rcv_error_pkg.set_token('NAME', emp_record.employee_name);
1404: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'EMPLOYEE_ID');
1405: END IF;
1406:
1407: IF (g_asn_debug = 'Y') THEN
1400: IF emp_record.error_record.error_status <> 'S' THEN
1401: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1402: rcv_error_pkg.set_error_message('RCV_RECEIVER_ID', p_header_record.error_record.error_message);
1403: rcv_error_pkg.set_token('NAME', emp_record.employee_name);
1404: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'EMPLOYEE_ID');
1405: END IF;
1406:
1407: IF (g_asn_debug = 'Y') THEN
1408: asn_debug.put_line('Validated receiver info');
1408: asn_debug.put_line('Validated receiver info');
1409: END IF;
1410: END IF;
1411: EXCEPTION
1412: WHEN rcv_error_pkg.e_fatal_error THEN
1413: NULL;
1414: END validate_receiver_info;
1415:
1416: PROCEDURE validate_freight_carrier_info(
1430: IF p_header_record.header_record.transaction_type <> 'CANCEL'
1431: AND p_header_record.header_record.freight_carrier_code IS NOT NULL THEN
1432: freight_record.freight_carrier_code := p_header_record.header_record.freight_carrier_code;
1433: freight_record.organization_id := p_header_record.header_record.ship_to_organization_id;
1434: freight_record.error_record.error_status := rcv_error_pkg.g_ret_sts_success;
1435: freight_record.error_record.error_message := NULL;
1436:
1437: IF (g_asn_debug = 'Y') THEN
1438: asn_debug.put_line('In Validate Freight Carrier Information');
1466:
1467: po_terms_sv.validate_freight_carrier_info(freight_record);
1468:
1469: IF freight_record.error_record.error_status <> 'S' THEN
1470: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1471: rcv_error_pkg.set_error_message('RCV_CARRIER_DISABLED', p_header_record.error_record.error_message);
1472: rcv_error_pkg.set_token('CARRIER', freight_record.freight_carrier_code);
1473: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'FREIGHT_CARRIER_CODE');
1474: END IF;
1467: po_terms_sv.validate_freight_carrier_info(freight_record);
1468:
1469: IF freight_record.error_record.error_status <> 'S' THEN
1470: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1471: rcv_error_pkg.set_error_message('RCV_CARRIER_DISABLED', p_header_record.error_record.error_message);
1472: rcv_error_pkg.set_token('CARRIER', freight_record.freight_carrier_code);
1473: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'FREIGHT_CARRIER_CODE');
1474: END IF;
1475:
1468:
1469: IF freight_record.error_record.error_status <> 'S' THEN
1470: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1471: rcv_error_pkg.set_error_message('RCV_CARRIER_DISABLED', p_header_record.error_record.error_message);
1472: rcv_error_pkg.set_token('CARRIER', freight_record.freight_carrier_code);
1473: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'FREIGHT_CARRIER_CODE');
1474: END IF;
1475:
1476: IF (g_asn_debug = 'Y') THEN
1469: IF freight_record.error_record.error_status <> 'S' THEN
1470: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1471: rcv_error_pkg.set_error_message('RCV_CARRIER_DISABLED', p_header_record.error_record.error_message);
1472: rcv_error_pkg.set_token('CARRIER', freight_record.freight_carrier_code);
1473: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'FREIGHT_CARRIER_CODE');
1474: END IF;
1475:
1476: IF (g_asn_debug = 'Y') THEN
1477: asn_debug.put_line(freight_record.error_record.error_status);
1478: asn_debug.put_line('Validated freight carrier info');
1479: END IF;
1480: END IF;
1481: EXCEPTION
1482: WHEN rcv_error_pkg.e_fatal_error THEN
1483: NULL;
1484: END validate_freight_carrier_info;
1485:
1486: PROCEDURE validate_shipment_date(
1507: asn_debug.put_line('Shipped date can be blank for STD '||
1508: 'or Work Confirmations ');
1509: END IF;
1510: ELSE
1511: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1512: rcv_error_pkg.set_error_message('RCV_SHIP_DATE_INVALID', p_header_record.error_record.error_message);
1513: rcv_error_pkg.set_token('SHIP_DATE', fnd_date.date_to_chardate(p_header_record.header_record.shipped_date));
1514: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'SHIPPED_DATE');
1515: END IF;
1508: 'or Work Confirmations ');
1509: END IF;
1510: ELSE
1511: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1512: rcv_error_pkg.set_error_message('RCV_SHIP_DATE_INVALID', p_header_record.error_record.error_message);
1513: rcv_error_pkg.set_token('SHIP_DATE', fnd_date.date_to_chardate(p_header_record.header_record.shipped_date));
1514: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'SHIPPED_DATE');
1515: END IF;
1516: END IF;
1509: END IF;
1510: ELSE
1511: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1512: rcv_error_pkg.set_error_message('RCV_SHIP_DATE_INVALID', p_header_record.error_record.error_message);
1513: rcv_error_pkg.set_token('SHIP_DATE', fnd_date.date_to_chardate(p_header_record.header_record.shipped_date));
1514: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'SHIPPED_DATE');
1515: END IF;
1516: END IF;
1517:
1510: ELSE
1511: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1512: rcv_error_pkg.set_error_message('RCV_SHIP_DATE_INVALID', p_header_record.error_record.error_message);
1513: rcv_error_pkg.set_token('SHIP_DATE', fnd_date.date_to_chardate(p_header_record.header_record.shipped_date));
1514: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'SHIPPED_DATE');
1515: END IF;
1516: END IF;
1517:
1518: IF (g_asn_debug = 'Y') THEN
1518: IF (g_asn_debug = 'Y') THEN
1519: asn_debug.put_line('validated for shipment_date > system date');
1520: END IF;
1521: EXCEPTION
1522: WHEN rcv_error_pkg.e_fatal_error THEN
1523: NULL;
1524: END validate_shipment_date;
1525:
1526: PROCEDURE validate_item(
1535: x_item_id_po po_lines.item_id%TYPE := NULL;
1536: x_error_status VARCHAR2(1);
1537: BEGIN
1538: asn_debug.put_line('inside validate item : receipt_source_code = ' || x_cascaded_table(n).receipt_source_code);
1539: x_error_status := rcv_error_pkg.g_ret_sts_error;
1540:
1541: SELECT NVL(MAX(inventory_item_id), -9999)
1542: INTO x_inventory_item
1543: FROM mtl_system_items
1543: FROM mtl_system_items
1544: WHERE inventory_item_id = x_cascaded_table(n).item_id;
1545:
1546: IF (x_inventory_item = -9999) THEN
1547: rcv_error_pkg.set_error_message('RCV_ITEM_ID');
1548: RAISE e_validation_error;
1549: END IF;
1550:
1551: SELECT NVL(MAX(inventory_item_id), -9999)
1555: AND inventory_item_id = x_cascaded_table(n).item_id
1556: AND organization_id = NVL(x_cascaded_table(n).to_organization_id,organization_id); -- Bug 12985791
1557:
1558: IF (x_inventory_item = -9999) THEN
1559: rcv_error_pkg.set_error_message('RCV_ITEM_NOT_ACTIVE');
1560: RAISE e_validation_error;
1561: END IF;
1562:
1563: -- Bugfix 5735599
1585: IF (g_asn_debug = 'Y') THEN
1586: asn_debug.put_line('Error occured while checking inactive item in rcv_roi_header_common procedure. Error :: ' || SQLERRM );
1587: END IF;
1588:
1589: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
1590: rcv_error_pkg.set_sql_error_message('rcv_roi_header_common.validate_item', '000');
1591: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
1592: rcv_error_pkg.log_interface_error('ITEM', TRUE);
1593:
1586: asn_debug.put_line('Error occured while checking inactive item in rcv_roi_header_common procedure. Error :: ' || SQLERRM );
1587: END IF;
1588:
1589: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
1590: rcv_error_pkg.set_sql_error_message('rcv_roi_header_common.validate_item', '000');
1591: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
1592: rcv_error_pkg.log_interface_error('ITEM', TRUE);
1593:
1594: RETURN;
1587: END IF;
1588:
1589: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
1590: rcv_error_pkg.set_sql_error_message('rcv_roi_header_common.validate_item', '000');
1591: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
1592: rcv_error_pkg.log_interface_error('ITEM', TRUE);
1593:
1594: RETURN;
1595: END;
1588:
1589: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
1590: rcv_error_pkg.set_sql_error_message('rcv_roi_header_common.validate_item', '000');
1591: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
1592: rcv_error_pkg.log_interface_error('ITEM', TRUE);
1593:
1594: RETURN;
1595: END;
1596:
1599: IF l_inventory_item_flag = 'Y' AND l_stock_enabled_flag = 'N' AND
1600: (x_cascaded_table(n).auto_transact_code = 'DELIVER' OR x_cascaded_table(n).transaction_type = 'DELIVER')
1601: AND (x_cascaded_table(n).destination_type_code = 'INVENTORY') -- Bug 8433870
1602: THEN
1603: rcv_error_pkg.set_error_message('RCV_ITEM_NOT_ACTIVE');
1604: RAISE e_validation_error;
1605: END IF;
1606:
1607: -- End of code for Bugfix 5735599
1620: WHERE inventory_item_id = x_cascaded_table(n).item_id
1621: AND organization_id = NVL(x_cascaded_table(n).to_organization_id, organization_id);
1622:
1623: IF (x_organization_id = -9999) THEN
1624: rcv_error_pkg.set_error_message('RCV_ITEM_NOT_IN_ORG');
1625: RAISE e_validation_error;
1626: END IF;
1627:
1628: -- do these checks only for PO based transactions
1633: WHERE po_line_id = x_cascaded_table(n).po_line_id
1634: AND item_id = x_cascaded_table(n).item_id;
1635:
1636: IF (x_item_id_po = -9999) THEN
1637: rcv_error_pkg.set_error_message('RCV_ITEM_NOT_ON_PO');
1638: RAISE e_validation_error;
1639: END IF;
1640:
1641: SELECT NVL(MAX(item_id), -9999)
1644: WHERE po_line_id = x_cascaded_table(n).po_line_id
1645: AND item_id = x_cascaded_table(n).item_id;
1646:
1647: IF (x_item_id_po <> x_cascaded_table(n).item_id) THEN
1648: rcv_error_pkg.set_error_message('RCV_NOT_PO_LINE_NUM');
1649: RAISE e_validation_error;
1650: END IF;
1651: END IF; --}
1652:
1658: END IF;
1659: EXCEPTION
1660: WHEN e_validation_error THEN
1661: x_cascaded_table(n).error_status := x_error_status;
1662: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
1663:
1664: IF x_cascaded_table(n).error_message = 'RCV_ITEM_ID' THEN
1665: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_id);
1666: ELSIF x_cascaded_table(n).error_message = 'RCV_ITEM_NOT_ACTIVE' THEN
1661: x_cascaded_table(n).error_status := x_error_status;
1662: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
1663:
1664: IF x_cascaded_table(n).error_message = 'RCV_ITEM_ID' THEN
1665: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_id);
1666: ELSIF x_cascaded_table(n).error_message = 'RCV_ITEM_NOT_ACTIVE' THEN
1667: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_id);
1668: ELSIF x_cascaded_table(n).error_message = 'RCV_ITEM_NOT_IN_ORG' THEN
1669: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_id);
1663:
1664: IF x_cascaded_table(n).error_message = 'RCV_ITEM_ID' THEN
1665: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_id);
1666: ELSIF x_cascaded_table(n).error_message = 'RCV_ITEM_NOT_ACTIVE' THEN
1667: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_id);
1668: ELSIF x_cascaded_table(n).error_message = 'RCV_ITEM_NOT_IN_ORG' THEN
1669: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_id);
1670: rcv_error_pkg.set_token('ORGANIZATION', x_cascaded_table(n).to_organization_id);
1671: ELSIF x_cascaded_table(n).error_message = 'RCV_ITEM_NOT_ON_PO' THEN
1665: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_id);
1666: ELSIF x_cascaded_table(n).error_message = 'RCV_ITEM_NOT_ACTIVE' THEN
1667: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_id);
1668: ELSIF x_cascaded_table(n).error_message = 'RCV_ITEM_NOT_IN_ORG' THEN
1669: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_id);
1670: rcv_error_pkg.set_token('ORGANIZATION', x_cascaded_table(n).to_organization_id);
1671: ELSIF x_cascaded_table(n).error_message = 'RCV_ITEM_NOT_ON_PO' THEN
1672: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_id);
1673: rcv_error_pkg.set_token('ORGANIZATION', x_cascaded_table(n).to_organization_id);
1666: ELSIF x_cascaded_table(n).error_message = 'RCV_ITEM_NOT_ACTIVE' THEN
1667: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_id);
1668: ELSIF x_cascaded_table(n).error_message = 'RCV_ITEM_NOT_IN_ORG' THEN
1669: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_id);
1670: rcv_error_pkg.set_token('ORGANIZATION', x_cascaded_table(n).to_organization_id);
1671: ELSIF x_cascaded_table(n).error_message = 'RCV_ITEM_NOT_ON_PO' THEN
1672: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_id);
1673: rcv_error_pkg.set_token('ORGANIZATION', x_cascaded_table(n).to_organization_id);
1674: ELSIF x_cascaded_table(n).error_message = 'RCV_NOT_PO_LINE_NUM' THEN
1668: ELSIF x_cascaded_table(n).error_message = 'RCV_ITEM_NOT_IN_ORG' THEN
1669: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_id);
1670: rcv_error_pkg.set_token('ORGANIZATION', x_cascaded_table(n).to_organization_id);
1671: ELSIF x_cascaded_table(n).error_message = 'RCV_ITEM_NOT_ON_PO' THEN
1672: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_id);
1673: rcv_error_pkg.set_token('ORGANIZATION', x_cascaded_table(n).to_organization_id);
1674: ELSIF x_cascaded_table(n).error_message = 'RCV_NOT_PO_LINE_NUM' THEN
1675: rcv_error_pkg.set_token('PO_ITEM', x_item_id_po);
1676: rcv_error_pkg.set_token('SHIPMENT_ITEM', x_cascaded_table(n).item_id);
1669: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_id);
1670: rcv_error_pkg.set_token('ORGANIZATION', x_cascaded_table(n).to_organization_id);
1671: ELSIF x_cascaded_table(n).error_message = 'RCV_ITEM_NOT_ON_PO' THEN
1672: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_id);
1673: rcv_error_pkg.set_token('ORGANIZATION', x_cascaded_table(n).to_organization_id);
1674: ELSIF x_cascaded_table(n).error_message = 'RCV_NOT_PO_LINE_NUM' THEN
1675: rcv_error_pkg.set_token('PO_ITEM', x_item_id_po);
1676: rcv_error_pkg.set_token('SHIPMENT_ITEM', x_cascaded_table(n).item_id);
1677: END IF;
1671: ELSIF x_cascaded_table(n).error_message = 'RCV_ITEM_NOT_ON_PO' THEN
1672: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_id);
1673: rcv_error_pkg.set_token('ORGANIZATION', x_cascaded_table(n).to_organization_id);
1674: ELSIF x_cascaded_table(n).error_message = 'RCV_NOT_PO_LINE_NUM' THEN
1675: rcv_error_pkg.set_token('PO_ITEM', x_item_id_po);
1676: rcv_error_pkg.set_token('SHIPMENT_ITEM', x_cascaded_table(n).item_id);
1677: END IF;
1678: END validate_item;
1679:
1672: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_id);
1673: rcv_error_pkg.set_token('ORGANIZATION', x_cascaded_table(n).to_organization_id);
1674: ELSIF x_cascaded_table(n).error_message = 'RCV_NOT_PO_LINE_NUM' THEN
1675: rcv_error_pkg.set_token('PO_ITEM', x_item_id_po);
1676: rcv_error_pkg.set_token('SHIPMENT_ITEM', x_cascaded_table(n).item_id);
1677: END IF;
1678: END validate_item;
1679:
1680: PROCEDURE validate_substitute_item(
1686: x_vendor_id po_vendors.vendor_id%TYPE := NULL;
1687: x_error_status VARCHAR2(1);
1688: x_allow_sub_flag VARCHAR2(1);
1689: BEGIN
1690: x_error_status := rcv_error_pkg.g_ret_sts_error;
1691:
1692: SELECT NVL(MAX(inventory_item_id), 0)
1693: INTO x_inventory_item
1694: FROM mtl_system_items
1695: WHERE inventory_item_id = x_cascaded_table(n).substitute_item_id
1696: AND organization_id = NVL(x_cascaded_table(n).to_organization_id, organization_id);
1697:
1698: IF (x_inventory_item = 0) THEN
1699: rcv_error_pkg.set_error_message('RCV_ITEM_SUB_ID');
1700: RAISE e_validation_error;
1701: END IF;
1702:
1703: SELECT NVL(MAX(inventory_item_id), 0)
1707: AND inventory_item_id = x_cascaded_table(n).substitute_item_id
1708: AND organization_id = NVL(x_cascaded_table(n).to_organization_id, organization_id);
1709:
1710: IF (x_inventory_item = 0) THEN
1711: rcv_error_pkg.set_error_message('RCV_ITEM_SUB_NOT_ACTIVE');
1712: RAISE e_validation_error;
1713: END IF;
1714:
1715: -- do these checks only for PO based transactions
1739: FROM po_line_locations
1740: WHERE line_location_id = x_cascaded_table(n).po_line_location_id;
1741:
1742: IF (x_allow_sub_flag = 'N') THEN
1743: rcv_error_pkg.set_error_message('RCV_ITEM_SUB_NOT_ALLOWED');
1744: RAISE e_validation_error;
1745: END IF;
1746:
1747: SELECT NVL(MAX(inventory_item_id), 0)
1750: WHERE inventory_item_id = x_cascaded_table(n).substitute_item_id
1751: AND organization_id = NVL(x_cascaded_table(n).to_organization_id, organization_id);
1752:
1753: IF (x_inventory_item = 0) THEN
1754: rcv_error_pkg.set_error_message('RCV_ITEM_SUB_NOT_IN_ORG');
1755: RAISE e_validation_error;
1756: END IF;
1757:
1758: -- Bug 13926508: Commenting Supplier level validation since it is not required for substitute item receipts.
1763: WHERE vendor_id = x_cascaded_table(n).vendor_id
1764: AND allow_substitute_receipts_flag = 'Y';
1765:
1766: IF (x_vendor_id = 0) THEN
1767: rcv_error_pkg.set_error_message('RCV_ITEM_SUB_VEN_NOT_ALLOWED');
1768: RAISE e_validation_error;
1769: END IF; */
1770:
1771: -- Need to check for related items if reciprocal_flag is set
1827:
1828: END IF;
1829:
1830: IF (x_inventory_item = 0) THEN
1831: rcv_error_pkg.set_error_message('RCV_ITEM_SUB_NOT_RELATED');
1832: RAISE e_validation_error;
1833: END IF;
1834: END IF; --}
1835: EXCEPTION
1834: END IF; --}
1835: EXCEPTION
1836: WHEN e_validation_error THEN
1837: x_cascaded_table(n).error_status := x_error_status;
1838: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
1839:
1840: IF x_cascaded_table(n).error_message = 'RCV_ITEM_SUB_ID' THEN
1841: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).substitute_item_id);
1842: ELSIF x_cascaded_table(n).error_message = 'RCV_ITEM_SUB_NOT_ACTIVE' THEN
1837: x_cascaded_table(n).error_status := x_error_status;
1838: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
1839:
1840: IF x_cascaded_table(n).error_message = 'RCV_ITEM_SUB_ID' THEN
1841: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).substitute_item_id);
1842: ELSIF x_cascaded_table(n).error_message = 'RCV_ITEM_SUB_NOT_ACTIVE' THEN
1843: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).substitute_item_id);
1844: ELSIF x_cascaded_table(n).error_message = 'RCV_ITEM_SUB_NOT_ALLOWED' THEN
1845: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).substitute_item_id);
1839:
1840: IF x_cascaded_table(n).error_message = 'RCV_ITEM_SUB_ID' THEN
1841: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).substitute_item_id);
1842: ELSIF x_cascaded_table(n).error_message = 'RCV_ITEM_SUB_NOT_ACTIVE' THEN
1843: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).substitute_item_id);
1844: ELSIF x_cascaded_table(n).error_message = 'RCV_ITEM_SUB_NOT_ALLOWED' THEN
1845: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).substitute_item_id);
1846: ELSIF x_cascaded_table(n).error_message = 'RCV_ITEM_SUB_NOT_IN_ORG' THEN
1847: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).substitute_item_id);
1841: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).substitute_item_id);
1842: ELSIF x_cascaded_table(n).error_message = 'RCV_ITEM_SUB_NOT_ACTIVE' THEN
1843: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).substitute_item_id);
1844: ELSIF x_cascaded_table(n).error_message = 'RCV_ITEM_SUB_NOT_ALLOWED' THEN
1845: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).substitute_item_id);
1846: ELSIF x_cascaded_table(n).error_message = 'RCV_ITEM_SUB_NOT_IN_ORG' THEN
1847: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).substitute_item_id);
1848: rcv_error_pkg.set_token('ORGANIZATION', x_cascaded_table(n).to_organization_id);
1849: ELSIF x_cascaded_table(n).error_message = 'RCV_ITEM_SUB_VEN_NOT_ALLOWED' THEN
1843: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).substitute_item_id);
1844: ELSIF x_cascaded_table(n).error_message = 'RCV_ITEM_SUB_NOT_ALLOWED' THEN
1845: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).substitute_item_id);
1846: ELSIF x_cascaded_table(n).error_message = 'RCV_ITEM_SUB_NOT_IN_ORG' THEN
1847: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).substitute_item_id);
1848: rcv_error_pkg.set_token('ORGANIZATION', x_cascaded_table(n).to_organization_id);
1849: ELSIF x_cascaded_table(n).error_message = 'RCV_ITEM_SUB_VEN_NOT_ALLOWED' THEN
1850: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).substitute_item_id);
1851: rcv_error_pkg.set_token('SUPPLIER', x_cascaded_table(n).vendor_id);
1844: ELSIF x_cascaded_table(n).error_message = 'RCV_ITEM_SUB_NOT_ALLOWED' THEN
1845: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).substitute_item_id);
1846: ELSIF x_cascaded_table(n).error_message = 'RCV_ITEM_SUB_NOT_IN_ORG' THEN
1847: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).substitute_item_id);
1848: rcv_error_pkg.set_token('ORGANIZATION', x_cascaded_table(n).to_organization_id);
1849: ELSIF x_cascaded_table(n).error_message = 'RCV_ITEM_SUB_VEN_NOT_ALLOWED' THEN
1850: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).substitute_item_id);
1851: rcv_error_pkg.set_token('SUPPLIER', x_cascaded_table(n).vendor_id);
1852: ELSIF x_cascaded_table(n).error_message = 'RCV_ITEM_SUB_NOT_RELATED' THEN
1846: ELSIF x_cascaded_table(n).error_message = 'RCV_ITEM_SUB_NOT_IN_ORG' THEN
1847: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).substitute_item_id);
1848: rcv_error_pkg.set_token('ORGANIZATION', x_cascaded_table(n).to_organization_id);
1849: ELSIF x_cascaded_table(n).error_message = 'RCV_ITEM_SUB_VEN_NOT_ALLOWED' THEN
1850: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).substitute_item_id);
1851: rcv_error_pkg.set_token('SUPPLIER', x_cascaded_table(n).vendor_id);
1852: ELSIF x_cascaded_table(n).error_message = 'RCV_ITEM_SUB_NOT_RELATED' THEN
1853: rcv_error_pkg.set_token('SUB_ITEM', x_cascaded_table(n).substitute_item_id);
1854: rcv_error_pkg.set_token('ITEM', x_inventory_item);
1847: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).substitute_item_id);
1848: rcv_error_pkg.set_token('ORGANIZATION', x_cascaded_table(n).to_organization_id);
1849: ELSIF x_cascaded_table(n).error_message = 'RCV_ITEM_SUB_VEN_NOT_ALLOWED' THEN
1850: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).substitute_item_id);
1851: rcv_error_pkg.set_token('SUPPLIER', x_cascaded_table(n).vendor_id);
1852: ELSIF x_cascaded_table(n).error_message = 'RCV_ITEM_SUB_NOT_RELATED' THEN
1853: rcv_error_pkg.set_token('SUB_ITEM', x_cascaded_table(n).substitute_item_id);
1854: rcv_error_pkg.set_token('ITEM', x_inventory_item);
1855: END IF;
1849: ELSIF x_cascaded_table(n).error_message = 'RCV_ITEM_SUB_VEN_NOT_ALLOWED' THEN
1850: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).substitute_item_id);
1851: rcv_error_pkg.set_token('SUPPLIER', x_cascaded_table(n).vendor_id);
1852: ELSIF x_cascaded_table(n).error_message = 'RCV_ITEM_SUB_NOT_RELATED' THEN
1853: rcv_error_pkg.set_token('SUB_ITEM', x_cascaded_table(n).substitute_item_id);
1854: rcv_error_pkg.set_token('ITEM', x_inventory_item);
1855: END IF;
1856: END validate_substitute_item;
1857:
1850: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).substitute_item_id);
1851: rcv_error_pkg.set_token('SUPPLIER', x_cascaded_table(n).vendor_id);
1852: ELSIF x_cascaded_table(n).error_message = 'RCV_ITEM_SUB_NOT_RELATED' THEN
1853: rcv_error_pkg.set_token('SUB_ITEM', x_cascaded_table(n).substitute_item_id);
1854: rcv_error_pkg.set_token('ITEM', x_inventory_item);
1855: END IF;
1856: END validate_substitute_item;
1857:
1858: PROCEDURE validate_item_revision(
1881: * 2) Removed all the commented piece of codes, as the code looks clumsy.
1882: * 3) Removed the unnecessary error code part from the 'WHEN e_validation_error'
1883: * exception handler block.
1884: */
1885: x_error_status := rcv_error_pkg.g_ret_sts_error;
1886:
1887: IF x_cascaded_table(n).substitute_item_id IS NOT NULL THEN
1888: l_substitute_item := TRUE;
1889: l_active_item_id := x_cascaded_table(n).substitute_item_id;
1921: AND organization_id = NVL(x_cascaded_table(n).to_organization_id, organization_id)
1922: AND revision = x_cascaded_table(n).item_revision;
1923:
1924: IF (x_inventory_item = 0) THEN
1925: rcv_error_pkg.set_error_message('PO_RI_INVALID_ITEM_REVISION');
1926: RAISE e_validation_error;
1927: END IF;
1928:
1929: EXCEPTION
1928:
1929: EXCEPTION
1930: WHEN e_validation_error THEN --Bug 6055435
1931: x_cascaded_table(n).error_status := x_error_status;
1932: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
1933:
1934: IF x_cascaded_table(n).error_message = 'PO_RI_INVALID_ITEM_REVISION' THEN
1935: NULL;
1936: END IF;
1939: asn_debug.put_line('exception in valid_item_revision');
1940: asn_debug.put_line(SQLERRM);
1941: END IF;
1942: x_cascaded_table(n).error_status := 'E';
1943: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
1944:
1945: END validate_item_revision;
1946:
1947: /* lcm changes */
1974: IF (l_lcm_org_flag = 'Y') THEN
1975: IF ( l_pre_rcv_flag = 'N') THEN
1976: --
1977: /* LCM import is not supported in blackbox scenario */
1978: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1979: rcv_error_pkg.set_error_message('RCV_LCM_IMPORT_NOT_ALLOWED', p_header_record.error_record.error_message);
1980: rcv_error_pkg.set_token('ORG_ID', p_header_record.header_record.ship_to_organization_id);
1981: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'ASN_TYPE');
1982: --
1975: IF ( l_pre_rcv_flag = 'N') THEN
1976: --
1977: /* LCM import is not supported in blackbox scenario */
1978: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1979: rcv_error_pkg.set_error_message('RCV_LCM_IMPORT_NOT_ALLOWED', p_header_record.error_record.error_message);
1980: rcv_error_pkg.set_token('ORG_ID', p_header_record.header_record.ship_to_organization_id);
1981: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'ASN_TYPE');
1982: --
1983: ELSE
1976: --
1977: /* LCM import is not supported in blackbox scenario */
1978: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1979: rcv_error_pkg.set_error_message('RCV_LCM_IMPORT_NOT_ALLOWED', p_header_record.error_record.error_message);
1980: rcv_error_pkg.set_token('ORG_ID', p_header_record.header_record.ship_to_organization_id);
1981: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'ASN_TYPE');
1982: --
1983: ELSE
1984: --
1977: /* LCM import is not supported in blackbox scenario */
1978: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1979: rcv_error_pkg.set_error_message('RCV_LCM_IMPORT_NOT_ALLOWED', p_header_record.error_record.error_message);
1980: rcv_error_pkg.set_token('ORG_ID', p_header_record.header_record.ship_to_organization_id);
1981: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'ASN_TYPE');
1982: --
1983: ELSE
1984: --
1985: IF (g_asn_debug = 'Y') THEN
1985: IF (g_asn_debug = 'Y') THEN
1986: asn_debug.put_line('p_header_record.header_record.transaction_type ' || p_header_record.header_record.transaction_type , NULL, 11);
1987: END IF;
1988: IF (p_header_record.header_record.transaction_type <> 'NEW') THEN
1989: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1990: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE_NE', p_header_record.error_record.error_message);
1991: rcv_error_pkg.set_token('COLUMN', 'TRANSACTION_TYPE');
1992: rcv_error_pkg.set_token('ROI_VALUE', p_header_record.header_record.transaction_type);
1993: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'TRANSACTION_TYPE');
1986: asn_debug.put_line('p_header_record.header_record.transaction_type ' || p_header_record.header_record.transaction_type , NULL, 11);
1987: END IF;
1988: IF (p_header_record.header_record.transaction_type <> 'NEW') THEN
1989: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1990: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE_NE', p_header_record.error_record.error_message);
1991: rcv_error_pkg.set_token('COLUMN', 'TRANSACTION_TYPE');
1992: rcv_error_pkg.set_token('ROI_VALUE', p_header_record.header_record.transaction_type);
1993: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'TRANSACTION_TYPE');
1994: END IF;
1987: END IF;
1988: IF (p_header_record.header_record.transaction_type <> 'NEW') THEN
1989: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1990: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE_NE', p_header_record.error_record.error_message);
1991: rcv_error_pkg.set_token('COLUMN', 'TRANSACTION_TYPE');
1992: rcv_error_pkg.set_token('ROI_VALUE', p_header_record.header_record.transaction_type);
1993: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'TRANSACTION_TYPE');
1994: END IF;
1995: --
1988: IF (p_header_record.header_record.transaction_type <> 'NEW') THEN
1989: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1990: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE_NE', p_header_record.error_record.error_message);
1991: rcv_error_pkg.set_token('COLUMN', 'TRANSACTION_TYPE');
1992: rcv_error_pkg.set_token('ROI_VALUE', p_header_record.header_record.transaction_type);
1993: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'TRANSACTION_TYPE');
1994: END IF;
1995: --
1996: END IF;
1989: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
1990: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE_NE', p_header_record.error_record.error_message);
1991: rcv_error_pkg.set_token('COLUMN', 'TRANSACTION_TYPE');
1992: rcv_error_pkg.set_token('ROI_VALUE', p_header_record.header_record.transaction_type);
1993: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'TRANSACTION_TYPE');
1994: END IF;
1995: --
1996: END IF;
1997: ELSE
1995: --
1996: END IF;
1997: ELSE
1998: /* LCM import is not supported in a non-lcm org */
1999: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
2000: rcv_error_pkg.set_error_message('RCV_LCM_IMPORT_NOT_ALLOWED', p_header_record.error_record.error_message);
2001: rcv_error_pkg.set_token('ORG_ID', p_header_record.header_record.ship_to_organization_id);
2002: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'ASN_TYPE');
2003: END IF;
1996: END IF;
1997: ELSE
1998: /* LCM import is not supported in a non-lcm org */
1999: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
2000: rcv_error_pkg.set_error_message('RCV_LCM_IMPORT_NOT_ALLOWED', p_header_record.error_record.error_message);
2001: rcv_error_pkg.set_token('ORG_ID', p_header_record.header_record.ship_to_organization_id);
2002: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'ASN_TYPE');
2003: END IF;
2004: END IF;
1997: ELSE
1998: /* LCM import is not supported in a non-lcm org */
1999: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
2000: rcv_error_pkg.set_error_message('RCV_LCM_IMPORT_NOT_ALLOWED', p_header_record.error_record.error_message);
2001: rcv_error_pkg.set_token('ORG_ID', p_header_record.header_record.ship_to_organization_id);
2002: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'ASN_TYPE');
2003: END IF;
2004: END IF;
2005:
1998: /* LCM import is not supported in a non-lcm org */
1999: p_header_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
2000: rcv_error_pkg.set_error_message('RCV_LCM_IMPORT_NOT_ALLOWED', p_header_record.error_record.error_message);
2001: rcv_error_pkg.set_token('ORG_ID', p_header_record.header_record.ship_to_organization_id);
2002: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE', 'ASN_TYPE');
2003: END IF;
2004: END IF;
2005:
2006: IF (g_asn_debug = 'Y') THEN
2008: asn_debug.put_line('Exitting validate_lcm_info');
2009: END IF;
2010:
2011: EXCEPTION
2012: WHEN rcv_error_pkg.e_fatal_error THEN
2013: NULL;
2014: END validate_lcm_info;
2015:
2016: END rcv_roi_header_common;