[Home] [Help]
103: ELSIF ( p_mode = G_NO_CONV_RETURN_ZERO ) THEN
104: RETURN 0;
105: ELSE -- Normal converstion error
106: fnd_msg_pub.ADD;
107: RAISE fnd_api.g_exc_error;
108: END IF;
109: END IF;
110: END IF; -- IF cache exists
111: END IF; -- IF p_fm_uom = p_to_uom
239: AND lookup_code = p_new_context;
240: fnd_message.set_token('CONTEXT2', l_lookup_meaning);
241:
242: fnd_msg_pub.ADD;
243: RAISE fnd_api.g_exc_error;
244: RETURN FALSE;
245: END Valid_Context_Change;
246:
247: -- ----------------------------------------------------------------------------------
543: BEGIN
544: -- Standard Start of API savepoint
545: SAVEPOINT WMS_Update_Locator_Capacity;
546:
547: x_return_status := fnd_api.g_ret_sts_success ; --set to Success by default.
548:
549: IF (l_debug = 1) THEN
550: mdebug(l_api_name|| ' Entered ' ||g_pkg_version, 1);
551: mdebug('orgid='||p_organization_id||' sub='||p_subinventory||' loc='||p_locator_id||' wt='||p_weight_change||' wuom='||p_weight_uom_change||' vol='||p_volume_change||' vuom='||p_volume_uom_change, G_INFO);
625: END IF;
626: END IF;
627:
628: ROLLBACK TO WMS_Update_Locator_Capacity;
629: x_return_status := fnd_api.g_ret_sts_unexp_error;
630: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
631: END Update_Locator_Capacity;
632:
633:
744: x_return_status => x_ret_status,
745: x_client_parameters_rec => l_client_rec
746: );
747:
748: IF x_ret_status = fnd_api.g_ret_sts_success THEN
749: g_client_rec := l_client_rec;
750: END IF;
751: EXCEPTION
752: WHEN OTHERS THEN
749: g_client_rec := l_client_rec;
750: END IF;
751: EXCEPTION
752: WHEN OTHERS THEN
753: x_ret_status := fnd_api.g_ret_sts_error;
754: IF (l_debug = 1) THEN
755: mdebug(l_api_name ||' Error SQL error: '|| SQLERRM(SQLCODE), G_ERROR);
756: END IF;
757: END;
796: -- Standard Start of API savepoint
797: SAVEPOINT CREATE_LPNS_PVT;
798:
799: -- Standard call to check for call compatibility.
800: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
801: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
802: fnd_msg_pub.ADD;
803: RAISE fnd_api.g_exc_unexpected_error;
804: END IF;
799: -- Standard call to check for call compatibility.
800: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
801: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
802: fnd_msg_pub.ADD;
803: RAISE fnd_api.g_exc_unexpected_error;
804: END IF;
805:
806: -- Initialize message list if p_init_msg_list is set to TRUE.
807: IF fnd_api.to_boolean(p_init_msg_list) THEN
803: RAISE fnd_api.g_exc_unexpected_error;
804: END IF;
805:
806: -- Initialize message list if p_init_msg_list is set to TRUE.
807: IF fnd_api.to_boolean(p_init_msg_list) THEN
808: fnd_msg_pub.initialize;
809: END IF;
810:
811: -- Initialize API return status to success
808: fnd_msg_pub.initialize;
809: END IF;
810:
811: -- Initialize API return status to success
812: x_return_status := fnd_api.g_ret_sts_success;
813:
814: -- API body
815: IF (l_debug = 1) THEN
816: mdebug(l_api_name || ' Entered ' || g_pkg_version, 1);
842: -- Organization is required. Make sure that it is populated
843: IF ( p_lpn_table(i).organization_id IS NULL ) THEN
844: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ORG');
845: fnd_msg_pub.ADD;
846: RAISE fnd_api.g_exc_error;
847: END IF;
848:
849: IF ( p_lpn_table(i).inventory_item_id IS NOT NULL) THEN
850: l_progress := 'Calling INV_CACHE.Set_Item_Rec to get item values';
864: END IF;
865: fnd_message.set_name('WMS', 'WMS_ITEM_NOT_CONTAINER');
866: fnd_message.set_token('ITEM', inv_cache.item_rec.segment1);
867: fnd_msg_pub.ADD;
868: RAISE fnd_api.g_exc_error;
869: END IF;
870:
871: p_lpn_table(i).tare_weight_uom_code := inv_cache.item_rec.weight_uom_code;
872: p_lpn_table(i).tare_weight := inv_cache.item_rec.unit_weight;
875: ELSE
876: l_progress := 'Error calling INV_CACHE.Set_Item_Rec for orgid'||p_lpn_table(i).organization_id||' item id='||p_lpn_table(i).inventory_item_id;
877: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
878: fnd_msg_pub.ADD;
879: RAISE fnd_api.g_exc_error;
880: END IF;
881: END IF;
882:
883: -- LPN Context cannot be null
897: mdebug(' LPN name parameter consists of only spaces cannot create', G_ERROR);
898: END IF;
899: fnd_message.set_name('WMS', 'WMS_LPN_INAPPROPRIATE_SPACES');
900: fnd_msg_pub.ADD;
901: RAISE FND_API.G_EXC_ERROR;
902: END IF;
903:
904: SELECT wms_license_plate_numbers_s1.NEXTVAL
905: INTO p_lpn_table(i).lpn_id
1050: END IF;
1051: fnd_message.set_name('WMS', 'WMS_CONT_DUPLICATE_LPN');
1052: fnd_message.set_token('LPN', l_lpn_bulk_rec.license_plate_number(k));
1053: fnd_msg_pub.ADD;
1054: RAISE fnd_api.g_exc_error;
1055: EXCEPTION
1056: WHEN NO_DATA_FOUND THEN
1057: NULL;
1058: END;
1061:
1062: l_progress := 'Could not find reason for LPN insert failure. Give generic failure msg';
1063: fnd_message.set_name('WMS', 'WMS_LPN_NOTGEN');
1064: fnd_msg_pub.ADD;
1065: RAISE fnd_api.g_exc_error;
1066: END;
1067:
1068: l_progress := 'Create LPN call to label printing';
1069:
1077: , p_print_mode => 2
1078: , p_business_flow_code => 16
1079: , p_input_param_rec => l_input_param_tbl );
1080:
1081: IF ( l_return_status <> fnd_api.g_ret_sts_success ) THEN
1082: IF (l_debug = 1) THEN
1083: mdebug('failed to print labels in create_lpns', G_ERROR);
1084: END IF;
1085: fnd_message.set_name('WMS', 'WMS_PRINT_LABEL_FAIL');
1104: l_IN_rec.action_code := 'CREATE';
1105:
1106: WSH_WMS_LPN_GRP.Create_Update_Containers (
1107: p_api_version => 1.0
1108: , p_init_msg_list => fnd_api.g_false
1109: , p_commit => fnd_api.g_false
1110: , x_return_status => x_return_status
1111: , x_msg_count => x_msg_count
1112: , x_msg_data => x_msg_data
1105:
1106: WSH_WMS_LPN_GRP.Create_Update_Containers (
1107: p_api_version => 1.0
1108: , p_init_msg_list => fnd_api.g_false
1109: , p_commit => fnd_api.g_false
1110: , x_return_status => x_return_status
1111: , x_msg_count => x_msg_count
1112: , x_msg_data => x_msg_data
1113: , p_detail_info_tab => l_detail_info_tab
1113: , p_detail_info_tab => l_detail_info_tab
1114: , p_IN_rec => l_IN_rec
1115: , x_OUT_rec => l_OUT_rec );
1116:
1117: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
1118: IF (l_debug = 1) THEN
1119: mdebug('Create_Update_Containers Failed', G_ERROR);
1120: END IF;
1121: RAISE fnd_api.g_exc_error;
1117: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
1118: IF (l_debug = 1) THEN
1119: mdebug('Create_Update_Containers Failed', G_ERROR);
1120: END IF;
1121: RAISE fnd_api.g_exc_error;
1122: ELSIF ( l_debug = 1 ) THEN
1123: mdebug('Done with Create_Update_Containers', G_INFO);
1124: END IF;
1125: END IF;
1126:
1127: l_progress := 'End of API body';
1128:
1129: -- Standard check of p_commit.
1130: IF fnd_api.to_boolean(p_commit) THEN
1131: COMMIT WORK;
1132: END IF;
1133:
1134: -- Standard call to get message count and data
1133:
1134: -- Standard call to get message count and data
1135: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1136: EXCEPTION
1137: WHEN FND_API.G_EXC_ERROR THEN
1138: x_return_status := fnd_api.g_ret_sts_error;
1139: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1140: IF (l_debug = 1) THEN
1141: FOR i in 1..x_msg_count LOOP
1134: -- Standard call to get message count and data
1135: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1136: EXCEPTION
1137: WHEN FND_API.G_EXC_ERROR THEN
1138: x_return_status := fnd_api.g_ret_sts_error;
1139: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1140: IF (l_debug = 1) THEN
1141: FOR i in 1..x_msg_count LOOP
1142: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
1150: FOR i IN p_lpn_table.first .. p_lpn_table.last LOOP
1151: p_lpn_table(i).lpn_id := NULL;
1152: END LOOP;
1153: WHEN OTHERS THEN
1154: x_return_status := fnd_api.g_ret_sts_unexp_error;
1155: fnd_message.set_name('WMS', 'WMS_LPN_NOTGEN');
1156: fnd_msg_pub.ADD;
1157: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1158: IF (l_debug = 1) THEN
1308: -- Standard Start of API savepoint
1309: SAVEPOINT AUTO_CREATE_LPNS_PVT;
1310:
1311: -- Standard call to check for call compatibility.
1312: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1313: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
1314: fnd_msg_pub.ADD;
1315: RAISE fnd_api.g_exc_unexpected_error;
1316: END IF;
1311: -- Standard call to check for call compatibility.
1312: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1313: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
1314: fnd_msg_pub.ADD;
1315: RAISE fnd_api.g_exc_unexpected_error;
1316: END IF;
1317:
1318: -- Initialize message list if p_init_msg_list is set to TRUE.
1319: IF fnd_api.to_boolean(p_init_msg_list) THEN
1315: RAISE fnd_api.g_exc_unexpected_error;
1316: END IF;
1317:
1318: -- Initialize message list if p_init_msg_list is set to TRUE.
1319: IF fnd_api.to_boolean(p_init_msg_list) THEN
1320: fnd_msg_pub.initialize;
1321: END IF;
1322:
1323: -- Initialize API return status to success
1320: fnd_msg_pub.initialize;
1321: END IF;
1322:
1323: -- Initialize API return status to success
1324: x_return_status := fnd_api.g_ret_sts_success;
1325:
1326: -- API body
1327: IF (l_debug = 1) THEN
1328: mdebug(l_api_name || ' Entered ' || g_pkg_version, 1);
1335: l_progress := 'Validate quantity';
1336: IF ( NVL(p_quantity, -1) < 0 ) THEN
1337: fnd_message.set_name('WMS', 'WMS_INVALID_QTY');
1338: fnd_msg_pub.ADD;
1339: RAISE fnd_api.g_exc_error;
1340: END IF;
1341:
1342: l_progress := 'Validate Organization ID';
1343:
1346: mdebug(p_lpn_attributes.organization_id||' is an invalid organization id', G_ERROR);
1347: END IF;
1348: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ORG');
1349: fnd_msg_pub.ADD;
1350: RAISE fnd_api.g_exc_error;
1351: END IF;
1352:
1353:
1354: l_progress := 'Validate Client Code';
1355:
1356: IF (l_lsp_installed = 3 AND l_client_code IS NOT NULL) THEN
1357: set_client_info (p_client_code => l_client_code,
1358: x_ret_status => l_ret_status);
1359: IF (l_ret_status <> fnd_api.g_ret_sts_success )THEN
1360: IF (l_debug = 1) THEN
1361: mdebug(l_client_code||' is an invalid client code', G_ERROR);
1362: END IF;
1363: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_CLIENT');
1361: mdebug(l_client_code||' is an invalid client code', G_ERROR);
1362: END IF;
1363: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_CLIENT');
1364: fnd_msg_pub.ADD;
1365: RAISE fnd_api.g_exc_error;
1366: END IF;
1367: END IF;
1368:
1369:
1388: END IF;
1389: fnd_message.set_name('WMS', 'WMS_ITEM_NOT_CONTAINER');
1390: fnd_message.set_token('ITEM', inv_cache.item_rec.segment1);
1391: fnd_msg_pub.ADD;
1392: RAISE fnd_api.g_exc_error;
1393: END IF;
1394: ELSE
1395: l_progress := 'Error calling INV_CACHE.Set_Item_Rec for orgid'||p_lpn_attributes.organization_id||' item id='||p_lpn_attributes.inventory_item_id;
1396: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
1394: ELSE
1395: l_progress := 'Error calling INV_CACHE.Set_Item_Rec for orgid'||p_lpn_attributes.organization_id||' item id='||p_lpn_attributes.inventory_item_id;
1396: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
1397: fnd_msg_pub.ADD;
1398: RAISE fnd_api.g_exc_error;
1399: END IF;
1400: END IF;
1401:
1402: l_progress := 'Determine the source for LPN seq starting number';
1407: mdebug(p_starting_number || ' is an invalid start num', G_ERROR);
1408: END IF;
1409: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_START_NUM');
1410: fnd_msg_pub.ADD;
1411: RAISE fnd_api.g_exc_error;
1412: END IF;
1413:
1414: l_seq_source := l_from_user;
1415: l_curr_seq := p_starting_number;
1437: l_ucc_128_suffix_flag := inv_cache.org_rec.ucc_128_suffix_flag;
1438: END IF;
1439: END IF;
1440:
1441: IF ( l_lpn_prefix = FND_API.G_MISS_CHAR ) THEN
1442: l_lpn_prefix := NULL;
1443: ELSE
1444: IF (l_seq_source = l_from_client) THEN
1445: l_lpn_prefix := NVL(l_lpn_prefix, g_client_rec.client_rec.lpn_prefix);
1447: l_lpn_prefix := NVL(l_lpn_prefix, inv_cache.org_rec.lpn_prefix);
1448: END IF;
1449: END IF;
1450:
1451: IF ( l_lpn_suffix = FND_API.G_MISS_CHAR ) THEN
1452: l_lpn_suffix := NULL;
1453: ELSE
1454: IF (l_seq_source = l_from_client) THEN
1455: l_lpn_suffix := NVL(l_lpn_suffix, g_client_rec.client_rec.lpn_suffix );
1457: l_lpn_suffix := NVL(l_lpn_suffix, inv_cache.org_rec.lpn_suffix );
1458: END IF;
1459: END IF;
1460:
1461: IF ( l_total_lpn_length = FND_API.G_MISS_NUM ) THEN
1462: l_total_lpn_length := NULL;
1463: ELSE
1464: IF (l_seq_source = l_from_client) THEN
1465: l_total_lpn_length := NVL(l_total_lpn_length, g_client_rec.client_rec.total_lpn_length);
1478: END IF;
1479: fnd_message.set_name('INV', 'INV_INTEGER_GREATER_THAN_0');
1480: fnd_message.set_token('ENTITY1','INV_LPN_PREFIX');
1481: fnd_msg_pub.ADD;
1482: RAISE fnd_api.g_exc_error;
1483: END;
1484: END IF;
1485:
1486: IF ( l_total_lpn_length IS NOT NULL ) THEN
1498: mdebug('total length '||l_total_lpn_length||' less than sum length of prefix '||l_lpn_prefix||' and suffix '||l_lpn_suffix, G_ERROR);
1499: END IF;
1500: fnd_message.set_name('WMS', 'WMS_LPN_TOTAL_LENGTH_INVALID');
1501: fnd_msg_pub.ADD;
1502: RAISE fnd_api.g_exc_error;
1503: END IF;
1504: ELSE
1505: l_lpn_seq_length := 0;
1506: END IF;
1514: mdebug('Item '||inv_cache.item_rec.inventory_item_id||' is not serial controlled', G_ERROR);
1515: END IF;
1516: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SER');
1517: fnd_msg_pub.ADD;
1518: RAISE fnd_api.g_exc_error;
1519: END IF;
1520:
1521: -- For now only support a single range of serial numbers
1522: l_serial_rec.fm_serial_number := p_serial_ranges(1).fm_serial_number;
1538: mdebug(l_serial_rec.to_serial_number||' failed INV_Serial_Info x_errorcode='||l_dummy_number, G_ERROR);
1539: END IF;
1540: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SER');
1541: fnd_msg_pub.ADD;
1542: RAISE fnd_api.g_exc_error;
1543: END IF;
1544:
1545: -- Quantity of LPNs will be determined by serial range
1546: l_quantity := l_serial_rec.quantity;
1631: mdebug('LPN name '||l_lpn_tab(l_lpn_cnt).license_plate_number||' exceeds total length '||l_total_lpn_length, G_ERROR);
1632: END IF;
1633: fnd_message.set_name('WMS', 'WMS_LPN_TOTAL_LENGTH_INVALID');
1634: fnd_msg_pub.ADD;
1635: RAISE fnd_api.g_exc_error;
1636: END IF;
1637:
1638: l_progress := 'Insert the newly created lpn id/license plate number record into the table';
1639:
1683: END IF;
1684: fnd_message.set_name('WMS', 'WMS_CONT_DUPLICATE_LPN');
1685: fnd_message.set_token('LPN', l_lpn_tab(l_lpn_cnt).license_plate_number);
1686: fnd_msg_pub.ADD;
1687: RAISE fnd_api.g_exc_error;
1688: ELSIF ( l_loop_cnt > l_quantity + 1000 ) THEN
1689: IF ( l_debug = 1 ) THEN
1690: mdebug('Cannot find valid LPN sequence after 1000 Attempts', G_ERROR);
1691: END IF;
1691: END IF;
1692: fnd_message.set_name('WMS', 'WMS_GEN_LPN_LOOP_ERR');
1693: fnd_message.set_token('NUM', '1000');
1694: fnd_msg_pub.ADD;
1695: RAISE fnd_api.g_exc_error;
1696: ELSIF ( l_debug = 1 ) THEN
1697: mdebug('LPN '||l_lpn_tab(l_lpn_cnt).license_plate_number||' already exists trying new sequence', G_INFO);
1698: END IF;
1699: END IF;
1708: l_progress := 'Call Create_LPNs number of rec='||l_lpn_tab.last;
1709:
1710: Create_LPNs (
1711: p_api_version => p_api_version
1712: , p_init_msg_list => fnd_api.g_false
1713: , p_commit => fnd_api.g_false
1714: , x_return_status => x_return_status
1715: , x_msg_count => x_msg_count
1716: , x_msg_data => x_msg_data
1709:
1710: Create_LPNs (
1711: p_api_version => p_api_version
1712: , p_init_msg_list => fnd_api.g_false
1713: , p_commit => fnd_api.g_false
1714: , x_return_status => x_return_status
1715: , x_msg_count => x_msg_count
1716: , x_msg_data => x_msg_data
1717: , p_caller => p_caller
1716: , x_msg_data => x_msg_data
1717: , p_caller => p_caller
1718: , p_lpn_table => l_lpn_tab );
1719:
1720: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
1721: IF (l_debug = 1) THEN
1722: mdebug('Create_LPNs failed', G_ERROR);
1723: END IF;
1724: RAISE fnd_api.g_exc_error;
1720: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
1721: IF (l_debug = 1) THEN
1722: mdebug('Create_LPNs failed', G_ERROR);
1723: END IF;
1724: RAISE fnd_api.g_exc_error;
1725: END IF;
1726:
1727: x_created_lpns := l_lpn_tab;
1728:
1726:
1727: x_created_lpns := l_lpn_tab;
1728:
1729: -- Standard check of p_commit.
1730: IF fnd_api.to_boolean(p_commit) THEN
1731: COMMIT WORK;
1732: END IF;
1733:
1734: -- Standard call to get message count and data
1733:
1734: -- Standard call to get message count and data
1735: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1736: EXCEPTION
1737: WHEN FND_API.G_EXC_ERROR THEN
1738: x_return_status := fnd_api.g_ret_sts_error;
1739: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1740: IF (l_debug = 1) THEN
1741: FOR i in 1..x_msg_count LOOP
1734: -- Standard call to get message count and data
1735: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1736: EXCEPTION
1737: WHEN FND_API.G_EXC_ERROR THEN
1738: x_return_status := fnd_api.g_ret_sts_error;
1739: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1740: IF (l_debug = 1) THEN
1741: FOR i in 1..x_msg_count LOOP
1742: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
1745: mdebug('msg: '||l_msgdata, G_ERROR);
1746: END IF;
1747: ROLLBACK TO AUTO_CREATE_LPNS_PVT;
1748: WHEN OTHERS THEN
1749: x_return_status := fnd_api.g_ret_sts_unexp_error;
1750: fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
1751: fnd_msg_pub.ADD;
1752: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1753: IF (l_debug = 1) THEN
1966: -- Standard Start of API savepoint
1967: SAVEPOINT MODIFY_LPNS_PVT;
1968:
1969: -- Standard call to check for call compatibility.
1970: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1971: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
1972: fnd_msg_pub.ADD;
1973: RAISE fnd_api.g_exc_unexpected_error;
1974: END IF;
1969: -- Standard call to check for call compatibility.
1970: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1971: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
1972: fnd_msg_pub.ADD;
1973: RAISE fnd_api.g_exc_unexpected_error;
1974: END IF;
1975:
1976: -- Initialize message list if p_init_msg_list is set to TRUE.
1977: IF fnd_api.to_boolean(p_init_msg_list) THEN
1973: RAISE fnd_api.g_exc_unexpected_error;
1974: END IF;
1975:
1976: -- Initialize message list if p_init_msg_list is set to TRUE.
1977: IF fnd_api.to_boolean(p_init_msg_list) THEN
1978: fnd_msg_pub.initialize;
1979: END IF;
1980:
1981: -- Initialize API return status to success
1978: fnd_msg_pub.initialize;
1979: END IF;
1980:
1981: -- Initialize API return status to success
1982: x_return_status := fnd_api.g_ret_sts_success;
1983:
1984: -- API body
1985: IF (l_debug = 1) THEN
1986: mdebug(l_api_name || ' Entered ' || g_pkg_version, 1);
2061: l_progress := 'Updating outermost_lpn_id is restricted to PackUnpack_Container API';
2062: fnd_message.set_name('WMS', 'WMS_UPDATE_LPN_ATTR_ERR');
2063: fnd_message.set_token('ATTR', 'outermost_lpn_id');
2064: fnd_msg_pub.ADD;
2065: RAISE fnd_api.g_exc_error;
2066: END IF;
2067: END IF;
2068:
2069: l_progress := 'Done with general validation';
2180: EXCEPTION
2181: WHEN NO_DATA_FOUND THEN
2182: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
2183: fnd_msg_pub.ADD;
2184: RAISE fnd_api.g_exc_error;
2185: END;
2186:
2187: l_progress := 'Done getting LPN attributes, Add LPN to hash table';
2188: END IF;
2205: l_progress := 'Start of section to massage data';
2206:
2207: -- List of attributes that pertain to the LPN itself and not to the
2208: -- entire hierarchy
2209: IF ( p_lpn_table(lpn_tbl_cnt).license_plate_number <> NVL(l_old.license_plate_number, FND_API.G_MISS_CHAR) OR
2210: p_lpn_table(lpn_tbl_cnt).parent_lpn_id <> NVL(l_old.parent_lpn_id, FND_API.G_MISS_NUM) OR
2211: Nvl(p_lpn_table(lpn_tbl_cnt).inventory_item_id,0)<> NVL(l_old.inventory_item_id, FND_API.G_MISS_NUM) OR --Bug#6504032 Added nvl condition
2212: p_lpn_table(lpn_tbl_cnt).revision <> NVL(l_old.revision, FND_API.G_MISS_CHAR) OR
2213: p_lpn_table(lpn_tbl_cnt).lot_number <> NVL(l_old.lot_number, FND_API.G_MISS_CHAR) OR
2206:
2207: -- List of attributes that pertain to the LPN itself and not to the
2208: -- entire hierarchy
2209: IF ( p_lpn_table(lpn_tbl_cnt).license_plate_number <> NVL(l_old.license_plate_number, FND_API.G_MISS_CHAR) OR
2210: p_lpn_table(lpn_tbl_cnt).parent_lpn_id <> NVL(l_old.parent_lpn_id, FND_API.G_MISS_NUM) OR
2211: Nvl(p_lpn_table(lpn_tbl_cnt).inventory_item_id,0)<> NVL(l_old.inventory_item_id, FND_API.G_MISS_NUM) OR --Bug#6504032 Added nvl condition
2212: p_lpn_table(lpn_tbl_cnt).revision <> NVL(l_old.revision, FND_API.G_MISS_CHAR) OR
2213: p_lpn_table(lpn_tbl_cnt).lot_number <> NVL(l_old.lot_number, FND_API.G_MISS_CHAR) OR
2214: p_lpn_table(lpn_tbl_cnt).serial_number <> NVL(l_old.serial_number, FND_API.G_MISS_CHAR) OR
2207: -- List of attributes that pertain to the LPN itself and not to the
2208: -- entire hierarchy
2209: IF ( p_lpn_table(lpn_tbl_cnt).license_plate_number <> NVL(l_old.license_plate_number, FND_API.G_MISS_CHAR) OR
2210: p_lpn_table(lpn_tbl_cnt).parent_lpn_id <> NVL(l_old.parent_lpn_id, FND_API.G_MISS_NUM) OR
2211: Nvl(p_lpn_table(lpn_tbl_cnt).inventory_item_id,0)<> NVL(l_old.inventory_item_id, FND_API.G_MISS_NUM) OR --Bug#6504032 Added nvl condition
2212: p_lpn_table(lpn_tbl_cnt).revision <> NVL(l_old.revision, FND_API.G_MISS_CHAR) OR
2213: p_lpn_table(lpn_tbl_cnt).lot_number <> NVL(l_old.lot_number, FND_API.G_MISS_CHAR) OR
2214: p_lpn_table(lpn_tbl_cnt).serial_number <> NVL(l_old.serial_number, FND_API.G_MISS_CHAR) OR
2215: p_lpn_table(lpn_tbl_cnt).cost_group_id <> NVL(l_old.cost_group_id, FND_API.G_MISS_NUM) OR
2208: -- entire hierarchy
2209: IF ( p_lpn_table(lpn_tbl_cnt).license_plate_number <> NVL(l_old.license_plate_number, FND_API.G_MISS_CHAR) OR
2210: p_lpn_table(lpn_tbl_cnt).parent_lpn_id <> NVL(l_old.parent_lpn_id, FND_API.G_MISS_NUM) OR
2211: Nvl(p_lpn_table(lpn_tbl_cnt).inventory_item_id,0)<> NVL(l_old.inventory_item_id, FND_API.G_MISS_NUM) OR --Bug#6504032 Added nvl condition
2212: p_lpn_table(lpn_tbl_cnt).revision <> NVL(l_old.revision, FND_API.G_MISS_CHAR) OR
2213: p_lpn_table(lpn_tbl_cnt).lot_number <> NVL(l_old.lot_number, FND_API.G_MISS_CHAR) OR
2214: p_lpn_table(lpn_tbl_cnt).serial_number <> NVL(l_old.serial_number, FND_API.G_MISS_CHAR) OR
2215: p_lpn_table(lpn_tbl_cnt).cost_group_id <> NVL(l_old.cost_group_id, FND_API.G_MISS_NUM) OR
2216: p_lpn_table(lpn_tbl_cnt).tare_weight_uom_code <> NVL(l_old.tare_weight_uom_code, FND_API.G_MISS_CHAR) OR
2209: IF ( p_lpn_table(lpn_tbl_cnt).license_plate_number <> NVL(l_old.license_plate_number, FND_API.G_MISS_CHAR) OR
2210: p_lpn_table(lpn_tbl_cnt).parent_lpn_id <> NVL(l_old.parent_lpn_id, FND_API.G_MISS_NUM) OR
2211: Nvl(p_lpn_table(lpn_tbl_cnt).inventory_item_id,0)<> NVL(l_old.inventory_item_id, FND_API.G_MISS_NUM) OR --Bug#6504032 Added nvl condition
2212: p_lpn_table(lpn_tbl_cnt).revision <> NVL(l_old.revision, FND_API.G_MISS_CHAR) OR
2213: p_lpn_table(lpn_tbl_cnt).lot_number <> NVL(l_old.lot_number, FND_API.G_MISS_CHAR) OR
2214: p_lpn_table(lpn_tbl_cnt).serial_number <> NVL(l_old.serial_number, FND_API.G_MISS_CHAR) OR
2215: p_lpn_table(lpn_tbl_cnt).cost_group_id <> NVL(l_old.cost_group_id, FND_API.G_MISS_NUM) OR
2216: p_lpn_table(lpn_tbl_cnt).tare_weight_uom_code <> NVL(l_old.tare_weight_uom_code, FND_API.G_MISS_CHAR) OR
2217: p_lpn_table(lpn_tbl_cnt).tare_weight <> NVL(l_old.tare_weight, FND_API.G_MISS_NUM) OR
2210: p_lpn_table(lpn_tbl_cnt).parent_lpn_id <> NVL(l_old.parent_lpn_id, FND_API.G_MISS_NUM) OR
2211: Nvl(p_lpn_table(lpn_tbl_cnt).inventory_item_id,0)<> NVL(l_old.inventory_item_id, FND_API.G_MISS_NUM) OR --Bug#6504032 Added nvl condition
2212: p_lpn_table(lpn_tbl_cnt).revision <> NVL(l_old.revision, FND_API.G_MISS_CHAR) OR
2213: p_lpn_table(lpn_tbl_cnt).lot_number <> NVL(l_old.lot_number, FND_API.G_MISS_CHAR) OR
2214: p_lpn_table(lpn_tbl_cnt).serial_number <> NVL(l_old.serial_number, FND_API.G_MISS_CHAR) OR
2215: p_lpn_table(lpn_tbl_cnt).cost_group_id <> NVL(l_old.cost_group_id, FND_API.G_MISS_NUM) OR
2216: p_lpn_table(lpn_tbl_cnt).tare_weight_uom_code <> NVL(l_old.tare_weight_uom_code, FND_API.G_MISS_CHAR) OR
2217: p_lpn_table(lpn_tbl_cnt).tare_weight <> NVL(l_old.tare_weight, FND_API.G_MISS_NUM) OR
2218: p_lpn_table(lpn_tbl_cnt).gross_weight_uom_code <> NVL(l_old.gross_weight_uom_code, FND_API.G_MISS_CHAR) OR
2211: Nvl(p_lpn_table(lpn_tbl_cnt).inventory_item_id,0)<> NVL(l_old.inventory_item_id, FND_API.G_MISS_NUM) OR --Bug#6504032 Added nvl condition
2212: p_lpn_table(lpn_tbl_cnt).revision <> NVL(l_old.revision, FND_API.G_MISS_CHAR) OR
2213: p_lpn_table(lpn_tbl_cnt).lot_number <> NVL(l_old.lot_number, FND_API.G_MISS_CHAR) OR
2214: p_lpn_table(lpn_tbl_cnt).serial_number <> NVL(l_old.serial_number, FND_API.G_MISS_CHAR) OR
2215: p_lpn_table(lpn_tbl_cnt).cost_group_id <> NVL(l_old.cost_group_id, FND_API.G_MISS_NUM) OR
2216: p_lpn_table(lpn_tbl_cnt).tare_weight_uom_code <> NVL(l_old.tare_weight_uom_code, FND_API.G_MISS_CHAR) OR
2217: p_lpn_table(lpn_tbl_cnt).tare_weight <> NVL(l_old.tare_weight, FND_API.G_MISS_NUM) OR
2218: p_lpn_table(lpn_tbl_cnt).gross_weight_uom_code <> NVL(l_old.gross_weight_uom_code, FND_API.G_MISS_CHAR) OR
2219: p_lpn_table(lpn_tbl_cnt).gross_weight <> NVL(l_old.gross_weight, FND_API.G_MISS_NUM) OR
2212: p_lpn_table(lpn_tbl_cnt).revision <> NVL(l_old.revision, FND_API.G_MISS_CHAR) OR
2213: p_lpn_table(lpn_tbl_cnt).lot_number <> NVL(l_old.lot_number, FND_API.G_MISS_CHAR) OR
2214: p_lpn_table(lpn_tbl_cnt).serial_number <> NVL(l_old.serial_number, FND_API.G_MISS_CHAR) OR
2215: p_lpn_table(lpn_tbl_cnt).cost_group_id <> NVL(l_old.cost_group_id, FND_API.G_MISS_NUM) OR
2216: p_lpn_table(lpn_tbl_cnt).tare_weight_uom_code <> NVL(l_old.tare_weight_uom_code, FND_API.G_MISS_CHAR) OR
2217: p_lpn_table(lpn_tbl_cnt).tare_weight <> NVL(l_old.tare_weight, FND_API.G_MISS_NUM) OR
2218: p_lpn_table(lpn_tbl_cnt).gross_weight_uom_code <> NVL(l_old.gross_weight_uom_code, FND_API.G_MISS_CHAR) OR
2219: p_lpn_table(lpn_tbl_cnt).gross_weight <> NVL(l_old.gross_weight, FND_API.G_MISS_NUM) OR
2220: p_lpn_table(lpn_tbl_cnt).container_volume_uom <> NVL(l_old.container_volume_uom, FND_API.G_MISS_CHAR) OR
2213: p_lpn_table(lpn_tbl_cnt).lot_number <> NVL(l_old.lot_number, FND_API.G_MISS_CHAR) OR
2214: p_lpn_table(lpn_tbl_cnt).serial_number <> NVL(l_old.serial_number, FND_API.G_MISS_CHAR) OR
2215: p_lpn_table(lpn_tbl_cnt).cost_group_id <> NVL(l_old.cost_group_id, FND_API.G_MISS_NUM) OR
2216: p_lpn_table(lpn_tbl_cnt).tare_weight_uom_code <> NVL(l_old.tare_weight_uom_code, FND_API.G_MISS_CHAR) OR
2217: p_lpn_table(lpn_tbl_cnt).tare_weight <> NVL(l_old.tare_weight, FND_API.G_MISS_NUM) OR
2218: p_lpn_table(lpn_tbl_cnt).gross_weight_uom_code <> NVL(l_old.gross_weight_uom_code, FND_API.G_MISS_CHAR) OR
2219: p_lpn_table(lpn_tbl_cnt).gross_weight <> NVL(l_old.gross_weight, FND_API.G_MISS_NUM) OR
2220: p_lpn_table(lpn_tbl_cnt).container_volume_uom <> NVL(l_old.container_volume_uom, FND_API.G_MISS_CHAR) OR
2221: p_lpn_table(lpn_tbl_cnt).container_volume <> NVL(l_old.container_volume, FND_API.G_MISS_NUM) OR
2214: p_lpn_table(lpn_tbl_cnt).serial_number <> NVL(l_old.serial_number, FND_API.G_MISS_CHAR) OR
2215: p_lpn_table(lpn_tbl_cnt).cost_group_id <> NVL(l_old.cost_group_id, FND_API.G_MISS_NUM) OR
2216: p_lpn_table(lpn_tbl_cnt).tare_weight_uom_code <> NVL(l_old.tare_weight_uom_code, FND_API.G_MISS_CHAR) OR
2217: p_lpn_table(lpn_tbl_cnt).tare_weight <> NVL(l_old.tare_weight, FND_API.G_MISS_NUM) OR
2218: p_lpn_table(lpn_tbl_cnt).gross_weight_uom_code <> NVL(l_old.gross_weight_uom_code, FND_API.G_MISS_CHAR) OR
2219: p_lpn_table(lpn_tbl_cnt).gross_weight <> NVL(l_old.gross_weight, FND_API.G_MISS_NUM) OR
2220: p_lpn_table(lpn_tbl_cnt).container_volume_uom <> NVL(l_old.container_volume_uom, FND_API.G_MISS_CHAR) OR
2221: p_lpn_table(lpn_tbl_cnt).container_volume <> NVL(l_old.container_volume, FND_API.G_MISS_NUM) OR
2222: p_lpn_table(lpn_tbl_cnt).content_volume_uom_code <> NVL(l_old.content_volume_uom_code, FND_API.G_MISS_CHAR) OR
2215: p_lpn_table(lpn_tbl_cnt).cost_group_id <> NVL(l_old.cost_group_id, FND_API.G_MISS_NUM) OR
2216: p_lpn_table(lpn_tbl_cnt).tare_weight_uom_code <> NVL(l_old.tare_weight_uom_code, FND_API.G_MISS_CHAR) OR
2217: p_lpn_table(lpn_tbl_cnt).tare_weight <> NVL(l_old.tare_weight, FND_API.G_MISS_NUM) OR
2218: p_lpn_table(lpn_tbl_cnt).gross_weight_uom_code <> NVL(l_old.gross_weight_uom_code, FND_API.G_MISS_CHAR) OR
2219: p_lpn_table(lpn_tbl_cnt).gross_weight <> NVL(l_old.gross_weight, FND_API.G_MISS_NUM) OR
2220: p_lpn_table(lpn_tbl_cnt).container_volume_uom <> NVL(l_old.container_volume_uom, FND_API.G_MISS_CHAR) OR
2221: p_lpn_table(lpn_tbl_cnt).container_volume <> NVL(l_old.container_volume, FND_API.G_MISS_NUM) OR
2222: p_lpn_table(lpn_tbl_cnt).content_volume_uom_code <> NVL(l_old.content_volume_uom_code, FND_API.G_MISS_CHAR) OR
2223: p_lpn_table(lpn_tbl_cnt).content_volume <> NVL(l_old.content_volume, FND_API.G_MISS_NUM) OR
2216: p_lpn_table(lpn_tbl_cnt).tare_weight_uom_code <> NVL(l_old.tare_weight_uom_code, FND_API.G_MISS_CHAR) OR
2217: p_lpn_table(lpn_tbl_cnt).tare_weight <> NVL(l_old.tare_weight, FND_API.G_MISS_NUM) OR
2218: p_lpn_table(lpn_tbl_cnt).gross_weight_uom_code <> NVL(l_old.gross_weight_uom_code, FND_API.G_MISS_CHAR) OR
2219: p_lpn_table(lpn_tbl_cnt).gross_weight <> NVL(l_old.gross_weight, FND_API.G_MISS_NUM) OR
2220: p_lpn_table(lpn_tbl_cnt).container_volume_uom <> NVL(l_old.container_volume_uom, FND_API.G_MISS_CHAR) OR
2221: p_lpn_table(lpn_tbl_cnt).container_volume <> NVL(l_old.container_volume, FND_API.G_MISS_NUM) OR
2222: p_lpn_table(lpn_tbl_cnt).content_volume_uom_code <> NVL(l_old.content_volume_uom_code, FND_API.G_MISS_CHAR) OR
2223: p_lpn_table(lpn_tbl_cnt).content_volume <> NVL(l_old.content_volume, FND_API.G_MISS_NUM) OR
2224: p_lpn_table(lpn_tbl_cnt).attribute_category <> NVL(l_old.attribute_category, FND_API.G_MISS_CHAR) OR
2217: p_lpn_table(lpn_tbl_cnt).tare_weight <> NVL(l_old.tare_weight, FND_API.G_MISS_NUM) OR
2218: p_lpn_table(lpn_tbl_cnt).gross_weight_uom_code <> NVL(l_old.gross_weight_uom_code, FND_API.G_MISS_CHAR) OR
2219: p_lpn_table(lpn_tbl_cnt).gross_weight <> NVL(l_old.gross_weight, FND_API.G_MISS_NUM) OR
2220: p_lpn_table(lpn_tbl_cnt).container_volume_uom <> NVL(l_old.container_volume_uom, FND_API.G_MISS_CHAR) OR
2221: p_lpn_table(lpn_tbl_cnt).container_volume <> NVL(l_old.container_volume, FND_API.G_MISS_NUM) OR
2222: p_lpn_table(lpn_tbl_cnt).content_volume_uom_code <> NVL(l_old.content_volume_uom_code, FND_API.G_MISS_CHAR) OR
2223: p_lpn_table(lpn_tbl_cnt).content_volume <> NVL(l_old.content_volume, FND_API.G_MISS_NUM) OR
2224: p_lpn_table(lpn_tbl_cnt).attribute_category <> NVL(l_old.attribute_category, FND_API.G_MISS_CHAR) OR
2225: p_lpn_table(lpn_tbl_cnt).attribute1 <> NVL(l_old.attribute1, FND_API.G_MISS_CHAR) OR
2218: p_lpn_table(lpn_tbl_cnt).gross_weight_uom_code <> NVL(l_old.gross_weight_uom_code, FND_API.G_MISS_CHAR) OR
2219: p_lpn_table(lpn_tbl_cnt).gross_weight <> NVL(l_old.gross_weight, FND_API.G_MISS_NUM) OR
2220: p_lpn_table(lpn_tbl_cnt).container_volume_uom <> NVL(l_old.container_volume_uom, FND_API.G_MISS_CHAR) OR
2221: p_lpn_table(lpn_tbl_cnt).container_volume <> NVL(l_old.container_volume, FND_API.G_MISS_NUM) OR
2222: p_lpn_table(lpn_tbl_cnt).content_volume_uom_code <> NVL(l_old.content_volume_uom_code, FND_API.G_MISS_CHAR) OR
2223: p_lpn_table(lpn_tbl_cnt).content_volume <> NVL(l_old.content_volume, FND_API.G_MISS_NUM) OR
2224: p_lpn_table(lpn_tbl_cnt).attribute_category <> NVL(l_old.attribute_category, FND_API.G_MISS_CHAR) OR
2225: p_lpn_table(lpn_tbl_cnt).attribute1 <> NVL(l_old.attribute1, FND_API.G_MISS_CHAR) OR
2226: p_lpn_table(lpn_tbl_cnt).attribute2 <> NVL(l_old.attribute2, FND_API.G_MISS_CHAR) OR
2219: p_lpn_table(lpn_tbl_cnt).gross_weight <> NVL(l_old.gross_weight, FND_API.G_MISS_NUM) OR
2220: p_lpn_table(lpn_tbl_cnt).container_volume_uom <> NVL(l_old.container_volume_uom, FND_API.G_MISS_CHAR) OR
2221: p_lpn_table(lpn_tbl_cnt).container_volume <> NVL(l_old.container_volume, FND_API.G_MISS_NUM) OR
2222: p_lpn_table(lpn_tbl_cnt).content_volume_uom_code <> NVL(l_old.content_volume_uom_code, FND_API.G_MISS_CHAR) OR
2223: p_lpn_table(lpn_tbl_cnt).content_volume <> NVL(l_old.content_volume, FND_API.G_MISS_NUM) OR
2224: p_lpn_table(lpn_tbl_cnt).attribute_category <> NVL(l_old.attribute_category, FND_API.G_MISS_CHAR) OR
2225: p_lpn_table(lpn_tbl_cnt).attribute1 <> NVL(l_old.attribute1, FND_API.G_MISS_CHAR) OR
2226: p_lpn_table(lpn_tbl_cnt).attribute2 <> NVL(l_old.attribute2, FND_API.G_MISS_CHAR) OR
2227: p_lpn_table(lpn_tbl_cnt).attribute3 <> NVL(l_old.attribute3, FND_API.G_MISS_CHAR) OR
2220: p_lpn_table(lpn_tbl_cnt).container_volume_uom <> NVL(l_old.container_volume_uom, FND_API.G_MISS_CHAR) OR
2221: p_lpn_table(lpn_tbl_cnt).container_volume <> NVL(l_old.container_volume, FND_API.G_MISS_NUM) OR
2222: p_lpn_table(lpn_tbl_cnt).content_volume_uom_code <> NVL(l_old.content_volume_uom_code, FND_API.G_MISS_CHAR) OR
2223: p_lpn_table(lpn_tbl_cnt).content_volume <> NVL(l_old.content_volume, FND_API.G_MISS_NUM) OR
2224: p_lpn_table(lpn_tbl_cnt).attribute_category <> NVL(l_old.attribute_category, FND_API.G_MISS_CHAR) OR
2225: p_lpn_table(lpn_tbl_cnt).attribute1 <> NVL(l_old.attribute1, FND_API.G_MISS_CHAR) OR
2226: p_lpn_table(lpn_tbl_cnt).attribute2 <> NVL(l_old.attribute2, FND_API.G_MISS_CHAR) OR
2227: p_lpn_table(lpn_tbl_cnt).attribute3 <> NVL(l_old.attribute3, FND_API.G_MISS_CHAR) OR
2228: p_lpn_table(lpn_tbl_cnt).attribute4 <> NVL(l_old.attribute4, FND_API.G_MISS_CHAR) OR
2221: p_lpn_table(lpn_tbl_cnt).container_volume <> NVL(l_old.container_volume, FND_API.G_MISS_NUM) OR
2222: p_lpn_table(lpn_tbl_cnt).content_volume_uom_code <> NVL(l_old.content_volume_uom_code, FND_API.G_MISS_CHAR) OR
2223: p_lpn_table(lpn_tbl_cnt).content_volume <> NVL(l_old.content_volume, FND_API.G_MISS_NUM) OR
2224: p_lpn_table(lpn_tbl_cnt).attribute_category <> NVL(l_old.attribute_category, FND_API.G_MISS_CHAR) OR
2225: p_lpn_table(lpn_tbl_cnt).attribute1 <> NVL(l_old.attribute1, FND_API.G_MISS_CHAR) OR
2226: p_lpn_table(lpn_tbl_cnt).attribute2 <> NVL(l_old.attribute2, FND_API.G_MISS_CHAR) OR
2227: p_lpn_table(lpn_tbl_cnt).attribute3 <> NVL(l_old.attribute3, FND_API.G_MISS_CHAR) OR
2228: p_lpn_table(lpn_tbl_cnt).attribute4 <> NVL(l_old.attribute4, FND_API.G_MISS_CHAR) OR
2229: p_lpn_table(lpn_tbl_cnt).attribute5 <> NVL(l_old.attribute5, FND_API.G_MISS_CHAR) OR
2222: p_lpn_table(lpn_tbl_cnt).content_volume_uom_code <> NVL(l_old.content_volume_uom_code, FND_API.G_MISS_CHAR) OR
2223: p_lpn_table(lpn_tbl_cnt).content_volume <> NVL(l_old.content_volume, FND_API.G_MISS_NUM) OR
2224: p_lpn_table(lpn_tbl_cnt).attribute_category <> NVL(l_old.attribute_category, FND_API.G_MISS_CHAR) OR
2225: p_lpn_table(lpn_tbl_cnt).attribute1 <> NVL(l_old.attribute1, FND_API.G_MISS_CHAR) OR
2226: p_lpn_table(lpn_tbl_cnt).attribute2 <> NVL(l_old.attribute2, FND_API.G_MISS_CHAR) OR
2227: p_lpn_table(lpn_tbl_cnt).attribute3 <> NVL(l_old.attribute3, FND_API.G_MISS_CHAR) OR
2228: p_lpn_table(lpn_tbl_cnt).attribute4 <> NVL(l_old.attribute4, FND_API.G_MISS_CHAR) OR
2229: p_lpn_table(lpn_tbl_cnt).attribute5 <> NVL(l_old.attribute5, FND_API.G_MISS_CHAR) OR
2230: p_lpn_table(lpn_tbl_cnt).attribute6 <> NVL(l_old.attribute6, FND_API.G_MISS_CHAR) OR
2223: p_lpn_table(lpn_tbl_cnt).content_volume <> NVL(l_old.content_volume, FND_API.G_MISS_NUM) OR
2224: p_lpn_table(lpn_tbl_cnt).attribute_category <> NVL(l_old.attribute_category, FND_API.G_MISS_CHAR) OR
2225: p_lpn_table(lpn_tbl_cnt).attribute1 <> NVL(l_old.attribute1, FND_API.G_MISS_CHAR) OR
2226: p_lpn_table(lpn_tbl_cnt).attribute2 <> NVL(l_old.attribute2, FND_API.G_MISS_CHAR) OR
2227: p_lpn_table(lpn_tbl_cnt).attribute3 <> NVL(l_old.attribute3, FND_API.G_MISS_CHAR) OR
2228: p_lpn_table(lpn_tbl_cnt).attribute4 <> NVL(l_old.attribute4, FND_API.G_MISS_CHAR) OR
2229: p_lpn_table(lpn_tbl_cnt).attribute5 <> NVL(l_old.attribute5, FND_API.G_MISS_CHAR) OR
2230: p_lpn_table(lpn_tbl_cnt).attribute6 <> NVL(l_old.attribute6, FND_API.G_MISS_CHAR) OR
2231: p_lpn_table(lpn_tbl_cnt).attribute7 <> NVL(l_old.attribute7, FND_API.G_MISS_CHAR) OR
2224: p_lpn_table(lpn_tbl_cnt).attribute_category <> NVL(l_old.attribute_category, FND_API.G_MISS_CHAR) OR
2225: p_lpn_table(lpn_tbl_cnt).attribute1 <> NVL(l_old.attribute1, FND_API.G_MISS_CHAR) OR
2226: p_lpn_table(lpn_tbl_cnt).attribute2 <> NVL(l_old.attribute2, FND_API.G_MISS_CHAR) OR
2227: p_lpn_table(lpn_tbl_cnt).attribute3 <> NVL(l_old.attribute3, FND_API.G_MISS_CHAR) OR
2228: p_lpn_table(lpn_tbl_cnt).attribute4 <> NVL(l_old.attribute4, FND_API.G_MISS_CHAR) OR
2229: p_lpn_table(lpn_tbl_cnt).attribute5 <> NVL(l_old.attribute5, FND_API.G_MISS_CHAR) OR
2230: p_lpn_table(lpn_tbl_cnt).attribute6 <> NVL(l_old.attribute6, FND_API.G_MISS_CHAR) OR
2231: p_lpn_table(lpn_tbl_cnt).attribute7 <> NVL(l_old.attribute7, FND_API.G_MISS_CHAR) OR
2232: p_lpn_table(lpn_tbl_cnt).attribute8 <> NVL(l_old.attribute8, FND_API.G_MISS_CHAR) OR
2225: p_lpn_table(lpn_tbl_cnt).attribute1 <> NVL(l_old.attribute1, FND_API.G_MISS_CHAR) OR
2226: p_lpn_table(lpn_tbl_cnt).attribute2 <> NVL(l_old.attribute2, FND_API.G_MISS_CHAR) OR
2227: p_lpn_table(lpn_tbl_cnt).attribute3 <> NVL(l_old.attribute3, FND_API.G_MISS_CHAR) OR
2228: p_lpn_table(lpn_tbl_cnt).attribute4 <> NVL(l_old.attribute4, FND_API.G_MISS_CHAR) OR
2229: p_lpn_table(lpn_tbl_cnt).attribute5 <> NVL(l_old.attribute5, FND_API.G_MISS_CHAR) OR
2230: p_lpn_table(lpn_tbl_cnt).attribute6 <> NVL(l_old.attribute6, FND_API.G_MISS_CHAR) OR
2231: p_lpn_table(lpn_tbl_cnt).attribute7 <> NVL(l_old.attribute7, FND_API.G_MISS_CHAR) OR
2232: p_lpn_table(lpn_tbl_cnt).attribute8 <> NVL(l_old.attribute8, FND_API.G_MISS_CHAR) OR
2233: p_lpn_table(lpn_tbl_cnt).attribute9 <> NVL(l_old.attribute9, FND_API.G_MISS_CHAR) OR
2226: p_lpn_table(lpn_tbl_cnt).attribute2 <> NVL(l_old.attribute2, FND_API.G_MISS_CHAR) OR
2227: p_lpn_table(lpn_tbl_cnt).attribute3 <> NVL(l_old.attribute3, FND_API.G_MISS_CHAR) OR
2228: p_lpn_table(lpn_tbl_cnt).attribute4 <> NVL(l_old.attribute4, FND_API.G_MISS_CHAR) OR
2229: p_lpn_table(lpn_tbl_cnt).attribute5 <> NVL(l_old.attribute5, FND_API.G_MISS_CHAR) OR
2230: p_lpn_table(lpn_tbl_cnt).attribute6 <> NVL(l_old.attribute6, FND_API.G_MISS_CHAR) OR
2231: p_lpn_table(lpn_tbl_cnt).attribute7 <> NVL(l_old.attribute7, FND_API.G_MISS_CHAR) OR
2232: p_lpn_table(lpn_tbl_cnt).attribute8 <> NVL(l_old.attribute8, FND_API.G_MISS_CHAR) OR
2233: p_lpn_table(lpn_tbl_cnt).attribute9 <> NVL(l_old.attribute9, FND_API.G_MISS_CHAR) OR
2234: p_lpn_table(lpn_tbl_cnt).attribute10 <> NVL(l_old.attribute10, FND_API.G_MISS_CHAR) OR
2227: p_lpn_table(lpn_tbl_cnt).attribute3 <> NVL(l_old.attribute3, FND_API.G_MISS_CHAR) OR
2228: p_lpn_table(lpn_tbl_cnt).attribute4 <> NVL(l_old.attribute4, FND_API.G_MISS_CHAR) OR
2229: p_lpn_table(lpn_tbl_cnt).attribute5 <> NVL(l_old.attribute5, FND_API.G_MISS_CHAR) OR
2230: p_lpn_table(lpn_tbl_cnt).attribute6 <> NVL(l_old.attribute6, FND_API.G_MISS_CHAR) OR
2231: p_lpn_table(lpn_tbl_cnt).attribute7 <> NVL(l_old.attribute7, FND_API.G_MISS_CHAR) OR
2232: p_lpn_table(lpn_tbl_cnt).attribute8 <> NVL(l_old.attribute8, FND_API.G_MISS_CHAR) OR
2233: p_lpn_table(lpn_tbl_cnt).attribute9 <> NVL(l_old.attribute9, FND_API.G_MISS_CHAR) OR
2234: p_lpn_table(lpn_tbl_cnt).attribute10 <> NVL(l_old.attribute10, FND_API.G_MISS_CHAR) OR
2235: p_lpn_table(lpn_tbl_cnt).attribute11 <> NVL(l_old.attribute11, FND_API.G_MISS_CHAR) OR
2228: p_lpn_table(lpn_tbl_cnt).attribute4 <> NVL(l_old.attribute4, FND_API.G_MISS_CHAR) OR
2229: p_lpn_table(lpn_tbl_cnt).attribute5 <> NVL(l_old.attribute5, FND_API.G_MISS_CHAR) OR
2230: p_lpn_table(lpn_tbl_cnt).attribute6 <> NVL(l_old.attribute6, FND_API.G_MISS_CHAR) OR
2231: p_lpn_table(lpn_tbl_cnt).attribute7 <> NVL(l_old.attribute7, FND_API.G_MISS_CHAR) OR
2232: p_lpn_table(lpn_tbl_cnt).attribute8 <> NVL(l_old.attribute8, FND_API.G_MISS_CHAR) OR
2233: p_lpn_table(lpn_tbl_cnt).attribute9 <> NVL(l_old.attribute9, FND_API.G_MISS_CHAR) OR
2234: p_lpn_table(lpn_tbl_cnt).attribute10 <> NVL(l_old.attribute10, FND_API.G_MISS_CHAR) OR
2235: p_lpn_table(lpn_tbl_cnt).attribute11 <> NVL(l_old.attribute11, FND_API.G_MISS_CHAR) OR
2236: p_lpn_table(lpn_tbl_cnt).attribute12 <> NVL(l_old.attribute12, FND_API.G_MISS_CHAR) OR
2229: p_lpn_table(lpn_tbl_cnt).attribute5 <> NVL(l_old.attribute5, FND_API.G_MISS_CHAR) OR
2230: p_lpn_table(lpn_tbl_cnt).attribute6 <> NVL(l_old.attribute6, FND_API.G_MISS_CHAR) OR
2231: p_lpn_table(lpn_tbl_cnt).attribute7 <> NVL(l_old.attribute7, FND_API.G_MISS_CHAR) OR
2232: p_lpn_table(lpn_tbl_cnt).attribute8 <> NVL(l_old.attribute8, FND_API.G_MISS_CHAR) OR
2233: p_lpn_table(lpn_tbl_cnt).attribute9 <> NVL(l_old.attribute9, FND_API.G_MISS_CHAR) OR
2234: p_lpn_table(lpn_tbl_cnt).attribute10 <> NVL(l_old.attribute10, FND_API.G_MISS_CHAR) OR
2235: p_lpn_table(lpn_tbl_cnt).attribute11 <> NVL(l_old.attribute11, FND_API.G_MISS_CHAR) OR
2236: p_lpn_table(lpn_tbl_cnt).attribute12 <> NVL(l_old.attribute12, FND_API.G_MISS_CHAR) OR
2237: p_lpn_table(lpn_tbl_cnt).attribute13 <> NVL(l_old.attribute13, FND_API.G_MISS_CHAR) OR
2230: p_lpn_table(lpn_tbl_cnt).attribute6 <> NVL(l_old.attribute6, FND_API.G_MISS_CHAR) OR
2231: p_lpn_table(lpn_tbl_cnt).attribute7 <> NVL(l_old.attribute7, FND_API.G_MISS_CHAR) OR
2232: p_lpn_table(lpn_tbl_cnt).attribute8 <> NVL(l_old.attribute8, FND_API.G_MISS_CHAR) OR
2233: p_lpn_table(lpn_tbl_cnt).attribute9 <> NVL(l_old.attribute9, FND_API.G_MISS_CHAR) OR
2234: p_lpn_table(lpn_tbl_cnt).attribute10 <> NVL(l_old.attribute10, FND_API.G_MISS_CHAR) OR
2235: p_lpn_table(lpn_tbl_cnt).attribute11 <> NVL(l_old.attribute11, FND_API.G_MISS_CHAR) OR
2236: p_lpn_table(lpn_tbl_cnt).attribute12 <> NVL(l_old.attribute12, FND_API.G_MISS_CHAR) OR
2237: p_lpn_table(lpn_tbl_cnt).attribute13 <> NVL(l_old.attribute13, FND_API.G_MISS_CHAR) OR
2238: p_lpn_table(lpn_tbl_cnt).attribute14 <> NVL(l_old.attribute14, FND_API.G_MISS_CHAR) OR
2231: p_lpn_table(lpn_tbl_cnt).attribute7 <> NVL(l_old.attribute7, FND_API.G_MISS_CHAR) OR
2232: p_lpn_table(lpn_tbl_cnt).attribute8 <> NVL(l_old.attribute8, FND_API.G_MISS_CHAR) OR
2233: p_lpn_table(lpn_tbl_cnt).attribute9 <> NVL(l_old.attribute9, FND_API.G_MISS_CHAR) OR
2234: p_lpn_table(lpn_tbl_cnt).attribute10 <> NVL(l_old.attribute10, FND_API.G_MISS_CHAR) OR
2235: p_lpn_table(lpn_tbl_cnt).attribute11 <> NVL(l_old.attribute11, FND_API.G_MISS_CHAR) OR
2236: p_lpn_table(lpn_tbl_cnt).attribute12 <> NVL(l_old.attribute12, FND_API.G_MISS_CHAR) OR
2237: p_lpn_table(lpn_tbl_cnt).attribute13 <> NVL(l_old.attribute13, FND_API.G_MISS_CHAR) OR
2238: p_lpn_table(lpn_tbl_cnt).attribute14 <> NVL(l_old.attribute14, FND_API.G_MISS_CHAR) OR
2239: p_lpn_table(lpn_tbl_cnt).attribute15 <> NVL(l_old.attribute15, FND_API.G_MISS_CHAR) )
2232: p_lpn_table(lpn_tbl_cnt).attribute8 <> NVL(l_old.attribute8, FND_API.G_MISS_CHAR) OR
2233: p_lpn_table(lpn_tbl_cnt).attribute9 <> NVL(l_old.attribute9, FND_API.G_MISS_CHAR) OR
2234: p_lpn_table(lpn_tbl_cnt).attribute10 <> NVL(l_old.attribute10, FND_API.G_MISS_CHAR) OR
2235: p_lpn_table(lpn_tbl_cnt).attribute11 <> NVL(l_old.attribute11, FND_API.G_MISS_CHAR) OR
2236: p_lpn_table(lpn_tbl_cnt).attribute12 <> NVL(l_old.attribute12, FND_API.G_MISS_CHAR) OR
2237: p_lpn_table(lpn_tbl_cnt).attribute13 <> NVL(l_old.attribute13, FND_API.G_MISS_CHAR) OR
2238: p_lpn_table(lpn_tbl_cnt).attribute14 <> NVL(l_old.attribute14, FND_API.G_MISS_CHAR) OR
2239: p_lpn_table(lpn_tbl_cnt).attribute15 <> NVL(l_old.attribute15, FND_API.G_MISS_CHAR) )
2240: THEN
2233: p_lpn_table(lpn_tbl_cnt).attribute9 <> NVL(l_old.attribute9, FND_API.G_MISS_CHAR) OR
2234: p_lpn_table(lpn_tbl_cnt).attribute10 <> NVL(l_old.attribute10, FND_API.G_MISS_CHAR) OR
2235: p_lpn_table(lpn_tbl_cnt).attribute11 <> NVL(l_old.attribute11, FND_API.G_MISS_CHAR) OR
2236: p_lpn_table(lpn_tbl_cnt).attribute12 <> NVL(l_old.attribute12, FND_API.G_MISS_CHAR) OR
2237: p_lpn_table(lpn_tbl_cnt).attribute13 <> NVL(l_old.attribute13, FND_API.G_MISS_CHAR) OR
2238: p_lpn_table(lpn_tbl_cnt).attribute14 <> NVL(l_old.attribute14, FND_API.G_MISS_CHAR) OR
2239: p_lpn_table(lpn_tbl_cnt).attribute15 <> NVL(l_old.attribute15, FND_API.G_MISS_CHAR) )
2240: THEN
2241: l_progress := 'Initialize temp variables used for each loop';
2234: p_lpn_table(lpn_tbl_cnt).attribute10 <> NVL(l_old.attribute10, FND_API.G_MISS_CHAR) OR
2235: p_lpn_table(lpn_tbl_cnt).attribute11 <> NVL(l_old.attribute11, FND_API.G_MISS_CHAR) OR
2236: p_lpn_table(lpn_tbl_cnt).attribute12 <> NVL(l_old.attribute12, FND_API.G_MISS_CHAR) OR
2237: p_lpn_table(lpn_tbl_cnt).attribute13 <> NVL(l_old.attribute13, FND_API.G_MISS_CHAR) OR
2238: p_lpn_table(lpn_tbl_cnt).attribute14 <> NVL(l_old.attribute14, FND_API.G_MISS_CHAR) OR
2239: p_lpn_table(lpn_tbl_cnt).attribute15 <> NVL(l_old.attribute15, FND_API.G_MISS_CHAR) )
2240: THEN
2241: l_progress := 'Initialize temp variables used for each loop';
2242: l_change_in_gross_weight := 0;
2235: p_lpn_table(lpn_tbl_cnt).attribute11 <> NVL(l_old.attribute11, FND_API.G_MISS_CHAR) OR
2236: p_lpn_table(lpn_tbl_cnt).attribute12 <> NVL(l_old.attribute12, FND_API.G_MISS_CHAR) OR
2237: p_lpn_table(lpn_tbl_cnt).attribute13 <> NVL(l_old.attribute13, FND_API.G_MISS_CHAR) OR
2238: p_lpn_table(lpn_tbl_cnt).attribute14 <> NVL(l_old.attribute14, FND_API.G_MISS_CHAR) OR
2239: p_lpn_table(lpn_tbl_cnt).attribute15 <> NVL(l_old.attribute15, FND_API.G_MISS_CHAR) )
2240: THEN
2241: l_progress := 'Initialize temp variables used for each loop';
2242: l_change_in_gross_weight := 0;
2243: l_change_in_gross_weight_uom := NULL;
2266: mdebug(NVL(p_lpn_table(lpn_tbl_cnt).organization_id, l_old.organization_id)||' is an invalid organization id', G_ERROR);
2267: END IF;
2268: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ORG');
2269: fnd_msg_pub.ADD;
2270: RAISE fnd_api.g_exc_error;
2271: END IF;
2272:
2273: IF (l_debug = 1) THEN
2274: mdebug('Got org info wms_enabled='||inv_cache.org_rec.wms_enabled_flag, 5);
2278: -- License Plate Number cannot be updated in a WMS organziation
2279: fnd_message.set_name('WMS', 'WMS_UPDATE_LPN_ATTR_ERR');
2280: fnd_message.set_token('ATTR', 'License Plate Number');
2281: fnd_msg_pub.ADD;
2282: RAISE fnd_api.g_exc_error;
2283: ELSE
2284: l_new.license_plate_number := p_lpn_table(lpn_tbl_cnt).license_plate_number;
2285: END IF;
2286: END IF;
2299: IF ( l_old.lpn_context <> lpn_context_pregenerated ) THEN
2300: fnd_message.set_name('WMS', 'WMS_LPN_NOT_EMPTY');
2301: fnd_msg_pub.ADD;
2302: END IF;
2303: RAISE fnd_api.g_exc_error;
2304: END IF;*/
2305:
2306: l_progress := 'Calling INV_CACHE.Set_Item_Rec to get item values';
2307: IF ( inv_cache.set_item_rec(
2319: END IF;
2320: fnd_message.set_name('WMS', 'WMS_ITEM_NOT_CONTAINER');
2321: fnd_message.set_token('ITEM', inv_cache.item_rec.segment1);
2322: fnd_msg_pub.ADD;
2323: RAISE fnd_api.g_exc_error;
2324: END IF;
2325: ELSE
2326: l_progress := 'Error calling INV_CACHE.Set_Item_Rec for orgid='||NVL(p_lpn_table(lpn_tbl_cnt).organization_id, l_old.organization_id)||' item id='||p_lpn_table(lpn_tbl_cnt).inventory_item_id;
2327: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
2325: ELSE
2326: l_progress := 'Error calling INV_CACHE.Set_Item_Rec for orgid='||NVL(p_lpn_table(lpn_tbl_cnt).organization_id, l_old.organization_id)||' item id='||p_lpn_table(lpn_tbl_cnt).inventory_item_id;
2327: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
2328: fnd_msg_pub.ADD;
2329: RAISE fnd_api.g_exc_error;
2330: END IF;
2331:
2332: -- Container item is valid, change container item
2333: l_new.inventory_item_id := p_lpn_table(lpn_tbl_cnt).inventory_item_id;
2334: END IF;
2335:
2336: -- bug5404902 changed l_change_in_gross_weight(_uom) to l_change_in_tare_weight(_uom)
2337: l_progress := 'Tare weight';
2338: IF ( p_lpn_table(lpn_tbl_cnt).tare_weight = FND_API.G_MISS_NUM OR p_lpn_table(lpn_tbl_cnt).tare_weight_uom_code = FND_API.G_MISS_CHAR ) THEN
2339: l_new.tare_weight := NULL;
2340: l_new.tare_weight_uom_code := NULL;
2341:
2342: IF ( NVL(l_old.tare_weight, 0) <> 0 AND l_old.tare_weight_uom_code IS NOT NULL ) THEN
2375: ELSE
2376: l_progress := 'Error calling INV_CACHE.Set_Item_Rec for orgid='||NVL(p_lpn_table(lpn_tbl_cnt).organization_id, l_old.organization_id)||' item id='||l_old.inventory_item_id;
2377: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
2378: fnd_msg_pub.ADD;
2379: RAISE fnd_api.g_exc_error;
2380: END IF;
2381: IF ( inv_cache.item_rec.unit_weight IS NOT NULL AND
2382: inv_cache.item_rec.weight_uom_code IS NOT NULL ) THEN
2383:
2411: ELSE
2412: l_progress := 'Error calling INV_CACHE.Set_Item_Rec for orgid='||NVL(p_lpn_table(lpn_tbl_cnt).organization_id, l_old.organization_id)||' item id='||p_lpn_table(lpn_tbl_cnt).inventory_item_id;
2413: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
2414: fnd_msg_pub.ADD;
2415: RAISE fnd_api.g_exc_error;
2416: END IF;
2417: IF ( inv_cache.item_rec.unit_weight IS NOT NULL AND
2418: inv_cache.item_rec.weight_uom_code IS NOT NULL ) THEN
2419:
2450: ELSE
2451: l_progress := 'Error calling INV_CACHE.Set_Item_Rec for orgid='||NVL(p_lpn_table(lpn_tbl_cnt).organization_id, l_old.organization_id)||' item id='||p_lpn_table(lpn_tbl_cnt).inventory_item_id;
2452: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
2453: fnd_msg_pub.ADD;
2454: RAISE fnd_api.g_exc_error;
2455: END IF;
2456:
2457: IF (inv_cache.item_rec.unit_weight IS NOT NULL AND
2458: inv_cache.item_rec.weight_uom_code IS NOT NULL ) THEN
2478: l_new.container_volume_uom := NULL;
2479: END IF;
2480:
2481: l_progress := 'Gross Weight';
2482: IF ( p_lpn_table(lpn_tbl_cnt).gross_weight = FND_API.G_MISS_NUM OR p_lpn_table(lpn_tbl_cnt).gross_weight_uom_code = FND_API.G_MISS_CHAR ) THEN
2483: l_new.gross_weight := NULL;
2484: l_new.gross_weight_uom_code := NULL;
2485: ELSIF ( p_lpn_table(lpn_tbl_cnt).gross_weight IS NOT NULL AND p_lpn_table(lpn_tbl_cnt).gross_weight_uom_code IS NOT NULL ) THEN
2486: -- Check that value is not negative. If it is, floor at zero
2544: mdebug('After gr wt calc ,l_change_in_tare_weight:'||l_change_in_tare_weight ,G_INFO );
2545: END IF;
2546:
2547: l_progress := 'Container Volume';
2548: IF ( p_lpn_table(lpn_tbl_cnt).container_volume = FND_API.G_MISS_NUM OR p_lpn_table(lpn_tbl_cnt).container_volume_uom = FND_API.G_MISS_CHAR ) THEN
2549: l_new.container_volume := NULL;
2550: l_new.container_volume_uom := NULL;
2551: ELSIF ( p_lpn_table(lpn_tbl_cnt).container_volume IS NOT NULL AND p_lpn_table(lpn_tbl_cnt).container_volume_uom IS NOT NULL ) THEN
2552: -- Check that value is not negative. If it is, floor at zero
2565: --END IF;
2566: END IF;
2567:
2568: l_progress := 'Content Volume';
2569: IF ( p_lpn_table(lpn_tbl_cnt).content_volume = FND_API.G_MISS_NUM OR p_lpn_table(lpn_tbl_cnt).content_volume_uom_code = FND_API.G_MISS_CHAR ) THEN
2570: l_new.content_volume := NULL;
2571: l_new.content_volume_uom_code := NULL;
2572: ELSIF ( p_lpn_table(lpn_tbl_cnt).content_volume IS NOT NULL AND p_lpn_table(lpn_tbl_cnt).content_volume_uom_code IS NOT NULL ) THEN
2573: -- Check that value is not negative. If it is, floor at zero
2581: END IF;
2582:
2583: /* Not sure if we need to support this
2584: l_progress := 'Status ID?';
2585: IF ( p_lpn_table(lpn_tbl_cnt).status_id = FND_API.G_MISS_NUM ) THEN
2586: l_new.status_id := NULL;
2587: ELSIF ( p_lpn_table(lpn_tbl_cnt).status_id IS NOT NULL ) THEN
2588: l_new.status_id := p_lpn_table(lpn_tbl_cnt).status_id;
2589: END IF;*/
2588: l_new.status_id := p_lpn_table(lpn_tbl_cnt).status_id;
2589: END IF;*/
2590:
2591: l_progress := 'Update attribute_category';
2592: IF ( p_lpn_table(lpn_tbl_cnt).attribute_category = FND_API.G_MISS_CHAR ) THEN
2593: l_new.attribute_category := NULL;
2594: ELSIF ( p_lpn_table(lpn_tbl_cnt).attribute_category IS NOT NULL ) THEN
2595: l_new.attribute_category := p_lpn_table(lpn_tbl_cnt).attribute_category;
2596: END IF;
2595: l_new.attribute_category := p_lpn_table(lpn_tbl_cnt).attribute_category;
2596: END IF;
2597:
2598: l_progress := 'Update attribute1';
2599: IF ( p_lpn_table(lpn_tbl_cnt).attribute1 = FND_API.G_MISS_CHAR ) THEN
2600: l_new.attribute1 := NULL;
2601: ELSIF ( p_lpn_table(lpn_tbl_cnt).attribute1 IS NOT NULL ) THEN
2602: l_new.attribute1 := p_lpn_table(lpn_tbl_cnt).attribute1;
2603: END IF;
2602: l_new.attribute1 := p_lpn_table(lpn_tbl_cnt).attribute1;
2603: END IF;
2604:
2605: l_progress := 'Update attribute2';
2606: IF ( p_lpn_table(lpn_tbl_cnt).attribute2 = FND_API.G_MISS_CHAR ) THEN
2607: l_new.attribute2 := NULL;
2608: ELSIF ( p_lpn_table(lpn_tbl_cnt).attribute2 IS NOT NULL ) THEN
2609: l_new.attribute2 := p_lpn_table(lpn_tbl_cnt).attribute2;
2610: END IF;
2609: l_new.attribute2 := p_lpn_table(lpn_tbl_cnt).attribute2;
2610: END IF;
2611:
2612: l_progress := 'Update attribute3';
2613: IF ( p_lpn_table(lpn_tbl_cnt).attribute3 = FND_API.G_MISS_CHAR ) THEN
2614: l_new.attribute3 := NULL;
2615: ELSIF ( p_lpn_table(lpn_tbl_cnt).attribute3 IS NOT NULL ) THEN
2616: l_new.attribute3 := p_lpn_table(lpn_tbl_cnt).attribute3;
2617: END IF;
2616: l_new.attribute3 := p_lpn_table(lpn_tbl_cnt).attribute3;
2617: END IF;
2618:
2619: l_progress := 'Update attribute4';
2620: IF ( p_lpn_table(lpn_tbl_cnt).attribute4 = FND_API.G_MISS_CHAR ) THEN
2621: l_new.attribute4 := NULL;
2622: ELSIF ( p_lpn_table(lpn_tbl_cnt).attribute4 IS NOT NULL ) THEN
2623: l_new.attribute4 := p_lpn_table(lpn_tbl_cnt).attribute4;
2624: END IF;
2623: l_new.attribute4 := p_lpn_table(lpn_tbl_cnt).attribute4;
2624: END IF;
2625:
2626: l_progress := 'Update attribute5';
2627: IF ( p_lpn_table(lpn_tbl_cnt).attribute5 = FND_API.G_MISS_CHAR ) THEN
2628: l_new.attribute5 := NULL;
2629: ELSIF ( p_lpn_table(lpn_tbl_cnt).attribute5 IS NOT NULL ) THEN
2630: l_new.attribute5 := p_lpn_table(lpn_tbl_cnt).attribute5;
2631: END IF;
2630: l_new.attribute5 := p_lpn_table(lpn_tbl_cnt).attribute5;
2631: END IF;
2632:
2633: l_progress := 'Update attribute6';
2634: IF ( p_lpn_table(lpn_tbl_cnt).attribute6 = FND_API.G_MISS_CHAR ) THEN
2635: l_new.attribute6 := NULL;
2636: ELSIF ( p_lpn_table(lpn_tbl_cnt).attribute6 IS NOT NULL ) THEN
2637: l_new.attribute6 := p_lpn_table(lpn_tbl_cnt).attribute6;
2638: END IF;
2637: l_new.attribute6 := p_lpn_table(lpn_tbl_cnt).attribute6;
2638: END IF;
2639:
2640: l_progress := 'Update attribute7';
2641: IF ( p_lpn_table(lpn_tbl_cnt).attribute7 = FND_API.G_MISS_CHAR ) THEN
2642: l_new.attribute7 := NULL;
2643: ELSIF ( p_lpn_table(lpn_tbl_cnt).attribute7 IS NOT NULL ) THEN
2644: l_new.attribute7 := p_lpn_table(lpn_tbl_cnt).attribute7;
2645: END IF;
2644: l_new.attribute7 := p_lpn_table(lpn_tbl_cnt).attribute7;
2645: END IF;
2646:
2647: l_progress := 'Update attribute8';
2648: IF ( p_lpn_table(lpn_tbl_cnt).attribute8 = FND_API.G_MISS_CHAR ) THEN
2649: l_new.attribute8 := NULL;
2650: ELSIF ( p_lpn_table(lpn_tbl_cnt).attribute8 IS NOT NULL ) THEN
2651: l_new.attribute8 := p_lpn_table(lpn_tbl_cnt).attribute8;
2652: END IF;
2651: l_new.attribute8 := p_lpn_table(lpn_tbl_cnt).attribute8;
2652: END IF;
2653:
2654: l_progress := 'Update attribute9';
2655: IF ( p_lpn_table(lpn_tbl_cnt).attribute9 = FND_API.G_MISS_CHAR ) THEN
2656: l_new.attribute9 := NULL;
2657: ELSIF ( p_lpn_table(lpn_tbl_cnt).attribute9 IS NOT NULL ) THEN
2658: l_new.attribute9 := p_lpn_table(lpn_tbl_cnt).attribute9;
2659: END IF;
2658: l_new.attribute9 := p_lpn_table(lpn_tbl_cnt).attribute9;
2659: END IF;
2660:
2661: l_progress := 'Update attribute10';
2662: IF ( p_lpn_table(lpn_tbl_cnt).attribute10 = FND_API.G_MISS_CHAR ) THEN
2663: l_new.attribute10 := NULL;
2664: ELSIF ( p_lpn_table(lpn_tbl_cnt).attribute10 IS NOT NULL ) THEN
2665: l_new.attribute10 := p_lpn_table(lpn_tbl_cnt).attribute10;
2666: END IF;
2665: l_new.attribute10 := p_lpn_table(lpn_tbl_cnt).attribute10;
2666: END IF;
2667:
2668: l_progress := 'Update attribute11';
2669: IF ( p_lpn_table(lpn_tbl_cnt).attribute11 = FND_API.G_MISS_CHAR ) THEN
2670: l_new.attribute11 := NULL;
2671: ELSIF ( p_lpn_table(lpn_tbl_cnt).attribute11 IS NOT NULL ) THEN
2672: l_new.attribute11 := p_lpn_table(lpn_tbl_cnt).attribute11;
2673: END IF;
2672: l_new.attribute11 := p_lpn_table(lpn_tbl_cnt).attribute11;
2673: END IF;
2674:
2675: l_progress := 'Update attribute12';
2676: IF ( p_lpn_table(lpn_tbl_cnt).attribute12 = FND_API.G_MISS_CHAR ) THEN
2677: l_new.attribute12 := NULL;
2678: ELSIF ( p_lpn_table(lpn_tbl_cnt).attribute12 IS NOT NULL ) THEN
2679: l_new.attribute12 := p_lpn_table(lpn_tbl_cnt).attribute12;
2680: END IF;
2679: l_new.attribute12 := p_lpn_table(lpn_tbl_cnt).attribute12;
2680: END IF;
2681:
2682: l_progress := 'Update attribute13';
2683: IF ( p_lpn_table(lpn_tbl_cnt).attribute13 = FND_API.G_MISS_CHAR ) THEN
2684: l_new.attribute13 := NULL;
2685: ELSIF ( p_lpn_table(lpn_tbl_cnt).attribute13 IS NOT NULL ) THEN
2686: l_new.attribute13 := p_lpn_table(lpn_tbl_cnt).attribute13;
2687: END IF;
2686: l_new.attribute13 := p_lpn_table(lpn_tbl_cnt).attribute13;
2687: END IF;
2688:
2689: l_progress := 'Update attribute14';
2690: IF ( p_lpn_table(lpn_tbl_cnt).attribute14 = FND_API.G_MISS_CHAR ) THEN
2691: l_new.attribute14 := NULL;
2692: ELSIF ( p_lpn_table(lpn_tbl_cnt).attribute14 IS NOT NULL ) THEN
2693: l_new.attribute14 := p_lpn_table(lpn_tbl_cnt).attribute14;
2694: END IF;
2693: l_new.attribute14 := p_lpn_table(lpn_tbl_cnt).attribute14;
2694: END IF;
2695:
2696: l_progress := 'Update attribute15';
2697: IF ( p_lpn_table(lpn_tbl_cnt).attribute15 = FND_API.G_MISS_CHAR ) THEN
2698: l_new.attribute15 := NULL;
2699: ELSIF ( p_lpn_table(lpn_tbl_cnt).attribute15 IS NOT NULL ) THEN
2700: l_new.attribute15 := p_lpn_table(lpn_tbl_cnt).attribute15;
2701: END IF;
2706: l_progress := 'Updating parent_lpn_id is retructed to PackUnpack_Container API';
2707: fnd_message.set_name('WMS', 'WMS_UPDATE_LPN_ATTR_ERR');
2708: fnd_message.set_token('ATTR', 'parent_lpn_id');
2709: fnd_msg_pub.ADD;
2710: RAISE fnd_api.g_exc_error;
2711: ELSIF ( p_lpn_table(lpn_tbl_cnt).parent_lpn_id = FND_API.G_MISS_NUM ) THEN
2712: -- UNPACKING LPN
2713: l_new.parent_lpn_id := NULL;
2714: l_new.outermost_lpn_id := l_new.lpn_id;
2707: fnd_message.set_name('WMS', 'WMS_UPDATE_LPN_ATTR_ERR');
2708: fnd_message.set_token('ATTR', 'parent_lpn_id');
2709: fnd_msg_pub.ADD;
2710: RAISE fnd_api.g_exc_error;
2711: ELSIF ( p_lpn_table(lpn_tbl_cnt).parent_lpn_id = FND_API.G_MISS_NUM ) THEN
2712: -- UNPACKING LPN
2713: l_new.parent_lpn_id := NULL;
2714: l_new.outermost_lpn_id := l_new.lpn_id;
2715: ELSIF ( l_old.parent_lpn_id IS NOT NULL ) THEN
2716: -- Nesting an lpn that is already nested not allowed in a single
2717: -- operaiton. Must unpack LPN before packing into new LPN
2718: fnd_message.set_name('WMS', 'WMS_LPN_ALREADY_NESTED_ERR');
2719: fnd_msg_pub.ADD;
2720: RAISE fnd_api.g_exc_error;
2721: ELSE
2722: -- PACKING LPN
2723: l_new.parent_lpn_id := p_lpn_table(lpn_tbl_cnt).parent_lpn_id;
2724:
2828: , p_volume_change => l_change_in_volume
2829: , p_volume_uom_change => l_change_in_volume_uom
2830: );
2831:
2832: IF ( x_return_status <> fnd_api.g_ret_sts_success) THEN
2833: IF (l_debug = 1) THEN
2834: mdebug('Call to WMS_CONTAINER_PVT.Update_Locator_capacity failed !!!');
2835: END IF;
2836: END IF;
3265: p_lpn_table(lpn_tbl_cnt).source_line_detail_id <> NVL(l_old.source_line_detail_id , G_NULL_NUM)OR
3266: p_lpn_table(lpn_tbl_cnt).source_name <> NVL(l_old.source_name, G_NULL_CHAR) )
3267: THEN
3268: l_progress := 'Organization';
3269: IF ( p_lpn_table(lpn_tbl_cnt).organization_id = FND_API.G_MISS_NUM ) THEN
3270: l_progress := 'organization_id cannot be made null';
3271: fnd_message.set_name('WMS', 'WMS_UPDATE_LPN_ATTR_ERR');
3272: fnd_message.set_token('ATTR', 'organization_id');
3273: fnd_msg_pub.ADD;
3270: l_progress := 'organization_id cannot be made null';
3271: fnd_message.set_name('WMS', 'WMS_UPDATE_LPN_ATTR_ERR');
3272: fnd_message.set_token('ATTR', 'organization_id');
3273: fnd_msg_pub.ADD;
3274: RAISE fnd_api.g_exc_error;
3275: ELSIF ( p_lpn_table(lpn_tbl_cnt).organization_id <> l_old.organization_id ) THEN
3276: l_new.organization_id := p_lpn_table(lpn_tbl_cnt).organization_id;
3277:
3278: --Bug # 3516547
3291: THEN
3292: l_progress := 'Error calling INV_CACHE.Set_Item_Rec for orgid='||l_old.organization_id||' item id='||new_org.inventory_item_id;
3293: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
3294: fnd_msg_pub.ADD;
3295: RAISE fnd_api.g_exc_error;
3296: END IF;
3297:
3298: IF (l_debug = 1) THEN
3299: mdebug('Got WLC for orgxfer itm='||new_org.inventory_item_id||' oldpuom='||inv_cache.item_rec.primary_uom_code||' newpuom='||new_org.primary_uom_code||
3313: END LOOP;
3314: END IF;
3315:
3316: l_progress := 'Subiventory';
3317: IF ( p_lpn_table(lpn_tbl_cnt).subinventory_code = FND_API.G_MISS_CHAR ) THEN
3318: l_new.subinventory_code := NULL;
3319: ELSIF ( p_lpn_table(lpn_tbl_cnt).subinventory_code IS NOT NULL ) THEN
3320: l_new.subinventory_code := p_lpn_table(lpn_tbl_cnt).subinventory_code;
3321: END IF;
3320: l_new.subinventory_code := p_lpn_table(lpn_tbl_cnt).subinventory_code;
3321: END IF;
3322:
3323: l_progress := 'Locator';
3324: IF ( p_lpn_table(lpn_tbl_cnt).locator_id = FND_API.G_MISS_NUM ) THEN
3325: l_new.locator_id := NULL;
3326: ELSIF ( p_lpn_table(lpn_tbl_cnt).locator_id IS NOT NULL ) THEN
3327: l_new.locator_id := p_lpn_table(lpn_tbl_cnt).locator_id;
3328: END IF;
3327: l_new.locator_id := p_lpn_table(lpn_tbl_cnt).locator_id;
3328: END IF;
3329:
3330: l_progress := 'source_type_id';
3331: IF ( p_lpn_table(lpn_tbl_cnt).source_type_id = FND_API.G_MISS_NUM ) THEN
3332: l_new.source_type_id := NULL;
3333: ELSIF ( p_lpn_table(lpn_tbl_cnt).source_type_id IS NOT NULL ) THEN
3334: l_new.source_type_id := p_lpn_table(lpn_tbl_cnt).source_type_id;
3335: END IF;
3334: l_new.source_type_id := p_lpn_table(lpn_tbl_cnt).source_type_id;
3335: END IF;
3336:
3337: l_progress := 'source_header_id';
3338: IF ( p_lpn_table(lpn_tbl_cnt).source_header_id = FND_API.G_MISS_NUM ) THEN
3339: l_new.source_header_id := NULL;
3340: ELSIF ( p_lpn_table(lpn_tbl_cnt).source_header_id IS NOT NULL ) THEN
3341: l_new.source_header_id := p_lpn_table(lpn_tbl_cnt).source_header_id;
3342: END IF;
3341: l_new.source_header_id := p_lpn_table(lpn_tbl_cnt).source_header_id;
3342: END IF;
3343:
3344: l_progress := 'source_line_id';
3345: IF ( p_lpn_table(lpn_tbl_cnt).source_line_id = FND_API.G_MISS_NUM ) THEN
3346: l_new.source_line_id := NULL;
3347: ELSIF ( p_lpn_table(lpn_tbl_cnt).source_line_id IS NOT NULL ) THEN
3348: l_new.source_line_id := p_lpn_table(lpn_tbl_cnt).source_line_id;
3349: END IF;
3348: l_new.source_line_id := p_lpn_table(lpn_tbl_cnt).source_line_id;
3349: END IF;
3350:
3351: l_progress := 'source_line_detail_id';
3352: IF ( p_lpn_table(lpn_tbl_cnt).source_line_detail_id = FND_API.G_MISS_NUM ) THEN
3353: l_new.source_line_detail_id := NULL;
3354: ELSIF ( p_lpn_table(lpn_tbl_cnt).source_line_detail_id IS NOT NULL ) THEN
3355: l_new.source_line_detail_id := p_lpn_table(lpn_tbl_cnt).source_line_detail_id;
3356: END IF;
3355: l_new.source_line_detail_id := p_lpn_table(lpn_tbl_cnt).source_line_detail_id;
3356: END IF;
3357:
3358: l_progress := 'source_name';
3359: IF ( p_lpn_table(lpn_tbl_cnt).source_name = FND_API.G_MISS_CHAR ) THEN
3360: l_new.source_name := NULL;
3361: ELSIF ( p_lpn_table(lpn_tbl_cnt).source_name IS NOT NULL ) THEN
3362: l_new.source_name := p_lpn_table(lpn_tbl_cnt).source_name;
3363: END IF;
3363: END IF;
3364:
3365: l_progress := 'Context';
3366: -- Must to context after sub and loc!
3367: IF ( p_lpn_table(lpn_tbl_cnt).lpn_context = FND_API.G_MISS_NUM ) THEN
3368: l_progress := 'LPN context cannot be made null';
3369: fnd_message.set_name('WMS', 'WMS_UPDATE_LPN_ATTR_ERR');
3370: fnd_message.set_token('ATTR', 'lpn_context');
3371: fnd_msg_pub.ADD;
3368: l_progress := 'LPN context cannot be made null';
3369: fnd_message.set_name('WMS', 'WMS_UPDATE_LPN_ATTR_ERR');
3370: fnd_message.set_token('ATTR', 'lpn_context');
3371: fnd_msg_pub.ADD;
3372: RAISE fnd_api.g_exc_error;
3373: ELSIF ( p_lpn_table(lpn_tbl_cnt).lpn_context <> l_old.lpn_context ) THEN
3374: l_new.lpn_context := p_lpn_table(lpn_tbl_cnt).lpn_context;
3375:
3376: l_progress := 'Call API to validate context change';
3375:
3376: l_progress := 'Call API to validate context change';
3377: IF ( NOT Valid_Context_Change(p_caller, l_old.lpn_context, l_new.lpn_context) ) THEN
3378: l_progress := 'Failed Valid_Context_Change check';
3379: RAISE fnd_api.g_exc_error;
3380: END IF;
3381:
3382: IF ( l_new.lpn_context = LPN_CONTEXT_STORES OR
3383: l_new.lpn_context = LPN_CONTEXT_PREGENERATED OR
3529: l_IN_rec.action_code := 'CREATE';
3530:
3531: WSH_WMS_LPN_GRP.Create_Update_Containers (
3532: p_api_version => 1.0
3533: , p_init_msg_list => fnd_api.g_false
3534: , p_commit => fnd_api.g_false
3535: , x_return_status => x_return_status
3536: , x_msg_count => x_msg_count
3537: , x_msg_data => x_msg_data
3530:
3531: WSH_WMS_LPN_GRP.Create_Update_Containers (
3532: p_api_version => 1.0
3533: , p_init_msg_list => fnd_api.g_false
3534: , p_commit => fnd_api.g_false
3535: , x_return_status => x_return_status
3536: , x_msg_count => x_msg_count
3537: , x_msg_data => x_msg_data
3538: , p_detail_info_tab => wsh_create_tbl
3538: , p_detail_info_tab => wsh_create_tbl
3539: , p_IN_rec => l_IN_rec
3540: , x_OUT_rec => l_OUT_rec );
3541:
3542: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
3543: IF (l_debug = 1) THEN
3544: mdebug('Create_Update_Containers Failed, May alreade exist in WDD, Try update instead', G_ERROR);
3545: FOR i in 1..x_msg_count LOOP
3546: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
3550: l_IN_rec.action_code := 'UPDATE';
3551:
3552: WSH_WMS_LPN_GRP.Create_Update_Containers (
3553: p_api_version => 1.0
3554: , p_init_msg_list => fnd_api.g_false
3555: , p_commit => fnd_api.g_false
3556: , x_return_status => x_return_status
3557: , x_msg_count => x_msg_count
3558: , x_msg_data => x_msg_data
3551:
3552: WSH_WMS_LPN_GRP.Create_Update_Containers (
3553: p_api_version => 1.0
3554: , p_init_msg_list => fnd_api.g_false
3555: , p_commit => fnd_api.g_false
3556: , x_return_status => x_return_status
3557: , x_msg_count => x_msg_count
3558: , x_msg_data => x_msg_data
3559: , p_detail_info_tab => wsh_create_tbl
3560: , p_IN_rec => l_IN_rec
3561: , x_OUT_rec => l_OUT_rec );
3562: END IF;
3563:
3564: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
3565: IF (l_debug = 1) THEN
3566: mdebug('WSH Create Containers Failed', G_ERROR);
3567: END IF;
3568: RAISE fnd_api.g_exc_error;
3564: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
3565: IF (l_debug = 1) THEN
3566: mdebug('WSH Create Containers Failed', G_ERROR);
3567: END IF;
3568: RAISE fnd_api.g_exc_error;
3569: ELSIF ( l_debug = 1 ) THEN
3570: mdebug('Done with Create_Update_Containers', G_INFO);
3571: END IF;
3572:
3584: l_IN_rec.action_code := 'UPDATE';
3585:
3586: WSH_WMS_LPN_GRP.Create_Update_Containers (
3587: p_api_version => 1.0
3588: , p_init_msg_list => fnd_api.g_false
3589: , p_commit => fnd_api.g_false
3590: , x_return_status => x_return_status
3591: , x_msg_count => x_msg_count
3592: , x_msg_data => x_msg_data
3585:
3586: WSH_WMS_LPN_GRP.Create_Update_Containers (
3587: p_api_version => 1.0
3588: , p_init_msg_list => fnd_api.g_false
3589: , p_commit => fnd_api.g_false
3590: , x_return_status => x_return_status
3591: , x_msg_count => x_msg_count
3592: , x_msg_data => x_msg_data
3593: , p_detail_info_tab => wsh_update_tbl
3593: , p_detail_info_tab => wsh_update_tbl
3594: , p_IN_rec => l_IN_rec
3595: , x_OUT_rec => l_OUT_rec );
3596:
3597: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
3598: IF (l_debug = 1) THEN
3599: mdebug('Create_Update_Containers Failed, Might not yet exist in WDD, Try create instead', G_ERROR);
3600: FOR i in 1..x_msg_count LOOP
3601: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
3605: l_IN_rec.action_code := 'CREATE';
3606:
3607: WSH_WMS_LPN_GRP.Create_Update_Containers (
3608: p_api_version => 1.0
3609: , p_init_msg_list => fnd_api.g_false
3610: , p_commit => fnd_api.g_false
3611: , x_return_status => x_return_status
3612: , x_msg_count => x_msg_count
3613: , x_msg_data => x_msg_data
3606:
3607: WSH_WMS_LPN_GRP.Create_Update_Containers (
3608: p_api_version => 1.0
3609: , p_init_msg_list => fnd_api.g_false
3610: , p_commit => fnd_api.g_false
3611: , x_return_status => x_return_status
3612: , x_msg_count => x_msg_count
3613: , x_msg_data => x_msg_data
3614: , p_detail_info_tab => wsh_update_tbl
3615: , p_IN_rec => l_IN_rec
3616: , x_OUT_rec => l_OUT_rec );
3617: END IF;
3618:
3619: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
3620: IF (l_debug = 1) THEN
3621: mdebug('WSH Update Containers Failed', G_ERROR);
3622: END IF;
3623: RAISE fnd_api.g_exc_error;
3619: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
3620: IF (l_debug = 1) THEN
3621: mdebug('WSH Update Containers Failed', G_ERROR);
3622: END IF;
3623: RAISE fnd_api.g_exc_error;
3624: ELSIF ( l_debug = 1 ) THEN
3625: mdebug('Done with Create_Update_Containers', G_INFO);
3626: END IF;
3627:
3645: l_wsh_action_prms.action_code := 'UNPACK';
3646:
3647: WSH_WMS_LPN_GRP.Delivery_Detail_Action (
3648: p_api_version_number => 1.0
3649: , p_init_msg_list => fnd_api.g_false
3650: , p_commit => fnd_api.g_false
3651: , x_return_status => x_return_status
3652: , x_msg_count => x_msg_count
3653: , x_msg_data => x_msg_data
3646:
3647: WSH_WMS_LPN_GRP.Delivery_Detail_Action (
3648: p_api_version_number => 1.0
3649: , p_init_msg_list => fnd_api.g_false
3650: , p_commit => fnd_api.g_false
3651: , x_return_status => x_return_status
3652: , x_msg_count => x_msg_count
3653: , x_msg_data => x_msg_data
3654: , p_lpn_id_tbl => l_wsh_unpack_lpn_id_tbl
3656: , p_action_prms => l_wsh_action_prms
3657: , x_defaults => l_wsh_defaults
3658: , x_action_out_rec => l_wsh_action_out_rec );
3659:
3660: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
3661: l_progress := 'Delivery_Detail_Action failed';
3662: --RAISE fnd_api.g_exc_error;
3663:
3664: IF ( x_return_status = fnd_api.g_ret_sts_error ) THEN
3658: , x_action_out_rec => l_wsh_action_out_rec );
3659:
3660: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
3661: l_progress := 'Delivery_Detail_Action failed';
3662: --RAISE fnd_api.g_exc_error;
3663:
3664: IF ( x_return_status = fnd_api.g_ret_sts_error ) THEN
3665: RAISE fnd_api.g_exc_error;
3666: ELSIF ( l_debug = 1 ) THEN
3660: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
3661: l_progress := 'Delivery_Detail_Action failed';
3662: --RAISE fnd_api.g_exc_error;
3663:
3664: IF ( x_return_status = fnd_api.g_ret_sts_error ) THEN
3665: RAISE fnd_api.g_exc_error;
3666: ELSIF ( l_debug = 1 ) THEN
3667: mdebug('x_return_status='||x_return_status, G_INFO);
3668: END IF;
3661: l_progress := 'Delivery_Detail_Action failed';
3662: --RAISE fnd_api.g_exc_error;
3663:
3664: IF ( x_return_status = fnd_api.g_ret_sts_error ) THEN
3665: RAISE fnd_api.g_exc_error;
3666: ELSIF ( l_debug = 1 ) THEN
3667: mdebug('x_return_status='||x_return_status, G_INFO);
3668: END IF;
3669: ELSIF (l_debug = 1) THEN
3685: l_wsh_action_prms.action_code := 'DELETE';
3686:
3687: WSH_WMS_LPN_GRP.Delivery_Detail_Action (
3688: p_api_version_number => 1.0
3689: , p_init_msg_list => fnd_api.g_false
3690: , p_commit => fnd_api.g_false
3691: , x_return_status => x_return_status
3692: , x_msg_count => x_msg_count
3693: , x_msg_data => x_msg_data
3686:
3687: WSH_WMS_LPN_GRP.Delivery_Detail_Action (
3688: p_api_version_number => 1.0
3689: , p_init_msg_list => fnd_api.g_false
3690: , p_commit => fnd_api.g_false
3691: , x_return_status => x_return_status
3692: , x_msg_count => x_msg_count
3693: , x_msg_data => x_msg_data
3694: , p_lpn_id_tbl => l_wsh_delete_lpn_id_tbl
3696: , p_action_prms => l_wsh_action_prms
3697: , x_defaults => l_wsh_defaults
3698: , x_action_out_rec => l_wsh_action_out_rec );
3699:
3700: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
3701: IF (l_debug = 1) THEN
3702: mdebug('Delivery_Detail_Action Not Successful', G_ERROR);
3703: END IF;
3704:
3701: IF (l_debug = 1) THEN
3702: mdebug('Delivery_Detail_Action Not Successful', G_ERROR);
3703: END IF;
3704:
3705: IF ( x_return_status = fnd_api.g_ret_sts_error ) THEN
3706: RAISE fnd_api.g_exc_error;
3707: ELSIF ( l_debug = 1 ) THEN
3708: mdebug('x_return_status='||x_return_status, G_INFO);
3709: END IF;
3702: mdebug('Delivery_Detail_Action Not Successful', G_ERROR);
3703: END IF;
3704:
3705: IF ( x_return_status = fnd_api.g_ret_sts_error ) THEN
3706: RAISE fnd_api.g_exc_error;
3707: ELSIF ( l_debug = 1 ) THEN
3708: mdebug('x_return_status='||x_return_status, G_INFO);
3709: END IF;
3710: ELSIF ( l_debug = 1 ) THEN
3791: END IF;
3792: fnd_message.set_name('WMS', 'WMS_CONT_DUPLICATE_LPN');
3793: fnd_message.set_token('LPN', l_lpn_bulk_rec.license_plate_number(bulk_i));
3794: fnd_msg_pub.ADD;
3795: RAISE fnd_api.g_exc_error;
3796: EXCEPTION
3797: WHEN NO_DATA_FOUND THEN
3798: NULL;
3799: END;
3838: END IF;
3839: END IF;
3840:
3841: -- Standard check of p_commit.
3842: IF fnd_api.to_boolean(p_commit) THEN
3843: COMMIT WORK;
3844: END IF;
3845:
3846: -- Standard call to get message count and data
3845:
3846: -- Standard call to get message count and data
3847: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3848: EXCEPTION
3849: WHEN FND_API.G_EXC_ERROR THEN
3850: x_return_status := fnd_api.g_ret_sts_error;
3851: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3852: IF (l_debug = 1) THEN
3853: FOR i in 1..x_msg_count LOOP
3846: -- Standard call to get message count and data
3847: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3848: EXCEPTION
3849: WHEN FND_API.G_EXC_ERROR THEN
3850: x_return_status := fnd_api.g_ret_sts_error;
3851: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3852: IF (l_debug = 1) THEN
3853: FOR i in 1..x_msg_count LOOP
3854: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
3857: mdebug('msg: '||l_msgdata, G_ERROR);
3858: END IF;
3859: ROLLBACK TO MODIFY_LPNS_PVT;
3860: --WHEN NOWAIT THEN
3861: -- x_return_status := fnd_api.g_ret_sts_unexp_error;
3862: WHEN OTHERS THEN
3863: x_return_status := fnd_api.g_ret_sts_unexp_error;
3864: fnd_message.set_name('WMS', 'WMS_UPDATE_LPN_FAILED');
3865: fnd_msg_pub.ADD;
3859: ROLLBACK TO MODIFY_LPNS_PVT;
3860: --WHEN NOWAIT THEN
3861: -- x_return_status := fnd_api.g_ret_sts_unexp_error;
3862: WHEN OTHERS THEN
3863: x_return_status := fnd_api.g_ret_sts_unexp_error;
3864: fnd_message.set_name('WMS', 'WMS_UPDATE_LPN_FAILED');
3865: fnd_msg_pub.ADD;
3866: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3867: IF (l_debug = 1) THEN
3982: x_return_status => x_return_status
3983: , x_msg_count => x_msg_count
3984: , x_msg_data => x_msg_data
3985: , p_organization_id => p_organization_id );
3986: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
3987: IF ( l_debug = 1 ) THEN
3988: mdebug('Call to wms_install.check_install failed:' ||x_msg_data, 1);
3989: END IF;
3990: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3986: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
3987: IF ( l_debug = 1 ) THEN
3988: mdebug('Call to wms_install.check_install failed:' ||x_msg_data, 1);
3989: END IF;
3990: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3991: END IF;
3992:
3993: IF ( NOT l_wms_org_flag ) THEN
3994: IF ( l_debug = 1 ) THEN
3995: mdebug('Generate License Plate concurrent program is only available for WMS enabled organizations', 1);
3996: END IF;
3997: fnd_message.set_name('WMS', 'WMS_ONLY_FUNCTIONALITY');
3998: fnd_msg_pub.ADD;
3999: RAISE fnd_api.g_exc_error;
4000: END IF;
4001:
4002: --7270863 the condition IF ( l_ucc_128_suffix_flag IS NULL ) will be successful now if l_ucc_128_suffix_flag value is null in Auto_Create_LPNs
4003: --'N' will be passed only if it is having some values(2) other than 1
4010: -- Bug 4691144 If the default from org parameters is set to 'no'
4011: -- Set prefix and suffix to NULL.
4012: IF ( p_org_parameters = 2 ) THEN
4013: IF ( p_lpn_prefix IS NULL ) THEN
4014: l_lpn_prefix := FND_API.G_MISS_CHAR;
4015: ELSE
4016: l_lpn_prefix := p_lpn_prefix;
4017: END IF;
4018:
4016: l_lpn_prefix := p_lpn_prefix;
4017: END IF;
4018:
4019: IF ( p_lpn_suffix IS NULL ) THEN
4020: l_lpn_suffix := FND_API.G_MISS_CHAR;
4021: ELSE
4022: l_lpn_suffix := p_lpn_suffix;
4023: END IF;
4024: END IF;
4036: l_serial_tbl(1).to_serial_number := p_to_serial_number;
4037:
4038: Auto_Create_LPNs (
4039: p_api_version => p_api_version
4040: , p_init_msg_list => fnd_api.g_false
4041: , p_commit => fnd_api.g_false
4042: , x_return_status => x_return_status
4043: , x_msg_count => x_msg_count
4044: , x_msg_data => x_msg_data
4037:
4038: Auto_Create_LPNs (
4039: p_api_version => p_api_version
4040: , p_init_msg_list => fnd_api.g_false
4041: , p_commit => fnd_api.g_false
4042: , x_return_status => x_return_status
4043: , x_msg_count => x_msg_count
4044: , x_msg_data => x_msg_data
4045: , p_caller => 'WMS_Generate_LPN_CP'
4053: , p_serial_ranges => l_serial_tbl
4054: , x_created_lpns => l_gen_lpn_tbl
4055: , p_client_code => p_client_code );-- Adding for LSP, bug 9087971
4056:
4057: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
4058: ret := fnd_concurrent.set_completion_status('NORMAL', x_msg_data);
4059: retcode := 0;
4060: ELSE
4061: ret := fnd_concurrent.set_completion_status('ERROR', x_msg_data);
4071: *
4072: *********************************************************************************/
4073: PROCEDURE Generate_LPN (
4074: p_api_version IN NUMBER
4075: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
4076: , p_commit IN VARCHAR2 := fnd_api.g_false
4077: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
4078: , x_return_status OUT NOCOPY VARCHAR2
4079: , x_msg_count OUT NOCOPY NUMBER
4072: *********************************************************************************/
4073: PROCEDURE Generate_LPN (
4074: p_api_version IN NUMBER
4075: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
4076: , p_commit IN VARCHAR2 := fnd_api.g_false
4077: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
4078: , x_return_status OUT NOCOPY VARCHAR2
4079: , x_msg_count OUT NOCOPY NUMBER
4080: , x_msg_data OUT NOCOPY VARCHAR2
4073: PROCEDURE Generate_LPN (
4074: p_api_version IN NUMBER
4075: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
4076: , p_commit IN VARCHAR2 := fnd_api.g_false
4077: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
4078: , x_return_status OUT NOCOPY VARCHAR2
4079: , x_msg_count OUT NOCOPY NUMBER
4080: , x_msg_data OUT NOCOPY VARCHAR2
4081: , p_organization_id IN NUMBER
4146: * Overloaded for LSPs
4147: *********************************************************************************/
4148: PROCEDURE Generate_LPN (
4149: p_api_version IN NUMBER
4150: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
4151: , p_commit IN VARCHAR2 := fnd_api.g_false
4152: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
4153: , x_return_status OUT NOCOPY VARCHAR2
4154: , x_msg_count OUT NOCOPY NUMBER
4147: *********************************************************************************/
4148: PROCEDURE Generate_LPN (
4149: p_api_version IN NUMBER
4150: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
4151: , p_commit IN VARCHAR2 := fnd_api.g_false
4152: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
4153: , x_return_status OUT NOCOPY VARCHAR2
4154: , x_msg_count OUT NOCOPY NUMBER
4155: , x_msg_data OUT NOCOPY VARCHAR2
4148: PROCEDURE Generate_LPN (
4149: p_api_version IN NUMBER
4150: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
4151: , p_commit IN VARCHAR2 := fnd_api.g_false
4152: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
4153: , x_return_status OUT NOCOPY VARCHAR2
4154: , x_msg_count OUT NOCOPY NUMBER
4155: , x_msg_data OUT NOCOPY VARCHAR2
4156: , p_organization_id IN NUMBER
4202: --mdebug('p_total_length='||p_total_length||', p_ucc_128_suf='||p_ucc_128_suffix_flag);
4203: END IF;
4204:
4205: -- Standard call to check for call compatibility.
4206: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
4207: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
4208: fnd_msg_pub.ADD;
4209: RAISE fnd_api.g_exc_unexpected_error;
4210: END IF;
4205: -- Standard call to check for call compatibility.
4206: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
4207: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
4208: fnd_msg_pub.ADD;
4209: RAISE fnd_api.g_exc_unexpected_error;
4210: END IF;
4211:
4212: -- Initialize message list if p_init_msg_list is set to TRUE.
4213: IF fnd_api.to_boolean(p_init_msg_list) THEN
4209: RAISE fnd_api.g_exc_unexpected_error;
4210: END IF;
4211:
4212: -- Initialize message list if p_init_msg_list is set to TRUE.
4213: IF fnd_api.to_boolean(p_init_msg_list) THEN
4214: fnd_msg_pub.initialize;
4215: END IF;
4216:
4217: -- Initialize API return status to success
4214: fnd_msg_pub.initialize;
4215: END IF;
4216:
4217: -- Initialize API return status to success
4218: x_return_status := fnd_api.g_ret_sts_success;
4219:
4220: l_lpn_att_rec.lpn_context := p_source;
4221: l_lpn_att_rec.organization_id := p_organization_id;
4222: l_lpn_att_rec.subinventory_code := p_subinventory;
4242: END IF;
4243:
4244: Auto_Create_LPNs (
4245: p_api_version => p_api_version
4246: , p_init_msg_list => fnd_api.g_false
4247: , p_commit => fnd_api.g_false
4248: , x_return_status => x_return_status
4249: , x_msg_count => x_msg_count
4250: , x_msg_data => x_msg_data
4243:
4244: Auto_Create_LPNs (
4245: p_api_version => p_api_version
4246: , p_init_msg_list => fnd_api.g_false
4247: , p_commit => fnd_api.g_false
4248: , x_return_status => x_return_status
4249: , x_msg_count => x_msg_count
4250: , x_msg_data => x_msg_data
4251: , p_caller => 'Generate_LPN'
4259: , p_serial_ranges => l_serial_tbl
4260: , x_created_lpns => l_gen_lpn_tbl
4261: , p_client_code => p_client_code );-- Adding for LSP, bug 9087971
4262:
4263: IF ( x_return_status = fnd_api.g_ret_sts_success ) THEN
4264: IF ( p_quantity = 1 ) THEN
4265: p_lpn_id_out := l_gen_lpn_tbl(1).lpn_id;
4266: p_lpn_out := l_gen_lpn_tbl(1).license_plate_number;
4267: ELSE
4286: p_process_id
4287: , l_lpn_bulk_rec.lpn_id(i) );
4288: END IF;
4289: ELSE
4290: RAISE fnd_api.g_exc_error;
4291: END IF;
4292:
4293: -- Standard check of p_commit.
4294: IF fnd_api.to_boolean(p_commit) THEN
4290: RAISE fnd_api.g_exc_error;
4291: END IF;
4292:
4293: -- Standard check of p_commit.
4294: IF fnd_api.to_boolean(p_commit) THEN
4295: COMMIT WORK;
4296: END IF;
4297:
4298: -- Standard call to get message count and if count is 1,
4298: -- Standard call to get message count and if count is 1,
4299: -- get message info.
4300: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4301: EXCEPTION
4302: WHEN fnd_api.g_exc_error THEN
4303: --fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
4304: --fnd_msg_pub.ADD;
4305: ROLLBACK TO GENERATE_LPN_PVT;
4306: x_return_status := fnd_api.g_ret_sts_error;
4302: WHEN fnd_api.g_exc_error THEN
4303: --fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
4304: --fnd_msg_pub.ADD;
4305: ROLLBACK TO GENERATE_LPN_PVT;
4306: x_return_status := fnd_api.g_ret_sts_error;
4307: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4308: WHEN fnd_api.g_exc_unexpected_error THEN
4309: fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
4310: fnd_msg_pub.ADD;
4304: --fnd_msg_pub.ADD;
4305: ROLLBACK TO GENERATE_LPN_PVT;
4306: x_return_status := fnd_api.g_ret_sts_error;
4307: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4308: WHEN fnd_api.g_exc_unexpected_error THEN
4309: fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
4310: fnd_msg_pub.ADD;
4311: ROLLBACK TO GENERATE_LPN_PVT;
4312: x_return_status := fnd_api.g_ret_sts_unexp_error;
4308: WHEN fnd_api.g_exc_unexpected_error THEN
4309: fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
4310: fnd_msg_pub.ADD;
4311: ROLLBACK TO GENERATE_LPN_PVT;
4312: x_return_status := fnd_api.g_ret_sts_unexp_error;
4313: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4314: WHEN OTHERS THEN
4315: fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
4316: fnd_msg_pub.ADD;
4314: WHEN OTHERS THEN
4315: fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
4316: fnd_msg_pub.ADD;
4317: ROLLBACK TO GENERATE_LPN_PVT;
4318: x_return_status := fnd_api.g_ret_sts_unexp_error;
4319:
4320: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4321: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
4322: END IF;
4327: -- ----------------------------------------------------------------------------------
4328: -- ----------------------------------------------------------------------------------
4329: PROCEDURE associate_lpn(
4330: p_api_version IN NUMBER,
4331: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
4332: p_commit IN VARCHAR2 := fnd_api.g_false,
4333: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
4334: x_return_status OUT NOCOPY VARCHAR2,
4335: x_msg_count OUT NOCOPY NUMBER,
4328: -- ----------------------------------------------------------------------------------
4329: PROCEDURE associate_lpn(
4330: p_api_version IN NUMBER,
4331: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
4332: p_commit IN VARCHAR2 := fnd_api.g_false,
4333: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
4334: x_return_status OUT NOCOPY VARCHAR2,
4335: x_msg_count OUT NOCOPY NUMBER,
4336: x_msg_data OUT NOCOPY VARCHAR2,
4329: PROCEDURE associate_lpn(
4330: p_api_version IN NUMBER,
4331: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
4332: p_commit IN VARCHAR2 := fnd_api.g_false,
4333: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
4334: x_return_status OUT NOCOPY VARCHAR2,
4335: x_msg_count OUT NOCOPY NUMBER,
4336: x_msg_data OUT NOCOPY VARCHAR2,
4337: p_lpn_id IN NUMBER,
4358: -- Standard Start of API savepoint
4359: SAVEPOINT ASSOCIATE_LPN_PVT;
4360:
4361: -- Standard call to check for call compatibility.
4362: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
4363: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
4364: fnd_msg_pub.ADD;
4365: RAISE fnd_api.g_exc_unexpected_error;
4366: END IF;
4361: -- Standard call to check for call compatibility.
4362: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
4363: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
4364: fnd_msg_pub.ADD;
4365: RAISE fnd_api.g_exc_unexpected_error;
4366: END IF;
4367:
4368: -- Initialize message list if p_init_msg_list is set to TRUE.
4369: IF fnd_api.to_boolean(p_init_msg_list) THEN
4365: RAISE fnd_api.g_exc_unexpected_error;
4366: END IF;
4367:
4368: -- Initialize message list if p_init_msg_list is set to TRUE.
4369: IF fnd_api.to_boolean(p_init_msg_list) THEN
4370: fnd_msg_pub.initialize;
4371: END IF;
4372:
4373: -- Initialize API return status to success
4370: fnd_msg_pub.initialize;
4371: END IF;
4372:
4373: -- Initialize API return status to success
4374: x_return_status := fnd_api.g_ret_sts_success;
4375:
4376: -- API body
4377: IF (l_debug = 1) THEN
4378: mdebug(l_api_name || ' Entered ' || g_pkg_version, 1);
4399: l_lpn_tbl(1).source_line_detail_id := p_source_line_detail_id;
4400:
4401: Modify_LPNs (
4402: p_api_version => 1.0
4403: , p_init_msg_list => fnd_api.g_false
4404: , p_commit => fnd_api.g_false
4405: , x_return_status => x_return_status
4406: , x_msg_count => x_msg_count
4407: , x_msg_data => x_msg_data
4400:
4401: Modify_LPNs (
4402: p_api_version => 1.0
4403: , p_init_msg_list => fnd_api.g_false
4404: , p_commit => fnd_api.g_false
4405: , x_return_status => x_return_status
4406: , x_msg_count => x_msg_count
4407: , x_msg_data => x_msg_data
4408: , p_caller => l_api_name
4407: , x_msg_data => x_msg_data
4408: , p_caller => l_api_name
4409: , p_lpn_table => l_lpn_tbl );
4410:
4411: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
4412: IF ( l_debug = 1 ) THEN
4413: mdebug('Modify_LPNs failed', G_ERROR);
4414: END IF;
4415: RAISE fnd_api.g_exc_error;
4411: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
4412: IF ( l_debug = 1 ) THEN
4413: mdebug('Modify_LPNs failed', G_ERROR);
4414: END IF;
4415: RAISE fnd_api.g_exc_error;
4416: END IF;
4417:
4418: -- End of API body
4419:
4417:
4418: -- End of API body
4419:
4420: -- Standard check of p_commit.
4421: IF fnd_api.to_boolean(p_commit) THEN
4422: COMMIT WORK;
4423: END IF;
4424:
4425: -- Standard call to get message count and if count is 1,
4425: -- Standard call to get message count and if count is 1,
4426: -- get message info.
4427: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4428: EXCEPTION
4429: WHEN fnd_api.g_exc_error THEN
4430: ROLLBACK TO ASSOCIATE_LPN_PVT;
4431: x_return_status := fnd_api.g_ret_sts_error;
4432: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4433: WHEN fnd_api.g_exc_unexpected_error THEN
4427: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4428: EXCEPTION
4429: WHEN fnd_api.g_exc_error THEN
4430: ROLLBACK TO ASSOCIATE_LPN_PVT;
4431: x_return_status := fnd_api.g_ret_sts_error;
4432: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4433: WHEN fnd_api.g_exc_unexpected_error THEN
4434: ROLLBACK TO ASSOCIATE_LPN_PVT;
4435: x_return_status := fnd_api.g_ret_sts_unexp_error;
4429: WHEN fnd_api.g_exc_error THEN
4430: ROLLBACK TO ASSOCIATE_LPN_PVT;
4431: x_return_status := fnd_api.g_ret_sts_error;
4432: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4433: WHEN fnd_api.g_exc_unexpected_error THEN
4434: ROLLBACK TO ASSOCIATE_LPN_PVT;
4435: x_return_status := fnd_api.g_ret_sts_unexp_error;
4436: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4437: WHEN OTHERS THEN
4431: x_return_status := fnd_api.g_ret_sts_error;
4432: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4433: WHEN fnd_api.g_exc_unexpected_error THEN
4434: ROLLBACK TO ASSOCIATE_LPN_PVT;
4435: x_return_status := fnd_api.g_ret_sts_unexp_error;
4436: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4437: WHEN OTHERS THEN
4438: ROLLBACK TO ASSOCIATE_LPN_PVT;
4439: x_return_status := fnd_api.g_ret_sts_unexp_error;
4435: x_return_status := fnd_api.g_ret_sts_unexp_error;
4436: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4437: WHEN OTHERS THEN
4438: ROLLBACK TO ASSOCIATE_LPN_PVT;
4439: x_return_status := fnd_api.g_ret_sts_unexp_error;
4440:
4441: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4442: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
4443: END IF;
4449: -- ----------------------------------------------------------------------------------
4450:
4451: PROCEDURE Create_LPN (
4452: p_api_version IN NUMBER
4453: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
4454: , p_commit IN VARCHAR2 := fnd_api.g_false
4455: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
4456: , x_return_status OUT NOCOPY VARCHAR2
4457: , x_msg_count OUT NOCOPY NUMBER
4450:
4451: PROCEDURE Create_LPN (
4452: p_api_version IN NUMBER
4453: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
4454: , p_commit IN VARCHAR2 := fnd_api.g_false
4455: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
4456: , x_return_status OUT NOCOPY VARCHAR2
4457: , x_msg_count OUT NOCOPY NUMBER
4458: , x_msg_data OUT NOCOPY VARCHAR2
4451: PROCEDURE Create_LPN (
4452: p_api_version IN NUMBER
4453: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
4454: , p_commit IN VARCHAR2 := fnd_api.g_false
4455: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
4456: , x_return_status OUT NOCOPY VARCHAR2
4457: , x_msg_count OUT NOCOPY NUMBER
4458: , x_msg_data OUT NOCOPY VARCHAR2
4459: , p_lpn IN VARCHAR2
4486: -- Standard Start of API savepoint
4487: SAVEPOINT CREATE_LPN_PVT;
4488:
4489: -- Standard call to check for call compatibility.
4490: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
4491: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
4492: fnd_msg_pub.ADD;
4493: RAISE fnd_api.g_exc_unexpected_error;
4494: END IF;
4489: -- Standard call to check for call compatibility.
4490: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
4491: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
4492: fnd_msg_pub.ADD;
4493: RAISE fnd_api.g_exc_unexpected_error;
4494: END IF;
4495:
4496: -- Initialize message list if p_init_msg_list is set to TRUE.
4497: IF fnd_api.to_boolean(p_init_msg_list) THEN
4493: RAISE fnd_api.g_exc_unexpected_error;
4494: END IF;
4495:
4496: -- Initialize message list if p_init_msg_list is set to TRUE.
4497: IF fnd_api.to_boolean(p_init_msg_list) THEN
4498: fnd_msg_pub.initialize;
4499: END IF;
4500:
4501: -- Initialize API return status to success
4498: fnd_msg_pub.initialize;
4499: END IF;
4500:
4501: -- Initialize API return status to success
4502: x_return_status := fnd_api.g_ret_sts_success;
4503:
4504: -- API body
4505: IF (l_debug = 1) THEN
4506: mdebug(l_api_name || ' Entered ' || g_pkg_version, 1);
4527: l_lpn_tbl(1).source_line_detail_id := p_source_line_detail_id;
4528:
4529: Create_LPNs (
4530: p_api_version => p_api_version
4531: , p_init_msg_list => fnd_api.g_false
4532: , p_commit => fnd_api.g_false
4533: , x_return_status => x_return_status
4534: , x_msg_count => x_msg_count
4535: , x_msg_data => x_msg_data
4528:
4529: Create_LPNs (
4530: p_api_version => p_api_version
4531: , p_init_msg_list => fnd_api.g_false
4532: , p_commit => fnd_api.g_false
4533: , x_return_status => x_return_status
4534: , x_msg_count => x_msg_count
4535: , x_msg_data => x_msg_data
4536: , p_caller => l_api_name
4535: , x_msg_data => x_msg_data
4536: , p_caller => l_api_name
4537: , p_lpn_table => l_lpn_tbl );
4538:
4539: IF ( x_return_status = fnd_api.g_ret_sts_success ) THEN
4540: x_lpn_id := l_lpn_tbl(1).lpn_id;
4541: ELSE
4542: RAISE fnd_api.g_exc_error;
4543: END IF;
4538:
4539: IF ( x_return_status = fnd_api.g_ret_sts_success ) THEN
4540: x_lpn_id := l_lpn_tbl(1).lpn_id;
4541: ELSE
4542: RAISE fnd_api.g_exc_error;
4543: END IF;
4544:
4545: -- Standard check of p_commit.
4546: IF fnd_api.to_boolean(p_commit) THEN
4542: RAISE fnd_api.g_exc_error;
4543: END IF;
4544:
4545: -- Standard check of p_commit.
4546: IF fnd_api.to_boolean(p_commit) THEN
4547: COMMIT WORK;
4548: END IF;
4549:
4550: -- Standard call to get message count and if count is 1,
4550: -- Standard call to get message count and if count is 1,
4551: -- get message info.
4552: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4553: EXCEPTION
4554: WHEN FND_API.G_EXC_ERROR THEN
4555: x_return_status := fnd_api.g_ret_sts_error;
4556: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4557: IF (l_debug = 1) THEN
4558: FOR i in 1..x_msg_count LOOP
4551: -- get message info.
4552: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4553: EXCEPTION
4554: WHEN FND_API.G_EXC_ERROR THEN
4555: x_return_status := fnd_api.g_ret_sts_error;
4556: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4557: IF (l_debug = 1) THEN
4558: FOR i in 1..x_msg_count LOOP
4559: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
4562: mdebug('msg: '||l_msgdata, G_ERROR);
4563: END IF;
4564: ROLLBACK TO CREATE_LPN_PVT;
4565: WHEN OTHERS THEN
4566: x_return_status := fnd_api.g_ret_sts_unexp_error;
4567: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4568: IF (l_debug = 1) THEN
4569: mdebug(l_api_name ||' Error progress= '||l_progress||'SQL error: '|| SQLERRM(SQLCODE), G_ERROR);
4570: END IF;
4575: -- ----------------------------------------------------------------------------------
4576:
4577: PROCEDURE PackUnpack_Container(
4578: p_api_version IN NUMBER
4579: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
4580: , p_commit IN VARCHAR2 := fnd_api.g_false
4581: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
4582: , x_return_status OUT NOCOPY VARCHAR2
4583: , x_msg_count OUT NOCOPY NUMBER
4576:
4577: PROCEDURE PackUnpack_Container(
4578: p_api_version IN NUMBER
4579: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
4580: , p_commit IN VARCHAR2 := fnd_api.g_false
4581: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
4582: , x_return_status OUT NOCOPY VARCHAR2
4583: , x_msg_count OUT NOCOPY NUMBER
4584: , x_msg_data OUT NOCOPY VARCHAR2
4577: PROCEDURE PackUnpack_Container(
4578: p_api_version IN NUMBER
4579: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
4580: , p_commit IN VARCHAR2 := fnd_api.g_false
4581: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
4582: , x_return_status OUT NOCOPY VARCHAR2
4583: , x_msg_count OUT NOCOPY NUMBER
4584: , x_msg_data OUT NOCOPY VARCHAR2
4585: , p_lpn_id IN NUMBER
4779: -- Standard Start of API savepoint
4780: SAVEPOINT PACKUNPACK_CONTAINER;
4781:
4782: -- Standard call to check for call compatibility.
4783: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
4784: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
4785: fnd_msg_pub.ADD;
4786: RAISE fnd_api.g_exc_unexpected_error;
4787: END IF;
4782: -- Standard call to check for call compatibility.
4783: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
4784: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
4785: fnd_msg_pub.ADD;
4786: RAISE fnd_api.g_exc_unexpected_error;
4787: END IF;
4788:
4789: -- Initialize message list if p_init_msg_list is set to TRUE.
4790: IF fnd_api.to_boolean(p_init_msg_list) THEN
4786: RAISE fnd_api.g_exc_unexpected_error;
4787: END IF;
4788:
4789: -- Initialize message list if p_init_msg_list is set to TRUE.
4790: IF fnd_api.to_boolean(p_init_msg_list) THEN
4791: fnd_msg_pub.initialize;
4792: END IF;
4793:
4794: -- Initialize API return status to success
4791: fnd_msg_pub.initialize;
4792: END IF;
4793:
4794: -- Initialize API return status to success
4795: x_return_status := fnd_api.g_ret_sts_success;
4796:
4797: IF ( l_debug = 1 ) THEN
4798: mdebug(l_api_name || ' Entered ' || g_pkg_version, 1);
4799: mdebug('orgid='||p_organization_id||' sub='||p_subinventory||' loc='||p_locator_id||' lpnid='||p_lpn_id||' cntlpn='||p_content_lpn_id||' enfrc='||p_enforce_wv_constraints, G_INFO);
4827: mdebug(p_lpn_id || 'is an invalid lpn_id', G_ERROR);
4828: END IF;
4829: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
4830: fnd_msg_pub.ADD;
4831: RAISE fnd_api.g_exc_error;
4832: END IF;
4833:
4834: IF (l_debug = 1) THEN
4835: mdebug('lpn='||l_lpn.license_plate_number||' org='||l_lpn.organization_id||' sub='||l_lpn.subinventory_code||' loc='||l_lpn.locator_id||' ctx='||l_lpn.lpn_context, G_MESSAGE);
4844: l_progress := 'Org passed by user does not match org on LPN';
4845: fnd_message.set_name('WMS', 'WMS_LPN_DIFF_ORG_ERR');
4846: fnd_message.set_token('LPN', l_lpn.license_plate_number);
4847: fnd_msg_pub.ADD;
4848: RAISE fnd_api.g_exc_error;
4849: END IF;
4850:
4851: -- Validate quantities
4852: IF ( NVL(p_quantity, 0) < 0 OR NVL(p_primary_quantity, 0) < 0 ) THEN
4852: IF ( NVL(p_quantity, 0) < 0 OR NVL(p_primary_quantity, 0) < 0 ) THEN
4853: l_progress := 'cannot pass negitive qty to this API';
4854: fnd_message.set_name('WMS', 'WMS_CONT_NEG_QTY');
4855: fnd_msg_pub.ADD;
4856: RAISE fnd_api.g_exc_error;
4857: END IF;
4858:
4859: IF ( p_content_lpn_id IS NOT NULL ) THEN
4860: l_progress := 'Validate Content LPN';
4866: mdebug(p_lpn_id || 'is an invalid lpn_id', G_ERROR);
4867: END IF;
4868: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_CONTENT_LPN');
4869: fnd_msg_pub.ADD;
4870: RAISE fnd_api.g_exc_error;
4871: END IF;
4872:
4873: IF (l_debug = 1) THEN
4874: mdebug('cntlpn='||l_content_lpn.license_plate_number||' org='||l_content_lpn.organization_id||' sub='||l_content_lpn.subinventory_code||' loc='||l_content_lpn.locator_id||' ctx='||l_content_lpn.lpn_context, G_MESSAGE);
4887: mdebug('content lpn not in parent lpn', G_ERROR);
4888: END IF;
4889: fnd_message.set_name('WMS', 'WMS_CONT_LPN_NOT_IN_LPN');
4890: fnd_msg_pub.ADD;
4891: RAISE fnd_api.g_exc_error;
4892: END IF;
4893: END IF;
4894:
4895: --13535759
4902: mdebug('Content LPN '||l_content_lpn.license_plate_number||' is in the Parent Heirarchy of the Parent LPN(To LPN) '||l_lpn.license_plate_number, G_ERROR);
4903: END IF;
4904: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
4905: fnd_msg_pub.ADD;
4906: RAISE fnd_api.g_exc_error;
4907: END IF;
4908: END LOOP;
4909: END IF;
4910: --13535759
4925: ELSE
4926: l_progress := 'Error calling INV_CACHE.Set_Item_Rec for orgid'||p_organization_id||' item id='||p_content_item_id;
4927: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
4928: fnd_msg_pub.ADD;
4929: RAISE fnd_api.g_exc_error;
4930: END IF;
4931:
4932: IF ( p_primary_quantity IS NULL ) THEN
4933: IF ( p_uom = inv_cache.item_rec.primary_uom_code ) THEN
4950: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
4951: fnd_msg_pub.ADD;
4952: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_CONTENT_LPN');
4953: fnd_msg_pub.ADD;
4954: RAISE fnd_api.g_exc_error;
4955: END IF;
4956:
4957: -- Parse Serials with out validation
4958: -- Sub and locator might not be given in the case of pre-packing
4967: mdebug('Invalid serial number in range', G_ERROR);
4968: END IF;
4969: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SER');
4970: fnd_msg_pub.ADD;
4971: RAISE fnd_api.g_exc_error;
4972: END IF;
4973:
4974: l_progress := 'Done with call to parse sn';
4975: IF (l_debug = 1) THEN
4988: mdebug('Serial range quantity '||l_quantity||' not the same as given qty '||p_quantity, G_ERROR);
4989: END IF;
4990: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_X_QTY');
4991: fnd_msg_pub.ADD;
4992: RAISE fnd_api.g_exc_error;
4993: END IF;
4994: END IF;
4995: END IF;
4996: END IF;
5009: mdebug('No sub and loc info found' , 1);
5010: END IF;
5011: FND_MESSAGE.SET_NAME('WMS', 'WMS_LPN_SUBLOC_MISS');
5012: FND_MSG_PUB.ADD;
5013: RAISE FND_API.G_EXC_ERROR;
5014: END IF;
5015: ELSE
5016: l_subinventory := p_subinventory;
5017: l_locator_id := p_locator_id;
5022: IF ( NOT inv_cache.set_tosub_rec(p_organization_id, l_subinventory) ) THEN
5023: l_progress := 'Failed to find subinventory org='||p_organization_id||' sub='||l_subinventory;
5024: FND_MESSAGE.SET_NAME('INV', 'INVALID_SUB');
5025: FND_MSG_PUB.ADD;
5026: RAISE FND_API.G_EXC_ERROR;
5027: END IF;
5028: END IF;
5029:
5030: IF ( p_subinventory IS NOT NULL AND NVL(inv_cache.tosub_rec.lpn_controlled_flag, 2) = 1 ) THEN
5039: -- to be different
5040: IF ( l_lpn.lpn_context <> LPN_CONTEXT_RCV ) THEN
5041: FND_MESSAGE.SET_NAME('WMS', 'WMS_LPN_SUBLOC_MISMATCH');
5042: FND_MSG_PUB.ADD;
5043: RAISE FND_API.G_EXC_ERROR;
5044: END IF;
5045: END IF;
5046: END IF;
5047:
5051: -- is an LPN enabled/controlled subinventory otherwise fail.
5052: IF ( l_subinventory IS NOT NULL AND NVL(inv_cache.tosub_rec.lpn_controlled_flag, 2) <> 1 ) THEN
5053: fnd_message.set_name('WMS', 'WMS_CONT_NON_LPN_SUB');
5054: fnd_msg_pub.ADD;
5055: RAISE fnd_api.g_exc_error;
5056: END IF;
5057:
5058: IF ( p_content_lpn_id IS NOT NULL AND p_content_item_id IS NULL ) THEN
5059: l_progress := 'Packing a LPN into another LPN';
5092: mdebug('differs from content item sub '|| l_lpn.subinventory_code || ' or loc ' || l_lpn.locator_id, G_ERROR);
5093: END IF;
5094: fnd_message.set_name('WMS', 'WMS_CONT_MISMATCHED_SUB_LOC');
5095: fnd_msg_pub.ADD;
5096: RAISE fnd_api.g_exc_error;
5097: END IF;
5098:
5099: -- Only if there is a difference in location, update nested
5100: -- lpns/items/serials with the new location
5213: IF ( l_serial_quantity <> l_primary_quantity ) THEN
5214: l_progress := 'Serial range quantity '||l_serial_quantity||' not the same as given qty '||l_primary_quantity;
5215: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_X_QTY');
5216: fnd_msg_pub.ADD;
5217: RAISE fnd_api.g_exc_error;
5218: END IF;
5219: END IF;
5220: END IF;
5221:
5234:
5235: -- Validate that if the same item (as the passed-in item p_content_item_id)
5236: -- exists on the destination LPN (p_lpn_id) at the top level (not in a child LPN),
5237: -- their cost groups are the same.
5238: IF ( p_validation_level = fnd_api.g_valid_level_full ) THEN
5239: IF ( l_serial_summary_entry <> 1 AND p_cost_group_id <> l_existing_record_cursor.cost_group_id ) THEN
5240: IF (l_debug = 1) THEN
5241: mdebug('Cost Group Violation during packing cg='||l_existing_record_cursor.cost_group_id||' already exists in lpn', G_ERROR);
5242: END IF;
5241: mdebug('Cost Group Violation during packing cg='||l_existing_record_cursor.cost_group_id||' already exists in lpn', G_ERROR);
5242: END IF;
5243: fnd_message.set_name('WMS', 'WMS_CONT_DIFF_CST_GRPS');
5244: fnd_msg_pub.ADD;
5245: RAISE fnd_api.g_exc_error;
5246: END IF;
5247: END IF;
5248:
5249: --INCONV kkillams
5260: fnd_message.set_token('uom1', l_existing_record_cursor.secondary_uom_code);
5261: fnd_message.set_token('uom2', p_sec_uom);
5262: fnd_message.set_token('module', l_api_name);
5263: fnd_msg_pub.ADD;
5264: RAISE fnd_api.g_exc_error;
5265: END IF;
5266: END IF;
5267: --INCONV kkillams
5268:
5464: ELSIF ( l_operation_mode = L_UNPACK ) THEN /*** Unpacking Operation ***/
5465: IF ( p_content_lpn_id IS NOT NULL AND p_content_item_id IS NULL ) THEN
5466: -- Update content LPN parent lpn to be null
5467: l_cont_new.lpn_id := p_content_lpn_id;
5468: l_cont_new.parent_lpn_id := FND_API.G_MISS_NUM;
5469: l_cont_new.outermost_lpn_id := p_content_lpn_id;
5470:
5471: /* Bug 2308339: Update the Organization, Sub, Locator only if Sub is LPN Controlled */
5472: IF( l_subinventory IS NOT NULL AND NVL(inv_cache.tosub_rec.lpn_controlled_flag, 2) = 1 ) THEN
5631: fnd_message.set_token('uom1', l_temp_record.secondary_uom_code);
5632: fnd_message.set_token('uom2', p_sec_uom);
5633: fnd_message.set_token('module', l_api_name);
5634: fnd_msg_pub.ADD;
5635: RAISE fnd_api.g_exc_error;
5636: END IF;
5637: else -- Bug 7665639 rework added else condition
5638: l_sec_converted_quantity := l_temp_record.secondary_quantity;
5639:
5727: mdebug('Content item not found to unpack', G_ERROR);
5728: END IF;
5729: fnd_message.set_name('WMS', 'WMS_CONT_ITEM_NOT_FOUND');
5730: fnd_msg_pub.ADD;
5731: RAISE fnd_api.g_exc_error;
5732: ELSE
5733: IF (l_debug = 1) THEN
5734: mdebug('Not enough to upack, qty found='||l_item_quantity, G_ERROR);
5735: END IF;
5734: mdebug('Not enough to upack, qty found='||l_item_quantity, G_ERROR);
5735: END IF;
5736: fnd_message.set_name('WMS', 'WMS_CONT_NOT_ENOUGH_TO_UNPACK');
5737: fnd_msg_pub.ADD;
5738: RAISE fnd_api.g_exc_error;
5739: END IF;
5740: END LOOP;
5741: CLOSE existing_unpack_record_cursor;
5742:
5790: mdebug('Not enough of this onetime item to unpack', G_ERROR);
5791: END IF;
5792: fnd_message.set_name('WMS', 'WMS_CONT_NOT_ENOUGH_TO_UNPACK');
5793: fnd_msg_pub.ADD;
5794: RAISE fnd_api.g_exc_error;
5795: END IF;
5796: ELSE
5797: IF (l_debug = 1) THEN
5798: mdebug('No one time items exits', G_ERROR);
5798: mdebug('No one time items exits', G_ERROR);
5799: END IF;
5800: fnd_message.set_name('WMS', 'WMS_CONT_NO_ONE_TIME_ITEM');
5801: fnd_msg_pub.ADD;
5802: RAISE fnd_api.g_exc_error;
5803: END IF;
5804: END IF;
5805: ELSIF ( l_operation_mode = L_UNPACK_ALL ) THEN /*** Unpack All Operation ***/
5806: -- This lpn will be empty, need to check parent lpns to see if they also will
5827: AND inventory_item_id = l_child_lpn.inventory_item_id;
5828: ELSE
5829: -- if there isn't a container item, empty lpns will have undefined
5830: -- tare weight
5831: l_lpn_tbl(l_tmp_i).tare_weight := fnd_api.g_miss_num;
5832: l_lpn_tbl(l_tmp_i).tare_weight_uom_code := fnd_api.g_miss_char;
5833: END IF;
5834:
5835: l_lpn_tbl(l_tmp_i).lpn_id := l_child_lpn.lpn_id;
5828: ELSE
5829: -- if there isn't a container item, empty lpns will have undefined
5830: -- tare weight
5831: l_lpn_tbl(l_tmp_i).tare_weight := fnd_api.g_miss_num;
5832: l_lpn_tbl(l_tmp_i).tare_weight_uom_code := fnd_api.g_miss_char;
5833: END IF;
5834:
5835: l_lpn_tbl(l_tmp_i).lpn_id := l_child_lpn.lpn_id;
5836: l_lpn_tbl(l_tmp_i).organization_id := p_organization_id;
5833: END IF;
5834:
5835: l_lpn_tbl(l_tmp_i).lpn_id := l_child_lpn.lpn_id;
5836: l_lpn_tbl(l_tmp_i).organization_id := p_organization_id;
5837: l_lpn_tbl(l_tmp_i).subinventory_code := fnd_api.g_miss_char;
5838: l_lpn_tbl(l_tmp_i).locator_id := fnd_api.g_miss_num;
5839: l_lpn_tbl(l_tmp_i).parent_lpn_id := fnd_api.g_miss_num;
5840: l_lpn_tbl(l_tmp_i).content_volume := fnd_api.g_miss_num;
5841: l_lpn_tbl(l_tmp_i).content_volume_uom_code := fnd_api.g_miss_char;
5834:
5835: l_lpn_tbl(l_tmp_i).lpn_id := l_child_lpn.lpn_id;
5836: l_lpn_tbl(l_tmp_i).organization_id := p_organization_id;
5837: l_lpn_tbl(l_tmp_i).subinventory_code := fnd_api.g_miss_char;
5838: l_lpn_tbl(l_tmp_i).locator_id := fnd_api.g_miss_num;
5839: l_lpn_tbl(l_tmp_i).parent_lpn_id := fnd_api.g_miss_num;
5840: l_lpn_tbl(l_tmp_i).content_volume := fnd_api.g_miss_num;
5841: l_lpn_tbl(l_tmp_i).content_volume_uom_code := fnd_api.g_miss_char;
5842: -- bug5404902 changed l_child_lpn to l_lpn_tbl(l_tmp_i) since it represents
5835: l_lpn_tbl(l_tmp_i).lpn_id := l_child_lpn.lpn_id;
5836: l_lpn_tbl(l_tmp_i).organization_id := p_organization_id;
5837: l_lpn_tbl(l_tmp_i).subinventory_code := fnd_api.g_miss_char;
5838: l_lpn_tbl(l_tmp_i).locator_id := fnd_api.g_miss_num;
5839: l_lpn_tbl(l_tmp_i).parent_lpn_id := fnd_api.g_miss_num;
5840: l_lpn_tbl(l_tmp_i).content_volume := fnd_api.g_miss_num;
5841: l_lpn_tbl(l_tmp_i).content_volume_uom_code := fnd_api.g_miss_char;
5842: -- bug5404902 changed l_child_lpn to l_lpn_tbl(l_tmp_i) since it represents
5843: -- the container items original unit weight
5836: l_lpn_tbl(l_tmp_i).organization_id := p_organization_id;
5837: l_lpn_tbl(l_tmp_i).subinventory_code := fnd_api.g_miss_char;
5838: l_lpn_tbl(l_tmp_i).locator_id := fnd_api.g_miss_num;
5839: l_lpn_tbl(l_tmp_i).parent_lpn_id := fnd_api.g_miss_num;
5840: l_lpn_tbl(l_tmp_i).content_volume := fnd_api.g_miss_num;
5841: l_lpn_tbl(l_tmp_i).content_volume_uom_code := fnd_api.g_miss_char;
5842: -- bug5404902 changed l_child_lpn to l_lpn_tbl(l_tmp_i) since it represents
5843: -- the container items original unit weight
5844: l_lpn_tbl(l_tmp_i).gross_weight := NVL(l_lpn_tbl(l_tmp_i).tare_weight, fnd_api.g_miss_num);
5837: l_lpn_tbl(l_tmp_i).subinventory_code := fnd_api.g_miss_char;
5838: l_lpn_tbl(l_tmp_i).locator_id := fnd_api.g_miss_num;
5839: l_lpn_tbl(l_tmp_i).parent_lpn_id := fnd_api.g_miss_num;
5840: l_lpn_tbl(l_tmp_i).content_volume := fnd_api.g_miss_num;
5841: l_lpn_tbl(l_tmp_i).content_volume_uom_code := fnd_api.g_miss_char;
5842: -- bug5404902 changed l_child_lpn to l_lpn_tbl(l_tmp_i) since it represents
5843: -- the container items original unit weight
5844: l_lpn_tbl(l_tmp_i).gross_weight := NVL(l_lpn_tbl(l_tmp_i).tare_weight, fnd_api.g_miss_num);
5845: l_lpn_tbl(l_tmp_i).gross_weight_uom_code := NVL(l_lpn_tbl(l_tmp_i).tare_weight_uom_code, fnd_api.g_miss_char);
5840: l_lpn_tbl(l_tmp_i).content_volume := fnd_api.g_miss_num;
5841: l_lpn_tbl(l_tmp_i).content_volume_uom_code := fnd_api.g_miss_char;
5842: -- bug5404902 changed l_child_lpn to l_lpn_tbl(l_tmp_i) since it represents
5843: -- the container items original unit weight
5844: l_lpn_tbl(l_tmp_i).gross_weight := NVL(l_lpn_tbl(l_tmp_i).tare_weight, fnd_api.g_miss_num);
5845: l_lpn_tbl(l_tmp_i).gross_weight_uom_code := NVL(l_lpn_tbl(l_tmp_i).tare_weight_uom_code, fnd_api.g_miss_char);
5846: l_lpn_tbl(l_tmp_i).outermost_lpn_id := l_child_lpn.lpn_id;
5847: l_lpn_tbl(l_tmp_i).lpn_context := LPN_CONTEXT_PREGENERATED;
5848:
5841: l_lpn_tbl(l_tmp_i).content_volume_uom_code := fnd_api.g_miss_char;
5842: -- bug5404902 changed l_child_lpn to l_lpn_tbl(l_tmp_i) since it represents
5843: -- the container items original unit weight
5844: l_lpn_tbl(l_tmp_i).gross_weight := NVL(l_lpn_tbl(l_tmp_i).tare_weight, fnd_api.g_miss_num);
5845: l_lpn_tbl(l_tmp_i).gross_weight_uom_code := NVL(l_lpn_tbl(l_tmp_i).tare_weight_uom_code, fnd_api.g_miss_char);
5846: l_lpn_tbl(l_tmp_i).outermost_lpn_id := l_child_lpn.lpn_id;
5847: l_lpn_tbl(l_tmp_i).lpn_context := LPN_CONTEXT_PREGENERATED;
5848:
5849: l_progress := 'Add child LPN to bulk rec to delete contents';
5912: AND inventory_item_id = empty_lpn_rec.inventory_item_id;
5913: ELSE
5914: -- if there isn't a container item, empty lpns will have undefined
5915: -- tare weight
5916: l_lpn_tbl(l_tmp_i).tare_weight := fnd_api.g_miss_num;
5917: l_lpn_tbl(l_tmp_i).tare_weight_uom_code := fnd_api.g_miss_char;
5918: END IF;
5919:
5920: l_lpn_tbl(l_tmp_i).lpn_id := empty_lpn_rec.lpn_id;
5913: ELSE
5914: -- if there isn't a container item, empty lpns will have undefined
5915: -- tare weight
5916: l_lpn_tbl(l_tmp_i).tare_weight := fnd_api.g_miss_num;
5917: l_lpn_tbl(l_tmp_i).tare_weight_uom_code := fnd_api.g_miss_char;
5918: END IF;
5919:
5920: l_lpn_tbl(l_tmp_i).lpn_id := empty_lpn_rec.lpn_id;
5921: l_lpn_tbl(l_tmp_i).subinventory_code := fnd_api.g_miss_char;
5917: l_lpn_tbl(l_tmp_i).tare_weight_uom_code := fnd_api.g_miss_char;
5918: END IF;
5919:
5920: l_lpn_tbl(l_tmp_i).lpn_id := empty_lpn_rec.lpn_id;
5921: l_lpn_tbl(l_tmp_i).subinventory_code := fnd_api.g_miss_char;
5922: l_lpn_tbl(l_tmp_i).locator_id := fnd_api.g_miss_num;
5923: l_lpn_tbl(l_tmp_i).parent_lpn_id := fnd_api.g_miss_num;
5924: l_lpn_tbl(l_tmp_i).content_volume := fnd_api.g_miss_num;
5925: l_lpn_tbl(l_tmp_i).content_volume_uom_code := fnd_api.g_miss_char;
5918: END IF;
5919:
5920: l_lpn_tbl(l_tmp_i).lpn_id := empty_lpn_rec.lpn_id;
5921: l_lpn_tbl(l_tmp_i).subinventory_code := fnd_api.g_miss_char;
5922: l_lpn_tbl(l_tmp_i).locator_id := fnd_api.g_miss_num;
5923: l_lpn_tbl(l_tmp_i).parent_lpn_id := fnd_api.g_miss_num;
5924: l_lpn_tbl(l_tmp_i).content_volume := fnd_api.g_miss_num;
5925: l_lpn_tbl(l_tmp_i).content_volume_uom_code := fnd_api.g_miss_char;
5926: -- bug5404902 changed empty_lpn_rec to l_lpn_tbl(l_tmp_i) since it represents
5919:
5920: l_lpn_tbl(l_tmp_i).lpn_id := empty_lpn_rec.lpn_id;
5921: l_lpn_tbl(l_tmp_i).subinventory_code := fnd_api.g_miss_char;
5922: l_lpn_tbl(l_tmp_i).locator_id := fnd_api.g_miss_num;
5923: l_lpn_tbl(l_tmp_i).parent_lpn_id := fnd_api.g_miss_num;
5924: l_lpn_tbl(l_tmp_i).content_volume := fnd_api.g_miss_num;
5925: l_lpn_tbl(l_tmp_i).content_volume_uom_code := fnd_api.g_miss_char;
5926: -- bug5404902 changed empty_lpn_rec to l_lpn_tbl(l_tmp_i) since it represents
5927: -- the container items original unit weight
5920: l_lpn_tbl(l_tmp_i).lpn_id := empty_lpn_rec.lpn_id;
5921: l_lpn_tbl(l_tmp_i).subinventory_code := fnd_api.g_miss_char;
5922: l_lpn_tbl(l_tmp_i).locator_id := fnd_api.g_miss_num;
5923: l_lpn_tbl(l_tmp_i).parent_lpn_id := fnd_api.g_miss_num;
5924: l_lpn_tbl(l_tmp_i).content_volume := fnd_api.g_miss_num;
5925: l_lpn_tbl(l_tmp_i).content_volume_uom_code := fnd_api.g_miss_char;
5926: -- bug5404902 changed empty_lpn_rec to l_lpn_tbl(l_tmp_i) since it represents
5927: -- the container items original unit weight
5928: l_lpn_tbl(l_tmp_i).gross_weight := NVL(l_lpn_tbl(l_tmp_i).tare_weight, fnd_api.g_miss_num);
5921: l_lpn_tbl(l_tmp_i).subinventory_code := fnd_api.g_miss_char;
5922: l_lpn_tbl(l_tmp_i).locator_id := fnd_api.g_miss_num;
5923: l_lpn_tbl(l_tmp_i).parent_lpn_id := fnd_api.g_miss_num;
5924: l_lpn_tbl(l_tmp_i).content_volume := fnd_api.g_miss_num;
5925: l_lpn_tbl(l_tmp_i).content_volume_uom_code := fnd_api.g_miss_char;
5926: -- bug5404902 changed empty_lpn_rec to l_lpn_tbl(l_tmp_i) since it represents
5927: -- the container items original unit weight
5928: l_lpn_tbl(l_tmp_i).gross_weight := NVL(l_lpn_tbl(l_tmp_i).tare_weight, fnd_api.g_miss_num);
5929: l_lpn_tbl(l_tmp_i).gross_weight_uom_code := NVL(l_lpn_tbl(l_tmp_i).tare_weight_uom_code, fnd_api.g_miss_char);
5924: l_lpn_tbl(l_tmp_i).content_volume := fnd_api.g_miss_num;
5925: l_lpn_tbl(l_tmp_i).content_volume_uom_code := fnd_api.g_miss_char;
5926: -- bug5404902 changed empty_lpn_rec to l_lpn_tbl(l_tmp_i) since it represents
5927: -- the container items original unit weight
5928: l_lpn_tbl(l_tmp_i).gross_weight := NVL(l_lpn_tbl(l_tmp_i).tare_weight, fnd_api.g_miss_num);
5929: l_lpn_tbl(l_tmp_i).gross_weight_uom_code := NVL(l_lpn_tbl(l_tmp_i).tare_weight_uom_code, fnd_api.g_miss_char);
5930: l_lpn_tbl(l_tmp_i).outermost_lpn_id := empty_lpn_rec.lpn_id;
5931: IF (l_lpn.lpn_context = LPN_CONTEXT_STORES ) THEN --12363213,keep issued out LPN as it is.
5932: l_lpn_tbl(l_tmp_i).lpn_context := LPN_CONTEXT_STORES ;
5925: l_lpn_tbl(l_tmp_i).content_volume_uom_code := fnd_api.g_miss_char;
5926: -- bug5404902 changed empty_lpn_rec to l_lpn_tbl(l_tmp_i) since it represents
5927: -- the container items original unit weight
5928: l_lpn_tbl(l_tmp_i).gross_weight := NVL(l_lpn_tbl(l_tmp_i).tare_weight, fnd_api.g_miss_num);
5929: l_lpn_tbl(l_tmp_i).gross_weight_uom_code := NVL(l_lpn_tbl(l_tmp_i).tare_weight_uom_code, fnd_api.g_miss_char);
5930: l_lpn_tbl(l_tmp_i).outermost_lpn_id := empty_lpn_rec.lpn_id;
5931: IF (l_lpn.lpn_context = LPN_CONTEXT_STORES ) THEN --12363213,keep issued out LPN as it is.
5932: l_lpn_tbl(l_tmp_i).lpn_context := LPN_CONTEXT_STORES ;
5933: ELSE
6215: l_wsh_lpn_id_tbl(1) := p_content_lpn_id;
6216:
6217: WSH_WMS_LPN_GRP.Delivery_Detail_Action (
6218: p_api_version_number => 1.0
6219: , p_init_msg_list => fnd_api.g_false
6220: , p_commit => fnd_api.g_false
6221: , x_return_status => x_return_status
6222: , x_msg_count => x_msg_count
6223: , x_msg_data => x_msg_data
6216:
6217: WSH_WMS_LPN_GRP.Delivery_Detail_Action (
6218: p_api_version_number => 1.0
6219: , p_init_msg_list => fnd_api.g_false
6220: , p_commit => fnd_api.g_false
6221: , x_return_status => x_return_status
6222: , x_msg_count => x_msg_count
6223: , x_msg_data => x_msg_data
6224: , p_lpn_id_tbl => l_wsh_lpn_id_tbl
6226: , p_action_prms => l_wsh_action_prms
6227: , x_defaults => l_wsh_defaults
6228: , x_action_out_rec => l_wsh_action_out_rec );
6229:
6230: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
6231: l_progress := 'Delivery_Detail_Action failed';
6232: RAISE fnd_api.g_exc_error;
6233: ELSIF (l_debug = 1) THEN
6234: mdebug('Done with call to WSH Create_Update_Containers', G_INFO);
6228: , x_action_out_rec => l_wsh_action_out_rec );
6229:
6230: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
6231: l_progress := 'Delivery_Detail_Action failed';
6232: RAISE fnd_api.g_exc_error;
6233: ELSIF (l_debug = 1) THEN
6234: mdebug('Done with call to WSH Create_Update_Containers', G_INFO);
6235: END IF;
6236: END IF;
6254: END IF;
6255:
6256: Modify_LPNs (
6257: p_api_version => 1.0
6258: , p_init_msg_list => fnd_api.g_false
6259: , p_commit => fnd_api.g_false
6260: , x_return_status => x_return_status
6261: , x_msg_count => x_msg_count
6262: , x_msg_data => x_msg_data
6255:
6256: Modify_LPNs (
6257: p_api_version => 1.0
6258: , p_init_msg_list => fnd_api.g_false
6259: , p_commit => fnd_api.g_false
6260: , x_return_status => x_return_status
6261: , x_msg_count => x_msg_count
6262: , x_msg_data => x_msg_data
6263: , p_caller => 'WMS_PackUnpack_Container'
6262: , x_msg_data => x_msg_data
6263: , p_caller => 'WMS_PackUnpack_Container'
6264: , p_lpn_table => l_lpn_tbl );
6265:
6266: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
6267: l_progress := 'Modify_LPNs failed';
6268: RAISE fnd_api.g_exc_error;
6269: END IF;
6270: END IF;
6264: , p_lpn_table => l_lpn_tbl );
6265:
6266: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
6267: l_progress := 'Modify_LPNs failed';
6268: RAISE fnd_api.g_exc_error;
6269: END IF;
6270: END IF;
6271:
6272: -- IF both LPNs are picked then need to update nested LPN structure
6286: l_wsh_lpn_id_tbl(1) := p_content_lpn_id;
6287:
6288: WSH_WMS_LPN_GRP.Delivery_Detail_Action (
6289: p_api_version_number => 1.0
6290: , p_init_msg_list => fnd_api.g_false
6291: , p_commit => fnd_api.g_false
6292: , x_return_status => x_return_status
6293: , x_msg_count => x_msg_count
6294: , x_msg_data => x_msg_data
6287:
6288: WSH_WMS_LPN_GRP.Delivery_Detail_Action (
6289: p_api_version_number => 1.0
6290: , p_init_msg_list => fnd_api.g_false
6291: , p_commit => fnd_api.g_false
6292: , x_return_status => x_return_status
6293: , x_msg_count => x_msg_count
6294: , x_msg_data => x_msg_data
6295: , p_lpn_id_tbl => l_wsh_lpn_id_tbl
6297: , p_action_prms => l_wsh_action_prms
6298: , x_defaults => l_wsh_defaults
6299: , x_action_out_rec => l_wsh_action_out_rec );
6300:
6301: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
6302: l_progress := 'Delivery_Detail_Action failed';
6303: RAISE fnd_api.g_exc_error;
6304: ELSIF (l_debug = 1) THEN
6305: mdebug('Done with call to WSH Create_Update_Containers', G_INFO);
6299: , x_action_out_rec => l_wsh_action_out_rec );
6300:
6301: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
6302: l_progress := 'Delivery_Detail_Action failed';
6303: RAISE fnd_api.g_exc_error;
6304: ELSIF (l_debug = 1) THEN
6305: mdebug('Done with call to WSH Create_Update_Containers', G_INFO);
6306: END IF;
6307: END IF;
6371: , fnd_global.user_id
6372: , SYSDATE
6373: , fnd_global.user_id
6374: , p_cost_group_id
6375: , DECODE(l_new.outermost_lpn_id, fnd_api.g_miss_num, NULL, NVL(l_new.outermost_lpn_id, l_lpn.outermost_lpn_id))
6376: , NVL(p_source_type_id, l_lpn.source_type_id)
6377: , NVL(p_source_header_id, l_lpn.source_header_id)
6378: , NVL(p_source_line_id, l_lpn.source_line_id)
6379: , NVL(p_source_line_detail_id, l_lpn.source_line_detail_id)
6382: , p_sec_uom --INVCONV kkillams
6383: );
6384:
6385: -- Standard check of p_commit.
6386: IF fnd_api.to_boolean(p_commit) THEN
6387: COMMIT WORK;
6388: END IF;
6389:
6390: IF ( l_debug = 1 ) THEN
6392: END IF;
6393:
6394: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6395: EXCEPTION
6396: WHEN FND_API.G_EXC_ERROR THEN
6397: ROLLBACK TO PACKUNPACK_CONTAINER;
6398: x_return_status := fnd_api.g_ret_sts_error;
6399: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6400:
6394: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6395: EXCEPTION
6396: WHEN FND_API.G_EXC_ERROR THEN
6397: ROLLBACK TO PACKUNPACK_CONTAINER;
6398: x_return_status := fnd_api.g_ret_sts_error;
6399: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6400:
6401: IF (l_debug = 1) THEN
6402: mdebug(l_api_name ||' Exc err prog='||l_progress||' SQL err: '|| SQLERRM(SQLCODE), 1);
6406: mdebug('msg: '||l_msgdata, 1);
6407: END IF;
6408: WHEN OTHERS THEN
6409: ROLLBACK TO PACKUNPACK_CONTAINER;
6410: x_return_status := fnd_api.g_ret_sts_unexp_error;
6411: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6412: IF (l_debug = 1) THEN
6413: mdebug(l_api_name ||' Unexp err prog='||l_progress||' SQL err: '|| SQLERRM(SQLCODE), 1);
6414: END IF;
6418: -- ----------------------------------------------------------------------------------
6419:
6420: PROCEDURE Modify_LPN (
6421: p_api_version IN NUMBER
6422: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
6423: , p_commit IN VARCHAR2 := fnd_api.g_false
6424: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
6425: , x_return_status OUT NOCOPY VARCHAR2
6426: , x_msg_count OUT NOCOPY NUMBER
6419:
6420: PROCEDURE Modify_LPN (
6421: p_api_version IN NUMBER
6422: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
6423: , p_commit IN VARCHAR2 := fnd_api.g_false
6424: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
6425: , x_return_status OUT NOCOPY VARCHAR2
6426: , x_msg_count OUT NOCOPY NUMBER
6427: , x_msg_data OUT NOCOPY VARCHAR2
6420: PROCEDURE Modify_LPN (
6421: p_api_version IN NUMBER
6422: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
6423: , p_commit IN VARCHAR2 := fnd_api.g_false
6424: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
6425: , x_return_status OUT NOCOPY VARCHAR2
6426: , x_msg_count OUT NOCOPY NUMBER
6427: , x_msg_data OUT NOCOPY VARCHAR2
6428: , p_lpn IN WMS_CONTAINER_PUB.LPN
6499: -- ----------------------------------------------------------------------------------
6500:
6501: PROCEDURE Modify_LPN_Wrapper(
6502: p_api_version IN NUMBER
6503: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
6504: , p_commit IN VARCHAR2 := fnd_api.g_false
6505: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
6506: , x_return_status OUT NOCOPY VARCHAR2
6507: , x_msg_count OUT NOCOPY NUMBER
6500:
6501: PROCEDURE Modify_LPN_Wrapper(
6502: p_api_version IN NUMBER
6503: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
6504: , p_commit IN VARCHAR2 := fnd_api.g_false
6505: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
6506: , x_return_status OUT NOCOPY VARCHAR2
6507: , x_msg_count OUT NOCOPY NUMBER
6508: , x_msg_data OUT NOCOPY VARCHAR2
6501: PROCEDURE Modify_LPN_Wrapper(
6502: p_api_version IN NUMBER
6503: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
6504: , p_commit IN VARCHAR2 := fnd_api.g_false
6505: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
6506: , x_return_status OUT NOCOPY VARCHAR2
6507: , x_msg_count OUT NOCOPY NUMBER
6508: , x_msg_data OUT NOCOPY VARCHAR2
6509: , p_lpn_id IN NUMBER
6538: -- Standard Start of API savepoint
6539: SAVEPOINT MODIFY_LPN_WRAPPER_PVT;
6540:
6541: -- Standard call to check for call compatibility.
6542: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
6543: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
6544: fnd_msg_pub.ADD;
6545: RAISE fnd_api.g_exc_unexpected_error;
6546: END IF;
6541: -- Standard call to check for call compatibility.
6542: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
6543: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
6544: fnd_msg_pub.ADD;
6545: RAISE fnd_api.g_exc_unexpected_error;
6546: END IF;
6547:
6548: -- Initialize message list if p_init_msg_list is set to TRUE.
6549: IF fnd_api.to_boolean(p_init_msg_list) THEN
6545: RAISE fnd_api.g_exc_unexpected_error;
6546: END IF;
6547:
6548: -- Initialize message list if p_init_msg_list is set to TRUE.
6549: IF fnd_api.to_boolean(p_init_msg_list) THEN
6550: fnd_msg_pub.initialize;
6551: END IF;
6552:
6553: -- Initialize API return status to success
6550: fnd_msg_pub.initialize;
6551: END IF;
6552:
6553: -- Initialize API return status to success
6554: x_return_status := fnd_api.g_ret_sts_success;
6555:
6556: IF (l_debug = 1) THEN
6557: mdebug(l_api_name|| ' Entered '|| g_pkg_version, 1);
6558: END IF;
6587: , p_caller => p_caller
6588: , p_lpn_table => l_lpn );
6589:
6590: l_progress := '200';
6591: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
6592: -- Modify LPN should put the appropriate error message in the stack
6593: RAISE fnd_api.g_exc_error;
6594: END IF;
6595:
6589:
6590: l_progress := '200';
6591: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
6592: -- Modify LPN should put the appropriate error message in the stack
6593: RAISE fnd_api.g_exc_error;
6594: END IF;
6595:
6596: -- Standard check of p_commit.
6597: IF fnd_api.to_boolean(p_commit) THEN
6593: RAISE fnd_api.g_exc_error;
6594: END IF;
6595:
6596: -- Standard check of p_commit.
6597: IF fnd_api.to_boolean(p_commit) THEN
6598: COMMIT WORK;
6599: END IF;
6600:
6601: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6599: END IF;
6600:
6601: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6602: EXCEPTION
6603: WHEN fnd_api.g_exc_error THEN
6604: ROLLBACK TO MODIFY_LPN_WRAPPER_PVT;
6605: x_return_status := fnd_api.g_ret_sts_error;
6606: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6607: WHEN OTHERS THEN
6601: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6602: EXCEPTION
6603: WHEN fnd_api.g_exc_error THEN
6604: ROLLBACK TO MODIFY_LPN_WRAPPER_PVT;
6605: x_return_status := fnd_api.g_ret_sts_error;
6606: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6607: WHEN OTHERS THEN
6608: ROLLBACK TO MODIFY_LPN_WRAPPER_PVT;
6609: x_return_status := fnd_api.g_ret_sts_unexp_error;
6605: x_return_status := fnd_api.g_ret_sts_error;
6606: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6607: WHEN OTHERS THEN
6608: ROLLBACK TO MODIFY_LPN_WRAPPER_PVT;
6609: x_return_status := fnd_api.g_ret_sts_unexp_error;
6610:
6611: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
6612: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
6613: END IF;
6622: -- ----------------------------------------------------------------------------------
6623:
6624: PROCEDURE Validate_Update_Wt_Volume (
6625: p_api_version IN NUMBER
6626: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
6627: , p_commit IN VARCHAR2 := fnd_api.g_false
6628: , x_return_status OUT NOCOPY VARCHAR2
6629: , x_msg_count OUT NOCOPY NUMBER
6630: , x_msg_data OUT NOCOPY VARCHAR2
6623:
6624: PROCEDURE Validate_Update_Wt_Volume (
6625: p_api_version IN NUMBER
6626: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
6627: , p_commit IN VARCHAR2 := fnd_api.g_false
6628: , x_return_status OUT NOCOPY VARCHAR2
6629: , x_msg_count OUT NOCOPY NUMBER
6630: , x_msg_data OUT NOCOPY VARCHAR2
6631: , p_lpn_id IN NUMBER
6645: l_progress VARCHAR2(10) := '0';
6646:
6647: BEGIN
6648: -- Initialize API return status to success
6649: x_return_status := FND_API.G_RET_STS_SUCCESS;
6650:
6651: END Validate_Update_Wt_Volume;
6652:
6653: -- ----------------------------------------------------------------------------------
6654: -- ----------------------------------------------------------------------------------
6655:
6656: PROCEDURE Container_Required_Qty(
6657: p_api_version IN NUMBER
6658: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
6659: , p_commit IN VARCHAR2 := fnd_api.g_false
6660: , x_return_status OUT NOCOPY VARCHAR2
6661: , x_msg_count OUT NOCOPY NUMBER
6662: , x_msg_data OUT NOCOPY VARCHAR2
6655:
6656: PROCEDURE Container_Required_Qty(
6657: p_api_version IN NUMBER
6658: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
6659: , p_commit IN VARCHAR2 := fnd_api.g_false
6660: , x_return_status OUT NOCOPY VARCHAR2
6661: , x_msg_count OUT NOCOPY NUMBER
6662: , x_msg_data OUT NOCOPY VARCHAR2
6663: , p_source_item_id IN NUMBER
6707: BEGIN
6708: -- Standard Start of API savepoint
6709: SAVEPOINT CONTAINER_REQUIRED_QTY_PVT;
6710: -- Standard call to check for call compatibility.
6711: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
6712: p_api_version ,
6713: l_api_name ,
6714: G_PKG_NAME )
6715: THEN
6714: G_PKG_NAME )
6715: THEN
6716: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
6717: FND_MSG_PUB.ADD;
6718: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6719: END IF;
6720: -- Initialize message list if p_init_msg_list is set to TRUE.
6721: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6722: FND_MSG_PUB.initialize;
6717: FND_MSG_PUB.ADD;
6718: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6719: END IF;
6720: -- Initialize message list if p_init_msg_list is set to TRUE.
6721: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6722: FND_MSG_PUB.initialize;
6723: END IF;
6724: -- Initialize API return status to success
6725: x_return_status := FND_API.G_RET_STS_SUCCESS;
6721: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6722: FND_MSG_PUB.initialize;
6723: END IF;
6724: -- Initialize API return status to success
6725: x_return_status := FND_API.G_RET_STS_SUCCESS;
6726:
6727: -- API body
6728:
6729: /* Validate Organization ID */
6731: l_result := INV_Validate.Organization(l_org);
6732: IF (l_result = INV_Validate.F) THEN
6733: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_ORG');
6734: FND_MSG_PUB.ADD;
6735: RAISE FND_API.G_EXC_ERROR;
6736: END IF;
6737:
6738: /* Validate Source item */
6739: l_source_item.inventory_item_id := p_source_item_id;
6740: l_result := INV_Validate.inventory_item(l_source_item, l_org);
6741: IF (l_result = INV_Validate.F) THEN
6742: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_ITEM');
6743: FND_MSG_PUB.ADD;
6744: RAISE FND_API.G_EXC_ERROR;
6745: END IF;
6746:
6747: /* Validate Source Quantity */
6748: IF ((p_source_qty IS NULL) OR (p_source_qty <= 0)) THEN
6747: /* Validate Source Quantity */
6748: IF ((p_source_qty IS NULL) OR (p_source_qty <= 0)) THEN
6749: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_SRC_QTY');
6750: FND_MSG_PUB.ADD;
6751: RAISE FND_API.G_EXC_ERROR;
6752: END IF;
6753:
6754: /* Validate Source UOM */
6755: l_result := INV_Validate.Uom(p_source_qty_uom, l_org, l_source_item);
6755: l_result := INV_Validate.Uom(p_source_qty_uom, l_org, l_source_item);
6756: IF (l_result = INV_Validate.F) THEN
6757: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_SRC_UOM');
6758: FND_MSG_PUB.ADD;
6759: RAISE FND_API.G_EXC_ERROR;
6760: END IF;
6761:
6762: /* Validate Quantity Per Container */
6763: IF (p_qty_per_cont IS NOT NULL) THEN
6763: IF (p_qty_per_cont IS NOT NULL) THEN
6764: IF (p_qty_per_cont <= 0) THEN
6765: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVLD_QTY_PER_CONT');
6766: FND_MSG_PUB.ADD;
6767: RAISE FND_API.G_EXC_ERROR;
6768: END IF;
6769: END IF;
6770:
6771: /* Validate Quantity Per Container UOM */
6773: l_result := INV_Validate.Uom(p_qty_per_cont_uom, l_org, l_source_item);
6774: IF (l_result = INV_Validate.F) THEN
6775: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVLD_QTY_PER_UOM');
6776: FND_MSG_PUB.ADD;
6777: RAISE FND_API.G_EXC_ERROR;
6778: END IF;
6779: END IF;
6780:
6781: /* Validate Destination container item */
6784: l_result := INV_Validate.inventory_item(l_dest_cont_item, l_org);
6785: IF (l_result = INV_Validate.F) THEN
6786: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_CONT_ITEM');
6787: FND_MSG_PUB.ADD;
6788: RAISE FND_API.G_EXC_ERROR;
6789: ELSIF (l_dest_cont_item.container_item_flag = 'N') THEN
6790: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_ITEM_NOT_A_CONT');
6791: FND_MSG_PUB.ADD;
6792: RAISE FND_API.G_EXC_ERROR;
6788: RAISE FND_API.G_EXC_ERROR;
6789: ELSIF (l_dest_cont_item.container_item_flag = 'N') THEN
6790: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_ITEM_NOT_A_CONT');
6791: FND_MSG_PUB.ADD;
6792: RAISE FND_API.G_EXC_ERROR;
6793: END IF;
6794: END IF;
6795: /* End of input validation */
6796:
6807: (l_source_item.unit_volume IS NULL) OR
6808: (l_source_item.volume_uom_code IS NULL)) THEN
6809: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_NOT_ENOUGH_INFO');
6810: FND_MSG_PUB.ADD;
6811: RAISE FND_API.G_EXC_ERROR;
6812: END IF;
6813:
6814: /* Volume constraint */
6815: l_temp_value := Convert_UOM(
6825: l_max_load_quantity := FLOOR(l_dest_cont_item.internal_volume/l_temp_value);
6826: ELSE
6827: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_ITEM_TOO_LARGE');
6828: FND_MSG_PUB.ADD;
6829: RAISE FND_API.G_EXC_ERROR;
6830: END IF;
6831: END IF;
6832: /* Weight constraint */
6833: l_temp_value := Convert_UOM(
6848: END IF;
6849: ELSE
6850: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_ITEM_TOO_LARGE');
6851: FND_MSG_PUB.ADD;
6852: RAISE FND_API.G_EXC_ERROR;
6853: END IF;
6854: END IF;
6855: END IF;
6856: CLOSE max_load_cursor;
6874:
6875: IF (l_qty_per_cont > l_max_load_quantity) THEN
6876: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_OVERPACKED_OPERATION');
6877: FND_MSG_PUB.ADD;
6878: RAISE FND_API.G_EXC_ERROR;
6879: ELSE
6880: p_qty_required := CEIL(p_source_qty/l_qty_per_cont);
6881: END IF;
6882: ELSIF ((p_qty_per_cont IS NULL) AND (l_max_load_quantity IS NOT NULL)) THEN
6899: l_result := INV_Validate.inventory_item(l_cont_item, l_org);
6900: IF (l_result = INV_Validate.F) THEN
6901: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_CONT_ITEM');
6902: FND_MSG_PUB.ADD;
6903: RAISE FND_API.G_EXC_ERROR;
6904: END IF;
6905:
6906: /* Get the max load quantity for that given container */
6907: l_temp_load_quantity := Convert_UOM (
6939: IF (l_curr_min_container = 0) THEN
6940: p_qty_required := 0;
6941: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_NO_CONTAINER_FOUND');
6942: FND_MSG_PUB.ADD;
6943: RAISE FND_API.G_EXC_ERROR;
6944: ELSE
6945: /* Valid container found. Store this information in the output parameters */
6946: p_dest_cont_item_id := l_curr_min_container;
6947: p_qty_required := CEIL(p_source_qty / l_curr_load_quantity);
6949: END IF;
6950: -- End of API body
6951:
6952: -- Standard check of p_commit.
6953: IF FND_API.To_Boolean( p_commit ) THEN
6954: COMMIT WORK;
6955: END IF;
6956: -- Standard call to get message count and if count is 1,
6957: -- get message info.
6959: ( p_count => x_msg_count,
6960: p_data => x_msg_data
6961: );
6962: EXCEPTION
6963: WHEN FND_API.G_EXC_ERROR THEN
6964: ROLLBACK TO CONTAINER_REQUIRED_QTY_PVT;
6965: x_return_status := FND_API.G_RET_STS_ERROR;
6966: FND_MSG_PUB.Count_And_Get
6967: ( p_count => x_msg_count,
6961: );
6962: EXCEPTION
6963: WHEN FND_API.G_EXC_ERROR THEN
6964: ROLLBACK TO CONTAINER_REQUIRED_QTY_PVT;
6965: x_return_status := FND_API.G_RET_STS_ERROR;
6966: FND_MSG_PUB.Count_And_Get
6967: ( p_count => x_msg_count,
6968: p_data => x_msg_data
6969: );
6966: FND_MSG_PUB.Count_And_Get
6967: ( p_count => x_msg_count,
6968: p_data => x_msg_data
6969: );
6970: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6971: ROLLBACK TO CONTAINER_REQUIRED_QTY_PVT;
6972: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6973: FND_MSG_PUB.Count_And_Get
6974: ( p_count => x_msg_count,
6968: p_data => x_msg_data
6969: );
6970: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6971: ROLLBACK TO CONTAINER_REQUIRED_QTY_PVT;
6972: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6973: FND_MSG_PUB.Count_And_Get
6974: ( p_count => x_msg_count,
6975: p_data => x_msg_data
6976: );
6975: p_data => x_msg_data
6976: );
6977: WHEN OTHERS THEN
6978: ROLLBACK TO CONTAINER_REQUIRED_QTY_PVT;
6979: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6980: IF FND_MSG_PUB.Check_Msg_Level
6981: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6982: THEN
6983: FND_MSG_PUB.Add_Exc_Msg
7035: -- Standard Start of API savepoint
7036: SAVEPOINT PREPACK_LPN_CP_PVT;
7037:
7038: -- Standard call to check for call compatibility.
7039: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
7040: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
7041: fnd_msg_pub.ADD;
7042: RAISE fnd_api.g_exc_unexpected_error;
7043: END IF;
7038: -- Standard call to check for call compatibility.
7039: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
7040: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
7041: fnd_msg_pub.ADD;
7042: RAISE fnd_api.g_exc_unexpected_error;
7043: END IF;
7044:
7045: -- Initialize API return status to success
7046: x_return_status := fnd_api.g_ret_sts_success;
7042: RAISE fnd_api.g_exc_unexpected_error;
7043: END IF;
7044:
7045: -- Initialize API return status to success
7046: x_return_status := fnd_api.g_ret_sts_success;
7047:
7048: -- Call Prepack LPN
7049: Prepack_LPN(
7050: p_api_version=> p_api_version,
7047:
7048: -- Call Prepack LPN
7049: Prepack_LPN(
7050: p_api_version=> p_api_version,
7051: --p_init_msg_list=> := fnd_api.g_false,
7052: --p_commit=> fnd_api.g_false;,
7053: x_return_status=> x_return_status,
7054: x_msg_count=> x_msg_count,
7055: x_msg_data=> x_msg_data,
7048: -- Call Prepack LPN
7049: Prepack_LPN(
7050: p_api_version=> p_api_version,
7051: --p_init_msg_list=> := fnd_api.g_false,
7052: --p_commit=> fnd_api.g_false;,
7053: x_return_status=> x_return_status,
7054: x_msg_count=> x_msg_count,
7055: x_msg_data=> x_msg_data,
7056: p_organization_id=> p_organization_id,
7076: p_sec_quantity => p_sec_quantity, --INVCONV kkillams
7077: p_sec_uom => p_sec_uom --INVCONV kkillams
7078: );
7079:
7080: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
7081: ret := fnd_concurrent.set_completion_status('NORMAL', x_msg_data);
7082: retcode := 0;
7083: ELSE
7084: ret := fnd_concurrent.set_completion_status('ERROR', x_msg_data);
7089: -- Standard call to get message count and if count is 1,
7090: -- get message info.
7091: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7092: EXCEPTION
7093: WHEN fnd_api.g_exc_error THEN
7094: ROLLBACK TO PREPACK_LPN_CP_PVT;
7095: x_return_status := fnd_api.g_ret_sts_error;
7096: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7097: WHEN fnd_api.g_exc_unexpected_error THEN
7091: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7092: EXCEPTION
7093: WHEN fnd_api.g_exc_error THEN
7094: ROLLBACK TO PREPACK_LPN_CP_PVT;
7095: x_return_status := fnd_api.g_ret_sts_error;
7096: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7097: WHEN fnd_api.g_exc_unexpected_error THEN
7098: ROLLBACK TO PREPACK_LPN_CP_PVT;
7099: x_return_status := fnd_api.g_ret_sts_unexp_error;
7093: WHEN fnd_api.g_exc_error THEN
7094: ROLLBACK TO PREPACK_LPN_CP_PVT;
7095: x_return_status := fnd_api.g_ret_sts_error;
7096: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7097: WHEN fnd_api.g_exc_unexpected_error THEN
7098: ROLLBACK TO PREPACK_LPN_CP_PVT;
7099: x_return_status := fnd_api.g_ret_sts_unexp_error;
7100: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7101: WHEN OTHERS THEN
7095: x_return_status := fnd_api.g_ret_sts_error;
7096: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7097: WHEN fnd_api.g_exc_unexpected_error THEN
7098: ROLLBACK TO PREPACK_LPN_CP_PVT;
7099: x_return_status := fnd_api.g_ret_sts_unexp_error;
7100: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7101: WHEN OTHERS THEN
7102: ROLLBACK TO PREPACK_LPN_CP_PVT;
7103: x_return_status := fnd_api.g_ret_sts_unexp_error;
7099: x_return_status := fnd_api.g_ret_sts_unexp_error;
7100: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7101: WHEN OTHERS THEN
7102: ROLLBACK TO PREPACK_LPN_CP_PVT;
7103: x_return_status := fnd_api.g_ret_sts_unexp_error;
7104:
7105: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
7106: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
7107: END IF;
7113: -- ----------------------------------------------------------------------------------
7114:
7115: PROCEDURE Prepack_LPN(
7116: p_api_version IN NUMBER
7117: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
7118: , p_commit IN VARCHAR2 := fnd_api.g_false
7119: , x_return_status OUT NOCOPY VARCHAR2
7120: , x_msg_count OUT NOCOPY NUMBER
7121: , x_msg_data OUT NOCOPY VARCHAR2
7114:
7115: PROCEDURE Prepack_LPN(
7116: p_api_version IN NUMBER
7117: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
7118: , p_commit IN VARCHAR2 := fnd_api.g_false
7119: , x_return_status OUT NOCOPY VARCHAR2
7120: , x_msg_count OUT NOCOPY NUMBER
7121: , x_msg_data OUT NOCOPY VARCHAR2
7122: , p_organization_id IN NUMBER
7237: -- Standard Start of API savepoint
7238: SAVEPOINT prepack_lpn_pub;
7239:
7240: -- Standard call to check for call compatibility.
7241: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
7242: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
7243: fnd_msg_pub.ADD;
7244: RAISE fnd_api.g_exc_unexpected_error;
7245: END IF;
7240: -- Standard call to check for call compatibility.
7241: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
7242: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
7243: fnd_msg_pub.ADD;
7244: RAISE fnd_api.g_exc_unexpected_error;
7245: END IF;
7246:
7247: -- Initialize message list if p_init_msg_list is set to TRUE.
7248: IF fnd_api.to_boolean(p_init_msg_list) THEN
7244: RAISE fnd_api.g_exc_unexpected_error;
7245: END IF;
7246:
7247: -- Initialize message list if p_init_msg_list is set to TRUE.
7248: IF fnd_api.to_boolean(p_init_msg_list) THEN
7249: fnd_msg_pub.initialize;
7250: END IF;
7251:
7252: -- Initialize API return status to success
7249: fnd_msg_pub.initialize;
7250: END IF;
7251:
7252: -- Initialize API return status to success
7253: --x_return_status := FND_API.G_RET_STS_SUCCESS;
7254:
7255: -- API body
7256: IF (l_debug = 1) THEN
7257: mdebug(l_api_name || ' Entered ' || g_pkg_version, 1);
7284: IF ( x_error_code <> 0 ) THEN
7285: IF (l_debug = 1) THEN
7286: mdebug('auto_gen_lot failed', G_ERROR);
7287: END IF;
7288: RAISE fnd_api.g_exc_error;
7289: END IF;
7290:
7291: IF (l_debug = 1) THEN
7292: mdebug('lot number generated: '|| l_lot_number);
7318: ELSE
7319: /* Calculate number of LPNs required */
7320: Container_Required_Qty(
7321: p_api_version=> 1.0,
7322: p_init_msg_list=> fnd_api.g_false,
7323: p_commit=> fnd_api.g_false,
7324: x_return_status=> x_return_status,
7325: x_msg_count=> x_msg_count,
7326: x_msg_data=> x_msg_data,
7319: /* Calculate number of LPNs required */
7320: Container_Required_Qty(
7321: p_api_version=> 1.0,
7322: p_init_msg_list=> fnd_api.g_false,
7323: p_commit=> fnd_api.g_false,
7324: x_return_status=> x_return_status,
7325: x_msg_count=> x_msg_count,
7326: x_msg_data=> x_msg_data,
7327: p_source_item_id=> p_inventory_item_id,
7331: p_dest_cont_item_id=> l_container_item_id,
7332: p_qty_required=> l_lpn_quantity
7333: );
7334:
7335: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
7336: IF (l_debug = 1) THEN
7337: mdebug('calc lpn failed'|| x_msg_data, G_ERROR);
7338: END IF;
7339: fnd_message.set_name('WMS', 'WMS_CONT_QTY_ERROR');
7337: mdebug('calc lpn failed'|| x_msg_data, G_ERROR);
7338: END IF;
7339: fnd_message.set_name('WMS', 'WMS_CONT_QTY_ERROR');
7340: fnd_msg_pub.ADD;
7341: RAISE fnd_api.g_exc_unexpected_error;
7342: END IF;
7343:
7344: IF (l_debug = 1) THEN
7345: mdebug('Container_Required_Qty '|| TO_CHAR(l_lpn_quantity), G_INFO);
7347: END IF;
7348:
7349: Generate_LPN (
7350: p_api_version => p_api_version
7351: , p_init_msg_list => fnd_api.g_false
7352: , p_commit => fnd_api.g_false
7353: , x_return_status => x_return_status
7354: , x_msg_count => x_msg_count
7355: , x_msg_data => x_msg_data
7348:
7349: Generate_LPN (
7350: p_api_version => p_api_version
7351: , p_init_msg_list => fnd_api.g_false
7352: , p_commit => fnd_api.g_false
7353: , x_return_status => x_return_status
7354: , x_msg_count => x_msg_count
7355: , x_msg_data => x_msg_data
7356: , p_organization_id => p_organization_id
7364: , p_lpn_id_out => l_lpn_id_out
7365: , p_lpn_out => l_lpn_out
7366: , p_source => l_lpn_source );
7367:
7368: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
7369: IF (l_debug = 1) THEN
7370: mdebug('failed to generate lpn '|| x_msg_data, 1);
7371: END IF;
7372: fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
7370: mdebug('failed to generate lpn '|| x_msg_data, 1);
7371: END IF;
7372: fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
7373: fnd_msg_pub.ADD;
7374: RAISE fnd_api.g_exc_unexpected_error;
7375: END IF;
7376:
7377: IF (l_debug = 1) THEN
7378: mdebug('Process Id '|| TO_CHAR(l_process_id), G_INFO);
7445: mdebug('error msg: '|| x_proc_msg, 1);
7446: END IF;
7447: fnd_message.set_name('WMS', 'WMS_INSERT_LINE_TRX_FAIL');
7448: fnd_msg_pub.ADD;
7449: RAISE fnd_api.g_exc_unexpected_error;
7450: END IF;
7451:
7452: IF (l_debug = 1) THEN
7453: mdebug('trx temp id created: '|| TO_CHAR(l_trx_tmp_id), G_INFO);
7475: mdebug('error msg: '|| x_proc_msg, G_ERROR);
7476: END IF;
7477: fnd_message.set_name('WMS', 'WMS_INSERT_LOT_TRX_FAIL');
7478: fnd_msg_pub.ADD;
7479: RAISE fnd_api.g_exc_unexpected_error;
7480: END IF;
7481: END IF;
7482:
7483: IF ( x_error_code = 0 AND l_serial_number_from IS NOT NULL ) THEN
7504: mdebug('error msg: '|| x_proc_msg, G_ERROR);
7505: END IF;
7506: fnd_message.set_name('WMS', 'WMS_INSERT_SER_TRX_FAIL');
7507: fnd_msg_pub.ADD;
7508: RAISE fnd_api.g_exc_unexpected_error;
7509: END IF;
7510: END IF;
7511:
7512: IF (l_debug = 1) THEN
7514: END IF;
7515:
7516: WMS_CARTNZN_WRAP.Cartonize (
7517: p_api_version => 1.0
7518: , p_init_msg_list => fnd_api.g_false
7519: , p_commit => fnd_api.g_false
7520: , x_return_status => x_return_status
7521: , x_msg_count => x_msg_count
7522: , x_msg_data => x_msg_data
7515:
7516: WMS_CARTNZN_WRAP.Cartonize (
7517: p_api_version => 1.0
7518: , p_init_msg_list => fnd_api.g_false
7519: , p_commit => fnd_api.g_false
7520: , x_return_status => x_return_status
7521: , x_msg_count => x_msg_count
7522: , x_msg_data => x_msg_data
7523: , p_org_id => p_organization_id
7524: , p_transaction_header_id => l_trx_header_id
7525: , p_stop_level => p_packaging_level
7526: , p_packaging_mode => WMS_CARTNZN_WRAP.PREPACK_PKG_MODE );
7527:
7528: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
7529: IF (l_debug = 1) THEN
7530: mdebug('Error in calling Cartonization'|| x_msg_data, 1);
7531: END IF;
7532: RAISE fnd_api.g_exc_error;
7528: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
7529: IF (l_debug = 1) THEN
7530: mdebug('Error in calling Cartonization'|| x_msg_data, 1);
7531: END IF;
7532: RAISE fnd_api.g_exc_error;
7533: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
7534: IF (l_debug = 1) THEN
7535: mdebug('Unexpectied error in calling Cartonization'|| x_msg_data, 1);
7536: END IF;
7529: IF (l_debug = 1) THEN
7530: mdebug('Error in calling Cartonization'|| x_msg_data, 1);
7531: END IF;
7532: RAISE fnd_api.g_exc_error;
7533: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
7534: IF (l_debug = 1) THEN
7535: mdebug('Unexpectied error in calling Cartonization'|| x_msg_data, 1);
7536: END IF;
7537: RAISE fnd_api.g_exc_unexpected_error;
7533: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
7534: IF (l_debug = 1) THEN
7535: mdebug('Unexpectied error in calling Cartonization'|| x_msg_data, 1);
7536: END IF;
7537: RAISE fnd_api.g_exc_unexpected_error;
7538: ELSIF (x_return_status <> fnd_api.g_ret_sts_success) THEN
7539: IF (l_debug = 1) THEN
7540: mdebug('Undefined error in calling Cartonization'|| x_msg_data, 1);
7541: END IF;
7534: IF (l_debug = 1) THEN
7535: mdebug('Unexpectied error in calling Cartonization'|| x_msg_data, 1);
7536: END IF;
7537: RAISE fnd_api.g_exc_unexpected_error;
7538: ELSIF (x_return_status <> fnd_api.g_ret_sts_success) THEN
7539: IF (l_debug = 1) THEN
7540: mdebug('Undefined error in calling Cartonization'|| x_msg_data, 1);
7541: END IF;
7542: RAISE fnd_api.g_exc_unexpected_error;
7538: ELSIF (x_return_status <> fnd_api.g_ret_sts_success) THEN
7539: IF (l_debug = 1) THEN
7540: mdebug('Undefined error in calling Cartonization'|| x_msg_data, 1);
7541: END IF;
7542: RAISE fnd_api.g_exc_unexpected_error;
7543: END IF;
7544:
7545: IF (l_debug = 1) THEN
7546: mdebug('cartonization api done');
7577: mdebug('failed genreate serials ' || TO_CHAR(x_error_code));
7578: END IF;
7579: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_SER');
7580: FND_MSG_PUB.ADD;
7581: RAISE FND_API.G_EXC_ERROR;
7582: ELSE
7583: IF (l_debug = 1) THEN
7584: mdebug('genreated serials ' || l_cont_serial_number_from || ' - ' || l_cont_serial_number_to);
7585: END IF;
7662: END IF;
7663: fnd_message.set_name('WMS', 'WMS_CARTONIZE_ERROR');
7664: fnd_msg_pub.ADD;
7665: --COMMIT;
7666: RAISE fnd_api.g_exc_unexpected_error;
7667: END IF;
7668:
7669: IF (l_debug = 1) THEN
7670: mdebug('packing lpn='|| l_lpn_to_pack || ' with qty=' || l_primary_quantity || ' ' ||l_primary_uom);
7725: mdebug('error msg: '|| x_proc_msg, 1);
7726: END IF;
7727: fnd_message.set_name('WMS', 'WMS_INSERT_LINE_TRX_FAIL');
7728: fnd_msg_pub.ADD;
7729: RAISE fnd_api.g_exc_unexpected_error;
7730: END IF;
7731:
7732: IF (l_debug = 1) THEN
7733: mdebug('trx temp id created: '|| TO_CHAR(l_trx_tmp_id), G_INFO);
7755: mdebug('error msg: '|| x_proc_msg, 1);
7756: END IF;
7757: fnd_message.set_name('WMS', 'WMS_INSERT_LOT_TRX_FAIL');
7758: fnd_msg_pub.ADD;
7759: RAISE fnd_api.g_exc_unexpected_error;
7760: END IF;
7761: END IF;
7762:
7763: IF ( x_error_code = 0 AND l_serial_number_from IS NOT NULL ) THEN
7782: mdebug('error msg: '|| x_proc_msg, 1);
7783: END IF;
7784: fnd_message.set_name('WMS', 'WMS_INSERT_SER_TRX_FAIL');
7785: fnd_msg_pub.ADD;
7786: RAISE fnd_api.g_exc_unexpected_error;
7787: END IF;
7788: END IF;
7789:
7790: --Call LPN Transaction API
7790: --Call LPN Transaction API
7791: IF (l_debug = 1) THEN
7792: mdebug('calling process lpn trx');
7793: END IF;
7794: x_error_code := inv_lpn_trx_pub.process_lpn_trx(p_trx_hdr_id => l_trx_header_id, p_commit => fnd_api.g_false, x_proc_msg => error_msg, p_business_flow_code => 20);
7795:
7796: IF (x_error_code <> 0) THEN
7797: IF (l_debug = 1) THEN
7798: mdebug('failed PROCESS_LPN_TRX '|| x_error_code, 1);
7799: mdebug('error msg: '|| error_msg, G_ERROR);
7800: END IF;
7801: fnd_message.set_name('WMS', 'WMS_PROCESS_LPN_TRX_FAIL');
7802: fnd_msg_pub.ADD;
7803: RAISE fnd_api.g_exc_unexpected_error;
7804: END IF;
7805:
7806: IF (l_debug = 1) THEN
7807: mdebug('Packed LPN_ID '|| TO_CHAR(l_lpn_to_pack), G_INFO);
7812: END IF;
7813:
7814: PackUnpack_Container(
7815: p_api_version=> 1.0,
7816: p_init_msg_list=> fnd_api.g_false,
7817: p_commit=> fnd_api.g_false,
7818: p_validation_level=> fnd_api.g_valid_level_none,
7819: x_return_status=> x_return_status,
7820: x_msg_count=> x_msg_count,
7813:
7814: PackUnpack_Container(
7815: p_api_version=> 1.0,
7816: p_init_msg_list=> fnd_api.g_false,
7817: p_commit=> fnd_api.g_false,
7818: p_validation_level=> fnd_api.g_valid_level_none,
7819: x_return_status=> x_return_status,
7820: x_msg_count=> x_msg_count,
7821: x_msg_data=> x_msg_data,
7814: PackUnpack_Container(
7815: p_api_version=> 1.0,
7816: p_init_msg_list=> fnd_api.g_false,
7817: p_commit=> fnd_api.g_false,
7818: p_validation_level=> fnd_api.g_valid_level_none,
7819: x_return_status=> x_return_status,
7820: x_msg_count=> x_msg_count,
7821: x_msg_data=> x_msg_data,
7822: p_lpn_id=> l_lpn_to_pack,
7829: p_uom=> l_primary_uom,
7830: p_organization_id=> p_organization_id,
7831: p_operation=> 1 );
7832:
7833: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
7834: IF (l_debug = 1) THEN
7835: mdebug('failed to pack lpn: '|| TO_CHAR(l_lpn_to_pack), G_ERROR);
7836: END IF;
7837: fnd_message.set_name('WMS', 'WMS_PACK_CONTAINER_FAIL');
7836: END IF;
7837: fnd_message.set_name('WMS', 'WMS_PACK_CONTAINER_FAIL');
7838: fnd_message.set_token('lpn', TO_CHAR(l_lpn_to_pack));
7839: fnd_msg_pub.ADD;
7840: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7841: ELSE
7842: IF (l_debug = 1) THEN
7843: mdebug('packed lpn: '|| l_lpn_to_pack || ' with qty ' || l_primary_quantity, G_INFO);
7844: END IF;
7864: mdebug('Sealing LPN', G_MESSAGE);
7865: END IF;
7866: modify_lpn_wrapper(
7867: p_api_version=> 1.0,
7868: p_init_msg_list=> fnd_api.g_false,
7869: p_commit=> fnd_api.g_false,
7870: x_return_status=> x_return_status,
7871: x_msg_count=> x_msg_count,
7872: x_msg_data=> x_msg_data,
7865: END IF;
7866: modify_lpn_wrapper(
7867: p_api_version=> 1.0,
7868: p_init_msg_list=> fnd_api.g_false,
7869: p_commit=> fnd_api.g_false,
7870: x_return_status=> x_return_status,
7871: x_msg_count=> x_msg_count,
7872: x_msg_data=> x_msg_data,
7873: p_lpn_id=> l_lpn_to_pack,
7872: x_msg_data=> x_msg_data,
7873: p_lpn_id=> l_lpn_to_pack,
7874: p_sealed_status=> 1 );
7875:
7876: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
7877: IF (l_debug = 1) THEN
7878: mdebug('failed to seal lpn: '|| TO_CHAR(l_lpn_to_pack), G_ERROR);
7879: END IF;
7880: fnd_message.set_name('WMS', 'WMS_PACK_CONTAINER_FAIL');
7878: mdebug('failed to seal lpn: '|| TO_CHAR(l_lpn_to_pack), G_ERROR);
7879: END IF;
7880: fnd_message.set_name('WMS', 'WMS_PACK_CONTAINER_FAIL');
7881: fnd_msg_pub.ADD;
7882: RAISE fnd_api.g_exc_unexpected_error;
7883: END IF;
7884: END IF;
7885: END LOOP;
7886:
7899: , p_print_mode => 1
7900: , p_business_flow_code => 22
7901: , p_transaction_id => WMS_CARTNZN_WRAP.get_lpns_generated_tb);
7902:
7903: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
7904: IF (l_debug = 1) THEN
7905: mdebug('**Error in Cartonization Label Printing :'||x_return_status,1);
7906: END IF;
7907: RAISE FND_API.G_EXC_ERROR;
7903: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
7904: IF (l_debug = 1) THEN
7905: mdebug('**Error in Cartonization Label Printing :'||x_return_status,1);
7906: END IF;
7907: RAISE FND_API.G_EXC_ERROR;
7908: END if;
7909: END IF;
7910:
7911: IF (l_print_label = 1) THEN
7923: p_business_flow_code=> 20,
7924: p_input_param_rec=> l_input_param_tbl
7925: );
7926:
7927: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
7928: IF (l_debug = 1) THEN
7929: mdebug('failed to print labels', 1);
7930: END IF;
7931: fnd_message.set_name('WMS', 'WMS_PRINT_LABEL_FAIL');
7929: mdebug('failed to print labels', 1);
7930: END IF;
7931: fnd_message.set_name('WMS', 'WMS_PRINT_LABEL_FAIL');
7932: fnd_msg_pub.ADD;
7933: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7934: END IF;
7935: END IF;
7936:
7937: -- Close cursor
7953:
7954: -- End of API body
7955:
7956: -- Standard check of p_commit.
7957: IF fnd_api.to_boolean(p_commit) THEN
7958: COMMIT WORK;
7959: END IF;
7960:
7961: -- Standard call to get message count and if count is 1,
7961: -- Standard call to get message count and if count is 1,
7962: -- get message info.
7963: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7964: EXCEPTION
7965: WHEN fnd_api.g_exc_error THEN
7966: IF (l_debug = 1) THEN
7967: mdebug('Execution Error', 1);
7968: END IF;
7969: ROLLBACK TO prepack_lpn_pub;
7966: IF (l_debug = 1) THEN
7967: mdebug('Execution Error', 1);
7968: END IF;
7969: ROLLBACK TO prepack_lpn_pub;
7970: x_return_status := fnd_api.g_ret_sts_error;
7971: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7972: WHEN fnd_api.g_exc_unexpected_error THEN
7973: IF (l_debug = 1) THEN
7974: mdebug('Unexpected Execution Error', 1);
7968: END IF;
7969: ROLLBACK TO prepack_lpn_pub;
7970: x_return_status := fnd_api.g_ret_sts_error;
7971: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7972: WHEN fnd_api.g_exc_unexpected_error THEN
7973: IF (l_debug = 1) THEN
7974: mdebug('Unexpected Execution Error', 1);
7975: END IF;
7976: ROLLBACK TO prepack_lpn_pub;
7973: IF (l_debug = 1) THEN
7974: mdebug('Unexpected Execution Error', 1);
7975: END IF;
7976: ROLLBACK TO prepack_lpn_pub;
7977: x_return_status := fnd_api.g_ret_sts_unexp_error;
7978: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7979: WHEN OTHERS THEN
7980: IF (l_debug = 1) THEN
7981: mdebug('others error', 1);
7980: IF (l_debug = 1) THEN
7981: mdebug('others error', 1);
7982: END IF;
7983: ROLLBACK TO prepack_lpn_pub;
7984: x_return_status := fnd_api.g_ret_sts_error;
7985: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7986: END Prepack_LPN;
7987:
7988: -- ----------------------------------------------------------------------------------
7989: -- ----------------------------------------------------------------------------------
7990:
7991: PROCEDURE Pack_Prepack_Container(
7992: p_api_version IN NUMBER
7993: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
7994: , p_commit IN VARCHAR2 := fnd_api.g_false
7995: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
7996: , x_return_status OUT NOCOPY VARCHAR2
7997: , x_msg_count OUT NOCOPY NUMBER
7990:
7991: PROCEDURE Pack_Prepack_Container(
7992: p_api_version IN NUMBER
7993: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
7994: , p_commit IN VARCHAR2 := fnd_api.g_false
7995: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
7996: , x_return_status OUT NOCOPY VARCHAR2
7997: , x_msg_count OUT NOCOPY NUMBER
7998: , x_msg_data OUT NOCOPY VARCHAR2
7991: PROCEDURE Pack_Prepack_Container(
7992: p_api_version IN NUMBER
7993: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
7994: , p_commit IN VARCHAR2 := fnd_api.g_false
7995: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
7996: , x_return_status OUT NOCOPY VARCHAR2
7997: , x_msg_count OUT NOCOPY NUMBER
7998: , x_msg_data OUT NOCOPY VARCHAR2
7999: , p_lpn_id IN NUMBER
8027: -- Standard Start of API savepoint
8028: SAVEPOINT PACK_PREPACK_CONTAINER;
8029:
8030: -- Standard call to check for call compatibility.
8031: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
8032: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
8033: fnd_msg_pub.ADD;
8034: RAISE fnd_api.g_exc_unexpected_error;
8035: END IF;
8030: -- Standard call to check for call compatibility.
8031: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
8032: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
8033: fnd_msg_pub.ADD;
8034: RAISE fnd_api.g_exc_unexpected_error;
8035: END IF;
8036:
8037: -- Initialize message list if p_init_msg_list is set to TRUE.
8038: IF fnd_api.to_boolean(p_init_msg_list) THEN
8034: RAISE fnd_api.g_exc_unexpected_error;
8035: END IF;
8036:
8037: -- Initialize message list if p_init_msg_list is set to TRUE.
8038: IF fnd_api.to_boolean(p_init_msg_list) THEN
8039: fnd_msg_pub.initialize;
8040: END IF;
8041:
8042: -- Initialize API return status to success
8039: fnd_msg_pub.initialize;
8040: END IF;
8041:
8042: -- Initialize API return status to success
8043: x_return_status := fnd_api.g_ret_sts_success;
8044:
8045: -- API body
8046: IF (l_debug = 1) THEN
8047: mdebug(l_api_name || ' Entered ' || g_pkg_version, 1);
8059: mdebug('Invalid serial number given in range', 1);
8060: END IF;
8061: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SER');
8062: fnd_msg_pub.ADD;
8063: RAISE fnd_api.g_exc_error;
8064: END IF;
8065:
8066: -- Initialize the current pointer variables
8067: l_current_serial := p_from_serial_number;
8120: END IF;
8121: -- End of API body
8122:
8123: -- Standard check of p_commit.
8124: IF fnd_api.to_boolean(p_commit) THEN
8125: COMMIT WORK;
8126: END IF;
8127:
8128: -- Standard call to get message count and if count is 1,
8128: -- Standard call to get message count and if count is 1,
8129: -- get message info.
8130: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8131: EXCEPTION
8132: WHEN fnd_api.g_exc_error THEN
8133: ROLLBACK TO PACK_PREPACK_CONTAINER;
8134: x_return_status := fnd_api.g_ret_sts_error;
8135: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8136: WHEN fnd_api.g_exc_unexpected_error THEN
8130: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8131: EXCEPTION
8132: WHEN fnd_api.g_exc_error THEN
8133: ROLLBACK TO PACK_PREPACK_CONTAINER;
8134: x_return_status := fnd_api.g_ret_sts_error;
8135: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8136: WHEN fnd_api.g_exc_unexpected_error THEN
8137: ROLLBACK TO PACK_PREPACK_CONTAINER;
8138: x_return_status := fnd_api.g_ret_sts_unexp_error;
8132: WHEN fnd_api.g_exc_error THEN
8133: ROLLBACK TO PACK_PREPACK_CONTAINER;
8134: x_return_status := fnd_api.g_ret_sts_error;
8135: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8136: WHEN fnd_api.g_exc_unexpected_error THEN
8137: ROLLBACK TO PACK_PREPACK_CONTAINER;
8138: x_return_status := fnd_api.g_ret_sts_unexp_error;
8139: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8140: WHEN OTHERS THEN
8134: x_return_status := fnd_api.g_ret_sts_error;
8135: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8136: WHEN fnd_api.g_exc_unexpected_error THEN
8137: ROLLBACK TO PACK_PREPACK_CONTAINER;
8138: x_return_status := fnd_api.g_ret_sts_unexp_error;
8139: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8140: WHEN OTHERS THEN
8141: ROLLBACK TO PACK_PREPACK_CONTAINER;
8142: x_return_status := fnd_api.g_ret_sts_unexp_error;
8138: x_return_status := fnd_api.g_ret_sts_unexp_error;
8139: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8140: WHEN OTHERS THEN
8141: ROLLBACK TO PACK_PREPACK_CONTAINER;
8142: x_return_status := fnd_api.g_ret_sts_unexp_error;
8143:
8144: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
8145: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
8146: END IF;
8152: -- ----------------------------------------------------------------------------------
8153:
8154: PROCEDURE Explode_LPN (
8155: p_api_version IN NUMBER
8156: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
8157: , p_commit IN VARCHAR2 := fnd_api.g_false
8158: , x_return_status OUT NOCOPY VARCHAR2
8159: , x_msg_count OUT NOCOPY NUMBER
8160: , x_msg_data OUT NOCOPY VARCHAR2
8153:
8154: PROCEDURE Explode_LPN (
8155: p_api_version IN NUMBER
8156: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
8157: , p_commit IN VARCHAR2 := fnd_api.g_false
8158: , x_return_status OUT NOCOPY VARCHAR2
8159: , x_msg_count OUT NOCOPY NUMBER
8160: , x_msg_data OUT NOCOPY VARCHAR2
8161: , p_lpn_id IN NUMBER
8215: mdebug('ver='||p_api_version||' initmsg='||p_init_msg_list||' commit='||p_commit||' lpn='||p_lpn_id||' explvl='||p_explosion_level, G_INFO);
8216: END IF;
8217:
8218: -- Standard call to check for call compatibility.
8219: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
8220: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
8221: fnd_msg_pub.ADD;
8222: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8223: END IF;
8218: -- Standard call to check for call compatibility.
8219: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
8220: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
8221: fnd_msg_pub.ADD;
8222: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8223: END IF;
8224:
8225: -- Initialize message list if p_init_msg_list is set to TRUE.
8226: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8222: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8223: END IF;
8224:
8225: -- Initialize message list if p_init_msg_list is set to TRUE.
8226: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8227: FND_MSG_PUB.initialize;
8228: END IF;
8229:
8230: -- Initialize API return status to success
8227: FND_MSG_PUB.initialize;
8228: END IF;
8229:
8230: -- Initialize API return status to success
8231: x_return_status := FND_API.G_RET_STS_SUCCESS;
8232:
8233: -- API body
8234: IF (p_explosion_level = 0) THEN
8235: /* Use the cursor that searches through all levels in the parent child relationship */
8389: mdebug(l_api_name || ' Exit x_content_tbl count=' ||x_content_tbl.last, G_INFO);
8390: END IF;
8391:
8392: -- Standard check of p_commit.
8393: IF FND_API.To_Boolean( p_commit ) THEN
8394: COMMIT WORK;
8395: END IF;
8396:
8397: -- Standard call to get message count and if count is 1,
8397: -- Standard call to get message count and if count is 1,
8398: -- get message info.
8399: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
8400: EXCEPTION
8401: WHEN FND_API.G_EXC_ERROR THEN
8402: ROLLBACK TO EXPLODE_LPN;
8403: x_return_status := FND_API.G_RET_STS_ERROR;
8404: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
8405:
8399: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
8400: EXCEPTION
8401: WHEN FND_API.G_EXC_ERROR THEN
8402: ROLLBACK TO EXPLODE_LPN;
8403: x_return_status := FND_API.G_RET_STS_ERROR;
8404: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
8405:
8406: IF (l_debug = 1) THEN
8407: mdebug(l_api_name ||' Exc err prog='||g_progress||' SQL err: '|| SQLERRM(SQLCODE), 1);
8409: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
8410: END LOOP;
8411: mdebug('msg: '||l_msgdata, 1);
8412: END IF;
8413: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8414: ROLLBACK TO EXPLODE_LPN;
8415: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8416: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
8417:
8411: mdebug('msg: '||l_msgdata, 1);
8412: END IF;
8413: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8414: ROLLBACK TO EXPLODE_LPN;
8415: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8416: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
8417:
8418: IF (l_debug = 1) THEN
8419: mdebug(l_api_name ||' Unexp err prog='||g_progress||' SQL err: '|| SQLERRM(SQLCODE), 1);
8423: mdebug('msg: '||l_msgdata, 1);
8424: END IF;
8425: WHEN OTHERS THEN
8426: ROLLBACK TO EXPLODE_LPN;
8427: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8428:
8429: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8430: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
8431: END IF;
8454: l_progress VARCHAR2(10) := '0';
8455:
8456: BEGIN
8457: /* Check that either an lpn id or license plate number was given */
8458: IF ((p_lpn.lpn_id IS NULL OR p_lpn.lpn_id = FND_API.G_MISS_NUM) AND
8459: (p_lpn.license_plate_number IS NULL OR
8460: p_lpn.license_plate_number = FND_API.G_MISS_CHAR)) THEN
8461: RETURN F;
8462: END IF;
8456: BEGIN
8457: /* Check that either an lpn id or license plate number was given */
8458: IF ((p_lpn.lpn_id IS NULL OR p_lpn.lpn_id = FND_API.G_MISS_NUM) AND
8459: (p_lpn.license_plate_number IS NULL OR
8460: p_lpn.license_plate_number = FND_API.G_MISS_CHAR)) THEN
8461: RETURN F;
8462: END IF;
8463:
8464: /* Search the table for an entry that matches the given input(s) */
8462: END IF;
8463:
8464: /* Search the table for an entry that matches the given input(s) */
8465: IF (p_lpn.license_plate_number IS NULL OR
8466: p_lpn.license_plate_number = FND_API.G_MISS_CHAR)
8467: THEN
8468: IF ( p_lock = 1 ) THEN
8469: SELECT *
8470: INTO p_lpn
8478: WHERE LPN_ID = p_lpn.lpn_id;
8479: END IF;
8480:
8481: RETURN T;
8482: ELSIF (p_lpn.lpn_id IS NULL OR p_lpn.lpn_id = FND_API.G_MISS_NUM) THEN
8483: IF ( p_lock = 1 ) THEN
8484: SELECT *
8485: INTO p_lpn
8486: FROM WMS_LICENSE_PLATE_NUMBERS
8697: -- ----------------------------------------------------------------------------------
8698:
8699: PROCEDURE Merge_Up_LPN (
8700: p_api_version IN NUMBER
8701: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
8702: , p_commit IN VARCHAR2 := fnd_api.g_false
8703: , x_return_status OUT NOCOPY VARCHAR2
8704: , x_msg_count OUT NOCOPY NUMBER
8705: , x_msg_data OUT NOCOPY VARCHAR2
8698:
8699: PROCEDURE Merge_Up_LPN (
8700: p_api_version IN NUMBER
8701: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
8702: , p_commit IN VARCHAR2 := fnd_api.g_false
8703: , x_return_status OUT NOCOPY VARCHAR2
8704: , x_msg_count OUT NOCOPY NUMBER
8705: , x_msg_data OUT NOCOPY VARCHAR2
8706: , p_organization_id IN NUMBER
8771: -- Standard Start of API savepoint
8772: SAVEPOINT MERGE_UP_LPN;
8773:
8774: -- Initialize message list if p_init_msg_list is set to TRUE.
8775: IF fnd_api.to_boolean(p_init_msg_list) THEN
8776: fnd_msg_pub.initialize;
8777: END IF;
8778:
8779: -- Initialize API return status to success
8776: fnd_msg_pub.initialize;
8777: END IF;
8778:
8779: -- Initialize API return status to success
8780: x_return_status := FND_API.G_RET_STS_SUCCESS;
8781:
8782: IF (l_debug = 1) THEN
8783: mdebug(l_api_name || ' Entered ' || g_pkg_version, 1);
8784: mdebug('orgid=' ||p_organization_id||' lpnid='||p_outermost_lpn_id, G_MESSAGE);
8815: IF ( l_return_status <> 0) THEN
8816: IF (l_debug = 1) THEN
8817: mdebug('Insert_Line_Trx failed :'||x_msg_data, 1);
8818: END IF;
8819: RAISE FND_API.G_EXC_ERROR;
8820: END IF;
8821:
8822: IF (l_debug = 1) THEN
8823: mdebug('Inserted unpack hdrid='||l_trx_hdr_id||' tempid='||l_trx_tmp_id||' lpn='||Nested_LPN_rec.lpn_id||' parlpn='|| Nested_LPN_rec.parent_lpn_id, 4);
8903: IF ( l_return_status <> 0 ) THEN
8904: IF (l_debug = 1) THEN
8905: mdebug('Insert_Lot_Trx failed :'||x_msg_data, 1);
8906: END IF;
8907: RAISE FND_API.G_EXC_ERROR;
8908: END IF;
8909:
8910: IF (l_debug = 1) THEN
8911: mdebug('Inserted lot tempid='||l_trx_tmp_id||' lot='||l_crnt_item_rec.lot_number||' qty='||l_crnt_item_rec.lot_quantity||' stmpid='||l_ser_tmp_id, 4);
8941: mdebug('Inv_Serial_Info failed', 1);
8942: END IF;
8943: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_SER');
8944: FND_MSG_PUB.ADD;
8945: RAISE FND_API.G_EXC_ERROR;
8946: END IF;
8947: -- calculate the length of the serial number suffix
8948: l_serial_suffix_length := LENGTH(l_fm_serial) - LENGTH(l_serial_prefix);
8949: l_serial_suffix := l_serial_suffix + 1;
8977: IF ( l_return_status <> 0 ) THEN
8978: IF (l_debug = 1) THEN
8979: mdebug('Insert_Ser_Trx failed :'||x_msg_data, 1);
8980: END IF;
8981: RAISE FND_API.G_EXC_ERROR;
8982: END IF;
8983: -- reset serial variables
8984: l_fm_serial:= l_crnt_ser_rec.serial_number;
8985: l_to_serial:= l_crnt_ser_rec.serial_number;
9091: l_return_status := INV_LPN_TRX_PUB.PROCESS_LPN_TRX (
9092: p_trx_hdr_id => l_trx_hdr_id
9093: , x_proc_msg => x_msg_data
9094: , p_proc_mode => 1
9095: , p_atomic => fnd_api.g_true );
9096: IF ( l_return_status <> 0 ) THEN
9097: IF (l_debug = 1) THEN
9098: mdebug('PROCESS_LPN_TRX Failed msg: '||x_msg_data, 1);
9099: END IF;
9096: IF ( l_return_status <> 0 ) THEN
9097: IF (l_debug = 1) THEN
9098: mdebug('PROCESS_LPN_TRX Failed msg: '||x_msg_data, 1);
9099: END IF;
9100: RAISE fnd_api.g_exc_error;
9101: END IF;
9102:
9103: INV_LABEL.PRINT_LABEL_MANUAL_WRAP(
9104: x_return_status => l_label_return
9112: mdebug('Called INV_LABEL.PRINT_LABEL, return_status='||l_label_return||' label stat='||l_label_status, 1);
9113: END IF;
9114:
9115: -- Standard check of p_commit.
9116: IF FND_API.To_Boolean( p_commit ) THEN
9117: COMMIT WORK;
9118: END IF;
9119:
9120: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
9127: END IF;
9128: END IF;
9129:
9130: ROLLBACK TO MERGE_UP_LPN;
9131: x_return_status := fnd_api.g_ret_sts_error;
9132: fnd_message.set_name('WMS', 'WMS_API_FAILURE');
9133: fnd_msg_pub.ADD;
9134: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9135: END Merge_Up_LPN;
9138: -- ----------------------------------------------------------------------------------
9139:
9140: PROCEDURE Break_Down_LPN(
9141: p_api_version IN NUMBER
9142: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
9143: , p_commit IN VARCHAR2 := fnd_api.g_false
9144: , x_return_status OUT NOCOPY VARCHAR2
9145: , x_msg_count OUT NOCOPY NUMBER
9146: , x_msg_data OUT NOCOPY VARCHAR2
9139:
9140: PROCEDURE Break_Down_LPN(
9141: p_api_version IN NUMBER
9142: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
9143: , p_commit IN VARCHAR2 := fnd_api.g_false
9144: , x_return_status OUT NOCOPY VARCHAR2
9145: , x_msg_count OUT NOCOPY NUMBER
9146: , x_msg_data OUT NOCOPY VARCHAR2
9147: , p_organization_id IN NUMBER
9171: -- Standard Start of API savepoint
9172: SAVEPOINT BREAK_DOWN_LPN;
9173:
9174: -- Standard call to check for call compatibility.
9175: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
9176: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
9177: fnd_msg_pub.ADD;
9178: RAISE fnd_api.g_exc_unexpected_error;
9179: END IF;
9174: -- Standard call to check for call compatibility.
9175: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
9176: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
9177: fnd_msg_pub.ADD;
9178: RAISE fnd_api.g_exc_unexpected_error;
9179: END IF;
9180:
9181: -- Initialize message list if p_init_msg_list is set to TRUE.
9182: IF fnd_api.to_boolean(p_init_msg_list) THEN
9178: RAISE fnd_api.g_exc_unexpected_error;
9179: END IF;
9180:
9181: -- Initialize message list if p_init_msg_list is set to TRUE.
9182: IF fnd_api.to_boolean(p_init_msg_list) THEN
9183: fnd_msg_pub.initialize;
9184: END IF;
9185:
9186: -- Initialize API return status to success
9183: fnd_msg_pub.initialize;
9184: END IF;
9185:
9186: -- Initialize API return status to success
9187: x_return_status := FND_API.G_RET_STS_SUCCESS;
9188:
9189: IF (l_debug = 1) THEN
9190: mdebug(l_api_name || ' Entered ' || g_pkg_version, 1);
9191: mdebug('orgid=' ||p_organization_id||' lpnid='||p_outermost_lpn_id, G_MESSAGE);
9231: l_return_status := INV_LPN_TRX_PUB.PROCESS_LPN_TRX (
9232: p_trx_hdr_id => l_trx_hdr_id
9233: , x_proc_msg => x_msg_data
9234: , p_proc_mode => 1
9235: , p_atomic => fnd_api.g_true );
9236: IF ( l_return_status <> 0 ) THEN
9237: IF (l_debug = 1) THEN
9238: mdebug('PROCESS_LPN_TRX Failed msg: '||x_msg_data, 1);
9239: END IF;
9236: IF ( l_return_status <> 0 ) THEN
9237: IF (l_debug = 1) THEN
9238: mdebug('PROCESS_LPN_TRX Failed msg: '||x_msg_data, 1);
9239: END IF;
9240: RAISE fnd_api.g_exc_error;
9241: END IF;
9242:
9243: -- Add entry for this lpn to print label for outermost lpn
9244: l_input_param_rec_tbl(l_label_count).lpn_id := p_outermost_lpn_id;
9257: mdebug('Called INV_LABEL.PRINT_LABEL, return_status='||l_label_return||' label stat='||l_label_status, 1);
9258: END IF;
9259:
9260: -- Standard check of p_commit.
9261: IF FND_API.To_Boolean( p_commit ) THEN
9262: COMMIT WORK;
9263: END IF;
9264:
9265: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
9272: END IF;
9273: END IF;
9274:
9275: ROLLBACK TO BREAK_DOWN_LPN;
9276: x_return_status := fnd_api.g_ret_sts_error;
9277: fnd_message.set_name('WMS', 'WMS_API_FAILURE');
9278: fnd_msg_pub.ADD;
9279: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9280: END Break_Down_LPN;
9283: -- ----------------------------------------------------------------------------------
9284:
9285: PROCEDURE Initialize_LPN (
9286: p_api_version IN NUMBER
9287: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
9288: , p_commit IN VARCHAR2 := fnd_api.g_false
9289: , x_return_status OUT NOCOPY VARCHAR2
9290: , x_msg_count OUT NOCOPY NUMBER
9291: , x_msg_data OUT NOCOPY VARCHAR2
9284:
9285: PROCEDURE Initialize_LPN (
9286: p_api_version IN NUMBER
9287: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
9288: , p_commit IN VARCHAR2 := fnd_api.g_false
9289: , x_return_status OUT NOCOPY VARCHAR2
9290: , x_msg_count OUT NOCOPY NUMBER
9291: , x_msg_data OUT NOCOPY VARCHAR2
9292: , p_organization_id IN NUMBER
9307: -- Standard Start of API savepoint
9308: SAVEPOINT INITIALIZE_LPN;
9309:
9310: -- Standard call to check for call compatibility.
9311: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
9312: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
9313: fnd_msg_pub.ADD;
9314: RAISE fnd_api.g_exc_unexpected_error;
9315: END IF;
9310: -- Standard call to check for call compatibility.
9311: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
9312: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
9313: fnd_msg_pub.ADD;
9314: RAISE fnd_api.g_exc_unexpected_error;
9315: END IF;
9316:
9317: -- Initialize message list if p_init_msg_list is set to TRUE.
9318: IF fnd_api.to_boolean(p_init_msg_list) THEN
9314: RAISE fnd_api.g_exc_unexpected_error;
9315: END IF;
9316:
9317: -- Initialize message list if p_init_msg_list is set to TRUE.
9318: IF fnd_api.to_boolean(p_init_msg_list) THEN
9319: fnd_msg_pub.initialize;
9320: END IF;
9321:
9322: -- Initialize API return status to success
9319: fnd_msg_pub.initialize;
9320: END IF;
9321:
9322: -- Initialize API return status to success
9323: x_return_status := FND_API.G_RET_STS_SUCCESS;
9324:
9325: IF (l_debug = 1) THEN
9326: mdebug(l_api_name || ' Entered ' || g_pkg_version, 1);
9327: mdebug('orgid=' ||p_organization_id||' lpnid='||p_outermost_lpn_id, G_MESSAGE);
9352: WHERE rowid = lpn_rec.rowid;
9353: END LOOP;
9354:
9355: -- Standard check of p_commit.
9356: IF FND_API.To_Boolean( p_commit ) THEN
9357: COMMIT WORK;
9358: END IF;
9359:
9360: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
9367: END IF;
9368: END IF;
9369:
9370: ROLLBACK TO INITIALIZE_LPN;
9371: x_return_status := fnd_api.g_ret_sts_error;
9372: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9373: END Initialize_LPN;
9374:
9375: -- ----------------------------------------------------------------------------------
9412: l_delivery_id_tab(1) := l_delivery_id;
9413:
9414: wsh_interface_ext_grp.delivery_action
9415: (p_api_version_number => 1.0,
9416: p_init_msg_list => fnd_api.g_false,
9417: p_commit => fnd_api.g_false,
9418: p_action_prms => l_action_prms,
9419: p_delivery_id_tab => l_delivery_id_tab,
9420: x_delivery_out_rec => l_delivery_out_rec,
9413:
9414: wsh_interface_ext_grp.delivery_action
9415: (p_api_version_number => 1.0,
9416: p_init_msg_list => fnd_api.g_false,
9417: p_commit => fnd_api.g_false,
9418: p_action_prms => l_action_prms,
9419: p_delivery_id_tab => l_delivery_id_tab,
9420: x_delivery_out_rec => l_delivery_out_rec,
9421: x_return_status => l_return_status,
9422: x_msg_count => l_msg_count,
9423: x_msg_data => l_msg_data);
9424:
9425: IF x_return_status = 'E' THEN
9426: RAISE fnd_api.g_exc_error;
9427: ELSIF x_return_status = 'U' THEN
9428: RAISE fnd_api.g_exc_unexpected_error;
9429: END IF;
9430: END IF;
9424:
9425: IF x_return_status = 'E' THEN
9426: RAISE fnd_api.g_exc_error;
9427: ELSIF x_return_status = 'U' THEN
9428: RAISE fnd_api.g_exc_unexpected_error;
9429: END IF;
9430: END IF;
9431:
9432: x_return_status := 'S';
9431:
9432: x_return_status := 'S';
9433:
9434: EXCEPTION
9435: WHEN fnd_api.g_exc_error THEN
9436: x_return_status := 'E';
9437: mdebug('Plan Delivery: Error: E', 1);
9438: WHEN fnd_api.g_exc_unexpected_error THEN
9439: x_return_status := 'U';
9434: EXCEPTION
9435: WHEN fnd_api.g_exc_error THEN
9436: x_return_status := 'E';
9437: mdebug('Plan Delivery: Error: E', 1);
9438: WHEN fnd_api.g_exc_unexpected_error THEN
9439: x_return_status := 'U';
9440: mdebug('Plan Delivery: Error: U', 1);
9441: WHEN OTHERS THEN
9442: x_return_status := 'U';