170: IF (g_asn_debug = 'Y') THEN
171: asn_debug.put_line('quantity is <= zero. cascade will fail');
172: END IF;
173:
174: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
175: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
176: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
177: rcv_error_pkg.log_interface_error('QUANTITY');
178: END IF; --} end qty > 0 check
171: asn_debug.put_line('quantity is <= zero. cascade will fail');
172: END IF;
173:
174: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
175: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
176: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
177: rcv_error_pkg.log_interface_error('QUANTITY');
178: END IF; --} end qty > 0 check
179:
172: END IF;
173:
174: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
175: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
176: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
177: rcv_error_pkg.log_interface_error('QUANTITY');
178: END IF; --} end qty > 0 check
179:
180: x_progress := '098';
173:
174: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
175: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
176: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
177: rcv_error_pkg.log_interface_error('QUANTITY');
178: END IF; --} end qty > 0 check
179:
180: x_progress := '098';
181:
190: IF (g_asn_debug = 'Y') THEN
191: asn_debug.put_line('no shipment num/shipment header specified ');
192: END IF;
193:
194: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
195: rcv_error_pkg.set_error_message('RCV_IOT_NO_SHIP_INFO', x_cascaded_table(n).error_message);
196: rcv_error_pkg.set_token('SHIPMENT_NUM', x_cascaded_table(n).shipment_num);
197: rcv_error_pkg.log_interface_error('SHIPMENT_NUM');
198: END IF; -- } of (asn quantity_shipped was valid)
191: asn_debug.put_line('no shipment num/shipment header specified ');
192: END IF;
193:
194: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
195: rcv_error_pkg.set_error_message('RCV_IOT_NO_SHIP_INFO', x_cascaded_table(n).error_message);
196: rcv_error_pkg.set_token('SHIPMENT_NUM', x_cascaded_table(n).shipment_num);
197: rcv_error_pkg.log_interface_error('SHIPMENT_NUM');
198: END IF; -- } of (asn quantity_shipped was valid)
199:
192: END IF;
193:
194: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
195: rcv_error_pkg.set_error_message('RCV_IOT_NO_SHIP_INFO', x_cascaded_table(n).error_message);
196: rcv_error_pkg.set_token('SHIPMENT_NUM', x_cascaded_table(n).shipment_num);
197: rcv_error_pkg.log_interface_error('SHIPMENT_NUM');
198: END IF; -- } of (asn quantity_shipped was valid)
199:
200:
193:
194: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
195: rcv_error_pkg.set_error_message('RCV_IOT_NO_SHIP_INFO', x_cascaded_table(n).error_message);
196: rcv_error_pkg.set_token('SHIPMENT_NUM', x_cascaded_table(n).shipment_num);
197: rcv_error_pkg.log_interface_error('SHIPMENT_NUM');
198: END IF; -- } of (asn quantity_shipped was valid)
199:
200:
201: -- copy record from main table to temp table
236:
237: EXCEPTION
238: WHEN NO_DATA_FOUND
239: THEN
240: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
241: rcv_error_pkg.set_error_message('RCV_IOT_NO_SHIP_INFO', x_cascaded_table(n).error_message);
242: rcv_error_pkg.set_token('SHIPMENT_NUM', temp_cascaded_table(current_n).shipment_num);
243: rcv_error_pkg.log_interface_error('SHIPMENT_NUM');
244:
237: EXCEPTION
238: WHEN NO_DATA_FOUND
239: THEN
240: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
241: rcv_error_pkg.set_error_message('RCV_IOT_NO_SHIP_INFO', x_cascaded_table(n).error_message);
242: rcv_error_pkg.set_token('SHIPMENT_NUM', temp_cascaded_table(current_n).shipment_num);
243: rcv_error_pkg.log_interface_error('SHIPMENT_NUM');
244:
245: IF (g_asn_debug = 'Y') THEN
238: WHEN NO_DATA_FOUND
239: THEN
240: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
241: rcv_error_pkg.set_error_message('RCV_IOT_NO_SHIP_INFO', x_cascaded_table(n).error_message);
242: rcv_error_pkg.set_token('SHIPMENT_NUM', temp_cascaded_table(current_n).shipment_num);
243: rcv_error_pkg.log_interface_error('SHIPMENT_NUM');
244:
245: IF (g_asn_debug = 'Y') THEN
246: asn_debug.put_line(TO_CHAR(n));
239: THEN
240: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
241: rcv_error_pkg.set_error_message('RCV_IOT_NO_SHIP_INFO', x_cascaded_table(n).error_message);
242: rcv_error_pkg.set_token('SHIPMENT_NUM', temp_cascaded_table(current_n).shipment_num);
243: rcv_error_pkg.log_interface_error('SHIPMENT_NUM');
244:
245: IF (g_asn_debug = 'Y') THEN
246: asn_debug.put_line(TO_CHAR(n));
247: asn_debug.put_line('No shipment_header_id found for shipment_num = ' || temp_cascaded_table(current_n).shipment_num );
248: asn_debug.put_line('error ' || x_progress);
249: END IF;
250: WHEN OTHERS
251: THEN
252: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
253: rcv_error_pkg.set_sql_error_message('derive_int_org_rcv_line_qty', x_progress);
254: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
255: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID');
256:
249: END IF;
250: WHEN OTHERS
251: THEN
252: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
253: rcv_error_pkg.set_sql_error_message('derive_int_org_rcv_line_qty', x_progress);
254: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
255: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID');
256:
257: IF (g_asn_debug = 'Y') THEN
250: WHEN OTHERS
251: THEN
252: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
253: rcv_error_pkg.set_sql_error_message('derive_int_org_rcv_line_qty', x_progress);
254: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
255: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID');
256:
257: IF (g_asn_debug = 'Y') THEN
258: asn_debug.put_line(TO_CHAR(n));
251: THEN
252: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
253: rcv_error_pkg.set_sql_error_message('derive_int_org_rcv_line_qty', x_progress);
254: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
255: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID');
256:
257: IF (g_asn_debug = 'Y') THEN
258: asn_debug.put_line(TO_CHAR(n));
259: asn_debug.put_line('Error while selecting shipment_header_id for shipment_num = ' || temp_cascaded_table(current_n).shipment_num );
433: IF (g_asn_debug = 'Y') THEN
434: asn_debug.put_line('Need to insert a row into po_interface_errors for transfer');
435: END IF;
436:
437: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
438: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
439: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
440: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
441: rcv_error_pkg.log_interface_error('QUANTITY');
434: asn_debug.put_line('Need to insert a row into po_interface_errors for transfer');
435: END IF;
436:
437: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
438: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
439: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
440: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
441: rcv_error_pkg.log_interface_error('QUANTITY');
442: ELSE --}{ else for rows fetched = 0 OR x_first_trans = true
435: END IF;
436:
437: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
438: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
439: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
440: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
441: rcv_error_pkg.log_interface_error('QUANTITY');
442: ELSE --}{ else for rows fetched = 0 OR x_first_trans = true
443: IF rows_fetched = 0 THEN
436:
437: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
438: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
439: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
440: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
441: rcv_error_pkg.log_interface_error('QUANTITY');
442: ELSE --}{ else for rows fetched = 0 OR x_first_trans = true
443: IF rows_fetched = 0 THEN
444: IF (g_asn_debug = 'Y') THEN
437: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
438: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
439: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
440: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
441: rcv_error_pkg.log_interface_error('QUANTITY');
442: ELSE --}{ else for rows fetched = 0 OR x_first_trans = true
443: IF rows_fetched = 0 THEN
444: IF (g_asn_debug = 'Y') THEN
445: asn_debug.put_line('No rows were retrieved from cursor.');
460: temp_cascaded_table.DELETE(i);
461: END LOOP;
462: END IF;
463:
464: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
465: rcv_error_pkg.set_error_message('PO_CHNG_WRONG_DOC_TYPE', x_cascaded_table(n).error_message);
466: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID');
467: END IF; --} ends row fetched > 0 and not first transaction
468:
461: END LOOP;
462: END IF;
463:
464: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
465: rcv_error_pkg.set_error_message('PO_CHNG_WRONG_DOC_TYPE', x_cascaded_table(n).error_message);
466: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID');
467: END IF; --} ends row fetched > 0 and not first transaction
468:
469: -- all the rows in the temp cascaded table
462: END IF;
463:
464: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
465: rcv_error_pkg.set_error_message('PO_CHNG_WRONG_DOC_TYPE', x_cascaded_table(n).error_message);
466: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID');
467: END IF; --} ends row fetched > 0 and not first transaction
468:
469: -- all the rows in the temp cascaded table
470: -- will be deleted
849: IF (g_asn_debug = 'Y') THEN
850: asn_debug.put_line('exit derive_int_org_rcv_line_qty');
851: END IF;
852: EXCEPTION
853: WHEN rcv_error_pkg.e_fatal_error THEN
854: IF shipments%ISOPEN THEN
855: CLOSE shipments;
856: END IF;
857:
866: IF count_shipments%ISOPEN THEN
867: CLOSE count_shipments;
868: END IF;
869:
870: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
871: rcv_error_pkg.set_sql_error_message('derive_int_org_rcv_line_qty', x_progress);
872: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
873: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID');
874:
867: CLOSE count_shipments;
868: END IF;
869:
870: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
871: rcv_error_pkg.set_sql_error_message('derive_int_org_rcv_line_qty', x_progress);
872: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
873: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID');
874:
875: IF (g_asn_debug = 'Y') THEN
868: END IF;
869:
870: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
871: rcv_error_pkg.set_sql_error_message('derive_int_org_rcv_line_qty', x_progress);
872: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
873: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID');
874:
875: IF (g_asn_debug = 'Y') THEN
876: asn_debug.put_line(TO_CHAR(n));
869:
870: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
871: rcv_error_pkg.set_sql_error_message('derive_int_org_rcv_line_qty', x_progress);
872: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
873: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID');
874:
875: IF (g_asn_debug = 'Y') THEN
876: asn_debug.put_line(TO_CHAR(n));
877: asn_debug.put_line(SQLERRM);
1291: x_cascaded_table(n).lpn_id := x_cascaded_table(temp_index).transfer_lpn_id;
1292:
1293: --insert warning message into po_interface_errors
1294: IF (x_cascaded_table(n).lpn_id IS NOT NULL) THEN
1295: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
1296: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
1297: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
1298: rcv_error_pkg.log_interface_warning('LPN_ID');
1299: END IF;
1292:
1293: --insert warning message into po_interface_errors
1294: IF (x_cascaded_table(n).lpn_id IS NOT NULL) THEN
1295: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
1296: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
1297: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
1298: rcv_error_pkg.log_interface_warning('LPN_ID');
1299: END IF;
1300: END IF;
1293: --insert warning message into po_interface_errors
1294: IF (x_cascaded_table(n).lpn_id IS NOT NULL) THEN
1295: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
1296: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
1297: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
1298: rcv_error_pkg.log_interface_warning('LPN_ID');
1299: END IF;
1300: END IF;
1301:
1294: IF (x_cascaded_table(n).lpn_id IS NOT NULL) THEN
1295: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
1296: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
1297: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
1298: rcv_error_pkg.log_interface_warning('LPN_ID');
1299: END IF;
1300: END IF;
1301:
1302: IF (x_cascaded_table(n).location_id IS NULL) THEN
1382: x_cascaded_table(n).lpn_id := default_int_org_transfer_info.transfer_lpn_id;
1383:
1384: --insert warning message into po_interface_errors
1385: IF (x_cascaded_table(n).lpn_id IS NOT NULL) THEN
1386: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
1387: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
1388: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
1389: rcv_error_pkg.log_interface_warning('LPN_ID');
1390: END IF;
1383:
1384: --insert warning message into po_interface_errors
1385: IF (x_cascaded_table(n).lpn_id IS NOT NULL) THEN
1386: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
1387: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
1388: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
1389: rcv_error_pkg.log_interface_warning('LPN_ID');
1390: END IF;
1391: END IF;
1384: --insert warning message into po_interface_errors
1385: IF (x_cascaded_table(n).lpn_id IS NOT NULL) THEN
1386: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
1387: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
1388: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
1389: rcv_error_pkg.log_interface_warning('LPN_ID');
1390: END IF;
1391: END IF;
1392:
1385: IF (x_cascaded_table(n).lpn_id IS NOT NULL) THEN
1386: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
1387: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
1388: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
1389: rcv_error_pkg.log_interface_warning('LPN_ID');
1390: END IF;
1391: END IF;
1392:
1393: IF (x_cascaded_table(n).transaction_type = 'DELIVER') THEN --{
1629: IF (g_asn_debug = 'Y') THEN
1630: asn_debug.put_line('Quantity is <= zero. Cascade will fail');
1631: END IF;
1632:
1633: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1634: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
1635: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
1636: rcv_error_pkg.log_interface_error('QUANTITY');
1637: END IF; --} end qty > 0 check
1630: asn_debug.put_line('Quantity is <= zero. Cascade will fail');
1631: END IF;
1632:
1633: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1634: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
1635: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
1636: rcv_error_pkg.log_interface_error('QUANTITY');
1637: END IF; --} end qty > 0 check
1638:
1631: END IF;
1632:
1633: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1634: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
1635: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
1636: rcv_error_pkg.log_interface_error('QUANTITY');
1637: END IF; --} end qty > 0 check
1638:
1639: -- the following steps will create a set of rows linking the line_record with
1632:
1633: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1634: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
1635: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
1636: rcv_error_pkg.log_interface_error('QUANTITY');
1637: END IF; --} end qty > 0 check
1638:
1639: -- the following steps will create a set of rows linking the line_record with
1640: -- its corresponding po_line_location rows until the quantity value from
1651: IF (g_asn_debug = 'Y') THEN
1652: asn_debug.put_line('No parent transaction found ');
1653: END IF;
1654:
1655: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1656: rcv_error_pkg.set_error_message('RCV_NO_PARENT_TRANSACTION', x_cascaded_table(n).error_message);
1657: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID');
1658: END IF;
1659:
1652: asn_debug.put_line('No parent transaction found ');
1653: END IF;
1654:
1655: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1656: rcv_error_pkg.set_error_message('RCV_NO_PARENT_TRANSACTION', x_cascaded_table(n).error_message);
1657: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID');
1658: END IF;
1659:
1660: -- Copy record from main table to temp table
1653: END IF;
1654:
1655: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1656: rcv_error_pkg.set_error_message('RCV_NO_PARENT_TRANSACTION', x_cascaded_table(n).error_message);
1657: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID');
1658: END IF;
1659:
1660: -- Copy record from main table to temp table
1661: IF (g_asn_debug = 'Y') THEN
1840: temp_cascaded_table.DELETE(i);
1841: END LOOP;
1842: END IF;
1843:
1844: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1845: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
1846: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
1847: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
1848: rcv_error_pkg.log_interface_error('QUANTITY');
1841: END LOOP;
1842: END IF;
1843:
1844: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1845: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
1846: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
1847: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
1848: rcv_error_pkg.log_interface_error('QUANTITY');
1849: ELSE --}{ else for rows fetched = 0 OR x_first_trans = true
1842: END IF;
1843:
1844: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1845: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
1846: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
1847: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
1848: rcv_error_pkg.log_interface_error('QUANTITY');
1849: ELSE --}{ else for rows fetched = 0 OR x_first_trans = true
1850: IF rows_fetched = 0 THEN
1843:
1844: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1845: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
1846: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
1847: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
1848: rcv_error_pkg.log_interface_error('QUANTITY');
1849: ELSE --}{ else for rows fetched = 0 OR x_first_trans = true
1850: IF rows_fetched = 0 THEN
1851: IF (g_asn_debug = 'Y') THEN
1844: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1845: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
1846: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
1847: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
1848: rcv_error_pkg.log_interface_error('QUANTITY');
1849: ELSE --}{ else for rows fetched = 0 OR x_first_trans = true
1850: IF rows_fetched = 0 THEN
1851: IF (g_asn_debug = 'Y') THEN
1852: asn_debug.put_line('No rows were retrieved from cursor.');
1869: WHERE rt.transaction_id = temp_cascaded_table(current_n).parent_transaction_id
1870: AND rsup.rcv_transaction_id = rt.transaction_id;
1871:
1872: IF l_supply_code <> 'RECEIVING' THEN
1873: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
1874: ELSIF l_transaction_type = 'UNORDERED' THEN
1875: rcv_error_pkg.set_error_message('RCV_INVALID_TRANSACTION_TYPE', x_cascaded_table(n).error_message);
1876: END IF;
1877: ELSE
1871:
1872: IF l_supply_code <> 'RECEIVING' THEN
1873: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
1874: ELSIF l_transaction_type = 'UNORDERED' THEN
1875: rcv_error_pkg.set_error_message('RCV_INVALID_TRANSACTION_TYPE', x_cascaded_table(n).error_message);
1876: END IF;
1877: ELSE
1878: rcv_error_pkg.set_error_message('RCV_INVALID_TRANSACTION_TYPE', x_cascaded_table(n).error_message);
1879: END IF; --}
1874: ELSIF l_transaction_type = 'UNORDERED' THEN
1875: rcv_error_pkg.set_error_message('RCV_INVALID_TRANSACTION_TYPE', x_cascaded_table(n).error_message);
1876: END IF;
1877: ELSE
1878: rcv_error_pkg.set_error_message('RCV_INVALID_TRANSACTION_TYPE', x_cascaded_table(n).error_message);
1879: END IF; --}
1880:
1881:
1882: -- Delete the temp_cascaded_table just to be sure
1886: temp_cascaded_table.DELETE(i);
1887: END LOOP;
1888: END IF;
1889:
1890: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1891: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID');
1892: END IF; --} end else for rows fetched = 0 OR x_first_trans = true
1893: -- end x_remaining_qty > 0 => this is the last record
1894: ELSE -- }{
1887: END LOOP;
1888: END IF;
1889:
1890: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1891: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID');
1892: END IF; --} end else for rows fetched = 0 OR x_first_trans = true
1893: -- end x_remaining_qty > 0 => this is the last record
1894: ELSE -- }{
1895: IF (g_asn_debug = 'Y') THEN
2170: IF (g_asn_debug = 'Y') THEN
2171: asn_debug.put_line('Exit derive_trans_del_line_quantity');
2172: END IF;
2173: EXCEPTION
2174: WHEN rcv_error_pkg.e_fatal_error THEN
2175: IF int_org_transfer%ISOPEN THEN
2176: CLOSE int_org_transfer;
2177: END IF;
2178:
2187: IF int_org_transfer_rti%ISOPEN THEN
2188: CLOSE int_org_transfer_rti;
2189: END IF;
2190:
2191: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
2192: rcv_error_pkg.set_sql_error_message('derive_trans_del_line_quantity', x_progress);
2193: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
2194: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID');
2195:
2188: CLOSE int_org_transfer_rti;
2189: END IF;
2190:
2191: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
2192: rcv_error_pkg.set_sql_error_message('derive_trans_del_line_quantity', x_progress);
2193: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
2194: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID');
2195:
2196: IF (g_asn_debug = 'Y') THEN
2189: END IF;
2190:
2191: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
2192: rcv_error_pkg.set_sql_error_message('derive_trans_del_line_quantity', x_progress);
2193: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
2194: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID');
2195:
2196: IF (g_asn_debug = 'Y') THEN
2197: asn_debug.put_line(TO_CHAR(n));
2190:
2191: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
2192: rcv_error_pkg.set_sql_error_message('derive_trans_del_line_quantity', x_progress);
2193: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
2194: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID');
2195:
2196: IF (g_asn_debug = 'Y') THEN
2197: asn_debug.put_line(TO_CHAR(n));
2198: asn_debug.put_line(SQLERRM);
2427: IF (g_asn_debug = 'Y') THEN
2428: asn_debug.put_line('Quantity is <= zero. Cascade will fail');
2429: END IF;
2430:
2431: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2432: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
2433: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
2434: rcv_error_pkg.log_interface_error('QUANTITY');
2435: END IF; --} end qty > 0 check
2428: asn_debug.put_line('Quantity is <= zero. Cascade will fail');
2429: END IF;
2430:
2431: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2432: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
2433: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
2434: rcv_error_pkg.log_interface_error('QUANTITY');
2435: END IF; --} end qty > 0 check
2436:
2429: END IF;
2430:
2431: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2432: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
2433: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
2434: rcv_error_pkg.log_interface_error('QUANTITY');
2435: END IF; --} end qty > 0 check
2436:
2437: x_progress := '098';
2430:
2431: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2432: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
2433: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
2434: rcv_error_pkg.log_interface_error('QUANTITY');
2435: END IF; --} end qty > 0 check
2436:
2437: x_progress := '098';
2438:
2445: IF (g_asn_debug = 'Y') THEN
2446: asn_debug.put_line('No parent transaction found ');
2447: END IF;
2448:
2449: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2450: rcv_error_pkg.set_error_message('RCV_NO_PARENT_TRANSACTION', x_cascaded_table(n).error_message);
2451: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID');
2452: END IF;
2453:
2446: asn_debug.put_line('No parent transaction found ');
2447: END IF;
2448:
2449: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2450: rcv_error_pkg.set_error_message('RCV_NO_PARENT_TRANSACTION', x_cascaded_table(n).error_message);
2451: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID');
2452: END IF;
2453:
2454: -- Copy record from main table to temp table
2447: END IF;
2448:
2449: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2450: rcv_error_pkg.set_error_message('RCV_NO_PARENT_TRANSACTION', x_cascaded_table(n).error_message);
2451: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID');
2452: END IF;
2453:
2454: -- Copy record from main table to temp table
2455: IF (g_asn_debug = 'Y') THEN
2636: temp_cascaded_table.DELETE(i);
2637: END LOOP;
2638: END IF;
2639:
2640: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2641: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
2642: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
2643: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
2644: rcv_error_pkg.log_interface_error('QUANTITY');
2637: END LOOP;
2638: END IF;
2639:
2640: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2641: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
2642: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
2643: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
2644: rcv_error_pkg.log_interface_error('QUANTITY');
2645: END IF; --}ends check for a -ve correction
2638: END IF;
2639:
2640: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2641: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
2642: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
2643: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
2644: rcv_error_pkg.log_interface_error('QUANTITY');
2645: END IF; --}ends check for a -ve correction
2646: ELSE --}{ else for rows fetched = 0 OR x_first_trans = true
2639:
2640: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2641: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
2642: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
2643: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
2644: rcv_error_pkg.log_interface_error('QUANTITY');
2645: END IF; --}ends check for a -ve correction
2646: ELSE --}{ else for rows fetched = 0 OR x_first_trans = true
2647: IF rows_fetched = 0 THEN
2640: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2641: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
2642: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
2643: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
2644: rcv_error_pkg.log_interface_error('QUANTITY');
2645: END IF; --}ends check for a -ve correction
2646: ELSE --}{ else for rows fetched = 0 OR x_first_trans = true
2647: IF rows_fetched = 0 THEN
2648: IF (g_asn_debug = 'Y') THEN
2667: WHERE rt.transaction_id = temp_cascaded_table(current_n).parent_transaction_id
2668: AND rsup.rcv_transaction_id = rt.transaction_id;
2669:
2670: IF l_supply_code <> 'RECEIVING' THEN
2671: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
2672: ELSIF l_transaction_type = 'UNORDERED' THEN
2673: rcv_error_pkg.set_error_message('RCV_INVALID_TRANSACTION_TYPE', x_cascaded_table(n).error_message);
2674: END IF;
2675: ELSE
2669:
2670: IF l_supply_code <> 'RECEIVING' THEN
2671: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
2672: ELSIF l_transaction_type = 'UNORDERED' THEN
2673: rcv_error_pkg.set_error_message('RCV_INVALID_TRANSACTION_TYPE', x_cascaded_table(n).error_message);
2674: END IF;
2675: ELSE
2676: rcv_error_pkg.set_error_message('RCV_INVALID_TRANSACTION_TYPE', x_cascaded_table(n).error_message);
2677: END IF; --}
2672: ELSIF l_transaction_type = 'UNORDERED' THEN
2673: rcv_error_pkg.set_error_message('RCV_INVALID_TRANSACTION_TYPE', x_cascaded_table(n).error_message);
2674: END IF;
2675: ELSE
2676: rcv_error_pkg.set_error_message('RCV_INVALID_TRANSACTION_TYPE', x_cascaded_table(n).error_message);
2677: END IF; --}
2678:
2679: -- Delete the temp_cascaded_table just to be sure
2680:
2683: temp_cascaded_table.DELETE(i);
2684: END LOOP;
2685: END IF;
2686:
2687: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2688: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID');
2689: END IF; --} end else for rows fetched = 0 OR x_first_trans = true
2690: ELSE -- }{ this is the else for whether remaining qty is not 0
2691: IF (g_asn_debug = 'Y') THEN
2684: END LOOP;
2685: END IF;
2686:
2687: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2688: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID');
2689: END IF; --} end else for rows fetched = 0 OR x_first_trans = true
2690: ELSE -- }{ this is the else for whether remaining qty is not 0
2691: IF (g_asn_debug = 'Y') THEN
2692: asn_debug.put_line('Remaining UOM quantity is zero ' || TO_CHAR(x_remaining_quantity));
3003: IF (g_asn_debug = 'Y') THEN
3004: asn_debug.put_line('Exit explode_line_quantity');
3005: END IF;
3006: EXCEPTION
3007: WHEN rcv_error_pkg.e_fatal_error THEN
3008: IF int_org_cor_rt%ISOPEN THEN
3009: CLOSE int_org_cor_rt;
3010: END IF;
3011:
3020: IF int_org_cor_rti%ISOPEN THEN
3021: CLOSE int_org_cor_rti;
3022: END IF;
3023:
3024: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
3025: rcv_error_pkg.set_sql_error_message('derive_int_org_cor_line_qty', x_progress);
3026: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
3027: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID');
3028:
3021: CLOSE int_org_cor_rti;
3022: END IF;
3023:
3024: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
3025: rcv_error_pkg.set_sql_error_message('derive_int_org_cor_line_qty', x_progress);
3026: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
3027: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID');
3028:
3029: IF (g_asn_debug = 'Y') THEN
3022: END IF;
3023:
3024: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
3025: rcv_error_pkg.set_sql_error_message('derive_int_org_cor_line_qty', x_progress);
3026: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
3027: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID');
3028:
3029: IF (g_asn_debug = 'Y') THEN
3030: asn_debug.put_line(TO_CHAR(n));
3023:
3024: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
3025: rcv_error_pkg.set_sql_error_message('derive_int_org_cor_line_qty', x_progress);
3026: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
3027: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID');
3028:
3029: IF (g_asn_debug = 'Y') THEN
3030: asn_debug.put_line(TO_CHAR(n));
3031: asn_debug.put_line(SQLERRM);
3174: END IF;
3175:
3176: --insert warning message into po_interface_errors
3177: IF (lpn_error = 1) THEN
3178: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3179: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
3180: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
3181: rcv_error_pkg.log_interface_warning('LPN_ID');
3182: END IF;
3175:
3176: --insert warning message into po_interface_errors
3177: IF (lpn_error = 1) THEN
3178: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3179: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
3180: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
3181: rcv_error_pkg.log_interface_warning('LPN_ID');
3182: END IF;
3183: ELSE -- its a -ve correction
3176: --insert warning message into po_interface_errors
3177: IF (lpn_error = 1) THEN
3178: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3179: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
3180: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
3181: rcv_error_pkg.log_interface_warning('LPN_ID');
3182: END IF;
3183: ELSE -- its a -ve correction
3184: -- for -ve corrections :
3177: IF (lpn_error = 1) THEN
3178: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3179: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
3180: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
3181: rcv_error_pkg.log_interface_warning('LPN_ID');
3182: END IF;
3183: ELSE -- its a -ve correction
3184: -- for -ve corrections :
3185: -- we are defaulting the parent's from_lpn to child's to_lpn
3202: END IF;
3203:
3204: --insert warning message into po_interface_errors
3205: IF (lpn_error = 1) THEN
3206: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3207: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
3208: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
3209: rcv_error_pkg.log_interface_warning('LPN_ID');
3210: END IF;
3203:
3204: --insert warning message into po_interface_errors
3205: IF (lpn_error = 1) THEN
3206: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3207: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
3208: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
3209: rcv_error_pkg.log_interface_warning('LPN_ID');
3210: END IF;
3211: END IF;
3204: --insert warning message into po_interface_errors
3205: IF (lpn_error = 1) THEN
3206: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3207: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
3208: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
3209: rcv_error_pkg.log_interface_warning('LPN_ID');
3210: END IF;
3211: END IF;
3212:
3205: IF (lpn_error = 1) THEN
3206: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3207: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
3208: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
3209: rcv_error_pkg.log_interface_warning('LPN_ID');
3210: END IF;
3211: END IF;
3212:
3213: x_cascaded_table(n).location_id := x_cascaded_table(temp_index).location_id;
3312: END IF;
3313:
3314: --insert warning message into po_interface_errors
3315: IF (lpn_error = 1) THEN
3316: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3317: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
3318: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
3319: rcv_error_pkg.log_interface_warning('LPN_ID');
3320: END IF;
3313:
3314: --insert warning message into po_interface_errors
3315: IF (lpn_error = 1) THEN
3316: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3317: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
3318: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
3319: rcv_error_pkg.log_interface_warning('LPN_ID');
3320: END IF;
3321: ELSE -- its a -ve correction
3314: --insert warning message into po_interface_errors
3315: IF (lpn_error = 1) THEN
3316: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3317: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
3318: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
3319: rcv_error_pkg.log_interface_warning('LPN_ID');
3320: END IF;
3321: ELSE -- its a -ve correction
3322: -- for -ve corrections :
3315: IF (lpn_error = 1) THEN
3316: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3317: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
3318: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
3319: rcv_error_pkg.log_interface_warning('LPN_ID');
3320: END IF;
3321: ELSE -- its a -ve correction
3322: -- for -ve corrections :
3323: -- we are defaulting the parent's from_lpn to child's to_lpn
3340: END IF;
3341:
3342: --insert warning message into po_interface_errors
3343: IF (lpn_error = 1) THEN
3344: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3345: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
3346: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
3347: rcv_error_pkg.log_interface_warning('LPN_ID');
3348: END IF;
3341:
3342: --insert warning message into po_interface_errors
3343: IF (lpn_error = 1) THEN
3344: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3345: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
3346: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
3347: rcv_error_pkg.log_interface_warning('LPN_ID');
3348: END IF;
3349: END IF; --}
3342: --insert warning message into po_interface_errors
3343: IF (lpn_error = 1) THEN
3344: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3345: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
3346: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
3347: rcv_error_pkg.log_interface_warning('LPN_ID');
3348: END IF;
3349: END IF; --}
3350: END IF; -- if po_transfer%found is true }
3343: IF (lpn_error = 1) THEN
3344: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3345: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
3346: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
3347: rcv_error_pkg.log_interface_warning('LPN_ID');
3348: END IF;
3349: END IF; --}
3350: END IF; -- if po_transfer%found is true }
3351:
3411: IF (x_header_record.header_record.receipt_header_id IS NULL) THEN
3412: RETURN;
3413: END IF;
3414:
3415: x_error_status := rcv_error_pkg.g_ret_sts_error;
3416:
3417: IF (g_asn_debug = 'Y') THEN
3418: asn_debug.put_line('Validating ref integrity');
3419: END IF;
3444: IF (x_header_id = 0) THEN
3445: IF (g_asn_debug = 'Y') THEN
3446: asn_debug.put_line('No header id found. This shipment line does not belong to the same shipment as that of the header' );
3447: end if;
3448: rcv_error_pkg.set_error_message('RCV_INTORD_MISMATCH_SHIPMENTS');
3449: RAISE e_validation_error;
3450:
3451: else
3452: IF (g_asn_debug = 'Y') THEN
3457: end if;
3458: EXCEPTION
3459: WHEN e_validation_error THEN
3460: x_cascaded_table(n).error_status := x_error_status;
3461: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
3462:
3463: IF x_cascaded_table(n).error_message = 'RCV_INTORD_MISMATCH_SHIPMENTS' THEN
3464: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'SHIPMENT_HEADER_ID');
3465:
3460: x_cascaded_table(n).error_status := x_error_status;
3461: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
3462:
3463: IF x_cascaded_table(n).error_message = 'RCV_INTORD_MISMATCH_SHIPMENTS' THEN
3464: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'SHIPMENT_HEADER_ID');
3465:
3466: end if;
3467: END validate_ref_integrity;
3468: