[Home] [Help]
100: ELSIF ( p_mode = G_NO_CONV_RETURN_ZERO ) THEN
101: RETURN 0;
102: ELSE -- Normal converstion error
103: fnd_msg_pub.ADD;
104: RAISE fnd_api.g_exc_error;
105: END IF;
106: END IF;
107: END IF; -- IF cache exists
108: END IF; -- IF p_fm_uom = p_to_uom
236: AND lookup_code = p_new_context;
237: fnd_message.set_token('CONTEXT2', l_lookup_meaning);
238:
239: fnd_msg_pub.ADD;
240: RAISE fnd_api.g_exc_error;
241: RETURN FALSE;
242: END Valid_Context_Change;
243:
244: -- ----------------------------------------------------------------------------------
537: BEGIN
538: -- Standard Start of API savepoint
539: SAVEPOINT WMS_Update_Locator_Capacity;
540:
541: x_return_status := fnd_api.g_ret_sts_success ; --set to Success by default.
542:
543: IF (l_debug = 1) THEN
544: mdebug(l_api_name|| ' Entered ' ||g_pkg_version, 1);
545: 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);
619: END IF;
620: END IF;
621:
622: ROLLBACK TO WMS_Update_Locator_Capacity;
623: x_return_status := fnd_api.g_ret_sts_unexp_error;
624: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
625: END Update_Locator_Capacity;
626:
627:
741: -- Standard Start of API savepoint
742: SAVEPOINT CREATE_LPNS_PVT;
743:
744: -- Standard call to check for call compatibility.
745: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
746: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
747: fnd_msg_pub.ADD;
748: RAISE fnd_api.g_exc_unexpected_error;
749: END IF;
744: -- Standard call to check for call compatibility.
745: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
746: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
747: fnd_msg_pub.ADD;
748: RAISE fnd_api.g_exc_unexpected_error;
749: END IF;
750:
751: -- Initialize message list if p_init_msg_list is set to TRUE.
752: IF fnd_api.to_boolean(p_init_msg_list) THEN
748: RAISE fnd_api.g_exc_unexpected_error;
749: END IF;
750:
751: -- Initialize message list if p_init_msg_list is set to TRUE.
752: IF fnd_api.to_boolean(p_init_msg_list) THEN
753: fnd_msg_pub.initialize;
754: END IF;
755:
756: -- Initialize API return status to success
753: fnd_msg_pub.initialize;
754: END IF;
755:
756: -- Initialize API return status to success
757: x_return_status := fnd_api.g_ret_sts_success;
758:
759: -- API body
760: IF (l_debug = 1) THEN
761: mdebug(l_api_name || ' Entered ' || g_pkg_version, 1);
787: -- Organization is required. Make sure that it is populated
788: IF ( p_lpn_table(i).organization_id IS NULL ) THEN
789: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ORG');
790: fnd_msg_pub.ADD;
791: RAISE fnd_api.g_exc_error;
792: END IF;
793:
794: IF ( p_lpn_table(i).inventory_item_id IS NOT NULL) THEN
795: l_progress := 'Calling INV_CACHE.Set_Item_Rec to get item values';
809: END IF;
810: fnd_message.set_name('WMS', 'WMS_ITEM_NOT_CONTAINER');
811: fnd_message.set_token('ITEM', inv_cache.item_rec.segment1);
812: fnd_msg_pub.ADD;
813: RAISE fnd_api.g_exc_error;
814: END IF;
815:
816: p_lpn_table(i).tare_weight_uom_code := inv_cache.item_rec.weight_uom_code;
817: p_lpn_table(i).tare_weight := inv_cache.item_rec.unit_weight;
820: ELSE
821: 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;
822: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
823: fnd_msg_pub.ADD;
824: RAISE fnd_api.g_exc_error;
825: END IF;
826: END IF;
827:
828: -- LPN Context cannot be null
842: mdebug(' LPN name parameter consists of only spaces cannot create', G_ERROR);
843: END IF;
844: fnd_message.set_name('WMS', 'WMS_LPN_INAPPROPRIATE_SPACES');
845: fnd_msg_pub.ADD;
846: RAISE FND_API.G_EXC_ERROR;
847: END IF;
848:
849: SELECT wms_license_plate_numbers_s1.NEXTVAL
850: INTO p_lpn_table(i).lpn_id
995: END IF;
996: fnd_message.set_name('WMS', 'WMS_CONT_DUPLICATE_LPN');
997: fnd_message.set_token('LPN', l_lpn_bulk_rec.license_plate_number(k));
998: fnd_msg_pub.ADD;
999: RAISE fnd_api.g_exc_error;
1000: EXCEPTION
1001: WHEN NO_DATA_FOUND THEN
1002: NULL;
1003: END;
1006:
1007: l_progress := 'Could not find reason for LPN insert failure. Give generic failure msg';
1008: fnd_message.set_name('WMS', 'WMS_LPN_NOTGEN');
1009: fnd_msg_pub.ADD;
1010: RAISE fnd_api.g_exc_error;
1011: END;
1012:
1013: l_progress := 'Create LPN call to label printing';
1014:
1022: , p_print_mode => 2
1023: , p_business_flow_code => 16
1024: , p_input_param_rec => l_input_param_tbl );
1025:
1026: IF ( l_return_status <> fnd_api.g_ret_sts_success ) THEN
1027: IF (l_debug = 1) THEN
1028: mdebug('failed to print labels in create_lpns', G_ERROR);
1029: END IF;
1030: fnd_message.set_name('WMS', 'WMS_PRINT_LABEL_FAIL');
1049: l_IN_rec.action_code := 'CREATE';
1050:
1051: WSH_WMS_LPN_GRP.Create_Update_Containers (
1052: p_api_version => 1.0
1053: , p_init_msg_list => fnd_api.g_false
1054: , p_commit => fnd_api.g_false
1055: , x_return_status => x_return_status
1056: , x_msg_count => x_msg_count
1057: , x_msg_data => x_msg_data
1050:
1051: WSH_WMS_LPN_GRP.Create_Update_Containers (
1052: p_api_version => 1.0
1053: , p_init_msg_list => fnd_api.g_false
1054: , p_commit => fnd_api.g_false
1055: , x_return_status => x_return_status
1056: , x_msg_count => x_msg_count
1057: , x_msg_data => x_msg_data
1058: , p_detail_info_tab => l_detail_info_tab
1058: , p_detail_info_tab => l_detail_info_tab
1059: , p_IN_rec => l_IN_rec
1060: , x_OUT_rec => l_OUT_rec );
1061:
1062: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
1063: IF (l_debug = 1) THEN
1064: mdebug('Create_Update_Containers Failed', G_ERROR);
1065: END IF;
1066: RAISE fnd_api.g_exc_error;
1062: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
1063: IF (l_debug = 1) THEN
1064: mdebug('Create_Update_Containers Failed', G_ERROR);
1065: END IF;
1066: RAISE fnd_api.g_exc_error;
1067: ELSIF ( l_debug = 1 ) THEN
1068: mdebug('Done with Create_Update_Containers', G_INFO);
1069: END IF;
1070: END IF;
1071:
1072: l_progress := 'End of API body';
1073:
1074: -- Standard check of p_commit.
1075: IF fnd_api.to_boolean(p_commit) THEN
1076: COMMIT WORK;
1077: END IF;
1078:
1079: -- Standard call to get message count and data
1078:
1079: -- Standard call to get message count and data
1080: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1081: EXCEPTION
1082: WHEN FND_API.G_EXC_ERROR THEN
1083: x_return_status := fnd_api.g_ret_sts_error;
1084: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1085: IF (l_debug = 1) THEN
1086: FOR i in 1..x_msg_count LOOP
1079: -- Standard call to get message count and data
1080: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1081: EXCEPTION
1082: WHEN FND_API.G_EXC_ERROR THEN
1083: x_return_status := fnd_api.g_ret_sts_error;
1084: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1085: IF (l_debug = 1) THEN
1086: FOR i in 1..x_msg_count LOOP
1087: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
1095: FOR i IN p_lpn_table.first .. p_lpn_table.last LOOP
1096: p_lpn_table(i).lpn_id := NULL;
1097: END LOOP;
1098: WHEN OTHERS THEN
1099: x_return_status := fnd_api.g_ret_sts_unexp_error;
1100: fnd_message.set_name('WMS', 'WMS_LPN_NOTGEN');
1101: fnd_msg_pub.ADD;
1102: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1103: IF (l_debug = 1) THEN
1171: -- Standard Start of API savepoint
1172: SAVEPOINT AUTO_CREATE_LPNS_PVT;
1173:
1174: -- Standard call to check for call compatibility.
1175: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1176: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
1177: fnd_msg_pub.ADD;
1178: RAISE fnd_api.g_exc_unexpected_error;
1179: END IF;
1174: -- Standard call to check for call compatibility.
1175: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1176: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
1177: fnd_msg_pub.ADD;
1178: RAISE fnd_api.g_exc_unexpected_error;
1179: END IF;
1180:
1181: -- Initialize message list if p_init_msg_list is set to TRUE.
1182: IF fnd_api.to_boolean(p_init_msg_list) THEN
1178: RAISE fnd_api.g_exc_unexpected_error;
1179: END IF;
1180:
1181: -- Initialize message list if p_init_msg_list is set to TRUE.
1182: IF fnd_api.to_boolean(p_init_msg_list) THEN
1183: fnd_msg_pub.initialize;
1184: END IF;
1185:
1186: -- Initialize API return status to success
1183: fnd_msg_pub.initialize;
1184: END IF;
1185:
1186: -- Initialize API return status to success
1187: x_return_status := fnd_api.g_ret_sts_success;
1188:
1189: -- API body
1190: IF (l_debug = 1) THEN
1191: mdebug(l_api_name || ' Entered ' || g_pkg_version, 1);
1198: l_progress := 'Validate quantity';
1199: IF ( NVL(p_quantity, -1) < 0 ) THEN
1200: fnd_message.set_name('WMS', 'WMS_INVALID_QTY');
1201: fnd_msg_pub.ADD;
1202: RAISE fnd_api.g_exc_error;
1203: END IF;
1204:
1205: l_progress := 'Validate Organization ID';
1206:
1209: mdebug(p_lpn_attributes.organization_id||' is an invalid organization id', G_ERROR);
1210: END IF;
1211: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ORG');
1212: fnd_msg_pub.ADD;
1213: RAISE fnd_api.g_exc_error;
1214: END IF;
1215:
1216: IF (l_debug = 1) THEN
1217: mdebug('Got org info pfx='||inv_cache.org_rec.lpn_prefix||' sfx='||inv_cache.org_rec.lpn_suffix||' seq='||inv_cache.org_rec.lpn_starting_number||' lgth='||inv_cache.org_rec.total_lpn_length||' ucc='||inv_cache.org_rec.ucc_128_suffix_flag, 5);
1234: END IF;
1235: fnd_message.set_name('WMS', 'WMS_ITEM_NOT_CONTAINER');
1236: fnd_message.set_token('ITEM', inv_cache.item_rec.segment1);
1237: fnd_msg_pub.ADD;
1238: RAISE fnd_api.g_exc_error;
1239: END IF;
1240: ELSE
1241: l_progress := 'Error calling INV_CACHE.Set_Item_Rec for orgid'||p_lpn_attributes.organization_id||' item id='||p_lpn_attributes.inventory_item_id;
1242: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
1240: ELSE
1241: l_progress := 'Error calling INV_CACHE.Set_Item_Rec for orgid'||p_lpn_attributes.organization_id||' item id='||p_lpn_attributes.inventory_item_id;
1242: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
1243: fnd_msg_pub.ADD;
1244: RAISE fnd_api.g_exc_error;
1245: END IF;
1246: END IF;
1247:
1248: l_progress := 'Determine the source for LPN seq starting number';
1253: mdebug(p_starting_number || ' is an invalid start num', G_ERROR);
1254: END IF;
1255: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_START_NUM');
1256: fnd_msg_pub.ADD;
1257: RAISE fnd_api.g_exc_error;
1258: END IF;
1259:
1260: l_seq_source := l_from_user;
1261: l_curr_seq := p_starting_number;
1274: IF ( l_ucc_128_suffix_flag IS NULL ) THEN
1275: l_ucc_128_suffix_flag := inv_cache.org_rec.ucc_128_suffix_flag;
1276: END IF;
1277:
1278: IF ( l_lpn_prefix = FND_API.G_MISS_CHAR ) THEN
1279: l_lpn_prefix := NULL;
1280: ELSE
1281: l_lpn_prefix := NVL(l_lpn_prefix, inv_cache.org_rec.lpn_prefix);
1282: END IF;
1280: ELSE
1281: l_lpn_prefix := NVL(l_lpn_prefix, inv_cache.org_rec.lpn_prefix);
1282: END IF;
1283:
1284: IF ( l_lpn_suffix = FND_API.G_MISS_CHAR ) THEN
1285: l_lpn_suffix := NULL;
1286: ELSE
1287: l_lpn_suffix := NVL(l_lpn_suffix, inv_cache.org_rec.lpn_suffix );
1288: END IF;
1286: ELSE
1287: l_lpn_suffix := NVL(l_lpn_suffix, inv_cache.org_rec.lpn_suffix );
1288: END IF;
1289:
1290: IF ( l_total_lpn_length = FND_API.G_MISS_NUM ) THEN
1291: l_total_lpn_length := NULL;
1292: ELSE
1293: l_total_lpn_length := NVL(l_total_lpn_length, inv_cache.org_rec.total_lpn_length);
1294: END IF;
1303: END IF;
1304: fnd_message.set_name('INV', 'INV_INTEGER_GREATER_THAN_0');
1305: fnd_message.set_token('ENTITY1','INV_LPN_PREFIX');
1306: fnd_msg_pub.ADD;
1307: RAISE fnd_api.g_exc_error;
1308: END;
1309: END IF;
1310:
1311: IF ( l_total_lpn_length IS NOT NULL ) THEN
1323: mdebug('total length '||l_total_lpn_length||' less than sum length of prefix '||l_lpn_prefix||' and suffix '||l_lpn_suffix, G_ERROR);
1324: END IF;
1325: fnd_message.set_name('WMS', 'WMS_LPN_TOTAL_LENGTH_INVALID');
1326: fnd_msg_pub.ADD;
1327: RAISE fnd_api.g_exc_error;
1328: END IF;
1329: ELSE
1330: l_lpn_seq_length := 0;
1331: END IF;
1339: mdebug('Item '||inv_cache.item_rec.inventory_item_id||' is not serial controlled', G_ERROR);
1340: END IF;
1341: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SER');
1342: fnd_msg_pub.ADD;
1343: RAISE fnd_api.g_exc_error;
1344: END IF;
1345:
1346: -- For now only support a single range of serial numbers
1347: l_serial_rec.fm_serial_number := p_serial_ranges(1).fm_serial_number;
1363: mdebug(l_serial_rec.to_serial_number||' failed INV_Serial_Info x_errorcode='||l_dummy_number, G_ERROR);
1364: END IF;
1365: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SER');
1366: fnd_msg_pub.ADD;
1367: RAISE fnd_api.g_exc_error;
1368: END IF;
1369:
1370: -- Quantity of LPNs will be determined by serial range
1371: l_quantity := l_serial_rec.quantity;
1441: mdebug('LPN name '||l_lpn_tab(l_lpn_cnt).license_plate_number||' exceeds total length '||l_total_lpn_length, G_ERROR);
1442: END IF;
1443: fnd_message.set_name('WMS', 'WMS_LPN_TOTAL_LENGTH_INVALID');
1444: fnd_msg_pub.ADD;
1445: RAISE fnd_api.g_exc_error;
1446: END IF;
1447:
1448: l_progress := 'Insert the newly created lpn id/license plate number record into the table';
1449:
1493: END IF;
1494: fnd_message.set_name('WMS', 'WMS_CONT_DUPLICATE_LPN');
1495: fnd_message.set_token('LPN', l_lpn_tab(l_lpn_cnt).license_plate_number);
1496: fnd_msg_pub.ADD;
1497: RAISE fnd_api.g_exc_error;
1498: ELSIF ( l_loop_cnt > l_quantity + 1000 ) THEN
1499: IF ( l_debug = 1 ) THEN
1500: mdebug('Cannot find valid LPN sequence after 1000 Attempts', G_ERROR);
1501: END IF;
1501: END IF;
1502: fnd_message.set_name('WMS', 'WMS_GEN_LPN_LOOP_ERR');
1503: fnd_message.set_token('NUM', '1000');
1504: fnd_msg_pub.ADD;
1505: RAISE fnd_api.g_exc_error;
1506: ELSIF ( l_debug = 1 ) THEN
1507: mdebug('LPN '||l_lpn_tab(l_lpn_cnt).license_plate_number||' already exists trying new sequence', G_INFO);
1508: END IF;
1509: END IF;
1518: l_progress := 'Call Create_LPNs number of rec='||l_lpn_tab.last;
1519:
1520: Create_LPNs (
1521: p_api_version => p_api_version
1522: , p_init_msg_list => fnd_api.g_false
1523: , p_commit => fnd_api.g_false
1524: , x_return_status => x_return_status
1525: , x_msg_count => x_msg_count
1526: , x_msg_data => x_msg_data
1519:
1520: Create_LPNs (
1521: p_api_version => p_api_version
1522: , p_init_msg_list => fnd_api.g_false
1523: , p_commit => fnd_api.g_false
1524: , x_return_status => x_return_status
1525: , x_msg_count => x_msg_count
1526: , x_msg_data => x_msg_data
1527: , p_caller => p_caller
1526: , x_msg_data => x_msg_data
1527: , p_caller => p_caller
1528: , p_lpn_table => l_lpn_tab );
1529:
1530: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
1531: IF (l_debug = 1) THEN
1532: mdebug('Create_LPNs failed', G_ERROR);
1533: END IF;
1534: RAISE fnd_api.g_exc_error;
1530: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
1531: IF (l_debug = 1) THEN
1532: mdebug('Create_LPNs failed', G_ERROR);
1533: END IF;
1534: RAISE fnd_api.g_exc_error;
1535: END IF;
1536:
1537: x_created_lpns := l_lpn_tab;
1538:
1536:
1537: x_created_lpns := l_lpn_tab;
1538:
1539: -- Standard check of p_commit.
1540: IF fnd_api.to_boolean(p_commit) THEN
1541: COMMIT WORK;
1542: END IF;
1543:
1544: -- Standard call to get message count and data
1543:
1544: -- Standard call to get message count and data
1545: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1546: EXCEPTION
1547: WHEN FND_API.G_EXC_ERROR THEN
1548: x_return_status := fnd_api.g_ret_sts_error;
1549: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1550: IF (l_debug = 1) THEN
1551: FOR i in 1..x_msg_count LOOP
1544: -- Standard call to get message count and data
1545: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1546: EXCEPTION
1547: WHEN FND_API.G_EXC_ERROR THEN
1548: x_return_status := fnd_api.g_ret_sts_error;
1549: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1550: IF (l_debug = 1) THEN
1551: FOR i in 1..x_msg_count LOOP
1552: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
1555: mdebug('msg: '||l_msgdata, G_ERROR);
1556: END IF;
1557: ROLLBACK TO AUTO_CREATE_LPNS_PVT;
1558: WHEN OTHERS THEN
1559: x_return_status := fnd_api.g_ret_sts_unexp_error;
1560: fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
1561: fnd_msg_pub.ADD;
1562: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1563: IF (l_debug = 1) THEN
1770: -- Standard Start of API savepoint
1771: SAVEPOINT MODIFY_LPNS_PVT;
1772:
1773: -- Standard call to check for call compatibility.
1774: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1775: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
1776: fnd_msg_pub.ADD;
1777: RAISE fnd_api.g_exc_unexpected_error;
1778: END IF;
1773: -- Standard call to check for call compatibility.
1774: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1775: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
1776: fnd_msg_pub.ADD;
1777: RAISE fnd_api.g_exc_unexpected_error;
1778: END IF;
1779:
1780: -- Initialize message list if p_init_msg_list is set to TRUE.
1781: IF fnd_api.to_boolean(p_init_msg_list) THEN
1777: RAISE fnd_api.g_exc_unexpected_error;
1778: END IF;
1779:
1780: -- Initialize message list if p_init_msg_list is set to TRUE.
1781: IF fnd_api.to_boolean(p_init_msg_list) THEN
1782: fnd_msg_pub.initialize;
1783: END IF;
1784:
1785: -- Initialize API return status to success
1782: fnd_msg_pub.initialize;
1783: END IF;
1784:
1785: -- Initialize API return status to success
1786: x_return_status := fnd_api.g_ret_sts_success;
1787:
1788: -- API body
1789: IF (l_debug = 1) THEN
1790: mdebug(l_api_name || ' Entered ' || g_pkg_version, 1);
1865: l_progress := 'Updating outermost_lpn_id is restricted to PackUnpack_Container API';
1866: fnd_message.set_name('WMS', 'WMS_UPDATE_LPN_ATTR_ERR');
1867: fnd_message.set_token('ATTR', 'outermost_lpn_id');
1868: fnd_msg_pub.ADD;
1869: RAISE fnd_api.g_exc_error;
1870: END IF;
1871: END IF;
1872:
1873: l_progress := 'Done with general validation';
1984: EXCEPTION
1985: WHEN NO_DATA_FOUND THEN
1986: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
1987: fnd_msg_pub.ADD;
1988: RAISE fnd_api.g_exc_error;
1989: END;
1990:
1991: l_progress := 'Done getting LPN attributes, Add LPN to hash table';
1992: END IF;
2009: l_progress := 'Start of section to massage data';
2010:
2011: -- List of attributes that pertain to the LPN itself and not to the
2012: -- entire hierarchy
2013: IF ( p_lpn_table(lpn_tbl_cnt).license_plate_number <> NVL(l_old.license_plate_number, FND_API.G_MISS_CHAR) OR
2014: p_lpn_table(lpn_tbl_cnt).parent_lpn_id <> NVL(l_old.parent_lpn_id, FND_API.G_MISS_NUM) OR
2015: 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
2016: p_lpn_table(lpn_tbl_cnt).revision <> NVL(l_old.revision, FND_API.G_MISS_CHAR) OR
2017: p_lpn_table(lpn_tbl_cnt).lot_number <> NVL(l_old.lot_number, FND_API.G_MISS_CHAR) OR
2010:
2011: -- List of attributes that pertain to the LPN itself and not to the
2012: -- entire hierarchy
2013: IF ( p_lpn_table(lpn_tbl_cnt).license_plate_number <> NVL(l_old.license_plate_number, FND_API.G_MISS_CHAR) OR
2014: p_lpn_table(lpn_tbl_cnt).parent_lpn_id <> NVL(l_old.parent_lpn_id, FND_API.G_MISS_NUM) OR
2015: 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
2016: p_lpn_table(lpn_tbl_cnt).revision <> NVL(l_old.revision, FND_API.G_MISS_CHAR) OR
2017: p_lpn_table(lpn_tbl_cnt).lot_number <> NVL(l_old.lot_number, FND_API.G_MISS_CHAR) OR
2018: p_lpn_table(lpn_tbl_cnt).serial_number <> NVL(l_old.serial_number, FND_API.G_MISS_CHAR) OR
2011: -- List of attributes that pertain to the LPN itself and not to the
2012: -- entire hierarchy
2013: IF ( p_lpn_table(lpn_tbl_cnt).license_plate_number <> NVL(l_old.license_plate_number, FND_API.G_MISS_CHAR) OR
2014: p_lpn_table(lpn_tbl_cnt).parent_lpn_id <> NVL(l_old.parent_lpn_id, FND_API.G_MISS_NUM) OR
2015: 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
2016: p_lpn_table(lpn_tbl_cnt).revision <> NVL(l_old.revision, FND_API.G_MISS_CHAR) OR
2017: p_lpn_table(lpn_tbl_cnt).lot_number <> NVL(l_old.lot_number, FND_API.G_MISS_CHAR) OR
2018: p_lpn_table(lpn_tbl_cnt).serial_number <> NVL(l_old.serial_number, FND_API.G_MISS_CHAR) OR
2019: p_lpn_table(lpn_tbl_cnt).cost_group_id <> NVL(l_old.cost_group_id, FND_API.G_MISS_NUM) OR
2012: -- entire hierarchy
2013: IF ( p_lpn_table(lpn_tbl_cnt).license_plate_number <> NVL(l_old.license_plate_number, FND_API.G_MISS_CHAR) OR
2014: p_lpn_table(lpn_tbl_cnt).parent_lpn_id <> NVL(l_old.parent_lpn_id, FND_API.G_MISS_NUM) OR
2015: 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
2016: p_lpn_table(lpn_tbl_cnt).revision <> NVL(l_old.revision, FND_API.G_MISS_CHAR) OR
2017: p_lpn_table(lpn_tbl_cnt).lot_number <> NVL(l_old.lot_number, FND_API.G_MISS_CHAR) OR
2018: p_lpn_table(lpn_tbl_cnt).serial_number <> NVL(l_old.serial_number, FND_API.G_MISS_CHAR) OR
2019: p_lpn_table(lpn_tbl_cnt).cost_group_id <> NVL(l_old.cost_group_id, FND_API.G_MISS_NUM) OR
2020: p_lpn_table(lpn_tbl_cnt).tare_weight_uom_code <> NVL(l_old.tare_weight_uom_code, FND_API.G_MISS_CHAR) OR
2013: IF ( p_lpn_table(lpn_tbl_cnt).license_plate_number <> NVL(l_old.license_plate_number, FND_API.G_MISS_CHAR) OR
2014: p_lpn_table(lpn_tbl_cnt).parent_lpn_id <> NVL(l_old.parent_lpn_id, FND_API.G_MISS_NUM) OR
2015: 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
2016: p_lpn_table(lpn_tbl_cnt).revision <> NVL(l_old.revision, FND_API.G_MISS_CHAR) OR
2017: p_lpn_table(lpn_tbl_cnt).lot_number <> NVL(l_old.lot_number, FND_API.G_MISS_CHAR) OR
2018: p_lpn_table(lpn_tbl_cnt).serial_number <> NVL(l_old.serial_number, FND_API.G_MISS_CHAR) OR
2019: p_lpn_table(lpn_tbl_cnt).cost_group_id <> NVL(l_old.cost_group_id, FND_API.G_MISS_NUM) OR
2020: p_lpn_table(lpn_tbl_cnt).tare_weight_uom_code <> NVL(l_old.tare_weight_uom_code, FND_API.G_MISS_CHAR) OR
2021: p_lpn_table(lpn_tbl_cnt).tare_weight <> NVL(l_old.tare_weight, FND_API.G_MISS_NUM) OR
2014: p_lpn_table(lpn_tbl_cnt).parent_lpn_id <> NVL(l_old.parent_lpn_id, FND_API.G_MISS_NUM) OR
2015: 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
2016: p_lpn_table(lpn_tbl_cnt).revision <> NVL(l_old.revision, FND_API.G_MISS_CHAR) OR
2017: p_lpn_table(lpn_tbl_cnt).lot_number <> NVL(l_old.lot_number, FND_API.G_MISS_CHAR) OR
2018: p_lpn_table(lpn_tbl_cnt).serial_number <> NVL(l_old.serial_number, FND_API.G_MISS_CHAR) OR
2019: p_lpn_table(lpn_tbl_cnt).cost_group_id <> NVL(l_old.cost_group_id, FND_API.G_MISS_NUM) OR
2020: p_lpn_table(lpn_tbl_cnt).tare_weight_uom_code <> NVL(l_old.tare_weight_uom_code, FND_API.G_MISS_CHAR) OR
2021: p_lpn_table(lpn_tbl_cnt).tare_weight <> NVL(l_old.tare_weight, FND_API.G_MISS_NUM) OR
2022: p_lpn_table(lpn_tbl_cnt).gross_weight_uom_code <> NVL(l_old.gross_weight_uom_code, FND_API.G_MISS_CHAR) OR
2015: 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
2016: p_lpn_table(lpn_tbl_cnt).revision <> NVL(l_old.revision, FND_API.G_MISS_CHAR) OR
2017: p_lpn_table(lpn_tbl_cnt).lot_number <> NVL(l_old.lot_number, FND_API.G_MISS_CHAR) OR
2018: p_lpn_table(lpn_tbl_cnt).serial_number <> NVL(l_old.serial_number, FND_API.G_MISS_CHAR) OR
2019: p_lpn_table(lpn_tbl_cnt).cost_group_id <> NVL(l_old.cost_group_id, FND_API.G_MISS_NUM) OR
2020: p_lpn_table(lpn_tbl_cnt).tare_weight_uom_code <> NVL(l_old.tare_weight_uom_code, FND_API.G_MISS_CHAR) OR
2021: p_lpn_table(lpn_tbl_cnt).tare_weight <> NVL(l_old.tare_weight, FND_API.G_MISS_NUM) OR
2022: p_lpn_table(lpn_tbl_cnt).gross_weight_uom_code <> NVL(l_old.gross_weight_uom_code, FND_API.G_MISS_CHAR) OR
2023: p_lpn_table(lpn_tbl_cnt).gross_weight <> NVL(l_old.gross_weight, FND_API.G_MISS_NUM) OR
2016: p_lpn_table(lpn_tbl_cnt).revision <> NVL(l_old.revision, FND_API.G_MISS_CHAR) OR
2017: p_lpn_table(lpn_tbl_cnt).lot_number <> NVL(l_old.lot_number, FND_API.G_MISS_CHAR) OR
2018: p_lpn_table(lpn_tbl_cnt).serial_number <> NVL(l_old.serial_number, FND_API.G_MISS_CHAR) OR
2019: p_lpn_table(lpn_tbl_cnt).cost_group_id <> NVL(l_old.cost_group_id, FND_API.G_MISS_NUM) OR
2020: p_lpn_table(lpn_tbl_cnt).tare_weight_uom_code <> NVL(l_old.tare_weight_uom_code, FND_API.G_MISS_CHAR) OR
2021: p_lpn_table(lpn_tbl_cnt).tare_weight <> NVL(l_old.tare_weight, FND_API.G_MISS_NUM) OR
2022: p_lpn_table(lpn_tbl_cnt).gross_weight_uom_code <> NVL(l_old.gross_weight_uom_code, FND_API.G_MISS_CHAR) OR
2023: p_lpn_table(lpn_tbl_cnt).gross_weight <> NVL(l_old.gross_weight, FND_API.G_MISS_NUM) OR
2024: p_lpn_table(lpn_tbl_cnt).container_volume_uom <> NVL(l_old.container_volume_uom, FND_API.G_MISS_CHAR) OR
2017: p_lpn_table(lpn_tbl_cnt).lot_number <> NVL(l_old.lot_number, FND_API.G_MISS_CHAR) OR
2018: p_lpn_table(lpn_tbl_cnt).serial_number <> NVL(l_old.serial_number, FND_API.G_MISS_CHAR) OR
2019: p_lpn_table(lpn_tbl_cnt).cost_group_id <> NVL(l_old.cost_group_id, FND_API.G_MISS_NUM) OR
2020: p_lpn_table(lpn_tbl_cnt).tare_weight_uom_code <> NVL(l_old.tare_weight_uom_code, FND_API.G_MISS_CHAR) OR
2021: p_lpn_table(lpn_tbl_cnt).tare_weight <> NVL(l_old.tare_weight, FND_API.G_MISS_NUM) OR
2022: p_lpn_table(lpn_tbl_cnt).gross_weight_uom_code <> NVL(l_old.gross_weight_uom_code, FND_API.G_MISS_CHAR) OR
2023: p_lpn_table(lpn_tbl_cnt).gross_weight <> NVL(l_old.gross_weight, FND_API.G_MISS_NUM) OR
2024: p_lpn_table(lpn_tbl_cnt).container_volume_uom <> NVL(l_old.container_volume_uom, FND_API.G_MISS_CHAR) OR
2025: p_lpn_table(lpn_tbl_cnt).container_volume <> NVL(l_old.container_volume, FND_API.G_MISS_NUM) OR
2018: p_lpn_table(lpn_tbl_cnt).serial_number <> NVL(l_old.serial_number, FND_API.G_MISS_CHAR) OR
2019: p_lpn_table(lpn_tbl_cnt).cost_group_id <> NVL(l_old.cost_group_id, FND_API.G_MISS_NUM) OR
2020: p_lpn_table(lpn_tbl_cnt).tare_weight_uom_code <> NVL(l_old.tare_weight_uom_code, FND_API.G_MISS_CHAR) OR
2021: p_lpn_table(lpn_tbl_cnt).tare_weight <> NVL(l_old.tare_weight, FND_API.G_MISS_NUM) OR
2022: p_lpn_table(lpn_tbl_cnt).gross_weight_uom_code <> NVL(l_old.gross_weight_uom_code, FND_API.G_MISS_CHAR) OR
2023: p_lpn_table(lpn_tbl_cnt).gross_weight <> NVL(l_old.gross_weight, FND_API.G_MISS_NUM) OR
2024: p_lpn_table(lpn_tbl_cnt).container_volume_uom <> NVL(l_old.container_volume_uom, FND_API.G_MISS_CHAR) OR
2025: p_lpn_table(lpn_tbl_cnt).container_volume <> NVL(l_old.container_volume, FND_API.G_MISS_NUM) OR
2026: p_lpn_table(lpn_tbl_cnt).content_volume_uom_code <> NVL(l_old.content_volume_uom_code, FND_API.G_MISS_CHAR) OR
2019: p_lpn_table(lpn_tbl_cnt).cost_group_id <> NVL(l_old.cost_group_id, FND_API.G_MISS_NUM) OR
2020: p_lpn_table(lpn_tbl_cnt).tare_weight_uom_code <> NVL(l_old.tare_weight_uom_code, FND_API.G_MISS_CHAR) OR
2021: p_lpn_table(lpn_tbl_cnt).tare_weight <> NVL(l_old.tare_weight, FND_API.G_MISS_NUM) OR
2022: p_lpn_table(lpn_tbl_cnt).gross_weight_uom_code <> NVL(l_old.gross_weight_uom_code, FND_API.G_MISS_CHAR) OR
2023: p_lpn_table(lpn_tbl_cnt).gross_weight <> NVL(l_old.gross_weight, FND_API.G_MISS_NUM) OR
2024: p_lpn_table(lpn_tbl_cnt).container_volume_uom <> NVL(l_old.container_volume_uom, FND_API.G_MISS_CHAR) OR
2025: p_lpn_table(lpn_tbl_cnt).container_volume <> NVL(l_old.container_volume, FND_API.G_MISS_NUM) OR
2026: p_lpn_table(lpn_tbl_cnt).content_volume_uom_code <> NVL(l_old.content_volume_uom_code, FND_API.G_MISS_CHAR) OR
2027: p_lpn_table(lpn_tbl_cnt).content_volume <> NVL(l_old.content_volume, FND_API.G_MISS_NUM) OR
2020: p_lpn_table(lpn_tbl_cnt).tare_weight_uom_code <> NVL(l_old.tare_weight_uom_code, FND_API.G_MISS_CHAR) OR
2021: p_lpn_table(lpn_tbl_cnt).tare_weight <> NVL(l_old.tare_weight, FND_API.G_MISS_NUM) OR
2022: p_lpn_table(lpn_tbl_cnt).gross_weight_uom_code <> NVL(l_old.gross_weight_uom_code, FND_API.G_MISS_CHAR) OR
2023: p_lpn_table(lpn_tbl_cnt).gross_weight <> NVL(l_old.gross_weight, FND_API.G_MISS_NUM) OR
2024: p_lpn_table(lpn_tbl_cnt).container_volume_uom <> NVL(l_old.container_volume_uom, FND_API.G_MISS_CHAR) OR
2025: p_lpn_table(lpn_tbl_cnt).container_volume <> NVL(l_old.container_volume, FND_API.G_MISS_NUM) OR
2026: p_lpn_table(lpn_tbl_cnt).content_volume_uom_code <> NVL(l_old.content_volume_uom_code, FND_API.G_MISS_CHAR) OR
2027: p_lpn_table(lpn_tbl_cnt).content_volume <> NVL(l_old.content_volume, FND_API.G_MISS_NUM) OR
2028: p_lpn_table(lpn_tbl_cnt).attribute_category <> NVL(l_old.attribute_category, FND_API.G_MISS_CHAR) OR
2021: p_lpn_table(lpn_tbl_cnt).tare_weight <> NVL(l_old.tare_weight, FND_API.G_MISS_NUM) OR
2022: p_lpn_table(lpn_tbl_cnt).gross_weight_uom_code <> NVL(l_old.gross_weight_uom_code, FND_API.G_MISS_CHAR) OR
2023: p_lpn_table(lpn_tbl_cnt).gross_weight <> NVL(l_old.gross_weight, FND_API.G_MISS_NUM) OR
2024: p_lpn_table(lpn_tbl_cnt).container_volume_uom <> NVL(l_old.container_volume_uom, FND_API.G_MISS_CHAR) OR
2025: p_lpn_table(lpn_tbl_cnt).container_volume <> NVL(l_old.container_volume, FND_API.G_MISS_NUM) OR
2026: p_lpn_table(lpn_tbl_cnt).content_volume_uom_code <> NVL(l_old.content_volume_uom_code, FND_API.G_MISS_CHAR) OR
2027: p_lpn_table(lpn_tbl_cnt).content_volume <> NVL(l_old.content_volume, FND_API.G_MISS_NUM) OR
2028: p_lpn_table(lpn_tbl_cnt).attribute_category <> NVL(l_old.attribute_category, FND_API.G_MISS_CHAR) OR
2029: p_lpn_table(lpn_tbl_cnt).attribute1 <> NVL(l_old.attribute1, FND_API.G_MISS_CHAR) OR
2022: p_lpn_table(lpn_tbl_cnt).gross_weight_uom_code <> NVL(l_old.gross_weight_uom_code, FND_API.G_MISS_CHAR) OR
2023: p_lpn_table(lpn_tbl_cnt).gross_weight <> NVL(l_old.gross_weight, FND_API.G_MISS_NUM) OR
2024: p_lpn_table(lpn_tbl_cnt).container_volume_uom <> NVL(l_old.container_volume_uom, FND_API.G_MISS_CHAR) OR
2025: p_lpn_table(lpn_tbl_cnt).container_volume <> NVL(l_old.container_volume, FND_API.G_MISS_NUM) OR
2026: p_lpn_table(lpn_tbl_cnt).content_volume_uom_code <> NVL(l_old.content_volume_uom_code, FND_API.G_MISS_CHAR) OR
2027: p_lpn_table(lpn_tbl_cnt).content_volume <> NVL(l_old.content_volume, FND_API.G_MISS_NUM) OR
2028: p_lpn_table(lpn_tbl_cnt).attribute_category <> NVL(l_old.attribute_category, FND_API.G_MISS_CHAR) OR
2029: p_lpn_table(lpn_tbl_cnt).attribute1 <> NVL(l_old.attribute1, FND_API.G_MISS_CHAR) OR
2030: p_lpn_table(lpn_tbl_cnt).attribute2 <> NVL(l_old.attribute2, FND_API.G_MISS_CHAR) OR
2023: p_lpn_table(lpn_tbl_cnt).gross_weight <> NVL(l_old.gross_weight, FND_API.G_MISS_NUM) OR
2024: p_lpn_table(lpn_tbl_cnt).container_volume_uom <> NVL(l_old.container_volume_uom, FND_API.G_MISS_CHAR) OR
2025: p_lpn_table(lpn_tbl_cnt).container_volume <> NVL(l_old.container_volume, FND_API.G_MISS_NUM) OR
2026: p_lpn_table(lpn_tbl_cnt).content_volume_uom_code <> NVL(l_old.content_volume_uom_code, FND_API.G_MISS_CHAR) OR
2027: p_lpn_table(lpn_tbl_cnt).content_volume <> NVL(l_old.content_volume, FND_API.G_MISS_NUM) OR
2028: p_lpn_table(lpn_tbl_cnt).attribute_category <> NVL(l_old.attribute_category, FND_API.G_MISS_CHAR) OR
2029: p_lpn_table(lpn_tbl_cnt).attribute1 <> NVL(l_old.attribute1, FND_API.G_MISS_CHAR) OR
2030: p_lpn_table(lpn_tbl_cnt).attribute2 <> NVL(l_old.attribute2, FND_API.G_MISS_CHAR) OR
2031: p_lpn_table(lpn_tbl_cnt).attribute3 <> NVL(l_old.attribute3, FND_API.G_MISS_CHAR) OR
2024: p_lpn_table(lpn_tbl_cnt).container_volume_uom <> NVL(l_old.container_volume_uom, FND_API.G_MISS_CHAR) OR
2025: p_lpn_table(lpn_tbl_cnt).container_volume <> NVL(l_old.container_volume, FND_API.G_MISS_NUM) OR
2026: p_lpn_table(lpn_tbl_cnt).content_volume_uom_code <> NVL(l_old.content_volume_uom_code, FND_API.G_MISS_CHAR) OR
2027: p_lpn_table(lpn_tbl_cnt).content_volume <> NVL(l_old.content_volume, FND_API.G_MISS_NUM) OR
2028: p_lpn_table(lpn_tbl_cnt).attribute_category <> NVL(l_old.attribute_category, FND_API.G_MISS_CHAR) OR
2029: p_lpn_table(lpn_tbl_cnt).attribute1 <> NVL(l_old.attribute1, FND_API.G_MISS_CHAR) OR
2030: p_lpn_table(lpn_tbl_cnt).attribute2 <> NVL(l_old.attribute2, FND_API.G_MISS_CHAR) OR
2031: p_lpn_table(lpn_tbl_cnt).attribute3 <> NVL(l_old.attribute3, FND_API.G_MISS_CHAR) OR
2032: p_lpn_table(lpn_tbl_cnt).attribute4 <> NVL(l_old.attribute4, FND_API.G_MISS_CHAR) OR
2025: p_lpn_table(lpn_tbl_cnt).container_volume <> NVL(l_old.container_volume, FND_API.G_MISS_NUM) OR
2026: p_lpn_table(lpn_tbl_cnt).content_volume_uom_code <> NVL(l_old.content_volume_uom_code, FND_API.G_MISS_CHAR) OR
2027: p_lpn_table(lpn_tbl_cnt).content_volume <> NVL(l_old.content_volume, FND_API.G_MISS_NUM) OR
2028: p_lpn_table(lpn_tbl_cnt).attribute_category <> NVL(l_old.attribute_category, FND_API.G_MISS_CHAR) OR
2029: p_lpn_table(lpn_tbl_cnt).attribute1 <> NVL(l_old.attribute1, FND_API.G_MISS_CHAR) OR
2030: p_lpn_table(lpn_tbl_cnt).attribute2 <> NVL(l_old.attribute2, FND_API.G_MISS_CHAR) OR
2031: p_lpn_table(lpn_tbl_cnt).attribute3 <> NVL(l_old.attribute3, FND_API.G_MISS_CHAR) OR
2032: p_lpn_table(lpn_tbl_cnt).attribute4 <> NVL(l_old.attribute4, FND_API.G_MISS_CHAR) OR
2033: p_lpn_table(lpn_tbl_cnt).attribute5 <> NVL(l_old.attribute5, FND_API.G_MISS_CHAR) OR
2026: p_lpn_table(lpn_tbl_cnt).content_volume_uom_code <> NVL(l_old.content_volume_uom_code, FND_API.G_MISS_CHAR) OR
2027: p_lpn_table(lpn_tbl_cnt).content_volume <> NVL(l_old.content_volume, FND_API.G_MISS_NUM) OR
2028: p_lpn_table(lpn_tbl_cnt).attribute_category <> NVL(l_old.attribute_category, FND_API.G_MISS_CHAR) OR
2029: p_lpn_table(lpn_tbl_cnt).attribute1 <> NVL(l_old.attribute1, FND_API.G_MISS_CHAR) OR
2030: p_lpn_table(lpn_tbl_cnt).attribute2 <> NVL(l_old.attribute2, FND_API.G_MISS_CHAR) OR
2031: p_lpn_table(lpn_tbl_cnt).attribute3 <> NVL(l_old.attribute3, FND_API.G_MISS_CHAR) OR
2032: p_lpn_table(lpn_tbl_cnt).attribute4 <> NVL(l_old.attribute4, FND_API.G_MISS_CHAR) OR
2033: p_lpn_table(lpn_tbl_cnt).attribute5 <> NVL(l_old.attribute5, FND_API.G_MISS_CHAR) OR
2034: p_lpn_table(lpn_tbl_cnt).attribute6 <> NVL(l_old.attribute6, FND_API.G_MISS_CHAR) OR
2027: p_lpn_table(lpn_tbl_cnt).content_volume <> NVL(l_old.content_volume, FND_API.G_MISS_NUM) OR
2028: p_lpn_table(lpn_tbl_cnt).attribute_category <> NVL(l_old.attribute_category, FND_API.G_MISS_CHAR) OR
2029: p_lpn_table(lpn_tbl_cnt).attribute1 <> NVL(l_old.attribute1, FND_API.G_MISS_CHAR) OR
2030: p_lpn_table(lpn_tbl_cnt).attribute2 <> NVL(l_old.attribute2, FND_API.G_MISS_CHAR) OR
2031: p_lpn_table(lpn_tbl_cnt).attribute3 <> NVL(l_old.attribute3, FND_API.G_MISS_CHAR) OR
2032: p_lpn_table(lpn_tbl_cnt).attribute4 <> NVL(l_old.attribute4, FND_API.G_MISS_CHAR) OR
2033: p_lpn_table(lpn_tbl_cnt).attribute5 <> NVL(l_old.attribute5, FND_API.G_MISS_CHAR) OR
2034: p_lpn_table(lpn_tbl_cnt).attribute6 <> NVL(l_old.attribute6, FND_API.G_MISS_CHAR) OR
2035: p_lpn_table(lpn_tbl_cnt).attribute7 <> NVL(l_old.attribute7, FND_API.G_MISS_CHAR) OR
2028: p_lpn_table(lpn_tbl_cnt).attribute_category <> NVL(l_old.attribute_category, FND_API.G_MISS_CHAR) OR
2029: p_lpn_table(lpn_tbl_cnt).attribute1 <> NVL(l_old.attribute1, FND_API.G_MISS_CHAR) OR
2030: p_lpn_table(lpn_tbl_cnt).attribute2 <> NVL(l_old.attribute2, FND_API.G_MISS_CHAR) OR
2031: p_lpn_table(lpn_tbl_cnt).attribute3 <> NVL(l_old.attribute3, FND_API.G_MISS_CHAR) OR
2032: p_lpn_table(lpn_tbl_cnt).attribute4 <> NVL(l_old.attribute4, FND_API.G_MISS_CHAR) OR
2033: p_lpn_table(lpn_tbl_cnt).attribute5 <> NVL(l_old.attribute5, FND_API.G_MISS_CHAR) OR
2034: p_lpn_table(lpn_tbl_cnt).attribute6 <> NVL(l_old.attribute6, FND_API.G_MISS_CHAR) OR
2035: p_lpn_table(lpn_tbl_cnt).attribute7 <> NVL(l_old.attribute7, FND_API.G_MISS_CHAR) OR
2036: p_lpn_table(lpn_tbl_cnt).attribute8 <> NVL(l_old.attribute8, FND_API.G_MISS_CHAR) OR
2029: p_lpn_table(lpn_tbl_cnt).attribute1 <> NVL(l_old.attribute1, FND_API.G_MISS_CHAR) OR
2030: p_lpn_table(lpn_tbl_cnt).attribute2 <> NVL(l_old.attribute2, FND_API.G_MISS_CHAR) OR
2031: p_lpn_table(lpn_tbl_cnt).attribute3 <> NVL(l_old.attribute3, FND_API.G_MISS_CHAR) OR
2032: p_lpn_table(lpn_tbl_cnt).attribute4 <> NVL(l_old.attribute4, FND_API.G_MISS_CHAR) OR
2033: p_lpn_table(lpn_tbl_cnt).attribute5 <> NVL(l_old.attribute5, FND_API.G_MISS_CHAR) OR
2034: p_lpn_table(lpn_tbl_cnt).attribute6 <> NVL(l_old.attribute6, FND_API.G_MISS_CHAR) OR
2035: p_lpn_table(lpn_tbl_cnt).attribute7 <> NVL(l_old.attribute7, FND_API.G_MISS_CHAR) OR
2036: p_lpn_table(lpn_tbl_cnt).attribute8 <> NVL(l_old.attribute8, FND_API.G_MISS_CHAR) OR
2037: p_lpn_table(lpn_tbl_cnt).attribute9 <> NVL(l_old.attribute9, FND_API.G_MISS_CHAR) OR
2030: p_lpn_table(lpn_tbl_cnt).attribute2 <> NVL(l_old.attribute2, FND_API.G_MISS_CHAR) OR
2031: p_lpn_table(lpn_tbl_cnt).attribute3 <> NVL(l_old.attribute3, FND_API.G_MISS_CHAR) OR
2032: p_lpn_table(lpn_tbl_cnt).attribute4 <> NVL(l_old.attribute4, FND_API.G_MISS_CHAR) OR
2033: p_lpn_table(lpn_tbl_cnt).attribute5 <> NVL(l_old.attribute5, FND_API.G_MISS_CHAR) OR
2034: p_lpn_table(lpn_tbl_cnt).attribute6 <> NVL(l_old.attribute6, FND_API.G_MISS_CHAR) OR
2035: p_lpn_table(lpn_tbl_cnt).attribute7 <> NVL(l_old.attribute7, FND_API.G_MISS_CHAR) OR
2036: p_lpn_table(lpn_tbl_cnt).attribute8 <> NVL(l_old.attribute8, FND_API.G_MISS_CHAR) OR
2037: p_lpn_table(lpn_tbl_cnt).attribute9 <> NVL(l_old.attribute9, FND_API.G_MISS_CHAR) OR
2038: p_lpn_table(lpn_tbl_cnt).attribute10 <> NVL(l_old.attribute10, FND_API.G_MISS_CHAR) OR
2031: p_lpn_table(lpn_tbl_cnt).attribute3 <> NVL(l_old.attribute3, FND_API.G_MISS_CHAR) OR
2032: p_lpn_table(lpn_tbl_cnt).attribute4 <> NVL(l_old.attribute4, FND_API.G_MISS_CHAR) OR
2033: p_lpn_table(lpn_tbl_cnt).attribute5 <> NVL(l_old.attribute5, FND_API.G_MISS_CHAR) OR
2034: p_lpn_table(lpn_tbl_cnt).attribute6 <> NVL(l_old.attribute6, FND_API.G_MISS_CHAR) OR
2035: p_lpn_table(lpn_tbl_cnt).attribute7 <> NVL(l_old.attribute7, FND_API.G_MISS_CHAR) OR
2036: p_lpn_table(lpn_tbl_cnt).attribute8 <> NVL(l_old.attribute8, FND_API.G_MISS_CHAR) OR
2037: p_lpn_table(lpn_tbl_cnt).attribute9 <> NVL(l_old.attribute9, FND_API.G_MISS_CHAR) OR
2038: p_lpn_table(lpn_tbl_cnt).attribute10 <> NVL(l_old.attribute10, FND_API.G_MISS_CHAR) OR
2039: p_lpn_table(lpn_tbl_cnt).attribute11 <> NVL(l_old.attribute11, FND_API.G_MISS_CHAR) OR
2032: p_lpn_table(lpn_tbl_cnt).attribute4 <> NVL(l_old.attribute4, FND_API.G_MISS_CHAR) OR
2033: p_lpn_table(lpn_tbl_cnt).attribute5 <> NVL(l_old.attribute5, FND_API.G_MISS_CHAR) OR
2034: p_lpn_table(lpn_tbl_cnt).attribute6 <> NVL(l_old.attribute6, FND_API.G_MISS_CHAR) OR
2035: p_lpn_table(lpn_tbl_cnt).attribute7 <> NVL(l_old.attribute7, FND_API.G_MISS_CHAR) OR
2036: p_lpn_table(lpn_tbl_cnt).attribute8 <> NVL(l_old.attribute8, FND_API.G_MISS_CHAR) OR
2037: p_lpn_table(lpn_tbl_cnt).attribute9 <> NVL(l_old.attribute9, FND_API.G_MISS_CHAR) OR
2038: p_lpn_table(lpn_tbl_cnt).attribute10 <> NVL(l_old.attribute10, FND_API.G_MISS_CHAR) OR
2039: p_lpn_table(lpn_tbl_cnt).attribute11 <> NVL(l_old.attribute11, FND_API.G_MISS_CHAR) OR
2040: p_lpn_table(lpn_tbl_cnt).attribute12 <> NVL(l_old.attribute12, FND_API.G_MISS_CHAR) OR
2033: p_lpn_table(lpn_tbl_cnt).attribute5 <> NVL(l_old.attribute5, FND_API.G_MISS_CHAR) OR
2034: p_lpn_table(lpn_tbl_cnt).attribute6 <> NVL(l_old.attribute6, FND_API.G_MISS_CHAR) OR
2035: p_lpn_table(lpn_tbl_cnt).attribute7 <> NVL(l_old.attribute7, FND_API.G_MISS_CHAR) OR
2036: p_lpn_table(lpn_tbl_cnt).attribute8 <> NVL(l_old.attribute8, FND_API.G_MISS_CHAR) OR
2037: p_lpn_table(lpn_tbl_cnt).attribute9 <> NVL(l_old.attribute9, FND_API.G_MISS_CHAR) OR
2038: p_lpn_table(lpn_tbl_cnt).attribute10 <> NVL(l_old.attribute10, FND_API.G_MISS_CHAR) OR
2039: p_lpn_table(lpn_tbl_cnt).attribute11 <> NVL(l_old.attribute11, FND_API.G_MISS_CHAR) OR
2040: p_lpn_table(lpn_tbl_cnt).attribute12 <> NVL(l_old.attribute12, FND_API.G_MISS_CHAR) OR
2041: p_lpn_table(lpn_tbl_cnt).attribute13 <> NVL(l_old.attribute13, FND_API.G_MISS_CHAR) OR
2034: p_lpn_table(lpn_tbl_cnt).attribute6 <> NVL(l_old.attribute6, FND_API.G_MISS_CHAR) OR
2035: p_lpn_table(lpn_tbl_cnt).attribute7 <> NVL(l_old.attribute7, FND_API.G_MISS_CHAR) OR
2036: p_lpn_table(lpn_tbl_cnt).attribute8 <> NVL(l_old.attribute8, FND_API.G_MISS_CHAR) OR
2037: p_lpn_table(lpn_tbl_cnt).attribute9 <> NVL(l_old.attribute9, FND_API.G_MISS_CHAR) OR
2038: p_lpn_table(lpn_tbl_cnt).attribute10 <> NVL(l_old.attribute10, FND_API.G_MISS_CHAR) OR
2039: p_lpn_table(lpn_tbl_cnt).attribute11 <> NVL(l_old.attribute11, FND_API.G_MISS_CHAR) OR
2040: p_lpn_table(lpn_tbl_cnt).attribute12 <> NVL(l_old.attribute12, FND_API.G_MISS_CHAR) OR
2041: p_lpn_table(lpn_tbl_cnt).attribute13 <> NVL(l_old.attribute13, FND_API.G_MISS_CHAR) OR
2042: p_lpn_table(lpn_tbl_cnt).attribute14 <> NVL(l_old.attribute14, FND_API.G_MISS_CHAR) OR
2035: p_lpn_table(lpn_tbl_cnt).attribute7 <> NVL(l_old.attribute7, FND_API.G_MISS_CHAR) OR
2036: p_lpn_table(lpn_tbl_cnt).attribute8 <> NVL(l_old.attribute8, FND_API.G_MISS_CHAR) OR
2037: p_lpn_table(lpn_tbl_cnt).attribute9 <> NVL(l_old.attribute9, FND_API.G_MISS_CHAR) OR
2038: p_lpn_table(lpn_tbl_cnt).attribute10 <> NVL(l_old.attribute10, FND_API.G_MISS_CHAR) OR
2039: p_lpn_table(lpn_tbl_cnt).attribute11 <> NVL(l_old.attribute11, FND_API.G_MISS_CHAR) OR
2040: p_lpn_table(lpn_tbl_cnt).attribute12 <> NVL(l_old.attribute12, FND_API.G_MISS_CHAR) OR
2041: p_lpn_table(lpn_tbl_cnt).attribute13 <> NVL(l_old.attribute13, FND_API.G_MISS_CHAR) OR
2042: p_lpn_table(lpn_tbl_cnt).attribute14 <> NVL(l_old.attribute14, FND_API.G_MISS_CHAR) OR
2043: p_lpn_table(lpn_tbl_cnt).attribute15 <> NVL(l_old.attribute15, FND_API.G_MISS_CHAR) )
2036: p_lpn_table(lpn_tbl_cnt).attribute8 <> NVL(l_old.attribute8, FND_API.G_MISS_CHAR) OR
2037: p_lpn_table(lpn_tbl_cnt).attribute9 <> NVL(l_old.attribute9, FND_API.G_MISS_CHAR) OR
2038: p_lpn_table(lpn_tbl_cnt).attribute10 <> NVL(l_old.attribute10, FND_API.G_MISS_CHAR) OR
2039: p_lpn_table(lpn_tbl_cnt).attribute11 <> NVL(l_old.attribute11, FND_API.G_MISS_CHAR) OR
2040: p_lpn_table(lpn_tbl_cnt).attribute12 <> NVL(l_old.attribute12, FND_API.G_MISS_CHAR) OR
2041: p_lpn_table(lpn_tbl_cnt).attribute13 <> NVL(l_old.attribute13, FND_API.G_MISS_CHAR) OR
2042: p_lpn_table(lpn_tbl_cnt).attribute14 <> NVL(l_old.attribute14, FND_API.G_MISS_CHAR) OR
2043: p_lpn_table(lpn_tbl_cnt).attribute15 <> NVL(l_old.attribute15, FND_API.G_MISS_CHAR) )
2044: THEN
2037: p_lpn_table(lpn_tbl_cnt).attribute9 <> NVL(l_old.attribute9, FND_API.G_MISS_CHAR) OR
2038: p_lpn_table(lpn_tbl_cnt).attribute10 <> NVL(l_old.attribute10, FND_API.G_MISS_CHAR) OR
2039: p_lpn_table(lpn_tbl_cnt).attribute11 <> NVL(l_old.attribute11, FND_API.G_MISS_CHAR) OR
2040: p_lpn_table(lpn_tbl_cnt).attribute12 <> NVL(l_old.attribute12, FND_API.G_MISS_CHAR) OR
2041: p_lpn_table(lpn_tbl_cnt).attribute13 <> NVL(l_old.attribute13, FND_API.G_MISS_CHAR) OR
2042: p_lpn_table(lpn_tbl_cnt).attribute14 <> NVL(l_old.attribute14, FND_API.G_MISS_CHAR) OR
2043: p_lpn_table(lpn_tbl_cnt).attribute15 <> NVL(l_old.attribute15, FND_API.G_MISS_CHAR) )
2044: THEN
2045: l_progress := 'Initialize temp variables used for each loop';
2038: p_lpn_table(lpn_tbl_cnt).attribute10 <> NVL(l_old.attribute10, FND_API.G_MISS_CHAR) OR
2039: p_lpn_table(lpn_tbl_cnt).attribute11 <> NVL(l_old.attribute11, FND_API.G_MISS_CHAR) OR
2040: p_lpn_table(lpn_tbl_cnt).attribute12 <> NVL(l_old.attribute12, FND_API.G_MISS_CHAR) OR
2041: p_lpn_table(lpn_tbl_cnt).attribute13 <> NVL(l_old.attribute13, FND_API.G_MISS_CHAR) OR
2042: p_lpn_table(lpn_tbl_cnt).attribute14 <> NVL(l_old.attribute14, FND_API.G_MISS_CHAR) OR
2043: p_lpn_table(lpn_tbl_cnt).attribute15 <> NVL(l_old.attribute15, FND_API.G_MISS_CHAR) )
2044: THEN
2045: l_progress := 'Initialize temp variables used for each loop';
2046: l_change_in_gross_weight := 0;
2039: p_lpn_table(lpn_tbl_cnt).attribute11 <> NVL(l_old.attribute11, FND_API.G_MISS_CHAR) OR
2040: p_lpn_table(lpn_tbl_cnt).attribute12 <> NVL(l_old.attribute12, FND_API.G_MISS_CHAR) OR
2041: p_lpn_table(lpn_tbl_cnt).attribute13 <> NVL(l_old.attribute13, FND_API.G_MISS_CHAR) OR
2042: p_lpn_table(lpn_tbl_cnt).attribute14 <> NVL(l_old.attribute14, FND_API.G_MISS_CHAR) OR
2043: p_lpn_table(lpn_tbl_cnt).attribute15 <> NVL(l_old.attribute15, FND_API.G_MISS_CHAR) )
2044: THEN
2045: l_progress := 'Initialize temp variables used for each loop';
2046: l_change_in_gross_weight := 0;
2047: l_change_in_gross_weight_uom := NULL;
2070: mdebug(NVL(p_lpn_table(lpn_tbl_cnt).organization_id, l_old.organization_id)||' is an invalid organization id', G_ERROR);
2071: END IF;
2072: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ORG');
2073: fnd_msg_pub.ADD;
2074: RAISE fnd_api.g_exc_error;
2075: END IF;
2076:
2077: IF (l_debug = 1) THEN
2078: mdebug('Got org info wms_enabled='||inv_cache.org_rec.wms_enabled_flag, 5);
2082: -- License Plate Number cannot be updated in a WMS organziation
2083: fnd_message.set_name('WMS', 'WMS_UPDATE_LPN_ATTR_ERR');
2084: fnd_message.set_token('ATTR', 'License Plate Number');
2085: fnd_msg_pub.ADD;
2086: RAISE fnd_api.g_exc_error;
2087: ELSE
2088: l_new.license_plate_number := p_lpn_table(lpn_tbl_cnt).license_plate_number;
2089: END IF;
2090: END IF;
2103: IF ( l_old.lpn_context <> lpn_context_pregenerated ) THEN
2104: fnd_message.set_name('WMS', 'WMS_LPN_NOT_EMPTY');
2105: fnd_msg_pub.ADD;
2106: END IF;
2107: RAISE fnd_api.g_exc_error;
2108: END IF;*/
2109:
2110: l_progress := 'Calling INV_CACHE.Set_Item_Rec to get item values';
2111: IF ( inv_cache.set_item_rec(
2123: END IF;
2124: fnd_message.set_name('WMS', 'WMS_ITEM_NOT_CONTAINER');
2125: fnd_message.set_token('ITEM', inv_cache.item_rec.segment1);
2126: fnd_msg_pub.ADD;
2127: RAISE fnd_api.g_exc_error;
2128: END IF;
2129: ELSE
2130: 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;
2131: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
2129: ELSE
2130: 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;
2131: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
2132: fnd_msg_pub.ADD;
2133: RAISE fnd_api.g_exc_error;
2134: END IF;
2135:
2136: -- Container item is valid, change container item
2137: l_new.inventory_item_id := p_lpn_table(lpn_tbl_cnt).inventory_item_id;
2138: END IF;
2139:
2140: -- bug5404902 changed l_change_in_gross_weight(_uom) to l_change_in_tare_weight(_uom)
2141: l_progress := 'Tare weight';
2142: 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
2143: l_new.tare_weight := NULL;
2144: l_new.tare_weight_uom_code := NULL;
2145:
2146: IF ( NVL(l_old.tare_weight, 0) <> 0 AND l_old.tare_weight_uom_code IS NOT NULL ) THEN
2179: ELSE
2180: 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;
2181: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
2182: fnd_msg_pub.ADD;
2183: RAISE fnd_api.g_exc_error;
2184: END IF;
2185: IF ( inv_cache.item_rec.unit_weight IS NOT NULL AND
2186: inv_cache.item_rec.weight_uom_code IS NOT NULL ) THEN
2187:
2215: ELSE
2216: 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;
2217: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
2218: fnd_msg_pub.ADD;
2219: RAISE fnd_api.g_exc_error;
2220: END IF;
2221: IF ( inv_cache.item_rec.unit_weight IS NOT NULL AND
2222: inv_cache.item_rec.weight_uom_code IS NOT NULL ) THEN
2223:
2254: ELSE
2255: 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;
2256: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
2257: fnd_msg_pub.ADD;
2258: RAISE fnd_api.g_exc_error;
2259: END IF;
2260:
2261: IF (inv_cache.item_rec.unit_weight IS NOT NULL AND
2262: inv_cache.item_rec.weight_uom_code IS NOT NULL ) THEN
2282: l_new.container_volume_uom := NULL;
2283: END IF;
2284:
2285: l_progress := 'Gross Weight';
2286: 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
2287: l_new.gross_weight := NULL;
2288: l_new.gross_weight_uom_code := NULL;
2289: 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
2290: -- Check that value is not negative. If it is, floor at zero
2363: END IF;
2364: END IF;
2365:
2366: l_progress := 'Container Volume';
2367: 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
2368: l_new.container_volume := NULL;
2369: l_new.container_volume_uom := NULL;
2370: 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
2371: -- Check that value is not negative. If it is, floor at zero
2384: --END IF;
2385: END IF;
2386:
2387: l_progress := 'Content Volume';
2388: 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
2389: l_new.content_volume := NULL;
2390: l_new.content_volume_uom_code := NULL;
2391: 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
2392: -- Check that value is not negative. If it is, floor at zero
2400: END IF;
2401:
2402: /* Not sure if we need to support this
2403: l_progress := 'Status ID?';
2404: IF ( p_lpn_table(lpn_tbl_cnt).status_id = FND_API.G_MISS_NUM ) THEN
2405: l_new.status_id := NULL;
2406: ELSIF ( p_lpn_table(lpn_tbl_cnt).status_id IS NOT NULL ) THEN
2407: l_new.status_id := p_lpn_table(lpn_tbl_cnt).status_id;
2408: END IF;*/
2407: l_new.status_id := p_lpn_table(lpn_tbl_cnt).status_id;
2408: END IF;*/
2409:
2410: l_progress := 'Update attribute_category';
2411: IF ( p_lpn_table(lpn_tbl_cnt).attribute_category = FND_API.G_MISS_CHAR ) THEN
2412: l_new.attribute_category := NULL;
2413: ELSIF ( p_lpn_table(lpn_tbl_cnt).attribute_category IS NOT NULL ) THEN
2414: l_new.attribute_category := p_lpn_table(lpn_tbl_cnt).attribute_category;
2415: END IF;
2414: l_new.attribute_category := p_lpn_table(lpn_tbl_cnt).attribute_category;
2415: END IF;
2416:
2417: l_progress := 'Update attribute1';
2418: IF ( p_lpn_table(lpn_tbl_cnt).attribute1 = FND_API.G_MISS_CHAR ) THEN
2419: l_new.attribute1 := NULL;
2420: ELSIF ( p_lpn_table(lpn_tbl_cnt).attribute1 IS NOT NULL ) THEN
2421: l_new.attribute1 := p_lpn_table(lpn_tbl_cnt).attribute1;
2422: END IF;
2421: l_new.attribute1 := p_lpn_table(lpn_tbl_cnt).attribute1;
2422: END IF;
2423:
2424: l_progress := 'Update attribute2';
2425: IF ( p_lpn_table(lpn_tbl_cnt).attribute2 = FND_API.G_MISS_CHAR ) THEN
2426: l_new.attribute2 := NULL;
2427: ELSIF ( p_lpn_table(lpn_tbl_cnt).attribute2 IS NOT NULL ) THEN
2428: l_new.attribute2 := p_lpn_table(lpn_tbl_cnt).attribute2;
2429: END IF;
2428: l_new.attribute2 := p_lpn_table(lpn_tbl_cnt).attribute2;
2429: END IF;
2430:
2431: l_progress := 'Update attribute3';
2432: IF ( p_lpn_table(lpn_tbl_cnt).attribute3 = FND_API.G_MISS_CHAR ) THEN
2433: l_new.attribute3 := NULL;
2434: ELSIF ( p_lpn_table(lpn_tbl_cnt).attribute3 IS NOT NULL ) THEN
2435: l_new.attribute3 := p_lpn_table(lpn_tbl_cnt).attribute3;
2436: END IF;
2435: l_new.attribute3 := p_lpn_table(lpn_tbl_cnt).attribute3;
2436: END IF;
2437:
2438: l_progress := 'Update attribute4';
2439: IF ( p_lpn_table(lpn_tbl_cnt).attribute4 = FND_API.G_MISS_CHAR ) THEN
2440: l_new.attribute4 := NULL;
2441: ELSIF ( p_lpn_table(lpn_tbl_cnt).attribute4 IS NOT NULL ) THEN
2442: l_new.attribute4 := p_lpn_table(lpn_tbl_cnt).attribute4;
2443: END IF;
2442: l_new.attribute4 := p_lpn_table(lpn_tbl_cnt).attribute4;
2443: END IF;
2444:
2445: l_progress := 'Update attribute5';
2446: IF ( p_lpn_table(lpn_tbl_cnt).attribute5 = FND_API.G_MISS_CHAR ) THEN
2447: l_new.attribute5 := NULL;
2448: ELSIF ( p_lpn_table(lpn_tbl_cnt).attribute5 IS NOT NULL ) THEN
2449: l_new.attribute5 := p_lpn_table(lpn_tbl_cnt).attribute5;
2450: END IF;
2449: l_new.attribute5 := p_lpn_table(lpn_tbl_cnt).attribute5;
2450: END IF;
2451:
2452: l_progress := 'Update attribute6';
2453: IF ( p_lpn_table(lpn_tbl_cnt).attribute6 = FND_API.G_MISS_CHAR ) THEN
2454: l_new.attribute6 := NULL;
2455: ELSIF ( p_lpn_table(lpn_tbl_cnt).attribute6 IS NOT NULL ) THEN
2456: l_new.attribute6 := p_lpn_table(lpn_tbl_cnt).attribute6;
2457: END IF;
2456: l_new.attribute6 := p_lpn_table(lpn_tbl_cnt).attribute6;
2457: END IF;
2458:
2459: l_progress := 'Update attribute7';
2460: IF ( p_lpn_table(lpn_tbl_cnt).attribute7 = FND_API.G_MISS_CHAR ) THEN
2461: l_new.attribute7 := NULL;
2462: ELSIF ( p_lpn_table(lpn_tbl_cnt).attribute7 IS NOT NULL ) THEN
2463: l_new.attribute7 := p_lpn_table(lpn_tbl_cnt).attribute7;
2464: END IF;
2463: l_new.attribute7 := p_lpn_table(lpn_tbl_cnt).attribute7;
2464: END IF;
2465:
2466: l_progress := 'Update attribute8';
2467: IF ( p_lpn_table(lpn_tbl_cnt).attribute8 = FND_API.G_MISS_CHAR ) THEN
2468: l_new.attribute8 := NULL;
2469: ELSIF ( p_lpn_table(lpn_tbl_cnt).attribute8 IS NOT NULL ) THEN
2470: l_new.attribute8 := p_lpn_table(lpn_tbl_cnt).attribute8;
2471: END IF;
2470: l_new.attribute8 := p_lpn_table(lpn_tbl_cnt).attribute8;
2471: END IF;
2472:
2473: l_progress := 'Update attribute9';
2474: IF ( p_lpn_table(lpn_tbl_cnt).attribute9 = FND_API.G_MISS_CHAR ) THEN
2475: l_new.attribute9 := NULL;
2476: ELSIF ( p_lpn_table(lpn_tbl_cnt).attribute9 IS NOT NULL ) THEN
2477: l_new.attribute9 := p_lpn_table(lpn_tbl_cnt).attribute9;
2478: END IF;
2477: l_new.attribute9 := p_lpn_table(lpn_tbl_cnt).attribute9;
2478: END IF;
2479:
2480: l_progress := 'Update attribute10';
2481: IF ( p_lpn_table(lpn_tbl_cnt).attribute10 = FND_API.G_MISS_CHAR ) THEN
2482: l_new.attribute10 := NULL;
2483: ELSIF ( p_lpn_table(lpn_tbl_cnt).attribute10 IS NOT NULL ) THEN
2484: l_new.attribute10 := p_lpn_table(lpn_tbl_cnt).attribute10;
2485: END IF;
2484: l_new.attribute10 := p_lpn_table(lpn_tbl_cnt).attribute10;
2485: END IF;
2486:
2487: l_progress := 'Update attribute11';
2488: IF ( p_lpn_table(lpn_tbl_cnt).attribute11 = FND_API.G_MISS_CHAR ) THEN
2489: l_new.attribute11 := NULL;
2490: ELSIF ( p_lpn_table(lpn_tbl_cnt).attribute11 IS NOT NULL ) THEN
2491: l_new.attribute11 := p_lpn_table(lpn_tbl_cnt).attribute11;
2492: END IF;
2491: l_new.attribute11 := p_lpn_table(lpn_tbl_cnt).attribute11;
2492: END IF;
2493:
2494: l_progress := 'Update attribute12';
2495: IF ( p_lpn_table(lpn_tbl_cnt).attribute12 = FND_API.G_MISS_CHAR ) THEN
2496: l_new.attribute12 := NULL;
2497: ELSIF ( p_lpn_table(lpn_tbl_cnt).attribute12 IS NOT NULL ) THEN
2498: l_new.attribute12 := p_lpn_table(lpn_tbl_cnt).attribute12;
2499: END IF;
2498: l_new.attribute12 := p_lpn_table(lpn_tbl_cnt).attribute12;
2499: END IF;
2500:
2501: l_progress := 'Update attribute13';
2502: IF ( p_lpn_table(lpn_tbl_cnt).attribute13 = FND_API.G_MISS_CHAR ) THEN
2503: l_new.attribute13 := NULL;
2504: ELSIF ( p_lpn_table(lpn_tbl_cnt).attribute13 IS NOT NULL ) THEN
2505: l_new.attribute13 := p_lpn_table(lpn_tbl_cnt).attribute13;
2506: END IF;
2505: l_new.attribute13 := p_lpn_table(lpn_tbl_cnt).attribute13;
2506: END IF;
2507:
2508: l_progress := 'Update attribute14';
2509: IF ( p_lpn_table(lpn_tbl_cnt).attribute14 = FND_API.G_MISS_CHAR ) THEN
2510: l_new.attribute14 := NULL;
2511: ELSIF ( p_lpn_table(lpn_tbl_cnt).attribute14 IS NOT NULL ) THEN
2512: l_new.attribute14 := p_lpn_table(lpn_tbl_cnt).attribute14;
2513: END IF;
2512: l_new.attribute14 := p_lpn_table(lpn_tbl_cnt).attribute14;
2513: END IF;
2514:
2515: l_progress := 'Update attribute15';
2516: IF ( p_lpn_table(lpn_tbl_cnt).attribute15 = FND_API.G_MISS_CHAR ) THEN
2517: l_new.attribute15 := NULL;
2518: ELSIF ( p_lpn_table(lpn_tbl_cnt).attribute15 IS NOT NULL ) THEN
2519: l_new.attribute15 := p_lpn_table(lpn_tbl_cnt).attribute15;
2520: END IF;
2525: l_progress := 'Updating parent_lpn_id is retructed to PackUnpack_Container API';
2526: fnd_message.set_name('WMS', 'WMS_UPDATE_LPN_ATTR_ERR');
2527: fnd_message.set_token('ATTR', 'parent_lpn_id');
2528: fnd_msg_pub.ADD;
2529: RAISE fnd_api.g_exc_error;
2530: ELSIF ( p_lpn_table(lpn_tbl_cnt).parent_lpn_id = FND_API.G_MISS_NUM ) THEN
2531: -- UNPACKING LPN
2532: l_new.parent_lpn_id := NULL;
2533: l_new.outermost_lpn_id := l_new.lpn_id;
2526: fnd_message.set_name('WMS', 'WMS_UPDATE_LPN_ATTR_ERR');
2527: fnd_message.set_token('ATTR', 'parent_lpn_id');
2528: fnd_msg_pub.ADD;
2529: RAISE fnd_api.g_exc_error;
2530: ELSIF ( p_lpn_table(lpn_tbl_cnt).parent_lpn_id = FND_API.G_MISS_NUM ) THEN
2531: -- UNPACKING LPN
2532: l_new.parent_lpn_id := NULL;
2533: l_new.outermost_lpn_id := l_new.lpn_id;
2534: ELSIF ( l_old.parent_lpn_id IS NOT NULL ) THEN
2535: -- Nesting an lpn that is already nested not allowed in a single
2536: -- operaiton. Must unpack LPN before packing into new LPN
2537: fnd_message.set_name('WMS', 'WMS_LPN_ALREADY_NESTED_ERR');
2538: fnd_msg_pub.ADD;
2539: RAISE fnd_api.g_exc_error;
2540: ELSE
2541: -- PACKING LPN
2542: l_new.parent_lpn_id := p_lpn_table(lpn_tbl_cnt).parent_lpn_id;
2543:
2613: , p_volume_change => l_change_in_volume
2614: , p_volume_uom_change => l_change_in_volume_uom
2615: );
2616:
2617: IF ( x_return_status <> fnd_api.g_ret_sts_success) THEN
2618: IF (l_debug = 1) THEN
2619: mdebug('Call to WMS_CONTAINER_PVT.Update_Locator_capacity failed !!!');
2620: END IF;
2621: END IF;
2965: p_lpn_table(lpn_tbl_cnt).source_line_detail_id <> NVL(l_old.source_line_detail_id , G_NULL_NUM)OR
2966: p_lpn_table(lpn_tbl_cnt).source_name <> NVL(l_old.source_name, G_NULL_CHAR) )
2967: THEN
2968: l_progress := 'Organization';
2969: IF ( p_lpn_table(lpn_tbl_cnt).organization_id = FND_API.G_MISS_NUM ) THEN
2970: l_progress := 'organization_id cannot be made null';
2971: fnd_message.set_name('WMS', 'WMS_UPDATE_LPN_ATTR_ERR');
2972: fnd_message.set_token('ATTR', 'organization_id');
2973: fnd_msg_pub.ADD;
2970: l_progress := 'organization_id cannot be made null';
2971: fnd_message.set_name('WMS', 'WMS_UPDATE_LPN_ATTR_ERR');
2972: fnd_message.set_token('ATTR', 'organization_id');
2973: fnd_msg_pub.ADD;
2974: RAISE fnd_api.g_exc_error;
2975: ELSIF ( p_lpn_table(lpn_tbl_cnt).organization_id <> l_old.organization_id ) THEN
2976: l_new.organization_id := p_lpn_table(lpn_tbl_cnt).organization_id;
2977:
2978: --Bug # 3516547
2991: THEN
2992: l_progress := 'Error calling INV_CACHE.Set_Item_Rec for orgid='||l_old.organization_id||' item id='||new_org.inventory_item_id;
2993: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
2994: fnd_msg_pub.ADD;
2995: RAISE fnd_api.g_exc_error;
2996: END IF;
2997:
2998: IF (l_debug = 1) THEN
2999: 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||
3013: END LOOP;
3014: END IF;
3015:
3016: l_progress := 'Subiventory';
3017: IF ( p_lpn_table(lpn_tbl_cnt).subinventory_code = FND_API.G_MISS_CHAR ) THEN
3018: l_new.subinventory_code := NULL;
3019: ELSIF ( p_lpn_table(lpn_tbl_cnt).subinventory_code IS NOT NULL ) THEN
3020: l_new.subinventory_code := p_lpn_table(lpn_tbl_cnt).subinventory_code;
3021: END IF;
3020: l_new.subinventory_code := p_lpn_table(lpn_tbl_cnt).subinventory_code;
3021: END IF;
3022:
3023: l_progress := 'Locator';
3024: IF ( p_lpn_table(lpn_tbl_cnt).locator_id = FND_API.G_MISS_NUM ) THEN
3025: l_new.locator_id := NULL;
3026: ELSIF ( p_lpn_table(lpn_tbl_cnt).locator_id IS NOT NULL ) THEN
3027: l_new.locator_id := p_lpn_table(lpn_tbl_cnt).locator_id;
3028: END IF;
3027: l_new.locator_id := p_lpn_table(lpn_tbl_cnt).locator_id;
3028: END IF;
3029:
3030: l_progress := 'source_type_id';
3031: IF ( p_lpn_table(lpn_tbl_cnt).source_type_id = FND_API.G_MISS_NUM ) THEN
3032: l_new.source_type_id := NULL;
3033: ELSIF ( p_lpn_table(lpn_tbl_cnt).source_type_id IS NOT NULL ) THEN
3034: l_new.source_type_id := p_lpn_table(lpn_tbl_cnt).source_type_id;
3035: END IF;
3034: l_new.source_type_id := p_lpn_table(lpn_tbl_cnt).source_type_id;
3035: END IF;
3036:
3037: l_progress := 'source_header_id';
3038: IF ( p_lpn_table(lpn_tbl_cnt).source_header_id = FND_API.G_MISS_NUM ) THEN
3039: l_new.source_header_id := NULL;
3040: ELSIF ( p_lpn_table(lpn_tbl_cnt).source_header_id IS NOT NULL ) THEN
3041: l_new.source_header_id := p_lpn_table(lpn_tbl_cnt).source_header_id;
3042: END IF;
3041: l_new.source_header_id := p_lpn_table(lpn_tbl_cnt).source_header_id;
3042: END IF;
3043:
3044: l_progress := 'source_line_id';
3045: IF ( p_lpn_table(lpn_tbl_cnt).source_line_id = FND_API.G_MISS_NUM ) THEN
3046: l_new.source_line_id := NULL;
3047: ELSIF ( p_lpn_table(lpn_tbl_cnt).source_line_id IS NOT NULL ) THEN
3048: l_new.source_line_id := p_lpn_table(lpn_tbl_cnt).source_line_id;
3049: END IF;
3048: l_new.source_line_id := p_lpn_table(lpn_tbl_cnt).source_line_id;
3049: END IF;
3050:
3051: l_progress := 'source_line_detail_id';
3052: IF ( p_lpn_table(lpn_tbl_cnt).source_line_detail_id = FND_API.G_MISS_NUM ) THEN
3053: l_new.source_line_detail_id := NULL;
3054: ELSIF ( p_lpn_table(lpn_tbl_cnt).source_line_detail_id IS NOT NULL ) THEN
3055: l_new.source_line_detail_id := p_lpn_table(lpn_tbl_cnt).source_line_detail_id;
3056: END IF;
3055: l_new.source_line_detail_id := p_lpn_table(lpn_tbl_cnt).source_line_detail_id;
3056: END IF;
3057:
3058: l_progress := 'source_name';
3059: IF ( p_lpn_table(lpn_tbl_cnt).source_name = FND_API.G_MISS_CHAR ) THEN
3060: l_new.source_name := NULL;
3061: ELSIF ( p_lpn_table(lpn_tbl_cnt).source_name IS NOT NULL ) THEN
3062: l_new.source_name := p_lpn_table(lpn_tbl_cnt).source_name;
3063: END IF;
3063: END IF;
3064:
3065: l_progress := 'Context';
3066: -- Must to context after sub and loc!
3067: IF ( p_lpn_table(lpn_tbl_cnt).lpn_context = FND_API.G_MISS_NUM ) THEN
3068: l_progress := 'LPN context cannot be made null';
3069: fnd_message.set_name('WMS', 'WMS_UPDATE_LPN_ATTR_ERR');
3070: fnd_message.set_token('ATTR', 'lpn_context');
3071: fnd_msg_pub.ADD;
3068: l_progress := 'LPN context cannot be made null';
3069: fnd_message.set_name('WMS', 'WMS_UPDATE_LPN_ATTR_ERR');
3070: fnd_message.set_token('ATTR', 'lpn_context');
3071: fnd_msg_pub.ADD;
3072: RAISE fnd_api.g_exc_error;
3073: ELSIF ( p_lpn_table(lpn_tbl_cnt).lpn_context <> l_old.lpn_context ) THEN
3074: l_new.lpn_context := p_lpn_table(lpn_tbl_cnt).lpn_context;
3075:
3076: l_progress := 'Call API to validate context change';
3075:
3076: l_progress := 'Call API to validate context change';
3077: IF ( NOT Valid_Context_Change(p_caller, l_old.lpn_context, l_new.lpn_context) ) THEN
3078: l_progress := 'Failed Valid_Context_Change check';
3079: RAISE fnd_api.g_exc_error;
3080: END IF;
3081:
3082: IF ( l_new.lpn_context = LPN_CONTEXT_STORES OR
3083: l_new.lpn_context = LPN_CONTEXT_PREGENERATED OR
3229: l_IN_rec.action_code := 'CREATE';
3230:
3231: WSH_WMS_LPN_GRP.Create_Update_Containers (
3232: p_api_version => 1.0
3233: , p_init_msg_list => fnd_api.g_false
3234: , p_commit => fnd_api.g_false
3235: , x_return_status => x_return_status
3236: , x_msg_count => x_msg_count
3237: , x_msg_data => x_msg_data
3230:
3231: WSH_WMS_LPN_GRP.Create_Update_Containers (
3232: p_api_version => 1.0
3233: , p_init_msg_list => fnd_api.g_false
3234: , p_commit => fnd_api.g_false
3235: , x_return_status => x_return_status
3236: , x_msg_count => x_msg_count
3237: , x_msg_data => x_msg_data
3238: , p_detail_info_tab => wsh_create_tbl
3238: , p_detail_info_tab => wsh_create_tbl
3239: , p_IN_rec => l_IN_rec
3240: , x_OUT_rec => l_OUT_rec );
3241:
3242: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
3243: IF (l_debug = 1) THEN
3244: mdebug('Create_Update_Containers Failed, May alreade exist in WDD, Try update instead', G_ERROR);
3245: FOR i in 1..x_msg_count LOOP
3246: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
3250: l_IN_rec.action_code := 'UPDATE';
3251:
3252: WSH_WMS_LPN_GRP.Create_Update_Containers (
3253: p_api_version => 1.0
3254: , p_init_msg_list => fnd_api.g_false
3255: , p_commit => fnd_api.g_false
3256: , x_return_status => x_return_status
3257: , x_msg_count => x_msg_count
3258: , x_msg_data => x_msg_data
3251:
3252: WSH_WMS_LPN_GRP.Create_Update_Containers (
3253: p_api_version => 1.0
3254: , p_init_msg_list => fnd_api.g_false
3255: , p_commit => fnd_api.g_false
3256: , x_return_status => x_return_status
3257: , x_msg_count => x_msg_count
3258: , x_msg_data => x_msg_data
3259: , p_detail_info_tab => wsh_create_tbl
3260: , p_IN_rec => l_IN_rec
3261: , x_OUT_rec => l_OUT_rec );
3262: END IF;
3263:
3264: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
3265: IF (l_debug = 1) THEN
3266: mdebug('WSH Create Containers Failed', G_ERROR);
3267: END IF;
3268: RAISE fnd_api.g_exc_error;
3264: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
3265: IF (l_debug = 1) THEN
3266: mdebug('WSH Create Containers Failed', G_ERROR);
3267: END IF;
3268: RAISE fnd_api.g_exc_error;
3269: ELSIF ( l_debug = 1 ) THEN
3270: mdebug('Done with Create_Update_Containers', G_INFO);
3271: END IF;
3272:
3284: l_IN_rec.action_code := 'UPDATE';
3285:
3286: WSH_WMS_LPN_GRP.Create_Update_Containers (
3287: p_api_version => 1.0
3288: , p_init_msg_list => fnd_api.g_false
3289: , p_commit => fnd_api.g_false
3290: , x_return_status => x_return_status
3291: , x_msg_count => x_msg_count
3292: , x_msg_data => x_msg_data
3285:
3286: WSH_WMS_LPN_GRP.Create_Update_Containers (
3287: p_api_version => 1.0
3288: , p_init_msg_list => fnd_api.g_false
3289: , p_commit => fnd_api.g_false
3290: , x_return_status => x_return_status
3291: , x_msg_count => x_msg_count
3292: , x_msg_data => x_msg_data
3293: , p_detail_info_tab => wsh_update_tbl
3293: , p_detail_info_tab => wsh_update_tbl
3294: , p_IN_rec => l_IN_rec
3295: , x_OUT_rec => l_OUT_rec );
3296:
3297: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
3298: IF (l_debug = 1) THEN
3299: mdebug('Create_Update_Containers Failed, Might not yet exist in WDD, Try create instead', G_ERROR);
3300: FOR i in 1..x_msg_count LOOP
3301: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
3305: l_IN_rec.action_code := 'CREATE';
3306:
3307: WSH_WMS_LPN_GRP.Create_Update_Containers (
3308: p_api_version => 1.0
3309: , p_init_msg_list => fnd_api.g_false
3310: , p_commit => fnd_api.g_false
3311: , x_return_status => x_return_status
3312: , x_msg_count => x_msg_count
3313: , x_msg_data => x_msg_data
3306:
3307: WSH_WMS_LPN_GRP.Create_Update_Containers (
3308: p_api_version => 1.0
3309: , p_init_msg_list => fnd_api.g_false
3310: , p_commit => fnd_api.g_false
3311: , x_return_status => x_return_status
3312: , x_msg_count => x_msg_count
3313: , x_msg_data => x_msg_data
3314: , p_detail_info_tab => wsh_update_tbl
3315: , p_IN_rec => l_IN_rec
3316: , x_OUT_rec => l_OUT_rec );
3317: END IF;
3318:
3319: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
3320: IF (l_debug = 1) THEN
3321: mdebug('WSH Update Containers Failed', G_ERROR);
3322: END IF;
3323: RAISE fnd_api.g_exc_error;
3319: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
3320: IF (l_debug = 1) THEN
3321: mdebug('WSH Update Containers Failed', G_ERROR);
3322: END IF;
3323: RAISE fnd_api.g_exc_error;
3324: ELSIF ( l_debug = 1 ) THEN
3325: mdebug('Done with Create_Update_Containers', G_INFO);
3326: END IF;
3327:
3345: l_wsh_action_prms.action_code := 'UNPACK';
3346:
3347: WSH_WMS_LPN_GRP.Delivery_Detail_Action (
3348: p_api_version_number => 1.0
3349: , p_init_msg_list => fnd_api.g_false
3350: , p_commit => fnd_api.g_false
3351: , x_return_status => x_return_status
3352: , x_msg_count => x_msg_count
3353: , x_msg_data => x_msg_data
3346:
3347: WSH_WMS_LPN_GRP.Delivery_Detail_Action (
3348: p_api_version_number => 1.0
3349: , p_init_msg_list => fnd_api.g_false
3350: , p_commit => fnd_api.g_false
3351: , x_return_status => x_return_status
3352: , x_msg_count => x_msg_count
3353: , x_msg_data => x_msg_data
3354: , p_lpn_id_tbl => l_wsh_unpack_lpn_id_tbl
3356: , p_action_prms => l_wsh_action_prms
3357: , x_defaults => l_wsh_defaults
3358: , x_action_out_rec => l_wsh_action_out_rec );
3359:
3360: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
3361: l_progress := 'Delivery_Detail_Action failed';
3362: --RAISE fnd_api.g_exc_error;
3363:
3364: IF ( x_return_status = fnd_api.g_ret_sts_error ) THEN
3358: , x_action_out_rec => l_wsh_action_out_rec );
3359:
3360: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
3361: l_progress := 'Delivery_Detail_Action failed';
3362: --RAISE fnd_api.g_exc_error;
3363:
3364: IF ( x_return_status = fnd_api.g_ret_sts_error ) THEN
3365: RAISE fnd_api.g_exc_error;
3366: ELSIF ( l_debug = 1 ) THEN
3360: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
3361: l_progress := 'Delivery_Detail_Action failed';
3362: --RAISE fnd_api.g_exc_error;
3363:
3364: IF ( x_return_status = fnd_api.g_ret_sts_error ) THEN
3365: RAISE fnd_api.g_exc_error;
3366: ELSIF ( l_debug = 1 ) THEN
3367: mdebug('x_return_status='||x_return_status, G_INFO);
3368: END IF;
3361: l_progress := 'Delivery_Detail_Action failed';
3362: --RAISE fnd_api.g_exc_error;
3363:
3364: IF ( x_return_status = fnd_api.g_ret_sts_error ) THEN
3365: RAISE fnd_api.g_exc_error;
3366: ELSIF ( l_debug = 1 ) THEN
3367: mdebug('x_return_status='||x_return_status, G_INFO);
3368: END IF;
3369: ELSIF (l_debug = 1) THEN
3385: l_wsh_action_prms.action_code := 'DELETE';
3386:
3387: WSH_WMS_LPN_GRP.Delivery_Detail_Action (
3388: p_api_version_number => 1.0
3389: , p_init_msg_list => fnd_api.g_false
3390: , p_commit => fnd_api.g_false
3391: , x_return_status => x_return_status
3392: , x_msg_count => x_msg_count
3393: , x_msg_data => x_msg_data
3386:
3387: WSH_WMS_LPN_GRP.Delivery_Detail_Action (
3388: p_api_version_number => 1.0
3389: , p_init_msg_list => fnd_api.g_false
3390: , p_commit => fnd_api.g_false
3391: , x_return_status => x_return_status
3392: , x_msg_count => x_msg_count
3393: , x_msg_data => x_msg_data
3394: , p_lpn_id_tbl => l_wsh_delete_lpn_id_tbl
3396: , p_action_prms => l_wsh_action_prms
3397: , x_defaults => l_wsh_defaults
3398: , x_action_out_rec => l_wsh_action_out_rec );
3399:
3400: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
3401: IF (l_debug = 1) THEN
3402: mdebug('Delivery_Detail_Action Not Successful', G_ERROR);
3403: END IF;
3404:
3401: IF (l_debug = 1) THEN
3402: mdebug('Delivery_Detail_Action Not Successful', G_ERROR);
3403: END IF;
3404:
3405: IF ( x_return_status = fnd_api.g_ret_sts_error ) THEN
3406: RAISE fnd_api.g_exc_error;
3407: ELSIF ( l_debug = 1 ) THEN
3408: mdebug('x_return_status='||x_return_status, G_INFO);
3409: END IF;
3402: mdebug('Delivery_Detail_Action Not Successful', G_ERROR);
3403: END IF;
3404:
3405: IF ( x_return_status = fnd_api.g_ret_sts_error ) THEN
3406: RAISE fnd_api.g_exc_error;
3407: ELSIF ( l_debug = 1 ) THEN
3408: mdebug('x_return_status='||x_return_status, G_INFO);
3409: END IF;
3410: ELSIF ( l_debug = 1 ) THEN
3491: END IF;
3492: fnd_message.set_name('WMS', 'WMS_CONT_DUPLICATE_LPN');
3493: fnd_message.set_token('LPN', l_lpn_bulk_rec.license_plate_number(bulk_i));
3494: fnd_msg_pub.ADD;
3495: RAISE fnd_api.g_exc_error;
3496: EXCEPTION
3497: WHEN NO_DATA_FOUND THEN
3498: NULL;
3499: END;
3538: END IF;
3539: END IF;
3540:
3541: -- Standard check of p_commit.
3542: IF fnd_api.to_boolean(p_commit) THEN
3543: COMMIT WORK;
3544: END IF;
3545:
3546: -- Standard call to get message count and data
3545:
3546: -- Standard call to get message count and data
3547: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3548: EXCEPTION
3549: WHEN FND_API.G_EXC_ERROR THEN
3550: x_return_status := fnd_api.g_ret_sts_error;
3551: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3552: IF (l_debug = 1) THEN
3553: FOR i in 1..x_msg_count LOOP
3546: -- Standard call to get message count and data
3547: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3548: EXCEPTION
3549: WHEN FND_API.G_EXC_ERROR THEN
3550: x_return_status := fnd_api.g_ret_sts_error;
3551: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3552: IF (l_debug = 1) THEN
3553: FOR i in 1..x_msg_count LOOP
3554: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
3557: mdebug('msg: '||l_msgdata, G_ERROR);
3558: END IF;
3559: ROLLBACK TO MODIFY_LPNS_PVT;
3560: --WHEN NOWAIT THEN
3561: -- x_return_status := fnd_api.g_ret_sts_unexp_error;
3562: WHEN OTHERS THEN
3563: x_return_status := fnd_api.g_ret_sts_unexp_error;
3564: fnd_message.set_name('WMS', 'WMS_UPDATE_LPN_FAILED');
3565: fnd_msg_pub.ADD;
3559: ROLLBACK TO MODIFY_LPNS_PVT;
3560: --WHEN NOWAIT THEN
3561: -- x_return_status := fnd_api.g_ret_sts_unexp_error;
3562: WHEN OTHERS THEN
3563: x_return_status := fnd_api.g_ret_sts_unexp_error;
3564: fnd_message.set_name('WMS', 'WMS_UPDATE_LPN_FAILED');
3565: fnd_msg_pub.ADD;
3566: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3567: IF (l_debug = 1) THEN
3625: x_return_status => x_return_status
3626: , x_msg_count => x_msg_count
3627: , x_msg_data => x_msg_data
3628: , p_organization_id => p_organization_id );
3629: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
3630: IF ( l_debug = 1 ) THEN
3631: mdebug('Call to wms_install.check_install failed:' ||x_msg_data, 1);
3632: END IF;
3633: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3629: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
3630: IF ( l_debug = 1 ) THEN
3631: mdebug('Call to wms_install.check_install failed:' ||x_msg_data, 1);
3632: END IF;
3633: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3634: END IF;
3635:
3636: IF ( NOT l_wms_org_flag ) THEN
3637: IF ( l_debug = 1 ) THEN
3638: mdebug('Generate License Plate concurrent program is only available for WMS enabled organizations', 1);
3639: END IF;
3640: fnd_message.set_name('WMS', 'WMS_ONLY_FUNCTIONALITY');
3641: fnd_msg_pub.ADD;
3642: RAISE fnd_api.g_exc_error;
3643: END IF;
3644:
3645: --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
3646: --'N' will be passed only if it is having some values(2) other than 1
3653: -- Bug 4691144 If the default from org parameters is set to 'no'
3654: -- Set prefix and suffix to NULL.
3655: IF ( p_org_parameters = 2 ) THEN
3656: IF ( p_lpn_prefix IS NULL ) THEN
3657: l_lpn_prefix := FND_API.G_MISS_CHAR;
3658: ELSE
3659: l_lpn_prefix := p_lpn_prefix;
3660: END IF;
3661:
3659: l_lpn_prefix := p_lpn_prefix;
3660: END IF;
3661:
3662: IF ( p_lpn_suffix IS NULL ) THEN
3663: l_lpn_suffix := FND_API.G_MISS_CHAR;
3664: ELSE
3665: l_lpn_suffix := p_lpn_suffix;
3666: END IF;
3667: END IF;
3679: l_serial_tbl(1).to_serial_number := p_to_serial_number;
3680:
3681: Auto_Create_LPNs (
3682: p_api_version => p_api_version
3683: , p_init_msg_list => fnd_api.g_false
3684: , p_commit => fnd_api.g_false
3685: , x_return_status => x_return_status
3686: , x_msg_count => x_msg_count
3687: , x_msg_data => x_msg_data
3680:
3681: Auto_Create_LPNs (
3682: p_api_version => p_api_version
3683: , p_init_msg_list => fnd_api.g_false
3684: , p_commit => fnd_api.g_false
3685: , x_return_status => x_return_status
3686: , x_msg_count => x_msg_count
3687: , x_msg_data => x_msg_data
3688: , p_caller => 'WMS_Generate_LPN_CP'
3695: , p_lpn_attributes => l_lpn_att_rec
3696: , p_serial_ranges => l_serial_tbl
3697: , x_created_lpns => l_gen_lpn_tbl );
3698:
3699: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
3700: ret := fnd_concurrent.set_completion_status('NORMAL', x_msg_data);
3701: retcode := 0;
3702: ELSE
3703: ret := fnd_concurrent.set_completion_status('ERROR', x_msg_data);
3712: *
3713: *********************************************************************************/
3714: PROCEDURE Generate_LPN (
3715: p_api_version IN NUMBER
3716: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
3717: , p_commit IN VARCHAR2 := fnd_api.g_false
3718: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
3719: , x_return_status OUT NOCOPY VARCHAR2
3720: , x_msg_count OUT NOCOPY NUMBER
3713: *********************************************************************************/
3714: PROCEDURE Generate_LPN (
3715: p_api_version IN NUMBER
3716: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
3717: , p_commit IN VARCHAR2 := fnd_api.g_false
3718: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
3719: , x_return_status OUT NOCOPY VARCHAR2
3720: , x_msg_count OUT NOCOPY NUMBER
3721: , x_msg_data OUT NOCOPY VARCHAR2
3714: PROCEDURE Generate_LPN (
3715: p_api_version IN NUMBER
3716: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
3717: , p_commit IN VARCHAR2 := fnd_api.g_false
3718: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
3719: , x_return_status OUT NOCOPY VARCHAR2
3720: , x_msg_count OUT NOCOPY NUMBER
3721: , x_msg_data OUT NOCOPY VARCHAR2
3722: , p_organization_id IN NUMBER
3767: --mdebug('p_total_length='||p_total_length||', p_ucc_128_suf='||p_ucc_128_suffix_flag);
3768: END IF;
3769:
3770: -- Standard call to check for call compatibility.
3771: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
3772: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
3773: fnd_msg_pub.ADD;
3774: RAISE fnd_api.g_exc_unexpected_error;
3775: END IF;
3770: -- Standard call to check for call compatibility.
3771: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
3772: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
3773: fnd_msg_pub.ADD;
3774: RAISE fnd_api.g_exc_unexpected_error;
3775: END IF;
3776:
3777: -- Initialize message list if p_init_msg_list is set to TRUE.
3778: IF fnd_api.to_boolean(p_init_msg_list) THEN
3774: RAISE fnd_api.g_exc_unexpected_error;
3775: END IF;
3776:
3777: -- Initialize message list if p_init_msg_list is set to TRUE.
3778: IF fnd_api.to_boolean(p_init_msg_list) THEN
3779: fnd_msg_pub.initialize;
3780: END IF;
3781:
3782: -- Initialize API return status to success
3779: fnd_msg_pub.initialize;
3780: END IF;
3781:
3782: -- Initialize API return status to success
3783: x_return_status := fnd_api.g_ret_sts_success;
3784:
3785: l_lpn_att_rec.lpn_context := p_source;
3786: l_lpn_att_rec.organization_id := p_organization_id;
3787: l_lpn_att_rec.subinventory_code := p_subinventory;
3800: l_serial_tbl(1).to_serial_number := p_to_serial_number;
3801:
3802: Auto_Create_LPNs (
3803: p_api_version => p_api_version
3804: , p_init_msg_list => fnd_api.g_false
3805: , p_commit => fnd_api.g_false
3806: , x_return_status => x_return_status
3807: , x_msg_count => x_msg_count
3808: , x_msg_data => x_msg_data
3801:
3802: Auto_Create_LPNs (
3803: p_api_version => p_api_version
3804: , p_init_msg_list => fnd_api.g_false
3805: , p_commit => fnd_api.g_false
3806: , x_return_status => x_return_status
3807: , x_msg_count => x_msg_count
3808: , x_msg_data => x_msg_data
3809: , p_caller => 'Generate_LPN'
3816: , p_lpn_attributes => l_lpn_att_rec
3817: , p_serial_ranges => l_serial_tbl
3818: , x_created_lpns => l_gen_lpn_tbl );
3819:
3820: IF ( x_return_status = fnd_api.g_ret_sts_success ) THEN
3821: IF ( p_quantity = 1 ) THEN
3822: p_lpn_id_out := l_gen_lpn_tbl(1).lpn_id;
3823: p_lpn_out := l_gen_lpn_tbl(1).license_plate_number;
3824: ELSE
3843: p_process_id
3844: , l_lpn_bulk_rec.lpn_id(i) );
3845: END IF;
3846: ELSE
3847: RAISE fnd_api.g_exc_error;
3848: END IF;
3849:
3850: -- Standard check of p_commit.
3851: IF fnd_api.to_boolean(p_commit) THEN
3847: RAISE fnd_api.g_exc_error;
3848: END IF;
3849:
3850: -- Standard check of p_commit.
3851: IF fnd_api.to_boolean(p_commit) THEN
3852: COMMIT WORK;
3853: END IF;
3854:
3855: -- Standard call to get message count and if count is 1,
3855: -- Standard call to get message count and if count is 1,
3856: -- get message info.
3857: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3858: EXCEPTION
3859: WHEN fnd_api.g_exc_error THEN
3860: --fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
3861: --fnd_msg_pub.ADD;
3862: ROLLBACK TO GENERATE_LPN_PVT;
3863: x_return_status := fnd_api.g_ret_sts_error;
3859: WHEN fnd_api.g_exc_error THEN
3860: --fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
3861: --fnd_msg_pub.ADD;
3862: ROLLBACK TO GENERATE_LPN_PVT;
3863: x_return_status := fnd_api.g_ret_sts_error;
3864: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3865: WHEN fnd_api.g_exc_unexpected_error THEN
3866: fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
3867: fnd_msg_pub.ADD;
3861: --fnd_msg_pub.ADD;
3862: ROLLBACK TO GENERATE_LPN_PVT;
3863: x_return_status := fnd_api.g_ret_sts_error;
3864: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3865: WHEN fnd_api.g_exc_unexpected_error THEN
3866: fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
3867: fnd_msg_pub.ADD;
3868: ROLLBACK TO GENERATE_LPN_PVT;
3869: x_return_status := fnd_api.g_ret_sts_unexp_error;
3865: WHEN fnd_api.g_exc_unexpected_error THEN
3866: fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
3867: fnd_msg_pub.ADD;
3868: ROLLBACK TO GENERATE_LPN_PVT;
3869: x_return_status := fnd_api.g_ret_sts_unexp_error;
3870: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3871: WHEN OTHERS THEN
3872: fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
3873: fnd_msg_pub.ADD;
3871: WHEN OTHERS THEN
3872: fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
3873: fnd_msg_pub.ADD;
3874: ROLLBACK TO GENERATE_LPN_PVT;
3875: x_return_status := fnd_api.g_ret_sts_unexp_error;
3876:
3877: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3878: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
3879: END IF;
3885: -- ----------------------------------------------------------------------------------
3886: -- ----------------------------------------------------------------------------------
3887: PROCEDURE associate_lpn(
3888: p_api_version IN NUMBER,
3889: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
3890: p_commit IN VARCHAR2 := fnd_api.g_false,
3891: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
3892: x_return_status OUT NOCOPY VARCHAR2,
3893: x_msg_count OUT NOCOPY NUMBER,
3886: -- ----------------------------------------------------------------------------------
3887: PROCEDURE associate_lpn(
3888: p_api_version IN NUMBER,
3889: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
3890: p_commit IN VARCHAR2 := fnd_api.g_false,
3891: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
3892: x_return_status OUT NOCOPY VARCHAR2,
3893: x_msg_count OUT NOCOPY NUMBER,
3894: x_msg_data OUT NOCOPY VARCHAR2,
3887: PROCEDURE associate_lpn(
3888: p_api_version IN NUMBER,
3889: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
3890: p_commit IN VARCHAR2 := fnd_api.g_false,
3891: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
3892: x_return_status OUT NOCOPY VARCHAR2,
3893: x_msg_count OUT NOCOPY NUMBER,
3894: x_msg_data OUT NOCOPY VARCHAR2,
3895: p_lpn_id IN NUMBER,
3916: -- Standard Start of API savepoint
3917: SAVEPOINT ASSOCIATE_LPN_PVT;
3918:
3919: -- Standard call to check for call compatibility.
3920: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
3921: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
3922: fnd_msg_pub.ADD;
3923: RAISE fnd_api.g_exc_unexpected_error;
3924: END IF;
3919: -- Standard call to check for call compatibility.
3920: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
3921: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
3922: fnd_msg_pub.ADD;
3923: RAISE fnd_api.g_exc_unexpected_error;
3924: END IF;
3925:
3926: -- Initialize message list if p_init_msg_list is set to TRUE.
3927: IF fnd_api.to_boolean(p_init_msg_list) THEN
3923: RAISE fnd_api.g_exc_unexpected_error;
3924: END IF;
3925:
3926: -- Initialize message list if p_init_msg_list is set to TRUE.
3927: IF fnd_api.to_boolean(p_init_msg_list) THEN
3928: fnd_msg_pub.initialize;
3929: END IF;
3930:
3931: -- Initialize API return status to success
3928: fnd_msg_pub.initialize;
3929: END IF;
3930:
3931: -- Initialize API return status to success
3932: x_return_status := fnd_api.g_ret_sts_success;
3933:
3934: -- API body
3935: IF (l_debug = 1) THEN
3936: mdebug(l_api_name || ' Entered ' || g_pkg_version, 1);
3957: l_lpn_tbl(1).source_line_detail_id := p_source_line_detail_id;
3958:
3959: Modify_LPNs (
3960: p_api_version => 1.0
3961: , p_init_msg_list => fnd_api.g_false
3962: , p_commit => fnd_api.g_false
3963: , x_return_status => x_return_status
3964: , x_msg_count => x_msg_count
3965: , x_msg_data => x_msg_data
3958:
3959: Modify_LPNs (
3960: p_api_version => 1.0
3961: , p_init_msg_list => fnd_api.g_false
3962: , p_commit => fnd_api.g_false
3963: , x_return_status => x_return_status
3964: , x_msg_count => x_msg_count
3965: , x_msg_data => x_msg_data
3966: , p_caller => l_api_name
3965: , x_msg_data => x_msg_data
3966: , p_caller => l_api_name
3967: , p_lpn_table => l_lpn_tbl );
3968:
3969: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
3970: IF ( l_debug = 1 ) THEN
3971: mdebug('Modify_LPNs failed', G_ERROR);
3972: END IF;
3973: RAISE fnd_api.g_exc_error;
3969: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
3970: IF ( l_debug = 1 ) THEN
3971: mdebug('Modify_LPNs failed', G_ERROR);
3972: END IF;
3973: RAISE fnd_api.g_exc_error;
3974: END IF;
3975:
3976: -- End of API body
3977:
3975:
3976: -- End of API body
3977:
3978: -- Standard check of p_commit.
3979: IF fnd_api.to_boolean(p_commit) THEN
3980: COMMIT WORK;
3981: END IF;
3982:
3983: -- Standard call to get message count and if count is 1,
3983: -- Standard call to get message count and if count is 1,
3984: -- get message info.
3985: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3986: EXCEPTION
3987: WHEN fnd_api.g_exc_error THEN
3988: ROLLBACK TO ASSOCIATE_LPN_PVT;
3989: x_return_status := fnd_api.g_ret_sts_error;
3990: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3991: WHEN fnd_api.g_exc_unexpected_error THEN
3985: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3986: EXCEPTION
3987: WHEN fnd_api.g_exc_error THEN
3988: ROLLBACK TO ASSOCIATE_LPN_PVT;
3989: x_return_status := fnd_api.g_ret_sts_error;
3990: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3991: WHEN fnd_api.g_exc_unexpected_error THEN
3992: ROLLBACK TO ASSOCIATE_LPN_PVT;
3993: x_return_status := fnd_api.g_ret_sts_unexp_error;
3987: WHEN fnd_api.g_exc_error THEN
3988: ROLLBACK TO ASSOCIATE_LPN_PVT;
3989: x_return_status := fnd_api.g_ret_sts_error;
3990: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3991: WHEN fnd_api.g_exc_unexpected_error THEN
3992: ROLLBACK TO ASSOCIATE_LPN_PVT;
3993: x_return_status := fnd_api.g_ret_sts_unexp_error;
3994: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3995: WHEN OTHERS THEN
3989: x_return_status := fnd_api.g_ret_sts_error;
3990: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3991: WHEN fnd_api.g_exc_unexpected_error THEN
3992: ROLLBACK TO ASSOCIATE_LPN_PVT;
3993: x_return_status := fnd_api.g_ret_sts_unexp_error;
3994: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3995: WHEN OTHERS THEN
3996: ROLLBACK TO ASSOCIATE_LPN_PVT;
3997: x_return_status := fnd_api.g_ret_sts_unexp_error;
3993: x_return_status := fnd_api.g_ret_sts_unexp_error;
3994: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3995: WHEN OTHERS THEN
3996: ROLLBACK TO ASSOCIATE_LPN_PVT;
3997: x_return_status := fnd_api.g_ret_sts_unexp_error;
3998:
3999: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4000: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
4001: END IF;
4007: -- ----------------------------------------------------------------------------------
4008:
4009: PROCEDURE Create_LPN (
4010: p_api_version IN NUMBER
4011: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
4012: , p_commit IN VARCHAR2 := fnd_api.g_false
4013: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
4014: , x_return_status OUT NOCOPY VARCHAR2
4015: , x_msg_count OUT NOCOPY NUMBER
4008:
4009: PROCEDURE Create_LPN (
4010: p_api_version IN NUMBER
4011: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
4012: , p_commit IN VARCHAR2 := fnd_api.g_false
4013: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
4014: , x_return_status OUT NOCOPY VARCHAR2
4015: , x_msg_count OUT NOCOPY NUMBER
4016: , x_msg_data OUT NOCOPY VARCHAR2
4009: PROCEDURE Create_LPN (
4010: p_api_version IN NUMBER
4011: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
4012: , p_commit IN VARCHAR2 := fnd_api.g_false
4013: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
4014: , x_return_status OUT NOCOPY VARCHAR2
4015: , x_msg_count OUT NOCOPY NUMBER
4016: , x_msg_data OUT NOCOPY VARCHAR2
4017: , p_lpn IN VARCHAR2
4044: -- Standard Start of API savepoint
4045: SAVEPOINT CREATE_LPN_PVT;
4046:
4047: -- Standard call to check for call compatibility.
4048: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
4049: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
4050: fnd_msg_pub.ADD;
4051: RAISE fnd_api.g_exc_unexpected_error;
4052: END IF;
4047: -- Standard call to check for call compatibility.
4048: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
4049: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
4050: fnd_msg_pub.ADD;
4051: RAISE fnd_api.g_exc_unexpected_error;
4052: END IF;
4053:
4054: -- Initialize message list if p_init_msg_list is set to TRUE.
4055: IF fnd_api.to_boolean(p_init_msg_list) THEN
4051: RAISE fnd_api.g_exc_unexpected_error;
4052: END IF;
4053:
4054: -- Initialize message list if p_init_msg_list is set to TRUE.
4055: IF fnd_api.to_boolean(p_init_msg_list) THEN
4056: fnd_msg_pub.initialize;
4057: END IF;
4058:
4059: -- Initialize API return status to success
4056: fnd_msg_pub.initialize;
4057: END IF;
4058:
4059: -- Initialize API return status to success
4060: x_return_status := fnd_api.g_ret_sts_success;
4061:
4062: -- API body
4063: IF (l_debug = 1) THEN
4064: mdebug(l_api_name || ' Entered ' || g_pkg_version, 1);
4085: l_lpn_tbl(1).source_line_detail_id := p_source_line_detail_id;
4086:
4087: Create_LPNs (
4088: p_api_version => p_api_version
4089: , p_init_msg_list => fnd_api.g_false
4090: , p_commit => fnd_api.g_false
4091: , x_return_status => x_return_status
4092: , x_msg_count => x_msg_count
4093: , x_msg_data => x_msg_data
4086:
4087: Create_LPNs (
4088: p_api_version => p_api_version
4089: , p_init_msg_list => fnd_api.g_false
4090: , p_commit => fnd_api.g_false
4091: , x_return_status => x_return_status
4092: , x_msg_count => x_msg_count
4093: , x_msg_data => x_msg_data
4094: , p_caller => l_api_name
4093: , x_msg_data => x_msg_data
4094: , p_caller => l_api_name
4095: , p_lpn_table => l_lpn_tbl );
4096:
4097: IF ( x_return_status = fnd_api.g_ret_sts_success ) THEN
4098: x_lpn_id := l_lpn_tbl(1).lpn_id;
4099: ELSE
4100: RAISE fnd_api.g_exc_error;
4101: END IF;
4096:
4097: IF ( x_return_status = fnd_api.g_ret_sts_success ) THEN
4098: x_lpn_id := l_lpn_tbl(1).lpn_id;
4099: ELSE
4100: RAISE fnd_api.g_exc_error;
4101: END IF;
4102:
4103: -- Standard check of p_commit.
4104: IF fnd_api.to_boolean(p_commit) THEN
4100: RAISE fnd_api.g_exc_error;
4101: END IF;
4102:
4103: -- Standard check of p_commit.
4104: IF fnd_api.to_boolean(p_commit) THEN
4105: COMMIT WORK;
4106: END IF;
4107:
4108: -- Standard call to get message count and if count is 1,
4108: -- Standard call to get message count and if count is 1,
4109: -- get message info.
4110: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4111: EXCEPTION
4112: WHEN FND_API.G_EXC_ERROR THEN
4113: x_return_status := fnd_api.g_ret_sts_error;
4114: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4115: IF (l_debug = 1) THEN
4116: FOR i in 1..x_msg_count LOOP
4109: -- get message info.
4110: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4111: EXCEPTION
4112: WHEN FND_API.G_EXC_ERROR THEN
4113: x_return_status := fnd_api.g_ret_sts_error;
4114: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4115: IF (l_debug = 1) THEN
4116: FOR i in 1..x_msg_count LOOP
4117: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
4120: mdebug('msg: '||l_msgdata, G_ERROR);
4121: END IF;
4122: ROLLBACK TO CREATE_LPN_PVT;
4123: WHEN OTHERS THEN
4124: x_return_status := fnd_api.g_ret_sts_unexp_error;
4125: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4126: IF (l_debug = 1) THEN
4127: mdebug(l_api_name ||' Error progress= '||l_progress||'SQL error: '|| SQLERRM(SQLCODE), G_ERROR);
4128: END IF;
4133: -- ----------------------------------------------------------------------------------
4134:
4135: PROCEDURE PackUnpack_Container(
4136: p_api_version IN NUMBER
4137: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
4138: , p_commit IN VARCHAR2 := fnd_api.g_false
4139: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
4140: , x_return_status OUT NOCOPY VARCHAR2
4141: , x_msg_count OUT NOCOPY NUMBER
4134:
4135: PROCEDURE PackUnpack_Container(
4136: p_api_version IN NUMBER
4137: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
4138: , p_commit IN VARCHAR2 := fnd_api.g_false
4139: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
4140: , x_return_status OUT NOCOPY VARCHAR2
4141: , x_msg_count OUT NOCOPY NUMBER
4142: , x_msg_data OUT NOCOPY VARCHAR2
4135: PROCEDURE PackUnpack_Container(
4136: p_api_version IN NUMBER
4137: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
4138: , p_commit IN VARCHAR2 := fnd_api.g_false
4139: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
4140: , x_return_status OUT NOCOPY VARCHAR2
4141: , x_msg_count OUT NOCOPY NUMBER
4142: , x_msg_data OUT NOCOPY VARCHAR2
4143: , p_lpn_id IN NUMBER
4328: -- Standard Start of API savepoint
4329: SAVEPOINT PACKUNPACK_CONTAINER;
4330:
4331: -- Standard call to check for call compatibility.
4332: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
4333: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
4334: fnd_msg_pub.ADD;
4335: RAISE fnd_api.g_exc_unexpected_error;
4336: END IF;
4331: -- Standard call to check for call compatibility.
4332: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
4333: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
4334: fnd_msg_pub.ADD;
4335: RAISE fnd_api.g_exc_unexpected_error;
4336: END IF;
4337:
4338: -- Initialize message list if p_init_msg_list is set to TRUE.
4339: IF fnd_api.to_boolean(p_init_msg_list) THEN
4335: RAISE fnd_api.g_exc_unexpected_error;
4336: END IF;
4337:
4338: -- Initialize message list if p_init_msg_list is set to TRUE.
4339: IF fnd_api.to_boolean(p_init_msg_list) THEN
4340: fnd_msg_pub.initialize;
4341: END IF;
4342:
4343: -- Initialize API return status to success
4340: fnd_msg_pub.initialize;
4341: END IF;
4342:
4343: -- Initialize API return status to success
4344: x_return_status := fnd_api.g_ret_sts_success;
4345:
4346: IF ( l_debug = 1 ) THEN
4347: mdebug(l_api_name || ' Entered ' || g_pkg_version, 1);
4348: 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);
4376: mdebug(p_lpn_id || 'is an invalid lpn_id', G_ERROR);
4377: END IF;
4378: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
4379: fnd_msg_pub.ADD;
4380: RAISE fnd_api.g_exc_error;
4381: END IF;
4382:
4383: IF (l_debug = 1) THEN
4384: 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);
4393: l_progress := 'Org passed by user does not match org on LPN';
4394: fnd_message.set_name('WMS', 'WMS_LPN_DIFF_ORG_ERR');
4395: fnd_message.set_token('LPN', l_lpn.license_plate_number);
4396: fnd_msg_pub.ADD;
4397: RAISE fnd_api.g_exc_error;
4398: END IF;
4399:
4400: -- Validate quantities
4401: IF ( NVL(p_quantity, 0) < 0 OR NVL(p_primary_quantity, 0) < 0 ) THEN
4401: IF ( NVL(p_quantity, 0) < 0 OR NVL(p_primary_quantity, 0) < 0 ) THEN
4402: l_progress := 'cannot pass negitive qty to this API';
4403: fnd_message.set_name('WMS', 'WMS_CONT_NEG_QTY');
4404: fnd_msg_pub.ADD;
4405: RAISE fnd_api.g_exc_error;
4406: END IF;
4407:
4408: IF ( p_content_lpn_id IS NOT NULL ) THEN
4409: l_progress := 'Validate Content LPN';
4415: mdebug(p_lpn_id || 'is an invalid lpn_id', G_ERROR);
4416: END IF;
4417: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_CONTENT_LPN');
4418: fnd_msg_pub.ADD;
4419: RAISE fnd_api.g_exc_error;
4420: END IF;
4421:
4422: IF (l_debug = 1) THEN
4423: 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);
4436: mdebug('content lpn not in parent lpn', G_ERROR);
4437: END IF;
4438: fnd_message.set_name('WMS', 'WMS_CONT_LPN_NOT_IN_LPN');
4439: fnd_msg_pub.ADD;
4440: RAISE fnd_api.g_exc_error;
4441: END IF;
4442: END IF;
4443:
4444: l_quantity := 1;
4457: ELSE
4458: l_progress := 'Error calling INV_CACHE.Set_Item_Rec for orgid'||p_organization_id||' item id='||p_content_item_id;
4459: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
4460: fnd_msg_pub.ADD;
4461: RAISE fnd_api.g_exc_error;
4462: END IF;
4463:
4464: IF ( p_primary_quantity IS NULL ) THEN
4465: IF ( p_uom = inv_cache.item_rec.primary_uom_code ) THEN
4482: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
4483: fnd_msg_pub.ADD;
4484: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_CONTENT_LPN');
4485: fnd_msg_pub.ADD;
4486: RAISE fnd_api.g_exc_error;
4487: END IF;
4488:
4489: -- Parse Serials with out validation
4490: -- Sub and locator might not be given in the case of pre-packing
4499: mdebug('Invalid serial number in range', G_ERROR);
4500: END IF;
4501: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SER');
4502: fnd_msg_pub.ADD;
4503: RAISE fnd_api.g_exc_error;
4504: END IF;
4505:
4506: l_progress := 'Done with call to parse sn';
4507: IF (l_debug = 1) THEN
4520: mdebug('Serial range quantity '||l_quantity||' not the same as given qty '||p_quantity, G_ERROR);
4521: END IF;
4522: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_X_QTY');
4523: fnd_msg_pub.ADD;
4524: RAISE fnd_api.g_exc_error;
4525: END IF;
4526: END IF;
4527: END IF;
4528: END IF;
4541: mdebug('No sub and loc info found' , 1);
4542: END IF;
4543: FND_MESSAGE.SET_NAME('WMS', 'WMS_LPN_SUBLOC_MISS');
4544: FND_MSG_PUB.ADD;
4545: RAISE FND_API.G_EXC_ERROR;
4546: END IF;
4547: ELSE
4548: l_subinventory := p_subinventory;
4549: l_locator_id := p_locator_id;
4554: IF ( NOT inv_cache.set_tosub_rec(p_organization_id, l_subinventory) ) THEN
4555: l_progress := 'Failed to find subinventory org='||p_organization_id||' sub='||l_subinventory;
4556: FND_MESSAGE.SET_NAME('INV', 'INVALID_SUB');
4557: FND_MSG_PUB.ADD;
4558: RAISE FND_API.G_EXC_ERROR;
4559: END IF;
4560: END IF;
4561:
4562: IF ( p_subinventory IS NOT NULL AND NVL(inv_cache.tosub_rec.lpn_controlled_flag, 2) = 1 ) THEN
4571: -- to be different
4572: IF ( l_lpn.lpn_context <> LPN_CONTEXT_RCV ) THEN
4573: FND_MESSAGE.SET_NAME('WMS', 'WMS_LPN_SUBLOC_MISMATCH');
4574: FND_MSG_PUB.ADD;
4575: RAISE FND_API.G_EXC_ERROR;
4576: END IF;
4577: END IF;
4578: END IF;
4579:
4583: -- is an LPN enabled/controlled subinventory otherwise fail.
4584: IF ( l_subinventory IS NOT NULL AND NVL(inv_cache.tosub_rec.lpn_controlled_flag, 2) <> 1 ) THEN
4585: fnd_message.set_name('WMS', 'WMS_CONT_NON_LPN_SUB');
4586: fnd_msg_pub.ADD;
4587: RAISE fnd_api.g_exc_error;
4588: END IF;
4589:
4590: IF ( p_content_lpn_id IS NOT NULL AND p_content_item_id IS NULL ) THEN
4591: l_progress := 'Packing a LPN into another LPN';
4624: mdebug('differs from content item sub '|| l_lpn.subinventory_code || ' or loc ' || l_lpn.locator_id, G_ERROR);
4625: END IF;
4626: fnd_message.set_name('WMS', 'WMS_CONT_MISMATCHED_SUB_LOC');
4627: fnd_msg_pub.ADD;
4628: RAISE fnd_api.g_exc_error;
4629: END IF;
4630:
4631: -- Only if there is a difference in location, update nested
4632: -- lpns/items/serials with the new location
4745: IF ( l_serial_quantity <> l_primary_quantity ) THEN
4746: l_progress := 'Serial range quantity '||l_serial_quantity||' not the same as given qty '||l_primary_quantity;
4747: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_X_QTY');
4748: fnd_msg_pub.ADD;
4749: RAISE fnd_api.g_exc_error;
4750: END IF;
4751: END IF;
4752: END IF;
4753:
4766:
4767: -- Validate that if the same item (as the passed-in item p_content_item_id)
4768: -- exists on the destination LPN (p_lpn_id) at the top level (not in a child LPN),
4769: -- their cost groups are the same.
4770: IF ( p_validation_level = fnd_api.g_valid_level_full ) THEN
4771: IF ( l_serial_summary_entry <> 1 AND p_cost_group_id <> l_existing_record_cursor.cost_group_id ) THEN
4772: IF (l_debug = 1) THEN
4773: mdebug('Cost Group Violation during packing cg='||l_existing_record_cursor.cost_group_id||' already exists in lpn', G_ERROR);
4774: END IF;
4773: mdebug('Cost Group Violation during packing cg='||l_existing_record_cursor.cost_group_id||' already exists in lpn', G_ERROR);
4774: END IF;
4775: fnd_message.set_name('WMS', 'WMS_CONT_DIFF_CST_GRPS');
4776: fnd_msg_pub.ADD;
4777: RAISE fnd_api.g_exc_error;
4778: END IF;
4779: END IF;
4780:
4781: --INCONV kkillams
4792: fnd_message.set_token('uom1', l_existing_record_cursor.secondary_uom_code);
4793: fnd_message.set_token('uom2', p_sec_uom);
4794: fnd_message.set_token('module', l_api_name);
4795: fnd_msg_pub.ADD;
4796: RAISE fnd_api.g_exc_error;
4797: END IF;
4798: END IF;
4799: --INCONV kkillams
4800:
4991: ELSIF ( l_operation_mode = L_UNPACK ) THEN /*** Unpacking Operation ***/
4992: IF ( p_content_lpn_id IS NOT NULL AND p_content_item_id IS NULL ) THEN
4993: -- Update content LPN parent lpn to be null
4994: l_cont_new.lpn_id := p_content_lpn_id;
4995: l_cont_new.parent_lpn_id := FND_API.G_MISS_NUM;
4996: l_cont_new.outermost_lpn_id := p_content_lpn_id;
4997:
4998: /* Bug 2308339: Update the Organization, Sub, Locator only if Sub is LPN Controlled */
4999: IF( l_subinventory IS NOT NULL AND NVL(inv_cache.tosub_rec.lpn_controlled_flag, 2) = 1 ) THEN
5148: fnd_message.set_token('uom1', l_temp_record.secondary_uom_code);
5149: fnd_message.set_token('uom2', p_sec_uom);
5150: fnd_message.set_token('module', l_api_name);
5151: fnd_msg_pub.ADD;
5152: RAISE fnd_api.g_exc_error;
5153: END IF;
5154: END IF;
5155: --INCONV kkillams
5156:
5206: mdebug('Content item not found to unpack', G_ERROR);
5207: END IF;
5208: fnd_message.set_name('WMS', 'WMS_CONT_ITEM_NOT_FOUND');
5209: fnd_msg_pub.ADD;
5210: RAISE fnd_api.g_exc_error;
5211: ELSE
5212: IF (l_debug = 1) THEN
5213: mdebug('Not enough to upack, qty found='||l_item_quantity, G_ERROR);
5214: END IF;
5213: mdebug('Not enough to upack, qty found='||l_item_quantity, G_ERROR);
5214: END IF;
5215: fnd_message.set_name('WMS', 'WMS_CONT_NOT_ENOUGH_TO_UNPACK');
5216: fnd_msg_pub.ADD;
5217: RAISE fnd_api.g_exc_error;
5218: END IF;
5219: END LOOP;
5220: CLOSE existing_unpack_record_cursor;
5221:
5269: mdebug('Not enough of this onetime item to unpack', G_ERROR);
5270: END IF;
5271: fnd_message.set_name('WMS', 'WMS_CONT_NOT_ENOUGH_TO_UNPACK');
5272: fnd_msg_pub.ADD;
5273: RAISE fnd_api.g_exc_error;
5274: END IF;
5275: ELSE
5276: IF (l_debug = 1) THEN
5277: mdebug('No one time items exits', G_ERROR);
5277: mdebug('No one time items exits', G_ERROR);
5278: END IF;
5279: fnd_message.set_name('WMS', 'WMS_CONT_NO_ONE_TIME_ITEM');
5280: fnd_msg_pub.ADD;
5281: RAISE fnd_api.g_exc_error;
5282: END IF;
5283: END IF;
5284: ELSIF ( l_operation_mode = L_UNPACK_ALL ) THEN /*** Unpack All Operation ***/
5285: -- This lpn will be empty, need to check parent lpns to see if they also will
5306: AND inventory_item_id = l_child_lpn.inventory_item_id;
5307: ELSE
5308: -- if there isn't a container item, empty lpns will have undefined
5309: -- tare weight
5310: l_lpn_tbl(l_tmp_i).tare_weight := fnd_api.g_miss_num;
5311: l_lpn_tbl(l_tmp_i).tare_weight_uom_code := fnd_api.g_miss_char;
5312: END IF;
5313:
5314: l_lpn_tbl(l_tmp_i).lpn_id := l_child_lpn.lpn_id;
5307: ELSE
5308: -- if there isn't a container item, empty lpns will have undefined
5309: -- tare weight
5310: l_lpn_tbl(l_tmp_i).tare_weight := fnd_api.g_miss_num;
5311: l_lpn_tbl(l_tmp_i).tare_weight_uom_code := fnd_api.g_miss_char;
5312: END IF;
5313:
5314: l_lpn_tbl(l_tmp_i).lpn_id := l_child_lpn.lpn_id;
5315: l_lpn_tbl(l_tmp_i).organization_id := p_organization_id;
5312: END IF;
5313:
5314: l_lpn_tbl(l_tmp_i).lpn_id := l_child_lpn.lpn_id;
5315: l_lpn_tbl(l_tmp_i).organization_id := p_organization_id;
5316: l_lpn_tbl(l_tmp_i).subinventory_code := fnd_api.g_miss_char;
5317: l_lpn_tbl(l_tmp_i).locator_id := fnd_api.g_miss_num;
5318: l_lpn_tbl(l_tmp_i).parent_lpn_id := fnd_api.g_miss_num;
5319: l_lpn_tbl(l_tmp_i).content_volume := fnd_api.g_miss_num;
5320: l_lpn_tbl(l_tmp_i).content_volume_uom_code := fnd_api.g_miss_char;
5313:
5314: l_lpn_tbl(l_tmp_i).lpn_id := l_child_lpn.lpn_id;
5315: l_lpn_tbl(l_tmp_i).organization_id := p_organization_id;
5316: l_lpn_tbl(l_tmp_i).subinventory_code := fnd_api.g_miss_char;
5317: l_lpn_tbl(l_tmp_i).locator_id := fnd_api.g_miss_num;
5318: l_lpn_tbl(l_tmp_i).parent_lpn_id := fnd_api.g_miss_num;
5319: l_lpn_tbl(l_tmp_i).content_volume := fnd_api.g_miss_num;
5320: l_lpn_tbl(l_tmp_i).content_volume_uom_code := fnd_api.g_miss_char;
5321: -- bug5404902 changed l_child_lpn to l_lpn_tbl(l_tmp_i) since it represents
5314: l_lpn_tbl(l_tmp_i).lpn_id := l_child_lpn.lpn_id;
5315: l_lpn_tbl(l_tmp_i).organization_id := p_organization_id;
5316: l_lpn_tbl(l_tmp_i).subinventory_code := fnd_api.g_miss_char;
5317: l_lpn_tbl(l_tmp_i).locator_id := fnd_api.g_miss_num;
5318: l_lpn_tbl(l_tmp_i).parent_lpn_id := fnd_api.g_miss_num;
5319: l_lpn_tbl(l_tmp_i).content_volume := fnd_api.g_miss_num;
5320: l_lpn_tbl(l_tmp_i).content_volume_uom_code := fnd_api.g_miss_char;
5321: -- bug5404902 changed l_child_lpn to l_lpn_tbl(l_tmp_i) since it represents
5322: -- the container items original unit weight
5315: l_lpn_tbl(l_tmp_i).organization_id := p_organization_id;
5316: l_lpn_tbl(l_tmp_i).subinventory_code := fnd_api.g_miss_char;
5317: l_lpn_tbl(l_tmp_i).locator_id := fnd_api.g_miss_num;
5318: l_lpn_tbl(l_tmp_i).parent_lpn_id := fnd_api.g_miss_num;
5319: l_lpn_tbl(l_tmp_i).content_volume := fnd_api.g_miss_num;
5320: l_lpn_tbl(l_tmp_i).content_volume_uom_code := fnd_api.g_miss_char;
5321: -- bug5404902 changed l_child_lpn to l_lpn_tbl(l_tmp_i) since it represents
5322: -- the container items original unit weight
5323: l_lpn_tbl(l_tmp_i).gross_weight := NVL(l_lpn_tbl(l_tmp_i).tare_weight, fnd_api.g_miss_num);
5316: l_lpn_tbl(l_tmp_i).subinventory_code := fnd_api.g_miss_char;
5317: l_lpn_tbl(l_tmp_i).locator_id := fnd_api.g_miss_num;
5318: l_lpn_tbl(l_tmp_i).parent_lpn_id := fnd_api.g_miss_num;
5319: l_lpn_tbl(l_tmp_i).content_volume := fnd_api.g_miss_num;
5320: l_lpn_tbl(l_tmp_i).content_volume_uom_code := fnd_api.g_miss_char;
5321: -- bug5404902 changed l_child_lpn to l_lpn_tbl(l_tmp_i) since it represents
5322: -- the container items original unit weight
5323: l_lpn_tbl(l_tmp_i).gross_weight := NVL(l_lpn_tbl(l_tmp_i).tare_weight, fnd_api.g_miss_num);
5324: 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);
5319: l_lpn_tbl(l_tmp_i).content_volume := fnd_api.g_miss_num;
5320: l_lpn_tbl(l_tmp_i).content_volume_uom_code := fnd_api.g_miss_char;
5321: -- bug5404902 changed l_child_lpn to l_lpn_tbl(l_tmp_i) since it represents
5322: -- the container items original unit weight
5323: l_lpn_tbl(l_tmp_i).gross_weight := NVL(l_lpn_tbl(l_tmp_i).tare_weight, fnd_api.g_miss_num);
5324: 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);
5325: l_lpn_tbl(l_tmp_i).outermost_lpn_id := l_child_lpn.lpn_id;
5326: l_lpn_tbl(l_tmp_i).lpn_context := LPN_CONTEXT_PREGENERATED;
5327:
5320: l_lpn_tbl(l_tmp_i).content_volume_uom_code := fnd_api.g_miss_char;
5321: -- bug5404902 changed l_child_lpn to l_lpn_tbl(l_tmp_i) since it represents
5322: -- the container items original unit weight
5323: l_lpn_tbl(l_tmp_i).gross_weight := NVL(l_lpn_tbl(l_tmp_i).tare_weight, fnd_api.g_miss_num);
5324: 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);
5325: l_lpn_tbl(l_tmp_i).outermost_lpn_id := l_child_lpn.lpn_id;
5326: l_lpn_tbl(l_tmp_i).lpn_context := LPN_CONTEXT_PREGENERATED;
5327:
5328: l_progress := 'Add child LPN to bulk rec to delete contents';
5391: AND inventory_item_id = empty_lpn_rec.inventory_item_id;
5392: ELSE
5393: -- if there isn't a container item, empty lpns will have undefined
5394: -- tare weight
5395: l_lpn_tbl(l_tmp_i).tare_weight := fnd_api.g_miss_num;
5396: l_lpn_tbl(l_tmp_i).tare_weight_uom_code := fnd_api.g_miss_char;
5397: END IF;
5398:
5399: l_lpn_tbl(l_tmp_i).lpn_id := empty_lpn_rec.lpn_id;
5392: ELSE
5393: -- if there isn't a container item, empty lpns will have undefined
5394: -- tare weight
5395: l_lpn_tbl(l_tmp_i).tare_weight := fnd_api.g_miss_num;
5396: l_lpn_tbl(l_tmp_i).tare_weight_uom_code := fnd_api.g_miss_char;
5397: END IF;
5398:
5399: l_lpn_tbl(l_tmp_i).lpn_id := empty_lpn_rec.lpn_id;
5400: l_lpn_tbl(l_tmp_i).subinventory_code := fnd_api.g_miss_char;
5396: l_lpn_tbl(l_tmp_i).tare_weight_uom_code := fnd_api.g_miss_char;
5397: END IF;
5398:
5399: l_lpn_tbl(l_tmp_i).lpn_id := empty_lpn_rec.lpn_id;
5400: l_lpn_tbl(l_tmp_i).subinventory_code := fnd_api.g_miss_char;
5401: l_lpn_tbl(l_tmp_i).locator_id := fnd_api.g_miss_num;
5402: l_lpn_tbl(l_tmp_i).parent_lpn_id := fnd_api.g_miss_num;
5403: l_lpn_tbl(l_tmp_i).content_volume := fnd_api.g_miss_num;
5404: l_lpn_tbl(l_tmp_i).content_volume_uom_code := fnd_api.g_miss_char;
5397: END IF;
5398:
5399: l_lpn_tbl(l_tmp_i).lpn_id := empty_lpn_rec.lpn_id;
5400: l_lpn_tbl(l_tmp_i).subinventory_code := fnd_api.g_miss_char;
5401: l_lpn_tbl(l_tmp_i).locator_id := fnd_api.g_miss_num;
5402: l_lpn_tbl(l_tmp_i).parent_lpn_id := fnd_api.g_miss_num;
5403: l_lpn_tbl(l_tmp_i).content_volume := fnd_api.g_miss_num;
5404: l_lpn_tbl(l_tmp_i).content_volume_uom_code := fnd_api.g_miss_char;
5405: -- bug5404902 changed empty_lpn_rec to l_lpn_tbl(l_tmp_i) since it represents
5398:
5399: l_lpn_tbl(l_tmp_i).lpn_id := empty_lpn_rec.lpn_id;
5400: l_lpn_tbl(l_tmp_i).subinventory_code := fnd_api.g_miss_char;
5401: l_lpn_tbl(l_tmp_i).locator_id := fnd_api.g_miss_num;
5402: l_lpn_tbl(l_tmp_i).parent_lpn_id := fnd_api.g_miss_num;
5403: l_lpn_tbl(l_tmp_i).content_volume := fnd_api.g_miss_num;
5404: l_lpn_tbl(l_tmp_i).content_volume_uom_code := fnd_api.g_miss_char;
5405: -- bug5404902 changed empty_lpn_rec to l_lpn_tbl(l_tmp_i) since it represents
5406: -- the container items original unit weight
5399: l_lpn_tbl(l_tmp_i).lpn_id := empty_lpn_rec.lpn_id;
5400: l_lpn_tbl(l_tmp_i).subinventory_code := fnd_api.g_miss_char;
5401: l_lpn_tbl(l_tmp_i).locator_id := fnd_api.g_miss_num;
5402: l_lpn_tbl(l_tmp_i).parent_lpn_id := fnd_api.g_miss_num;
5403: l_lpn_tbl(l_tmp_i).content_volume := fnd_api.g_miss_num;
5404: l_lpn_tbl(l_tmp_i).content_volume_uom_code := fnd_api.g_miss_char;
5405: -- bug5404902 changed empty_lpn_rec to l_lpn_tbl(l_tmp_i) since it represents
5406: -- the container items original unit weight
5407: l_lpn_tbl(l_tmp_i).gross_weight := NVL(l_lpn_tbl(l_tmp_i).tare_weight, fnd_api.g_miss_num);
5400: l_lpn_tbl(l_tmp_i).subinventory_code := fnd_api.g_miss_char;
5401: l_lpn_tbl(l_tmp_i).locator_id := fnd_api.g_miss_num;
5402: l_lpn_tbl(l_tmp_i).parent_lpn_id := fnd_api.g_miss_num;
5403: l_lpn_tbl(l_tmp_i).content_volume := fnd_api.g_miss_num;
5404: l_lpn_tbl(l_tmp_i).content_volume_uom_code := fnd_api.g_miss_char;
5405: -- bug5404902 changed empty_lpn_rec to l_lpn_tbl(l_tmp_i) since it represents
5406: -- the container items original unit weight
5407: l_lpn_tbl(l_tmp_i).gross_weight := NVL(l_lpn_tbl(l_tmp_i).tare_weight, fnd_api.g_miss_num);
5408: 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);
5403: l_lpn_tbl(l_tmp_i).content_volume := fnd_api.g_miss_num;
5404: l_lpn_tbl(l_tmp_i).content_volume_uom_code := fnd_api.g_miss_char;
5405: -- bug5404902 changed empty_lpn_rec to l_lpn_tbl(l_tmp_i) since it represents
5406: -- the container items original unit weight
5407: l_lpn_tbl(l_tmp_i).gross_weight := NVL(l_lpn_tbl(l_tmp_i).tare_weight, fnd_api.g_miss_num);
5408: 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);
5409: l_lpn_tbl(l_tmp_i).outermost_lpn_id := empty_lpn_rec.lpn_id;
5410: l_lpn_tbl(l_tmp_i).lpn_context := LPN_CONTEXT_PREGENERATED;
5411:
5404: l_lpn_tbl(l_tmp_i).content_volume_uom_code := fnd_api.g_miss_char;
5405: -- bug5404902 changed empty_lpn_rec to l_lpn_tbl(l_tmp_i) since it represents
5406: -- the container items original unit weight
5407: l_lpn_tbl(l_tmp_i).gross_weight := NVL(l_lpn_tbl(l_tmp_i).tare_weight, fnd_api.g_miss_num);
5408: 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);
5409: l_lpn_tbl(l_tmp_i).outermost_lpn_id := empty_lpn_rec.lpn_id;
5410: l_lpn_tbl(l_tmp_i).lpn_context := LPN_CONTEXT_PREGENERATED;
5411:
5412: IF ( empty_lpn_rec.parent_lpn_id IS NOT NULL ) THEN
5655: l_wsh_lpn_id_tbl(1) := p_content_lpn_id;
5656:
5657: WSH_WMS_LPN_GRP.Delivery_Detail_Action (
5658: p_api_version_number => 1.0
5659: , p_init_msg_list => fnd_api.g_false
5660: , p_commit => fnd_api.g_false
5661: , x_return_status => x_return_status
5662: , x_msg_count => x_msg_count
5663: , x_msg_data => x_msg_data
5656:
5657: WSH_WMS_LPN_GRP.Delivery_Detail_Action (
5658: p_api_version_number => 1.0
5659: , p_init_msg_list => fnd_api.g_false
5660: , p_commit => fnd_api.g_false
5661: , x_return_status => x_return_status
5662: , x_msg_count => x_msg_count
5663: , x_msg_data => x_msg_data
5664: , p_lpn_id_tbl => l_wsh_lpn_id_tbl
5666: , p_action_prms => l_wsh_action_prms
5667: , x_defaults => l_wsh_defaults
5668: , x_action_out_rec => l_wsh_action_out_rec );
5669:
5670: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
5671: l_progress := 'Delivery_Detail_Action failed';
5672: RAISE fnd_api.g_exc_error;
5673: ELSIF (l_debug = 1) THEN
5674: mdebug('Done with call to WSH Create_Update_Containers', G_INFO);
5668: , x_action_out_rec => l_wsh_action_out_rec );
5669:
5670: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
5671: l_progress := 'Delivery_Detail_Action failed';
5672: RAISE fnd_api.g_exc_error;
5673: ELSIF (l_debug = 1) THEN
5674: mdebug('Done with call to WSH Create_Update_Containers', G_INFO);
5675: END IF;
5676: END IF;
5694: END IF;
5695:
5696: Modify_LPNs (
5697: p_api_version => 1.0
5698: , p_init_msg_list => fnd_api.g_false
5699: , p_commit => fnd_api.g_false
5700: , x_return_status => x_return_status
5701: , x_msg_count => x_msg_count
5702: , x_msg_data => x_msg_data
5695:
5696: Modify_LPNs (
5697: p_api_version => 1.0
5698: , p_init_msg_list => fnd_api.g_false
5699: , p_commit => fnd_api.g_false
5700: , x_return_status => x_return_status
5701: , x_msg_count => x_msg_count
5702: , x_msg_data => x_msg_data
5703: , p_caller => 'WMS_PackUnpack_Container'
5702: , x_msg_data => x_msg_data
5703: , p_caller => 'WMS_PackUnpack_Container'
5704: , p_lpn_table => l_lpn_tbl );
5705:
5706: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
5707: l_progress := 'Modify_LPNs failed';
5708: RAISE fnd_api.g_exc_error;
5709: END IF;
5710: END IF;
5704: , p_lpn_table => l_lpn_tbl );
5705:
5706: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
5707: l_progress := 'Modify_LPNs failed';
5708: RAISE fnd_api.g_exc_error;
5709: END IF;
5710: END IF;
5711:
5712: -- IF both LPNs are picked then need to update nested LPN structure
5726: l_wsh_lpn_id_tbl(1) := p_content_lpn_id;
5727:
5728: WSH_WMS_LPN_GRP.Delivery_Detail_Action (
5729: p_api_version_number => 1.0
5730: , p_init_msg_list => fnd_api.g_false
5731: , p_commit => fnd_api.g_false
5732: , x_return_status => x_return_status
5733: , x_msg_count => x_msg_count
5734: , x_msg_data => x_msg_data
5727:
5728: WSH_WMS_LPN_GRP.Delivery_Detail_Action (
5729: p_api_version_number => 1.0
5730: , p_init_msg_list => fnd_api.g_false
5731: , p_commit => fnd_api.g_false
5732: , x_return_status => x_return_status
5733: , x_msg_count => x_msg_count
5734: , x_msg_data => x_msg_data
5735: , p_lpn_id_tbl => l_wsh_lpn_id_tbl
5737: , p_action_prms => l_wsh_action_prms
5738: , x_defaults => l_wsh_defaults
5739: , x_action_out_rec => l_wsh_action_out_rec );
5740:
5741: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
5742: l_progress := 'Delivery_Detail_Action failed';
5743: RAISE fnd_api.g_exc_error;
5744: ELSIF (l_debug = 1) THEN
5745: mdebug('Done with call to WSH Create_Update_Containers', G_INFO);
5739: , x_action_out_rec => l_wsh_action_out_rec );
5740:
5741: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
5742: l_progress := 'Delivery_Detail_Action failed';
5743: RAISE fnd_api.g_exc_error;
5744: ELSIF (l_debug = 1) THEN
5745: mdebug('Done with call to WSH Create_Update_Containers', G_INFO);
5746: END IF;
5747: END IF;
5811: , fnd_global.user_id
5812: , SYSDATE
5813: , fnd_global.user_id
5814: , p_cost_group_id
5815: , DECODE(l_new.outermost_lpn_id, fnd_api.g_miss_num, NULL, NVL(l_new.outermost_lpn_id, l_lpn.outermost_lpn_id))
5816: , NVL(p_source_type_id, l_lpn.source_type_id)
5817: , NVL(p_source_header_id, l_lpn.source_header_id)
5818: , NVL(p_source_line_id, l_lpn.source_line_id)
5819: , NVL(p_source_line_detail_id, l_lpn.source_line_detail_id)
5822: , p_sec_uom --INVCONV kkillams
5823: );
5824:
5825: -- Standard check of p_commit.
5826: IF fnd_api.to_boolean(p_commit) THEN
5827: COMMIT WORK;
5828: END IF;
5829:
5830: IF ( l_debug = 1 ) THEN
5832: END IF;
5833:
5834: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5835: EXCEPTION
5836: WHEN FND_API.G_EXC_ERROR THEN
5837: ROLLBACK TO PACKUNPACK_CONTAINER;
5838: x_return_status := fnd_api.g_ret_sts_error;
5839: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5840:
5834: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5835: EXCEPTION
5836: WHEN FND_API.G_EXC_ERROR THEN
5837: ROLLBACK TO PACKUNPACK_CONTAINER;
5838: x_return_status := fnd_api.g_ret_sts_error;
5839: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5840:
5841: IF (l_debug = 1) THEN
5842: mdebug(l_api_name ||' Exc err prog='||l_progress||' SQL err: '|| SQLERRM(SQLCODE), 1);
5846: mdebug('msg: '||l_msgdata, 1);
5847: END IF;
5848: WHEN OTHERS THEN
5849: ROLLBACK TO PACKUNPACK_CONTAINER;
5850: x_return_status := fnd_api.g_ret_sts_unexp_error;
5851: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5852: IF (l_debug = 1) THEN
5853: mdebug(l_api_name ||' Unexp err prog='||l_progress||' SQL err: '|| SQLERRM(SQLCODE), 1);
5854: END IF;
5858: -- ----------------------------------------------------------------------------------
5859:
5860: PROCEDURE Modify_LPN (
5861: p_api_version IN NUMBER
5862: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
5863: , p_commit IN VARCHAR2 := fnd_api.g_false
5864: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
5865: , x_return_status OUT NOCOPY VARCHAR2
5866: , x_msg_count OUT NOCOPY NUMBER
5859:
5860: PROCEDURE Modify_LPN (
5861: p_api_version IN NUMBER
5862: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
5863: , p_commit IN VARCHAR2 := fnd_api.g_false
5864: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
5865: , x_return_status OUT NOCOPY VARCHAR2
5866: , x_msg_count OUT NOCOPY NUMBER
5867: , x_msg_data OUT NOCOPY VARCHAR2
5860: PROCEDURE Modify_LPN (
5861: p_api_version IN NUMBER
5862: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
5863: , p_commit IN VARCHAR2 := fnd_api.g_false
5864: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
5865: , x_return_status OUT NOCOPY VARCHAR2
5866: , x_msg_count OUT NOCOPY NUMBER
5867: , x_msg_data OUT NOCOPY VARCHAR2
5868: , p_lpn IN WMS_CONTAINER_PUB.LPN
5939: -- ----------------------------------------------------------------------------------
5940:
5941: PROCEDURE Modify_LPN_Wrapper(
5942: p_api_version IN NUMBER
5943: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
5944: , p_commit IN VARCHAR2 := fnd_api.g_false
5945: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
5946: , x_return_status OUT NOCOPY VARCHAR2
5947: , x_msg_count OUT NOCOPY NUMBER
5940:
5941: PROCEDURE Modify_LPN_Wrapper(
5942: p_api_version IN NUMBER
5943: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
5944: , p_commit IN VARCHAR2 := fnd_api.g_false
5945: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
5946: , x_return_status OUT NOCOPY VARCHAR2
5947: , x_msg_count OUT NOCOPY NUMBER
5948: , x_msg_data OUT NOCOPY VARCHAR2
5941: PROCEDURE Modify_LPN_Wrapper(
5942: p_api_version IN NUMBER
5943: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
5944: , p_commit IN VARCHAR2 := fnd_api.g_false
5945: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
5946: , x_return_status OUT NOCOPY VARCHAR2
5947: , x_msg_count OUT NOCOPY NUMBER
5948: , x_msg_data OUT NOCOPY VARCHAR2
5949: , p_lpn_id IN NUMBER
5978: -- Standard Start of API savepoint
5979: SAVEPOINT MODIFY_LPN_WRAPPER_PVT;
5980:
5981: -- Standard call to check for call compatibility.
5982: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
5983: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
5984: fnd_msg_pub.ADD;
5985: RAISE fnd_api.g_exc_unexpected_error;
5986: END IF;
5981: -- Standard call to check for call compatibility.
5982: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
5983: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
5984: fnd_msg_pub.ADD;
5985: RAISE fnd_api.g_exc_unexpected_error;
5986: END IF;
5987:
5988: -- Initialize message list if p_init_msg_list is set to TRUE.
5989: IF fnd_api.to_boolean(p_init_msg_list) THEN
5985: RAISE fnd_api.g_exc_unexpected_error;
5986: END IF;
5987:
5988: -- Initialize message list if p_init_msg_list is set to TRUE.
5989: IF fnd_api.to_boolean(p_init_msg_list) THEN
5990: fnd_msg_pub.initialize;
5991: END IF;
5992:
5993: -- Initialize API return status to success
5990: fnd_msg_pub.initialize;
5991: END IF;
5992:
5993: -- Initialize API return status to success
5994: x_return_status := fnd_api.g_ret_sts_success;
5995:
5996: IF (l_debug = 1) THEN
5997: mdebug(l_api_name|| ' Entered '|| g_pkg_version, 1);
5998: END IF;
6027: , p_caller => p_caller
6028: , p_lpn_table => l_lpn );
6029:
6030: l_progress := '200';
6031: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
6032: -- Modify LPN should put the appropriate error message in the stack
6033: RAISE fnd_api.g_exc_error;
6034: END IF;
6035:
6029:
6030: l_progress := '200';
6031: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
6032: -- Modify LPN should put the appropriate error message in the stack
6033: RAISE fnd_api.g_exc_error;
6034: END IF;
6035:
6036: -- Standard check of p_commit.
6037: IF fnd_api.to_boolean(p_commit) THEN
6033: RAISE fnd_api.g_exc_error;
6034: END IF;
6035:
6036: -- Standard check of p_commit.
6037: IF fnd_api.to_boolean(p_commit) THEN
6038: COMMIT WORK;
6039: END IF;
6040:
6041: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6039: END IF;
6040:
6041: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6042: EXCEPTION
6043: WHEN fnd_api.g_exc_error THEN
6044: ROLLBACK TO MODIFY_LPN_WRAPPER_PVT;
6045: x_return_status := fnd_api.g_ret_sts_error;
6046: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6047: WHEN OTHERS THEN
6041: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6042: EXCEPTION
6043: WHEN fnd_api.g_exc_error THEN
6044: ROLLBACK TO MODIFY_LPN_WRAPPER_PVT;
6045: x_return_status := fnd_api.g_ret_sts_error;
6046: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6047: WHEN OTHERS THEN
6048: ROLLBACK TO MODIFY_LPN_WRAPPER_PVT;
6049: x_return_status := fnd_api.g_ret_sts_unexp_error;
6045: x_return_status := fnd_api.g_ret_sts_error;
6046: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6047: WHEN OTHERS THEN
6048: ROLLBACK TO MODIFY_LPN_WRAPPER_PVT;
6049: x_return_status := fnd_api.g_ret_sts_unexp_error;
6050:
6051: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
6052: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
6053: END IF;
6062: -- ----------------------------------------------------------------------------------
6063:
6064: PROCEDURE Validate_Update_Wt_Volume (
6065: p_api_version IN NUMBER
6066: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
6067: , p_commit IN VARCHAR2 := fnd_api.g_false
6068: , x_return_status OUT NOCOPY VARCHAR2
6069: , x_msg_count OUT NOCOPY NUMBER
6070: , x_msg_data OUT NOCOPY VARCHAR2
6063:
6064: PROCEDURE Validate_Update_Wt_Volume (
6065: p_api_version IN NUMBER
6066: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
6067: , p_commit IN VARCHAR2 := fnd_api.g_false
6068: , x_return_status OUT NOCOPY VARCHAR2
6069: , x_msg_count OUT NOCOPY NUMBER
6070: , x_msg_data OUT NOCOPY VARCHAR2
6071: , p_lpn_id IN NUMBER
6085: l_progress VARCHAR2(10) := '0';
6086:
6087: BEGIN
6088: -- Initialize API return status to success
6089: x_return_status := FND_API.G_RET_STS_SUCCESS;
6090:
6091: END Validate_Update_Wt_Volume;
6092:
6093: -- ----------------------------------------------------------------------------------
6094: -- ----------------------------------------------------------------------------------
6095:
6096: PROCEDURE Container_Required_Qty(
6097: p_api_version IN NUMBER
6098: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
6099: , p_commit IN VARCHAR2 := fnd_api.g_false
6100: , x_return_status OUT NOCOPY VARCHAR2
6101: , x_msg_count OUT NOCOPY NUMBER
6102: , x_msg_data OUT NOCOPY VARCHAR2
6095:
6096: PROCEDURE Container_Required_Qty(
6097: p_api_version IN NUMBER
6098: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
6099: , p_commit IN VARCHAR2 := fnd_api.g_false
6100: , x_return_status OUT NOCOPY VARCHAR2
6101: , x_msg_count OUT NOCOPY NUMBER
6102: , x_msg_data OUT NOCOPY VARCHAR2
6103: , p_source_item_id IN NUMBER
6147: BEGIN
6148: -- Standard Start of API savepoint
6149: SAVEPOINT CONTAINER_REQUIRED_QTY_PVT;
6150: -- Standard call to check for call compatibility.
6151: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
6152: p_api_version ,
6153: l_api_name ,
6154: G_PKG_NAME )
6155: THEN
6154: G_PKG_NAME )
6155: THEN
6156: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
6157: FND_MSG_PUB.ADD;
6158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6159: END IF;
6160: -- Initialize message list if p_init_msg_list is set to TRUE.
6161: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6162: FND_MSG_PUB.initialize;
6157: FND_MSG_PUB.ADD;
6158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6159: END IF;
6160: -- Initialize message list if p_init_msg_list is set to TRUE.
6161: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6162: FND_MSG_PUB.initialize;
6163: END IF;
6164: -- Initialize API return status to success
6165: x_return_status := FND_API.G_RET_STS_SUCCESS;
6161: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6162: FND_MSG_PUB.initialize;
6163: END IF;
6164: -- Initialize API return status to success
6165: x_return_status := FND_API.G_RET_STS_SUCCESS;
6166:
6167: -- API body
6168:
6169: /* Validate Organization ID */
6171: l_result := INV_Validate.Organization(l_org);
6172: IF (l_result = INV_Validate.F) THEN
6173: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_ORG');
6174: FND_MSG_PUB.ADD;
6175: RAISE FND_API.G_EXC_ERROR;
6176: END IF;
6177:
6178: /* Validate Source item */
6179: l_source_item.inventory_item_id := p_source_item_id;
6180: l_result := INV_Validate.inventory_item(l_source_item, l_org);
6181: IF (l_result = INV_Validate.F) THEN
6182: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_ITEM');
6183: FND_MSG_PUB.ADD;
6184: RAISE FND_API.G_EXC_ERROR;
6185: END IF;
6186:
6187: /* Validate Source Quantity */
6188: IF ((p_source_qty IS NULL) OR (p_source_qty <= 0)) THEN
6187: /* Validate Source Quantity */
6188: IF ((p_source_qty IS NULL) OR (p_source_qty <= 0)) THEN
6189: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_SRC_QTY');
6190: FND_MSG_PUB.ADD;
6191: RAISE FND_API.G_EXC_ERROR;
6192: END IF;
6193:
6194: /* Validate Source UOM */
6195: l_result := INV_Validate.Uom(p_source_qty_uom, l_org, l_source_item);
6195: l_result := INV_Validate.Uom(p_source_qty_uom, l_org, l_source_item);
6196: IF (l_result = INV_Validate.F) THEN
6197: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_SRC_UOM');
6198: FND_MSG_PUB.ADD;
6199: RAISE FND_API.G_EXC_ERROR;
6200: END IF;
6201:
6202: /* Validate Quantity Per Container */
6203: IF (p_qty_per_cont IS NOT NULL) THEN
6203: IF (p_qty_per_cont IS NOT NULL) THEN
6204: IF (p_qty_per_cont <= 0) THEN
6205: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVLD_QTY_PER_CONT');
6206: FND_MSG_PUB.ADD;
6207: RAISE FND_API.G_EXC_ERROR;
6208: END IF;
6209: END IF;
6210:
6211: /* Validate Quantity Per Container UOM */
6213: l_result := INV_Validate.Uom(p_qty_per_cont_uom, l_org, l_source_item);
6214: IF (l_result = INV_Validate.F) THEN
6215: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVLD_QTY_PER_UOM');
6216: FND_MSG_PUB.ADD;
6217: RAISE FND_API.G_EXC_ERROR;
6218: END IF;
6219: END IF;
6220:
6221: /* Validate Destination container item */
6224: l_result := INV_Validate.inventory_item(l_dest_cont_item, l_org);
6225: IF (l_result = INV_Validate.F) THEN
6226: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_CONT_ITEM');
6227: FND_MSG_PUB.ADD;
6228: RAISE FND_API.G_EXC_ERROR;
6229: ELSIF (l_dest_cont_item.container_item_flag = 'N') THEN
6230: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_ITEM_NOT_A_CONT');
6231: FND_MSG_PUB.ADD;
6232: RAISE FND_API.G_EXC_ERROR;
6228: RAISE FND_API.G_EXC_ERROR;
6229: ELSIF (l_dest_cont_item.container_item_flag = 'N') THEN
6230: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_ITEM_NOT_A_CONT');
6231: FND_MSG_PUB.ADD;
6232: RAISE FND_API.G_EXC_ERROR;
6233: END IF;
6234: END IF;
6235: /* End of input validation */
6236:
6247: (l_source_item.unit_volume IS NULL) OR
6248: (l_source_item.volume_uom_code IS NULL)) THEN
6249: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_NOT_ENOUGH_INFO');
6250: FND_MSG_PUB.ADD;
6251: RAISE FND_API.G_EXC_ERROR;
6252: END IF;
6253:
6254: /* Volume constraint */
6255: l_temp_value := Convert_UOM(
6265: l_max_load_quantity := FLOOR(l_dest_cont_item.internal_volume/l_temp_value);
6266: ELSE
6267: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_ITEM_TOO_LARGE');
6268: FND_MSG_PUB.ADD;
6269: RAISE FND_API.G_EXC_ERROR;
6270: END IF;
6271: END IF;
6272: /* Weight constraint */
6273: l_temp_value := Convert_UOM(
6288: END IF;
6289: ELSE
6290: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_ITEM_TOO_LARGE');
6291: FND_MSG_PUB.ADD;
6292: RAISE FND_API.G_EXC_ERROR;
6293: END IF;
6294: END IF;
6295: END IF;
6296: CLOSE max_load_cursor;
6314:
6315: IF (l_qty_per_cont > l_max_load_quantity) THEN
6316: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_OVERPACKED_OPERATION');
6317: FND_MSG_PUB.ADD;
6318: RAISE FND_API.G_EXC_ERROR;
6319: ELSE
6320: p_qty_required := CEIL(p_source_qty/l_qty_per_cont);
6321: END IF;
6322: ELSIF ((p_qty_per_cont IS NULL) AND (l_max_load_quantity IS NOT NULL)) THEN
6339: l_result := INV_Validate.inventory_item(l_cont_item, l_org);
6340: IF (l_result = INV_Validate.F) THEN
6341: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_CONT_ITEM');
6342: FND_MSG_PUB.ADD;
6343: RAISE FND_API.G_EXC_ERROR;
6344: END IF;
6345:
6346: /* Get the max load quantity for that given container */
6347: l_temp_load_quantity := Convert_UOM (
6379: IF (l_curr_min_container = 0) THEN
6380: p_qty_required := 0;
6381: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_NO_CONTAINER_FOUND');
6382: FND_MSG_PUB.ADD;
6383: RAISE FND_API.G_EXC_ERROR;
6384: ELSE
6385: /* Valid container found. Store this information in the output parameters */
6386: p_dest_cont_item_id := l_curr_min_container;
6387: p_qty_required := CEIL(p_source_qty / l_curr_load_quantity);
6389: END IF;
6390: -- End of API body
6391:
6392: -- Standard check of p_commit.
6393: IF FND_API.To_Boolean( p_commit ) THEN
6394: COMMIT WORK;
6395: END IF;
6396: -- Standard call to get message count and if count is 1,
6397: -- get message info.
6399: ( p_count => x_msg_count,
6400: p_data => x_msg_data
6401: );
6402: EXCEPTION
6403: WHEN FND_API.G_EXC_ERROR THEN
6404: ROLLBACK TO CONTAINER_REQUIRED_QTY_PVT;
6405: x_return_status := FND_API.G_RET_STS_ERROR;
6406: FND_MSG_PUB.Count_And_Get
6407: ( p_count => x_msg_count,
6401: );
6402: EXCEPTION
6403: WHEN FND_API.G_EXC_ERROR THEN
6404: ROLLBACK TO CONTAINER_REQUIRED_QTY_PVT;
6405: x_return_status := FND_API.G_RET_STS_ERROR;
6406: FND_MSG_PUB.Count_And_Get
6407: ( p_count => x_msg_count,
6408: p_data => x_msg_data
6409: );
6406: FND_MSG_PUB.Count_And_Get
6407: ( p_count => x_msg_count,
6408: p_data => x_msg_data
6409: );
6410: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6411: ROLLBACK TO CONTAINER_REQUIRED_QTY_PVT;
6412: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6413: FND_MSG_PUB.Count_And_Get
6414: ( p_count => x_msg_count,
6408: p_data => x_msg_data
6409: );
6410: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6411: ROLLBACK TO CONTAINER_REQUIRED_QTY_PVT;
6412: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6413: FND_MSG_PUB.Count_And_Get
6414: ( p_count => x_msg_count,
6415: p_data => x_msg_data
6416: );
6415: p_data => x_msg_data
6416: );
6417: WHEN OTHERS THEN
6418: ROLLBACK TO CONTAINER_REQUIRED_QTY_PVT;
6419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6420: IF FND_MSG_PUB.Check_Msg_Level
6421: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6422: THEN
6423: FND_MSG_PUB.Add_Exc_Msg
6475: -- Standard Start of API savepoint
6476: SAVEPOINT PREPACK_LPN_CP_PVT;
6477:
6478: -- Standard call to check for call compatibility.
6479: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
6480: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
6481: fnd_msg_pub.ADD;
6482: RAISE fnd_api.g_exc_unexpected_error;
6483: END IF;
6478: -- Standard call to check for call compatibility.
6479: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
6480: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
6481: fnd_msg_pub.ADD;
6482: RAISE fnd_api.g_exc_unexpected_error;
6483: END IF;
6484:
6485: -- Initialize API return status to success
6486: x_return_status := fnd_api.g_ret_sts_success;
6482: RAISE fnd_api.g_exc_unexpected_error;
6483: END IF;
6484:
6485: -- Initialize API return status to success
6486: x_return_status := fnd_api.g_ret_sts_success;
6487:
6488: -- Call Prepack LPN
6489: Prepack_LPN(
6490: p_api_version=> p_api_version,
6487:
6488: -- Call Prepack LPN
6489: Prepack_LPN(
6490: p_api_version=> p_api_version,
6491: --p_init_msg_list=> := fnd_api.g_false,
6492: --p_commit=> fnd_api.g_false;,
6493: x_return_status=> x_return_status,
6494: x_msg_count=> x_msg_count,
6495: x_msg_data=> x_msg_data,
6488: -- Call Prepack LPN
6489: Prepack_LPN(
6490: p_api_version=> p_api_version,
6491: --p_init_msg_list=> := fnd_api.g_false,
6492: --p_commit=> fnd_api.g_false;,
6493: x_return_status=> x_return_status,
6494: x_msg_count=> x_msg_count,
6495: x_msg_data=> x_msg_data,
6496: p_organization_id=> p_organization_id,
6516: p_sec_quantity => p_sec_quantity, --INVCONV kkillams
6517: p_sec_uom => p_sec_uom --INVCONV kkillams
6518: );
6519:
6520: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
6521: ret := fnd_concurrent.set_completion_status('NORMAL', x_msg_data);
6522: retcode := 0;
6523: ELSE
6524: ret := fnd_concurrent.set_completion_status('ERROR', x_msg_data);
6529: -- Standard call to get message count and if count is 1,
6530: -- get message info.
6531: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6532: EXCEPTION
6533: WHEN fnd_api.g_exc_error THEN
6534: ROLLBACK TO PREPACK_LPN_CP_PVT;
6535: x_return_status := fnd_api.g_ret_sts_error;
6536: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6537: WHEN fnd_api.g_exc_unexpected_error THEN
6531: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6532: EXCEPTION
6533: WHEN fnd_api.g_exc_error THEN
6534: ROLLBACK TO PREPACK_LPN_CP_PVT;
6535: x_return_status := fnd_api.g_ret_sts_error;
6536: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6537: WHEN fnd_api.g_exc_unexpected_error THEN
6538: ROLLBACK TO PREPACK_LPN_CP_PVT;
6539: x_return_status := fnd_api.g_ret_sts_unexp_error;
6533: WHEN fnd_api.g_exc_error THEN
6534: ROLLBACK TO PREPACK_LPN_CP_PVT;
6535: x_return_status := fnd_api.g_ret_sts_error;
6536: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6537: WHEN fnd_api.g_exc_unexpected_error THEN
6538: ROLLBACK TO PREPACK_LPN_CP_PVT;
6539: x_return_status := fnd_api.g_ret_sts_unexp_error;
6540: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6541: WHEN OTHERS THEN
6535: x_return_status := fnd_api.g_ret_sts_error;
6536: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6537: WHEN fnd_api.g_exc_unexpected_error THEN
6538: ROLLBACK TO PREPACK_LPN_CP_PVT;
6539: x_return_status := fnd_api.g_ret_sts_unexp_error;
6540: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6541: WHEN OTHERS THEN
6542: ROLLBACK TO PREPACK_LPN_CP_PVT;
6543: x_return_status := fnd_api.g_ret_sts_unexp_error;
6539: x_return_status := fnd_api.g_ret_sts_unexp_error;
6540: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6541: WHEN OTHERS THEN
6542: ROLLBACK TO PREPACK_LPN_CP_PVT;
6543: x_return_status := fnd_api.g_ret_sts_unexp_error;
6544:
6545: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
6546: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
6547: END IF;
6553: -- ----------------------------------------------------------------------------------
6554:
6555: PROCEDURE Prepack_LPN(
6556: p_api_version IN NUMBER
6557: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
6558: , p_commit IN VARCHAR2 := fnd_api.g_false
6559: , x_return_status OUT NOCOPY VARCHAR2
6560: , x_msg_count OUT NOCOPY NUMBER
6561: , x_msg_data OUT NOCOPY VARCHAR2
6554:
6555: PROCEDURE Prepack_LPN(
6556: p_api_version IN NUMBER
6557: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
6558: , p_commit IN VARCHAR2 := fnd_api.g_false
6559: , x_return_status OUT NOCOPY VARCHAR2
6560: , x_msg_count OUT NOCOPY NUMBER
6561: , x_msg_data OUT NOCOPY VARCHAR2
6562: , p_organization_id IN NUMBER
6677: -- Standard Start of API savepoint
6678: SAVEPOINT prepack_lpn_pub;
6679:
6680: -- Standard call to check for call compatibility.
6681: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
6682: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
6683: fnd_msg_pub.ADD;
6684: RAISE fnd_api.g_exc_unexpected_error;
6685: END IF;
6680: -- Standard call to check for call compatibility.
6681: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
6682: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
6683: fnd_msg_pub.ADD;
6684: RAISE fnd_api.g_exc_unexpected_error;
6685: END IF;
6686:
6687: -- Initialize message list if p_init_msg_list is set to TRUE.
6688: IF fnd_api.to_boolean(p_init_msg_list) THEN
6684: RAISE fnd_api.g_exc_unexpected_error;
6685: END IF;
6686:
6687: -- Initialize message list if p_init_msg_list is set to TRUE.
6688: IF fnd_api.to_boolean(p_init_msg_list) THEN
6689: fnd_msg_pub.initialize;
6690: END IF;
6691:
6692: -- Initialize API return status to success
6689: fnd_msg_pub.initialize;
6690: END IF;
6691:
6692: -- Initialize API return status to success
6693: --x_return_status := FND_API.G_RET_STS_SUCCESS;
6694:
6695: -- API body
6696: IF (l_debug = 1) THEN
6697: mdebug(l_api_name || ' Entered ' || g_pkg_version, 1);
6724: IF ( x_error_code <> 0 ) THEN
6725: IF (l_debug = 1) THEN
6726: mdebug('auto_gen_lot failed', G_ERROR);
6727: END IF;
6728: RAISE fnd_api.g_exc_error;
6729: END IF;
6730:
6731: IF (l_debug = 1) THEN
6732: mdebug('lot number generated: '|| l_lot_number);
6758: ELSE
6759: /* Calculate number of LPNs required */
6760: Container_Required_Qty(
6761: p_api_version=> 1.0,
6762: p_init_msg_list=> fnd_api.g_false,
6763: p_commit=> fnd_api.g_false,
6764: x_return_status=> x_return_status,
6765: x_msg_count=> x_msg_count,
6766: x_msg_data=> x_msg_data,
6759: /* Calculate number of LPNs required */
6760: Container_Required_Qty(
6761: p_api_version=> 1.0,
6762: p_init_msg_list=> fnd_api.g_false,
6763: p_commit=> fnd_api.g_false,
6764: x_return_status=> x_return_status,
6765: x_msg_count=> x_msg_count,
6766: x_msg_data=> x_msg_data,
6767: p_source_item_id=> p_inventory_item_id,
6771: p_dest_cont_item_id=> l_container_item_id,
6772: p_qty_required=> l_lpn_quantity
6773: );
6774:
6775: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
6776: IF (l_debug = 1) THEN
6777: mdebug('calc lpn failed'|| x_msg_data, G_ERROR);
6778: END IF;
6779: fnd_message.set_name('WMS', 'WMS_CONT_QTY_ERROR');
6777: mdebug('calc lpn failed'|| x_msg_data, G_ERROR);
6778: END IF;
6779: fnd_message.set_name('WMS', 'WMS_CONT_QTY_ERROR');
6780: fnd_msg_pub.ADD;
6781: RAISE fnd_api.g_exc_unexpected_error;
6782: END IF;
6783:
6784: IF (l_debug = 1) THEN
6785: mdebug('Container_Required_Qty '|| TO_CHAR(l_lpn_quantity), G_INFO);
6787: END IF;
6788:
6789: Generate_LPN (
6790: p_api_version => p_api_version
6791: , p_init_msg_list => fnd_api.g_false
6792: , p_commit => fnd_api.g_false
6793: , x_return_status => x_return_status
6794: , x_msg_count => x_msg_count
6795: , x_msg_data => x_msg_data
6788:
6789: Generate_LPN (
6790: p_api_version => p_api_version
6791: , p_init_msg_list => fnd_api.g_false
6792: , p_commit => fnd_api.g_false
6793: , x_return_status => x_return_status
6794: , x_msg_count => x_msg_count
6795: , x_msg_data => x_msg_data
6796: , p_organization_id => p_organization_id
6804: , p_lpn_id_out => l_lpn_id_out
6805: , p_lpn_out => l_lpn_out
6806: , p_source => l_lpn_source );
6807:
6808: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
6809: IF (l_debug = 1) THEN
6810: mdebug('failed to generate lpn '|| x_msg_data, 1);
6811: END IF;
6812: fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
6810: mdebug('failed to generate lpn '|| x_msg_data, 1);
6811: END IF;
6812: fnd_message.set_name('WMS', 'WMS_LPN_GENERATION_FAIL');
6813: fnd_msg_pub.ADD;
6814: RAISE fnd_api.g_exc_unexpected_error;
6815: END IF;
6816:
6817: IF (l_debug = 1) THEN
6818: mdebug('Process Id '|| TO_CHAR(l_process_id), G_INFO);
6885: mdebug('error msg: '|| x_proc_msg, 1);
6886: END IF;
6887: fnd_message.set_name('WMS', 'WMS_INSERT_LINE_TRX_FAIL');
6888: fnd_msg_pub.ADD;
6889: RAISE fnd_api.g_exc_unexpected_error;
6890: END IF;
6891:
6892: IF (l_debug = 1) THEN
6893: mdebug('trx temp id created: '|| TO_CHAR(l_trx_tmp_id), G_INFO);
6915: mdebug('error msg: '|| x_proc_msg, G_ERROR);
6916: END IF;
6917: fnd_message.set_name('WMS', 'WMS_INSERT_LOT_TRX_FAIL');
6918: fnd_msg_pub.ADD;
6919: RAISE fnd_api.g_exc_unexpected_error;
6920: END IF;
6921: END IF;
6922:
6923: IF ( x_error_code = 0 AND l_serial_number_from IS NOT NULL ) THEN
6944: mdebug('error msg: '|| x_proc_msg, G_ERROR);
6945: END IF;
6946: fnd_message.set_name('WMS', 'WMS_INSERT_SER_TRX_FAIL');
6947: fnd_msg_pub.ADD;
6948: RAISE fnd_api.g_exc_unexpected_error;
6949: END IF;
6950: END IF;
6951:
6952: IF (l_debug = 1) THEN
6954: END IF;
6955:
6956: WMS_CARTNZN_WRAP.Cartonize (
6957: p_api_version => 1.0
6958: , p_init_msg_list => fnd_api.g_false
6959: , p_commit => fnd_api.g_false
6960: , x_return_status => x_return_status
6961: , x_msg_count => x_msg_count
6962: , x_msg_data => x_msg_data
6955:
6956: WMS_CARTNZN_WRAP.Cartonize (
6957: p_api_version => 1.0
6958: , p_init_msg_list => fnd_api.g_false
6959: , p_commit => fnd_api.g_false
6960: , x_return_status => x_return_status
6961: , x_msg_count => x_msg_count
6962: , x_msg_data => x_msg_data
6963: , p_org_id => p_organization_id
6964: , p_transaction_header_id => l_trx_header_id
6965: , p_stop_level => p_packaging_level
6966: , p_packaging_mode => WMS_CARTNZN_WRAP.PREPACK_PKG_MODE );
6967:
6968: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
6969: IF (l_debug = 1) THEN
6970: mdebug('Error in calling Cartonization'|| x_msg_data, 1);
6971: END IF;
6972: RAISE fnd_api.g_exc_error;
6968: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
6969: IF (l_debug = 1) THEN
6970: mdebug('Error in calling Cartonization'|| x_msg_data, 1);
6971: END IF;
6972: RAISE fnd_api.g_exc_error;
6973: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
6974: IF (l_debug = 1) THEN
6975: mdebug('Unexpectied error in calling Cartonization'|| x_msg_data, 1);
6976: END IF;
6969: IF (l_debug = 1) THEN
6970: mdebug('Error in calling Cartonization'|| x_msg_data, 1);
6971: END IF;
6972: RAISE fnd_api.g_exc_error;
6973: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
6974: IF (l_debug = 1) THEN
6975: mdebug('Unexpectied error in calling Cartonization'|| x_msg_data, 1);
6976: END IF;
6977: RAISE fnd_api.g_exc_unexpected_error;
6973: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
6974: IF (l_debug = 1) THEN
6975: mdebug('Unexpectied error in calling Cartonization'|| x_msg_data, 1);
6976: END IF;
6977: RAISE fnd_api.g_exc_unexpected_error;
6978: ELSIF (x_return_status <> fnd_api.g_ret_sts_success) THEN
6979: IF (l_debug = 1) THEN
6980: mdebug('Undefined error in calling Cartonization'|| x_msg_data, 1);
6981: END IF;
6974: IF (l_debug = 1) THEN
6975: mdebug('Unexpectied error in calling Cartonization'|| x_msg_data, 1);
6976: END IF;
6977: RAISE fnd_api.g_exc_unexpected_error;
6978: ELSIF (x_return_status <> fnd_api.g_ret_sts_success) THEN
6979: IF (l_debug = 1) THEN
6980: mdebug('Undefined error in calling Cartonization'|| x_msg_data, 1);
6981: END IF;
6982: RAISE fnd_api.g_exc_unexpected_error;
6978: ELSIF (x_return_status <> fnd_api.g_ret_sts_success) THEN
6979: IF (l_debug = 1) THEN
6980: mdebug('Undefined error in calling Cartonization'|| x_msg_data, 1);
6981: END IF;
6982: RAISE fnd_api.g_exc_unexpected_error;
6983: END IF;
6984:
6985: IF (l_debug = 1) THEN
6986: mdebug('cartonization api done');
7017: mdebug('failed genreate serials ' || TO_CHAR(x_error_code));
7018: END IF;
7019: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_SER');
7020: FND_MSG_PUB.ADD;
7021: RAISE FND_API.G_EXC_ERROR;
7022: ELSE
7023: IF (l_debug = 1) THEN
7024: mdebug('genreated serials ' || l_cont_serial_number_from || ' - ' || l_cont_serial_number_to);
7025: END IF;
7102: END IF;
7103: fnd_message.set_name('WMS', 'WMS_CARTONIZE_ERROR');
7104: fnd_msg_pub.ADD;
7105: --COMMIT;
7106: RAISE fnd_api.g_exc_unexpected_error;
7107: END IF;
7108:
7109: IF (l_debug = 1) THEN
7110: mdebug('packing lpn='|| l_lpn_to_pack || ' with qty=' || l_primary_quantity || ' ' ||l_primary_uom);
7165: mdebug('error msg: '|| x_proc_msg, 1);
7166: END IF;
7167: fnd_message.set_name('WMS', 'WMS_INSERT_LINE_TRX_FAIL');
7168: fnd_msg_pub.ADD;
7169: RAISE fnd_api.g_exc_unexpected_error;
7170: END IF;
7171:
7172: IF (l_debug = 1) THEN
7173: mdebug('trx temp id created: '|| TO_CHAR(l_trx_tmp_id), G_INFO);
7195: mdebug('error msg: '|| x_proc_msg, 1);
7196: END IF;
7197: fnd_message.set_name('WMS', 'WMS_INSERT_LOT_TRX_FAIL');
7198: fnd_msg_pub.ADD;
7199: RAISE fnd_api.g_exc_unexpected_error;
7200: END IF;
7201: END IF;
7202:
7203: IF ( x_error_code = 0 AND l_serial_number_from IS NOT NULL ) THEN
7222: mdebug('error msg: '|| x_proc_msg, 1);
7223: END IF;
7224: fnd_message.set_name('WMS', 'WMS_INSERT_SER_TRX_FAIL');
7225: fnd_msg_pub.ADD;
7226: RAISE fnd_api.g_exc_unexpected_error;
7227: END IF;
7228: END IF;
7229:
7230: --Call LPN Transaction API
7230: --Call LPN Transaction API
7231: IF (l_debug = 1) THEN
7232: mdebug('calling process lpn trx');
7233: END IF;
7234: 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);
7235:
7236: IF (x_error_code <> 0) THEN
7237: IF (l_debug = 1) THEN
7238: mdebug('failed PROCESS_LPN_TRX '|| x_error_code, 1);
7239: mdebug('error msg: '|| error_msg, G_ERROR);
7240: END IF;
7241: fnd_message.set_name('WMS', 'WMS_PROCESS_LPN_TRX_FAIL');
7242: fnd_msg_pub.ADD;
7243: RAISE fnd_api.g_exc_unexpected_error;
7244: END IF;
7245:
7246: IF (l_debug = 1) THEN
7247: mdebug('Packed LPN_ID '|| TO_CHAR(l_lpn_to_pack), G_INFO);
7252: END IF;
7253:
7254: PackUnpack_Container(
7255: p_api_version=> 1.0,
7256: p_init_msg_list=> fnd_api.g_false,
7257: p_commit=> fnd_api.g_false,
7258: p_validation_level=> fnd_api.g_valid_level_none,
7259: x_return_status=> x_return_status,
7260: x_msg_count=> x_msg_count,
7253:
7254: PackUnpack_Container(
7255: p_api_version=> 1.0,
7256: p_init_msg_list=> fnd_api.g_false,
7257: p_commit=> fnd_api.g_false,
7258: p_validation_level=> fnd_api.g_valid_level_none,
7259: x_return_status=> x_return_status,
7260: x_msg_count=> x_msg_count,
7261: x_msg_data=> x_msg_data,
7254: PackUnpack_Container(
7255: p_api_version=> 1.0,
7256: p_init_msg_list=> fnd_api.g_false,
7257: p_commit=> fnd_api.g_false,
7258: p_validation_level=> fnd_api.g_valid_level_none,
7259: x_return_status=> x_return_status,
7260: x_msg_count=> x_msg_count,
7261: x_msg_data=> x_msg_data,
7262: p_lpn_id=> l_lpn_to_pack,
7269: p_uom=> l_primary_uom,
7270: p_organization_id=> p_organization_id,
7271: p_operation=> 1 );
7272:
7273: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
7274: IF (l_debug = 1) THEN
7275: mdebug('failed to pack lpn: '|| TO_CHAR(l_lpn_to_pack), G_ERROR);
7276: END IF;
7277: fnd_message.set_name('WMS', 'WMS_PACK_CONTAINER_FAIL');
7276: END IF;
7277: fnd_message.set_name('WMS', 'WMS_PACK_CONTAINER_FAIL');
7278: fnd_message.set_token('lpn', TO_CHAR(l_lpn_to_pack));
7279: fnd_msg_pub.ADD;
7280: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7281: ELSE
7282: IF (l_debug = 1) THEN
7283: mdebug('packed lpn: '|| l_lpn_to_pack || ' with qty ' || l_primary_quantity, G_INFO);
7284: END IF;
7304: mdebug('Sealing LPN', G_MESSAGE);
7305: END IF;
7306: modify_lpn_wrapper(
7307: p_api_version=> 1.0,
7308: p_init_msg_list=> fnd_api.g_false,
7309: p_commit=> fnd_api.g_false,
7310: x_return_status=> x_return_status,
7311: x_msg_count=> x_msg_count,
7312: x_msg_data=> x_msg_data,
7305: END IF;
7306: modify_lpn_wrapper(
7307: p_api_version=> 1.0,
7308: p_init_msg_list=> fnd_api.g_false,
7309: p_commit=> fnd_api.g_false,
7310: x_return_status=> x_return_status,
7311: x_msg_count=> x_msg_count,
7312: x_msg_data=> x_msg_data,
7313: p_lpn_id=> l_lpn_to_pack,
7312: x_msg_data=> x_msg_data,
7313: p_lpn_id=> l_lpn_to_pack,
7314: p_sealed_status=> 1 );
7315:
7316: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
7317: IF (l_debug = 1) THEN
7318: mdebug('failed to seal lpn: '|| TO_CHAR(l_lpn_to_pack), G_ERROR);
7319: END IF;
7320: fnd_message.set_name('WMS', 'WMS_PACK_CONTAINER_FAIL');
7318: mdebug('failed to seal lpn: '|| TO_CHAR(l_lpn_to_pack), G_ERROR);
7319: END IF;
7320: fnd_message.set_name('WMS', 'WMS_PACK_CONTAINER_FAIL');
7321: fnd_msg_pub.ADD;
7322: RAISE fnd_api.g_exc_unexpected_error;
7323: END IF;
7324: END IF;
7325: END LOOP;
7326:
7339: , p_print_mode => 1
7340: , p_business_flow_code => 22
7341: , p_transaction_id => WMS_CARTNZN_WRAP.get_lpns_generated_tb);
7342:
7343: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
7344: IF (l_debug = 1) THEN
7345: mdebug('**Error in Cartonization Label Printing :'||x_return_status,1);
7346: END IF;
7347: RAISE FND_API.G_EXC_ERROR;
7343: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
7344: IF (l_debug = 1) THEN
7345: mdebug('**Error in Cartonization Label Printing :'||x_return_status,1);
7346: END IF;
7347: RAISE FND_API.G_EXC_ERROR;
7348: END if;
7349: END IF;
7350:
7351: IF (l_print_label = 1) THEN
7363: p_business_flow_code=> 20,
7364: p_input_param_rec=> l_input_param_tbl
7365: );
7366:
7367: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
7368: IF (l_debug = 1) THEN
7369: mdebug('failed to print labels', 1);
7370: END IF;
7371: fnd_message.set_name('WMS', 'WMS_PRINT_LABEL_FAIL');
7369: mdebug('failed to print labels', 1);
7370: END IF;
7371: fnd_message.set_name('WMS', 'WMS_PRINT_LABEL_FAIL');
7372: fnd_msg_pub.ADD;
7373: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7374: END IF;
7375: END IF;
7376:
7377: -- Close cursor
7393:
7394: -- End of API body
7395:
7396: -- Standard check of p_commit.
7397: IF fnd_api.to_boolean(p_commit) THEN
7398: COMMIT WORK;
7399: END IF;
7400:
7401: -- Standard call to get message count and if count is 1,
7401: -- Standard call to get message count and if count is 1,
7402: -- get message info.
7403: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7404: EXCEPTION
7405: WHEN fnd_api.g_exc_error THEN
7406: IF (l_debug = 1) THEN
7407: mdebug('Execution Error', 1);
7408: END IF;
7409: ROLLBACK TO prepack_lpn_pub;
7406: IF (l_debug = 1) THEN
7407: mdebug('Execution Error', 1);
7408: END IF;
7409: ROLLBACK TO prepack_lpn_pub;
7410: x_return_status := fnd_api.g_ret_sts_error;
7411: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7412: WHEN fnd_api.g_exc_unexpected_error THEN
7413: IF (l_debug = 1) THEN
7414: mdebug('Unexpected Execution Error', 1);
7408: END IF;
7409: ROLLBACK TO prepack_lpn_pub;
7410: x_return_status := fnd_api.g_ret_sts_error;
7411: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7412: WHEN fnd_api.g_exc_unexpected_error THEN
7413: IF (l_debug = 1) THEN
7414: mdebug('Unexpected Execution Error', 1);
7415: END IF;
7416: ROLLBACK TO prepack_lpn_pub;
7413: IF (l_debug = 1) THEN
7414: mdebug('Unexpected Execution Error', 1);
7415: END IF;
7416: ROLLBACK TO prepack_lpn_pub;
7417: x_return_status := fnd_api.g_ret_sts_unexp_error;
7418: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7419: WHEN OTHERS THEN
7420: IF (l_debug = 1) THEN
7421: mdebug('others error', 1);
7420: IF (l_debug = 1) THEN
7421: mdebug('others error', 1);
7422: END IF;
7423: ROLLBACK TO prepack_lpn_pub;
7424: x_return_status := fnd_api.g_ret_sts_error;
7425: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7426: END Prepack_LPN;
7427:
7428: -- ----------------------------------------------------------------------------------
7429: -- ----------------------------------------------------------------------------------
7430:
7431: PROCEDURE Pack_Prepack_Container(
7432: p_api_version IN NUMBER
7433: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
7434: , p_commit IN VARCHAR2 := fnd_api.g_false
7435: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
7436: , x_return_status OUT NOCOPY VARCHAR2
7437: , x_msg_count OUT NOCOPY NUMBER
7430:
7431: PROCEDURE Pack_Prepack_Container(
7432: p_api_version IN NUMBER
7433: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
7434: , p_commit IN VARCHAR2 := fnd_api.g_false
7435: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
7436: , x_return_status OUT NOCOPY VARCHAR2
7437: , x_msg_count OUT NOCOPY NUMBER
7438: , x_msg_data OUT NOCOPY VARCHAR2
7431: PROCEDURE Pack_Prepack_Container(
7432: p_api_version IN NUMBER
7433: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
7434: , p_commit IN VARCHAR2 := fnd_api.g_false
7435: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
7436: , x_return_status OUT NOCOPY VARCHAR2
7437: , x_msg_count OUT NOCOPY NUMBER
7438: , x_msg_data OUT NOCOPY VARCHAR2
7439: , p_lpn_id IN NUMBER
7467: -- Standard Start of API savepoint
7468: SAVEPOINT PACK_PREPACK_CONTAINER;
7469:
7470: -- Standard call to check for call compatibility.
7471: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
7472: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
7473: fnd_msg_pub.ADD;
7474: RAISE fnd_api.g_exc_unexpected_error;
7475: END IF;
7470: -- Standard call to check for call compatibility.
7471: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
7472: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
7473: fnd_msg_pub.ADD;
7474: RAISE fnd_api.g_exc_unexpected_error;
7475: END IF;
7476:
7477: -- Initialize message list if p_init_msg_list is set to TRUE.
7478: IF fnd_api.to_boolean(p_init_msg_list) THEN
7474: RAISE fnd_api.g_exc_unexpected_error;
7475: END IF;
7476:
7477: -- Initialize message list if p_init_msg_list is set to TRUE.
7478: IF fnd_api.to_boolean(p_init_msg_list) THEN
7479: fnd_msg_pub.initialize;
7480: END IF;
7481:
7482: -- Initialize API return status to success
7479: fnd_msg_pub.initialize;
7480: END IF;
7481:
7482: -- Initialize API return status to success
7483: x_return_status := fnd_api.g_ret_sts_success;
7484:
7485: -- API body
7486: IF (l_debug = 1) THEN
7487: mdebug(l_api_name || ' Entered ' || g_pkg_version, 1);
7499: mdebug('Invalid serial number given in range', 1);
7500: END IF;
7501: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SER');
7502: fnd_msg_pub.ADD;
7503: RAISE fnd_api.g_exc_error;
7504: END IF;
7505:
7506: -- Initialize the current pointer variables
7507: l_current_serial := p_from_serial_number;
7560: END IF;
7561: -- End of API body
7562:
7563: -- Standard check of p_commit.
7564: IF fnd_api.to_boolean(p_commit) THEN
7565: COMMIT WORK;
7566: END IF;
7567:
7568: -- Standard call to get message count and if count is 1,
7568: -- Standard call to get message count and if count is 1,
7569: -- get message info.
7570: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7571: EXCEPTION
7572: WHEN fnd_api.g_exc_error THEN
7573: ROLLBACK TO PACK_PREPACK_CONTAINER;
7574: x_return_status := fnd_api.g_ret_sts_error;
7575: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7576: WHEN fnd_api.g_exc_unexpected_error THEN
7570: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7571: EXCEPTION
7572: WHEN fnd_api.g_exc_error THEN
7573: ROLLBACK TO PACK_PREPACK_CONTAINER;
7574: x_return_status := fnd_api.g_ret_sts_error;
7575: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7576: WHEN fnd_api.g_exc_unexpected_error THEN
7577: ROLLBACK TO PACK_PREPACK_CONTAINER;
7578: x_return_status := fnd_api.g_ret_sts_unexp_error;
7572: WHEN fnd_api.g_exc_error THEN
7573: ROLLBACK TO PACK_PREPACK_CONTAINER;
7574: x_return_status := fnd_api.g_ret_sts_error;
7575: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7576: WHEN fnd_api.g_exc_unexpected_error THEN
7577: ROLLBACK TO PACK_PREPACK_CONTAINER;
7578: x_return_status := fnd_api.g_ret_sts_unexp_error;
7579: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7580: WHEN OTHERS THEN
7574: x_return_status := fnd_api.g_ret_sts_error;
7575: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7576: WHEN fnd_api.g_exc_unexpected_error THEN
7577: ROLLBACK TO PACK_PREPACK_CONTAINER;
7578: x_return_status := fnd_api.g_ret_sts_unexp_error;
7579: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7580: WHEN OTHERS THEN
7581: ROLLBACK TO PACK_PREPACK_CONTAINER;
7582: x_return_status := fnd_api.g_ret_sts_unexp_error;
7578: x_return_status := fnd_api.g_ret_sts_unexp_error;
7579: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7580: WHEN OTHERS THEN
7581: ROLLBACK TO PACK_PREPACK_CONTAINER;
7582: x_return_status := fnd_api.g_ret_sts_unexp_error;
7583:
7584: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
7585: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
7586: END IF;
7592: -- ----------------------------------------------------------------------------------
7593:
7594: PROCEDURE Explode_LPN (
7595: p_api_version IN NUMBER
7596: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
7597: , p_commit IN VARCHAR2 := fnd_api.g_false
7598: , x_return_status OUT NOCOPY VARCHAR2
7599: , x_msg_count OUT NOCOPY NUMBER
7600: , x_msg_data OUT NOCOPY VARCHAR2
7593:
7594: PROCEDURE Explode_LPN (
7595: p_api_version IN NUMBER
7596: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
7597: , p_commit IN VARCHAR2 := fnd_api.g_false
7598: , x_return_status OUT NOCOPY VARCHAR2
7599: , x_msg_count OUT NOCOPY NUMBER
7600: , x_msg_data OUT NOCOPY VARCHAR2
7601: , p_lpn_id IN NUMBER
7654: mdebug('ver='||p_api_version||' initmsg='||p_init_msg_list||' commit='||p_commit||' lpn='||p_lpn_id||' explvl='||p_explosion_level, G_INFO);
7655: END IF;
7656:
7657: -- Standard call to check for call compatibility.
7658: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
7659: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
7660: fnd_msg_pub.ADD;
7661: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7662: END IF;
7657: -- Standard call to check for call compatibility.
7658: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
7659: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
7660: fnd_msg_pub.ADD;
7661: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7662: END IF;
7663:
7664: -- Initialize message list if p_init_msg_list is set to TRUE.
7665: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7661: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7662: END IF;
7663:
7664: -- Initialize message list if p_init_msg_list is set to TRUE.
7665: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7666: FND_MSG_PUB.initialize;
7667: END IF;
7668:
7669: -- Initialize API return status to success
7666: FND_MSG_PUB.initialize;
7667: END IF;
7668:
7669: -- Initialize API return status to success
7670: x_return_status := FND_API.G_RET_STS_SUCCESS;
7671:
7672: -- API body
7673: IF (p_explosion_level = 0) THEN
7674: /* Use the cursor that searches through all levels in the parent child relationship */
7824: mdebug(l_api_name || ' Exit x_content_tbl count=' ||x_content_tbl.last, G_INFO);
7825: END IF;
7826:
7827: -- Standard check of p_commit.
7828: IF FND_API.To_Boolean( p_commit ) THEN
7829: COMMIT WORK;
7830: END IF;
7831:
7832: -- Standard call to get message count and if count is 1,
7832: -- Standard call to get message count and if count is 1,
7833: -- get message info.
7834: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
7835: EXCEPTION
7836: WHEN FND_API.G_EXC_ERROR THEN
7837: ROLLBACK TO EXPLODE_LPN;
7838: x_return_status := FND_API.G_RET_STS_ERROR;
7839: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
7840:
7834: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
7835: EXCEPTION
7836: WHEN FND_API.G_EXC_ERROR THEN
7837: ROLLBACK TO EXPLODE_LPN;
7838: x_return_status := FND_API.G_RET_STS_ERROR;
7839: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
7840:
7841: IF (l_debug = 1) THEN
7842: mdebug(l_api_name ||' Exc err prog='||g_progress||' SQL err: '|| SQLERRM(SQLCODE), 1);
7844: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
7845: END LOOP;
7846: mdebug('msg: '||l_msgdata, 1);
7847: END IF;
7848: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7849: ROLLBACK TO EXPLODE_LPN;
7850: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7851: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
7852:
7846: mdebug('msg: '||l_msgdata, 1);
7847: END IF;
7848: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7849: ROLLBACK TO EXPLODE_LPN;
7850: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7851: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
7852:
7853: IF (l_debug = 1) THEN
7854: mdebug(l_api_name ||' Unexp err prog='||g_progress||' SQL err: '|| SQLERRM(SQLCODE), 1);
7858: mdebug('msg: '||l_msgdata, 1);
7859: END IF;
7860: WHEN OTHERS THEN
7861: ROLLBACK TO EXPLODE_LPN;
7862: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7863:
7864: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7865: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7866: END IF;
7889: l_progress VARCHAR2(10) := '0';
7890:
7891: BEGIN
7892: /* Check that either an lpn id or license plate number was given */
7893: IF ((p_lpn.lpn_id IS NULL OR p_lpn.lpn_id = FND_API.G_MISS_NUM) AND
7894: (p_lpn.license_plate_number IS NULL OR
7895: p_lpn.license_plate_number = FND_API.G_MISS_CHAR)) THEN
7896: RETURN F;
7897: END IF;
7891: BEGIN
7892: /* Check that either an lpn id or license plate number was given */
7893: IF ((p_lpn.lpn_id IS NULL OR p_lpn.lpn_id = FND_API.G_MISS_NUM) AND
7894: (p_lpn.license_plate_number IS NULL OR
7895: p_lpn.license_plate_number = FND_API.G_MISS_CHAR)) THEN
7896: RETURN F;
7897: END IF;
7898:
7899: /* Search the table for an entry that matches the given input(s) */
7897: END IF;
7898:
7899: /* Search the table for an entry that matches the given input(s) */
7900: IF (p_lpn.license_plate_number IS NULL OR
7901: p_lpn.license_plate_number = FND_API.G_MISS_CHAR)
7902: THEN
7903: IF ( p_lock = 1 ) THEN
7904: SELECT *
7905: INTO p_lpn
7913: WHERE LPN_ID = p_lpn.lpn_id;
7914: END IF;
7915:
7916: RETURN T;
7917: ELSIF (p_lpn.lpn_id IS NULL OR p_lpn.lpn_id = FND_API.G_MISS_NUM) THEN
7918: IF ( p_lock = 1 ) THEN
7919: SELECT *
7920: INTO p_lpn
7921: FROM WMS_LICENSE_PLATE_NUMBERS
8126: -- ----------------------------------------------------------------------------------
8127:
8128: PROCEDURE Merge_Up_LPN (
8129: p_api_version IN NUMBER
8130: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
8131: , p_commit IN VARCHAR2 := fnd_api.g_false
8132: , x_return_status OUT NOCOPY VARCHAR2
8133: , x_msg_count OUT NOCOPY NUMBER
8134: , x_msg_data OUT NOCOPY VARCHAR2
8127:
8128: PROCEDURE Merge_Up_LPN (
8129: p_api_version IN NUMBER
8130: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
8131: , p_commit IN VARCHAR2 := fnd_api.g_false
8132: , x_return_status OUT NOCOPY VARCHAR2
8133: , x_msg_count OUT NOCOPY NUMBER
8134: , x_msg_data OUT NOCOPY VARCHAR2
8135: , p_organization_id IN NUMBER
8200: -- Standard Start of API savepoint
8201: SAVEPOINT MERGE_UP_LPN;
8202:
8203: -- Initialize message list if p_init_msg_list is set to TRUE.
8204: IF fnd_api.to_boolean(p_init_msg_list) THEN
8205: fnd_msg_pub.initialize;
8206: END IF;
8207:
8208: -- Initialize API return status to success
8205: fnd_msg_pub.initialize;
8206: END IF;
8207:
8208: -- Initialize API return status to success
8209: x_return_status := FND_API.G_RET_STS_SUCCESS;
8210:
8211: IF (l_debug = 1) THEN
8212: mdebug(l_api_name || ' Entered ' || g_pkg_version, 1);
8213: mdebug('orgid=' ||p_organization_id||' lpnid='||p_outermost_lpn_id, G_MESSAGE);
8244: IF ( l_return_status <> 0) THEN
8245: IF (l_debug = 1) THEN
8246: mdebug('Insert_Line_Trx failed :'||x_msg_data, 1);
8247: END IF;
8248: RAISE FND_API.G_EXC_ERROR;
8249: END IF;
8250:
8251: IF (l_debug = 1) THEN
8252: 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);
8332: IF ( l_return_status <> 0 ) THEN
8333: IF (l_debug = 1) THEN
8334: mdebug('Insert_Lot_Trx failed :'||x_msg_data, 1);
8335: END IF;
8336: RAISE FND_API.G_EXC_ERROR;
8337: END IF;
8338:
8339: IF (l_debug = 1) THEN
8340: 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);
8370: mdebug('Inv_Serial_Info failed', 1);
8371: END IF;
8372: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_SER');
8373: FND_MSG_PUB.ADD;
8374: RAISE FND_API.G_EXC_ERROR;
8375: END IF;
8376: -- calculate the length of the serial number suffix
8377: l_serial_suffix_length := LENGTH(l_fm_serial) - LENGTH(l_serial_prefix);
8378: l_serial_suffix := l_serial_suffix + 1;
8406: IF ( l_return_status <> 0 ) THEN
8407: IF (l_debug = 1) THEN
8408: mdebug('Insert_Ser_Trx failed :'||x_msg_data, 1);
8409: END IF;
8410: RAISE FND_API.G_EXC_ERROR;
8411: END IF;
8412: -- reset serial variables
8413: l_fm_serial:= l_crnt_ser_rec.serial_number;
8414: l_to_serial:= l_crnt_ser_rec.serial_number;
8518: l_return_status := INV_LPN_TRX_PUB.PROCESS_LPN_TRX (
8519: p_trx_hdr_id => l_trx_hdr_id
8520: , x_proc_msg => x_msg_data
8521: , p_proc_mode => 1
8522: , p_atomic => fnd_api.g_true );
8523: IF ( l_return_status <> 0 ) THEN
8524: IF (l_debug = 1) THEN
8525: mdebug('PROCESS_LPN_TRX Failed msg: '||x_msg_data, 1);
8526: END IF;
8523: IF ( l_return_status <> 0 ) THEN
8524: IF (l_debug = 1) THEN
8525: mdebug('PROCESS_LPN_TRX Failed msg: '||x_msg_data, 1);
8526: END IF;
8527: RAISE fnd_api.g_exc_error;
8528: END IF;
8529:
8530: INV_LABEL.PRINT_LABEL_MANUAL_WRAP(
8531: x_return_status => l_label_return
8539: mdebug('Called INV_LABEL.PRINT_LABEL, return_status='||l_label_return||' label stat='||l_label_status, 1);
8540: END IF;
8541:
8542: -- Standard check of p_commit.
8543: IF FND_API.To_Boolean( p_commit ) THEN
8544: COMMIT WORK;
8545: END IF;
8546:
8547: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
8554: END IF;
8555: END IF;
8556:
8557: ROLLBACK TO MERGE_UP_LPN;
8558: x_return_status := fnd_api.g_ret_sts_error;
8559: fnd_message.set_name('WMS', 'WMS_API_FAILURE');
8560: fnd_msg_pub.ADD;
8561: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8562: END Merge_Up_LPN;
8565: -- ----------------------------------------------------------------------------------
8566:
8567: PROCEDURE Break_Down_LPN(
8568: p_api_version IN NUMBER
8569: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
8570: , p_commit IN VARCHAR2 := fnd_api.g_false
8571: , x_return_status OUT NOCOPY VARCHAR2
8572: , x_msg_count OUT NOCOPY NUMBER
8573: , x_msg_data OUT NOCOPY VARCHAR2
8566:
8567: PROCEDURE Break_Down_LPN(
8568: p_api_version IN NUMBER
8569: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
8570: , p_commit IN VARCHAR2 := fnd_api.g_false
8571: , x_return_status OUT NOCOPY VARCHAR2
8572: , x_msg_count OUT NOCOPY NUMBER
8573: , x_msg_data OUT NOCOPY VARCHAR2
8574: , p_organization_id IN NUMBER
8598: -- Standard Start of API savepoint
8599: SAVEPOINT BREAK_DOWN_LPN;
8600:
8601: -- Standard call to check for call compatibility.
8602: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
8603: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
8604: fnd_msg_pub.ADD;
8605: RAISE fnd_api.g_exc_unexpected_error;
8606: END IF;
8601: -- Standard call to check for call compatibility.
8602: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
8603: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
8604: fnd_msg_pub.ADD;
8605: RAISE fnd_api.g_exc_unexpected_error;
8606: END IF;
8607:
8608: -- Initialize message list if p_init_msg_list is set to TRUE.
8609: IF fnd_api.to_boolean(p_init_msg_list) THEN
8605: RAISE fnd_api.g_exc_unexpected_error;
8606: END IF;
8607:
8608: -- Initialize message list if p_init_msg_list is set to TRUE.
8609: IF fnd_api.to_boolean(p_init_msg_list) THEN
8610: fnd_msg_pub.initialize;
8611: END IF;
8612:
8613: -- Initialize API return status to success
8610: fnd_msg_pub.initialize;
8611: END IF;
8612:
8613: -- Initialize API return status to success
8614: x_return_status := FND_API.G_RET_STS_SUCCESS;
8615:
8616: IF (l_debug = 1) THEN
8617: mdebug(l_api_name || ' Entered ' || g_pkg_version, 1);
8618: mdebug('orgid=' ||p_organization_id||' lpnid='||p_outermost_lpn_id, G_MESSAGE);
8658: l_return_status := INV_LPN_TRX_PUB.PROCESS_LPN_TRX (
8659: p_trx_hdr_id => l_trx_hdr_id
8660: , x_proc_msg => x_msg_data
8661: , p_proc_mode => 1
8662: , p_atomic => fnd_api.g_true );
8663: IF ( l_return_status <> 0 ) THEN
8664: IF (l_debug = 1) THEN
8665: mdebug('PROCESS_LPN_TRX Failed msg: '||x_msg_data, 1);
8666: END IF;
8663: IF ( l_return_status <> 0 ) THEN
8664: IF (l_debug = 1) THEN
8665: mdebug('PROCESS_LPN_TRX Failed msg: '||x_msg_data, 1);
8666: END IF;
8667: RAISE fnd_api.g_exc_error;
8668: END IF;
8669:
8670: -- Add entry for this lpn to print label for outermost lpn
8671: l_input_param_rec_tbl(l_label_count).lpn_id := p_outermost_lpn_id;
8684: mdebug('Called INV_LABEL.PRINT_LABEL, return_status='||l_label_return||' label stat='||l_label_status, 1);
8685: END IF;
8686:
8687: -- Standard check of p_commit.
8688: IF FND_API.To_Boolean( p_commit ) THEN
8689: COMMIT WORK;
8690: END IF;
8691:
8692: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
8699: END IF;
8700: END IF;
8701:
8702: ROLLBACK TO BREAK_DOWN_LPN;
8703: x_return_status := fnd_api.g_ret_sts_error;
8704: fnd_message.set_name('WMS', 'WMS_API_FAILURE');
8705: fnd_msg_pub.ADD;
8706: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8707: END Break_Down_LPN;
8710: -- ----------------------------------------------------------------------------------
8711:
8712: PROCEDURE Initialize_LPN (
8713: p_api_version IN NUMBER
8714: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
8715: , p_commit IN VARCHAR2 := fnd_api.g_false
8716: , x_return_status OUT NOCOPY VARCHAR2
8717: , x_msg_count OUT NOCOPY NUMBER
8718: , x_msg_data OUT NOCOPY VARCHAR2
8711:
8712: PROCEDURE Initialize_LPN (
8713: p_api_version IN NUMBER
8714: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
8715: , p_commit IN VARCHAR2 := fnd_api.g_false
8716: , x_return_status OUT NOCOPY VARCHAR2
8717: , x_msg_count OUT NOCOPY NUMBER
8718: , x_msg_data OUT NOCOPY VARCHAR2
8719: , p_organization_id IN NUMBER
8734: -- Standard Start of API savepoint
8735: SAVEPOINT INITIALIZE_LPN;
8736:
8737: -- Standard call to check for call compatibility.
8738: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
8739: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
8740: fnd_msg_pub.ADD;
8741: RAISE fnd_api.g_exc_unexpected_error;
8742: END IF;
8737: -- Standard call to check for call compatibility.
8738: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
8739: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
8740: fnd_msg_pub.ADD;
8741: RAISE fnd_api.g_exc_unexpected_error;
8742: END IF;
8743:
8744: -- Initialize message list if p_init_msg_list is set to TRUE.
8745: IF fnd_api.to_boolean(p_init_msg_list) THEN
8741: RAISE fnd_api.g_exc_unexpected_error;
8742: END IF;
8743:
8744: -- Initialize message list if p_init_msg_list is set to TRUE.
8745: IF fnd_api.to_boolean(p_init_msg_list) THEN
8746: fnd_msg_pub.initialize;
8747: END IF;
8748:
8749: -- Initialize API return status to success
8746: fnd_msg_pub.initialize;
8747: END IF;
8748:
8749: -- Initialize API return status to success
8750: x_return_status := FND_API.G_RET_STS_SUCCESS;
8751:
8752: IF (l_debug = 1) THEN
8753: mdebug(l_api_name || ' Entered ' || g_pkg_version, 1);
8754: mdebug('orgid=' ||p_organization_id||' lpnid='||p_outermost_lpn_id, G_MESSAGE);
8779: WHERE rowid = lpn_rec.rowid;
8780: END LOOP;
8781:
8782: -- Standard check of p_commit.
8783: IF FND_API.To_Boolean( p_commit ) THEN
8784: COMMIT WORK;
8785: END IF;
8786:
8787: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
8794: END IF;
8795: END IF;
8796:
8797: ROLLBACK TO INITIALIZE_LPN;
8798: x_return_status := fnd_api.g_ret_sts_error;
8799: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8800: END Initialize_LPN;
8801:
8802: -- ----------------------------------------------------------------------------------
8839: l_delivery_id_tab(1) := l_delivery_id;
8840:
8841: wsh_interface_ext_grp.delivery_action
8842: (p_api_version_number => 1.0,
8843: p_init_msg_list => fnd_api.g_false,
8844: p_commit => fnd_api.g_false,
8845: p_action_prms => l_action_prms,
8846: p_delivery_id_tab => l_delivery_id_tab,
8847: x_delivery_out_rec => l_delivery_out_rec,
8840:
8841: wsh_interface_ext_grp.delivery_action
8842: (p_api_version_number => 1.0,
8843: p_init_msg_list => fnd_api.g_false,
8844: p_commit => fnd_api.g_false,
8845: p_action_prms => l_action_prms,
8846: p_delivery_id_tab => l_delivery_id_tab,
8847: x_delivery_out_rec => l_delivery_out_rec,
8848: x_return_status => l_return_status,
8849: x_msg_count => l_msg_count,
8850: x_msg_data => l_msg_data);
8851:
8852: IF x_return_status = 'E' THEN
8853: RAISE fnd_api.g_exc_error;
8854: ELSIF x_return_status = 'U' THEN
8855: RAISE fnd_api.g_exc_unexpected_error;
8856: END IF;
8857: END IF;
8851:
8852: IF x_return_status = 'E' THEN
8853: RAISE fnd_api.g_exc_error;
8854: ELSIF x_return_status = 'U' THEN
8855: RAISE fnd_api.g_exc_unexpected_error;
8856: END IF;
8857: END IF;
8858:
8859: x_return_status := 'S';
8858:
8859: x_return_status := 'S';
8860:
8861: EXCEPTION
8862: WHEN fnd_api.g_exc_error THEN
8863: x_return_status := 'E';
8864: mdebug('Plan Delivery: Error: E', 1);
8865: WHEN fnd_api.g_exc_unexpected_error THEN
8866: x_return_status := 'U';
8861: EXCEPTION
8862: WHEN fnd_api.g_exc_error THEN
8863: x_return_status := 'E';
8864: mdebug('Plan Delivery: Error: E', 1);
8865: WHEN fnd_api.g_exc_unexpected_error THEN
8866: x_return_status := 'U';
8867: mdebug('Plan Delivery: Error: U', 1);
8868: WHEN OTHERS THEN
8869: x_return_status := 'U';