453:
454: x_cascaded_table(n).to_organization_code := ship_to_org_record.organization_code;
455: x_cascaded_table(n).to_organization_id := ship_to_org_record.organization_id;
456: x_cascaded_table(n).error_status := ship_to_org_record.error_record.error_status;
457: rcv_error_pkg.set_error_message(ship_to_org_record.error_record.error_message, x_cascaded_table(n).error_message);
458: END IF;
459:
460: /* Derive Vendor Information */
461: x_progress := '002';
490:
491: x_cascaded_table(n).vendor_name := vendor_record.vendor_name;
492: x_cascaded_table(n).vendor_num := vendor_record.vendor_num;
493: x_cascaded_table(n).vendor_id := vendor_record.vendor_id;
494: rcv_error_pkg.set_error_message(vendor_record.error_record.error_message, x_cascaded_table(n).error_message);
495: x_cascaded_table(n).error_status := vendor_record.error_record.error_status;
496: END IF;
497: END IF;
498:
530: x_cascaded_table(n).vendor_site_code := vendor_site_record.vendor_site_code;
531: x_cascaded_table(n).vendor_id := vendor_site_record.vendor_id;
532: x_cascaded_table(n).vendor_site_id := vendor_site_record.vendor_site_id;
533: x_cascaded_table(n).to_organization_id := vendor_site_record.organization_id;
534: rcv_error_pkg.set_error_message(vendor_site_record.error_record.error_message, x_cascaded_table(n).error_message);
535: x_cascaded_table(n).error_status := vendor_site_record.error_record.error_status;
536: END IF;
537:
538: x_progress := '005';
558:
559: rcv_transactions_interface_sv.get_po_header_id(document_num_record);
560: x_cascaded_table(n).po_header_id := document_num_record.po_header_id;
561: x_cascaded_table(n).error_status := document_num_record.error_record.error_status;
562: rcv_error_pkg.set_error_message(document_num_record.error_record.error_message, x_cascaded_table(n).error_message);
563:
564: IF (g_asn_debug = 'Y') THEN
565: asn_debug.put_line(TO_CHAR(x_cascaded_table(n).po_header_id));
566: END IF;
564: IF (g_asn_debug = 'Y') THEN
565: asn_debug.put_line(TO_CHAR(x_cascaded_table(n).po_header_id));
566: END IF;
567:
568: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
569: 'DOCUMENT_NUM',
570: FALSE
571: );
572: END IF;
595: x_cascaded_table(n).primary_unit_of_measure := item_id_record.primary_unit_of_measure;
596: x_cascaded_table(n).use_mtl_lot := item_id_record.use_mtl_lot; -- bug 608353
597: x_cascaded_table(n).use_mtl_serial := item_id_record.use_mtl_serial; -- bug 608353
598: x_cascaded_table(n).error_status := item_id_record.error_record.error_status;
599: rcv_error_pkg.set_error_message(item_id_record.error_record.error_message, x_cascaded_table(n).error_message);
600: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
601: 'ITEM_NUM',
602: FALSE
603: );
596: x_cascaded_table(n).use_mtl_lot := item_id_record.use_mtl_lot; -- bug 608353
597: x_cascaded_table(n).use_mtl_serial := item_id_record.use_mtl_serial; -- bug 608353
598: x_cascaded_table(n).error_status := item_id_record.error_record.error_status;
599: rcv_error_pkg.set_error_message(item_id_record.error_record.error_message, x_cascaded_table(n).error_message);
600: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
601: 'ITEM_NUM',
602: FALSE
603: );
604: END IF;
631:
632: rcv_transactions_interface_sv.get_sub_item_id(sub_item_id_record);
633: x_cascaded_table(n).substitute_item_id := sub_item_id_record.substitute_item_id;
634: x_cascaded_table(n).error_status := sub_item_id_record.error_record.error_status;
635: rcv_error_pkg.set_error_message(sub_item_id_record.error_record.error_message, x_cascaded_table(n).error_message);
636: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
637: 'SUBSTITUTE_ITEM_NUM',
638: FALSE
639: );
632: rcv_transactions_interface_sv.get_sub_item_id(sub_item_id_record);
633: x_cascaded_table(n).substitute_item_id := sub_item_id_record.substitute_item_id;
634: x_cascaded_table(n).error_status := sub_item_id_record.error_record.error_status;
635: rcv_error_pkg.set_error_message(sub_item_id_record.error_record.error_message, x_cascaded_table(n).error_message);
636: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
637: 'SUBSTITUTE_ITEM_NUM',
638: FALSE
639: );
640:
671: END IF;
672:
673: x_cascaded_table(n).po_line_id := po_line_id_record.po_line_id;
674: x_cascaded_table(n).error_status := po_line_id_record.error_record.error_status;
675: rcv_error_pkg.set_error_message(po_line_id_record.error_record.error_message, x_cascaded_table(n).error_message);
676: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
677: 'DOCUMENT_LINE_NUM',
678: FALSE
679: );
672:
673: x_cascaded_table(n).po_line_id := po_line_id_record.po_line_id;
674: x_cascaded_table(n).error_status := po_line_id_record.error_record.error_status;
675: rcv_error_pkg.set_error_message(po_line_id_record.error_record.error_message, x_cascaded_table(n).error_message);
676: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
677: 'DOCUMENT_LINE_NUM',
678: FALSE
679: );
680:
704: asn_debug.put_line('Primary UOM: ' || x_cascaded_table(n).primary_unit_of_measure);
705: END IF;
706: EXCEPTION
707: WHEN NO_DATA_FOUND THEN
708: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
709: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PRIMARY', x_cascaded_table(n).error_message);
710: rcv_error_pkg.set_token('PRIMARY_UNIT', '');
711: rcv_error_pkg.set_token('SHIPMENT_UNIT', '');
712: rcv_error_pkg.log_interface_warning('ITEM_ID');
705: END IF;
706: EXCEPTION
707: WHEN NO_DATA_FOUND THEN
708: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
709: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PRIMARY', x_cascaded_table(n).error_message);
710: rcv_error_pkg.set_token('PRIMARY_UNIT', '');
711: rcv_error_pkg.set_token('SHIPMENT_UNIT', '');
712: rcv_error_pkg.log_interface_warning('ITEM_ID');
713:
706: EXCEPTION
707: WHEN NO_DATA_FOUND THEN
708: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
709: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PRIMARY', x_cascaded_table(n).error_message);
710: rcv_error_pkg.set_token('PRIMARY_UNIT', '');
711: rcv_error_pkg.set_token('SHIPMENT_UNIT', '');
712: rcv_error_pkg.log_interface_warning('ITEM_ID');
713:
714: IF (g_asn_debug = 'Y') THEN
707: WHEN NO_DATA_FOUND THEN
708: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
709: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PRIMARY', x_cascaded_table(n).error_message);
710: rcv_error_pkg.set_token('PRIMARY_UNIT', '');
711: rcv_error_pkg.set_token('SHIPMENT_UNIT', '');
712: rcv_error_pkg.log_interface_warning('ITEM_ID');
713:
714: IF (g_asn_debug = 'Y') THEN
715: asn_debug.put_line('Primary UOM error');
708: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
709: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PRIMARY', x_cascaded_table(n).error_message);
710: rcv_error_pkg.set_token('PRIMARY_UNIT', '');
711: rcv_error_pkg.set_token('SHIPMENT_UNIT', '');
712: rcv_error_pkg.log_interface_warning('ITEM_ID');
713:
714: IF (g_asn_debug = 'Y') THEN
715: asn_debug.put_line('Primary UOM error');
716: END IF;
798: END IF;
799:
800: x_cascaded_table(n).po_release_id := release_id_record.po_release_id;
801: x_cascaded_table(n).error_status := release_id_record.error_record.error_status;
802: rcv_error_pkg.set_error_message(release_id_record.error_record.error_message, x_cascaded_table(n).error_message);
803:
804: IF (x_cascaded_table(n).error_message = 'RCV_ITEM_PO_REL_ID') THEN
805: rcv_error_pkg.set_token('NUMBER', x_cascaded_table(n).release_num);
806: END IF;
801: x_cascaded_table(n).error_status := release_id_record.error_record.error_status;
802: rcv_error_pkg.set_error_message(release_id_record.error_record.error_message, x_cascaded_table(n).error_message);
803:
804: IF (x_cascaded_table(n).error_message = 'RCV_ITEM_PO_REL_ID') THEN
805: rcv_error_pkg.set_token('NUMBER', x_cascaded_table(n).release_num);
806: END IF;
807:
808: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
809: 'DOCUMENT_LINE_NUM',
804: IF (x_cascaded_table(n).error_message = 'RCV_ITEM_PO_REL_ID') THEN
805: rcv_error_pkg.set_token('NUMBER', x_cascaded_table(n).release_num);
806: END IF;
807:
808: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
809: 'DOCUMENT_LINE_NUM',
810: FALSE
811: );
812:
843:
844: x_cascaded_table(n).from_organization_code := ship_to_org_record.organization_code;
845: x_cascaded_table(n).from_organization_id := ship_to_org_record.organization_id;
846: x_cascaded_table(n).error_status := ship_to_org_record.error_record.error_status;
847: rcv_error_pkg.set_error_message(ship_to_org_record.error_record.error_message, x_cascaded_table(n).error_message);
848: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
849: 'FROM_ORGANIZATION_ID',
850: FALSE
851: );
844: x_cascaded_table(n).from_organization_code := ship_to_org_record.organization_code;
845: x_cascaded_table(n).from_organization_id := ship_to_org_record.organization_id;
846: x_cascaded_table(n).error_status := ship_to_org_record.error_record.error_status;
847: rcv_error_pkg.set_error_message(ship_to_org_record.error_record.error_message, x_cascaded_table(n).error_message);
848: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
849: 'FROM_ORGANIZATION_ID',
850: FALSE
851: );
852: END IF;
879:
880: x_cascaded_table(n).intransit_owning_org_code := ship_to_org_record.organization_code;
881: x_cascaded_table(n).intransit_owning_org_id := ship_to_org_record.organization_id;
882: x_cascaded_table(n).error_status := ship_to_org_record.error_record.error_status;
883: rcv_error_pkg.set_error_message(ship_to_org_record.error_record.error_message, x_cascaded_table(n).error_message);
884: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
885: 'INTRANSIT_OWNING_ORG_ID',
886: FALSE
887: );
880: x_cascaded_table(n).intransit_owning_org_code := ship_to_org_record.organization_code;
881: x_cascaded_table(n).intransit_owning_org_id := ship_to_org_record.organization_id;
882: x_cascaded_table(n).error_status := ship_to_org_record.error_record.error_status;
883: rcv_error_pkg.set_error_message(ship_to_org_record.error_record.error_message, x_cascaded_table(n).error_message);
884: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
885: 'INTRANSIT_OWNING_ORG_ID',
886: FALSE
887: );
888: END IF;
906:
907: rcv_transactions_interface_sv.get_location_id(location_id_record);
908: x_cascaded_table(n).location_id := location_id_record.location_id;
909: x_cascaded_table(n).error_status := location_id_record.error_record.error_status;
910: rcv_error_pkg.set_error_message(location_id_record.error_record.error_message, x_cascaded_table(n).error_message);
911: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
912: 'LOCATION_CODE',
913: FALSE
914: );
907: rcv_transactions_interface_sv.get_location_id(location_id_record);
908: x_cascaded_table(n).location_id := location_id_record.location_id;
909: x_cascaded_table(n).error_status := location_id_record.error_record.error_status;
910: rcv_error_pkg.set_error_message(location_id_record.error_record.error_message, x_cascaded_table(n).error_message);
911: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
912: 'LOCATION_CODE',
913: FALSE
914: );
915: END IF;
935:
936: rcv_transactions_interface_sv.get_location_id(location_id_record);
937: x_cascaded_table(n).ship_to_location_id := location_id_record.location_id;
938: x_cascaded_table(n).error_status := location_id_record.error_record.error_status;
939: rcv_error_pkg.set_error_message(location_id_record.error_record.error_message, x_cascaded_table(n).error_message);
940: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
941: 'SHIP_TO_LOCATION_CODE',
942: FALSE
943: );
936: rcv_transactions_interface_sv.get_location_id(location_id_record);
937: x_cascaded_table(n).ship_to_location_id := location_id_record.location_id;
938: x_cascaded_table(n).error_status := location_id_record.error_record.error_status;
939: rcv_error_pkg.set_error_message(location_id_record.error_record.error_message, x_cascaded_table(n).error_message);
940: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
941: 'SHIP_TO_LOCATION_CODE',
942: FALSE
943: );
944: END IF;
962:
963: rcv_transactions_interface_sv.get_routing_header_id(routing_header_id_record);
964: x_cascaded_table(n).routing_header_id := routing_header_id_record.routing_header_id;
965: x_cascaded_table(n).error_status := routing_header_id_record.error_record.error_status;
966: rcv_error_pkg.set_error_message(routing_header_id_record.error_record.error_message, x_cascaded_table(n).error_message);
967: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
968: 'ROUTING_CODE',
969: FALSE
970: );
963: rcv_transactions_interface_sv.get_routing_header_id(routing_header_id_record);
964: x_cascaded_table(n).routing_header_id := routing_header_id_record.routing_header_id;
965: x_cascaded_table(n).error_status := routing_header_id_record.error_record.error_status;
966: rcv_error_pkg.set_error_message(routing_header_id_record.error_record.error_message, x_cascaded_table(n).error_message);
967: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
968: 'ROUTING_CODE',
969: FALSE
970: );
971: END IF;
989:
990: rcv_transactions_interface_sv.get_routing_step_id(routing_step_id_record);
991: x_cascaded_table(n).routing_step_id := routing_step_id_record.routing_step_id;
992: x_cascaded_table(n).error_status := routing_step_id_record.error_record.error_status;
993: rcv_error_pkg.set_error_message(routing_step_id_record.error_record.error_message, x_cascaded_table(n).error_message);
994: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
995: 'ROUTING_STEP',
996: FALSE
997: );
990: rcv_transactions_interface_sv.get_routing_step_id(routing_step_id_record);
991: x_cascaded_table(n).routing_step_id := routing_step_id_record.routing_step_id;
992: x_cascaded_table(n).error_status := routing_step_id_record.error_record.error_status;
993: rcv_error_pkg.set_error_message(routing_step_id_record.error_record.error_message, x_cascaded_table(n).error_message);
994: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
995: 'ROUTING_STEP',
996: FALSE
997: );
998: END IF;
1025:
1026: x_cascaded_table(n).deliver_to_person_name := employee_id_record.employee_name;
1027: x_cascaded_table(n).deliver_to_person_id := employee_id_record.employee_id;
1028: x_cascaded_table(n).error_status := employee_id_record.error_record.error_status;
1029: rcv_error_pkg.set_error_message(employee_id_record.error_record.error_message, x_cascaded_table(n).error_message);
1030: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
1031: 'DELIVER_TO_PERSON_ID',
1032: FALSE
1033: );
1026: x_cascaded_table(n).deliver_to_person_name := employee_id_record.employee_name;
1027: x_cascaded_table(n).deliver_to_person_id := employee_id_record.employee_id;
1028: x_cascaded_table(n).error_status := employee_id_record.error_record.error_status;
1029: rcv_error_pkg.set_error_message(employee_id_record.error_record.error_message, x_cascaded_table(n).error_message);
1030: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
1031: 'DELIVER_TO_PERSON_ID',
1032: FALSE
1033: );
1034: END IF;
1052:
1053: rcv_transactions_interface_sv.get_location_id(location_id_record);
1054: x_cascaded_table(n).deliver_to_location_id := location_id_record.location_id;
1055: x_cascaded_table(n).error_status := location_id_record.error_record.error_status;
1056: rcv_error_pkg.set_error_message(location_id_record.error_record.error_message, x_cascaded_table(n).error_message);
1057: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
1058: 'DELIVER_TO_LOCATION_CODE',
1059: FALSE
1060: );
1053: rcv_transactions_interface_sv.get_location_id(location_id_record);
1054: x_cascaded_table(n).deliver_to_location_id := location_id_record.location_id;
1055: x_cascaded_table(n).error_status := location_id_record.error_record.error_status;
1056: rcv_error_pkg.set_error_message(location_id_record.error_record.error_message, x_cascaded_table(n).error_message);
1057: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
1058: 'DELIVER_TO_LOCATION_CODE',
1059: FALSE
1060: );
1061: END IF;
1085: */
1086: rcv_transactions_interface_sv.get_locator_id(locator_id_record);
1087: x_cascaded_table(n).locator_id := locator_id_record.locator_id;
1088: x_cascaded_table(n).error_status := locator_id_record.error_record.error_status;
1089: rcv_error_pkg.set_error_message(locator_id_record.error_record.error_message, x_cascaded_table(n).error_message);
1090: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
1091: 'LOCATOR',
1092: FALSE
1093: );
1086: rcv_transactions_interface_sv.get_locator_id(locator_id_record);
1087: x_cascaded_table(n).locator_id := locator_id_record.locator_id;
1088: x_cascaded_table(n).error_status := locator_id_record.error_record.error_status;
1089: rcv_error_pkg.set_error_message(locator_id_record.error_record.error_message, x_cascaded_table(n).error_message);
1090: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
1091: 'LOCATOR',
1092: FALSE
1093: );
1094: END IF;
1112:
1113: rcv_transactions_interface_sv.get_reason_id(reason_id_record);
1114: x_cascaded_table(n).reason_id := reason_id_record.reason_id;
1115: x_cascaded_table(n).error_status := reason_id_record.error_record.error_status;
1116: rcv_error_pkg.set_error_message(reason_id_record.error_record.error_message, x_cascaded_table(n).error_message);
1117: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
1118: 'REASON_NAME',
1119: FALSE
1120: );
1113: rcv_transactions_interface_sv.get_reason_id(reason_id_record);
1114: x_cascaded_table(n).reason_id := reason_id_record.reason_id;
1115: x_cascaded_table(n).error_status := reason_id_record.error_record.error_status;
1116: rcv_error_pkg.set_error_message(reason_id_record.error_record.error_message, x_cascaded_table(n).error_message);
1117: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
1118: 'REASON_NAME',
1119: FALSE
1120: );
1121: END IF;
1167: IF (g_asn_debug = 'Y') THEN
1168: asn_debug.put_line('Quantity is <= zero. Cascade will fail');
1169: END IF;
1170:
1171: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1172: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
1173: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
1174: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
1175: END IF;
1168: asn_debug.put_line('Quantity is <= zero. Cascade will fail');
1169: END IF;
1170:
1171: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1172: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
1173: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
1174: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
1175: END IF;
1176:
1169: END IF;
1170:
1171: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1172: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
1173: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
1174: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
1175: END IF;
1176:
1177: -- the following steps will create a set of rows linking the line_record with
1170:
1171: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1172: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
1173: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
1174: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
1175: END IF;
1176:
1177: -- the following steps will create a set of rows linking the line_record with
1178: -- its corresponding po_line_location rows until the quantity value from
1567: asn_debug.put_line('Header Interface Id ' || TO_CHAR(temp_cascaded_table(current_n).header_interface_id));
1568: asn_debug.put_line('IN Trans Id ' || TO_CHAR(temp_cascaded_table(current_n).interface_transaction_id));
1569: END IF;
1570:
1571: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
1572: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
1573: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
1574: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_quantity);
1575: rcv_error_pkg.log_interface_warning('QUANTITY');
1568: asn_debug.put_line('IN Trans Id ' || TO_CHAR(temp_cascaded_table(current_n).interface_transaction_id));
1569: END IF;
1570:
1571: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
1572: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
1573: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
1574: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_quantity);
1575: rcv_error_pkg.log_interface_warning('QUANTITY');
1576:
1569: END IF;
1570:
1571: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
1572: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
1573: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
1574: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_quantity);
1575: rcv_error_pkg.log_interface_warning('QUANTITY');
1576:
1577: IF (g_asn_debug = 'Y') THEN
1570:
1571: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
1572: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
1573: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
1574: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_quantity);
1575: rcv_error_pkg.log_interface_warning('QUANTITY');
1576:
1577: IF (g_asn_debug = 'Y') THEN
1578: asn_debug.put_line('Error Status ' || temp_cascaded_table(current_n).error_status);
1571: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
1572: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
1573: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
1574: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_quantity);
1575: rcv_error_pkg.log_interface_warning('QUANTITY');
1576:
1577: IF (g_asn_debug = 'Y') THEN
1578: asn_debug.put_line('Error Status ' || temp_cascaded_table(current_n).error_status);
1579: asn_debug.put_line('Error message ' || temp_cascaded_table(current_n).error_message);
1597: IF (g_asn_debug = 'Y') THEN
1598: asn_debug.put_line('delete the temp table ');
1599: END IF;
1600:
1601: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1602: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
1603: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
1604: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
1605: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
1598: asn_debug.put_line('delete the temp table ');
1599: END IF;
1600:
1601: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1602: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
1603: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
1604: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
1605: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
1606:
1599: END IF;
1600:
1601: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1602: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
1603: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
1604: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
1605: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
1606:
1607: IF temp_cascaded_table.COUNT > 0 THEN
1600:
1601: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1602: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
1603: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
1604: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
1605: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
1606:
1607: IF temp_cascaded_table.COUNT > 0 THEN
1608: FOR i IN 1 .. temp_cascaded_table.COUNT LOOP
1601: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1602: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
1603: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
1604: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
1605: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
1606:
1607: IF temp_cascaded_table.COUNT > 0 THEN
1608: FOR i IN 1 .. temp_cascaded_table.COUNT LOOP
1609: temp_cascaded_table.DELETE(i);
1654: AND pll.shipment_num = NVL(temp_cascaded_table(current_n).document_shipment_line_num, pll.shipment_num)
1655: AND pll.po_line_id = pl.po_line_id;
1656:
1657: IF x_temp_count = 0 THEN
1658: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1659: rcv_error_pkg.set_error_message('RCV_ASN_NO_OPEN_SHIPMENTS', x_cascaded_table(n).error_message);
1660: rcv_error_pkg.set_token('PONUM', temp_cascaded_table(current_n).document_num);
1661: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
1662: ELSE
1655: AND pll.po_line_id = pl.po_line_id;
1656:
1657: IF x_temp_count = 0 THEN
1658: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1659: rcv_error_pkg.set_error_message('RCV_ASN_NO_OPEN_SHIPMENTS', x_cascaded_table(n).error_message);
1660: rcv_error_pkg.set_token('PONUM', temp_cascaded_table(current_n).document_num);
1661: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
1662: ELSE
1663: SELECT NVL(pl.item_id, 0),
1656:
1657: IF x_temp_count = 0 THEN
1658: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1659: rcv_error_pkg.set_error_message('RCV_ASN_NO_OPEN_SHIPMENTS', x_cascaded_table(n).error_message);
1660: rcv_error_pkg.set_token('PONUM', temp_cascaded_table(current_n).document_num);
1661: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
1662: ELSE
1663: SELECT NVL(pl.item_id, 0),
1664: NVL(pll.approved_flag, 'N'),
1657: IF x_temp_count = 0 THEN
1658: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1659: rcv_error_pkg.set_error_message('RCV_ASN_NO_OPEN_SHIPMENTS', x_cascaded_table(n).error_message);
1660: rcv_error_pkg.set_token('PONUM', temp_cascaded_table(current_n).document_num);
1661: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
1662: ELSE
1663: SELECT NVL(pl.item_id, 0),
1664: NVL(pll.approved_flag, 'N'),
1665: NVL(pll.cancel_flag, 'N'),
1703: AND pll.po_line_id = pl.po_line_id
1704: AND pod.distribution_num = NVL(temp_cascaded_table(current_n).document_distribution_num, pod.distribution_num);
1705:
1706: IF x_temp_count = 0 THEN
1707: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1708: rcv_error_pkg.set_error_message('RCV_ASN_INVALID_DIST_NUM', x_cascaded_table(n).error_message);
1709: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_distribution_num);
1710: rcv_error_pkg.log_interface_error('DOCUMENT_DISTRIBUTION_NUM', FALSE);
1711: ELSE
1704: AND pod.distribution_num = NVL(temp_cascaded_table(current_n).document_distribution_num, pod.distribution_num);
1705:
1706: IF x_temp_count = 0 THEN
1707: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1708: rcv_error_pkg.set_error_message('RCV_ASN_INVALID_DIST_NUM', x_cascaded_table(n).error_message);
1709: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_distribution_num);
1710: rcv_error_pkg.log_interface_error('DOCUMENT_DISTRIBUTION_NUM', FALSE);
1711: ELSE
1712: SELECT NVL(pl.item_id, 0),
1705:
1706: IF x_temp_count = 0 THEN
1707: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1708: rcv_error_pkg.set_error_message('RCV_ASN_INVALID_DIST_NUM', x_cascaded_table(n).error_message);
1709: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_distribution_num);
1710: rcv_error_pkg.log_interface_error('DOCUMENT_DISTRIBUTION_NUM', FALSE);
1711: ELSE
1712: SELECT NVL(pl.item_id, 0),
1713: NVL(pll.approved_flag, 'N'),
1706: IF x_temp_count = 0 THEN
1707: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1708: rcv_error_pkg.set_error_message('RCV_ASN_INVALID_DIST_NUM', x_cascaded_table(n).error_message);
1709: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_distribution_num);
1710: rcv_error_pkg.log_interface_error('DOCUMENT_DISTRIBUTION_NUM', FALSE);
1711: ELSE
1712: SELECT NVL(pl.item_id, 0),
1713: NVL(pll.approved_flag, 'N'),
1714: NVL(pll.cancel_flag, 'N'),
1741: END IF; -- transaction_type <> 'DELIVER'
1742:
1743: IF (x_temp_count <> 0) THEN
1744: IF x_item_id <> NVL(temp_cascaded_table(current_n).item_id, x_item_id) THEN
1745: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1746: rcv_error_pkg.set_error_message('RCV_ASN_ITEM_NOT_ALLOWED', x_cascaded_table(n).error_message);
1747: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).item_num);
1748: rcv_error_pkg.log_interface_error('ITEM_NUM', FALSE);
1749: END IF;
1742:
1743: IF (x_temp_count <> 0) THEN
1744: IF x_item_id <> NVL(temp_cascaded_table(current_n).item_id, x_item_id) THEN
1745: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1746: rcv_error_pkg.set_error_message('RCV_ASN_ITEM_NOT_ALLOWED', x_cascaded_table(n).error_message);
1747: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).item_num);
1748: rcv_error_pkg.log_interface_error('ITEM_NUM', FALSE);
1749: END IF;
1750:
1743: IF (x_temp_count <> 0) THEN
1744: IF x_item_id <> NVL(temp_cascaded_table(current_n).item_id, x_item_id) THEN
1745: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1746: rcv_error_pkg.set_error_message('RCV_ASN_ITEM_NOT_ALLOWED', x_cascaded_table(n).error_message);
1747: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).item_num);
1748: rcv_error_pkg.log_interface_error('ITEM_NUM', FALSE);
1749: END IF;
1750:
1751: IF x_approved_flag <> 'Y' THEN
1744: IF x_item_id <> NVL(temp_cascaded_table(current_n).item_id, x_item_id) THEN
1745: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1746: rcv_error_pkg.set_error_message('RCV_ASN_ITEM_NOT_ALLOWED', x_cascaded_table(n).error_message);
1747: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).item_num);
1748: rcv_error_pkg.log_interface_error('ITEM_NUM', FALSE);
1749: END IF;
1750:
1751: IF x_approved_flag <> 'Y' THEN
1752: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1748: rcv_error_pkg.log_interface_error('ITEM_NUM', FALSE);
1749: END IF;
1750:
1751: IF x_approved_flag <> 'Y' THEN
1752: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1753: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_NOT_APPROVED', x_cascaded_table(n).error_message);
1754: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
1755: rcv_error_pkg.set_token('PO_NUM', temp_cascaded_table(current_n).document_num);
1756: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
1749: END IF;
1750:
1751: IF x_approved_flag <> 'Y' THEN
1752: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1753: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_NOT_APPROVED', x_cascaded_table(n).error_message);
1754: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
1755: rcv_error_pkg.set_token('PO_NUM', temp_cascaded_table(current_n).document_num);
1756: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
1757: END IF;
1750:
1751: IF x_approved_flag <> 'Y' THEN
1752: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1753: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_NOT_APPROVED', x_cascaded_table(n).error_message);
1754: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
1755: rcv_error_pkg.set_token('PO_NUM', temp_cascaded_table(current_n).document_num);
1756: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
1757: END IF;
1758:
1751: IF x_approved_flag <> 'Y' THEN
1752: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1753: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_NOT_APPROVED', x_cascaded_table(n).error_message);
1754: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
1755: rcv_error_pkg.set_token('PO_NUM', temp_cascaded_table(current_n).document_num);
1756: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
1757: END IF;
1758:
1759: IF x_cancel_flag <> 'N' THEN
1752: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1753: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_NOT_APPROVED', x_cascaded_table(n).error_message);
1754: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
1755: rcv_error_pkg.set_token('PO_NUM', temp_cascaded_table(current_n).document_num);
1756: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
1757: END IF;
1758:
1759: IF x_cancel_flag <> 'N' THEN
1760: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1756: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
1757: END IF;
1758:
1759: IF x_cancel_flag <> 'N' THEN
1760: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1761: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_CANCELLED', x_cascaded_table(n).error_message);
1762: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
1763: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
1764: END IF;
1757: END IF;
1758:
1759: IF x_cancel_flag <> 'N' THEN
1760: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1761: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_CANCELLED', x_cascaded_table(n).error_message);
1762: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
1763: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
1764: END IF;
1765:
1758:
1759: IF x_cancel_flag <> 'N' THEN
1760: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1761: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_CANCELLED', x_cascaded_table(n).error_message);
1762: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
1763: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
1764: END IF;
1765:
1766: IF x_closed_code = 'FINALLY_CLOSED' THEN
1759: IF x_cancel_flag <> 'N' THEN
1760: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1761: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_CANCELLED', x_cascaded_table(n).error_message);
1762: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
1763: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
1764: END IF;
1765:
1766: IF x_closed_code = 'FINALLY_CLOSED' THEN
1767: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1763: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
1764: END IF;
1765:
1766: IF x_closed_code = 'FINALLY_CLOSED' THEN
1767: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1768: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_FINALLY_CLOSED', x_cascaded_table(n).error_message);
1769: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
1770: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
1771: END IF;
1764: END IF;
1765:
1766: IF x_closed_code = 'FINALLY_CLOSED' THEN
1767: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1768: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_FINALLY_CLOSED', x_cascaded_table(n).error_message);
1769: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
1770: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
1771: END IF;
1772:
1765:
1766: IF x_closed_code = 'FINALLY_CLOSED' THEN
1767: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1768: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_FINALLY_CLOSED', x_cascaded_table(n).error_message);
1769: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
1770: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
1771: END IF;
1772:
1773: IF x_shipment_type NOT IN('STANDARD', 'BLANKET', 'SCHEDULED') THEN
1766: IF x_closed_code = 'FINALLY_CLOSED' THEN
1767: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1768: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_FINALLY_CLOSED', x_cascaded_table(n).error_message);
1769: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
1770: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
1771: END IF;
1772:
1773: IF x_shipment_type NOT IN('STANDARD', 'BLANKET', 'SCHEDULED') THEN
1774: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1770: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
1771: END IF;
1772:
1773: IF x_shipment_type NOT IN('STANDARD', 'BLANKET', 'SCHEDULED') THEN
1774: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1775: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIPMT_TYPE', x_cascaded_table(n).error_message);
1776: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
1777: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
1778: END IF;
1771: END IF;
1772:
1773: IF x_shipment_type NOT IN('STANDARD', 'BLANKET', 'SCHEDULED') THEN
1774: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1775: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIPMT_TYPE', x_cascaded_table(n).error_message);
1776: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
1777: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
1778: END IF;
1779:
1772:
1773: IF x_shipment_type NOT IN('STANDARD', 'BLANKET', 'SCHEDULED') THEN
1774: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1775: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIPMT_TYPE', x_cascaded_table(n).error_message);
1776: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
1777: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
1778: END IF;
1779:
1780: IF x_ship_to_organization_id <> NVL(temp_cascaded_table(current_n).to_organization_id, x_ship_to_organization_id) THEN
1773: IF x_shipment_type NOT IN('STANDARD', 'BLANKET', 'SCHEDULED') THEN
1774: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1775: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIPMT_TYPE', x_cascaded_table(n).error_message);
1776: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
1777: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
1778: END IF;
1779:
1780: IF x_ship_to_organization_id <> NVL(temp_cascaded_table(current_n).to_organization_id, x_ship_to_organization_id) THEN
1781: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1777: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
1778: END IF;
1779:
1780: IF x_ship_to_organization_id <> NVL(temp_cascaded_table(current_n).to_organization_id, x_ship_to_organization_id) THEN
1781: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1782: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_ORG', x_cascaded_table(n).error_message);
1783: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).to_organization_code);
1784: rcv_error_pkg.log_interface_error('TO_ORGANIZATION_CODE', FALSE);
1785: END IF;
1778: END IF;
1779:
1780: IF x_ship_to_organization_id <> NVL(temp_cascaded_table(current_n).to_organization_id, x_ship_to_organization_id) THEN
1781: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1782: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_ORG', x_cascaded_table(n).error_message);
1783: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).to_organization_code);
1784: rcv_error_pkg.log_interface_error('TO_ORGANIZATION_CODE', FALSE);
1785: END IF;
1786:
1779:
1780: IF x_ship_to_organization_id <> NVL(temp_cascaded_table(current_n).to_organization_id, x_ship_to_organization_id) THEN
1781: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1782: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_ORG', x_cascaded_table(n).error_message);
1783: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).to_organization_code);
1784: rcv_error_pkg.log_interface_error('TO_ORGANIZATION_CODE', FALSE);
1785: END IF;
1786:
1787: IF x_ship_to_location_id <> NVL(NVL(temp_cascaded_table(current_n).ship_to_location_id, x_header_record.header_record.location_id), x_ship_to_location_id) THEN
1780: IF x_ship_to_organization_id <> NVL(temp_cascaded_table(current_n).to_organization_id, x_ship_to_organization_id) THEN
1781: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1782: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_ORG', x_cascaded_table(n).error_message);
1783: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).to_organization_code);
1784: rcv_error_pkg.log_interface_error('TO_ORGANIZATION_CODE', FALSE);
1785: END IF;
1786:
1787: IF x_ship_to_location_id <> NVL(NVL(temp_cascaded_table(current_n).ship_to_location_id, x_header_record.header_record.location_id), x_ship_to_location_id) THEN
1788: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1784: rcv_error_pkg.log_interface_error('TO_ORGANIZATION_CODE', FALSE);
1785: END IF;
1786:
1787: IF x_ship_to_location_id <> NVL(NVL(temp_cascaded_table(current_n).ship_to_location_id, x_header_record.header_record.location_id), x_ship_to_location_id) THEN
1788: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1789: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
1790: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_code);
1791: rcv_error_pkg.log_interface_error('SHIP_TO_LOCATION_CODE', FALSE);
1792: END IF;
1785: END IF;
1786:
1787: IF x_ship_to_location_id <> NVL(NVL(temp_cascaded_table(current_n).ship_to_location_id, x_header_record.header_record.location_id), x_ship_to_location_id) THEN
1788: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1789: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
1790: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_code);
1791: rcv_error_pkg.log_interface_error('SHIP_TO_LOCATION_CODE', FALSE);
1792: END IF;
1793:
1786:
1787: IF x_ship_to_location_id <> NVL(NVL(temp_cascaded_table(current_n).ship_to_location_id, x_header_record.header_record.location_id), x_ship_to_location_id) THEN
1788: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1789: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
1790: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_code);
1791: rcv_error_pkg.log_interface_error('SHIP_TO_LOCATION_CODE', FALSE);
1792: END IF;
1793:
1794: IF x_vendor_product_num <> NVL(temp_cascaded_table(current_n).vendor_item_num, x_vendor_product_num) THEN
1787: IF x_ship_to_location_id <> NVL(NVL(temp_cascaded_table(current_n).ship_to_location_id, x_header_record.header_record.location_id), x_ship_to_location_id) THEN
1788: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1789: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
1790: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_code);
1791: rcv_error_pkg.log_interface_error('SHIP_TO_LOCATION_CODE', FALSE);
1792: END IF;
1793:
1794: IF x_vendor_product_num <> NVL(temp_cascaded_table(current_n).vendor_item_num, x_vendor_product_num) THEN
1795: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1791: rcv_error_pkg.log_interface_error('SHIP_TO_LOCATION_CODE', FALSE);
1792: END IF;
1793:
1794: IF x_vendor_product_num <> NVL(temp_cascaded_table(current_n).vendor_item_num, x_vendor_product_num) THEN
1795: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1796: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_VENDOR_PROD_NUM', x_cascaded_table(n).error_message);
1797: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).vendor_item_num);
1798: rcv_error_pkg.log_interface_error('VENDOR_ITEM_NUM', FALSE);
1799: END IF;
1792: END IF;
1793:
1794: IF x_vendor_product_num <> NVL(temp_cascaded_table(current_n).vendor_item_num, x_vendor_product_num) THEN
1795: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1796: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_VENDOR_PROD_NUM', x_cascaded_table(n).error_message);
1797: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).vendor_item_num);
1798: rcv_error_pkg.log_interface_error('VENDOR_ITEM_NUM', FALSE);
1799: END IF;
1800: END IF; -- x_temp_count = 0;
1793:
1794: IF x_vendor_product_num <> NVL(temp_cascaded_table(current_n).vendor_item_num, x_vendor_product_num) THEN
1795: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1796: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_VENDOR_PROD_NUM', x_cascaded_table(n).error_message);
1797: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).vendor_item_num);
1798: rcv_error_pkg.log_interface_error('VENDOR_ITEM_NUM', FALSE);
1799: END IF;
1800: END IF; -- x_temp_count = 0;
1801:
1794: IF x_vendor_product_num <> NVL(temp_cascaded_table(current_n).vendor_item_num, x_vendor_product_num) THEN
1795: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1796: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_VENDOR_PROD_NUM', x_cascaded_table(n).error_message);
1797: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).vendor_item_num);
1798: rcv_error_pkg.log_interface_error('VENDOR_ITEM_NUM', FALSE);
1799: END IF;
1800: END IF; -- x_temp_count = 0;
1801:
1802:
1857: );
1858:
1859: /* bug 1060261 - added error message to be shown when the expected date is outside tolerance range */
1860: IF (x_shipmentdistributionrec.receipt_days_exception_code = 'REJECT') THEN
1861: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1862: rcv_error_pkg.set_error_message('RCV_ASN_DATE_OUT_TOL', x_cascaded_table(n).error_message);
1863: rcv_error_pkg.set_token('DELIVERY DATE', NVL(temp_cascaded_table(1).expected_receipt_date, x_header_record.header_record.expected_receipt_date));
1864: rcv_error_pkg.log_interface_error('EXPECTED_RECEIPT_DATE', FALSE);
1865: END IF;
1858:
1859: /* bug 1060261 - added error message to be shown when the expected date is outside tolerance range */
1860: IF (x_shipmentdistributionrec.receipt_days_exception_code = 'REJECT') THEN
1861: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1862: rcv_error_pkg.set_error_message('RCV_ASN_DATE_OUT_TOL', x_cascaded_table(n).error_message);
1863: rcv_error_pkg.set_token('DELIVERY DATE', NVL(temp_cascaded_table(1).expected_receipt_date, x_header_record.header_record.expected_receipt_date));
1864: rcv_error_pkg.log_interface_error('EXPECTED_RECEIPT_DATE', FALSE);
1865: END IF;
1866:
1859: /* bug 1060261 - added error message to be shown when the expected date is outside tolerance range */
1860: IF (x_shipmentdistributionrec.receipt_days_exception_code = 'REJECT') THEN
1861: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1862: rcv_error_pkg.set_error_message('RCV_ASN_DATE_OUT_TOL', x_cascaded_table(n).error_message);
1863: rcv_error_pkg.set_token('DELIVERY DATE', NVL(temp_cascaded_table(1).expected_receipt_date, x_header_record.header_record.expected_receipt_date));
1864: rcv_error_pkg.log_interface_error('EXPECTED_RECEIPT_DATE', FALSE);
1865: END IF;
1866:
1867: IF (g_asn_debug = 'Y') THEN
1860: IF (x_shipmentdistributionrec.receipt_days_exception_code = 'REJECT') THEN
1861: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1862: rcv_error_pkg.set_error_message('RCV_ASN_DATE_OUT_TOL', x_cascaded_table(n).error_message);
1863: rcv_error_pkg.set_token('DELIVERY DATE', NVL(temp_cascaded_table(1).expected_receipt_date, x_header_record.header_record.expected_receipt_date));
1864: rcv_error_pkg.log_interface_error('EXPECTED_RECEIPT_DATE', FALSE);
1865: END IF;
1866:
1867: IF (g_asn_debug = 'Y') THEN
1868: asn_debug.put_line('Days exception Code ' || NVL(x_shipmentdistributionrec.receipt_days_exception_code, 'XXX'));
1883: Enter error message in po_interface_errors if enforce_ship_to_location_code is 'REJECT' and error out
1884: */
1885: IF (x_shipmentdistributionrec.enforce_ship_to_location_code = 'REJECT') THEN
1886: BEGIN
1887: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1888: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
1889: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_code);
1890: rcv_error_pkg.log_interface_error('SHIP_TO_LOCATION_CODE', FALSE);
1891: x_shipmentdistributionrec.ship_to_location_id := NVL(temp_cascaded_table(1).ship_to_location_id, x_header_record.header_record.location_id);
1884: */
1885: IF (x_shipmentdistributionrec.enforce_ship_to_location_code = 'REJECT') THEN
1886: BEGIN
1887: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1888: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
1889: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_code);
1890: rcv_error_pkg.log_interface_error('SHIP_TO_LOCATION_CODE', FALSE);
1891: x_shipmentdistributionrec.ship_to_location_id := NVL(temp_cascaded_table(1).ship_to_location_id, x_header_record.header_record.location_id);
1892: END;
1885: IF (x_shipmentdistributionrec.enforce_ship_to_location_code = 'REJECT') THEN
1886: BEGIN
1887: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1888: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
1889: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_code);
1890: rcv_error_pkg.log_interface_error('SHIP_TO_LOCATION_CODE', FALSE);
1891: x_shipmentdistributionrec.ship_to_location_id := NVL(temp_cascaded_table(1).ship_to_location_id, x_header_record.header_record.location_id);
1892: END;
1893: ELSIF(x_shipmentdistributionrec.enforce_ship_to_location_code = 'WARNING') THEN
1886: BEGIN
1887: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1888: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
1889: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_code);
1890: rcv_error_pkg.log_interface_error('SHIP_TO_LOCATION_CODE', FALSE);
1891: x_shipmentdistributionrec.ship_to_location_id := NVL(temp_cascaded_table(1).ship_to_location_id, x_header_record.header_record.location_id);
1892: END;
1893: ELSIF(x_shipmentdistributionrec.enforce_ship_to_location_code = 'WARNING') THEN
1894: BEGIN
1891: x_shipmentdistributionrec.ship_to_location_id := NVL(temp_cascaded_table(1).ship_to_location_id, x_header_record.header_record.location_id);
1892: END;
1893: ELSIF(x_shipmentdistributionrec.enforce_ship_to_location_code = 'WARNING') THEN
1894: BEGIN
1895: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
1896: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
1897: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_code);
1898: rcv_error_pkg.log_interface_warning('SHIP_TO_LOCATION_CODE');
1899: x_shipmentdistributionrec.ship_to_location_id := NVL(temp_cascaded_table(1).ship_to_location_id, x_header_record.header_record.location_id);
1892: END;
1893: ELSIF(x_shipmentdistributionrec.enforce_ship_to_location_code = 'WARNING') THEN
1894: BEGIN
1895: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
1896: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
1897: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_code);
1898: rcv_error_pkg.log_interface_warning('SHIP_TO_LOCATION_CODE');
1899: x_shipmentdistributionrec.ship_to_location_id := NVL(temp_cascaded_table(1).ship_to_location_id, x_header_record.header_record.location_id);
1900: END;
1893: ELSIF(x_shipmentdistributionrec.enforce_ship_to_location_code = 'WARNING') THEN
1894: BEGIN
1895: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
1896: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
1897: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_code);
1898: rcv_error_pkg.log_interface_warning('SHIP_TO_LOCATION_CODE');
1899: x_shipmentdistributionrec.ship_to_location_id := NVL(temp_cascaded_table(1).ship_to_location_id, x_header_record.header_record.location_id);
1900: END;
1901: END IF;
1894: BEGIN
1895: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
1896: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
1897: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_code);
1898: rcv_error_pkg.log_interface_warning('SHIP_TO_LOCATION_CODE');
1899: x_shipmentdistributionrec.ship_to_location_id := NVL(temp_cascaded_table(1).ship_to_location_id, x_header_record.header_record.location_id);
1900: END;
1901: END IF;
1902:
2458: asn_debug.put_line('Status = ' || x_cascaded_table(n).error_status);
2459: END IF;
2460:
2461: IF x_cascaded_table(n).error_status IN('S', 'W', 'F') THEN
2462: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2463:
2464: IF (x_cascaded_table(n).error_message IS NULL) THEN
2465: rcv_error_pkg.set_error_message('RCV_ASN_NO_PO_LINE_LOCATION_ID', x_cascaded_table(n).error_message);
2466: rcv_error_pkg.set_token('DOCUMENT_NUM', x_cascaded_table(n).document_num);
2461: IF x_cascaded_table(n).error_status IN('S', 'W', 'F') THEN
2462: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2463:
2464: IF (x_cascaded_table(n).error_message IS NULL) THEN
2465: rcv_error_pkg.set_error_message('RCV_ASN_NO_PO_LINE_LOCATION_ID', x_cascaded_table(n).error_message);
2466: rcv_error_pkg.set_token('DOCUMENT_NUM', x_cascaded_table(n).document_num);
2467: END IF;
2468:
2469: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
2462: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2463:
2464: IF (x_cascaded_table(n).error_message IS NULL) THEN
2465: rcv_error_pkg.set_error_message('RCV_ASN_NO_PO_LINE_LOCATION_ID', x_cascaded_table(n).error_message);
2466: rcv_error_pkg.set_token('DOCUMENT_NUM', x_cascaded_table(n).document_num);
2467: END IF;
2468:
2469: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
2470: END IF;
2465: rcv_error_pkg.set_error_message('RCV_ASN_NO_PO_LINE_LOCATION_ID', x_cascaded_table(n).error_message);
2466: rcv_error_pkg.set_token('DOCUMENT_NUM', x_cascaded_table(n).document_num);
2467: END IF;
2468:
2469: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
2470: END IF;
2471:
2472: RETURN;
2473: END IF; -- of (asn quantity_shipped was valid)
2861: asn_debug.put_line(NVL(item_id_record.item_revision, 'Item Revision is null'));
2862: END IF;
2863:
2864: x_cascaded_table(n).error_status := item_id_record.error_record.error_status;
2865: rcv_error_pkg.set_error_message(item_id_record.error_record.error_message, x_cascaded_table(n).error_message);
2866: END IF;
2867:
2868: IF x_cascaded_table(n).po_revision_num IS NULL
2869: OR x_cascaded_table(n).freight_carrier_code IS NULL
3183:
3184: /*Bug 2327318 Implemented the validation Transaction date should not be greater than
3185: sysdate */
3186: IF (x_cascaded_table(n).transaction_date > SYSDATE) THEN
3187: rcv_error_pkg.set_error_message('RCV_TRX_FUTURE_DATE_NA', x_cascaded_table(n).error_message);
3188: rcv_error_pkg.log_interface_error('TRANSACTION_DATE');
3189: END IF;
3190:
3191: -- bug 642624 validate if PO and GL periods are open in pre-processor
3184: /*Bug 2327318 Implemented the validation Transaction date should not be greater than
3185: sysdate */
3186: IF (x_cascaded_table(n).transaction_date > SYSDATE) THEN
3187: rcv_error_pkg.set_error_message('RCV_TRX_FUTURE_DATE_NA', x_cascaded_table(n).error_message);
3188: rcv_error_pkg.log_interface_error('TRANSACTION_DATE');
3189: END IF;
3190:
3191: -- bug 642624 validate if PO and GL periods are open in pre-processor
3192:
3239: x_val_open_ok := FALSE;
3240: END;
3241:
3242: IF NOT(x_val_open_ok) THEN
3243: rcv_error_pkg.set_error_message('PO_CNL_NO_PERIOD', x_cascaded_table(n).error_message);
3244: rcv_error_pkg.log_interface_error('TRANSACTION_DATE');
3245: END IF;
3246:
3247: BEGIN
3240: END;
3241:
3242: IF NOT(x_val_open_ok) THEN
3243: rcv_error_pkg.set_error_message('PO_CNL_NO_PERIOD', x_cascaded_table(n).error_message);
3244: rcv_error_pkg.log_interface_error('TRANSACTION_DATE');
3245: END IF;
3246:
3247: BEGIN
3248: x_val_open_ok := po_dates_s.val_open_period(x_cascaded_table(n).transaction_date,
3255: x_val_open_ok := FALSE;
3256: END;
3257:
3258: IF NOT(x_val_open_ok) THEN
3259: rcv_error_pkg.set_error_message('PO_INV_NO_OPEN_PERIOD', x_cascaded_table(n).error_message);
3260: rcv_error_pkg.log_interface_error('TRANSACTION_DATE');
3261: END IF;
3262:
3263: BEGIN
3256: END;
3257:
3258: IF NOT(x_val_open_ok) THEN
3259: rcv_error_pkg.set_error_message('PO_INV_NO_OPEN_PERIOD', x_cascaded_table(n).error_message);
3260: rcv_error_pkg.log_interface_error('TRANSACTION_DATE');
3261: END IF;
3262:
3263: BEGIN
3264: x_val_open_ok := po_dates_s.val_open_period(x_cascaded_table(n).transaction_date,
3271: x_val_open_ok := FALSE;
3272: END;
3273:
3274: IF NOT(x_val_open_ok) THEN
3275: rcv_error_pkg.set_error_message('PO_PO_ENTER_OPEN_GL_DATE', x_cascaded_table(n).error_message);
3276: rcv_error_pkg.log_interface_error('TRANSACTION_DATE');
3277: END IF; /* End of Bug# 2379848 */
3278: END IF; -- auto transact code = SHIP
3279:
3272: END;
3273:
3274: IF NOT(x_val_open_ok) THEN
3275: rcv_error_pkg.set_error_message('PO_PO_ENTER_OPEN_GL_DATE', x_cascaded_table(n).error_message);
3276: rcv_error_pkg.log_interface_error('TRANSACTION_DATE');
3277: END IF; /* End of Bug# 2379848 */
3278: END IF; -- auto transact code = SHIP
3279:
3280: IF (x_asn_type = 'ASBN') THEN
3282: quantity_invoiced_record.error_record.error_status := 'S';
3283: quantity_invoiced_record.error_record.error_message := NULL;
3284: rcv_transactions_interface_sv1.validate_quantity_invoiced(quantity_invoiced_record);
3285: x_cascaded_table(n).error_status := quantity_invoiced_record.error_record.error_status;
3286: rcv_error_pkg.set_error_message(quantity_invoiced_record.error_record.error_message, x_cascaded_table(n).error_message);
3287: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'QUANTITY_INVOICED');
3288: END IF;
3289:
3290: IF (g_asn_debug = 'Y') THEN
3283: quantity_invoiced_record.error_record.error_message := NULL;
3284: rcv_transactions_interface_sv1.validate_quantity_invoiced(quantity_invoiced_record);
3285: x_cascaded_table(n).error_status := quantity_invoiced_record.error_record.error_status;
3286: rcv_error_pkg.set_error_message(quantity_invoiced_record.error_record.error_message, x_cascaded_table(n).error_message);
3287: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'QUANTITY_INVOICED');
3288: END IF;
3289:
3290: IF (g_asn_debug = 'Y') THEN
3291: asn_debug.put_line('Before call to validate UOM');
3307: END IF;
3308:
3309: rcv_transactions_interface_sv1.validate_uom(uom_record);
3310: x_cascaded_table(n).error_status := uom_record.error_record.error_status;
3311: rcv_error_pkg.set_error_message(uom_record.error_record.error_message, x_cascaded_table(n).error_message);
3312: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'UNIT_OF_MEASURE');
3313: item_id_record.item_id := x_cascaded_table(n).item_id;
3314: item_id_record.po_line_id := x_cascaded_table(n).po_line_id;
3315: item_id_record.to_organization_id := x_cascaded_table(n).to_organization_id;
3308:
3309: rcv_transactions_interface_sv1.validate_uom(uom_record);
3310: x_cascaded_table(n).error_status := uom_record.error_record.error_status;
3311: rcv_error_pkg.set_error_message(uom_record.error_record.error_message, x_cascaded_table(n).error_message);
3312: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'UNIT_OF_MEASURE');
3313: item_id_record.item_id := x_cascaded_table(n).item_id;
3314: item_id_record.po_line_id := x_cascaded_table(n).po_line_id;
3315: item_id_record.to_organization_id := x_cascaded_table(n).to_organization_id;
3316: item_id_record.item_description := x_cascaded_table(n).item_description;
3340: rcv_transactions_interface_sv1.validate_item(item_id_record, x_cascaded_table(n).auto_transact_code); -- bug 608353
3341: END IF;
3342:
3343: x_cascaded_table(n).error_status := item_id_record.error_record.error_status;
3344: rcv_error_pkg.set_error_message(item_id_record.error_record.error_message, x_cascaded_table(n).error_message);
3345: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'ITEM_NUM');
3346: item_id_record.item_description := x_cascaded_table(n).item_description;
3347: item_id_record.error_record.error_status := 'S';
3348: item_id_record.error_record.error_message := NULL;
3341: END IF;
3342:
3343: x_cascaded_table(n).error_status := item_id_record.error_record.error_status;
3344: rcv_error_pkg.set_error_message(item_id_record.error_record.error_message, x_cascaded_table(n).error_message);
3345: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'ITEM_NUM');
3346: item_id_record.item_description := x_cascaded_table(n).item_description;
3347: item_id_record.error_record.error_status := 'S';
3348: item_id_record.error_record.error_message := NULL;
3349:
3352: END IF;
3353:
3354: rcv_transactions_interface_sv1.validate_item_description(item_id_record);
3355: x_cascaded_table(n).error_status := item_id_record.error_record.error_status;
3356: rcv_error_pkg.set_error_message(item_id_record.error_record.error_message, x_cascaded_table(n).error_message);
3357:
3358: IF (g_asn_debug = 'Y') THEN
3359: asn_debug.put_line('Error status after validate item description ' || x_cascaded_table(n).error_status);
3360: END IF;
3358: IF (g_asn_debug = 'Y') THEN
3359: asn_debug.put_line('Error status after validate item description ' || x_cascaded_table(n).error_status);
3360: END IF;
3361:
3362: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'ITEM_DESCRIPTION');
3363:
3364: IF (x_cascaded_table(n).substitute_item_id IS NOT NULL) THEN
3365: sub_item_id_record.substitute_item_num := x_cascaded_table(n).substitute_item_num;
3366: sub_item_id_record.substitute_item_id := x_cascaded_table(n).substitute_item_id;
3387: asn_debug.put_line(SQLERRM);
3388: asn_debug.put_line(' While validating substitute item');
3389: END IF;
3390:
3391: rcv_error_pkg.set_sql_error_message('validate_shipment_line', x_progress);
3392: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
3393: rcv_error_pkg.log_interface_error('PO_LINE_LOCATION_ID');
3394: END;
3395:
3388: asn_debug.put_line(' While validating substitute item');
3389: END IF;
3390:
3391: rcv_error_pkg.set_sql_error_message('validate_shipment_line', x_progress);
3392: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
3393: rcv_error_pkg.log_interface_error('PO_LINE_LOCATION_ID');
3394: END;
3395:
3396: IF (g_asn_debug = 'Y') THEN
3389: END IF;
3390:
3391: rcv_error_pkg.set_sql_error_message('validate_shipment_line', x_progress);
3392: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
3393: rcv_error_pkg.log_interface_error('PO_LINE_LOCATION_ID');
3394: END;
3395:
3396: IF (g_asn_debug = 'Y') THEN
3397: asn_debug.put_line('Allow substitute receipts flag in PO shipments ' || x_allow_substitute_receipts);
3399:
3400: IF (x_allow_substitute_receipts = 'Y') THEN
3401: rcv_transactions_interface_sv1.validate_substitute_item(sub_item_id_record);
3402: x_cascaded_table(n).error_status := sub_item_id_record.error_record.error_status;
3403: rcv_error_pkg.set_error_message(sub_item_id_record.error_record.error_message, x_cascaded_table(n).error_message);
3404: ELSE
3405: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3406: rcv_error_pkg.set_error_message('RCV_ITEM_SUB_NOT_ALLOWED', x_cascaded_table(n).error_message);
3407: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).substitute_item_num);
3401: rcv_transactions_interface_sv1.validate_substitute_item(sub_item_id_record);
3402: x_cascaded_table(n).error_status := sub_item_id_record.error_record.error_status;
3403: rcv_error_pkg.set_error_message(sub_item_id_record.error_record.error_message, x_cascaded_table(n).error_message);
3404: ELSE
3405: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3406: rcv_error_pkg.set_error_message('RCV_ITEM_SUB_NOT_ALLOWED', x_cascaded_table(n).error_message);
3407: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).substitute_item_num);
3408: END IF;
3409:
3402: x_cascaded_table(n).error_status := sub_item_id_record.error_record.error_status;
3403: rcv_error_pkg.set_error_message(sub_item_id_record.error_record.error_message, x_cascaded_table(n).error_message);
3404: ELSE
3405: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3406: rcv_error_pkg.set_error_message('RCV_ITEM_SUB_NOT_ALLOWED', x_cascaded_table(n).error_message);
3407: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).substitute_item_num);
3408: END IF;
3409:
3410: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'SUBSTITUTE_ITEM_NUM');
3403: rcv_error_pkg.set_error_message(sub_item_id_record.error_record.error_message, x_cascaded_table(n).error_message);
3404: ELSE
3405: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3406: rcv_error_pkg.set_error_message('RCV_ITEM_SUB_NOT_ALLOWED', x_cascaded_table(n).error_message);
3407: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).substitute_item_num);
3408: END IF;
3409:
3410: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'SUBSTITUTE_ITEM_NUM');
3411: END IF;
3406: rcv_error_pkg.set_error_message('RCV_ITEM_SUB_NOT_ALLOWED', x_cascaded_table(n).error_message);
3407: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).substitute_item_num);
3408: END IF;
3409:
3410: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'SUBSTITUTE_ITEM_NUM');
3411: END IF;
3412:
3413: IF (x_cascaded_table(n).item_revision IS NOT NULL) THEN
3414: item_revision_record.item_revision := x_cascaded_table(n).item_revision;
3423: END IF;
3424:
3425: rcv_transactions_interface_sv1.validate_item_revision(item_revision_record);
3426: x_cascaded_table(n).error_status := item_revision_record.error_record.error_status;
3427: rcv_error_pkg.set_error_message(item_revision_record.error_record.error_message, x_cascaded_table(n).error_message);
3428: x_cascaded_table(n).item_revision := item_revision_record.item_revision;
3429: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'ITEM_REVISION');
3430: END IF;
3431:
3425: rcv_transactions_interface_sv1.validate_item_revision(item_revision_record);
3426: x_cascaded_table(n).error_status := item_revision_record.error_record.error_status;
3427: rcv_error_pkg.set_error_message(item_revision_record.error_record.error_message, x_cascaded_table(n).error_message);
3428: x_cascaded_table(n).item_revision := item_revision_record.item_revision;
3429: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'ITEM_REVISION');
3430: END IF;
3431:
3432: IF (x_cascaded_table(n).freight_carrier_code IS NOT NULL) THEN
3433: freight_carrier_record.to_organization_id := x_cascaded_table(n).to_organization_id;
3441: END IF;
3442:
3443: rcv_transactions_interface_sv1.validate_freight_carrier(freight_carrier_record);
3444: x_cascaded_table(n).error_status := freight_carrier_record.error_record.error_status;
3445: rcv_error_pkg.set_error_message(freight_carrier_record.error_record.error_message, x_cascaded_table(n).error_message);
3446: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'FREIGHT_CARRIER_CODE');
3447: END IF;
3448:
3449: /*
3442:
3443: rcv_transactions_interface_sv1.validate_freight_carrier(freight_carrier_record);
3444: x_cascaded_table(n).error_status := freight_carrier_record.error_record.error_status;
3445: rcv_error_pkg.set_error_message(freight_carrier_record.error_record.error_message, x_cascaded_table(n).error_message);
3446: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'FREIGHT_CARRIER_CODE');
3447: END IF;
3448:
3449: /*
3450: ** Validate Destination Type. This value is always required
3459: END IF;
3460:
3461: rcv_transactions_interface_sv1.validate_po_lookup_code(po_lookup_code_record);
3462: x_cascaded_table(n).error_status := po_lookup_code_record.error_record.error_status;
3463: rcv_error_pkg.set_error_message(po_lookup_code_record.error_record.error_message, x_cascaded_table(n).error_message);
3464: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'DESTINATION_TYPE_CODE');
3465: /*
3466: ** Validate ship_to_location. This value is always required
3467: */
3460:
3461: rcv_transactions_interface_sv1.validate_po_lookup_code(po_lookup_code_record);
3462: x_cascaded_table(n).error_status := po_lookup_code_record.error_record.error_status;
3463: rcv_error_pkg.set_error_message(po_lookup_code_record.error_record.error_message, x_cascaded_table(n).error_message);
3464: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'DESTINATION_TYPE_CODE');
3465: /*
3466: ** Validate ship_to_location. This value is always required
3467: */
3468: location_record.location_id := x_cascaded_table(n).ship_to_location_id;
3478: END IF;
3479:
3480: rcv_transactions_interface_sv1.validate_location(location_record);
3481: x_cascaded_table(n).error_status := location_record.error_record.error_status;
3482: rcv_error_pkg.set_error_message(location_record.error_record.error_message, x_cascaded_table(n).error_message);
3483: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'SHIP_TO_LOCATION_ID');
3484: /*
3485: ** Validate deliver to person. This value is always optional
3486: */
3479:
3480: rcv_transactions_interface_sv1.validate_location(location_record);
3481: x_cascaded_table(n).error_status := location_record.error_record.error_status;
3482: rcv_error_pkg.set_error_message(location_record.error_record.error_message, x_cascaded_table(n).error_message);
3483: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'SHIP_TO_LOCATION_ID');
3484: /*
3485: ** Validate deliver to person. This value is always optional
3486: */
3487: employee_record.employee_id := x_cascaded_table(n).deliver_to_person_id;
3496: END IF;
3497:
3498: rcv_transactions_interface_sv1.validate_employee(employee_record);
3499: x_cascaded_table(n).error_status := employee_record.error_record.error_status;
3500: rcv_error_pkg.set_error_message(employee_record.error_record.error_message, x_cascaded_table(n).error_message);
3501: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'DELIVER_TO_PERSON_ID');
3502:
3503: /*
3504: ** Validate deliver to person. This value is always optional
3497:
3498: rcv_transactions_interface_sv1.validate_employee(employee_record);
3499: x_cascaded_table(n).error_status := employee_record.error_record.error_status;
3500: rcv_error_pkg.set_error_message(employee_record.error_record.error_message, x_cascaded_table(n).error_message);
3501: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'DELIVER_TO_PERSON_ID');
3502:
3503: /*
3504: ** Validate deliver to person. This value is always optional
3505: */
3519:
3520: /* 1 is Standard Receipt, 2 is Inspection Required */
3521: IF ( (x_cascaded_table(n).routing_header_id) IN(1, 2)
3522: AND NVL(rcv_setup_s.get_override_routing, 'N') = 'N') THEN
3523: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3524: rcv_error_pkg.set_error_message('RCV_ASN_DELIVER_ROUTING_FAILED', x_cascaded_table(n).error_message);
3525: rcv_error_pkg.log_interface_error('ROUTING_HEADER_ID');
3526: END IF;
3527: END IF;
3520: /* 1 is Standard Receipt, 2 is Inspection Required */
3521: IF ( (x_cascaded_table(n).routing_header_id) IN(1, 2)
3522: AND NVL(rcv_setup_s.get_override_routing, 'N') = 'N') THEN
3523: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3524: rcv_error_pkg.set_error_message('RCV_ASN_DELIVER_ROUTING_FAILED', x_cascaded_table(n).error_message);
3525: rcv_error_pkg.log_interface_error('ROUTING_HEADER_ID');
3526: END IF;
3527: END IF;
3528:
3521: IF ( (x_cascaded_table(n).routing_header_id) IN(1, 2)
3522: AND NVL(rcv_setup_s.get_override_routing, 'N') = 'N') THEN
3523: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3524: rcv_error_pkg.set_error_message('RCV_ASN_DELIVER_ROUTING_FAILED', x_cascaded_table(n).error_message);
3525: rcv_error_pkg.log_interface_error('ROUTING_HEADER_ID');
3526: END IF;
3527: END IF;
3528:
3529: /*
3545: END IF;
3546:
3547: rcv_transactions_interface_sv1.validate_location(location_record);
3548: x_cascaded_table(n).error_status := location_record.error_record.error_status;
3549: rcv_error_pkg.set_error_message(location_record.error_record.error_message, x_cascaded_table(n).error_message);
3550: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'DELIVER_TO_LOCATION_ID');
3551: END IF;
3552:
3553: /*
3546:
3547: rcv_transactions_interface_sv1.validate_location(location_record);
3548: x_cascaded_table(n).error_status := location_record.error_record.error_status;
3549: rcv_error_pkg.set_error_message(location_record.error_record.error_message, x_cascaded_table(n).error_message);
3550: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'DELIVER_TO_LOCATION_ID');
3551: END IF;
3552:
3553: /*
3554: ** Validate subinventory if inventory destination or if not inventory
3570: END IF;
3571:
3572: rcv_transactions_interface_sv1.validate_subinventory(subinventory_record);
3573: x_cascaded_table(n).error_status := subinventory_record.error_record.error_status;
3574: rcv_error_pkg.set_error_message(subinventory_record.error_record.error_message, x_cascaded_table(n).error_message);
3575: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'SUBINVENTORY');
3576: ELSE
3577: x_cascaded_table(n).subinventory := NULL;
3578: END IF;
3571:
3572: rcv_transactions_interface_sv1.validate_subinventory(subinventory_record);
3573: x_cascaded_table(n).error_status := subinventory_record.error_record.error_status;
3574: rcv_error_pkg.set_error_message(subinventory_record.error_record.error_message, x_cascaded_table(n).error_message);
3575: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'SUBINVENTORY');
3576: ELSE
3577: x_cascaded_table(n).subinventory := NULL;
3578: END IF;
3579: END IF;
3616: END IF;
3617:
3618: rcv_transactions_interface_sv1.validate_locator(locator_record);
3619: x_cascaded_table(n).error_status := locator_record.error_record.error_status;
3620: rcv_error_pkg.set_error_message(locator_record.error_record.error_message, x_cascaded_table(n).error_message);
3621:
3622: IF (g_asn_debug = 'Y') THEN
3623: asn_debug.put_line('Loc Error Status = ' || locator_record.error_record.error_status);
3624: asn_debug.put_line('Loc Error Msg = ' || locator_record.error_record.error_message);
3623: asn_debug.put_line('Loc Error Status = ' || locator_record.error_record.error_status);
3624: asn_debug.put_line('Loc Error Msg = ' || locator_record.error_record.error_message);
3625: END IF;
3626:
3627: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'LOCATOR');
3628: ELSE
3629: x_cascaded_table(n).locator_id := NULL;
3630: x_cascaded_table(n).LOCATOR := NULL;
3631: END IF;
3642: END IF;
3643:
3644: rcv_transactions_interface_sv1.validate_tax_code(tax_name_record);
3645: x_cascaded_table(n).error_status := tax_name_record.error_record.error_status;
3646: rcv_error_pkg.set_error_message(tax_name_record.error_record.error_message, x_cascaded_table(n).error_message);
3647: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'TAX_NAME');
3648: END IF;
3649: END IF;
3650:
3643:
3644: rcv_transactions_interface_sv1.validate_tax_code(tax_name_record);
3645: x_cascaded_table(n).error_status := tax_name_record.error_record.error_status;
3646: rcv_error_pkg.set_error_message(tax_name_record.error_record.error_message, x_cascaded_table(n).error_message);
3647: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'TAX_NAME');
3648: END IF;
3649: END IF;
3650:
3651: --FRKHAN 12/18/98 validate country of origin code
3659: END IF;
3660:
3661: rcv_transactions_interface_sv1.validate_country_of_origin(country_of_origin_record);
3662: x_cascaded_table(n).error_status := country_of_origin_record.error_record.error_status;
3663: rcv_error_pkg.set_error_message(country_of_origin_record.error_record.error_message, x_cascaded_table(n).error_message);
3664: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'COUNTRY_OF_ORIGIN_CODE');
3665: END IF;
3666:
3667: asl_record.po_header_id := x_cascaded_table(n).po_header_id;
3660:
3661: rcv_transactions_interface_sv1.validate_country_of_origin(country_of_origin_record);
3662: x_cascaded_table(n).error_status := country_of_origin_record.error_record.error_status;
3663: rcv_error_pkg.set_error_message(country_of_origin_record.error_record.error_message, x_cascaded_table(n).error_message);
3664: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'COUNTRY_OF_ORIGIN_CODE');
3665: END IF;
3666:
3667: asl_record.po_header_id := x_cascaded_table(n).po_header_id;
3668: asl_record.vendor_id := x_cascaded_table(n).vendor_id;
3677: END IF;
3678:
3679: rcv_transactions_interface_sv1.validate_asl(asl_record);
3680: x_cascaded_table(n).error_status := asl_record.error_record.error_status;
3681: rcv_error_pkg.set_error_message(asl_record.error_record.error_message, x_cascaded_table(n).error_message);
3682: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'SUPPLY_AGREEMENT_FLAG');
3683:
3684: IF NVL(x_cascaded_table(n).vendor_cum_shipped_qty, 0) <> 0 THEN
3685: cum_quantity_record.to_organization_id := x_cascaded_table(n).to_organization_id;
3678:
3679: rcv_transactions_interface_sv1.validate_asl(asl_record);
3680: x_cascaded_table(n).error_status := asl_record.error_record.error_status;
3681: rcv_error_pkg.set_error_message(asl_record.error_record.error_message, x_cascaded_table(n).error_message);
3682: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'SUPPLY_AGREEMENT_FLAG');
3683:
3684: IF NVL(x_cascaded_table(n).vendor_cum_shipped_qty, 0) <> 0 THEN
3685: cum_quantity_record.to_organization_id := x_cascaded_table(n).to_organization_id;
3686: cum_quantity_record.po_header_id := x_cascaded_table(n).po_header_id;
3700: END IF;
3701:
3702: rcv_transactions_interface_sv1.validate_cum_quantity_shipped(cum_quantity_record);
3703: x_cascaded_table(n).error_status := cum_quantity_record.error_record.error_status;
3704: rcv_error_pkg.set_error_message(cum_quantity_record.error_record.error_message, x_cascaded_table(n).error_message);
3705:
3706: /* WDK - hack, errors are downgraded to warning */
3707: IF (x_cascaded_table(n).error_status = rcv_error_pkg.g_ret_sts_error) THEN
3708: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3703: x_cascaded_table(n).error_status := cum_quantity_record.error_record.error_status;
3704: rcv_error_pkg.set_error_message(cum_quantity_record.error_record.error_message, x_cascaded_table(n).error_message);
3705:
3706: /* WDK - hack, errors are downgraded to warning */
3707: IF (x_cascaded_table(n).error_status = rcv_error_pkg.g_ret_sts_error) THEN
3708: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3709: END IF;
3710:
3711: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'VENDOR_CUM_SHIPPED_QTY');
3704: rcv_error_pkg.set_error_message(cum_quantity_record.error_record.error_message, x_cascaded_table(n).error_message);
3705:
3706: /* WDK - hack, errors are downgraded to warning */
3707: IF (x_cascaded_table(n).error_status = rcv_error_pkg.g_ret_sts_error) THEN
3708: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3709: END IF;
3710:
3711: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'VENDOR_CUM_SHIPPED_QTY');
3712: END IF; -- vendor_cum_shipped_qty <> 0
3707: IF (x_cascaded_table(n).error_status = rcv_error_pkg.g_ret_sts_error) THEN
3708: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3709: END IF;
3710:
3711: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'VENDOR_CUM_SHIPPED_QTY');
3712: END IF; -- vendor_cum_shipped_qty <> 0
3713:
3714: IF (g_asn_debug = 'Y') THEN
3715: asn_debug.put_line('Validating ref integrity');
3731: END IF;
3732:
3733: rcv_transactions_interface_sv1.validate_ref_integ(ref_integrity_record, x_header_record);
3734: x_cascaded_table(n).error_status := ref_integrity_record.error_record.error_status;
3735: rcv_error_pkg.set_error_message(ref_integrity_record.error_record.error_message, x_cascaded_table(n).error_message);
3736: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'DOCUMENT_NUM');
3737:
3738: -- If substitute item has been specified then we need to switch the item_id with the
3739: -- substitute item. Also make sure that we can receive the substitute item in the
3732:
3733: rcv_transactions_interface_sv1.validate_ref_integ(ref_integrity_record, x_header_record);
3734: x_cascaded_table(n).error_status := ref_integrity_record.error_record.error_status;
3735: rcv_error_pkg.set_error_message(ref_integrity_record.error_record.error_message, x_cascaded_table(n).error_message);
3736: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'DOCUMENT_NUM');
3737:
3738: -- If substitute item has been specified then we need to switch the item_id with the
3739: -- substitute item. Also make sure that we can receive the substitute item in the
3740: -- ASN UOM. Convert the primary_quantity in item.primary uom to the substitute_item.primary_uom
3742:
3743:
3744: IF x_cascaded_table(n).substitute_item_id IS NOT NULL THEN
3745: exchange_sub_item(x_cascaded_table, n);
3746: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'SUBSTITUTE_ITEM_ID');
3747:
3748: IF x_cascaded_table(n).error_status NOT IN('S', 'W') THEN
3749: IF (g_asn_debug = 'Y') THEN
3750: asn_debug.put_line('Some problems in exchange');
3771: asn_debug.put_line('After Validating ASBN for Consigned PO');
3772: END IF;
3773:
3774: x_cascaded_table(n).error_status := l_consigned_po_rec.error_record.error_status;
3775: rcv_error_pkg.set_error_message(l_consigned_po_rec.error_record.error_message, x_cascaded_table(n).error_message);
3776:
3777: IF (g_asn_debug = 'Y') THEN
3778: asn_debug.put_line('Error status ' || l_consigned_po_rec.error_record.error_status);
3779: asn_debug.put_line('Error name: ' || l_consigned_po_rec.error_record.error_message);
3778: asn_debug.put_line('Error status ' || l_consigned_po_rec.error_record.error_status);
3779: asn_debug.put_line('Error name: ' || l_consigned_po_rec.error_record.error_message);
3780: END IF;
3781:
3782: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'PO_LINE_LOCATION_ID');
3783: END IF; -- IF (x_cascaded_table(n).error_status in ('S','W')) AND (X_asn_type = 'ASBN')
3784:
3785: /*
3786: ** Reject ASN, ASBN or Receipt transactions against Consumption PO
3801: asn_debug.put_line('After Validating Consumption PO');
3802: END IF;
3803:
3804: x_cascaded_table(n).error_status := l_consumption_po_rec.error_record.error_status;
3805: rcv_error_pkg.set_error_message(l_consumption_po_rec.error_record.error_message, x_cascaded_table(n).error_message);
3806:
3807: IF (g_asn_debug = 'Y') THEN
3808: asn_debug.put_line('Error status ' || l_consumption_po_rec.error_record.error_status);
3809: asn_debug.put_line('Error name: ' || l_consumption_po_rec.error_record.error_message);
3808: asn_debug.put_line('Error status ' || l_consumption_po_rec.error_record.error_status);
3809: asn_debug.put_line('Error name: ' || l_consumption_po_rec.error_record.error_message);
3810: END IF;
3811:
3812: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'PO_HEADER_ID');
3813: END IF; -- IF (x_cascaded_table(n).error_status in ('S','W'))
3814:
3815: /*
3816: ** Reject ASN, ASBN or Receipt transactions against Consumption Release
3830: asn_debug.put_line('After Validating Consumption Release');
3831: END IF;
3832:
3833: x_cascaded_table(n).error_status := l_consumption_release_rec.error_record.error_status;
3834: rcv_error_pkg.set_error_message(l_consumption_release_rec.error_record.error_message, x_cascaded_table(n).error_message);
3835:
3836: IF (g_asn_debug = 'Y') THEN
3837: asn_debug.put_line('Error status ' || l_consumption_release_rec.error_record.error_status);
3838: asn_debug.put_line('Error name: ' || l_consumption_release_rec.error_record.error_message);
3837: asn_debug.put_line('Error status ' || l_consumption_release_rec.error_record.error_status);
3838: asn_debug.put_line('Error name: ' || l_consumption_release_rec.error_record.error_message);
3839: END IF;
3840:
3841: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'PO_RELEASE_ID');
3842: END IF; -- IF (x_cascaded_table(n).error_status in ('S','W'))
3843: /*
3844: EXCEPTION
3845: WHEN rcv_error_pkg.e_fatal_error THEN
3841: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'PO_RELEASE_ID');
3842: END IF; -- IF (x_cascaded_table(n).error_status in ('S','W'))
3843: /*
3844: EXCEPTION
3845: WHEN rcv_error_pkg.e_fatal_error THEN
3846: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3847: WHEN OTHERS THEN
3848: IF (g_asn_debug = 'Y') THEN
3849: asn_debug.put_line('I have hit an exception');
3842: END IF; -- IF (x_cascaded_table(n).error_status in ('S','W'))
3843: /*
3844: EXCEPTION
3845: WHEN rcv_error_pkg.e_fatal_error THEN
3846: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3847: WHEN OTHERS THEN
3848: IF (g_asn_debug = 'Y') THEN
3849: asn_debug.put_line('I have hit an exception');
3850: asn_debug.put_line(SQLERRM);
3850: asn_debug.put_line(SQLERRM);
3851: asn_debug.put_line('Exit validate_shipment_line');
3852: END IF;
3853:
3854: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
3855: rcv_error_pkg.set_sql_error_message('validate_shipment_line', x_progress);
3856: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
3857: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID');
3858: END validate_shipment_line;
3851: asn_debug.put_line('Exit validate_shipment_line');
3852: END IF;
3853:
3854: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
3855: rcv_error_pkg.set_sql_error_message('validate_shipment_line', x_progress);
3856: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
3857: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID');
3858: END validate_shipment_line;
3859:
3852: END IF;
3853:
3854: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
3855: rcv_error_pkg.set_sql_error_message('validate_shipment_line', x_progress);
3856: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
3857: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID');
3858: END validate_shipment_line;
3859:
3860: /*===========================================================================
3853:
3854: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
3855: rcv_error_pkg.set_sql_error_message('validate_shipment_line', x_progress);
3856: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
3857: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID');
3858: END validate_shipment_line;
3859:
3860: /*===========================================================================
3861:
3871: FROM hr_locations
3872: WHERE location_code = x_location_id_record.location_code;
3873:
3874: IF (x_location_id_record.location_id IS NULL) THEN
3875: x_location_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
3876: rcv_error_pkg.set_error_message('RCV_ASN_LOCATION_ID', x_location_id_record.error_record.error_message);
3877: END IF;
3878: EXCEPTION
3879: WHEN OTHERS THEN
3872: WHERE location_code = x_location_id_record.location_code;
3873:
3874: IF (x_location_id_record.location_id IS NULL) THEN
3875: x_location_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
3876: rcv_error_pkg.set_error_message('RCV_ASN_LOCATION_ID', x_location_id_record.error_record.error_message);
3877: END IF;
3878: EXCEPTION
3879: WHEN OTHERS THEN
3880: x_location_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_unexp_error;
3876: rcv_error_pkg.set_error_message('RCV_ASN_LOCATION_ID', x_location_id_record.error_record.error_message);
3877: END IF;
3878: EXCEPTION
3879: WHEN OTHERS THEN
3880: x_location_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_unexp_error;
3881: rcv_error_pkg.set_sql_error_message('get_location_id', '000');
3882: x_location_id_record.error_record.error_message := rcv_error_pkg.get_last_message;
3883: END get_location_id;
3884:
3877: END IF;
3878: EXCEPTION
3879: WHEN OTHERS THEN
3880: x_location_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_unexp_error;
3881: rcv_error_pkg.set_sql_error_message('get_location_id', '000');
3882: x_location_id_record.error_record.error_message := rcv_error_pkg.get_last_message;
3883: END get_location_id;
3884:
3885: /*===========================================================================
3878: EXCEPTION
3879: WHEN OTHERS THEN
3880: x_location_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_unexp_error;
3881: rcv_error_pkg.set_sql_error_message('get_location_id', '000');
3882: x_location_id_record.error_record.error_message := rcv_error_pkg.get_last_message;
3883: END get_location_id;
3884:
3885: /*===========================================================================
3886:
3905: AND NVL(ml.subinventory_code, 'z') = NVL(x_locator_id_record.subinventory, 'z')
3906: AND x_locator_id_record.to_organization_id = ml.organization_id;
3907:
3908: IF (x_locator_id_record.locator_id IS NULL) THEN
3909: x_locator_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
3910: rcv_error_pkg.set_error_message('RCV_ALL_INVALID_LOCATOR', x_locator_id_record.error_record.error_message);
3911: END IF;
3912: EXCEPTION
3913: WHEN OTHERS THEN
3906: AND x_locator_id_record.to_organization_id = ml.organization_id;
3907:
3908: IF (x_locator_id_record.locator_id IS NULL) THEN
3909: x_locator_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
3910: rcv_error_pkg.set_error_message('RCV_ALL_INVALID_LOCATOR', x_locator_id_record.error_record.error_message);
3911: END IF;
3912: EXCEPTION
3913: WHEN OTHERS THEN
3914: x_locator_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_unexp_error;
3910: rcv_error_pkg.set_error_message('RCV_ALL_INVALID_LOCATOR', x_locator_id_record.error_record.error_message);
3911: END IF;
3912: EXCEPTION
3913: WHEN OTHERS THEN
3914: x_locator_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_unexp_error;
3915: rcv_error_pkg.set_sql_error_message('get_locator_id', '000');
3916: x_locator_id_record.error_record.error_message := rcv_error_pkg.get_last_message;
3917: END get_locator_id;
3918:
3911: END IF;
3912: EXCEPTION
3913: WHEN OTHERS THEN
3914: x_locator_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_unexp_error;
3915: rcv_error_pkg.set_sql_error_message('get_locator_id', '000');
3916: x_locator_id_record.error_record.error_message := rcv_error_pkg.get_last_message;
3917: END get_locator_id;
3918:
3919: /*===========================================================================
3912: EXCEPTION
3913: WHEN OTHERS THEN
3914: x_locator_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_unexp_error;
3915: rcv_error_pkg.set_sql_error_message('get_locator_id', '000');
3916: x_locator_id_record.error_record.error_message := rcv_error_pkg.get_last_message;
3917: END get_locator_id;
3918:
3919: /*===========================================================================
3920:
3930: FROM rcv_routing_headers
3931: WHERE routing_name = x_routing_header_id_record.routing_code;
3932:
3933: IF (x_routing_header_id_record.routing_header_id IS NULL) THEN
3934: x_routing_header_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
3935: rcv_error_pkg.set_error_message('RCV_ASN_ROUTING_HEADER_ID', x_routing_header_id_record.error_record.error_message);
3936: END IF;
3937: EXCEPTION
3938: WHEN OTHERS THEN
3931: WHERE routing_name = x_routing_header_id_record.routing_code;
3932:
3933: IF (x_routing_header_id_record.routing_header_id IS NULL) THEN
3934: x_routing_header_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
3935: rcv_error_pkg.set_error_message('RCV_ASN_ROUTING_HEADER_ID', x_routing_header_id_record.error_record.error_message);
3936: END IF;
3937: EXCEPTION
3938: WHEN OTHERS THEN
3939: x_routing_header_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_unexp_error;
3935: rcv_error_pkg.set_error_message('RCV_ASN_ROUTING_HEADER_ID', x_routing_header_id_record.error_record.error_message);
3936: END IF;
3937: EXCEPTION
3938: WHEN OTHERS THEN
3939: x_routing_header_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_unexp_error;
3940: rcv_error_pkg.set_sql_error_message('get_routing_header_id', '000');
3941: x_routing_header_id_record.error_record.error_message := rcv_error_pkg.get_last_message;
3942: END get_routing_header_id;
3943:
3936: END IF;
3937: EXCEPTION
3938: WHEN OTHERS THEN
3939: x_routing_header_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_unexp_error;
3940: rcv_error_pkg.set_sql_error_message('get_routing_header_id', '000');
3941: x_routing_header_id_record.error_record.error_message := rcv_error_pkg.get_last_message;
3942: END get_routing_header_id;
3943:
3944: /*===========================================================================
3937: EXCEPTION
3938: WHEN OTHERS THEN
3939: x_routing_header_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_unexp_error;
3940: rcv_error_pkg.set_sql_error_message('get_routing_header_id', '000');
3941: x_routing_header_id_record.error_record.error_message := rcv_error_pkg.get_last_message;
3942: END get_routing_header_id;
3943:
3944: /*===========================================================================
3945:
3955: FROM rcv_routing_steps
3956: WHERE step_name = x_routing_step_id_record.routing_step;
3957:
3958: IF (x_routing_step_id_record.routing_step_id IS NULL) THEN
3959: x_routing_step_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
3960: rcv_error_pkg.set_error_message('RCV_ASN_ROUTING_STEP_ID', x_routing_step_id_record.error_record.error_message);
3961: END IF;
3962: EXCEPTION
3963: WHEN OTHERS THEN
3956: WHERE step_name = x_routing_step_id_record.routing_step;
3957:
3958: IF (x_routing_step_id_record.routing_step_id IS NULL) THEN
3959: x_routing_step_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
3960: rcv_error_pkg.set_error_message('RCV_ASN_ROUTING_STEP_ID', x_routing_step_id_record.error_record.error_message);
3961: END IF;
3962: EXCEPTION
3963: WHEN OTHERS THEN
3964: x_routing_step_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_unexp_error;
3960: rcv_error_pkg.set_error_message('RCV_ASN_ROUTING_STEP_ID', x_routing_step_id_record.error_record.error_message);
3961: END IF;
3962: EXCEPTION
3963: WHEN OTHERS THEN
3964: x_routing_step_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_unexp_error;
3965: rcv_error_pkg.set_sql_error_message('get_routing_step_id', '000');
3966: x_routing_step_id_record.error_record.error_message := rcv_error_pkg.get_last_message;
3967: END get_routing_step_id;
3968:
3961: END IF;
3962: EXCEPTION
3963: WHEN OTHERS THEN
3964: x_routing_step_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_unexp_error;
3965: rcv_error_pkg.set_sql_error_message('get_routing_step_id', '000');
3966: x_routing_step_id_record.error_record.error_message := rcv_error_pkg.get_last_message;
3967: END get_routing_step_id;
3968:
3969: /*===========================================================================
3962: EXCEPTION
3963: WHEN OTHERS THEN
3964: x_routing_step_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_unexp_error;
3965: rcv_error_pkg.set_sql_error_message('get_routing_step_id', '000');
3966: x_routing_step_id_record.error_record.error_message := rcv_error_pkg.get_last_message;
3967: END get_routing_step_id;
3968:
3969: /*===========================================================================
3970:
3980: FROM mtl_transaction_reasons
3981: WHERE reason_name = x_reason_id_record.reason_name;
3982:
3983: IF (x_reason_id_record.reason_id IS NULL) THEN
3984: x_reason_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
3985: rcv_error_pkg.set_error_message('RCV_ASN_REASON_ID', x_reason_id_record.error_record.error_message);
3986: END IF;
3987: EXCEPTION
3988: WHEN OTHERS THEN
3981: WHERE reason_name = x_reason_id_record.reason_name;
3982:
3983: IF (x_reason_id_record.reason_id IS NULL) THEN
3984: x_reason_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
3985: rcv_error_pkg.set_error_message('RCV_ASN_REASON_ID', x_reason_id_record.error_record.error_message);
3986: END IF;
3987: EXCEPTION
3988: WHEN OTHERS THEN
3989: x_reason_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_unexp_error;
3985: rcv_error_pkg.set_error_message('RCV_ASN_REASON_ID', x_reason_id_record.error_record.error_message);
3986: END IF;
3987: EXCEPTION
3988: WHEN OTHERS THEN
3989: x_reason_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_unexp_error;
3990: rcv_error_pkg.set_sql_error_message('get_reason_id', '000');
3991: x_reason_id_record.error_record.error_message := rcv_error_pkg.get_last_message;
3992: END get_reason_id;
3993:
3986: END IF;
3987: EXCEPTION
3988: WHEN OTHERS THEN
3989: x_reason_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_unexp_error;
3990: rcv_error_pkg.set_sql_error_message('get_reason_id', '000');
3991: x_reason_id_record.error_record.error_message := rcv_error_pkg.get_last_message;
3992: END get_reason_id;
3993:
3994: /*==========================================================================
3987: EXCEPTION
3988: WHEN OTHERS THEN
3989: x_reason_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_unexp_error;
3990: rcv_error_pkg.set_sql_error_message('get_reason_id', '000');
3991: x_reason_id_record.error_record.error_message := rcv_error_pkg.get_last_message;
3992: END get_reason_id;
3993:
3994: /*==========================================================================
3995:
4198: x_uom_count NUMBER(10);
4199: prim_uom_qty NUMBER;
4200: x_error_status VARCHAR2(1);
4201: BEGIN
4202: x_error_status := rcv_error_pkg.g_ret_sts_error;
4203:
4204: SELECT COUNT(*)
4205: INTO x_uom_count
4206: FROM mtl_item_uoms_view
4212: IF (g_asn_debug = 'Y') THEN
4213: asn_debug.put_line('The substitute item cannot be received in ASN uom' || v_cascaded_table(n).unit_of_measure);
4214: END IF;
4215:
4216: rcv_error_pkg.set_error_message('RCV_ITEM_SUB_NOT_ALLOWED');
4217: RAISE e_validation_error;
4218: END IF;
4219:
4220: SELECT MAX(primary_unit_of_measure)
4227: IF (g_asn_debug = 'Y') THEN
4228: asn_debug.put_line('No Primary UOM for substitute item');
4229: END IF;
4230:
4231: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PRIMARY');
4232: RAISE e_validation_error;
4233: END IF;
4234:
4235: IF (g_asn_debug = 'Y') THEN
4247: IF (g_asn_debug = 'Y') THEN
4248: asn_debug.put_line('Not possible to convert between asn and primary UOM');
4249: END IF;
4250:
4251: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PRIMARY');
4252: RAISE e_validation_error;
4253: END IF;
4254:
4255: v_cascaded_table(n).primary_unit_of_measure := x_primary_uom;
4263: -- Check other fields that need to be reassigned/nulled out possibly
4264: EXCEPTION
4265: WHEN e_validation_error THEN
4266: v_cascaded_table(n).error_status := x_error_status;
4267: v_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
4268:
4269: IF v_cascaded_table(n).error_message = 'RCV_ITEM_SUB_NOT_ALLOWED' THEN
4270: rcv_error_pkg.set_token('ITEM', v_cascaded_table(n).substitute_item_id);
4271: ELSIF v_cascaded_table(n).error_message = 'RCV_UOM_NO_CONV_PRIMARY' THEN
4266: v_cascaded_table(n).error_status := x_error_status;
4267: v_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
4268:
4269: IF v_cascaded_table(n).error_message = 'RCV_ITEM_SUB_NOT_ALLOWED' THEN
4270: rcv_error_pkg.set_token('ITEM', v_cascaded_table(n).substitute_item_id);
4271: ELSIF v_cascaded_table(n).error_message = 'RCV_UOM_NO_CONV_PRIMARY' THEN
4272: rcv_error_pkg.set_token('SHIPMENT_UNIT', v_cascaded_table(n).primary_unit_of_measure);
4273: rcv_error_pkg.set_token('PRIMARY_UNIT', x_primary_uom);
4274: END IF;
4268:
4269: IF v_cascaded_table(n).error_message = 'RCV_ITEM_SUB_NOT_ALLOWED' THEN
4270: rcv_error_pkg.set_token('ITEM', v_cascaded_table(n).substitute_item_id);
4271: ELSIF v_cascaded_table(n).error_message = 'RCV_UOM_NO_CONV_PRIMARY' THEN
4272: rcv_error_pkg.set_token('SHIPMENT_UNIT', v_cascaded_table(n).primary_unit_of_measure);
4273: rcv_error_pkg.set_token('PRIMARY_UNIT', x_primary_uom);
4274: END IF;
4275: END exchange_sub_item;
4276:
4269: IF v_cascaded_table(n).error_message = 'RCV_ITEM_SUB_NOT_ALLOWED' THEN
4270: rcv_error_pkg.set_token('ITEM', v_cascaded_table(n).substitute_item_id);
4271: ELSIF v_cascaded_table(n).error_message = 'RCV_UOM_NO_CONV_PRIMARY' THEN
4272: rcv_error_pkg.set_token('SHIPMENT_UNIT', v_cascaded_table(n).primary_unit_of_measure);
4273: rcv_error_pkg.set_token('PRIMARY_UNIT', x_primary_uom);
4274: END IF;
4275: END exchange_sub_item;
4276:
4277: /*===========================================================================
4294: WHERE segment1 = x_po_header_id_record.document_num
4295: AND type_lookup_code IN('STANDARD', 'BLANKET', 'PLANNED'); -- Could be a quotation with same number
4296:
4297: IF (x_po_header_id_record.po_header_id IS NULL) THEN
4298: x_po_header_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
4299: rcv_error_pkg.set_error_message('RCV_ITEM_PO_ID', x_po_header_id_record.error_record.error_message);
4300: rcv_error_pkg.set_token('PO_NUMBER', x_po_header_id_record.document_num);
4301: rcv_error_pkg.set_token('SHIPMENT', '');
4302: END IF;
4295: AND type_lookup_code IN('STANDARD', 'BLANKET', 'PLANNED'); -- Could be a quotation with same number
4296:
4297: IF (x_po_header_id_record.po_header_id IS NULL) THEN
4298: x_po_header_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
4299: rcv_error_pkg.set_error_message('RCV_ITEM_PO_ID', x_po_header_id_record.error_record.error_message);
4300: rcv_error_pkg.set_token('PO_NUMBER', x_po_header_id_record.document_num);
4301: rcv_error_pkg.set_token('SHIPMENT', '');
4302: END IF;
4303: EXCEPTION
4296:
4297: IF (x_po_header_id_record.po_header_id IS NULL) THEN
4298: x_po_header_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
4299: rcv_error_pkg.set_error_message('RCV_ITEM_PO_ID', x_po_header_id_record.error_record.error_message);
4300: rcv_error_pkg.set_token('PO_NUMBER', x_po_header_id_record.document_num);
4301: rcv_error_pkg.set_token('SHIPMENT', '');
4302: END IF;
4303: EXCEPTION
4304: WHEN OTHERS THEN
4297: IF (x_po_header_id_record.po_header_id IS NULL) THEN
4298: x_po_header_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
4299: rcv_error_pkg.set_error_message('RCV_ITEM_PO_ID', x_po_header_id_record.error_record.error_message);
4300: rcv_error_pkg.set_token('PO_NUMBER', x_po_header_id_record.document_num);
4301: rcv_error_pkg.set_token('SHIPMENT', '');
4302: END IF;
4303: EXCEPTION
4304: WHEN OTHERS THEN
4305: x_po_header_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_unexp_error;
4301: rcv_error_pkg.set_token('SHIPMENT', '');
4302: END IF;
4303: EXCEPTION
4304: WHEN OTHERS THEN
4305: x_po_header_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_unexp_error;
4306: rcv_error_pkg.set_sql_error_message('get_po_header_id', '000');
4307: x_po_header_id_record.error_record.error_message := rcv_error_pkg.get_last_message;
4308: END get_po_header_id;
4309:
4302: END IF;
4303: EXCEPTION
4304: WHEN OTHERS THEN
4305: x_po_header_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_unexp_error;
4306: rcv_error_pkg.set_sql_error_message('get_po_header_id', '000');
4307: x_po_header_id_record.error_record.error_message := rcv_error_pkg.get_last_message;
4308: END get_po_header_id;
4309:
4310: /*===========================================================================
4303: EXCEPTION
4304: WHEN OTHERS THEN
4305: x_po_header_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_unexp_error;
4306: rcv_error_pkg.set_sql_error_message('get_po_header_id', '000');
4307: x_po_header_id_record.error_record.error_message := rcv_error_pkg.get_last_message;
4308: END get_po_header_id;
4309:
4310: /*===========================================================================
4311:
4344: END IF;
4345: END IF;
4346:
4347: IF (x_item_id_record.item_id IS NULL) THEN
4348: x_item_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_warning;
4349: rcv_error_pkg.set_error_message('RCV_ITEM_PO_ID', x_item_id_record.error_record.error_message);
4350: rcv_error_pkg.set_token('ITEM', x_item_id_record.item_num);
4351: END IF;
4352: EXCEPTION
4345: END IF;
4346:
4347: IF (x_item_id_record.item_id IS NULL) THEN
4348: x_item_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_warning;
4349: rcv_error_pkg.set_error_message('RCV_ITEM_PO_ID', x_item_id_record.error_record.error_message);
4350: rcv_error_pkg.set_token('ITEM', x_item_id_record.item_num);
4351: END IF;
4352: EXCEPTION
4353: WHEN OTHERS THEN
4346:
4347: IF (x_item_id_record.item_id IS NULL) THEN
4348: x_item_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_warning;
4349: rcv_error_pkg.set_error_message('RCV_ITEM_PO_ID', x_item_id_record.error_record.error_message);
4350: rcv_error_pkg.set_token('ITEM', x_item_id_record.item_num);
4351: END IF;
4352: EXCEPTION
4353: WHEN OTHERS THEN
4354: x_item_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_unexp_error;
4350: rcv_error_pkg.set_token('ITEM', x_item_id_record.item_num);
4351: END IF;
4352: EXCEPTION
4353: WHEN OTHERS THEN
4354: x_item_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_unexp_error;
4355: rcv_error_pkg.set_sql_error_message('get_item_id', '000');
4356: x_item_id_record.error_record.error_message := rcv_error_pkg.get_last_message;
4357: END get_item_id;
4358:
4351: END IF;
4352: EXCEPTION
4353: WHEN OTHERS THEN
4354: x_item_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_unexp_error;
4355: rcv_error_pkg.set_sql_error_message('get_item_id', '000');
4356: x_item_id_record.error_record.error_message := rcv_error_pkg.get_last_message;
4357: END get_item_id;
4358:
4359: /*===========================================================================
4352: EXCEPTION
4353: WHEN OTHERS THEN
4354: x_item_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_unexp_error;
4355: rcv_error_pkg.set_sql_error_message('get_item_id', '000');
4356: x_item_id_record.error_record.error_message := rcv_error_pkg.get_last_message;
4357: END get_item_id;
4358:
4359: /*===========================================================================
4360:
4377: WHERE concatenated_segments = x_sub_item_id_record.vendor_item_num;
4378: END IF;
4379:
4380: IF (x_sub_item_id_record.substitute_item_id IS NULL) THEN
4381: x_sub_item_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
4382: rcv_error_pkg.set_error_message('RCV_ITEM_SUB_ID', x_sub_item_id_record.error_record.error_message);
4383: rcv_error_pkg.set_token('ITEM', x_sub_item_id_record.substitute_item_num);
4384: END IF;
4385: EXCEPTION
4378: END IF;
4379:
4380: IF (x_sub_item_id_record.substitute_item_id IS NULL) THEN
4381: x_sub_item_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
4382: rcv_error_pkg.set_error_message('RCV_ITEM_SUB_ID', x_sub_item_id_record.error_record.error_message);
4383: rcv_error_pkg.set_token('ITEM', x_sub_item_id_record.substitute_item_num);
4384: END IF;
4385: EXCEPTION
4386: WHEN OTHERS THEN
4379:
4380: IF (x_sub_item_id_record.substitute_item_id IS NULL) THEN
4381: x_sub_item_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
4382: rcv_error_pkg.set_error_message('RCV_ITEM_SUB_ID', x_sub_item_id_record.error_record.error_message);
4383: rcv_error_pkg.set_token('ITEM', x_sub_item_id_record.substitute_item_num);
4384: END IF;
4385: EXCEPTION
4386: WHEN OTHERS THEN
4387: x_sub_item_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_unexp_error;
4383: rcv_error_pkg.set_token('ITEM', x_sub_item_id_record.substitute_item_num);
4384: END IF;
4385: EXCEPTION
4386: WHEN OTHERS THEN
4387: x_sub_item_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_unexp_error;
4388: rcv_error_pkg.set_sql_error_message('get_sub_item_id', '000');
4389: x_sub_item_id_record.error_record.error_message := rcv_error_pkg.get_last_message;
4390: END get_sub_item_id;
4391:
4384: END IF;
4385: EXCEPTION
4386: WHEN OTHERS THEN
4387: x_sub_item_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_unexp_error;
4388: rcv_error_pkg.set_sql_error_message('get_sub_item_id', '000');
4389: x_sub_item_id_record.error_record.error_message := rcv_error_pkg.get_last_message;
4390: END get_sub_item_id;
4391:
4392: /*===========================================================================
4385: EXCEPTION
4386: WHEN OTHERS THEN
4387: x_sub_item_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_unexp_error;
4388: rcv_error_pkg.set_sql_error_message('get_sub_item_id', '000');
4389: x_sub_item_id_record.error_record.error_message := rcv_error_pkg.get_last_message;
4390: END get_sub_item_id;
4391:
4392: /*===========================================================================
4393:
4410: RAISE NO_DATA_FOUND;
4411: END IF;
4412: EXCEPTION
4413: WHEN NO_DATA_FOUND THEN
4414: x_po_line_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
4415: rcv_error_pkg.set_error_message('RCV_ITEM_PO_LINE_ID', x_po_line_id_record.error_record.error_message);
4416: rcv_error_pkg.set_token('NUMBER', x_po_line_id_record.document_line_num);
4417: WHEN OTHERS THEN
4418: x_po_line_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_unexp_error;
4411: END IF;
4412: EXCEPTION
4413: WHEN NO_DATA_FOUND THEN
4414: x_po_line_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
4415: rcv_error_pkg.set_error_message('RCV_ITEM_PO_LINE_ID', x_po_line_id_record.error_record.error_message);
4416: rcv_error_pkg.set_token('NUMBER', x_po_line_id_record.document_line_num);
4417: WHEN OTHERS THEN
4418: x_po_line_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_unexp_error;
4419: rcv_error_pkg.set_sql_error_message('get_po_line_id', '000');
4412: EXCEPTION
4413: WHEN NO_DATA_FOUND THEN
4414: x_po_line_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
4415: rcv_error_pkg.set_error_message('RCV_ITEM_PO_LINE_ID', x_po_line_id_record.error_record.error_message);
4416: rcv_error_pkg.set_token('NUMBER', x_po_line_id_record.document_line_num);
4417: WHEN OTHERS THEN
4418: x_po_line_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_unexp_error;
4419: rcv_error_pkg.set_sql_error_message('get_po_line_id', '000');
4420: x_po_line_id_record.error_record.error_message := rcv_error_pkg.get_last_message;
4414: x_po_line_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
4415: rcv_error_pkg.set_error_message('RCV_ITEM_PO_LINE_ID', x_po_line_id_record.error_record.error_message);
4416: rcv_error_pkg.set_token('NUMBER', x_po_line_id_record.document_line_num);
4417: WHEN OTHERS THEN
4418: x_po_line_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_unexp_error;
4419: rcv_error_pkg.set_sql_error_message('get_po_line_id', '000');
4420: x_po_line_id_record.error_record.error_message := rcv_error_pkg.get_last_message;
4421: END get_po_line_id;
4422:
4415: rcv_error_pkg.set_error_message('RCV_ITEM_PO_LINE_ID', x_po_line_id_record.error_record.error_message);
4416: rcv_error_pkg.set_token('NUMBER', x_po_line_id_record.document_line_num);
4417: WHEN OTHERS THEN
4418: x_po_line_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_unexp_error;
4419: rcv_error_pkg.set_sql_error_message('get_po_line_id', '000');
4420: x_po_line_id_record.error_record.error_message := rcv_error_pkg.get_last_message;
4421: END get_po_line_id;
4422:
4423: /*===========================================================================
4416: rcv_error_pkg.set_token('NUMBER', x_po_line_id_record.document_line_num);
4417: WHEN OTHERS THEN
4418: x_po_line_id_record.error_record.error_status := rcv_error_pkg.g_ret_sts_unexp_error;
4419: rcv_error_pkg.set_sql_error_message('get_po_line_id', '000');
4420: x_po_line_id_record.error_record.error_message := rcv_error_pkg.get_last_message;
4421: END get_po_line_id;
4422:
4423: /*===========================================================================
4424: