178: IF (g_asn_debug = 'Y') THEN
179: asn_debug.put_line('quantity is <= zero. cascade will fail');
180: END IF;
181:
182: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
183: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
184: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
185: rcv_error_pkg.log_interface_error('QUANTITY');
186: END IF; --} end qty > 0 check
179: asn_debug.put_line('quantity is <= zero. cascade will fail');
180: END IF;
181:
182: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
183: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
184: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
185: rcv_error_pkg.log_interface_error('QUANTITY');
186: END IF; --} end qty > 0 check
187:
180: END IF;
181:
182: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
183: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
184: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
185: rcv_error_pkg.log_interface_error('QUANTITY');
186: END IF; --} end qty > 0 check
187:
188: x_progress := '098';
181:
182: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
183: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
184: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
185: rcv_error_pkg.log_interface_error('QUANTITY');
186: END IF; --} end qty > 0 check
187:
188: x_progress := '098';
189:
198: IF (g_asn_debug = 'Y') THEN
199: asn_debug.put_line('no shipment num/shipment header specified ');
200: END IF;
201:
202: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
203: rcv_error_pkg.set_error_message('RCV_IOT_NO_SHIP_INFO', x_cascaded_table(n).error_message);
204: rcv_error_pkg.set_token('SHIPMENT_NUM', x_cascaded_table(n).shipment_num);
205: rcv_error_pkg.log_interface_error('SHIPMENT_NUM');
206: END IF; -- } of (asn quantity_shipped was valid)
199: asn_debug.put_line('no shipment num/shipment header specified ');
200: END IF;
201:
202: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
203: rcv_error_pkg.set_error_message('RCV_IOT_NO_SHIP_INFO', x_cascaded_table(n).error_message);
204: rcv_error_pkg.set_token('SHIPMENT_NUM', x_cascaded_table(n).shipment_num);
205: rcv_error_pkg.log_interface_error('SHIPMENT_NUM');
206: END IF; -- } of (asn quantity_shipped was valid)
207:
200: END IF;
201:
202: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
203: rcv_error_pkg.set_error_message('RCV_IOT_NO_SHIP_INFO', x_cascaded_table(n).error_message);
204: rcv_error_pkg.set_token('SHIPMENT_NUM', x_cascaded_table(n).shipment_num);
205: rcv_error_pkg.log_interface_error('SHIPMENT_NUM');
206: END IF; -- } of (asn quantity_shipped was valid)
207:
208:
201:
202: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
203: rcv_error_pkg.set_error_message('RCV_IOT_NO_SHIP_INFO', x_cascaded_table(n).error_message);
204: rcv_error_pkg.set_token('SHIPMENT_NUM', x_cascaded_table(n).shipment_num);
205: rcv_error_pkg.log_interface_error('SHIPMENT_NUM');
206: END IF; -- } of (asn quantity_shipped was valid)
207:
208:
209: -- copy record from main table to temp table
244:
245: EXCEPTION
246: WHEN NO_DATA_FOUND
247: THEN
248: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
249: rcv_error_pkg.set_error_message('RCV_IOT_NO_SHIP_INFO', x_cascaded_table(n).error_message);
250: rcv_error_pkg.set_token('SHIPMENT_NUM', temp_cascaded_table(current_n).shipment_num);
251: rcv_error_pkg.log_interface_error('SHIPMENT_NUM');
252:
245: EXCEPTION
246: WHEN NO_DATA_FOUND
247: THEN
248: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
249: rcv_error_pkg.set_error_message('RCV_IOT_NO_SHIP_INFO', x_cascaded_table(n).error_message);
250: rcv_error_pkg.set_token('SHIPMENT_NUM', temp_cascaded_table(current_n).shipment_num);
251: rcv_error_pkg.log_interface_error('SHIPMENT_NUM');
252:
253: IF (g_asn_debug = 'Y') THEN
246: WHEN NO_DATA_FOUND
247: THEN
248: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
249: rcv_error_pkg.set_error_message('RCV_IOT_NO_SHIP_INFO', x_cascaded_table(n).error_message);
250: rcv_error_pkg.set_token('SHIPMENT_NUM', temp_cascaded_table(current_n).shipment_num);
251: rcv_error_pkg.log_interface_error('SHIPMENT_NUM');
252:
253: IF (g_asn_debug = 'Y') THEN
254: asn_debug.put_line(TO_CHAR(n));
247: THEN
248: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
249: rcv_error_pkg.set_error_message('RCV_IOT_NO_SHIP_INFO', x_cascaded_table(n).error_message);
250: rcv_error_pkg.set_token('SHIPMENT_NUM', temp_cascaded_table(current_n).shipment_num);
251: rcv_error_pkg.log_interface_error('SHIPMENT_NUM');
252:
253: IF (g_asn_debug = 'Y') THEN
254: asn_debug.put_line(TO_CHAR(n));
255: asn_debug.put_line('No shipment_header_id found for shipment_num = ' || temp_cascaded_table(current_n).shipment_num );
256: asn_debug.put_line('error ' || x_progress);
257: END IF;
258: WHEN OTHERS
259: THEN
260: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
261: rcv_error_pkg.set_sql_error_message('derive_int_org_rcv_line_qty', x_progress);
262: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
263: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID');
264:
257: END IF;
258: WHEN OTHERS
259: THEN
260: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
261: rcv_error_pkg.set_sql_error_message('derive_int_org_rcv_line_qty', x_progress);
262: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
263: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID');
264:
265: IF (g_asn_debug = 'Y') THEN
258: WHEN OTHERS
259: THEN
260: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
261: rcv_error_pkg.set_sql_error_message('derive_int_org_rcv_line_qty', x_progress);
262: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
263: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID');
264:
265: IF (g_asn_debug = 'Y') THEN
266: asn_debug.put_line(TO_CHAR(n));
259: THEN
260: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
261: rcv_error_pkg.set_sql_error_message('derive_int_org_rcv_line_qty', x_progress);
262: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
263: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID');
264:
265: IF (g_asn_debug = 'Y') THEN
266: asn_debug.put_line(TO_CHAR(n));
267: asn_debug.put_line('Error while selecting shipment_header_id for shipment_num = ' || temp_cascaded_table(current_n).shipment_num );
444: IF (g_asn_debug = 'Y') THEN
445: asn_debug.put_line('Need to insert a row into po_interface_errors for transfer');
446: END IF;
447:
448: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
449: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
450: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
451: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
452: rcv_error_pkg.log_interface_error('QUANTITY');
445: asn_debug.put_line('Need to insert a row into po_interface_errors for transfer');
446: END IF;
447:
448: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
449: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
450: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
451: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
452: rcv_error_pkg.log_interface_error('QUANTITY');
453: ELSE --}{ else for rows fetched = 0 OR x_first_trans = true
446: END IF;
447:
448: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
449: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
450: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
451: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
452: rcv_error_pkg.log_interface_error('QUANTITY');
453: ELSE --}{ else for rows fetched = 0 OR x_first_trans = true
454: IF rows_fetched = 0 THEN
447:
448: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
449: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
450: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
451: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
452: rcv_error_pkg.log_interface_error('QUANTITY');
453: ELSE --}{ else for rows fetched = 0 OR x_first_trans = true
454: IF rows_fetched = 0 THEN
455: IF (g_asn_debug = 'Y') THEN
448: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
449: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
450: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
451: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
452: rcv_error_pkg.log_interface_error('QUANTITY');
453: ELSE --}{ else for rows fetched = 0 OR x_first_trans = true
454: IF rows_fetched = 0 THEN
455: IF (g_asn_debug = 'Y') THEN
456: asn_debug.put_line('No rows were retrieved from cursor.');
471: temp_cascaded_table.DELETE(i);
472: END LOOP;
473: END IF;
474:
475: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
476: rcv_error_pkg.set_error_message('PO_CHNG_WRONG_DOC_TYPE', x_cascaded_table(n).error_message);
477: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID');
478: END IF; --} ends row fetched > 0 and not first transaction
479:
472: END LOOP;
473: END IF;
474:
475: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
476: rcv_error_pkg.set_error_message('PO_CHNG_WRONG_DOC_TYPE', x_cascaded_table(n).error_message);
477: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID');
478: END IF; --} ends row fetched > 0 and not first transaction
479:
480: -- all the rows in the temp cascaded table
473: END IF;
474:
475: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
476: rcv_error_pkg.set_error_message('PO_CHNG_WRONG_DOC_TYPE', x_cascaded_table(n).error_message);
477: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID');
478: END IF; --} ends row fetched > 0 and not first transaction
479:
480: -- all the rows in the temp cascaded table
481: -- will be deleted
882: IF (g_asn_debug = 'Y') THEN
883: asn_debug.put_line('exit derive_int_org_rcv_line_qty');
884: END IF;
885: EXCEPTION
886: WHEN rcv_error_pkg.e_fatal_error THEN
887: IF shipments%ISOPEN THEN
888: CLOSE shipments;
889: END IF;
890:
899: IF count_shipments%ISOPEN THEN
900: CLOSE count_shipments;
901: END IF;
902:
903: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
904: rcv_error_pkg.set_sql_error_message('derive_int_org_rcv_line_qty', x_progress);
905: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
906: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID');
907:
900: CLOSE count_shipments;
901: END IF;
902:
903: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
904: rcv_error_pkg.set_sql_error_message('derive_int_org_rcv_line_qty', x_progress);
905: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
906: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID');
907:
908: IF (g_asn_debug = 'Y') THEN
901: END IF;
902:
903: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
904: rcv_error_pkg.set_sql_error_message('derive_int_org_rcv_line_qty', x_progress);
905: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
906: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID');
907:
908: IF (g_asn_debug = 'Y') THEN
909: asn_debug.put_line(TO_CHAR(n));
902:
903: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
904: rcv_error_pkg.set_sql_error_message('derive_int_org_rcv_line_qty', x_progress);
905: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
906: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID');
907:
908: IF (g_asn_debug = 'Y') THEN
909: asn_debug.put_line(TO_CHAR(n));
910: asn_debug.put_line(SQLERRM);
1334: x_cascaded_table(n).lpn_id := x_cascaded_table(temp_index).transfer_lpn_id;
1335:
1336: --insert warning message into po_interface_errors
1337: IF (x_cascaded_table(n).lpn_id IS NOT NULL) THEN
1338: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
1339: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
1340: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
1341: rcv_error_pkg.log_interface_warning('LPN_ID');
1342: END IF;
1335:
1336: --insert warning message into po_interface_errors
1337: IF (x_cascaded_table(n).lpn_id IS NOT NULL) THEN
1338: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
1339: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
1340: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
1341: rcv_error_pkg.log_interface_warning('LPN_ID');
1342: END IF;
1343: END IF;
1336: --insert warning message into po_interface_errors
1337: IF (x_cascaded_table(n).lpn_id IS NOT NULL) THEN
1338: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
1339: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
1340: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
1341: rcv_error_pkg.log_interface_warning('LPN_ID');
1342: END IF;
1343: END IF;
1344:
1337: IF (x_cascaded_table(n).lpn_id IS NOT NULL) THEN
1338: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
1339: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
1340: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
1341: rcv_error_pkg.log_interface_warning('LPN_ID');
1342: END IF;
1343: END IF;
1344:
1345: IF (x_cascaded_table(n).location_id IS NULL) THEN
1425: x_cascaded_table(n).lpn_id := default_int_org_transfer_info.transfer_lpn_id;
1426:
1427: --insert warning message into po_interface_errors
1428: IF (x_cascaded_table(n).lpn_id IS NOT NULL) THEN
1429: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
1430: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
1431: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
1432: rcv_error_pkg.log_interface_warning('LPN_ID');
1433: END IF;
1426:
1427: --insert warning message into po_interface_errors
1428: IF (x_cascaded_table(n).lpn_id IS NOT NULL) THEN
1429: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
1430: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
1431: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
1432: rcv_error_pkg.log_interface_warning('LPN_ID');
1433: END IF;
1434: END IF;
1427: --insert warning message into po_interface_errors
1428: IF (x_cascaded_table(n).lpn_id IS NOT NULL) THEN
1429: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
1430: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
1431: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
1432: rcv_error_pkg.log_interface_warning('LPN_ID');
1433: END IF;
1434: END IF;
1435:
1428: IF (x_cascaded_table(n).lpn_id IS NOT NULL) THEN
1429: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
1430: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
1431: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
1432: rcv_error_pkg.log_interface_warning('LPN_ID');
1433: END IF;
1434: END IF;
1435:
1436: IF (x_cascaded_table(n).transaction_type = 'DELIVER') THEN --{
1676: IF (g_asn_debug = 'Y') THEN
1677: asn_debug.put_line('Quantity is <= zero. Cascade will fail');
1678: END IF;
1679:
1680: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1681: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
1682: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
1683: rcv_error_pkg.log_interface_error('QUANTITY');
1684: END IF; --} end qty > 0 check
1677: asn_debug.put_line('Quantity is <= zero. Cascade will fail');
1678: END IF;
1679:
1680: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1681: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
1682: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
1683: rcv_error_pkg.log_interface_error('QUANTITY');
1684: END IF; --} end qty > 0 check
1685:
1678: END IF;
1679:
1680: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1681: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
1682: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
1683: rcv_error_pkg.log_interface_error('QUANTITY');
1684: END IF; --} end qty > 0 check
1685:
1686: -- the following steps will create a set of rows linking the line_record with
1679:
1680: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1681: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
1682: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
1683: rcv_error_pkg.log_interface_error('QUANTITY');
1684: END IF; --} end qty > 0 check
1685:
1686: -- the following steps will create a set of rows linking the line_record with
1687: -- its corresponding po_line_location rows until the quantity value from
1698: IF (g_asn_debug = 'Y') THEN
1699: asn_debug.put_line('No parent transaction found ');
1700: END IF;
1701:
1702: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1703: rcv_error_pkg.set_error_message('RCV_NO_PARENT_TRANSACTION', x_cascaded_table(n).error_message);
1704: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID');
1705: END IF;
1706:
1699: asn_debug.put_line('No parent transaction found ');
1700: END IF;
1701:
1702: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1703: rcv_error_pkg.set_error_message('RCV_NO_PARENT_TRANSACTION', x_cascaded_table(n).error_message);
1704: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID');
1705: END IF;
1706:
1707: -- Copy record from main table to temp table
1700: END IF;
1701:
1702: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1703: rcv_error_pkg.set_error_message('RCV_NO_PARENT_TRANSACTION', x_cascaded_table(n).error_message);
1704: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID');
1705: END IF;
1706:
1707: -- Copy record from main table to temp table
1708: IF (g_asn_debug = 'Y') THEN
1887: temp_cascaded_table.DELETE(i);
1888: END LOOP;
1889: END IF;
1890:
1891: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1892: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
1893: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
1894: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
1895: rcv_error_pkg.log_interface_error('QUANTITY');
1888: END LOOP;
1889: END IF;
1890:
1891: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1892: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
1893: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
1894: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
1895: rcv_error_pkg.log_interface_error('QUANTITY');
1896: ELSE --}{ else for rows fetched = 0 OR x_first_trans = true
1889: END IF;
1890:
1891: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1892: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
1893: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
1894: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
1895: rcv_error_pkg.log_interface_error('QUANTITY');
1896: ELSE --}{ else for rows fetched = 0 OR x_first_trans = true
1897: IF rows_fetched = 0 THEN
1890:
1891: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1892: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
1893: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
1894: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
1895: rcv_error_pkg.log_interface_error('QUANTITY');
1896: ELSE --}{ else for rows fetched = 0 OR x_first_trans = true
1897: IF rows_fetched = 0 THEN
1898: IF (g_asn_debug = 'Y') THEN
1891: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1892: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
1893: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
1894: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
1895: rcv_error_pkg.log_interface_error('QUANTITY');
1896: ELSE --}{ else for rows fetched = 0 OR x_first_trans = true
1897: IF rows_fetched = 0 THEN
1898: IF (g_asn_debug = 'Y') THEN
1899: asn_debug.put_line('No rows were retrieved from cursor.');
1916: WHERE rt.transaction_id = temp_cascaded_table(current_n).parent_transaction_id
1917: AND rsup.rcv_transaction_id = rt.transaction_id;
1918:
1919: IF l_supply_code <> 'RECEIVING' THEN
1920: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
1921: ELSIF l_transaction_type = 'UNORDERED' THEN
1922: rcv_error_pkg.set_error_message('RCV_INVALID_TRANSACTION_TYPE', x_cascaded_table(n).error_message);
1923: END IF;
1924: ELSE
1918:
1919: IF l_supply_code <> 'RECEIVING' THEN
1920: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
1921: ELSIF l_transaction_type = 'UNORDERED' THEN
1922: rcv_error_pkg.set_error_message('RCV_INVALID_TRANSACTION_TYPE', x_cascaded_table(n).error_message);
1923: END IF;
1924: ELSE
1925: rcv_error_pkg.set_error_message('RCV_INVALID_TRANSACTION_TYPE', x_cascaded_table(n).error_message);
1926: END IF; --}
1921: ELSIF l_transaction_type = 'UNORDERED' THEN
1922: rcv_error_pkg.set_error_message('RCV_INVALID_TRANSACTION_TYPE', x_cascaded_table(n).error_message);
1923: END IF;
1924: ELSE
1925: rcv_error_pkg.set_error_message('RCV_INVALID_TRANSACTION_TYPE', x_cascaded_table(n).error_message);
1926: END IF; --}
1927:
1928:
1929: -- Delete the temp_cascaded_table just to be sure
1933: temp_cascaded_table.DELETE(i);
1934: END LOOP;
1935: END IF;
1936:
1937: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1938: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID');
1939: END IF; --} end else for rows fetched = 0 OR x_first_trans = true
1940: -- end x_remaining_qty > 0 => this is the last record
1941: ELSE -- }{
1934: END LOOP;
1935: END IF;
1936:
1937: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
1938: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID');
1939: END IF; --} end else for rows fetched = 0 OR x_first_trans = true
1940: -- end x_remaining_qty > 0 => this is the last record
1941: ELSE -- }{
1942: IF (g_asn_debug = 'Y') THEN
2245: IF (g_asn_debug = 'Y') THEN
2246: asn_debug.put_line('Exit derive_trans_del_line_quantity');
2247: END IF;
2248: EXCEPTION
2249: WHEN rcv_error_pkg.e_fatal_error THEN
2250: IF int_org_transfer%ISOPEN THEN
2251: CLOSE int_org_transfer;
2252: END IF;
2253:
2262: IF int_org_transfer_rti%ISOPEN THEN
2263: CLOSE int_org_transfer_rti;
2264: END IF;
2265:
2266: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
2267: rcv_error_pkg.set_sql_error_message('derive_trans_del_line_quantity', x_progress);
2268: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
2269: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID');
2270:
2263: CLOSE int_org_transfer_rti;
2264: END IF;
2265:
2266: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
2267: rcv_error_pkg.set_sql_error_message('derive_trans_del_line_quantity', x_progress);
2268: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
2269: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID');
2270:
2271: IF (g_asn_debug = 'Y') THEN
2264: END IF;
2265:
2266: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
2267: rcv_error_pkg.set_sql_error_message('derive_trans_del_line_quantity', x_progress);
2268: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
2269: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID');
2270:
2271: IF (g_asn_debug = 'Y') THEN
2272: asn_debug.put_line(TO_CHAR(n));
2265:
2266: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
2267: rcv_error_pkg.set_sql_error_message('derive_trans_del_line_quantity', x_progress);
2268: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
2269: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID');
2270:
2271: IF (g_asn_debug = 'Y') THEN
2272: asn_debug.put_line(TO_CHAR(n));
2273: asn_debug.put_line(SQLERRM);
2502: IF (g_asn_debug = 'Y') THEN
2503: asn_debug.put_line('Quantity is <= zero. Cascade will fail');
2504: END IF;
2505:
2506: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2507: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
2508: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
2509: rcv_error_pkg.log_interface_error('QUANTITY');
2510: END IF; --} end qty > 0 check
2503: asn_debug.put_line('Quantity is <= zero. Cascade will fail');
2504: END IF;
2505:
2506: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2507: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
2508: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
2509: rcv_error_pkg.log_interface_error('QUANTITY');
2510: END IF; --} end qty > 0 check
2511:
2504: END IF;
2505:
2506: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2507: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
2508: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
2509: rcv_error_pkg.log_interface_error('QUANTITY');
2510: END IF; --} end qty > 0 check
2511:
2512: x_progress := '098';
2505:
2506: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2507: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
2508: rcv_error_pkg.set_token('ITEM', x_cascaded_table(n).item_num);
2509: rcv_error_pkg.log_interface_error('QUANTITY');
2510: END IF; --} end qty > 0 check
2511:
2512: x_progress := '098';
2513:
2520: IF (g_asn_debug = 'Y') THEN
2521: asn_debug.put_line('No parent transaction found ');
2522: END IF;
2523:
2524: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2525: rcv_error_pkg.set_error_message('RCV_NO_PARENT_TRANSACTION', x_cascaded_table(n).error_message);
2526: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID');
2527: END IF;
2528:
2521: asn_debug.put_line('No parent transaction found ');
2522: END IF;
2523:
2524: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2525: rcv_error_pkg.set_error_message('RCV_NO_PARENT_TRANSACTION', x_cascaded_table(n).error_message);
2526: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID');
2527: END IF;
2528:
2529: -- Copy record from main table to temp table
2522: END IF;
2523:
2524: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2525: rcv_error_pkg.set_error_message('RCV_NO_PARENT_TRANSACTION', x_cascaded_table(n).error_message);
2526: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID');
2527: END IF;
2528:
2529: -- Copy record from main table to temp table
2530: IF (g_asn_debug = 'Y') THEN
2711: temp_cascaded_table.DELETE(i);
2712: END LOOP;
2713: END IF;
2714:
2715: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2716: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
2717: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
2718: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
2719: rcv_error_pkg.log_interface_error('QUANTITY');
2712: END LOOP;
2713: END IF;
2714:
2715: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2716: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
2717: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
2718: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
2719: rcv_error_pkg.log_interface_error('QUANTITY');
2720: END IF; --}ends check for a -ve correction
2713: END IF;
2714:
2715: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2716: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
2717: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
2718: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
2719: rcv_error_pkg.log_interface_error('QUANTITY');
2720: END IF; --}ends check for a -ve correction
2721: ELSE --}{ else for rows fetched = 0 OR x_first_trans = true
2714:
2715: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2716: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
2717: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
2718: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
2719: rcv_error_pkg.log_interface_error('QUANTITY');
2720: END IF; --}ends check for a -ve correction
2721: ELSE --}{ else for rows fetched = 0 OR x_first_trans = true
2722: IF rows_fetched = 0 THEN
2715: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2716: rcv_error_pkg.set_error_message('RCV_SHIP_QTY_OVER_TOLERANCE', x_cascaded_table(n).error_message);
2717: rcv_error_pkg.set_token('QTY_A', x_cascaded_table(n).quantity);
2718: rcv_error_pkg.set_token('QTY_B', x_cascaded_table(n).quantity - x_remaining_quantity);
2719: rcv_error_pkg.log_interface_error('QUANTITY');
2720: END IF; --}ends check for a -ve correction
2721: ELSE --}{ else for rows fetched = 0 OR x_first_trans = true
2722: IF rows_fetched = 0 THEN
2723: IF (g_asn_debug = 'Y') THEN
2742: WHERE rt.transaction_id = temp_cascaded_table(current_n).parent_transaction_id
2743: AND rsup.rcv_transaction_id = rt.transaction_id;
2744:
2745: IF l_supply_code <> 'RECEIVING' THEN
2746: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
2747: ELSIF l_transaction_type = 'UNORDERED' THEN
2748: rcv_error_pkg.set_error_message('RCV_INVALID_TRANSACTION_TYPE', x_cascaded_table(n).error_message);
2749: END IF;
2750: ELSE
2744:
2745: IF l_supply_code <> 'RECEIVING' THEN
2746: rcv_error_pkg.set_error_message('RCV_ITEM_NO_SHIP_QTY', x_cascaded_table(n).error_message);
2747: ELSIF l_transaction_type = 'UNORDERED' THEN
2748: rcv_error_pkg.set_error_message('RCV_INVALID_TRANSACTION_TYPE', x_cascaded_table(n).error_message);
2749: END IF;
2750: ELSE
2751: rcv_error_pkg.set_error_message('RCV_INVALID_TRANSACTION_TYPE', x_cascaded_table(n).error_message);
2752: END IF; --}
2747: ELSIF l_transaction_type = 'UNORDERED' THEN
2748: rcv_error_pkg.set_error_message('RCV_INVALID_TRANSACTION_TYPE', x_cascaded_table(n).error_message);
2749: END IF;
2750: ELSE
2751: rcv_error_pkg.set_error_message('RCV_INVALID_TRANSACTION_TYPE', x_cascaded_table(n).error_message);
2752: END IF; --}
2753:
2754: -- Delete the temp_cascaded_table just to be sure
2755:
2758: temp_cascaded_table.DELETE(i);
2759: END LOOP;
2760: END IF;
2761:
2762: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2763: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID');
2764: END IF; --} end else for rows fetched = 0 OR x_first_trans = true
2765: ELSE -- }{ this is the else for whether remaining qty is not 0
2766: IF (g_asn_debug = 'Y') THEN
2759: END LOOP;
2760: END IF;
2761:
2762: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_error;
2763: rcv_error_pkg.log_interface_error('PARENT_TRANSACTION_ID');
2764: END IF; --} end else for rows fetched = 0 OR x_first_trans = true
2765: ELSE -- }{ this is the else for whether remaining qty is not 0
2766: IF (g_asn_debug = 'Y') THEN
2767: asn_debug.put_line('Remaining UOM quantity is zero ' || TO_CHAR(x_remaining_quantity));
3078: IF (g_asn_debug = 'Y') THEN
3079: asn_debug.put_line('Exit explode_line_quantity');
3080: END IF;
3081: EXCEPTION
3082: WHEN rcv_error_pkg.e_fatal_error THEN
3083: IF int_org_cor_rt%ISOPEN THEN
3084: CLOSE int_org_cor_rt;
3085: END IF;
3086:
3095: IF int_org_cor_rti%ISOPEN THEN
3096: CLOSE int_org_cor_rti;
3097: END IF;
3098:
3099: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
3100: rcv_error_pkg.set_sql_error_message('derive_int_org_cor_line_qty', x_progress);
3101: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
3102: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID');
3103:
3096: CLOSE int_org_cor_rti;
3097: END IF;
3098:
3099: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
3100: rcv_error_pkg.set_sql_error_message('derive_int_org_cor_line_qty', x_progress);
3101: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
3102: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID');
3103:
3104: IF (g_asn_debug = 'Y') THEN
3097: END IF;
3098:
3099: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
3100: rcv_error_pkg.set_sql_error_message('derive_int_org_cor_line_qty', x_progress);
3101: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
3102: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID');
3103:
3104: IF (g_asn_debug = 'Y') THEN
3105: asn_debug.put_line(TO_CHAR(n));
3098:
3099: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_unexp_error;
3100: rcv_error_pkg.set_sql_error_message('derive_int_org_cor_line_qty', x_progress);
3101: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
3102: rcv_error_pkg.log_interface_error('INTERFACE_TRANSACTION_ID');
3103:
3104: IF (g_asn_debug = 'Y') THEN
3105: asn_debug.put_line(TO_CHAR(n));
3106: asn_debug.put_line(SQLERRM);
3249: END IF;
3250:
3251: --insert warning message into po_interface_errors
3252: IF (lpn_error = 1) THEN
3253: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3254: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
3255: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
3256: rcv_error_pkg.log_interface_warning('LPN_ID');
3257: END IF;
3250:
3251: --insert warning message into po_interface_errors
3252: IF (lpn_error = 1) THEN
3253: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3254: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
3255: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
3256: rcv_error_pkg.log_interface_warning('LPN_ID');
3257: END IF;
3258: ELSE -- its a -ve correction
3251: --insert warning message into po_interface_errors
3252: IF (lpn_error = 1) THEN
3253: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3254: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
3255: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
3256: rcv_error_pkg.log_interface_warning('LPN_ID');
3257: END IF;
3258: ELSE -- its a -ve correction
3259: -- for -ve corrections :
3252: IF (lpn_error = 1) THEN
3253: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3254: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
3255: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
3256: rcv_error_pkg.log_interface_warning('LPN_ID');
3257: END IF;
3258: ELSE -- its a -ve correction
3259: -- for -ve corrections :
3260: -- we are defaulting the parent's from_lpn to child's to_lpn
3277: END IF;
3278:
3279: --insert warning message into po_interface_errors
3280: IF (lpn_error = 1) THEN
3281: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3282: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
3283: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
3284: rcv_error_pkg.log_interface_warning('LPN_ID');
3285: END IF;
3278:
3279: --insert warning message into po_interface_errors
3280: IF (lpn_error = 1) THEN
3281: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3282: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
3283: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
3284: rcv_error_pkg.log_interface_warning('LPN_ID');
3285: END IF;
3286: END IF;
3279: --insert warning message into po_interface_errors
3280: IF (lpn_error = 1) THEN
3281: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3282: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
3283: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
3284: rcv_error_pkg.log_interface_warning('LPN_ID');
3285: END IF;
3286: END IF;
3287:
3280: IF (lpn_error = 1) THEN
3281: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3282: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
3283: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
3284: rcv_error_pkg.log_interface_warning('LPN_ID');
3285: END IF;
3286: END IF;
3287:
3288: x_cascaded_table(n).location_id := x_cascaded_table(temp_index).location_id;
3387: END IF;
3388:
3389: --insert warning message into po_interface_errors
3390: IF (lpn_error = 1) THEN
3391: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3392: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
3393: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
3394: rcv_error_pkg.log_interface_warning('LPN_ID');
3395: END IF;
3388:
3389: --insert warning message into po_interface_errors
3390: IF (lpn_error = 1) THEN
3391: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3392: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
3393: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
3394: rcv_error_pkg.log_interface_warning('LPN_ID');
3395: END IF;
3396: ELSE -- its a -ve correction
3389: --insert warning message into po_interface_errors
3390: IF (lpn_error = 1) THEN
3391: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3392: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
3393: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
3394: rcv_error_pkg.log_interface_warning('LPN_ID');
3395: END IF;
3396: ELSE -- its a -ve correction
3397: -- for -ve corrections :
3390: IF (lpn_error = 1) THEN
3391: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3392: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
3393: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
3394: rcv_error_pkg.log_interface_warning('LPN_ID');
3395: END IF;
3396: ELSE -- its a -ve correction
3397: -- for -ve corrections :
3398: -- we are defaulting the parent's from_lpn to child's to_lpn
3415: END IF;
3416:
3417: --insert warning message into po_interface_errors
3418: IF (lpn_error = 1) THEN
3419: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3420: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
3421: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
3422: rcv_error_pkg.log_interface_warning('LPN_ID');
3423: END IF;
3416:
3417: --insert warning message into po_interface_errors
3418: IF (lpn_error = 1) THEN
3419: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3420: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
3421: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
3422: rcv_error_pkg.log_interface_warning('LPN_ID');
3423: END IF;
3424: END IF; --}
3417: --insert warning message into po_interface_errors
3418: IF (lpn_error = 1) THEN
3419: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3420: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
3421: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
3422: rcv_error_pkg.log_interface_warning('LPN_ID');
3423: END IF;
3424: END IF; --}
3425: END IF; -- if po_transfer%found is true }
3418: IF (lpn_error = 1) THEN
3419: x_cascaded_table(n).error_status := rcv_error_pkg.g_ret_sts_warning;
3420: rcv_error_pkg.set_error_message('RCV_LPN_UNPACK_WARNING', x_cascaded_table(n).error_message);
3421: rcv_error_pkg.set_token('LPN_ID', x_cascaded_table(n).lpn_id);
3422: rcv_error_pkg.log_interface_warning('LPN_ID');
3423: END IF;
3424: END IF; --}
3425: END IF; -- if po_transfer%found is true }
3426:
3486: IF (x_header_record.header_record.receipt_header_id IS NULL) THEN
3487: RETURN;
3488: END IF;
3489:
3490: x_error_status := rcv_error_pkg.g_ret_sts_error;
3491:
3492: IF (g_asn_debug = 'Y') THEN
3493: asn_debug.put_line('Validating ref integrity');
3494: END IF;
3519: IF (x_header_id = 0) THEN
3520: IF (g_asn_debug = 'Y') THEN
3521: asn_debug.put_line('No header id found. This shipment line does not belong to the same shipment as that of the header' );
3522: end if;
3523: rcv_error_pkg.set_error_message('RCV_INTORD_MISMATCH_SHIPMENTS');
3524: RAISE e_validation_error;
3525:
3526: else
3527: IF (g_asn_debug = 'Y') THEN
3532: end if;
3533: EXCEPTION
3534: WHEN e_validation_error THEN
3535: x_cascaded_table(n).error_status := x_error_status;
3536: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
3537:
3538: IF x_cascaded_table(n).error_message = 'RCV_INTORD_MISMATCH_SHIPMENTS' THEN
3539: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'SHIPMENT_HEADER_ID');
3540:
3535: x_cascaded_table(n).error_status := x_error_status;
3536: x_cascaded_table(n).error_message := rcv_error_pkg.get_last_message;
3537:
3538: IF x_cascaded_table(n).error_message = 'RCV_INTORD_MISMATCH_SHIPMENTS' THEN
3539: rcv_error_pkg.log_interface_message(x_cascaded_table(n).error_status, 'SHIPMENT_HEADER_ID');
3540:
3541: end if;
3542: END validate_ref_integrity;
3543: