[Home] [Help]
1: PACKAGE BODY INV_Pick_Release_PUB AS
2: /* $Header: INVPPICB.pls 120.26 2008/01/13 03:25:28 satkumar ship $ */
3:
4: -- Global constant holding the package name
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'INV_Pick_Release_PUB';
1: PACKAGE BODY INV_Pick_Release_PUB AS
2: /* $Header: INVPPICB.pls 120.26 2008/01/13 03:25:28 satkumar ship $ */
3:
4: -- Global constant holding the package name
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'INV_Pick_Release_PUB';
6:
7: is_debug BOOLEAN := NULL;
8: all_del_det_bo_tbl WSH_INTERFACE.ChangedAttributeTabType;
9: g_org_grouping_rule_id NUMBER;
95:
96:
97: BEGIN
98: If is_debug Then
99: print_debug('Inside Store_smc_bo_details','INV_PICK_RELEASE_PUB');
100: print_debug('delivery detail'||back_order_det_tbl(1).delivery_detail_id,
101: 'INV_PICK_RELEASE_PUB');
102: End If;
103: x_return_status := fnd_api.g_ret_sts_success;
97: BEGIN
98: If is_debug Then
99: print_debug('Inside Store_smc_bo_details','INV_PICK_RELEASE_PUB');
100: print_debug('delivery detail'||back_order_det_tbl(1).delivery_detail_id,
101: 'INV_PICK_RELEASE_PUB');
102: End If;
103: x_return_status := fnd_api.g_ret_sts_success;
104:
105: if back_order_det_tbl.count >0 then
105: if back_order_det_tbl.count >0 then
106: l_delivery_detail_id :=back_order_det_tbl(1).delivery_detail_id;
107: If is_debug Then
108: print_debug('Delivery detail'||l_delivery_detail_id,
109: 'INV_PICK_RELEASE_PUB');
110: End If;
111: l_new_cycle_count_quantity :=back_order_det_tbl(1).cycle_count_quantity;
112:
113: end if;
122:
123: If is_debug Then
124: print_debug('New Cycle count Qty: '
125: ||all_del_det_bo_tbl(l_delivery_detail_id).cycle_count_quantity
126: ,'INV_PICK_RELEASE_PUB');
127: End If;
128: EXCEPTION
129: WHEN FND_API.G_EXC_ERROR THEN
130: --
130: --
131: x_return_status := FND_API.G_RET_STS_ERROR;
132: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
133: if is_debug then
134: print_debug(SQLERRM,'INV_PICK_RELEASE_PUB');
135: end if;
136: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
137: WHEN OTHERS THEN
138: if is_debug then
135: end if;
136: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
137: WHEN OTHERS THEN
138: if is_debug then
139: print_debug(SQLERRM,'INV_PICK_RELEASE_PUB');
140: end if;
141: ROLLBACK TO Pick_Release_PUB;
142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
143: END;
181: all_del_det_bo_tbl(l_del_index).subinventory ;
182: l_shipping_attr(1).locator_id :=all_del_det_bo_tbl(l_del_index).locator_id;
183:
184: if is_debug then
185: print_debug('Backordering SMC','INV_PICK_RELEASE_PUB');
186: print_debug('Delivery detail'|| l_shipping_attr(1).delivery_detail_id,
187: 'INV_PICK_RELEASE_PUB');
188: end if;
189:
183:
184: if is_debug then
185: print_debug('Backordering SMC','INV_PICK_RELEASE_PUB');
186: print_debug('Delivery detail'|| l_shipping_attr(1).delivery_detail_id,
187: 'INV_PICK_RELEASE_PUB');
188: end if;
189:
190: WSH_INTERFACE.Update_Shipping_Attributes
191: (p_source_code => 'INV',
195:
196: if( x_return_status = FND_API.G_RET_STS_ERROR ) then
197: if is_debug then
198: print_debug('return error from update shipping attributes',
199: 'Inv_Pick_Release_Pub.Pick_Release');
200: end if;
201: raise FND_API.G_EXC_ERROR;
202: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
203: if is_debug then
201: raise FND_API.G_EXC_ERROR;
202: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
203: if is_debug then
204: print_debug('return error from update shipping attributes',
205: 'Inv_Pick_Release_Pub.Pick_Release');
206: end if;
207: raise FND_API.G_EXC_UNEXPECTED_ERROR;
208: end if;
209:
674: l_trolin_delivery_ids WSH_UTIL_CORE.Id_Tab_Type;
675: l_del_detail_id WSH_PICK_LIST.DelDetTabTyp;
676:
677: BEGIN
678: INV_Pick_Release_Pub.Pick_Release
679: (
680: p_api_version => p_api_version
681: ,p_init_msg_list => p_init_msg_list
682: ,p_commit => p_commit
969: END IF;
970:
971: -- Set savepoint for this API
972: If is_debug then
973: print_debug('Inside Pick_Release', 'INV_Pick_Release_Pub.Pick_Release');
974: print_debug('p_dynamic_replenishment :'||p_dynamic_replenishment, 'INV_Pick_Release_Pub.Pick_Release');
975: End If;
976:
977: l_return_value := inv_cache.set_pick_release(TRUE); --Added for bug3237702
970:
971: -- Set savepoint for this API
972: If is_debug then
973: print_debug('Inside Pick_Release', 'INV_Pick_Release_Pub.Pick_Release');
974: print_debug('p_dynamic_replenishment :'||p_dynamic_replenishment, 'INV_Pick_Release_Pub.Pick_Release');
975: End If;
976:
977: l_return_value := inv_cache.set_pick_release(TRUE); --Added for bug3237702
978: inv_log_util.g_maintain_log_profile := TRUE; -- Bug 5558315 - duplication so no dependency btw inv_cache and inv_log
982: -- Standard Call to check for call compatibility
983: IF NOT fnd_api.Compatible_API_Call(l_api_version , p_api_version ,
984: l_api_name , G_PKG_NAME) THEN
985: If is_debug then
986: print_debug('Fnd_APi not compatible','INV_Pick_Release_Pub.Pick_Release');
987: End If;
988: RAISE fnd_api.g_exc_unexpected_error;
989: END IF;
990:
1003: -- any records
1004: l_mo_line_count := p_mo_line_tbl.COUNT;
1005: IF l_mo_line_count = 0 THEN
1006: If is_debug then
1007: print_debug('No Lines to pick', 'INV_Pick_Release_Pub.Pick_Release');
1008: End If;
1009:
1010: ROLLBACK TO Pick_Release_PUB;
1011: FND_MESSAGE.SET_NAME('INV','INV_NO_LINES_TO_PICK');
1045: -- Verify that the lines are all for the same organization
1046: IF l_mo_line.organization_id <> l_organization_id THEN
1047: If is_debug then
1048: print_debug('Error: Trying to pick for different org',
1049: 'INV_Pick_Release_Pub.Pick_Release');
1050: End If;
1051:
1052: ROLLBACK TO Pick_Release_PUB;
1053: FND_MESSAGE.SET_NAME('INV','INV_PICK_DIFFERENT_ORG');
1058: -- Verify that the line status is approved or pre-approved
1059: IF (l_mo_line.line_status <> 3 AND l_mo_line.line_status <> 7) THEN
1060: If is_debug then
1061: print_debug('Error: Invalid Move Order Line Status',
1062: 'INV_Pick_Release_Pub.Pick_Release');
1063: End If;
1064:
1065: ROLLBACK TO Pick_Release_PUB;
1066: FND_MESSAGE.SET_NAME('INV','INV_PICK_LINE_STATUS');
1073: l_return_value := INV_CACHE.set_mtrh_rec(l_mo_line.header_Id);
1074: If NOT l_return_value Then
1075: If is_debug then
1076: print_debug('Error setting cache for move order header ',
1077: 'INV_Pick_Release_Pub.Pick_Release');
1078: End If;
1079: RAISE fnd_api.g_exc_unexpected_error;
1080: End If;
1081: l_mo_type := INV_CACHE.mtrh_rec.move_order_type;
1085:
1086: IF l_mo_type <> 3 THEN
1087: If is_debug then
1088: print_debug('Error: Trying to release non pick wave move order',
1089: 'INV_Pick_Release_Pub.Pick_Release');
1090: End If;
1091:
1092: ROLLBACK TO Pick_Release_PUB;
1093: FND_MESSAGE.SET_NAME('INV','INV_NON_PICK_WAVE_MO');
1198: WHEN no_data_found THEN
1199: ROLLBACK TO Pick_Release_PUB;
1200: If is_debug then
1201: print_debug('No Item Info found',
1202: 'Inv_Pick_Release_Pub.Pick_Release');
1203: End If;
1204: RAISE fnd_api.g_exc_unexpected_error;
1205: END;
1206:
1284: WHEN others THEN
1285: l_OE_HEADER_ID :=-9999;
1286: If is_debug then
1287: print_debug('No data found-Delivery Info',
1288: 'Inv_Pick_Release_PUB.Pick_release');
1289: End If;
1290: --ROLLBACK TO Pick_Release_PUB;
1291: --FND_MESSAGE.SET_NAME('INV','INV_DELIV_INFO_MISSING');
1292: -- FND_MSG_PUB.Add;
1297: IF NOT l_return_value THEN
1298: l_mso_header_id :=-9999;
1299: If is_debug then
1300: print_debug('No Mtl_Sales_Order ID found for oe header',
1301: 'Inv_Pick_Release_PUB.Process_Line');
1302: End If;
1303: ELSE
1304: l_mso_header_id := INV_CACHE.mso_rec.sales_order_id;
1305: END IF;
1354:
1355: IF l_api_return_status = fnd_api.g_ret_sts_error THEN
1356: If is_debug then
1357: print_debug('Error from Create tree',
1358: 'Inv_pick_release_pub.Pick_release');
1359: End If;
1360: RAISE fnd_api.g_exc_error ;
1361: ELSIF l_api_return_status = fnd_api.g_ret_sts_unexp_error THEN
1362: If is_debug then
1360: RAISE fnd_api.g_exc_error ;
1361: ELSIF l_api_return_status = fnd_api.g_ret_sts_unexp_error THEN
1362: If is_debug then
1363: print_debug('Unexpected error from Create tree',
1364: 'Inv_pick_release_pub.Pick_release');
1365: End If;
1366: RAISE fnd_api.g_exc_unexpected_error;
1367: END IF;
1368:
1383: l_return_value := INV_CACHE.set_wms_installed(l_organization_id);
1384: If NOT l_return_value Then
1385: If is_debug then
1386: print_debug('Error setting cache for wms installed',
1387: 'INV_Pick_Release_Pub.Pick_Release');
1388: End If;
1389: RAISE fnd_api.g_exc_unexpected_error;
1390: End If;
1391: l_wms_installed := INV_CACHE.wms_installed;
1399: IF p_auto_pick_confirm IS NOT NULL THEN
1400: IF (p_auto_pick_confirm <> 1 AND p_auto_pick_confirm <> 2) THEN
1401: If is_debug then
1402: print_debug('Error: Invalid auto_pick_confirm flag',
1403: 'INV_Pick_Release_Pub.Pick_Release');
1404: End If;
1405: ROLLBACK TO Pick_Release_PUB;
1406: FND_MESSAGE.SET_NAME('INV','INV_AUTO_PICK_CONFIRM_PARAM');
1407: FND_MSG_PUB.Add;
1414: l_return_value := INV_CACHE.set_org_rec(l_organization_id);
1415: If NOT l_return_value Then
1416: If is_debug then
1417: print_debug('Error setting cache for organization',
1418: 'INV_Pick_Release_Pub.Pick_Release');
1419: End If;
1420: RAISE fnd_api.g_exc_unexpected_error;
1421: End If;
1422: l_auto_pick_confirm:= INV_CACHE.org_rec.mo_pick_confirm_required;
1438: EXCEPTION
1439: WHEN no_data_found THEN
1440: If is_debug then
1441: print_debug('Error: print_pick_slip_mode not defined',
1442: 'INV_Pick_Release_Pub.Pick_Release');
1443: End If;
1444: ROLLBACK TO Pick_Release_PUB;
1445: FND_MESSAGE.SET_NAME('INV','INV_WSH_ORG_NOT_FOUND');
1446: FND_MSG_PUB.Add;
1456: p_allow_partial_pick <> fnd_api.g_false THEN
1457:
1458: If is_debug then
1459: print_debug('Error: invalid partial pick parameter',
1460: 'INV_Pick_Release_Pub.Pick_Release');
1461: End If;
1462: ROLLBACK TO Pick_Release_PUB;
1463: FND_MESSAGE.SET_NAME('INV','INV_INVALID_PARTIAL_PICK_PARAM');
1464: FND_MSG_PUB.Add;
1466: END IF;
1467:
1468: If is_debug then
1469: print_debug('p_allow_partial_pick is ' || p_allow_partial_pick,
1470: 'Inv_Pick_Release_Pub.Pick_Release');
1471: End If;
1472:
1473: -- The Move Order Lines may need to have their grouping rule ID defaulted
1474: -- from the header. This is only necessary if the Grouping Rule ID was not
1495: (p_batch_id => NULL,
1496: p_request_number => INV_CACHE.mtrh_rec.request_number)) THEN
1497: IF (is_debug) THEN
1498: print_debug('Error setting cache for WSH picking batch record',
1499: 'INV_Pick_Release_Pub.Pick_Release');
1500: END IF;
1501: RAISE fnd_api.g_exc_unexpected_error;
1502: END IF;
1503: -- Set the allocation method variable
1510: -- crossdocked WDD lines so deliveries can be created for them.
1511: IF (p_del_detail_id.COUNT <> p_trolin_delivery_ids.COUNT) THEN
1512: IF (is_debug) THEN
1513: print_debug('Mismatch in size of input tables from Shipping for delivery creation',
1514: 'INV_Pick_Release_Pub.Pick_Release');
1515: END IF;
1516: RAISE fnd_api.g_exc_unexpected_error;
1517: END IF;
1518:
1540: l_line_index := p_wsh_release_table.FIRST;
1541: l_wdd_index_tbl.DELETE;
1542: IF (is_debug) THEN
1543: print_debug('Build the WDD index pointer table (Prioritize Inventory)',
1544: 'Inv_Pick_Release_Pub.Pick_Release');
1545: END IF;
1546: LOOP
1547: -- Store this WDD record into the WDD index pointer table
1548: l_wdd_index_tbl(p_wsh_release_table(l_line_index).delivery_detail_id) := l_line_index;
1565: l_return_value := INV_CACHE.set_mtrh_rec(l_mo_line.header_id);
1566: If NOT l_return_value Then
1567: If is_debug then
1568: print_debug('Error setting cache for move order header ',
1569: 'INV_Pick_Release_Pub.Pick_Release');
1570: End If;
1571: RAISE fnd_api.g_exc_unexpected_error;
1572: End If;
1573: l_grouping_rule_id := INV_CACHE.mtrh_rec.grouping_rule_id;
1590: EXCEPTION
1591: WHEN no_data_found THEN
1592: If is_debug then
1593: print_debug('Error finding org grouping rules',
1594: 'INV_Pick_Release_Pub.Pick_Release');
1595: End If;
1596: ROLLBACK TO Pick_Release_PUB;
1597: FND_MESSAGE.SET_NAME('INV','INV-NO ORG INFORMATION');
1598: FND_MSG_PUB.Add;
1623: l_start_process := l_processed_row_count;
1624: l_qtree_backup_tbl.DELETE;
1625: If is_debug then
1626: print_debug('Start Shipset :' || l_cur_ship_set_id,
1627: 'Inv_Pick_Release_Pub.Pick_Release');
1628: End If;
1629: ELSIF l_cur_ship_set_id IS NOT NULL AND
1630: l_mo_line.ship_set_id IS NULL THEN
1631: If is_debug then
1629: ELSIF l_cur_ship_set_id IS NOT NULL AND
1630: l_mo_line.ship_set_id IS NULL THEN
1631: If is_debug then
1632: print_debug('End of Shipset :' || l_cur_ship_set_id,
1633: 'Inv_Pick_Release_Pub.Pick_Release');
1634: End If;
1635: l_cur_ship_set_id := NULL;
1636: l_qtree_backup_tbl.DELETE;
1637: END IF;
1659: l_start_process := l_processed_row_count;
1660: l_qtree_backup_tbl.DELETE;
1661: If is_debug then
1662: print_debug('Start Ship Model :' || l_cur_ship_model_id,
1663: 'Inv_Pick_Release_Pub.Pick_Release');
1664: End If;
1665: ELSIF l_cur_ship_model_id IS NOT NULL AND
1666: l_mo_line.ship_model_id IS NULL THEN
1667: If is_debug then
1665: ELSIF l_cur_ship_model_id IS NOT NULL AND
1666: l_mo_line.ship_model_id IS NULL THEN
1667: If is_debug then
1668: print_debug('End of Ship Model :' || l_cur_ship_model_id,
1669: 'Inv_Pick_Release_Pub.Pick_Release');
1670: End If;
1671: l_cur_ship_model_id := NULL;
1672: l_qtree_backup_tbl.DELETE;
1673: END IF;
1687: --only backup the tree if it is not already backed up
1688: If Not l_qtree_backup_tbl.Exists(l_tree_id) Then
1689: If is_debug then
1690: print_debug('Backing up qty tree: ' || l_tree_id,
1691: 'Inv_Pick_Release_Pub.Pick_Release');
1692: End If;
1693: --Bug 2814919
1694: if l_tree_id is not null then
1695: inv_quantity_tree_pvt.backup_tree(
1727: -- HW INVCONV Added Qty2
1728: l_cur_txn_source_qty2 := 0;
1729: If is_debug then
1730: print_debug('Set Current Txn Src Line:' || l_cur_txn_source_line_id,
1731: 'Inv_Pick_Release_Pub.Pick_Release');
1732: End If;
1733: END IF;
1734:
1735: -- Call the Pick Release Process_Line API on the current Move Order Line
1734:
1735: -- Call the Pick Release Process_Line API on the current Move Order Line
1736: If is_debug then
1737: print_debug('calling INV_Pick_Release_PVT.process_line',
1738: 'Inv_Pick_Release_Pub.Pick_Release');
1739: End If;
1740:
1741: INV_Pick_Release_PVT.Process_Line(
1742: p_api_version => 1.0
1754: );
1755:
1756: If is_debug then
1757: print_debug('l_return_status from process_line is '
1758: || l_api_return_status, 'Inv_Pick_Release_Pub.Pick_Release');
1759: End If;
1760:
1761: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
1762: -- Return error if Process_Line returns error and
1828:
1829: BEGIN
1830: If is_debug then
1831: print_debug('Update shipping that ship set detailing failed',
1832: 'Inv_Pick_Release_Pub.Pick_Release');
1833: End If;
1834:
1835: l_shipset_smc_backorder_rec.move_order_line_id:=l_mo_line.line_id;
1836: l_shipset_smc_backorder_rec.ship_set_id :=l_cur_ship_set_id;
1847:
1848: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
1849: If is_debug then
1850: print_debug('Error occured while updating shipping for ' ||
1851: 'failed ship set','Inv_Pick_Release_Pub.Pick_Release');
1852: print_debug('l_return_status' || l_api_return_status,
1853: 'Inv_Pick_Release_Pub.Pick_Release');
1854: End If;
1855: END IF;
1849: If is_debug then
1850: print_debug('Error occured while updating shipping for ' ||
1851: 'failed ship set','Inv_Pick_Release_Pub.Pick_Release');
1852: print_debug('l_return_status' || l_api_return_status,
1853: 'Inv_Pick_Release_Pub.Pick_Release');
1854: End If;
1855: END IF;
1856:
1857: EXCEPTION
1857: EXCEPTION
1858: WHEN OTHERS THEN
1859: If is_debug then
1860: print_debug('When other exception: ' || Sqlerrm,
1861: 'Inv_Pick_Release_Pub.Pick_Release');
1862: print_debug('l_return_status' || l_api_return_status,
1863: 'Inv_Pick_Release_Pub.Pick_Release');
1864: End If;
1865: NULL;
1859: If is_debug then
1860: print_debug('When other exception: ' || Sqlerrm,
1861: 'Inv_Pick_Release_Pub.Pick_Release');
1862: print_debug('l_return_status' || l_api_return_status,
1863: 'Inv_Pick_Release_Pub.Pick_Release');
1864: End If;
1865: NULL;
1866: --no need to error out for reporting purpose.
1867: END;
1867: END;
1868:
1869: If is_debug then
1870: print_debug('Rollback for shipset :' || l_cur_ship_set_id,
1871: 'Inv_Pick_Release_Pub.Pick_Release');
1872: End If;
1873:
1874: ROLLBACK to SHIPSET;
1875: l_set_index := l_start_index;
1897: IF l_qtree_backup_tbl.EXISTS(l_tree_id) THEN
1898:
1899: If is_debug then
1900: print_debug('Restoring Quantity Tree: ' || l_tree_id,
1901: 'Inv_Pick_Release_Pub.Pick_Release');
1902: End If;
1903:
1904: inv_quantity_tree_pvt.restore_tree
1905: (x_return_status => l_api_return_status
1909:
1910: if( l_api_return_status = FND_API.G_RET_STS_ERROR ) then
1911: If is_debug then
1912: print_debug('Error in Restore_Tree',
1913: 'Inv_Pick_Release_Pub.Pick_Release');
1914: End If;
1915: raise FND_API.G_EXC_ERROR;
1916: elsif l_api_return_status=FND_API.G_RET_STS_UNEXP_ERROR then
1917: If is_debug then
1915: raise FND_API.G_EXC_ERROR;
1916: elsif l_api_return_status=FND_API.G_RET_STS_UNEXP_ERROR then
1917: If is_debug then
1918: print_debug('Unexpected error in Restore_tree',
1919: 'Inv_Pick_Release_Pub.Pick_Release');
1920: End If;
1921: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1922: end if;
1923:
1927: END IF;
1928:
1929: If is_debug then
1930: print_debug('Backorder mo line:' || l_mo_line.line_id,
1931: 'Inv_Pick_Release_Pub.Pick_Release');
1932: End If;
1933:
1934: l_return_value := INV_CACHE.set_wdd_rec(l_mo_line.line_id);
1935: If NOT l_return_value Then
1934: l_return_value := INV_CACHE.set_wdd_rec(l_mo_line.line_id);
1935: If NOT l_return_value Then
1936: If is_debug then
1937: print_debug('Error setting cache for delivery line',
1938: 'INV_Pick_Release_Pub.Pick_Release');
1939: End If;
1940: RAISE fnd_api.g_exc_unexpected_error;
1941: End If;
1942: l_delivery_detail_id := INV_CACHE.wdd_rec.delivery_detail_id;
1966: );
1967: if( l_api_return_status = FND_API.G_RET_STS_ERROR ) then
1968: If is_debug then
1969: print_debug('return error from update shipping attributes',
1970: 'Inv_Pick_Release_Pub.Pick_Release');
1971: End If;
1972: raise FND_API.G_EXC_ERROR;
1973: elsif l_api_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1974: If is_debug then
1972: raise FND_API.G_EXC_ERROR;
1973: elsif l_api_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1974: If is_debug then
1975: print_debug('return error from update shipping attributes',
1976: 'Inv_Pick_Release_Pub.Pick_Release');
1977: End If;
1978: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1979: end if;
1980:
2034: l_detail_rec_count := 0;
2035: l_qtree_backup_tbl.DELETE;
2036: If is_debug then
2037: print_debug('Finished backordering all lines in shipset',
2038: 'Inv_Pick_Release_Pub.Pick_Release');
2039: End If;
2040:
2041: --For Ship Models, if a move order line does not fully
2042: -- allocate, we have to determine the new model quantity. Then,
2050: --able to allocate completely
2051: BEGIN
2052: If is_debug then
2053: print_debug('Update shipping that ship model detailing partial',
2054: 'Inv_Pick_Release_Pub.Pick_Release');
2055: End If;
2056:
2057: l_shipset_smc_backorder_rec.move_order_line_id:=l_mo_line.line_id;
2058: l_shipset_smc_backorder_rec.ship_model_id :=l_cur_ship_model_id;
2069: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
2070: If is_debug then
2071: print_debug('Error occured while updating shipping for ' ||
2072: 'failed ship set',
2073: 'Inv_Pick_Release_Pub.Pick_Release');
2074: print_debug('l_return_status'||l_api_return_status,
2075: 'Inv_Pick_Release_Pub.Pick_Release');
2076: End If;
2077: END IF;
2071: print_debug('Error occured while updating shipping for ' ||
2072: 'failed ship set',
2073: 'Inv_Pick_Release_Pub.Pick_Release');
2074: print_debug('l_return_status'||l_api_return_status,
2075: 'Inv_Pick_Release_Pub.Pick_Release');
2076: End If;
2077: END IF;
2078: EXCEPTION
2079: WHEN OTHERS THEN
2078: EXCEPTION
2079: WHEN OTHERS THEN
2080: If is_debug then
2081: print_debug('When other exception',
2082: 'Inv_Pick_Release_Pub.Pick_Release');
2083: End If;
2084: NULL;
2085: --no need to error out for reporting purpose.
2086: END;
2086: END;
2087:
2088: If is_debug then
2089: print_debug('Rolling back for ship model :' ||l_cur_ship_model_id,
2090: 'Inv_Pick_Release_Pub.Pick_Release');
2091: End If;
2092:
2093: ROLLBACK to SHIPMODEL;
2094: l_set_index := l_start_index;
2095: l_set_process := l_start_process;
2096:
2097: If is_debug then
2098: print_debug('OE Line: ' || l_cur_txn_source_line_id,
2099: 'Inv_Pick_Release_Pub.Pick_Release');
2100: End If;
2101:
2102: -- Get the sales order line quantity. We need the order
2103: -- line quantity to determine the new model quantity. We
2111: EXCEPTION
2112: WHEN NO_DATA_FOUND then
2113: If is_debug then
2114: print_debug('No Order Line Quantity found',
2115: 'Inv_Pick_Release_Pub.Pick_Release');
2116: End If;
2117: ROLLBACK TO Pick_Release_PUB;
2118: FND_MESSAGE.SET_NAME('INV','INV_DELIV_INFO_MISSING');
2119: FND_MSG_PUB.Add;
2149: --We keep model quantity and quantity in PUOM so should not
2150: --find it from order lines.
2151: If is_debug then
2152: print_debug('New model qty ' || l_new_model_quantity,
2153: 'Inv_Pick_Release_Pub.Pick_Release');
2154: End If;
2155:
2156: --loop through all move order lines for this ship model
2157: LOOP
2157: LOOP
2158: l_mo_line := l_mo_line_tbl(l_set_index);
2159: If is_debug then
2160: print_debug('SHIPMODEL-Current mo line:'||l_mo_line.line_id,
2161: 'Inv_Pick_Release_Pub.Pick_Release');
2162: End If;
2163:
2164: --find tree id. If item is unit effective, get tree id from
2165: -- qtree_line_tbl. Else, get it from qtree_item_tbl.
2179: IF l_qtree_backup_tbl.EXISTS(l_tree_id) THEN
2180:
2181: If is_debug then
2182: print_debug('Restoring Quantity Tree: ' || l_tree_id,
2183: 'Inv_Pick_Release_Pub.Pick_Release');
2184: End If;
2185: inv_quantity_tree_pvt.restore_tree
2186: (x_return_status => l_api_return_status
2187: ,p_tree_id => l_tree_id
2189: );
2190: if( l_api_return_status = FND_API.G_RET_STS_ERROR ) then
2191: If is_debug then
2192: print_debug('Error in Restore_Tree',
2193: 'Inv_Pick_Release_Pub.Pick_Release');
2194: End If;
2195: raise FND_API.G_EXC_ERROR;
2196: elsif l_api_return_status=FND_API.G_RET_STS_UNEXP_ERROR then
2197: If is_debug then
2195: raise FND_API.G_EXC_ERROR;
2196: elsif l_api_return_status=FND_API.G_RET_STS_UNEXP_ERROR then
2197: If is_debug then
2198: print_debug('Unexpected error in Restore_tree',
2199: 'Inv_Pick_Release_Pub.Pick_Release');
2200: End If;
2201: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2202: end if;
2203:
2214: THEN
2215: l_set_txn_source_line_id := l_mo_line.txn_source_line_id;
2216: If is_debug then
2217: print_debug('OE Line: ' || l_set_txn_source_line_id,
2218: 'Inv_Pick_Release_Pub.Pick_Release');
2219: End If;
2220:
2221: -- if we already got the qty, don't get it again
2222: IF l_set_txn_source_line_id = l_cur_txn_source_line_id Then
2232: EXCEPTION
2233: WHEN NO_DATA_FOUND then
2234: If is_debug then
2235: print_debug('No Order Line Quantity found',
2236: 'Inv_Pick_Release_Pub.Pick_Release');
2237: End If;
2238: ROLLBACK TO Pick_Release_PUB;
2239: FND_MESSAGE.SET_NAME('INV','INV_DELIV_INFO_MISSING');
2240: FND_MSG_PUB.Add;
2268: l_mo_line.model_quantity;
2269:
2270: If is_debug then
2271: print_debug('New req qty: ' || l_set_new_req_qty,
2272: 'Inv_Pick_Release_Pub.Pick_Release');
2273: End If;
2274: END IF;
2275:
2276: -- set new move order line quantity
2282: l_new_line_quantity := l_set_new_req_qty;
2283:
2284: If is_debug then
2285: print_debug('New line qty: ' || l_new_line_quantity,
2286: 'Inv_Pick_Release_Pub.Pick_Release');
2287: End If;
2288:
2289: l_return_value := INV_CACHE.set_wdd_rec(l_mo_line.line_id);
2290: If NOT l_return_value Then
2289: l_return_value := INV_CACHE.set_wdd_rec(l_mo_line.line_id);
2290: If NOT l_return_value Then
2291: If is_debug then
2292: print_debug('Error setting cache for delivery line',
2293: 'INV_Pick_Release_Pub.Pick_Release');
2294: End If;
2295: RAISE fnd_api.g_exc_unexpected_error;
2296: End If;
2297: l_delivery_detail_id := INV_CACHE.wdd_rec.delivery_detail_id;
2322: back_order_det_tbl =>l_smc_backorder_det_tbl);
2323: if( l_api_return_status = FND_API.G_RET_STS_ERROR ) then
2324: If is_debug then
2325: print_debug(' return error E from Store_smc_bo_details',
2326: 'Inv_Pick_Release_Pub.Pick_Release');
2327: End If;
2328: l_smc_backorder_det_tbl.DELETE;
2329: raise FND_API.G_EXC_ERROR;
2330: elsif l_api_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2329: raise FND_API.G_EXC_ERROR;
2330: elsif l_api_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2331: If is_debug then
2332: print_debug(' return error U from Store_smc_bo_details',
2333: 'Inv_Pick_Release_Pub.Pick_Release');
2334: End If;
2335: l_smc_backorder_det_tbl.DELETE;
2336: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2337: end if;
2375: --l_mo_line_tbl(l_set_index).model_quantity := l_new_model_quantity;
2376:
2377: If is_debug then
2378: print_debug('Finished Updating Mo Line',
2379: 'Inv_Pick_Release_Pub.Pick_Release');
2380: End If;
2381:
2382: -- Exit if there are no more move order lines to detail
2383: -- or when the next move order is not for the same ship model.
2440: l_detail_rec_count := 0;
2441:
2442: If is_debug then
2443: print_debug('Backordered all lines with this Ship Model Id',
2444: 'Inv_Pick_Release_Pub.Pick_Release');
2445: End If;
2446: Backorder_SMC_DETAILS(l_api_return_status ,
2447: x_msg_data ,
2448: x_msg_count
2449: );
2450: if( l_api_return_status = FND_API.G_RET_STS_ERROR ) then
2451: If is_debug then
2452: print_debug('return error E from Backorder_SMC_DETAILS',
2453: 'Inv_Pick_Release_Pub.Pick_Release');
2454: End If;
2455: raise FND_API.G_EXC_ERROR;
2456: elsif l_api_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2457: If is_debug then
2455: raise FND_API.G_EXC_ERROR;
2456: elsif l_api_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
2457: If is_debug then
2458: print_debug('return error U from Backorder_SMC_DETAILS',
2459: 'Inv_Pick_Release_Pub.Pick_Release');
2460: End If;
2461: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2462: end if;
2463:
2481: l_return_value := INV_CACHE.set_wdd_rec(l_mo_line.line_id);
2482: IF (NOT l_return_value) THEN
2483: IF (is_debug) THEN
2484: print_debug('Error setting cache for delivery line',
2485: 'INV_Pick_Release_Pub.Pick_Release');
2486: END IF;
2487: RAISE fnd_api.g_exc_unexpected_error;
2488: END IF;
2489: l_delivery_detail_id := INV_CACHE.wdd_rec.delivery_detail_id;
2520: -- R12.1 replenishment Project 6681109/6710368
2521: -- changes based ON p_dynamic_replenishment
2522: IF (is_debug) THEN
2523: print_debug('p_dynamic_replenishment :'||p_dynamic_replenishment,
2524: 'INV_Pick_Release_Pub.Pick_Release');
2525: END IF;
2526:
2527:
2528: l_detail_info_tab(1).delivery_detail_id := l_delivery_detail_id;
2531:
2532: IF NVL(p_dynamic_replenishment,'N') = 'Y' THEN
2533:
2534: IF (is_debug) THEN
2535: print_debug('Mark WDD repl_status as RR','INV_Pick_Release_Pub.Pick_Release');
2536: END IF;
2537: --if qty is available somewhere in the org, we will try to replenish it first
2538: -- mark the demand lines for replenishment requested status
2539: l_detail_info_tab(1).replenishment_status := 'R';
2568:
2569: IF (l_api_return_status = FND_API.G_RET_STS_ERROR) THEN
2570: IF (is_debug) THEN
2571: print_debug('Error returned from Create_Update_Delivery_Detail API',
2572: 'Inv_Pick_Release_Pub.Pick_Release');
2573: END IF;
2574: RAISE FND_API.G_EXC_ERROR;
2575: ELSIF (l_api_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2576: IF (is_debug) THEN
2574: RAISE FND_API.G_EXC_ERROR;
2575: ELSIF (l_api_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2576: IF (is_debug) THEN
2577: print_debug('Unexpected errror from Create_Update_Delivery_Detail API',
2578: 'Inv_Pick_Release_Pub.Pick_Release');
2579: END IF;
2580: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2581: END IF;
2582:
2608:
2609: IF (l_api_return_status = FND_API.G_RET_STS_ERROR) THEN
2610: IF (is_debug) THEN
2611: print_debug('Error returned from Split Delivery_Detail_Action API',
2612: 'Inv_Pick_Release_Pub.Pick_Release');
2613: END IF;
2614: RAISE FND_API.G_EXC_ERROR;
2615: ELSIF (l_api_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2616: IF (is_debug) THEN
2614: RAISE FND_API.G_EXC_ERROR;
2615: ELSIF (l_api_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2616: IF (is_debug) THEN
2617: print_debug('Unexpected errror from Split Delivery_Detail_Action API',
2618: 'Inv_Pick_Release_Pub.Pick_Release');
2619: END IF;
2620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2621: END IF;
2622:
2637:
2638:
2639: IF NVL(p_dynamic_replenishment,'N') = 'Y' THEN
2640: IF (is_debug) THEN
2641: print_debug(' Mark repl_status of WDD as RR','INV_Pick_Release_Pub.Pick_Release');
2642: END IF;
2643: -- mark the new split demand lines for replenishment requested status
2644: l_detail_info_tab(1).replenishment_status := 'R';
2645: l_in_rec.caller := 'WMS_REP';
2665:
2666: IF (l_api_return_status = FND_API.G_RET_STS_ERROR) THEN
2667: IF (is_debug) THEN
2668: print_debug('Error returned from Create_Update_Delivery_Detail API',
2669: 'Inv_Pick_Release_Pub.Pick_Release');
2670: END IF;
2671: RAISE FND_API.G_EXC_ERROR;
2672: ELSIF (l_api_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2673: IF (is_debug) THEN
2671: RAISE FND_API.G_EXC_ERROR;
2672: ELSIF (l_api_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2673: IF (is_debug) THEN
2674: print_debug('Unexpected errror from Create_Update_Delivery_Detail API',
2675: 'Inv_Pick_Release_Pub.Pick_Release');
2676: END IF;
2677: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2678: END IF;
2679:
2735:
2736: IF NVL(p_dynamic_replenishment,'N') = 'Y' THEN
2737: IF is_debug THEN
2738: print_debug('Marking line status as RR',
2739: 'Inv_Pick_Release_Pub.Pick_Release');
2740: END IF;
2741: l_shipping_attr(1).action_flag := 'R';
2742: ELSE
2743: l_shipping_attr(1).action_flag := 'B';
2756: );
2757: IF (l_api_return_status = FND_API.G_RET_STS_ERROR) THEN
2758: IF is_debug THEN
2759: print_debug('return error from update shipping attributes',
2760: 'Inv_Pick_Release_Pub.Pick_Release');
2761: END IF;
2762: RAISE FND_API.G_EXC_ERROR;
2763: ELSIF (l_api_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2764: IF is_debug THEN
2762: RAISE FND_API.G_EXC_ERROR;
2763: ELSIF (l_api_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2764: IF is_debug THEN
2765: print_debug('return error from update shipping attributes',
2766: 'Inv_Pick_Release_Pub.Pick_Release');
2767: END IF;
2768: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2769: END IF;
2770: END IF; -- for IF (l_allocation_method = g_prioritize_inventory) AND (p_wsh...
2820: -- Retrieve the WDD record associated with the current MOL
2821: IF (NOT INV_CACHE.set_wdd_rec(l_mo_line.line_id)) THEN
2822: IF (is_debug) THEN
2823: print_debug('Error setting cache for WDD delivery line',
2824: 'INV_Pick_Release_Pub.Pick_Release');
2825: END IF;
2826: RAISE fnd_api.g_exc_unexpected_error;
2827: END IF;
2828: l_delivery_detail_id := INV_CACHE.wdd_rec.delivery_detail_id;
2859: x_pick_release_status(l_processed_row_count).detail_rec_count,
2860: 'Pick_Release_Pub');
2861: print_Debug('detail record count is ' ||
2862: x_pick_release_status(l_processed_row_count).detail_rec_count,
2863: 'Inv_Pick_Release_Pub.Pick_Release');
2864: End If;
2865: END IF;
2866: l_detail_rec_count := 0;
2867: --Update the Pick Release API's return status to an error if the line could
2886: END LOOP;
2887:
2888: IF is_debug then
2889: print_debug('after calling inv_pick_release_pvt',
2890: 'Inv_Pick_Release_Pub.Pick_Release');
2891: END IF;
2892:
2893: -- Bug 4349602: Deleting Move Order Lines which are not allocated
2894: BEGIN
2892:
2893: -- Bug 4349602: Deleting Move Order Lines which are not allocated
2894: BEGIN
2895: IF is_debug THEN
2896: print_debug('Deleting MOLs in status 5','Inv_Pick_Release_Pub.Pick_Release');
2897: END IF;
2898: FORALL ii IN l_mol_id_tbl.FIRST..l_mol_id_tbl.LAST
2899: DELETE FROM mtl_txn_request_lines mtrl
2900: WHERE line_status = 5
2909: EXCEPTION
2910: WHEN OTHERS THEN
2911: IF is_debug THEN
2912: print_debug('Error in Deleting Move Order Lines: ' || sqlerrm
2913: ,'Inv_Pick_Release_Pub.Pick_Release');
2914: END IF;
2915: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2916: END;
2917:
2920: l_line_index := l_mo_line_tbl.FIRST;
2921: l_api_return_status := '';
2922: IF is_debug THEN
2923: print_Debug('l_mo_line_tbl.count is ' || l_mo_line_tbl.COUNT,
2924: 'Inv_Pick_Release_pub.Pick_Release');
2925: END IF;
2926: -- Calling device integration api to set global var which will decide
2927: -- whether to process device request or not, if it is a WMS organization.
2928: IF wms_device_integration_pvt.wms_call_device_request IS NULL THEN
2940: LOOP
2941: If is_debug then
2942: print_debug('headeR_id for line index ' || l_line_index || ' is ' ||
2943: l_mo_line_tbl(l_line_index).header_id,
2944: 'Inv_Pick_Release_Pub.Pick_Release');
2945: End If;
2946:
2947: IF l_line_index >= l_mo_line_tbl.COUNT THEN
2948: -- it's the last line in this group
2947: IF l_line_index >= l_mo_line_tbl.COUNT THEN
2948: -- it's the last line in this group
2949: If is_debug then
2950: print_debug('calling cartonize api',
2951: 'Inv_Pick_Release_Pub.Pick_Release');
2952: End If;
2953:
2954: WMS_CARTNZN_PUB.cartonize
2955: (
2968: IF l_api_return_status = fnd_api.g_ret_sts_unexp_error OR
2969: l_api_return_status = fnd_api.g_ret_sts_error THEN
2970: If is_debug then
2971: print_debug('error from cartonize api',
2972: 'Inv_Pick_Release_Pub.Pick_Release');
2973: print_debug('error count ' || x_msg_count,
2974: 'Inv_Pick_Release_Pub.Pick_Release');
2975: print_debug('error msg ' || x_msg_data,
2976: 'Inv_Pick_Release_Pub.Pick_Release');
2970: If is_debug then
2971: print_debug('error from cartonize api',
2972: 'Inv_Pick_Release_Pub.Pick_Release');
2973: print_debug('error count ' || x_msg_count,
2974: 'Inv_Pick_Release_Pub.Pick_Release');
2975: print_debug('error msg ' || x_msg_data,
2976: 'Inv_Pick_Release_Pub.Pick_Release');
2977: x_return_status := fnd_api.g_ret_sts_error;
2978: End If;
2972: 'Inv_Pick_Release_Pub.Pick_Release');
2973: print_debug('error count ' || x_msg_count,
2974: 'Inv_Pick_Release_Pub.Pick_Release');
2975: print_debug('error msg ' || x_msg_data,
2976: 'Inv_Pick_Release_Pub.Pick_Release');
2977: x_return_status := fnd_api.g_ret_sts_error;
2978: End If;
2979: ELSE -- patchset J bulk picking
2980: IF (WMS_CONTROL.G_CURRENT_RELEASE_LEVEL >= INV_RELEASE.G_J_RELEASE_LEVEL) THEN
2979: ELSE -- patchset J bulk picking
2980: IF (WMS_CONTROL.G_CURRENT_RELEASE_LEVEL >= INV_RELEASE.G_J_RELEASE_LEVEL) THEN
2981: IF (is_debug) THEN
2982: print_debug('PATCHSET J -- BULK PICKING --- START',
2983: 'Inv_Pick_Release_Pub.Pick_Release');
2984: END IF;
2985: assign_pick_slip_number
2986: (x_return_status => l_api_return_status,
2987: x_msg_count => x_msg_count,
2993:
2994: IF l_api_return_status = fnd_api.g_ret_sts_unexp_error OR
2995: l_api_return_status = fnd_api.g_ret_sts_error THEN
2996: print_debug('error from assign_pick_slip_number api',
2997: 'Inv_Pick_Release_Pub.Pick_Release');
2998: print_debug('error count ' || x_msg_count,
2999: 'Inv_Pick_Release_Pub.Pick_Release');
3000: print_debug('error msg ' || x_msg_data,
3001: 'Inv_Pick_Release_Pub.Pick_Release');
2995: l_api_return_status = fnd_api.g_ret_sts_error THEN
2996: print_debug('error from assign_pick_slip_number api',
2997: 'Inv_Pick_Release_Pub.Pick_Release');
2998: print_debug('error count ' || x_msg_count,
2999: 'Inv_Pick_Release_Pub.Pick_Release');
3000: print_debug('error msg ' || x_msg_data,
3001: 'Inv_Pick_Release_Pub.Pick_Release');
3002: x_return_status := fnd_api.g_ret_sts_error;
3003: END IF;
2997: 'Inv_Pick_Release_Pub.Pick_Release');
2998: print_debug('error count ' || x_msg_count,
2999: 'Inv_Pick_Release_Pub.Pick_Release');
3000: print_debug('error msg ' || x_msg_data,
3001: 'Inv_Pick_Release_Pub.Pick_Release');
3002: x_return_status := fnd_api.g_ret_sts_error;
3003: END IF;
3004: IF (is_debug) THEN
3005: print_debug('PATCHSET J -- BULK PICKING --- END',
3002: x_return_status := fnd_api.g_ret_sts_error;
3003: END IF;
3004: IF (is_debug) THEN
3005: print_debug('PATCHSET J -- BULK PICKING --- END',
3006: 'Inv_Pick_Release_Pub.Pick_Release');
3007: END IF;
3008: END IF;
3009: END IF;
3010: EXIT;
3015: ELSE
3016: -- call cartonize API
3017: If is_debug then
3018: print_debug('calling cartonize api',
3019: 'Inv_Pick_Release_Pub.Pick_Release');
3020: End If;
3021:
3022: WMS_CARTNZN_PUB.cartonize
3023: (
3036: IF l_api_return_status = fnd_api.g_ret_sts_unexp_error OR
3037: l_api_return_status = fnd_api.g_ret_sts_error THEN
3038: If is_debug then
3039: print_debug('error from cartonize api',
3040: 'Inv_Pick_Release_Pub.Pick_Release');
3041: print_debug('error count ' || x_msg_count,
3042: 'Inv_Pick_Release_Pub.Pick_Release');
3043: print_debug('error msg ' || x_msg_data,
3044: 'Inv_Pick_Release_Pub.Pick_Release');
3038: If is_debug then
3039: print_debug('error from cartonize api',
3040: 'Inv_Pick_Release_Pub.Pick_Release');
3041: print_debug('error count ' || x_msg_count,
3042: 'Inv_Pick_Release_Pub.Pick_Release');
3043: print_debug('error msg ' || x_msg_data,
3044: 'Inv_Pick_Release_Pub.Pick_Release');
3045: End If;
3046: x_return_status := fnd_api.g_ret_sts_error;
3040: 'Inv_Pick_Release_Pub.Pick_Release');
3041: print_debug('error count ' || x_msg_count,
3042: 'Inv_Pick_Release_Pub.Pick_Release');
3043: print_debug('error msg ' || x_msg_data,
3044: 'Inv_Pick_Release_Pub.Pick_Release');
3045: End If;
3046: x_return_status := fnd_api.g_ret_sts_error;
3047: ELSE -- patchset J bulk picking
3048: IF (WMS_CONTROL.G_CURRENT_RELEASE_LEVEL >= INV_RELEASE.G_J_RELEASE_LEVEL) THEN
3047: ELSE -- patchset J bulk picking
3048: IF (WMS_CONTROL.G_CURRENT_RELEASE_LEVEL >= INV_RELEASE.G_J_RELEASE_LEVEL) THEN
3049: IF (is_debug) THEN
3050: print_debug('PATCHSET J -- BULK PICKING --- START',
3051: 'Inv_Pick_Release_Pub.Pick_Release');
3052: print_debug('calling assign_pick_slip_number',
3053: 'Inv_Pick_Release_Pub.Pick_Release');
3054: END IF;
3055:
3049: IF (is_debug) THEN
3050: print_debug('PATCHSET J -- BULK PICKING --- START',
3051: 'Inv_Pick_Release_Pub.Pick_Release');
3052: print_debug('calling assign_pick_slip_number',
3053: 'Inv_Pick_Release_Pub.Pick_Release');
3054: END IF;
3055:
3056: assign_pick_slip_number
3057: (x_return_status => l_api_return_status,
3064:
3065: IF l_api_return_status = fnd_api.g_ret_sts_unexp_error OR
3066: l_api_return_status = fnd_api.g_ret_sts_error THEN
3067: print_debug('error from assign_pick_slip_number api',
3068: 'Inv_Pick_Release_Pub.Pick_Release');
3069: print_debug('error count ' || x_msg_count,
3070: 'Inv_Pick_Release_Pub.Pick_Release');
3071: print_debug('error msg ' || x_msg_data,
3072: 'Inv_Pick_Release_Pub.Pick_Release');
3066: l_api_return_status = fnd_api.g_ret_sts_error THEN
3067: print_debug('error from assign_pick_slip_number api',
3068: 'Inv_Pick_Release_Pub.Pick_Release');
3069: print_debug('error count ' || x_msg_count,
3070: 'Inv_Pick_Release_Pub.Pick_Release');
3071: print_debug('error msg ' || x_msg_data,
3072: 'Inv_Pick_Release_Pub.Pick_Release');
3073: x_return_status := fnd_api.g_ret_sts_error;
3074: END IF;
3068: 'Inv_Pick_Release_Pub.Pick_Release');
3069: print_debug('error count ' || x_msg_count,
3070: 'Inv_Pick_Release_Pub.Pick_Release');
3071: print_debug('error msg ' || x_msg_data,
3072: 'Inv_Pick_Release_Pub.Pick_Release');
3073: x_return_status := fnd_api.g_ret_sts_error;
3074: END IF;
3075: IF (is_debug) THEN
3076: print_debug('PATCHSET J -- BULK PICKING --- END',
3073: x_return_status := fnd_api.g_ret_sts_error;
3074: END IF;
3075: IF (is_debug) THEN
3076: print_debug('PATCHSET J -- BULK PICKING --- END',
3077: 'Inv_Pick_Release_Pub.Pick_Release');
3078: END IF;
3079: END IF;
3080: END IF;
3081:
3080: END IF;
3081:
3082: IF is_debug THEN
3083: print_debug('success from cartonize api',
3084: 'Inv_Pick_Release_Pub.Pick_Release');
3085: END IF;
3086: l_line_index := l_line_index + 1;
3087: END IF;
3088: EXIT WHEN l_line_index > l_mo_line_tbl.LAST;
3100: IF INV_CONTROL.G_CURRENT_RELEASE_LEVEL >= 120001 THEN
3101: FOR a IN l_mol_id_tbl.FIRST..l_mol_id_tbl.LAST
3102: LOOP
3103: IF (l_debug = 1) THEN
3104: print_debug('l_mol_id_tbl(a) ' || l_mol_id_tbl(a), 'Inv_Pick_Release_Pub.Pick_Release');
3105: END IF;
3106:
3107: FOR v_mmtt in c_mmtt (l_mol_id_tbl(a))
3108: LOOP
3106:
3107: FOR v_mmtt in c_mmtt (l_mol_id_tbl(a))
3108: LOOP
3109: IF (l_debug = 1) THEN
3110: print_debug('v_mmtt.transaction_temp_id ' || v_mmtt.transaction_temp_id, 'Inv_Pick_Release_Pub.Pick_Release');
3111: END IF;
3112:
3113: l_transaction_id(l_counter) := v_mmtt.transaction_temp_id;
3114: l_counter := l_counter + 1;
3131: AND mmtt.transaction_temp_id = l_transaction_id(b)
3132: AND honor_case_pick_flag = 'Y';
3133:
3134: IF (l_debug = 1) THEN
3135: print_debug('l_counter' || l_counter, 'Inv_Pick_Release_Pub.Pick_Release');
3136: END IF;
3137:
3138: IF honor_case_pick_count > 0 THEN
3139: v_transaction_id(l_counter) := l_transaction_id(b);
3155: , p_transaction_id => v_transaction_id);
3156:
3157: IF ( l_return_status <> fnd_api.g_ret_sts_success ) THEN
3158: IF (l_debug = 1) THEN
3159: print_debug('failed to print labels', 'Inv_Pick_Release_Pub.Pick_Release');
3160: END IF;
3161: fnd_message.set_name('WMS', 'WMS_PRINT_LABEL_FAIL');
3162: fnd_msg_pub.ADD;
3163: END IF;
3164: END IF;
3165: EXCEPTION
3166: WHEN OTHERS THEN
3167: IF (l_debug = 1) THEN
3168: print_debug('Exception occured while calling print_label', 'Inv_Pick_Release_Pub.Pick_Release');
3169: END IF;
3170: fnd_message.set_name('WMS', 'WMS_PRINT_LABEL_FAIL');
3171: fnd_msg_pub.ADD;
3172: END;
3240: /*IF (l_allocation_method IN (g_inventory_only, g_prioritize_crossdock) AND
3241: p_del_detail_id.COUNT > 0) THEN
3242: IF (is_debug) THEN
3243: print_debug('Remove the backordered WDD lines from the inputted delivery tables: ' ||
3244: l_allocation_method, 'Inv_Pick_Release_Pub.Pick_Release');
3245: END IF;
3246: l_xdock_index := p_del_detail_id.FIRST;
3247: l_xdock_next_index := p_del_detail_id.FIRST;
3248: -- Loop through table p_del_detail_id. If that WDD is backordered (value exists in
3266: -- Crossdock Pegging API here since inventory allocation has been completed
3267: IF (l_allocation_method = g_prioritize_inventory) THEN
3268: IF (is_debug) THEN
3269: print_debug('Call the Planned_Cross_Dock API (Prioritize Inventory)',
3270: 'Inv_Pick_Release_Pub.Pick_Release');
3271: END IF;
3272: WMS_XDOCK_PEGGING_PUB.Planned_Cross_Dock
3273: (p_api_version => 1.0,
3274: p_init_msg_list => fnd_api.g_false,
3283:
3284: IF (l_api_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3285: IF (is_debug) THEN
3286: print_debug('Success returned from Planned_Cross_Dock API',
3287: 'Inv_Pick_Release_Pub.Pick_Release');
3288: END IF;
3289: ELSIF (l_api_return_status = FND_API.G_RET_STS_ERROR) THEN
3290: IF (is_debug) THEN
3291: print_debug('Error returned from Planned_Cross_Dock API',
3288: END IF;
3289: ELSIF (l_api_return_status = FND_API.G_RET_STS_ERROR) THEN
3290: IF (is_debug) THEN
3291: print_debug('Error returned from Planned_Cross_Dock API',
3292: 'Inv_Pick_Release_Pub.Pick_Release');
3293: END IF;
3294: RAISE FND_API.G_EXC_ERROR;
3295: ELSIF (l_api_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3296: IF (is_debug) THEN
3294: RAISE FND_API.G_EXC_ERROR;
3295: ELSIF (l_api_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3296: IF (is_debug) THEN
3297: print_debug('Unexpected error returned from Planned_Cross_Dock API',
3298: 'Inv_Pick_Release_Pub.Pick_Release');
3299: END IF;
3300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3301: END IF;
3302: END IF;
3308:
3309: -- Standard call to get message count and if count is 1, get message info
3310: IF is_debug THEN
3311: print_Debug('x_return_status is ' || x_return_status,
3312: 'Inv_Pick_Release_Pub.Pick_Release');
3313: END IF;
3314:
3315: inv_cache.mo_transaction_date := NULL;
3316: l_return_value := inv_cache.set_pick_release(FALSE); --Added bug3237702
3337: --
3338: WHEN OTHERS THEN
3339: IF is_debug THEN
3340: print_Debug('Other error: ' || sqlerrm,
3341: 'Inv_Pick_Release_Pub.Pick_Release');
3342: END IF;
3343:
3344: ROLLBACK TO Pick_Release_PUB;
3345: --
3738: EXCEPTION
3739: WHEN no_data_found THEN
3740: If is_debug then
3741: print_debug('Error: print_pick_slip_mode not defined',
3742: 'INV_Pick_Release_Pub.Pick_Release');
3743: End If;
3744: --ROLLBACK TO Pick_Release_PUB;
3745: FND_MESSAGE.SET_NAME('INV','INV_WSH_ORG_NOT_FOUND');
3746: FND_MSG_PUB.Add;
3753:
3754: -- call cartonize API
3755: If is_debug then
3756: print_debug('calling cartonize api',
3757: 'Inv_Pick_Release_Pub.Pick_Release');
3758: End If;
3759: WMS_CARTNZN_PUB.cartonize
3760: (
3761: p_api_version => 1,
3772: IF l_api_return_status = fnd_api.g_ret_sts_unexp_error OR
3773: l_api_return_status = fnd_api.g_ret_sts_error THEN
3774: If is_debug then
3775: print_debug('error from cartonize api',
3776: 'Inv_Pick_Release_Pub.Call_Cartonization');
3777: print_debug('error count ' || x_msg_count,
3778: 'Inv_Pick_Release_Pub.Call_Cartonization');
3779: print_debug('error msg ' || x_msg_data,
3780: 'Inv_Pick_Release_Pub.Call_Cartonization');
3774: If is_debug then
3775: print_debug('error from cartonize api',
3776: 'Inv_Pick_Release_Pub.Call_Cartonization');
3777: print_debug('error count ' || x_msg_count,
3778: 'Inv_Pick_Release_Pub.Call_Cartonization');
3779: print_debug('error msg ' || x_msg_data,
3780: 'Inv_Pick_Release_Pub.Call_Cartonization');
3781: End If;
3782: x_return_status := fnd_api.g_ret_sts_error;
3776: 'Inv_Pick_Release_Pub.Call_Cartonization');
3777: print_debug('error count ' || x_msg_count,
3778: 'Inv_Pick_Release_Pub.Call_Cartonization');
3779: print_debug('error msg ' || x_msg_data,
3780: 'Inv_Pick_Release_Pub.Call_Cartonization');
3781: End If;
3782: x_return_status := fnd_api.g_ret_sts_error;
3783: ELSE
3784: IF (is_debug) THEN print_debug('PATCHSET J -- BULK PICKING --- START',
3781: End If;
3782: x_return_status := fnd_api.g_ret_sts_error;
3783: ELSE
3784: IF (is_debug) THEN print_debug('PATCHSET J -- BULK PICKING --- START',
3785: 'Inv_Pick_Release_Pub.Call_Cartonization');
3786: print_debug('calling assign_pick_slip_number',
3787: 'Inv_Pick_Release_Pub.Call_Cartonization');
3788: END IF;
3789: assign_pick_slip_number(
3783: ELSE
3784: IF (is_debug) THEN print_debug('PATCHSET J -- BULK PICKING --- START',
3785: 'Inv_Pick_Release_Pub.Call_Cartonization');
3786: print_debug('calling assign_pick_slip_number',
3787: 'Inv_Pick_Release_Pub.Call_Cartonization');
3788: END IF;
3789: assign_pick_slip_number(
3790: x_return_status => l_api_return_status,
3791: x_msg_count => x_msg_count,
3796: p_allow_partial_pick => p_allow_partial_pick);
3797: IF l_api_return_status = fnd_api.g_ret_sts_unexp_error OR
3798: l_api_return_status = fnd_api.g_ret_sts_error THEN
3799: print_debug('error from assign_pick_slip_number api',
3800: 'Inv_Pick_Release_Pub.Call_Cartonization');
3801: print_debug('error count ' || x_msg_count,
3802: 'Inv_Pick_Release_Pub.Call_Cartonization');
3803: print_debug('error msg ' || x_msg_data,
3804: 'Inv_Pick_Release_Pub.Call_Cartonization');
3798: l_api_return_status = fnd_api.g_ret_sts_error THEN
3799: print_debug('error from assign_pick_slip_number api',
3800: 'Inv_Pick_Release_Pub.Call_Cartonization');
3801: print_debug('error count ' || x_msg_count,
3802: 'Inv_Pick_Release_Pub.Call_Cartonization');
3803: print_debug('error msg ' || x_msg_data,
3804: 'Inv_Pick_Release_Pub.Call_Cartonization');
3805: x_return_status := fnd_api.g_ret_sts_error;
3806: END IF;
3800: 'Inv_Pick_Release_Pub.Call_Cartonization');
3801: print_debug('error count ' || x_msg_count,
3802: 'Inv_Pick_Release_Pub.Call_Cartonization');
3803: print_debug('error msg ' || x_msg_data,
3804: 'Inv_Pick_Release_Pub.Call_Cartonization');
3805: x_return_status := fnd_api.g_ret_sts_error;
3806: END IF;
3807: END IF;
3808:
3807: END IF;
3808:
3809: If is_debug then
3810: print_debug('success from cartonize api',
3811: 'Inv_Pick_Release_Pub.Call_Cartonization');
3812: End If;
3813: END IF; --l_do_Cartonization=1
3814: EXCEPTION
3815: WHEN FND_API.G_EXC_ERROR THEN
3839: , p_data => x_msg_data);
3840: END call_cartonization;
3841:
3842:
3843: END INV_Pick_Release_PUB;