252: -- fnd_msg_pub.initialize;
253: l_progress := '20';
254:
255: -- Initialize API return status to success
256: x_return_status := fnd_api.g_ret_sts_success;
257: x_ret := 1;
258: l_progress := '30';
259:
260: l_lpn_id := p_lpn;
450: IF (l_txn_src_type_id = 5) THEN --WIP
451: l_mol_criteria_tb(l_line_id) := l_xdock_criterion_id;
452: END IF;
453:
454: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
455: FND_MESSAGE.SET_NAME('WMS','WMS_XDOK_SEARCH_ERROR' );
456: FND_MSG_PUB.ADD;
457: RAISE FND_API.g_exc_unexpected_error;
458:
453:
454: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
455: FND_MESSAGE.SET_NAME('WMS','WMS_XDOK_SEARCH_ERROR' );
456: FND_MSG_PUB.ADD;
457: RAISE FND_API.g_exc_unexpected_error;
458:
459: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
460: FND_MESSAGE.SET_NAME('WMS','WMS_XDOK_SEARCH_ERROR');
461: FND_MSG_PUB.ADD;
455: FND_MESSAGE.SET_NAME('WMS','WMS_XDOK_SEARCH_ERROR' );
456: FND_MSG_PUB.ADD;
457: RAISE FND_API.g_exc_unexpected_error;
458:
459: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
460: FND_MESSAGE.SET_NAME('WMS','WMS_XDOK_SEARCH_ERROR');
461: FND_MSG_PUB.ADD;
462: RAISE FND_API.g_exc_error;
463: END IF;
458:
459: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
460: FND_MESSAGE.SET_NAME('WMS','WMS_XDOK_SEARCH_ERROR');
461: FND_MSG_PUB.ADD;
462: RAISE FND_API.g_exc_error;
463: END IF;
464:
465: l_progress := '110';
466:
500: mydebug('l_msg_count = '||l_msg_count);
501: mydebug('l_msg_data = '||l_msg_data);
502: END IF;
503:
504: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
505: FND_MESSAGE.SET_NAME('WMS','WMS_OPP_XDOK_ERROR' );
506: FND_MSG_PUB.ADD;
507: RAISE FND_API.g_exc_unexpected_error;
508:
503:
504: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
505: FND_MESSAGE.SET_NAME('WMS','WMS_OPP_XDOK_ERROR' );
506: FND_MSG_PUB.ADD;
507: RAISE FND_API.g_exc_unexpected_error;
508:
509: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
510: FND_MESSAGE.SET_NAME('WMS','WMS_OPP_XDOK_ERROR');
511: FND_MSG_PUB.ADD;
505: FND_MESSAGE.SET_NAME('WMS','WMS_OPP_XDOK_ERROR' );
506: FND_MSG_PUB.ADD;
507: RAISE FND_API.g_exc_unexpected_error;
508:
509: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
510: FND_MESSAGE.SET_NAME('WMS','WMS_OPP_XDOK_ERROR');
511: FND_MSG_PUB.ADD;
512: RAISE FND_API.g_exc_error;
513: END IF;
508:
509: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
510: FND_MESSAGE.SET_NAME('WMS','WMS_OPP_XDOK_ERROR');
511: FND_MSG_PUB.ADD;
512: RAISE FND_API.g_exc_error;
513: END IF;
514:
515: l_progress := '120';
516:
697: ,x_dock_mean_time => l_dummy2
698: ,x_dock_end_time => l_dummy3
699: ,x_expected_time => l_expected_delivery_time);
700:
701: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
702: IF (l_debug = 1) THEN
703: mydebug('Unexpected error, skip this move order line.');
704: END IF;
705:
703: mydebug('Unexpected error, skip this move order line.');
704: END IF;
705:
706: GOTO loop_end;
707: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
708: IF (l_debug = 1) THEN
709: mydebug('Expected error, skip this move order line.');
710: END IF;
711:
832: mydebug('l_matched_entities.count = '||l_matched_entities.count);
833: END IF;
834:
835:
836: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
837: IF (l_debug = 1) THEN
838: mydebug('Unexpected error, skip this move order line.');
839: END IF;
840:
838: mydebug('Unexpected error, skip this move order line.');
839: END IF;
840:
841: GOTO loop_end;
842: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
843: IF (l_debug = 1) THEN
844: mydebug('Expected error, skip this move order line.');
845: END IF;
846:
879: mydebug('x_dock_end_time = '||l_matched_dock_end_time);
880: mydebug('x_expected_time = '||l_matched_expected_del_time);
881: END IF;
882:
883: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
884: IF (l_debug = 1) THEN
885: mydebug('Unexpected error, skip this Delivery.');
886: END IF;
887:
885: mydebug('Unexpected error, skip this Delivery.');
886: END IF;
887:
888: GOTO delivery_loop_end;
889: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
890: IF (l_debug = 1) THEN
891: mydebug('Expected error, skip this Delivery.');
892: END IF;
893:
970: wsh_delivery_details_grp.delivery_detail_action
971: (
972: -- Standard Parameters
973: p_api_version_number => 1.0,
974: p_init_msg_list => fnd_api.g_false,
975: p_commit => fnd_api.g_false,
976: x_return_status => l_return_status,
977: x_msg_count => l_msg_count,
978: x_msg_data => l_msg_data,
971: (
972: -- Standard Parameters
973: p_api_version_number => 1.0,
974: p_init_msg_list => fnd_api.g_false,
975: p_commit => fnd_api.g_false,
976: x_return_status => l_return_status,
977: x_msg_count => l_msg_count,
978: x_msg_data => l_msg_data,
979: -- Procedure specific Parameters
991: END IF;
992:
993:
994:
995: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
996: IF (l_debug = 1) THEN
997: mydebug('Unexpected error, skip this move order line.');
998: END IF;
999:
997: mydebug('Unexpected error, skip this move order line.');
998: END IF;
999:
1000: GOTO loop_end;
1001: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1002: IF (l_debug = 1) THEN
1003: mydebug('Expected error, skip this move order line.');
1004: END IF;
1005:
1044: mydebug('x_zone_id = ' || l_to_zone_id);
1045: mydebug('x_subinventory_code = ' || l_to_sub_code);
1046: END IF;
1047:
1048: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1049: IF (l_debug = 1) THEN
1050: mydebug('Unexpected error, skip this move order line.');
1051: END IF;
1052:
1050: mydebug('Unexpected error, skip this move order line.');
1051: END IF;
1052:
1053: GOTO loop_end;
1054: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1055: IF (l_debug = 1) THEN
1056: mydebug('Expected error, skip this move order line.');
1057: END IF;
1058:
1098: END IF;
1099:
1100:
1101: EXCEPTION
1102: WHEN FND_API.G_EXC_ERROR THEN
1103:
1104: IF (c_mol_opportunistic%ISOPEN) THEN
1105: CLOSE c_mol_opportunistic;
1106: END IF;
1109: CLOSE c_mol_opp_and_planned;
1110: END IF;
1111:
1112: ROLLBACK TO check_crossdock_sp;
1113: x_return_status := fnd_api.g_ret_sts_error;
1114: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1115: p_data => x_msg_data);
1116: IF (l_debug = 1) THEN
1117: mydebug('Exiting check_crossdock - Execution error: ' ||
1125:
1126: END IF;
1127:
1128: -- TODO: check cursor close
1129: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1130:
1131: IF (c_mol_opportunistic%ISOPEN) THEN
1132: CLOSE c_mol_opportunistic;
1133: END IF;
1136: CLOSE c_mol_opp_and_planned;
1137: END IF;
1138:
1139: ROLLBACK TO check_crossdock_sp;
1140: x_return_status := fnd_api.g_ret_sts_unexp_error;
1141: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1142: p_data => x_msg_data);
1143: IF (l_debug = 1) THEN
1144: mydebug('Exiting Opportunistic_Cross_Dock - Unexpected error: ' ||
1161: CLOSE c_mol_opp_and_planned;
1162: END IF;
1163:
1164: ROLLBACK TO check_crossdock_sp;
1165: x_return_status := fnd_api.g_ret_sts_unexp_error;
1166: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1167: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1168: END IF;
1169: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1289:
1290: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1291: BEGIN
1292:
1293: l_return_status:= FND_API.G_RET_STS_SUCCESS;
1294:
1295: -- patchset J change to set the local variable with the patch level
1296:
1297: IF (l_debug = 1) THEN
1303: -- l_del_id:=p_del_id;
1304: -- l_mo_line_id:=p_mo_line_id;
1305: --l_item_id:=p_item_id;
1306:
1307: l_return_status:=fnd_api.g_ret_sts_success;
1308: IF (l_debug = 1) THEN
1309: mydebug('Check if crossdock is necessary..');
1310: END IF;
1311:
1438: END IF;
1439: IF l_mso_header_id IS NULL THEN
1440: FND_MESSAGE.SET_NAME('INV','INV_COULD_NOT_GET_MSO_HEADER');
1441: FND_MSG_PUB.Add;
1442: RAISE fnd_api.g_exc_unexpected_error;
1443: END IF;
1444: IF (l_debug = 1) THEN
1445: mydebug('Get Dem src');
1446: END IF;
1491:
1492: -- Call query reservation
1493: inv_reservation_pub.query_reservation
1494: (p_api_version_number => 1.0,
1495: p_init_msg_lst => fnd_api.g_false,
1496: x_return_status => l_return_status,
1497: x_msg_count => l_msg_count,
1498: x_msg_data => l_msg_data,
1499: p_query_input => l_query_rsv_rec,
1496: x_return_status => l_return_status,
1497: x_msg_count => l_msg_count,
1498: x_msg_data => l_msg_data,
1499: p_query_input => l_query_rsv_rec,
1500: p_lock_records => fnd_api.g_true,
1501: p_sort_by_req_date => inv_reservation_global.g_query_req_date_asc,
1502: x_mtl_reservation_tbl => l_reservation_tbl,
1503: x_mtl_reservation_tbl_count => l_rsv_tbl_count,
1504: x_error_code => l_error_code);
1502: x_mtl_reservation_tbl => l_reservation_tbl,
1503: x_mtl_reservation_tbl_count => l_rsv_tbl_count,
1504: x_error_code => l_error_code);
1505:
1506: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
1507: x_msg_count := l_msg_count;
1508: x_msg_data := l_msg_data;
1509: x_return_status := l_return_status;
1510: IF (l_debug = 1) THEN
1511: mydebug('Error in Query Reservation');
1512: END IF;
1513: FND_MESSAGE.SET_NAME('INV','INV_QRY_RSV_FAILED');
1514: FND_MSG_PUB.Add;
1515: RAISE fnd_api.g_exc_unexpected_error;
1516: END IF;
1517:
1518:
1519: IF (l_rsv_tbl_count > 0) THEN
1554: l_update_rsv_rec.lpn_id := l_transfer_lpn_id;
1555:
1556: inv_reservation_pub.transfer_reservation
1557: (p_api_version_number => 1.0,
1558: p_init_msg_lst => fnd_api.g_false,
1559: x_return_status => l_return_status,
1560: x_msg_count => l_msg_count,
1561: x_msg_data => l_msg_data,
1562: p_is_transfer_supply => fnd_api.g_true,
1558: p_init_msg_lst => fnd_api.g_false,
1559: x_return_status => l_return_status,
1560: x_msg_count => l_msg_count,
1561: x_msg_data => l_msg_data,
1562: p_is_transfer_supply => fnd_api.g_true,
1563: p_original_rsv_rec => l_reservation_tbl(i),
1564: p_to_rsv_rec => l_update_rsv_rec,
1565: p_original_serial_number => l_dummy_sn,
1566: p_to_serial_number => l_dummy_sn,
1563: p_original_rsv_rec => l_reservation_tbl(i),
1564: p_to_rsv_rec => l_update_rsv_rec,
1565: p_original_serial_number => l_dummy_sn,
1566: p_to_serial_number => l_dummy_sn,
1567: p_validation_flag => fnd_api.g_true,
1568: x_to_reservation_id => l_org_wide_res_id);
1569:
1570: -- Return an error if the transfer reservation call failed
1571: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
1567: p_validation_flag => fnd_api.g_true,
1568: x_to_reservation_id => l_org_wide_res_id);
1569:
1570: -- Return an error if the transfer reservation call failed
1571: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
1572: IF (l_debug = 1) THEN
1573: mydebug('error in transfer reservation');
1574: END IF;
1575: FND_MESSAGE.SET_NAME('INV','INV_TRANSFER_RSV_FAILED');
1573: mydebug('error in transfer reservation');
1574: END IF;
1575: FND_MESSAGE.SET_NAME('INV','INV_TRANSFER_RSV_FAILED');
1576: FND_MSG_PUB.Add;
1577: RAISE fnd_api.g_exc_unexpected_error;
1578: END IF;
1579:
1580: IF (l_primary_temp_qty <= 0) THEN
1581: exit;
1654: inv_quantity_tree_pvt.clear_quantity_cache ;
1655: INV_Reservation_PUB.Create_Reservation
1656: (
1657: p_api_version_number => 1.0
1658: , p_init_msg_lst => fnd_api.g_false
1659: , x_return_status => l_api_return_status
1660: , x_msg_count => l_msg_cnt
1661: , x_msg_data => l_msg_data
1662: , p_rsv_rec => l_update_rsv_rec
1661: , x_msg_data => l_msg_data
1662: , p_rsv_rec => l_update_rsv_rec
1663: , p_serial_number => l_dummy_sn
1664: , x_serial_number => l_dummy_sn
1665: , p_partial_reservation_flag => fnd_api.g_true
1666: , p_force_reservation_flag => fnd_api.g_false
1667: , p_validation_flag => fnd_api.g_true
1668: , x_quantity_reserved => l_qty_succ_reserved
1669: , x_reservation_id => l_org_wide_res_id
1662: , p_rsv_rec => l_update_rsv_rec
1663: , p_serial_number => l_dummy_sn
1664: , x_serial_number => l_dummy_sn
1665: , p_partial_reservation_flag => fnd_api.g_true
1666: , p_force_reservation_flag => fnd_api.g_false
1667: , p_validation_flag => fnd_api.g_true
1668: , x_quantity_reserved => l_qty_succ_reserved
1669: , x_reservation_id => l_org_wide_res_id
1670: );
1663: , p_serial_number => l_dummy_sn
1664: , x_serial_number => l_dummy_sn
1665: , p_partial_reservation_flag => fnd_api.g_true
1666: , p_force_reservation_flag => fnd_api.g_false
1667: , p_validation_flag => fnd_api.g_true
1668: , x_quantity_reserved => l_qty_succ_reserved
1669: , x_reservation_id => l_org_wide_res_id
1670: );
1671:
1698: END IF;
1699:
1700:
1701: -- Return an error if the create reservation call failed
1702: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
1703: IF (l_debug = 1) THEN
1704: mydebug('error in create reservation');
1705: END IF;
1706: -- ROLLBACK TO Process_Line_PVT;
1705: END IF;
1706: -- ROLLBACK TO Process_Line_PVT;
1707: FND_MESSAGE.SET_NAME('WMS','WMS_TD_CR_RSV_ERROR');
1708: FND_MSG_PUB.Add;
1709: RAISE fnd_api.g_exc_unexpected_error;
1710: END IF;
1711: END IF;
1712:
1713:
1730:
1731: END IF; -- l_lpn_context
1732:
1733:
1734: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1735: FND_MESSAGE.SET_NAME('WMS','WMS_TD_UPD_RSV_ERROR' );
1736: FND_MSG_PUB.ADD;
1737: RAISE FND_API.g_exc_unexpected_error;
1738:
1733:
1734: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1735: FND_MESSAGE.SET_NAME('WMS','WMS_TD_UPD_RSV_ERROR' );
1736: FND_MSG_PUB.ADD;
1737: RAISE FND_API.g_exc_unexpected_error;
1738:
1739: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1740: FND_MESSAGE.SET_NAME('WMS','WMS_TD_UPD_RSV_ERROR');
1741: FND_MSG_PUB.ADD;
1735: FND_MESSAGE.SET_NAME('WMS','WMS_TD_UPD_RSV_ERROR' );
1736: FND_MSG_PUB.ADD;
1737: RAISE FND_API.g_exc_unexpected_error;
1738:
1739: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1740: FND_MESSAGE.SET_NAME('WMS','WMS_TD_UPD_RSV_ERROR');
1741: FND_MSG_PUB.ADD;
1742: RAISE FND_API.G_EXC_ERROR;
1743: END IF;
1738:
1739: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1740: FND_MESSAGE.SET_NAME('WMS','WMS_TD_UPD_RSV_ERROR');
1741: FND_MSG_PUB.ADD;
1742: RAISE FND_API.G_EXC_ERROR;
1743: END IF;
1744:
1745: IF (l_debug = 1) THEN
1746: mydebug('After calling API to update rsv as staged');
1830: IF (l_debug = 1) THEN
1831: mydebug('Number of serial number updated: ' || SQL%rowcount);
1832: END IF;
1833:
1834: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1835: FND_MESSAGE.SET_NAME('WMS','WMS_TD_UPD_SHP_ERROR' );
1836: FND_MSG_PUB.ADD;
1837: RAISE FND_API.g_exc_unexpected_error;
1838:
1833:
1834: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1835: FND_MESSAGE.SET_NAME('WMS','WMS_TD_UPD_SHP_ERROR' );
1836: FND_MSG_PUB.ADD;
1837: RAISE FND_API.g_exc_unexpected_error;
1838:
1839: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1840: FND_MESSAGE.SET_NAME('WMS','WMS_TD_UPD_SHP_ERROR');
1841: FND_MSG_PUB.ADD;
1835: FND_MESSAGE.SET_NAME('WMS','WMS_TD_UPD_SHP_ERROR' );
1836: FND_MSG_PUB.ADD;
1837: RAISE FND_API.g_exc_unexpected_error;
1838:
1839: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1840: FND_MESSAGE.SET_NAME('WMS','WMS_TD_UPD_SHP_ERROR');
1841: FND_MSG_PUB.ADD;
1842: RAISE FND_API.G_EXC_ERROR;
1843: END IF;
1838:
1839: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1840: FND_MESSAGE.SET_NAME('WMS','WMS_TD_UPD_SHP_ERROR');
1841: FND_MSG_PUB.ADD;
1842: RAISE FND_API.G_EXC_ERROR;
1843: END IF;
1844:
1845:
1846: END LOOP;
1892: IF (l_debug = 1) THEN
1893: mydebug('Number of serial number updated: ' || SQL%rowcount);
1894: END IF;
1895:
1896: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1897: FND_MESSAGE.SET_NAME('WMS','WMS_TD_UPD_SHP_ERROR' );
1898: FND_MSG_PUB.ADD;
1899: RAISE FND_API.g_exc_unexpected_error;
1900:
1895:
1896: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1897: FND_MESSAGE.SET_NAME('WMS','WMS_TD_UPD_SHP_ERROR' );
1898: FND_MSG_PUB.ADD;
1899: RAISE FND_API.g_exc_unexpected_error;
1900:
1901: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1902: FND_MESSAGE.SET_NAME('WMS','WMS_TD_UPD_SHP_ERROR');
1903: FND_MSG_PUB.ADD;
1897: FND_MESSAGE.SET_NAME('WMS','WMS_TD_UPD_SHP_ERROR' );
1898: FND_MSG_PUB.ADD;
1899: RAISE FND_API.g_exc_unexpected_error;
1900:
1901: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1902: FND_MESSAGE.SET_NAME('WMS','WMS_TD_UPD_SHP_ERROR');
1903: FND_MSG_PUB.ADD;
1904: RAISE FND_API.G_EXC_ERROR;
1905: END IF;
1900:
1901: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1902: FND_MESSAGE.SET_NAME('WMS','WMS_TD_UPD_SHP_ERROR');
1903: FND_MSG_PUB.ADD;
1904: RAISE FND_API.G_EXC_ERROR;
1905: END IF;
1906:
1907:
1908: END LOOP;
1960: IF (l_debug = 1) THEN
1961: mydebug('Number of serial number updated: ' || SQL%rowcount);
1962: END IF;
1963:
1964: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1965: FND_MESSAGE.SET_NAME('WMS','WMS_TD_UPD_SHP_ERROR' );
1966: FND_MSG_PUB.ADD;
1967: RAISE FND_API.g_exc_unexpected_error;
1968:
1963:
1964: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1965: FND_MESSAGE.SET_NAME('WMS','WMS_TD_UPD_SHP_ERROR' );
1966: FND_MSG_PUB.ADD;
1967: RAISE FND_API.g_exc_unexpected_error;
1968:
1969: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1970: FND_MESSAGE.SET_NAME('WMS','WMS_TD_UPD_SHP_ERROR');
1971: FND_MSG_PUB.ADD;
1965: FND_MESSAGE.SET_NAME('WMS','WMS_TD_UPD_SHP_ERROR' );
1966: FND_MSG_PUB.ADD;
1967: RAISE FND_API.g_exc_unexpected_error;
1968:
1969: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1970: FND_MESSAGE.SET_NAME('WMS','WMS_TD_UPD_SHP_ERROR');
1971: FND_MSG_PUB.ADD;
1972: RAISE FND_API.G_EXC_ERROR;
1973: END IF;
1968:
1969: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1970: FND_MESSAGE.SET_NAME('WMS','WMS_TD_UPD_SHP_ERROR');
1971: FND_MSG_PUB.ADD;
1972: RAISE FND_API.G_EXC_ERROR;
1973: END IF;
1974:
1975:
1976: IF (l_debug = 1) THEN
2020: IF (l_debug = 1) THEN
2021: mydebug('Number of serial number updated: ' || SQL%rowcount);
2022: END IF;
2023:
2024: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2025: FND_MESSAGE.SET_NAME('WMS','WMS_TD_UPD_SHP_ERROR' );
2026: FND_MSG_PUB.ADD;
2027: RAISE FND_API.g_exc_unexpected_error;
2028:
2023:
2024: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2025: FND_MESSAGE.SET_NAME('WMS','WMS_TD_UPD_SHP_ERROR' );
2026: FND_MSG_PUB.ADD;
2027: RAISE FND_API.g_exc_unexpected_error;
2028:
2029: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2030: FND_MESSAGE.SET_NAME('WMS','WMS_TD_UPD_SHP_ERROR');
2031: FND_MSG_PUB.ADD;
2025: FND_MESSAGE.SET_NAME('WMS','WMS_TD_UPD_SHP_ERROR' );
2026: FND_MSG_PUB.ADD;
2027: RAISE FND_API.g_exc_unexpected_error;
2028:
2029: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2030: FND_MESSAGE.SET_NAME('WMS','WMS_TD_UPD_SHP_ERROR');
2031: FND_MSG_PUB.ADD;
2032: RAISE FND_API.G_EXC_ERROR;
2033: END IF;
2028:
2029: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2030: FND_MESSAGE.SET_NAME('WMS','WMS_TD_UPD_SHP_ERROR');
2031: FND_MSG_PUB.ADD;
2032: RAISE FND_API.G_EXC_ERROR;
2033: END IF;
2034:
2035:
2036: IF (l_debug = 1) THEN
2100: IF (l_debug = 1) THEN
2101: mydebug('return status'|| l_return_status);
2102: END IF;
2103:
2104: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2105: FND_MESSAGE.SET_NAME('WMS','WMS_TD_UPD_SHP_ERROR' );
2106: FND_MSG_PUB.ADD;
2107: RAISE FND_API.g_exc_unexpected_error;
2108:
2103:
2104: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2105: FND_MESSAGE.SET_NAME('WMS','WMS_TD_UPD_SHP_ERROR' );
2106: FND_MSG_PUB.ADD;
2107: RAISE FND_API.g_exc_unexpected_error;
2108:
2109: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2110: FND_MESSAGE.SET_NAME('WMS','WMS_TD_UPD_SHP_ERROR');
2111: FND_MSG_PUB.ADD;
2105: FND_MESSAGE.SET_NAME('WMS','WMS_TD_UPD_SHP_ERROR' );
2106: FND_MSG_PUB.ADD;
2107: RAISE FND_API.g_exc_unexpected_error;
2108:
2109: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2110: FND_MESSAGE.SET_NAME('WMS','WMS_TD_UPD_SHP_ERROR');
2111: FND_MSG_PUB.ADD;
2112: RAISE FND_API.G_EXC_ERROR;
2113: END IF;
2108:
2109: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2110: FND_MESSAGE.SET_NAME('WMS','WMS_TD_UPD_SHP_ERROR');
2111: FND_MSG_PUB.ADD;
2112: RAISE FND_API.G_EXC_ERROR;
2113: END IF;
2114:
2115: IF (l_debug = 1) THEN
2116: mydebug('after update shipping attributes');
2131: EXCEPTION
2132: WHEN NO_DATA_FOUND THEN
2133: FND_MESSAGE.SET_NAME('WMS', 'WMS_TD_DEL_LPN_ERROR');
2134: FND_MSG_PUB.ADD;
2135: RAISE FND_API.G_EXC_ERROR;
2136: END;
2137:
2138: IF (l_debug = 1) THEN
2139: mydebug('Update LPN context to picked');
2211: mydebug('Call to WSH Delivery_Detail_Action to pack LPN heirarchy');
2212: END IF;
2213: WSH_WMS_LPN_GRP.Delivery_Detail_Action (
2214: p_api_version_number => 1.0
2215: , p_init_msg_list => fnd_api.g_false
2216: , p_commit => fnd_api.g_false
2217: , x_return_status => x_return_status
2218: , x_msg_count => x_msg_count
2219: , x_msg_data => x_msg_data
2212: END IF;
2213: WSH_WMS_LPN_GRP.Delivery_Detail_Action (
2214: p_api_version_number => 1.0
2215: , p_init_msg_list => fnd_api.g_false
2216: , p_commit => fnd_api.g_false
2217: , x_return_status => x_return_status
2218: , x_msg_count => x_msg_count
2219: , x_msg_data => x_msg_data
2220: , p_lpn_id_tbl => l_wsh_lpn_id_tbl
2222: , p_action_prms => l_wsh_action_prms
2223: , x_defaults => l_wsh_defaults
2224: , x_action_out_rec => l_wsh_action_out_rec );
2225:
2226: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
2227: IF (l_debug = 1) THEN
2228: mydebug('Delivery_Detail_Action failed');
2229: END IF;
2230: RAISE fnd_api.g_exc_error;
2226: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
2227: IF (l_debug = 1) THEN
2228: mydebug('Delivery_Detail_Action failed');
2229: END IF;
2230: RAISE fnd_api.g_exc_error;
2231: ELSIF (l_debug = 1) THEN
2232: mydebug('Done with call to WSH Create_Update_Containers');
2233: END IF;
2234: END IF;
2257: , p_transaction_id=>l_lpn_del_detail_id
2258: ) ;
2259:
2260:
2261: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2262: FND_MESSAGE.SET_NAME('INV','INV_RCV_CRT_PRINT_LAB_FAIL');
2263: FND_MSG_PUB.ADD;
2264: RAISE FND_API.g_exc_unexpected_error;
2265:
2260:
2261: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2262: FND_MESSAGE.SET_NAME('INV','INV_RCV_CRT_PRINT_LAB_FAIL');
2263: FND_MSG_PUB.ADD;
2264: RAISE FND_API.g_exc_unexpected_error;
2265:
2266: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2267: FND_MESSAGE.SET_NAME('INV','INV_RCV_CRT_PRINT_LAB_FAIL');
2268: FND_MSG_PUB.ADD;
2262: FND_MESSAGE.SET_NAME('INV','INV_RCV_CRT_PRINT_LAB_FAIL');
2263: FND_MSG_PUB.ADD;
2264: RAISE FND_API.g_exc_unexpected_error;
2265:
2266: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2267: FND_MESSAGE.SET_NAME('INV','INV_RCV_CRT_PRINT_LAB_FAIL');
2268: FND_MSG_PUB.ADD;
2269: l_return_status :=FND_API.g_ret_sts_success;
2270: END IF;
2265:
2266: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2267: FND_MESSAGE.SET_NAME('INV','INV_RCV_CRT_PRINT_LAB_FAIL');
2268: FND_MSG_PUB.ADD;
2269: l_return_status :=FND_API.g_ret_sts_success;
2270: END IF;
2271:
2272: x_return_status:=l_return_status;
2273:
2275: -- End of crossdock loop
2276: END IF;
2277:
2278: -- Bug 2465491 The API completes successfully so returns success
2279: x_return_status:= FND_API.g_ret_sts_success;
2280:
2281: EXCEPTION
2282: WHEN FND_API.G_EXC_ERROR THEN
2283: x_return_status := FND_API.G_RET_STS_ERROR;
2278: -- Bug 2465491 The API completes successfully so returns success
2279: x_return_status:= FND_API.g_ret_sts_success;
2280:
2281: EXCEPTION
2282: WHEN FND_API.G_EXC_ERROR THEN
2283: x_return_status := FND_API.G_RET_STS_ERROR;
2284: -- Get message count and data
2285: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
2286:
2279: x_return_status:= FND_API.g_ret_sts_success;
2280:
2281: EXCEPTION
2282: WHEN FND_API.G_EXC_ERROR THEN
2283: x_return_status := FND_API.G_RET_STS_ERROR;
2284: -- Get message count and data
2285: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
2286:
2287: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2283: x_return_status := FND_API.G_RET_STS_ERROR;
2284: -- Get message count and data
2285: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
2286:
2287: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2288: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2289: -- Get message count and data
2290: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
2291:
2284: -- Get message count and data
2285: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
2286:
2287: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2288: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2289: -- Get message count and data
2290: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
2291:
2292: WHEN OTHERS THEN
2289: -- Get message count and data
2290: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
2291:
2292: WHEN OTHERS THEN
2293: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2294: FND_MESSAGE.SET_NAME('WMS','WMS_TD_CCDOCK_ERROR' );
2295: FND_MSG_PUB.ADD;
2296: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
2297:
2337: IF (l_debug = 1) THEN
2338: mydebug('return status'||l_ret);
2339: END IF;
2340:
2341: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2342: FND_MESSAGE.SET_NAME('WMS','WMS_TD_UPD_SHP_ERROR' );
2343: FND_MSG_PUB.ADD;
2344: RAISE FND_API.g_exc_unexpected_error;
2345:
2340:
2341: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2342: FND_MESSAGE.SET_NAME('WMS','WMS_TD_UPD_SHP_ERROR' );
2343: FND_MSG_PUB.ADD;
2344: RAISE FND_API.g_exc_unexpected_error;
2345:
2346: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2347: FND_MESSAGE.SET_NAME('WMS','WMS_TD_UPD_SHP_ERROR');
2348: FND_MSG_PUB.ADD;
2342: FND_MESSAGE.SET_NAME('WMS','WMS_TD_UPD_SHP_ERROR' );
2343: FND_MSG_PUB.ADD;
2344: RAISE FND_API.g_exc_unexpected_error;
2345:
2346: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2347: FND_MESSAGE.SET_NAME('WMS','WMS_TD_UPD_SHP_ERROR');
2348: FND_MSG_PUB.ADD;
2349: RAISE FND_API.G_EXC_ERROR;
2350: END IF;
2345:
2346: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2347: FND_MESSAGE.SET_NAME('WMS','WMS_TD_UPD_SHP_ERROR');
2348: FND_MSG_PUB.ADD;
2349: RAISE FND_API.G_EXC_ERROR;
2350: END IF;
2351:
2352:
2353:
2354: x_ret:=l_ret;
2355: x_return_status:=l_return_status;
2356:
2357: EXCEPTION
2358: WHEN FND_API.G_EXC_ERROR THEN
2359: x_ret := FND_API.G_RET_STS_ERROR;
2360: x_return_status:=l_return_status;
2361: -- Get message count and data
2362: FND_MSG_PUB.Count_And_Get( p_count => l_msg_count, p_data => l_msg_data);
2355: x_return_status:=l_return_status;
2356:
2357: EXCEPTION
2358: WHEN FND_API.G_EXC_ERROR THEN
2359: x_ret := FND_API.G_RET_STS_ERROR;
2360: x_return_status:=l_return_status;
2361: -- Get message count and data
2362: FND_MSG_PUB.Count_And_Get( p_count => l_msg_count, p_data => l_msg_data);
2363:
2360: x_return_status:=l_return_status;
2361: -- Get message count and data
2362: FND_MSG_PUB.Count_And_Get( p_count => l_msg_count, p_data => l_msg_data);
2363:
2364: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2365: x_ret := FND_API.G_RET_STS_UNEXP_ERROR ;
2366: x_return_status:=l_return_status;
2367: -- Get message count and data
2368: FND_MSG_PUB.Count_And_Get( p_count => l_msg_count, p_data => l_msg_data);
2361: -- Get message count and data
2362: FND_MSG_PUB.Count_And_Get( p_count => l_msg_count, p_data => l_msg_data);
2363:
2364: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2365: x_ret := FND_API.G_RET_STS_UNEXP_ERROR ;
2366: x_return_status:=l_return_status;
2367: -- Get message count and data
2368: FND_MSG_PUB.Count_And_Get( p_count => l_msg_count, p_data => l_msg_data);
2369:
2367: -- Get message count and data
2368: FND_MSG_PUB.Count_And_Get( p_count => l_msg_count, p_data => l_msg_data);
2369:
2370: WHEN OTHERS THEN
2371: x_ret := FND_API.G_RET_STS_UNEXP_ERROR ;
2372: x_return_status:=l_return_status;
2373: FND_MESSAGE.SET_NAME('WMS','WMS_TD_MD_ERROR');
2374: FND_MSG_PUB.ADD;
2375: fnd_msg_pub.count_and_get
2394: mydebug('CANCEL_WIP_CROSSDOCK_TASK: Entering...');
2395: mydebug('CANCEL_WIP_CROSSDOCK_TASK: MMTT ID: '||p_transaction_temp_id);
2396: mydebug('CANCEL_WIP_CROSSDOCK_TASK: MOL ID: '||p_move_order_line_id);
2397:
2398: x_return_status := fnd_api.g_ret_sts_success;
2399:
2400: --Check to see if the task is loaded. If task is loaded and return an
2401: --error!!!
2402:
2411: l_wdt_status := 0;
2412: END;
2413:
2414: IF l_wdt_status = 4 THEN
2415: x_return_status := fnd_api.g_ret_sts_error;
2416: mydebug('Task is loaded... Cannot be canceled ...');
2417: RETURN;
2418: END IF;
2419:
2435: mydebug('CANCEL_WIP_CROSSDOCK_TASK: Exiting...: '||x_return_status);
2436: EXCEPTION
2437: WHEN OTHERS THEN
2438: mydebug('CANCEL_WIP_CROSSDOCK_TASK:ERROR! Unexpected Error:'||SQLCODE);
2439: x_return_status := fnd_api.g_ret_sts_unexp_error;
2440: fnd_msg_pub.count_and_get(p_count => x_msg_count
2441: , p_data => x_msg_data);
2442:
2443: END cancel_wip_crossdock_task;
2456: l_move_order_line_id NUMBER;
2457: l_backorder_delivery_detail_id NUMBER;
2458:
2459: BEGIN
2460: x_return_status := fnd_api.g_ret_sts_success;
2461:
2462: mydebug('CANCEL_CROSSDOCK_TASK: Enter...');
2463: mydebug('CANCEL_CROSSDOCK_TASK: MMTT ID: '||p_transaction_temp_id);
2464:
2484: mydebug('CANCEL_CROSSDOCK_TASK: BODDID: '||l_backorder_delivery_detail_id);
2485:
2486: IF l_backorder_delivery_detail_id IS NULL THEN
2487: mydebug('CANCEL_CROSSDOCK_TASK: ERROR! Not a Crossdock Task');
2488: RAISE fnd_api.g_exc_error;
2489: END IF;
2490:
2491: --Check the transaction source type.
2492: --If the transaction type is WIP then write a new api to take care of
2519:
2520: EXCEPTION
2521: WHEN no_data_found THEN
2522: mydebug('CANCEL_CROSSDOCK_TASK: ERROR! Invalid Transaction Temp ID: '||p_transaction_temp_id);
2523: x_return_status := fnd_api.g_ret_sts_error;
2524: fnd_msg_pub.count_and_get(p_count => x_msg_count
2525: , p_data => x_msg_data);
2526: WHEN fnd_api.g_exc_error THEN
2527: mydebug('CANCEL_CROSSDOCK_TASK: ERROR! Error raised by the API: '||SQLCODE);
2522: mydebug('CANCEL_CROSSDOCK_TASK: ERROR! Invalid Transaction Temp ID: '||p_transaction_temp_id);
2523: x_return_status := fnd_api.g_ret_sts_error;
2524: fnd_msg_pub.count_and_get(p_count => x_msg_count
2525: , p_data => x_msg_data);
2526: WHEN fnd_api.g_exc_error THEN
2527: mydebug('CANCEL_CROSSDOCK_TASK: ERROR! Error raised by the API: '||SQLCODE);
2528: x_return_status := fnd_api.g_ret_sts_error;
2529: fnd_msg_pub.count_and_get(p_count => x_msg_count
2530: , p_data => x_msg_data);
2524: fnd_msg_pub.count_and_get(p_count => x_msg_count
2525: , p_data => x_msg_data);
2526: WHEN fnd_api.g_exc_error THEN
2527: mydebug('CANCEL_CROSSDOCK_TASK: ERROR! Error raised by the API: '||SQLCODE);
2528: x_return_status := fnd_api.g_ret_sts_error;
2529: fnd_msg_pub.count_and_get(p_count => x_msg_count
2530: , p_data => x_msg_data);
2531: WHEN OTHERS THEN
2532: mydebug('CANCEL_CROSSDOCK_TASK: ERROR! Unexpected Error: '||SQLCODE);
2529: fnd_msg_pub.count_and_get(p_count => x_msg_count
2530: , p_data => x_msg_data);
2531: WHEN OTHERS THEN
2532: mydebug('CANCEL_CROSSDOCK_TASK: ERROR! Unexpected Error: '||SQLCODE);
2533: x_return_status := fnd_api.g_ret_sts_unexp_error;
2534: fnd_msg_pub.count_and_get(p_count => x_msg_count
2535: , p_data => x_msg_data);
2536:
2537: END cancel_crossdock_task;