[Home] [Help]
230: x_cascaded_table(n).transaction_type := 'SHIP';
231: x_cascaded_table(n).auto_transact_code := 'SHIP';
232: -- Reset the flag so that it won't affect the next transaction.
233: x_auto_deliver := 'N';
234: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
235:
236: -- Log po_interface_errors
237: rcv_error_pkg.set_error_message('RCV_ALL_REQUIRED_LOCATOR');
238: rcv_error_pkg.log_interface_warning('LOCATOR_ID');
233: x_auto_deliver := 'N';
234: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
235:
236: -- Log po_interface_errors
237: rcv_error_pkg.set_error_message('RCV_ALL_REQUIRED_LOCATOR');
238: rcv_error_pkg.log_interface_warning('LOCATOR_ID');
239:
240: RETURN;
241: END IF;
234: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
235:
236: -- Log po_interface_errors
237: rcv_error_pkg.set_error_message('RCV_ALL_REQUIRED_LOCATOR');
238: rcv_error_pkg.log_interface_warning('LOCATOR_ID');
239:
240: RETURN;
241: END IF;
242:
276: x_cascaded_table(n).transaction_type := 'SHIP';
277: x_cascaded_table(n).auto_transact_code := 'SHIP';
278: -- Reset the flag so that it won't affect the next transaction.
279: x_auto_deliver := 'N';
280: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
281:
282: -- Log po_interface_errors
283: rcv_error_pkg.set_error_message('RCV_ALL_REQUIRED_LOCATOR');
284: rcv_error_pkg.log_interface_warning('LOCATOR_ID');
279: x_auto_deliver := 'N';
280: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
281:
282: -- Log po_interface_errors
283: rcv_error_pkg.set_error_message('RCV_ALL_REQUIRED_LOCATOR');
284: rcv_error_pkg.log_interface_warning('LOCATOR_ID');
285:
286: RETURN;
287:
280: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
281:
282: -- Log po_interface_errors
283: rcv_error_pkg.set_error_message('RCV_ALL_REQUIRED_LOCATOR');
284: rcv_error_pkg.log_interface_warning('LOCATOR_ID');
285:
286: RETURN;
287:
288: END IF;
304: x_cascaded_table(n).transaction_type := 'SHIP';
305: x_cascaded_table(n).auto_transact_code := 'SHIP';
306: -- Reset the flag so that it won't affect the next transaction.
307: x_auto_deliver := 'N';
308: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
309:
310: -- Log po_interface_errors
311: rcv_error_pkg.set_error_message('RCV_ALL_REQUIRED_LOCATOR');
312: rcv_error_pkg.log_interface_warning('LOCATOR_ID');
307: x_auto_deliver := 'N';
308: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
309:
310: -- Log po_interface_errors
311: rcv_error_pkg.set_error_message('RCV_ALL_REQUIRED_LOCATOR');
312: rcv_error_pkg.log_interface_warning('LOCATOR_ID');
313:
314: return;
315:
308: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
309:
310: -- Log po_interface_errors
311: rcv_error_pkg.set_error_message('RCV_ALL_REQUIRED_LOCATOR');
312: rcv_error_pkg.log_interface_warning('LOCATOR_ID');
313:
314: return;
315:
316: WHEN OTHERS THEN
375: x_cascaded_table(n).transaction_type := 'SHIP';
376: x_cascaded_table(n).auto_transact_code := 'SHIP';
377: -- Reset the flag so that it won't affect the next transaction.
378: x_auto_deliver := 'N';
379: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
380:
381: -- Log po_interface_errors
382: rcv_error_pkg.set_error_message('RCV_ASN_AUTO_DEL_NO_SUBINV');
383: rcv_error_pkg.log_interface_warning('SUBINVENTORY');
378: x_auto_deliver := 'N';
379: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
380:
381: -- Log po_interface_errors
382: rcv_error_pkg.set_error_message('RCV_ASN_AUTO_DEL_NO_SUBINV');
383: rcv_error_pkg.log_interface_warning('SUBINVENTORY');
384: END IF; --}
385:
386: RETURN;
379: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
380:
381: -- Log po_interface_errors
382: rcv_error_pkg.set_error_message('RCV_ASN_AUTO_DEL_NO_SUBINV');
383: rcv_error_pkg.log_interface_warning('SUBINVENTORY');
384: END IF; --}
385:
386: RETURN;
387: END IF; --}
417: x_cascaded_table(n).locator_id := l_from_locator_id;
418:
419: EXCEPTION
420: WHEN OTHERS THEN
421: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
422: rcv_error_pkg.set_sql_error_message('default_for_pjm_dropship', '000');
423: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
424: END default_for_pjm_dropship;
425:
418:
419: EXCEPTION
420: WHEN OTHERS THEN
421: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
422: rcv_error_pkg.set_sql_error_message('default_for_pjm_dropship', '000');
423: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
424: END default_for_pjm_dropship;
425:
426: -- End bug 14725305
419: EXCEPTION
420: WHEN OTHERS THEN
421: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
422: rcv_error_pkg.set_sql_error_message('default_for_pjm_dropship', '000');
423: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
424: END default_for_pjm_dropship;
425:
426: -- End bug 14725305
427:
496:
497: if (x_cascaded_table(n).transaction_type = 'SHIP' and
498: l_interface_source_code <> 'ISP') then
499: 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');
500: rcv_error_pkg.set_error_message('RCV_INVALID_TRANSACTION_TYPE');
501: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE');
502: end if;
503: /* Receipt for Work Confirmation does not come through
504: * preprocessor. Hence error out.
497: if (x_cascaded_table(n).transaction_type = 'SHIP' and
498: l_interface_source_code <> 'ISP') then
499: 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');
500: rcv_error_pkg.set_error_message('RCV_INVALID_TRANSACTION_TYPE');
501: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE');
502: end if;
503: /* Receipt for Work Confirmation does not come through
504: * preprocessor. Hence error out.
505: */
504: * preprocessor. Hence error out.
505: */
506: if (x_cascaded_table(n).transaction_type = 'RECEIVE') then
507: asn_debug.put_line('You cannot process a receipt against this PO using the Open Interface. Please create a Work Confirmation request instead.');
508: rcv_error_pkg.set_error_message('RCV_WC_CREATE');
509: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE');
510:
511: end if;
512: End if;
505: */
506: if (x_cascaded_table(n).transaction_type = 'RECEIVE') then
507: asn_debug.put_line('You cannot process a receipt against this PO using the Open Interface. Please create a Work Confirmation request instead.');
508: rcv_error_pkg.set_error_message('RCV_WC_CREATE');
509: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE');
510:
511: end if;
512: End if;
513:
1744: rcv_transactions_interface_sv.get_po_header_id(document_num_record);
1745: x_cascaded_table(n).po_header_id := document_num_record.po_header_id;
1746: x_cascaded_table(n).error_status := document_num_record.error_record.error_status;
1747: x_cascaded_table(n).error_message := document_num_record.error_record.error_message;
1748: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
1749: 'DOCUMENT_NUM',
1750: FALSE
1751: );
1752:
1783: IF (g_asn_debug = 'Y') THEN
1784: asn_debug.put_line('Cannot derive shipment_header_id');
1785: END IF;
1786:
1787: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1788: rcv_error_pkg.set_error_message('RCV_NO_SHIP_ID', x_cascaded_table(n).error_message);
1789: rcv_error_pkg.set_token('NUMBER', x_cascaded_table(n).shipment_num);
1790: rcv_error_pkg.log_interface_error('SHIPMENT_NUM', FALSE);
1791: END IF; --}
1784: asn_debug.put_line('Cannot derive shipment_header_id');
1785: END IF;
1786:
1787: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1788: rcv_error_pkg.set_error_message('RCV_NO_SHIP_ID', x_cascaded_table(n).error_message);
1789: rcv_error_pkg.set_token('NUMBER', x_cascaded_table(n).shipment_num);
1790: rcv_error_pkg.log_interface_error('SHIPMENT_NUM', FALSE);
1791: END IF; --}
1792: END IF; --}
1785: END IF;
1786:
1787: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1788: rcv_error_pkg.set_error_message('RCV_NO_SHIP_ID', x_cascaded_table(n).error_message);
1789: rcv_error_pkg.set_token('NUMBER', x_cascaded_table(n).shipment_num);
1790: rcv_error_pkg.log_interface_error('SHIPMENT_NUM', FALSE);
1791: END IF; --}
1792: END IF; --}
1793: END IF; --}
1786:
1787: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1788: rcv_error_pkg.set_error_message('RCV_NO_SHIP_ID', x_cascaded_table(n).error_message);
1789: rcv_error_pkg.set_token('NUMBER', x_cascaded_table(n).shipment_num);
1790: rcv_error_pkg.log_interface_error('SHIPMENT_NUM', FALSE);
1791: END IF; --}
1792: END IF; --}
1793: END IF; --}
1794: EXCEPTION
1792: END IF; --}
1793: END IF; --}
1794: EXCEPTION
1795: WHEN OTHERS THEN
1796: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
1797: rcv_error_pkg.set_sql_error_message('derive_asn_header_info', '000');
1798: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
1799: rcv_error_pkg.log_interface_error('SHIPMENT_NUM', FALSE);
1800: END derive_asn_header_info;
1793: END IF; --}
1794: EXCEPTION
1795: WHEN OTHERS THEN
1796: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
1797: rcv_error_pkg.set_sql_error_message('derive_asn_header_info', '000');
1798: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
1799: rcv_error_pkg.log_interface_error('SHIPMENT_NUM', FALSE);
1800: END derive_asn_header_info;
1801:
1794: EXCEPTION
1795: WHEN OTHERS THEN
1796: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
1797: rcv_error_pkg.set_sql_error_message('derive_asn_header_info', '000');
1798: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
1799: rcv_error_pkg.log_interface_error('SHIPMENT_NUM', FALSE);
1800: END derive_asn_header_info;
1801:
1802: PROCEDURE derive_item_info(
1795: WHEN OTHERS THEN
1796: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
1797: rcv_error_pkg.set_sql_error_message('derive_asn_header_info', '000');
1798: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
1799: rcv_error_pkg.log_interface_error('SHIPMENT_NUM', FALSE);
1800: END derive_asn_header_info;
1801:
1802: PROCEDURE derive_item_info(
1803: x_cascaded_table IN OUT NOCOPY rcv_roi_preprocessor.cascaded_trans_tab_type,
1828: x_cascaded_table(n).use_mtl_lot := item_id_record.use_mtl_lot; -- bug 608353
1829: x_cascaded_table(n).use_mtl_serial := item_id_record.use_mtl_serial; -- bug 608353
1830: x_cascaded_table(n).error_status := item_id_record.error_record.error_status;
1831: x_cascaded_table(n).error_message := item_id_record.error_record.error_message;
1832: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
1833: 'ITEM_NUM',
1834: FALSE
1835: );
1836: END IF;
1873: IF (g_asn_debug = 'Y') THEN
1874: asn_debug.put_line(TO_CHAR(x_cascaded_table(n).substitute_item_id));
1875: END IF;
1876:
1877: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
1878: 'SUBSTITUTE_ITEM_NUM',
1879: FALSE
1880: );
1881: END IF;
1927: IF (g_asn_debug = 'Y') THEN
1928: asn_debug.put_line(TO_CHAR(x_cascaded_table(n).po_line_id));
1929: END IF;
1930:
1931: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
1932: 'DOCUMENT_LINE_NUM',
1933: FALSE
1934: );
1935: END IF; -- set line id
1956: AND po_line_id = x_cascaded_table(n).po_line_id;
1957:
1958: EXCEPTION
1959: WHEN no_data_found THEN
1960: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1961: rcv_error_pkg.set_error_message('RCV_CLM_INVALID_PO_LINE',x_cascaded_table(n).error_message);
1962: rcv_error_pkg.set_token('DOCNUM',x_cascaded_table(n).document_num);
1963: rcv_error_pkg.set_token('DOCLINE',x_cascaded_table(n).document_line_num);
1964: rcv_error_pkg.log_interface_error('DOCUMENT_LINE_NUM', FALSE);
1957:
1958: EXCEPTION
1959: WHEN no_data_found THEN
1960: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1961: rcv_error_pkg.set_error_message('RCV_CLM_INVALID_PO_LINE',x_cascaded_table(n).error_message);
1962: rcv_error_pkg.set_token('DOCNUM',x_cascaded_table(n).document_num);
1963: rcv_error_pkg.set_token('DOCLINE',x_cascaded_table(n).document_line_num);
1964: rcv_error_pkg.log_interface_error('DOCUMENT_LINE_NUM', FALSE);
1965: END;
1958: EXCEPTION
1959: WHEN no_data_found THEN
1960: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1961: rcv_error_pkg.set_error_message('RCV_CLM_INVALID_PO_LINE',x_cascaded_table(n).error_message);
1962: rcv_error_pkg.set_token('DOCNUM',x_cascaded_table(n).document_num);
1963: rcv_error_pkg.set_token('DOCLINE',x_cascaded_table(n).document_line_num);
1964: rcv_error_pkg.log_interface_error('DOCUMENT_LINE_NUM', FALSE);
1965: END;
1966: END IF;
1959: WHEN no_data_found THEN
1960: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1961: rcv_error_pkg.set_error_message('RCV_CLM_INVALID_PO_LINE',x_cascaded_table(n).error_message);
1962: rcv_error_pkg.set_token('DOCNUM',x_cascaded_table(n).document_num);
1963: rcv_error_pkg.set_token('DOCLINE',x_cascaded_table(n).document_line_num);
1964: rcv_error_pkg.log_interface_error('DOCUMENT_LINE_NUM', FALSE);
1965: END;
1966: END IF;
1967: --
1960: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1961: rcv_error_pkg.set_error_message('RCV_CLM_INVALID_PO_LINE',x_cascaded_table(n).error_message);
1962: rcv_error_pkg.set_token('DOCNUM',x_cascaded_table(n).document_num);
1963: rcv_error_pkg.set_token('DOCLINE',x_cascaded_table(n).document_line_num);
1964: rcv_error_pkg.log_interface_error('DOCUMENT_LINE_NUM', FALSE);
1965: END;
1966: END IF;
1967: --
1968:
2014: asn_debug.put_line('Primary UOM from RTI :' || x_cascaded_table(n).primary_unit_of_measure);
2015: asn_debug.put_line('Derived PRIMARY UOM from MSI:' || l_primary_unit_of_measure);
2016: END IF;
2017: IF (NVL(x_cascaded_table(n).primary_unit_of_measure, l_primary_unit_of_measure) <> l_primary_unit_of_measure) THEN
2018: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2019: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE');
2020: rcv_error_pkg.set_token('COLUMN', 'PRIMARY_UNIT_OF_MEASURE');
2021: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).primary_unit_of_measure);
2022: rcv_error_pkg.set_token('SYS_VALUE', l_primary_unit_of_measure);
2015: asn_debug.put_line('Derived PRIMARY UOM from MSI:' || l_primary_unit_of_measure);
2016: END IF;
2017: IF (NVL(x_cascaded_table(n).primary_unit_of_measure, l_primary_unit_of_measure) <> l_primary_unit_of_measure) THEN
2018: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2019: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE');
2020: rcv_error_pkg.set_token('COLUMN', 'PRIMARY_UNIT_OF_MEASURE');
2021: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).primary_unit_of_measure);
2022: rcv_error_pkg.set_token('SYS_VALUE', l_primary_unit_of_measure);
2023: rcv_error_pkg.log_interface_error('PRIMARY_UNIT_OF_MEASURE');
2016: END IF;
2017: IF (NVL(x_cascaded_table(n).primary_unit_of_measure, l_primary_unit_of_measure) <> l_primary_unit_of_measure) THEN
2018: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2019: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE');
2020: rcv_error_pkg.set_token('COLUMN', 'PRIMARY_UNIT_OF_MEASURE');
2021: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).primary_unit_of_measure);
2022: rcv_error_pkg.set_token('SYS_VALUE', l_primary_unit_of_measure);
2023: rcv_error_pkg.log_interface_error('PRIMARY_UNIT_OF_MEASURE');
2024: ELSE
2017: IF (NVL(x_cascaded_table(n).primary_unit_of_measure, l_primary_unit_of_measure) <> l_primary_unit_of_measure) THEN
2018: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2019: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE');
2020: rcv_error_pkg.set_token('COLUMN', 'PRIMARY_UNIT_OF_MEASURE');
2021: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).primary_unit_of_measure);
2022: rcv_error_pkg.set_token('SYS_VALUE', l_primary_unit_of_measure);
2023: rcv_error_pkg.log_interface_error('PRIMARY_UNIT_OF_MEASURE');
2024: ELSE
2025: x_cascaded_table(n).primary_unit_of_measure := l_primary_unit_of_measure;
2018: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2019: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE');
2020: rcv_error_pkg.set_token('COLUMN', 'PRIMARY_UNIT_OF_MEASURE');
2021: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).primary_unit_of_measure);
2022: rcv_error_pkg.set_token('SYS_VALUE', l_primary_unit_of_measure);
2023: rcv_error_pkg.log_interface_error('PRIMARY_UNIT_OF_MEASURE');
2024: ELSE
2025: x_cascaded_table(n).primary_unit_of_measure := l_primary_unit_of_measure;
2026: END IF;
2019: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE');
2020: rcv_error_pkg.set_token('COLUMN', 'PRIMARY_UNIT_OF_MEASURE');
2021: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).primary_unit_of_measure);
2022: rcv_error_pkg.set_token('SYS_VALUE', l_primary_unit_of_measure);
2023: rcv_error_pkg.log_interface_error('PRIMARY_UNIT_OF_MEASURE');
2024: ELSE
2025: x_cascaded_table(n).primary_unit_of_measure := l_primary_unit_of_measure;
2026: END IF;
2027: IF (g_asn_debug = 'Y') THEN
2028: asn_debug.put_line('Primary UOM: ' || x_cascaded_table(n).primary_unit_of_measure);
2029: END IF;
2030: EXCEPTION
2031: WHEN NO_DATA_FOUND THEN
2032: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
2033: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE_NE');
2034: rcv_error_pkg.set_token('COLUMN', 'PRIMARY_UNIT_OF_MEASURE');
2035: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).primary_unit_of_measure);
2036: rcv_error_pkg.log_interface_warning('PRIMARY_UNIT_OF_MEASURE');
2029: END IF;
2030: EXCEPTION
2031: WHEN NO_DATA_FOUND THEN
2032: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
2033: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE_NE');
2034: rcv_error_pkg.set_token('COLUMN', 'PRIMARY_UNIT_OF_MEASURE');
2035: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).primary_unit_of_measure);
2036: rcv_error_pkg.log_interface_warning('PRIMARY_UNIT_OF_MEASURE');
2037: END;
2030: EXCEPTION
2031: WHEN NO_DATA_FOUND THEN
2032: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
2033: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE_NE');
2034: rcv_error_pkg.set_token('COLUMN', 'PRIMARY_UNIT_OF_MEASURE');
2035: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).primary_unit_of_measure);
2036: rcv_error_pkg.log_interface_warning('PRIMARY_UNIT_OF_MEASURE');
2037: END;
2038: /*END Bug 5592084*/
2031: WHEN NO_DATA_FOUND THEN
2032: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
2033: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE_NE');
2034: rcv_error_pkg.set_token('COLUMN', 'PRIMARY_UNIT_OF_MEASURE');
2035: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).primary_unit_of_measure);
2036: rcv_error_pkg.log_interface_warning('PRIMARY_UNIT_OF_MEASURE');
2037: END;
2038: /*END Bug 5592084*/
2039: END IF; -- set primary_uom
2032: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
2033: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE_NE');
2034: rcv_error_pkg.set_token('COLUMN', 'PRIMARY_UNIT_OF_MEASURE');
2035: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).primary_unit_of_measure);
2036: rcv_error_pkg.log_interface_warning('PRIMARY_UNIT_OF_MEASURE');
2037: END;
2038: /*END Bug 5592084*/
2039: END IF; -- set primary_uom
2040:
2061: asn_debug.put_line('use_mtl_serial: ' || x_cascaded_table(n).use_mtl_serial);
2062: END IF;
2063: EXCEPTION
2064: WHEN NO_DATA_FOUND THEN
2065: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
2066: rcv_error_pkg.set_error_message('PO_RI_INVALID_ITEM_ID', x_cascaded_table(n).error_message);
2067: rcv_error_pkg.log_interface_warning('DOCUMENT_LINE_NUM');
2068: END;
2069: END IF; -- set primary_uom
2062: END IF;
2063: EXCEPTION
2064: WHEN NO_DATA_FOUND THEN
2065: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
2066: rcv_error_pkg.set_error_message('PO_RI_INVALID_ITEM_ID', x_cascaded_table(n).error_message);
2067: rcv_error_pkg.log_interface_warning('DOCUMENT_LINE_NUM');
2068: END;
2069: END IF; -- set primary_uom
2070: END Comment: Bug: 4735484
2063: EXCEPTION
2064: WHEN NO_DATA_FOUND THEN
2065: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
2066: rcv_error_pkg.set_error_message('PO_RI_INVALID_ITEM_ID', x_cascaded_table(n).error_message);
2067: rcv_error_pkg.log_interface_warning('DOCUMENT_LINE_NUM');
2068: END;
2069: END IF; -- set primary_uom
2070: END Comment: Bug: 4735484
2071: */
2173:
2174: /* po_releases_sv4 does not follow error handling paradigm */
2175: l_error_column := 'RELEASE_NUM';
2176: IF (x_cascaded_table(n).error_status = 'F') THEN
2177: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2178: rcv_error_pkg.set_error_message(x_cascaded_table(n).error_message);
2179:
2180: /* Bug 4881909: Setting necessary tokens for messages to be logged in po_interface_errors
2181: ** if release number or PO shipment line information is in error.
2174: /* po_releases_sv4 does not follow error handling paradigm */
2175: l_error_column := 'RELEASE_NUM';
2176: IF (x_cascaded_table(n).error_status = 'F') THEN
2177: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2178: rcv_error_pkg.set_error_message(x_cascaded_table(n).error_message);
2179:
2180: /* Bug 4881909: Setting necessary tokens for messages to be logged in po_interface_errors
2181: ** if release number or PO shipment line information is in error.
2182: */
2182: */
2183:
2184: IF release_id_record.error_record.error_message = 'RCV_ITEM_PO_REL_ID' THEN
2185:
2186: rcv_error_pkg.set_token('NUMBER', x_cascaded_table(n).release_num);
2187:
2188: ELSIF release_id_record.error_record.error_message = 'RCV_ROI_INVALID_PO_SHIP_NUM' THEN
2189: rcv_error_pkg.set_token('PO_SHIP_NUM', x_cascaded_table(n).document_shipment_line_num);
2190: rcv_error_pkg.set_token('PONUM', x_cascaded_table(n).document_num);
2185:
2186: rcv_error_pkg.set_token('NUMBER', x_cascaded_table(n).release_num);
2187:
2188: ELSIF release_id_record.error_record.error_message = 'RCV_ROI_INVALID_PO_SHIP_NUM' THEN
2189: rcv_error_pkg.set_token('PO_SHIP_NUM', x_cascaded_table(n).document_shipment_line_num);
2190: rcv_error_pkg.set_token('PONUM', x_cascaded_table(n).document_num);
2191: l_error_column := 'DOCUMENT_SHIPMENT_LINE_NUM';
2192:
2193: ELSIF release_id_record.error_record.error_message = 'RCV_ROI_INVALID_REL_SHIP_NUM' THEN
2186: rcv_error_pkg.set_token('NUMBER', x_cascaded_table(n).release_num);
2187:
2188: ELSIF release_id_record.error_record.error_message = 'RCV_ROI_INVALID_PO_SHIP_NUM' THEN
2189: rcv_error_pkg.set_token('PO_SHIP_NUM', x_cascaded_table(n).document_shipment_line_num);
2190: rcv_error_pkg.set_token('PONUM', x_cascaded_table(n).document_num);
2191: l_error_column := 'DOCUMENT_SHIPMENT_LINE_NUM';
2192:
2193: ELSIF release_id_record.error_record.error_message = 'RCV_ROI_INVALID_REL_SHIP_NUM' THEN
2194: rcv_error_pkg.set_token('PO_SHIP_NUM', x_cascaded_table(n).document_shipment_line_num);
2190: rcv_error_pkg.set_token('PONUM', x_cascaded_table(n).document_num);
2191: l_error_column := 'DOCUMENT_SHIPMENT_LINE_NUM';
2192:
2193: ELSIF release_id_record.error_record.error_message = 'RCV_ROI_INVALID_REL_SHIP_NUM' THEN
2194: rcv_error_pkg.set_token('PO_SHIP_NUM', x_cascaded_table(n).document_shipment_line_num);
2195: rcv_error_pkg.set_token('PONUM', x_cascaded_table(n).document_num);
2196: rcv_error_pkg.set_token('RELEASE', x_cascaded_table(n).release_num);
2197: l_error_column := 'DOCUMENT_SHIPMENT_LINE_NUM';
2198:
2191: l_error_column := 'DOCUMENT_SHIPMENT_LINE_NUM';
2192:
2193: ELSIF release_id_record.error_record.error_message = 'RCV_ROI_INVALID_REL_SHIP_NUM' THEN
2194: rcv_error_pkg.set_token('PO_SHIP_NUM', x_cascaded_table(n).document_shipment_line_num);
2195: rcv_error_pkg.set_token('PONUM', x_cascaded_table(n).document_num);
2196: rcv_error_pkg.set_token('RELEASE', x_cascaded_table(n).release_num);
2197: l_error_column := 'DOCUMENT_SHIPMENT_LINE_NUM';
2198:
2199: ELSIF release_id_record.error_record.error_message = 'RCV_ROI_INVALID_RELEASE_NUM' THEN
2192:
2193: ELSIF release_id_record.error_record.error_message = 'RCV_ROI_INVALID_REL_SHIP_NUM' THEN
2194: rcv_error_pkg.set_token('PO_SHIP_NUM', x_cascaded_table(n).document_shipment_line_num);
2195: rcv_error_pkg.set_token('PONUM', x_cascaded_table(n).document_num);
2196: rcv_error_pkg.set_token('RELEASE', x_cascaded_table(n).release_num);
2197: l_error_column := 'DOCUMENT_SHIPMENT_LINE_NUM';
2198:
2199: ELSIF release_id_record.error_record.error_message = 'RCV_ROI_INVALID_RELEASE_NUM' THEN
2200:
2197: l_error_column := 'DOCUMENT_SHIPMENT_LINE_NUM';
2198:
2199: ELSIF release_id_record.error_record.error_message = 'RCV_ROI_INVALID_RELEASE_NUM' THEN
2200:
2201: rcv_error_pkg.set_token('RELEASE', x_cascaded_table(n).release_num);
2202: rcv_error_pkg.set_token('PONUM', x_cascaded_table(n).document_num);
2203:
2204: END IF;
2205: END IF;
2198:
2199: ELSIF release_id_record.error_record.error_message = 'RCV_ROI_INVALID_RELEASE_NUM' THEN
2200:
2201: rcv_error_pkg.set_token('RELEASE', x_cascaded_table(n).release_num);
2202: rcv_error_pkg.set_token('PONUM', x_cascaded_table(n).document_num);
2203:
2204: END IF;
2205: END IF;
2206:
2204: END IF;
2205: END IF;
2206:
2207:
2208: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,l_error_column, FALSE);
2209:
2210: IF x_cascaded_table(n).po_line_location_id IS NULL THEN
2211: x_cascaded_table(n).po_line_location_id := release_id_record.po_line_location_id;
2212:
2277: x_cascaded_table(n).error_message := ship_to_org_record.error_record.error_message;
2278:
2279: /* po_orgs_sv does not follow error handling paradigm */
2280: IF (x_cascaded_table(n).error_status = 'F') THEN
2281: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2282: rcv_error_pkg.set_error_message(x_cascaded_table(n).error_message);
2283: END IF;
2284:
2285: END IF;
2278:
2279: /* po_orgs_sv does not follow error handling paradigm */
2280: IF (x_cascaded_table(n).error_status = 'F') THEN
2281: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2282: rcv_error_pkg.set_error_message(x_cascaded_table(n).error_message);
2283: END IF;
2284:
2285: END IF;
2286: END derive_from_org_info;
2321: x_cascaded_table(n).error_message := ship_to_org_record.error_record.error_message;
2322:
2323: /* po_orgs_sv does not follow error handling paradigm */
2324: IF (x_cascaded_table(n).error_status = 'F') THEN
2325: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2326: rcv_error_pkg.set_error_message(x_cascaded_table(n).error_message);
2327: END IF;
2328:
2329: END IF;
2322:
2323: /* po_orgs_sv does not follow error handling paradigm */
2324: IF (x_cascaded_table(n).error_status = 'F') THEN
2325: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2326: rcv_error_pkg.set_error_message(x_cascaded_table(n).error_message);
2327: END IF;
2328:
2329: END IF;
2330: END derive_transit_org_info;
2477: x_cascaded_table(n).error_message := employee_id_record.error_record.error_message;
2478:
2479: /* po_orgs_sv does not follow error handling paradigm */
2480: IF (x_cascaded_table(n).error_status = 'F') THEN
2481: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2482: rcv_error_pkg.set_error_message(x_cascaded_table(n).error_message);
2483: END IF;
2484:
2485: END IF;
2478:
2479: /* po_orgs_sv does not follow error handling paradigm */
2480: IF (x_cascaded_table(n).error_status = 'F') THEN
2481: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2482: rcv_error_pkg.set_error_message(x_cascaded_table(n).error_message);
2483: END IF;
2484:
2485: END IF;
2486: END derive_deliver_to_person_info;
2534: AND NVL(ml.subinventory_code, 'z') = NVL(x_cascaded_table(n).from_subinventory, 'z')
2535: AND x_cascaded_table(n).to_organization_id = ml.organization_id;
2536:
2537: IF (x_cascaded_table(n).from_locator_id IS NULL) THEN
2538: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2539: rcv_error_pkg.set_error_message('RCV_ALL_INVALID_LOCATOR', x_cascaded_table(n).error_message);
2540: END IF;
2541: END IF;
2542: EXCEPTION
2535: AND x_cascaded_table(n).to_organization_id = ml.organization_id;
2536:
2537: IF (x_cascaded_table(n).from_locator_id IS NULL) THEN
2538: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2539: rcv_error_pkg.set_error_message('RCV_ALL_INVALID_LOCATOR', x_cascaded_table(n).error_message);
2540: END IF;
2541: END IF;
2542: EXCEPTION
2543: WHEN OTHERS THEN
2540: END IF;
2541: END IF;
2542: EXCEPTION
2543: WHEN OTHERS THEN
2544: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
2545: rcv_error_pkg.set_sql_error_message('derive_from_locator_id', '000');
2546: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
2547: END derive_from_locator_id;
2548:
2541: END IF;
2542: EXCEPTION
2543: WHEN OTHERS THEN
2544: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
2545: rcv_error_pkg.set_sql_error_message('derive_from_locator_id', '000');
2546: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
2547: END derive_from_locator_id;
2548:
2549: PROCEDURE derive_to_locator_id(
2542: EXCEPTION
2543: WHEN OTHERS THEN
2544: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
2545: rcv_error_pkg.set_sql_error_message('derive_from_locator_id', '000');
2546: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
2547: END derive_from_locator_id;
2548:
2549: PROCEDURE derive_to_locator_id(
2550: x_cascaded_table IN OUT NOCOPY rcv_roi_preprocessor.cascaded_trans_tab_type,
2568: AND NVL(ml.subinventory_code, 'z') = NVL(x_cascaded_table(n).subinventory, 'z')
2569: AND x_cascaded_table(n).to_organization_id = ml.organization_id;
2570:
2571: IF (x_cascaded_table(n).locator_id IS NULL) THEN
2572: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2573: 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 */
2574: END IF;
2575: END IF;
2576: EXCEPTION
2569: AND x_cascaded_table(n).to_organization_id = ml.organization_id;
2570:
2571: IF (x_cascaded_table(n).locator_id IS NULL) THEN
2572: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2573: 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 */
2574: END IF;
2575: END IF;
2576: EXCEPTION
2577: WHEN OTHERS THEN
2574: END IF;
2575: END IF;
2576: EXCEPTION
2577: WHEN OTHERS THEN
2578: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
2579: rcv_error_pkg.set_sql_error_message('derive_to_locator_id', '000');
2580: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
2581: END derive_to_locator_id;
2582:
2575: END IF;
2576: EXCEPTION
2577: WHEN OTHERS THEN
2578: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
2579: rcv_error_pkg.set_sql_error_message('derive_to_locator_id', '000');
2580: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
2581: END derive_to_locator_id;
2582:
2583: PROCEDURE validate_non_services_fields(
2576: EXCEPTION
2577: WHEN OTHERS THEN
2578: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
2579: rcv_error_pkg.set_sql_error_message('derive_to_locator_id', '000');
2580: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
2581: END derive_to_locator_id;
2582:
2583: PROCEDURE validate_non_services_fields(
2584: x_cascaded_table IN OUT NOCOPY rcv_roi_preprocessor.cascaded_trans_tab_type,
2613: OR x_cascaded_table(n).secondary_quantity IS NOT NULL
2614: OR ( x_cascaded_table(n).job_id IS NOT NULL
2615: AND ( x_cascaded_table(n).value_basis = 'FIXED PRICE'
2616: AND x_cascaded_table(n).purchase_basis = 'SERVICES')) THEN --{
2617: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2618: rcv_error_pkg.set_error_message('RCV_IRRELEVANT_VALUES', x_cascaded_table(n).error_message);
2619: rcv_error_pkg.log_interface_error('MATCHING_BASIS', FALSE);
2620: END IF; --}
2621:
2614: OR ( x_cascaded_table(n).job_id IS NOT NULL
2615: AND ( x_cascaded_table(n).value_basis = 'FIXED PRICE'
2616: AND x_cascaded_table(n).purchase_basis = 'SERVICES')) THEN --{
2617: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2618: rcv_error_pkg.set_error_message('RCV_IRRELEVANT_VALUES', x_cascaded_table(n).error_message);
2619: rcv_error_pkg.log_interface_error('MATCHING_BASIS', FALSE);
2620: END IF; --}
2621:
2622: IF x_cascaded_table(n).error_status IN('S', 'W') THEN --{
2615: AND ( x_cascaded_table(n).value_basis = 'FIXED PRICE'
2616: AND x_cascaded_table(n).purchase_basis = 'SERVICES')) THEN --{
2617: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2618: rcv_error_pkg.set_error_message('RCV_IRRELEVANT_VALUES', x_cascaded_table(n).error_message);
2619: rcv_error_pkg.log_interface_error('MATCHING_BASIS', FALSE);
2620: END IF; --}
2621:
2622: IF x_cascaded_table(n).error_status IN('S', 'W') THEN --{
2623: IF ( x_cascaded_table(n).value_basis = 'RATE'
2642: IF (g_asn_debug = 'Y') THEN
2643: asn_debug.put_line('Not RATE/TEMP LABOR');
2644: END IF;
2645:
2646: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2647: rcv_error_pkg.set_error_message('RCV_IRRELEVANT_VALUES', x_cascaded_table(n).error_message);
2648: rcv_error_pkg.log_interface_error('MATCHING_BASIS', FALSE);
2649: END IF; --}
2650: END IF; --}
2643: asn_debug.put_line('Not RATE/TEMP LABOR');
2644: END IF;
2645:
2646: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2647: rcv_error_pkg.set_error_message('RCV_IRRELEVANT_VALUES', x_cascaded_table(n).error_message);
2648: rcv_error_pkg.log_interface_error('MATCHING_BASIS', FALSE);
2649: END IF; --}
2650: END IF; --}
2651: END IF; --}
2644: END IF;
2645:
2646: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2647: rcv_error_pkg.set_error_message('RCV_IRRELEVANT_VALUES', x_cascaded_table(n).error_message);
2648: rcv_error_pkg.log_interface_error('MATCHING_BASIS', FALSE);
2649: END IF; --}
2650: END IF; --}
2651: END IF; --}
2652:
2654: asn_debug.put_line('Leave validate_non_services_fields');
2655: END IF;
2656: EXCEPTION
2657: WHEN OTHERS THEN
2658: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
2659: rcv_error_pkg.set_sql_error_message('derive_to_locator_id', '000');
2660: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
2661: rcv_error_pkg.log_interface_error('MATCHING_BASIS', FALSE);
2662: END validate_non_services_fields;
2655: END IF;
2656: EXCEPTION
2657: WHEN OTHERS THEN
2658: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
2659: rcv_error_pkg.set_sql_error_message('derive_to_locator_id', '000');
2660: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
2661: rcv_error_pkg.log_interface_error('MATCHING_BASIS', FALSE);
2662: END validate_non_services_fields;
2663:
2656: EXCEPTION
2657: WHEN OTHERS THEN
2658: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
2659: rcv_error_pkg.set_sql_error_message('derive_to_locator_id', '000');
2660: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
2661: rcv_error_pkg.log_interface_error('MATCHING_BASIS', FALSE);
2662: END validate_non_services_fields;
2663:
2664: /* We cannot default_from_subloc and default_to_subloc since
2657: WHEN OTHERS THEN
2658: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
2659: rcv_error_pkg.set_sql_error_message('derive_to_locator_id', '000');
2660: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
2661: rcv_error_pkg.log_interface_error('MATCHING_BASIS', FALSE);
2662: END validate_non_services_fields;
2663:
2664: /* We cannot default_from_subloc and default_to_subloc since
2665: * for deliver txn, we need from values but not to values.
2739: asn_debug.put_line('x_cascaded_table(n).from_locator_id ' || x_cascaded_table(n).from_locator_id);
2740: END IF;
2741: EXCEPTION
2742: WHEN OTHERS THEN
2743: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
2744: rcv_error_pkg.set_sql_error_message('default_from_subloc_info', '000');
2745: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
2746: END default_from_subloc_info;
2747:
2740: END IF;
2741: EXCEPTION
2742: WHEN OTHERS THEN
2743: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
2744: rcv_error_pkg.set_sql_error_message('default_from_subloc_info', '000');
2745: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
2746: END default_from_subloc_info;
2747:
2748: PROCEDURE default_to_subloc_info(
2741: EXCEPTION
2742: WHEN OTHERS THEN
2743: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
2744: rcv_error_pkg.set_sql_error_message('default_from_subloc_info', '000');
2745: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
2746: END default_from_subloc_info;
2747:
2748: PROCEDURE default_to_subloc_info(
2749: x_cascaded_table IN OUT NOCOPY rcv_roi_preprocessor.cascaded_trans_tab_type,
2875: x_cascaded_table(n).transaction_type := 'SHIP';
2876: x_cascaded_table(n).auto_transact_code := 'SHIP';
2877: -- Reset the flag so that it won't affect the next transaction.
2878: x_auto_deliver := 'N';
2879: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
2880:
2881: -- Log po_interface_errors
2882: rcv_error_pkg.set_error_message('RCV_ASN_AUTO_DEL_NO_SUBINV');
2883: rcv_error_pkg.log_interface_warning('SUBINVENTORY');
2878: x_auto_deliver := 'N';
2879: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
2880:
2881: -- Log po_interface_errors
2882: rcv_error_pkg.set_error_message('RCV_ASN_AUTO_DEL_NO_SUBINV');
2883: rcv_error_pkg.log_interface_warning('SUBINVENTORY');
2884: END IF; --}
2885:
2886: RETURN;
2879: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
2880:
2881: -- Log po_interface_errors
2882: rcv_error_pkg.set_error_message('RCV_ASN_AUTO_DEL_NO_SUBINV');
2883: rcv_error_pkg.log_interface_warning('SUBINVENTORY');
2884: END IF; --}
2885:
2886: RETURN;
2887: END IF; --}
2997: END IF;
2998:
2999: EXCEPTION
3000: WHEN OTHERS THEN
3001: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
3002: rcv_error_pkg.set_sql_error_message('default_to_subloc_info', '000');
3003: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
3004: END default_to_subloc_info;
3005:
2998:
2999: EXCEPTION
3000: WHEN OTHERS THEN
3001: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
3002: rcv_error_pkg.set_sql_error_message('default_to_subloc_info', '000');
3003: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
3004: END default_to_subloc_info;
3005:
3006: /* WMS Change End */
2999: EXCEPTION
3000: WHEN OTHERS THEN
3001: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
3002: rcv_error_pkg.set_sql_error_message('default_to_subloc_info', '000');
3003: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
3004: END default_to_subloc_info;
3005:
3006: /* WMS Change End */
3007: PROCEDURE derive_reason_info(
3063: /* If auto_transact_code is not deliver, then give a warning
3064: * and default it to deliver.
3065: */
3066: IF (x_cascaded_table(n).auto_transact_code <> 'DELIVER') THEN --{
3067: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3068: rcv_error_pkg.set_error_message('RCV_DIRECT_DEL_REQ', x_cascaded_table(n).error_message);
3069: rcv_error_pkg.log_interface_warning('DOCUMENT_NUM');
3070:
3071: IF (g_asn_debug = 'Y') THEN
3064: * and default it to deliver.
3065: */
3066: IF (x_cascaded_table(n).auto_transact_code <> 'DELIVER') THEN --{
3067: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3068: rcv_error_pkg.set_error_message('RCV_DIRECT_DEL_REQ', x_cascaded_table(n).error_message);
3069: rcv_error_pkg.log_interface_warning('DOCUMENT_NUM');
3070:
3071: IF (g_asn_debug = 'Y') THEN
3072: asn_debug.put_line('AFter Warning insert into po_interface_errors ' || x_cascaded_table(n).error_message);
3065: */
3066: IF (x_cascaded_table(n).auto_transact_code <> 'DELIVER') THEN --{
3067: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3068: rcv_error_pkg.set_error_message('RCV_DIRECT_DEL_REQ', x_cascaded_table(n).error_message);
3069: rcv_error_pkg.log_interface_warning('DOCUMENT_NUM');
3070:
3071: IF (g_asn_debug = 'Y') THEN
3072: asn_debug.put_line('AFter Warning insert into po_interface_errors ' || x_cascaded_table(n).error_message);
3073: END IF;
3492: IF (g_asn_debug = 'Y') THEN
3493: asn_debug.put_line('Quantity is <= zero. Cascade will fail');
3494: END IF;
3495:
3496: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3497: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
3498: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
3499: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
3500: END IF; --} end qty > 0 check
3493: asn_debug.put_line('Quantity is <= zero. Cascade will fail');
3494: END IF;
3495:
3496: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3497: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
3498: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
3499: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
3500: END IF; --} end qty > 0 check
3501:
3494: END IF;
3495:
3496: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3497: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
3498: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
3499: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
3500: END IF; --} end qty > 0 check
3501:
3502: -- the following steps will create a set of rows linking the line_record with
3495:
3496: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
3497: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
3498: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
3499: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
3500: END IF; --} end qty > 0 check
3501:
3502: -- the following steps will create a set of rows linking the line_record with
3503: -- its corresponding po_line_location rows until the quantity value from
4139: asn_debug.put_line('Header Interface Id ' || TO_CHAR(temp_cascaded_table(current_n).header_interface_id));
4140: asn_debug.put_line('IN Trans Id ' || TO_CHAR(temp_cascaded_table(current_n).interface_transaction_id));
4141: END IF;
4142:
4143: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
4144: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
4145: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
4146: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_quantity);
4147: rcv_error_pkg.log_interface_warning('QUANTITY');
4140: asn_debug.put_line('IN Trans Id ' || TO_CHAR(temp_cascaded_table(current_n).interface_transaction_id));
4141: END IF;
4142:
4143: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
4144: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
4145: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
4146: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_quantity);
4147: rcv_error_pkg.log_interface_warning('QUANTITY');
4148:
4141: END IF;
4142:
4143: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
4144: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
4145: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
4146: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_quantity);
4147: rcv_error_pkg.log_interface_warning('QUANTITY');
4148:
4149: IF (g_asn_debug = 'Y') THEN
4142:
4143: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
4144: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
4145: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
4146: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_quantity);
4147: rcv_error_pkg.log_interface_warning('QUANTITY');
4148:
4149: IF (g_asn_debug = 'Y') THEN
4150: asn_debug.put_line('Error Status ' || temp_cascaded_table(current_n).error_status);
4143: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
4144: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
4145: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
4146: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_quantity);
4147: rcv_error_pkg.log_interface_warning('QUANTITY');
4148:
4149: IF (g_asn_debug = 'Y') THEN
4150: asn_debug.put_line('Error Status ' || temp_cascaded_table(current_n).error_status);
4151: asn_debug.put_line('Error message ' || temp_cascaded_table(current_n).error_message);
4175: IF (g_asn_debug = 'Y') THEN
4176: asn_debug.put_line('delete the temp table ');
4177: END IF;
4178:
4179: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4180:
4181: --
4182: IF l_is_clm_po = 'Y' AND l_partial_funded_flag = 'Y' THEN
4183:
4180:
4181: --
4182: IF l_is_clm_po = 'Y' AND l_partial_funded_flag = 'Y' THEN
4183:
4184: rcv_error_pkg.set_error_message(
4185: 'RCV_TRX_QTY_EXCEEDS_CLM_FUNDED',
4186: x_cascaded_table(n).error_message);
4187: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
4188: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
4183:
4184: rcv_error_pkg.set_error_message(
4185: 'RCV_TRX_QTY_EXCEEDS_CLM_FUNDED',
4186: x_cascaded_table(n).error_message);
4187: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
4188: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
4189:
4190: ELSE
4191: --
4184: rcv_error_pkg.set_error_message(
4185: 'RCV_TRX_QTY_EXCEEDS_CLM_FUNDED',
4186: x_cascaded_table(n).error_message);
4187: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
4188: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
4189:
4190: ELSE
4191: --
4192: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
4188: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
4189:
4190: ELSE
4191: --
4192: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
4193: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
4194: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
4195:
4196: END IF; --
4189:
4190: ELSE
4191: --
4192: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
4193: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
4194: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
4195:
4196: END IF; --
4197:
4190: ELSE
4191: --
4192: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
4193: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
4194: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
4195:
4196: END IF; --
4197:
4198: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
4194: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
4195:
4196: END IF; --
4197:
4198: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
4199:
4200: IF temp_cascaded_table.COUNT > 0 THEN
4201: FOR i IN 1 .. temp_cascaded_table.COUNT LOOP
4202: temp_cascaded_table.DELETE(i);
4256: asn_debug.put_line('x_temp_count ' || x_temp_count);
4257: END IF;
4258:
4259: IF x_temp_count = 0 THEN --{
4260: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4261: rcv_error_pkg.set_error_message('RCV_ASN_NO_OPEN_SHIPMENTS', x_cascaded_table(n).error_message);
4262: rcv_error_pkg.set_token('PONUM', temp_cascaded_table(current_n).document_num);
4263: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
4264: ELSE -- x_item_count != 0 --}{
4257: END IF;
4258:
4259: IF x_temp_count = 0 THEN --{
4260: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4261: rcv_error_pkg.set_error_message('RCV_ASN_NO_OPEN_SHIPMENTS', x_cascaded_table(n).error_message);
4262: rcv_error_pkg.set_token('PONUM', temp_cascaded_table(current_n).document_num);
4263: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
4264: ELSE -- x_item_count != 0 --}{
4265: IF (x_is_asn = FALSE) THEN --{
4258:
4259: IF x_temp_count = 0 THEN --{
4260: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4261: rcv_error_pkg.set_error_message('RCV_ASN_NO_OPEN_SHIPMENTS', x_cascaded_table(n).error_message);
4262: rcv_error_pkg.set_token('PONUM', temp_cascaded_table(current_n).document_num);
4263: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
4264: ELSE -- x_item_count != 0 --}{
4265: IF (x_is_asn = FALSE) THEN --{
4266: IF (g_asn_debug = 'Y') THEN
4259: IF x_temp_count = 0 THEN --{
4260: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4261: rcv_error_pkg.set_error_message('RCV_ASN_NO_OPEN_SHIPMENTS', x_cascaded_table(n).error_message);
4262: rcv_error_pkg.set_token('PONUM', temp_cascaded_table(current_n).document_num);
4263: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
4264: ELSE -- x_item_count != 0 --}{
4265: IF (x_is_asn = FALSE) THEN --{
4266: IF (g_asn_debug = 'Y') THEN
4267: asn_debug.put_line('Get the flag values');
4333: asn_debug.put_line('x_temp_count ' || x_temp_count);
4334: END IF;
4335:
4336: IF x_temp_count = 0 THEN --{
4337: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4338: rcv_error_pkg.set_error_message('RCV_ASN_INVALID_DIST_NUM', x_cascaded_table(n).error_message);
4339: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_distribution_num);
4340: rcv_error_pkg.log_interface_error('DOCUMENT_DISTRIBUTION_NUM', FALSE);
4341: ELSE -- x_temp_count != 0 --}{
4334: END IF;
4335:
4336: IF x_temp_count = 0 THEN --{
4337: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4338: rcv_error_pkg.set_error_message('RCV_ASN_INVALID_DIST_NUM', x_cascaded_table(n).error_message);
4339: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_distribution_num);
4340: rcv_error_pkg.log_interface_error('DOCUMENT_DISTRIBUTION_NUM', FALSE);
4341: ELSE -- x_temp_count != 0 --}{
4342: IF (x_is_asn = FALSE) THEN --{
4335:
4336: IF x_temp_count = 0 THEN --{
4337: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4338: rcv_error_pkg.set_error_message('RCV_ASN_INVALID_DIST_NUM', x_cascaded_table(n).error_message);
4339: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_distribution_num);
4340: rcv_error_pkg.log_interface_error('DOCUMENT_DISTRIBUTION_NUM', FALSE);
4341: ELSE -- x_temp_count != 0 --}{
4342: IF (x_is_asn = FALSE) THEN --{
4343: IF (g_asn_debug = 'Y') THEN
4336: IF x_temp_count = 0 THEN --{
4337: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4338: rcv_error_pkg.set_error_message('RCV_ASN_INVALID_DIST_NUM', x_cascaded_table(n).error_message);
4339: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_distribution_num);
4340: rcv_error_pkg.log_interface_error('DOCUMENT_DISTRIBUTION_NUM', FALSE);
4341: ELSE -- x_temp_count != 0 --}{
4342: IF (x_is_asn = FALSE) THEN --{
4343: IF (g_asn_debug = 'Y') THEN
4344: asn_debug.put_line('Get flag values ');
4451: END IF;
4452: END IF; --}
4453:
4454: IF (x_temp_count <> 0) THEN --{
4455: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4456:
4457: IF (g_asn_debug = 'Y') THEN
4458: asn_debug.put_line('Should give us the exact error ');
4459: END IF;
4462: IF (g_asn_debug = 'Y') THEN
4463: asn_debug.put_line('This item is not allowed ');
4464: END IF;
4465:
4466: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4467: rcv_error_pkg.set_error_message('RCV_ASN_ITEM_NOT_ALLOWED', x_cascaded_table(n).error_message);
4468: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).item_num);
4469: rcv_error_pkg.log_interface_error('ITEM_NUM', FALSE);
4470: END IF;
4463: asn_debug.put_line('This item is not allowed ');
4464: END IF;
4465:
4466: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4467: rcv_error_pkg.set_error_message('RCV_ASN_ITEM_NOT_ALLOWED', x_cascaded_table(n).error_message);
4468: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).item_num);
4469: rcv_error_pkg.log_interface_error('ITEM_NUM', FALSE);
4470: END IF;
4471:
4464: END IF;
4465:
4466: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4467: rcv_error_pkg.set_error_message('RCV_ASN_ITEM_NOT_ALLOWED', x_cascaded_table(n).error_message);
4468: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).item_num);
4469: rcv_error_pkg.log_interface_error('ITEM_NUM', FALSE);
4470: END IF;
4471:
4472: IF x_approved_flag <> 'Y' THEN
4465:
4466: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4467: rcv_error_pkg.set_error_message('RCV_ASN_ITEM_NOT_ALLOWED', x_cascaded_table(n).error_message);
4468: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).item_num);
4469: rcv_error_pkg.log_interface_error('ITEM_NUM', FALSE);
4470: END IF;
4471:
4472: IF x_approved_flag <> 'Y' THEN
4473: IF (g_asn_debug = 'Y') THEN
4473: IF (g_asn_debug = 'Y') THEN
4474: asn_debug.put_line('This PO is not approved');
4475: END IF;
4476:
4477: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4478: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_NOT_APPROVED', x_cascaded_table(n).error_message);
4479: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
4480: rcv_error_pkg.set_token('PO_NUM', temp_cascaded_table(current_n).document_num);
4481: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
4474: asn_debug.put_line('This PO is not approved');
4475: END IF;
4476:
4477: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4478: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_NOT_APPROVED', x_cascaded_table(n).error_message);
4479: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
4480: rcv_error_pkg.set_token('PO_NUM', temp_cascaded_table(current_n).document_num);
4481: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
4482: END IF;
4475: END IF;
4476:
4477: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4478: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_NOT_APPROVED', x_cascaded_table(n).error_message);
4479: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
4480: rcv_error_pkg.set_token('PO_NUM', temp_cascaded_table(current_n).document_num);
4481: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
4482: END IF;
4483:
4476:
4477: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4478: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_NOT_APPROVED', x_cascaded_table(n).error_message);
4479: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
4480: rcv_error_pkg.set_token('PO_NUM', temp_cascaded_table(current_n).document_num);
4481: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
4482: END IF;
4483:
4484: IF x_cancel_flag <> 'N' THEN
4477: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4478: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_NOT_APPROVED', x_cascaded_table(n).error_message);
4479: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
4480: rcv_error_pkg.set_token('PO_NUM', temp_cascaded_table(current_n).document_num);
4481: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
4482: END IF;
4483:
4484: IF x_cancel_flag <> 'N' THEN
4485: IF (g_asn_debug = 'Y') THEN
4485: IF (g_asn_debug = 'Y') THEN
4486: asn_debug.put_line('This PO is cancelled');
4487: END IF;
4488:
4489: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4490: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_CANCELLED', x_cascaded_table(n).error_message);
4491: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
4492: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
4493: END IF;
4486: asn_debug.put_line('This PO is cancelled');
4487: END IF;
4488:
4489: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4490: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_CANCELLED', x_cascaded_table(n).error_message);
4491: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
4492: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
4493: END IF;
4494:
4487: END IF;
4488:
4489: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4490: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_CANCELLED', x_cascaded_table(n).error_message);
4491: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
4492: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
4493: END IF;
4494:
4495: /* Bug 3548556.
4488:
4489: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4490: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_CANCELLED', x_cascaded_table(n).error_message);
4491: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
4492: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
4493: END IF;
4494:
4495: /* Bug 3548556.
4496: * We used to record the error only when it
4509: IF (g_asn_debug = 'Y') THEN
4510: asn_debug.put_line('This PO is finally closed and the profile option to include closed POs is Y');
4511: END IF;
4512:
4513: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4514: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_FINALLY_CLOSED', x_cascaded_table(n).error_message); --Bug 10020071
4515: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
4516: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
4517: END IF;
4510: asn_debug.put_line('This PO is finally closed and the profile option to include closed POs is Y');
4511: END IF;
4512:
4513: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4514: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_FINALLY_CLOSED', x_cascaded_table(n).error_message); --Bug 10020071
4515: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
4516: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
4517: END IF;
4518:
4511: END IF;
4512:
4513: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4514: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_FINALLY_CLOSED', x_cascaded_table(n).error_message); --Bug 10020071
4515: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
4516: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
4517: END IF;
4518:
4519: IF ( NVL(x_include_closed_po, 'N') = 'N'
4512:
4513: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4514: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_FINALLY_CLOSED', x_cascaded_table(n).error_message); --Bug 10020071
4515: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
4516: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
4517: END IF;
4518:
4519: IF ( NVL(x_include_closed_po, 'N') = 'N'
4520: AND x_closed_code IN('FINALLY CLOSED', 'CLOSED', 'CLOSED FOR RECEIVING')) THEN
4521: IF (g_asn_debug = 'Y') THEN
4522: asn_debug.put_line('This PO is not open and the profile option to include closed POs is N');
4523: END IF;
4524:
4525: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4526: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_NOT_OPEN', x_cascaded_table(n).error_message);
4527: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
4528: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
4529: END IF;
4522: asn_debug.put_line('This PO is not open and the profile option to include closed POs is N');
4523: END IF;
4524:
4525: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4526: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_NOT_OPEN', x_cascaded_table(n).error_message);
4527: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
4528: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
4529: END IF;
4530:
4523: END IF;
4524:
4525: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4526: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_NOT_OPEN', x_cascaded_table(n).error_message);
4527: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
4528: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
4529: END IF;
4530:
4531: IF x_shipment_type NOT IN('STANDARD', 'BLANKET', 'SCHEDULED','PREPAYMENT') THEN
4524:
4525: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4526: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_NOT_OPEN', x_cascaded_table(n).error_message);
4527: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
4528: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
4529: END IF;
4530:
4531: IF x_shipment_type NOT IN('STANDARD', 'BLANKET', 'SCHEDULED','PREPAYMENT') THEN
4532: IF (g_asn_debug = 'Y') THEN
4532: IF (g_asn_debug = 'Y') THEN
4533: asn_debug.put_line('This PO shipment type cannot be received');
4534: END IF;
4535:
4536: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4537: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIPMT_TYPE', x_cascaded_table(n).error_message);
4538: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
4539: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
4540: END IF;
4533: asn_debug.put_line('This PO shipment type cannot be received');
4534: END IF;
4535:
4536: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4537: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIPMT_TYPE', x_cascaded_table(n).error_message);
4538: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
4539: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
4540: END IF;
4541:
4534: END IF;
4535:
4536: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4537: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIPMT_TYPE', x_cascaded_table(n).error_message);
4538: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
4539: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
4540: END IF;
4541:
4542: IF x_ship_to_organization_id <> NVL(temp_cascaded_table(current_n).to_organization_id, x_ship_to_organization_id) THEN
4535:
4536: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4537: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIPMT_TYPE', x_cascaded_table(n).error_message);
4538: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
4539: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
4540: END IF;
4541:
4542: IF x_ship_to_organization_id <> NVL(temp_cascaded_table(current_n).to_organization_id, x_ship_to_organization_id) THEN
4543: IF (g_asn_debug = 'Y') THEN
4543: IF (g_asn_debug = 'Y') THEN
4544: asn_debug.put_line('Ship_to_org in PO does not match the user entered value');
4545: END IF;
4546:
4547: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4548: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_ORG', x_cascaded_table(n).error_message);
4549: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).to_organization_code);
4550: rcv_error_pkg.log_interface_error('TO_ORGANIZATION_CODE', FALSE);
4551: END IF;
4544: asn_debug.put_line('Ship_to_org in PO does not match the user entered value');
4545: END IF;
4546:
4547: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4548: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_ORG', x_cascaded_table(n).error_message);
4549: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).to_organization_code);
4550: rcv_error_pkg.log_interface_error('TO_ORGANIZATION_CODE', FALSE);
4551: END IF;
4552:
4545: END IF;
4546:
4547: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4548: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_ORG', x_cascaded_table(n).error_message);
4549: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).to_organization_code);
4550: rcv_error_pkg.log_interface_error('TO_ORGANIZATION_CODE', FALSE);
4551: END IF;
4552:
4553: 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
4546:
4547: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4548: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_ORG', x_cascaded_table(n).error_message);
4549: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).to_organization_code);
4550: rcv_error_pkg.log_interface_error('TO_ORGANIZATION_CODE', FALSE);
4551: END IF;
4552:
4553: 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
4554: IF (g_asn_debug = 'Y') THEN
4554: IF (g_asn_debug = 'Y') THEN
4555: asn_debug.put_line('Ship_to_loc in PO does not match the user entered value');
4556: END IF;
4557:
4558: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4559: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
4560: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_code);
4561: rcv_error_pkg.log_interface_error('SHIP_TO_LOCATION_CODE', FALSE);
4562: END IF;
4555: asn_debug.put_line('Ship_to_loc in PO does not match the user entered value');
4556: END IF;
4557:
4558: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4559: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
4560: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_code);
4561: rcv_error_pkg.log_interface_error('SHIP_TO_LOCATION_CODE', FALSE);
4562: END IF;
4563:
4556: END IF;
4557:
4558: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4559: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
4560: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_code);
4561: rcv_error_pkg.log_interface_error('SHIP_TO_LOCATION_CODE', FALSE);
4562: END IF;
4563:
4564: IF x_vendor_product_num <> NVL(temp_cascaded_table(current_n).vendor_item_num, x_vendor_product_num) THEN
4557:
4558: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4559: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
4560: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_code);
4561: rcv_error_pkg.log_interface_error('SHIP_TO_LOCATION_CODE', FALSE);
4562: END IF;
4563:
4564: IF x_vendor_product_num <> NVL(temp_cascaded_table(current_n).vendor_item_num, x_vendor_product_num) THEN
4565: IF (g_asn_debug = 'Y') THEN
4565: IF (g_asn_debug = 'Y') THEN
4566: asn_debug.put_line('Vendor_prod_num in PO does not match the user entered value');
4567: END IF;
4568:
4569: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4570: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_VENDOR_PROD_NUM', x_cascaded_table(n).error_message);
4571: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).vendor_item_num);
4572: rcv_error_pkg.log_interface_error('VENDOR_ITEM_NUM', FALSE);
4573: END IF;
4566: asn_debug.put_line('Vendor_prod_num in PO does not match the user entered value');
4567: END IF;
4568:
4569: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4570: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_VENDOR_PROD_NUM', x_cascaded_table(n).error_message);
4571: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).vendor_item_num);
4572: rcv_error_pkg.log_interface_error('VENDOR_ITEM_NUM', FALSE);
4573: END IF;
4574:
4567: END IF;
4568:
4569: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4570: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_VENDOR_PROD_NUM', x_cascaded_table(n).error_message);
4571: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).vendor_item_num);
4572: rcv_error_pkg.log_interface_error('VENDOR_ITEM_NUM', FALSE);
4573: END IF;
4574:
4575: IF (g_asn_debug = 'Y') THEN
4568:
4569: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4570: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_VENDOR_PROD_NUM', x_cascaded_table(n).error_message);
4571: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).vendor_item_num);
4572: rcv_error_pkg.log_interface_error('VENDOR_ITEM_NUM', FALSE);
4573: END IF;
4574:
4575: IF (g_asn_debug = 'Y') THEN
4576: asn_debug.put_line('Should have give us the exact error ');
4587: IF (g_asn_debug = 'Y') THEN
4588: asn_debug.put_line('Receipt source code not VENDOR');
4589: END IF;
4590:
4591: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4592: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_RECEIPT_SRC_CODE', x_cascaded_table(n).error_message); -- Bug 7593902
4593: rcv_error_pkg.set_token('RECEIPT_SRC_CODE', l_receipt_source_code); -- Bug 7593902
4594: rcv_error_pkg.log_interface_error('SHIPMENT_NUMBER', FALSE);
4595: END IF;
4588: asn_debug.put_line('Receipt source code not VENDOR');
4589: END IF;
4590:
4591: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4592: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_RECEIPT_SRC_CODE', x_cascaded_table(n).error_message); -- Bug 7593902
4593: rcv_error_pkg.set_token('RECEIPT_SRC_CODE', l_receipt_source_code); -- Bug 7593902
4594: rcv_error_pkg.log_interface_error('SHIPMENT_NUMBER', FALSE);
4595: END IF;
4596:
4589: END IF;
4590:
4591: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4592: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_RECEIPT_SRC_CODE', x_cascaded_table(n).error_message); -- Bug 7593902
4593: rcv_error_pkg.set_token('RECEIPT_SRC_CODE', l_receipt_source_code); -- Bug 7593902
4594: rcv_error_pkg.log_interface_error('SHIPMENT_NUMBER', FALSE);
4595: END IF;
4596:
4597: IF ( l_shipment_line_status_code = 'FULLY RECEIVED'
4590:
4591: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4592: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_RECEIPT_SRC_CODE', x_cascaded_table(n).error_message); -- Bug 7593902
4593: rcv_error_pkg.set_token('RECEIPT_SRC_CODE', l_receipt_source_code); -- Bug 7593902
4594: rcv_error_pkg.log_interface_error('SHIPMENT_NUMBER', FALSE);
4595: END IF;
4596:
4597: IF ( l_shipment_line_status_code = 'FULLY RECEIVED'
4598: OR l_asn_line_flag <> 'Y') THEN
4599: IF (g_asn_debug = 'Y') THEN
4600: asn_debug.put_line('ASN line flag is not Y and status code is Fully closed');
4601: END IF;
4602:
4603: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4604: rcv_error_pkg.set_error_message('RCV_ASN_NO_EXPECTED_RECEIPTS', x_cascaded_table(n).error_message);
4605: rcv_error_pkg.log_interface_error('SHIPMENT_NUMBER', FALSE);
4606: END IF;
4607:
4600: asn_debug.put_line('ASN line flag is not Y and status code is Fully closed');
4601: END IF;
4602:
4603: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4604: rcv_error_pkg.set_error_message('RCV_ASN_NO_EXPECTED_RECEIPTS', x_cascaded_table(n).error_message);
4605: rcv_error_pkg.log_interface_error('SHIPMENT_NUMBER', FALSE);
4606: END IF;
4607:
4608: IF (g_asn_debug = 'Y') THEN
4601: END IF;
4602:
4603: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4604: rcv_error_pkg.set_error_message('RCV_ASN_NO_EXPECTED_RECEIPTS', x_cascaded_table(n).error_message);
4605: rcv_error_pkg.log_interface_error('SHIPMENT_NUMBER', FALSE);
4606: END IF;
4607:
4608: IF (g_asn_debug = 'Y') THEN
4609: asn_debug.put_line('Should have give us the exact error for ASN ');
4770: END IF;
4771:
4772: IF (l_asn_count <> 0) THEN --{
4773: IF (l_asn_exists_code = 'WARNING') THEN --{
4774: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
4775: rcv_error_pkg.set_error_message('RCV_ASN_EXISTS_FOR_POLINE', x_cascaded_table(n).error_message);
4776: rcv_error_pkg.log_interface_warning('DOCUMENT_NUM');
4777:
4778: IF (g_asn_debug = 'Y') THEN
4771:
4772: IF (l_asn_count <> 0) THEN --{
4773: IF (l_asn_exists_code = 'WARNING') THEN --{
4774: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
4775: rcv_error_pkg.set_error_message('RCV_ASN_EXISTS_FOR_POLINE', x_cascaded_table(n).error_message);
4776: rcv_error_pkg.log_interface_warning('DOCUMENT_NUM');
4777:
4778: IF (g_asn_debug = 'Y') THEN
4779: asn_debug.put_line('AFter Warning insert into po_interface_errors ' || x_cascaded_table(n).error_message);
4772: IF (l_asn_count <> 0) THEN --{
4773: IF (l_asn_exists_code = 'WARNING') THEN --{
4774: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
4775: rcv_error_pkg.set_error_message('RCV_ASN_EXISTS_FOR_POLINE', x_cascaded_table(n).error_message);
4776: rcv_error_pkg.log_interface_warning('DOCUMENT_NUM');
4777:
4778: IF (g_asn_debug = 'Y') THEN
4779: asn_debug.put_line('AFter Warning insert into po_interface_errors ' || x_cascaded_table(n).error_message);
4780: END IF;
4780: END IF;
4781: END IF; --}
4782:
4783: IF (l_asn_exists_code = 'REJECT') THEN --{
4784: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4785: rcv_error_pkg.set_error_message('RCV_ASN_EXISTS_FOR_POLINE', x_cascaded_table(n).error_message);
4786: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_num);
4787: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
4788:
4781: END IF; --}
4782:
4783: IF (l_asn_exists_code = 'REJECT') THEN --{
4784: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4785: rcv_error_pkg.set_error_message('RCV_ASN_EXISTS_FOR_POLINE', x_cascaded_table(n).error_message);
4786: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_num);
4787: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
4788:
4789: IF (g_asn_debug = 'Y') THEN
4782:
4783: IF (l_asn_exists_code = 'REJECT') THEN --{
4784: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4785: rcv_error_pkg.set_error_message('RCV_ASN_EXISTS_FOR_POLINE', x_cascaded_table(n).error_message);
4786: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_num);
4787: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
4788:
4789: IF (g_asn_debug = 'Y') THEN
4790: asn_debug.put_line('AFter Reject insert into po_interface_errors ' || x_cascaded_table(n).error_message);
4783: IF (l_asn_exists_code = 'REJECT') THEN --{
4784: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4785: rcv_error_pkg.set_error_message('RCV_ASN_EXISTS_FOR_POLINE', x_cascaded_table(n).error_message);
4786: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_num);
4787: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
4788:
4789: IF (g_asn_debug = 'Y') THEN
4790: asn_debug.put_line('AFter Reject insert into po_interface_errors ' || x_cascaded_table(n).error_message);
4791: END IF;
4803:
4804: IF (l_asn_exists_code IN('NONE', 'WARNING')) THEN --{
4805: /* bug 1060261 - added error message to be shown when the expected date is outside tolerance range */
4806: IF (x_shipmentdistributionrec.receipt_days_exception_code = 'REJECT') THEN --{
4807: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4808: rcv_error_pkg.set_error_message('RCV_ASN_DATE_OUT_TOL', x_cascaded_table(n).error_message);
4809: rcv_error_pkg.set_token('DELIVERY DATE', NVL(temp_cascaded_table(1).expected_receipt_date, x_header_record.header_record.expected_receipt_date));
4810: rcv_error_pkg.log_interface_error('EXPECTED_RECEIPT_DATE', FALSE);
4811: END IF; --}
4804: IF (l_asn_exists_code IN('NONE', 'WARNING')) THEN --{
4805: /* bug 1060261 - added error message to be shown when the expected date is outside tolerance range */
4806: IF (x_shipmentdistributionrec.receipt_days_exception_code = 'REJECT') THEN --{
4807: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4808: rcv_error_pkg.set_error_message('RCV_ASN_DATE_OUT_TOL', x_cascaded_table(n).error_message);
4809: rcv_error_pkg.set_token('DELIVERY DATE', NVL(temp_cascaded_table(1).expected_receipt_date, x_header_record.header_record.expected_receipt_date));
4810: rcv_error_pkg.log_interface_error('EXPECTED_RECEIPT_DATE', FALSE);
4811: END IF; --}
4812:
4805: /* bug 1060261 - added error message to be shown when the expected date is outside tolerance range */
4806: IF (x_shipmentdistributionrec.receipt_days_exception_code = 'REJECT') THEN --{
4807: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4808: rcv_error_pkg.set_error_message('RCV_ASN_DATE_OUT_TOL', x_cascaded_table(n).error_message);
4809: rcv_error_pkg.set_token('DELIVERY DATE', NVL(temp_cascaded_table(1).expected_receipt_date, x_header_record.header_record.expected_receipt_date));
4810: rcv_error_pkg.log_interface_error('EXPECTED_RECEIPT_DATE', FALSE);
4811: END IF; --}
4812:
4813: IF (g_asn_debug = 'Y') THEN
4806: IF (x_shipmentdistributionrec.receipt_days_exception_code = 'REJECT') THEN --{
4807: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4808: rcv_error_pkg.set_error_message('RCV_ASN_DATE_OUT_TOL', x_cascaded_table(n).error_message);
4809: rcv_error_pkg.set_token('DELIVERY DATE', NVL(temp_cascaded_table(1).expected_receipt_date, x_header_record.header_record.expected_receipt_date));
4810: rcv_error_pkg.log_interface_error('EXPECTED_RECEIPT_DATE', FALSE);
4811: END IF; --}
4812:
4813: IF (g_asn_debug = 'Y') THEN
4814: asn_debug.put_line('Days exception Code ' || NVL(x_shipmentdistributionrec.receipt_days_exception_code, 'XXX'));
4829: Enter error message in po_interface_errors if enforce_ship_to_location_code is 'REJECT' and error out
4830: */
4831: IF (x_shipmentdistributionrec.enforce_ship_to_location_code = 'REJECT') THEN --{
4832: BEGIN
4833: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4834: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
4835: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_id);
4836: rcv_error_pkg.log_interface_error('SHIP_TO_LOCATION_ID', FALSE);
4837: x_shipmentdistributionrec.ship_to_location_id := NVL(temp_cascaded_table(1).ship_to_location_id, x_header_record.header_record.location_id);
4830: */
4831: IF (x_shipmentdistributionrec.enforce_ship_to_location_code = 'REJECT') THEN --{
4832: BEGIN
4833: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4834: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
4835: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_id);
4836: rcv_error_pkg.log_interface_error('SHIP_TO_LOCATION_ID', FALSE);
4837: x_shipmentdistributionrec.ship_to_location_id := NVL(temp_cascaded_table(1).ship_to_location_id, x_header_record.header_record.location_id);
4838: END;
4831: IF (x_shipmentdistributionrec.enforce_ship_to_location_code = 'REJECT') THEN --{
4832: BEGIN
4833: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4834: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
4835: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_id);
4836: rcv_error_pkg.log_interface_error('SHIP_TO_LOCATION_ID', FALSE);
4837: x_shipmentdistributionrec.ship_to_location_id := NVL(temp_cascaded_table(1).ship_to_location_id, x_header_record.header_record.location_id);
4838: END;
4839: ELSIF(x_shipmentdistributionrec.enforce_ship_to_location_code = 'WARNING') THEN --} {
4832: BEGIN
4833: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
4834: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
4835: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_id);
4836: rcv_error_pkg.log_interface_error('SHIP_TO_LOCATION_ID', FALSE);
4837: x_shipmentdistributionrec.ship_to_location_id := NVL(temp_cascaded_table(1).ship_to_location_id, x_header_record.header_record.location_id);
4838: END;
4839: ELSIF(x_shipmentdistributionrec.enforce_ship_to_location_code = 'WARNING') THEN --} {
4840: BEGIN
4837: x_shipmentdistributionrec.ship_to_location_id := NVL(temp_cascaded_table(1).ship_to_location_id, x_header_record.header_record.location_id);
4838: END;
4839: ELSIF(x_shipmentdistributionrec.enforce_ship_to_location_code = 'WARNING') THEN --} {
4840: BEGIN
4841: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
4842: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
4843: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_id);
4844: rcv_error_pkg.log_interface_warning('SHIP_TO_LOCATION_ID');
4845: x_shipmentdistributionrec.ship_to_location_id := NVL(temp_cascaded_table(1).ship_to_location_id, x_header_record.header_record.location_id);
4838: END;
4839: ELSIF(x_shipmentdistributionrec.enforce_ship_to_location_code = 'WARNING') THEN --} {
4840: BEGIN
4841: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
4842: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
4843: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_id);
4844: rcv_error_pkg.log_interface_warning('SHIP_TO_LOCATION_ID');
4845: x_shipmentdistributionrec.ship_to_location_id := NVL(temp_cascaded_table(1).ship_to_location_id, x_header_record.header_record.location_id);
4846: END;
4839: ELSIF(x_shipmentdistributionrec.enforce_ship_to_location_code = 'WARNING') THEN --} {
4840: BEGIN
4841: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
4842: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
4843: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_id);
4844: rcv_error_pkg.log_interface_warning('SHIP_TO_LOCATION_ID');
4845: x_shipmentdistributionrec.ship_to_location_id := NVL(temp_cascaded_table(1).ship_to_location_id, x_header_record.header_record.location_id);
4846: END;
4847: END IF; --}matches ship_to_loc_code = warning
4840: BEGIN
4841: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
4842: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
4843: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_id);
4844: rcv_error_pkg.log_interface_warning('SHIP_TO_LOCATION_ID');
4845: x_shipmentdistributionrec.ship_to_location_id := NVL(temp_cascaded_table(1).ship_to_location_id, x_header_record.header_record.location_id);
4846: END;
4847: END IF; --}matches ship_to_loc_code = warning
4848: END IF; --} matches l_asn_exists_code = NONE
4883: asn_debug.put_line('Primary UOM: ' || temp_cascaded_table(current_n).primary_unit_of_measure);
4884: END IF;
4885: EXCEPTION
4886: WHEN NO_DATA_FOUND THEN
4887: temp_cascaded_table(current_n).error_status := rcv_error_pkg.g_ret_sts_warning;
4888: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PRIMARY', temp_cascaded_table(current_n).error_message);
4889: rcv_error_pkg.set_token('PRIMARY_UNIT', '');
4890: rcv_error_pkg.set_token('SHIPMENT_UNIT', '');
4891: rcv_error_pkg.log_interface_warning('ITEM_ID');
4884: END IF;
4885: EXCEPTION
4886: WHEN NO_DATA_FOUND THEN
4887: temp_cascaded_table(current_n).error_status := rcv_error_pkg.g_ret_sts_warning;
4888: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PRIMARY', temp_cascaded_table(current_n).error_message);
4889: rcv_error_pkg.set_token('PRIMARY_UNIT', '');
4890: rcv_error_pkg.set_token('SHIPMENT_UNIT', '');
4891: rcv_error_pkg.log_interface_warning('ITEM_ID');
4892:
4885: EXCEPTION
4886: WHEN NO_DATA_FOUND THEN
4887: temp_cascaded_table(current_n).error_status := rcv_error_pkg.g_ret_sts_warning;
4888: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PRIMARY', temp_cascaded_table(current_n).error_message);
4889: rcv_error_pkg.set_token('PRIMARY_UNIT', '');
4890: rcv_error_pkg.set_token('SHIPMENT_UNIT', '');
4891: rcv_error_pkg.log_interface_warning('ITEM_ID');
4892:
4893: IF (g_asn_debug = 'Y') THEN
4886: WHEN NO_DATA_FOUND THEN
4887: temp_cascaded_table(current_n).error_status := rcv_error_pkg.g_ret_sts_warning;
4888: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PRIMARY', temp_cascaded_table(current_n).error_message);
4889: rcv_error_pkg.set_token('PRIMARY_UNIT', '');
4890: rcv_error_pkg.set_token('SHIPMENT_UNIT', '');
4891: rcv_error_pkg.log_interface_warning('ITEM_ID');
4892:
4893: IF (g_asn_debug = 'Y') THEN
4894: asn_debug.put_line('Primary UOM error');
4887: temp_cascaded_table(current_n).error_status := rcv_error_pkg.g_ret_sts_warning;
4888: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PRIMARY', temp_cascaded_table(current_n).error_message);
4889: rcv_error_pkg.set_token('PRIMARY_UNIT', '');
4890: rcv_error_pkg.set_token('SHIPMENT_UNIT', '');
4891: rcv_error_pkg.log_interface_warning('ITEM_ID');
4892:
4893: IF (g_asn_debug = 'Y') THEN
4894: asn_debug.put_line('Primary UOM error');
4895: END IF;
5202: /* Start Bug 3654053 : Need to populate the po_interface_errors
5203: table if the UOM conversion errors out.
5204: */
5205: IF po_primary_uom_qty = 0 THEN
5206: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5207: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PRIMARY', x_cascaded_table(n).error_message);
5208: rcv_error_pkg.set_token('SHIPMENT_UNIT', x_shipmentdistributionrec.unit_meas_lookup_code);
5209: rcv_error_pkg.set_token('PRIMARY_UNIT', x_cascaded_table(n).primary_unit_of_measure);
5210: rcv_error_pkg.log_interface_error('PRIMARY_UNIT_OF_MEASURE', FALSE);
5203: table if the UOM conversion errors out.
5204: */
5205: IF po_primary_uom_qty = 0 THEN
5206: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5207: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PRIMARY', x_cascaded_table(n).error_message);
5208: rcv_error_pkg.set_token('SHIPMENT_UNIT', x_shipmentdistributionrec.unit_meas_lookup_code);
5209: rcv_error_pkg.set_token('PRIMARY_UNIT', x_cascaded_table(n).primary_unit_of_measure);
5210: rcv_error_pkg.log_interface_error('PRIMARY_UNIT_OF_MEASURE', FALSE);
5211: ELSE
5204: */
5205: IF po_primary_uom_qty = 0 THEN
5206: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5207: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PRIMARY', x_cascaded_table(n).error_message);
5208: rcv_error_pkg.set_token('SHIPMENT_UNIT', x_shipmentdistributionrec.unit_meas_lookup_code);
5209: rcv_error_pkg.set_token('PRIMARY_UNIT', x_cascaded_table(n).primary_unit_of_measure);
5210: rcv_error_pkg.log_interface_error('PRIMARY_UNIT_OF_MEASURE', FALSE);
5211: ELSE
5212: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5205: IF po_primary_uom_qty = 0 THEN
5206: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5207: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PRIMARY', x_cascaded_table(n).error_message);
5208: rcv_error_pkg.set_token('SHIPMENT_UNIT', x_shipmentdistributionrec.unit_meas_lookup_code);
5209: rcv_error_pkg.set_token('PRIMARY_UNIT', x_cascaded_table(n).primary_unit_of_measure);
5210: rcv_error_pkg.log_interface_error('PRIMARY_UNIT_OF_MEASURE', FALSE);
5211: ELSE
5212: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5213: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PO', x_cascaded_table(n).error_message);
5206: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5207: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PRIMARY', x_cascaded_table(n).error_message);
5208: rcv_error_pkg.set_token('SHIPMENT_UNIT', x_shipmentdistributionrec.unit_meas_lookup_code);
5209: rcv_error_pkg.set_token('PRIMARY_UNIT', x_cascaded_table(n).primary_unit_of_measure);
5210: rcv_error_pkg.log_interface_error('PRIMARY_UNIT_OF_MEASURE', FALSE);
5211: ELSE
5212: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5213: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PO', x_cascaded_table(n).error_message);
5214: rcv_error_pkg.set_token('SHIPMENT_UNIT', temp_cascaded_table(1).unit_of_measure);
5208: rcv_error_pkg.set_token('SHIPMENT_UNIT', x_shipmentdistributionrec.unit_meas_lookup_code);
5209: rcv_error_pkg.set_token('PRIMARY_UNIT', x_cascaded_table(n).primary_unit_of_measure);
5210: rcv_error_pkg.log_interface_error('PRIMARY_UNIT_OF_MEASURE', FALSE);
5211: ELSE
5212: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5213: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PO', x_cascaded_table(n).error_message);
5214: rcv_error_pkg.set_token('SHIPMENT_UNIT', temp_cascaded_table(1).unit_of_measure);
5215:
5216: -- For bug 8625167, the token PRIMARY_UNIT is wrong, it should be PO_UNIT
5209: rcv_error_pkg.set_token('PRIMARY_UNIT', x_cascaded_table(n).primary_unit_of_measure);
5210: rcv_error_pkg.log_interface_error('PRIMARY_UNIT_OF_MEASURE', FALSE);
5211: ELSE
5212: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5213: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PO', x_cascaded_table(n).error_message);
5214: rcv_error_pkg.set_token('SHIPMENT_UNIT', temp_cascaded_table(1).unit_of_measure);
5215:
5216: -- For bug 8625167, the token PRIMARY_UNIT is wrong, it should be PO_UNIT
5217: --rcv_error_pkg.set_token('PRIMARY_UNIT', x_shipmentdistributionrec.unit_meas_lookup_code);
5210: rcv_error_pkg.log_interface_error('PRIMARY_UNIT_OF_MEASURE', FALSE);
5211: ELSE
5212: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5213: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PO', x_cascaded_table(n).error_message);
5214: rcv_error_pkg.set_token('SHIPMENT_UNIT', temp_cascaded_table(1).unit_of_measure);
5215:
5216: -- For bug 8625167, the token PRIMARY_UNIT is wrong, it should be PO_UNIT
5217: --rcv_error_pkg.set_token('PRIMARY_UNIT', x_shipmentdistributionrec.unit_meas_lookup_code);
5218: rcv_error_pkg.set_token('PO_UNIT', x_shipmentdistributionrec.unit_meas_lookup_code);
5213: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PO', x_cascaded_table(n).error_message);
5214: rcv_error_pkg.set_token('SHIPMENT_UNIT', temp_cascaded_table(1).unit_of_measure);
5215:
5216: -- For bug 8625167, the token PRIMARY_UNIT is wrong, it should be PO_UNIT
5217: --rcv_error_pkg.set_token('PRIMARY_UNIT', x_shipmentdistributionrec.unit_meas_lookup_code);
5218: rcv_error_pkg.set_token('PO_UNIT', x_shipmentdistributionrec.unit_meas_lookup_code);
5219: -- End for bug 8625167
5220:
5221: rcv_error_pkg.log_interface_error('UNIT_OF_MEASURE', FALSE);
5214: rcv_error_pkg.set_token('SHIPMENT_UNIT', temp_cascaded_table(1).unit_of_measure);
5215:
5216: -- For bug 8625167, the token PRIMARY_UNIT is wrong, it should be PO_UNIT
5217: --rcv_error_pkg.set_token('PRIMARY_UNIT', x_shipmentdistributionrec.unit_meas_lookup_code);
5218: rcv_error_pkg.set_token('PO_UNIT', x_shipmentdistributionrec.unit_meas_lookup_code);
5219: -- End for bug 8625167
5220:
5221: rcv_error_pkg.log_interface_error('UNIT_OF_MEASURE', FALSE);
5222: END IF;
5217: --rcv_error_pkg.set_token('PRIMARY_UNIT', x_shipmentdistributionrec.unit_meas_lookup_code);
5218: rcv_error_pkg.set_token('PO_UNIT', x_shipmentdistributionrec.unit_meas_lookup_code);
5219: -- End for bug 8625167
5220:
5221: rcv_error_pkg.log_interface_error('UNIT_OF_MEASURE', FALSE);
5222: END IF;
5223: /* End Bug 3654053 */
5224: -- For bug 8625167, correct the existing logic to throw exception if g_asn_debug is set to 'N'.
5225: --END IF;
5761: asn_debug.put_line('Status = ' || x_cascaded_table(n).error_status);
5762: END IF;
5763:
5764: IF x_cascaded_table(n).error_status IN('S', 'W', 'F') THEN --{
5765: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5766: rcv_error_pkg.set_error_message('RCV_ASN_NO_PO_LINE_LOCATION_ID', x_cascaded_table(n).error_message);
5767: rcv_error_pkg.set_token('DOCUMENT_NUM', x_cascaded_table(n).document_num);
5768: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
5769: END IF; --}
5762: END IF;
5763:
5764: IF x_cascaded_table(n).error_status IN('S', 'W', 'F') THEN --{
5765: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5766: rcv_error_pkg.set_error_message('RCV_ASN_NO_PO_LINE_LOCATION_ID', x_cascaded_table(n).error_message);
5767: rcv_error_pkg.set_token('DOCUMENT_NUM', x_cascaded_table(n).document_num);
5768: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
5769: END IF; --}
5770:
5763:
5764: IF x_cascaded_table(n).error_status IN('S', 'W', 'F') THEN --{
5765: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5766: rcv_error_pkg.set_error_message('RCV_ASN_NO_PO_LINE_LOCATION_ID', x_cascaded_table(n).error_message);
5767: rcv_error_pkg.set_token('DOCUMENT_NUM', x_cascaded_table(n).document_num);
5768: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
5769: END IF; --}
5770:
5771: RETURN;
5764: IF x_cascaded_table(n).error_status IN('S', 'W', 'F') THEN --{
5765: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
5766: rcv_error_pkg.set_error_message('RCV_ASN_NO_PO_LINE_LOCATION_ID', x_cascaded_table(n).error_message);
5767: rcv_error_pkg.set_token('DOCUMENT_NUM', x_cascaded_table(n).document_num);
5768: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
5769: END IF; --}
5770:
5771: RETURN;
5772: END IF; -- } of (asn quantity_shipped was valid)
5858: IF count_asn_distributions%ISOPEN THEN
5859: CLOSE count_asn_distributions;
5860: END IF;
5861:
5862: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
5863: rcv_error_pkg.set_sql_error_message('derive_vendor_rcv_line_qty', x_progress);
5864: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
5865:
5866: IF (g_asn_debug = 'Y') THEN
5859: CLOSE count_asn_distributions;
5860: END IF;
5861:
5862: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
5863: rcv_error_pkg.set_sql_error_message('derive_vendor_rcv_line_qty', x_progress);
5864: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
5865:
5866: IF (g_asn_debug = 'Y') THEN
5867: asn_debug.put_line(TO_CHAR(n));
5860: END IF;
5861:
5862: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
5863: rcv_error_pkg.set_sql_error_message('derive_vendor_rcv_line_qty', x_progress);
5864: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
5865:
5866: IF (g_asn_debug = 'Y') THEN
5867: asn_debug.put_line(TO_CHAR(n));
5868: asn_debug.put_line(SQLERRM);
6118: */
6119: /* Complex Work project*/
6120: IF ((x_cascaded_table(n).transaction_type = 'SHIP') and
6121: (x_header_record.header_record.asn_type <> 'WC' )) THEN --{
6122: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6123: rcv_error_pkg.set_error_message('RCV_NO_SERVICE_SUPPORT_TRX', x_cascaded_table(n).error_message);
6124: rcv_error_pkg.set_token('TRX_TYPE', x_cascaded_table(n).transaction_type);
6125: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE', FALSE);
6126: END IF; --}
6119: /* Complex Work project*/
6120: IF ((x_cascaded_table(n).transaction_type = 'SHIP') and
6121: (x_header_record.header_record.asn_type <> 'WC' )) THEN --{
6122: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6123: rcv_error_pkg.set_error_message('RCV_NO_SERVICE_SUPPORT_TRX', x_cascaded_table(n).error_message);
6124: rcv_error_pkg.set_token('TRX_TYPE', x_cascaded_table(n).transaction_type);
6125: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE', FALSE);
6126: END IF; --}
6127:
6120: IF ((x_cascaded_table(n).transaction_type = 'SHIP') and
6121: (x_header_record.header_record.asn_type <> 'WC' )) THEN --{
6122: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6123: rcv_error_pkg.set_error_message('RCV_NO_SERVICE_SUPPORT_TRX', x_cascaded_table(n).error_message);
6124: rcv_error_pkg.set_token('TRX_TYPE', x_cascaded_table(n).transaction_type);
6125: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE', FALSE);
6126: END IF; --}
6127:
6128: /* Support for RATE based from OTL */
6121: (x_header_record.header_record.asn_type <> 'WC' )) THEN --{
6122: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6123: rcv_error_pkg.set_error_message('RCV_NO_SERVICE_SUPPORT_TRX', x_cascaded_table(n).error_message);
6124: rcv_error_pkg.set_token('TRX_TYPE', x_cascaded_table(n).transaction_type);
6125: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE', FALSE);
6126: END IF; --}
6127:
6128: /* Support for RATE based from OTL */
6129: IF ( x_cascaded_table(n).value_basis = 'RATE'
6162: IF (g_asn_debug = 'Y') THEN
6163: asn_debug.put_line('We do not support RATE/TEMP LABOR through ROI unless it comes through OTL');
6164: END IF;
6165:
6166: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6167: rcv_error_pkg.set_error_message('RCV_NO_RATE_UNLESS_OTL', x_cascaded_table(n).error_message);
6168: rcv_error_pkg.set_token('TRX_TYPE', x_cascaded_table(n).transaction_type);
6169: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE', FALSE);
6170: END IF; --}
6163: asn_debug.put_line('We do not support RATE/TEMP LABOR through ROI unless it comes through OTL');
6164: END IF;
6165:
6166: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6167: rcv_error_pkg.set_error_message('RCV_NO_RATE_UNLESS_OTL', x_cascaded_table(n).error_message);
6168: rcv_error_pkg.set_token('TRX_TYPE', x_cascaded_table(n).transaction_type);
6169: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE', FALSE);
6170: END IF; --}
6171: END IF; --}
6164: END IF;
6165:
6166: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6167: rcv_error_pkg.set_error_message('RCV_NO_RATE_UNLESS_OTL', x_cascaded_table(n).error_message);
6168: rcv_error_pkg.set_token('TRX_TYPE', x_cascaded_table(n).transaction_type);
6169: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE', FALSE);
6170: END IF; --}
6171: END IF; --}
6172:
6165:
6166: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6167: rcv_error_pkg.set_error_message('RCV_NO_RATE_UNLESS_OTL', x_cascaded_table(n).error_message);
6168: rcv_error_pkg.set_token('TRX_TYPE', x_cascaded_table(n).transaction_type);
6169: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE', FALSE);
6170: END IF; --}
6171: END IF; --}
6172:
6173: /* Bug 6610047.
6182: IF (g_asn_debug = 'Y') THEN
6183: asn_debug.put_line('Amount is <= zero. Cascade will fail');
6184: END IF;
6185:
6186: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6187: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
6188: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
6189: rcv_error_pkg.log_interface_error('AMOUNT', FALSE);
6190: END IF; --} end amt > 0 check
6183: asn_debug.put_line('Amount is <= zero. Cascade will fail');
6184: END IF;
6185:
6186: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6187: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
6188: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
6189: rcv_error_pkg.log_interface_error('AMOUNT', FALSE);
6190: END IF; --} end amt > 0 check
6191: */
6184: END IF;
6185:
6186: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6187: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
6188: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
6189: rcv_error_pkg.log_interface_error('AMOUNT', FALSE);
6190: END IF; --} end amt > 0 check
6191: */
6192: -- the following steps will create a set of rows linking the line_record with
6185:
6186: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6187: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
6188: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
6189: rcv_error_pkg.log_interface_error('AMOUNT', FALSE);
6190: END IF; --} end amt > 0 check
6191: */
6192: -- the following steps will create a set of rows linking the line_record with
6193: -- its corresponding po_line_location rows until the quantity value from
6532: asn_debug.put_line('Header Interface Id ' || TO_CHAR(temp_cascaded_table(current_n).header_interface_id));
6533: asn_debug.put_line('IN Trans Id ' || TO_CHAR(temp_cascaded_table(current_n).interface_transaction_id));
6534: END IF;
6535:
6536: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
6537: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
6538: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
6539: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_amount);
6540: rcv_error_pkg.log_interface_warning('QUANTITY');
6533: asn_debug.put_line('IN Trans Id ' || TO_CHAR(temp_cascaded_table(current_n).interface_transaction_id));
6534: END IF;
6535:
6536: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
6537: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
6538: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
6539: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_amount);
6540: rcv_error_pkg.log_interface_warning('QUANTITY');
6541:
6534: END IF;
6535:
6536: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
6537: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
6538: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
6539: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_amount);
6540: rcv_error_pkg.log_interface_warning('QUANTITY');
6541:
6542: IF (g_asn_debug = 'Y') THEN
6535:
6536: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
6537: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
6538: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
6539: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_amount);
6540: rcv_error_pkg.log_interface_warning('QUANTITY');
6541:
6542: IF (g_asn_debug = 'Y') THEN
6543: asn_debug.put_line('Error Status ' || temp_cascaded_table(current_n).error_status);
6536: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
6537: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
6538: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
6539: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_amount);
6540: rcv_error_pkg.log_interface_warning('QUANTITY');
6541:
6542: IF (g_asn_debug = 'Y') THEN
6543: asn_debug.put_line('Error Status ' || temp_cascaded_table(current_n).error_status);
6544: asn_debug.put_line('Error message ' || temp_cascaded_table(current_n).error_message);
6560: IF (g_asn_debug = 'Y') THEN
6561: asn_debug.put_line('delete the temp table ');
6562: END IF;
6563:
6564: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6565:
6566: --
6567: IF l_is_clm_po = 'Y' AND l_partial_funded_flag = 'Y' THEN
6568:
6565:
6566: --
6567: IF l_is_clm_po = 'Y' AND l_partial_funded_flag = 'Y' THEN
6568:
6569: rcv_error_pkg.set_error_message(
6570: 'RCV_TRX_QTY_EXCEEDS_CLM_FUNDED',
6571: x_cascaded_table(n).error_message);
6572: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).amount);
6573: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).amount - x_remaining_amount);
6568:
6569: rcv_error_pkg.set_error_message(
6570: 'RCV_TRX_QTY_EXCEEDS_CLM_FUNDED',
6571: x_cascaded_table(n).error_message);
6572: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).amount);
6573: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).amount - x_remaining_amount);
6574:
6575: ELSE
6576: --
6569: rcv_error_pkg.set_error_message(
6570: 'RCV_TRX_QTY_EXCEEDS_CLM_FUNDED',
6571: x_cascaded_table(n).error_message);
6572: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).amount);
6573: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).amount - x_remaining_amount);
6574:
6575: ELSE
6576: --
6577:
6574:
6575: ELSE
6576: --
6577:
6578: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
6579: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).amount);
6580: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).amount - x_remaining_amount);
6581:
6582: END IF; --
6575: ELSE
6576: --
6577:
6578: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
6579: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).amount);
6580: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).amount - x_remaining_amount);
6581:
6582: END IF; --
6583:
6576: --
6577:
6578: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
6579: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).amount);
6580: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).amount - x_remaining_amount);
6581:
6582: END IF; --
6583:
6584: rcv_error_pkg.log_interface_error('AMOUNT', FALSE);
6580: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).amount - x_remaining_amount);
6581:
6582: END IF; --
6583:
6584: rcv_error_pkg.log_interface_error('AMOUNT', FALSE);
6585: temp_cascaded_table.DELETE;
6586:
6587: IF (g_asn_debug = 'Y') THEN
6588: asn_debug.put_line('mark the actual table with error status');
6626: AND pll.line_location_id = NVL(temp_cascaded_table(current_n).po_line_location_id, pll.line_location_id)
6627: AND pll.po_line_id = pl.po_line_id);
6628:
6629: IF x_temp_count = 0 THEN
6630: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6631: rcv_error_pkg.set_error_message('RCV_ASN_NO_OPEN_SHIPMENTS', x_cascaded_table(n).error_message);
6632: rcv_error_pkg.set_token('PONUM', temp_cascaded_table(current_n).document_num);
6633: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
6634: ELSE -- x_temp_count != 0
6627: AND pll.po_line_id = pl.po_line_id);
6628:
6629: IF x_temp_count = 0 THEN
6630: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6631: rcv_error_pkg.set_error_message('RCV_ASN_NO_OPEN_SHIPMENTS', x_cascaded_table(n).error_message);
6632: rcv_error_pkg.set_token('PONUM', temp_cascaded_table(current_n).document_num);
6633: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
6634: ELSE -- x_temp_count != 0
6635: SELECT NVL(pll.po_release_id, 0),
6628:
6629: IF x_temp_count = 0 THEN
6630: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6631: rcv_error_pkg.set_error_message('RCV_ASN_NO_OPEN_SHIPMENTS', x_cascaded_table(n).error_message);
6632: rcv_error_pkg.set_token('PONUM', temp_cascaded_table(current_n).document_num);
6633: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
6634: ELSE -- x_temp_count != 0
6635: SELECT NVL(pll.po_release_id, 0),
6636: NVL(pll.approved_flag, 'N'),
6629: IF x_temp_count = 0 THEN
6630: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6631: rcv_error_pkg.set_error_message('RCV_ASN_NO_OPEN_SHIPMENTS', x_cascaded_table(n).error_message);
6632: rcv_error_pkg.set_token('PONUM', temp_cascaded_table(current_n).document_num);
6633: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
6634: ELSE -- x_temp_count != 0
6635: SELECT NVL(pll.po_release_id, 0),
6636: NVL(pll.approved_flag, 'N'),
6637: NVL(pll.cancel_flag, 'N'),
6670: AND pll.po_line_id = pl.po_line_id
6671: AND pod.distribution_num = NVL(temp_cascaded_table(current_n).document_distribution_num, pod.distribution_num);
6672:
6673: IF x_temp_count = 0 THEN
6674: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6675: rcv_error_pkg.set_error_message('RCV_ASN_INVALID_DIST_NUM', x_cascaded_table(n).error_message);
6676: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_distribution_num);
6677: rcv_error_pkg.log_interface_error('DOCUMENT_DISTRIBUTION_NUM', FALSE);
6678: ELSE -- x_temp_count != 0
6671: AND pod.distribution_num = NVL(temp_cascaded_table(current_n).document_distribution_num, pod.distribution_num);
6672:
6673: IF x_temp_count = 0 THEN
6674: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6675: rcv_error_pkg.set_error_message('RCV_ASN_INVALID_DIST_NUM', x_cascaded_table(n).error_message);
6676: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_distribution_num);
6677: rcv_error_pkg.log_interface_error('DOCUMENT_DISTRIBUTION_NUM', FALSE);
6678: ELSE -- x_temp_count != 0
6679: SELECT NVL(pll.po_release_id, 0),
6672:
6673: IF x_temp_count = 0 THEN
6674: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6675: rcv_error_pkg.set_error_message('RCV_ASN_INVALID_DIST_NUM', x_cascaded_table(n).error_message);
6676: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_distribution_num);
6677: rcv_error_pkg.log_interface_error('DOCUMENT_DISTRIBUTION_NUM', FALSE);
6678: ELSE -- x_temp_count != 0
6679: SELECT NVL(pll.po_release_id, 0),
6680: NVL(pll.approved_flag, 'N'),
6673: IF x_temp_count = 0 THEN
6674: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6675: rcv_error_pkg.set_error_message('RCV_ASN_INVALID_DIST_NUM', x_cascaded_table(n).error_message);
6676: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_distribution_num);
6677: rcv_error_pkg.log_interface_error('DOCUMENT_DISTRIBUTION_NUM', FALSE);
6678: ELSE -- x_temp_count != 0
6679: SELECT NVL(pll.po_release_id, 0),
6680: NVL(pll.approved_flag, 'N'),
6681: NVL(pll.cancel_flag, 'N'),
6701: END IF; -- x_temp_count = 0;
6702: END IF; -- transaction_type <> 'DELIVER' --}
6703:
6704: IF (x_temp_count <> 0) THEN --{
6705: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6706:
6707: IF x_release_id <> NVL(temp_cascaded_table(current_n).po_release_id, x_release_id) THEN
6708: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6709: rcv_error_pkg.set_error_message('RCV_ASN_ITEM_NOT_ALLOWED', x_cascaded_table(n).error_message);
6704: IF (x_temp_count <> 0) THEN --{
6705: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6706:
6707: IF x_release_id <> NVL(temp_cascaded_table(current_n).po_release_id, x_release_id) THEN
6708: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6709: rcv_error_pkg.set_error_message('RCV_ASN_ITEM_NOT_ALLOWED', x_cascaded_table(n).error_message);
6710: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).item_num);
6711: rcv_error_pkg.log_interface_error('ITEM_NUM', FALSE);
6712: END IF;
6705: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6706:
6707: IF x_release_id <> NVL(temp_cascaded_table(current_n).po_release_id, x_release_id) THEN
6708: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6709: rcv_error_pkg.set_error_message('RCV_ASN_ITEM_NOT_ALLOWED', x_cascaded_table(n).error_message);
6710: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).item_num);
6711: rcv_error_pkg.log_interface_error('ITEM_NUM', FALSE);
6712: END IF;
6713:
6706:
6707: IF x_release_id <> NVL(temp_cascaded_table(current_n).po_release_id, x_release_id) THEN
6708: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6709: rcv_error_pkg.set_error_message('RCV_ASN_ITEM_NOT_ALLOWED', x_cascaded_table(n).error_message);
6710: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).item_num);
6711: rcv_error_pkg.log_interface_error('ITEM_NUM', FALSE);
6712: END IF;
6713:
6714: IF x_approved_flag <> 'Y' THEN
6707: IF x_release_id <> NVL(temp_cascaded_table(current_n).po_release_id, x_release_id) THEN
6708: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6709: rcv_error_pkg.set_error_message('RCV_ASN_ITEM_NOT_ALLOWED', x_cascaded_table(n).error_message);
6710: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).item_num);
6711: rcv_error_pkg.log_interface_error('ITEM_NUM', FALSE);
6712: END IF;
6713:
6714: IF x_approved_flag <> 'Y' THEN
6715: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6711: rcv_error_pkg.log_interface_error('ITEM_NUM', FALSE);
6712: END IF;
6713:
6714: IF x_approved_flag <> 'Y' THEN
6715: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6716: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_NOT_APPROVED', x_cascaded_table(n).error_message);
6717: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
6718: rcv_error_pkg.set_token('PO_NUM', temp_cascaded_table(current_n).document_num);
6719: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6712: END IF;
6713:
6714: IF x_approved_flag <> 'Y' THEN
6715: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6716: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_NOT_APPROVED', x_cascaded_table(n).error_message);
6717: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
6718: rcv_error_pkg.set_token('PO_NUM', temp_cascaded_table(current_n).document_num);
6719: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6720: END IF;
6713:
6714: IF x_approved_flag <> 'Y' THEN
6715: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6716: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_NOT_APPROVED', x_cascaded_table(n).error_message);
6717: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
6718: rcv_error_pkg.set_token('PO_NUM', temp_cascaded_table(current_n).document_num);
6719: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6720: END IF;
6721:
6714: IF x_approved_flag <> 'Y' THEN
6715: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6716: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_NOT_APPROVED', x_cascaded_table(n).error_message);
6717: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
6718: rcv_error_pkg.set_token('PO_NUM', temp_cascaded_table(current_n).document_num);
6719: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6720: END IF;
6721:
6722: IF x_cancel_flag <> 'N' THEN
6715: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6716: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_NOT_APPROVED', x_cascaded_table(n).error_message);
6717: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
6718: rcv_error_pkg.set_token('PO_NUM', temp_cascaded_table(current_n).document_num);
6719: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6720: END IF;
6721:
6722: IF x_cancel_flag <> 'N' THEN
6723: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6719: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6720: END IF;
6721:
6722: IF x_cancel_flag <> 'N' THEN
6723: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6724: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_CANCELLED', x_cascaded_table(n).error_message);
6725: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
6726: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6727: END IF;
6720: END IF;
6721:
6722: IF x_cancel_flag <> 'N' THEN
6723: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6724: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_CANCELLED', x_cascaded_table(n).error_message);
6725: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
6726: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6727: END IF;
6728:
6721:
6722: IF x_cancel_flag <> 'N' THEN
6723: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6724: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_CANCELLED', x_cascaded_table(n).error_message);
6725: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
6726: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6727: END IF;
6728:
6729: IF ( x_include_closed_po = 'Y'
6722: IF x_cancel_flag <> 'N' THEN
6723: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6724: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_CANCELLED', x_cascaded_table(n).error_message);
6725: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
6726: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6727: END IF;
6728:
6729: IF ( x_include_closed_po = 'Y'
6730: AND x_closed_code = 'FINALLY CLOSED') THEN
6727: END IF;
6728:
6729: IF ( x_include_closed_po = 'Y'
6730: AND x_closed_code = 'FINALLY CLOSED') THEN
6731: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6732: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_FINALLY_CLOSED', x_cascaded_table(n).error_message);
6733: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
6734: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6735: END IF;
6728:
6729: IF ( x_include_closed_po = 'Y'
6730: AND x_closed_code = 'FINALLY CLOSED') THEN
6731: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6732: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_FINALLY_CLOSED', x_cascaded_table(n).error_message);
6733: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
6734: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6735: END IF;
6736:
6729: IF ( x_include_closed_po = 'Y'
6730: AND x_closed_code = 'FINALLY CLOSED') THEN
6731: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6732: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_FINALLY_CLOSED', x_cascaded_table(n).error_message);
6733: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
6734: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6735: END IF;
6736:
6737: IF ( x_include_closed_po = 'N'
6730: AND x_closed_code = 'FINALLY CLOSED') THEN
6731: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6732: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_FINALLY_CLOSED', x_cascaded_table(n).error_message);
6733: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
6734: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6735: END IF;
6736:
6737: IF ( x_include_closed_po = 'N'
6738: AND x_closed_code IN('FINALLY CLOSED', 'CLOSED', 'CLOSED FOR RECEIVING')) THEN
6739: IF (g_asn_debug = 'Y') THEN
6740: asn_debug.put_line('This PO is not open and the profile option to include closed POs is N');
6741: END IF;
6742:
6743: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6744: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_NOT_OPEN', x_cascaded_table(n).error_message);
6745: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
6746: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6747: END IF;
6740: asn_debug.put_line('This PO is not open and the profile option to include closed POs is N');
6741: END IF;
6742:
6743: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6744: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_NOT_OPEN', x_cascaded_table(n).error_message);
6745: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
6746: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6747: END IF;
6748:
6741: END IF;
6742:
6743: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6744: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_NOT_OPEN', x_cascaded_table(n).error_message);
6745: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
6746: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6747: END IF;
6748:
6749: IF x_shipment_type NOT IN('STANDARD', 'BLANKET', 'SCHEDULED','PREPAYMENT') THEN
6742:
6743: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6744: rcv_error_pkg.set_error_message('RCV_ASN_SHIPMT_NOT_OPEN', x_cascaded_table(n).error_message);
6745: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
6746: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6747: END IF;
6748:
6749: IF x_shipment_type NOT IN('STANDARD', 'BLANKET', 'SCHEDULED','PREPAYMENT') THEN
6750: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6746: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6747: END IF;
6748:
6749: IF x_shipment_type NOT IN('STANDARD', 'BLANKET', 'SCHEDULED','PREPAYMENT') THEN
6750: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6751: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIPMT_TYPE', x_cascaded_table(n).error_message);
6752: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
6753: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6754: END IF;
6747: END IF;
6748:
6749: IF x_shipment_type NOT IN('STANDARD', 'BLANKET', 'SCHEDULED','PREPAYMENT') THEN
6750: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6751: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIPMT_TYPE', x_cascaded_table(n).error_message);
6752: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
6753: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6754: END IF;
6755: END IF; -- x_temp_count = 0;}
6748:
6749: IF x_shipment_type NOT IN('STANDARD', 'BLANKET', 'SCHEDULED','PREPAYMENT') THEN
6750: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6751: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIPMT_TYPE', x_cascaded_table(n).error_message);
6752: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
6753: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6754: END IF;
6755: END IF; -- x_temp_count = 0;}
6756:
6749: IF x_shipment_type NOT IN('STANDARD', 'BLANKET', 'SCHEDULED','PREPAYMENT') THEN
6750: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6751: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIPMT_TYPE', x_cascaded_table(n).error_message);
6752: rcv_error_pkg.set_token('NUMBER', temp_cascaded_table(current_n).document_shipment_line_num);
6753: rcv_error_pkg.log_interface_error('DOCUMENT_SHIPMENT_LINE_NUM', FALSE);
6754: END IF;
6755: END IF; -- x_temp_count = 0;}
6756:
6757: -- Delete the temp_cascaded_table just to be sure
6865: IF (g_asn_debug = 'Y') THEN
6866: asn_debug.put_line('Receipt days exception code is Reject. So error out.');
6867: END IF;
6868:
6869: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6870: rcv_error_pkg.set_error_message('RCV_ASN_DATE_OUT_TOL', x_cascaded_table(n).error_message);
6871: rcv_error_pkg.set_token('DELIVERY DATE', NVL(temp_cascaded_table(1).expected_receipt_date, x_header_record.header_record.expected_receipt_date));
6872: rcv_error_pkg.log_interface_error('EXPECTED_RECEIPT_DATE', FALSE);
6873: END IF; --}
6866: asn_debug.put_line('Receipt days exception code is Reject. So error out.');
6867: END IF;
6868:
6869: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6870: rcv_error_pkg.set_error_message('RCV_ASN_DATE_OUT_TOL', x_cascaded_table(n).error_message);
6871: rcv_error_pkg.set_token('DELIVERY DATE', NVL(temp_cascaded_table(1).expected_receipt_date, x_header_record.header_record.expected_receipt_date));
6872: rcv_error_pkg.log_interface_error('EXPECTED_RECEIPT_DATE', FALSE);
6873: END IF; --}
6874:
6867: END IF;
6868:
6869: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6870: rcv_error_pkg.set_error_message('RCV_ASN_DATE_OUT_TOL', x_cascaded_table(n).error_message);
6871: rcv_error_pkg.set_token('DELIVERY DATE', NVL(temp_cascaded_table(1).expected_receipt_date, x_header_record.header_record.expected_receipt_date));
6872: rcv_error_pkg.log_interface_error('EXPECTED_RECEIPT_DATE', FALSE);
6873: END IF; --}
6874:
6875: IF (g_asn_debug = 'Y') THEN
6868:
6869: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6870: rcv_error_pkg.set_error_message('RCV_ASN_DATE_OUT_TOL', x_cascaded_table(n).error_message);
6871: rcv_error_pkg.set_token('DELIVERY DATE', NVL(temp_cascaded_table(1).expected_receipt_date, x_header_record.header_record.expected_receipt_date));
6872: rcv_error_pkg.log_interface_error('EXPECTED_RECEIPT_DATE', FALSE);
6873: END IF; --}
6874:
6875: IF (g_asn_debug = 'Y') THEN
6876: asn_debug.put_line('Days exception Code ' || NVL(x_shipmentdistributionrec.receipt_days_exception_code, 'XXX'));
6891: Enter error message in po_interface_errors if enforce_ship_to_location_code is 'REJECT' and error out
6892: */
6893: IF (x_shipmentdistributionrec.enforce_ship_to_location_code = 'REJECT') THEN --{
6894: BEGIN
6895: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6896: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
6897: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_id);
6898: rcv_error_pkg.log_interface_error('SHIP_TO_LOCATION_ID', FALSE);
6899: x_shipmentdistributionrec.ship_to_location_id := NVL(temp_cascaded_table(1).ship_to_location_id, x_header_record.header_record.location_id);
6892: */
6893: IF (x_shipmentdistributionrec.enforce_ship_to_location_code = 'REJECT') THEN --{
6894: BEGIN
6895: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6896: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
6897: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_id);
6898: rcv_error_pkg.log_interface_error('SHIP_TO_LOCATION_ID', FALSE);
6899: x_shipmentdistributionrec.ship_to_location_id := NVL(temp_cascaded_table(1).ship_to_location_id, x_header_record.header_record.location_id);
6900: END;
6893: IF (x_shipmentdistributionrec.enforce_ship_to_location_code = 'REJECT') THEN --{
6894: BEGIN
6895: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6896: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
6897: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_id);
6898: rcv_error_pkg.log_interface_error('SHIP_TO_LOCATION_ID', FALSE);
6899: x_shipmentdistributionrec.ship_to_location_id := NVL(temp_cascaded_table(1).ship_to_location_id, x_header_record.header_record.location_id);
6900: END;
6901: ELSIF(x_shipmentdistributionrec.enforce_ship_to_location_code = 'WARNING') THEN --} {
6894: BEGIN
6895: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
6896: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
6897: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_id);
6898: rcv_error_pkg.log_interface_error('SHIP_TO_LOCATION_ID', FALSE);
6899: x_shipmentdistributionrec.ship_to_location_id := NVL(temp_cascaded_table(1).ship_to_location_id, x_header_record.header_record.location_id);
6900: END;
6901: ELSIF(x_shipmentdistributionrec.enforce_ship_to_location_code = 'WARNING') THEN --} {
6902: BEGIN
6900: END;
6901: ELSIF(x_shipmentdistributionrec.enforce_ship_to_location_code = 'WARNING') THEN --} {
6902: BEGIN
6903: x_cascaded_table(n).error_status := 'W';
6904: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
6905: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_id);
6906: rcv_error_pkg.log_interface_warning('SHIP_TO_LOCATION_ID');
6907: x_shipmentdistributionrec.ship_to_location_id := NVL(temp_cascaded_table(1).ship_to_location_id, x_header_record.header_record.location_id);
6908: END;
6901: ELSIF(x_shipmentdistributionrec.enforce_ship_to_location_code = 'WARNING') THEN --} {
6902: BEGIN
6903: x_cascaded_table(n).error_status := 'W';
6904: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
6905: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_id);
6906: rcv_error_pkg.log_interface_warning('SHIP_TO_LOCATION_ID');
6907: x_shipmentdistributionrec.ship_to_location_id := NVL(temp_cascaded_table(1).ship_to_location_id, x_header_record.header_record.location_id);
6908: END;
6909: END IF; --}matches ship_to_loc_code = warning
6902: BEGIN
6903: x_cascaded_table(n).error_status := 'W';
6904: rcv_error_pkg.set_error_message('RCV_ASN_INVAL_SHIP_TO_LOC', x_cascaded_table(n).error_message);
6905: rcv_error_pkg.set_token('VALUE', temp_cascaded_table(current_n).ship_to_location_id);
6906: rcv_error_pkg.log_interface_warning('SHIP_TO_LOCATION_ID');
6907: x_shipmentdistributionrec.ship_to_location_id := NVL(temp_cascaded_table(1).ship_to_location_id, x_header_record.header_record.location_id);
6908: END;
6909: END IF; --}matches ship_to_loc_code = warning
6910:
7314: asn_debug.put_line('Status = ' || x_cascaded_table(n).error_status);
7315: END IF;
7316:
7317: IF x_cascaded_table(n).error_status IN('S', 'W', 'F') THEN --{
7318: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
7319: rcv_error_pkg.set_error_message('RCV_ASN_NO_PO_LINE_LOCATION_ID', x_cascaded_table(n).error_message);
7320: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
7321: END IF; --}
7322:
7315: END IF;
7316:
7317: IF x_cascaded_table(n).error_status IN('S', 'W', 'F') THEN --{
7318: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
7319: rcv_error_pkg.set_error_message('RCV_ASN_NO_PO_LINE_LOCATION_ID', x_cascaded_table(n).error_message);
7320: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
7321: END IF; --}
7322:
7323: RETURN;
7316:
7317: IF x_cascaded_table(n).error_status IN('S', 'W', 'F') THEN --{
7318: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
7319: rcv_error_pkg.set_error_message('RCV_ASN_NO_PO_LINE_LOCATION_ID', x_cascaded_table(n).error_message);
7320: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
7321: END IF; --}
7322:
7323: RETURN;
7324: END IF; -- } of (asn quantity_shipped was valid)
7363: IF count_distributions%ISOPEN THEN
7364: CLOSE count_distributions;
7365: END IF;
7366:
7367: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
7368: rcv_error_pkg.set_sql_error_message('derive_vendor_rcv_line_qty', x_progress);
7369: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
7370: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
7371:
7364: CLOSE count_distributions;
7365: END IF;
7366:
7367: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
7368: rcv_error_pkg.set_sql_error_message('derive_vendor_rcv_line_qty', x_progress);
7369: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
7370: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
7371:
7372: IF (g_asn_debug = 'Y') THEN
7365: END IF;
7366:
7367: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
7368: rcv_error_pkg.set_sql_error_message('derive_vendor_rcv_line_qty', x_progress);
7369: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
7370: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
7371:
7372: IF (g_asn_debug = 'Y') THEN
7373: asn_debug.put_line(TO_CHAR(n));
7366:
7367: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
7368: rcv_error_pkg.set_sql_error_message('derive_vendor_rcv_line_qty', x_progress);
7369: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
7370: rcv_error_pkg.log_interface_error('DOCUMENT_NUM', FALSE);
7371:
7372: IF (g_asn_debug = 'Y') THEN
7373: asn_debug.put_line(TO_CHAR(n));
7374: asn_debug.put_line(SQLERRM);
7390: IF (x_cascaded_table(n).error_status NOT IN('S', 'W')) THEN
7391: RETURN;
7392: END IF;
7393:
7394: x_error_status := rcv_error_pkg.g_ret_sts_error;
7395:
7396: /*Bug 2327318 Implemented the validation Transaction date should not be greater than
7397: sysdate */
7398: IF (x_cascaded_table(n).transaction_date > SYSDATE) THEN
7395:
7396: /*Bug 2327318 Implemented the validation Transaction date should not be greater than
7397: sysdate */
7398: IF (x_cascaded_table(n).transaction_date > SYSDATE) THEN
7399: rcv_error_pkg.set_error_message('RCV_TRX_FUTURE_DATE_NA');
7400: RAISE e_validation_error;
7401: END IF;
7402:
7403: /*Bug 6141065: Start: Implemented the validation, Transaction date should not
7427:
7428: IF ( -- x_cascaded_table(n).transaction_date < x_creation_date OR
7429: -- Bug 8899155 receipt date can be less than receipt's creation date
7430: x_cascaded_table(n).transaction_date < x_shipped_date) THEN
7431: rcv_error_pkg.set_error_message('RCV_TRX_DATE_GT_SHIP_DATE');
7432: RAISE e_validation_error;
7433: END IF;
7434:
7435: EXCEPTION
7476: x_val_open_ok := FALSE;
7477: END;
7478:
7479: IF NOT(x_val_open_ok) THEN --{
7480: rcv_error_pkg.set_error_message('PO_CNL_NO_PERIOD');
7481: RAISE e_validation_error;
7482: END IF; --}
7483:
7484: BEGIN
7496: x_val_open_ok := FALSE;
7497: END;
7498:
7499: IF NOT(x_val_open_ok) THEN --{
7500: rcv_error_pkg.set_error_message('PO_INV_NO_OPEN_PERIOD');
7501: RAISE e_validation_error;
7502: END IF; --}
7503:
7504: BEGIN
7516: END IF;
7517: END;
7518:
7519: IF NOT(x_val_open_ok) THEN --{
7520: rcv_error_pkg.set_error_message('PO_PO_ENTER_OPEN_GL_DATE');
7521: RAISE e_validation_error;
7522: END IF; --} /* End of Bug# 2379848 */
7523: END IF; --} auto transact code = SHIP
7524: EXCEPTION
7523: END IF; --} auto transact code = SHIP
7524: EXCEPTION
7525: WHEN e_validation_error THEN
7526: x_cascaded_table(n).error_status := x_error_status;
7527: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
7528: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
7529: 'TRANSACTION_DATE',
7530: FALSE
7531: );
7524: EXCEPTION
7525: WHEN e_validation_error THEN
7526: x_cascaded_table(n).error_status := x_error_status;
7527: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
7528: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
7529: 'TRANSACTION_DATE',
7530: FALSE
7531: );
7532: END validate_transaction_date;
7546: quantity_invoiced_record.error_record.error_message := NULL;
7547: rcv_transactions_interface_sv1.validate_quantity_invoiced(quantity_invoiced_record);
7548: x_cascaded_table(n).error_status := quantity_invoiced_record.error_record.error_status;
7549: x_cascaded_table(n).error_message := quantity_invoiced_record.error_record.error_message;
7550: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
7551: 'UNIT_OF_MEASURE',
7552: FALSE
7553: );
7554: END validate_quantity_invoiced;
7585:
7586: rcv_transactions_interface_sv1.validate_uom(uom_record);
7587: x_cascaded_table(n).error_status := uom_record.error_record.error_status;
7588: x_cascaded_table(n).error_message := uom_record.error_record.error_message;
7589: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
7590: 'UNIT_OF_MEASURE',
7591: FALSE
7592: );
7593: END validate_transaction_uom;
7650: END IF; --}
7651: END IF; --}
7652:
7653: asn_debug.put_line('after doing validate item the error status is ' || x_cascaded_table(n).error_status);
7654: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'ITEM_NUM');
7655: item_id_record.item_description := x_cascaded_table(n).item_description;
7656: item_id_record.error_record.error_status := 'S';
7657: item_id_record.error_record.error_message := NULL;
7658:
7667: IF (g_asn_debug = 'Y') THEN
7668: asn_debug.put_line('Error status after validate item description ' || x_cascaded_table(n).error_status);
7669: END IF;
7670:
7671: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'ITEM_DESCRIPTION');
7672:
7673: IF (x_cascaded_table(n).substitute_item_id IS NOT NULL) THEN --{
7674: IF (g_asn_debug = 'Y') THEN
7675: asn_debug.put_line('Validating Substitute Item');
7675: asn_debug.put_line('Validating Substitute Item');
7676: END IF;
7677:
7678: rcv_roi_header_common.validate_substitute_item(x_cascaded_table, n);
7679: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'SUBSTITUTE_ITEM_NUM');
7680: END IF;
7681:
7682: IF (x_cascaded_table(n).item_id IS NOT NULL) THEN -- Bug 12538097
7683: rcv_roi_header_common.validate_item_revision(x_cascaded_table, n);
7680: END IF;
7681:
7682: IF (x_cascaded_table(n).item_id IS NOT NULL) THEN -- Bug 12538097
7683: rcv_roi_header_common.validate_item_revision(x_cascaded_table, n);
7684: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'ITEM_REVISION');
7685: END IF; -- End Bug 12538097
7686:
7687: EXCEPTION
7688: WHEN rcv_error_pkg.e_fatal_error THEN
7684: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'ITEM_REVISION');
7685: END IF; -- End Bug 12538097
7686:
7687: EXCEPTION
7688: WHEN rcv_error_pkg.e_fatal_error THEN
7689: NULL;
7690: END validate_item_info;
7691:
7692: PROCEDURE validate_freight_carrier_code(
7741:
7742: rcv_transactions_interface_sv1.validate_freight_carrier(freight_carrier_record);
7743: x_cascaded_table(n).error_status := freight_carrier_record.error_record.error_status;
7744: x_cascaded_table(n).error_message := freight_carrier_record.error_record.error_message;
7745: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
7746: 'FREIGHT_CARRIER_CODE',
7747: FALSE
7748: );
7749: END IF; --}
7773:
7774: rcv_transactions_interface_sv1.validate_po_lookup_code(po_lookup_code_record);
7775: x_cascaded_table(n).error_status := po_lookup_code_record.error_record.error_status;
7776: x_cascaded_table(n).error_message := po_lookup_code_record.error_record.error_message;
7777: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
7778: 'DESTINATION_TYPE_CODE',
7779: FALSE
7780: );
7781: END validate_dest_type;
7822:
7823: rcv_transactions_interface_sv1.validate_location(location_record);
7824: x_cascaded_table(n).error_status := location_record.error_record.error_status;
7825: x_cascaded_table(n).error_message := location_record.error_record.error_message;
7826: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
7827: 'SHIP_TO_LOCATION_ID',
7828: FALSE
7829: );
7830: END validate_ship_to_loc;
7894:
7895: /* Added for bug#16174998*/
7896: l_insp_status rcv_transactions.inspection_status_code%TYPE :=NULL;
7897: BEGIN
7898: x_error_status := rcv_error_pkg.g_ret_sts_error;
7899:
7900: /*
7901: ** Validate routing record bug 639750
7902: */
7912: AND NVL(x_cascaded_table(n).auto_transact_code, 'RECEIVE') = 'DELIVER') THEN
7913: /* 1 is Standard Receipt, 2 is Inspection Required */
7914: IF ( (x_cascaded_table(n).routing_header_id) IN(1, 2)
7915: AND NVL(rcv_setup_s.get_override_routing, 'N') = 'N') THEN
7916: rcv_error_pkg.set_error_message('RCV_ASN_DELIVER_ROUTING_FAILED');
7917: RAISE e_validation_error;
7918: END IF;
7919: END IF;
7920:
7921: IF (x_cascaded_table(n).transaction_type IN('ACCEPT', 'REJECT')) THEN --{
7922: IF ( (x_cascaded_table(n).routing_header_id) IN(3)
7923: AND NVL(rcv_setup_s.get_override_routing, 'N') = 'N') THEN --{
7924: asn_debug.put_line('We cannot do inspection on this record .');
7925: rcv_error_pkg.set_error_message('RCV_INSPECT_ROUTING_FAILED');
7926: RAISE e_validation_error;
7927: END IF; --}
7928: END IF; --}
7929:
7959:
7960: IF l_insp_status = 'NOT INSPECTED' THEN
7961:
7962: asn_debug.put_line('We cannot do deliver on this record .');
7963: rcv_error_pkg.set_error_message('RCV_ASN_DELIVER_ROUTING_FAILED');
7964: RAISE e_validation_error;
7965:
7966: END IF;
7967:
7970: /* End for bug#16174998*/
7971: EXCEPTION
7972: WHEN e_validation_error THEN
7973: x_cascaded_table(n).error_status := x_error_status;
7974: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
7975:
7976: -- This case statement assigns the appropriate tokens
7977: -- all error messages must be found in the case statement
7978: -- if the error message has no token then use a null statement
7981: ELSIF x_cascaded_table(n).error_message = 'RCV_INSPECT_ROUTING_FAILED' THEN
7982: NULL;
7983: END IF;
7984:
7985: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
7986: 'ROUTING_HEADER_ID',
7987: FALSE
7988: );
7989: END validate_routing_record;
8018:
8019: rcv_transactions_interface_sv1.validate_location(location_record);
8020: x_cascaded_table(n).error_status := location_record.error_record.error_status;
8021: x_cascaded_table(n).error_message := location_record.error_record.error_message;
8022: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
8023: 'DELIVER_TO_LOCATION_ID',
8024: FALSE
8025: );
8026: END IF;
8041: x_error_status VARCHAR2(1);
8042: l_transaction_type_id NUMBER;
8043:
8044: BEGIN
8045: x_error_status := rcv_error_pkg.g_ret_sts_error;
8046:
8047: IF (x_cascaded_table(n).error_status NOT IN('S', 'W')) THEN
8048: RETURN;
8049: END IF;
8080:
8081: IF ( x_cascaded_table(n).transaction_type = 'DELIVER'
8082: OR x_cascaded_table(n).auto_transact_code = 'DELIVER') THEN --{
8083: IF (x_cascaded_table(n).subinventory IS NULL) THEN
8084: rcv_error_pkg.set_error_message('RCV_DEST_SUB_NA');
8085: RAISE e_validation_error;
8086: END IF;
8087:
8088: /*
8120: IF (g_asn_debug = 'Y') THEN
8121: asn_debug.put_line('subinventory not found. error ');
8122: END IF;
8123:
8124: rcv_error_pkg.set_error_message('RCV_DEST_SUB_INVALID');
8125: RAISE e_validation_error;
8126: END IF;
8127:
8128: -- Bug 10253000: Start Validate material status on subinventory level
8159: IF (g_asn_debug = 'Y') THEN
8160: asn_debug.put_line('subinventory is invalidate. error ');
8161: END IF;
8162:
8163: rcv_error_pkg.set_error_message('RCV_DEST_SUB_INVALID');
8164: RAISE e_validation_error;
8165:
8166: END IF;
8167: -- Bug 10253000: End
8186: END IF; --}
8187: EXCEPTION
8188: WHEN e_validation_error THEN
8189: x_cascaded_table(n).error_status := x_error_status;
8190: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
8191:
8192: -- This case statement assigns the appropriate tokens
8193: -- all error messages must be found in the case statement
8194: -- if the error message has no token then use a null statement
8197: ELSIF x_cascaded_table(n).error_message = 'RCV_DEST_SUB_INVALID' THEN
8198: NULL;
8199: END IF;
8200:
8201: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
8202: 'SUBINVENTORY',
8203: FALSE
8204: );
8205: WHEN OTHERS THEN
8202: 'SUBINVENTORY',
8203: FALSE
8204: );
8205: WHEN OTHERS THEN
8206: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
8207: rcv_error_pkg.set_sql_error_message('validate_subinventory', l_progress);
8208: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
8209: rcv_error_pkg.log_interface_error('SUBINVENTORY', FALSE);
8210: END validate_subinventory;
8203: FALSE
8204: );
8205: WHEN OTHERS THEN
8206: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
8207: rcv_error_pkg.set_sql_error_message('validate_subinventory', l_progress);
8208: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
8209: rcv_error_pkg.log_interface_error('SUBINVENTORY', FALSE);
8210: END validate_subinventory;
8211:
8204: );
8205: WHEN OTHERS THEN
8206: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
8207: rcv_error_pkg.set_sql_error_message('validate_subinventory', l_progress);
8208: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
8209: rcv_error_pkg.log_interface_error('SUBINVENTORY', FALSE);
8210: END validate_subinventory;
8211:
8212: PROCEDURE validate_locator(
8205: WHEN OTHERS THEN
8206: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
8207: rcv_error_pkg.set_sql_error_message('validate_subinventory', l_progress);
8208: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
8209: rcv_error_pkg.log_interface_error('SUBINVENTORY', FALSE);
8210: END validate_subinventory;
8211:
8212: PROCEDURE validate_locator(
8213: x_cascaded_table IN OUT NOCOPY rcv_roi_preprocessor.cascaded_trans_tab_type,
8271: x_cascaded_table(n).error_status := locator_record.error_record.error_status;
8272: x_cascaded_table(n).error_message := locator_record.error_record.error_message;
8273:
8274: -- Bug 13817635 added
8275: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
8276: 'LOCATOR_ID',
8277: FALSE
8278: );
8279: -- Bug 13817635 ended
8328: x_cascaded_table(n).locator_id,
8329: NULL,
8330: NULL,
8331: 'L') <> 'Y') THEN
8332: rcv_error_pkg.set_error_message('RCV_ALL_INVALID_LOCATOR');
8333: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
8334: x_cascaded_table(n).error_message := 'RCV_ALL_INVALID_LOCATOR';
8335: locator_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
8336: locator_record.error_record.error_message := 'RCV_ALL_REQUIRED_LOCATOR';
8329: NULL,
8330: NULL,
8331: 'L') <> 'Y') THEN
8332: rcv_error_pkg.set_error_message('RCV_ALL_INVALID_LOCATOR');
8333: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
8334: x_cascaded_table(n).error_message := 'RCV_ALL_INVALID_LOCATOR';
8335: locator_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
8336: locator_record.error_record.error_message := 'RCV_ALL_REQUIRED_LOCATOR';
8337: END IF;
8331: 'L') <> 'Y') THEN
8332: rcv_error_pkg.set_error_message('RCV_ALL_INVALID_LOCATOR');
8333: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
8334: x_cascaded_table(n).error_message := 'RCV_ALL_INVALID_LOCATOR';
8335: locator_record.error_record.error_status := rcv_error_pkg.g_ret_sts_error;
8336: locator_record.error_record.error_message := 'RCV_ALL_REQUIRED_LOCATOR';
8337: END IF;
8338: -- Bug 10253000 : End
8339:
8336: locator_record.error_record.error_message := 'RCV_ALL_REQUIRED_LOCATOR';
8337: END IF;
8338: -- Bug 10253000 : End
8339:
8340: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
8341: 'LOCATOR_ID',
8342: FALSE
8343: );
8344: ELSE --}{
8376:
8377: rcv_transactions_interface_sv1.validate_tax_code(tax_name_record);
8378: x_cascaded_table(n).error_status := tax_name_record.error_record.error_status;
8379: x_cascaded_table(n).error_message := tax_name_record.error_record.error_message;
8380: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
8381: 'TAX_NAME',
8382: FALSE
8383: );
8384: END IF;
8407:
8408: rcv_transactions_interface_sv1.validate_country_of_origin(country_of_origin_record);
8409: x_cascaded_table(n).error_status := country_of_origin_record.error_record.error_status;
8410: x_cascaded_table(n).error_message := country_of_origin_record.error_record.error_message;
8411: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
8412: 'COUNTRY_OF_ORIGIN_CODE',
8413: FALSE
8414: );
8415: END IF;
8439:
8440: rcv_transactions_interface_sv1.validate_asl(asl_record);
8441: x_cascaded_table(n).error_status := asl_record.error_record.error_status;
8442: x_cascaded_table(n).error_message := asl_record.error_record.error_message;
8443: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
8444: 'SUPPLY_AGREEMENT_FLAG',
8445: FALSE
8446: );
8447: END validate_asl;
8476:
8477: rcv_transactions_interface_sv1.validate_cum_quantity_shipped(cum_quantity_record);
8478: x_cascaded_table(n).error_status := cum_quantity_record.error_record.error_status;
8479: x_cascaded_table(n).error_message := cum_quantity_record.error_record.error_message;
8480: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
8481: 'VENDOR_CUM_SHIPPED_QTY',
8482: FALSE
8483: );
8484: END IF; -- vendor_cum_shipped_qty <> 0
8494: l_item_description po_lines.item_description%TYPE;
8495: l_category_id po_lines.category_id%TYPE;
8496: x_error_status VARCHAR2(1);
8497: BEGIN
8498: x_error_status := rcv_error_pkg.g_ret_sts_error;
8499:
8500: IF (x_cascaded_table(n).error_status NOT IN('S', 'W')) THEN
8501: RETURN;
8502: END IF;
8557: END IF;
8558:
8559: x_cascaded_table(n).error_status := ref_integrity_record.error_record.error_status;
8560: x_cascaded_table(n).error_message := ref_integrity_record.error_record.error_message;
8561: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'TRANSACTIONS_INTERFACE_ID');
8562:
8563: IF (x_cascaded_table(n).matching_basis = 'AMOUNT') THEN --{
8564: IF (g_asn_debug = 'Y') THEN
8565: asn_debug.put_line('job_id ' || x_cascaded_table(n).job_id);
8582: asn_debug.put_line('After select l_job_id ' || l_job_id);
8583: END IF;
8584:
8585: IF (l_job_id = 0) THEN
8586: rcv_error_pkg.set_error_message('RCV_NOT_PO_JOB_ID');
8587: RAISE e_validation_error;
8588: END IF;
8589: END IF;
8590:
8640: asn_debug.put_line('After select l_item_description ' || l_item_description);
8641: END IF;
8642:
8643: IF (l_item_description = 'NO DATA') THEN
8644: rcv_error_pkg.set_error_message('RCV_NOT_PO_ITEM_DESC');
8645: RAISE e_validation_error;
8646: END IF;
8647: END IF;
8648:
8657: asn_debug.put_line('After select l_category_id ' || l_category_id);
8658: END IF;
8659:
8660: IF (l_category_id = 0) THEN
8661: rcv_error_pkg.set_error_message('RCV_NOT_PO_CATEGORY');
8662: RAISE e_validation_error;
8663: END IF;
8664: END IF;
8665:
8676: END IF;
8677: EXCEPTION
8678: WHEN e_validation_error THEN
8679: x_cascaded_table(n).error_status := x_error_status;
8680: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
8681:
8682: IF x_cascaded_table(n).error_message = 'RCV_NOT_PO_JOB_ID' THEN
8683: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
8684: 'JOB_ID',
8679: x_cascaded_table(n).error_status := x_error_status;
8680: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
8681:
8682: IF x_cascaded_table(n).error_message = 'RCV_NOT_PO_JOB_ID' THEN
8683: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
8684: 'JOB_ID',
8685: FALSE
8686: );
8687: ELSIF x_cascaded_table(n).error_message = 'RCV_NOT_PO_ITEM_DESC' THEN
8684: 'JOB_ID',
8685: FALSE
8686: );
8687: ELSIF x_cascaded_table(n).error_message = 'RCV_NOT_PO_ITEM_DESC' THEN
8688: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
8689: 'ITEM_DESCRIPTION',
8690: FALSE
8691: );
8692: ELSIF x_cascaded_table(n).error_message = 'RCV_NOT_PO_CATEGORY' THEN
8689: 'ITEM_DESCRIPTION',
8690: FALSE
8691: );
8692: ELSIF x_cascaded_table(n).error_message = 'RCV_NOT_PO_CATEGORY' THEN
8693: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
8694: 'CATEGORY_ID',
8695: FALSE
8696: );
8697: END IF;
8694: 'CATEGORY_ID',
8695: FALSE
8696: );
8697: END IF;
8698: WHEN rcv_error_pkg.e_fatal_error THEN
8699: NULL;
8700: WHEN OTHERS THEN
8701: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
8702: rcv_error_pkg.set_sql_error_message('validate_ref_integrity', '000');
8697: END IF;
8698: WHEN rcv_error_pkg.e_fatal_error THEN
8699: NULL;
8700: WHEN OTHERS THEN
8701: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
8702: rcv_error_pkg.set_sql_error_message('validate_ref_integrity', '000');
8703: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
8704: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
8705: END validate_ref_integrity;
8698: WHEN rcv_error_pkg.e_fatal_error THEN
8699: NULL;
8700: WHEN OTHERS THEN
8701: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
8702: rcv_error_pkg.set_sql_error_message('validate_ref_integrity', '000');
8703: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
8704: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
8705: END validate_ref_integrity;
8706:
8699: NULL;
8700: WHEN OTHERS THEN
8701: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
8702: rcv_error_pkg.set_sql_error_message('validate_ref_integrity', '000');
8703: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
8704: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
8705: END validate_ref_integrity;
8706:
8707: PROCEDURE exchange_sub_items(
8700: WHEN OTHERS THEN
8701: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
8702: rcv_error_pkg.set_sql_error_message('validate_ref_integrity', '000');
8703: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
8704: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
8705: END validate_ref_integrity;
8706:
8707: PROCEDURE exchange_sub_items(
8708: x_cascaded_table IN OUT NOCOPY rcv_roi_preprocessor.cascaded_trans_tab_type,
8716: prim_uom_qty NUMBER;
8717: x_error_status VARCHAR2(1);
8718: l_item_description mtl_system_items_vl.description%type; --bug 4697949
8719: BEGIN
8720: x_error_status := rcv_error_pkg.g_ret_sts_error;
8721:
8722: -- If substitute item has been specified then we need to switch the item_id with the
8723: -- substitute item. Also make sure that we can receive the substitute item in the
8724: -- ASN UOM. Convert the primary_quantity in item.primary uom to the substitute_item.primary_uom
8744: IF (g_asn_debug = 'Y') THEN
8745: asn_debug.put_line('The substitute item cannot be received in ASN uom' || x_cascaded_table(n).unit_of_measure);
8746: END IF;
8747:
8748: rcv_error_pkg.set_error_message('RCV_ITEM_SUB_NOT_ALLOWED');
8749: RAISE e_validation_error;
8750: END IF;
8751:
8752: SELECT MAX(primary_unit_of_measure)
8759: IF (g_asn_debug = 'Y') THEN
8760: asn_debug.put_line('No Primary UOM for substitute item');
8761: END IF;
8762:
8763: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PRIMARY');
8764: RAISE e_validation_error;
8765: END IF;
8766:
8767: IF (g_asn_debug = 'Y') THEN
8779: IF (g_asn_debug = 'Y') THEN
8780: asn_debug.put_line('Not possible to convert between asn and primary UOM');
8781: END IF;
8782:
8783: rcv_error_pkg.set_error_message('RCV_UOM_NO_CONV_PRIMARY');
8784: RAISE e_validation_error;
8785: END IF;
8786:
8787: x_cascaded_table(n).primary_unit_of_measure := x_primary_uom;
8810: END IF; --}
8811: EXCEPTION
8812: WHEN e_validation_error THEN
8813: x_cascaded_table(n).error_status := x_error_status;
8814: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
8815:
8816: IF x_cascaded_table(n).error_message = 'RCV_ITEM_SUB_NOT_ALLOWED' THEN
8817: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).substitute_item_id);
8818: ELSIF x_cascaded_table(n).error_message = 'RCV_UOM_NO_CONV_PRIMARY' THEN
8813: x_cascaded_table(n).error_status := x_error_status;
8814: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
8815:
8816: IF x_cascaded_table(n).error_message = 'RCV_ITEM_SUB_NOT_ALLOWED' THEN
8817: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).substitute_item_id);
8818: ELSIF x_cascaded_table(n).error_message = 'RCV_UOM_NO_CONV_PRIMARY' THEN
8819: rcv_error_pkg.set_token('SHIPMENT_UNIT', x_cascaded_table(n).primary_unit_of_measure);
8820: rcv_error_pkg.set_token('PRIMARY_UNIT', x_primary_uom);
8821: END IF;
8815:
8816: IF x_cascaded_table(n).error_message = 'RCV_ITEM_SUB_NOT_ALLOWED' THEN
8817: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).substitute_item_id);
8818: ELSIF x_cascaded_table(n).error_message = 'RCV_UOM_NO_CONV_PRIMARY' THEN
8819: rcv_error_pkg.set_token('SHIPMENT_UNIT', x_cascaded_table(n).primary_unit_of_measure);
8820: rcv_error_pkg.set_token('PRIMARY_UNIT', x_primary_uom);
8821: END IF;
8822: END exchange_sub_items;
8823:
8816: IF x_cascaded_table(n).error_message = 'RCV_ITEM_SUB_NOT_ALLOWED' THEN
8817: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).substitute_item_id);
8818: ELSIF x_cascaded_table(n).error_message = 'RCV_UOM_NO_CONV_PRIMARY' THEN
8819: rcv_error_pkg.set_token('SHIPMENT_UNIT', x_cascaded_table(n).primary_unit_of_measure);
8820: rcv_error_pkg.set_token('PRIMARY_UNIT', x_primary_uom);
8821: END IF;
8822: END exchange_sub_items;
8823:
8824: PROCEDURE validate_consigned_inventory(
8861: asn_debug.put_line('Error status ' || l_consigned_po_rec.error_record.error_status);
8862: asn_debug.put_line('Error name: ' || l_consigned_po_rec.error_record.error_message);
8863: END IF;
8864:
8865: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'PO_LINE_LOCATION_ID');
8866: END IF; -- IF ( (X_asn_type = 'ASBN')
8867:
8868: /*
8869: ** Reject ASN, ASBN or Receipt transactions against Consumption PO
8891: asn_debug.put_line('Error status ' || l_consumption_po_rec.error_record.error_status);
8892: asn_debug.put_line('Error name: ' || l_consumption_po_rec.error_record.error_message);
8893: END IF;
8894:
8895: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'PO_HEADER_ID');
8896: END IF;
8897:
8898: /*
8899: ** Reject ASN, ASBN or Receipt transactions against Consumption Release
8920: asn_debug.put_line('Error status ' || l_consumption_release_rec.error_record.error_status);
8921: asn_debug.put_line('Error name: ' || l_consumption_release_rec.error_record.error_message);
8922: END IF;
8923:
8924: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'PO_RELEASE_ID');
8925: END IF;
8926: /*
8927: EXCEPTION
8928: WHEN rcv_error_pkg.e_fatal_error THEN
8924: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'PO_RELEASE_ID');
8925: END IF;
8926: /*
8927: EXCEPTION
8928: WHEN rcv_error_pkg.e_fatal_error THEN
8929: NULL;
8930: END validate_consigned_inventory;
8931:
8932: PROCEDURE validate_ref_integ(
8938: x_po_vendor_site_id po_headers.vendor_site_id%TYPE := NULL;
8939: x_progress VARCHAR2(3);
8940: x_error_status VARCHAR2(1);
8941: BEGIN
8942: x_error_status := rcv_error_pkg.g_ret_sts_error;
8943:
8944: IF (x_ref_integrity_rec.vendor_item_num IS NOT NULL) THEN
8945: SELECT NVL(MAX(po_line_id), 0)
8946: INTO x_po_line_id
8948: WHERE po_line_id = x_ref_integrity_rec.po_line_id
8949: AND vendor_product_num = x_ref_integrity_rec.vendor_item_num;
8950:
8951: IF (x_po_line_id = 0) THEN
8952: rcv_error_pkg.set_error_message('RCV_NOT_PO_VEN_ITEM');
8953: RAISE e_validation_error;
8954: END IF;
8955: END IF;
8956:
8966: WHERE po_header_id = x_ref_integrity_rec.po_header_id
8967: AND vendor_id = x_ref_integrity_rec.vendor_id;
8968:
8969: IF (x_po_vendor_id = 0) THEN
8970: rcv_error_pkg.set_error_message('RCV_NOT_PO_VEN');
8971: RAISE e_validation_error;
8972: END IF;
8973: END IF;
8974:
8974:
8975: -- Check for header.vendor = lines.vendor
8976: IF x_header_record.header_record.vendor_id IS NOT NULL THEN
8977: IF x_header_record.header_record.vendor_id <> NVL(x_ref_integrity_rec.vendor_id, x_header_record.header_record.vendor_id) THEN
8978: rcv_error_pkg.set_error_message('RCV_ERC_MISMATCH_PO_VENDOR');
8979: RAISE e_validation_error;
8980: END IF;
8981: END IF;
8982:
9016: END IF;
9017:
9018:
9019: IF (x_po_vendor_site_id = 0) THEN
9020: rcv_error_pkg.set_error_message('RCV_NOT_PO_VEN_SITE');
9021: RAISE e_validation_error;
9022: END IF;
9023: END IF;
9024:
9033: WHERE po_header_id = x_ref_integrity_rec.po_header_id
9034: AND revision_num = x_ref_integrity_rec.po_revision_num;
9035:
9036: IF (x_po_vendor_site_id = 0) THEN
9037: rcv_error_pkg.set_error_message('RCV_NOT_PO_REVISION');
9038: RAISE e_validation_error;
9039: END IF;
9040: END IF;
9041: EXCEPTION
9040: END IF;
9041: EXCEPTION
9042: WHEN e_validation_error THEN
9043: x_ref_integrity_rec.error_record.error_status := x_error_status;
9044: x_ref_integrity_rec.error_record.error_message := rcv_error_pkg.get_last_message;
9045:
9046: IF x_ref_integrity_rec.error_record.error_message = 'RCV_NOT_PO_VEN_ITEM' THEN
9047: rcv_error_pkg.set_token('PO_SUPPLIER_ITEM', '');
9048: rcv_error_pkg.set_token('SHIPMENT_SUPPLIER_ITEM', x_ref_integrity_rec.vendor_item_num);
9043: x_ref_integrity_rec.error_record.error_status := x_error_status;
9044: x_ref_integrity_rec.error_record.error_message := rcv_error_pkg.get_last_message;
9045:
9046: IF x_ref_integrity_rec.error_record.error_message = 'RCV_NOT_PO_VEN_ITEM' THEN
9047: rcv_error_pkg.set_token('PO_SUPPLIER_ITEM', '');
9048: rcv_error_pkg.set_token('SHIPMENT_SUPPLIER_ITEM', x_ref_integrity_rec.vendor_item_num);
9049: ELSIF x_ref_integrity_rec.error_record.error_message = 'RCV_NOT_PO_VEN' THEN
9050: rcv_error_pkg.set_token('PO_SUPPLIER', '');
9051: rcv_error_pkg.set_token('SHIPMENT_SUPPLIER', x_ref_integrity_rec.vendor_id);
9044: x_ref_integrity_rec.error_record.error_message := rcv_error_pkg.get_last_message;
9045:
9046: IF x_ref_integrity_rec.error_record.error_message = 'RCV_NOT_PO_VEN_ITEM' THEN
9047: rcv_error_pkg.set_token('PO_SUPPLIER_ITEM', '');
9048: rcv_error_pkg.set_token('SHIPMENT_SUPPLIER_ITEM', x_ref_integrity_rec.vendor_item_num);
9049: ELSIF x_ref_integrity_rec.error_record.error_message = 'RCV_NOT_PO_VEN' THEN
9050: rcv_error_pkg.set_token('PO_SUPPLIER', '');
9051: rcv_error_pkg.set_token('SHIPMENT_SUPPLIER', x_ref_integrity_rec.vendor_id);
9052: ELSIF x_ref_integrity_rec.error_record.error_message = 'RCV_ERC_MISMATCH_PO_VENDOR' THEN
9046: IF x_ref_integrity_rec.error_record.error_message = 'RCV_NOT_PO_VEN_ITEM' THEN
9047: rcv_error_pkg.set_token('PO_SUPPLIER_ITEM', '');
9048: rcv_error_pkg.set_token('SHIPMENT_SUPPLIER_ITEM', x_ref_integrity_rec.vendor_item_num);
9049: ELSIF x_ref_integrity_rec.error_record.error_message = 'RCV_NOT_PO_VEN' THEN
9050: rcv_error_pkg.set_token('PO_SUPPLIER', '');
9051: rcv_error_pkg.set_token('SHIPMENT_SUPPLIER', x_ref_integrity_rec.vendor_id);
9052: ELSIF x_ref_integrity_rec.error_record.error_message = 'RCV_ERC_MISMATCH_PO_VENDOR' THEN
9053: NULL;
9054: ELSIF x_ref_integrity_rec.error_record.error_message = 'RCV_NOT_PO_VEN_SITE' THEN
9047: rcv_error_pkg.set_token('PO_SUPPLIER_ITEM', '');
9048: rcv_error_pkg.set_token('SHIPMENT_SUPPLIER_ITEM', x_ref_integrity_rec.vendor_item_num);
9049: ELSIF x_ref_integrity_rec.error_record.error_message = 'RCV_NOT_PO_VEN' THEN
9050: rcv_error_pkg.set_token('PO_SUPPLIER', '');
9051: rcv_error_pkg.set_token('SHIPMENT_SUPPLIER', x_ref_integrity_rec.vendor_id);
9052: ELSIF x_ref_integrity_rec.error_record.error_message = 'RCV_ERC_MISMATCH_PO_VENDOR' THEN
9053: NULL;
9054: ELSIF x_ref_integrity_rec.error_record.error_message = 'RCV_NOT_PO_VEN_SITE' THEN
9055: rcv_error_pkg.set_token('PO_SUPPLIER_SITE', '');
9051: rcv_error_pkg.set_token('SHIPMENT_SUPPLIER', x_ref_integrity_rec.vendor_id);
9052: ELSIF x_ref_integrity_rec.error_record.error_message = 'RCV_ERC_MISMATCH_PO_VENDOR' THEN
9053: NULL;
9054: ELSIF x_ref_integrity_rec.error_record.error_message = 'RCV_NOT_PO_VEN_SITE' THEN
9055: rcv_error_pkg.set_token('PO_SUPPLIER_SITE', '');
9056: rcv_error_pkg.set_token('SHIPMENT_SUPPLIER_SITE', x_ref_integrity_rec.vendor_site_id);
9057: ELSIF x_ref_integrity_rec.error_record.error_message = 'RCV_NOT_PO_REVISION' THEN
9058: rcv_error_pkg.set_token('PO_REV', '');
9059: rcv_error_pkg.set_token('SHIPMENT_REV', x_ref_integrity_rec.po_revision_num);
9052: ELSIF x_ref_integrity_rec.error_record.error_message = 'RCV_ERC_MISMATCH_PO_VENDOR' THEN
9053: NULL;
9054: ELSIF x_ref_integrity_rec.error_record.error_message = 'RCV_NOT_PO_VEN_SITE' THEN
9055: rcv_error_pkg.set_token('PO_SUPPLIER_SITE', '');
9056: rcv_error_pkg.set_token('SHIPMENT_SUPPLIER_SITE', x_ref_integrity_rec.vendor_site_id);
9057: ELSIF x_ref_integrity_rec.error_record.error_message = 'RCV_NOT_PO_REVISION' THEN
9058: rcv_error_pkg.set_token('PO_REV', '');
9059: rcv_error_pkg.set_token('SHIPMENT_REV', x_ref_integrity_rec.po_revision_num);
9060: END IF;
9054: ELSIF x_ref_integrity_rec.error_record.error_message = 'RCV_NOT_PO_VEN_SITE' THEN
9055: rcv_error_pkg.set_token('PO_SUPPLIER_SITE', '');
9056: rcv_error_pkg.set_token('SHIPMENT_SUPPLIER_SITE', x_ref_integrity_rec.vendor_site_id);
9057: ELSIF x_ref_integrity_rec.error_record.error_message = 'RCV_NOT_PO_REVISION' THEN
9058: rcv_error_pkg.set_token('PO_REV', '');
9059: rcv_error_pkg.set_token('SHIPMENT_REV', x_ref_integrity_rec.po_revision_num);
9060: END IF;
9061: END validate_ref_integ;
9062:
9055: rcv_error_pkg.set_token('PO_SUPPLIER_SITE', '');
9056: rcv_error_pkg.set_token('SHIPMENT_SUPPLIER_SITE', x_ref_integrity_rec.vendor_site_id);
9057: ELSIF x_ref_integrity_rec.error_record.error_message = 'RCV_NOT_PO_REVISION' THEN
9058: rcv_error_pkg.set_token('PO_REV', '');
9059: rcv_error_pkg.set_token('SHIPMENT_REV', x_ref_integrity_rec.po_revision_num);
9060: END IF;
9061: END validate_ref_integ;
9062:
9063: PROCEDURE validate_temp_labor_info(
9066: v_header_record IN rcv_roi_preprocessor.header_rec_type
9067: ) IS
9068: x_error_status VARCHAR2(1);
9069: BEGIN
9070: x_error_status := rcv_error_pkg.g_ret_sts_error;
9071:
9072: IF v_trans_tab(n).error_status NOT IN('S', 'W') THEN
9073: RETURN;
9074: END IF;
9077: AND v_trans_tab(n).purchase_basis = 'TEMP LABOR' THEN
9078: IF v_trans_tab(n).job_id IS NULL
9079: OR v_trans_tab(n).timecard_id IS NULL
9080: OR v_trans_tab(n).timecard_ovn IS NULL THEN
9081: rcv_error_pkg.set_error_message('RCV_NO_TEMP_LABOR_INFO');
9082: RAISE e_validation_error;
9083: END IF;
9084: END IF;
9085: EXCEPTION
9084: END IF;
9085: EXCEPTION
9086: WHEN e_validation_error THEN
9087: v_trans_tab(n).error_status := x_error_status;
9088: v_trans_tab(n).error_message := rcv_error_pkg.get_last_message;
9089:
9090: IF v_trans_tab(n).error_message = 'RCV_NO_TEMP_LABOR_INFO' THEN
9091: NULL;
9092: END IF;
9098: v_header_record IN rcv_roi_preprocessor.header_rec_type
9099: ) IS
9100: x_error_status VARCHAR2(1);
9101: BEGIN
9102: x_error_status := rcv_error_pkg.g_ret_sts_error;
9103:
9104: IF v_trans_tab(n).error_status NOT IN('S', 'W') THEN
9105: RETURN;
9106: END IF;
9107:
9108: IF v_trans_tab(n).matching_basis = 'AMOUNT' THEN
9109: IF v_trans_tab(n).amount IS NULL
9110: OR v_trans_tab(n).amount <= 0 THEN
9111: rcv_error_pkg.set_error_message('RCV_NO_AMOUNT');
9112: RAISE e_validation_error;
9113: END IF;
9114: END IF;
9115: EXCEPTION
9114: END IF;
9115: EXCEPTION
9116: WHEN e_validation_error THEN
9117: v_trans_tab(n).error_status := x_error_status;
9118: v_trans_tab(n).error_message := rcv_error_pkg.get_last_message;
9119:
9120: IF v_trans_tab(n).error_message = 'RCV_NO_AMOUNT' THEN
9121: NULL;
9122: END IF;
10030: null);
10031: END IF;
10032:
10033: IF (l_message IS NOT NULL) THEN
10034: rcv_error_pkg.log_interface_error_message(l_message);
10035: ELSE
10036: rcv_error_pkg.set_error_message('RCV_SPLIT_LOT_SERIAL_ERROR');
10037: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID', FALSE);
10038: END IF;
10032:
10033: IF (l_message IS NOT NULL) THEN
10034: rcv_error_pkg.log_interface_error_message(l_message);
10035: ELSE
10036: rcv_error_pkg.set_error_message('RCV_SPLIT_LOT_SERIAL_ERROR');
10037: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID', FALSE);
10038: END IF;
10039: END LOOP;
10040: /*Bug 10351737 Deleteing the orphan rsh records*/
10033: IF (l_message IS NOT NULL) THEN
10034: rcv_error_pkg.log_interface_error_message(l_message);
10035: ELSE
10036: rcv_error_pkg.set_error_message('RCV_SPLIT_LOT_SERIAL_ERROR');
10037: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID', FALSE);
10038: END IF;
10039: END LOOP;
10040: /*Bug 10351737 Deleteing the orphan rsh records*/
10041:
10159: l_transaction_type rcv_transactions_interface.transaction_type%TYPE;
10160: l_auto_transact_code rcv_transactions_interface.auto_transact_code%TYPE;
10161: /* Bug# 9855182 End*/
10162: BEGIN
10163: x_error_status := rcv_error_pkg.g_ret_sts_error;
10164:
10165: /* We need to derive parent_trx_id if we can. Else if it is
10166: * a child of a parent in this same run, we can get all the values
10167: * from rti since we would have already derived for that or
10220: FROM rcv_transactions
10221: WHERE source_transaction_num = x_cascaded_table(n).parent_source_transaction_num;
10222: EXCEPTION
10223: WHEN NO_DATA_FOUND THEN
10224: rcv_error_pkg.set_error_message('RCV_NO_PARENT_SRC_TRANSACTION');
10225: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).parent_source_transaction_num);
10226: RAISE e_validation_error;
10227: WHEN TOO_MANY_ROWS THEN
10228: rcv_error_pkg.set_error_message('RCV_DUP_SRC_TRANSACTION');
10221: WHERE source_transaction_num = x_cascaded_table(n).parent_source_transaction_num;
10222: EXCEPTION
10223: WHEN NO_DATA_FOUND THEN
10224: rcv_error_pkg.set_error_message('RCV_NO_PARENT_SRC_TRANSACTION');
10225: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).parent_source_transaction_num);
10226: RAISE e_validation_error;
10227: WHEN TOO_MANY_ROWS THEN
10228: rcv_error_pkg.set_error_message('RCV_DUP_SRC_TRANSACTION');
10229: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).parent_source_transaction_num);
10224: rcv_error_pkg.set_error_message('RCV_NO_PARENT_SRC_TRANSACTION');
10225: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).parent_source_transaction_num);
10226: RAISE e_validation_error;
10227: WHEN TOO_MANY_ROWS THEN
10228: rcv_error_pkg.set_error_message('RCV_DUP_SRC_TRANSACTION');
10229: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).parent_source_transaction_num);
10230: RAISE e_validation_error;
10231: END;
10232:
10225: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).parent_source_transaction_num);
10226: RAISE e_validation_error;
10227: WHEN TOO_MANY_ROWS THEN
10228: rcv_error_pkg.set_error_message('RCV_DUP_SRC_TRANSACTION');
10229: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).parent_source_transaction_num);
10230: RAISE e_validation_error;
10231: END;
10232:
10233: END IF;
10245: IF (g_asn_debug = 'Y') THEN
10246: asn_debug.put_line('NO PARENT');
10247: END IF;
10248:
10249: rcv_error_pkg.set_error_message('RCV_NO_PARENT_TRANSACTION');
10250: RAISE e_validation_error;
10251: ELSIF(x_cascaded_table(n).parent_interface_txn_id IS NOT NULL) THEN --}{
10252: IF (NOT derive_values_from_plsql_table) THEN --{
10253: BEGIN
10276: asn_debug.put_line('l_processing_status_code from rti ' || l_processing_status_code);
10277: END IF;
10278:
10279: IF (l_processing_status_code = 'ERROR') THEN
10280: rcv_error_pkg.set_error_message('RCV_PARENT_RECORD_ERRORED');
10281: RAISE e_validation_error;
10282: END IF;
10283:
10284: /* Bug# 9855182 */
10287: sign(x_cascaded_table(n).quantity) = -1)) THEN
10288:
10289: IF l_transaction_type = 'RECEIVE' AND
10290: l_auto_transact_code = 'DELIVER' THEN
10291: rcv_error_pkg.set_error_message('RCV_INVALID_PARENT_TRX_TYPE');
10292: RAISE e_validation_error;
10293: END IF;
10294: END IF;
10295: /* Bug# 9855182 End*/
10296:
10297:
10298: ELSE --}{
10299: IF (x_cascaded_table(cascaded_table_index).processing_status_code = 'ERROR') THEN
10300: rcv_error_pkg.set_error_message('RCV_PARENT_RECORD_ERRORED');
10301: RAISE e_validation_error;
10302: END IF;
10303:
10304: /* Bug# 9855182 */
10307: sign(x_cascaded_table(n).quantity) = -1)) THEN
10308:
10309: IF x_cascaded_table(cascaded_table_index).transaction_type = 'RECEIVE' AND
10310: x_cascaded_table(cascaded_table_index).auto_transact_code = 'DELIVER' THEN
10311: rcv_error_pkg.set_error_message('RCV_INVALID_PARENT_TRX_TYPE');
10312: RAISE e_validation_error;
10313: END IF;
10314: END IF;
10315: /* Bug# 9855182 End*/
10318: END IF; /* Insert error if parent_interface_txn_id is null*/ --}
10319: EXCEPTION
10320: WHEN e_validation_error THEN
10321: x_cascaded_table(n).error_status := x_error_status;
10322: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
10323:
10324: -- This case statement assigns the appropriate tokens
10325: -- all error messages must be found in the case statement
10326: -- if the error message has no token then use a null statement
10329: ELSIF x_cascaded_table(n).error_message = 'RCV_PARENT_RECORD_ERRORED' THEN
10330: NULL;
10331: END IF;
10332:
10333: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
10334: WHEN e_unexpected_error THEN
10335: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
10336: rcv_error_pkg.set_sql_error_message('derive_parent_id', '000');
10337: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
10331: END IF;
10332:
10333: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
10334: WHEN e_unexpected_error THEN
10335: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
10336: rcv_error_pkg.set_sql_error_message('derive_parent_id', '000');
10337: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
10338: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
10339: END derive_parent_id;
10332:
10333: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
10334: WHEN e_unexpected_error THEN
10335: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
10336: rcv_error_pkg.set_sql_error_message('derive_parent_id', '000');
10337: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
10338: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
10339: END derive_parent_id;
10340:
10333: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
10334: WHEN e_unexpected_error THEN
10335: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
10336: rcv_error_pkg.set_sql_error_message('derive_parent_id', '000');
10337: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
10338: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
10339: END derive_parent_id;
10340:
10341: PROCEDURE derive_trans_del_line_quantity(
10334: WHEN e_unexpected_error THEN
10335: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
10336: rcv_error_pkg.set_sql_error_message('derive_parent_id', '000');
10337: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
10338: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
10339: END derive_parent_id;
10340:
10341: PROCEDURE derive_trans_del_line_quantity(
10342: x_cascaded_table IN OUT NOCOPY rcv_roi_preprocessor.cascaded_trans_tab_type,
10900:
10901: already_derived := TRUE;
10902: EXCEPTION
10903: WHEN NO_DATA_FOUND THEN
10904: rcv_error_pkg.set_error_message('RCV_NO_PARENT_SRC_TRANSACTION');
10905: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).parent_source_transaction_num);
10906: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
10907: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
10908: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
10901: already_derived := TRUE;
10902: EXCEPTION
10903: WHEN NO_DATA_FOUND THEN
10904: rcv_error_pkg.set_error_message('RCV_NO_PARENT_SRC_TRANSACTION');
10905: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).parent_source_transaction_num);
10906: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
10907: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
10908: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
10909:
10902: EXCEPTION
10903: WHEN NO_DATA_FOUND THEN
10904: rcv_error_pkg.set_error_message('RCV_NO_PARENT_SRC_TRANSACTION');
10905: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).parent_source_transaction_num);
10906: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
10907: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
10908: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
10909:
10910: WHEN TOO_MANY_ROWS THEN
10903: WHEN NO_DATA_FOUND THEN
10904: rcv_error_pkg.set_error_message('RCV_NO_PARENT_SRC_TRANSACTION');
10905: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).parent_source_transaction_num);
10906: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
10907: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
10908: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
10909:
10910: WHEN TOO_MANY_ROWS THEN
10911: rcv_error_pkg.set_error_message('RCV_DUP_SRC_TRANSACTION');
10904: rcv_error_pkg.set_error_message('RCV_NO_PARENT_SRC_TRANSACTION');
10905: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).parent_source_transaction_num);
10906: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
10907: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
10908: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
10909:
10910: WHEN TOO_MANY_ROWS THEN
10911: rcv_error_pkg.set_error_message('RCV_DUP_SRC_TRANSACTION');
10912: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).parent_source_transaction_num);
10907: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
10908: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
10909:
10910: WHEN TOO_MANY_ROWS THEN
10911: rcv_error_pkg.set_error_message('RCV_DUP_SRC_TRANSACTION');
10912: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).parent_source_transaction_num);
10913: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
10914: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
10915: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
10908: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
10909:
10910: WHEN TOO_MANY_ROWS THEN
10911: rcv_error_pkg.set_error_message('RCV_DUP_SRC_TRANSACTION');
10912: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).parent_source_transaction_num);
10913: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
10914: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
10915: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
10916: END;
10909:
10910: WHEN TOO_MANY_ROWS THEN
10911: rcv_error_pkg.set_error_message('RCV_DUP_SRC_TRANSACTION');
10912: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).parent_source_transaction_num);
10913: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
10914: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
10915: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
10916: END;
10917: END IF;
10910: WHEN TOO_MANY_ROWS THEN
10911: rcv_error_pkg.set_error_message('RCV_DUP_SRC_TRANSACTION');
10912: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).parent_source_transaction_num);
10913: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
10914: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
10915: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
10916: END;
10917: END IF;
10918:
10911: rcv_error_pkg.set_error_message('RCV_DUP_SRC_TRANSACTION');
10912: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).parent_source_transaction_num);
10913: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
10914: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
10915: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
10916: END;
10917: END IF;
10918:
10919: IF (x_cascaded_table(n).parent_transaction_id IS NOT NULL) THEN --{
10940: asn_debug.put_line('l_num_of_distributions is 0');
10941: END IF;
10942:
10943: x_cascaded_table(n).error_status := 'F';
10944: rcv_error_pkg.set_error_message('RCV_NO_RECEIVE_SUPPLY', x_cascaded_table(n).error_message);
10945: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID', FALSE);
10946: return;
10947:
10948: END IF; /* End of FP for bug 4654553 */
10941: END IF;
10942:
10943: x_cascaded_table(n).error_status := 'F';
10944: rcv_error_pkg.set_error_message('RCV_NO_RECEIVE_SUPPLY', x_cascaded_table(n).error_message);
10945: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID', FALSE);
10946: return;
10947:
10948: END IF; /* End of FP for bug 4654553 */
10949: IF ( (x_cascaded_table(n).transaction_type = 'DELIVER')
10985: asn_debug.put_line('Distribution num is required for delivering multi distribution Po');
10986: END IF;
10987:
10988: x_cascaded_table(n).error_status := 'F';
10989: rcv_error_pkg.set_error_message('RCV_DIST_NUM_REQ', x_cascaded_table(n).error_message);
10990: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID', FALSE);
10991: END IF; --}
10992:
10993: OPEN po_deliver(x_cascaded_table(n).parent_transaction_id,
10986: END IF;
10987:
10988: x_cascaded_table(n).error_status := 'F';
10989: rcv_error_pkg.set_error_message('RCV_DIST_NUM_REQ', x_cascaded_table(n).error_message);
10990: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID', FALSE);
10991: END IF; --}
10992:
10993: OPEN po_deliver(x_cascaded_table(n).parent_transaction_id,
10994: x_cascaded_table(n).to_organization_id,
11097: asn_debug.put_line('Distribution num is required for delivering multi distribution Po');
11098: END IF;
11099:
11100: x_cascaded_table(n).error_status := 'F';
11101: rcv_error_pkg.set_error_message('RCV_DIST_NUM_REQ', x_cascaded_table(n).error_message);
11102: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID', FALSE);
11103: END IF; --}
11104:
11105: IF (g_asn_debug = 'Y') THEN
11098: END IF;
11099:
11100: x_cascaded_table(n).error_status := 'F';
11101: rcv_error_pkg.set_error_message('RCV_DIST_NUM_REQ', x_cascaded_table(n).error_message);
11102: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID', FALSE);
11103: END IF; --}
11104:
11105: IF (g_asn_debug = 'Y') THEN
11106: asn_debug.put_line(' open Multi deliver cursor from rti');
11132: asn_debug.put_line('Quantity is <= zero. Cascade will fail');
11133: END IF;
11134:
11135: x_cascaded_table(n).error_status := 'F';
11136: rcv_error_pkg.set_error_message('RCV_ENTER_QTY_GT_ZERO', x_cascaded_table(n).error_message);
11137: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
11138: END IF; --} end qty > 0 check
11139:
11140: -- the following steps will create a set of rows linking the line_record with
11133: END IF;
11134:
11135: x_cascaded_table(n).error_status := 'F';
11136: rcv_error_pkg.set_error_message('RCV_ENTER_QTY_GT_ZERO', x_cascaded_table(n).error_message);
11137: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
11138: END IF; --} end qty > 0 check
11139:
11140: -- the following steps will create a set of rows linking the line_record with
11141: -- its corresponding po_line_location rows until the quantity value from
11478: FROM po_lines
11479: WHERE po_line_id = l_service_po_line_id;
11480:
11481: IF (l_matching_basis = 'AMOUNT') THEN
11482: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
11483: rcv_error_pkg.set_error_message('RCV_NO_SERVICE_SUPPORT_TRX', x_cascaded_table(n).error_message);
11484: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE', FALSE);
11485: END IF;
11486: END IF; --}
11479: WHERE po_line_id = l_service_po_line_id;
11480:
11481: IF (l_matching_basis = 'AMOUNT') THEN
11482: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
11483: rcv_error_pkg.set_error_message('RCV_NO_SERVICE_SUPPORT_TRX', x_cascaded_table(n).error_message);
11484: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE', FALSE);
11485: END IF;
11486: END IF; --}
11487:
11480:
11481: IF (l_matching_basis = 'AMOUNT') THEN
11482: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
11483: rcv_error_pkg.set_error_message('RCV_NO_SERVICE_SUPPORT_TRX', x_cascaded_table(n).error_message);
11484: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE', FALSE);
11485: END IF;
11486: END IF; --}
11487:
11488: /* FPJ SERVICES END. */
11510: END IF;
11511:
11512: IF (l_complex_flag = 'Y') THEN
11513: asn_debug.put_line('We do not support transaction type ' || x_cascaded_table(n).transaction_type || ' for complex work POs');
11514: rcv_error_pkg.set_error_message('RCV_INVALID_TRANSACTION_TYPE');
11515: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE');
11516: End if;
11517:
11518:
11511:
11512: IF (l_complex_flag = 'Y') THEN
11513: asn_debug.put_line('We do not support transaction type ' || x_cascaded_table(n).transaction_type || ' for complex work POs');
11514: rcv_error_pkg.set_error_message('RCV_INVALID_TRANSACTION_TYPE');
11515: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE');
11516: End if;
11517:
11518:
11519:
11574: l_partial_funded_flag);
11575: END IF;
11576: --
11577:
11578: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
11579:
11580: --
11581: IF (l_is_clm_po = 'Y' AND l_partial_funded_flag = 'Y' AND
11582: x_cascaded_table(n).transaction_type = 'DELIVER') THEN
11582: x_cascaded_table(n).transaction_type = 'DELIVER') THEN
11583:
11584: IF l_po_rel_num = -1 THEN
11585:
11586: rcv_error_pkg.set_error_message('RCV_ROI_TRX_QTY_EXCEEDS_FUNDED', x_cascaded_table(n).error_message);
11587: ELSE
11588: rcv_error_pkg.set_error_message('RCV_ROI_TRX_QTY_EXCEED_FUNDED', x_cascaded_table(n).error_message);
11589: rcv_error_pkg.set_token('RELNUM', l_po_rel_num);
11590: END IF;
11584: IF l_po_rel_num = -1 THEN
11585:
11586: rcv_error_pkg.set_error_message('RCV_ROI_TRX_QTY_EXCEEDS_FUNDED', x_cascaded_table(n).error_message);
11587: ELSE
11588: rcv_error_pkg.set_error_message('RCV_ROI_TRX_QTY_EXCEED_FUNDED', x_cascaded_table(n).error_message);
11589: rcv_error_pkg.set_token('RELNUM', l_po_rel_num);
11590: END IF;
11591:
11592: rcv_error_pkg.set_token('TXNQTY', x_cascaded_table(n).quantity);
11585:
11586: rcv_error_pkg.set_error_message('RCV_ROI_TRX_QTY_EXCEEDS_FUNDED', x_cascaded_table(n).error_message);
11587: ELSE
11588: rcv_error_pkg.set_error_message('RCV_ROI_TRX_QTY_EXCEED_FUNDED', x_cascaded_table(n).error_message);
11589: rcv_error_pkg.set_token('RELNUM', l_po_rel_num);
11590: END IF;
11591:
11592: rcv_error_pkg.set_token('TXNQTY', x_cascaded_table(n).quantity);
11593: rcv_error_pkg.set_token('AVLQTY', x_cascaded_table(n).quantity - x_remaining_quantity);
11588: rcv_error_pkg.set_error_message('RCV_ROI_TRX_QTY_EXCEED_FUNDED', x_cascaded_table(n).error_message);
11589: rcv_error_pkg.set_token('RELNUM', l_po_rel_num);
11590: END IF;
11591:
11592: rcv_error_pkg.set_token('TXNQTY', x_cascaded_table(n).quantity);
11593: rcv_error_pkg.set_token('AVLQTY', x_cascaded_table(n).quantity - x_remaining_quantity);
11594: rcv_error_pkg.set_token('PONUM', l_po_num);
11595: rcv_error_pkg.set_token('LINENUM', l_po_line_num);
11596: rcv_error_pkg.set_token('SHIPNUM', l_po_line_loc_num);
11589: rcv_error_pkg.set_token('RELNUM', l_po_rel_num);
11590: END IF;
11591:
11592: rcv_error_pkg.set_token('TXNQTY', x_cascaded_table(n).quantity);
11593: rcv_error_pkg.set_token('AVLQTY', x_cascaded_table(n).quantity - x_remaining_quantity);
11594: rcv_error_pkg.set_token('PONUM', l_po_num);
11595: rcv_error_pkg.set_token('LINENUM', l_po_line_num);
11596: rcv_error_pkg.set_token('SHIPNUM', l_po_line_loc_num);
11597: rcv_error_pkg.set_token('DISTNUM', l_po_dist_num);
11590: END IF;
11591:
11592: rcv_error_pkg.set_token('TXNQTY', x_cascaded_table(n).quantity);
11593: rcv_error_pkg.set_token('AVLQTY', x_cascaded_table(n).quantity - x_remaining_quantity);
11594: rcv_error_pkg.set_token('PONUM', l_po_num);
11595: rcv_error_pkg.set_token('LINENUM', l_po_line_num);
11596: rcv_error_pkg.set_token('SHIPNUM', l_po_line_loc_num);
11597: rcv_error_pkg.set_token('DISTNUM', l_po_dist_num);
11598:
11591:
11592: rcv_error_pkg.set_token('TXNQTY', x_cascaded_table(n).quantity);
11593: rcv_error_pkg.set_token('AVLQTY', x_cascaded_table(n).quantity - x_remaining_quantity);
11594: rcv_error_pkg.set_token('PONUM', l_po_num);
11595: rcv_error_pkg.set_token('LINENUM', l_po_line_num);
11596: rcv_error_pkg.set_token('SHIPNUM', l_po_line_loc_num);
11597: rcv_error_pkg.set_token('DISTNUM', l_po_dist_num);
11598:
11599: ELSE
11592: rcv_error_pkg.set_token('TXNQTY', x_cascaded_table(n).quantity);
11593: rcv_error_pkg.set_token('AVLQTY', x_cascaded_table(n).quantity - x_remaining_quantity);
11594: rcv_error_pkg.set_token('PONUM', l_po_num);
11595: rcv_error_pkg.set_token('LINENUM', l_po_line_num);
11596: rcv_error_pkg.set_token('SHIPNUM', l_po_line_loc_num);
11597: rcv_error_pkg.set_token('DISTNUM', l_po_dist_num);
11598:
11599: ELSE
11600: --
11593: rcv_error_pkg.set_token('AVLQTY', x_cascaded_table(n).quantity - x_remaining_quantity);
11594: rcv_error_pkg.set_token('PONUM', l_po_num);
11595: rcv_error_pkg.set_token('LINENUM', l_po_line_num);
11596: rcv_error_pkg.set_token('SHIPNUM', l_po_line_loc_num);
11597: rcv_error_pkg.set_token('DISTNUM', l_po_dist_num);
11598:
11599: ELSE
11600: --
11601:
11599: ELSE
11600: --
11601:
11602: IF l_po_rel_num = -1 THEN--Bug 5439085
11603: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEEDS_AVL_QTY_PO', x_cascaded_table(n).error_message);
11604: ELSE
11605: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
11606: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
11607: END IF;
11601:
11602: IF l_po_rel_num = -1 THEN--Bug 5439085
11603: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEEDS_AVL_QTY_PO', x_cascaded_table(n).error_message);
11604: ELSE
11605: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
11606: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
11607: END IF;
11608: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
11609: rcv_error_pkg.set_token('AVLQTY',x_cascaded_table(n).quantity - x_remaining_quantity);
11602: IF l_po_rel_num = -1 THEN--Bug 5439085
11603: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEEDS_AVL_QTY_PO', x_cascaded_table(n).error_message);
11604: ELSE
11605: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
11606: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
11607: END IF;
11608: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
11609: rcv_error_pkg.set_token('AVLQTY',x_cascaded_table(n).quantity - x_remaining_quantity);
11610: rcv_error_pkg.set_token('PONUM', l_po_num );
11604: ELSE
11605: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
11606: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
11607: END IF;
11608: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
11609: rcv_error_pkg.set_token('AVLQTY',x_cascaded_table(n).quantity - x_remaining_quantity);
11610: rcv_error_pkg.set_token('PONUM', l_po_num );
11611: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
11612: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
11605: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
11606: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
11607: END IF;
11608: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
11609: rcv_error_pkg.set_token('AVLQTY',x_cascaded_table(n).quantity - x_remaining_quantity);
11610: rcv_error_pkg.set_token('PONUM', l_po_num );
11611: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
11612: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
11613: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
11606: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
11607: END IF;
11608: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
11609: rcv_error_pkg.set_token('AVLQTY',x_cascaded_table(n).quantity - x_remaining_quantity);
11610: rcv_error_pkg.set_token('PONUM', l_po_num );
11611: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
11612: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
11613: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
11614:
11607: END IF;
11608: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
11609: rcv_error_pkg.set_token('AVLQTY',x_cascaded_table(n).quantity - x_remaining_quantity);
11610: rcv_error_pkg.set_token('PONUM', l_po_num );
11611: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
11612: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
11613: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
11614:
11615: END IF; --
11608: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
11609: rcv_error_pkg.set_token('AVLQTY',x_cascaded_table(n).quantity - x_remaining_quantity);
11610: rcv_error_pkg.set_token('PONUM', l_po_num );
11611: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
11612: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
11613: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
11614:
11615: END IF; --
11616:
11609: rcv_error_pkg.set_token('AVLQTY',x_cascaded_table(n).quantity - x_remaining_quantity);
11610: rcv_error_pkg.set_token('PONUM', l_po_num );
11611: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
11612: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
11613: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
11614:
11615: END IF; --
11616:
11617: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
11613: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
11614:
11615: END IF; --
11616:
11617: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
11618:
11619: IF temp_cascaded_table.COUNT > 0 THEN
11620: FOR i IN 1 .. temp_cascaded_table.COUNT LOOP
11621: temp_cascaded_table.DELETE(i);
11642: END IF;
11643: END IF;
11644:
11645: x_temp_count := 1;
11646: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
11647:
11648: IF (x_cascaded_table(n).parent_transaction_id IS NOT NULL) THEN --{
11649:
11650: SELECT transaction_type
11652: FROM rcv_transactions
11653: WHERE transaction_id = temp_cascaded_table(current_n).parent_transaction_id;
11654:
11655: IF l_transaction_type = 'UNORDERED' THEN
11656: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
11657: rcv_error_pkg.set_error_message('RCV_INVALID_PARENT_TRX_TYPE', x_cascaded_table(n).error_message);
11658: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
11659: ELSE -- all other cases can be categorized as no receive supply
11660: rcv_error_pkg.set_error_message('RCV_NO_RECEIVE_SUPPLY', x_cascaded_table(n).error_message);
11653: WHERE transaction_id = temp_cascaded_table(current_n).parent_transaction_id;
11654:
11655: IF l_transaction_type = 'UNORDERED' THEN
11656: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
11657: rcv_error_pkg.set_error_message('RCV_INVALID_PARENT_TRX_TYPE', x_cascaded_table(n).error_message);
11658: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
11659: ELSE -- all other cases can be categorized as no receive supply
11660: rcv_error_pkg.set_error_message('RCV_NO_RECEIVE_SUPPLY', x_cascaded_table(n).error_message);
11661: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
11654:
11655: IF l_transaction_type = 'UNORDERED' THEN
11656: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
11657: rcv_error_pkg.set_error_message('RCV_INVALID_PARENT_TRX_TYPE', x_cascaded_table(n).error_message);
11658: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
11659: ELSE -- all other cases can be categorized as no receive supply
11660: rcv_error_pkg.set_error_message('RCV_NO_RECEIVE_SUPPLY', x_cascaded_table(n).error_message);
11661: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
11662: END IF;
11656: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
11657: rcv_error_pkg.set_error_message('RCV_INVALID_PARENT_TRX_TYPE', x_cascaded_table(n).error_message);
11658: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
11659: ELSE -- all other cases can be categorized as no receive supply
11660: rcv_error_pkg.set_error_message('RCV_NO_RECEIVE_SUPPLY', x_cascaded_table(n).error_message);
11661: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
11662: END IF;
11663: END IF; --}
11664:
11657: rcv_error_pkg.set_error_message('RCV_INVALID_PARENT_TRX_TYPE', x_cascaded_table(n).error_message);
11658: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
11659: ELSE -- all other cases can be categorized as no receive supply
11660: rcv_error_pkg.set_error_message('RCV_NO_RECEIVE_SUPPLY', x_cascaded_table(n).error_message);
11661: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
11662: END IF;
11663: END IF; --}
11664:
11665: -- Delete the temp_cascaded_table just to be sure
11953: IF l_is_clm_po = 'Y' AND l_partial_funded_flag = 'Y' THEN
11954:
11955: IF l_po_rel_num = -1 THEN
11956:
11957: rcv_error_pkg.set_error_message('RCV_ROI_TRX_QTY_EXCEEDS_FUNDED',x_cascaded_table(n).error_message);
11958: ELSE
11959: rcv_error_pkg.set_error_message('RCV_ROI_TRX_QTY_EXCEED_FUNDED',x_cascaded_table(n).error_message);
11960: rcv_error_pkg.set_token('RELNUM', l_po_rel_num);
11961: END IF;
11955: IF l_po_rel_num = -1 THEN
11956:
11957: rcv_error_pkg.set_error_message('RCV_ROI_TRX_QTY_EXCEEDS_FUNDED',x_cascaded_table(n).error_message);
11958: ELSE
11959: rcv_error_pkg.set_error_message('RCV_ROI_TRX_QTY_EXCEED_FUNDED',x_cascaded_table(n).error_message);
11960: rcv_error_pkg.set_token('RELNUM', l_po_rel_num);
11961: END IF;
11962:
11963: rcv_error_pkg.set_token('TXNQTY', x_cascaded_table(n).quantity);
11956:
11957: rcv_error_pkg.set_error_message('RCV_ROI_TRX_QTY_EXCEEDS_FUNDED',x_cascaded_table(n).error_message);
11958: ELSE
11959: rcv_error_pkg.set_error_message('RCV_ROI_TRX_QTY_EXCEED_FUNDED',x_cascaded_table(n).error_message);
11960: rcv_error_pkg.set_token('RELNUM', l_po_rel_num);
11961: END IF;
11962:
11963: rcv_error_pkg.set_token('TXNQTY', x_cascaded_table(n).quantity);
11964: rcv_error_pkg.set_token('AVLQTY', 0);
11959: rcv_error_pkg.set_error_message('RCV_ROI_TRX_QTY_EXCEED_FUNDED',x_cascaded_table(n).error_message);
11960: rcv_error_pkg.set_token('RELNUM', l_po_rel_num);
11961: END IF;
11962:
11963: rcv_error_pkg.set_token('TXNQTY', x_cascaded_table(n).quantity);
11964: rcv_error_pkg.set_token('AVLQTY', 0);
11965: rcv_error_pkg.set_token('PONUM', l_po_num);
11966: rcv_error_pkg.set_token('LINENUM', l_po_line_num);
11967: rcv_error_pkg.set_token('SHIPNUM', l_po_line_loc_num);
11960: rcv_error_pkg.set_token('RELNUM', l_po_rel_num);
11961: END IF;
11962:
11963: rcv_error_pkg.set_token('TXNQTY', x_cascaded_table(n).quantity);
11964: rcv_error_pkg.set_token('AVLQTY', 0);
11965: rcv_error_pkg.set_token('PONUM', l_po_num);
11966: rcv_error_pkg.set_token('LINENUM', l_po_line_num);
11967: rcv_error_pkg.set_token('SHIPNUM', l_po_line_loc_num);
11968: rcv_error_pkg.set_token('DISTNUM', l_po_dist_num);
11961: END IF;
11962:
11963: rcv_error_pkg.set_token('TXNQTY', x_cascaded_table(n).quantity);
11964: rcv_error_pkg.set_token('AVLQTY', 0);
11965: rcv_error_pkg.set_token('PONUM', l_po_num);
11966: rcv_error_pkg.set_token('LINENUM', l_po_line_num);
11967: rcv_error_pkg.set_token('SHIPNUM', l_po_line_loc_num);
11968: rcv_error_pkg.set_token('DISTNUM', l_po_dist_num);
11969:
11962:
11963: rcv_error_pkg.set_token('TXNQTY', x_cascaded_table(n).quantity);
11964: rcv_error_pkg.set_token('AVLQTY', 0);
11965: rcv_error_pkg.set_token('PONUM', l_po_num);
11966: rcv_error_pkg.set_token('LINENUM', l_po_line_num);
11967: rcv_error_pkg.set_token('SHIPNUM', l_po_line_loc_num);
11968: rcv_error_pkg.set_token('DISTNUM', l_po_dist_num);
11969:
11970: ELSE
11963: rcv_error_pkg.set_token('TXNQTY', x_cascaded_table(n).quantity);
11964: rcv_error_pkg.set_token('AVLQTY', 0);
11965: rcv_error_pkg.set_token('PONUM', l_po_num);
11966: rcv_error_pkg.set_token('LINENUM', l_po_line_num);
11967: rcv_error_pkg.set_token('SHIPNUM', l_po_line_loc_num);
11968: rcv_error_pkg.set_token('DISTNUM', l_po_dist_num);
11969:
11970: ELSE
11971: --
11964: rcv_error_pkg.set_token('AVLQTY', 0);
11965: rcv_error_pkg.set_token('PONUM', l_po_num);
11966: rcv_error_pkg.set_token('LINENUM', l_po_line_num);
11967: rcv_error_pkg.set_token('SHIPNUM', l_po_line_loc_num);
11968: rcv_error_pkg.set_token('DISTNUM', l_po_dist_num);
11969:
11970: ELSE
11971: --
11972:
11970: ELSE
11971: --
11972:
11973: IF l_po_rel_num = -1 THEN--Bug 5439085
11974: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEEDS_AVL_QTY_PO', x_cascaded_table(n).error_message);
11975: ELSE
11976: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
11977: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
11978: END IF;
11972:
11973: IF l_po_rel_num = -1 THEN--Bug 5439085
11974: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEEDS_AVL_QTY_PO', x_cascaded_table(n).error_message);
11975: ELSE
11976: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
11977: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
11978: END IF;
11979: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
11980: rcv_error_pkg.set_token('AVLQTY',0);
11973: IF l_po_rel_num = -1 THEN--Bug 5439085
11974: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEEDS_AVL_QTY_PO', x_cascaded_table(n).error_message);
11975: ELSE
11976: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
11977: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
11978: END IF;
11979: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
11980: rcv_error_pkg.set_token('AVLQTY',0);
11981: rcv_error_pkg.set_token('PONUM', l_po_num );
11975: ELSE
11976: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
11977: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
11978: END IF;
11979: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
11980: rcv_error_pkg.set_token('AVLQTY',0);
11981: rcv_error_pkg.set_token('PONUM', l_po_num );
11982: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
11983: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
11976: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
11977: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
11978: END IF;
11979: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
11980: rcv_error_pkg.set_token('AVLQTY',0);
11981: rcv_error_pkg.set_token('PONUM', l_po_num );
11982: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
11983: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
11984: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
11977: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
11978: END IF;
11979: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
11980: rcv_error_pkg.set_token('AVLQTY',0);
11981: rcv_error_pkg.set_token('PONUM', l_po_num );
11982: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
11983: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
11984: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
11985:
11978: END IF;
11979: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
11980: rcv_error_pkg.set_token('AVLQTY',0);
11981: rcv_error_pkg.set_token('PONUM', l_po_num );
11982: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
11983: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
11984: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
11985:
11986: END IF; --
11979: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
11980: rcv_error_pkg.set_token('AVLQTY',0);
11981: rcv_error_pkg.set_token('PONUM', l_po_num );
11982: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
11983: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
11984: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
11985:
11986: END IF; --
11987:
11980: rcv_error_pkg.set_token('AVLQTY',0);
11981: rcv_error_pkg.set_token('PONUM', l_po_num );
11982: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
11983: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
11984: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
11985:
11986: END IF; --
11987:
11988: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
11984: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
11985:
11986: END IF; --
11987:
11988: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
11989: END IF;
11990:
11991: IF (g_asn_debug = 'Y') THEN
11992: asn_debug.put_line('l_distribution_qty:'||l_distribution_qty);
12036: IF l_is_clm_po = 'Y' AND l_partial_funded_flag = 'Y' THEN
12037:
12038: IF l_po_rel_num = -1 THEN
12039:
12040: rcv_error_pkg.set_error_message('RCV_ROI_TRX_QTY_EXCEEDS_FUNDED',x_cascaded_table(n).error_message);
12041: ELSE
12042:
12043: rcv_error_pkg.set_error_message('RCV_ROI_TRX_QTY_EXCEED_FUNDED',x_cascaded_table(n).error_message);
12044: rcv_error_pkg.set_token('RELNUM', l_po_rel_num);
12039:
12040: rcv_error_pkg.set_error_message('RCV_ROI_TRX_QTY_EXCEEDS_FUNDED',x_cascaded_table(n).error_message);
12041: ELSE
12042:
12043: rcv_error_pkg.set_error_message('RCV_ROI_TRX_QTY_EXCEED_FUNDED',x_cascaded_table(n).error_message);
12044: rcv_error_pkg.set_token('RELNUM', l_po_rel_num);
12045: END IF;
12046:
12047: rcv_error_pkg.set_token('TXNQTY', x_cascaded_table(n).quantity);
12040: rcv_error_pkg.set_error_message('RCV_ROI_TRX_QTY_EXCEEDS_FUNDED',x_cascaded_table(n).error_message);
12041: ELSE
12042:
12043: rcv_error_pkg.set_error_message('RCV_ROI_TRX_QTY_EXCEED_FUNDED',x_cascaded_table(n).error_message);
12044: rcv_error_pkg.set_token('RELNUM', l_po_rel_num);
12045: END IF;
12046:
12047: rcv_error_pkg.set_token('TXNQTY', x_cascaded_table(n).quantity);
12048: rcv_error_pkg.set_token('AVLQTY',l_distribution_qty - l_total_deliver_quantity);
12043: rcv_error_pkg.set_error_message('RCV_ROI_TRX_QTY_EXCEED_FUNDED',x_cascaded_table(n).error_message);
12044: rcv_error_pkg.set_token('RELNUM', l_po_rel_num);
12045: END IF;
12046:
12047: rcv_error_pkg.set_token('TXNQTY', x_cascaded_table(n).quantity);
12048: rcv_error_pkg.set_token('AVLQTY',l_distribution_qty - l_total_deliver_quantity);
12049: rcv_error_pkg.set_token('PONUM', l_po_num);
12050: rcv_error_pkg.set_token('LINENUM', l_po_line_num);
12051: rcv_error_pkg.set_token('SHIPNUM', l_po_line_loc_num);
12044: rcv_error_pkg.set_token('RELNUM', l_po_rel_num);
12045: END IF;
12046:
12047: rcv_error_pkg.set_token('TXNQTY', x_cascaded_table(n).quantity);
12048: rcv_error_pkg.set_token('AVLQTY',l_distribution_qty - l_total_deliver_quantity);
12049: rcv_error_pkg.set_token('PONUM', l_po_num);
12050: rcv_error_pkg.set_token('LINENUM', l_po_line_num);
12051: rcv_error_pkg.set_token('SHIPNUM', l_po_line_loc_num);
12052: rcv_error_pkg.set_token('DISTNUM', l_po_dist_num);
12045: END IF;
12046:
12047: rcv_error_pkg.set_token('TXNQTY', x_cascaded_table(n).quantity);
12048: rcv_error_pkg.set_token('AVLQTY',l_distribution_qty - l_total_deliver_quantity);
12049: rcv_error_pkg.set_token('PONUM', l_po_num);
12050: rcv_error_pkg.set_token('LINENUM', l_po_line_num);
12051: rcv_error_pkg.set_token('SHIPNUM', l_po_line_loc_num);
12052: rcv_error_pkg.set_token('DISTNUM', l_po_dist_num);
12053:
12046:
12047: rcv_error_pkg.set_token('TXNQTY', x_cascaded_table(n).quantity);
12048: rcv_error_pkg.set_token('AVLQTY',l_distribution_qty - l_total_deliver_quantity);
12049: rcv_error_pkg.set_token('PONUM', l_po_num);
12050: rcv_error_pkg.set_token('LINENUM', l_po_line_num);
12051: rcv_error_pkg.set_token('SHIPNUM', l_po_line_loc_num);
12052: rcv_error_pkg.set_token('DISTNUM', l_po_dist_num);
12053:
12054: ELSE
12047: rcv_error_pkg.set_token('TXNQTY', x_cascaded_table(n).quantity);
12048: rcv_error_pkg.set_token('AVLQTY',l_distribution_qty - l_total_deliver_quantity);
12049: rcv_error_pkg.set_token('PONUM', l_po_num);
12050: rcv_error_pkg.set_token('LINENUM', l_po_line_num);
12051: rcv_error_pkg.set_token('SHIPNUM', l_po_line_loc_num);
12052: rcv_error_pkg.set_token('DISTNUM', l_po_dist_num);
12053:
12054: ELSE
12055: --
12048: rcv_error_pkg.set_token('AVLQTY',l_distribution_qty - l_total_deliver_quantity);
12049: rcv_error_pkg.set_token('PONUM', l_po_num);
12050: rcv_error_pkg.set_token('LINENUM', l_po_line_num);
12051: rcv_error_pkg.set_token('SHIPNUM', l_po_line_loc_num);
12052: rcv_error_pkg.set_token('DISTNUM', l_po_dist_num);
12053:
12054: ELSE
12055: --
12056:
12054: ELSE
12055: --
12056:
12057: IF l_po_rel_num = -1 THEN--Bug 5439085
12058: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEEDS_AVL_QTY_PO', x_cascaded_table(n).error_message);
12059: ELSE
12060: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
12061: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
12062: END IF;
12056:
12057: IF l_po_rel_num = -1 THEN--Bug 5439085
12058: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEEDS_AVL_QTY_PO', x_cascaded_table(n).error_message);
12059: ELSE
12060: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
12061: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
12062: END IF;
12063: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
12064: rcv_error_pkg.set_token('AVLQTY',l_distribution_qty - l_total_deliver_quantity);
12057: IF l_po_rel_num = -1 THEN--Bug 5439085
12058: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEEDS_AVL_QTY_PO', x_cascaded_table(n).error_message);
12059: ELSE
12060: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
12061: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
12062: END IF;
12063: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
12064: rcv_error_pkg.set_token('AVLQTY',l_distribution_qty - l_total_deliver_quantity);
12065: rcv_error_pkg.set_token('PONUM', l_po_num );
12059: ELSE
12060: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
12061: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
12062: END IF;
12063: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
12064: rcv_error_pkg.set_token('AVLQTY',l_distribution_qty - l_total_deliver_quantity);
12065: rcv_error_pkg.set_token('PONUM', l_po_num );
12066: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
12067: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
12060: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
12061: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
12062: END IF;
12063: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
12064: rcv_error_pkg.set_token('AVLQTY',l_distribution_qty - l_total_deliver_quantity);
12065: rcv_error_pkg.set_token('PONUM', l_po_num );
12066: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
12067: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
12068: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
12061: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
12062: END IF;
12063: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
12064: rcv_error_pkg.set_token('AVLQTY',l_distribution_qty - l_total_deliver_quantity);
12065: rcv_error_pkg.set_token('PONUM', l_po_num );
12066: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
12067: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
12068: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
12069:
12062: END IF;
12063: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
12064: rcv_error_pkg.set_token('AVLQTY',l_distribution_qty - l_total_deliver_quantity);
12065: rcv_error_pkg.set_token('PONUM', l_po_num );
12066: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
12067: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
12068: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
12069:
12070: END IF; --
12063: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
12064: rcv_error_pkg.set_token('AVLQTY',l_distribution_qty - l_total_deliver_quantity);
12065: rcv_error_pkg.set_token('PONUM', l_po_num );
12066: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
12067: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
12068: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
12069:
12070: END IF; --
12071:
12064: rcv_error_pkg.set_token('AVLQTY',l_distribution_qty - l_total_deliver_quantity);
12065: rcv_error_pkg.set_token('PONUM', l_po_num );
12066: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
12067: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
12068: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
12069:
12070: END IF; --
12071:
12072: rcv_error_pkg.log_interface_error('QUANTITY',FALSE);
12068: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
12069:
12070: END IF; --
12071:
12072: rcv_error_pkg.log_interface_error('QUANTITY',FALSE);
12073: END IF;--} x_cascaded_table(n).quantity > (l_distribution_qty - l_total_deliver_quantity)
12074: --} l_parent_receive_txn_in_rt = 'Y'
12075: ELSIF l_parent_receive_txn_in_rt = 'N' THEN--{ l_parent_receive_txn_in_rt = 'N'
12076: --Fetch the AVAILABLE qty from rcv_transactions_interface using l_parent_interface_txn_id
12184: IF l_is_clm_po = 'Y' AND l_partial_funded_flag = 'Y' THEN
12185:
12186: IF l_po_rel_num = -1 THEN
12187:
12188: rcv_error_pkg.set_error_message('RCV_ROI_TRX_QTY_EXCEEDS_FUNDED',x_cascaded_table(n).error_message);
12189: ELSE
12190: rcv_error_pkg.set_error_message('RCV_ROI_TRX_QTY_EXCEED_FUNDED',x_cascaded_table(n).error_message);
12191: rcv_error_pkg.set_token('RELNUM', l_po_rel_num);
12192: END IF;
12186: IF l_po_rel_num = -1 THEN
12187:
12188: rcv_error_pkg.set_error_message('RCV_ROI_TRX_QTY_EXCEEDS_FUNDED',x_cascaded_table(n).error_message);
12189: ELSE
12190: rcv_error_pkg.set_error_message('RCV_ROI_TRX_QTY_EXCEED_FUNDED',x_cascaded_table(n).error_message);
12191: rcv_error_pkg.set_token('RELNUM', l_po_rel_num);
12192: END IF;
12193:
12194: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
12187:
12188: rcv_error_pkg.set_error_message('RCV_ROI_TRX_QTY_EXCEEDS_FUNDED',x_cascaded_table(n).error_message);
12189: ELSE
12190: rcv_error_pkg.set_error_message('RCV_ROI_TRX_QTY_EXCEED_FUNDED',x_cascaded_table(n).error_message);
12191: rcv_error_pkg.set_token('RELNUM', l_po_rel_num);
12192: END IF;
12193:
12194: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
12195: rcv_error_pkg.set_token('AVLQTY', l_receive_quantity);
12190: rcv_error_pkg.set_error_message('RCV_ROI_TRX_QTY_EXCEED_FUNDED',x_cascaded_table(n).error_message);
12191: rcv_error_pkg.set_token('RELNUM', l_po_rel_num);
12192: END IF;
12193:
12194: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
12195: rcv_error_pkg.set_token('AVLQTY', l_receive_quantity);
12196: rcv_error_pkg.set_token('PONUM', l_po_num);
12197: rcv_error_pkg.set_token('LINENUM', l_po_line_num);
12198: rcv_error_pkg.set_token('SHIPNUM', l_po_line_loc_num);
12191: rcv_error_pkg.set_token('RELNUM', l_po_rel_num);
12192: END IF;
12193:
12194: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
12195: rcv_error_pkg.set_token('AVLQTY', l_receive_quantity);
12196: rcv_error_pkg.set_token('PONUM', l_po_num);
12197: rcv_error_pkg.set_token('LINENUM', l_po_line_num);
12198: rcv_error_pkg.set_token('SHIPNUM', l_po_line_loc_num);
12199: rcv_error_pkg.set_token('DISTNUM', l_po_dist_num);
12192: END IF;
12193:
12194: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
12195: rcv_error_pkg.set_token('AVLQTY', l_receive_quantity);
12196: rcv_error_pkg.set_token('PONUM', l_po_num);
12197: rcv_error_pkg.set_token('LINENUM', l_po_line_num);
12198: rcv_error_pkg.set_token('SHIPNUM', l_po_line_loc_num);
12199: rcv_error_pkg.set_token('DISTNUM', l_po_dist_num);
12200:
12193:
12194: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
12195: rcv_error_pkg.set_token('AVLQTY', l_receive_quantity);
12196: rcv_error_pkg.set_token('PONUM', l_po_num);
12197: rcv_error_pkg.set_token('LINENUM', l_po_line_num);
12198: rcv_error_pkg.set_token('SHIPNUM', l_po_line_loc_num);
12199: rcv_error_pkg.set_token('DISTNUM', l_po_dist_num);
12200:
12201: ELSE
12194: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
12195: rcv_error_pkg.set_token('AVLQTY', l_receive_quantity);
12196: rcv_error_pkg.set_token('PONUM', l_po_num);
12197: rcv_error_pkg.set_token('LINENUM', l_po_line_num);
12198: rcv_error_pkg.set_token('SHIPNUM', l_po_line_loc_num);
12199: rcv_error_pkg.set_token('DISTNUM', l_po_dist_num);
12200:
12201: ELSE
12202: --
12195: rcv_error_pkg.set_token('AVLQTY', l_receive_quantity);
12196: rcv_error_pkg.set_token('PONUM', l_po_num);
12197: rcv_error_pkg.set_token('LINENUM', l_po_line_num);
12198: rcv_error_pkg.set_token('SHIPNUM', l_po_line_loc_num);
12199: rcv_error_pkg.set_token('DISTNUM', l_po_dist_num);
12200:
12201: ELSE
12202: --
12203:
12201: ELSE
12202: --
12203:
12204: IF l_po_rel_num = -1 THEN--Bug 5439085
12205: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEEDS_AVL_QTY_PO', x_cascaded_table(n).error_message);
12206: ELSE
12207: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
12208: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
12209: END IF;
12203:
12204: IF l_po_rel_num = -1 THEN--Bug 5439085
12205: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEEDS_AVL_QTY_PO', x_cascaded_table(n).error_message);
12206: ELSE
12207: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
12208: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
12209: END IF;
12210: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
12211: rcv_error_pkg.set_token('AVLQTY',l_receive_quantity);
12204: IF l_po_rel_num = -1 THEN--Bug 5439085
12205: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEEDS_AVL_QTY_PO', x_cascaded_table(n).error_message);
12206: ELSE
12207: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
12208: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
12209: END IF;
12210: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
12211: rcv_error_pkg.set_token('AVLQTY',l_receive_quantity);
12212: rcv_error_pkg.set_token('PONUM', l_po_num );
12206: ELSE
12207: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
12208: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
12209: END IF;
12210: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
12211: rcv_error_pkg.set_token('AVLQTY',l_receive_quantity);
12212: rcv_error_pkg.set_token('PONUM', l_po_num );
12213: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
12214: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
12207: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
12208: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
12209: END IF;
12210: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
12211: rcv_error_pkg.set_token('AVLQTY',l_receive_quantity);
12212: rcv_error_pkg.set_token('PONUM', l_po_num );
12213: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
12214: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
12215: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
12208: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
12209: END IF;
12210: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
12211: rcv_error_pkg.set_token('AVLQTY',l_receive_quantity);
12212: rcv_error_pkg.set_token('PONUM', l_po_num );
12213: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
12214: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
12215: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
12216:
12209: END IF;
12210: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
12211: rcv_error_pkg.set_token('AVLQTY',l_receive_quantity);
12212: rcv_error_pkg.set_token('PONUM', l_po_num );
12213: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
12214: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
12215: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
12216:
12217: END IF; --
12210: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
12211: rcv_error_pkg.set_token('AVLQTY',l_receive_quantity);
12212: rcv_error_pkg.set_token('PONUM', l_po_num );
12213: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
12214: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
12215: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
12216:
12217: END IF; --
12218:
12211: rcv_error_pkg.set_token('AVLQTY',l_receive_quantity);
12212: rcv_error_pkg.set_token('PONUM', l_po_num );
12213: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
12214: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
12215: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
12216:
12217: END IF; --
12218:
12219: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
12215: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
12216:
12217: END IF; --
12218:
12219: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
12220: END IF;
12221: ELSE
12222: --Over delivery for that Receive txn on the spefied distribution, error out this deliver txn
12223: IF (g_asn_debug = 'Y') THEN
12229: IF l_is_clm_po = 'Y' AND l_partial_funded_flag = 'Y' THEN
12230:
12231: IF l_po_rel_num = -1 THEN
12232:
12233: rcv_error_pkg.set_error_message('RCV_ROI_TRX_QTY_EXCEEDS_FUNDED',x_cascaded_table(n).error_message);
12234: ELSE
12235: rcv_error_pkg.set_error_message('RCV_ROI_TRX_QTY_EXCEED_FUNDED',x_cascaded_table(n).error_message);
12236: rcv_error_pkg.set_token('RELNUM', l_po_rel_num);
12237: END IF;
12231: IF l_po_rel_num = -1 THEN
12232:
12233: rcv_error_pkg.set_error_message('RCV_ROI_TRX_QTY_EXCEEDS_FUNDED',x_cascaded_table(n).error_message);
12234: ELSE
12235: rcv_error_pkg.set_error_message('RCV_ROI_TRX_QTY_EXCEED_FUNDED',x_cascaded_table(n).error_message);
12236: rcv_error_pkg.set_token('RELNUM', l_po_rel_num);
12237: END IF;
12238:
12239: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
12232:
12233: rcv_error_pkg.set_error_message('RCV_ROI_TRX_QTY_EXCEEDS_FUNDED',x_cascaded_table(n).error_message);
12234: ELSE
12235: rcv_error_pkg.set_error_message('RCV_ROI_TRX_QTY_EXCEED_FUNDED',x_cascaded_table(n).error_message);
12236: rcv_error_pkg.set_token('RELNUM', l_po_rel_num);
12237: END IF;
12238:
12239: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
12240: rcv_error_pkg.set_token('AVLQTY',l_total_receiving_quantity);
12235: rcv_error_pkg.set_error_message('RCV_ROI_TRX_QTY_EXCEED_FUNDED',x_cascaded_table(n).error_message);
12236: rcv_error_pkg.set_token('RELNUM', l_po_rel_num);
12237: END IF;
12238:
12239: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
12240: rcv_error_pkg.set_token('AVLQTY',l_total_receiving_quantity);
12241: rcv_error_pkg.set_token('PONUM', l_po_num);
12242: rcv_error_pkg.set_token('LINENUM', l_po_line_num);
12243: rcv_error_pkg.set_token('SHIPNUM', l_po_line_loc_num);
12236: rcv_error_pkg.set_token('RELNUM', l_po_rel_num);
12237: END IF;
12238:
12239: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
12240: rcv_error_pkg.set_token('AVLQTY',l_total_receiving_quantity);
12241: rcv_error_pkg.set_token('PONUM', l_po_num);
12242: rcv_error_pkg.set_token('LINENUM', l_po_line_num);
12243: rcv_error_pkg.set_token('SHIPNUM', l_po_line_loc_num);
12244: rcv_error_pkg.set_token('DISTNUM', l_po_dist_num);
12237: END IF;
12238:
12239: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
12240: rcv_error_pkg.set_token('AVLQTY',l_total_receiving_quantity);
12241: rcv_error_pkg.set_token('PONUM', l_po_num);
12242: rcv_error_pkg.set_token('LINENUM', l_po_line_num);
12243: rcv_error_pkg.set_token('SHIPNUM', l_po_line_loc_num);
12244: rcv_error_pkg.set_token('DISTNUM', l_po_dist_num);
12245:
12238:
12239: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
12240: rcv_error_pkg.set_token('AVLQTY',l_total_receiving_quantity);
12241: rcv_error_pkg.set_token('PONUM', l_po_num);
12242: rcv_error_pkg.set_token('LINENUM', l_po_line_num);
12243: rcv_error_pkg.set_token('SHIPNUM', l_po_line_loc_num);
12244: rcv_error_pkg.set_token('DISTNUM', l_po_dist_num);
12245:
12246: ELSE
12239: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
12240: rcv_error_pkg.set_token('AVLQTY',l_total_receiving_quantity);
12241: rcv_error_pkg.set_token('PONUM', l_po_num);
12242: rcv_error_pkg.set_token('LINENUM', l_po_line_num);
12243: rcv_error_pkg.set_token('SHIPNUM', l_po_line_loc_num);
12244: rcv_error_pkg.set_token('DISTNUM', l_po_dist_num);
12245:
12246: ELSE
12247: --
12240: rcv_error_pkg.set_token('AVLQTY',l_total_receiving_quantity);
12241: rcv_error_pkg.set_token('PONUM', l_po_num);
12242: rcv_error_pkg.set_token('LINENUM', l_po_line_num);
12243: rcv_error_pkg.set_token('SHIPNUM', l_po_line_loc_num);
12244: rcv_error_pkg.set_token('DISTNUM', l_po_dist_num);
12245:
12246: ELSE
12247: --
12248:
12246: ELSE
12247: --
12248:
12249: IF l_po_rel_num = -1 THEN--Bug 5439085
12250: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEEDS_AVL_QTY_PO', x_cascaded_table(n).error_message);
12251: ELSE
12252: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
12253: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
12254: END IF;
12248:
12249: IF l_po_rel_num = -1 THEN--Bug 5439085
12250: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEEDS_AVL_QTY_PO', x_cascaded_table(n).error_message);
12251: ELSE
12252: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
12253: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
12254: END IF;
12255: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
12256: rcv_error_pkg.set_token('AVLQTY',l_total_receiving_quantity);
12249: IF l_po_rel_num = -1 THEN--Bug 5439085
12250: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEEDS_AVL_QTY_PO', x_cascaded_table(n).error_message);
12251: ELSE
12252: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
12253: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
12254: END IF;
12255: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
12256: rcv_error_pkg.set_token('AVLQTY',l_total_receiving_quantity);
12257: rcv_error_pkg.set_token('PONUM', l_po_num );
12251: ELSE
12252: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
12253: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
12254: END IF;
12255: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
12256: rcv_error_pkg.set_token('AVLQTY',l_total_receiving_quantity);
12257: rcv_error_pkg.set_token('PONUM', l_po_num );
12258: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
12259: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
12252: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEED_AVL_QTY_PO', x_cascaded_table(n).error_message);
12253: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
12254: END IF;
12255: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
12256: rcv_error_pkg.set_token('AVLQTY',l_total_receiving_quantity);
12257: rcv_error_pkg.set_token('PONUM', l_po_num );
12258: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
12259: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
12260: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
12253: rcv_error_pkg.set_token('RELNUM',l_po_rel_num);
12254: END IF;
12255: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
12256: rcv_error_pkg.set_token('AVLQTY',l_total_receiving_quantity);
12257: rcv_error_pkg.set_token('PONUM', l_po_num );
12258: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
12259: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
12260: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
12261:
12254: END IF;
12255: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
12256: rcv_error_pkg.set_token('AVLQTY',l_total_receiving_quantity);
12257: rcv_error_pkg.set_token('PONUM', l_po_num );
12258: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
12259: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
12260: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
12261:
12262: END IF; --
12255: rcv_error_pkg.set_token('TXNQTY',x_cascaded_table(n).quantity);
12256: rcv_error_pkg.set_token('AVLQTY',l_total_receiving_quantity);
12257: rcv_error_pkg.set_token('PONUM', l_po_num );
12258: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
12259: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
12260: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
12261:
12262: END IF; --
12263:
12256: rcv_error_pkg.set_token('AVLQTY',l_total_receiving_quantity);
12257: rcv_error_pkg.set_token('PONUM', l_po_num );
12258: rcv_error_pkg.set_token('LINENUM',l_po_line_num );
12259: rcv_error_pkg.set_token('SHIPNUM',l_po_line_loc_num);
12260: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
12261:
12262: END IF; --
12263:
12264: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
12260: rcv_error_pkg.set_token('DISTNUM',l_po_dist_num);
12261:
12262: END IF; --
12263:
12264: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
12265: END IF;--} (l_total_deliver_quantity + l_deliver_quantity) <= l_total_receiving_quantity
12266: --} l_parent_receive_txn_in_rt = 'N'
12267: END IF;--} l_parent_receive_txn_in_rt = 'Y'
12268: --} l_loop_exit_status = 'S'
12663: asn_debug.put_line('Status = ' || x_cascaded_table(n).error_status);
12664: END IF;
12665:
12666: IF x_cascaded_table(n).error_status IN('S', 'W', 'F') THEN --{
12667: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
12668:
12669: IF (x_cascaded_table(n).error_message IS NULL) THEN
12670: rcv_error_pkg.set_error_message('RCV_NO_PARENT_TRANSACTION', x_cascaded_table(n).error_message);
12671: END IF;
12666: IF x_cascaded_table(n).error_status IN('S', 'W', 'F') THEN --{
12667: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
12668:
12669: IF (x_cascaded_table(n).error_message IS NULL) THEN
12670: rcv_error_pkg.set_error_message('RCV_NO_PARENT_TRANSACTION', x_cascaded_table(n).error_message);
12671: END IF;
12672:
12673: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
12674: END IF; --}
12669: IF (x_cascaded_table(n).error_message IS NULL) THEN
12670: rcv_error_pkg.set_error_message('RCV_NO_PARENT_TRANSACTION', x_cascaded_table(n).error_message);
12671: END IF;
12672:
12673: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
12674: END IF; --}
12675: END IF; -- } of (asn quantity_shipped was valid)
12676:
12677: IF (g_asn_debug = 'Y') THEN
12726: IF po_deliver%ISOPEN THEN
12727: CLOSE po_deliver;
12728: END IF;
12729:
12730: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
12731: rcv_error_pkg.set_sql_error_message('derive_trans_del_line_quantity', x_progress);
12732: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
12733: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
12734:
12727: CLOSE po_deliver;
12728: END IF;
12729:
12730: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
12731: rcv_error_pkg.set_sql_error_message('derive_trans_del_line_quantity', x_progress);
12732: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
12733: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
12734:
12735: IF (g_asn_debug = 'Y') THEN
12728: END IF;
12729:
12730: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
12731: rcv_error_pkg.set_sql_error_message('derive_trans_del_line_quantity', x_progress);
12732: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
12733: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
12734:
12735: IF (g_asn_debug = 'Y') THEN
12736: asn_debug.put_line(TO_CHAR(n));
12729:
12730: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
12731: rcv_error_pkg.set_sql_error_message('derive_trans_del_line_quantity', x_progress);
12732: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
12733: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
12734:
12735: IF (g_asn_debug = 'Y') THEN
12736: asn_debug.put_line(TO_CHAR(n));
12737: asn_debug.put_line(SQLERRM);
13120: CLOSE po_transfer_rti;
13121: END IF;
13122: EXCEPTION
13123: WHEN OTHERS THEN
13124: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
13125: rcv_error_pkg.set_sql_error_message('default_vendor_trans_del', '000');
13126: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
13127: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
13128: END default_vendor_trans_del;
13121: END IF;
13122: EXCEPTION
13123: WHEN OTHERS THEN
13124: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
13125: rcv_error_pkg.set_sql_error_message('default_vendor_trans_del', '000');
13126: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
13127: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
13128: END default_vendor_trans_del;
13129:
13122: EXCEPTION
13123: WHEN OTHERS THEN
13124: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
13125: rcv_error_pkg.set_sql_error_message('default_vendor_trans_del', '000');
13126: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
13127: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
13128: END default_vendor_trans_del;
13129:
13130:
13123: WHEN OTHERS THEN
13124: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
13125: rcv_error_pkg.set_sql_error_message('default_vendor_trans_del', '000');
13126: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
13127: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
13128: END default_vendor_trans_del;
13129:
13130:
13131: PROCEDURE derive_correction_line(
13233: asn_debug.put_line('amount ' || x_cascaded_table(n).amount);
13234: END IF;
13235: IF (l_asn_type ='WC' AND (nvl(x_cascaded_table(n).quantity,0) >0 OR nvl(x_cascaded_table(n).amount,0) > 0) ) THEN
13236: asn_debug.put_line('We do not support positive transaction type of ' || x_cascaded_table(n).transaction_type || ' for complex work POs');
13237: rcv_error_pkg.set_error_message('RCV_INVALID_TRANSACTION_TYPE');
13238: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE');
13239: END IF;
13240: End if;
13241:
13234: END IF;
13235: IF (l_asn_type ='WC' AND (nvl(x_cascaded_table(n).quantity,0) >0 OR nvl(x_cascaded_table(n).amount,0) > 0) ) THEN
13236: asn_debug.put_line('We do not support positive transaction type of ' || x_cascaded_table(n).transaction_type || ' for complex work POs');
13237: rcv_error_pkg.set_error_message('RCV_INVALID_TRANSACTION_TYPE');
13238: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE');
13239: END IF;
13240: End if;
13241:
13242: IF x_cascaded_table(n).po_line_id IS NOT NULL THEN
13289: asn_debug.put_line('quantity ' || temp_cascaded_table(n).quantity);
13290: END IF;
13291: EXCEPTION
13292: WHEN OTHERS THEN
13293: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
13294: rcv_error_pkg.set_sql_error_message('derive_correction_line', '000');
13295: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
13296: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
13297: END derive_correction_line;
13290: END IF;
13291: EXCEPTION
13292: WHEN OTHERS THEN
13293: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
13294: rcv_error_pkg.set_sql_error_message('derive_correction_line', '000');
13295: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
13296: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
13297: END derive_correction_line;
13298:
13291: EXCEPTION
13292: WHEN OTHERS THEN
13293: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
13294: rcv_error_pkg.set_sql_error_message('derive_correction_line', '000');
13295: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
13296: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
13297: END derive_correction_line;
13298:
13299: PROCEDURE derive_correction_line_qty(
13292: WHEN OTHERS THEN
13293: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
13294: rcv_error_pkg.set_sql_error_message('derive_correction_line', '000');
13295: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
13296: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
13297: END derive_correction_line;
13298:
13299: PROCEDURE derive_correction_line_qty(
13300: x_cascaded_table IN OUT NOCOPY rcv_roi_preprocessor.cascaded_trans_tab_type,
13535: already_derived := TRUE;
13536: EXCEPTION
13537: -- Bug 7651646
13538: WHEN NO_DATA_FOUND THEN
13539: rcv_error_pkg.set_error_message('RCV_NO_PARENT_SRC_TRANSACTION');
13540: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).parent_source_transaction_num);
13541: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13542: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
13543: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
13536: EXCEPTION
13537: -- Bug 7651646
13538: WHEN NO_DATA_FOUND THEN
13539: rcv_error_pkg.set_error_message('RCV_NO_PARENT_SRC_TRANSACTION');
13540: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).parent_source_transaction_num);
13541: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13542: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
13543: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
13544:
13537: -- Bug 7651646
13538: WHEN NO_DATA_FOUND THEN
13539: rcv_error_pkg.set_error_message('RCV_NO_PARENT_SRC_TRANSACTION');
13540: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).parent_source_transaction_num);
13541: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13542: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
13543: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
13544:
13545: WHEN TOO_MANY_ROWS THEN
13538: WHEN NO_DATA_FOUND THEN
13539: rcv_error_pkg.set_error_message('RCV_NO_PARENT_SRC_TRANSACTION');
13540: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).parent_source_transaction_num);
13541: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13542: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
13543: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
13544:
13545: WHEN TOO_MANY_ROWS THEN
13546: rcv_error_pkg.set_error_message('RCV_DUP_SRC_TRANSACTION');
13539: rcv_error_pkg.set_error_message('RCV_NO_PARENT_SRC_TRANSACTION');
13540: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).parent_source_transaction_num);
13541: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13542: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
13543: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
13544:
13545: WHEN TOO_MANY_ROWS THEN
13546: rcv_error_pkg.set_error_message('RCV_DUP_SRC_TRANSACTION');
13547: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).parent_source_transaction_num);
13542: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
13543: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
13544:
13545: WHEN TOO_MANY_ROWS THEN
13546: rcv_error_pkg.set_error_message('RCV_DUP_SRC_TRANSACTION');
13547: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).parent_source_transaction_num);
13548: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13549: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
13550: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
13543: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
13544:
13545: WHEN TOO_MANY_ROWS THEN
13546: rcv_error_pkg.set_error_message('RCV_DUP_SRC_TRANSACTION');
13547: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).parent_source_transaction_num);
13548: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13549: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
13550: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
13551: END;
13544:
13545: WHEN TOO_MANY_ROWS THEN
13546: rcv_error_pkg.set_error_message('RCV_DUP_SRC_TRANSACTION');
13547: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).parent_source_transaction_num);
13548: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13549: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
13550: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
13551: END;
13552: END IF; --}
13545: WHEN TOO_MANY_ROWS THEN
13546: rcv_error_pkg.set_error_message('RCV_DUP_SRC_TRANSACTION');
13547: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).parent_source_transaction_num);
13548: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13549: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
13550: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
13551: END;
13552: END IF; --}
13553:
13546: rcv_error_pkg.set_error_message('RCV_DUP_SRC_TRANSACTION');
13547: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).parent_source_transaction_num);
13548: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13549: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
13550: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
13551: END;
13552: END IF; --}
13553:
13554: IF already_derived THEN --{
13599: asn_debug.put_line('Quantity is <= zero. Cascade will fail');
13600: END IF;
13601:
13602: x_cascaded_table(n).error_status := 'F';
13603: rcv_error_pkg.set_error_message('RCV_ENTER_QTY_GT_ZERO', x_cascaded_table(n).error_message);
13604: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
13605: END IF; --} end qty > 0 check
13606:
13607: -- the following steps will create a set of rows linking the line_record with
13600: END IF;
13601:
13602: x_cascaded_table(n).error_status := 'F';
13603: rcv_error_pkg.set_error_message('RCV_ENTER_QTY_GT_ZERO', x_cascaded_table(n).error_message);
13604: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
13605: END IF; --} end qty > 0 check
13606:
13607: -- the following steps will create a set of rows linking the line_record with
13608: -- its corresponding po_line_location rows until the quantity value from
13894: asn_debug.put_line('Header Interface Id ' || TO_CHAR(temp_cascaded_table(current_n).header_interface_id));
13895: asn_debug.put_line('IN Trans Id ' || TO_CHAR(temp_cascaded_table(current_n).interface_transaction_id));
13896: END IF;
13897:
13898: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
13899: rcv_error_pkg.set_error_message('RCV_ENTER_QTY_GT_ZERO', x_cascaded_table(n).error_message);
13900: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
13901: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_quantity);
13902: rcv_error_pkg.log_interface_warning('QUANTITY');
13895: asn_debug.put_line('IN Trans Id ' || TO_CHAR(temp_cascaded_table(current_n).interface_transaction_id));
13896: END IF;
13897:
13898: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
13899: rcv_error_pkg.set_error_message('RCV_ENTER_QTY_GT_ZERO', x_cascaded_table(n).error_message);
13900: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
13901: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_quantity);
13902: rcv_error_pkg.log_interface_warning('QUANTITY');
13903:
13896: END IF;
13897:
13898: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
13899: rcv_error_pkg.set_error_message('RCV_ENTER_QTY_GT_ZERO', x_cascaded_table(n).error_message);
13900: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
13901: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_quantity);
13902: rcv_error_pkg.log_interface_warning('QUANTITY');
13903:
13904: IF (g_asn_debug = 'Y') THEN
13897:
13898: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
13899: rcv_error_pkg.set_error_message('RCV_ENTER_QTY_GT_ZERO', x_cascaded_table(n).error_message);
13900: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
13901: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_quantity);
13902: rcv_error_pkg.log_interface_warning('QUANTITY');
13903:
13904: IF (g_asn_debug = 'Y') THEN
13905: asn_debug.put_line('Error Status ' || temp_cascaded_table(current_n).error_status);
13898: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
13899: rcv_error_pkg.set_error_message('RCV_ENTER_QTY_GT_ZERO', x_cascaded_table(n).error_message);
13900: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
13901: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_quantity);
13902: rcv_error_pkg.log_interface_warning('QUANTITY');
13903:
13904: IF (g_asn_debug = 'Y') THEN
13905: asn_debug.put_line('Error Status ' || temp_cascaded_table(current_n).error_status);
13906: asn_debug.put_line('Error message ' || temp_cascaded_table(current_n).error_message);
13929: IF (g_asn_debug = 'Y') THEN
13930: asn_debug.put_line('delete the temp table ');
13931: END IF;
13932:
13933: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13934:
13935: --
13936: IF (x_po_correctrec.parent_transaction_type IN ('RECEIVE', 'MATCH', 'DELIVER')) AND
13937: (l_is_clm_po = 'Y' AND l_partial_funded_flag = 'Y') THEN
13935: --
13936: IF (x_po_correctrec.parent_transaction_type IN ('RECEIVE', 'MATCH', 'DELIVER')) AND
13937: (l_is_clm_po = 'Y' AND l_partial_funded_flag = 'Y') THEN
13938:
13939: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEEDS_CLM_FUNDED', x_cascaded_table(n).error_message);
13940: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
13941: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_quantity);
13942:
13943: ELSE
13936: IF (x_po_correctrec.parent_transaction_type IN ('RECEIVE', 'MATCH', 'DELIVER')) AND
13937: (l_is_clm_po = 'Y' AND l_partial_funded_flag = 'Y') THEN
13938:
13939: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEEDS_CLM_FUNDED', x_cascaded_table(n).error_message);
13940: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
13941: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_quantity);
13942:
13943: ELSE
13944: --
13937: (l_is_clm_po = 'Y' AND l_partial_funded_flag = 'Y') THEN
13938:
13939: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEEDS_CLM_FUNDED', x_cascaded_table(n).error_message);
13940: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
13941: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_quantity);
13942:
13943: ELSE
13944: --
13945:
13942:
13943: ELSE
13944: --
13945:
13946: rcv_error_pkg.set_error_message('RCV_CORRECT_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
13947: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
13948: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_quantity);
13949:
13950: END IF; --
13943: ELSE
13944: --
13945:
13946: rcv_error_pkg.set_error_message('RCV_CORRECT_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
13947: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
13948: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_quantity);
13949:
13950: END IF; --
13951:
13944: --
13945:
13946: rcv_error_pkg.set_error_message('RCV_CORRECT_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
13947: rcv_error_pkg.set_token('QTY_A', temp_cascaded_table(current_n).quantity);
13948: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_quantity);
13949:
13950: END IF; --
13951:
13952: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
13948: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity - x_remaining_quantity);
13949:
13950: END IF; --
13951:
13952: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
13953:
13954: IF temp_cascaded_table.COUNT > 0 THEN
13955: FOR i IN 1 .. temp_cascaded_table.COUNT LOOP
13956: temp_cascaded_table.DELETE(i);
13980:
13981: IF (g_asn_debug = 'Y') THEN
13982: asn_debug.put_line('delete the temp table ');
13983: END IF;
13984: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13985: rcv_error_pkg.set_error_message('RCV_CORRECT_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
13986: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(current_n).quantity);
13987: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity);
13988: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
13981: IF (g_asn_debug = 'Y') THEN
13982: asn_debug.put_line('delete the temp table ');
13983: END IF;
13984: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13985: rcv_error_pkg.set_error_message('RCV_CORRECT_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
13986: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(current_n).quantity);
13987: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity);
13988: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
13989:
13982: asn_debug.put_line('delete the temp table ');
13983: END IF;
13984: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13985: rcv_error_pkg.set_error_message('RCV_CORRECT_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
13986: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(current_n).quantity);
13987: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity);
13988: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
13989:
13990: IF temp_cascaded_table.COUNT > 0 THEN
13983: END IF;
13984: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13985: rcv_error_pkg.set_error_message('RCV_CORRECT_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
13986: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(current_n).quantity);
13987: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity);
13988: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
13989:
13990: IF temp_cascaded_table.COUNT > 0 THEN
13991: FOR i IN 1 .. temp_cascaded_table.COUNT LOOP
13984: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
13985: rcv_error_pkg.set_error_message('RCV_CORRECT_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
13986: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(current_n).quantity);
13987: rcv_error_pkg.set_token('QTY_B', temp_cascaded_table(current_n).quantity);
13988: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
13989:
13990: IF temp_cascaded_table.COUNT > 0 THEN
13991: FOR i IN 1 .. temp_cascaded_table.COUNT LOOP
13992: temp_cascaded_table.DELETE(i);
14014: END IF;
14015: END IF;
14016:
14017: x_temp_count := 1;
14018: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
14019:
14020: IF (x_cascaded_table(n).parent_transaction_id IS NOT NULL) THEN --{
14021: /* Give an error just like it is done for the
14022: * the receipt transaction;
14036:
14037: IF (l_transaction_type = 'DELIVER') THEN --{
14038: IF ( l_destination_type_code = 'INVENTORY'
14039: OR l_source_document_code IN('REQ', 'INVENTORY', 'RMA')) THEN
14040: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
14041: rcv_error_pkg.set_error_message('RCV_INVAL_SOURCE_DOC_FOR_DEL', x_cascaded_table(n).error_message);
14042: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
14043: END IF;
14044: END IF; --}
14037: IF (l_transaction_type = 'DELIVER') THEN --{
14038: IF ( l_destination_type_code = 'INVENTORY'
14039: OR l_source_document_code IN('REQ', 'INVENTORY', 'RMA')) THEN
14040: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
14041: rcv_error_pkg.set_error_message('RCV_INVAL_SOURCE_DOC_FOR_DEL', x_cascaded_table(n).error_message);
14042: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
14043: END IF;
14044: END IF; --}
14045:
14038: IF ( l_destination_type_code = 'INVENTORY'
14039: OR l_source_document_code IN('REQ', 'INVENTORY', 'RMA')) THEN
14040: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
14041: rcv_error_pkg.set_error_message('RCV_INVAL_SOURCE_DOC_FOR_DEL', x_cascaded_table(n).error_message);
14042: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
14043: END IF;
14044: END IF; --}
14045:
14046: IF (l_transaction_type = 'UNORDERED') THEN --{
14056: WHERE rti.parent_transaction_id = temp_cascaded_table(current_n).parent_transaction_id
14057: AND rti.transaction_type = 'MATCH';
14058:
14059: IF l_exist = 'record_exist' THEN --{
14060: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
14061: rcv_error_pkg.set_error_message('RCV_PROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
14062: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
14063: END IF; --}
14064:
14057: AND rti.transaction_type = 'MATCH';
14058:
14059: IF l_exist = 'record_exist' THEN --{
14060: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
14061: rcv_error_pkg.set_error_message('RCV_PROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
14062: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
14063: END IF; --}
14064:
14065: IF l_exist1 = 'record_exist' THEN --{
14058:
14059: IF l_exist = 'record_exist' THEN --{
14060: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
14061: rcv_error_pkg.set_error_message('RCV_PROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
14062: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
14063: END IF; --}
14064:
14065: IF l_exist1 = 'record_exist' THEN --{
14066: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
14062: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
14063: END IF; --}
14064:
14065: IF l_exist1 = 'record_exist' THEN --{
14066: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
14067: rcv_error_pkg.set_error_message('RCV_UNPROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
14068: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
14069: END IF; --}
14070: END IF; --}
14063: END IF; --}
14064:
14065: IF l_exist1 = 'record_exist' THEN --{
14066: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
14067: rcv_error_pkg.set_error_message('RCV_UNPROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
14068: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
14069: END IF; --}
14070: END IF; --}
14071:
14064:
14065: IF l_exist1 = 'record_exist' THEN --{
14066: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
14067: rcv_error_pkg.set_error_message('RCV_UNPROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
14068: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
14069: END IF; --}
14070: END IF; --}
14071:
14072: IF (l_transaction_type = 'RETURN TO VENDOR') THEN --{
14088: AND rti.transaction_type = 'MATCH'
14089: AND rti.parent_transaction_id = rt2.transaction_id;
14090:
14091: IF l_exist = 'record_exist' THEN --{
14092: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
14093: rcv_error_pkg.set_error_message('RCV_RET_PROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
14094: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
14095: END IF; --}
14096:
14089: AND rti.parent_transaction_id = rt2.transaction_id;
14090:
14091: IF l_exist = 'record_exist' THEN --{
14092: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
14093: rcv_error_pkg.set_error_message('RCV_RET_PROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
14094: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
14095: END IF; --}
14096:
14097: IF l_exist1 = 'record_exist' THEN --{
14090:
14091: IF l_exist = 'record_exist' THEN --{
14092: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
14093: rcv_error_pkg.set_error_message('RCV_RET_PROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
14094: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
14095: END IF; --}
14096:
14097: IF l_exist1 = 'record_exist' THEN --{
14098: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
14094: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
14095: END IF; --}
14096:
14097: IF l_exist1 = 'record_exist' THEN --{
14098: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
14099: rcv_error_pkg.set_error_message('RCV_RET_UNPROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
14100: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
14101: END IF; --}
14102: END IF; --}
14095: END IF; --}
14096:
14097: IF l_exist1 = 'record_exist' THEN --{
14098: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
14099: rcv_error_pkg.set_error_message('RCV_RET_UNPROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
14100: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
14101: END IF; --}
14102: END IF; --}
14103:
14096:
14097: IF l_exist1 = 'record_exist' THEN --{
14098: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
14099: rcv_error_pkg.set_error_message('RCV_RET_UNPROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
14100: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
14101: END IF; --}
14102: END IF; --}
14103:
14104: SELECT MAX('record_exist')
14108: AND ( NVL(pll.cancel_flag, 'N') = 'Y'
14109: OR NVL(pll.closed_code, 'OPEN') = 'FINALLY CLOSED');
14110:
14111: IF l_exist2 = 'record_exist' THEN
14112: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
14113: rcv_error_pkg.set_error_message('RCV_PO_SHIPMENT_CANCELLED', x_cascaded_table(n).error_message);
14114: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
14115: END IF;
14116: END IF; --}
14109: OR NVL(pll.closed_code, 'OPEN') = 'FINALLY CLOSED');
14110:
14111: IF l_exist2 = 'record_exist' THEN
14112: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
14113: rcv_error_pkg.set_error_message('RCV_PO_SHIPMENT_CANCELLED', x_cascaded_table(n).error_message);
14114: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
14115: END IF;
14116: END IF; --}
14117:
14110:
14111: IF l_exist2 = 'record_exist' THEN
14112: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
14113: rcv_error_pkg.set_error_message('RCV_PO_SHIPMENT_CANCELLED', x_cascaded_table(n).error_message);
14114: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
14115: END IF;
14116: END IF; --}
14117:
14118: -- Delete the temp_cascaded_table just to be sure
14445: asn_debug.put_line('Status = ' || x_cascaded_table(n).error_status);
14446: END IF;
14447:
14448: IF x_cascaded_table(n).error_status IN('S', 'W', 'F') THEN --{
14449: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
14450:
14451: IF (x_cascaded_table(n).error_message IS NULL) THEN
14452: rcv_error_pkg.set_error_message('RCV_NO_PARENT_TRANSACTION', x_cascaded_table(n).error_message);
14453: END IF;
14448: IF x_cascaded_table(n).error_status IN('S', 'W', 'F') THEN --{
14449: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
14450:
14451: IF (x_cascaded_table(n).error_message IS NULL) THEN
14452: rcv_error_pkg.set_error_message('RCV_NO_PARENT_TRANSACTION', x_cascaded_table(n).error_message);
14453: END IF;
14454:
14455: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID');
14456: END IF; --}
14451: IF (x_cascaded_table(n).error_message IS NULL) THEN
14452: rcv_error_pkg.set_error_message('RCV_NO_PARENT_TRANSACTION', x_cascaded_table(n).error_message);
14453: END IF;
14454:
14455: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID');
14456: END IF; --}
14457:
14458: RETURN;
14459: END IF; -- } of (asn quantity_shipped was valid)
14487: IF po_correct_rti%ISOPEN THEN
14488: CLOSE po_correct_rti;
14489: END IF;
14490:
14491: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
14492: rcv_error_pkg.set_sql_error_message('derive_correction_line_qty', x_progress);
14493: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
14494: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
14495:
14488: CLOSE po_correct_rti;
14489: END IF;
14490:
14491: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
14492: rcv_error_pkg.set_sql_error_message('derive_correction_line_qty', x_progress);
14493: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
14494: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
14495:
14496: IF (g_asn_debug = 'Y') THEN
14489: END IF;
14490:
14491: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
14492: rcv_error_pkg.set_sql_error_message('derive_correction_line_qty', x_progress);
14493: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
14494: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
14495:
14496: IF (g_asn_debug = 'Y') THEN
14497: asn_debug.put_line(TO_CHAR(n));
14490:
14491: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
14492: rcv_error_pkg.set_sql_error_message('derive_correction_line_qty', x_progress);
14493: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
14494: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
14495:
14496: IF (g_asn_debug = 'Y') THEN
14497: asn_debug.put_line(TO_CHAR(n));
14498: asn_debug.put_line(SQLERRM);
14686: already_derived := TRUE;
14687: EXCEPTION
14688: -- Bug 7651646
14689: WHEN NO_DATA_FOUND THEN
14690: rcv_error_pkg.set_error_message('RCV_NO_PARENT_SRC_TRANSACTION');
14691: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).parent_source_transaction_num);
14692: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
14693: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
14694: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
14687: EXCEPTION
14688: -- Bug 7651646
14689: WHEN NO_DATA_FOUND THEN
14690: rcv_error_pkg.set_error_message('RCV_NO_PARENT_SRC_TRANSACTION');
14691: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).parent_source_transaction_num);
14692: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
14693: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
14694: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
14695:
14688: -- Bug 7651646
14689: WHEN NO_DATA_FOUND THEN
14690: rcv_error_pkg.set_error_message('RCV_NO_PARENT_SRC_TRANSACTION');
14691: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).parent_source_transaction_num);
14692: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
14693: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
14694: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
14695:
14696: WHEN TOO_MANY_ROWS THEN
14689: WHEN NO_DATA_FOUND THEN
14690: rcv_error_pkg.set_error_message('RCV_NO_PARENT_SRC_TRANSACTION');
14691: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).parent_source_transaction_num);
14692: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
14693: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
14694: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
14695:
14696: WHEN TOO_MANY_ROWS THEN
14697: rcv_error_pkg.set_error_message('RCV_DUP_SRC_TRANSACTION');
14690: rcv_error_pkg.set_error_message('RCV_NO_PARENT_SRC_TRANSACTION');
14691: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).parent_source_transaction_num);
14692: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
14693: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
14694: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
14695:
14696: WHEN TOO_MANY_ROWS THEN
14697: rcv_error_pkg.set_error_message('RCV_DUP_SRC_TRANSACTION');
14698: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).parent_source_transaction_num);
14693: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
14694: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
14695:
14696: WHEN TOO_MANY_ROWS THEN
14697: rcv_error_pkg.set_error_message('RCV_DUP_SRC_TRANSACTION');
14698: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).parent_source_transaction_num);
14699: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
14700: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
14701: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
14694: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
14695:
14696: WHEN TOO_MANY_ROWS THEN
14697: rcv_error_pkg.set_error_message('RCV_DUP_SRC_TRANSACTION');
14698: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).parent_source_transaction_num);
14699: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
14700: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
14701: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
14702: END;
14695:
14696: WHEN TOO_MANY_ROWS THEN
14697: rcv_error_pkg.set_error_message('RCV_DUP_SRC_TRANSACTION');
14698: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).parent_source_transaction_num);
14699: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
14700: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
14701: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
14702: END;
14703: END IF; --}
14696: WHEN TOO_MANY_ROWS THEN
14697: rcv_error_pkg.set_error_message('RCV_DUP_SRC_TRANSACTION');
14698: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).parent_source_transaction_num);
14699: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
14700: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
14701: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
14702: END;
14703: END IF; --}
14704:
14697: rcv_error_pkg.set_error_message('RCV_DUP_SRC_TRANSACTION');
14698: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).parent_source_transaction_num);
14699: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
14700: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
14701: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
14702: END;
14703: END IF; --}
14704:
14705: IF already_derived THEN --{
14753: asn_debug.put_line('Amount is <= zero. Cascade will fail');
14754: END IF;
14755:
14756: x_cascaded_table(n).error_status := 'F';
14757: rcv_error_pkg.set_error_message('RCV_ENTER_QTY_GT_ZERO', x_cascaded_table(n).error_message);
14758: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
14759: END IF; --} end qty > 0 check
14760: */
14761: -- the following steps will create a set of rows linking the line_record with
14754: END IF;
14755:
14756: x_cascaded_table(n).error_status := 'F';
14757: rcv_error_pkg.set_error_message('RCV_ENTER_QTY_GT_ZERO', x_cascaded_table(n).error_message);
14758: rcv_error_pkg.log_interface_error('QUANTITY', FALSE);
14759: END IF; --} end qty > 0 check
14760: */
14761: -- the following steps will create a set of rows linking the line_record with
14762: -- its corresponding po_line_location rows until the quantity value from
14952: IF (g_asn_debug = 'Y') THEN
14953: asn_debug.put_line('We do not support RATE/TEMP LABOR through ROI unless it comes through OTL');
14954: END IF;
14955:
14956: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
14957: rcv_error_pkg.set_error_message('RCV_NO_RATE_UNLESS_OTL', x_cascaded_table(n).error_message);
14958: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE', FALSE);
14959: END IF; --}
14960: END IF; --}
14953: asn_debug.put_line('We do not support RATE/TEMP LABOR through ROI unless it comes through OTL');
14954: END IF;
14955:
14956: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
14957: rcv_error_pkg.set_error_message('RCV_NO_RATE_UNLESS_OTL', x_cascaded_table(n).error_message);
14958: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE', FALSE);
14959: END IF; --}
14960: END IF; --}
14961:
14954: END IF;
14955:
14956: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
14957: rcv_error_pkg.set_error_message('RCV_NO_RATE_UNLESS_OTL', x_cascaded_table(n).error_message);
14958: rcv_error_pkg.log_interface_error('TRANSACTION_TYPE', FALSE);
14959: END IF; --}
14960: END IF; --}
14961:
14962: IF (lastrecord) THEN --{
15064: asn_debug.put_line('Header Interface Id ' || TO_CHAR(temp_cascaded_table(current_n).header_interface_id));
15065: asn_debug.put_line('IN Trans Id ' || TO_CHAR(temp_cascaded_table(current_n).interface_transaction_id));
15066: END IF;
15067:
15068: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
15069: rcv_error_pkg.set_error_message('RCV_ALL_AMT_OVER_TOLERANCE', x_cascaded_table(n).error_message);
15070: rcv_error_pkg.set_token('AMT_A', temp_cascaded_table(current_n).amount);
15071: rcv_error_pkg.set_token('AMT_B', temp_cascaded_table(current_n).amount - x_remaining_amount);
15072: rcv_error_pkg.log_interface_warning('AMOUNT');
15065: asn_debug.put_line('IN Trans Id ' || TO_CHAR(temp_cascaded_table(current_n).interface_transaction_id));
15066: END IF;
15067:
15068: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
15069: rcv_error_pkg.set_error_message('RCV_ALL_AMT_OVER_TOLERANCE', x_cascaded_table(n).error_message);
15070: rcv_error_pkg.set_token('AMT_A', temp_cascaded_table(current_n).amount);
15071: rcv_error_pkg.set_token('AMT_B', temp_cascaded_table(current_n).amount - x_remaining_amount);
15072: rcv_error_pkg.log_interface_warning('AMOUNT');
15073:
15066: END IF;
15067:
15068: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
15069: rcv_error_pkg.set_error_message('RCV_ALL_AMT_OVER_TOLERANCE', x_cascaded_table(n).error_message);
15070: rcv_error_pkg.set_token('AMT_A', temp_cascaded_table(current_n).amount);
15071: rcv_error_pkg.set_token('AMT_B', temp_cascaded_table(current_n).amount - x_remaining_amount);
15072: rcv_error_pkg.log_interface_warning('AMOUNT');
15073:
15074: IF (g_asn_debug = 'Y') THEN
15067:
15068: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
15069: rcv_error_pkg.set_error_message('RCV_ALL_AMT_OVER_TOLERANCE', x_cascaded_table(n).error_message);
15070: rcv_error_pkg.set_token('AMT_A', temp_cascaded_table(current_n).amount);
15071: rcv_error_pkg.set_token('AMT_B', temp_cascaded_table(current_n).amount - x_remaining_amount);
15072: rcv_error_pkg.log_interface_warning('AMOUNT');
15073:
15074: IF (g_asn_debug = 'Y') THEN
15075: asn_debug.put_line('Error Status ' || temp_cascaded_table(current_n).error_status);
15068: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
15069: rcv_error_pkg.set_error_message('RCV_ALL_AMT_OVER_TOLERANCE', x_cascaded_table(n).error_message);
15070: rcv_error_pkg.set_token('AMT_A', temp_cascaded_table(current_n).amount);
15071: rcv_error_pkg.set_token('AMT_B', temp_cascaded_table(current_n).amount - x_remaining_amount);
15072: rcv_error_pkg.log_interface_warning('AMOUNT');
15073:
15074: IF (g_asn_debug = 'Y') THEN
15075: asn_debug.put_line('Error Status ' || temp_cascaded_table(current_n).error_status);
15076: asn_debug.put_line('Error message ' || temp_cascaded_table(current_n).error_message);
15095: IF (g_asn_debug = 'Y') THEN
15096: asn_debug.put_line('delete the temp table ');
15097: END IF;
15098:
15099: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
15100:
15101: --
15102: IF (x_po_correctrec.parent_transaction_type IN ('RECEIVE', 'MATCH', 'DELIVER')) AND
15103: (l_is_clm_po = 'Y' AND l_partial_funded_flag = 'Y') THEN
15101: --
15102: IF (x_po_correctrec.parent_transaction_type IN ('RECEIVE', 'MATCH', 'DELIVER')) AND
15103: (l_is_clm_po = 'Y' AND l_partial_funded_flag = 'Y') THEN
15104:
15105: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEEDS_CLM_FUNDED', x_cascaded_table(n).error_message);
15106: rcv_error_pkg.set_token('QTY_A',temp_cascaded_table(current_n).amount);
15107: rcv_error_pkg.set_token('QTY_B',temp_cascaded_table(current_n).amount - x_remaining_amount);
15108:
15109: ELSE
15102: IF (x_po_correctrec.parent_transaction_type IN ('RECEIVE', 'MATCH', 'DELIVER')) AND
15103: (l_is_clm_po = 'Y' AND l_partial_funded_flag = 'Y') THEN
15104:
15105: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEEDS_CLM_FUNDED', x_cascaded_table(n).error_message);
15106: rcv_error_pkg.set_token('QTY_A',temp_cascaded_table(current_n).amount);
15107: rcv_error_pkg.set_token('QTY_B',temp_cascaded_table(current_n).amount - x_remaining_amount);
15108:
15109: ELSE
15110: --
15103: (l_is_clm_po = 'Y' AND l_partial_funded_flag = 'Y') THEN
15104:
15105: rcv_error_pkg.set_error_message('RCV_TRX_QTY_EXCEEDS_CLM_FUNDED', x_cascaded_table(n).error_message);
15106: rcv_error_pkg.set_token('QTY_A',temp_cascaded_table(current_n).amount);
15107: rcv_error_pkg.set_token('QTY_B',temp_cascaded_table(current_n).amount - x_remaining_amount);
15108:
15109: ELSE
15110: --
15111:
15108:
15109: ELSE
15110: --
15111:
15112: rcv_error_pkg.set_error_message('RCV_CORRECT_AMT_OVER_TOLERANCE', x_cascaded_table(n).error_message);
15113: rcv_error_pkg.set_token('AMT_A', temp_cascaded_table(current_n).amount);
15114: rcv_error_pkg.set_token('AMT_B', temp_cascaded_table(current_n).amount - x_remaining_amount);
15115:
15116: END IF; --
15109: ELSE
15110: --
15111:
15112: rcv_error_pkg.set_error_message('RCV_CORRECT_AMT_OVER_TOLERANCE', x_cascaded_table(n).error_message);
15113: rcv_error_pkg.set_token('AMT_A', temp_cascaded_table(current_n).amount);
15114: rcv_error_pkg.set_token('AMT_B', temp_cascaded_table(current_n).amount - x_remaining_amount);
15115:
15116: END IF; --
15117:
15110: --
15111:
15112: rcv_error_pkg.set_error_message('RCV_CORRECT_AMT_OVER_TOLERANCE', x_cascaded_table(n).error_message);
15113: rcv_error_pkg.set_token('AMT_A', temp_cascaded_table(current_n).amount);
15114: rcv_error_pkg.set_token('AMT_B', temp_cascaded_table(current_n).amount - x_remaining_amount);
15115:
15116: END IF; --
15117:
15118: rcv_error_pkg.log_interface_error('AMOUNT', FALSE);
15114: rcv_error_pkg.set_token('AMT_B', temp_cascaded_table(current_n).amount - x_remaining_amount);
15115:
15116: END IF; --
15117:
15118: rcv_error_pkg.log_interface_error('AMOUNT', FALSE);
15119: temp_cascaded_table.DELETE;
15120:
15121: IF (g_asn_debug = 'Y') THEN
15122: asn_debug.put_line('mark the actual table with error status');
15139: asn_debug.put_line(' in correct extra amount ' || TO_CHAR(x_remaining_amount));
15140: asn_debug.put_line('delete the temp table ');
15141: END IF;
15142:
15143: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
15144: rcv_error_pkg.set_error_message('RCV_CORRECT_AMT_OVER_TOLERANCE', x_cascaded_table(n).error_message);
15145: rcv_error_pkg.set_token('AMT_A', temp_cascaded_table(current_n).amount);
15146: rcv_error_pkg.set_token('AMT_B', temp_cascaded_table(current_n).amount - x_remaining_amount);
15147: rcv_error_pkg.log_interface_error('AMOUNT', FALSE);
15140: asn_debug.put_line('delete the temp table ');
15141: END IF;
15142:
15143: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
15144: rcv_error_pkg.set_error_message('RCV_CORRECT_AMT_OVER_TOLERANCE', x_cascaded_table(n).error_message);
15145: rcv_error_pkg.set_token('AMT_A', temp_cascaded_table(current_n).amount);
15146: rcv_error_pkg.set_token('AMT_B', temp_cascaded_table(current_n).amount - x_remaining_amount);
15147: rcv_error_pkg.log_interface_error('AMOUNT', FALSE);
15148: temp_cascaded_table.DELETE;
15141: END IF;
15142:
15143: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
15144: rcv_error_pkg.set_error_message('RCV_CORRECT_AMT_OVER_TOLERANCE', x_cascaded_table(n).error_message);
15145: rcv_error_pkg.set_token('AMT_A', temp_cascaded_table(current_n).amount);
15146: rcv_error_pkg.set_token('AMT_B', temp_cascaded_table(current_n).amount - x_remaining_amount);
15147: rcv_error_pkg.log_interface_error('AMOUNT', FALSE);
15148: temp_cascaded_table.DELETE;
15149:
15142:
15143: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
15144: rcv_error_pkg.set_error_message('RCV_CORRECT_AMT_OVER_TOLERANCE', x_cascaded_table(n).error_message);
15145: rcv_error_pkg.set_token('AMT_A', temp_cascaded_table(current_n).amount);
15146: rcv_error_pkg.set_token('AMT_B', temp_cascaded_table(current_n).amount - x_remaining_amount);
15147: rcv_error_pkg.log_interface_error('AMOUNT', FALSE);
15148: temp_cascaded_table.DELETE;
15149:
15150: IF (g_asn_debug = 'Y') THEN
15143: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
15144: rcv_error_pkg.set_error_message('RCV_CORRECT_AMT_OVER_TOLERANCE', x_cascaded_table(n).error_message);
15145: rcv_error_pkg.set_token('AMT_A', temp_cascaded_table(current_n).amount);
15146: rcv_error_pkg.set_token('AMT_B', temp_cascaded_table(current_n).amount - x_remaining_amount);
15147: rcv_error_pkg.log_interface_error('AMOUNT', FALSE);
15148: temp_cascaded_table.DELETE;
15149:
15150: IF (g_asn_debug = 'Y') THEN
15151: asn_debug.put_line('mark the actual table with error status');
15165: END IF;
15166: END IF;
15167:
15168: x_temp_count := 1;
15169: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
15170:
15171: IF (x_cascaded_table(n).parent_transaction_id IS NOT NULL) THEN --{
15172: /* Give an error just like it is done for the
15173: * the receipt transaction;
15187:
15188: IF (l_transaction_type = 'DELIVER') THEN --{
15189: IF ( l_destination_type_code = 'INVENTORY'
15190: OR l_source_document_code IN('REQ', 'INVENTORY', 'RMA')) THEN
15191: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
15192: rcv_error_pkg.set_error_message('RCV_INVAL_SOURCE_DOC_FOR_DEL', x_cascaded_table(n).error_message);
15193: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
15194: END IF;
15195: END IF; --}
15188: IF (l_transaction_type = 'DELIVER') THEN --{
15189: IF ( l_destination_type_code = 'INVENTORY'
15190: OR l_source_document_code IN('REQ', 'INVENTORY', 'RMA')) THEN
15191: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
15192: rcv_error_pkg.set_error_message('RCV_INVAL_SOURCE_DOC_FOR_DEL', x_cascaded_table(n).error_message);
15193: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
15194: END IF;
15195: END IF; --}
15196:
15189: IF ( l_destination_type_code = 'INVENTORY'
15190: OR l_source_document_code IN('REQ', 'INVENTORY', 'RMA')) THEN
15191: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
15192: rcv_error_pkg.set_error_message('RCV_INVAL_SOURCE_DOC_FOR_DEL', x_cascaded_table(n).error_message);
15193: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
15194: END IF;
15195: END IF; --}
15196:
15197: IF (l_transaction_type = 'UNORDERED') THEN --{
15207: WHERE rti.parent_transaction_id = temp_cascaded_table(current_n).parent_transaction_id
15208: AND rti.transaction_type = 'MATCH';
15209:
15210: IF l_exist = 'record_exist' THEN --{
15211: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
15212: rcv_error_pkg.set_error_message('RCV_PROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
15213: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
15214: END IF; --}
15215:
15208: AND rti.transaction_type = 'MATCH';
15209:
15210: IF l_exist = 'record_exist' THEN --{
15211: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
15212: rcv_error_pkg.set_error_message('RCV_PROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
15213: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
15214: END IF; --}
15215:
15216: IF l_exist1 = 'record_exist' THEN --{
15209:
15210: IF l_exist = 'record_exist' THEN --{
15211: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
15212: rcv_error_pkg.set_error_message('RCV_PROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
15213: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
15214: END IF; --}
15215:
15216: IF l_exist1 = 'record_exist' THEN --{
15217: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
15213: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
15214: END IF; --}
15215:
15216: IF l_exist1 = 'record_exist' THEN --{
15217: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
15218: rcv_error_pkg.set_error_message('RCV_UNPROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
15219: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
15220: END IF; --}
15221: END IF; --}
15214: END IF; --}
15215:
15216: IF l_exist1 = 'record_exist' THEN --{
15217: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
15218: rcv_error_pkg.set_error_message('RCV_UNPROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
15219: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
15220: END IF; --}
15221: END IF; --}
15222:
15215:
15216: IF l_exist1 = 'record_exist' THEN --{
15217: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
15218: rcv_error_pkg.set_error_message('RCV_UNPROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
15219: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
15220: END IF; --}
15221: END IF; --}
15222:
15223: IF (l_transaction_type = 'RETURN TO VENDOR') THEN --{
15239: AND rti.transaction_type = 'MATCH'
15240: AND rti.parent_transaction_id = rt2.transaction_id;
15241:
15242: IF l_exist = 'record_exist' THEN --{
15243: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
15244: rcv_error_pkg.set_error_message('RCV_RET_PROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
15245: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
15246: END IF; --}
15247:
15240: AND rti.parent_transaction_id = rt2.transaction_id;
15241:
15242: IF l_exist = 'record_exist' THEN --{
15243: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
15244: rcv_error_pkg.set_error_message('RCV_RET_PROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
15245: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
15246: END IF; --}
15247:
15248: IF l_exist1 = 'record_exist' THEN --{
15241:
15242: IF l_exist = 'record_exist' THEN --{
15243: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
15244: rcv_error_pkg.set_error_message('RCV_RET_PROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
15245: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
15246: END IF; --}
15247:
15248: IF l_exist1 = 'record_exist' THEN --{
15249: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
15245: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
15246: END IF; --}
15247:
15248: IF l_exist1 = 'record_exist' THEN --{
15249: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
15250: rcv_error_pkg.set_error_message('RCV_RET_UNPROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
15251: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
15252: END IF; --}
15253: END IF; --}
15246: END IF; --}
15247:
15248: IF l_exist1 = 'record_exist' THEN --{
15249: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
15250: rcv_error_pkg.set_error_message('RCV_RET_UNPROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
15251: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
15252: END IF; --}
15253: END IF; --}
15254:
15247:
15248: IF l_exist1 = 'record_exist' THEN --{
15249: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
15250: rcv_error_pkg.set_error_message('RCV_RET_UNPROC_MATCH_UNORDER', x_cascaded_table(n).error_message);
15251: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
15252: END IF; --}
15253: END IF; --}
15254:
15255: SELECT MAX('record_exist')
15259: AND ( NVL(pll.cancel_flag, 'N') = 'Y'
15260: OR NVL(pll.closed_code, 'OPEN') = 'FINALLY CLOSED');
15261:
15262: IF l_exist2 = 'record_exist' THEN
15263: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
15264: rcv_error_pkg.set_error_message('RCV_PO_SHIPMENT_CANCELLED', x_cascaded_table(n).error_message);
15265: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
15266: END IF;
15267: END IF; --}
15260: OR NVL(pll.closed_code, 'OPEN') = 'FINALLY CLOSED');
15261:
15262: IF l_exist2 = 'record_exist' THEN
15263: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
15264: rcv_error_pkg.set_error_message('RCV_PO_SHIPMENT_CANCELLED', x_cascaded_table(n).error_message);
15265: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
15266: END IF;
15267: END IF; --}
15268:
15261:
15262: IF l_exist2 = 'record_exist' THEN
15263: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
15264: rcv_error_pkg.set_error_message('RCV_PO_SHIPMENT_CANCELLED', x_cascaded_table(n).error_message);
15265: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
15266: END IF;
15267: END IF; --}
15268:
15269: -- Delete the temp_cascaded_table just to be sure
15499: asn_debug.put_line('Status = ' || x_cascaded_table(n).error_status);
15500: END IF;
15501:
15502: IF x_cascaded_table(n).error_status IN('S', 'W', 'F') THEN --{
15503: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
15504:
15505: IF (x_cascaded_table(n).error_message IS NULL) THEN
15506: rcv_error_pkg.set_error_message('RCV_NO_PARENT_TRANSACTION', x_cascaded_table(n).error_message);
15507: END IF;
15502: IF x_cascaded_table(n).error_status IN('S', 'W', 'F') THEN --{
15503: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
15504:
15505: IF (x_cascaded_table(n).error_message IS NULL) THEN
15506: rcv_error_pkg.set_error_message('RCV_NO_PARENT_TRANSACTION', x_cascaded_table(n).error_message);
15507: END IF;
15508:
15509: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID');
15510: END IF; --}
15505: IF (x_cascaded_table(n).error_message IS NULL) THEN
15506: rcv_error_pkg.set_error_message('RCV_NO_PARENT_TRANSACTION', x_cascaded_table(n).error_message);
15507: END IF;
15508:
15509: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID');
15510: END IF; --}
15511:
15512: RETURN;
15513: END IF; -- } of (asn quantity_shipped was valid)
15540: IF po_correct_rti%ISOPEN THEN
15541: CLOSE po_correct_rti;
15542: END IF;
15543:
15544: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
15545: rcv_error_pkg.set_sql_error_message('derive_correction_line_amt', x_progress);
15546: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
15547: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
15548:
15541: CLOSE po_correct_rti;
15542: END IF;
15543:
15544: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
15545: rcv_error_pkg.set_sql_error_message('derive_correction_line_amt', x_progress);
15546: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
15547: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
15548:
15549: IF (g_asn_debug = 'Y') THEN
15542: END IF;
15543:
15544: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
15545: rcv_error_pkg.set_sql_error_message('derive_correction_line_amt', x_progress);
15546: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
15547: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
15548:
15549: IF (g_asn_debug = 'Y') THEN
15550: asn_debug.put_line(TO_CHAR(n));
15543:
15544: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
15545: rcv_error_pkg.set_sql_error_message('derive_correction_line_amt', x_progress);
15546: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
15547: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
15548:
15549: IF (g_asn_debug = 'Y') THEN
15550: asn_debug.put_line(TO_CHAR(n));
15551: asn_debug.put_line(SQLERRM);
15924: CLOSE po_correct_rti;
15925: END IF;
15926: EXCEPTION
15927: WHEN OTHERS THEN
15928: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
15929: rcv_error_pkg.set_sql_error_message('default_vendor_correct', x_progress);
15930: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
15931: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
15932: END default_vendor_correct;
15925: END IF;
15926: EXCEPTION
15927: WHEN OTHERS THEN
15928: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
15929: rcv_error_pkg.set_sql_error_message('default_vendor_correct', x_progress);
15930: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
15931: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
15932: END default_vendor_correct;
15933:
15926: EXCEPTION
15927: WHEN OTHERS THEN
15928: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
15929: rcv_error_pkg.set_sql_error_message('default_vendor_correct', x_progress);
15930: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
15931: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
15932: END default_vendor_correct;
15933:
15934: FUNCTION convert_into_correct_qty(
15927: WHEN OTHERS THEN
15928: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
15929: rcv_error_pkg.set_sql_error_message('default_vendor_correct', x_progress);
15930: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
15931: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
15932: END default_vendor_correct;
15933:
15934: FUNCTION convert_into_correct_qty(
15935: source_qty IN NUMBER,
15998:
15999: rcv_transactions_interface_sv1.validate_po_lookup_code(po_lookup_code_record);
16000: x_cascaded_table(n).error_status := po_lookup_code_record.error_record.error_status;
16001: x_cascaded_table(n).error_message := po_lookup_code_record.error_record.error_message;
16002: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
16003: 'SOURCE_TYPE_CODE',
16004: FALSE
16005: );
16006: END IF;
16005: );
16006: END IF;
16007: EXCEPTION
16008: WHEN OTHERS THEN
16009: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
16010: rcv_error_pkg.set_sql_error_message('validate_source_type', '000');
16011: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
16012: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
16013: END validate_source_type;
16006: END IF;
16007: EXCEPTION
16008: WHEN OTHERS THEN
16009: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
16010: rcv_error_pkg.set_sql_error_message('validate_source_type', '000');
16011: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
16012: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
16013: END validate_source_type;
16014:
16007: EXCEPTION
16008: WHEN OTHERS THEN
16009: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
16010: rcv_error_pkg.set_sql_error_message('validate_source_type', '000');
16011: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
16012: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
16013: END validate_source_type;
16014:
16015: PROCEDURE validate_transaction_type(
16008: WHEN OTHERS THEN
16009: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
16010: rcv_error_pkg.set_sql_error_message('validate_source_type', '000');
16011: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
16012: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
16013: END validate_source_type;
16014:
16015: PROCEDURE validate_transaction_type(
16016: x_cascaded_table IN OUT NOCOPY rcv_roi_preprocessor.cascaded_trans_tab_type,
16034:
16035: rcv_transactions_interface_sv1.validate_po_lookup_code(po_lookup_code_record);
16036: x_cascaded_table(n).error_status := po_lookup_code_record.error_record.error_status;
16037: x_cascaded_table(n).error_message := po_lookup_code_record.error_record.error_message;
16038: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
16039: 'TRANSACTION_TYPE_CODE',
16040: FALSE
16041: );
16042: END IF; --}
16041: );
16042: END IF; --}
16043: EXCEPTION
16044: WHEN OTHERS THEN
16045: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
16046: rcv_error_pkg.set_sql_error_message('validate_transaction_type', '000');
16047: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
16048: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
16049: END validate_transaction_type;
16042: END IF; --}
16043: EXCEPTION
16044: WHEN OTHERS THEN
16045: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
16046: rcv_error_pkg.set_sql_error_message('validate_transaction_type', '000');
16047: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
16048: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
16049: END validate_transaction_type;
16050:
16043: EXCEPTION
16044: WHEN OTHERS THEN
16045: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
16046: rcv_error_pkg.set_sql_error_message('validate_transaction_type', '000');
16047: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
16048: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
16049: END validate_transaction_type;
16050:
16051: PROCEDURE validate_inspection_status(
16044: WHEN OTHERS THEN
16045: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
16046: rcv_error_pkg.set_sql_error_message('validate_transaction_type', '000');
16047: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
16048: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
16049: END validate_transaction_type;
16050:
16051: PROCEDURE validate_inspection_status(
16052: x_cascaded_table IN OUT NOCOPY rcv_roi_preprocessor.cascaded_trans_tab_type,
16070:
16071: rcv_transactions_interface_sv1.validate_po_lookup_code(po_lookup_code_record);
16072: x_cascaded_table(n).error_status := po_lookup_code_record.error_record.error_status;
16073: x_cascaded_table(n).error_message := po_lookup_code_record.error_record.error_message;
16074: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
16075: 'INSPECTION_STATUS_CODE',
16076: FALSE
16077: );
16078: END IF; --}
16077: );
16078: END IF; --}
16079: EXCEPTION
16080: WHEN OTHERS THEN
16081: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
16082: rcv_error_pkg.set_sql_error_message('validate_inspection_status', '000');
16083: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
16084: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
16085: END validate_inspection_status;
16078: END IF; --}
16079: EXCEPTION
16080: WHEN OTHERS THEN
16081: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
16082: rcv_error_pkg.set_sql_error_message('validate_inspection_status', '000');
16083: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
16084: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
16085: END validate_inspection_status;
16086:
16079: EXCEPTION
16080: WHEN OTHERS THEN
16081: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
16082: rcv_error_pkg.set_sql_error_message('validate_inspection_status', '000');
16083: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
16084: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
16085: END validate_inspection_status;
16086:
16087: /** OPM change Bug# 3061052**/
16080: WHEN OTHERS THEN
16081: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
16082: rcv_error_pkg.set_sql_error_message('validate_inspection_status', '000');
16083: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
16084: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
16085: END validate_inspection_status;
16086:
16087: /** OPM change Bug# 3061052**/
16088: -- added validate_opm_attributes to validate OPM specific columns.
16288:
16289: /* INVCONV , remove the following error handling.Introduced new error handling below*/
16290: /*
16291: IF x_cascaded_table(n).error_status NOT IN('S', 'W') THEN
16292: rcv_error_pkg.set_error_message(x_cascaded_table(n).error_message);
16293:
16294: IF (x_cascaded_table(n).error_message = 'PO_PDOI_INVALID_UOM_CODE') THEN
16295: rcv_error_pkg.set_token('VALUE', x_cascaded_table(n).secondary_uom_code);
16296: END IF;
16291: IF x_cascaded_table(n).error_status NOT IN('S', 'W') THEN
16292: rcv_error_pkg.set_error_message(x_cascaded_table(n).error_message);
16293:
16294: IF (x_cascaded_table(n).error_message = 'PO_PDOI_INVALID_UOM_CODE') THEN
16295: rcv_error_pkg.set_token('VALUE', x_cascaded_table(n).secondary_uom_code);
16296: END IF;
16297: END IF;
16298:
16299: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'SECONDARY_UOM_CODE');
16295: rcv_error_pkg.set_token('VALUE', x_cascaded_table(n).secondary_uom_code);
16296: END IF;
16297: END IF;
16298:
16299: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'SECONDARY_UOM_CODE');
16300:
16301: */
16302: /* error handling , INVCONV*/
16303: x_cascaded_table(n).error_status := l_att_rec.error_record.error_status;
16316: asn_debug.put_line('RCV_TRANSACTIONS_INTERFACE_SV1.VALIDATE_SECONDARY_PARAMETERS call failed');
16317: END IF;
16318:
16319: /*log error in po_interface_errors*/
16320: rcv_error_pkg.log_interface_message(
16321: x_cascaded_table(n).error_status,
16322: 'Secondary Parameter',
16323: FALSE
16324: );
16354: end , INVCONV */
16355:
16356:
16357: EXCEPTION
16358: WHEN rcv_error_pkg.e_fatal_error THEN
16359: NULL;
16360: WHEN OTHERS THEN
16361: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
16362: rcv_error_pkg.set_sql_error_message('log_interface_error', '000');
16357: EXCEPTION
16358: WHEN rcv_error_pkg.e_fatal_error THEN
16359: NULL;
16360: WHEN OTHERS THEN
16361: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
16362: rcv_error_pkg.set_sql_error_message('log_interface_error', '000');
16363: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
16364: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
16365: END validate_opm_attributes;
16358: WHEN rcv_error_pkg.e_fatal_error THEN
16359: NULL;
16360: WHEN OTHERS THEN
16361: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
16362: rcv_error_pkg.set_sql_error_message('log_interface_error', '000');
16363: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
16364: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
16365: END validate_opm_attributes;
16366:
16359: NULL;
16360: WHEN OTHERS THEN
16361: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
16362: rcv_error_pkg.set_sql_error_message('log_interface_error', '000');
16363: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
16364: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
16365: END validate_opm_attributes;
16366:
16367:
16360: WHEN OTHERS THEN
16361: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
16362: rcv_error_pkg.set_sql_error_message('log_interface_error', '000');
16363: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
16364: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
16365: END validate_opm_attributes;
16366:
16367:
16368: PROCEDURE get_interface_available_qty(
16442: x_interface_qty := NVL(x_interface_qty, 0);
16443: EXCEPTION
16444: WHEN OTHERS THEN
16445: x_interface_qty := 0;
16446: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
16447: rcv_error_pkg.set_sql_error_message('get_interface_available_qty', '000');
16448: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
16449: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
16450: END get_interface_available_qty;
16443: EXCEPTION
16444: WHEN OTHERS THEN
16445: x_interface_qty := 0;
16446: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
16447: rcv_error_pkg.set_sql_error_message('get_interface_available_qty', '000');
16448: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
16449: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
16450: END get_interface_available_qty;
16451:
16444: WHEN OTHERS THEN
16445: x_interface_qty := 0;
16446: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
16447: rcv_error_pkg.set_sql_error_message('get_interface_available_qty', '000');
16448: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
16449: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
16450: END get_interface_available_qty;
16451:
16452: PROCEDURE get_interface_available_amt(
16445: x_interface_qty := 0;
16446: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
16447: rcv_error_pkg.set_sql_error_message('get_interface_available_qty', '000');
16448: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
16449: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
16450: END get_interface_available_qty;
16451:
16452: PROCEDURE get_interface_available_amt(
16453: x_cascaded_table IN OUT NOCOPY rcv_roi_preprocessor.cascaded_trans_tab_type,
16512: x_interface_amt := NVL(x_interface_amt, 0);
16513: EXCEPTION
16514: WHEN OTHERS THEN
16515: x_interface_amt := 0;
16516: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
16517: rcv_error_pkg.set_sql_error_message('get_interface_available_amt', '000');
16518: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
16519: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
16520: END get_interface_available_amt;
16513: EXCEPTION
16514: WHEN OTHERS THEN
16515: x_interface_amt := 0;
16516: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
16517: rcv_error_pkg.set_sql_error_message('get_interface_available_amt', '000');
16518: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
16519: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
16520: END get_interface_available_amt;
16521:
16514: WHEN OTHERS THEN
16515: x_interface_amt := 0;
16516: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
16517: rcv_error_pkg.set_sql_error_message('get_interface_available_amt', '000');
16518: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
16519: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
16520: END get_interface_available_amt;
16521:
16522: PROCEDURE update_interface_available_qty(
16515: x_interface_amt := 0;
16516: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
16517: rcv_error_pkg.set_sql_error_message('get_interface_available_amt', '000');
16518: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
16519: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
16520: END get_interface_available_amt;
16521:
16522: PROCEDURE update_interface_available_qty(
16523: x_cascaded_table IN OUT NOCOPY rcv_roi_preprocessor.cascaded_trans_tab_type,
16595: x_cascaded_table(n).interface_transaction_qty := l_interface_transaction_qty;
16596: END IF;
16597: EXCEPTION
16598: WHEN OTHERS THEN
16599: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
16600: rcv_error_pkg.set_sql_error_message('update_interface_available_qty', '000');
16601: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
16602: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
16603: END update_interface_available_qty;
16596: END IF;
16597: EXCEPTION
16598: WHEN OTHERS THEN
16599: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
16600: rcv_error_pkg.set_sql_error_message('update_interface_available_qty', '000');
16601: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
16602: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
16603: END update_interface_available_qty;
16604:
16597: EXCEPTION
16598: WHEN OTHERS THEN
16599: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
16600: rcv_error_pkg.set_sql_error_message('update_interface_available_qty', '000');
16601: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
16602: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
16603: END update_interface_available_qty;
16604:
16605: PROCEDURE update_interface_available_amt(
16598: WHEN OTHERS THEN
16599: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
16600: rcv_error_pkg.set_sql_error_message('update_interface_available_qty', '000');
16601: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
16602: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
16603: END update_interface_available_qty;
16604:
16605: PROCEDURE update_interface_available_amt(
16606: x_cascaded_table IN OUT NOCOPY rcv_roi_preprocessor.cascaded_trans_tab_type,
16678: x_cascaded_table(n).interface_transaction_amt := l_interface_transaction_amt;
16679: END IF;
16680: EXCEPTION
16681: WHEN OTHERS THEN
16682: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
16683: rcv_error_pkg.set_sql_error_message('update_interface_available_amt', '000');
16684: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
16685: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
16686: END update_interface_available_amt;
16679: END IF;
16680: EXCEPTION
16681: WHEN OTHERS THEN
16682: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
16683: rcv_error_pkg.set_sql_error_message('update_interface_available_amt', '000');
16684: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
16685: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
16686: END update_interface_available_amt;
16687:
16680: EXCEPTION
16681: WHEN OTHERS THEN
16682: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
16683: rcv_error_pkg.set_sql_error_message('update_interface_available_amt', '000');
16684: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
16685: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
16686: END update_interface_available_amt;
16687:
16688: PROCEDURE update_total_transaction_qty(
16681: WHEN OTHERS THEN
16682: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
16683: rcv_error_pkg.set_sql_error_message('update_interface_available_amt', '000');
16684: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
16685: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
16686: END update_interface_available_amt;
16687:
16688: PROCEDURE update_total_transaction_qty(
16689: p_interface_transaction_id IN rcv_transactions_interface.interface_transaction_id%TYPE,
16753: END IF;
16754: END IF; --}
16755: EXCEPTION
16756: WHEN OTHERS THEN
16757: rcv_error_pkg.set_sql_error_message('update_total_transaction_qty', '000');
16758: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
16759: RAISE;
16760: END update_total_transaction_qty;
16761:
16754: END IF; --}
16755: EXCEPTION
16756: WHEN OTHERS THEN
16757: rcv_error_pkg.set_sql_error_message('update_total_transaction_qty', '000');
16758: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
16759: RAISE;
16760: END update_total_transaction_qty;
16761:
16762: PROCEDURE update_total_transaction_amt(
16822: END IF;
16823: END IF; --}
16824: EXCEPTION
16825: WHEN OTHERS THEN
16826: rcv_error_pkg.set_sql_error_message('update_total_transaction_amt', '000');
16827: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
16828: RAISE;
16829: END update_total_transaction_amt;
16830:
16823: END IF; --}
16824: EXCEPTION
16825: WHEN OTHERS THEN
16826: rcv_error_pkg.set_sql_error_message('update_total_transaction_amt', '000');
16827: rcv_error_pkg.log_interface_error('TRANSACTIONS_INTERFACE_ID', FALSE);
16828: RAISE;
16829: END update_total_transaction_amt;
16830:
16831: PROCEDURE derive_matching_basis(
16881: asn_debug.put_line('NO data found in derive_match_basis '
16882: ||'for PO shipments with line and line_loc_id info');
16883: END IF;
16884: x_cascaded_table(n).error_status :=
16885: rcv_error_pkg.g_ret_sts_unexp_error;
16886: rcv_error_pkg.set_sql_error_message(
16887: ' when no data in derive_matching_basis '||
16888: 'line and line_loc_id info' ,
16889: x_progress);
16882: ||'for PO shipments with line and line_loc_id info');
16883: END IF;
16884: x_cascaded_table(n).error_status :=
16885: rcv_error_pkg.g_ret_sts_unexp_error;
16886: rcv_error_pkg.set_sql_error_message(
16887: ' when no data in derive_matching_basis '||
16888: 'line and line_loc_id info' ,
16889: x_progress);
16890: x_cascaded_table(n).error_message :=
16887: ' when no data in derive_matching_basis '||
16888: 'line and line_loc_id info' ,
16889: x_progress);
16890: x_cascaded_table(n).error_message :=
16891: rcv_error_pkg.get_last_message;
16892: when others then
16893: IF (g_asn_debug = 'Y') THEN
16894: asn_debug.put_line('when others in derive_match_basis '
16895: ||'for PO shipments with line and line_loc_id info');
16894: asn_debug.put_line('when others in derive_match_basis '
16895: ||'for PO shipments with line and line_loc_id info');
16896: END IF;
16897: x_cascaded_table(n).error_status :=
16898: rcv_error_pkg.g_ret_sts_unexp_error;
16899: rcv_error_pkg.set_sql_error_message(
16900: 'when others in derive_matching_basis with '||
16901: 'line and line_loc_id info',
16902: x_progress);
16895: ||'for PO shipments with line and line_loc_id info');
16896: END IF;
16897: x_cascaded_table(n).error_status :=
16898: rcv_error_pkg.g_ret_sts_unexp_error;
16899: rcv_error_pkg.set_sql_error_message(
16900: 'when others in derive_matching_basis with '||
16901: 'line and line_loc_id info',
16902: x_progress);
16903: x_cascaded_table(n).error_message :=
16900: 'when others in derive_matching_basis with '||
16901: 'line and line_loc_id info',
16902: x_progress);
16903: x_cascaded_table(n).error_message :=
16904: rcv_error_pkg.get_last_message;
16905: end;
16906: ELSIF((x_cascaded_table(n).po_line_id IS NOT NULL)
16907: AND
16908: (x_cascaded_table(n).document_shipment_line_num is not null)) THEN--}{
16924: IF (g_asn_debug = 'Y') THEN
16925: asn_debug.put_line('too many rows in derive_match_basis ' ||'for PO shipments with line and ship info');
16926: END IF;
16927: x_cascaded_table(n).error_status :=
16928: rcv_error_pkg.g_ret_sts_unexp_error;
16929: rcv_error_pkg.set_sql_error_message(
16930: ' too many rows in derive_matching_basis '||
16931: 'line and ship info' ,
16932: x_progress);
16925: asn_debug.put_line('too many rows in derive_match_basis ' ||'for PO shipments with line and ship info');
16926: END IF;
16927: x_cascaded_table(n).error_status :=
16928: rcv_error_pkg.g_ret_sts_unexp_error;
16929: rcv_error_pkg.set_sql_error_message(
16930: ' too many rows in derive_matching_basis '||
16931: 'line and ship info' ,
16932: x_progress);
16933: x_cascaded_table(n).error_message :=
16930: ' too many rows in derive_matching_basis '||
16931: 'line and ship info' ,
16932: x_progress);
16933: x_cascaded_table(n).error_message :=
16934: rcv_error_pkg.get_last_message;
16935: when no_data_found then
16936: IF (g_asn_debug = 'Y') THEN
16937: asn_debug.put_line('NO data found in derive_match_basis ' ||'for PO shipments with line and ship info');
16938: END IF;
16936: IF (g_asn_debug = 'Y') THEN
16937: asn_debug.put_line('NO data found in derive_match_basis ' ||'for PO shipments with line and ship info');
16938: END IF;
16939: x_cascaded_table(n).error_status :=
16940: rcv_error_pkg.g_ret_sts_unexp_error;
16941: rcv_error_pkg.set_sql_error_message(
16942: ' when no data in derive_matching_basis '||
16943: 'line and ship info' ,
16944: x_progress);
16937: asn_debug.put_line('NO data found in derive_match_basis ' ||'for PO shipments with line and ship info');
16938: END IF;
16939: x_cascaded_table(n).error_status :=
16940: rcv_error_pkg.g_ret_sts_unexp_error;
16941: rcv_error_pkg.set_sql_error_message(
16942: ' when no data in derive_matching_basis '||
16943: 'line and ship info' ,
16944: x_progress);
16945: x_cascaded_table(n).error_message :=
16942: ' when no data in derive_matching_basis '||
16943: 'line and ship info' ,
16944: x_progress);
16945: x_cascaded_table(n).error_message :=
16946: rcv_error_pkg.get_last_message;
16947: when others then
16948: IF (g_asn_debug = 'Y') THEN
16949: asn_debug.put_line('when others in derive_match_basis '
16950: ||'for PO shipments with line and ship info');
16949: asn_debug.put_line('when others in derive_match_basis '
16950: ||'for PO shipments with line and ship info');
16951: END IF;
16952: x_cascaded_table(n).error_status :=
16953: rcv_error_pkg.g_ret_sts_unexp_error;
16954: rcv_error_pkg.set_sql_error_message(
16955: 'when others in derive_matching_basis with '||
16956: 'line and ship info',
16957: x_progress);
16950: ||'for PO shipments with line and ship info');
16951: END IF;
16952: x_cascaded_table(n).error_status :=
16953: rcv_error_pkg.g_ret_sts_unexp_error;
16954: rcv_error_pkg.set_sql_error_message(
16955: 'when others in derive_matching_basis with '||
16956: 'line and ship info',
16957: x_progress);
16958: x_cascaded_table(n).error_message :=
16955: 'when others in derive_matching_basis with '||
16956: 'line and ship info',
16957: x_progress);
16958: x_cascaded_table(n).error_message :=
16959: rcv_error_pkg.get_last_message;
16960: end;
16961: ELSIF x_cascaded_table(n).po_line_id IS NOT NULL THEN --}{
16962: begin
16963: SELECT NVL(order_type_lookup_code, 'QUANTITY'),
16974: asn_debug.put_line('NO data found in derive_match_basis '
16975: ||'for PO shipments with line info');
16976: END IF;
16977: x_cascaded_table(n).error_status :=
16978: rcv_error_pkg.g_ret_sts_unexp_error;
16979: rcv_error_pkg.set_sql_error_message(
16980: ' when no data in derive_matching_basis with '||
16981: 'line info ',
16982: x_progress);
16975: ||'for PO shipments with line info');
16976: END IF;
16977: x_cascaded_table(n).error_status :=
16978: rcv_error_pkg.g_ret_sts_unexp_error;
16979: rcv_error_pkg.set_sql_error_message(
16980: ' when no data in derive_matching_basis with '||
16981: 'line info ',
16982: x_progress);
16983: x_cascaded_table(n).error_message :=
16980: ' when no data in derive_matching_basis with '||
16981: 'line info ',
16982: x_progress);
16983: x_cascaded_table(n).error_message :=
16984: rcv_error_pkg.get_last_message;
16985: when others then
16986: IF (g_asn_debug = 'Y') THEN
16987: asn_debug.put_line('when others in derive_match_basis '
16988: ||'for PO shipments with line info');
16987: asn_debug.put_line('when others in derive_match_basis '
16988: ||'for PO shipments with line info');
16989: END IF;
16990: x_cascaded_table(n).error_status :=
16991: rcv_error_pkg.g_ret_sts_unexp_error;
16992: rcv_error_pkg.set_sql_error_message(
16993: 'when others in derive_matching_basis with '||
16994: 'line info',
16995: x_progress);
16988: ||'for PO shipments with line info');
16989: END IF;
16990: x_cascaded_table(n).error_status :=
16991: rcv_error_pkg.g_ret_sts_unexp_error;
16992: rcv_error_pkg.set_sql_error_message(
16993: 'when others in derive_matching_basis with '||
16994: 'line info',
16995: x_progress);
16996: x_cascaded_table(n).error_message :=
16993: 'when others in derive_matching_basis with '||
16994: 'line info',
16995: x_progress);
16996: x_cascaded_table(n).error_message :=
16997: rcv_error_pkg.get_last_message;
16998: end;
16999: ELSE --}{
17000: -- we require line info for receiving against services lines
17001: x_cascaded_table(n).matching_basis := 'QUANTITY';
17007: x_cascaded_table(n).matching_basis);
17008: END IF;
17009: EXCEPTION
17010: WHEN OTHERS THEN
17011: rcv_error_pkg.set_sql_error_message(
17012: 'update_total_transaction_amt',
17013: '000');
17014: rcv_error_pkg.log_interface_error(
17015: 'TRANSACTIONS_INTERFACE_ID',
17010: WHEN OTHERS THEN
17011: rcv_error_pkg.set_sql_error_message(
17012: 'update_total_transaction_amt',
17013: '000');
17014: rcv_error_pkg.log_interface_error(
17015: 'TRANSACTIONS_INTERFACE_ID',
17016: FALSE);
17017: RAISE;
17018: END derive_matching_basis;
17210: IF (x_cascaded_table(n).lcm_shipment_line_id IS NULL) THEN
17211: --
17212: asn_debug.put_line('Error: lcm_shipment_line_id should not be null ');
17213: x_cascaded_table(n).error_status := 'E';
17214: rcv_error_pkg.set_error_message('PO_PDOI_COLUMN_NOT_NULL', x_cascaded_table(n).error_message);
17215: rcv_error_pkg.set_token('COLUMN_NAME', 'LCM_SHIPMENT_LINE_ID');
17216: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'LCM_SHIPMENT_LINE_ID',FALSE);
17217: --
17218: END IF;
17211: --
17212: asn_debug.put_line('Error: lcm_shipment_line_id should not be null ');
17213: x_cascaded_table(n).error_status := 'E';
17214: rcv_error_pkg.set_error_message('PO_PDOI_COLUMN_NOT_NULL', x_cascaded_table(n).error_message);
17215: rcv_error_pkg.set_token('COLUMN_NAME', 'LCM_SHIPMENT_LINE_ID');
17216: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'LCM_SHIPMENT_LINE_ID',FALSE);
17217: --
17218: END IF;
17219: RETURN;
17212: asn_debug.put_line('Error: lcm_shipment_line_id should not be null ');
17213: x_cascaded_table(n).error_status := 'E';
17214: rcv_error_pkg.set_error_message('PO_PDOI_COLUMN_NOT_NULL', x_cascaded_table(n).error_message);
17215: rcv_error_pkg.set_token('COLUMN_NAME', 'LCM_SHIPMENT_LINE_ID');
17216: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'LCM_SHIPMENT_LINE_ID',FALSE);
17217: --
17218: END IF;
17219: RETURN;
17220: END IF;
17222: IF (x_asn_type = 'ASN') THEN
17223: --
17224: asn_debug.put_line('Error: ' || x_asn_type || ' is not supported as the org is pre-receive enabled ');
17225: x_cascaded_table(n).error_status := 'E';
17226: rcv_error_pkg.set_error_message('RCV_ASN_IMPORT_NOT_ALLOWED', x_cascaded_table(n).error_message);
17227: rcv_error_pkg.set_token('ASN_TYPE',x_asn_type);
17228: rcv_error_pkg.set_token('ORG_ID',x_cascaded_table(n).to_organization_id);
17229: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'ASN_TYPE',FALSE);
17230: RETURN;
17223: --
17224: asn_debug.put_line('Error: ' || x_asn_type || ' is not supported as the org is pre-receive enabled ');
17225: x_cascaded_table(n).error_status := 'E';
17226: rcv_error_pkg.set_error_message('RCV_ASN_IMPORT_NOT_ALLOWED', x_cascaded_table(n).error_message);
17227: rcv_error_pkg.set_token('ASN_TYPE',x_asn_type);
17228: rcv_error_pkg.set_token('ORG_ID',x_cascaded_table(n).to_organization_id);
17229: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'ASN_TYPE',FALSE);
17230: RETURN;
17231: --
17224: asn_debug.put_line('Error: ' || x_asn_type || ' is not supported as the org is pre-receive enabled ');
17225: x_cascaded_table(n).error_status := 'E';
17226: rcv_error_pkg.set_error_message('RCV_ASN_IMPORT_NOT_ALLOWED', x_cascaded_table(n).error_message);
17227: rcv_error_pkg.set_token('ASN_TYPE',x_asn_type);
17228: rcv_error_pkg.set_token('ORG_ID',x_cascaded_table(n).to_organization_id);
17229: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'ASN_TYPE',FALSE);
17230: RETURN;
17231: --
17232: END IF;
17225: x_cascaded_table(n).error_status := 'E';
17226: rcv_error_pkg.set_error_message('RCV_ASN_IMPORT_NOT_ALLOWED', x_cascaded_table(n).error_message);
17227: rcv_error_pkg.set_token('ASN_TYPE',x_asn_type);
17228: rcv_error_pkg.set_token('ORG_ID',x_cascaded_table(n).to_organization_id);
17229: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'ASN_TYPE',FALSE);
17230: RETURN;
17231: --
17232: END IF;
17233: IF (x_cascaded_table(n).lcm_shipment_line_id IS NULL) THEN
17233: IF (x_cascaded_table(n).lcm_shipment_line_id IS NULL) THEN
17234: --
17235: asn_debug.put_line('Error: lcm_shipment_line_id should not be null ');
17236: x_cascaded_table(n).error_status := 'E';
17237: rcv_error_pkg.set_error_message('PO_PDOI_COLUMN_NOT_NULL', x_cascaded_table(n).error_message);
17238: rcv_error_pkg.set_token('COLUMN_NAME', 'LCM_SHIPMENT_LINE_ID');
17239: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'LCM_SHIPMENT_LINE_ID',FALSE);
17240: RETURN;
17241: --
17234: --
17235: asn_debug.put_line('Error: lcm_shipment_line_id should not be null ');
17236: x_cascaded_table(n).error_status := 'E';
17237: rcv_error_pkg.set_error_message('PO_PDOI_COLUMN_NOT_NULL', x_cascaded_table(n).error_message);
17238: rcv_error_pkg.set_token('COLUMN_NAME', 'LCM_SHIPMENT_LINE_ID');
17239: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'LCM_SHIPMENT_LINE_ID',FALSE);
17240: RETURN;
17241: --
17242: END IF;
17235: asn_debug.put_line('Error: lcm_shipment_line_id should not be null ');
17236: x_cascaded_table(n).error_status := 'E';
17237: rcv_error_pkg.set_error_message('PO_PDOI_COLUMN_NOT_NULL', x_cascaded_table(n).error_message);
17238: rcv_error_pkg.set_token('COLUMN_NAME', 'LCM_SHIPMENT_LINE_ID');
17239: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'LCM_SHIPMENT_LINE_ID',FALSE);
17240: RETURN;
17241: --
17242: END IF;
17243: IF (g_asn_debug = 'Y') THEN
17246: IF (x_cascaded_table(n).unit_landed_cost IS NULL) THEN
17247: --
17248: asn_debug.put_line('Error: unit_landed_cost should not be null ');
17249: x_cascaded_table(n).error_status := 'E';
17250: rcv_error_pkg.set_error_message('PO_PDOI_COLUMN_NOT_NULL', x_cascaded_table(n).error_message);
17251: rcv_error_pkg.set_token('COLUMN_NAME', 'UNIT_LANDED_COST');
17252: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'UNIT_LANDED_COST',FALSE);
17253: RETURN;
17254: --
17247: --
17248: asn_debug.put_line('Error: unit_landed_cost should not be null ');
17249: x_cascaded_table(n).error_status := 'E';
17250: rcv_error_pkg.set_error_message('PO_PDOI_COLUMN_NOT_NULL', x_cascaded_table(n).error_message);
17251: rcv_error_pkg.set_token('COLUMN_NAME', 'UNIT_LANDED_COST');
17252: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'UNIT_LANDED_COST',FALSE);
17253: RETURN;
17254: --
17255: END IF;
17248: asn_debug.put_line('Error: unit_landed_cost should not be null ');
17249: x_cascaded_table(n).error_status := 'E';
17250: rcv_error_pkg.set_error_message('PO_PDOI_COLUMN_NOT_NULL', x_cascaded_table(n).error_message);
17251: rcv_error_pkg.set_token('COLUMN_NAME', 'UNIT_LANDED_COST');
17252: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'UNIT_LANDED_COST',FALSE);
17253: RETURN;
17254: --
17255: END IF;
17256: IF (g_asn_debug = 'Y') THEN
17281: IF (l_lsl_exists > 0) THEN
17282: --
17283: asn_debug.put_line('Error: Duplicate lcm_shipment_line_id');
17284: x_cascaded_table(n).error_status := 'E';
17285: rcv_error_pkg.set_error_message('RCV_DUP_LCM_SHIPMENT_LINE', x_cascaded_table(n).error_message);
17286: rcv_error_pkg.set_token('VALUE', x_cascaded_table(n).lcm_shipment_line_id);
17287: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'LCM_SHIPMENT_LINE_ID',FALSE);
17288: RETURN;
17289: --
17282: --
17283: asn_debug.put_line('Error: Duplicate lcm_shipment_line_id');
17284: x_cascaded_table(n).error_status := 'E';
17285: rcv_error_pkg.set_error_message('RCV_DUP_LCM_SHIPMENT_LINE', x_cascaded_table(n).error_message);
17286: rcv_error_pkg.set_token('VALUE', x_cascaded_table(n).lcm_shipment_line_id);
17287: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'LCM_SHIPMENT_LINE_ID',FALSE);
17288: RETURN;
17289: --
17290: END IF;
17283: asn_debug.put_line('Error: Duplicate lcm_shipment_line_id');
17284: x_cascaded_table(n).error_status := 'E';
17285: rcv_error_pkg.set_error_message('RCV_DUP_LCM_SHIPMENT_LINE', x_cascaded_table(n).error_message);
17286: rcv_error_pkg.set_token('VALUE', x_cascaded_table(n).lcm_shipment_line_id);
17287: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'LCM_SHIPMENT_LINE_ID',FALSE);
17288: RETURN;
17289: --
17290: END IF;
17291: --
17308: asn_debug.put_line('l_rsl_qty => ' || l_rsl_qty, null, 14);
17309: asn_debug.put_line('x_cascaded_table(n).quantity => ' || x_cascaded_table(n).quantity, null, 14);
17310: asn_debug.put_line('Error: Partial receipt not allowed');
17311: x_cascaded_table(n).error_status := 'E';
17312: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE', x_cascaded_table(n).error_message);
17313: rcv_error_pkg.set_token('COLUMN', 'QUANTITY');
17314: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).quantity);
17315: rcv_error_pkg.set_token('SYS_VALUE', l_rsl_qty);
17316: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'QUANTITY',FALSE);
17309: asn_debug.put_line('x_cascaded_table(n).quantity => ' || x_cascaded_table(n).quantity, null, 14);
17310: asn_debug.put_line('Error: Partial receipt not allowed');
17311: x_cascaded_table(n).error_status := 'E';
17312: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE', x_cascaded_table(n).error_message);
17313: rcv_error_pkg.set_token('COLUMN', 'QUANTITY');
17314: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).quantity);
17315: rcv_error_pkg.set_token('SYS_VALUE', l_rsl_qty);
17316: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'QUANTITY',FALSE);
17317: RETURN;
17310: asn_debug.put_line('Error: Partial receipt not allowed');
17311: x_cascaded_table(n).error_status := 'E';
17312: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE', x_cascaded_table(n).error_message);
17313: rcv_error_pkg.set_token('COLUMN', 'QUANTITY');
17314: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).quantity);
17315: rcv_error_pkg.set_token('SYS_VALUE', l_rsl_qty);
17316: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'QUANTITY',FALSE);
17317: RETURN;
17318: --
17311: x_cascaded_table(n).error_status := 'E';
17312: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE', x_cascaded_table(n).error_message);
17313: rcv_error_pkg.set_token('COLUMN', 'QUANTITY');
17314: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).quantity);
17315: rcv_error_pkg.set_token('SYS_VALUE', l_rsl_qty);
17316: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'QUANTITY',FALSE);
17317: RETURN;
17318: --
17319: END IF;
17312: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE', x_cascaded_table(n).error_message);
17313: rcv_error_pkg.set_token('COLUMN', 'QUANTITY');
17314: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).quantity);
17315: rcv_error_pkg.set_token('SYS_VALUE', l_rsl_qty);
17316: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'QUANTITY',FALSE);
17317: RETURN;
17318: --
17319: END IF;
17320: IF (l_rsl_uom <> x_cascaded_table(n).unit_of_measure) THEN
17323: asn_debug.put_line('l_rsl_uom => ' || l_rsl_uom, null, 14);
17324: asn_debug.put_line('x_cascaded_table(n).unit_of_measure => ' || x_cascaded_table(n).unit_of_measure, null, 14);
17325: asn_debug.put_line('Error: Partial receipt not allowed');
17326: x_cascaded_table(n).error_status := 'E';
17327: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE', x_cascaded_table(n).error_message);
17328: rcv_error_pkg.set_token('COLUMN', 'UNIT_OF_MEASURE');
17329: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).unit_of_measure);
17330: rcv_error_pkg.set_token('SYS_VALUE', l_rsl_uom);
17331: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'UNIT_OF_MEASURE',FALSE);
17324: asn_debug.put_line('x_cascaded_table(n).unit_of_measure => ' || x_cascaded_table(n).unit_of_measure, null, 14);
17325: asn_debug.put_line('Error: Partial receipt not allowed');
17326: x_cascaded_table(n).error_status := 'E';
17327: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE', x_cascaded_table(n).error_message);
17328: rcv_error_pkg.set_token('COLUMN', 'UNIT_OF_MEASURE');
17329: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).unit_of_measure);
17330: rcv_error_pkg.set_token('SYS_VALUE', l_rsl_uom);
17331: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'UNIT_OF_MEASURE',FALSE);
17332: RETURN;
17325: asn_debug.put_line('Error: Partial receipt not allowed');
17326: x_cascaded_table(n).error_status := 'E';
17327: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE', x_cascaded_table(n).error_message);
17328: rcv_error_pkg.set_token('COLUMN', 'UNIT_OF_MEASURE');
17329: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).unit_of_measure);
17330: rcv_error_pkg.set_token('SYS_VALUE', l_rsl_uom);
17331: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'UNIT_OF_MEASURE',FALSE);
17332: RETURN;
17333: --
17326: x_cascaded_table(n).error_status := 'E';
17327: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE', x_cascaded_table(n).error_message);
17328: rcv_error_pkg.set_token('COLUMN', 'UNIT_OF_MEASURE');
17329: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).unit_of_measure);
17330: rcv_error_pkg.set_token('SYS_VALUE', l_rsl_uom);
17331: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'UNIT_OF_MEASURE',FALSE);
17332: RETURN;
17333: --
17334: END IF;
17327: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE', x_cascaded_table(n).error_message);
17328: rcv_error_pkg.set_token('COLUMN', 'UNIT_OF_MEASURE');
17329: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).unit_of_measure);
17330: rcv_error_pkg.set_token('SYS_VALUE', l_rsl_uom);
17331: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'UNIT_OF_MEASURE',FALSE);
17332: RETURN;
17333: --
17334: END IF;
17335: -- Bug 7607281
17340: asn_debug.put_line('l_sec_rsl_qty => ' || l_sec_rsl_qty, null, 14);
17341: asn_debug.put_line('x_cascaded_table(n).secondary_quantity => ' || x_cascaded_table(n).secondary_quantity, null, 14);
17342: asn_debug.put_line('Error: Partial receipt not allowed');
17343: x_cascaded_table(n).error_status := 'E';
17344: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE', x_cascaded_table(n).error_message);
17345: rcv_error_pkg.set_token('COLUMN', 'SECONDARY_QUANTITY');
17346: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).secondary_quantity);
17347: rcv_error_pkg.set_token('SYS_VALUE', l_sec_rsl_qty);
17348: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'SECONDARY_QUANTITY',FALSE);
17341: asn_debug.put_line('x_cascaded_table(n).secondary_quantity => ' || x_cascaded_table(n).secondary_quantity, null, 14);
17342: asn_debug.put_line('Error: Partial receipt not allowed');
17343: x_cascaded_table(n).error_status := 'E';
17344: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE', x_cascaded_table(n).error_message);
17345: rcv_error_pkg.set_token('COLUMN', 'SECONDARY_QUANTITY');
17346: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).secondary_quantity);
17347: rcv_error_pkg.set_token('SYS_VALUE', l_sec_rsl_qty);
17348: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'SECONDARY_QUANTITY',FALSE);
17349: RETURN;
17342: asn_debug.put_line('Error: Partial receipt not allowed');
17343: x_cascaded_table(n).error_status := 'E';
17344: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE', x_cascaded_table(n).error_message);
17345: rcv_error_pkg.set_token('COLUMN', 'SECONDARY_QUANTITY');
17346: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).secondary_quantity);
17347: rcv_error_pkg.set_token('SYS_VALUE', l_sec_rsl_qty);
17348: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'SECONDARY_QUANTITY',FALSE);
17349: RETURN;
17350: --
17343: x_cascaded_table(n).error_status := 'E';
17344: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE', x_cascaded_table(n).error_message);
17345: rcv_error_pkg.set_token('COLUMN', 'SECONDARY_QUANTITY');
17346: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).secondary_quantity);
17347: rcv_error_pkg.set_token('SYS_VALUE', l_sec_rsl_qty);
17348: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'SECONDARY_QUANTITY',FALSE);
17349: RETURN;
17350: --
17351: END IF;
17344: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE', x_cascaded_table(n).error_message);
17345: rcv_error_pkg.set_token('COLUMN', 'SECONDARY_QUANTITY');
17346: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).secondary_quantity);
17347: rcv_error_pkg.set_token('SYS_VALUE', l_sec_rsl_qty);
17348: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'SECONDARY_QUANTITY',FALSE);
17349: RETURN;
17350: --
17351: END IF;
17352: --
17356: asn_debug.put_line('l_sec_rsl_uom => ' || l_sec_rsl_uom, null, 14);
17357: asn_debug.put_line('x_cascaded_table(n).secondary_unit_of_measure => ' || x_cascaded_table(n).secondary_unit_of_measure, null, 14);
17358: asn_debug.put_line('Error: Partial receipt not allowed');
17359: x_cascaded_table(n).error_status := 'E';
17360: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE', x_cascaded_table(n).error_message);
17361: rcv_error_pkg.set_token('COLUMN', 'SECONDARY_UNIT_OF_MEASURE');
17362: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).secondary_unit_of_measure);
17363: rcv_error_pkg.set_token('SYS_VALUE', l_sec_rsl_uom);
17364: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'SECONDARY_UNIT_OF_MEASURE',FALSE);
17357: asn_debug.put_line('x_cascaded_table(n).secondary_unit_of_measure => ' || x_cascaded_table(n).secondary_unit_of_measure, null, 14);
17358: asn_debug.put_line('Error: Partial receipt not allowed');
17359: x_cascaded_table(n).error_status := 'E';
17360: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE', x_cascaded_table(n).error_message);
17361: rcv_error_pkg.set_token('COLUMN', 'SECONDARY_UNIT_OF_MEASURE');
17362: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).secondary_unit_of_measure);
17363: rcv_error_pkg.set_token('SYS_VALUE', l_sec_rsl_uom);
17364: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'SECONDARY_UNIT_OF_MEASURE',FALSE);
17365: RETURN;
17358: asn_debug.put_line('Error: Partial receipt not allowed');
17359: x_cascaded_table(n).error_status := 'E';
17360: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE', x_cascaded_table(n).error_message);
17361: rcv_error_pkg.set_token('COLUMN', 'SECONDARY_UNIT_OF_MEASURE');
17362: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).secondary_unit_of_measure);
17363: rcv_error_pkg.set_token('SYS_VALUE', l_sec_rsl_uom);
17364: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'SECONDARY_UNIT_OF_MEASURE',FALSE);
17365: RETURN;
17366: --
17359: x_cascaded_table(n).error_status := 'E';
17360: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE', x_cascaded_table(n).error_message);
17361: rcv_error_pkg.set_token('COLUMN', 'SECONDARY_UNIT_OF_MEASURE');
17362: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).secondary_unit_of_measure);
17363: rcv_error_pkg.set_token('SYS_VALUE', l_sec_rsl_uom);
17364: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'SECONDARY_UNIT_OF_MEASURE',FALSE);
17365: RETURN;
17366: --
17367: END IF;
17360: rcv_error_pkg.set_error_message('RCV_INVALID_ROI_VALUE', x_cascaded_table(n).error_message);
17361: rcv_error_pkg.set_token('COLUMN', 'SECONDARY_UNIT_OF_MEASURE');
17362: rcv_error_pkg.set_token('ROI_VALUE', x_cascaded_table(n).secondary_unit_of_measure);
17363: rcv_error_pkg.set_token('SYS_VALUE', l_sec_rsl_uom);
17364: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'SECONDARY_UNIT_OF_MEASURE',FALSE);
17365: RETURN;
17366: --
17367: END IF;
17368: END IF;
17409: END IF;
17410:
17411: IF (x_currency_code IS NULL) THEN
17412: x_cascaded_table(n).error_status := 'E';
17413: rcv_error_pkg.set_error_message('RCV_LCM_CURRENCY_CODE_NULL', x_cascaded_table(n).error_message);
17414: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'SECONDARY_UNIT_OF_MEASURE',FALSE);
17415: RETURN;
17416: ELSIF (x_currency_conversion_type IS NULL) THEN
17417: x_cascaded_table(n).error_status := 'E';
17410:
17411: IF (x_currency_code IS NULL) THEN
17412: x_cascaded_table(n).error_status := 'E';
17413: rcv_error_pkg.set_error_message('RCV_LCM_CURRENCY_CODE_NULL', x_cascaded_table(n).error_message);
17414: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'SECONDARY_UNIT_OF_MEASURE',FALSE);
17415: RETURN;
17416: ELSIF (x_currency_conversion_type IS NULL) THEN
17417: x_cascaded_table(n).error_status := 'E';
17418: rcv_error_pkg.set_error_message('RCV_LCM_CURRENCY_TYPE_NULL', x_cascaded_table(n).error_message);
17414: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'SECONDARY_UNIT_OF_MEASURE',FALSE);
17415: RETURN;
17416: ELSIF (x_currency_conversion_type IS NULL) THEN
17417: x_cascaded_table(n).error_status := 'E';
17418: rcv_error_pkg.set_error_message('RCV_LCM_CURRENCY_TYPE_NULL', x_cascaded_table(n).error_message);
17419: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'SECONDARY_UNIT_OF_MEASURE',FALSE);
17420: RETURN;
17421: ELSIF (x_currency_conversion_rate IS NULL) THEN
17422: x_cascaded_table(n).error_status := 'E';
17415: RETURN;
17416: ELSIF (x_currency_conversion_type IS NULL) THEN
17417: x_cascaded_table(n).error_status := 'E';
17418: rcv_error_pkg.set_error_message('RCV_LCM_CURRENCY_TYPE_NULL', x_cascaded_table(n).error_message);
17419: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'SECONDARY_UNIT_OF_MEASURE',FALSE);
17420: RETURN;
17421: ELSIF (x_currency_conversion_rate IS NULL) THEN
17422: x_cascaded_table(n).error_status := 'E';
17423: rcv_error_pkg.set_error_message('RCV_LCM_CURRENCY_RATE_NULL', x_cascaded_table(n).error_message);
17419: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'SECONDARY_UNIT_OF_MEASURE',FALSE);
17420: RETURN;
17421: ELSIF (x_currency_conversion_rate IS NULL) THEN
17422: x_cascaded_table(n).error_status := 'E';
17423: rcv_error_pkg.set_error_message('RCV_LCM_CURRENCY_RATE_NULL', x_cascaded_table(n).error_message);
17424: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'SECONDARY_UNIT_OF_MEASURE',FALSE);
17425: RETURN;
17426: ELSIF (l_lcm_date IS NULL) THEN
17427: x_cascaded_table(n).error_status := 'E';
17420: RETURN;
17421: ELSIF (x_currency_conversion_rate IS NULL) THEN
17422: x_cascaded_table(n).error_status := 'E';
17423: rcv_error_pkg.set_error_message('RCV_LCM_CURRENCY_RATE_NULL', x_cascaded_table(n).error_message);
17424: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'SECONDARY_UNIT_OF_MEASURE',FALSE);
17425: RETURN;
17426: ELSIF (l_lcm_date IS NULL) THEN
17427: x_cascaded_table(n).error_status := 'E';
17428: rcv_error_pkg.set_error_message('RCV_LCM_CURRENCY_DATE_NULL', x_cascaded_table(n).error_message);
17424: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'SECONDARY_UNIT_OF_MEASURE',FALSE);
17425: RETURN;
17426: ELSIF (l_lcm_date IS NULL) THEN
17427: x_cascaded_table(n).error_status := 'E';
17428: rcv_error_pkg.set_error_message('RCV_LCM_CURRENCY_DATE_NULL', x_cascaded_table(n).error_message);
17429: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'SECONDARY_UNIT_OF_MEASURE',FALSE);
17430: RETURN;
17431: END IF;
17432:
17425: RETURN;
17426: ELSIF (l_lcm_date IS NULL) THEN
17427: x_cascaded_table(n).error_status := 'E';
17428: rcv_error_pkg.set_error_message('RCV_LCM_CURRENCY_DATE_NULL', x_cascaded_table(n).error_message);
17429: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'SECONDARY_UNIT_OF_MEASURE',FALSE);
17430: RETURN;
17431: END IF;
17432:
17433: x_cascaded_table(n).currency_code := x_currency_code;
17442: IF (x_asn_type = 'LCM') THEN
17443: --
17444: asn_debug.put_line('Error: Non-lcm shipment line cannot be attached to an LCM shipment');
17445: x_cascaded_table(n).error_status := 'E';
17446: rcv_error_pkg.set_error_message('RCV_INVALID_LCM_SHIPMENT', x_cascaded_table(n).error_message);
17447: rcv_error_pkg.set_token('SHIPMENT', x_header_record.header_record.shipment_num);
17448: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'PO_LINE_LOCATION_ID',FALSE);
17449: RETURN;
17450: --
17443: --
17444: asn_debug.put_line('Error: Non-lcm shipment line cannot be attached to an LCM shipment');
17445: x_cascaded_table(n).error_status := 'E';
17446: rcv_error_pkg.set_error_message('RCV_INVALID_LCM_SHIPMENT', x_cascaded_table(n).error_message);
17447: rcv_error_pkg.set_token('SHIPMENT', x_header_record.header_record.shipment_num);
17448: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'PO_LINE_LOCATION_ID',FALSE);
17449: RETURN;
17450: --
17451: END IF;
17444: asn_debug.put_line('Error: Non-lcm shipment line cannot be attached to an LCM shipment');
17445: x_cascaded_table(n).error_status := 'E';
17446: rcv_error_pkg.set_error_message('RCV_INVALID_LCM_SHIPMENT', x_cascaded_table(n).error_message);
17447: rcv_error_pkg.set_token('SHIPMENT', x_header_record.header_record.shipment_num);
17448: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'PO_LINE_LOCATION_ID',FALSE);
17449: RETURN;
17450: --
17451: END IF;
17452: IF (x_cascaded_table(n).lcm_shipment_line_id IS NOT NULL) THEN
17452: IF (x_cascaded_table(n).lcm_shipment_line_id IS NOT NULL) THEN
17453: --
17454: asn_debug.put_line('Error: lcm_shipment_line_id should be null for a non-lcm shipment');
17455: x_cascaded_table(n).error_status := 'E';
17456: rcv_error_pkg.set_error_message('PO_PDOI_COLUMN_NULL', x_cascaded_table(n).error_message);
17457: rcv_error_pkg.set_token('COLUMN_NAME', 'LCM_SHIPMENT_LINE_ID');
17458: rcv_error_pkg.set_token('VALUE', x_cascaded_table(n).lcm_shipment_line_id);
17459: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'LCM_SHIPMENT_LINE_ID',FALSE);
17460: RETURN;
17453: --
17454: asn_debug.put_line('Error: lcm_shipment_line_id should be null for a non-lcm shipment');
17455: x_cascaded_table(n).error_status := 'E';
17456: rcv_error_pkg.set_error_message('PO_PDOI_COLUMN_NULL', x_cascaded_table(n).error_message);
17457: rcv_error_pkg.set_token('COLUMN_NAME', 'LCM_SHIPMENT_LINE_ID');
17458: rcv_error_pkg.set_token('VALUE', x_cascaded_table(n).lcm_shipment_line_id);
17459: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'LCM_SHIPMENT_LINE_ID',FALSE);
17460: RETURN;
17461: --
17454: asn_debug.put_line('Error: lcm_shipment_line_id should be null for a non-lcm shipment');
17455: x_cascaded_table(n).error_status := 'E';
17456: rcv_error_pkg.set_error_message('PO_PDOI_COLUMN_NULL', x_cascaded_table(n).error_message);
17457: rcv_error_pkg.set_token('COLUMN_NAME', 'LCM_SHIPMENT_LINE_ID');
17458: rcv_error_pkg.set_token('VALUE', x_cascaded_table(n).lcm_shipment_line_id);
17459: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'LCM_SHIPMENT_LINE_ID',FALSE);
17460: RETURN;
17461: --
17462: END IF;
17455: x_cascaded_table(n).error_status := 'E';
17456: rcv_error_pkg.set_error_message('PO_PDOI_COLUMN_NULL', x_cascaded_table(n).error_message);
17457: rcv_error_pkg.set_token('COLUMN_NAME', 'LCM_SHIPMENT_LINE_ID');
17458: rcv_error_pkg.set_token('VALUE', x_cascaded_table(n).lcm_shipment_line_id);
17459: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'LCM_SHIPMENT_LINE_ID',FALSE);
17460: RETURN;
17461: --
17462: END IF;
17463:
17468: END IF;
17469:
17470: EXCEPTION
17471: WHEN OTHERS THEN
17472: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
17473: rcv_error_pkg.set_sql_error_message('validate_lcm_line' , '000');
17474: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
17475: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'LCM_SHIPMENT_LINE_ID',FALSE);
17476:
17469:
17470: EXCEPTION
17471: WHEN OTHERS THEN
17472: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
17473: rcv_error_pkg.set_sql_error_message('validate_lcm_line' , '000');
17474: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
17475: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'LCM_SHIPMENT_LINE_ID',FALSE);
17476:
17477: IF (g_asn_debug = 'Y') THEN
17470: EXCEPTION
17471: WHEN OTHERS THEN
17472: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
17473: rcv_error_pkg.set_sql_error_message('validate_lcm_line' , '000');
17474: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
17475: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'LCM_SHIPMENT_LINE_ID',FALSE);
17476:
17477: IF (g_asn_debug = 'Y') THEN
17478: asn_debug.put_line('Unexpected exception in validate_lcm_line: ' || SQLERRM);
17471: WHEN OTHERS THEN
17472: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
17473: rcv_error_pkg.set_sql_error_message('validate_lcm_line' , '000');
17474: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
17475: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'LCM_SHIPMENT_LINE_ID',FALSE);
17476:
17477: IF (g_asn_debug = 'Y') THEN
17478: asn_debug.put_line('Unexpected exception in validate_lcm_line: ' || SQLERRM);
17479: END IF;
17507: asn_debug.put_line('RTI l_count : ' || l_count);
17508: END IF;
17509:
17510: IF (l_count >0 ) then
17511: rcv_error_pkg.set_error_message('RCV_DUP_SRC_TRANSACTION');
17512: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).source_transaction_num);
17513: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
17514: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
17515: rcv_error_pkg.log_interface_error('SOURCE_TRANSACTION_NUM', FALSE);
17508: END IF;
17509:
17510: IF (l_count >0 ) then
17511: rcv_error_pkg.set_error_message('RCV_DUP_SRC_TRANSACTION');
17512: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).source_transaction_num);
17513: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
17514: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
17515: rcv_error_pkg.log_interface_error('SOURCE_TRANSACTION_NUM', FALSE);
17516: END IF;
17509:
17510: IF (l_count >0 ) then
17511: rcv_error_pkg.set_error_message('RCV_DUP_SRC_TRANSACTION');
17512: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).source_transaction_num);
17513: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
17514: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
17515: rcv_error_pkg.log_interface_error('SOURCE_TRANSACTION_NUM', FALSE);
17516: END IF;
17517: End IF;
17510: IF (l_count >0 ) then
17511: rcv_error_pkg.set_error_message('RCV_DUP_SRC_TRANSACTION');
17512: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).source_transaction_num);
17513: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
17514: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
17515: rcv_error_pkg.log_interface_error('SOURCE_TRANSACTION_NUM', FALSE);
17516: END IF;
17517: End IF;
17518: EXCEPTION
17511: rcv_error_pkg.set_error_message('RCV_DUP_SRC_TRANSACTION');
17512: rcv_error_pkg.set_token('VALUE',x_cascaded_table(n).source_transaction_num);
17513: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
17514: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
17515: rcv_error_pkg.log_interface_error('SOURCE_TRANSACTION_NUM', FALSE);
17516: END IF;
17517: End IF;
17518: EXCEPTION
17519: WHEN OTHERS then
17623: END IF;
17624:
17625: EXCEPTION
17626: WHEN OTHERS THEN
17627: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
17628: rcv_error_pkg.set_sql_error_message('get_clm_info', '000');
17629: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
17630: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
17631: 'po_line_location_id',
17624:
17625: EXCEPTION
17626: WHEN OTHERS THEN
17627: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
17628: rcv_error_pkg.set_sql_error_message('get_clm_info', '000');
17629: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
17630: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
17631: 'po_line_location_id',
17632: FALSE);
17625: EXCEPTION
17626: WHEN OTHERS THEN
17627: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
17628: rcv_error_pkg.set_sql_error_message('get_clm_info', '000');
17629: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
17630: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
17631: 'po_line_location_id',
17632: FALSE);
17633: IF (g_asn_debug = 'Y') THEN
17626: WHEN OTHERS THEN
17627: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
17628: rcv_error_pkg.set_sql_error_message('get_clm_info', '000');
17629: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
17630: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,
17631: 'po_line_location_id',
17632: FALSE);
17633: IF (g_asn_debug = 'Y') THEN
17634: asn_debug.put_line('Unexpected exception in get_clm_info: ' ||
17649: IF (x_cascaded_table(n).error_status NOT IN('S', 'W')) THEN
17650: RETURN;
17651: END IF;
17652:
17653: x_error_status := rcv_error_pkg.g_ret_sts_error;
17654: asn_debug.put_line('Before rcv_roi_transaction.validate_shipment_source');
17655: asn_debug.put_line('shipment_line_id: '||x_cascaded_table(n).shipment_line_id);
17656:
17657: IF x_cascaded_table(n).shipment_line_id IS NOT NULL THEN
17666: FROM mtl_material_transactions
17667: WHERE transaction_id = l_mmt_transaction_id;
17668:
17669: IF l_record_exists = 0 THEN
17670: rcv_error_pkg.set_error_message('RCV_INVALID_SHIPMENT_SOURCE');
17671: RAISE e_validation_error;
17672: END IF;
17673: END IF;
17674: END IF;
17673: END IF;
17674: END IF;
17675: asn_debug.put_line('after rcv_roi_transaction.validate_shipment_source');
17676: EXCEPTION
17677: WHEN rcv_error_pkg.e_fatal_error THEN
17678: NULL;
17679: WHEN e_validation_error THEN
17680: x_cascaded_table(n).error_status := x_error_status;
17681: x_cascaded_table(n).error_message:= rcv_error_pkg.get_last_message;
17677: WHEN rcv_error_pkg.e_fatal_error THEN
17678: NULL;
17679: WHEN e_validation_error THEN
17680: x_cascaded_table(n).error_status := x_error_status;
17681: x_cascaded_table(n).error_message:= rcv_error_pkg.get_last_message;
17682: rcv_error_pkg.set_token('MMT_TXN_ID', l_mmt_transaction_id);
17683: rcv_error_pkg.set_token('RSL_ID', x_cascaded_table(n).shipment_line_id);
17684: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'MMT_TRANSACTION_ID',FALSE);
17685: END validate_shipment_source;
17678: NULL;
17679: WHEN e_validation_error THEN
17680: x_cascaded_table(n).error_status := x_error_status;
17681: x_cascaded_table(n).error_message:= rcv_error_pkg.get_last_message;
17682: rcv_error_pkg.set_token('MMT_TXN_ID', l_mmt_transaction_id);
17683: rcv_error_pkg.set_token('RSL_ID', x_cascaded_table(n).shipment_line_id);
17684: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'MMT_TRANSACTION_ID',FALSE);
17685: END validate_shipment_source;
17686: -- Bug#9705269 :End
17679: WHEN e_validation_error THEN
17680: x_cascaded_table(n).error_status := x_error_status;
17681: x_cascaded_table(n).error_message:= rcv_error_pkg.get_last_message;
17682: rcv_error_pkg.set_token('MMT_TXN_ID', l_mmt_transaction_id);
17683: rcv_error_pkg.set_token('RSL_ID', x_cascaded_table(n).shipment_line_id);
17684: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'MMT_TRANSACTION_ID',FALSE);
17685: END validate_shipment_source;
17686: -- Bug#9705269 :End
17687:
17680: x_cascaded_table(n).error_status := x_error_status;
17681: x_cascaded_table(n).error_message:= rcv_error_pkg.get_last_message;
17682: rcv_error_pkg.set_token('MMT_TXN_ID', l_mmt_transaction_id);
17683: rcv_error_pkg.set_token('RSL_ID', x_cascaded_table(n).shipment_line_id);
17684: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status,'MMT_TRANSACTION_ID',FALSE);
17685: END validate_shipment_source;
17686: -- Bug#9705269 :End
17687:
17688: -- rtv project : start
17706: and rt.interface_source_line_id = wdd.delivery_detail_id
17707: and wdd.source_code ='RTV';
17708:
17709: IF ( l_count > 0 ) THEN
17710: rcv_error_pkg.set_error_message ('RCV_RTV_CORRECT_NOT_ALLOWED');
17711: rcv_error_pkg.set_token('RTV_PARENT', x_cascaded_table(n).PARENT_TRANSACTION_ID);
17712: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
17713: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
17714: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'PARENT_TRANSACTION_ID', FALSE );
17707: and wdd.source_code ='RTV';
17708:
17709: IF ( l_count > 0 ) THEN
17710: rcv_error_pkg.set_error_message ('RCV_RTV_CORRECT_NOT_ALLOWED');
17711: rcv_error_pkg.set_token('RTV_PARENT', x_cascaded_table(n).PARENT_TRANSACTION_ID);
17712: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
17713: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
17714: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'PARENT_TRANSACTION_ID', FALSE );
17715: END IF;
17708:
17709: IF ( l_count > 0 ) THEN
17710: rcv_error_pkg.set_error_message ('RCV_RTV_CORRECT_NOT_ALLOWED');
17711: rcv_error_pkg.set_token('RTV_PARENT', x_cascaded_table(n).PARENT_TRANSACTION_ID);
17712: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
17713: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
17714: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'PARENT_TRANSACTION_ID', FALSE );
17715: END IF;
17716: END IF;
17709: IF ( l_count > 0 ) THEN
17710: rcv_error_pkg.set_error_message ('RCV_RTV_CORRECT_NOT_ALLOWED');
17711: rcv_error_pkg.set_token('RTV_PARENT', x_cascaded_table(n).PARENT_TRANSACTION_ID);
17712: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
17713: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
17714: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'PARENT_TRANSACTION_ID', FALSE );
17715: END IF;
17716: END IF;
17717:
17710: rcv_error_pkg.set_error_message ('RCV_RTV_CORRECT_NOT_ALLOWED');
17711: rcv_error_pkg.set_token('RTV_PARENT', x_cascaded_table(n).PARENT_TRANSACTION_ID);
17712: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
17713: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
17714: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'PARENT_TRANSACTION_ID', FALSE );
17715: END IF;
17716: END IF;
17717:
17718: EXCEPTION
17716: END IF;
17717:
17718: EXCEPTION
17719: WHEN OTHERS THEN
17720: rcv_error_pkg.set_sql_error_message('validate_parent_rtv', '000');
17721: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
17722: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
17723: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
17724: END validate_parent_rtv;
17717:
17718: EXCEPTION
17719: WHEN OTHERS THEN
17720: rcv_error_pkg.set_sql_error_message('validate_parent_rtv', '000');
17721: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
17722: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
17723: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
17724: END validate_parent_rtv;
17725: -- rtv project: end
17718: EXCEPTION
17719: WHEN OTHERS THEN
17720: rcv_error_pkg.set_sql_error_message('validate_parent_rtv', '000');
17721: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
17722: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
17723: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
17724: END validate_parent_rtv;
17725: -- rtv project: end
17726:
17719: WHEN OTHERS THEN
17720: rcv_error_pkg.set_sql_error_message('validate_parent_rtv', '000');
17721: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
17722: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
17723: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID', FALSE);
17724: END validate_parent_rtv;
17725: -- rtv project: end
17726:
17727: END rcv_roi_transaction;