[Home] [Help]
79:
80: if (x_cascaded_table(n).transaction_type = 'SHIP' and
81: l_interface_source_code <> 'ISP') then
82: asn_debug.put_line('We do not support transaction type ' || x_cascaded_table(n).transaction_type || ' for complex work POs unless they come through the iSP UI');
83: rcv_error_pkg.set_error_message('RCV_INVALID_TRANSACTION_TYPE');
84: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE');
85: end if;
86: /* Receipt for Work Confirmation does not come through
87: * preprocessor. Hence error out.
80: if (x_cascaded_table(n).transaction_type = 'SHIP' and
81: l_interface_source_code <> 'ISP') then
82: asn_debug.put_line('We do not support transaction type ' || x_cascaded_table(n).transaction_type || ' for complex work POs unless they come through the iSP UI');
83: rcv_error_pkg.set_error_message('RCV_INVALID_TRANSACTION_TYPE');
84: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE');
85: end if;
86: /* Receipt for Work Confirmation does not come through
87: * preprocessor. Hence error out.
88: */
87: * preprocessor. Hence error out.
88: */
89: if (x_cascaded_table(n).transaction_type = 'RECEIVE') then
90: asn_debug.put_line('You cannot process a receipt against this PO using the Open Interface. Please create a Work Confirmation request instead.');
91: rcv_error_pkg.set_error_message('RCV_WC_CREATE');
92: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE');
93:
94: end if;
95: End if;
88: */
89: if (x_cascaded_table(n).transaction_type = 'RECEIVE') then
90: asn_debug.put_line('You cannot process a receipt against this PO using the Open Interface. Please create a Work Confirmation request instead.');
91: rcv_error_pkg.set_error_message('RCV_WC_CREATE');
92: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE');
93:
94: end if;
95: End if;
96:
1317: rcv_transactions_interface_sv.get_po_header_id(document_num_record);
1318: x_cascaded_table(n).po_header_id := document_num_record.po_header_id;
1319: x_cascaded_table(n).error_status := document_num_record.error_record.error_status;
1320: x_cascaded_table(n).error_message := document_num_record.error_record.error_message;
1321: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
1322: 'DOCUMENT_NUM',
1323: FALSE
1324: );
1325:
1356: IF (g_asn_debug = 'Y') THEN
1357: asn_debug.put_line('Cannot derive shipment_header_id');
1358: END IF;
1359:
1360: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1361: rcv_error_pkg.set_error_message('RCV_NO_SHIP_ID', x_cascaded_table(n).error_message);
1362: rcv_error_pkg.set_token('NUMBER', x_cascaded_table(n).shipment_num);
1363: rcv_error_pkg.log_interface_error('SHIPMENT_NUM', FALSE);
1364: END IF; --}
1357: asn_debug.put_line('Cannot derive shipment_header_id');
1358: END IF;
1359:
1360: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1361: rcv_error_pkg.set_error_message('RCV_NO_SHIP_ID', x_cascaded_table(n).error_message);
1362: rcv_error_pkg.set_token('NUMBER', x_cascaded_table(n).shipment_num);
1363: rcv_error_pkg.log_interface_error('SHIPMENT_NUM', FALSE);
1364: END IF; --}
1365: END IF; --}
1358: END IF;
1359:
1360: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1361: rcv_error_pkg.set_error_message('RCV_NO_SHIP_ID', x_cascaded_table(n).error_message);
1362: rcv_error_pkg.set_token('NUMBER', x_cascaded_table(n).shipment_num);
1363: rcv_error_pkg.log_interface_error('SHIPMENT_NUM', FALSE);
1364: END IF; --}
1365: END IF; --}
1366: END IF; --}
1359:
1360: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1361: rcv_error_pkg.set_error_message('RCV_NO_SHIP_ID', x_cascaded_table(n).error_message);
1362: rcv_error_pkg.set_token('NUMBER', x_cascaded_table(n).shipment_num);
1363: rcv_error_pkg.log_interface_error('SHIPMENT_NUM', FALSE);
1364: END IF; --}
1365: END IF; --}
1366: END IF; --}
1367: EXCEPTION
1365: END IF; --}
1366: END IF; --}
1367: EXCEPTION
1368: WHEN OTHERS THEN
1369: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
1370: rcv_error_pkg.set_sql_error_message('derive_asn_header_info', '000');
1371: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
1372: rcv_error_pkg.log_interface_error('SHIPMENT_NUM', FALSE);
1373: END derive_asn_header_info;
1366: END IF; --}
1367: EXCEPTION
1368: WHEN OTHERS THEN
1369: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
1370: rcv_error_pkg.set_sql_error_message('derive_asn_header_info', '000');
1371: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
1372: rcv_error_pkg.log_interface_error('SHIPMENT_NUM', FALSE);
1373: END derive_asn_header_info;
1374:
1367: EXCEPTION
1368: WHEN OTHERS THEN
1369: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
1370: rcv_error_pkg.set_sql_error_message('derive_asn_header_info', '000');
1371: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
1372: rcv_error_pkg.log_interface_error('SHIPMENT_NUM', FALSE);
1373: END derive_asn_header_info;
1374:
1375: PROCEDURE derive_item_info(
1368: WHEN OTHERS THEN
1369: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
1370: rcv_error_pkg.set_sql_error_message('derive_asn_header_info', '000');
1371: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
1372: rcv_error_pkg.log_interface_error('SHIPMENT_NUM', FALSE);
1373: END derive_asn_header_info;
1374:
1375: PROCEDURE derive_item_info(
1376: x_cascaded_table IN OUT NOCOPY rcv_roi_preprocessor.cascaded_trans_tab_type,
1401: x_cascaded_table(n).use_mtl_lot := item_id_record.use_mtl_lot; -- bug 608353
1402: x_cascaded_table(n).use_mtl_serial := item_id_record.use_mtl_serial; -- bug 608353
1403: x_cascaded_table(n).error_status := item_id_record.error_record.error_status;
1404: x_cascaded_table(n).error_message := item_id_record.error_record.error_message;
1405: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
1406: 'ITEM_NUM',
1407: FALSE
1408: );
1409: END IF;
1446: IF (g_asn_debug = 'Y') THEN
1447: asn_debug.put_line(TO_CHAR(x_cascaded_table(n).substitute_item_id));
1448: END IF;
1449:
1450: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
1451: 'SUBSTITUTE_ITEM_NUM',
1452: FALSE
1453: );
1454: END IF;
1499: IF (g_asn_debug = 'Y') THEN
1500: asn_debug.put_line(TO_CHAR(x_cascaded_table(n).po_line_id));
1501: END IF;
1502:
1503: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
1504: 'DOCUMENT_LINE_NUM',
1505: FALSE
1506: );
1507: END IF; -- set line id
1558: asn_debug.put_line('Primary UOM from RTI :' || x_cascaded_table(n).primary_unit_of_measure);
1559: asn_debug.put_line('Derived PRIMARY UOM from MSI:' || l_primary_unit_of_measure);
1560: END IF;
1561: IF (NVL(x_cascaded_table(n).primary_unit_of_measure, l_primary_unit_of_measure) <> l_primary_unit_of_measure) THEN
1562: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1563: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE');
1564: rcv_error_pkg.set_token('COLUMN', 'PRIMARY_UNIT_OF_MEASURE');
1565: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).primary_unit_of_measure);
1566: rcv_error_pkg.set_token('SYS_VALUE', l_primary_unit_of_measure);
1559: asn_debug.put_line('Derived PRIMARY UOM from MSI:' || l_primary_unit_of_measure);
1560: END IF;
1561: IF (NVL(x_cascaded_table(n).primary_unit_of_measure, l_primary_unit_of_measure) <> l_primary_unit_of_measure) THEN
1562: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1563: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE');
1564: rcv_error_pkg.set_token('COLUMN', 'PRIMARY_UNIT_OF_MEASURE');
1565: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).primary_unit_of_measure);
1566: rcv_error_pkg.set_token('SYS_VALUE', l_primary_unit_of_measure);
1567: rcv_error_pkg.log_interface_error('PRIMARY_UNIT_OF_MEASURE');
1560: END IF;
1561: IF (NVL(x_cascaded_table(n).primary_unit_of_measure, l_primary_unit_of_measure) <> l_primary_unit_of_measure) THEN
1562: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1563: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE');
1564: rcv_error_pkg.set_token('COLUMN', 'PRIMARY_UNIT_OF_MEASURE');
1565: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).primary_unit_of_measure);
1566: rcv_error_pkg.set_token('SYS_VALUE', l_primary_unit_of_measure);
1567: rcv_error_pkg.log_interface_error('PRIMARY_UNIT_OF_MEASURE');
1568: ELSE
1561: IF (NVL(x_cascaded_table(n).primary_unit_of_measure, l_primary_unit_of_measure) <> l_primary_unit_of_measure) THEN
1562: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1563: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE');
1564: rcv_error_pkg.set_token('COLUMN', 'PRIMARY_UNIT_OF_MEASURE');
1565: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).primary_unit_of_measure);
1566: rcv_error_pkg.set_token('SYS_VALUE', l_primary_unit_of_measure);
1567: rcv_error_pkg.log_interface_error('PRIMARY_UNIT_OF_MEASURE');
1568: ELSE
1569: x_cascaded_table(n).primary_unit_of_measure := l_primary_unit_of_measure;
1562: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1563: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE');
1564: rcv_error_pkg.set_token('COLUMN', 'PRIMARY_UNIT_OF_MEASURE');
1565: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).primary_unit_of_measure);
1566: rcv_error_pkg.set_token('SYS_VALUE', l_primary_unit_of_measure);
1567: rcv_error_pkg.log_interface_error('PRIMARY_UNIT_OF_MEASURE');
1568: ELSE
1569: x_cascaded_table(n).primary_unit_of_measure := l_primary_unit_of_measure;
1570: END IF;
1563: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE');
1564: rcv_error_pkg.set_token('COLUMN', 'PRIMARY_UNIT_OF_MEASURE');
1565: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).primary_unit_of_measure);
1566: rcv_error_pkg.set_token('SYS_VALUE', l_primary_unit_of_measure);
1567: rcv_error_pkg.log_interface_error('PRIMARY_UNIT_OF_MEASURE');
1568: ELSE
1569: x_cascaded_table(n).primary_unit_of_measure := l_primary_unit_of_measure;
1570: END IF;
1571: IF (g_asn_debug = 'Y') THEN
1572: asn_debug.put_line('Primary UOM: ' || x_cascaded_table(n).primary_unit_of_measure);
1573: END IF;
1574: EXCEPTION
1575: WHEN NO_DATA_FOUND THEN
1576: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
1577: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE_NE');
1578: rcv_error_pkg.set_token('COLUMN', 'PRIMARY_UNIT_OF_MEASURE');
1579: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).primary_unit_of_measure);
1580: rcv_error_pkg.log_interface_warning('PRIMARY_UNIT_OF_MEASURE');
1573: END IF;
1574: EXCEPTION
1575: WHEN NO_DATA_FOUND THEN
1576: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
1577: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE_NE');
1578: rcv_error_pkg.set_token('COLUMN', 'PRIMARY_UNIT_OF_MEASURE');
1579: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).primary_unit_of_measure);
1580: rcv_error_pkg.log_interface_warning('PRIMARY_UNIT_OF_MEASURE');
1581: END;
1574: EXCEPTION
1575: WHEN NO_DATA_FOUND THEN
1576: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
1577: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE_NE');
1578: rcv_error_pkg.set_token('COLUMN', 'PRIMARY_UNIT_OF_MEASURE');
1579: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).primary_unit_of_measure);
1580: rcv_error_pkg.log_interface_warning('PRIMARY_UNIT_OF_MEASURE');
1581: END;
1582: /*END Bug 5592084*/
1575: WHEN NO_DATA_FOUND THEN
1576: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
1577: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE_NE');
1578: rcv_error_pkg.set_token('COLUMN', 'PRIMARY_UNIT_OF_MEASURE');
1579: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).primary_unit_of_measure);
1580: rcv_error_pkg.log_interface_warning('PRIMARY_UNIT_OF_MEASURE');
1581: END;
1582: /*END Bug 5592084*/
1583: END IF; -- set primary_uom
1576: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
1577: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE_NE');
1578: rcv_error_pkg.set_token('COLUMN', 'PRIMARY_UNIT_OF_MEASURE');
1579: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).primary_unit_of_measure);
1580: rcv_error_pkg.log_interface_warning('PRIMARY_UNIT_OF_MEASURE');
1581: END;
1582: /*END Bug 5592084*/
1583: END IF; -- set primary_uom
1584:
1605: asn_debug.put_line('use_mtl_serial: ' || x_cascaded_table(n).use_mtl_serial);
1606: END IF;
1607: EXCEPTION
1608: WHEN NO_DATA_FOUND THEN
1609: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
1610: rcv_error_pkg.set_error_message('PO_RI_INVALID_ITEM_ID', x_cascaded_table(n).error_message);
1611: rcv_error_pkg.log_interface_warning('DOCUMENT_LINE_NUM');
1612: END;
1613: END IF; -- set primary_uom
1606: END IF;
1607: EXCEPTION
1608: WHEN NO_DATA_FOUND THEN
1609: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
1610: rcv_error_pkg.set_error_message('PO_RI_INVALID_ITEM_ID', x_cascaded_table(n).error_message);
1611: rcv_error_pkg.log_interface_warning('DOCUMENT_LINE_NUM');
1612: END;
1613: END IF; -- set primary_uom
1614: END Comment: Bug: 4735484
1607: EXCEPTION
1608: WHEN NO_DATA_FOUND THEN
1609: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
1610: rcv_error_pkg.set_error_message('PO_RI_INVALID_ITEM_ID', x_cascaded_table(n).error_message);
1611: rcv_error_pkg.log_interface_warning('DOCUMENT_LINE_NUM');
1612: END;
1613: END IF; -- set primary_uom
1614: END Comment: Bug: 4735484
1615: */
1691:
1692: /* po_releases_sv4 does not follow error handling paradigm */
1693: l_error_column := 'RELEASE_NUM';
1694: IF (x_cascaded_table(n).error_status = 'F') THEN
1695: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1696: rcv_error_pkg.set_error_message(x_cascaded_table(n).error_message);
1697:
1698: /* Bug 4881909: Setting necessary tokens for messages to be logged in po_interface_errors
1699: ** if release number or PO shipment line information is in error.
1692: /* po_releases_sv4 does not follow error handling paradigm */
1693: l_error_column := 'RELEASE_NUM';
1694: IF (x_cascaded_table(n).error_status = 'F') THEN
1695: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1696: rcv_error_pkg.set_error_message(x_cascaded_table(n).error_message);
1697:
1698: /* Bug 4881909: Setting necessary tokens for messages to be logged in po_interface_errors
1699: ** if release number or PO shipment line information is in error.
1700: */
1700: */
1701:
1702: IF release_id_record.error_record.error_message = 'RCV_ITEM_PO_REL_ID' THEN
1703:
1704: rcv_error_pkg.set_token('NUMBER', x_cascaded_table(n).release_num);
1705:
1706: ELSIF release_id_record.error_record.error_message = 'RCV_ROI_INVALID_PO_SHIP_NUM' THEN
1707: rcv_error_pkg.set_token('PO_SHIP_NUM', x_cascaded_table(n).document_shipment_line_num);
1708: rcv_error_pkg.set_token('PONUM', x_cascaded_table(n).document_num);
1703:
1704: rcv_error_pkg.set_token('NUMBER', x_cascaded_table(n).release_num);
1705:
1706: ELSIF release_id_record.error_record.error_message = 'RCV_ROI_INVALID_PO_SHIP_NUM' THEN
1707: rcv_error_pkg.set_token('PO_SHIP_NUM', x_cascaded_table(n).document_shipment_line_num);
1708: rcv_error_pkg.set_token('PONUM', x_cascaded_table(n).document_num);
1709: l_error_column := 'DOCUMENT_SHIPMENT_LINE_NUM';
1710:
1711: ELSIF release_id_record.error_record.error_message = 'RCV_ROI_INVALID_REL_SHIP_NUM' THEN
1704: rcv_error_pkg.set_token('NUMBER', x_cascaded_table(n).release_num);
1705:
1706: ELSIF release_id_record.error_record.error_message = 'RCV_ROI_INVALID_PO_SHIP_NUM' THEN
1707: rcv_error_pkg.set_token('PO_SHIP_NUM', x_cascaded_table(n).document_shipment_line_num);
1708: rcv_error_pkg.set_token('PONUM', x_cascaded_table(n).document_num);
1709: l_error_column := 'DOCUMENT_SHIPMENT_LINE_NUM';
1710:
1711: ELSIF release_id_record.error_record.error_message = 'RCV_ROI_INVALID_REL_SHIP_NUM' THEN
1712: rcv_error_pkg.set_token('PO_SHIP_NUM', x_cascaded_table(n).document_shipment_line_num);
1708: rcv_error_pkg.set_token('PONUM', x_cascaded_table(n).document_num);
1709: l_error_column := 'DOCUMENT_SHIPMENT_LINE_NUM';
1710:
1711: ELSIF release_id_record.error_record.error_message = 'RCV_ROI_INVALID_REL_SHIP_NUM' THEN
1712: rcv_error_pkg.set_token('PO_SHIP_NUM', x_cascaded_table(n).document_shipment_line_num);
1713: rcv_error_pkg.set_token('PONUM', x_cascaded_table(n).document_num);
1714: rcv_error_pkg.set_token('RELEASE', x_cascaded_table(n).release_num);
1715: l_error_column := 'DOCUMENT_SHIPMENT_LINE_NUM';
1716:
1709: l_error_column := 'DOCUMENT_SHIPMENT_LINE_NUM';
1710:
1711: ELSIF release_id_record.error_record.error_message = 'RCV_ROI_INVALID_REL_SHIP_NUM' THEN
1712: rcv_error_pkg.set_token('PO_SHIP_NUM', x_cascaded_table(n).document_shipment_line_num);
1713: rcv_error_pkg.set_token('PONUM', x_cascaded_table(n).document_num);
1714: rcv_error_pkg.set_token('RELEASE', x_cascaded_table(n).release_num);
1715: l_error_column := 'DOCUMENT_SHIPMENT_LINE_NUM';
1716:
1717: ELSIF release_id_record.error_record.error_message = 'RCV_ROI_INVALID_RELEASE_NUM' THEN
1710:
1711: ELSIF release_id_record.error_record.error_message = 'RCV_ROI_INVALID_REL_SHIP_NUM' THEN
1712: rcv_error_pkg.set_token('PO_SHIP_NUM', x_cascaded_table(n).document_shipment_line_num);
1713: rcv_error_pkg.set_token('PONUM', x_cascaded_table(n).document_num);
1714: rcv_error_pkg.set_token('RELEASE', x_cascaded_table(n).release_num);
1715: l_error_column := 'DOCUMENT_SHIPMENT_LINE_NUM';
1716:
1717: ELSIF release_id_record.error_record.error_message = 'RCV_ROI_INVALID_RELEASE_NUM' THEN
1718:
1715: l_error_column := 'DOCUMENT_SHIPMENT_LINE_NUM';
1716:
1717: ELSIF release_id_record.error_record.error_message = 'RCV_ROI_INVALID_RELEASE_NUM' THEN
1718:
1719: rcv_error_pkg.set_token('RELEASE', x_cascaded_table(n).release_num);
1720: rcv_error_pkg.set_token('PONUM', x_cascaded_table(n).document_num);
1721:
1722: END IF;
1723: END IF;
1716:
1717: ELSIF release_id_record.error_record.error_message = 'RCV_ROI_INVALID_RELEASE_NUM' THEN
1718:
1719: rcv_error_pkg.set_token('RELEASE', x_cascaded_table(n).release_num);
1720: rcv_error_pkg.set_token('PONUM', x_cascaded_table(n).document_num);
1721:
1722: END IF;
1723: END IF;
1724:
1722: END IF;
1723: END IF;
1724:
1725:
1726: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,l_error_column, FALSE);
1727:
1728: IF x_cascaded_table(n).po_line_location_id IS NULL THEN
1729: x_cascaded_table(n).po_line_location_id := release_id_record.po_line_location_id;
1730:
1795: x_cascaded_table(n).error_message := ship_to_org_record.error_record.error_message;
1796:
1797: /* po_orgs_sv does not follow error handling paradigm */
1798: IF (x_cascaded_table(n).error_status = 'F') THEN
1799: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1800: rcv_error_pkg.set_error_message(x_cascaded_table(n).error_message);
1801: END IF;
1802:
1803: END IF;
1796:
1797: /* po_orgs_sv does not follow error handling paradigm */
1798: IF (x_cascaded_table(n).error_status = 'F') THEN
1799: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1800: rcv_error_pkg.set_error_message(x_cascaded_table(n).error_message);
1801: END IF;
1802:
1803: END IF;
1804: END derive_from_org_info;
1839: x_cascaded_table(n).error_message := ship_to_org_record.error_record.error_message;
1840:
1841: /* po_orgs_sv does not follow error handling paradigm */
1842: IF (x_cascaded_table(n).error_status = 'F') THEN
1843: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1844: rcv_error_pkg.set_error_message(x_cascaded_table(n).error_message);
1845: END IF;
1846:
1847: END IF;
1840:
1841: /* po_orgs_sv does not follow error handling paradigm */
1842: IF (x_cascaded_table(n).error_status = 'F') THEN
1843: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1844: rcv_error_pkg.set_error_message(x_cascaded_table(n).error_message);
1845: END IF;
1846:
1847: END IF;
1848: END derive_transit_org_info;
1995: x_cascaded_table(n).error_message := employee_id_record.error_record.error_message;
1996:
1997: /* po_orgs_sv does not follow error handling paradigm */
1998: IF (x_cascaded_table(n).error_status = 'F') THEN
1999: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2000: rcv_error_pkg.set_error_message(x_cascaded_table(n).error_message);
2001: END IF;
2002:
2003: END IF;
1996:
1997: /* po_orgs_sv does not follow error handling paradigm */
1998: IF (x_cascaded_table(n).error_status = 'F') THEN
1999: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2000: rcv_error_pkg.set_error_message(x_cascaded_table(n).error_message);
2001: END IF;
2002:
2003: END IF;
2004: END derive_deliver_to_person_info;
2052: AND NVL(ml.subinventory_code, 'z') = NVL(x_cascaded_table(n).from_subinventory, 'z')
2053: AND x_cascaded_table(n).to_organization_id = ml.organization_id;
2054:
2055: IF (x_cascaded_table(n).from_locator_id IS NULL) THEN
2056: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2057: rcv_error_pkg.set_error_message('RCV_ALL_INVALID_LOCATOR', x_cascaded_table(n).error_message);
2058: END IF;
2059: END IF;
2060: EXCEPTION
2053: AND x_cascaded_table(n).to_organization_id = ml.organization_id;
2054:
2055: IF (x_cascaded_table(n).from_locator_id IS NULL) THEN
2056: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2057: rcv_error_pkg.set_error_message('RCV_ALL_INVALID_LOCATOR', x_cascaded_table(n).error_message);
2058: END IF;
2059: END IF;
2060: EXCEPTION
2061: WHEN OTHERS THEN
2058: END IF;
2059: END IF;
2060: EXCEPTION
2061: WHEN OTHERS THEN
2062: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
2063: rcv_error_pkg.set_sql_error_message('derive_from_locator_id', '000');
2064: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
2065: END derive_from_locator_id;
2066:
2059: END IF;
2060: EXCEPTION
2061: WHEN OTHERS THEN
2062: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
2063: rcv_error_pkg.set_sql_error_message('derive_from_locator_id', '000');
2064: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
2065: END derive_from_locator_id;
2066:
2067: PROCEDURE derive_to_locator_id(
2060: EXCEPTION
2061: WHEN OTHERS THEN
2062: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
2063: rcv_error_pkg.set_sql_error_message('derive_from_locator_id', '000');
2064: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
2065: END derive_from_locator_id;
2066:
2067: PROCEDURE derive_to_locator_id(
2068: x_cascaded_table IN OUT NOCOPY rcv_roi_preprocessor.cascaded_trans_tab_type,
2086: AND NVL(ml.subinventory_code, 'z') = NVL(x_cascaded_table(n).subinventory, 'z')
2087: AND x_cascaded_table(n).to_organization_id = ml.organization_id;
2088:
2089: IF (x_cascaded_table(n).locator_id IS NULL) THEN
2090: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2091: rcv_error_pkg.set_error_message('RCV_ALL_INVALID_LOCATOR', x_cascaded_table(n).error_message); /* Bug 3591830 - Changed message name from RCV_ASN_FROM_LOCATOR_ID to RCV_ALL_INVALID_LOCATOR */
2092: END IF;
2093: END IF;
2094: EXCEPTION
2087: AND x_cascaded_table(n).to_organization_id = ml.organization_id;
2088:
2089: IF (x_cascaded_table(n).locator_id IS NULL) THEN
2090: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2091: rcv_error_pkg.set_error_message('RCV_ALL_INVALID_LOCATOR', x_cascaded_table(n).error_message); /* Bug 3591830 - Changed message name from RCV_ASN_FROM_LOCATOR_ID to RCV_ALL_INVALID_LOCATOR */
2092: END IF;
2093: END IF;
2094: EXCEPTION
2095: WHEN OTHERS THEN
2092: END IF;
2093: END IF;
2094: EXCEPTION
2095: WHEN OTHERS THEN
2096: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
2097: rcv_error_pkg.set_sql_error_message('derive_to_locator_id', '000');
2098: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
2099: END derive_to_locator_id;
2100:
2093: END IF;
2094: EXCEPTION
2095: WHEN OTHERS THEN
2096: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
2097: rcv_error_pkg.set_sql_error_message('derive_to_locator_id', '000');
2098: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
2099: END derive_to_locator_id;
2100:
2101: PROCEDURE validate_non_services_fields(
2094: EXCEPTION
2095: WHEN OTHERS THEN
2096: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
2097: rcv_error_pkg.set_sql_error_message('derive_to_locator_id', '000');
2098: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
2099: END derive_to_locator_id;
2100:
2101: PROCEDURE validate_non_services_fields(
2102: x_cascaded_table IN OUT NOCOPY rcv_roi_preprocessor.cascaded_trans_tab_type,
2131: OR x_cascaded_table(n).secondary_quantity IS NOT NULL
2132: OR ( x_cascaded_table(n).job_id IS NOT NULL
2133: AND ( x_cascaded_table(n).value_basis = 'FIXED PRICE'
2134: AND x_cascaded_table(n).purchase_basis = 'SERVICES')) THEN --{
2135: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2136: rcv_error_pkg.set_error_message('RCV_IRRELEVANT_VALUES', x_cascaded_table(n).error_message);
2137: rcv_error_pkg.log_interface_error('MATCHING_BASIS', FALSE);
2138: END IF; --}
2139:
2132: OR ( x_cascaded_table(n).job_id IS NOT NULL
2133: AND ( x_cascaded_table(n).value_basis = 'FIXED PRICE'
2134: AND x_cascaded_table(n).purchase_basis = 'SERVICES')) THEN --{
2135: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2136: rcv_error_pkg.set_error_message('RCV_IRRELEVANT_VALUES', x_cascaded_table(n).error_message);
2137: rcv_error_pkg.log_interface_error('MATCHING_BASIS', FALSE);
2138: END IF; --}
2139:
2140: IF x_cascaded_table(n).error_status IN('S', 'W') THEN --{
2133: AND ( x_cascaded_table(n).value_basis = 'FIXED PRICE'
2134: AND x_cascaded_table(n).purchase_basis = 'SERVICES')) THEN --{
2135: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2136: rcv_error_pkg.set_error_message('RCV_IRRELEVANT_VALUES', x_cascaded_table(n).error_message);
2137: rcv_error_pkg.log_interface_error('MATCHING_BASIS', FALSE);
2138: END IF; --}
2139:
2140: IF x_cascaded_table(n).error_status IN('S', 'W') THEN --{
2141: IF ( x_cascaded_table(n).value_basis = 'RATE'
2160: IF (g_asn_debug = 'Y') THEN
2161: asn_debug.put_line('Not RATE/TEMP LABOR');
2162: END IF;
2163:
2164: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2165: rcv_error_pkg.set_error_message('RCV_IRRELEVANT_VALUES', x_cascaded_table(n).error_message);
2166: rcv_error_pkg.log_interface_error('MATCHING_BASIS', FALSE);
2167: END IF; --}
2168: END IF; --}
2161: asn_debug.put_line('Not RATE/TEMP LABOR');
2162: END IF;
2163:
2164: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2165: rcv_error_pkg.set_error_message('RCV_IRRELEVANT_VALUES', x_cascaded_table(n).error_message);
2166: rcv_error_pkg.log_interface_error('MATCHING_BASIS', FALSE);
2167: END IF; --}
2168: END IF; --}
2169: END IF; --}
2162: END IF;
2163:
2164: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2165: rcv_error_pkg.set_error_message('RCV_IRRELEVANT_VALUES', x_cascaded_table(n).error_message);
2166: rcv_error_pkg.log_interface_error('MATCHING_BASIS', FALSE);
2167: END IF; --}
2168: END IF; --}
2169: END IF; --}
2170:
2172: asn_debug.put_line('Leave validate_non_services_fields');
2173: END IF;
2174: EXCEPTION
2175: WHEN OTHERS THEN
2176: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
2177: rcv_error_pkg.set_sql_error_message('derive_to_locator_id', '000');
2178: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
2179: rcv_error_pkg.log_interface_error('MATCHING_BASIS', FALSE);
2180: END validate_non_services_fields;
2173: END IF;
2174: EXCEPTION
2175: WHEN OTHERS THEN
2176: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
2177: rcv_error_pkg.set_sql_error_message('derive_to_locator_id', '000');
2178: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
2179: rcv_error_pkg.log_interface_error('MATCHING_BASIS', FALSE);
2180: END validate_non_services_fields;
2181:
2174: EXCEPTION
2175: WHEN OTHERS THEN
2176: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
2177: rcv_error_pkg.set_sql_error_message('derive_to_locator_id', '000');
2178: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
2179: rcv_error_pkg.log_interface_error('MATCHING_BASIS', FALSE);
2180: END validate_non_services_fields;
2181:
2182: /* We cannot default_from_subloc and default_to_subloc since
2175: WHEN OTHERS THEN
2176: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
2177: rcv_error_pkg.set_sql_error_message('derive_to_locator_id', '000');
2178: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
2179: rcv_error_pkg.log_interface_error('MATCHING_BASIS', FALSE);
2180: END validate_non_services_fields;
2181:
2182: /* We cannot default_from_subloc and default_to_subloc since
2183: * for deliver txn, we need from values but not to values.
2257: asn_debug.put_line('x_cascaded_table(n).from_locator_id ' || x_cascaded_table(n).from_locator_id);
2258: END IF;
2259: EXCEPTION
2260: WHEN OTHERS THEN
2261: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
2262: rcv_error_pkg.set_sql_error_message('default_from_subloc_info', '000');
2263: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
2264: END default_from_subloc_info;
2265:
2258: END IF;
2259: EXCEPTION
2260: WHEN OTHERS THEN
2261: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
2262: rcv_error_pkg.set_sql_error_message('default_from_subloc_info', '000');
2263: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
2264: END default_from_subloc_info;
2265:
2266: PROCEDURE default_to_subloc_info(
2259: EXCEPTION
2260: WHEN OTHERS THEN
2261: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
2262: rcv_error_pkg.set_sql_error_message('default_from_subloc_info', '000');
2263: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
2264: END default_from_subloc_info;
2265:
2266: PROCEDURE default_to_subloc_info(
2267: x_cascaded_table IN OUT NOCOPY rcv_roi_preprocessor.cascaded_trans_tab_type,
2393: x_cascaded_table(n).transaction_type := 'SHIP';
2394: x_cascaded_table(n).auto_transact_code := 'SHIP';
2395: -- Reset the flag so that it won't affect the next transaction.
2396: x_auto_deliver := 'N';
2397: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
2398:
2399: -- Log po_interface_errors
2400: rcv_error_pkg.set_error_message('RCV_ASN_AUTO_DEL_NO_SUBINV');
2401: rcv_error_pkg.log_interface_warning('SUBINVENTORY');
2396: x_auto_deliver := 'N';
2397: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
2398:
2399: -- Log po_interface_errors
2400: rcv_error_pkg.set_error_message('RCV_ASN_AUTO_DEL_NO_SUBINV');
2401: rcv_error_pkg.log_interface_warning('SUBINVENTORY');
2402: END IF; --}
2403:
2404: RETURN;
2397: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
2398:
2399: -- Log po_interface_errors
2400: rcv_error_pkg.set_error_message('RCV_ASN_AUTO_DEL_NO_SUBINV');
2401: rcv_error_pkg.log_interface_warning('SUBINVENTORY');
2402: END IF; --}
2403:
2404: RETURN;
2405: END IF; --}
2515: END IF;
2516:
2517: EXCEPTION
2518: WHEN OTHERS THEN
2519: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
2520: rcv_error_pkg.set_sql_error_message('default_to_subloc_info', '000');
2521: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
2522: END default_to_subloc_info;
2523:
2516:
2517: EXCEPTION
2518: WHEN OTHERS THEN
2519: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
2520: rcv_error_pkg.set_sql_error_message('default_to_subloc_info', '000');
2521: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
2522: END default_to_subloc_info;
2523:
2524: /* WMS Change End */
2517: EXCEPTION
2518: WHEN OTHERS THEN
2519: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
2520: rcv_error_pkg.set_sql_error_message('default_to_subloc_info', '000');
2521: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
2522: END default_to_subloc_info;
2523:
2524: /* WMS Change End */
2525: PROCEDURE derive_reason_info(
2581: /* If auto_transact_code is not deliver, then give a warning
2582: * and default it to deliver.
2583: */
2584: IF (x_cascaded_table(n).auto_transact_code <> 'DELIVER') THEN --{
2585: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
2586: rcv_error_pkg.set_error_message('RCV_DIRECT_DEL_REQ', x_cascaded_table(n).error_message);
2587: rcv_error_pkg.log_interface_warning('DOCUMENT_NUM');
2588:
2589: IF (g_asn_debug = 'Y') THEN
2582: * and default it to deliver.
2583: */
2584: IF (x_cascaded_table(n).auto_transact_code <> 'DELIVER') THEN --{
2585: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
2586: rcv_error_pkg.set_error_message('RCV_DIRECT_DEL_REQ', x_cascaded_table(n).error_message);
2587: rcv_error_pkg.log_interface_warning('DOCUMENT_NUM');
2588:
2589: IF (g_asn_debug = 'Y') THEN
2590: asn_debug.put_line('AFter Warning insert into po_interface_errors ' || x_cascaded_table(n).error_message);
2583: */
2584: IF (x_cascaded_table(n).auto_transact_code <> 'DELIVER') THEN --{
2585: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
2586: rcv_error_pkg.set_error_message('RCV_DIRECT_DEL_REQ', x_cascaded_table(n).error_message);
2587: rcv_error_pkg.log_interface_warning('DOCUMENT_NUM');
2588:
2589: IF (g_asn_debug = 'Y') THEN
2590: asn_debug.put_line('AFter Warning insert into po_interface_errors ' || x_cascaded_table(n).error_message);
2591: END IF;
2998: IF (g_asn_debug = 'Y') THEN
2999: asn_debug.put_line('Quantity is <= zero. Cascade will fail');
3000: END IF;
3001:
3002: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3003: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
3004: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
3005: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
3006: END IF; --} end qty > 0 check
2999: asn_debug.put_line('Quantity is <= zero. Cascade will fail');
3000: END IF;
3001:
3002: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3003: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
3004: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
3005: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
3006: END IF; --} end qty > 0 check
3007:
3000: END IF;
3001:
3002: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3003: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
3004: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
3005: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
3006: END IF; --} end qty > 0 check
3007:
3008: -- the following steps will create a set of rows linking the line_record with
3001:
3002: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3003: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
3004: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
3005: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
3006: END IF; --} end qty > 0 check
3007:
3008: -- the following steps will create a set of rows linking the line_record with
3009: -- its corresponding po_line_location rows until the quantity value from
3631: asn_debug.put_line('Header Interface Id ' || TO_CHAR(temp_cascaded_table(current_n).header_interface_id));
3632: asn_debug.put_line('IN Trans Id ' || TO_CHAR(temp_cascaded_table(current_n).interface_transaction_id));
3633: END IF;
3634:
3635: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3636: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
3637: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
3638: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_quantity);
3639: rcv_error_pkg.log_interface_warning('QUANTITY');
3632: asn_debug.put_line('IN Trans Id ' || TO_CHAR(temp_cascaded_table(current_n).interface_transaction_id));
3633: END IF;
3634:
3635: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3636: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
3637: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
3638: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_quantity);
3639: rcv_error_pkg.log_interface_warning('QUANTITY');
3640:
3633: END IF;
3634:
3635: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3636: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
3637: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
3638: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_quantity);
3639: rcv_error_pkg.log_interface_warning('QUANTITY');
3640:
3641: IF (g_asn_debug = 'Y') THEN
3634:
3635: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3636: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
3637: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
3638: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_quantity);
3639: rcv_error_pkg.log_interface_warning('QUANTITY');
3640:
3641: IF (g_asn_debug = 'Y') THEN
3642: asn_debug.put_line('Error Status ' || temp_cascaded_table(current_n).error_status);
3635: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3636: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
3637: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
3638: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_quantity);
3639: rcv_error_pkg.log_interface_warning('QUANTITY');
3640:
3641: IF (g_asn_debug = 'Y') THEN
3642: asn_debug.put_line('Error Status ' || temp_cascaded_table(current_n).error_status);
3643: asn_debug.put_line('Error message ' || temp_cascaded_table(current_n).error_message);
3665: IF (g_asn_debug = 'Y') THEN
3666: asn_debug.put_line('delete the temp table ');
3667: END IF;
3668:
3669: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3670: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
3671: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
3672: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
3673: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
3666: asn_debug.put_line('delete the temp table ');
3667: END IF;
3668:
3669: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3670: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
3671: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
3672: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
3673: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
3674:
3667: END IF;
3668:
3669: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3670: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
3671: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
3672: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
3673: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
3674:
3675: IF temp_cascaded_table.COUNT > 0 THEN
3668:
3669: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3670: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
3671: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
3672: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
3673: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
3674:
3675: IF temp_cascaded_table.COUNT > 0 THEN
3676: FOR i IN 1 .. temp_cascaded_table.COUNT LOOP
3669: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3670: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
3671: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
3672: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
3673: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
3674:
3675: IF temp_cascaded_table.COUNT > 0 THEN
3676: FOR i IN 1 .. temp_cascaded_table.COUNT LOOP
3677: temp_cascaded_table.DELETE(i);
3731: asn_debug.put_line('x_temp_count ' || x_temp_count);
3732: END IF;
3733:
3734: IF x_temp_count = 0 THEN --{
3735: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3736: rcv_error_pkg.set_error_message('RCV_ASN_NO_OPEN_SHIPMENTS', x_cascaded_table(n).error_message);
3737: rcv_error_pkg.set_token('PONUM', temp_cascaded_table(current_n).document_num);
3738: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
3739: ELSE -- x_item_count != 0 --}{
3732: END IF;
3733:
3734: IF x_temp_count = 0 THEN --{
3735: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3736: rcv_error_pkg.set_error_message('RCV_ASN_NO_OPEN_SHIPMENTS', x_cascaded_table(n).error_message);
3737: rcv_error_pkg.set_token('PONUM', temp_cascaded_table(current_n).document_num);
3738: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
3739: ELSE -- x_item_count != 0 --}{
3740: IF (x_is_asn = FALSE) THEN --{
3733:
3734: IF x_temp_count = 0 THEN --{
3735: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3736: rcv_error_pkg.set_error_message('RCV_ASN_NO_OPEN_SHIPMENTS', x_cascaded_table(n).error_message);
3737: rcv_error_pkg.set_token('PONUM', temp_cascaded_table(current_n).document_num);
3738: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
3739: ELSE -- x_item_count != 0 --}{
3740: IF (x_is_asn = FALSE) THEN --{
3741: IF (g_asn_debug = 'Y') THEN
3734: IF x_temp_count = 0 THEN --{
3735: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3736: rcv_error_pkg.set_error_message('RCV_ASN_NO_OPEN_SHIPMENTS', x_cascaded_table(n).error_message);
3737: rcv_error_pkg.set_token('PONUM', temp_cascaded_table(current_n).document_num);
3738: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
3739: ELSE -- x_item_count != 0 --}{
3740: IF (x_is_asn = FALSE) THEN --{
3741: IF (g_asn_debug = 'Y') THEN
3742: asn_debug.put_line('Get the flag values');
3808: asn_debug.put_line('x_temp_count ' || x_temp_count);
3809: END IF;
3810:
3811: IF x_temp_count = 0 THEN --{
3812: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3813: rcv_error_pkg.set_error_message('RCV_ASN_INVALID_DIST_NUM', x_cascaded_table(n).error_message);
3814: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_distribution_num);
3815: rcv_error_pkg.log_interface_error('DOCUMENT_DISTRIBUTION_NUM', FALSE);
3816: ELSE -- x_temp_count != 0 --}{
3809: END IF;
3810:
3811: IF x_temp_count = 0 THEN --{
3812: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3813: rcv_error_pkg.set_error_message('RCV_ASN_INVALID_DIST_NUM', x_cascaded_table(n).error_message);
3814: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_distribution_num);
3815: rcv_error_pkg.log_interface_error('DOCUMENT_DISTRIBUTION_NUM', FALSE);
3816: ELSE -- x_temp_count != 0 --}{
3817: IF (x_is_asn = FALSE) THEN --{
3810:
3811: IF x_temp_count = 0 THEN --{
3812: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3813: rcv_error_pkg.set_error_message('RCV_ASN_INVALID_DIST_NUM', x_cascaded_table(n).error_message);
3814: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_distribution_num);
3815: rcv_error_pkg.log_interface_error('DOCUMENT_DISTRIBUTION_NUM', FALSE);
3816: ELSE -- x_temp_count != 0 --}{
3817: IF (x_is_asn = FALSE) THEN --{
3818: IF (g_asn_debug = 'Y') THEN
3811: IF x_temp_count = 0 THEN --{
3812: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3813: rcv_error_pkg.set_error_message('RCV_ASN_INVALID_DIST_NUM', x_cascaded_table(n).error_message);
3814: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_distribution_num);
3815: rcv_error_pkg.log_interface_error('DOCUMENT_DISTRIBUTION_NUM', FALSE);
3816: ELSE -- x_temp_count != 0 --}{
3817: IF (x_is_asn = FALSE) THEN --{
3818: IF (g_asn_debug = 'Y') THEN
3819: asn_debug.put_line('Get flag values ');
3926: END IF;
3927: END IF; --}
3928:
3929: IF (x_temp_count <> 0) THEN --{
3930: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3931:
3932: IF (g_asn_debug = 'Y') THEN
3933: asn_debug.put_line('Should give us the exact error ');
3934: END IF;
3937: IF (g_asn_debug = 'Y') THEN
3938: asn_debug.put_line('This item is not allowed ');
3939: END IF;
3940:
3941: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3942: rcv_error_pkg.set_error_message('RCV_ASN_ITEM_NOT_ALLOWED', x_cascaded_table(n).error_message);
3943: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).item_num);
3944: rcv_error_pkg.log_interface_error('ITEM_NUM', FALSE);
3945: END IF;
3938: asn_debug.put_line('This item is not allowed ');
3939: END IF;
3940:
3941: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3942: rcv_error_pkg.set_error_message('RCV_ASN_ITEM_NOT_ALLOWED', x_cascaded_table(n).error_message);
3943: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).item_num);
3944: rcv_error_pkg.log_interface_error('ITEM_NUM', FALSE);
3945: END IF;
3946:
3939: END IF;
3940:
3941: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3942: rcv_error_pkg.set_error_message('RCV_ASN_ITEM_NOT_ALLOWED', x_cascaded_table(n).error_message);
3943: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).item_num);
3944: rcv_error_pkg.log_interface_error('ITEM_NUM', FALSE);
3945: END IF;
3946:
3947: IF x_approved_flag <> 'Y' THEN
3940:
3941: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3942: rcv_error_pkg.set_error_message('RCV_ASN_ITEM_NOT_ALLOWED', x_cascaded_table(n).error_message);
3943: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).item_num);
3944: rcv_error_pkg.log_interface_error('ITEM_NUM', FALSE);
3945: END IF;
3946:
3947: IF x_approved_flag <> 'Y' THEN
3948: IF (g_asn_debug = 'Y') THEN
3948: IF (g_asn_debug = 'Y') THEN
3949: asn_debug.put_line('This PO is not approved');
3950: END IF;
3951:
3952: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3953: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_NOT_APPROVED', x_cascaded_table(n).error_message);
3954: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
3955: rcv_error_pkg.set_token('PO_NUM', temp_cascaded_table(current_n).document_num);
3956: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
3949: asn_debug.put_line('This PO is not approved');
3950: END IF;
3951:
3952: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3953: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_NOT_APPROVED', x_cascaded_table(n).error_message);
3954: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
3955: rcv_error_pkg.set_token('PO_NUM', temp_cascaded_table(current_n).document_num);
3956: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
3957: END IF;
3950: END IF;
3951:
3952: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3953: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_NOT_APPROVED', x_cascaded_table(n).error_message);
3954: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
3955: rcv_error_pkg.set_token('PO_NUM', temp_cascaded_table(current_n).document_num);
3956: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
3957: END IF;
3958:
3951:
3952: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3953: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_NOT_APPROVED', x_cascaded_table(n).error_message);
3954: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
3955: rcv_error_pkg.set_token('PO_NUM', temp_cascaded_table(current_n).document_num);
3956: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
3957: END IF;
3958:
3959: IF x_cancel_flag <> 'N' THEN
3952: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3953: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_NOT_APPROVED', x_cascaded_table(n).error_message);
3954: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
3955: rcv_error_pkg.set_token('PO_NUM', temp_cascaded_table(current_n).document_num);
3956: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
3957: END IF;
3958:
3959: IF x_cancel_flag <> 'N' THEN
3960: IF (g_asn_debug = 'Y') THEN
3960: IF (g_asn_debug = 'Y') THEN
3961: asn_debug.put_line('This PO is cancelled');
3962: END IF;
3963:
3964: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3965: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_CANCELLED', x_cascaded_table(n).error_message);
3966: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
3967: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
3968: END IF;
3961: asn_debug.put_line('This PO is cancelled');
3962: END IF;
3963:
3964: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3965: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_CANCELLED', x_cascaded_table(n).error_message);
3966: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
3967: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
3968: END IF;
3969:
3962: END IF;
3963:
3964: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3965: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_CANCELLED', x_cascaded_table(n).error_message);
3966: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
3967: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
3968: END IF;
3969:
3970: /* Bug 3548556.
3963:
3964: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3965: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_CANCELLED', x_cascaded_table(n).error_message);
3966: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
3967: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
3968: END IF;
3969:
3970: /* Bug 3548556.
3971: * We used to record the error only when it
3984: IF (g_asn_debug = 'Y') THEN
3985: asn_debug.put_line('This PO is finally closed and the profile option to include closed POs is Y');
3986: END IF;
3987:
3988: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3989: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_CANCELLED', x_cascaded_table(n).error_message);
3990: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
3991: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
3992: END IF;
3985: asn_debug.put_line('This PO is finally closed and the profile option to include closed POs is Y');
3986: END IF;
3987:
3988: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3989: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_CANCELLED', x_cascaded_table(n).error_message);
3990: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
3991: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
3992: END IF;
3993:
3986: END IF;
3987:
3988: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3989: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_CANCELLED', x_cascaded_table(n).error_message);
3990: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
3991: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
3992: END IF;
3993:
3994: IF ( NVL(x_include_closed_po, 'N') = 'N'
3987:
3988: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3989: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_CANCELLED', x_cascaded_table(n).error_message);
3990: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
3991: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
3992: END IF;
3993:
3994: IF ( NVL(x_include_closed_po, 'N') = 'N'
3995: AND x_closed_code IN('FINALLY CLOSED', 'CLOSED', 'CLOSED FOR RECEIVING')) THEN
3996: IF (g_asn_debug = 'Y') THEN
3997: asn_debug.put_line('This PO is not open and the profile option to include closed POs is N');
3998: END IF;
3999:
4000: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4001: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_NOT_OPEN', x_cascaded_table(n).error_message);
4002: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
4003: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
4004: END IF;
3997: asn_debug.put_line('This PO is not open and the profile option to include closed POs is N');
3998: END IF;
3999:
4000: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4001: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_NOT_OPEN', x_cascaded_table(n).error_message);
4002: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
4003: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
4004: END IF;
4005:
3998: END IF;
3999:
4000: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4001: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_NOT_OPEN', x_cascaded_table(n).error_message);
4002: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
4003: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
4004: END IF;
4005:
4006: IF x_shipment_type NOT IN('STANDARD', 'BLANKET', 'SCHEDULED','PREPAYMENT') THEN
3999:
4000: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4001: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_NOT_OPEN', x_cascaded_table(n).error_message);
4002: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
4003: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
4004: END IF;
4005:
4006: IF x_shipment_type NOT IN('STANDARD', 'BLANKET', 'SCHEDULED','PREPAYMENT') THEN
4007: IF (g_asn_debug = 'Y') THEN
4007: IF (g_asn_debug = 'Y') THEN
4008: asn_debug.put_line('This PO shipment type cannot be received');
4009: END IF;
4010:
4011: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4012: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIPMT_TYPE', x_cascaded_table(n).error_message);
4013: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
4014: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
4015: END IF;
4008: asn_debug.put_line('This PO shipment type cannot be received');
4009: END IF;
4010:
4011: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4012: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIPMT_TYPE', x_cascaded_table(n).error_message);
4013: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
4014: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
4015: END IF;
4016:
4009: END IF;
4010:
4011: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4012: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIPMT_TYPE', x_cascaded_table(n).error_message);
4013: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
4014: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
4015: END IF;
4016:
4017: IF x_ship_to_organization_id <> NVL(temp_cascaded_table(current_n).to_organization_id, x_ship_to_organization_id) THEN
4010:
4011: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4012: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIPMT_TYPE', x_cascaded_table(n).error_message);
4013: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
4014: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
4015: END IF;
4016:
4017: IF x_ship_to_organization_id <> NVL(temp_cascaded_table(current_n).to_organization_id, x_ship_to_organization_id) THEN
4018: IF (g_asn_debug = 'Y') THEN
4018: IF (g_asn_debug = 'Y') THEN
4019: asn_debug.put_line('Ship_to_org in PO does not match the user entered value');
4020: END IF;
4021:
4022: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4023: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_ORG', x_cascaded_table(n).error_message);
4024: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).to_organization_code);
4025: rcv_error_pkg.log_interface_error('TO_ORGANIZATION_CODE', FALSE);
4026: END IF;
4019: asn_debug.put_line('Ship_to_org in PO does not match the user entered value');
4020: END IF;
4021:
4022: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4023: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_ORG', x_cascaded_table(n).error_message);
4024: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).to_organization_code);
4025: rcv_error_pkg.log_interface_error('TO_ORGANIZATION_CODE', FALSE);
4026: END IF;
4027:
4020: END IF;
4021:
4022: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4023: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_ORG', x_cascaded_table(n).error_message);
4024: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).to_organization_code);
4025: rcv_error_pkg.log_interface_error('TO_ORGANIZATION_CODE', FALSE);
4026: END IF;
4027:
4028: 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
4021:
4022: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4023: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_ORG', x_cascaded_table(n).error_message);
4024: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).to_organization_code);
4025: rcv_error_pkg.log_interface_error('TO_ORGANIZATION_CODE', FALSE);
4026: END IF;
4027:
4028: 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
4029: IF (g_asn_debug = 'Y') THEN
4029: IF (g_asn_debug = 'Y') THEN
4030: asn_debug.put_line('Ship_to_loc in PO does not match the user entered value');
4031: END IF;
4032:
4033: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4034: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
4035: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_code);
4036: rcv_error_pkg.log_interface_error('SHIP_TO_LOCATION_CODE', FALSE);
4037: END IF;
4030: asn_debug.put_line('Ship_to_loc in PO does not match the user entered value');
4031: END IF;
4032:
4033: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4034: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
4035: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_code);
4036: rcv_error_pkg.log_interface_error('SHIP_TO_LOCATION_CODE', FALSE);
4037: END IF;
4038:
4031: END IF;
4032:
4033: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4034: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
4035: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_code);
4036: rcv_error_pkg.log_interface_error('SHIP_TO_LOCATION_CODE', FALSE);
4037: END IF;
4038:
4039: IF x_vendor_product_num <> NVL(temp_cascaded_table(current_n).vendor_item_num, x_vendor_product_num) THEN
4032:
4033: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4034: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
4035: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_code);
4036: rcv_error_pkg.log_interface_error('SHIP_TO_LOCATION_CODE', FALSE);
4037: END IF;
4038:
4039: IF x_vendor_product_num <> NVL(temp_cascaded_table(current_n).vendor_item_num, x_vendor_product_num) THEN
4040: IF (g_asn_debug = 'Y') THEN
4040: IF (g_asn_debug = 'Y') THEN
4041: asn_debug.put_line('Vendor_prod_num in PO does not match the user entered value');
4042: END IF;
4043:
4044: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4045: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_VENDOR_PROD_NUM', x_cascaded_table(n).error_message);
4046: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).vendor_item_num);
4047: rcv_error_pkg.log_interface_error('VENDOR_ITEM_NUM', FALSE);
4048: END IF;
4041: asn_debug.put_line('Vendor_prod_num in PO does not match the user entered value');
4042: END IF;
4043:
4044: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4045: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_VENDOR_PROD_NUM', x_cascaded_table(n).error_message);
4046: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).vendor_item_num);
4047: rcv_error_pkg.log_interface_error('VENDOR_ITEM_NUM', FALSE);
4048: END IF;
4049:
4042: END IF;
4043:
4044: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4045: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_VENDOR_PROD_NUM', x_cascaded_table(n).error_message);
4046: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).vendor_item_num);
4047: rcv_error_pkg.log_interface_error('VENDOR_ITEM_NUM', FALSE);
4048: END IF;
4049:
4050: IF (g_asn_debug = 'Y') THEN
4043:
4044: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4045: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_VENDOR_PROD_NUM', x_cascaded_table(n).error_message);
4046: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).vendor_item_num);
4047: rcv_error_pkg.log_interface_error('VENDOR_ITEM_NUM', FALSE);
4048: END IF;
4049:
4050: IF (g_asn_debug = 'Y') THEN
4051: asn_debug.put_line('Should have give us the exact error ');
4062: IF (g_asn_debug = 'Y') THEN
4063: asn_debug.put_line('Receipt source code not VENDOR');
4064: END IF;
4065:
4066: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4067: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_RECEIPT_SOURCE_CODE', x_cascaded_table(n).error_message);
4068: rcv_error_pkg.log_interface_error('SHIPMENT_NUMBER', FALSE);
4069: END IF;
4070:
4063: asn_debug.put_line('Receipt source code not VENDOR');
4064: END IF;
4065:
4066: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4067: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_RECEIPT_SOURCE_CODE', x_cascaded_table(n).error_message);
4068: rcv_error_pkg.log_interface_error('SHIPMENT_NUMBER', FALSE);
4069: END IF;
4070:
4071: IF ( l_shipment_line_status_code = 'FULLY RECEIVED'
4064: END IF;
4065:
4066: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4067: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_RECEIPT_SOURCE_CODE', x_cascaded_table(n).error_message);
4068: rcv_error_pkg.log_interface_error('SHIPMENT_NUMBER', FALSE);
4069: END IF;
4070:
4071: IF ( l_shipment_line_status_code = 'FULLY RECEIVED'
4072: OR l_asn_line_flag <> 'Y') THEN
4073: IF (g_asn_debug = 'Y') THEN
4074: asn_debug.put_line('ASN line flag is not Y and status code is Fully closed');
4075: END IF;
4076:
4077: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4078: rcv_error_pkg.set_error_message('RCV_ASN_NO_EXPECTED_RECEIPTS', x_cascaded_table(n).error_message);
4079: rcv_error_pkg.log_interface_error('SHIPMENT_NUMBER', FALSE);
4080: END IF;
4081:
4074: asn_debug.put_line('ASN line flag is not Y and status code is Fully closed');
4075: END IF;
4076:
4077: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4078: rcv_error_pkg.set_error_message('RCV_ASN_NO_EXPECTED_RECEIPTS', x_cascaded_table(n).error_message);
4079: rcv_error_pkg.log_interface_error('SHIPMENT_NUMBER', FALSE);
4080: END IF;
4081:
4082: IF (g_asn_debug = 'Y') THEN
4075: END IF;
4076:
4077: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4078: rcv_error_pkg.set_error_message('RCV_ASN_NO_EXPECTED_RECEIPTS', x_cascaded_table(n).error_message);
4079: rcv_error_pkg.log_interface_error('SHIPMENT_NUMBER', FALSE);
4080: END IF;
4081:
4082: IF (g_asn_debug = 'Y') THEN
4083: asn_debug.put_line('Should have give us the exact error for ASN ');
4210: END IF;
4211:
4212: IF (l_asn_count <> 0) THEN --{
4213: IF (l_asn_exists_code = 'WARNING') THEN --{
4214: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
4215: rcv_error_pkg.set_error_message('RCV_ASN_EXISTS_FOR_POLINE', x_cascaded_table(n).error_message);
4216: rcv_error_pkg.log_interface_warning('DOCUMENT_NUM');
4217:
4218: IF (g_asn_debug = 'Y') THEN
4211:
4212: IF (l_asn_count <> 0) THEN --{
4213: IF (l_asn_exists_code = 'WARNING') THEN --{
4214: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
4215: rcv_error_pkg.set_error_message('RCV_ASN_EXISTS_FOR_POLINE', x_cascaded_table(n).error_message);
4216: rcv_error_pkg.log_interface_warning('DOCUMENT_NUM');
4217:
4218: IF (g_asn_debug = 'Y') THEN
4219: asn_debug.put_line('AFter Warning insert into po_interface_errors ' || x_cascaded_table(n).error_message);
4212: IF (l_asn_count <> 0) THEN --{
4213: IF (l_asn_exists_code = 'WARNING') THEN --{
4214: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
4215: rcv_error_pkg.set_error_message('RCV_ASN_EXISTS_FOR_POLINE', x_cascaded_table(n).error_message);
4216: rcv_error_pkg.log_interface_warning('DOCUMENT_NUM');
4217:
4218: IF (g_asn_debug = 'Y') THEN
4219: asn_debug.put_line('AFter Warning insert into po_interface_errors ' || x_cascaded_table(n).error_message);
4220: END IF;
4220: END IF;
4221: END IF; --}
4222:
4223: IF (l_asn_exists_code = 'REJECT') THEN --{
4224: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4225: rcv_error_pkg.set_error_message('RCV_ASN_EXISTS_FOR_POLINE', x_cascaded_table(n).error_message);
4226: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_num);
4227: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
4228:
4221: END IF; --}
4222:
4223: IF (l_asn_exists_code = 'REJECT') THEN --{
4224: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4225: rcv_error_pkg.set_error_message('RCV_ASN_EXISTS_FOR_POLINE', x_cascaded_table(n).error_message);
4226: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_num);
4227: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
4228:
4229: IF (g_asn_debug = 'Y') THEN
4222:
4223: IF (l_asn_exists_code = 'REJECT') THEN --{
4224: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4225: rcv_error_pkg.set_error_message('RCV_ASN_EXISTS_FOR_POLINE', x_cascaded_table(n).error_message);
4226: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_num);
4227: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
4228:
4229: IF (g_asn_debug = 'Y') THEN
4230: asn_debug.put_line('AFter Reject insert into po_interface_errors ' || x_cascaded_table(n).error_message);
4223: IF (l_asn_exists_code = 'REJECT') THEN --{
4224: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4225: rcv_error_pkg.set_error_message('RCV_ASN_EXISTS_FOR_POLINE', x_cascaded_table(n).error_message);
4226: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_num);
4227: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
4228:
4229: IF (g_asn_debug = 'Y') THEN
4230: asn_debug.put_line('AFter Reject insert into po_interface_errors ' || x_cascaded_table(n).error_message);
4231: END IF;
4243:
4244: IF (l_asn_exists_code IN('NONE', 'WARNING')) THEN --{
4245: /* bug 1060261 - added error message to be shown when the expected date is outside tolerance range */
4246: IF (x_shipmentdistributionrec.receipt_days_exception_code = 'REJECT') THEN --{
4247: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4248: rcv_error_pkg.set_error_message('RCV_ASN_DATE_OUT_TOL', x_cascaded_table(n).error_message);
4249: rcv_error_pkg.set_token('DELIVERY DATE', NVL(temp_cascaded_table(1).expected_receipt_date, x_header_record.header_record.expected_receipt_date));
4250: rcv_error_pkg.log_interface_error('EXPECTED_RECEIPT_DATE', FALSE);
4251: END IF; --}
4244: IF (l_asn_exists_code IN('NONE', 'WARNING')) THEN --{
4245: /* bug 1060261 - added error message to be shown when the expected date is outside tolerance range */
4246: IF (x_shipmentdistributionrec.receipt_days_exception_code = 'REJECT') THEN --{
4247: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4248: rcv_error_pkg.set_error_message('RCV_ASN_DATE_OUT_TOL', x_cascaded_table(n).error_message);
4249: rcv_error_pkg.set_token('DELIVERY DATE', NVL(temp_cascaded_table(1).expected_receipt_date, x_header_record.header_record.expected_receipt_date));
4250: rcv_error_pkg.log_interface_error('EXPECTED_RECEIPT_DATE', FALSE);
4251: END IF; --}
4252:
4245: /* bug 1060261 - added error message to be shown when the expected date is outside tolerance range */
4246: IF (x_shipmentdistributionrec.receipt_days_exception_code = 'REJECT') THEN --{
4247: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4248: rcv_error_pkg.set_error_message('RCV_ASN_DATE_OUT_TOL', x_cascaded_table(n).error_message);
4249: rcv_error_pkg.set_token('DELIVERY DATE', NVL(temp_cascaded_table(1).expected_receipt_date, x_header_record.header_record.expected_receipt_date));
4250: rcv_error_pkg.log_interface_error('EXPECTED_RECEIPT_DATE', FALSE);
4251: END IF; --}
4252:
4253: IF (g_asn_debug = 'Y') THEN
4246: IF (x_shipmentdistributionrec.receipt_days_exception_code = 'REJECT') THEN --{
4247: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4248: rcv_error_pkg.set_error_message('RCV_ASN_DATE_OUT_TOL', x_cascaded_table(n).error_message);
4249: rcv_error_pkg.set_token('DELIVERY DATE', NVL(temp_cascaded_table(1).expected_receipt_date, x_header_record.header_record.expected_receipt_date));
4250: rcv_error_pkg.log_interface_error('EXPECTED_RECEIPT_DATE', FALSE);
4251: END IF; --}
4252:
4253: IF (g_asn_debug = 'Y') THEN
4254: asn_debug.put_line('Days exception Code ' || NVL(x_shipmentdistributionrec.receipt_days_exception_code, 'XXX'));
4269: Enter error message in po_interface_errors if enforce_ship_to_location_code is 'REJECT' and error out
4270: */
4271: IF (x_shipmentdistributionrec.enforce_ship_to_location_code = 'REJECT') THEN --{
4272: BEGIN
4273: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4274: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
4275: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_id);
4276: rcv_error_pkg.log_interface_error('SHIP_TO_LOCATION_ID', FALSE);
4277: x_shipmentdistributionrec.ship_to_location_id := NVL(temp_cascaded_table(1).ship_to_location_id, x_header_record.header_record.location_id);
4270: */
4271: IF (x_shipmentdistributionrec.enforce_ship_to_location_code = 'REJECT') THEN --{
4272: BEGIN
4273: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4274: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
4275: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_id);
4276: rcv_error_pkg.log_interface_error('SHIP_TO_LOCATION_ID', FALSE);
4277: x_shipmentdistributionrec.ship_to_location_id := NVL(temp_cascaded_table(1).ship_to_location_id, x_header_record.header_record.location_id);
4278: END;
4271: IF (x_shipmentdistributionrec.enforce_ship_to_location_code = 'REJECT') THEN --{
4272: BEGIN
4273: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4274: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
4275: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_id);
4276: rcv_error_pkg.log_interface_error('SHIP_TO_LOCATION_ID', FALSE);
4277: x_shipmentdistributionrec.ship_to_location_id := NVL(temp_cascaded_table(1).ship_to_location_id, x_header_record.header_record.location_id);
4278: END;
4279: ELSIF(x_shipmentdistributionrec.enforce_ship_to_location_code = 'WARNING') THEN --} {
4272: BEGIN
4273: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4274: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
4275: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_id);
4276: rcv_error_pkg.log_interface_error('SHIP_TO_LOCATION_ID', FALSE);
4277: x_shipmentdistributionrec.ship_to_location_id := NVL(temp_cascaded_table(1).ship_to_location_id, x_header_record.header_record.location_id);
4278: END;
4279: ELSIF(x_shipmentdistributionrec.enforce_ship_to_location_code = 'WARNING') THEN --} {
4280: BEGIN
4277: x_shipmentdistributionrec.ship_to_location_id := NVL(temp_cascaded_table(1).ship_to_location_id, x_header_record.header_record.location_id);
4278: END;
4279: ELSIF(x_shipmentdistributionrec.enforce_ship_to_location_code = 'WARNING') THEN --} {
4280: BEGIN
4281: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
4282: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
4283: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_id);
4284: rcv_error_pkg.log_interface_warning('SHIP_TO_LOCATION_ID');
4285: x_shipmentdistributionrec.ship_to_location_id := NVL(temp_cascaded_table(1).ship_to_location_id, x_header_record.header_record.location_id);
4278: END;
4279: ELSIF(x_shipmentdistributionrec.enforce_ship_to_location_code = 'WARNING') THEN --} {
4280: BEGIN
4281: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
4282: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
4283: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_id);
4284: rcv_error_pkg.log_interface_warning('SHIP_TO_LOCATION_ID');
4285: x_shipmentdistributionrec.ship_to_location_id := NVL(temp_cascaded_table(1).ship_to_location_id, x_header_record.header_record.location_id);
4286: END;
4279: ELSIF(x_shipmentdistributionrec.enforce_ship_to_location_code = 'WARNING') THEN --} {
4280: BEGIN
4281: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
4282: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
4283: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_id);
4284: rcv_error_pkg.log_interface_warning('SHIP_TO_LOCATION_ID');
4285: x_shipmentdistributionrec.ship_to_location_id := NVL(temp_cascaded_table(1).ship_to_location_id, x_header_record.header_record.location_id);
4286: END;
4287: END IF; --}matches ship_to_loc_code = warning
4280: BEGIN
4281: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
4282: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
4283: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_id);
4284: rcv_error_pkg.log_interface_warning('SHIP_TO_LOCATION_ID');
4285: x_shipmentdistributionrec.ship_to_location_id := NVL(temp_cascaded_table(1).ship_to_location_id, x_header_record.header_record.location_id);
4286: END;
4287: END IF; --}matches ship_to_loc_code = warning
4288: END IF; --} matches l_asn_exists_code = NONE
4323: asn_debug.put_line('Primary UOM: ' || temp_cascaded_table(current_n).primary_unit_of_measure);
4324: END IF;
4325: EXCEPTION
4326: WHEN NO_DATA_FOUND THEN
4327: temp_cascaded_table(current_n).error_status := rcv_error_pkg.g_ret_sts_warning;
4328: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PRIMARY', temp_cascaded_table(current_n).error_message);
4329: rcv_error_pkg.set_token('PRIMARY_UNIT', '');
4330: rcv_error_pkg.set_token('SHIPMENT_UNIT', '');
4331: rcv_error_pkg.log_interface_warning('ITEM_ID');
4324: END IF;
4325: EXCEPTION
4326: WHEN NO_DATA_FOUND THEN
4327: temp_cascaded_table(current_n).error_status := rcv_error_pkg.g_ret_sts_warning;
4328: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PRIMARY', temp_cascaded_table(current_n).error_message);
4329: rcv_error_pkg.set_token('PRIMARY_UNIT', '');
4330: rcv_error_pkg.set_token('SHIPMENT_UNIT', '');
4331: rcv_error_pkg.log_interface_warning('ITEM_ID');
4332:
4325: EXCEPTION
4326: WHEN NO_DATA_FOUND THEN
4327: temp_cascaded_table(current_n).error_status := rcv_error_pkg.g_ret_sts_warning;
4328: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PRIMARY', temp_cascaded_table(current_n).error_message);
4329: rcv_error_pkg.set_token('PRIMARY_UNIT', '');
4330: rcv_error_pkg.set_token('SHIPMENT_UNIT', '');
4331: rcv_error_pkg.log_interface_warning('ITEM_ID');
4332:
4333: IF (g_asn_debug = 'Y') THEN
4326: WHEN NO_DATA_FOUND THEN
4327: temp_cascaded_table(current_n).error_status := rcv_error_pkg.g_ret_sts_warning;
4328: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PRIMARY', temp_cascaded_table(current_n).error_message);
4329: rcv_error_pkg.set_token('PRIMARY_UNIT', '');
4330: rcv_error_pkg.set_token('SHIPMENT_UNIT', '');
4331: rcv_error_pkg.log_interface_warning('ITEM_ID');
4332:
4333: IF (g_asn_debug = 'Y') THEN
4334: asn_debug.put_line('Primary UOM error');
4327: temp_cascaded_table(current_n).error_status := rcv_error_pkg.g_ret_sts_warning;
4328: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PRIMARY', temp_cascaded_table(current_n).error_message);
4329: rcv_error_pkg.set_token('PRIMARY_UNIT', '');
4330: rcv_error_pkg.set_token('SHIPMENT_UNIT', '');
4331: rcv_error_pkg.log_interface_warning('ITEM_ID');
4332:
4333: IF (g_asn_debug = 'Y') THEN
4334: asn_debug.put_line('Primary UOM error');
4335: END IF;
4597: /* Start Bug 3654053 : Need to populate the po_interface_errors
4598: table if the UOM conversion errors out.
4599: */
4600: IF po_primary_uom_qty = 0 THEN
4601: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4602: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PRIMARY', x_cascaded_table(n).error_message);
4603: rcv_error_pkg.set_token('SHIPMENT_UNIT', x_shipmentdistributionrec.unit_meas_lookup_code);
4604: rcv_error_pkg.set_token('PRIMARY_UNIT', x_cascaded_table(n).primary_unit_of_measure);
4605: rcv_error_pkg.log_interface_error('PRIMARY_UNIT_OF_MEASURE', FALSE);
4598: table if the UOM conversion errors out.
4599: */
4600: IF po_primary_uom_qty = 0 THEN
4601: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4602: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PRIMARY', x_cascaded_table(n).error_message);
4603: rcv_error_pkg.set_token('SHIPMENT_UNIT', x_shipmentdistributionrec.unit_meas_lookup_code);
4604: rcv_error_pkg.set_token('PRIMARY_UNIT', x_cascaded_table(n).primary_unit_of_measure);
4605: rcv_error_pkg.log_interface_error('PRIMARY_UNIT_OF_MEASURE', FALSE);
4606: ELSE
4599: */
4600: IF po_primary_uom_qty = 0 THEN
4601: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4602: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PRIMARY', x_cascaded_table(n).error_message);
4603: rcv_error_pkg.set_token('SHIPMENT_UNIT', x_shipmentdistributionrec.unit_meas_lookup_code);
4604: rcv_error_pkg.set_token('PRIMARY_UNIT', x_cascaded_table(n).primary_unit_of_measure);
4605: rcv_error_pkg.log_interface_error('PRIMARY_UNIT_OF_MEASURE', FALSE);
4606: ELSE
4607: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4600: IF po_primary_uom_qty = 0 THEN
4601: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4602: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PRIMARY', x_cascaded_table(n).error_message);
4603: rcv_error_pkg.set_token('SHIPMENT_UNIT', x_shipmentdistributionrec.unit_meas_lookup_code);
4604: rcv_error_pkg.set_token('PRIMARY_UNIT', x_cascaded_table(n).primary_unit_of_measure);
4605: rcv_error_pkg.log_interface_error('PRIMARY_UNIT_OF_MEASURE', FALSE);
4606: ELSE
4607: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4608: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PO', x_cascaded_table(n).error_message);
4601: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4602: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PRIMARY', x_cascaded_table(n).error_message);
4603: rcv_error_pkg.set_token('SHIPMENT_UNIT', x_shipmentdistributionrec.unit_meas_lookup_code);
4604: rcv_error_pkg.set_token('PRIMARY_UNIT', x_cascaded_table(n).primary_unit_of_measure);
4605: rcv_error_pkg.log_interface_error('PRIMARY_UNIT_OF_MEASURE', FALSE);
4606: ELSE
4607: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4608: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PO', x_cascaded_table(n).error_message);
4609: rcv_error_pkg.set_token('SHIPMENT_UNIT', temp_cascaded_table(1).unit_of_measure);
4603: rcv_error_pkg.set_token('SHIPMENT_UNIT', x_shipmentdistributionrec.unit_meas_lookup_code);
4604: rcv_error_pkg.set_token('PRIMARY_UNIT', x_cascaded_table(n).primary_unit_of_measure);
4605: rcv_error_pkg.log_interface_error('PRIMARY_UNIT_OF_MEASURE', FALSE);
4606: ELSE
4607: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4608: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PO', x_cascaded_table(n).error_message);
4609: rcv_error_pkg.set_token('SHIPMENT_UNIT', temp_cascaded_table(1).unit_of_measure);
4610: rcv_error_pkg.set_token('PRIMARY_UNIT', x_shipmentdistributionrec.unit_meas_lookup_code);
4611: rcv_error_pkg.log_interface_error('UNIT_OF_MEASURE', FALSE);
4604: rcv_error_pkg.set_token('PRIMARY_UNIT', x_cascaded_table(n).primary_unit_of_measure);
4605: rcv_error_pkg.log_interface_error('PRIMARY_UNIT_OF_MEASURE', FALSE);
4606: ELSE
4607: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4608: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PO', x_cascaded_table(n).error_message);
4609: rcv_error_pkg.set_token('SHIPMENT_UNIT', temp_cascaded_table(1).unit_of_measure);
4610: rcv_error_pkg.set_token('PRIMARY_UNIT', x_shipmentdistributionrec.unit_meas_lookup_code);
4611: rcv_error_pkg.log_interface_error('UNIT_OF_MEASURE', FALSE);
4612: END IF;
4605: rcv_error_pkg.log_interface_error('PRIMARY_UNIT_OF_MEASURE', FALSE);
4606: ELSE
4607: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4608: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PO', x_cascaded_table(n).error_message);
4609: rcv_error_pkg.set_token('SHIPMENT_UNIT', temp_cascaded_table(1).unit_of_measure);
4610: rcv_error_pkg.set_token('PRIMARY_UNIT', x_shipmentdistributionrec.unit_meas_lookup_code);
4611: rcv_error_pkg.log_interface_error('UNIT_OF_MEASURE', FALSE);
4612: END IF;
4613: /* End Bug 3654053 */
4606: ELSE
4607: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4608: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PO', x_cascaded_table(n).error_message);
4609: rcv_error_pkg.set_token('SHIPMENT_UNIT', temp_cascaded_table(1).unit_of_measure);
4610: rcv_error_pkg.set_token('PRIMARY_UNIT', x_shipmentdistributionrec.unit_meas_lookup_code);
4611: rcv_error_pkg.log_interface_error('UNIT_OF_MEASURE', FALSE);
4612: END IF;
4613: /* End Bug 3654053 */
4614: END IF;
4607: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4608: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PO', x_cascaded_table(n).error_message);
4609: rcv_error_pkg.set_token('SHIPMENT_UNIT', temp_cascaded_table(1).unit_of_measure);
4610: rcv_error_pkg.set_token('PRIMARY_UNIT', x_shipmentdistributionrec.unit_meas_lookup_code);
4611: rcv_error_pkg.log_interface_error('UNIT_OF_MEASURE', FALSE);
4612: END IF;
4613: /* End Bug 3654053 */
4614: END IF;
4615: ELSE -- we have converted the qty between uoms succesfully } {
5118: asn_debug.put_line('Status = ' || x_cascaded_table(n).error_status);
5119: END IF;
5120:
5121: IF x_cascaded_table(n).error_status IN('S', 'W', 'F') THEN --{
5122: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5123: rcv_error_pkg.set_error_message('RCV_ASN_NO_PO_LINE_LOCATION_ID', x_cascaded_table(n).error_message);
5124: rcv_error_pkg.set_token('DOCUMENT_NUM', x_cascaded_table(n).document_num);
5125: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
5126: END IF; --}
5119: END IF;
5120:
5121: IF x_cascaded_table(n).error_status IN('S', 'W', 'F') THEN --{
5122: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5123: rcv_error_pkg.set_error_message('RCV_ASN_NO_PO_LINE_LOCATION_ID', x_cascaded_table(n).error_message);
5124: rcv_error_pkg.set_token('DOCUMENT_NUM', x_cascaded_table(n).document_num);
5125: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
5126: END IF; --}
5127:
5120:
5121: IF x_cascaded_table(n).error_status IN('S', 'W', 'F') THEN --{
5122: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5123: rcv_error_pkg.set_error_message('RCV_ASN_NO_PO_LINE_LOCATION_ID', x_cascaded_table(n).error_message);
5124: rcv_error_pkg.set_token('DOCUMENT_NUM', x_cascaded_table(n).document_num);
5125: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
5126: END IF; --}
5127:
5128: RETURN;
5121: IF x_cascaded_table(n).error_status IN('S', 'W', 'F') THEN --{
5122: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5123: rcv_error_pkg.set_error_message('RCV_ASN_NO_PO_LINE_LOCATION_ID', x_cascaded_table(n).error_message);
5124: rcv_error_pkg.set_token('DOCUMENT_NUM', x_cascaded_table(n).document_num);
5125: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
5126: END IF; --}
5127:
5128: RETURN;
5129: END IF; -- } of (asn quantity_shipped was valid)
5215: IF count_asn_distributions%ISOPEN THEN
5216: CLOSE count_asn_distributions;
5217: END IF;
5218:
5219: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
5220: rcv_error_pkg.set_sql_error_message('derive_vendor_rcv_line_qty', x_progress);
5221: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
5222:
5223: IF (g_asn_debug = 'Y') THEN
5216: CLOSE count_asn_distributions;
5217: END IF;
5218:
5219: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
5220: rcv_error_pkg.set_sql_error_message('derive_vendor_rcv_line_qty', x_progress);
5221: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
5222:
5223: IF (g_asn_debug = 'Y') THEN
5224: asn_debug.put_line(TO_CHAR(n));
5217: END IF;
5218:
5219: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
5220: rcv_error_pkg.set_sql_error_message('derive_vendor_rcv_line_qty', x_progress);
5221: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
5222:
5223: IF (g_asn_debug = 'Y') THEN
5224: asn_debug.put_line(TO_CHAR(n));
5225: asn_debug.put_line(SQLERRM);
5470: */
5471: /* Complex Work project*/
5472: IF ((x_cascaded_table(n).transaction_type = 'SHIP') and
5473: (x_header_record.header_record.asn_type <> 'WC' )) THEN --{
5474: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5475: rcv_error_pkg.set_error_message('RCV_NO_SERVICE_SUPPORT_TRX', x_cascaded_table(n).error_message);
5476: rcv_error_pkg.set_token('TRX_TYPE', x_cascaded_table(n).transaction_type);
5477: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE', FALSE);
5478: END IF; --}
5471: /* Complex Work project*/
5472: IF ((x_cascaded_table(n).transaction_type = 'SHIP') and
5473: (x_header_record.header_record.asn_type <> 'WC' )) THEN --{
5474: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5475: rcv_error_pkg.set_error_message('RCV_NO_SERVICE_SUPPORT_TRX', x_cascaded_table(n).error_message);
5476: rcv_error_pkg.set_token('TRX_TYPE', x_cascaded_table(n).transaction_type);
5477: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE', FALSE);
5478: END IF; --}
5479:
5472: IF ((x_cascaded_table(n).transaction_type = 'SHIP') and
5473: (x_header_record.header_record.asn_type <> 'WC' )) THEN --{
5474: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5475: rcv_error_pkg.set_error_message('RCV_NO_SERVICE_SUPPORT_TRX', x_cascaded_table(n).error_message);
5476: rcv_error_pkg.set_token('TRX_TYPE', x_cascaded_table(n).transaction_type);
5477: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE', FALSE);
5478: END IF; --}
5479:
5480: /* Support for RATE based from OTL */
5473: (x_header_record.header_record.asn_type <> 'WC' )) THEN --{
5474: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5475: rcv_error_pkg.set_error_message('RCV_NO_SERVICE_SUPPORT_TRX', x_cascaded_table(n).error_message);
5476: rcv_error_pkg.set_token('TRX_TYPE', x_cascaded_table(n).transaction_type);
5477: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE', FALSE);
5478: END IF; --}
5479:
5480: /* Support for RATE based from OTL */
5481: IF ( x_cascaded_table(n).value_basis = 'RATE'
5514: IF (g_asn_debug = 'Y') THEN
5515: asn_debug.put_line('We do not support RATE/TEMP LABOR through ROI unless it comes through OTL');
5516: END IF;
5517:
5518: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5519: rcv_error_pkg.set_error_message('RCV_NO_RATE_UNLESS_OTL', x_cascaded_table(n).error_message);
5520: rcv_error_pkg.set_token('TRX_TYPE', x_cascaded_table(n).transaction_type);
5521: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE', FALSE);
5522: END IF; --}
5515: asn_debug.put_line('We do not support RATE/TEMP LABOR through ROI unless it comes through OTL');
5516: END IF;
5517:
5518: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5519: rcv_error_pkg.set_error_message('RCV_NO_RATE_UNLESS_OTL', x_cascaded_table(n).error_message);
5520: rcv_error_pkg.set_token('TRX_TYPE', x_cascaded_table(n).transaction_type);
5521: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE', FALSE);
5522: END IF; --}
5523: END IF; --}
5516: END IF;
5517:
5518: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5519: rcv_error_pkg.set_error_message('RCV_NO_RATE_UNLESS_OTL', x_cascaded_table(n).error_message);
5520: rcv_error_pkg.set_token('TRX_TYPE', x_cascaded_table(n).transaction_type);
5521: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE', FALSE);
5522: END IF; --}
5523: END IF; --}
5524:
5517:
5518: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5519: rcv_error_pkg.set_error_message('RCV_NO_RATE_UNLESS_OTL', x_cascaded_table(n).error_message);
5520: rcv_error_pkg.set_token('TRX_TYPE', x_cascaded_table(n).transaction_type);
5521: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE', FALSE);
5522: END IF; --}
5523: END IF; --}
5524:
5525: /* Bug 6610047.
5534: IF (g_asn_debug = 'Y') THEN
5535: asn_debug.put_line('Amount is <= zero. Cascade will fail');
5536: END IF;
5537:
5538: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5539: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
5540: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
5541: rcv_error_pkg.log_interface_error('AMOUNT', FALSE);
5542: END IF; --} end amt > 0 check
5535: asn_debug.put_line('Amount is <= zero. Cascade will fail');
5536: END IF;
5537:
5538: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5539: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
5540: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
5541: rcv_error_pkg.log_interface_error('AMOUNT', FALSE);
5542: END IF; --} end amt > 0 check
5543: */
5536: END IF;
5537:
5538: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5539: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
5540: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
5541: rcv_error_pkg.log_interface_error('AMOUNT', FALSE);
5542: END IF; --} end amt > 0 check
5543: */
5544: -- the following steps will create a set of rows linking the line_record with
5537:
5538: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5539: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
5540: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
5541: rcv_error_pkg.log_interface_error('AMOUNT', FALSE);
5542: END IF; --} end amt > 0 check
5543: */
5544: -- the following steps will create a set of rows linking the line_record with
5545: -- its corresponding po_line_location rows until the quantity value from
5870: asn_debug.put_line('Header Interface Id ' || TO_CHAR(temp_cascaded_table(current_n).header_interface_id));
5871: asn_debug.put_line('IN Trans Id ' || TO_CHAR(temp_cascaded_table(current_n).interface_transaction_id));
5872: END IF;
5873:
5874: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
5875: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
5876: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
5877: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_amount);
5878: rcv_error_pkg.log_interface_warning('QUANTITY');
5871: asn_debug.put_line('IN Trans Id ' || TO_CHAR(temp_cascaded_table(current_n).interface_transaction_id));
5872: END IF;
5873:
5874: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
5875: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
5876: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
5877: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_amount);
5878: rcv_error_pkg.log_interface_warning('QUANTITY');
5879:
5872: END IF;
5873:
5874: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
5875: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
5876: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
5877: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_amount);
5878: rcv_error_pkg.log_interface_warning('QUANTITY');
5879:
5880: IF (g_asn_debug = 'Y') THEN
5873:
5874: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
5875: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
5876: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
5877: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_amount);
5878: rcv_error_pkg.log_interface_warning('QUANTITY');
5879:
5880: IF (g_asn_debug = 'Y') THEN
5881: asn_debug.put_line('Error Status ' || temp_cascaded_table(current_n).error_status);
5874: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
5875: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
5876: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
5877: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_amount);
5878: rcv_error_pkg.log_interface_warning('QUANTITY');
5879:
5880: IF (g_asn_debug = 'Y') THEN
5881: asn_debug.put_line('Error Status ' || temp_cascaded_table(current_n).error_status);
5882: asn_debug.put_line('Error message ' || temp_cascaded_table(current_n).error_message);
5898: IF (g_asn_debug = 'Y') THEN
5899: asn_debug.put_line('delete the temp table ');
5900: END IF;
5901:
5902: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5903: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
5904: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).amount);
5905: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).amount - x_remaining_amount);
5906: rcv_error_pkg.log_interface_error('AMOUNT', FALSE);
5899: asn_debug.put_line('delete the temp table ');
5900: END IF;
5901:
5902: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5903: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
5904: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).amount);
5905: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).amount - x_remaining_amount);
5906: rcv_error_pkg.log_interface_error('AMOUNT', FALSE);
5907: temp_cascaded_table.DELETE;
5900: END IF;
5901:
5902: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5903: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
5904: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).amount);
5905: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).amount - x_remaining_amount);
5906: rcv_error_pkg.log_interface_error('AMOUNT', FALSE);
5907: temp_cascaded_table.DELETE;
5908:
5901:
5902: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5903: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
5904: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).amount);
5905: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).amount - x_remaining_amount);
5906: rcv_error_pkg.log_interface_error('AMOUNT', FALSE);
5907: temp_cascaded_table.DELETE;
5908:
5909: IF (g_asn_debug = 'Y') THEN
5902: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5903: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
5904: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).amount);
5905: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).amount - x_remaining_amount);
5906: rcv_error_pkg.log_interface_error('AMOUNT', FALSE);
5907: temp_cascaded_table.DELETE;
5908:
5909: IF (g_asn_debug = 'Y') THEN
5910: asn_debug.put_line('mark the actual table with error status');
5948: AND pll.line_location_id = NVL(temp_cascaded_table(current_n).po_line_location_id, pll.line_location_id)
5949: AND pll.po_line_id = pl.po_line_id);
5950:
5951: IF x_temp_count = 0 THEN
5952: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5953: rcv_error_pkg.set_error_message('RCV_ASN_NO_OPEN_SHIPMENTS', x_cascaded_table(n).error_message);
5954: rcv_error_pkg.set_token('PONUM', temp_cascaded_table(current_n).document_num);
5955: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
5956: ELSE -- x_temp_count != 0
5949: AND pll.po_line_id = pl.po_line_id);
5950:
5951: IF x_temp_count = 0 THEN
5952: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5953: rcv_error_pkg.set_error_message('RCV_ASN_NO_OPEN_SHIPMENTS', x_cascaded_table(n).error_message);
5954: rcv_error_pkg.set_token('PONUM', temp_cascaded_table(current_n).document_num);
5955: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
5956: ELSE -- x_temp_count != 0
5957: SELECT NVL(pll.po_release_id, 0),
5950:
5951: IF x_temp_count = 0 THEN
5952: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5953: rcv_error_pkg.set_error_message('RCV_ASN_NO_OPEN_SHIPMENTS', x_cascaded_table(n).error_message);
5954: rcv_error_pkg.set_token('PONUM', temp_cascaded_table(current_n).document_num);
5955: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
5956: ELSE -- x_temp_count != 0
5957: SELECT NVL(pll.po_release_id, 0),
5958: NVL(pll.approved_flag, 'N'),
5951: IF x_temp_count = 0 THEN
5952: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5953: rcv_error_pkg.set_error_message('RCV_ASN_NO_OPEN_SHIPMENTS', x_cascaded_table(n).error_message);
5954: rcv_error_pkg.set_token('PONUM', temp_cascaded_table(current_n).document_num);
5955: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
5956: ELSE -- x_temp_count != 0
5957: SELECT NVL(pll.po_release_id, 0),
5958: NVL(pll.approved_flag, 'N'),
5959: NVL(pll.cancel_flag, 'N'),
5992: AND pll.po_line_id = pl.po_line_id
5993: AND pod.distribution_num = NVL(temp_cascaded_table(current_n).document_distribution_num, pod.distribution_num);
5994:
5995: IF x_temp_count = 0 THEN
5996: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5997: rcv_error_pkg.set_error_message('RCV_ASN_INVALID_DIST_NUM', x_cascaded_table(n).error_message);
5998: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_distribution_num);
5999: rcv_error_pkg.log_interface_error('DOCUMENT_DISTRIBUTION_NUM', FALSE);
6000: ELSE -- x_temp_count != 0
5993: AND pod.distribution_num = NVL(temp_cascaded_table(current_n).document_distribution_num, pod.distribution_num);
5994:
5995: IF x_temp_count = 0 THEN
5996: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5997: rcv_error_pkg.set_error_message('RCV_ASN_INVALID_DIST_NUM', x_cascaded_table(n).error_message);
5998: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_distribution_num);
5999: rcv_error_pkg.log_interface_error('DOCUMENT_DISTRIBUTION_NUM', FALSE);
6000: ELSE -- x_temp_count != 0
6001: SELECT NVL(pll.po_release_id, 0),
5994:
5995: IF x_temp_count = 0 THEN
5996: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5997: rcv_error_pkg.set_error_message('RCV_ASN_INVALID_DIST_NUM', x_cascaded_table(n).error_message);
5998: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_distribution_num);
5999: rcv_error_pkg.log_interface_error('DOCUMENT_DISTRIBUTION_NUM', FALSE);
6000: ELSE -- x_temp_count != 0
6001: SELECT NVL(pll.po_release_id, 0),
6002: NVL(pll.approved_flag, 'N'),
5995: IF x_temp_count = 0 THEN
5996: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5997: rcv_error_pkg.set_error_message('RCV_ASN_INVALID_DIST_NUM', x_cascaded_table(n).error_message);
5998: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_distribution_num);
5999: rcv_error_pkg.log_interface_error('DOCUMENT_DISTRIBUTION_NUM', FALSE);
6000: ELSE -- x_temp_count != 0
6001: SELECT NVL(pll.po_release_id, 0),
6002: NVL(pll.approved_flag, 'N'),
6003: NVL(pll.cancel_flag, 'N'),
6023: END IF; -- x_temp_count = 0;
6024: END IF; -- transaction_type <> 'DELIVER' --}
6025:
6026: IF (x_temp_count <> 0) THEN --{
6027: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6028:
6029: IF x_release_id <> NVL(temp_cascaded_table(current_n).po_release_id, x_release_id) THEN
6030: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6031: rcv_error_pkg.set_error_message('RCV_ASN_ITEM_NOT_ALLOWED', x_cascaded_table(n).error_message);
6026: IF (x_temp_count <> 0) THEN --{
6027: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6028:
6029: IF x_release_id <> NVL(temp_cascaded_table(current_n).po_release_id, x_release_id) THEN
6030: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6031: rcv_error_pkg.set_error_message('RCV_ASN_ITEM_NOT_ALLOWED', x_cascaded_table(n).error_message);
6032: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).item_num);
6033: rcv_error_pkg.log_interface_error('ITEM_NUM', FALSE);
6034: END IF;
6027: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6028:
6029: IF x_release_id <> NVL(temp_cascaded_table(current_n).po_release_id, x_release_id) THEN
6030: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6031: rcv_error_pkg.set_error_message('RCV_ASN_ITEM_NOT_ALLOWED', x_cascaded_table(n).error_message);
6032: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).item_num);
6033: rcv_error_pkg.log_interface_error('ITEM_NUM', FALSE);
6034: END IF;
6035:
6028:
6029: IF x_release_id <> NVL(temp_cascaded_table(current_n).po_release_id, x_release_id) THEN
6030: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6031: rcv_error_pkg.set_error_message('RCV_ASN_ITEM_NOT_ALLOWED', x_cascaded_table(n).error_message);
6032: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).item_num);
6033: rcv_error_pkg.log_interface_error('ITEM_NUM', FALSE);
6034: END IF;
6035:
6036: IF x_approved_flag <> 'Y' THEN
6029: IF x_release_id <> NVL(temp_cascaded_table(current_n).po_release_id, x_release_id) THEN
6030: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6031: rcv_error_pkg.set_error_message('RCV_ASN_ITEM_NOT_ALLOWED', x_cascaded_table(n).error_message);
6032: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).item_num);
6033: rcv_error_pkg.log_interface_error('ITEM_NUM', FALSE);
6034: END IF;
6035:
6036: IF x_approved_flag <> 'Y' THEN
6037: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6033: rcv_error_pkg.log_interface_error('ITEM_NUM', FALSE);
6034: END IF;
6035:
6036: IF x_approved_flag <> 'Y' THEN
6037: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6038: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_NOT_APPROVED', x_cascaded_table(n).error_message);
6039: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
6040: rcv_error_pkg.set_token('PO_NUM', temp_cascaded_table(current_n).document_num);
6041: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6034: END IF;
6035:
6036: IF x_approved_flag <> 'Y' THEN
6037: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6038: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_NOT_APPROVED', x_cascaded_table(n).error_message);
6039: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
6040: rcv_error_pkg.set_token('PO_NUM', temp_cascaded_table(current_n).document_num);
6041: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6042: END IF;
6035:
6036: IF x_approved_flag <> 'Y' THEN
6037: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6038: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_NOT_APPROVED', x_cascaded_table(n).error_message);
6039: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
6040: rcv_error_pkg.set_token('PO_NUM', temp_cascaded_table(current_n).document_num);
6041: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6042: END IF;
6043:
6036: IF x_approved_flag <> 'Y' THEN
6037: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6038: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_NOT_APPROVED', x_cascaded_table(n).error_message);
6039: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
6040: rcv_error_pkg.set_token('PO_NUM', temp_cascaded_table(current_n).document_num);
6041: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6042: END IF;
6043:
6044: IF x_cancel_flag <> 'N' THEN
6037: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6038: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_NOT_APPROVED', x_cascaded_table(n).error_message);
6039: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
6040: rcv_error_pkg.set_token('PO_NUM', temp_cascaded_table(current_n).document_num);
6041: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6042: END IF;
6043:
6044: IF x_cancel_flag <> 'N' THEN
6045: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6041: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6042: END IF;
6043:
6044: IF x_cancel_flag <> 'N' THEN
6045: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6046: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_CANCELLED', x_cascaded_table(n).error_message);
6047: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
6048: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6049: END IF;
6042: END IF;
6043:
6044: IF x_cancel_flag <> 'N' THEN
6045: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6046: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_CANCELLED', x_cascaded_table(n).error_message);
6047: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
6048: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6049: END IF;
6050:
6043:
6044: IF x_cancel_flag <> 'N' THEN
6045: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6046: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_CANCELLED', x_cascaded_table(n).error_message);
6047: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
6048: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6049: END IF;
6050:
6051: IF ( x_include_closed_po = 'Y'
6044: IF x_cancel_flag <> 'N' THEN
6045: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6046: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_CANCELLED', x_cascaded_table(n).error_message);
6047: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
6048: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6049: END IF;
6050:
6051: IF ( x_include_closed_po = 'Y'
6052: AND x_closed_code = 'FINALLY CLOSED') THEN
6049: END IF;
6050:
6051: IF ( x_include_closed_po = 'Y'
6052: AND x_closed_code = 'FINALLY CLOSED') THEN
6053: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6054: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_FINALLY_CLOSED', x_cascaded_table(n).error_message);
6055: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
6056: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6057: END IF;
6050:
6051: IF ( x_include_closed_po = 'Y'
6052: AND x_closed_code = 'FINALLY CLOSED') THEN
6053: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6054: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_FINALLY_CLOSED', x_cascaded_table(n).error_message);
6055: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
6056: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6057: END IF;
6058:
6051: IF ( x_include_closed_po = 'Y'
6052: AND x_closed_code = 'FINALLY CLOSED') THEN
6053: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6054: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_FINALLY_CLOSED', x_cascaded_table(n).error_message);
6055: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
6056: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6057: END IF;
6058:
6059: IF ( x_include_closed_po = 'N'
6052: AND x_closed_code = 'FINALLY CLOSED') THEN
6053: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6054: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_FINALLY_CLOSED', x_cascaded_table(n).error_message);
6055: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
6056: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6057: END IF;
6058:
6059: IF ( x_include_closed_po = 'N'
6060: AND x_closed_code IN('FINALLY CLOSED', 'CLOSED', 'CLOSED FOR RECEIVING')) THEN
6061: IF (g_asn_debug = 'Y') THEN
6062: asn_debug.put_line('This PO is not open and the profile option to include closed POs is N');
6063: END IF;
6064:
6065: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6066: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_NOT_OPEN', x_cascaded_table(n).error_message);
6067: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
6068: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6069: END IF;
6062: asn_debug.put_line('This PO is not open and the profile option to include closed POs is N');
6063: END IF;
6064:
6065: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6066: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_NOT_OPEN', x_cascaded_table(n).error_message);
6067: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
6068: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6069: END IF;
6070:
6063: END IF;
6064:
6065: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6066: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_NOT_OPEN', x_cascaded_table(n).error_message);
6067: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
6068: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6069: END IF;
6070:
6071: IF x_shipment_type NOT IN('STANDARD', 'BLANKET', 'SCHEDULED','PREPAYMENT') THEN
6064:
6065: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6066: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_NOT_OPEN', x_cascaded_table(n).error_message);
6067: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
6068: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6069: END IF;
6070:
6071: IF x_shipment_type NOT IN('STANDARD', 'BLANKET', 'SCHEDULED','PREPAYMENT') THEN
6072: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6068: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6069: END IF;
6070:
6071: IF x_shipment_type NOT IN('STANDARD', 'BLANKET', 'SCHEDULED','PREPAYMENT') THEN
6072: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6073: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIPMT_TYPE', x_cascaded_table(n).error_message);
6074: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
6075: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6076: END IF;
6069: END IF;
6070:
6071: IF x_shipment_type NOT IN('STANDARD', 'BLANKET', 'SCHEDULED','PREPAYMENT') THEN
6072: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6073: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIPMT_TYPE', x_cascaded_table(n).error_message);
6074: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
6075: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6076: END IF;
6077: END IF; -- x_temp_count = 0;}
6070:
6071: IF x_shipment_type NOT IN('STANDARD', 'BLANKET', 'SCHEDULED','PREPAYMENT') THEN
6072: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6073: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIPMT_TYPE', x_cascaded_table(n).error_message);
6074: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
6075: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6076: END IF;
6077: END IF; -- x_temp_count = 0;}
6078:
6071: IF x_shipment_type NOT IN('STANDARD', 'BLANKET', 'SCHEDULED','PREPAYMENT') THEN
6072: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6073: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIPMT_TYPE', x_cascaded_table(n).error_message);
6074: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
6075: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6076: END IF;
6077: END IF; -- x_temp_count = 0;}
6078:
6079: -- Delete the temp_cascaded_table just to be sure
6187: IF (g_asn_debug = 'Y') THEN
6188: asn_debug.put_line('Receipt days exception code is Reject. So error out.');
6189: END IF;
6190:
6191: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6192: rcv_error_pkg.set_error_message('RCV_ASN_DATE_OUT_TOL', x_cascaded_table(n).error_message);
6193: rcv_error_pkg.set_token('DELIVERY DATE', NVL(temp_cascaded_table(1).expected_receipt_date, x_header_record.header_record.expected_receipt_date));
6194: rcv_error_pkg.log_interface_error('EXPECTED_RECEIPT_DATE', FALSE);
6195: END IF; --}
6188: asn_debug.put_line('Receipt days exception code is Reject. So error out.');
6189: END IF;
6190:
6191: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6192: rcv_error_pkg.set_error_message('RCV_ASN_DATE_OUT_TOL', x_cascaded_table(n).error_message);
6193: rcv_error_pkg.set_token('DELIVERY DATE', NVL(temp_cascaded_table(1).expected_receipt_date, x_header_record.header_record.expected_receipt_date));
6194: rcv_error_pkg.log_interface_error('EXPECTED_RECEIPT_DATE', FALSE);
6195: END IF; --}
6196:
6189: END IF;
6190:
6191: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6192: rcv_error_pkg.set_error_message('RCV_ASN_DATE_OUT_TOL', x_cascaded_table(n).error_message);
6193: rcv_error_pkg.set_token('DELIVERY DATE', NVL(temp_cascaded_table(1).expected_receipt_date, x_header_record.header_record.expected_receipt_date));
6194: rcv_error_pkg.log_interface_error('EXPECTED_RECEIPT_DATE', FALSE);
6195: END IF; --}
6196:
6197: IF (g_asn_debug = 'Y') THEN
6190:
6191: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6192: rcv_error_pkg.set_error_message('RCV_ASN_DATE_OUT_TOL', x_cascaded_table(n).error_message);
6193: rcv_error_pkg.set_token('DELIVERY DATE', NVL(temp_cascaded_table(1).expected_receipt_date, x_header_record.header_record.expected_receipt_date));
6194: rcv_error_pkg.log_interface_error('EXPECTED_RECEIPT_DATE', FALSE);
6195: END IF; --}
6196:
6197: IF (g_asn_debug = 'Y') THEN
6198: asn_debug.put_line('Days exception Code ' || NVL(x_shipmentdistributionrec.receipt_days_exception_code, 'XXX'));
6213: Enter error message in po_interface_errors if enforce_ship_to_location_code is 'REJECT' and error out
6214: */
6215: IF (x_shipmentdistributionrec.enforce_ship_to_location_code = 'REJECT') THEN --{
6216: BEGIN
6217: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6218: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
6219: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_id);
6220: rcv_error_pkg.log_interface_error('SHIP_TO_LOCATION_ID', FALSE);
6221: x_shipmentdistributionrec.ship_to_location_id := NVL(temp_cascaded_table(1).ship_to_location_id, x_header_record.header_record.location_id);
6214: */
6215: IF (x_shipmentdistributionrec.enforce_ship_to_location_code = 'REJECT') THEN --{
6216: BEGIN
6217: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6218: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
6219: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_id);
6220: rcv_error_pkg.log_interface_error('SHIP_TO_LOCATION_ID', FALSE);
6221: x_shipmentdistributionrec.ship_to_location_id := NVL(temp_cascaded_table(1).ship_to_location_id, x_header_record.header_record.location_id);
6222: END;
6215: IF (x_shipmentdistributionrec.enforce_ship_to_location_code = 'REJECT') THEN --{
6216: BEGIN
6217: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6218: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
6219: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_id);
6220: rcv_error_pkg.log_interface_error('SHIP_TO_LOCATION_ID', FALSE);
6221: x_shipmentdistributionrec.ship_to_location_id := NVL(temp_cascaded_table(1).ship_to_location_id, x_header_record.header_record.location_id);
6222: END;
6223: ELSIF(x_shipmentdistributionrec.enforce_ship_to_location_code = 'WARNING') THEN --} {
6216: BEGIN
6217: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6218: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
6219: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_id);
6220: rcv_error_pkg.log_interface_error('SHIP_TO_LOCATION_ID', FALSE);
6221: x_shipmentdistributionrec.ship_to_location_id := NVL(temp_cascaded_table(1).ship_to_location_id, x_header_record.header_record.location_id);
6222: END;
6223: ELSIF(x_shipmentdistributionrec.enforce_ship_to_location_code = 'WARNING') THEN --} {
6224: BEGIN
6222: END;
6223: ELSIF(x_shipmentdistributionrec.enforce_ship_to_location_code = 'WARNING') THEN --} {
6224: BEGIN
6225: x_cascaded_table(n).error_status := 'W';
6226: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
6227: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_id);
6228: rcv_error_pkg.log_interface_warning('SHIP_TO_LOCATION_ID');
6229: x_shipmentdistributionrec.ship_to_location_id := NVL(temp_cascaded_table(1).ship_to_location_id, x_header_record.header_record.location_id);
6230: END;
6223: ELSIF(x_shipmentdistributionrec.enforce_ship_to_location_code = 'WARNING') THEN --} {
6224: BEGIN
6225: x_cascaded_table(n).error_status := 'W';
6226: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
6227: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_id);
6228: rcv_error_pkg.log_interface_warning('SHIP_TO_LOCATION_ID');
6229: x_shipmentdistributionrec.ship_to_location_id := NVL(temp_cascaded_table(1).ship_to_location_id, x_header_record.header_record.location_id);
6230: END;
6231: END IF; --}matches ship_to_loc_code = warning
6224: BEGIN
6225: x_cascaded_table(n).error_status := 'W';
6226: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
6227: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_id);
6228: rcv_error_pkg.log_interface_warning('SHIP_TO_LOCATION_ID');
6229: x_shipmentdistributionrec.ship_to_location_id := NVL(temp_cascaded_table(1).ship_to_location_id, x_header_record.header_record.location_id);
6230: END;
6231: END IF; --}matches ship_to_loc_code = warning
6232:
6606: asn_debug.put_line('Status = ' || x_cascaded_table(n).error_status);
6607: END IF;
6608:
6609: IF x_cascaded_table(n).error_status IN('S', 'W', 'F') THEN --{
6610: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6611: rcv_error_pkg.set_error_message('RCV_ASN_NO_PO_LINE_LOCATION_ID', x_cascaded_table(n).error_message);
6612: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
6613: END IF; --}
6614:
6607: END IF;
6608:
6609: IF x_cascaded_table(n).error_status IN('S', 'W', 'F') THEN --{
6610: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6611: rcv_error_pkg.set_error_message('RCV_ASN_NO_PO_LINE_LOCATION_ID', x_cascaded_table(n).error_message);
6612: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
6613: END IF; --}
6614:
6615: RETURN;
6608:
6609: IF x_cascaded_table(n).error_status IN('S', 'W', 'F') THEN --{
6610: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6611: rcv_error_pkg.set_error_message('RCV_ASN_NO_PO_LINE_LOCATION_ID', x_cascaded_table(n).error_message);
6612: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
6613: END IF; --}
6614:
6615: RETURN;
6616: END IF; -- } of (asn quantity_shipped was valid)
6655: IF count_distributions%ISOPEN THEN
6656: CLOSE count_distributions;
6657: END IF;
6658:
6659: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
6660: rcv_error_pkg.set_sql_error_message('derive_vendor_rcv_line_qty', x_progress);
6661: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
6662: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
6663:
6656: CLOSE count_distributions;
6657: END IF;
6658:
6659: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
6660: rcv_error_pkg.set_sql_error_message('derive_vendor_rcv_line_qty', x_progress);
6661: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
6662: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
6663:
6664: IF (g_asn_debug = 'Y') THEN
6657: END IF;
6658:
6659: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
6660: rcv_error_pkg.set_sql_error_message('derive_vendor_rcv_line_qty', x_progress);
6661: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
6662: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
6663:
6664: IF (g_asn_debug = 'Y') THEN
6665: asn_debug.put_line(TO_CHAR(n));
6658:
6659: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
6660: rcv_error_pkg.set_sql_error_message('derive_vendor_rcv_line_qty', x_progress);
6661: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
6662: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
6663:
6664: IF (g_asn_debug = 'Y') THEN
6665: asn_debug.put_line(TO_CHAR(n));
6666: asn_debug.put_line(SQLERRM);
6679: IF (x_cascaded_table(n).error_status NOT IN('S', 'W')) THEN
6680: RETURN;
6681: END IF;
6682:
6683: x_error_status := rcv_error_pkg.g_ret_sts_error;
6684:
6685: /*Bug 2327318 Implemented the validation Transaction date should not be greater than
6686: sysdate */
6687: IF (x_cascaded_table(n).transaction_date > SYSDATE) THEN
6684:
6685: /*Bug 2327318 Implemented the validation Transaction date should not be greater than
6686: sysdate */
6687: IF (x_cascaded_table(n).transaction_date > SYSDATE) THEN
6688: rcv_error_pkg.set_error_message('RCV_TRX_FUTURE_DATE_NA');
6689: RAISE e_validation_error;
6690: END IF;
6691:
6692: /* Bug 2653229 - To check if the transaction date falls in the open period only
6723: x_val_open_ok := FALSE;
6724: END;
6725:
6726: IF NOT(x_val_open_ok) THEN --{
6727: rcv_error_pkg.set_error_message('PO_CNL_NO_PERIOD');
6728: RAISE e_validation_error;
6729: END IF; --}
6730:
6731: BEGIN
6743: x_val_open_ok := FALSE;
6744: END;
6745:
6746: IF NOT(x_val_open_ok) THEN --{
6747: rcv_error_pkg.set_error_message('PO_INV_NO_OPEN_PERIOD');
6748: RAISE e_validation_error;
6749: END IF; --}
6750:
6751: BEGIN
6763: END IF;
6764: END;
6765:
6766: IF NOT(x_val_open_ok) THEN --{
6767: rcv_error_pkg.set_error_message('PO_PO_ENTER_OPEN_GL_DATE');
6768: RAISE e_validation_error;
6769: END IF; --} /* End of Bug# 2379848 */
6770: END IF; --} auto transact code = SHIP
6771: EXCEPTION
6770: END IF; --} auto transact code = SHIP
6771: EXCEPTION
6772: WHEN e_validation_error THEN
6773: x_cascaded_table(n).error_status := x_error_status;
6774: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
6775: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
6776: 'TRANSACTION_DATE',
6777: FALSE
6778: );
6771: EXCEPTION
6772: WHEN e_validation_error THEN
6773: x_cascaded_table(n).error_status := x_error_status;
6774: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
6775: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
6776: 'TRANSACTION_DATE',
6777: FALSE
6778: );
6779: END validate_transaction_date;
6793: quantity_invoiced_record.error_record.error_message := NULL;
6794: rcv_transactions_interface_sv1.validate_quantity_invoiced(quantity_invoiced_record);
6795: x_cascaded_table(n).error_status := quantity_invoiced_record.error_record.error_status;
6796: x_cascaded_table(n).error_message := quantity_invoiced_record.error_record.error_message;
6797: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
6798: 'UNIT_OF_MEASURE',
6799: FALSE
6800: );
6801: END validate_quantity_invoiced;
6832:
6833: rcv_transactions_interface_sv1.validate_uom(uom_record);
6834: x_cascaded_table(n).error_status := uom_record.error_record.error_status;
6835: x_cascaded_table(n).error_message := uom_record.error_record.error_message;
6836: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
6837: 'UNIT_OF_MEASURE',
6838: FALSE
6839: );
6840: END validate_transaction_uom;
6897: END IF; --}
6898: END IF; --}
6899:
6900: asn_debug.put_line('after doing validate item the error status is ' || x_cascaded_table(n).error_status);
6901: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'ITEM_NUM');
6902: item_id_record.item_description := x_cascaded_table(n).item_description;
6903: item_id_record.error_record.error_status := 'S';
6904: item_id_record.error_record.error_message := NULL;
6905:
6914: IF (g_asn_debug = 'Y') THEN
6915: asn_debug.put_line('Error status after validate item description ' || x_cascaded_table(n).error_status);
6916: END IF;
6917:
6918: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'ITEM_DESCRIPTION');
6919:
6920: IF (x_cascaded_table(n).substitute_item_id IS NOT NULL) THEN --{
6921: IF (g_asn_debug = 'Y') THEN
6922: asn_debug.put_line('Validating Substitute Item');
6922: asn_debug.put_line('Validating Substitute Item');
6923: END IF;
6924:
6925: rcv_roi_header_common.validate_substitute_item(x_cascaded_table, n);
6926: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'SUBSTITUTE_ITEM_NUM');
6927: END IF;
6928:
6929: IF (x_cascaded_table(n).item_revision IS NOT NULL) THEN --{
6930: rcv_roi_header_common.validate_item_revision(x_cascaded_table, n);
6927: END IF;
6928:
6929: IF (x_cascaded_table(n).item_revision IS NOT NULL) THEN --{
6930: rcv_roi_header_common.validate_item_revision(x_cascaded_table, n);
6931: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'ITEM_REVISION');
6932: END IF;
6933: EXCEPTION
6934: WHEN rcv_error_pkg.e_fatal_error THEN
6935: NULL;
6930: rcv_roi_header_common.validate_item_revision(x_cascaded_table, n);
6931: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'ITEM_REVISION');
6932: END IF;
6933: EXCEPTION
6934: WHEN rcv_error_pkg.e_fatal_error THEN
6935: NULL;
6936: END validate_item_info;
6937:
6938: PROCEDURE validate_freight_carrier_code(
6959:
6960: rcv_transactions_interface_sv1.validate_freight_carrier(freight_carrier_record);
6961: x_cascaded_table(n).error_status := freight_carrier_record.error_record.error_status;
6962: x_cascaded_table(n).error_message := freight_carrier_record.error_record.error_message;
6963: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
6964: 'FREIGHT_CARRIER_CODE',
6965: FALSE
6966: );
6967: END IF; --}
6991:
6992: rcv_transactions_interface_sv1.validate_po_lookup_code(po_lookup_code_record);
6993: x_cascaded_table(n).error_status := po_lookup_code_record.error_record.error_status;
6994: x_cascaded_table(n).error_message := po_lookup_code_record.error_record.error_message;
6995: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
6996: 'DESTINATION_TYPE_CODE',
6997: FALSE
6998: );
6999: END validate_dest_type;
7025:
7026: rcv_transactions_interface_sv1.validate_location(location_record);
7027: x_cascaded_table(n).error_status := location_record.error_record.error_status;
7028: x_cascaded_table(n).error_message := location_record.error_record.error_message;
7029: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
7030: 'SHIP_TO_LOCATION_ID',
7031: FALSE
7032: );
7033: END validate_ship_to_loc;
7094: n IN BINARY_INTEGER
7095: ) IS
7096: x_error_status VARCHAR2(1);
7097: BEGIN
7098: x_error_status := rcv_error_pkg.g_ret_sts_error;
7099:
7100: /*
7101: ** Validate routing record bug 639750
7102: */
7112: AND NVL(x_cascaded_table(n).auto_transact_code, 'RECEIVE') = 'DELIVER') THEN
7113: /* 1 is Standard Receipt, 2 is Inspection Required */
7114: IF ( (x_cascaded_table(n).routing_header_id) IN(1, 2)
7115: AND NVL(rcv_setup_s.get_override_routing, 'N') = 'N') THEN
7116: rcv_error_pkg.set_error_message('RCV_ASN_DELIVER_ROUTING_FAILED');
7117: RAISE e_validation_error;
7118: END IF;
7119: END IF;
7120:
7121: IF (x_cascaded_table(n).transaction_type IN('ACCEPT', 'REJECT')) THEN --{
7122: IF ( (x_cascaded_table(n).routing_header_id) IN(3)
7123: AND NVL(rcv_setup_s.get_override_routing, 'N') = 'N') THEN --{
7124: asn_debug.put_line('We cannot do inspection on this record .');
7125: rcv_error_pkg.set_error_message('RCV_INSPECT_ROUTING_FAILED');
7126: RAISE e_validation_error;
7127: END IF; --}
7128: END IF; --}
7129: EXCEPTION
7128: END IF; --}
7129: EXCEPTION
7130: WHEN e_validation_error THEN
7131: x_cascaded_table(n).error_status := x_error_status;
7132: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
7133:
7134: -- This case statement assigns the appropriate tokens
7135: -- all error messages must be found in the case statement
7136: -- if the error message has no token then use a null statement
7139: ELSIF x_cascaded_table(n).error_message = 'RCV_INSPECT_ROUTING_FAILED' THEN
7140: NULL;
7141: END IF;
7142:
7143: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
7144: 'ROUTING_HEADER_ID',
7145: FALSE
7146: );
7147: END validate_routing_record;
7176:
7177: rcv_transactions_interface_sv1.validate_location(location_record);
7178: x_cascaded_table(n).error_status := location_record.error_record.error_status;
7179: x_cascaded_table(n).error_message := location_record.error_record.error_message;
7180: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
7181: 'DELIVER_TO_LOCATION_ID',
7182: FALSE
7183: );
7184: END IF;
7197: l_msg_buf VARCHAR2(2000);
7198: l_progress VARCHAR2(3) := '001';
7199: x_error_status VARCHAR2(1);
7200: BEGIN
7201: x_error_status := rcv_error_pkg.g_ret_sts_error;
7202:
7203: IF (x_cascaded_table(n).error_status NOT IN('S', 'W')) THEN
7204: RETURN;
7205: END IF;
7236:
7237: IF ( x_cascaded_table(n).transaction_type = 'DELIVER'
7238: OR x_cascaded_table(n).auto_transact_code = 'DELIVER') THEN --{
7239: IF (x_cascaded_table(n).subinventory IS NULL) THEN
7240: rcv_error_pkg.set_error_message('RCV_DEST_SUB_NA');
7241: RAISE e_validation_error;
7242: END IF;
7243:
7244: /*
7276: IF (g_asn_debug = 'Y') THEN
7277: asn_debug.put_line('subinventory not found. error ');
7278: END IF;
7279:
7280: rcv_error_pkg.set_error_message('RCV_DEST_SUB_INVALID');
7281: RAISE e_validation_error;
7282: END IF;
7283: ELSE --}{
7284: inv_rcv_integration_apis.validate_sub_loc(l_api_version,
7300: END IF; --}
7301: EXCEPTION
7302: WHEN e_validation_error THEN
7303: x_cascaded_table(n).error_status := x_error_status;
7304: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
7305:
7306: -- This case statement assigns the appropriate tokens
7307: -- all error messages must be found in the case statement
7308: -- if the error message has no token then use a null statement
7311: ELSIF x_cascaded_table(n).error_message = 'RCV_DEST_SUB_INVALID' THEN
7312: NULL;
7313: END IF;
7314:
7315: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
7316: 'SUBINVENTORY',
7317: FALSE
7318: );
7319: WHEN OTHERS THEN
7316: 'SUBINVENTORY',
7317: FALSE
7318: );
7319: WHEN OTHERS THEN
7320: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
7321: rcv_error_pkg.set_sql_error_message('validate_subinventory', l_progress);
7322: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
7323: rcv_error_pkg.log_interface_error('SUBINVENTORY', FALSE);
7324: END validate_subinventory;
7317: FALSE
7318: );
7319: WHEN OTHERS THEN
7320: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
7321: rcv_error_pkg.set_sql_error_message('validate_subinventory', l_progress);
7322: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
7323: rcv_error_pkg.log_interface_error('SUBINVENTORY', FALSE);
7324: END validate_subinventory;
7325:
7318: );
7319: WHEN OTHERS THEN
7320: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
7321: rcv_error_pkg.set_sql_error_message('validate_subinventory', l_progress);
7322: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
7323: rcv_error_pkg.log_interface_error('SUBINVENTORY', FALSE);
7324: END validate_subinventory;
7325:
7326: PROCEDURE validate_locator(
7319: WHEN OTHERS THEN
7320: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
7321: rcv_error_pkg.set_sql_error_message('validate_subinventory', l_progress);
7322: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
7323: rcv_error_pkg.log_interface_error('SUBINVENTORY', FALSE);
7324: END validate_subinventory;
7325:
7326: PROCEDURE validate_locator(
7327: x_cascaded_table IN OUT NOCOPY rcv_roi_preprocessor.cascaded_trans_tab_type,
7393: asn_debug.put_line('Loc Error Msg = ' || locator_record.error_record.error_message);
7394: asn_debug.put_line('Locator_id = ' || locator_record.locator_id);
7395: END IF;
7396:
7397: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
7398: 'LOCATOR_ID',
7399: FALSE
7400: );
7401: ELSE --}{
7433:
7434: rcv_transactions_interface_sv1.validate_tax_code(tax_name_record);
7435: x_cascaded_table(n).error_status := tax_name_record.error_record.error_status;
7436: x_cascaded_table(n).error_message := tax_name_record.error_record.error_message;
7437: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
7438: 'TAX_NAME',
7439: FALSE
7440: );
7441: END IF;
7464:
7465: rcv_transactions_interface_sv1.validate_country_of_origin(country_of_origin_record);
7466: x_cascaded_table(n).error_status := country_of_origin_record.error_record.error_status;
7467: x_cascaded_table(n).error_message := country_of_origin_record.error_record.error_message;
7468: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
7469: 'COUNTRY_OF_ORIGIN_CODE',
7470: FALSE
7471: );
7472: END IF;
7496:
7497: rcv_transactions_interface_sv1.validate_asl(asl_record);
7498: x_cascaded_table(n).error_status := asl_record.error_record.error_status;
7499: x_cascaded_table(n).error_message := asl_record.error_record.error_message;
7500: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
7501: 'SUPPLY_AGREEMENT_FLAG',
7502: FALSE
7503: );
7504: END validate_asl;
7533:
7534: rcv_transactions_interface_sv1.validate_cum_quantity_shipped(cum_quantity_record);
7535: x_cascaded_table(n).error_status := cum_quantity_record.error_record.error_status;
7536: x_cascaded_table(n).error_message := cum_quantity_record.error_record.error_message;
7537: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
7538: 'VENDOR_CUM_SHIPPED_QTY',
7539: FALSE
7540: );
7541: END IF; -- vendor_cum_shipped_qty <> 0
7551: l_item_description po_lines.item_description%TYPE;
7552: l_category_id po_lines.category_id%TYPE;
7553: x_error_status VARCHAR2(1);
7554: BEGIN
7555: x_error_status := rcv_error_pkg.g_ret_sts_error;
7556:
7557: IF (x_cascaded_table(n).error_status NOT IN('S', 'W')) THEN
7558: RETURN;
7559: END IF;
7614: END IF;
7615:
7616: x_cascaded_table(n).error_status := ref_integrity_record.error_record.error_status;
7617: x_cascaded_table(n).error_message := ref_integrity_record.error_record.error_message;
7618: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'TRANSACTIONS_INTERFACE_ID');
7619:
7620: IF (x_cascaded_table(n).matching_basis = 'AMOUNT') THEN --{
7621: IF (g_asn_debug = 'Y') THEN
7622: asn_debug.put_line('job_id ' || x_cascaded_table(n).job_id);
7639: asn_debug.put_line('After select l_job_id ' || l_job_id);
7640: END IF;
7641:
7642: IF (l_job_id = 0) THEN
7643: rcv_error_pkg.set_error_message('RCV_NOT_PO_JOB_ID');
7644: RAISE e_validation_error;
7645: END IF;
7646: END IF;
7647:
7697: asn_debug.put_line('After select l_item_description ' || l_item_description);
7698: END IF;
7699:
7700: IF (l_item_description = 'NO DATA') THEN
7701: rcv_error_pkg.set_error_message('RCV_NOT_PO_ITEM_DESC');
7702: RAISE e_validation_error;
7703: END IF;
7704: END IF;
7705:
7714: asn_debug.put_line('After select l_category_id ' || l_category_id);
7715: END IF;
7716:
7717: IF (l_category_id = 0) THEN
7718: rcv_error_pkg.set_error_message('RCV_NOT_PO_CATEGORY');
7719: RAISE e_validation_error;
7720: END IF;
7721: END IF;
7722:
7733: END IF;
7734: EXCEPTION
7735: WHEN e_validation_error THEN
7736: x_cascaded_table(n).error_status := x_error_status;
7737: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
7738:
7739: IF x_cascaded_table(n).error_message = 'RCV_NOT_PO_JOB_ID' THEN
7740: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
7741: 'JOB_ID',
7736: x_cascaded_table(n).error_status := x_error_status;
7737: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
7738:
7739: IF x_cascaded_table(n).error_message = 'RCV_NOT_PO_JOB_ID' THEN
7740: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
7741: 'JOB_ID',
7742: FALSE
7743: );
7744: ELSIF x_cascaded_table(n).error_message = 'RCV_NOT_PO_ITEM_DESC' THEN
7741: 'JOB_ID',
7742: FALSE
7743: );
7744: ELSIF x_cascaded_table(n).error_message = 'RCV_NOT_PO_ITEM_DESC' THEN
7745: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
7746: 'ITEM_DESCRIPTION',
7747: FALSE
7748: );
7749: ELSIF x_cascaded_table(n).error_message = 'RCV_NOT_PO_CATEGORY' THEN
7746: 'ITEM_DESCRIPTION',
7747: FALSE
7748: );
7749: ELSIF x_cascaded_table(n).error_message = 'RCV_NOT_PO_CATEGORY' THEN
7750: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
7751: 'CATEGORY_ID',
7752: FALSE
7753: );
7754: END IF;
7751: 'CATEGORY_ID',
7752: FALSE
7753: );
7754: END IF;
7755: WHEN rcv_error_pkg.e_fatal_error THEN
7756: NULL;
7757: WHEN OTHERS THEN
7758: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
7759: rcv_error_pkg.set_sql_error_message('validate_ref_integrity', '000');
7754: END IF;
7755: WHEN rcv_error_pkg.e_fatal_error THEN
7756: NULL;
7757: WHEN OTHERS THEN
7758: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
7759: rcv_error_pkg.set_sql_error_message('validate_ref_integrity', '000');
7760: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
7761: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
7762: END validate_ref_integrity;
7755: WHEN rcv_error_pkg.e_fatal_error THEN
7756: NULL;
7757: WHEN OTHERS THEN
7758: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
7759: rcv_error_pkg.set_sql_error_message('validate_ref_integrity', '000');
7760: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
7761: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
7762: END validate_ref_integrity;
7763:
7756: NULL;
7757: WHEN OTHERS THEN
7758: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
7759: rcv_error_pkg.set_sql_error_message('validate_ref_integrity', '000');
7760: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
7761: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
7762: END validate_ref_integrity;
7763:
7764: PROCEDURE exchange_sub_items(
7757: WHEN OTHERS THEN
7758: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
7759: rcv_error_pkg.set_sql_error_message('validate_ref_integrity', '000');
7760: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
7761: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
7762: END validate_ref_integrity;
7763:
7764: PROCEDURE exchange_sub_items(
7765: x_cascaded_table IN OUT NOCOPY rcv_roi_preprocessor.cascaded_trans_tab_type,
7773: prim_uom_qty NUMBER;
7774: x_error_status VARCHAR2(1);
7775: l_item_description mtl_system_items_vl.description%type; --bug 4697949
7776: BEGIN
7777: x_error_status := rcv_error_pkg.g_ret_sts_error;
7778:
7779: -- If substitute item has been specified then we need to switch the item_id with the
7780: -- substitute item. Also make sure that we can receive the substitute item in the
7781: -- ASN UOM. Convert the primary_quantity in item.primary uom to the substitute_item.primary_uom
7801: IF (g_asn_debug = 'Y') THEN
7802: asn_debug.put_line('The substitute item cannot be received in ASN uom' || x_cascaded_table(n).unit_of_measure);
7803: END IF;
7804:
7805: rcv_error_pkg.set_error_message('RCV_ITEM_SUB_NOT_ALLOWED');
7806: RAISE e_validation_error;
7807: END IF;
7808:
7809: SELECT MAX(primary_unit_of_measure)
7816: IF (g_asn_debug = 'Y') THEN
7817: asn_debug.put_line('No Primary UOM for substitute item');
7818: END IF;
7819:
7820: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PRIMARY');
7821: RAISE e_validation_error;
7822: END IF;
7823:
7824: IF (g_asn_debug = 'Y') THEN
7836: IF (g_asn_debug = 'Y') THEN
7837: asn_debug.put_line('Not possible to convert between asn and primary UOM');
7838: END IF;
7839:
7840: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PRIMARY');
7841: RAISE e_validation_error;
7842: END IF;
7843:
7844: x_cascaded_table(n).primary_unit_of_measure := x_primary_uom;
7867: END IF; --}
7868: EXCEPTION
7869: WHEN e_validation_error THEN
7870: x_cascaded_table(n).error_status := x_error_status;
7871: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
7872:
7873: IF x_cascaded_table(n).error_message = 'RCV_ITEM_SUB_NOT_ALLOWED' THEN
7874: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).substitute_item_id);
7875: ELSIF x_cascaded_table(n).error_message = 'RCV_UOM_NO_CONV_PRIMARY' THEN
7870: x_cascaded_table(n).error_status := x_error_status;
7871: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
7872:
7873: IF x_cascaded_table(n).error_message = 'RCV_ITEM_SUB_NOT_ALLOWED' THEN
7874: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).substitute_item_id);
7875: ELSIF x_cascaded_table(n).error_message = 'RCV_UOM_NO_CONV_PRIMARY' THEN
7876: rcv_error_pkg.set_token('SHIPMENT_UNIT', x_cascaded_table(n).primary_unit_of_measure);
7877: rcv_error_pkg.set_token('PRIMARY_UNIT', x_primary_uom);
7878: END IF;
7872:
7873: IF x_cascaded_table(n).error_message = 'RCV_ITEM_SUB_NOT_ALLOWED' THEN
7874: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).substitute_item_id);
7875: ELSIF x_cascaded_table(n).error_message = 'RCV_UOM_NO_CONV_PRIMARY' THEN
7876: rcv_error_pkg.set_token('SHIPMENT_UNIT', x_cascaded_table(n).primary_unit_of_measure);
7877: rcv_error_pkg.set_token('PRIMARY_UNIT', x_primary_uom);
7878: END IF;
7879: END exchange_sub_items;
7880:
7873: IF x_cascaded_table(n).error_message = 'RCV_ITEM_SUB_NOT_ALLOWED' THEN
7874: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).substitute_item_id);
7875: ELSIF x_cascaded_table(n).error_message = 'RCV_UOM_NO_CONV_PRIMARY' THEN
7876: rcv_error_pkg.set_token('SHIPMENT_UNIT', x_cascaded_table(n).primary_unit_of_measure);
7877: rcv_error_pkg.set_token('PRIMARY_UNIT', x_primary_uom);
7878: END IF;
7879: END exchange_sub_items;
7880:
7881: PROCEDURE validate_consigned_inventory(
7918: asn_debug.put_line('Error status ' || l_consigned_po_rec.error_record.error_status);
7919: asn_debug.put_line('Error name: ' || l_consigned_po_rec.error_record.error_message);
7920: END IF;
7921:
7922: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'PO_LINE_LOCATION_ID');
7923: END IF; -- IF ( (X_asn_type = 'ASBN')
7924:
7925: /*
7926: ** Reject ASN, ASBN or Receipt transactions against Consumption PO
7948: asn_debug.put_line('Error status ' || l_consumption_po_rec.error_record.error_status);
7949: asn_debug.put_line('Error name: ' || l_consumption_po_rec.error_record.error_message);
7950: END IF;
7951:
7952: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'PO_HEADER_ID');
7953: END IF;
7954:
7955: /*
7956: ** Reject ASN, ASBN or Receipt transactions against Consumption Release
7977: asn_debug.put_line('Error status ' || l_consumption_release_rec.error_record.error_status);
7978: asn_debug.put_line('Error name: ' || l_consumption_release_rec.error_record.error_message);
7979: END IF;
7980:
7981: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'PO_RELEASE_ID');
7982: END IF;
7983: /*
7984: EXCEPTION
7985: WHEN rcv_error_pkg.e_fatal_error THEN
7981: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'PO_RELEASE_ID');
7982: END IF;
7983: /*
7984: EXCEPTION
7985: WHEN rcv_error_pkg.e_fatal_error THEN
7986: NULL;
7987: END validate_consigned_inventory;
7988:
7989: PROCEDURE validate_ref_integ(
7995: x_po_vendor_site_id po_headers.vendor_site_id%TYPE := NULL;
7996: x_progress VARCHAR2(3);
7997: x_error_status VARCHAR2(1);
7998: BEGIN
7999: x_error_status := rcv_error_pkg.g_ret_sts_error;
8000:
8001: IF (x_ref_integrity_rec.vendor_item_num IS NOT NULL) THEN
8002: SELECT NVL(MAX(po_line_id), 0)
8003: INTO x_po_line_id
8005: WHERE po_line_id = x_ref_integrity_rec.po_line_id
8006: AND vendor_product_num = x_ref_integrity_rec.vendor_item_num;
8007:
8008: IF (x_po_line_id = 0) THEN
8009: rcv_error_pkg.set_error_message('RCV_NOT_PO_VEN_ITEM');
8010: RAISE e_validation_error;
8011: END IF;
8012: END IF;
8013:
8023: WHERE po_header_id = x_ref_integrity_rec.po_header_id
8024: AND vendor_id = x_ref_integrity_rec.vendor_id;
8025:
8026: IF (x_po_vendor_id = 0) THEN
8027: rcv_error_pkg.set_error_message('RCV_NOT_PO_VEN');
8028: RAISE e_validation_error;
8029: END IF;
8030: END IF;
8031:
8031:
8032: -- Check for header.vendor = lines.vendor
8033: IF x_header_record.header_record.vendor_id IS NOT NULL THEN
8034: IF x_header_record.header_record.vendor_id <> NVL(x_ref_integrity_rec.vendor_id, x_header_record.header_record.vendor_id) THEN
8035: rcv_error_pkg.set_error_message('RCV_ERC_MISMATCH_PO_VENDOR');
8036: RAISE e_validation_error;
8037: END IF;
8038: END IF;
8039:
8073: END IF;
8074:
8075:
8076: IF (x_po_vendor_site_id = 0) THEN
8077: rcv_error_pkg.set_error_message('RCV_NOT_PO_VEN_SITE');
8078: RAISE e_validation_error;
8079: END IF;
8080: END IF;
8081:
8090: WHERE po_header_id = x_ref_integrity_rec.po_header_id
8091: AND revision_num = x_ref_integrity_rec.po_revision_num;
8092:
8093: IF (x_po_vendor_site_id = 0) THEN
8094: rcv_error_pkg.set_error_message('RCV_NOT_PO_REVISION');
8095: RAISE e_validation_error;
8096: END IF;
8097: END IF;
8098: EXCEPTION
8097: END IF;
8098: EXCEPTION
8099: WHEN e_validation_error THEN
8100: x_ref_integrity_rec.error_record.error_status := x_error_status;
8101: x_ref_integrity_rec.error_record.error_message := rcv_error_pkg.get_last_message;
8102:
8103: IF x_ref_integrity_rec.error_record.error_message = 'RCV_NOT_PO_VEN_ITEM' THEN
8104: rcv_error_pkg.set_token('PO_SUPPLIER_ITEM', '');
8105: rcv_error_pkg.set_token('SHIPMENT_SUPPLIER_ITEM', x_ref_integrity_rec.vendor_item_num);
8100: x_ref_integrity_rec.error_record.error_status := x_error_status;
8101: x_ref_integrity_rec.error_record.error_message := rcv_error_pkg.get_last_message;
8102:
8103: IF x_ref_integrity_rec.error_record.error_message = 'RCV_NOT_PO_VEN_ITEM' THEN
8104: rcv_error_pkg.set_token('PO_SUPPLIER_ITEM', '');
8105: rcv_error_pkg.set_token('SHIPMENT_SUPPLIER_ITEM', x_ref_integrity_rec.vendor_item_num);
8106: ELSIF x_ref_integrity_rec.error_record.error_message = 'RCV_NOT_PO_VEN' THEN
8107: rcv_error_pkg.set_token('PO_SUPPLIER', '');
8108: rcv_error_pkg.set_token('SHIPMENT_SUPPLIER', x_ref_integrity_rec.vendor_id);
8101: x_ref_integrity_rec.error_record.error_message := rcv_error_pkg.get_last_message;
8102:
8103: IF x_ref_integrity_rec.error_record.error_message = 'RCV_NOT_PO_VEN_ITEM' THEN
8104: rcv_error_pkg.set_token('PO_SUPPLIER_ITEM', '');
8105: rcv_error_pkg.set_token('SHIPMENT_SUPPLIER_ITEM', x_ref_integrity_rec.vendor_item_num);
8106: ELSIF x_ref_integrity_rec.error_record.error_message = 'RCV_NOT_PO_VEN' THEN
8107: rcv_error_pkg.set_token('PO_SUPPLIER', '');
8108: rcv_error_pkg.set_token('SHIPMENT_SUPPLIER', x_ref_integrity_rec.vendor_id);
8109: ELSIF x_ref_integrity_rec.error_record.error_message = 'RCV_ERC_MISMATCH_PO_VENDOR' THEN
8103: IF x_ref_integrity_rec.error_record.error_message = 'RCV_NOT_PO_VEN_ITEM' THEN
8104: rcv_error_pkg.set_token('PO_SUPPLIER_ITEM', '');
8105: rcv_error_pkg.set_token('SHIPMENT_SUPPLIER_ITEM', x_ref_integrity_rec.vendor_item_num);
8106: ELSIF x_ref_integrity_rec.error_record.error_message = 'RCV_NOT_PO_VEN' THEN
8107: rcv_error_pkg.set_token('PO_SUPPLIER', '');
8108: rcv_error_pkg.set_token('SHIPMENT_SUPPLIER', x_ref_integrity_rec.vendor_id);
8109: ELSIF x_ref_integrity_rec.error_record.error_message = 'RCV_ERC_MISMATCH_PO_VENDOR' THEN
8110: NULL;
8111: ELSIF x_ref_integrity_rec.error_record.error_message = 'RCV_NOT_PO_VEN_SITE' THEN
8104: rcv_error_pkg.set_token('PO_SUPPLIER_ITEM', '');
8105: rcv_error_pkg.set_token('SHIPMENT_SUPPLIER_ITEM', x_ref_integrity_rec.vendor_item_num);
8106: ELSIF x_ref_integrity_rec.error_record.error_message = 'RCV_NOT_PO_VEN' THEN
8107: rcv_error_pkg.set_token('PO_SUPPLIER', '');
8108: rcv_error_pkg.set_token('SHIPMENT_SUPPLIER', x_ref_integrity_rec.vendor_id);
8109: ELSIF x_ref_integrity_rec.error_record.error_message = 'RCV_ERC_MISMATCH_PO_VENDOR' THEN
8110: NULL;
8111: ELSIF x_ref_integrity_rec.error_record.error_message = 'RCV_NOT_PO_VEN_SITE' THEN
8112: rcv_error_pkg.set_token('PO_SUPPLIER_SITE', '');
8108: rcv_error_pkg.set_token('SHIPMENT_SUPPLIER', x_ref_integrity_rec.vendor_id);
8109: ELSIF x_ref_integrity_rec.error_record.error_message = 'RCV_ERC_MISMATCH_PO_VENDOR' THEN
8110: NULL;
8111: ELSIF x_ref_integrity_rec.error_record.error_message = 'RCV_NOT_PO_VEN_SITE' THEN
8112: rcv_error_pkg.set_token('PO_SUPPLIER_SITE', '');
8113: rcv_error_pkg.set_token('SHIPMENT_SUPPLIER_SITE', x_ref_integrity_rec.vendor_site_id);
8114: ELSIF x_ref_integrity_rec.error_record.error_message = 'RCV_NOT_PO_REVISION' THEN
8115: rcv_error_pkg.set_token('PO_REV', '');
8116: rcv_error_pkg.set_token('SHIPMENT_REV', x_ref_integrity_rec.po_revision_num);
8109: ELSIF x_ref_integrity_rec.error_record.error_message = 'RCV_ERC_MISMATCH_PO_VENDOR' THEN
8110: NULL;
8111: ELSIF x_ref_integrity_rec.error_record.error_message = 'RCV_NOT_PO_VEN_SITE' THEN
8112: rcv_error_pkg.set_token('PO_SUPPLIER_SITE', '');
8113: rcv_error_pkg.set_token('SHIPMENT_SUPPLIER_SITE', x_ref_integrity_rec.vendor_site_id);
8114: ELSIF x_ref_integrity_rec.error_record.error_message = 'RCV_NOT_PO_REVISION' THEN
8115: rcv_error_pkg.set_token('PO_REV', '');
8116: rcv_error_pkg.set_token('SHIPMENT_REV', x_ref_integrity_rec.po_revision_num);
8117: END IF;
8111: ELSIF x_ref_integrity_rec.error_record.error_message = 'RCV_NOT_PO_VEN_SITE' THEN
8112: rcv_error_pkg.set_token('PO_SUPPLIER_SITE', '');
8113: rcv_error_pkg.set_token('SHIPMENT_SUPPLIER_SITE', x_ref_integrity_rec.vendor_site_id);
8114: ELSIF x_ref_integrity_rec.error_record.error_message = 'RCV_NOT_PO_REVISION' THEN
8115: rcv_error_pkg.set_token('PO_REV', '');
8116: rcv_error_pkg.set_token('SHIPMENT_REV', x_ref_integrity_rec.po_revision_num);
8117: END IF;
8118: END validate_ref_integ;
8119:
8112: rcv_error_pkg.set_token('PO_SUPPLIER_SITE', '');
8113: rcv_error_pkg.set_token('SHIPMENT_SUPPLIER_SITE', x_ref_integrity_rec.vendor_site_id);
8114: ELSIF x_ref_integrity_rec.error_record.error_message = 'RCV_NOT_PO_REVISION' THEN
8115: rcv_error_pkg.set_token('PO_REV', '');
8116: rcv_error_pkg.set_token('SHIPMENT_REV', x_ref_integrity_rec.po_revision_num);
8117: END IF;
8118: END validate_ref_integ;
8119:
8120: PROCEDURE validate_temp_labor_info(
8123: v_header_record IN rcv_roi_preprocessor.header_rec_type
8124: ) IS
8125: x_error_status VARCHAR2(1);
8126: BEGIN
8127: x_error_status := rcv_error_pkg.g_ret_sts_error;
8128:
8129: IF v_trans_tab(n).error_status NOT IN('S', 'W') THEN
8130: RETURN;
8131: END IF;
8134: AND v_trans_tab(n).purchase_basis = 'TEMP LABOR' THEN
8135: IF v_trans_tab(n).job_id IS NULL
8136: OR v_trans_tab(n).timecard_id IS NULL
8137: OR v_trans_tab(n).timecard_ovn IS NULL THEN
8138: rcv_error_pkg.set_error_message('RCV_NO_TEMP_LABOR_INFO');
8139: RAISE e_validation_error;
8140: END IF;
8141: END IF;
8142: EXCEPTION
8141: END IF;
8142: EXCEPTION
8143: WHEN e_validation_error THEN
8144: v_trans_tab(n).error_status := x_error_status;
8145: v_trans_tab(n).error_message := rcv_error_pkg.get_last_message;
8146:
8147: IF v_trans_tab(n).error_message = 'RCV_NO_TEMP_LABOR_INFO' THEN
8148: NULL;
8149: END IF;
8155: v_header_record IN rcv_roi_preprocessor.header_rec_type
8156: ) IS
8157: x_error_status VARCHAR2(1);
8158: BEGIN
8159: x_error_status := rcv_error_pkg.g_ret_sts_error;
8160:
8161: IF v_trans_tab(n).error_status NOT IN('S', 'W') THEN
8162: RETURN;
8163: END IF;
8164:
8165: IF v_trans_tab(n).matching_basis = 'AMOUNT' THEN
8166: IF v_trans_tab(n).amount IS NULL
8167: OR v_trans_tab(n).amount <= 0 THEN
8168: rcv_error_pkg.set_error_message('RCV_NO_AMOUNT');
8169: RAISE e_validation_error;
8170: END IF;
8171: END IF;
8172: EXCEPTION
8171: END IF;
8172: EXCEPTION
8173: WHEN e_validation_error THEN
8174: v_trans_tab(n).error_status := x_error_status;
8175: v_trans_tab(n).error_message := rcv_error_pkg.get_last_message;
8176:
8177: IF v_trans_tab(n).error_message = 'RCV_NO_AMOUNT' THEN
8178: NULL;
8179: END IF;
9063: FROM rcv_transactions_interface
9064: WHERE interface_transaction_id = l_ls_table(k).new_interface_trx_id;
9065:
9066: IF (l_message IS NOT NULL) THEN
9067: rcv_error_pkg.log_interface_error_message(l_message);
9068: ELSE
9069: rcv_error_pkg.set_error_message('RCV_SPLIT_LOT_SERIAL_ERROR');
9070: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID', FALSE);
9071: END IF;
9065:
9066: IF (l_message IS NOT NULL) THEN
9067: rcv_error_pkg.log_interface_error_message(l_message);
9068: ELSE
9069: rcv_error_pkg.set_error_message('RCV_SPLIT_LOT_SERIAL_ERROR');
9070: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID', FALSE);
9071: END IF;
9072: END LOOP;
9073: END IF; --} if split_lot_serial failed
9066: IF (l_message IS NOT NULL) THEN
9067: rcv_error_pkg.log_interface_error_message(l_message);
9068: ELSE
9069: rcv_error_pkg.set_error_message('RCV_SPLIT_LOT_SERIAL_ERROR');
9070: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID', FALSE);
9071: END IF;
9072: END LOOP;
9073: END IF; --} if split_lot_serial failed
9074: END IF; --} if l_ls_table.count > 0
9145: l_processing_status_code rcv_transactions_interface.processing_status_code%TYPE;
9146: x_error_status VARCHAR2(1);
9147: e_unexpected_error EXCEPTION;
9148: BEGIN
9149: x_error_status := rcv_error_pkg.g_ret_sts_error;
9150:
9151: /* We need to derive parent_trx_id if we can. Else if it is
9152: * a child of a parent in this same run, we can get all the values
9153: * from rti since we would have already derived for that or
9260: IF (g_asn_debug = 'Y') THEN
9261: asn_debug.put_line('NO PARENT');
9262: END IF;
9263:
9264: rcv_error_pkg.set_error_message('RCV_NO_PARENT_TRANSACTION');
9265: RAISE e_validation_error;
9266: ELSIF(x_cascaded_table(n).parent_interface_txn_id IS NOT NULL) THEN --}{
9267: IF (NOT derive_values_from_plsql_table) THEN --{
9268: BEGIN
9283: asn_debug.put_line('l_processing_status_code from rti ' || l_processing_status_code);
9284: END IF;
9285:
9286: IF (l_processing_status_code = 'ERROR') THEN
9287: rcv_error_pkg.set_error_message('RCV_PARENT_RECORD_ERRORED');
9288: RAISE e_validation_error;
9289: END IF;
9290: ELSE --}{
9291: IF (x_cascaded_table(cascaded_table_index).processing_status_code = 'ERROR') THEN
9288: RAISE e_validation_error;
9289: END IF;
9290: ELSE --}{
9291: IF (x_cascaded_table(cascaded_table_index).processing_status_code = 'ERROR') THEN
9292: rcv_error_pkg.set_error_message('RCV_PARENT_RECORD_ERRORED');
9293: RAISE e_validation_error;
9294: END IF;
9295: END IF; --}
9296: END IF; /* Insert error if parent_interface_txn_id is null*/ --}
9296: END IF; /* Insert error if parent_interface_txn_id is null*/ --}
9297: EXCEPTION
9298: WHEN e_validation_error THEN
9299: x_cascaded_table(n).error_status := x_error_status;
9300: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
9301:
9302: -- This case statement assigns the appropriate tokens
9303: -- all error messages must be found in the case statement
9304: -- if the error message has no token then use a null statement
9307: ELSIF x_cascaded_table(n).error_message = 'RCV_PARENT_RECORD_ERRORED' THEN
9308: NULL;
9309: END IF;
9310:
9311: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
9312: WHEN e_unexpected_error THEN
9313: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
9314: rcv_error_pkg.set_sql_error_message('derive_parent_id', '000');
9315: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
9309: END IF;
9310:
9311: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
9312: WHEN e_unexpected_error THEN
9313: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
9314: rcv_error_pkg.set_sql_error_message('derive_parent_id', '000');
9315: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
9316: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
9317: END derive_parent_id;
9310:
9311: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
9312: WHEN e_unexpected_error THEN
9313: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
9314: rcv_error_pkg.set_sql_error_message('derive_parent_id', '000');
9315: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
9316: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
9317: END derive_parent_id;
9318:
9311: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
9312: WHEN e_unexpected_error THEN
9313: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
9314: rcv_error_pkg.set_sql_error_message('derive_parent_id', '000');
9315: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
9316: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
9317: END derive_parent_id;
9318:
9319: PROCEDURE derive_trans_del_line_quantity(
9312: WHEN e_unexpected_error THEN
9313: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
9314: rcv_error_pkg.set_sql_error_message('derive_parent_id', '000');
9315: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
9316: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
9317: END derive_parent_id;
9318:
9319: PROCEDURE derive_trans_del_line_quantity(
9320: x_cascaded_table IN OUT NOCOPY rcv_roi_preprocessor.cascaded_trans_tab_type,
9857: asn_debug.put_line('l_num_of_distributions is 0');
9858: END IF;
9859:
9860: x_cascaded_table(n).error_status := 'F';
9861: rcv_error_pkg.set_error_message('RCV_NO_RECEIVE_SUPPLY', x_cascaded_table(n).error_message);
9862: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID', FALSE);
9863: return;
9864:
9865: END IF; /* End of FP for bug 4654553 */
9858: END IF;
9859:
9860: x_cascaded_table(n).error_status := 'F';
9861: rcv_error_pkg.set_error_message('RCV_NO_RECEIVE_SUPPLY', x_cascaded_table(n).error_message);
9862: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID', FALSE);
9863: return;
9864:
9865: END IF; /* End of FP for bug 4654553 */
9866: IF ( (x_cascaded_table(n).transaction_type = 'DELIVER')
9902: asn_debug.put_line('Distribution num is required for delivering multi distribution Po');
9903: END IF;
9904:
9905: x_cascaded_table(n).error_status := 'F';
9906: rcv_error_pkg.set_error_message('RCV_DIST_NUM_REQ', x_cascaded_table(n).error_message);
9907: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID', FALSE);
9908: END IF; --}
9909:
9910: OPEN po_deliver(x_cascaded_table(n).parent_transaction_id,
9903: END IF;
9904:
9905: x_cascaded_table(n).error_status := 'F';
9906: rcv_error_pkg.set_error_message('RCV_DIST_NUM_REQ', x_cascaded_table(n).error_message);
9907: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID', FALSE);
9908: END IF; --}
9909:
9910: OPEN po_deliver(x_cascaded_table(n).parent_transaction_id,
9911: x_cascaded_table(n).to_organization_id,
10034: asn_debug.put_line('Distribution num is required for delivering multi distribution Po');
10035: END IF;
10036:
10037: x_cascaded_table(n).error_status := 'F';
10038: rcv_error_pkg.set_error_message('RCV_DIST_NUM_REQ', x_cascaded_table(n).error_message);
10039: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID', FALSE);
10040: END IF; --}
10041:
10042: IF (g_asn_debug = 'Y') THEN
10035: END IF;
10036:
10037: x_cascaded_table(n).error_status := 'F';
10038: rcv_error_pkg.set_error_message('RCV_DIST_NUM_REQ', x_cascaded_table(n).error_message);
10039: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID', FALSE);
10040: END IF; --}
10041:
10042: IF (g_asn_debug = 'Y') THEN
10043: asn_debug.put_line(' open Multi deliver cursor from rti');
10069: asn_debug.put_line('Quantity is <= zero. Cascade will fail');
10070: END IF;
10071:
10072: x_cascaded_table(n).error_status := 'F';
10073: rcv_error_pkg.set_error_message('RCV_ENTER_QTY_GT_ZERO', x_cascaded_table(n).error_message);
10074: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
10075: END IF; --} end qty > 0 check
10076:
10077: -- the following steps will create a set of rows linking the line_record with
10070: END IF;
10071:
10072: x_cascaded_table(n).error_status := 'F';
10073: rcv_error_pkg.set_error_message('RCV_ENTER_QTY_GT_ZERO', x_cascaded_table(n).error_message);
10074: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
10075: END IF; --} end qty > 0 check
10076:
10077: -- the following steps will create a set of rows linking the line_record with
10078: -- its corresponding po_line_location rows until the quantity value from
10415: FROM po_lines
10416: WHERE po_line_id = l_service_po_line_id;
10417:
10418: IF (l_matching_basis = 'AMOUNT') THEN
10419: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
10420: rcv_error_pkg.set_error_message('RCV_NO_SERVICE_SUPPORT_TRX', x_cascaded_table(n).error_message);
10421: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE', FALSE);
10422: END IF;
10423: END IF; --}
10416: WHERE po_line_id = l_service_po_line_id;
10417:
10418: IF (l_matching_basis = 'AMOUNT') THEN
10419: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
10420: rcv_error_pkg.set_error_message('RCV_NO_SERVICE_SUPPORT_TRX', x_cascaded_table(n).error_message);
10421: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE', FALSE);
10422: END IF;
10423: END IF; --}
10424:
10417:
10418: IF (l_matching_basis = 'AMOUNT') THEN
10419: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
10420: rcv_error_pkg.set_error_message('RCV_NO_SERVICE_SUPPORT_TRX', x_cascaded_table(n).error_message);
10421: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE', FALSE);
10422: END IF;
10423: END IF; --}
10424:
10425: /* FPJ SERVICES END. */
10447: END IF;
10448:
10449: IF (l_complex_flag = 'Y') THEN
10450: asn_debug.put_line('We do not support transaction type ' || x_cascaded_table(n).transaction_type || ' for complex work POs');
10451: rcv_error_pkg.set_error_message('RCV_INVALID_TRANSACTION_TYPE');
10452: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE');
10453: End if;
10454:
10455:
10448:
10449: IF (l_complex_flag = 'Y') THEN
10450: asn_debug.put_line('We do not support transaction type ' || x_cascaded_table(n).transaction_type || ' for complex work POs');
10451: rcv_error_pkg.set_error_message('RCV_INVALID_TRANSACTION_TYPE');
10452: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE');
10453: End if;
10454:
10455:
10456:
10501: IF (g_asn_debug = 'Y') THEN
10502: asn_debug.put_line('delete the temp table ');
10503: END IF;
10504:
10505: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
10506: IF l_po_rel_num = -1 THEN--Bug 5439085
10507: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEEDS_AVL_QTY_PO', x_cascaded_table(n).error_message);
10508: ELSE
10509: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
10503: END IF;
10504:
10505: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
10506: IF l_po_rel_num = -1 THEN--Bug 5439085
10507: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEEDS_AVL_QTY_PO', x_cascaded_table(n).error_message);
10508: ELSE
10509: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
10510: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
10511: END IF;
10505: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
10506: IF l_po_rel_num = -1 THEN--Bug 5439085
10507: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEEDS_AVL_QTY_PO', x_cascaded_table(n).error_message);
10508: ELSE
10509: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
10510: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
10511: END IF;
10512: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
10513: rcv_error_pkg.set_token('AVLQTY',x_cascaded_table(n).quantity - x_remaining_quantity);
10506: IF l_po_rel_num = -1 THEN--Bug 5439085
10507: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEEDS_AVL_QTY_PO', x_cascaded_table(n).error_message);
10508: ELSE
10509: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
10510: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
10511: END IF;
10512: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
10513: rcv_error_pkg.set_token('AVLQTY',x_cascaded_table(n).quantity - x_remaining_quantity);
10514: rcv_error_pkg.set_token('PONUM', l_po_num );
10508: ELSE
10509: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
10510: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
10511: END IF;
10512: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
10513: rcv_error_pkg.set_token('AVLQTY',x_cascaded_table(n).quantity - x_remaining_quantity);
10514: rcv_error_pkg.set_token('PONUM', l_po_num );
10515: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
10516: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
10509: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
10510: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
10511: END IF;
10512: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
10513: rcv_error_pkg.set_token('AVLQTY',x_cascaded_table(n).quantity - x_remaining_quantity);
10514: rcv_error_pkg.set_token('PONUM', l_po_num );
10515: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
10516: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
10517: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
10510: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
10511: END IF;
10512: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
10513: rcv_error_pkg.set_token('AVLQTY',x_cascaded_table(n).quantity - x_remaining_quantity);
10514: rcv_error_pkg.set_token('PONUM', l_po_num );
10515: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
10516: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
10517: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
10518: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
10511: END IF;
10512: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
10513: rcv_error_pkg.set_token('AVLQTY',x_cascaded_table(n).quantity - x_remaining_quantity);
10514: rcv_error_pkg.set_token('PONUM', l_po_num );
10515: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
10516: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
10517: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
10518: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
10519:
10512: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
10513: rcv_error_pkg.set_token('AVLQTY',x_cascaded_table(n).quantity - x_remaining_quantity);
10514: rcv_error_pkg.set_token('PONUM', l_po_num );
10515: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
10516: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
10517: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
10518: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
10519:
10520: IF temp_cascaded_table.COUNT > 0 THEN
10513: rcv_error_pkg.set_token('AVLQTY',x_cascaded_table(n).quantity - x_remaining_quantity);
10514: rcv_error_pkg.set_token('PONUM', l_po_num );
10515: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
10516: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
10517: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
10518: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
10519:
10520: IF temp_cascaded_table.COUNT > 0 THEN
10521: FOR i IN 1 .. temp_cascaded_table.COUNT LOOP
10514: rcv_error_pkg.set_token('PONUM', l_po_num );
10515: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
10516: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
10517: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
10518: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
10519:
10520: IF temp_cascaded_table.COUNT > 0 THEN
10521: FOR i IN 1 .. temp_cascaded_table.COUNT LOOP
10522: temp_cascaded_table.DELETE(i);
10543: END IF;
10544: END IF;
10545:
10546: x_temp_count := 1;
10547: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
10548:
10549: IF (x_cascaded_table(n).parent_transaction_id IS NOT NULL) THEN --{
10550:
10551: SELECT transaction_type
10553: FROM rcv_transactions
10554: WHERE transaction_id = temp_cascaded_table(current_n).parent_transaction_id;
10555:
10556: IF l_transaction_type = 'UNORDERED' THEN
10557: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
10558: rcv_error_pkg.set_error_message('RCV_INVALID_PARENT_TRX_TYPE', x_cascaded_table(n).error_message);
10559: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
10560: ELSE -- all other cases can be categorized as no receive supply
10561: rcv_error_pkg.set_error_message('RCV_NO_RECEIVE_SUPPLY', x_cascaded_table(n).error_message);
10554: WHERE transaction_id = temp_cascaded_table(current_n).parent_transaction_id;
10555:
10556: IF l_transaction_type = 'UNORDERED' THEN
10557: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
10558: rcv_error_pkg.set_error_message('RCV_INVALID_PARENT_TRX_TYPE', x_cascaded_table(n).error_message);
10559: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
10560: ELSE -- all other cases can be categorized as no receive supply
10561: rcv_error_pkg.set_error_message('RCV_NO_RECEIVE_SUPPLY', x_cascaded_table(n).error_message);
10562: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
10555:
10556: IF l_transaction_type = 'UNORDERED' THEN
10557: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
10558: rcv_error_pkg.set_error_message('RCV_INVALID_PARENT_TRX_TYPE', x_cascaded_table(n).error_message);
10559: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
10560: ELSE -- all other cases can be categorized as no receive supply
10561: rcv_error_pkg.set_error_message('RCV_NO_RECEIVE_SUPPLY', x_cascaded_table(n).error_message);
10562: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
10563: END IF;
10557: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
10558: rcv_error_pkg.set_error_message('RCV_INVALID_PARENT_TRX_TYPE', x_cascaded_table(n).error_message);
10559: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
10560: ELSE -- all other cases can be categorized as no receive supply
10561: rcv_error_pkg.set_error_message('RCV_NO_RECEIVE_SUPPLY', x_cascaded_table(n).error_message);
10562: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
10563: END IF;
10564: END IF; --}
10565:
10558: rcv_error_pkg.set_error_message('RCV_INVALID_PARENT_TRX_TYPE', x_cascaded_table(n).error_message);
10559: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
10560: ELSE -- all other cases can be categorized as no receive supply
10561: rcv_error_pkg.set_error_message('RCV_NO_RECEIVE_SUPPLY', x_cascaded_table(n).error_message);
10562: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
10563: END IF;
10564: END IF; --}
10565:
10566: -- Delete the temp_cascaded_table just to be sure
10834: asn_debug.put_line('mtl_supply doesnot exist. error out the DELIVER txn...');
10835: END IF;
10836: x_cascaded_table(n).error_status := 'E';
10837: IF l_po_rel_num = -1 THEN--Bug 5439085
10838: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEEDS_AVL_QTY_PO', x_cascaded_table(n).error_message);
10839: ELSE
10840: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
10841: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
10842: END IF;
10836: x_cascaded_table(n).error_status := 'E';
10837: IF l_po_rel_num = -1 THEN--Bug 5439085
10838: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEEDS_AVL_QTY_PO', x_cascaded_table(n).error_message);
10839: ELSE
10840: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
10841: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
10842: END IF;
10843: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
10844: rcv_error_pkg.set_token('AVLQTY',0);
10837: IF l_po_rel_num = -1 THEN--Bug 5439085
10838: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEEDS_AVL_QTY_PO', x_cascaded_table(n).error_message);
10839: ELSE
10840: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
10841: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
10842: END IF;
10843: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
10844: rcv_error_pkg.set_token('AVLQTY',0);
10845: rcv_error_pkg.set_token('PONUM', l_po_num );
10839: ELSE
10840: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
10841: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
10842: END IF;
10843: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
10844: rcv_error_pkg.set_token('AVLQTY',0);
10845: rcv_error_pkg.set_token('PONUM', l_po_num );
10846: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
10847: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
10840: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
10841: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
10842: END IF;
10843: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
10844: rcv_error_pkg.set_token('AVLQTY',0);
10845: rcv_error_pkg.set_token('PONUM', l_po_num );
10846: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
10847: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
10848: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
10841: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
10842: END IF;
10843: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
10844: rcv_error_pkg.set_token('AVLQTY',0);
10845: rcv_error_pkg.set_token('PONUM', l_po_num );
10846: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
10847: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
10848: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
10849: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
10842: END IF;
10843: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
10844: rcv_error_pkg.set_token('AVLQTY',0);
10845: rcv_error_pkg.set_token('PONUM', l_po_num );
10846: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
10847: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
10848: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
10849: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
10850: END IF;
10843: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
10844: rcv_error_pkg.set_token('AVLQTY',0);
10845: rcv_error_pkg.set_token('PONUM', l_po_num );
10846: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
10847: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
10848: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
10849: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
10850: END IF;
10851:
10844: rcv_error_pkg.set_token('AVLQTY',0);
10845: rcv_error_pkg.set_token('PONUM', l_po_num );
10846: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
10847: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
10848: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
10849: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
10850: END IF;
10851:
10852: IF (g_asn_debug = 'Y') THEN
10845: rcv_error_pkg.set_token('PONUM', l_po_num );
10846: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
10847: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
10848: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
10849: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
10850: END IF;
10851:
10852: IF (g_asn_debug = 'Y') THEN
10853: asn_debug.put_line('l_distribution_qty:'||l_distribution_qty);
10891: asn_debug.put_line('Error out this DELIVERY txn, as it results in Over delivery on that distribution'||x_po_transferrec.po_distribution_id);
10892: END IF;
10893: x_cascaded_table(n).error_status := 'E';
10894: IF l_po_rel_num = -1 THEN--Bug 5439085
10895: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEEDS_AVL_QTY_PO', x_cascaded_table(n).error_message);
10896: ELSE
10897: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
10898: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
10899: END IF;
10893: x_cascaded_table(n).error_status := 'E';
10894: IF l_po_rel_num = -1 THEN--Bug 5439085
10895: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEEDS_AVL_QTY_PO', x_cascaded_table(n).error_message);
10896: ELSE
10897: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
10898: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
10899: END IF;
10900: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
10901: rcv_error_pkg.set_token('AVLQTY',l_distribution_qty - l_total_deliver_quantity);
10894: IF l_po_rel_num = -1 THEN--Bug 5439085
10895: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEEDS_AVL_QTY_PO', x_cascaded_table(n).error_message);
10896: ELSE
10897: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
10898: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
10899: END IF;
10900: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
10901: rcv_error_pkg.set_token('AVLQTY',l_distribution_qty - l_total_deliver_quantity);
10902: rcv_error_pkg.set_token('PONUM', l_po_num );
10896: ELSE
10897: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
10898: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
10899: END IF;
10900: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
10901: rcv_error_pkg.set_token('AVLQTY',l_distribution_qty - l_total_deliver_quantity);
10902: rcv_error_pkg.set_token('PONUM', l_po_num );
10903: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
10904: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
10897: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
10898: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
10899: END IF;
10900: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
10901: rcv_error_pkg.set_token('AVLQTY',l_distribution_qty - l_total_deliver_quantity);
10902: rcv_error_pkg.set_token('PONUM', l_po_num );
10903: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
10904: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
10905: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
10898: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
10899: END IF;
10900: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
10901: rcv_error_pkg.set_token('AVLQTY',l_distribution_qty - l_total_deliver_quantity);
10902: rcv_error_pkg.set_token('PONUM', l_po_num );
10903: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
10904: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
10905: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
10906: rcv_error_pkg.log_interface_error('QUANTITY',FALSE);
10899: END IF;
10900: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
10901: rcv_error_pkg.set_token('AVLQTY',l_distribution_qty - l_total_deliver_quantity);
10902: rcv_error_pkg.set_token('PONUM', l_po_num );
10903: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
10904: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
10905: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
10906: rcv_error_pkg.log_interface_error('QUANTITY',FALSE);
10907: END IF;--} x_cascaded_table(n).quantity > (l_distribution_qty - l_total_deliver_quantity)
10900: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
10901: rcv_error_pkg.set_token('AVLQTY',l_distribution_qty - l_total_deliver_quantity);
10902: rcv_error_pkg.set_token('PONUM', l_po_num );
10903: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
10904: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
10905: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
10906: rcv_error_pkg.log_interface_error('QUANTITY',FALSE);
10907: END IF;--} x_cascaded_table(n).quantity > (l_distribution_qty - l_total_deliver_quantity)
10908: --} l_parent_receive_txn_in_rt = 'Y'
10901: rcv_error_pkg.set_token('AVLQTY',l_distribution_qty - l_total_deliver_quantity);
10902: rcv_error_pkg.set_token('PONUM', l_po_num );
10903: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
10904: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
10905: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
10906: rcv_error_pkg.log_interface_error('QUANTITY',FALSE);
10907: END IF;--} x_cascaded_table(n).quantity > (l_distribution_qty - l_total_deliver_quantity)
10908: --} l_parent_receive_txn_in_rt = 'Y'
10909: ELSIF l_parent_receive_txn_in_rt = 'N' THEN--{ l_parent_receive_txn_in_rt = 'N'
10902: rcv_error_pkg.set_token('PONUM', l_po_num );
10903: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
10904: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
10905: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
10906: rcv_error_pkg.log_interface_error('QUANTITY',FALSE);
10907: END IF;--} x_cascaded_table(n).quantity > (l_distribution_qty - l_total_deliver_quantity)
10908: --} l_parent_receive_txn_in_rt = 'Y'
10909: ELSIF l_parent_receive_txn_in_rt = 'N' THEN--{ l_parent_receive_txn_in_rt = 'N'
10910: --Fetch the AVAILABLE qty from rcv_transactions_interface using l_parent_interface_txn_id
11012: asn_debug.put_line('deliver qty > received qty.');
11013: END IF;
11014: x_cascaded_table(n).error_status := 'E';
11015: IF l_po_rel_num = -1 THEN--Bug 5439085
11016: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEEDS_AVL_QTY_PO', x_cascaded_table(n).error_message);
11017: ELSE
11018: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
11019: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
11020: END IF;
11014: x_cascaded_table(n).error_status := 'E';
11015: IF l_po_rel_num = -1 THEN--Bug 5439085
11016: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEEDS_AVL_QTY_PO', x_cascaded_table(n).error_message);
11017: ELSE
11018: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
11019: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
11020: END IF;
11021: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
11022: rcv_error_pkg.set_token('AVLQTY',l_receive_quantity);
11015: IF l_po_rel_num = -1 THEN--Bug 5439085
11016: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEEDS_AVL_QTY_PO', x_cascaded_table(n).error_message);
11017: ELSE
11018: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
11019: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
11020: END IF;
11021: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
11022: rcv_error_pkg.set_token('AVLQTY',l_receive_quantity);
11023: rcv_error_pkg.set_token('PONUM', l_po_num );
11017: ELSE
11018: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
11019: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
11020: END IF;
11021: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
11022: rcv_error_pkg.set_token('AVLQTY',l_receive_quantity);
11023: rcv_error_pkg.set_token('PONUM', l_po_num );
11024: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
11025: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
11018: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
11019: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
11020: END IF;
11021: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
11022: rcv_error_pkg.set_token('AVLQTY',l_receive_quantity);
11023: rcv_error_pkg.set_token('PONUM', l_po_num );
11024: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
11025: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
11026: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
11019: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
11020: END IF;
11021: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
11022: rcv_error_pkg.set_token('AVLQTY',l_receive_quantity);
11023: rcv_error_pkg.set_token('PONUM', l_po_num );
11024: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
11025: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
11026: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
11027: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
11020: END IF;
11021: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
11022: rcv_error_pkg.set_token('AVLQTY',l_receive_quantity);
11023: rcv_error_pkg.set_token('PONUM', l_po_num );
11024: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
11025: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
11026: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
11027: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
11028: END IF;
11021: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
11022: rcv_error_pkg.set_token('AVLQTY',l_receive_quantity);
11023: rcv_error_pkg.set_token('PONUM', l_po_num );
11024: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
11025: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
11026: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
11027: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
11028: END IF;
11029: ELSE
11022: rcv_error_pkg.set_token('AVLQTY',l_receive_quantity);
11023: rcv_error_pkg.set_token('PONUM', l_po_num );
11024: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
11025: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
11026: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
11027: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
11028: END IF;
11029: ELSE
11030: --Over delivery for that Receive txn on the spefied distribution, error out this deliver txn
11023: rcv_error_pkg.set_token('PONUM', l_po_num );
11024: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
11025: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
11026: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
11027: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
11028: END IF;
11029: ELSE
11030: --Over delivery for that Receive txn on the spefied distribution, error out this deliver txn
11031: IF (g_asn_debug = 'Y') THEN
11032: asn_debug.put_line('Trying to perform over Delivery txn, on the specified distribution...Error out this Deliver txn..');
11033: END IF;
11034: x_cascaded_table(n).error_status := 'E';
11035: IF l_po_rel_num = -1 THEN--Bug 5439085
11036: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEEDS_AVL_QTY_PO', x_cascaded_table(n).error_message);
11037: ELSE
11038: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
11039: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
11040: END IF;
11034: x_cascaded_table(n).error_status := 'E';
11035: IF l_po_rel_num = -1 THEN--Bug 5439085
11036: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEEDS_AVL_QTY_PO', x_cascaded_table(n).error_message);
11037: ELSE
11038: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
11039: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
11040: END IF;
11041: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
11042: rcv_error_pkg.set_token('AVLQTY',l_total_receiving_quantity);
11035: IF l_po_rel_num = -1 THEN--Bug 5439085
11036: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEEDS_AVL_QTY_PO', x_cascaded_table(n).error_message);
11037: ELSE
11038: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
11039: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
11040: END IF;
11041: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
11042: rcv_error_pkg.set_token('AVLQTY',l_total_receiving_quantity);
11043: rcv_error_pkg.set_token('PONUM', l_po_num );
11037: ELSE
11038: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
11039: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
11040: END IF;
11041: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
11042: rcv_error_pkg.set_token('AVLQTY',l_total_receiving_quantity);
11043: rcv_error_pkg.set_token('PONUM', l_po_num );
11044: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
11045: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
11038: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
11039: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
11040: END IF;
11041: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
11042: rcv_error_pkg.set_token('AVLQTY',l_total_receiving_quantity);
11043: rcv_error_pkg.set_token('PONUM', l_po_num );
11044: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
11045: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
11046: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
11039: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
11040: END IF;
11041: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
11042: rcv_error_pkg.set_token('AVLQTY',l_total_receiving_quantity);
11043: rcv_error_pkg.set_token('PONUM', l_po_num );
11044: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
11045: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
11046: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
11047: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
11040: END IF;
11041: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
11042: rcv_error_pkg.set_token('AVLQTY',l_total_receiving_quantity);
11043: rcv_error_pkg.set_token('PONUM', l_po_num );
11044: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
11045: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
11046: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
11047: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
11048: END IF;--} (l_total_deliver_quantity + l_deliver_quantity) <= l_total_receiving_quantity
11041: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
11042: rcv_error_pkg.set_token('AVLQTY',l_total_receiving_quantity);
11043: rcv_error_pkg.set_token('PONUM', l_po_num );
11044: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
11045: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
11046: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
11047: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
11048: END IF;--} (l_total_deliver_quantity + l_deliver_quantity) <= l_total_receiving_quantity
11049: --} l_parent_receive_txn_in_rt = 'N'
11042: rcv_error_pkg.set_token('AVLQTY',l_total_receiving_quantity);
11043: rcv_error_pkg.set_token('PONUM', l_po_num );
11044: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
11045: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
11046: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
11047: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
11048: END IF;--} (l_total_deliver_quantity + l_deliver_quantity) <= l_total_receiving_quantity
11049: --} l_parent_receive_txn_in_rt = 'N'
11050: END IF;--} l_parent_receive_txn_in_rt = 'Y'
11043: rcv_error_pkg.set_token('PONUM', l_po_num );
11044: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
11045: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
11046: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
11047: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
11048: END IF;--} (l_total_deliver_quantity + l_deliver_quantity) <= l_total_receiving_quantity
11049: --} l_parent_receive_txn_in_rt = 'N'
11050: END IF;--} l_parent_receive_txn_in_rt = 'Y'
11051: --} l_loop_exit_status = 'S'
11367: asn_debug.put_line('Status = ' || x_cascaded_table(n).error_status);
11368: END IF;
11369:
11370: IF x_cascaded_table(n).error_status IN('S', 'W', 'F') THEN --{
11371: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
11372:
11373: IF (x_cascaded_table(n).error_message IS NULL) THEN
11374: rcv_error_pkg.set_error_message('RCV_NO_PARENT_TRANSACTION', x_cascaded_table(n).error_message);
11375: END IF;
11370: IF x_cascaded_table(n).error_status IN('S', 'W', 'F') THEN --{
11371: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
11372:
11373: IF (x_cascaded_table(n).error_message IS NULL) THEN
11374: rcv_error_pkg.set_error_message('RCV_NO_PARENT_TRANSACTION', x_cascaded_table(n).error_message);
11375: END IF;
11376:
11377: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
11378: END IF; --}
11373: IF (x_cascaded_table(n).error_message IS NULL) THEN
11374: rcv_error_pkg.set_error_message('RCV_NO_PARENT_TRANSACTION', x_cascaded_table(n).error_message);
11375: END IF;
11376:
11377: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
11378: END IF; --}
11379: END IF; -- } of (asn quantity_shipped was valid)
11380:
11381: IF (g_asn_debug = 'Y') THEN
11430: IF po_deliver%ISOPEN THEN
11431: CLOSE po_deliver;
11432: END IF;
11433:
11434: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
11435: rcv_error_pkg.set_sql_error_message('derive_trans_del_line_quantity', x_progress);
11436: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
11437: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
11438:
11431: CLOSE po_deliver;
11432: END IF;
11433:
11434: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
11435: rcv_error_pkg.set_sql_error_message('derive_trans_del_line_quantity', x_progress);
11436: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
11437: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
11438:
11439: IF (g_asn_debug = 'Y') THEN
11432: END IF;
11433:
11434: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
11435: rcv_error_pkg.set_sql_error_message('derive_trans_del_line_quantity', x_progress);
11436: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
11437: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
11438:
11439: IF (g_asn_debug = 'Y') THEN
11440: asn_debug.put_line(TO_CHAR(n));
11433:
11434: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
11435: rcv_error_pkg.set_sql_error_message('derive_trans_del_line_quantity', x_progress);
11436: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
11437: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
11438:
11439: IF (g_asn_debug = 'Y') THEN
11440: asn_debug.put_line(TO_CHAR(n));
11441: asn_debug.put_line(SQLERRM);
11824: CLOSE po_transfer_rti;
11825: END IF;
11826: EXCEPTION
11827: WHEN OTHERS THEN
11828: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
11829: rcv_error_pkg.set_sql_error_message('default_vendor_trans_del', '000');
11830: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
11831: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
11832: END default_vendor_trans_del;
11825: END IF;
11826: EXCEPTION
11827: WHEN OTHERS THEN
11828: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
11829: rcv_error_pkg.set_sql_error_message('default_vendor_trans_del', '000');
11830: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
11831: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
11832: END default_vendor_trans_del;
11833:
11826: EXCEPTION
11827: WHEN OTHERS THEN
11828: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
11829: rcv_error_pkg.set_sql_error_message('default_vendor_trans_del', '000');
11830: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
11831: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
11832: END default_vendor_trans_del;
11833:
11834:
11827: WHEN OTHERS THEN
11828: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
11829: rcv_error_pkg.set_sql_error_message('default_vendor_trans_del', '000');
11830: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
11831: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
11832: END default_vendor_trans_del;
11833:
11834:
11835: PROCEDURE derive_correction_line(
11923: END IF;
11924:
11925: IF (l_complex_flag = 'Y') THEN
11926: asn_debug.put_line('We do not support transaction type ' || x_cascaded_table(n).transaction_type || ' for complex work POs');
11927: rcv_error_pkg.set_error_message('RCV_INVALID_TRANSACTION_TYPE');
11928: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE');
11929: End if;
11930:
11931:
11924:
11925: IF (l_complex_flag = 'Y') THEN
11926: asn_debug.put_line('We do not support transaction type ' || x_cascaded_table(n).transaction_type || ' for complex work POs');
11927: rcv_error_pkg.set_error_message('RCV_INVALID_TRANSACTION_TYPE');
11928: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE');
11929: End if;
11930:
11931:
11932: IF x_cascaded_table(n).po_line_id IS NOT NULL THEN
11965: asn_debug.put_line('quantity ' || temp_cascaded_table(n).quantity);
11966: END IF;
11967: EXCEPTION
11968: WHEN OTHERS THEN
11969: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
11970: rcv_error_pkg.set_sql_error_message('derive_correction_line', '000');
11971: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
11972: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
11973: END derive_correction_line;
11966: END IF;
11967: EXCEPTION
11968: WHEN OTHERS THEN
11969: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
11970: rcv_error_pkg.set_sql_error_message('derive_correction_line', '000');
11971: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
11972: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
11973: END derive_correction_line;
11974:
11967: EXCEPTION
11968: WHEN OTHERS THEN
11969: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
11970: rcv_error_pkg.set_sql_error_message('derive_correction_line', '000');
11971: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
11972: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
11973: END derive_correction_line;
11974:
11975: PROCEDURE derive_correction_line_qty(
11968: WHEN OTHERS THEN
11969: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
11970: rcv_error_pkg.set_sql_error_message('derive_correction_line', '000');
11971: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
11972: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
11973: END derive_correction_line;
11974:
11975: PROCEDURE derive_correction_line_qty(
11976: x_cascaded_table IN OUT NOCOPY rcv_roi_preprocessor.cascaded_trans_tab_type,
12259: asn_debug.put_line('Quantity is <= zero. Cascade will fail');
12260: END IF;
12261:
12262: x_cascaded_table(n).error_status := 'F';
12263: rcv_error_pkg.set_error_message('RCV_ENTER_QTY_GT_ZERO', x_cascaded_table(n).error_message);
12264: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
12265: END IF; --} end qty > 0 check
12266:
12267: -- the following steps will create a set of rows linking the line_record with
12260: END IF;
12261:
12262: x_cascaded_table(n).error_status := 'F';
12263: rcv_error_pkg.set_error_message('RCV_ENTER_QTY_GT_ZERO', x_cascaded_table(n).error_message);
12264: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
12265: END IF; --} end qty > 0 check
12266:
12267: -- the following steps will create a set of rows linking the line_record with
12268: -- its corresponding po_line_location rows until the quantity value from
12540: asn_debug.put_line('Header Interface Id ' || TO_CHAR(temp_cascaded_table(current_n).header_interface_id));
12541: asn_debug.put_line('IN Trans Id ' || TO_CHAR(temp_cascaded_table(current_n).interface_transaction_id));
12542: END IF;
12543:
12544: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
12545: rcv_error_pkg.set_error_message('RCV_ENTER_QTY_GT_ZERO', x_cascaded_table(n).error_message);
12546: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
12547: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_quantity);
12548: rcv_error_pkg.log_interface_warning('QUANTITY');
12541: asn_debug.put_line('IN Trans Id ' || TO_CHAR(temp_cascaded_table(current_n).interface_transaction_id));
12542: END IF;
12543:
12544: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
12545: rcv_error_pkg.set_error_message('RCV_ENTER_QTY_GT_ZERO', x_cascaded_table(n).error_message);
12546: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
12547: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_quantity);
12548: rcv_error_pkg.log_interface_warning('QUANTITY');
12549:
12542: END IF;
12543:
12544: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
12545: rcv_error_pkg.set_error_message('RCV_ENTER_QTY_GT_ZERO', x_cascaded_table(n).error_message);
12546: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
12547: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_quantity);
12548: rcv_error_pkg.log_interface_warning('QUANTITY');
12549:
12550: IF (g_asn_debug = 'Y') THEN
12543:
12544: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
12545: rcv_error_pkg.set_error_message('RCV_ENTER_QTY_GT_ZERO', x_cascaded_table(n).error_message);
12546: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
12547: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_quantity);
12548: rcv_error_pkg.log_interface_warning('QUANTITY');
12549:
12550: IF (g_asn_debug = 'Y') THEN
12551: asn_debug.put_line('Error Status ' || temp_cascaded_table(current_n).error_status);
12544: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
12545: rcv_error_pkg.set_error_message('RCV_ENTER_QTY_GT_ZERO', x_cascaded_table(n).error_message);
12546: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
12547: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_quantity);
12548: rcv_error_pkg.log_interface_warning('QUANTITY');
12549:
12550: IF (g_asn_debug = 'Y') THEN
12551: asn_debug.put_line('Error Status ' || temp_cascaded_table(current_n).error_status);
12552: asn_debug.put_line('Error message ' || temp_cascaded_table(current_n).error_message);
12575: IF (g_asn_debug = 'Y') THEN
12576: asn_debug.put_line('delete the temp table ');
12577: END IF;
12578:
12579: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
12580: rcv_error_pkg.set_error_message('RCV_CORRECT_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
12581: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
12582: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_quantity);
12583: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
12576: asn_debug.put_line('delete the temp table ');
12577: END IF;
12578:
12579: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
12580: rcv_error_pkg.set_error_message('RCV_CORRECT_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
12581: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
12582: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_quantity);
12583: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
12584:
12577: END IF;
12578:
12579: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
12580: rcv_error_pkg.set_error_message('RCV_CORRECT_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
12581: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
12582: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_quantity);
12583: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
12584:
12585: IF temp_cascaded_table.COUNT > 0 THEN
12578:
12579: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
12580: rcv_error_pkg.set_error_message('RCV_CORRECT_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
12581: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
12582: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_quantity);
12583: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
12584:
12585: IF temp_cascaded_table.COUNT > 0 THEN
12586: FOR i IN 1 .. temp_cascaded_table.COUNT LOOP
12579: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
12580: rcv_error_pkg.set_error_message('RCV_CORRECT_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
12581: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
12582: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_quantity);
12583: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
12584:
12585: IF temp_cascaded_table.COUNT > 0 THEN
12586: FOR i IN 1 .. temp_cascaded_table.COUNT LOOP
12587: temp_cascaded_table.DELETE(i);
12611:
12612: IF (g_asn_debug = 'Y') THEN
12613: asn_debug.put_line('delete the temp table ');
12614: END IF;
12615: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
12616: rcv_error_pkg.set_error_message('RCV_CORRECT_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
12617: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(current_n).quantity);
12618: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity);
12619: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
12612: IF (g_asn_debug = 'Y') THEN
12613: asn_debug.put_line('delete the temp table ');
12614: END IF;
12615: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
12616: rcv_error_pkg.set_error_message('RCV_CORRECT_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
12617: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(current_n).quantity);
12618: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity);
12619: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
12620:
12613: asn_debug.put_line('delete the temp table ');
12614: END IF;
12615: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
12616: rcv_error_pkg.set_error_message('RCV_CORRECT_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
12617: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(current_n).quantity);
12618: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity);
12619: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
12620:
12621: IF temp_cascaded_table.COUNT > 0 THEN
12614: END IF;
12615: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
12616: rcv_error_pkg.set_error_message('RCV_CORRECT_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
12617: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(current_n).quantity);
12618: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity);
12619: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
12620:
12621: IF temp_cascaded_table.COUNT > 0 THEN
12622: FOR i IN 1 .. temp_cascaded_table.COUNT LOOP
12615: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
12616: rcv_error_pkg.set_error_message('RCV_CORRECT_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
12617: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(current_n).quantity);
12618: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity);
12619: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
12620:
12621: IF temp_cascaded_table.COUNT > 0 THEN
12622: FOR i IN 1 .. temp_cascaded_table.COUNT LOOP
12623: temp_cascaded_table.DELETE(i);
12645: END IF;
12646: END IF;
12647:
12648: x_temp_count := 1;
12649: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
12650:
12651: IF (x_cascaded_table(n).parent_transaction_id IS NOT NULL) THEN --{
12652: /* Give an error just like it is done for the
12653: * the receipt transaction;
12667:
12668: IF (l_transaction_type = 'DELIVER') THEN --{
12669: IF ( l_destination_type_code = 'INVENTORY'
12670: OR l_source_document_code IN('REQ', 'INVENTORY', 'RMA')) THEN
12671: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
12672: rcv_error_pkg.set_error_message('RCV_INVAL_SOURCE_DOC_FOR_DEL', x_cascaded_table(n).error_message);
12673: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
12674: END IF;
12675: END IF; --}
12668: IF (l_transaction_type = 'DELIVER') THEN --{
12669: IF ( l_destination_type_code = 'INVENTORY'
12670: OR l_source_document_code IN('REQ', 'INVENTORY', 'RMA')) THEN
12671: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
12672: rcv_error_pkg.set_error_message('RCV_INVAL_SOURCE_DOC_FOR_DEL', x_cascaded_table(n).error_message);
12673: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
12674: END IF;
12675: END IF; --}
12676:
12669: IF ( l_destination_type_code = 'INVENTORY'
12670: OR l_source_document_code IN('REQ', 'INVENTORY', 'RMA')) THEN
12671: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
12672: rcv_error_pkg.set_error_message('RCV_INVAL_SOURCE_DOC_FOR_DEL', x_cascaded_table(n).error_message);
12673: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
12674: END IF;
12675: END IF; --}
12676:
12677: IF (l_transaction_type = 'UNORDERED') THEN --{
12687: WHERE rti.parent_transaction_id = temp_cascaded_table(current_n).parent_transaction_id
12688: AND rti.transaction_type = 'MATCH';
12689:
12690: IF l_exist = 'record_exist' THEN --{
12691: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
12692: rcv_error_pkg.set_error_message('RCV_PROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
12693: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
12694: END IF; --}
12695:
12688: AND rti.transaction_type = 'MATCH';
12689:
12690: IF l_exist = 'record_exist' THEN --{
12691: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
12692: rcv_error_pkg.set_error_message('RCV_PROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
12693: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
12694: END IF; --}
12695:
12696: IF l_exist1 = 'record_exist' THEN --{
12689:
12690: IF l_exist = 'record_exist' THEN --{
12691: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
12692: rcv_error_pkg.set_error_message('RCV_PROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
12693: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
12694: END IF; --}
12695:
12696: IF l_exist1 = 'record_exist' THEN --{
12697: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
12693: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
12694: END IF; --}
12695:
12696: IF l_exist1 = 'record_exist' THEN --{
12697: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
12698: rcv_error_pkg.set_error_message('RCV_UNPROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
12699: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
12700: END IF; --}
12701: END IF; --}
12694: END IF; --}
12695:
12696: IF l_exist1 = 'record_exist' THEN --{
12697: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
12698: rcv_error_pkg.set_error_message('RCV_UNPROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
12699: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
12700: END IF; --}
12701: END IF; --}
12702:
12695:
12696: IF l_exist1 = 'record_exist' THEN --{
12697: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
12698: rcv_error_pkg.set_error_message('RCV_UNPROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
12699: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
12700: END IF; --}
12701: END IF; --}
12702:
12703: IF (l_transaction_type = 'RETURN TO VENDOR') THEN --{
12719: AND rti.transaction_type = 'MATCH'
12720: AND rti.parent_transaction_id = rt2.transaction_id;
12721:
12722: IF l_exist = 'record_exist' THEN --{
12723: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
12724: rcv_error_pkg.set_error_message('RCV_RET_PROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
12725: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
12726: END IF; --}
12727:
12720: AND rti.parent_transaction_id = rt2.transaction_id;
12721:
12722: IF l_exist = 'record_exist' THEN --{
12723: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
12724: rcv_error_pkg.set_error_message('RCV_RET_PROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
12725: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
12726: END IF; --}
12727:
12728: IF l_exist1 = 'record_exist' THEN --{
12721:
12722: IF l_exist = 'record_exist' THEN --{
12723: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
12724: rcv_error_pkg.set_error_message('RCV_RET_PROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
12725: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
12726: END IF; --}
12727:
12728: IF l_exist1 = 'record_exist' THEN --{
12729: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
12725: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
12726: END IF; --}
12727:
12728: IF l_exist1 = 'record_exist' THEN --{
12729: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
12730: rcv_error_pkg.set_error_message('RCV_RET_UNPROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
12731: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
12732: END IF; --}
12733: END IF; --}
12726: END IF; --}
12727:
12728: IF l_exist1 = 'record_exist' THEN --{
12729: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
12730: rcv_error_pkg.set_error_message('RCV_RET_UNPROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
12731: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
12732: END IF; --}
12733: END IF; --}
12734:
12727:
12728: IF l_exist1 = 'record_exist' THEN --{
12729: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
12730: rcv_error_pkg.set_error_message('RCV_RET_UNPROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
12731: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
12732: END IF; --}
12733: END IF; --}
12734:
12735: SELECT MAX('record_exist')
12739: AND ( NVL(pll.cancel_flag, 'N') = 'Y'
12740: OR NVL(pll.closed_code, 'OPEN') = 'FINALLY CLOSED');
12741:
12742: IF l_exist2 = 'record_exist' THEN
12743: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
12744: rcv_error_pkg.set_error_message('RCV_PO_SHIPMENT_CANCELLED', x_cascaded_table(n).error_message);
12745: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
12746: END IF;
12747: END IF; --}
12740: OR NVL(pll.closed_code, 'OPEN') = 'FINALLY CLOSED');
12741:
12742: IF l_exist2 = 'record_exist' THEN
12743: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
12744: rcv_error_pkg.set_error_message('RCV_PO_SHIPMENT_CANCELLED', x_cascaded_table(n).error_message);
12745: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
12746: END IF;
12747: END IF; --}
12748:
12741:
12742: IF l_exist2 = 'record_exist' THEN
12743: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
12744: rcv_error_pkg.set_error_message('RCV_PO_SHIPMENT_CANCELLED', x_cascaded_table(n).error_message);
12745: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
12746: END IF;
12747: END IF; --}
12748:
12749: -- Delete the temp_cascaded_table just to be sure
13075: asn_debug.put_line('Status = ' || x_cascaded_table(n).error_status);
13076: END IF;
13077:
13078: IF x_cascaded_table(n).error_status IN('S', 'W', 'F') THEN --{
13079: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13080:
13081: IF (x_cascaded_table(n).error_message IS NULL) THEN
13082: rcv_error_pkg.set_error_message('RCV_NO_PARENT_TRANSACTION', x_cascaded_table(n).error_message);
13083: END IF;
13078: IF x_cascaded_table(n).error_status IN('S', 'W', 'F') THEN --{
13079: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13080:
13081: IF (x_cascaded_table(n).error_message IS NULL) THEN
13082: rcv_error_pkg.set_error_message('RCV_NO_PARENT_TRANSACTION', x_cascaded_table(n).error_message);
13083: END IF;
13084:
13085: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID');
13086: END IF; --}
13081: IF (x_cascaded_table(n).error_message IS NULL) THEN
13082: rcv_error_pkg.set_error_message('RCV_NO_PARENT_TRANSACTION', x_cascaded_table(n).error_message);
13083: END IF;
13084:
13085: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID');
13086: END IF; --}
13087:
13088: RETURN;
13089: END IF; -- } of (asn quantity_shipped was valid)
13117: IF po_correct_rti%ISOPEN THEN
13118: CLOSE po_correct_rti;
13119: END IF;
13120:
13121: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
13122: rcv_error_pkg.set_sql_error_message('derive_correction_line_qty', x_progress);
13123: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
13124: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
13125:
13118: CLOSE po_correct_rti;
13119: END IF;
13120:
13121: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
13122: rcv_error_pkg.set_sql_error_message('derive_correction_line_qty', x_progress);
13123: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
13124: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
13125:
13126: IF (g_asn_debug = 'Y') THEN
13119: END IF;
13120:
13121: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
13122: rcv_error_pkg.set_sql_error_message('derive_correction_line_qty', x_progress);
13123: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
13124: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
13125:
13126: IF (g_asn_debug = 'Y') THEN
13127: asn_debug.put_line(TO_CHAR(n));
13120:
13121: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
13122: rcv_error_pkg.set_sql_error_message('derive_correction_line_qty', x_progress);
13123: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
13124: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
13125:
13126: IF (g_asn_debug = 'Y') THEN
13127: asn_debug.put_line(TO_CHAR(n));
13128: asn_debug.put_line(SQLERRM);
13367: asn_debug.put_line('Amount is <= zero. Cascade will fail');
13368: END IF;
13369:
13370: x_cascaded_table(n).error_status := 'F';
13371: rcv_error_pkg.set_error_message('RCV_ENTER_QTY_GT_ZERO', x_cascaded_table(n).error_message);
13372: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
13373: END IF; --} end qty > 0 check
13374: */
13375: -- the following steps will create a set of rows linking the line_record with
13368: END IF;
13369:
13370: x_cascaded_table(n).error_status := 'F';
13371: rcv_error_pkg.set_error_message('RCV_ENTER_QTY_GT_ZERO', x_cascaded_table(n).error_message);
13372: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
13373: END IF; --} end qty > 0 check
13374: */
13375: -- the following steps will create a set of rows linking the line_record with
13376: -- its corresponding po_line_location rows until the quantity value from
13566: IF (g_asn_debug = 'Y') THEN
13567: asn_debug.put_line('We do not support RATE/TEMP LABOR through ROI unless it comes through OTL');
13568: END IF;
13569:
13570: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13571: rcv_error_pkg.set_error_message('RCV_NO_RATE_UNLESS_OTL', x_cascaded_table(n).error_message);
13572: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE', FALSE);
13573: END IF; --}
13574: END IF; --}
13567: asn_debug.put_line('We do not support RATE/TEMP LABOR through ROI unless it comes through OTL');
13568: END IF;
13569:
13570: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13571: rcv_error_pkg.set_error_message('RCV_NO_RATE_UNLESS_OTL', x_cascaded_table(n).error_message);
13572: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE', FALSE);
13573: END IF; --}
13574: END IF; --}
13575:
13568: END IF;
13569:
13570: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13571: rcv_error_pkg.set_error_message('RCV_NO_RATE_UNLESS_OTL', x_cascaded_table(n).error_message);
13572: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE', FALSE);
13573: END IF; --}
13574: END IF; --}
13575:
13576: IF (lastrecord) THEN --{
13664: asn_debug.put_line('Header Interface Id ' || TO_CHAR(temp_cascaded_table(current_n).header_interface_id));
13665: asn_debug.put_line('IN Trans Id ' || TO_CHAR(temp_cascaded_table(current_n).interface_transaction_id));
13666: END IF;
13667:
13668: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
13669: rcv_error_pkg.set_error_message('RCV_ALL_AMT_OVER_TOLERANCE', x_cascaded_table(n).error_message);
13670: rcv_error_pkg.set_token('AMT_A', temp_cascaded_table(current_n).amount);
13671: rcv_error_pkg.set_token('AMT_B', temp_cascaded_table(current_n).amount - x_remaining_amount);
13672: rcv_error_pkg.log_interface_warning('AMOUNT');
13665: asn_debug.put_line('IN Trans Id ' || TO_CHAR(temp_cascaded_table(current_n).interface_transaction_id));
13666: END IF;
13667:
13668: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
13669: rcv_error_pkg.set_error_message('RCV_ALL_AMT_OVER_TOLERANCE', x_cascaded_table(n).error_message);
13670: rcv_error_pkg.set_token('AMT_A', temp_cascaded_table(current_n).amount);
13671: rcv_error_pkg.set_token('AMT_B', temp_cascaded_table(current_n).amount - x_remaining_amount);
13672: rcv_error_pkg.log_interface_warning('AMOUNT');
13673:
13666: END IF;
13667:
13668: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
13669: rcv_error_pkg.set_error_message('RCV_ALL_AMT_OVER_TOLERANCE', x_cascaded_table(n).error_message);
13670: rcv_error_pkg.set_token('AMT_A', temp_cascaded_table(current_n).amount);
13671: rcv_error_pkg.set_token('AMT_B', temp_cascaded_table(current_n).amount - x_remaining_amount);
13672: rcv_error_pkg.log_interface_warning('AMOUNT');
13673:
13674: IF (g_asn_debug = 'Y') THEN
13667:
13668: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
13669: rcv_error_pkg.set_error_message('RCV_ALL_AMT_OVER_TOLERANCE', x_cascaded_table(n).error_message);
13670: rcv_error_pkg.set_token('AMT_A', temp_cascaded_table(current_n).amount);
13671: rcv_error_pkg.set_token('AMT_B', temp_cascaded_table(current_n).amount - x_remaining_amount);
13672: rcv_error_pkg.log_interface_warning('AMOUNT');
13673:
13674: IF (g_asn_debug = 'Y') THEN
13675: asn_debug.put_line('Error Status ' || temp_cascaded_table(current_n).error_status);
13668: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
13669: rcv_error_pkg.set_error_message('RCV_ALL_AMT_OVER_TOLERANCE', x_cascaded_table(n).error_message);
13670: rcv_error_pkg.set_token('AMT_A', temp_cascaded_table(current_n).amount);
13671: rcv_error_pkg.set_token('AMT_B', temp_cascaded_table(current_n).amount - x_remaining_amount);
13672: rcv_error_pkg.log_interface_warning('AMOUNT');
13673:
13674: IF (g_asn_debug = 'Y') THEN
13675: asn_debug.put_line('Error Status ' || temp_cascaded_table(current_n).error_status);
13676: asn_debug.put_line('Error message ' || temp_cascaded_table(current_n).error_message);
13695: IF (g_asn_debug = 'Y') THEN
13696: asn_debug.put_line('delete the temp table ');
13697: END IF;
13698:
13699: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13700: rcv_error_pkg.set_error_message('RCV_CORRECT_AMT_OVER_TOLERANCE', x_cascaded_table(n).error_message);
13701: rcv_error_pkg.set_token('AMT_A', temp_cascaded_table(current_n).amount);
13702: rcv_error_pkg.set_token('AMT_B', temp_cascaded_table(current_n).amount - x_remaining_amount);
13703: rcv_error_pkg.log_interface_error('AMOUNT', FALSE);
13696: asn_debug.put_line('delete the temp table ');
13697: END IF;
13698:
13699: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13700: rcv_error_pkg.set_error_message('RCV_CORRECT_AMT_OVER_TOLERANCE', x_cascaded_table(n).error_message);
13701: rcv_error_pkg.set_token('AMT_A', temp_cascaded_table(current_n).amount);
13702: rcv_error_pkg.set_token('AMT_B', temp_cascaded_table(current_n).amount - x_remaining_amount);
13703: rcv_error_pkg.log_interface_error('AMOUNT', FALSE);
13704: temp_cascaded_table.DELETE;
13697: END IF;
13698:
13699: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13700: rcv_error_pkg.set_error_message('RCV_CORRECT_AMT_OVER_TOLERANCE', x_cascaded_table(n).error_message);
13701: rcv_error_pkg.set_token('AMT_A', temp_cascaded_table(current_n).amount);
13702: rcv_error_pkg.set_token('AMT_B', temp_cascaded_table(current_n).amount - x_remaining_amount);
13703: rcv_error_pkg.log_interface_error('AMOUNT', FALSE);
13704: temp_cascaded_table.DELETE;
13705:
13698:
13699: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13700: rcv_error_pkg.set_error_message('RCV_CORRECT_AMT_OVER_TOLERANCE', x_cascaded_table(n).error_message);
13701: rcv_error_pkg.set_token('AMT_A', temp_cascaded_table(current_n).amount);
13702: rcv_error_pkg.set_token('AMT_B', temp_cascaded_table(current_n).amount - x_remaining_amount);
13703: rcv_error_pkg.log_interface_error('AMOUNT', FALSE);
13704: temp_cascaded_table.DELETE;
13705:
13706: IF (g_asn_debug = 'Y') THEN
13699: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13700: rcv_error_pkg.set_error_message('RCV_CORRECT_AMT_OVER_TOLERANCE', x_cascaded_table(n).error_message);
13701: rcv_error_pkg.set_token('AMT_A', temp_cascaded_table(current_n).amount);
13702: rcv_error_pkg.set_token('AMT_B', temp_cascaded_table(current_n).amount - x_remaining_amount);
13703: rcv_error_pkg.log_interface_error('AMOUNT', FALSE);
13704: temp_cascaded_table.DELETE;
13705:
13706: IF (g_asn_debug = 'Y') THEN
13707: asn_debug.put_line('mark the actual table with error status');
13724: asn_debug.put_line(' in correct extra amount ' || TO_CHAR(x_remaining_amount));
13725: asn_debug.put_line('delete the temp table ');
13726: END IF;
13727:
13728: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13729: rcv_error_pkg.set_error_message('RCV_CORRECT_AMT_OVER_TOLERANCE', x_cascaded_table(n).error_message);
13730: rcv_error_pkg.set_token('AMT_A', temp_cascaded_table(current_n).amount);
13731: rcv_error_pkg.set_token('AMT_B', temp_cascaded_table(current_n).amount - x_remaining_amount);
13732: rcv_error_pkg.log_interface_error('AMOUNT', FALSE);
13725: asn_debug.put_line('delete the temp table ');
13726: END IF;
13727:
13728: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13729: rcv_error_pkg.set_error_message('RCV_CORRECT_AMT_OVER_TOLERANCE', x_cascaded_table(n).error_message);
13730: rcv_error_pkg.set_token('AMT_A', temp_cascaded_table(current_n).amount);
13731: rcv_error_pkg.set_token('AMT_B', temp_cascaded_table(current_n).amount - x_remaining_amount);
13732: rcv_error_pkg.log_interface_error('AMOUNT', FALSE);
13733: temp_cascaded_table.DELETE;
13726: END IF;
13727:
13728: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13729: rcv_error_pkg.set_error_message('RCV_CORRECT_AMT_OVER_TOLERANCE', x_cascaded_table(n).error_message);
13730: rcv_error_pkg.set_token('AMT_A', temp_cascaded_table(current_n).amount);
13731: rcv_error_pkg.set_token('AMT_B', temp_cascaded_table(current_n).amount - x_remaining_amount);
13732: rcv_error_pkg.log_interface_error('AMOUNT', FALSE);
13733: temp_cascaded_table.DELETE;
13734:
13727:
13728: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13729: rcv_error_pkg.set_error_message('RCV_CORRECT_AMT_OVER_TOLERANCE', x_cascaded_table(n).error_message);
13730: rcv_error_pkg.set_token('AMT_A', temp_cascaded_table(current_n).amount);
13731: rcv_error_pkg.set_token('AMT_B', temp_cascaded_table(current_n).amount - x_remaining_amount);
13732: rcv_error_pkg.log_interface_error('AMOUNT', FALSE);
13733: temp_cascaded_table.DELETE;
13734:
13735: IF (g_asn_debug = 'Y') THEN
13728: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13729: rcv_error_pkg.set_error_message('RCV_CORRECT_AMT_OVER_TOLERANCE', x_cascaded_table(n).error_message);
13730: rcv_error_pkg.set_token('AMT_A', temp_cascaded_table(current_n).amount);
13731: rcv_error_pkg.set_token('AMT_B', temp_cascaded_table(current_n).amount - x_remaining_amount);
13732: rcv_error_pkg.log_interface_error('AMOUNT', FALSE);
13733: temp_cascaded_table.DELETE;
13734:
13735: IF (g_asn_debug = 'Y') THEN
13736: asn_debug.put_line('mark the actual table with error status');
13750: END IF;
13751: END IF;
13752:
13753: x_temp_count := 1;
13754: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13755:
13756: IF (x_cascaded_table(n).parent_transaction_id IS NOT NULL) THEN --{
13757: /* Give an error just like it is done for the
13758: * the receipt transaction;
13772:
13773: IF (l_transaction_type = 'DELIVER') THEN --{
13774: IF ( l_destination_type_code = 'INVENTORY'
13775: OR l_source_document_code IN('REQ', 'INVENTORY', 'RMA')) THEN
13776: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13777: rcv_error_pkg.set_error_message('RCV_INVAL_SOURCE_DOC_FOR_DEL', x_cascaded_table(n).error_message);
13778: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
13779: END IF;
13780: END IF; --}
13773: IF (l_transaction_type = 'DELIVER') THEN --{
13774: IF ( l_destination_type_code = 'INVENTORY'
13775: OR l_source_document_code IN('REQ', 'INVENTORY', 'RMA')) THEN
13776: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13777: rcv_error_pkg.set_error_message('RCV_INVAL_SOURCE_DOC_FOR_DEL', x_cascaded_table(n).error_message);
13778: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
13779: END IF;
13780: END IF; --}
13781:
13774: IF ( l_destination_type_code = 'INVENTORY'
13775: OR l_source_document_code IN('REQ', 'INVENTORY', 'RMA')) THEN
13776: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13777: rcv_error_pkg.set_error_message('RCV_INVAL_SOURCE_DOC_FOR_DEL', x_cascaded_table(n).error_message);
13778: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
13779: END IF;
13780: END IF; --}
13781:
13782: IF (l_transaction_type = 'UNORDERED') THEN --{
13792: WHERE rti.parent_transaction_id = temp_cascaded_table(current_n).parent_transaction_id
13793: AND rti.transaction_type = 'MATCH';
13794:
13795: IF l_exist = 'record_exist' THEN --{
13796: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13797: rcv_error_pkg.set_error_message('RCV_PROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
13798: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
13799: END IF; --}
13800:
13793: AND rti.transaction_type = 'MATCH';
13794:
13795: IF l_exist = 'record_exist' THEN --{
13796: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13797: rcv_error_pkg.set_error_message('RCV_PROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
13798: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
13799: END IF; --}
13800:
13801: IF l_exist1 = 'record_exist' THEN --{
13794:
13795: IF l_exist = 'record_exist' THEN --{
13796: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13797: rcv_error_pkg.set_error_message('RCV_PROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
13798: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
13799: END IF; --}
13800:
13801: IF l_exist1 = 'record_exist' THEN --{
13802: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13798: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
13799: END IF; --}
13800:
13801: IF l_exist1 = 'record_exist' THEN --{
13802: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13803: rcv_error_pkg.set_error_message('RCV_UNPROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
13804: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
13805: END IF; --}
13806: END IF; --}
13799: END IF; --}
13800:
13801: IF l_exist1 = 'record_exist' THEN --{
13802: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13803: rcv_error_pkg.set_error_message('RCV_UNPROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
13804: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
13805: END IF; --}
13806: END IF; --}
13807:
13800:
13801: IF l_exist1 = 'record_exist' THEN --{
13802: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13803: rcv_error_pkg.set_error_message('RCV_UNPROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
13804: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
13805: END IF; --}
13806: END IF; --}
13807:
13808: IF (l_transaction_type = 'RETURN TO VENDOR') THEN --{
13824: AND rti.transaction_type = 'MATCH'
13825: AND rti.parent_transaction_id = rt2.transaction_id;
13826:
13827: IF l_exist = 'record_exist' THEN --{
13828: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13829: rcv_error_pkg.set_error_message('RCV_RET_PROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
13830: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
13831: END IF; --}
13832:
13825: AND rti.parent_transaction_id = rt2.transaction_id;
13826:
13827: IF l_exist = 'record_exist' THEN --{
13828: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13829: rcv_error_pkg.set_error_message('RCV_RET_PROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
13830: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
13831: END IF; --}
13832:
13833: IF l_exist1 = 'record_exist' THEN --{
13826:
13827: IF l_exist = 'record_exist' THEN --{
13828: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13829: rcv_error_pkg.set_error_message('RCV_RET_PROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
13830: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
13831: END IF; --}
13832:
13833: IF l_exist1 = 'record_exist' THEN --{
13834: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13830: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
13831: END IF; --}
13832:
13833: IF l_exist1 = 'record_exist' THEN --{
13834: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13835: rcv_error_pkg.set_error_message('RCV_RET_UNPROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
13836: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
13837: END IF; --}
13838: END IF; --}
13831: END IF; --}
13832:
13833: IF l_exist1 = 'record_exist' THEN --{
13834: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13835: rcv_error_pkg.set_error_message('RCV_RET_UNPROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
13836: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
13837: END IF; --}
13838: END IF; --}
13839:
13832:
13833: IF l_exist1 = 'record_exist' THEN --{
13834: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13835: rcv_error_pkg.set_error_message('RCV_RET_UNPROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
13836: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
13837: END IF; --}
13838: END IF; --}
13839:
13840: SELECT MAX('record_exist')
13844: AND ( NVL(pll.cancel_flag, 'N') = 'Y'
13845: OR NVL(pll.closed_code, 'OPEN') = 'FINALLY CLOSED');
13846:
13847: IF l_exist2 = 'record_exist' THEN
13848: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13849: rcv_error_pkg.set_error_message('RCV_PO_SHIPMENT_CANCELLED', x_cascaded_table(n).error_message);
13850: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
13851: END IF;
13852: END IF; --}
13845: OR NVL(pll.closed_code, 'OPEN') = 'FINALLY CLOSED');
13846:
13847: IF l_exist2 = 'record_exist' THEN
13848: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13849: rcv_error_pkg.set_error_message('RCV_PO_SHIPMENT_CANCELLED', x_cascaded_table(n).error_message);
13850: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
13851: END IF;
13852: END IF; --}
13853:
13846:
13847: IF l_exist2 = 'record_exist' THEN
13848: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13849: rcv_error_pkg.set_error_message('RCV_PO_SHIPMENT_CANCELLED', x_cascaded_table(n).error_message);
13850: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
13851: END IF;
13852: END IF; --}
13853:
13854: -- Delete the temp_cascaded_table just to be sure
14084: asn_debug.put_line('Status = ' || x_cascaded_table(n).error_status);
14085: END IF;
14086:
14087: IF x_cascaded_table(n).error_status IN('S', 'W', 'F') THEN --{
14088: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
14089:
14090: IF (x_cascaded_table(n).error_message IS NULL) THEN
14091: rcv_error_pkg.set_error_message('RCV_NO_PARENT_TRANSACTION', x_cascaded_table(n).error_message);
14092: END IF;
14087: IF x_cascaded_table(n).error_status IN('S', 'W', 'F') THEN --{
14088: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
14089:
14090: IF (x_cascaded_table(n).error_message IS NULL) THEN
14091: rcv_error_pkg.set_error_message('RCV_NO_PARENT_TRANSACTION', x_cascaded_table(n).error_message);
14092: END IF;
14093:
14094: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID');
14095: END IF; --}
14090: IF (x_cascaded_table(n).error_message IS NULL) THEN
14091: rcv_error_pkg.set_error_message('RCV_NO_PARENT_TRANSACTION', x_cascaded_table(n).error_message);
14092: END IF;
14093:
14094: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID');
14095: END IF; --}
14096:
14097: RETURN;
14098: END IF; -- } of (asn quantity_shipped was valid)
14125: IF po_correct_rti%ISOPEN THEN
14126: CLOSE po_correct_rti;
14127: END IF;
14128:
14129: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
14130: rcv_error_pkg.set_sql_error_message('derive_correction_line_amt', x_progress);
14131: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
14132: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
14133:
14126: CLOSE po_correct_rti;
14127: END IF;
14128:
14129: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
14130: rcv_error_pkg.set_sql_error_message('derive_correction_line_amt', x_progress);
14131: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
14132: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
14133:
14134: IF (g_asn_debug = 'Y') THEN
14127: END IF;
14128:
14129: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
14130: rcv_error_pkg.set_sql_error_message('derive_correction_line_amt', x_progress);
14131: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
14132: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
14133:
14134: IF (g_asn_debug = 'Y') THEN
14135: asn_debug.put_line(TO_CHAR(n));
14128:
14129: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
14130: rcv_error_pkg.set_sql_error_message('derive_correction_line_amt', x_progress);
14131: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
14132: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
14133:
14134: IF (g_asn_debug = 'Y') THEN
14135: asn_debug.put_line(TO_CHAR(n));
14136: asn_debug.put_line(SQLERRM);
14509: CLOSE po_correct_rti;
14510: END IF;
14511: EXCEPTION
14512: WHEN OTHERS THEN
14513: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
14514: rcv_error_pkg.set_sql_error_message('default_vendor_correct', x_progress);
14515: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
14516: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
14517: END default_vendor_correct;
14510: END IF;
14511: EXCEPTION
14512: WHEN OTHERS THEN
14513: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
14514: rcv_error_pkg.set_sql_error_message('default_vendor_correct', x_progress);
14515: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
14516: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
14517: END default_vendor_correct;
14518:
14511: EXCEPTION
14512: WHEN OTHERS THEN
14513: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
14514: rcv_error_pkg.set_sql_error_message('default_vendor_correct', x_progress);
14515: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
14516: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
14517: END default_vendor_correct;
14518:
14519: FUNCTION convert_into_correct_qty(
14512: WHEN OTHERS THEN
14513: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
14514: rcv_error_pkg.set_sql_error_message('default_vendor_correct', x_progress);
14515: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
14516: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
14517: END default_vendor_correct;
14518:
14519: FUNCTION convert_into_correct_qty(
14520: source_qty IN NUMBER,
14583:
14584: rcv_transactions_interface_sv1.validate_po_lookup_code(po_lookup_code_record);
14585: x_cascaded_table(n).error_status := po_lookup_code_record.error_record.error_status;
14586: x_cascaded_table(n).error_message := po_lookup_code_record.error_record.error_message;
14587: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
14588: 'SOURCE_TYPE_CODE',
14589: FALSE
14590: );
14591: END IF;
14590: );
14591: END IF;
14592: EXCEPTION
14593: WHEN OTHERS THEN
14594: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
14595: rcv_error_pkg.set_sql_error_message('validate_source_type', '000');
14596: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
14597: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
14598: END validate_source_type;
14591: END IF;
14592: EXCEPTION
14593: WHEN OTHERS THEN
14594: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
14595: rcv_error_pkg.set_sql_error_message('validate_source_type', '000');
14596: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
14597: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
14598: END validate_source_type;
14599:
14592: EXCEPTION
14593: WHEN OTHERS THEN
14594: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
14595: rcv_error_pkg.set_sql_error_message('validate_source_type', '000');
14596: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
14597: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
14598: END validate_source_type;
14599:
14600: PROCEDURE validate_transaction_type(
14593: WHEN OTHERS THEN
14594: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
14595: rcv_error_pkg.set_sql_error_message('validate_source_type', '000');
14596: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
14597: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
14598: END validate_source_type;
14599:
14600: PROCEDURE validate_transaction_type(
14601: x_cascaded_table IN OUT NOCOPY rcv_roi_preprocessor.cascaded_trans_tab_type,
14619:
14620: rcv_transactions_interface_sv1.validate_po_lookup_code(po_lookup_code_record);
14621: x_cascaded_table(n).error_status := po_lookup_code_record.error_record.error_status;
14622: x_cascaded_table(n).error_message := po_lookup_code_record.error_record.error_message;
14623: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
14624: 'TRANSACTION_TYPE_CODE',
14625: FALSE
14626: );
14627: END IF; --}
14626: );
14627: END IF; --}
14628: EXCEPTION
14629: WHEN OTHERS THEN
14630: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
14631: rcv_error_pkg.set_sql_error_message('validate_transaction_type', '000');
14632: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
14633: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
14634: END validate_transaction_type;
14627: END IF; --}
14628: EXCEPTION
14629: WHEN OTHERS THEN
14630: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
14631: rcv_error_pkg.set_sql_error_message('validate_transaction_type', '000');
14632: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
14633: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
14634: END validate_transaction_type;
14635:
14628: EXCEPTION
14629: WHEN OTHERS THEN
14630: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
14631: rcv_error_pkg.set_sql_error_message('validate_transaction_type', '000');
14632: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
14633: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
14634: END validate_transaction_type;
14635:
14636: PROCEDURE validate_inspection_status(
14629: WHEN OTHERS THEN
14630: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
14631: rcv_error_pkg.set_sql_error_message('validate_transaction_type', '000');
14632: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
14633: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
14634: END validate_transaction_type;
14635:
14636: PROCEDURE validate_inspection_status(
14637: x_cascaded_table IN OUT NOCOPY rcv_roi_preprocessor.cascaded_trans_tab_type,
14655:
14656: rcv_transactions_interface_sv1.validate_po_lookup_code(po_lookup_code_record);
14657: x_cascaded_table(n).error_status := po_lookup_code_record.error_record.error_status;
14658: x_cascaded_table(n).error_message := po_lookup_code_record.error_record.error_message;
14659: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
14660: 'INSPECTION_STATUS_CODE',
14661: FALSE
14662: );
14663: END IF; --}
14662: );
14663: END IF; --}
14664: EXCEPTION
14665: WHEN OTHERS THEN
14666: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
14667: rcv_error_pkg.set_sql_error_message('validate_inspection_status', '000');
14668: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
14669: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
14670: END validate_inspection_status;
14663: END IF; --}
14664: EXCEPTION
14665: WHEN OTHERS THEN
14666: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
14667: rcv_error_pkg.set_sql_error_message('validate_inspection_status', '000');
14668: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
14669: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
14670: END validate_inspection_status;
14671:
14664: EXCEPTION
14665: WHEN OTHERS THEN
14666: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
14667: rcv_error_pkg.set_sql_error_message('validate_inspection_status', '000');
14668: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
14669: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
14670: END validate_inspection_status;
14671:
14672: /** OPM change Bug# 3061052**/
14665: WHEN OTHERS THEN
14666: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
14667: rcv_error_pkg.set_sql_error_message('validate_inspection_status', '000');
14668: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
14669: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
14670: END validate_inspection_status;
14671:
14672: /** OPM change Bug# 3061052**/
14673: -- added validate_opm_attributes to validate OPM specific columns.
14869:
14870: /* INVCONV , remove the following error handling.Introduced new error handling below*/
14871: /*
14872: IF x_cascaded_table(n).error_status NOT IN('S', 'W') THEN
14873: rcv_error_pkg.set_error_message(x_cascaded_table(n).error_message);
14874:
14875: IF (x_cascaded_table(n).error_message = 'PO_PDOI_INVALID_UOM_CODE') THEN
14876: rcv_error_pkg.set_token('VALUE', x_cascaded_table(n).secondary_uom_code);
14877: END IF;
14872: IF x_cascaded_table(n).error_status NOT IN('S', 'W') THEN
14873: rcv_error_pkg.set_error_message(x_cascaded_table(n).error_message);
14874:
14875: IF (x_cascaded_table(n).error_message = 'PO_PDOI_INVALID_UOM_CODE') THEN
14876: rcv_error_pkg.set_token('VALUE', x_cascaded_table(n).secondary_uom_code);
14877: END IF;
14878: END IF;
14879:
14880: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'SECONDARY_UOM_CODE');
14876: rcv_error_pkg.set_token('VALUE', x_cascaded_table(n).secondary_uom_code);
14877: END IF;
14878: END IF;
14879:
14880: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'SECONDARY_UOM_CODE');
14881:
14882: */
14883: /* error handling , INVCONV*/
14884: x_cascaded_table(n).error_status := l_att_rec.error_record.error_status;
14897: asn_debug.put_line('RCV_TRANSACTIONS_INTERFACE_SV1.VALIDATE_SECONDARY_PARAMETERS call failed');
14898: END IF;
14899:
14900: /*log error in po_interface_errors*/
14901: rcv_error_pkg.log_interface_message(
14902: x_cascaded_table(n).error_status,
14903: 'Secondary Parameter',
14904: FALSE
14905: );
14935: end , INVCONV */
14936:
14937:
14938: EXCEPTION
14939: WHEN rcv_error_pkg.e_fatal_error THEN
14940: NULL;
14941: WHEN OTHERS THEN
14942: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
14943: rcv_error_pkg.set_sql_error_message('log_interface_error', '000');
14938: EXCEPTION
14939: WHEN rcv_error_pkg.e_fatal_error THEN
14940: NULL;
14941: WHEN OTHERS THEN
14942: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
14943: rcv_error_pkg.set_sql_error_message('log_interface_error', '000');
14944: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
14945: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
14946: END validate_opm_attributes;
14939: WHEN rcv_error_pkg.e_fatal_error THEN
14940: NULL;
14941: WHEN OTHERS THEN
14942: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
14943: rcv_error_pkg.set_sql_error_message('log_interface_error', '000');
14944: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
14945: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
14946: END validate_opm_attributes;
14947:
14940: NULL;
14941: WHEN OTHERS THEN
14942: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
14943: rcv_error_pkg.set_sql_error_message('log_interface_error', '000');
14944: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
14945: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
14946: END validate_opm_attributes;
14947:
14948:
14941: WHEN OTHERS THEN
14942: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
14943: rcv_error_pkg.set_sql_error_message('log_interface_error', '000');
14944: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
14945: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
14946: END validate_opm_attributes;
14947:
14948:
14949: PROCEDURE get_interface_available_qty(
15023: x_interface_qty := NVL(x_interface_qty, 0);
15024: EXCEPTION
15025: WHEN OTHERS THEN
15026: x_interface_qty := 0;
15027: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
15028: rcv_error_pkg.set_sql_error_message('get_interface_available_qty', '000');
15029: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
15030: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
15031: END get_interface_available_qty;
15024: EXCEPTION
15025: WHEN OTHERS THEN
15026: x_interface_qty := 0;
15027: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
15028: rcv_error_pkg.set_sql_error_message('get_interface_available_qty', '000');
15029: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
15030: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
15031: END get_interface_available_qty;
15032:
15025: WHEN OTHERS THEN
15026: x_interface_qty := 0;
15027: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
15028: rcv_error_pkg.set_sql_error_message('get_interface_available_qty', '000');
15029: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
15030: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
15031: END get_interface_available_qty;
15032:
15033: PROCEDURE get_interface_available_amt(
15026: x_interface_qty := 0;
15027: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
15028: rcv_error_pkg.set_sql_error_message('get_interface_available_qty', '000');
15029: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
15030: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
15031: END get_interface_available_qty;
15032:
15033: PROCEDURE get_interface_available_amt(
15034: x_cascaded_table IN OUT NOCOPY rcv_roi_preprocessor.cascaded_trans_tab_type,
15093: x_interface_amt := NVL(x_interface_amt, 0);
15094: EXCEPTION
15095: WHEN OTHERS THEN
15096: x_interface_amt := 0;
15097: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
15098: rcv_error_pkg.set_sql_error_message('get_interface_available_amt', '000');
15099: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
15100: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
15101: END get_interface_available_amt;
15094: EXCEPTION
15095: WHEN OTHERS THEN
15096: x_interface_amt := 0;
15097: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
15098: rcv_error_pkg.set_sql_error_message('get_interface_available_amt', '000');
15099: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
15100: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
15101: END get_interface_available_amt;
15102:
15095: WHEN OTHERS THEN
15096: x_interface_amt := 0;
15097: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
15098: rcv_error_pkg.set_sql_error_message('get_interface_available_amt', '000');
15099: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
15100: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
15101: END get_interface_available_amt;
15102:
15103: PROCEDURE update_interface_available_qty(
15096: x_interface_amt := 0;
15097: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
15098: rcv_error_pkg.set_sql_error_message('get_interface_available_amt', '000');
15099: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
15100: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
15101: END get_interface_available_amt;
15102:
15103: PROCEDURE update_interface_available_qty(
15104: x_cascaded_table IN OUT NOCOPY rcv_roi_preprocessor.cascaded_trans_tab_type,
15176: x_cascaded_table(n).interface_transaction_qty := l_interface_transaction_qty;
15177: END IF;
15178: EXCEPTION
15179: WHEN OTHERS THEN
15180: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
15181: rcv_error_pkg.set_sql_error_message('update_interface_available_qty', '000');
15182: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
15183: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
15184: END update_interface_available_qty;
15177: END IF;
15178: EXCEPTION
15179: WHEN OTHERS THEN
15180: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
15181: rcv_error_pkg.set_sql_error_message('update_interface_available_qty', '000');
15182: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
15183: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
15184: END update_interface_available_qty;
15185:
15178: EXCEPTION
15179: WHEN OTHERS THEN
15180: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
15181: rcv_error_pkg.set_sql_error_message('update_interface_available_qty', '000');
15182: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
15183: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
15184: END update_interface_available_qty;
15185:
15186: PROCEDURE update_interface_available_amt(
15179: WHEN OTHERS THEN
15180: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
15181: rcv_error_pkg.set_sql_error_message('update_interface_available_qty', '000');
15182: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
15183: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
15184: END update_interface_available_qty;
15185:
15186: PROCEDURE update_interface_available_amt(
15187: x_cascaded_table IN OUT NOCOPY rcv_roi_preprocessor.cascaded_trans_tab_type,
15259: x_cascaded_table(n).interface_transaction_amt := l_interface_transaction_amt;
15260: END IF;
15261: EXCEPTION
15262: WHEN OTHERS THEN
15263: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
15264: rcv_error_pkg.set_sql_error_message('update_interface_available_amt', '000');
15265: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
15266: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
15267: END update_interface_available_amt;
15260: END IF;
15261: EXCEPTION
15262: WHEN OTHERS THEN
15263: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
15264: rcv_error_pkg.set_sql_error_message('update_interface_available_amt', '000');
15265: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
15266: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
15267: END update_interface_available_amt;
15268:
15261: EXCEPTION
15262: WHEN OTHERS THEN
15263: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
15264: rcv_error_pkg.set_sql_error_message('update_interface_available_amt', '000');
15265: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
15266: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
15267: END update_interface_available_amt;
15268:
15269: PROCEDURE update_total_transaction_qty(
15262: WHEN OTHERS THEN
15263: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
15264: rcv_error_pkg.set_sql_error_message('update_interface_available_amt', '000');
15265: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
15266: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
15267: END update_interface_available_amt;
15268:
15269: PROCEDURE update_total_transaction_qty(
15270: p_interface_transaction_id IN rcv_transactions_interface.interface_transaction_id%TYPE,
15334: END IF;
15335: END IF; --}
15336: EXCEPTION
15337: WHEN OTHERS THEN
15338: rcv_error_pkg.set_sql_error_message('update_total_transaction_qty', '000');
15339: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
15340: RAISE;
15341: END update_total_transaction_qty;
15342:
15335: END IF; --}
15336: EXCEPTION
15337: WHEN OTHERS THEN
15338: rcv_error_pkg.set_sql_error_message('update_total_transaction_qty', '000');
15339: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
15340: RAISE;
15341: END update_total_transaction_qty;
15342:
15343: PROCEDURE update_total_transaction_amt(
15403: END IF;
15404: END IF; --}
15405: EXCEPTION
15406: WHEN OTHERS THEN
15407: rcv_error_pkg.set_sql_error_message('update_total_transaction_amt', '000');
15408: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
15409: RAISE;
15410: END update_total_transaction_amt;
15411:
15404: END IF; --}
15405: EXCEPTION
15406: WHEN OTHERS THEN
15407: rcv_error_pkg.set_sql_error_message('update_total_transaction_amt', '000');
15408: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
15409: RAISE;
15410: END update_total_transaction_amt;
15411:
15412: PROCEDURE derive_matching_basis(
15462: asn_debug.put_line('NO data found in derive_match_basis '
15463: ||'for PO shipments with line and line_loc_id info');
15464: END IF;
15465: x_cascaded_table(n).error_status :=
15466: rcv_error_pkg.g_ret_sts_unexp_error;
15467: rcv_error_pkg.set_sql_error_message(
15468: ' when no data in derive_matching_basis '||
15469: 'line and line_loc_id info' ,
15470: x_progress);
15463: ||'for PO shipments with line and line_loc_id info');
15464: END IF;
15465: x_cascaded_table(n).error_status :=
15466: rcv_error_pkg.g_ret_sts_unexp_error;
15467: rcv_error_pkg.set_sql_error_message(
15468: ' when no data in derive_matching_basis '||
15469: 'line and line_loc_id info' ,
15470: x_progress);
15471: x_cascaded_table(n).error_message :=
15468: ' when no data in derive_matching_basis '||
15469: 'line and line_loc_id info' ,
15470: x_progress);
15471: x_cascaded_table(n).error_message :=
15472: rcv_error_pkg.get_last_message;
15473: when others then
15474: IF (g_asn_debug = 'Y') THEN
15475: asn_debug.put_line('when others in derive_match_basis '
15476: ||'for PO shipments with line and line_loc_id info');
15475: asn_debug.put_line('when others in derive_match_basis '
15476: ||'for PO shipments with line and line_loc_id info');
15477: END IF;
15478: x_cascaded_table(n).error_status :=
15479: rcv_error_pkg.g_ret_sts_unexp_error;
15480: rcv_error_pkg.set_sql_error_message(
15481: 'when others in derive_matching_basis with '||
15482: 'line and line_loc_id info',
15483: x_progress);
15476: ||'for PO shipments with line and line_loc_id info');
15477: END IF;
15478: x_cascaded_table(n).error_status :=
15479: rcv_error_pkg.g_ret_sts_unexp_error;
15480: rcv_error_pkg.set_sql_error_message(
15481: 'when others in derive_matching_basis with '||
15482: 'line and line_loc_id info',
15483: x_progress);
15484: x_cascaded_table(n).error_message :=
15481: 'when others in derive_matching_basis with '||
15482: 'line and line_loc_id info',
15483: x_progress);
15484: x_cascaded_table(n).error_message :=
15485: rcv_error_pkg.get_last_message;
15486: end;
15487: ELSIF((x_cascaded_table(n).po_line_id IS NOT NULL)
15488: AND
15489: (x_cascaded_table(n).document_shipment_line_num is not null)) THEN--}{
15505: IF (g_asn_debug = 'Y') THEN
15506: asn_debug.put_line('too many rows in derive_match_basis ' ||'for PO shipments with line and ship info');
15507: END IF;
15508: x_cascaded_table(n).error_status :=
15509: rcv_error_pkg.g_ret_sts_unexp_error;
15510: rcv_error_pkg.set_sql_error_message(
15511: ' too many rows in derive_matching_basis '||
15512: 'line and ship info' ,
15513: x_progress);
15506: asn_debug.put_line('too many rows in derive_match_basis ' ||'for PO shipments with line and ship info');
15507: END IF;
15508: x_cascaded_table(n).error_status :=
15509: rcv_error_pkg.g_ret_sts_unexp_error;
15510: rcv_error_pkg.set_sql_error_message(
15511: ' too many rows in derive_matching_basis '||
15512: 'line and ship info' ,
15513: x_progress);
15514: x_cascaded_table(n).error_message :=
15511: ' too many rows in derive_matching_basis '||
15512: 'line and ship info' ,
15513: x_progress);
15514: x_cascaded_table(n).error_message :=
15515: rcv_error_pkg.get_last_message;
15516: when no_data_found then
15517: IF (g_asn_debug = 'Y') THEN
15518: asn_debug.put_line('NO data found in derive_match_basis ' ||'for PO shipments with line and ship info');
15519: END IF;
15517: IF (g_asn_debug = 'Y') THEN
15518: asn_debug.put_line('NO data found in derive_match_basis ' ||'for PO shipments with line and ship info');
15519: END IF;
15520: x_cascaded_table(n).error_status :=
15521: rcv_error_pkg.g_ret_sts_unexp_error;
15522: rcv_error_pkg.set_sql_error_message(
15523: ' when no data in derive_matching_basis '||
15524: 'line and ship info' ,
15525: x_progress);
15518: asn_debug.put_line('NO data found in derive_match_basis ' ||'for PO shipments with line and ship info');
15519: END IF;
15520: x_cascaded_table(n).error_status :=
15521: rcv_error_pkg.g_ret_sts_unexp_error;
15522: rcv_error_pkg.set_sql_error_message(
15523: ' when no data in derive_matching_basis '||
15524: 'line and ship info' ,
15525: x_progress);
15526: x_cascaded_table(n).error_message :=
15523: ' when no data in derive_matching_basis '||
15524: 'line and ship info' ,
15525: x_progress);
15526: x_cascaded_table(n).error_message :=
15527: rcv_error_pkg.get_last_message;
15528: when others then
15529: IF (g_asn_debug = 'Y') THEN
15530: asn_debug.put_line('when others in derive_match_basis '
15531: ||'for PO shipments with line and ship info');
15530: asn_debug.put_line('when others in derive_match_basis '
15531: ||'for PO shipments with line and ship info');
15532: END IF;
15533: x_cascaded_table(n).error_status :=
15534: rcv_error_pkg.g_ret_sts_unexp_error;
15535: rcv_error_pkg.set_sql_error_message(
15536: 'when others in derive_matching_basis with '||
15537: 'line and ship info',
15538: x_progress);
15531: ||'for PO shipments with line and ship info');
15532: END IF;
15533: x_cascaded_table(n).error_status :=
15534: rcv_error_pkg.g_ret_sts_unexp_error;
15535: rcv_error_pkg.set_sql_error_message(
15536: 'when others in derive_matching_basis with '||
15537: 'line and ship info',
15538: x_progress);
15539: x_cascaded_table(n).error_message :=
15536: 'when others in derive_matching_basis with '||
15537: 'line and ship info',
15538: x_progress);
15539: x_cascaded_table(n).error_message :=
15540: rcv_error_pkg.get_last_message;
15541: end;
15542: ELSIF x_cascaded_table(n).po_line_id IS NOT NULL THEN --}{
15543: begin
15544: SELECT NVL(order_type_lookup_code, 'QUANTITY'),
15555: asn_debug.put_line('NO data found in derive_match_basis '
15556: ||'for PO shipments with line info');
15557: END IF;
15558: x_cascaded_table(n).error_status :=
15559: rcv_error_pkg.g_ret_sts_unexp_error;
15560: rcv_error_pkg.set_sql_error_message(
15561: ' when no data in derive_matching_basis with '||
15562: 'line info ',
15563: x_progress);
15556: ||'for PO shipments with line info');
15557: END IF;
15558: x_cascaded_table(n).error_status :=
15559: rcv_error_pkg.g_ret_sts_unexp_error;
15560: rcv_error_pkg.set_sql_error_message(
15561: ' when no data in derive_matching_basis with '||
15562: 'line info ',
15563: x_progress);
15564: x_cascaded_table(n).error_message :=
15561: ' when no data in derive_matching_basis with '||
15562: 'line info ',
15563: x_progress);
15564: x_cascaded_table(n).error_message :=
15565: rcv_error_pkg.get_last_message;
15566: when others then
15567: IF (g_asn_debug = 'Y') THEN
15568: asn_debug.put_line('when others in derive_match_basis '
15569: ||'for PO shipments with line info');
15568: asn_debug.put_line('when others in derive_match_basis '
15569: ||'for PO shipments with line info');
15570: END IF;
15571: x_cascaded_table(n).error_status :=
15572: rcv_error_pkg.g_ret_sts_unexp_error;
15573: rcv_error_pkg.set_sql_error_message(
15574: 'when others in derive_matching_basis with '||
15575: 'line info',
15576: x_progress);
15569: ||'for PO shipments with line info');
15570: END IF;
15571: x_cascaded_table(n).error_status :=
15572: rcv_error_pkg.g_ret_sts_unexp_error;
15573: rcv_error_pkg.set_sql_error_message(
15574: 'when others in derive_matching_basis with '||
15575: 'line info',
15576: x_progress);
15577: x_cascaded_table(n).error_message :=
15574: 'when others in derive_matching_basis with '||
15575: 'line info',
15576: x_progress);
15577: x_cascaded_table(n).error_message :=
15578: rcv_error_pkg.get_last_message;
15579: end;
15580: ELSE --}{
15581: -- we require line info for receiving against services lines
15582: x_cascaded_table(n).matching_basis := 'QUANTITY';
15588: x_cascaded_table(n).matching_basis);
15589: END IF;
15590: EXCEPTION
15591: WHEN OTHERS THEN
15592: rcv_error_pkg.set_sql_error_message(
15593: 'update_total_transaction_amt',
15594: '000');
15595: rcv_error_pkg.log_interface_error(
15596: 'TRANSACTIONS_INTERFACE_ID',
15591: WHEN OTHERS THEN
15592: rcv_error_pkg.set_sql_error_message(
15593: 'update_total_transaction_amt',
15594: '000');
15595: rcv_error_pkg.log_interface_error(
15596: 'TRANSACTIONS_INTERFACE_ID',
15597: FALSE);
15598: RAISE;
15599: END derive_matching_basis;
15794: IF (x_cascaded_table(n).lcm_shipment_line_id IS NULL) THEN
15795: --
15796: asn_debug.put_line('Error: lcm_shipment_line_id should not be null ');
15797: x_cascaded_table(n).error_status := 'E';
15798: rcv_error_pkg.set_error_message('PO_PDOI_COLUMN_NOT_NULL', x_cascaded_table(n).error_message);
15799: rcv_error_pkg.set_token('COLUMN_NAME', 'LCM_SHIPMENT_LINE_ID');
15800: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'LCM_SHIPMENT_LINE_ID',FALSE);
15801: --
15802: END IF;
15795: --
15796: asn_debug.put_line('Error: lcm_shipment_line_id should not be null ');
15797: x_cascaded_table(n).error_status := 'E';
15798: rcv_error_pkg.set_error_message('PO_PDOI_COLUMN_NOT_NULL', x_cascaded_table(n).error_message);
15799: rcv_error_pkg.set_token('COLUMN_NAME', 'LCM_SHIPMENT_LINE_ID');
15800: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'LCM_SHIPMENT_LINE_ID',FALSE);
15801: --
15802: END IF;
15803: RETURN;
15796: asn_debug.put_line('Error: lcm_shipment_line_id should not be null ');
15797: x_cascaded_table(n).error_status := 'E';
15798: rcv_error_pkg.set_error_message('PO_PDOI_COLUMN_NOT_NULL', x_cascaded_table(n).error_message);
15799: rcv_error_pkg.set_token('COLUMN_NAME', 'LCM_SHIPMENT_LINE_ID');
15800: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'LCM_SHIPMENT_LINE_ID',FALSE);
15801: --
15802: END IF;
15803: RETURN;
15804: END IF;
15806: IF (x_asn_type = 'ASN') THEN
15807: --
15808: asn_debug.put_line('Error: ' || x_asn_type || ' is not supported as the org is pre-receive enabled ');
15809: x_cascaded_table(n).error_status := 'E';
15810: rcv_error_pkg.set_error_message('RCV_ASN_IMPORT_NOT_ALLOWED', x_cascaded_table(n).error_message);
15811: rcv_error_pkg.set_token('ASN_TYPE',x_asn_type);
15812: rcv_error_pkg.set_token('ORG_ID',x_cascaded_table(n).to_organization_id);
15813: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'ASN_TYPE',FALSE);
15814: RETURN;
15807: --
15808: asn_debug.put_line('Error: ' || x_asn_type || ' is not supported as the org is pre-receive enabled ');
15809: x_cascaded_table(n).error_status := 'E';
15810: rcv_error_pkg.set_error_message('RCV_ASN_IMPORT_NOT_ALLOWED', x_cascaded_table(n).error_message);
15811: rcv_error_pkg.set_token('ASN_TYPE',x_asn_type);
15812: rcv_error_pkg.set_token('ORG_ID',x_cascaded_table(n).to_organization_id);
15813: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'ASN_TYPE',FALSE);
15814: RETURN;
15815: --
15808: asn_debug.put_line('Error: ' || x_asn_type || ' is not supported as the org is pre-receive enabled ');
15809: x_cascaded_table(n).error_status := 'E';
15810: rcv_error_pkg.set_error_message('RCV_ASN_IMPORT_NOT_ALLOWED', x_cascaded_table(n).error_message);
15811: rcv_error_pkg.set_token('ASN_TYPE',x_asn_type);
15812: rcv_error_pkg.set_token('ORG_ID',x_cascaded_table(n).to_organization_id);
15813: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'ASN_TYPE',FALSE);
15814: RETURN;
15815: --
15816: END IF;
15809: x_cascaded_table(n).error_status := 'E';
15810: rcv_error_pkg.set_error_message('RCV_ASN_IMPORT_NOT_ALLOWED', x_cascaded_table(n).error_message);
15811: rcv_error_pkg.set_token('ASN_TYPE',x_asn_type);
15812: rcv_error_pkg.set_token('ORG_ID',x_cascaded_table(n).to_organization_id);
15813: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'ASN_TYPE',FALSE);
15814: RETURN;
15815: --
15816: END IF;
15817: IF (x_cascaded_table(n).lcm_shipment_line_id IS NULL) THEN
15817: IF (x_cascaded_table(n).lcm_shipment_line_id IS NULL) THEN
15818: --
15819: asn_debug.put_line('Error: lcm_shipment_line_id should not be null ');
15820: x_cascaded_table(n).error_status := 'E';
15821: rcv_error_pkg.set_error_message('PO_PDOI_COLUMN_NOT_NULL', x_cascaded_table(n).error_message);
15822: rcv_error_pkg.set_token('COLUMN_NAME', 'LCM_SHIPMENT_LINE_ID');
15823: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'LCM_SHIPMENT_LINE_ID',FALSE);
15824: RETURN;
15825: --
15818: --
15819: asn_debug.put_line('Error: lcm_shipment_line_id should not be null ');
15820: x_cascaded_table(n).error_status := 'E';
15821: rcv_error_pkg.set_error_message('PO_PDOI_COLUMN_NOT_NULL', x_cascaded_table(n).error_message);
15822: rcv_error_pkg.set_token('COLUMN_NAME', 'LCM_SHIPMENT_LINE_ID');
15823: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'LCM_SHIPMENT_LINE_ID',FALSE);
15824: RETURN;
15825: --
15826: END IF;
15819: asn_debug.put_line('Error: lcm_shipment_line_id should not be null ');
15820: x_cascaded_table(n).error_status := 'E';
15821: rcv_error_pkg.set_error_message('PO_PDOI_COLUMN_NOT_NULL', x_cascaded_table(n).error_message);
15822: rcv_error_pkg.set_token('COLUMN_NAME', 'LCM_SHIPMENT_LINE_ID');
15823: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'LCM_SHIPMENT_LINE_ID',FALSE);
15824: RETURN;
15825: --
15826: END IF;
15827: IF (g_asn_debug = 'Y') THEN
15830: IF (x_cascaded_table(n).unit_landed_cost IS NULL) THEN
15831: --
15832: asn_debug.put_line('Error: unit_landed_cost should not be null ');
15833: x_cascaded_table(n).error_status := 'E';
15834: rcv_error_pkg.set_error_message('PO_PDOI_COLUMN_NOT_NULL', x_cascaded_table(n).error_message);
15835: rcv_error_pkg.set_token('COLUMN_NAME', 'UNIT_LANDED_COST');
15836: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'UNIT_LANDED_COST',FALSE);
15837: RETURN;
15838: --
15831: --
15832: asn_debug.put_line('Error: unit_landed_cost should not be null ');
15833: x_cascaded_table(n).error_status := 'E';
15834: rcv_error_pkg.set_error_message('PO_PDOI_COLUMN_NOT_NULL', x_cascaded_table(n).error_message);
15835: rcv_error_pkg.set_token('COLUMN_NAME', 'UNIT_LANDED_COST');
15836: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'UNIT_LANDED_COST',FALSE);
15837: RETURN;
15838: --
15839: END IF;
15832: asn_debug.put_line('Error: unit_landed_cost should not be null ');
15833: x_cascaded_table(n).error_status := 'E';
15834: rcv_error_pkg.set_error_message('PO_PDOI_COLUMN_NOT_NULL', x_cascaded_table(n).error_message);
15835: rcv_error_pkg.set_token('COLUMN_NAME', 'UNIT_LANDED_COST');
15836: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'UNIT_LANDED_COST',FALSE);
15837: RETURN;
15838: --
15839: END IF;
15840: IF (g_asn_debug = 'Y') THEN
15865: IF (l_lsl_exists > 0) THEN
15866: --
15867: asn_debug.put_line('Error: Duplicate lcm_shipment_line_id');
15868: x_cascaded_table(n).error_status := 'E';
15869: rcv_error_pkg.set_error_message('RCV_DUP_LCM_SHIPMENT_LINE', x_cascaded_table(n).error_message);
15870: rcv_error_pkg.set_token('VALUE', x_cascaded_table(n).lcm_shipment_line_id);
15871: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'LCM_SHIPMENT_LINE_ID',FALSE);
15872: RETURN;
15873: --
15866: --
15867: asn_debug.put_line('Error: Duplicate lcm_shipment_line_id');
15868: x_cascaded_table(n).error_status := 'E';
15869: rcv_error_pkg.set_error_message('RCV_DUP_LCM_SHIPMENT_LINE', x_cascaded_table(n).error_message);
15870: rcv_error_pkg.set_token('VALUE', x_cascaded_table(n).lcm_shipment_line_id);
15871: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'LCM_SHIPMENT_LINE_ID',FALSE);
15872: RETURN;
15873: --
15874: END IF;
15867: asn_debug.put_line('Error: Duplicate lcm_shipment_line_id');
15868: x_cascaded_table(n).error_status := 'E';
15869: rcv_error_pkg.set_error_message('RCV_DUP_LCM_SHIPMENT_LINE', x_cascaded_table(n).error_message);
15870: rcv_error_pkg.set_token('VALUE', x_cascaded_table(n).lcm_shipment_line_id);
15871: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'LCM_SHIPMENT_LINE_ID',FALSE);
15872: RETURN;
15873: --
15874: END IF;
15875: --
15892: asn_debug.put_line('l_rsl_qty => ' || l_rsl_qty, null, 14);
15893: asn_debug.put_line('x_cascaded_table(n).quantity => ' || x_cascaded_table(n).quantity, null, 14);
15894: asn_debug.put_line('Error: Partial receipt not allowed');
15895: x_cascaded_table(n).error_status := 'E';
15896: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE', x_cascaded_table(n).error_message);
15897: rcv_error_pkg.set_token('COLUMN', 'QUANTITY');
15898: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).quantity);
15899: rcv_error_pkg.set_token('SYS_VALUE', l_rsl_qty);
15900: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'QUANTITY',FALSE);
15893: asn_debug.put_line('x_cascaded_table(n).quantity => ' || x_cascaded_table(n).quantity, null, 14);
15894: asn_debug.put_line('Error: Partial receipt not allowed');
15895: x_cascaded_table(n).error_status := 'E';
15896: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE', x_cascaded_table(n).error_message);
15897: rcv_error_pkg.set_token('COLUMN', 'QUANTITY');
15898: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).quantity);
15899: rcv_error_pkg.set_token('SYS_VALUE', l_rsl_qty);
15900: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'QUANTITY',FALSE);
15901: RETURN;
15894: asn_debug.put_line('Error: Partial receipt not allowed');
15895: x_cascaded_table(n).error_status := 'E';
15896: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE', x_cascaded_table(n).error_message);
15897: rcv_error_pkg.set_token('COLUMN', 'QUANTITY');
15898: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).quantity);
15899: rcv_error_pkg.set_token('SYS_VALUE', l_rsl_qty);
15900: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'QUANTITY',FALSE);
15901: RETURN;
15902: --
15895: x_cascaded_table(n).error_status := 'E';
15896: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE', x_cascaded_table(n).error_message);
15897: rcv_error_pkg.set_token('COLUMN', 'QUANTITY');
15898: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).quantity);
15899: rcv_error_pkg.set_token('SYS_VALUE', l_rsl_qty);
15900: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'QUANTITY',FALSE);
15901: RETURN;
15902: --
15903: END IF;
15896: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE', x_cascaded_table(n).error_message);
15897: rcv_error_pkg.set_token('COLUMN', 'QUANTITY');
15898: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).quantity);
15899: rcv_error_pkg.set_token('SYS_VALUE', l_rsl_qty);
15900: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'QUANTITY',FALSE);
15901: RETURN;
15902: --
15903: END IF;
15904: IF (l_rsl_uom <> x_cascaded_table(n).unit_of_measure) THEN
15907: asn_debug.put_line('l_rsl_uom => ' || l_rsl_uom, null, 14);
15908: asn_debug.put_line('x_cascaded_table(n).unit_of_measure => ' || x_cascaded_table(n).unit_of_measure, null, 14);
15909: asn_debug.put_line('Error: Partial receipt not allowed');
15910: x_cascaded_table(n).error_status := 'E';
15911: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE', x_cascaded_table(n).error_message);
15912: rcv_error_pkg.set_token('COLUMN', 'UNIT_OF_MEASURE');
15913: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).unit_of_measure);
15914: rcv_error_pkg.set_token('SYS_VALUE', l_rsl_uom);
15915: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'UNIT_OF_MEASURE',FALSE);
15908: asn_debug.put_line('x_cascaded_table(n).unit_of_measure => ' || x_cascaded_table(n).unit_of_measure, null, 14);
15909: asn_debug.put_line('Error: Partial receipt not allowed');
15910: x_cascaded_table(n).error_status := 'E';
15911: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE', x_cascaded_table(n).error_message);
15912: rcv_error_pkg.set_token('COLUMN', 'UNIT_OF_MEASURE');
15913: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).unit_of_measure);
15914: rcv_error_pkg.set_token('SYS_VALUE', l_rsl_uom);
15915: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'UNIT_OF_MEASURE',FALSE);
15916: RETURN;
15909: asn_debug.put_line('Error: Partial receipt not allowed');
15910: x_cascaded_table(n).error_status := 'E';
15911: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE', x_cascaded_table(n).error_message);
15912: rcv_error_pkg.set_token('COLUMN', 'UNIT_OF_MEASURE');
15913: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).unit_of_measure);
15914: rcv_error_pkg.set_token('SYS_VALUE', l_rsl_uom);
15915: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'UNIT_OF_MEASURE',FALSE);
15916: RETURN;
15917: --
15910: x_cascaded_table(n).error_status := 'E';
15911: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE', x_cascaded_table(n).error_message);
15912: rcv_error_pkg.set_token('COLUMN', 'UNIT_OF_MEASURE');
15913: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).unit_of_measure);
15914: rcv_error_pkg.set_token('SYS_VALUE', l_rsl_uom);
15915: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'UNIT_OF_MEASURE',FALSE);
15916: RETURN;
15917: --
15918: END IF;
15911: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE', x_cascaded_table(n).error_message);
15912: rcv_error_pkg.set_token('COLUMN', 'UNIT_OF_MEASURE');
15913: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).unit_of_measure);
15914: rcv_error_pkg.set_token('SYS_VALUE', l_rsl_uom);
15915: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'UNIT_OF_MEASURE',FALSE);
15916: RETURN;
15917: --
15918: END IF;
15919: -- Bug 7607281
15923: asn_debug.put_line('l_sec_rsl_qty => ' || l_sec_rsl_qty, null, 14);
15924: asn_debug.put_line('x_cascaded_table(n).secondary_quantity => ' || x_cascaded_table(n).secondary_quantity, null, 14);
15925: asn_debug.put_line('Error: Partial receipt not allowed');
15926: x_cascaded_table(n).error_status := 'E';
15927: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE', x_cascaded_table(n).error_message);
15928: rcv_error_pkg.set_token('COLUMN', 'SECONDARY_QUANTITY');
15929: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).secondary_quantity);
15930: rcv_error_pkg.set_token('SYS_VALUE', l_sec_rsl_qty);
15931: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'SECONDARY_QUANTITY',FALSE);
15924: asn_debug.put_line('x_cascaded_table(n).secondary_quantity => ' || x_cascaded_table(n).secondary_quantity, null, 14);
15925: asn_debug.put_line('Error: Partial receipt not allowed');
15926: x_cascaded_table(n).error_status := 'E';
15927: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE', x_cascaded_table(n).error_message);
15928: rcv_error_pkg.set_token('COLUMN', 'SECONDARY_QUANTITY');
15929: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).secondary_quantity);
15930: rcv_error_pkg.set_token('SYS_VALUE', l_sec_rsl_qty);
15931: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'SECONDARY_QUANTITY',FALSE);
15932: RETURN;
15925: asn_debug.put_line('Error: Partial receipt not allowed');
15926: x_cascaded_table(n).error_status := 'E';
15927: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE', x_cascaded_table(n).error_message);
15928: rcv_error_pkg.set_token('COLUMN', 'SECONDARY_QUANTITY');
15929: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).secondary_quantity);
15930: rcv_error_pkg.set_token('SYS_VALUE', l_sec_rsl_qty);
15931: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'SECONDARY_QUANTITY',FALSE);
15932: RETURN;
15933: --
15926: x_cascaded_table(n).error_status := 'E';
15927: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE', x_cascaded_table(n).error_message);
15928: rcv_error_pkg.set_token('COLUMN', 'SECONDARY_QUANTITY');
15929: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).secondary_quantity);
15930: rcv_error_pkg.set_token('SYS_VALUE', l_sec_rsl_qty);
15931: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'SECONDARY_QUANTITY',FALSE);
15932: RETURN;
15933: --
15934: END IF;
15927: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE', x_cascaded_table(n).error_message);
15928: rcv_error_pkg.set_token('COLUMN', 'SECONDARY_QUANTITY');
15929: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).secondary_quantity);
15930: rcv_error_pkg.set_token('SYS_VALUE', l_sec_rsl_qty);
15931: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'SECONDARY_QUANTITY',FALSE);
15932: RETURN;
15933: --
15934: END IF;
15935: --
15939: asn_debug.put_line('l_sec_rsl_uom => ' || l_sec_rsl_uom, null, 14);
15940: asn_debug.put_line('x_cascaded_table(n).secondary_unit_of_measure => ' || x_cascaded_table(n).secondary_unit_of_measure, null, 14);
15941: asn_debug.put_line('Error: Partial receipt not allowed');
15942: x_cascaded_table(n).error_status := 'E';
15943: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE', x_cascaded_table(n).error_message);
15944: rcv_error_pkg.set_token('COLUMN', 'SECONDARY_UNIT_OF_MEASURE');
15945: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).secondary_unit_of_measure);
15946: rcv_error_pkg.set_token('SYS_VALUE', l_sec_rsl_uom);
15947: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'SECONDARY_UNIT_OF_MEASURE',FALSE);
15940: asn_debug.put_line('x_cascaded_table(n).secondary_unit_of_measure => ' || x_cascaded_table(n).secondary_unit_of_measure, null, 14);
15941: asn_debug.put_line('Error: Partial receipt not allowed');
15942: x_cascaded_table(n).error_status := 'E';
15943: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE', x_cascaded_table(n).error_message);
15944: rcv_error_pkg.set_token('COLUMN', 'SECONDARY_UNIT_OF_MEASURE');
15945: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).secondary_unit_of_measure);
15946: rcv_error_pkg.set_token('SYS_VALUE', l_sec_rsl_uom);
15947: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'SECONDARY_UNIT_OF_MEASURE',FALSE);
15948: RETURN;
15941: asn_debug.put_line('Error: Partial receipt not allowed');
15942: x_cascaded_table(n).error_status := 'E';
15943: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE', x_cascaded_table(n).error_message);
15944: rcv_error_pkg.set_token('COLUMN', 'SECONDARY_UNIT_OF_MEASURE');
15945: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).secondary_unit_of_measure);
15946: rcv_error_pkg.set_token('SYS_VALUE', l_sec_rsl_uom);
15947: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'SECONDARY_UNIT_OF_MEASURE',FALSE);
15948: RETURN;
15949: --
15942: x_cascaded_table(n).error_status := 'E';
15943: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE', x_cascaded_table(n).error_message);
15944: rcv_error_pkg.set_token('COLUMN', 'SECONDARY_UNIT_OF_MEASURE');
15945: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).secondary_unit_of_measure);
15946: rcv_error_pkg.set_token('SYS_VALUE', l_sec_rsl_uom);
15947: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'SECONDARY_UNIT_OF_MEASURE',FALSE);
15948: RETURN;
15949: --
15950: END IF;
15943: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE', x_cascaded_table(n).error_message);
15944: rcv_error_pkg.set_token('COLUMN', 'SECONDARY_UNIT_OF_MEASURE');
15945: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).secondary_unit_of_measure);
15946: rcv_error_pkg.set_token('SYS_VALUE', l_sec_rsl_uom);
15947: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'SECONDARY_UNIT_OF_MEASURE',FALSE);
15948: RETURN;
15949: --
15950: END IF;
15951: -- Bug 7607281
15980: x_currency_conversion_rate => x_currency_conversion_rate );
15981:
15982: IF (l_lcm_date IS NULL) Then
15983: x_cascaded_table(n).error_status := 'E';
15984: rcv_error_pkg.set_error_message('RCV_LCM_CURRENCY_DATE_NULL', x_cascaded_table(n).error_message);
15985: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'SECONDARY_UNIT_OF_MEASURE',FALSE);
15986: RETURN;
15987: END IF;
15988:
15981:
15982: IF (l_lcm_date IS NULL) Then
15983: x_cascaded_table(n).error_status := 'E';
15984: rcv_error_pkg.set_error_message('RCV_LCM_CURRENCY_DATE_NULL', x_cascaded_table(n).error_message);
15985: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'SECONDARY_UNIT_OF_MEASURE',FALSE);
15986: RETURN;
15987: END IF;
15988:
15989: asn_debug.put_line('x_cascaded_table(n).currency_conversion_date : ' || x_cascaded_table(n).currency_conversion_date);
16023: IF (x_asn_type = 'LCM') THEN
16024: --
16025: asn_debug.put_line('Error: Non-lcm shipment line cannot be attached to an LCM shipment');
16026: x_cascaded_table(n).error_status := 'E';
16027: rcv_error_pkg.set_error_message('RCV_INVALID_LCM_SHIPMENT', x_cascaded_table(n).error_message);
16028: rcv_error_pkg.set_token('SHIPMENT', x_header_record.header_record.shipment_num);
16029: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'PO_LINE_LOCATION_ID',FALSE);
16030: RETURN;
16031: --
16024: --
16025: asn_debug.put_line('Error: Non-lcm shipment line cannot be attached to an LCM shipment');
16026: x_cascaded_table(n).error_status := 'E';
16027: rcv_error_pkg.set_error_message('RCV_INVALID_LCM_SHIPMENT', x_cascaded_table(n).error_message);
16028: rcv_error_pkg.set_token('SHIPMENT', x_header_record.header_record.shipment_num);
16029: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'PO_LINE_LOCATION_ID',FALSE);
16030: RETURN;
16031: --
16032: END IF;
16025: asn_debug.put_line('Error: Non-lcm shipment line cannot be attached to an LCM shipment');
16026: x_cascaded_table(n).error_status := 'E';
16027: rcv_error_pkg.set_error_message('RCV_INVALID_LCM_SHIPMENT', x_cascaded_table(n).error_message);
16028: rcv_error_pkg.set_token('SHIPMENT', x_header_record.header_record.shipment_num);
16029: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'PO_LINE_LOCATION_ID',FALSE);
16030: RETURN;
16031: --
16032: END IF;
16033: IF (x_cascaded_table(n).lcm_shipment_line_id IS NOT NULL) THEN
16033: IF (x_cascaded_table(n).lcm_shipment_line_id IS NOT NULL) THEN
16034: --
16035: asn_debug.put_line('Error: lcm_shipment_line_id should be null for a non-lcm shipment');
16036: x_cascaded_table(n).error_status := 'E';
16037: rcv_error_pkg.set_error_message('PO_PDOI_COLUMN_NULL', x_cascaded_table(n).error_message);
16038: rcv_error_pkg.set_token('COLUMN_NAME', 'LCM_SHIPMENT_LINE_ID');
16039: rcv_error_pkg.set_token('VALUE', x_cascaded_table(n).lcm_shipment_line_id);
16040: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'LCM_SHIPMENT_LINE_ID',FALSE);
16041: RETURN;
16034: --
16035: asn_debug.put_line('Error: lcm_shipment_line_id should be null for a non-lcm shipment');
16036: x_cascaded_table(n).error_status := 'E';
16037: rcv_error_pkg.set_error_message('PO_PDOI_COLUMN_NULL', x_cascaded_table(n).error_message);
16038: rcv_error_pkg.set_token('COLUMN_NAME', 'LCM_SHIPMENT_LINE_ID');
16039: rcv_error_pkg.set_token('VALUE', x_cascaded_table(n).lcm_shipment_line_id);
16040: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'LCM_SHIPMENT_LINE_ID',FALSE);
16041: RETURN;
16042: --
16035: asn_debug.put_line('Error: lcm_shipment_line_id should be null for a non-lcm shipment');
16036: x_cascaded_table(n).error_status := 'E';
16037: rcv_error_pkg.set_error_message('PO_PDOI_COLUMN_NULL', x_cascaded_table(n).error_message);
16038: rcv_error_pkg.set_token('COLUMN_NAME', 'LCM_SHIPMENT_LINE_ID');
16039: rcv_error_pkg.set_token('VALUE', x_cascaded_table(n).lcm_shipment_line_id);
16040: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'LCM_SHIPMENT_LINE_ID',FALSE);
16041: RETURN;
16042: --
16043: END IF;
16036: x_cascaded_table(n).error_status := 'E';
16037: rcv_error_pkg.set_error_message('PO_PDOI_COLUMN_NULL', x_cascaded_table(n).error_message);
16038: rcv_error_pkg.set_token('COLUMN_NAME', 'LCM_SHIPMENT_LINE_ID');
16039: rcv_error_pkg.set_token('VALUE', x_cascaded_table(n).lcm_shipment_line_id);
16040: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'LCM_SHIPMENT_LINE_ID',FALSE);
16041: RETURN;
16042: --
16043: END IF;
16044:
16049: END IF;
16050:
16051: EXCEPTION
16052: WHEN OTHERS THEN
16053: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
16054: rcv_error_pkg.set_sql_error_message('validate_lcm_line' , '000');
16055: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
16056: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'LCM_SHIPMENT_LINE_ID',FALSE);
16057:
16050:
16051: EXCEPTION
16052: WHEN OTHERS THEN
16053: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
16054: rcv_error_pkg.set_sql_error_message('validate_lcm_line' , '000');
16055: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
16056: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'LCM_SHIPMENT_LINE_ID',FALSE);
16057:
16058: IF (g_asn_debug = 'Y') THEN
16051: EXCEPTION
16052: WHEN OTHERS THEN
16053: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
16054: rcv_error_pkg.set_sql_error_message('validate_lcm_line' , '000');
16055: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
16056: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'LCM_SHIPMENT_LINE_ID',FALSE);
16057:
16058: IF (g_asn_debug = 'Y') THEN
16059: asn_debug.put_line('Unexpected exception in validate_lcm_line: ' || SQLERRM);
16052: WHEN OTHERS THEN
16053: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
16054: rcv_error_pkg.set_sql_error_message('validate_lcm_line' , '000');
16055: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
16056: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'LCM_SHIPMENT_LINE_ID',FALSE);
16057:
16058: IF (g_asn_debug = 'Y') THEN
16059: asn_debug.put_line('Unexpected exception in validate_lcm_line: ' || SQLERRM);
16060: END IF;