[Home] [Help]
30: -- LPN Picked
31: G_LPN_CONTEXT_PICKED CONSTANT NUMBER := 11;
32:
33:
34: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := fnd_api.g_ret_sts_error;
35: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := fnd_api.g_ret_sts_unexp_error;
36: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.g_ret_sts_success;
37: G_TRUE CONSTANT VARCHAR2(1) := fnd_api.g_true;
38: G_FALSE CONSTANT VARCHAR2(1) := fnd_api.g_false;
31: G_LPN_CONTEXT_PICKED CONSTANT NUMBER := 11;
32:
33:
34: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := fnd_api.g_ret_sts_error;
35: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := fnd_api.g_ret_sts_unexp_error;
36: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.g_ret_sts_success;
37: G_TRUE CONSTANT VARCHAR2(1) := fnd_api.g_true;
38: G_FALSE CONSTANT VARCHAR2(1) := fnd_api.g_false;
39:
32:
33:
34: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := fnd_api.g_ret_sts_error;
35: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := fnd_api.g_ret_sts_unexp_error;
36: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.g_ret_sts_success;
37: G_TRUE CONSTANT VARCHAR2(1) := fnd_api.g_true;
38: G_FALSE CONSTANT VARCHAR2(1) := fnd_api.g_false;
39:
40: G_RTV CONSTANT VARCHAR2(25) := 'RETURN TO VENDOR';
33:
34: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := fnd_api.g_ret_sts_error;
35: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := fnd_api.g_ret_sts_unexp_error;
36: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.g_ret_sts_success;
37: G_TRUE CONSTANT VARCHAR2(1) := fnd_api.g_true;
38: G_FALSE CONSTANT VARCHAR2(1) := fnd_api.g_false;
39:
40: G_RTV CONSTANT VARCHAR2(25) := 'RETURN TO VENDOR';
41: G_RTC CONSTANT VARCHAR2(25) := 'RETURN TO CUSTOMER';
34: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := fnd_api.g_ret_sts_error;
35: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := fnd_api.g_ret_sts_unexp_error;
36: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.g_ret_sts_success;
37: G_TRUE CONSTANT VARCHAR2(1) := fnd_api.g_true;
38: G_FALSE CONSTANT VARCHAR2(1) := fnd_api.g_false;
39:
40: G_RTV CONSTANT VARCHAR2(25) := 'RETURN TO VENDOR';
41: G_RTC CONSTANT VARCHAR2(25) := 'RETURN TO CUSTOMER';
42: G_RTR CONSTANT VARCHAR2(25) := 'RETURN TO RECEIVING';
93: ELSE
94: IF l_debug = 1 THEN
95: print_debug('Unsupported mode',4);
96: END IF;
97: RAISE fnd_api.g_exc_error;
98: END IF;
99:
100: x_epc_column := l_epc_column;
101:
122: l_temp_str := Substr(l_epc_sql, l_last_error_pos-5, 50);
123: IF l_debug = 1 THEN
124: print_debug('Error in parse sql statement, at '||l_temp_str,4);
125: END IF;
126: RAISE fnd_api.g_exc_unexpected_error;
127: END;
128:
129: dbms_sql.bind_variable(l_epc_cursor,':lpn', p_lpn);
130: dbms_sql.bind_variable(l_epc_cursor,':src_grp_id', p_src_grp_id);
161: IF l_debug = 1 THEN
162: print_debug('Error in parse sql statement, at '||l_temp_str,4);
163: print_debug('ERROR CODE = '||SQLCODE||' ERROR MESSAGE = '||Sqlerrm,4);
164: END IF;
165: RAISE fnd_api.g_exc_unexpected_error;
166: END;
167:
168: dbms_sql.bind_variable(l_epc_cursor,':row_id', p_ser_if_rowid);
169: dbms_sql.define_column(l_epc_cursor, 1, l_epc_value, 30);
1221: print_debug('Error retrieving shipment line with id: ' ||
1222: p_shipment_line_id, 1);
1223: END IF;
1224: l_progress := 'WMSINB-10986';
1225: RAISE fnd_api.g_exc_error;
1226: END;
1227:
1228: l_progress := 'WMSINB-10990';
1229:
1239: IF (l_debug = 1) THEN
1240: print_debug('Error retrieving LPN context!',1);
1241: END IF;
1242: l_progress := 'WMSINB-10009';
1243: RAISE fnd_api.g_exc_error;
1244: END;
1245: ELSE
1246: l_lpn_context := NULL;
1247: END IF;
1283:
1284: FOR i IN 1 .. l_serial_numbers.COUNT LOOP
1285: wms_container_pvt.packunpack_container
1286: (p_api_version => 1.0
1287: ,p_validation_level => fnd_api.g_valid_level_none
1288: ,p_lpn_id => l_asn_lpn_id
1289: ,p_operation => 2 -- UNPACK
1290: ,p_organization_id => l_org_id
1291: ,p_content_item_id => l_item_id
1293: ,p_lot_number => l_lot_numbers(i)
1294: ,p_from_serial_number => l_serial_numbers(i)
1295: ,p_to_serial_number => l_serial_numbers(i)
1296: ,p_uom => l_prim_uom_code
1297: ,p_commit => fnd_api.g_true --??
1298: ,x_return_status => x_return_status
1299: ,x_msg_count => x_msg_count
1300: ,x_msg_data => x_msg_data
1301: );
1320: IF (l_debug = 1) THEN
1321: print_debug('CANCEL_ASN: Error retrieving uom_code', 1);
1322: END IF;
1323: l_progress := 'WMSINB-11065';
1324: RAISE fnd_api.g_exc_error;
1325: END;
1326:
1327: l_progress := 'WMSINB-11068';
1328: IF (l_debug = 1) THEN
1331: END IF;
1332:
1333: wms_container_pvt.packunpack_container
1334: (p_api_version => 1.0
1335: ,p_validation_level => fnd_api.g_valid_level_none
1336: ,p_lpn_id => l_asn_lpn_id
1337: ,p_operation => 2 -- UNPACK
1338: ,p_organization_id => l_org_id
1339: ,p_content_item_id => l_item_id
1339: ,p_content_item_id => l_item_id
1340: ,p_revision => l_revision
1341: ,p_quantity => l_quantity_to_unpack
1342: ,p_uom => l_uom_code
1343: ,p_commit => fnd_api.g_true --??
1344: ,x_return_status => x_return_status
1345: ,x_msg_count => x_msg_count
1346: ,x_msg_data => x_msg_data
1347: );
1388:
1389: FOR i IN 1 .. l_lot_numbers.COUNT LOOP
1390: wms_container_pvt.packunpack_container
1391: (p_api_version => 1.0
1392: ,p_validation_level => fnd_api.g_valid_level_none
1393: ,p_lpn_id => l_asn_lpn_Id
1394: ,p_operation => 2 -- UNPACK
1395: ,p_organization_id => l_org_id
1396: ,p_content_item_id => l_item_id
1397: ,p_revision => l_revision
1398: ,p_lot_number => l_lot_numbers(i)
1399: ,p_quantity => l_quantitys(i)
1400: ,p_uom => l_prim_uom_code
1401: ,p_commit => fnd_api.g_true
1402: ,x_return_status => x_return_status
1403: ,x_msg_count => x_msg_count
1404: ,x_msg_data => x_msg_data
1405: -- OPMConvergence
1428: IF (l_debug = 1) THEN
1429: print_debug('CANCEL_ASN: Error retrieving uom_code', 1);
1430: END IF;
1431: l_progress := 'WMSINB-11161';
1432: RAISE fnd_api.g_exc_error;
1433: END;
1434:
1435: -- OPMConvergence
1436: IF l_sec_unit_of_measure IS NOT NULL THEN
1447: IF (l_debug = 1) THEN
1448: print_debug('CANCEL_ASN: Error retrieving sec_uom_code'||sqlerrm, 1);
1449: END IF;
1450: l_progress := 'WMSINB-11161';
1451: RAISE fnd_api.g_exc_error;
1452: END;
1453:
1454: END IF;
1455: -- OPMConvergence
1460: END IF;
1461:
1462: wms_container_pvt.packunpack_container
1463: (p_api_version => 1.0
1464: ,p_validation_level => fnd_api.g_valid_level_none
1465: ,p_lpn_id => l_asn_lpn_id
1466: ,p_operation => 2 -- UNPACK
1467: ,p_organization_id => l_org_id
1468: ,p_content_item_id => l_item_id
1468: ,p_content_item_id => l_item_id
1469: ,p_revision => l_revision
1470: ,p_quantity => l_quantity_to_unpack
1471: ,p_uom => l_uom_code
1472: ,p_commit => fnd_api.g_true --??
1473: ,x_return_status => x_return_status
1474: ,x_msg_count => x_msg_count
1475: ,x_msg_data => x_msg_data
1476: -- OPMConvergence
1505: IF (l_debug = 1) THEN
1506: print_debug('CANCEL_ASN: Error retrieving uom_code', 1);
1507: END IF;
1508: l_progress := 'WMSINB-11211';
1509: RAISE fnd_api.g_exc_error;
1510: END;
1511:
1512: -- OPMConvergence
1513: IF l_sec_unit_of_measure IS NOT NULL THEN
1524: IF (l_debug = 1) THEN
1525: print_debug('CANCEL_ASN: Error retrieving sec_uom_code'||sqlerrm, 1);
1526: END IF;
1527: l_progress := 'WMSINB-11211';
1528: RAISE fnd_api.g_exc_error;
1529: END;
1530:
1531: END IF;
1532: -- OPMConvergence
1534: l_progress := 'WMSINB-11215';
1535:
1536: wms_container_pvt.packunpack_container
1537: (p_api_version => 1.0
1538: ,p_validation_level => fnd_api.g_valid_level_none
1539: ,p_lpn_id => l_asn_lpn_id
1540: ,p_operation => 2 -- UNPACK
1541: ,p_organization_id => l_org_id
1542: ,p_content_item_id => l_item_id
1542: ,p_content_item_id => l_item_id
1543: ,p_revision => l_revision
1544: ,p_quantity => l_quantity_to_unpack
1545: ,p_uom => l_uom_code
1546: ,p_commit => fnd_api.g_true --??
1547: ,x_return_status => x_return_status
1548: ,x_msg_count => x_msg_count
1549: ,x_msg_data => x_msg_data
1550: -- OPMConvergence
1593: END IF;
1594:
1595: IF (x_return_status <> g_ret_sts_success) THEN
1596: l_progress := 'WMSINB-14998';
1597: RAISE FND_API.G_EXC_ERROR;
1598: END IF;
1599:
1600: /* ******************************************************
1601: BUG 6708102 by kagupta
1825: ,p_source_header_id => p_source_header_id
1826: ,p_source_name => p_source_name
1827: ,p_source_line_id => p_source_line_id
1828: ,p_source_line_detail_id => p_source_line_detail_id
1829: ,p_validation_level => fnd_api.g_valid_level_none
1830: --Bug #3457106 ,p_concurrent_pack => 1
1831: ,p_auto_unnest_empty_lpns => p_auto_unnest_empty_lpns
1832: ,p_ignore_item_controls => p_ignore_item_controls);
1833:
1836: if x_return_status <> G_RET_STS_SUCCESS Then
1837: -- MSG no new message just add the one on stack
1838: -- Check the Error Status from this call
1839: l_progress := 'WMSINB-11395';
1840: RAISE FND_API.G_EXC_ERROR;
1841: End if;
1842:
1843: End Loop;
1844: End Loop;
1886: ,p_source_header_id => p_source_header_id
1887: ,p_source_name => p_source_name
1888: ,p_source_line_id => p_source_line_id
1889: ,p_source_line_detail_id => p_source_line_detail_id
1890: ,p_validation_level => fnd_api.g_valid_level_none
1891: --Bug #3457106 ,p_concurrent_pack => 1
1892: ,p_auto_unnest_empty_lpns => p_auto_unnest_empty_lpns
1893: -- OPMConvergence
1894: ,p_sec_quantity => l_lot_rec.secondary_quantity
1900: if x_return_status <> G_RET_STS_SUCCESS Then
1901: -- MSG no new message just add the one on stack
1902: -- Check the Error Status from this call
1903: l_progress := 'WMSINB-11444';
1904: RAISE FND_API.G_EXC_ERROR;
1905: End if;
1906:
1907: End Loop;
1908: End if;
1950: ,p_source_header_id => p_source_header_id
1951: ,p_source_name => p_source_name
1952: ,p_source_line_id => p_source_line_id
1953: ,p_source_line_detail_id => p_source_line_detail_id
1954: ,p_validation_level => fnd_api.g_valid_level_none
1955: --Bug#3457106,p_concurrent_pack => 1
1956: ,p_auto_unnest_empty_lpns => p_auto_unnest_empty_lpns
1957: ,p_ignore_item_controls => p_ignore_item_controls);
1958:
1959: if x_return_status <> G_RET_STS_SUCCESS Then
1960: -- MSG no new message just add the one on stack
1961: -- Check the Error Status from this call
1962: l_progress := 'WMSINB-11497';
1963: RAISE FND_API.G_EXC_ERROR;
1964: End if;
1965:
1966: End Loop;
1967: Else -- CASE FOR VANILA ITEM
1995: ,p_source_header_id => p_source_header_id
1996: ,p_source_name => p_source_name
1997: ,p_source_line_id => p_source_line_id
1998: ,p_source_line_detail_id => p_source_line_detail_id
1999: ,p_validation_level => fnd_api.g_valid_level_none
2000: --Bug #3457106 ,p_concurrent_pack => 1
2001: ,p_auto_unnest_empty_lpns => p_auto_unnest_empty_lpns
2002: -- OPMConvergence
2003: ,p_sec_quantity => p_sec_quantity
2012: if x_return_status <> G_RET_STS_SUCCESS Then
2013: -- MSG no new message just add the one on stack
2014: -- Check the Error Status from this call
2015: l_progress := 'WMSINB-11542';
2016: RAISE FND_API.G_EXC_ERROR;
2017: End if;
2018:
2019: End if;
2020:
2019: End if;
2020:
2021: EXCEPTION
2022:
2023: when fnd_api.g_exc_error THEN
2024: x_return_status := g_ret_sts_error;
2025:
2026: IF (l_debug = 1) THEN
2027: print_debug('PACKUNPACK_WRAPPER : - Error :'|| l_progress ,1);
2325: print_debug('MODIFY_EDI_XML_ASN: Failed to get ship_to_org_id',1);
2326: END IF;
2327: --review later
2328: l_progress := 'WMSINB-11812';
2329: RAISE fnd_api.g_exc_error;
2330: END;
2331: END IF; --IF (l_rti_rec.to_organization_code IS NULL AND l_rti_rec.to_organization_id IS NULL) THEN
2332:
2333: IF (l_debug = 1) THEN
2424: IF (l_debug = 1) THEN
2425: print_debug('MODIFY_EDI_XML_ASN: Error retrieving primary uom', 1);
2426: END IF;
2427: l_progress := 'WMSINB-11843';
2428: RAISE fnd_api.g_exc_error;
2429: END ;
2430:
2431: IF (l_debug = 1) THEN
2432: print_debug('MODIFY_EDI_XML_ASN: ORGANIZATION ID:'||l_rti_rec.to_organization_id, 1);
2514: print_debug('MODIFY_EDI_XML_ASN: Error in insert_wlpni', 1);
2515: END IF;
2516:
2517: l_progress := 'WMSINB-11903';
2518: RAISE fnd_api.g_exc_error;
2519: END IF;
2520:
2521: l_progress := 'WMSINB-11907';
2522:
2540: IF (l_debug = 1) THEN
2541: print_debug('MODIFY_EDI_XML_ASN: Error updating RTI', 1);
2542: END IF;
2543: l_progress := 'WMSINB-11929';
2544: RAISE fnd_api.g_exc_error;
2545: END;
2546:
2547: l_progress := 'WMSINB-11933';
2548:
2669: IF (l_debug = 1) THEN
2670: print_debug('MODIFY_EDI_XML_ASN: Error in insert_mtli', 1);
2671: END IF;
2672: l_progress := 'WMSINB-12064';
2673: RAISE fnd_api.g_exc_error;
2674: END IF;
2675: END IF;
2676:
2677: l_progress := 'WMSINB-12069';
2720: IF (l_debug = 1) THEN
2721: print_debug('MODIFY_EDI_XML_ASN: MSNIs total quantity does not match WLPNCI quantity',1);
2722: END IF;
2723: l_progress := 'WMSINB-12115';
2724: RAISE fnd_api.g_exc_error;
2725: END IF;
2726:
2727: l_progress := 'WMSINB-12119';
2728:
2749: IF (l_debug = 1) THEN
2750: print_debug('MODIFY_EDI_XML_ASN: Error updating MSNI',1);
2751: END IF;
2752: l_progress := 'WMSINB-12141';
2753: RAISE fnd_api.g_exc_error;
2754: END;
2755: END IF; --IF (l_msni_total_qty > 0) THEN
2756: l_progress := 'WMSINB-12145';
2757: END IF;
2770: -- message to be added
2771: fnd_message.set_name('INV', 'INV_WLPNCI_RTI_QTY_NOTMATCH');
2772: fnd_msg_pub.ADD;
2773: l_progress := 'WMSINB-12162';
2774: RAISE fnd_api.g_exc_error;
2775: END IF;
2776:
2777:
2778: IF (l_debug = 1) THEN
2839:
2840: IF (Nvl(p_group_id,0) = 0 AND Nvl(p_request_id,0) = 0) THEN
2841: --raise error review later
2842: l_progress := 'WMSINB-12231';
2843: RAISE fnd_api.g_exc_error;
2844: END IF;
2845:
2846: l_progress := 'WMSINB-12235';
2847:
3501: if p_lpn_context is not null then
3502: l_lpn_rec.lpn_context := p_lpn_context;
3503: End if;
3504:
3505: l_lpn_rec.SUBINVENTORY_CODE := NVL(p_sub, FND_API.G_MISS_CHAR); -- Modified for bug 16248920
3506: l_lpn_rec.LOCATOR_ID := NVL(p_locator, FND_API.G_MISS_NUM); -- Modified for bug 16248920
3507: l_lpn_rec.ORGANIZATION_ID := p_organization_id ;
3508: l_lpn_rec.source_header_id := Nvl(p_source_header_id, FND_API.G_MISS_NUM); -- Modified by 13591755 for GRUPO
3509: l_lpn_rec.source_name := Nvl(p_source_name, FND_API.G_MISS_CHAR); -- Modified by 13591755 for GRUPO
3502: l_lpn_rec.lpn_context := p_lpn_context;
3503: End if;
3504:
3505: l_lpn_rec.SUBINVENTORY_CODE := NVL(p_sub, FND_API.G_MISS_CHAR); -- Modified for bug 16248920
3506: l_lpn_rec.LOCATOR_ID := NVL(p_locator, FND_API.G_MISS_NUM); -- Modified for bug 16248920
3507: l_lpn_rec.ORGANIZATION_ID := p_organization_id ;
3508: l_lpn_rec.source_header_id := Nvl(p_source_header_id, FND_API.G_MISS_NUM); -- Modified by 13591755 for GRUPO
3509: l_lpn_rec.source_name := Nvl(p_source_name, FND_API.G_MISS_CHAR); -- Modified by 13591755 for GRUPO
3510: l_lpn_rec.source_type_id := Nvl(p_source_type_id, FND_API.G_MISS_NUM); -- Modified by 13591755 for GRUPO
3504:
3505: l_lpn_rec.SUBINVENTORY_CODE := NVL(p_sub, FND_API.G_MISS_CHAR); -- Modified for bug 16248920
3506: l_lpn_rec.LOCATOR_ID := NVL(p_locator, FND_API.G_MISS_NUM); -- Modified for bug 16248920
3507: l_lpn_rec.ORGANIZATION_ID := p_organization_id ;
3508: l_lpn_rec.source_header_id := Nvl(p_source_header_id, FND_API.G_MISS_NUM); -- Modified by 13591755 for GRUPO
3509: l_lpn_rec.source_name := Nvl(p_source_name, FND_API.G_MISS_CHAR); -- Modified by 13591755 for GRUPO
3510: l_lpn_rec.source_type_id := Nvl(p_source_type_id, FND_API.G_MISS_NUM); -- Modified by 13591755 for GRUPO
3511:
3512: IF (l_debug = 1) THEN
3505: l_lpn_rec.SUBINVENTORY_CODE := NVL(p_sub, FND_API.G_MISS_CHAR); -- Modified for bug 16248920
3506: l_lpn_rec.LOCATOR_ID := NVL(p_locator, FND_API.G_MISS_NUM); -- Modified for bug 16248920
3507: l_lpn_rec.ORGANIZATION_ID := p_organization_id ;
3508: l_lpn_rec.source_header_id := Nvl(p_source_header_id, FND_API.G_MISS_NUM); -- Modified by 13591755 for GRUPO
3509: l_lpn_rec.source_name := Nvl(p_source_name, FND_API.G_MISS_CHAR); -- Modified by 13591755 for GRUPO
3510: l_lpn_rec.source_type_id := Nvl(p_source_type_id, FND_API.G_MISS_NUM); -- Modified by 13591755 for GRUPO
3511:
3512: IF (l_debug = 1) THEN
3513: print_debug(' update_lpn_location_context : lpn_id = '||p_lpn_id,1);
3506: l_lpn_rec.LOCATOR_ID := NVL(p_locator, FND_API.G_MISS_NUM); -- Modified for bug 16248920
3507: l_lpn_rec.ORGANIZATION_ID := p_organization_id ;
3508: l_lpn_rec.source_header_id := Nvl(p_source_header_id, FND_API.G_MISS_NUM); -- Modified by 13591755 for GRUPO
3509: l_lpn_rec.source_name := Nvl(p_source_name, FND_API.G_MISS_CHAR); -- Modified by 13591755 for GRUPO
3510: l_lpn_rec.source_type_id := Nvl(p_source_type_id, FND_API.G_MISS_NUM); -- Modified by 13591755 for GRUPO
3511:
3512: IF (l_debug = 1) THEN
3513: print_debug(' update_lpn_location_context : lpn_id = '||p_lpn_id,1);
3514: print_debug(' update_lpn_location_context : lpn_context = '|| p_lpn_context , 1);
3523: wms_container_pvt.modify_lpn ( p_api_version => 1.0,
3524: x_return_status => x_return_status ,
3525: x_msg_count => x_msg_count ,
3526: x_msg_data => x_msg_data,
3527: p_validation_level => fnd_api.g_valid_level_none,
3528: p_lpn => l_lpn_rec);
3529:
3530: l_progress := 'WMSINB-12645';
3531:
3532: -- Check the error status from the above call
3533: if x_return_status <> G_RET_STS_SUCCESS Then
3534: -- Review Late Set Appropiate Message
3535: l_progress := 'WMSINB-12650';
3536: RAISE FND_API.G_EXC_ERROR;
3537: End if;
3538:
3539: Exception
3540: when others then
4232: EXCEPTION
4233: WHEN no_data_found THEN
4234: --raise error
4235: l_progress := 'WMSINB-40010';
4236: RAISE fnd_api.g_exc_error;
4237: WHEN OTHERS THEN
4238: --raise error
4239: l_progress := 'WMSINB-40020';
4240: RAISE fnd_api.g_exc_error;
4236: RAISE fnd_api.g_exc_error;
4237: WHEN OTHERS THEN
4238: --raise error
4239: l_progress := 'WMSINB-40020';
4240: RAISE fnd_api.g_exc_error;
4241: END;
4242:
4243: x_transaction_id := l_transaction_id;
4244:
4405: AND rsl.shipment_header_id = rsh.shipment_header_id;
4406: EXCEPTION
4407: WHEN OTHERS THEN
4408: IF (l_debug = 1) THEN
4409: print_debug( 'MAINTAIN_MO_CON: RAISE FND_API.G_EXC_ERROR',4);
4410: END IF;
4411: RAISE fnd_api.g_exc_error;
4412: END;
4413:
4407: WHEN OTHERS THEN
4408: IF (l_debug = 1) THEN
4409: print_debug( 'MAINTAIN_MO_CON: RAISE FND_API.G_EXC_ERROR',4);
4410: END IF;
4411: RAISE fnd_api.g_exc_error;
4412: END;
4413:
4414: print_debug( 'MAINTAIN_MO_CON PLL ID : '||l_po_line_location_id ||
4415: ' POD ID : ' || l_po_distribution_id ||
4892: l_project_id := NULL;
4893: l_task_id := NULL;
4894: when too_many_rows then
4895: print_debug('MAINTAIN_MOC_CON - Proj Task Pickup for distributions fetches too many rows : ' || sqlerrm,1);
4896: raise fnd_api.g_exc_unexpected_error;
4897: END;
4898: -- End of Bug# 7154105
4899: END IF;
4900: ELSE --IF (p_project_id IS NULL) THEN
4963: END IF;
4964:
4965: IF (x_return_status <> 'S') THEN
4966: l_progress := 'WMSINB-45052';
4967: RAISE fnd_api.g_exc_error;
4968: END IF;
4969:
4970: l_progress := 'WMSINB-45053';
4971:
5052: END IF;
5053:
5054: IF (x_return_status <> 'S') THEN
5055: l_progress := 'WMSINB-45058';
5056: RAISE fnd_api.g_exc_error;
5057: END IF;
5058:
5059:
5060: --{{
5110: print_debug('MAINTAIN_MO_CON - TASK ALREADY LOADED FOR '||l_transfer_mol_rec.line_id || ' FAILURE' ,1);
5111: END IF;
5112:
5113: l_progress := 'WMSINB-45063';
5114: RAISE fnd_api.g_exc_error;
5115:
5116: EXCEPTION
5117: WHEN NO_DATA_FOUND THEN
5118: l_progress := 'WMSINB-45064';
5138: l_progress := 'WMSINB-45063';
5139: END IF;
5140: --raise error
5141: l_progress := 'WMSINB-45064';
5142: RAISE fnd_api.g_exc_error;
5143: END IF;
5144:
5145: Else
5146:
5184: END IF;
5185:
5186: IF (x_return_status <> 'S') THEN
5187: l_progress := 'WMSINB-45064';
5188: RAISE fnd_api.g_exc_error;
5189: END IF;
5190:
5191: --update mol for the sub and loc
5192: --{{
5226: END IF;
5227:
5228: IF (x_return_status <> 'S') THEN
5229: l_progress := 'WMSINB-45064';
5230: RAISE fnd_api.g_exc_error;
5231: END IF;
5232:
5233:
5234: End if;
5252: );
5253: IF (x_return_status <> 'S') THEN
5254: l_progress := 'WMSINB-45067';
5255: -- Bug 5393727: do not raise an exception if locator API returns an error
5256: -- RAISE fnd_api.g_exc_error;
5257: END IF;
5258:
5259: -- update curr capacity
5260: IF (l_debug = 1) THEN
5276: );
5277: IF (x_return_status <> 'S') THEN
5278: l_progress := 'WMSINB-45070';
5279: -- Bug 5393727: do not raise an exception if locator API returns an error
5280: -- RAISE fnd_api.g_exc_error;
5281: END IF;
5282: END IF; --IF p_subinventory IS NOT NULL THEN
5283:
5284: --pregeneration
5516: print_debug('MAINTAIN_MO_CON - TASK ALREADY LOADED FOR '||l_transfer_mol_rec.line_id || ' FAILURE ' ,1);
5517: END IF;
5518:
5519: l_progress := 'WMSINB-45129';
5520: RAISE fnd_api.g_exc_error;
5521:
5522: EXCEPTION
5523: WHEN NO_DATA_FOUND THEN
5524: l_progress := 'WMSINB-45130';
5651: print_debug('Returned from inv_reservation_pub.delete_reservation',4);
5652: print_debug('x_return_status =>'||l_return_status,4);
5653: END IF;
5654:
5655: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
5656: IF (l_debug = 1) THEN
5657: print_debug('x_msg_data: '||l_msg_data,4);
5658: print_debug('x_msg_count: '||l_msg_count,4);
5659: print_debug('SQLCODE:'||SQLCODE||' SQLERRM:'||SQLERRM,4);
5659: print_debug('SQLCODE:'||SQLCODE||' SQLERRM:'||SQLERRM,4);
5660: print_debug('Raising Exception!!!',4);
5661: END IF;
5662: l_progress := '@@@';
5663: RAISE fnd_api.g_exc_unexpected_error;
5664: END IF;
5665:
5666: l_backorder_delivery_detail_id := NULL;
5667: END IF; --IF (l_backorder_delivery_detail_id is not NULL AND l_transaction_type = 'REJECT') THEN
5863: l_progress := 'WMSINB-45085';
5864: END IF;
5865: --raise error
5866: l_progress := 'WMSINB-45090';
5867: RAISE fnd_api.g_exc_error;
5868: END IF;
5869: END IF;
5870: ELSE --IF l_mol_qty_in_puom <= l_remaining_primary_quantity THEN
5871: --split_mol
5910: END IF;
5911:
5912: IF (x_return_status <> 'S') THEN
5913: l_progress := 'WMSINB-45112';
5914: RAISE fnd_api.g_exc_error;
5915: END IF;
5916:
5917:
5918: IF (l_debug = 1) THEN
5970: print_debug('Returned from inv_reservation_pub.delete_reservation',4);
5971: print_debug('x_return_status =>'||l_return_status,4);
5972: END IF;
5973:
5974: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
5975: IF (l_debug = 1) THEN
5976: print_debug('x_msg_data: '||l_msg_data,4);
5977: print_debug('x_msg_count: '||l_msg_count,4);
5978: print_debug('SQLCODE:'||SQLCODE||' SQLERRM:'||SQLERRM,4);
5978: print_debug('SQLCODE:'||SQLCODE||' SQLERRM:'||SQLERRM,4);
5979: print_debug('Raising Exception!!!',4);
5980: END IF;
5981: l_progress := '@@@';
5982: RAISE fnd_api.g_exc_unexpected_error;
5983: END IF;
5984:
5985: l_backorder_delivery_detail_id := NULL;
5986: END IF;--IF l_backorder_delivery_detail_id is not null AND l_transaction_type = 'REJECT') THEN
6141: l_progress := 'WMSINB-45118';
6142: END IF;
6143: --raise error
6144: l_progress := 'WMSINB-45120';
6145: RAISE fnd_api.g_exc_error;
6146: END IF;
6147: END IF;
6148:
6149: END IF; --IF l_mol_qty_in_puom <= l_remaining_primary_quantity THEN
6252: END IF;
6253:
6254: IF (x_return_status <> 'S') THEN
6255: l_progress := 'WMSINB-45127';
6256: RAISE fnd_api.g_exc_error;
6257: END IF;
6258:
6259: --
6260: -- UPDATE THE MOVE ORDER LINE HERE
6306: print_debug('MAINTAIN_MO_CON - call_atf_api failed:'||l_transfer_mol_rec.line_id,1);
6307: l_progress := 'WMSINB-45131';
6308: END IF;
6309: l_progress := 'WMSINB-45064';
6310: RAISE fnd_api.g_exc_error;
6311: END IF;
6312: END IF; --l_transfer_mol_rec.line_id is not null
6313:
6314: --... The following code should be commented because
6356: -- END IF;
6357: --
6358: -- IF (x_return_status <> 'S') THEN
6359: --l_progress := 'WMSINB-45070';
6360: -- RAISE fnd_api.g_exc_error;
6361: -- END IF;
6362: --
6363: -- --update mol for the sub and loc
6364: -- UPDATE mtl_txn_request_lines
6393: l_progress := 'WMSINB-13244';
6394: END IF;
6395: --raise error
6396: l_progress := 'WMSINB-13247';
6397: RAISE fnd_api.g_exc_error;
6398: END IF;
6399:
6400: --update capacity and empty flag for locators
6401: IF (Nvl(p_locator_id, Nvl(l_from_loc_id, -1)) <> Nvl(l_from_loc_id, -1)) THEN
6414: );
6415: IF (x_return_status <> 'S') THEN
6416: l_progress := 'WMSINB-13250';
6417: -- Bug 5393727: do not raise an exception if locator API returns an error
6418: -- RAISE fnd_api.g_exc_error;
6419: END IF;
6420:
6421: -- update curr capacity
6422: IF (l_debug = 1) THEN
6438: );
6439: IF (x_return_status <> 'S') THEN
6440: l_progress := 'WMSINB-13252';
6441: -- Bug 5393727: do not raise an exception if locator API returns an error
6442: -- RAISE fnd_api.g_exc_error;
6443: END IF;
6444: END IF; --IF p_subinventory IS NOT NULL THEN
6445:
6446: IF l_from_loc_id IS NOT NULL THEN
6457: );
6458: IF (x_return_status <> 'S') THEN
6459: l_progress := 'WMSINB-13255';
6460: -- Bug 5393727: do not raise an exception if locator API returns an error
6461: -- RAISE fnd_api.g_exc_error;
6462: END IF;
6463:
6464: -- update curr capacity
6465: IF (l_debug = 1) THEN
6480: );
6481: IF (x_return_status <> 'S') THEN
6482: l_progress := 'WMSINB-13257';
6483: -- Bug 5393727: do not raise an exception if locator API returns an error
6484: -- RAISE fnd_api.g_exc_error;
6485: END IF;
6486: END IF; --IF l_from_sub IS NOT NULL THEN
6487: END IF; --IF (Nvl(p_locator_id, Nvl(l_from_loc_id, -1)) <> Nvl(l_from_loc_id, -1)) THEN
6488:
6739: END IF;
6740:
6741: IF (x_return_status <> 'S') THEN
6742: l_progress := 'WMSINB-45052';
6743: RAISE fnd_api.g_exc_error;
6744: END IF;
6745:
6746: l_progress := 'WMSINB-45053';
6747:
6814: END IF;
6815:
6816: IF (x_return_status <> 'S') THEN
6817: l_progress := 'WMSINB-45052';
6818: RAISE fnd_api.g_exc_error;
6819: END IF;
6820:
6821: l_progress := 'WMSINB-45053';
6822:
6872: l_progress := 'WMSINB-13342';
6873: END IF;
6874: --raise error
6875: l_progress := 'WMSINB-13345';
6876: RAISE fnd_api.g_exc_error;
6877: END IF;
6878:
6879: --call upd_empty_mixed_flag
6880: IF l_from_loc_id IS NOT NULL THEN
6891: );
6892: IF (x_return_status <> 'S') THEN
6893: l_progress := 'WMSINB-13350';
6894: -- Bug 5393727: do not raise an exception if locator API returns an error
6895: -- RAISE fnd_api.g_exc_error;
6896: END IF;
6897:
6898: -- update curr capacity
6899: IF (l_debug = 1) THEN
6914: );
6915: IF (x_return_status <> 'S') THEN
6916: l_progress := 'WMSINB-13357';
6917: -- Bug 5393727: do not raise an exception if locator API returns an error
6918: -- RAISE fnd_api.g_exc_error;
6919: END IF;
6920: END IF; --IF l_from_sub IS NOT NULL THEN
6921:
6922: IF (l_transaction_type = 'CORRECT') THEN
7222: END IF;
7223:
7224: IF (x_return_status <> 'S') THEN
7225: l_progress := 'WMSINB-45052';
7226: RAISE fnd_api.g_exc_error;
7227: END IF;
7228:
7229: l_progress := 'WMSINB-45053';
7230:
7300: END IF;
7301:
7302: IF (x_return_status <> 'S') THEN
7303: l_progress := 'WMSINB-45058';
7304: RAISE fnd_api.g_exc_error;
7305: END IF;
7306:
7307: --
7308: -- UPDATE THE MOVE ORDER LINE HERE
7347: print_debug('MAINTAIN_MO_CON - TASK ALREADY LOADED FOR '||l_transfer_mol_rec.line_id || ' FAILURE' ,1);
7348: END IF;
7349:
7350: l_progress := 'WMSINB-45063';
7351: RAISE fnd_api.g_exc_error;
7352:
7353: EXCEPTION
7354: WHEN NO_DATA_FOUND THEN
7355: l_progress := 'WMSINB-45064';
7372: l_progress := 'WMSINB-45063';
7373: END IF;
7374: --raise error
7375: l_progress := 'WMSINB-45064';
7376: RAISE fnd_api.g_exc_error;
7377: END IF;
7378:
7379: Else
7380:
7420: END IF;
7421:
7422: IF (x_return_status <> 'S') THEN
7423: l_progress := 'WMSINB-45064';
7424: RAISE fnd_api.g_exc_error;
7425: END IF;
7426:
7427: --update mol for the sub and loc
7428: UPDATE mtl_txn_request_lines
7452: END IF;
7453:
7454: IF (x_return_status <> 'S') THEN
7455: l_progress := 'WMSINB-45064';
7456: RAISE fnd_api.g_exc_error;
7457: END IF;
7458: End if;
7459:
7460: l_loop_index := l_mol_res_out.next(l_loop_index);
7506: print_debug('MAINTAIN_MO - call_atf_api failed:'||p_mmtt_temp_id,1);
7507: END IF;
7508: --raise error
7509: l_progress := 'WMSINB-13750';
7510: RAISE fnd_api.g_exc_error;
7511: ELSE --IF (l_error_code <> 15) THEN
7512: x_return_status := g_ret_sts_success;
7513: END IF; --IF (l_error_code <> 15) THEN
7514: END IF;
7580:
7581: l_progress := 'WMSINB:MOMIS001';
7582: fnd_message.set_name ('WMS', 'WMS_LPN_SUBLOC_MISMATCH');
7583: fnd_msg_pub.ADD;
7584: RAISE fnd_api.g_exc_error;
7585: END IF;
7586: END IF;
7587: --13395566
7588:
7602: SET wms_process_flag = 1
7603: WHERE lpn_id = p_transfer_lpn_id;
7604: */
7605: EXCEPTION
7606: WHEN fnd_api.g_exc_error THEN
7607: x_return_status := g_ret_sts_error;
7608: IF (l_debug = 1) THEN
7609: print_debug('MAINTAIN_MO - execution error:'||TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')||':'||l_progress, 1);
7610: END IF;
7607: x_return_status := g_ret_sts_error;
7608: IF (l_debug = 1) THEN
7609: print_debug('MAINTAIN_MO - execution error:'||TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')||':'||l_progress, 1);
7610: END IF;
7611: WHEN fnd_api.g_exc_unexpected_error THEN
7612: x_return_status := g_ret_sts_unexp_error;
7613: IF (l_debug = 1) THEN
7614: print_debug('MAINTAIN_MO - unexpected error:'||TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')||':'||l_progress, 1);
7615: END IF;
7823: END IF;
7824:
7825: IF (x_return_status <> 'S') THEN
7826: l_progress := 'WMSINB-13893';
7827: RAISE fnd_api.g_exc_error;
7828: END IF;
7829: END LOOP;
7830:
7831: CLOSE c_mtlt;
7882: END IF;
7883:
7884: IF (x_return_status <> 'S') THEN
7885: l_progress := 'WMSINB-13941';
7886: RAISE fnd_api.g_exc_error;
7887: END IF;
7888: END IF;
7889:
7890: IF (l_debug = 1) THEN
7891: print_debug('MAINTAIN_MO_WRAPPER - Sucessfull:'||':'||l_progress, 1);
7892: END IF;
7893:
7894: EXCEPTION
7895: WHEN fnd_api.g_exc_error THEN
7896: x_return_status := g_ret_sts_error;
7897: IF (l_debug = 1) THEN
7898: print_debug('MAINTAIN_MO_WRAPPER - execution error:'||TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')||':'||l_progress, 1);
7899: END IF;
7896: x_return_status := g_ret_sts_error;
7897: IF (l_debug = 1) THEN
7898: print_debug('MAINTAIN_MO_WRAPPER - execution error:'||TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')||':'||l_progress, 1);
7899: END IF;
7900: WHEN fnd_api.g_exc_unexpected_error THEN
7901: x_return_status := g_ret_sts_unexp_error;
7902: IF (l_debug = 1) THEN
7903: print_debug('MAINTAIN_MO_WRAPPER - unexpected error:'||TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')||':'||l_progress, 1);
7904: END IF;
8153: END IF;
8154:
8155: IF (x_return_status <> g_ret_sts_success) THEN
8156: l_progress := 'WMSINB-14998';
8157: RAISE FND_API.G_EXC_ERROR;
8158: END IF;
8159:
8160: RETURN;
8161: END IF;
8212: l_sec_txn_for_rtv := 'N';
8213: l_progress := 'WMSINB-14097';
8214: WHEN OTHERS THEN
8215: l_progress := 'WMSINB-14098';
8216: RAISE fnd_api.g_exc_error;
8217: END;
8218: IF l_sec_txn_for_rtv = 'Y' THEN
8219: l_progress := 'WMSINB-14099';
8220: x_return_status := g_ret_sts_success;
8290: -- Review Later.
8291: -- Set Appropiate MESSAGE For ERROR
8292: --
8293: l_progress := 'WMSINB-14142';
8294: RAISE FND_API.G_EXC_ERROR;
8295: end if;
8296:
8297: l_progress := 'WMSINB-14146';
8298:
8314: -- Review Later.
8315: -- Set Appropiate MESSAGE For ERROR
8316: --
8317: l_progress := 'WMSINB-14165';
8318: RAISE FND_API.G_EXC_ERROR;
8319: End if;
8320:
8321: l_progress := 'WMSINB-14169';
8322:
8370: END IF;
8371: --raise an error
8372: --review later
8373: l_progress := 'WMSINB-14209';
8374: RAISE fnd_api.g_exc_error;
8375: END IF;
8376:
8377: IF (l_debug = 1) THEN
8378: print_debug('PROCESS_TXN - Done calling cancel_asn',1);
8401: IF (l_debug = 1) THEN
8402: print_debug('PROCESS_TXN - parent rti has proj/task info and txn has no proj/task info ',1);
8403: END IF;
8404: -- Raise Failure
8405: RAISE fnd_api.g_exc_error;
8406: ELSIF (l_rti_rec.project_id is not null or l_rti_rec.task_id is not null) then
8407: if ( (l_parent_project_id is null and l_parent_task_id is null )
8408: or (l_parent_txn_type = 'RECEIVE' and l_rti_rec.transaction_type = 'DELIVER') ) then -- Bug 14127493 added
8409: l_progress := 'WMSINB-14212';
8419: l_progress := 'WMSINB-14213';
8420: IF (l_debug = 1) THEN
8421: print_debug('PROCESS_TXN - parent rti has different proj/task info than rti ',1);
8422: END IF;
8423: RAISE fnd_api.g_exc_error;
8424: End if;
8425: End if;
8426: END IF;
8427: END IF;
8463: --wms_container_pvt.packunpack_container(
8464: -- p_api_version => 1.0,
8465: -- p_init_msg_list => g_false,
8466: -- p_commit => g_false,
8467: -- p_validation_level => fnd_api.g_valid_level_none,
8468: -- x_return_status => x_return_status,
8469: -- x_msg_count => x_msg_count,
8470: -- x_msg_data => x_msg_data,
8471: -- p_lpn_id => l_rti_rec.lpn_id,
8559: -- Review Late Set Appropiate Message
8560: l_progress := 'WMSINB-14258';
8561: -- Do not error out for ASNs
8562: x_return_status := g_ret_sts_success;
8563: --RAISE FND_API.G_EXC_ERROR;
8564: End if;
8565:
8566: END IF;-- 14408061
8567:
8585: END IF;
8586: l_progress := 'WMSINB-14282';
8587:
8588: --review later
8589: RAISE fnd_api.g_exc_error;
8590: END IF; --IF (validate_mixed_expense_items(l_rti_rec.to_organization_id,
8591:
8592: IF (validate_pjm_commingle(l_rti_rec.to_organization_id,
8593: l_rti_rec.transfer_lpn_id,
8598: print_debug('PROCESS_TXN - Project/Task commingling not allowed in LPN:'||l_rti_rec.transfer_lpn_id,1);
8599: END IF;
8600: l_progress := 'WMSINB-14288';
8601:
8602: RAISE fnd_api.g_exc_error;
8603: END IF; --IF (!validate_pjm_commingle(l_rti_rec.to_organization_id,
8604:
8605: IF (l_debug = 1) THEN
8606: print_debug('PROCESS_TXN - Organization ID:'||l_rti_rec.to_organization_id,1);
8634: -- Check the error status from the above call
8635: if x_return_status <> G_RET_STS_SUCCESS Then
8636: -- Review Late Set Appropiate Message
8637: l_progress := 'WMSINB-14321';
8638: RAISE FND_API.G_EXC_ERROR;
8639: End if;
8640:
8641:
8642: PackUnpack_wrapper( x_return_status => x_return_status
8674: -- Check the error status from the above call
8675: if x_return_status <> G_RET_STS_SUCCESS Then
8676: -- Review Late Set Appropiate Message
8677: l_progress := 'WMSINB-14353';
8678: RAISE FND_API.G_EXC_ERROR;
8679: End if;
8680:
8681: END IF; --if l_rti_rec.transfer_lpn_id is not null then
8682: ELSE -- add for bug 14235799
8704: -- Check the error status from the above call
8705: if x_return_status <> G_RET_STS_SUCCESS Then
8706: -- Review Late Set Appropiate Message
8707: l_progress := 'WMSINB-14321';
8708: RAISE FND_API.G_EXC_ERROR;
8709:
8710: END IF;
8711:
8712: END IF;--14235799
8743: -- Check the error status from the above call
8744: if x_return_status <> G_RET_STS_SUCCESS Then
8745: -- Review Late Set Appropiate Message
8746: l_progress := 'WMSINB-14389';
8747: RAISE FND_API.G_EXC_ERROR;
8748: End if;
8749: End if;
8750:
8751: ELSIF (l_rti_rec.source_document_code IN ('INVENTORY','REQ') AND
8774:
8775: IF (x_return_status <> g_ret_sts_success) THEN
8776: --Review Later
8777: l_progress := 'WMSINB-14413';
8778: RAISE fnd_api.g_exc_error;
8779: END IF;
8780:
8781: IF ((l_lot_control_code = 2 AND l_from_org_lot_control <> 2)
8782: OR (l_lot_control_code <> 2 AND l_from_org_lot_control = 2)
8928: -- Review Late Set Appropiate Message
8929: l_progress := 'WMSINB-14469';
8930: --Do not error out for Int receipts
8931: x_return_status := g_ret_sts_success;
8932: --RAISE FND_API.G_EXC_ERROR;
8933: End if;
8934:
8935: ELSE
8936:
8985: -- Review Late Set Appropiate Message
8986: l_progress := 'WMSINB-14501';
8987: --Do not error out for Int Receipts
8988: x_return_status := g_ret_sts_success;
8989: --RAISE FND_API.G_EXC_ERROR;
8990: End if;
8991: END IF; -- for bug 13241074 end if
8992: END IF; --IF l_full_unpack THEN
8993:
9011: END IF;
9012: l_progress := 'WMSINB-14526';
9013:
9014: --review later
9015: RAISE fnd_api.g_exc_error;
9016: END IF; --IF (validate_mixed_expense_items(l_rti_rec.to_organization_id,
9017:
9018: IF (validate_pjm_commingle(l_rti_rec.to_organization_id,
9019: l_rti_rec.transfer_lpn_id,
9024: print_debug('PROCESS_TXN - Project/Task commingling not allowed in LPN:'||l_rti_rec.transfer_lpn_id,1);
9025: END IF;
9026: l_progress := 'WMSINB-14532';
9027:
9028: RAISE fnd_api.g_exc_error;
9029: END IF; --IF (!validate_pjm_commingle(l_rti_rec.to_organization_id,
9030:
9031: IF (l_debug = 1) THEN
9032: print_debug('PROCESS_TXN - Organization ID:'||l_rti_rec.to_organization_id,1);
9059: -- Check the error status from the above call
9060: if x_return_status <> G_RET_STS_SUCCESS Then
9061: -- Review Late Set Appropiate Message
9062: l_progress := 'WMSINB-14564';
9063: RAISE FND_API.G_EXC_ERROR;
9064: End if;
9065:
9066: END IF; --if l_rti_rec.transfer_lpn_id is not null then
9067:
9083: update_lpn_location_context(p_organization_id => l_rti_rec.to_organization_id
9084: ,p_sub => NULL
9085: ,p_locator => NULL
9086: ,p_lpn_context => 5
9087: ,p_source_name => FND_API.G_MISS_CHAR
9088: ,p_lpn_id => l_rti_rec.lpn_id
9089: ,x_return_status => x_return_status
9090: ,x_msg_count => x_msg_count
9091: ,x_msg_data => x_msg_data ) ;
9092: -- Check the error status from the above call
9093: if x_return_status <> G_RET_STS_SUCCESS Then
9094: -- Review Late Set Appropiate Message
9095: l_progress := 'WMSINB-14564a';
9096: RAISE FND_API.G_EXC_ERROR;
9097: End if;
9098: END IF;
9099: --6168447:end
9100: END IF;
9136: -- Check the error status from the above call
9137: if x_return_status <> G_RET_STS_SUCCESS Then
9138: -- Review Late Set Appropiate Message
9139: l_progress := 'WMSINB-14631';
9140: RAISE FND_API.G_EXC_ERROR;
9141: End if;
9142: End if; -- l_serial_control_code not in (1,6) then
9143: print_debug('secondly PackUnpack_wrapper l_auto_unnest_empty_lpns='||l_auto_unnest_empty_lpns,1); -- for bug 13241074
9144: print_debug('before pack / correct through PackUnpack_wrapper l_express_receipt_flag='||l_express_receipt_flag,1); -- for bug 13241074
9193: -- Check the error status from the above call
9194: if x_return_status <> G_RET_STS_SUCCESS Then
9195: -- Review Late Set Appropiate Message
9196: l_progress := 'WMSINB-14634';
9197: RAISE FND_API.G_EXC_ERROR;
9198: End if;
9199:
9200: END IF; --if l_rti_rec.transfer_lpn_id is not null then
9201: --
9230: IF (l_debug = 1) THEN
9231: print_debug('PROCESS_TXN : Error retrieving uom_code', 1);
9232: END IF;
9233: l_progress := 'WMSINB-14638';
9234: RAISE fnd_api.g_exc_error;
9235: END;
9236: END IF;
9237: END IF;
9238: /* End of fix for Bug 7410777*/
9282: -- Check the error status from the above call
9283: if x_return_status <> G_RET_STS_SUCCESS Then
9284: -- Review Late Set Appropiate Message
9285: l_progress := 'WMSINB-14675';
9286: RAISE FND_API.G_EXC_ERROR;
9287: End if;
9288:
9289: End if; -- END OF FLPN AND TLP DIFFERENT
9290: End if; -- END OF l_rti_rec.lpn_id is not null
9307: END IF;
9308: l_progress := 'WMSINB-14699';
9309:
9310: --review later
9311: RAISE fnd_api.g_exc_error;
9312: END IF; --IF (validate_mixed_expense_items(l_rti_rec.to_organization_id,
9313:
9314: IF (validate_pjm_commingle(l_rti_rec.to_organization_id,
9315: l_rti_rec.transfer_lpn_id,
9320: print_debug('PROCESS_TXN - Project/Task commingling not allowed in LPN:'||l_rti_rec.transfer_lpn_id,1);
9321: END IF;
9322: l_progress := 'WMSINB-14705';
9323:
9324: RAISE fnd_api.g_exc_error;
9325: END IF; --IF (!validate_pjm_commingle(l_rti_rec.to_organization_id,
9326:
9327: l_lpn_context := get_lpn_context(p_transaction_type => l_rti_rec.transaction_type
9328: , p_routing_header_id => l_rti_rec.routing_header_id
9345: -- Check the error status from the above call
9346: if x_return_status <> G_RET_STS_SUCCESS Then
9347: -- Review Late Set Appropiate Message
9348: l_progress := 'WMSINB-14727';
9349: RAISE FND_API.G_EXC_ERROR;
9350: End if;
9351: END IF; --IF (l_rti_rec.transaction_type NOT IN ('ACCEPT','REJECT') OR l_transfer_lpn_context = 5) THEN
9352: -- This part is changed to call before packunpack_wrapper
9353: -- because if issued out serials are repacked then they might have
9384: -- Check the error status from the above call
9385: if x_return_status <> G_RET_STS_SUCCESS Then
9386: -- Review Late Set Appropiate Message
9387: l_progress := 'WMSINB-14791';
9388: RAISE FND_API.G_EXC_ERROR;
9389: End if;
9390: End if;
9391:
9392: PackUnpack_wrapper( x_return_status => x_return_status
9424: -- Check the error status from the above call
9425: if x_return_status <> G_RET_STS_SUCCESS Then
9426: -- Review Late Set Appropiate Message
9427: l_progress := 'WMSINB-14759';
9428: RAISE FND_API.G_EXC_ERROR;
9429: End if;
9430:
9431: ELSE -- when FLPN = TLPN
9432: l_progress := 'WMSINB-14796';
9456: -- Check the error status from the above call
9457: if x_return_status <> G_RET_STS_SUCCESS Then
9458: -- Review Late Set Appropiate Message
9459: l_progress := 'WMSINB-14822';
9460: RAISE FND_API.G_EXC_ERROR;
9461: End if;
9462: END IF; --IF (l_rti_rec.transaction_type NOT IN ('ACCEPT','REJECT') ) THEN
9463:
9464: if l_serial_control_code <> 1 then
9491: -- Check the error status from the above call
9492: if x_return_status <> G_RET_STS_SUCCESS Then
9493: -- Review Late Set Appropiate Message
9494: l_progress := 'WMSINB-14855';
9495: RAISE FND_API.G_EXC_ERROR;
9496: End if;
9497: End if;-- if l_serial_control_code not in (1,6) then
9498: End if; -- END OF FLPN AND TLPN DIFFERENT
9499: ELSE -- ELSE OF l_rti_rec.transfer_lpn_id is not null
9524: -- Check the error status from the above call
9525: if x_return_status <> G_RET_STS_SUCCESS Then
9526: -- Review Late Set Appropiate Message
9527: l_progress := 'WMSINB-14860';
9528: RAISE FND_API.G_EXC_ERROR;
9529: End if;
9530: End if;-- if l_serial_control_code not in (1,6) then
9531: End if; -- END OF l_rti_rec.transfer_lpn_id is not null
9532: End if; -- END OF l_lpn_context = G_LPN_CONTEXT_VENDOR and l_rti_rec.txntype = 'RECEIVE'
9569: END IF;
9570: l_progress := 'WMSINB-14897';
9571:
9572: --review later
9573: RAISE fnd_api.g_exc_error;
9574: END IF; --IF (validate_mixed_expense_items(l_rti_rec.to_organization_id,
9575:
9576: l_progress := 'WMSINB-14903';
9577:
9599: -- Check the error status from the above call
9600: if x_return_status <> G_RET_STS_SUCCESS Then
9601: -- Review Late Set Appropiate Message
9602: l_progress := 'WMSINB-14926';
9603: RAISE FND_API.G_EXC_ERROR;
9604: End if;
9605:
9606: PackUnpack_wrapper( x_return_status => x_return_status
9607: ,x_msg_count => x_msg_count
9638: -- Check the error status from the above call
9639: if x_return_status <> G_RET_STS_SUCCESS Then
9640: -- Review Late Set Appropiate Message
9641: l_progress := 'WMSINB-14957';
9642: RAISE FND_API.G_EXC_ERROR;
9643: End if;
9644: End if; --l_rti_rec.lpn_id IS NOT NULL THEN
9645:
9646:
9691: -- Check the error status from the above call
9692: if x_return_status <> G_RET_STS_SUCCESS Then
9693: -- Review Late Set Appropiate Message
9694: l_progress := 'WMSINB-14960';
9695: RAISE FND_API.G_EXC_ERROR;
9696: End if;
9697: End if; --if l_serial_control_code not in (1,6) then
9698:
9699: BEGIN
9757: END IF;
9758:
9759: IF (x_return_status <> g_ret_sts_success) THEN
9760: l_progress := 'WMSINB-14998';
9761: RAISE FND_API.G_EXC_ERROR;
9762: END IF;
9763:
9764: elsif ( l_rti_rec.transaction_type = 'CORRECT' and ( l_parent_txn_type not in ( 'DELIVER','RETURN TO RECEIVING')
9765: and NOT (l_parent_txn_type in ('RETURN TO VENDOR', 'RETURN TO CUSTOMER') and l_parent_parent_txn_type =
9806: -- Check the error status from the above call
9807: if x_return_status <> G_RET_STS_SUCCESS Then
9808: -- Review Late Set Appropiate Message
9809: l_progress := 'WMSINB-14998';
9810: RAISE FND_API.G_EXC_ERROR;
9811: End if;
9812: -- fix for bug 5530130:End if; -- END OF FLPN and TLPN Different
9813: End if; -- END OF l_rti_rec.transfer_lpn_id is not null
9814:
9830: END IF;
9831: l_progress := 'WMSINB-15020';
9832:
9833: --review later
9834: RAISE fnd_api.g_exc_error;
9835: END IF; --IF (validate_mixed_expense_items(l_rti_rec.to_organization_id,
9836: IF l_rti_rec.project_id IS NOT NULL THEN--Added for Bug 7219754,FP:7259462
9837: IF (validate_pjm_commingle(l_rti_rec.to_organization_id,
9838: l_rti_rec.lpn_id,
9843: print_debug('PROCESS_TXN - Project/Task commingling not allowed in LPN:'||l_rti_rec.lpn_id,1);
9844: END IF;
9845: l_progress := 'WMSINB-15026';
9846:
9847: RAISE fnd_api.g_exc_error;
9848: END IF; --IF (!validate_pjm_commingle(l_rti_rec.to_organization_id,
9849: END IF; -- IF l_rti_rec.project_id IS NOT NULL
9850: l_lpn_context := get_lpn_context(p_transaction_type => l_rti_rec.transaction_type
9851: , p_routing_header_id => l_rti_rec.routing_header_id
9867: -- Check the error status from the above call
9868: if x_return_status <> G_RET_STS_SUCCESS Then
9869: -- Review Late Set Appropiate Message
9870: l_progress := 'WMSINB-15047';
9871: RAISE FND_API.G_EXC_ERROR;
9872: End if;
9873:
9874: PackUnpack_wrapper( x_return_status => x_return_status
9875: ,x_msg_count => x_msg_count
9906: -- Check the error status from the above call
9907: if x_return_status <> G_RET_STS_SUCCESS Then
9908: -- Review Late Set Appropiate Message
9909: l_progress := 'WMSINB-15078';
9910: RAISE FND_API.G_EXC_ERROR;
9911: End if;
9912:
9913: -- fix for bug 5530130: END IF; --Endif of FLPN <> TLPN
9914: End if; -- END OF l_rti_rec.lpn_id is not null
9945: -- Check the error status from the above call
9946: if x_return_status <> G_RET_STS_SUCCESS Then
9947: -- Review Late Set Appropiate Message
9948: l_progress := 'WMSINB-15113';
9949: RAISE FND_API.G_EXC_ERROR;
9950: End if;
9951: End if; --if l_serial_control_code not in (1,6) then
9952: Else -- QTY > 0
9953: l_progress := 'WMSINB-15120';
9990: -- Check the error status from the above call
9991: if x_return_status <> G_RET_STS_SUCCESS Then
9992: -- Review Late Set Appropiate Message
9993: l_progress := 'WMSINB-15152';
9994: RAISE FND_API.G_EXC_ERROR;
9995: End if;
9996:
9997: End if; -- END OF FLPN and TLPN different
9998: End if; -- END OF l_rti_rec.lpn_id is not null then
10013: END IF;
10014: l_progress := 'WMSINB-15173';
10015:
10016: --review later
10017: RAISE fnd_api.g_exc_error;
10018: END IF; --IF (validate_mixed_expense_items(l_rti_rec.to_organization_id,
10019: IF l_rti_rec.project_id IS NOT NULL THEN--Added for Bug 7219754,FP:7259462
10020: IF (validate_pjm_commingle(l_rti_rec.to_organization_id,
10021: l_rti_rec.transfer_lpn_id,
10026: print_debug('PROCESS_TXN - Project/Task commingling not allowed in LPN:'||l_rti_rec.transfer_lpn_id,1);
10027: END IF;
10028: l_progress := 'WMSINB-15179';
10029:
10030: RAISE fnd_api.g_exc_error;
10031: END IF; --IF (!validate_pjm_commingle(l_rti_rec.to_organization_id,
10032: END IF; -- IF l_rti_rec.project_id IS NOT NULL
10033: l_lpn_context := get_lpn_context(p_transaction_type => l_rti_rec.transaction_type
10034: , p_routing_header_id => l_rti_rec.routing_header_id
10051: -- Check the error status from the above call
10052: if x_return_status <> G_RET_STS_SUCCESS Then
10053: -- Review Late Set Appropiate Message
10054: l_progress := 'WMSINB-15201';
10055: RAISE FND_API.G_EXC_ERROR;
10056: End if;
10057:
10058: PackUnpack_wrapper( x_return_status => x_return_status
10059: ,x_msg_count => x_msg_count
10090: -- Check the error status from the above call
10091: if x_return_status <> G_RET_STS_SUCCESS Then
10092: -- Review Late Set Appropiate Message
10093: l_progress := 'WMSINB-15232';
10094: RAISE FND_API.G_EXC_ERROR;
10095: End if;
10096:
10097: End if; -- END OF FLPN and TLPN different
10098: End if; -- END OF l_rti_rec.transfer_lpn_id is not null
10125: -- Check the error status from the above call
10126: if x_return_status <> G_RET_STS_SUCCESS Then
10127: -- Review Late Set Appropiate Message
10128: l_progress := 'WMSINB-15262';
10129: RAISE FND_API.G_EXC_ERROR;
10130: End if;
10131: End if; --if l_serial_control_code not in (1,6) then
10132:
10133: End if; -- END OF l_rti.rec.primary_quantity < 0
10167:
10168: if x_return_status <> G_RET_STS_SUCCESS Then
10169: -- Review Late Set Appropiate Message
10170: l_progress := 'WMSINB-15268';
10171: RAISE FND_API.G_EXC_ERROR;
10172: End if;
10173: end if; -- IF (l_rti_rec.primary_quantity < 0) and (l_rti_rec.lpn_id is not null) THEN
10174: --End bug 5095399
10175: END IF;
10199: IF (l_debug = 1) THEN
10200: print_debug('PROCESS_TXN : Error retrieving uom_code', 1);
10201: END IF;
10202: l_progress := 'WMSINB-15300';
10203: RAISE fnd_api.g_exc_error;
10204: END;
10205: -- OPMConvergence
10206: IF l_rti_rec.secondary_unit_of_measure IS NOT NULL THEN
10207:
10217: IF (l_debug = 1) THEN
10218: print_debug('CANCEL_ASN: Error retrieving sec_uom_code'||sqlerrm, 1);
10219: END IF;
10220: l_progress := 'WMSINB-11211';
10221: RAISE fnd_api.g_exc_error;
10222: END;
10223:
10224: END IF;
10225: -- OPMConvergence
10359: END IF;
10360:
10361: IF (x_return_status <> g_ret_sts_success) THEN
10362: l_progress := 'WMSINB-14998';
10363: RAISE FND_API.G_EXC_ERROR;
10364: END IF;
10365:
10366: ELSIF ((l_rti_rec.transaction_type = 'SHIP'
10367: AND Nvl(l_rti_rec.auto_transact_code, '@#$#$@') <> 'RECEIVE')
10440:
10441: IF x_return_status <> G_RET_STS_SUCCESS THEN
10442: -- Review Late Set Appropiate Message
10443: l_progress := 'WMSINB-15321';
10444: RAISE FND_API.G_EXC_ERROR;
10445: END IF;
10446: ELSE --IF (l_transactions_enabled_flag = 'Y') THEN
10447: IF (l_debug = 1) THEN
10448: print_debug('PROCESS_TXN - Expense Item. No MOVE ORDERS.',1);
10466: x_msg_data => x_msg_data);
10467:
10468: IF (x_return_status <> g_ret_sts_success) THEN
10469: l_progress := 'WMSINB-15346';
10470: RAISE fnd_api.g_exc_error;
10471: END IF;
10472:
10473: END IF; --IF (l_rti_rec.transaction_type <> 'DELIVER' AND
10474:
11028: WHEN no_data_found THEN
11029: --raise an error
11030: --review later
11031: l_progress := 'WMSINB-15882';
11032: RAISE fnd_api.g_exc_error;
11033: END;
11034:
11035: --
11036: l_operating_unit_id := inv_rcv_common_apis.get_operating_unit_id(
11077: WHEN no_data_found THEN
11078: --raise an error
11079: --review later
11080: l_progress := 'WMSINB-15904';
11081: RAISE fnd_api.g_exc_error;
11082: END;
11083: END;
11084: END IF; --IF (p_txn_source_id IS NOT NULL) THEN
11085:
11839: IF l_rs_tb.COUNT = 0 THEN
11840: IF (l_debug = 1) THEN
11841: print_debug('There is no RCV records, but LPN has contents. How?',4);
11842: END IF;
11843: RAISE fnd_api.g_exc_error;
11844: ELSE
11845: IF (l_debug = 1) THEN
11846: print_debug('Number of RCV records: '||l_rs_tb.COUNT,4);
11847: END IF;
11895:
11896: IF NOT (inv_cache.set_item_rec(l_mol_mmtt_ctnt_tb(i).organization_id,l_mol_mmtt_ctnt_tb(i).inventory_item_id)) THEN
11897: fnd_message.set_name('INV', 'INV_INT_ITMCODE');
11898: fnd_msg_pub.add;
11899: RAISE fnd_api.g_exc_unexpected_error;
11900: END IF;
11901:
11902:
11903: IF (l_mol_mmtt_ctnt_tb(i).organization_id = l_rs_tb(l_rs_index).organization_id
11924: IF (l_debug = 1) THEN
11925: print_debug('Error retrieving uom_code', 1);
11926: END IF;
11927: l_progress := 'WMSINB-11065';
11928: RAISE fnd_api.g_exc_error;
11929: END;
11930:
11931: IF l_mol_mmtt_ctnt_tb(i).txn_uom_code <> l_rs_uom_code THEN
11932: l_avail_rs_qty := inv_rcv_cache.convert_qty(l_rs_tb(l_rs_index).inventory_item_id
12021: IF x_return_status <> G_RET_STS_SUCCESS Then
12022: -- MSG no new message just add the one on stack
12023: -- Check the Error Status from this call
12024: l_progress := 'WMSINB-17580';
12025: RAISE FND_API.G_EXC_ERROR;
12026: END IF;
12027:
12028: IF (l_mol_mmtt_ctnt_tb(i).lot_number IS NOT NULL) THEN
12029: IF l_lot_interface_id IS NULL THEN
12175: IF x_return_status <> G_RET_STS_SUCCESS Then
12176: -- MSG no new message just add the one on stack
12177: -- Check the Error Status from this call
12178: l_progress := 'WMSINB-17580';
12179: RAISE FND_API.G_EXC_ERROR;
12180: END IF;
12181:
12182: FOR j IN 1..l_rti_serial_tb(l_rti_index).COUNT LOOP
12183: IF l_serial_interface_id IS NULL THEN
12250: IF l_qty_to_match > 0 THEN
12251: IF (l_debug = 1) THEN
12252: print_debug('Have finished looking at RS. Qty still remaining. how???',4);
12253: END IF;
12254: RAISE fnd_api.g_exc_error;
12255: END IF;
12256:
12257: END IF; --IF (l_serial_found = 1) THEN
12258:
12578: print_debug('CREATE_LPN_FROM_WLPNI - WLPNI record does not exist for LPN:'||p_license_plate_number,1);
12579: print_debug('CREATE_LPN_FROM_WLPNI - WLPNI record does not exist for lpn_group_id:'||p_lpn_group_id,1);
12580: END IF;
12581: l_progress := 'WMSINB-17020';
12582: RAISE fnd_api.g_exc_error;
12583: END;
12584:
12585: l_progress := 'WMSINB-17021';
12586: -- Overwrite/ set the source_type_id and source_header_id only if not null
12606: wms_container_pvt.create_lpn(
12607: p_api_version => 1.0,
12608: p_init_msg_list => g_false,
12609: p_commit => g_false,
12610: p_validation_level => fnd_api.g_valid_level_full,
12611: x_return_status => x_return_status,
12612: x_msg_count => l_msg_count,
12613: x_msg_data => l_msg_data,
12614: p_lpn => l_license_plate_number,
12634: if x_return_status <> G_RET_STS_SUCCESS Then
12635: -- MSG no new message just add the one on stack
12636: -- Check the Error Status from this call
12637: l_progress := 'WMSINB-17065';
12638: RAISE FND_API.G_EXC_ERROR;
12639: End if;
12640:
12641: --Bug#6600013.start of fix
12642: l_progress := 'WMSINB-17070';
12677: l_progress := 'WMSINB-17075';
12678:
12679: WMS_CONTAINER_PVT.Modify_LPN (
12680: p_api_version => 1.0
12681: , p_init_msg_list => fnd_api.g_false
12682: , p_commit => fnd_api.g_false
12683: , p_validation_level => fnd_api.g_valid_level_full
12684: , p_lpn => l_lpn
12685: , x_return_status => x_return_status
12678:
12679: WMS_CONTAINER_PVT.Modify_LPN (
12680: p_api_version => 1.0
12681: , p_init_msg_list => fnd_api.g_false
12682: , p_commit => fnd_api.g_false
12683: , p_validation_level => fnd_api.g_valid_level_full
12684: , p_lpn => l_lpn
12685: , x_return_status => x_return_status
12686: , x_msg_count => l_msg_count
12679: WMS_CONTAINER_PVT.Modify_LPN (
12680: p_api_version => 1.0
12681: , p_init_msg_list => fnd_api.g_false
12682: , p_commit => fnd_api.g_false
12683: , p_validation_level => fnd_api.g_valid_level_full
12684: , p_lpn => l_lpn
12685: , x_return_status => x_return_status
12686: , x_msg_count => l_msg_count
12687: , x_msg_data => l_msg_data
12688: );
12689:
12690: IF x_return_status <> G_RET_STS_SUCCESS THEN
12691: l_progress := 'WMSINB-17080';
12692: RAISE FND_API.G_EXC_ERROR;
12693: END IF;
12694: IF (l_debug = 1) THEN
12695: print_debug('CREATE_LPN_FROM_WLPNI - Updated LPN with weight,volume details ',1);
12696: END IF;
12702: x_lpn_id := l_lpn_id;
12703:
12704:
12705: EXCEPTION
12706: WHEN fnd_api.g_exc_error THEN
12707: x_return_status := g_ret_sts_error;
12708: IF (l_debug = 1) THEN
12709: print_debug('CREATE_LPN_FROM_WLPNI - Execution Error:'|| l_progress || ':' ||sqlcode, 1);
12710: END IF;
12776: if p_transaction_type = 'RECEIVE' then
12777: if (nvl(p_auto_transact_code, 'RECEIVE') <> 'DELIVER') then
12778: if p_to_lpn_context not in (G_LPN_CONTEXT_RCV ,G_LPN_CONTEXT_PREGENERATED ) then
12779: l_progress := 'WMSINB-17140';
12780: RAISE FND_API.G_EXC_ERROR;
12781: end if;
12782: else
12783: if p_to_lpn_context not in (G_LPN_CONTEXT_INV , G_LPN_CONTEXT_PREGENERATED ) then
12784: l_progress := 'WMSINB-17145';
12781: end if;
12782: else
12783: if p_to_lpn_context not in (G_LPN_CONTEXT_INV , G_LPN_CONTEXT_PREGENERATED ) then
12784: l_progress := 'WMSINB-17145';
12785: RAISE FND_API.G_EXC_ERROR;
12786: end if;
12787: end if;
12788: end if;
12789:
12789:
12790: if p_transaction_type in ('ACCEPT','REJECT') then
12791: if p_to_lpn_context not in (G_LPN_CONTEXT_RCV,G_LPN_CONTEXT_PREGENERATED ) then
12792: l_progress := 'WMSINB-17153';
12793: RAISE FND_API.G_EXC_ERROR;
12794: end if;
12795: End if;
12796:
12797: if p_transaction_type = 'DELIVER' then
12796:
12797: if p_transaction_type = 'DELIVER' then
12798: if p_to_lpn_context not in (G_LPN_CONTEXT_INV, G_LPN_CONTEXT_PREGENERATED ,G_LPN_CONTEXT_PICKED) then
12799: l_progress := 'WMSINB-17160';
12800: RAISE FND_API.G_EXC_ERROR;
12801: end if;
12802: End if;
12803:
12804: if p_transaction_type = 'TRANSFER' then
12803:
12804: if p_transaction_type = 'TRANSFER' then
12805: if p_to_lpn_context not in (G_LPN_CONTEXT_PREGENERATED ,G_LPN_CONTEXT_RCV) then
12806: l_progress := 'WMSINB-17167';
12807: RAISE FND_API.G_EXC_ERROR;
12808: end if;
12809: End if;
12810:
12811: if p_transaction_type = 'SHIP' then
12810:
12811: if p_transaction_type = 'SHIP' then
12812: if p_to_lpn_context not in (G_LPN_CONTEXT_PREGENERATED ) then
12813: l_progress := 'WMSINB-17174';
12814: RAISE FND_API.G_EXC_ERROR;
12815: end if;
12816: End if;
12817:
12818: return TRUE;
12990: -- Set appropiate message DIFFERENT TXN TYPES EXIST FOR THE SAME LPN GROUP
12991: -- MSG INV_INVALID_LPN_GROUP
12992: x_return_status := g_ret_sts_error;
12993: l_progress := 'WMSINB-17369';
12994: RAISE FND_API.G_EXC_ERROR;
12995: end if;
12996:
12997: l_progress := 'WMSINB-17373';
12998:
13058: -- Review Later.
13059: -- Set Appropiate MESSAGE For ERROR
13060: --
13061: l_progress := 'WMSINB-17435';
13062: RAISE FND_API.G_EXC_ERROR;
13063: else
13064: if l_lpn_rec.lpn_id is null then -- CASE WHERE THERE IS AN INVALID LPN
13065: IF (l_debug = 1) THEN
13066: print_debug('Explode_LPN_contents: lpn_id and license_plate number does not exist' , 1);
13069: -- Review Later.
13070: -- Set Appropiate MESSAGE For ERROR
13071: --
13072: l_progress := 'WMSINB-17446';
13073: RAISE FND_API.G_EXC_ERROR;
13074: End if;
13075: end if;
13076: --
13077: -- Call get_lpn_id to get the transfer lpn detials
13093: -- Review Later.
13094: -- Set Appropiate MESSAGE For ERROR
13095: --
13096: l_progress := 'WMSINB-17469';
13097: RAISE FND_API.G_EXC_ERROR;
13098: End if;
13099:
13100: l_progress := 'WMSINB-17473';
13101:
13158: IF x_return_status <> G_RET_STS_SUCCESS Then
13159: -- MSG no new message just add the one on stack
13160: -- Check the Error Status from this call
13161: l_progress := 'WMSINB-17550';
13162: RAISE FND_API.G_EXC_ERROR;
13163: END if;
13164: ELSE
13165: --
13166: -- Create a new RTI row with flpn=childlpn and tlpn = tlpn;
13190: IF x_return_status <> G_RET_STS_SUCCESS Then
13191: -- MSG no new message just add the one on stack
13192: -- Check the Error Status from this call
13193: l_progress := 'WMSINB-17580';
13194: RAISE FND_API.G_EXC_ERROR;
13195: END IF;
13196: END IF;
13197: END LOOP;
13198:
13596: print_debug('VALIDATE_TOTAL_QTY: QTY MISMATCH l_rti_qty = '|| to_char(l_rti_qty) || ' lpn qty ' ||
13597: to_char(l_lpn_contents.primary_quantity) , 1);
13598: END If;
13599: l_progress := 'WMSINB-17926';
13600: RAISE FND_API.G_EXC_ERROR;
13601: End if;
13602: END IF;
13603:
13604: End Loop;
13719: print_debug('VALIDATE_TOTAL_QTY: QTY MISMATCH l_rti_qty = '|| to_char(l_rti_qty) || ' lpn qty ' ||
13720: to_char(l_lpn_contents.primary_quantity) , 1);
13721: END If;
13722: l_progress := 'WMSINB-17927';
13723: RAISE FND_API.G_EXC_ERROR;
13724: End if;
13725: /* Bug 5616019.
13726: * END IF;
13727: */
13767: IF (l_debug = 1) THEN
13768: print_debug('VALIDATE_TOTAL_QTY: validate serial mismatch' , 1);
13769: END If;
13770: l_progress := 'WMSINB-17928';
13771: RAISE FND_API.G_EXC_ERROR;
13772: End if;
13773: End Loop;
13774: End Loop; -- l_wln_csr
13775: END IF; --IF Nvl(p_transaction_type,'@@@') <> 'RECEIVE' THEN
13774: End Loop; -- l_wln_csr
13775: END IF; --IF Nvl(p_transaction_type,'@@@') <> 'RECEIVE' THEN
13776:
13777: Exception
13778: when fnd_api.g_exc_error THEN
13779: x_return_status := g_ret_sts_error;
13780:
13781: when others then
13782: x_return_status := g_ret_sts_unexp_error;
13935: l_parent_source_type_id NUMBER;
13936:
13937: l_update_lpn_id BOOLEAN := FALSE;
13938:
13939: l_miss_num NUMBER := FND_API.G_MISS_NUM;
13940: l_miss_char VARCHAR2(1) := FND_API.G_MISS_CHAR;
13941:
13942: l_lpn_count NUMBER;
13943:
13936:
13937: l_update_lpn_id BOOLEAN := FALSE;
13938:
13939: l_miss_num NUMBER := FND_API.G_MISS_NUM;
13940: l_miss_char VARCHAR2(1) := FND_API.G_MISS_CHAR;
13941:
13942: l_lpn_count NUMBER;
13943:
13944: l_asn_source_header_id NUMBER;
14016: IF x_return_status <> 'S' THEN
14017: IF (l_debug = 1) THEN
14018: print_debug('WMS_RETURN_SV.mark_returns Failed with Error : ' || x_msg_data||' : '||l_progress, 1);
14019: END IF;
14020: RAISE FND_API.G_EXC_ERROR;
14021: END IF;
14022:
14023: END IF;
14024: END IF;
14051: IF (x_return_status <> g_ret_sts_success ) THEN
14052: IF (l_debug = 1) THEN
14053: print_debug('Validate_Receiving_LPN - LPN Validation failed : '||l_lpn_rec.lpn_id||' : '||l_progress, 1);
14054: END IF;
14055: RAISE FND_API.G_EXC_ERROR;
14056: END IF ;
14057:
14058: END IF ;
14059: ELSIF (l_lpn_rec.transaction_type = 'CORRECT' ) THEN
14080: IF (x_return_status <> g_ret_sts_success ) THEN
14081: IF (l_debug = 1) THEN
14082: print_debug('Validate_Receiving_LPN - LPN Validation failed : '||l_lpn_rec.lpn_id||' : '||l_progress, 1);
14083: END IF;
14084: RAISE FND_API.G_EXC_ERROR;
14085: END IF ;
14086: END IF;
14087:
14088:
14132: IF (l_debug = 1) THEN
14133: print_debug('VALIDATE_LPN_INFO: LPNS are not supported for one time items.',1);
14134: END IF;
14135: l_progress := 'WMSINB-18116';
14136: RAISE fnd_api.g_exc_error;
14137: END IF;
14138:
14139: IF NVL(l_lpn_rec.quantity,0) = 0 THEN
14140: --
14150:
14151: -- Review Later
14152: -- Set appropiate Message
14153:
14154: RAISE FND_API.G_EXC_ERROR;
14155: End if;
14156:
14157: -- Quantity is not null so proceed with this row
14158:
14191: -- Review Later.
14192: -- Set Appropiate MESSAGE For ERROR
14193: --
14194: l_progress := 'WMSINB-18171';
14195: RAISE FND_API.G_EXC_ERROR;
14196: End if;
14197:
14198: IF (l_debug = 1) THEN
14199: print_debug('VALIDATE_LPN_INFO - LPN ID:'||l_lpn_rec.lpn_id,1);
14221: -- Review Later.
14222: -- Set Appropiate MESSAGE For ERROR
14223: --
14224: l_progress := 'WMSINB-18200';
14225: RAISE fnd_api.g_exc_error;
14226: End if;
14227:
14228: IF (l_debug = 1) THEN
14229: print_debug('VALIDATE_LPN_INFO - Transfer LPN ID:'||l_lpn_rec.transfer_lpn_id,1);
14244: if l_lpn_rec.transaction_type in ( 'RECEIVE', 'ACCEPT','REJECT','DELIVER','TRANSFER') then
14245: if l_lpn_rec.lpn_id is null and l_lpn_rec.license_plate_number is not null then
14246: -- INVALID LPN or non EXISTENT LPN IN THE SYSTEM
14247: l_progress := 'WMSINB-18223';
14248: RAISE fnd_api.g_exc_error;
14249: End if;
14250: End if;
14251: End if;
14252:
14287: -- FAIL TRANSACTIONS
14288: -- for SHIP TXNS it should be 6, whereas for ASN's it shoubd be 5
14289: -- REVIEW LATER
14290: l_progress := 'WMSINB-18237';
14291: RAISE FND_API.G_EXC_ERROR;
14292: END IF;
14293: END IF;
14294: Else
14295: l_progress := 'WMSINB-18241';
14323: -- Check the error status from the above call
14324: if x_return_status <> G_RET_STS_SUCCESS Then
14325: -- Review Late Set Appropiate Message
14326: l_progress := 'WMSINB-18256';
14327: RAISE FND_API.G_EXC_ERROR;
14328: End if;
14329:
14330: IF (l_lpn_rec.transaction_type = 'SHIP' AND l_lpn_rec.source_document_code = 'PO') THEN
14331: IF (l_debug = 1) THEN
14459: -- Review Later
14460: -- Set appropiate Message
14461: --
14462: l_progress := 'WMSINB-18322';
14463: RAISE fnd_api.g_exc_error;
14464: end if;
14465: end if;
14466: --
14467: --Bug 13891514 Adding ASBN as well because the validations/processing is same for ASN/ASBN
14473: -- Review Later
14474: -- Set appropiate Message
14475: --
14476: l_progress := 'WMSINB-18335';
14477: RAISE fnd_api.g_exc_error;
14478: end if;
14479: End if; -- Receive
14480:
14481: if ( l_lpn_rec.transaction_type in ('ACCEPT','REJECT') ) then
14483: if l_lpn_context <> G_LPN_CONTEXT_RCV then
14484: l_progress := 'WMSINB-18343';
14485: -- FAIL TRANSACTIONS
14486: -- REVIEW LATER
14487: RAISE FND_API.G_EXC_ERROR;
14488: End if;
14489: End if;
14490: End if; -- Inspect
14491:
14510: and lpn_group_id = p_lpn_group_id;
14511:
14512: if l_lpn_count = 0 then
14513: l_progress := 'WMSINB-18357';
14514: RAISE FND_API.G_EXC_ERROR;
14515: End if;
14516: EXCEPTION
14517: WHEN OTHERS THEN NULL;
14518: END;
14517: WHEN OTHERS THEN NULL;
14518: END;
14519: Else
14520: l_progress := 'WMSINB-18358';
14521: RAISE FND_API.G_EXC_ERROR;
14522: End if;
14523: End if;
14524: --
14525: if ( l_lpn_rec.transaction_type = 'DELIVER') then
14538: -- and rownum = 1;
14539: -- if l_insp_mat_exists = 1 then
14540: -- -- FAIL TRANSACTIONS
14541: -- -- REVIEW LATER
14542: -- RAISE FND_API.G_EXC_ERROR;
14543: -- End if;
14544: -- Exception
14545: -- When no_data_found then
14546: -- -- No material with Inspection Reqd. exists ok to procedd with this LPN
14548: -- When Others then
14549: -- -- Other Error for checking Inspection Reqd Flag.
14550: -- -- FAIL TRANSACTIONS
14551: -- -- REVIEW LATER
14552: -- RAISE FND_API.G_EXC_ERROR;
14553: -- End;
14554: End if;
14555: End if;
14556: End if; -- Deliver Transfer
14574: l_msg_data,l_lpn_rec.to_organization_id)) THEN
14575: IF (l_lpn_rec.transaction_type = 'DELIVER' OR
14576: l_lpn_rec.auto_transact_code = 'DELIVER') THEN
14577: l_progress := 'WMSINB-18400';
14578: RAISE fnd_api.g_exc_error;
14579: END IF;
14580: END IF;
14581:
14582: --
14590: -- TRANSFER LPN SHOULD BE NULL FOR SHIP TXN
14591: -- FAIL TRANSACTIONS
14592: -- REVIEW LATER
14593: l_progress := 'WMSINB-18423';
14594: RAISE FND_API.G_EXC_ERROR;
14595: End if;
14596: End if;
14597:
14598: --
14657: if x_return_status <> G_RET_STS_SUCCESS Then
14658: if l_lpn_rec.transaction_type <> 'RECEIVE' then
14659: -- Review Late Set Appropiate Message
14660: l_progress := 'WMSINB-18460';
14661: RAISE FND_API.G_EXC_ERROR;
14662: Else
14663: -- Unpack all from here
14664: l_progress := 'WMSINB-18461';
14665: IF (l_debug = 1) THEN
14668: wms_container_pvt.packunpack_container(
14669: p_api_version => 1.0,
14670: p_init_msg_list => g_false,
14671: p_commit => g_false,
14672: p_validation_level => fnd_api.g_valid_level_none,
14673: x_return_status => x_return_status,
14674: x_msg_count => x_msg_count,
14675: x_msg_data => x_msg_data,
14676: p_lpn_id => l_lpn_rec.lpn_id,
14680: p_auto_unnest_empty_lpns => 2
14681: );
14682: if x_return_status <> G_RET_STS_SUCCESS Then
14683: l_progress := 'WMSINB-18462';
14684: RAISE FND_API.G_EXC_ERROR;
14685: End if;
14686:
14687: -- 14408061 Adding the LPN in a table with the group_id
14688: IF (l_debug = 1) THEN
14721: -- Review Later
14722: -- Set appropiate Message
14723: --
14724: l_progress := 'WMSINB-18489';
14725: RAISE FND_API.G_EXC_ERROR;
14726: else
14727: --
14728: -- WLPNI exists create the LPN
14729: --
14754: -- Check the error status from the above call
14755: if x_return_status <> G_RET_STS_SUCCESS Then
14756: -- Review Late Set Appropiate Message
14757: l_progress := 'WMSINB-18521';
14758: RAISE FND_API.G_EXC_ERROR;
14759: End if;
14760: end if;
14761: else
14762: -- *********************
14785:
14786: if x_return_status <> G_RET_STS_SUCCESS Then
14787: -- Review Late Set Appropiate Message
14788: l_progress := 'WMSINB-18552';
14789: RAISE FND_API.G_EXC_ERROR;
14790: End if;
14791:
14792: if l_lpn_match = 'N' then
14793: l_progress := 'WMSINB-18557';
14790: End if;
14791:
14792: if l_lpn_match = 'N' then
14793: l_progress := 'WMSINB-18557';
14794: RAISE FND_API.G_EXC_ERROR;
14795: End if;
14796:
14797: -- Check Error Status
14798: if ( (validate_lpn_context(l_lpn_rec.transaction_type,
14801: OR (l_transfer_lpn_context = g_lpn_context_picked
14802: AND l_lpn_rec.mmtt_temp_id IS NULL)) THEN
14803: -- Review Late Set Appropiate Message
14804: l_progress := 'WMSINB-18566';
14805: RAISE FND_API.G_EXC_ERROR;
14806: End if;
14807: End if;
14808: End if;
14809: End if;
14901: l_progress := 'WMSINB-18661';
14902: -- Review Later
14903: -- Set appropiate Message
14904: --
14905: RAISE FND_API.G_EXC_ERROR;
14906: End;
14907: --
14908:
14909: IF (l_debug = 1) THEN
14957: -- Check the error status from the above call
14958: if x_return_status <> G_RET_STS_SUCCESS Then
14959: -- Review Late Set Appropiate Message
14960: l_progress := 'WMSINB-18714';
14961: RAISE FND_API.G_EXC_ERROR;
14962: End if;
14963: else
14964: -- *********************
14965: -- PARENT LPN already exists in the system
14978:
14979: if x_return_status <> G_RET_STS_SUCCESS Then
14980: -- Review Late Set Appropiate Message
14981: l_progress := 'WMSINB-18735';
14982: RAISE FND_API.G_EXC_ERROR;
14983: End if;
14984:
14985: if l_lpn_match = 'N' then
14986: l_progress := 'WMSINB-18740';
14983: End if;
14984:
14985: if l_lpn_match = 'N' then
14986: l_progress := 'WMSINB-18740';
14987: RAISE FND_API.G_EXC_ERROR;
14988: End if;
14989:
14990: IF (l_lpn_rec.transaction_type = 'SHIP'
14991: AND (l_lpn_rec.shipment_header_id = l_wlpn_source_header_id)) THEN
15000: AND l_lpn_rec.mmtt_temp_id IS NULL)
15001: ) then
15002: -- Review Late Set Appropiate Message
15003: l_progress := 'WMSINB-18748';
15004: RAISE FND_API.G_EXC_ERROR;
15005: End if;
15006: END IF; --IF (l_lpn_rec.transaction_type = 'SHIP'
15007: --
15008:
15038: wms_container_pvt.packunpack_container(
15039: p_api_version => 1.0,
15040: p_init_msg_list => g_false,
15041: p_commit => g_false,
15042: p_validation_level => fnd_api.g_valid_level_none,
15043: x_return_status => x_return_status,
15044: x_msg_count => l_msg_count,
15045: x_msg_data => l_msg_data,
15046: p_lpn_id => l_WLPNIQLPN_PARENT_LPN_ID,
15053: IF (l_debug = 1) THEN
15054: print_debug('VALIDATE_LPN_INFO: packunpack_container failed progress = ' || l_progress,1);
15055: END IF;
15056: l_progress := 'WMSINB-18794';
15057: RAISE fnd_api.g_exc_error;
15058: END IF;
15059:
15060: l_progress := 'WMSINB-18798';
15061:
15078: IF (x_return_status <> g_ret_sts_success) THEN
15079: --raise an error
15080: --review later
15081: l_progress := 'WMSINB-18818';
15082: RAISE fnd_api.g_exc_error;
15083: END IF;
15084:
15085:
15086: --we need to update the lpn_context for the
15100: IF (x_return_status <> g_ret_sts_success) THEN
15101: --raise an error
15102: --review later
15103: l_progress := 'WMSINB-18822';
15104: RAISE fnd_api.g_exc_error;
15105: END IF;
15106:
15107: wms_container_pvt.packunpack_container(
15108: p_api_version => 1.0,
15107: wms_container_pvt.packunpack_container(
15108: p_api_version => 1.0,
15109: p_init_msg_list => g_false,
15110: p_commit => g_false,
15111: p_validation_level => fnd_api.g_valid_level_none,
15112: x_return_status => x_return_status,
15113: x_msg_count => l_msg_count,
15114: x_msg_data => l_msg_data,
15115: p_lpn_id => l_PTLPN_ID,
15121: IF (l_debug = 1) THEN
15122: print_debug('VALIDATE_LPN_INFO: packunpack_container failed progress = ' || l_progress,1);
15123: END IF;
15124: l_progress := 'WMSINB-18841';
15125: RAISE fnd_api.g_exc_error;
15126: END IF;
15127:
15128: else
15129: l_progress := 'WMSINB-18869';
15152: IF (x_return_status <> g_ret_sts_success) THEN
15153: --raise an error
15154: --review later
15155: l_progress := 'WMSINB-18891';
15156: RAISE fnd_api.g_exc_error;
15157: END IF;
15158:
15159: --we need to update the lpn_context for the
15160: --parent right here so that it has the right context.
15173: IF (x_return_status <> g_ret_sts_success) THEN
15174: --raise an error
15175: --review later
15176: l_progress := 'WMSINB-18895';
15177: RAISE fnd_api.g_exc_error;
15178: END IF;
15179:
15180: -- Review Later
15181: --PACK WLPNIQLPN IN PTLPN
15189: wms_container_pvt.packunpack_container(
15190: p_api_version => 1.0,
15191: p_init_msg_list => g_false,
15192: p_commit => g_false,
15193: p_validation_level => fnd_api.g_valid_level_none,
15194: x_return_status => x_return_status,
15195: x_msg_count => l_msg_count,
15196: x_msg_data => l_msg_data,
15197: p_lpn_id => l_PTLPN_ID,
15206: IF (l_debug = 1) THEN
15207: print_debug('VALIDATE_LPN_INFO: packunpack_container failed progress = ' || l_progress,1);
15208: END IF;
15209: l_progress := 'WMSINB-18917';
15210: RAISE fnd_api.g_exc_error;
15211: END IF;
15212: end if;
15213: end if;
15214: else -- **** where PTLPN and PTLPN_ID is both null in WLPNI
15228: wms_container_pvt.packunpack_container(
15229: p_api_version => 1.0,
15230: p_init_msg_list => g_false,
15231: p_commit => g_false,
15232: p_validation_level => fnd_api.g_valid_level_none,
15233: x_return_status => x_return_status,
15234: x_msg_count => l_msg_count,
15235: x_msg_data => l_msg_data,
15236: p_lpn_id => l_WLPNIQLPN_PARENT_LPN_ID,
15242: IF (l_debug = 1) THEN
15243: print_debug('VALIDATE_LPN_INFO: packunpack_container failed progress = ' || l_progress,1);
15244: END IF;
15245: l_progress := 'WMSINB-18973';
15246: RAISE fnd_api.g_exc_error;
15247: END IF;
15248: l_progress := 'WMSINB-18976';
15249: end if;
15250: end if;
15406: -- Review Later
15407: -- Set appropiate Message
15408: --
15409: l_progress := 'WMSINB-19129';
15410: RAISE FND_API.G_EXC_ERROR;
15411: else
15412: -- TRANSFER LPN EXISTS in THE SYSTEM
15413: if l_transfer_lpn_context <> G_LPN_CONTEXT_RCV then
15414: -- Transfer LPN Context Invalid for this TXN
15416: -- Review Later
15417: -- Set appropiate Message
15418: --
15419: l_progress := 'WMSINB-19139';
15420: RAISE FND_API.G_EXC_ERROR;
15421: End if;
15422: l_progress := 'WMSINB-19142';
15423: --
15424: -- START CHECKING IN RCV_SUPPLY
15431: -- Review Later
15432: -- Set appropiate Message
15433: --
15434: l_progress := 'WMSINB-19154';
15435: RAISE FND_API.G_EXC_ERROR;
15436: End if;
15437: End if;
15438: End if; -- End of RECEIVE','ACCEPT','REJECT','TRANSFER TXN
15439:
15446: -- Review Later
15447: -- Set appropiate Message
15448: --
15449: l_progress := 'WMSINB-19169';
15450: RAISE FND_API.G_EXC_ERROR;
15451: else
15452: -- TRANSFER LPN EXISTS in THE SYSTEM
15453: if l_transfer_lpn_context <> G_LPN_CONTEXT_INV then
15454: -- Transfer LPN Context Invalid for this TXN
15456: -- Review Later
15457: -- Set appropiate Message
15458: --
15459: l_progress := 'WMSINB-19179';
15460: RAISE FND_API.G_EXC_ERROR;
15461: End if;
15462:
15463: --Start Bug:14805517
15464: IF (l_lpn_rec.lpn_id = l_lpn_rec.transfer_lpn_id) THEN
15484: wms_container_pvt.packunpack_container(
15485: p_api_version => 1.0,
15486: p_init_msg_list => g_false,
15487: p_commit => g_false,
15488: p_validation_level => fnd_api.g_valid_level_none,
15489: x_return_status => x_return_status,
15490: x_msg_count => l_msg_count,
15491: x_msg_data => l_msg_data,
15492: p_lpn_id => l_WLPNIQLPN_PARENT_LPN_ID,
15498: IF (l_debug = 1) THEN
15499: print_debug('VALIDATE_LPN_INFO: packunpack_container failed progress Inside negative Correction = ' || l_progress,1);
15500: END IF;
15501: l_progress := 'WMSINB-19182';
15502: RAISE fnd_api.g_exc_error;
15503: END IF;
15504: l_progress := 'WMSINB-19183';
15505:
15506: END IF ;
15520: -- Review Later
15521: -- Set appropiate Message
15522: --
15523: l_progress := 'WMSINB-19192';
15524: RAISE FND_API.G_EXC_ERROR;
15525: End if;
15526: End if;
15527: End if; -- End of Transfer LPN Not null
15528:
15534: -- Review Later
15535: -- Set appropiate Message
15536: --
15537: l_progress := 'WMSINB-19206';
15538: RAISE FND_API.G_EXC_ERROR;
15539: End if;
15540:
15541: IF ( ( NVL(l_lpn_rec.lpn_id,0) <> NVL(l_lpn_rec.transfer_lpn_id,0) ) OR
15542: ( NVL(l_lpn_rec.license_plate_number,'-9999') <> NVL(l_lpn_rec.transfer_license_plate_number,'-9999') )
15550: -- Review Later
15551: -- Set appropiate Message
15552: --
15553: l_progress := 'WMSINB-19222';
15554: RAISE FND_API.G_EXC_ERROR;
15555: End if;
15556: -- Validate Locator
15557: -- Review Later
15558: l_lpn_match := 'N';
15568: l_progress := 'WMSINB-19237';
15569: if x_return_status <> G_RET_STS_SUCCESS Then
15570: -- Review Late Set Appropiate Message
15571: l_progress := 'WMSINB-19240';
15572: RAISE FND_API.G_EXC_ERROR;
15573: End if;
15574:
15575: l_progress := 'WMSINB-19244';
15576:
15575: l_progress := 'WMSINB-19244';
15576:
15577: if l_lpn_match = 'N' then
15578: l_progress := 'WMSINB-19247';
15579: RAISE FND_API.G_EXC_ERROR;
15580: End if;
15581: Else -- Create LPN with context as 3
15582: -- Create LPN Here
15583: l_progress := 'WMSINB-19252';
15592: -- Check the error status from the above call
15593: if x_return_status <> G_RET_STS_SUCCESS Then
15594: -- Review Late Set Appropiate Message
15595: l_progress := 'WMSINB-19264';
15596: RAISE FND_API.G_EXC_ERROR;
15597: End if;
15598: End if;
15599: Else -- RS.PTID.PTID Exists case supply LPN and FROM LPN SHOULD MATCH
15600: if (nvl(l_rs_ptid_ptid_lpn_id,-9999) <> nvl(l_lpn_rec.lpn_id,0) ) then
15602: -- Review Later
15603: -- Set appropiate Message
15604: --
15605: l_progress := 'WMSINB-19274';
15606: RAISE FND_API.G_EXC_ERROR;
15607: End if;
15608: End if;
15609: End if; -- END OF ACCEPT/REJECT/TRANSFER/DELIVER
15610: Elsif (l_lpn_rec.lpn_id = l_lpn_rec.transfer_lpn_id) then -- FLPN and TLPN SAME
15615: -- Review Later
15616: -- Set appropiate Message
15617: --
15618: l_progress := 'WMSINB-19287';
15619: RAISE FND_API.G_EXC_ERROR;
15620: End if;
15621: End if;
15622: End if;
15623:
15636:
15637: if x_return_status <> G_RET_STS_SUCCESS Then
15638: -- Review Late Set Appropiate Message
15639: l_progress := 'WMSINB-19308';
15640: RAISE FND_API.G_EXC_ERROR;
15641: End if;
15642:
15643: if ( (l_parent_txn_type in ('DELIVER')) or (l_lpn_match = 'N') ) then
15644: -- Call Total QTY VALIDATION API HERE
15654:
15655: if x_return_status <> G_RET_STS_SUCCESS Then
15656: -- Review Late Set Appropiate Message
15657: l_progress := 'WMSINB-19326';
15658: RAISE FND_API.G_EXC_ERROR;
15659: End if;
15660: End if;
15661: End if;
15662: End if; -- End of From LPN not null
15674: if l_parent_txn_type in ('RETURN TO VENDOR', 'RETURN TO CUSTOMER') then
15675: -- FAIL THE TXN
15676: -- Review Late Set Appropiate Message
15677: l_progress := 'WMSINB-19346';
15678: RAISE FND_API.G_EXC_ERROR;
15679: End if;
15680:
15681: if l_parent_txn_type in ('RETURN TO RECEIVING') then
15682: if l_lpn_rec.transfer_lpn_id is null then
15682: if l_lpn_rec.transfer_lpn_id is null then
15683: -- TRANSFER LPN DOES NOT EXISTS FAIL THE TXN
15684: -- Review Late Set Appropiate Message
15685: l_progress := 'WMSINB-19354';
15686: RAISE FND_API.G_EXC_ERROR;
15687: Else
15688: -- TRANSFER LPN EXIST
15689: if l_transfer_lpn_context <> G_LPN_CONTEXT_RCV then
15690: -- Review Late Set Appropiate Message
15688: -- TRANSFER LPN EXIST
15689: if l_transfer_lpn_context <> G_LPN_CONTEXT_RCV then
15690: -- Review Late Set Appropiate Message
15691: l_progress := 'WMSINB-19360';
15692: RAISE FND_API.G_EXC_ERROR;
15693: End if;
15694: --
15695: if ( ( l_rs_ptid_ptid_ptid_exists <> TRUE ) or ( l_lpn_rec.transfer_lpn_id <> nvl(l_rs_ptid_ptid_ptid_lpn_id,-9999)) ) then
15696: -- Review Late Set Appropiate Message
15694: --
15695: if ( ( l_rs_ptid_ptid_ptid_exists <> TRUE ) or ( l_lpn_rec.transfer_lpn_id <> nvl(l_rs_ptid_ptid_ptid_lpn_id,-9999)) ) then
15696: -- Review Late Set Appropiate Message
15697: l_progress := 'WMSINB-19366';
15698: RAISE FND_API.G_EXC_ERROR;
15699: End if;
15700: End if;
15701: End if; -- END OF RTR
15702: Else -- TRANSFER LPN NULL
15703: if l_parent_txn_type in ('RETURN TO RECEIVING') then
15704: if l_rs_ptid_ptid_ptid_lpn_id is not null then -- SUPPLY EXISTS WITH LPN SO FAIL THE TXN
15705: -- Review Late Set Appropiate Message
15706: l_progress := 'WMSINB-19375';
15707: RAISE FND_API.G_EXC_ERROR;
15708: End if;
15709: End if;
15710: End if; -- END OF TRANSFER LPN NULL
15711:
15721: -- Review Later
15722: -- Set appropiate Message
15723: --
15724: l_progress := 'WMSINB-19393';
15725: RAISE FND_API.G_EXC_ERROR;
15726: End if;
15727: -- Validate Locator
15728: -- Review Later
15729: l_lpn_match := 'N';
15738:
15739: if x_return_status <> G_RET_STS_SUCCESS Then
15740: -- Review Late Set Appropiate Message
15741: l_progress := 'WMSINB-19410';
15742: RAISE FND_API.G_EXC_ERROR;
15743: End if;
15744:
15745: if l_lpn_match = 'N' then
15746: l_progress := 'WMSINB-19415';
15743: End if;
15744:
15745: if l_lpn_match = 'N' then
15746: l_progress := 'WMSINB-19415';
15747: RAISE FND_API.G_EXC_ERROR;
15748: End if;
15749: Else -- LPN ID NULL CASE
15750: -- Create LPN Here
15751: create_lpn_from_wlpni(p_license_plate_number => l_lpn_rec.license_plate_number,
15759: -- Check the error status from the above call
15760: if x_return_status <> G_RET_STS_SUCCESS Then
15761: -- Review Late Set Appropiate Message
15762: l_progress := 'WMSINB-19431';
15763: RAISE FND_API.G_EXC_ERROR;
15764: End if;
15765: End if;
15766: Else -- RS.PTID.PTID EXISTS
15767: if (nvl(l_rs_ptid_ptid_lpn_id, -9999) <> l_lpn_rec.lpn_id ) then
15766: Else -- RS.PTID.PTID EXISTS
15767: if (nvl(l_rs_ptid_ptid_lpn_id, -9999) <> l_lpn_rec.lpn_id ) then
15768: -- Review Late Set Appropiate Message
15769: l_progress := 'WMSINB-19438';
15770: RAISE FND_API.G_EXC_ERROR;
15771: End if;
15772: End if;
15773: End if; -- END OF PTID.PTID.TXNTYPE IN RECEIVE/ACCEPT/REJECT/TRANSFER
15774:
15779: -- Review Later
15780: -- Set appropiate Message
15781: --
15782: l_progress := 'WMSINB-19451';
15783: RAISE FND_API.G_EXC_ERROR;
15784: End if;
15785: -- Validate Locator
15786: -- Review Later
15787: l_lpn_match := 'N';
15797: l_progress := 'WMSINB-19466';
15798: if x_return_status <> G_RET_STS_SUCCESS Then
15799: -- Review Late Set Appropiate Message
15800: l_progress := 'WMSINB-19469';
15801: RAISE FND_API.G_EXC_ERROR;
15802: End if;
15803:
15804: if l_lpn_match = 'N' then
15805: l_progress := 'WMSINB-19474';
15802: End if;
15803:
15804: if l_lpn_match = 'N' then
15805: l_progress := 'WMSINB-19474';
15806: RAISE FND_API.G_EXC_ERROR;
15807: End if;
15808: Else -- LPN ID NULL CASE
15809: -- Create LPN Here
15810: l_progress := 'WMSINB-19479';
15819: -- Check the error status from the above call
15820: if x_return_status <> G_RET_STS_SUCCESS Then
15821: -- Review Late Set Appropiate Message
15822: l_progress := 'WMSINB-19491';
15823: RAISE FND_API.G_EXC_ERROR;
15824: End if;
15825: End if; -- END OF LPN ID NOT NULL CASE
15826: End if; --END OF PTID.TXNTYPE DELIVER
15827: Elsif (l_lpn_rec.lpn_id = l_lpn_rec.transfer_lpn_id) then
15851:
15852: if x_return_status <> G_RET_STS_SUCCESS Then
15853: -- Review Late Set Appropiate Message
15854: l_progress := 'WMSINB-19509';
15855: RAISE FND_API.G_EXC_ERROR;
15856: End if;
15857: End if;--Bug 5550783
15858: End if; -- END OF TLPN and FLPN DIFFERENT
15859: Else -- FROM LPN NULL
15861: if l_parent_parent_txn_type in ('RECEIVE','ACCEPT','REJECT','TRANSFER') then
15862: if ( l_rs_ptid_ptid_exists = TRUE and l_rs_ptid_ptid_lpn_id is not null) then
15863: -- Review Late Set Appropiate Message
15864: l_progress := 'WMSINB-19518';
15865: RAISE FND_API.G_EXC_ERROR;
15866: End if;
15867: End if;
15868: End if; -- END OF FROM LPN NOT NULL CASE
15869: End if; --END OF RTR RTV RTC
15885: if ( l_lpn_rec.lpn_id is not null or l_lpn_rec.license_plate_number is not null ) then
15886: if (l_parent_txn_type = 'RECEIVE' and l_lpn_rec.transaction_type = 'CORRECT') then
15887: -- Review Late Set Appropiate Message
15888: l_progress := 'WMSINB-19542';
15889: RAISE FND_API.G_EXC_ERROR;
15890: End if;
15891:
15892: if l_lpn_rec.lpn_id is null then
15893: -- Review Late Set Appropiate Message
15891:
15892: if l_lpn_rec.lpn_id is null then
15893: -- Review Late Set Appropiate Message
15894: l_progress := 'WMSINB-19548';
15895: RAISE FND_API.G_EXC_ERROR;
15896: Else -- FLPN Exists
15897: if l_lpn_rec.transaction_type = 'CORRECT' then
15898: if l_lpn_context not in (G_LPN_CONTEXT_RCV ) then
15899: -- Review Late Set Appropiate Message
15897: if l_lpn_rec.transaction_type = 'CORRECT' then
15898: if l_lpn_context not in (G_LPN_CONTEXT_RCV ) then
15899: -- Review Late Set Appropiate Message
15900: l_progress := 'WMSINB-19554';
15901: RAISE FND_API.G_EXC_ERROR;
15902: End if;
15903:
15904: -- Case WHERE FROM LPN and SUPPLY LPN mismatch fail the TXN
15905: if (l_lpn_rec.lpn_id <> nvl(l_rs_ptid_ptid_lpn_id,-9999)) then
15904: -- Case WHERE FROM LPN and SUPPLY LPN mismatch fail the TXN
15905: if (l_lpn_rec.lpn_id <> nvl(l_rs_ptid_ptid_lpn_id,-9999)) then
15906: -- Review Late Set Appropiate Message
15907: l_progress := 'WMSINB-19561';
15908: RAISE FND_API.G_EXC_ERROR;
15909: End if;
15910: Else -- case for RTV/RTR/RTC
15911: if l_parent_txn_type in ('DELIVER') then
15912: if l_lpn_context not in (G_LPN_CONTEXT_INV) then
15911: if l_parent_txn_type in ('DELIVER') then
15912: if l_lpn_context not in (G_LPN_CONTEXT_INV) then
15913: -- Review Late Set Appropiate Message
15914: l_progress := 'WMSINB-19568';
15915: RAISE FND_API.G_EXC_ERROR;
15916: End if;
15917: Else
15918: if l_lpn_context not in (G_LPN_CONTEXT_RCV) then
15919: -- Review Late Set Appropiate Message
15917: Else
15918: if l_lpn_context not in (G_LPN_CONTEXT_RCV) then
15919: -- Review Late Set Appropiate Message
15920: l_progress := 'WMSINB-19574';
15921: RAISE FND_API.G_EXC_ERROR;
15922: End if;
15923: if ( ( l_rs_ptid_exists <> TRUE ) or (l_lpn_rec.lpn_id <> nvl(l_rs_ptid_lpn_id, -9999)) ) then
15924: -- Review Late Set Appropiate Message
15925: l_progress := 'WMSINB-19579';
15922: End if;
15923: if ( ( l_rs_ptid_exists <> TRUE ) or (l_lpn_rec.lpn_id <> nvl(l_rs_ptid_lpn_id, -9999)) ) then
15924: -- Review Late Set Appropiate Message
15925: l_progress := 'WMSINB-19579';
15926: RAISE FND_API.G_EXC_ERROR;
15927: End if;
15928: End if; -- END OF parent_txn_type as DELIVER
15929: End if; -- END OF TXNTYPE CORRECT
15930: End if; -- WLPN.FLPN exists CASE
15933: if (l_rs_ptid_ptid_exists = TRUE) then
15934: if (l_rs_ptid_ptid_lpn_id is not null) then
15935: -- Review Late Set Appropiate Message
15936: l_progress := 'WMSINB-19590';
15937: RAISE FND_API.G_EXC_ERROR;
15938: End if;
15939: End if;
15940: Else -- Transaction for RTV/RTR/RTC
15941: if (l_rs_ptid_exists = TRUE ) then
15941: if (l_rs_ptid_exists = TRUE ) then
15942: if (l_rs_ptid_ptid_lpn_id is not null ) then
15943: -- Review Late Set Appropiate Message
15944: l_progress := 'WMSINB-19598';
15945: RAISE FND_API.G_EXC_ERROR;
15946: End if;
15947: End if;
15948: End if; -- END OF transaction_type CORRECT
15949: End if; -- END OF FLPN NOT NULL CASE
15959: if l_lpn_rec.transfer_lpn_id is not null then
15960: if l_transfer_lpn_context not in (G_LPN_CONTEXT_RCV ,G_LPN_CONTEXT_PREGENERATED ) then
15961: -- Review Late Set Appropiate Message
15962: l_progress := 'WMSINB-19616';
15963: RAISE FND_API.G_EXC_ERROR;
15964: End if;
15965:
15966: -- Validate Locator
15967: -- Review Later
15979:
15980: if x_return_status <> G_RET_STS_SUCCESS Then
15981: -- Review Late Set Appropiate Message
15982: l_progress := 'WMSINB-19636';
15983: RAISE FND_API.G_EXC_ERROR;
15984: End if;
15985:
15986: if l_lpn_match = 'N' then
15987: l_progress := 'WMSINB-19641';
15984: End if;
15985:
15986: if l_lpn_match = 'N' then
15987: l_progress := 'WMSINB-19641';
15988: RAISE FND_API.G_EXC_ERROR;
15989: End if;
15990: Else
15991: -- Create LPN Here
15992: l_progress := 'WMSINB-19646';
16001: -- Check the error status from the above call
16002: if x_return_status <> G_RET_STS_SUCCESS Then
16003: -- Review Late Set Appropiate Message
16004: l_progress := 'WMSINB-19658';
16005: RAISE FND_API.G_EXC_ERROR;
16006: End if;
16007: End if;
16008: Else
16009: -- CHECK THE LPN IN SUPPLY
16014: IF (l_rs_ptid_exists = TRUE) THEN
16015: if (l_lpn_rec.transfer_lpn_id <> nvl(l_rs_ptid_lpn_id,-9999) ) then
16016: -- Review Late Set Appropiate Message
16017: l_progress := 'WMSINB-19666';
16018: RAISE FND_API.G_EXC_ERROR;
16019: END IF;
16020: END IF;
16021: End if;-- END OF RS EXISTS
16022: Else -- THIS PART FOR RTV/RTR/RTC . THIS LPN WILL BE FINALLY ISSUED OUT
16023: if l_lpn_rec.transfer_lpn_id is not null then
16024: if l_transfer_lpn_context not in (G_LPN_CONTEXT_PREGENERATED) then
16025: -- Review Late Set Appropiate Message
16026: l_progress := 'WMSINB-19674';
16027: RAISE FND_API.G_EXC_ERROR;
16028: End if;
16029: Else -- TRANSFER LPN DOES NOT EXIST IN THE SYETEM
16030: -- Create LPN Here
16031: l_progress := 'WMSINB-19679';
16040: -- Check the error status from the above call
16041: if x_return_status <> G_RET_STS_SUCCESS Then
16042: -- Review Late Set Appropiate Message
16043: l_progress := 'WMSINB-19691';
16044: RAISE FND_API.G_EXC_ERROR;
16045: End if;
16046: End if;
16047: End if; -- END OF parent_txn_type CORRECT
16048: End if; -- END OF 'RECEIVE','ACCEPT','REJECT','TRANSFER'
16052: if l_lpn_rec.transaction_type = 'CORRECT' then
16053: if l_transfer_lpn_context not in (G_LPN_CONTEXT_INV ,G_LPN_CONTEXT_PREGENERATED ) then
16054: -- Review Late Set Appropiate Message
16055: l_progress := 'WMSINB-19703';
16056: RAISE FND_API.G_EXC_ERROR;
16057: End if;
16058: -- Validate Locator
16059: -- Review Later
16060: l_lpn_match := 'N';
16071:
16072: if x_return_status <> G_RET_STS_SUCCESS Then
16073: -- Review Late Set Appropiate Message
16074: l_progress := 'WMSINB-19722';
16075: RAISE FND_API.G_EXC_ERROR;
16076: End if;
16077:
16078: if l_lpn_match = 'N' then
16079: l_progress := 'WMSINB-19727';
16076: End if;
16077:
16078: if l_lpn_match = 'N' then
16079: l_progress := 'WMSINB-19727';
16080: RAISE FND_API.G_EXC_ERROR;
16081: End if;
16082: Elsif l_lpn_rec.transaction_type in ('RETURN TO VENDOR', 'RETURN TO CUSTOMER' ) then
16083: if l_transfer_lpn_context not in (G_LPN_CONTEXT_PREGENERATED) then
16084: -- Review Late Set Appropiate Message
16082: Elsif l_lpn_rec.transaction_type in ('RETURN TO VENDOR', 'RETURN TO CUSTOMER' ) then
16083: if l_transfer_lpn_context not in (G_LPN_CONTEXT_PREGENERATED) then
16084: -- Review Late Set Appropiate Message
16085: l_progress := 'WMSINB-19733';
16086: RAISE FND_API.G_EXC_ERROR;
16087: End if;
16088: Elsif l_lpn_rec.transaction_type in ('RETURN TO RECEIVING' ) then
16089: if l_rs_ptid_ptid_exists <> TRUE then
16090: if l_transfer_lpn_context not in (G_LPN_CONTEXT_PREGENERATED ,G_LPN_CONTEXT_RCV ) then
16089: if l_rs_ptid_ptid_exists <> TRUE then
16090: if l_transfer_lpn_context not in (G_LPN_CONTEXT_PREGENERATED ,G_LPN_CONTEXT_RCV ) then
16091: -- Review Late Set Appropiate Message
16092: l_progress := 'WMSINB-19740';
16093: RAISE FND_API.G_EXC_ERROR;
16094: End if;
16095: -- Validate Locator
16096: -- Review Later
16097: l_lpn_match := 'N';
16107:
16108: if x_return_status <> G_RET_STS_SUCCESS Then
16109: -- Review Late Set Appropiate Message
16110: l_progress := 'WMSINB-19758';
16111: RAISE FND_API.G_EXC_ERROR;
16112: End if;
16113:
16114: if l_lpn_match = 'N' then
16115: l_progress := 'WMSINB-19763';
16112: End if;
16113:
16114: if l_lpn_match = 'N' then
16115: l_progress := 'WMSINB-19763';
16116: RAISE FND_API.G_EXC_ERROR;
16117: End if;
16118: Else
16119: if (l_lpn_rec.transfer_lpn_id <> nvl(l_rs_ptid_ptid_lpn_id,-9999) ) then
16120: -- Review Late Set Appropiate Message
16118: Else
16119: if (l_lpn_rec.transfer_lpn_id <> nvl(l_rs_ptid_ptid_lpn_id,-9999) ) then
16120: -- Review Late Set Appropiate Message
16121: l_progress := 'WMSINB-19769';
16122: RAISE FND_API.G_EXC_ERROR;
16123: End if;
16124: End if;
16125: End if; -- END OF RTR
16126:
16128: if l_lpn_rec.transaction_type = 'RETURN TO RECEIVING' then
16129: if (l_rs_ptid_ptid_exists = TRUE ) then
16130: -- Review Late Set Appropiate Message
16131: l_progress := 'WMSINB-19779';
16132: RAISE FND_API.G_EXC_ERROR;
16133: End if;
16134: --
16135: -- Create NEW LPN For TLPN
16136: create_lpn_from_wlpni(p_license_plate_number => l_lpn_rec.transfer_license_plate_number,
16144: -- Check the error status from the above call
16145: if x_return_status <> G_RET_STS_SUCCESS Then
16146: -- Review Late Set Appropiate Message
16147: l_progress := 'WMSINB-19795';
16148: RAISE FND_API.G_EXC_ERROR;
16149: End if;
16150: End if;
16151: End if; -- TRANSFER LPN ID NOT NULL
16152:
16156: if l_lpn_rec.transaction_type = 'RETURN TO RECEIVING' then
16157: if (l_rs_ptid_ptid_exists = TRUE and l_lpn_rec.transfer_lpn_id <> nvl(l_rs_ptid_ptid_lpn_id,-9999)) then
16158: -- Review Late Set Appropiate Message
16159: l_progress := 'WMSINB-19807';
16160: RAISE FND_API.G_EXC_ERROR;
16161: End if;
16162: Elsif (l_lpn_rec.transaction_type = 'CORRECT' and l_parent_txn_type in ('RECEIVE','ACCEPT','REJECT','TRANSFER')) then
16163: if l_rs_ptid_exists = TRUE then
16164: l_progress := 'WMSINB-19812';
16163: if l_rs_ptid_exists = TRUE then
16164: l_progress := 'WMSINB-19812';
16165: if (l_lpn_rec.transfer_lpn_id <> nvl(l_rs_ptid_lpn_id,-9999)) then
16166: -- Review Late Set Appropiate Message
16167: RAISE FND_API.G_EXC_ERROR;
16168: End if;
16169: End if;
16170: End if;
16171:
16183:
16184: if x_return_status <> G_RET_STS_SUCCESS Then
16185: -- Review Late Set Appropiate Message
16186: l_progress := 'WMSINB-19834';
16187: RAISE FND_API.G_EXC_ERROR;
16188: End if;
16189:
16190: if ( (l_parent_txn_type in ('DELIVER')) or (l_lpn_match = 'N') ) then
16191: -- Call Total QTY VALIDATION API HERE
16200:
16201: if x_return_status <> G_RET_STS_SUCCESS Then
16202: -- Review Late Set Appropiate Message
16203: l_progress := 'WMSINB-19851';
16204: RAISE FND_API.G_EXC_ERROR;
16205: End if;
16206: End if;
16207:
16208: End if; --END OF FLPN AND TLPN DIFFERENT
16211: if l_lpn_rec.transaction_type = 'RETURN TO RECEIVING' then
16212: if (l_rs_ptid_ptid_lpn_id is not null) then
16213: -- Review Late Set Appropiate Message
16214: l_progress := 'WMSINB-19862';
16215: RAISE FND_API.G_EXC_ERROR;
16216: End if;
16217: Elsif (l_lpn_rec.transaction_type = 'CORRECT' and l_parent_txn_type in ('RECEIVE','ACCEPT','REJECT','TRANSFER')) then
16218: if (l_rs_ptid_lpn_id is not null ) then
16219: -- Review Late Set Appropiate Message
16217: Elsif (l_lpn_rec.transaction_type = 'CORRECT' and l_parent_txn_type in ('RECEIVE','ACCEPT','REJECT','TRANSFER')) then
16218: if (l_rs_ptid_lpn_id is not null ) then
16219: -- Review Late Set Appropiate Message
16220: l_progress := 'WMSINB-19868';
16221: RAISE FND_API.G_EXC_ERROR;
16222: End if;
16223: End if;
16224:
16225: End if; --END OF TRANSFER LPN NOT NULL CASE
16235: if l_parent_parent_txn_type in ('RECEIVE','ACCEPT','REJECT','TRANSFER') then
16236: if l_lpn_rec.lpn_id is null then
16237: -- Review Late Set Appropiate Message
16238: l_progress := 'WMSINB-19886';
16239: RAISE FND_API.G_EXC_ERROR;
16240: Else
16241: if l_lpn_context not in (G_LPN_CONTEXT_RCV) then
16242: -- Review Late Set Appropiate Message
16243: l_progress := 'WMSINB-19891';
16240: Else
16241: if l_lpn_context not in (G_LPN_CONTEXT_RCV) then
16242: -- Review Late Set Appropiate Message
16243: l_progress := 'WMSINB-19891';
16244: RAISE FND_API.G_EXC_ERROR;
16245: End if;
16246: --
16247: if ( l_lpn_rec.lpn_id <> nvl(l_rs_ptid_ptid_lpn_id,-9999)) then
16248: -- Review Late Set Appropiate Message
16246: --
16247: if ( l_lpn_rec.lpn_id <> nvl(l_rs_ptid_ptid_lpn_id,-9999)) then
16248: -- Review Late Set Appropiate Message
16249: l_progress := 'WMSINB-19897';
16250: RAISE FND_API.G_EXC_ERROR;
16251: End if;
16252: End if;
16253: End if; -- END OF PTID.PTID txntype as RECEIVE ACCEPT REJECT TRANSFER
16254:
16255: if l_parent_parent_txn_type in ('DELIVER') then
16256: if l_lpn_rec.lpn_id is null then
16257: -- Review Late Set Appropiate Message
16258: l_progress := 'WMSINB-19906';
16259: RAISE FND_API.G_EXC_ERROR;
16260: Else
16261: if l_lpn_context <> G_LPN_CONTEXT_INV then
16262: -- Review Late Set Appropiate Message
16263: l_progress := 'WMSINB-19911';
16260: Else
16261: if l_lpn_context <> G_LPN_CONTEXT_INV then
16262: -- Review Late Set Appropiate Message
16263: l_progress := 'WMSINB-19911';
16264: RAISE FND_API.G_EXC_ERROR;
16265: End if;
16266: End if;
16267: End if; --END OF PTID.PTID txntype as DELIVER
16268: Else -- FROM LPN NULL
16269: if l_parent_parent_txn_type in ('RECEIVE','ACCEPT','REJECT','TRANSFER') then
16270: if l_rs_ptid_ptid_lpn_id is not null then
16271: -- Review Late Set Appropiate Message
16272: l_progress := 'WMSINB-19920';
16273: RAISE FND_API.G_EXC_ERROR;
16274: End if;
16275: End if;
16276: End if; -- END OF FROM LPN NOT NULL
16277:
16278: if ( l_lpn_rec.transfer_lpn_id is not null or l_lpn_rec.transfer_license_plate_number is not null ) then
16279: if l_parent_txn_type in ('RETURN TO VENDOR','RETURN TO CUSTOMER') then
16280: -- Review Late Set Appropiate Message
16281: l_progress := 'WMSINB-19929';
16282: RAISE FND_API.G_EXC_ERROR;
16283: End if;
16284:
16285: if ( ( nvl(l_lpn_rec.lpn_id,0) <> nvl(l_lpn_rec.transfer_lpn_id,0) ) or
16286: ( nvl(l_lpn_rec.license_plate_number,'-9999') <> nvl(l_lpn_rec.transfer_license_plate_number,'-9999') )
16291:
16292: if l_transfer_lpn_context not in (G_LPN_CONTEXT_PREGENERATED ,G_LPN_CONTEXT_INV ) then
16293: -- Review Late Set Appropiate Message
16294: l_progress := 'WMSINB-19942';
16295: RAISE FND_API.G_EXC_ERROR;
16296: End if;
16297:
16298: l_progress := 'WMSINB-19946';
16299: -- Validate Locator
16310:
16311: if x_return_status <> G_RET_STS_SUCCESS Then
16312: -- Review Late Set Appropiate Message
16313: l_progress := 'WMSINB-19961';
16314: RAISE FND_API.G_EXC_ERROR;
16315: End if;
16316:
16317: if l_lpn_match = 'N' then
16318: l_progress := 'WMSINB-19966';
16315: End if;
16316:
16317: if l_lpn_match = 'N' then
16318: l_progress := 'WMSINB-19966';
16319: RAISE FND_API.G_EXC_ERROR;
16320: End if;
16321:
16322: Else -- TRANSFER LPN DOES NOT EXIST IN THE SYSTEM
16323: -- Create NEW LPN For TLPN
16333: -- Check the error status from the above call
16334: if x_return_status <> G_RET_STS_SUCCESS Then
16335: -- Review Late Set Appropiate Message
16336: l_progress := 'WMSINB-19984';
16337: RAISE FND_API.G_EXC_ERROR;
16338: End if;
16339:
16340: End if;
16341: Else -- RS.PTID.PTID Exists
16342: l_progress := 'WMSINB-19990';
16343: if ( ( l_rs_ptid_ptid_ptid_exists <> TRUE ) or (nvl(l_lpn_rec.transfer_lpn_id,0) <> nvl(l_rs_ptid_ptid_ptid_lpn_id,-9999)) ) then
16344: -- Review Late Set Appropiate Message
16345: l_progress := 'WMSINB-19993';
16346: RAISE FND_API.G_EXC_ERROR;
16347: End if;
16348: End if;
16349: End if; -- END OF RTR
16350: Else -- TLPN and FLPN same
16351: if l_rs_ptid_ptid_ptid_exists = TRUE then
16352: if nvl(l_lpn_rec.lpn_id,0) <> nvl(l_rs_ptid_ptid_ptid_lpn_id,-9999) then
16353: -- Review Late Set Appropiate Message
16354: l_progress := 'WMSINB-20002';
16355: RAISE FND_API.G_EXC_ERROR;
16356: End if;
16357: End if;
16358: End if; -- END OF TLPN and FLPN Different
16359:
16363: if l_rs_ptid_ptid_ptid_exists = TRUE then
16364: if l_rs_ptid_ptid_ptid_lpn_id is not null then
16365: -- Review Late Set Appropiate Message
16366: l_progress := 'WMSINB-20014';
16367: RAISE FND_API.G_EXC_ERROR;
16368: End if;
16369: End if;
16370: End if;
16371: End if; --END OF TLPN not null
16469: wms_container_pvt.packunpack_container(
16470: p_api_version => 1.0,
16471: p_init_msg_list => g_false,
16472: p_commit => g_false,
16473: p_validation_level => fnd_api.g_valid_level_none,
16474: x_return_status => x_return_status,
16475: x_msg_count => l_msg_count,
16476: x_msg_data => l_msg_data,
16477: p_lpn_id => l_wlpni_cur_parent_lpn,
16486: IF (l_debug = 1) THEN
16487: print_debug('VALIDATE_LPN_INFO: packunpack_container failed progress = ' || l_progress,1);
16488: END IF;
16489: l_progress := 'WMSINB-20122';
16490: RAISE fnd_api.g_exc_error;
16491: END IF;
16492: END IF; --IF l_wlpni_cur_parent_lpn IS NOT NULL THEN
16493:
16494: IF c_wlpni_rec.parent_lpn_id IS NOT NULL THEN
16563: -- Check the error status from the above call
16564: if x_return_status <> G_RET_STS_SUCCESS Then
16565: -- Review Late Set Appropiate Message
16566: l_progress := 'WMSINB-20125';
16567: RAISE FND_API.G_EXC_ERROR;
16568: End if;
16569:
16570: --We also need to update sub/loc/sourc_name etc for parent
16571: update_lpn_location_context(p_organization_id => l_parent_to_organization_id
16585: -- Check the error status from the above call
16586: if x_return_status <> G_RET_STS_SUCCESS Then
16587: -- Review Late Set Appropiate Message
16588: l_progress := 'WMSINB-20127';
16589: RAISE FND_API.G_EXC_ERROR;
16590: End if;
16591: End if;
16592:
16593: l_progress := 'WMSINB-20128';
16594:
16595: wms_container_pvt.packunpack_container( p_api_version => 1.0,
16596: p_init_msg_list => g_false,
16597: p_commit => g_false,
16598: p_validation_level => fnd_api.g_valid_level_none,
16599: x_return_status => x_return_status,
16600: x_msg_count => l_msg_count,
16601: x_msg_data => l_msg_data,
16602: p_lpn_id => c_wlpni_rec.parent_lpn_id,
16608: IF (l_debug = 1) THEN
16609: print_debug('VALIDATE_LPN_INFO: packunpack_container failed progress = ' || l_progress,1);
16610: END IF;
16611: l_progress := 'WMSINB-20144';
16612: RAISE fnd_api.g_exc_error;
16613: END IF;
16614: END IF; --IF c_wlpni_rec.parent_lpn_id IS NOT NULL THEN
16615:
16616: End if;
16621: delete from wms_lpn_interface where source_group_id = p_lpn_group_id;
16622:
16623:
16624: EXCEPTION
16625: WHEN fnd_api.g_exc_error THEN
16626: x_return_status := g_ret_sts_error;
16627: IF (l_debug = 1) THEN
16628: print_debug('VALIDATE_LPN_INFO - Execution Error:'|| l_progress || ':' ||sqlcode, 1);
16629: print_stacked_messages;
17283: END If;
17284:
17285: -- raise an error
17286: l_progress := 'WMSINB-20780';
17287: RAISE fnd_api.g_exc_error;
17288: END IF;
17289:
17290: -- Bug 3395211
17291: -- Get the UOM code and Organization Id to calculate the primary qty.
17322: IF (l_debug = 1) THEN
17323: print_debug('SPLIT_LOT_SERIAL : Error retrieving UOM inside split_lot_serial', 1);
17324: END IF;
17325: l_progress := 'WMSINB-20781';
17326: RAISE fnd_api.g_exc_error;
17327: END;
17328: End if;
17329: Exception
17330: when others then
17331: IF (l_debug = 1) THEN
17332: print_debug('SPLIT_LOT_SERIAL : Error retrieving uom_code inside split_lot_serial ', 1);
17333: END IF;
17334: l_progress := 'WMSINB-20782';
17335: RAISE fnd_api.g_exc_error;
17336: End;
17337: End if;
17338:
17339: IF (l_total_serial_qty <> 0 AND l_total_serial_qty <> get_primary_qty(l_to_organization_id,l_item_id,l_uom_code,l_total_split_qty) ) THEN
17344: END If;
17345:
17346: -- raise an error
17347: l_progress := 'WMSINB-20792';
17348: RAISE fnd_api.g_exc_error;
17349: END IF;
17350:
17351: -- one more check for lot/serial items
17352: -- Bug 3395211 A nvl is added on primary_quantity because ideally the serial qty
17388: END If;
17389:
17390: -- raise an error
17391: l_progress := 'WMSINB-20830';
17392: RAISE fnd_api.g_exc_error;
17393: END IF;
17394:
17395: l_orig_interface_trx_id := p_rti_tb(newrti).orig_interface_trx_id;
17396: /* Need to populate the absolute quantity otherwise fails for -ve correction*/
17438: IF (l_debug = 1) THEN
17439: print_debug('SPLIT_LOT_SERIAL : Error retrieving UOM inside split_lot_serial', 1);
17440: END IF;
17441: l_progress := 'WMSINB-20835';
17442: RAISE fnd_api.g_exc_error;
17443: END;
17444: End if;
17445: Exception
17446: when others then
17447: IF (l_debug = 1) THEN
17448: print_debug('SPLIT_LOT_SERIAL : Error retrieving uom_code inside split_lot_serial ', 1);
17449: END IF;
17450: l_progress := 'WMSINB-20836';
17451: RAISE fnd_api.g_exc_error;
17452: End;
17453: End if;
17454:
17455: IF newrti = l_rti_count THEN
17504: END If;
17505:
17506: -- raise an error
17507: l_progress := 'WMSINB-20891';
17508: RAISE fnd_api.g_exc_error;
17509: END IF;
17510:
17511: IF (l_total_serial_qty <> 0 AND l_total_serial_qty <> get_primary_qty(l_to_organization_id,l_item_id,l_uom_code,l_total_split_qty)) THEN
17512: IF (l_debug = 1) THEN
17519: END If;
17520:
17521: -- raise an error
17522: l_progress := 'WMSINB-20903';
17523: RAISE fnd_api.g_exc_error;
17524: END IF;
17525:
17526: -- one more check for lot/serial items
17527:
17561: END If;
17562:
17563: -- raise an error
17564: l_progress := 'WMSINB-20941';
17565: RAISE fnd_api.g_exc_error;
17566: END IF;
17567: END IF; --IF newrti = p_rti_tb.COUNT THEN
17568: END IF;
17569: END LOOP;
17621: IF (l_debug = 1) THEN
17622: print_debug('SPLIT_LOT_SERIAL : Error retrieving UOM inside split_lot_serial', 1);
17623: END IF;
17624: l_progress := 'WMSINB-20942';
17625: RAISE fnd_api.g_exc_error;
17626: END;
17627: End if;
17628: Exception
17629: when others then
17630: IF (l_debug = 1) THEN
17631: print_debug('SPLIT_LOT_SERIAL : Error retrieving uom_code inside split_lot_serial ', 1);
17632: END IF;
17633: l_progress := 'WMSINB-20943';
17634: RAISE fnd_api.g_exc_error;
17635: END;
17636: End if;
17637:
17638: IF (p_rti_tb(newrti).new_interface_trx_id <> p_rti_tb(newrti).orig_interface_trx_id) THEN
17794: print_debug('split_lot_serial:185: insert mtli rowid failed ', 1);
17795: END If;
17796: -- raise error
17797: l_progress := 'WMSINB-21051';
17798: RAISE fnd_api.g_exc_error;
17799: END IF;
17800:
17801: IF (l_debug = 1) THEN
17802: print_debug('split_lot_serial:190: update mtli ', 1);
17878: print_debug('split_lot_serial:225: insert msni rowid failed ', 1);
17879: END If;
17880: -- raise error
17881: l_progress := 'WMSINB-21134';
17882: RAISE fnd_api.g_exc_error;
17883: END IF;
17884:
17885: -- update the original msni
17886:
18033: print_debug('split_lot_serial:255: insert msni rowid failed ', 1);
18034: END If;
18035: -- raise error
18036: l_progress := 'WMSINB-21239';
18037: RAISE fnd_api.g_exc_error;
18038: END IF;
18039:
18040: -- update the original msni
18041:
18072: print_debug('split_lot_serial:270: Exit Stamp :' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
18073: END If;
18074:
18075: EXCEPTION
18076: WHEN fnd_api.g_exc_error THEN
18077: x_return_status := g_ret_sts_error;
18078: IF (l_debug = 1) THEN
18079: print_debug('SPLIT_LOT_SERIAL - Execution Error:'||':'||l_progress||':'||TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
18080: print_stacked_messages;
18081: END IF;
18082:
18083: x_msg_data := l_progress;
18084:
18085: WHEN fnd_api.g_exc_unexpected_error THEN
18086: x_return_status := g_ret_sts_unexp_error;
18087: IF (l_debug = 1) THEN
18088: print_debug('SPLIT_LOT_SERIAL - Unexpected Error:'||':'||l_progress||':'||TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
18089: print_stacked_messages;
18224: print_debug('Unit of measure does not exist ',1);
18225: fnd_message.set_name('INV', 'INV_UOM_NOTFOUND');
18226: fnd_message.set_token('UOM', l_unit_of_measure);
18227: fnd_msg_pub.add;
18228: RAISE fnd_api.g_exc_error;
18229: END;
18230: END IF;
18231:
18232: INSERT INTO mtl_transaction_lots_temp (TRANSACTION_TEMP_ID,
19142: X_MSG_DATA => X_MSG_DATA);
19143: IF X_RETURN_STATUS <> 'S' THEN
19144: -- RAIse error
19145: l_progress := 'WMSINB-21958';
19146: RAISE fnd_api.g_exc_error;
19147: END IF;
19148:
19149: IF (l_debug = 1) THEN
19150: print_debug('VALIDATE_LOT_SERIAL_INFO: MOVE_LOT_SERIAL_INFO done :'||l_progress, 1);
19243: EXCEPTION
19244: WHEN NO_DATA_FOUND THEN
19245: -- RAISE ERROR
19246: l_progress := 'WMSINB-22014';
19247: RAISE fnd_api.g_exc_error;
19248: END;
19249:
19250: IF (l_debug = 1) THEN
19251: print_debug('VALIDATE_LOT_SERIAL_INFO: RTI query done :'||l_progress, 1);
19341: EXCEPTION
19342: WHEN NO_DATA_FOUND THEN
19343: --RAISE ERROR
19344: l_progress := 'WMSINB-22070';
19345: RAISE fnd_api.g_exc_error;
19346: END;
19347:
19348: IF (l_debug = 1) THEN
19349: print_debug('VALIDATE_LOT_SERIAL_INFO: MTL_SYSTEM_ITEMS query done :'||l_progress, 1);
19372: print_debug('VALIDATE_LOT_SERIAL_INFO: MTLT exists for non-lot item: '||l_progress, 1);
19373: END IF;
19374:
19375: l_progress := 'WMSINB-22080';
19376: RAISE fnd_api.g_exc_error;
19377: --Bug 13338489 Added the others in the exception block
19378: EXCEPTION
19379: WHEN no_data_found THEN
19380: NULL;
19428: print_debug('VALIDATE_LOT_SERIAL_INFO: MSNI exists for non-serial item: '||l_progress, 1);
19429: END IF;
19430:
19431: l_progress := 'WMSINB-22082';
19432: RAISE fnd_api.g_exc_error;
19433: --Bug 13338489 Added the others in the exception block
19434: EXCEPTION
19435: WHEN no_data_found THEN
19436: NULL;
19600: print_debug('Unit of measure does not exist '||l_progress,1);
19601: fnd_message.set_name('INV', 'INV_UOM_NOTFOUND');
19602: fnd_message.set_token('UOM', l_rti_PRIMARY_UNIT_OF_MEASURE);
19603: fnd_msg_pub.add;
19604: RAISE fnd_api.g_exc_error;
19605: END;
19606: end if;
19607: --end9367595
19608:
19610: if(l_mtlt_rec.primary_quantity <> get_primary_qty(l_org_id,l_item_id,
19611: l_rti_uom_code,l_mtlt_rec.transaction_quantity,l_mtlt_rec.lot_number)) then
19612: fnd_message.set_name ('INV' , 'INV_INVALID_QUANTITY');
19613: fnd_msg_pub.ADD;
19614: RAISE fnd_api.g_exc_error;
19615: end if;
19616: /*INVCONV, Check whether Lot is existing or it's a new Lot .
19617: If it exists then we shall validate its parent lot also.
19618: Remove OPM fork.Add parent_lot_number in discrete query.Punit Kumar*/
19665: IF L_MTLT_REC.parent_lot_number <> l_parent_lot_number THEN
19666: fnd_message.set_name ('INV' , 'INV_CL_PARENT_INVALID' );
19667: fnd_msg_pub.ADD;
19668: l_progress := 'WMSINB-22145';
19669: RAISE fnd_api.g_exc_error;
19670: END IF;
19671: ELSE
19672: L_MTLT_REC.parent_lot_number := l_parent_lot_number;
19673: END IF;
19731: IF ((abs(l_mtlt_rec.primary_quantity - l_rls_primary_quantity) > 0.00005 )
19732: AND (l_mtlt_rec.primary_quantity > l_rls_primary_quantity)) THEN --Bug: 14092221
19733: --RAISE ERROR
19734: l_progress := 'WMSINB-22192';
19735: RAISE fnd_api.g_exc_error;
19736: END IF;
19737: EXCEPTION
19738: WHEN NO_DATA_FOUND THEN
19739: --RAISE ERROR
19737: EXCEPTION
19738: WHEN NO_DATA_FOUND THEN
19739: --RAISE ERROR
19740: l_progress := 'WMSINB-22198';
19741: RAISE fnd_api.g_exc_error;
19742: END;
19743: END IF; --IF (L_FROM_ORG_LOT_CTRL = 2) THEN
19744:
19745: END IF; --IF (L_SOURCE_DOCUMENT_CODE IN ('INVENTORY', 'REQ')) THEN
19797: END IF;
19798:
19799: fnd_message.set_name ('INV' , 'INV_STATUS_COMINGLING');
19800: fnd_msg_pub.ADD;
19801: RAISE fnd_api.g_exc_error;
19802:
19803: EXCEPTION
19804:
19805: WHEN no_data_found THEN
19822: P_STATUS_ID => NULL);
19823: IF X_RETURN_STATUS <> 'S' THEN
19824: --RAISE ERROR
19825: l_progress := 'WMSINB-22225';
19826: RAISE fnd_api.g_exc_error;
19827: END IF;
19828:
19829: IF (l_debug = 1) THEN
19830: print_debug('VALIDATE_LOT_SERIAL_INFO: LOT MATERIAL VALIDATION STATUS: '||L_VALIDATION_STATUS||' : '||l_progress, 1);
19833:
19834: IF L_VALIDATION_STATUS <> 'Y' THEN
19835: --RAISE ERROR
19836: l_progress := 'WMSINB-22236';
19837: RAISE fnd_api.g_exc_error;
19838: END IF;
19839: END IF; --IF (l_transaction_type = 'DELIVER' OR l_auto_transact_code = 'DELIVER') THEN
19840:
19841: /*INVCONV , Instead of calling OPM specific API gml_opm_roi_grp.validate_opm_lot,
19846: /*
19847: ELSE --IF (l_discrete_transaction) THEN
19848: -- opm change bug# 3061052
19849: gml_opm_roi_grp.validate_opm_lot(p_api_version => 1.0,
19850: p_init_msg_lst => FND_API.G_FALSE,
19851: p_mtlt_rowid => l_mtlt_rec.rowid,
19852: p_new_lot => 'N',
19853: p_opm_item_id => l_opm_item_id,
19854: p_item_no => l_item_no,
19872: x_return_status => x_return_status
19873: ,x_msg_data => x_msg_data
19874: ,x_msg_count => x_msg_count
19875: ,p_api_version => 1.0
19876: ,p_init_msg_lst => FND_API.G_FALSE
19877: ,p_mtlt_rowid => L_MTLT_REC.ROWID
19878: ,p_transaction_type_id => l_transaction_type_id
19879: ,p_new_lot => 'N'
19880: ,p_item_id => l_item_id
19904:
19905: IF X_RETURN_STATUS <> 'S' THEN
19906: --RAISE ERROR
19907: l_progress := 'WMSINB-22256';
19908: RAISE fnd_api.g_exc_error;
19909: END IF;
19910:
19911: /*INVCONV , Changed the debug message*/
19912: IF (l_debug = 1) THEN
19951:
19952: IF ((abs(l_mtlt_rec.primary_quantity - l_rls_primary_quantity) > 0.00005 ) AND (l_mtlt_rec.primary_quantity > l_rls_primary_quantity)) THEN --bug#10067944
19953: --raise error
19954: l_progress := 'WMSINB-22284';
19955: RAISE fnd_api.g_exc_error;
19956: END IF;
19957: EXCEPTION
19958: WHEN no_data_found THEN
19959: --raise error
19957: EXCEPTION
19958: WHEN no_data_found THEN
19959: --raise error
19960: l_progress := 'WMSINB-22290';
19961: RAISE fnd_api.g_exc_error;
19962: END;
19963:
19964: /*INVCONV , Removing the process specific call. Shall call a new procedure INV_VALIDATE_LOT
19965: in Package INV_ROI_INTEGRATION_GRP to perform the same set of validations for all.
19967: /*
19968: -- opm change bug# 3061052
19969: IF (NOT l_discrete_transaction) THEN
19970: gml_opm_roi_grp.validate_opm_lot(p_api_version => 1.0,
19971: p_init_msg_lst => FND_API.G_FALSE,
19972: p_mtlt_rowid => l_mtlt_rec.rowid,
19973: p_new_lot => 'N',
19974: p_opm_item_id => l_opm_item_id,
19975: p_item_no => l_item_no,
19988: x_return_status => x_return_status
19989: ,x_msg_data => x_msg_data
19990: ,x_msg_count => x_msg_count
19991: ,p_api_version => 1.0
19992: ,p_init_msg_lst => FND_API.G_FALSE
19993: ,p_mtlt_rowid => L_MTLT_REC.ROWID
19994: ,p_transaction_type_id => l_transaction_type_id
19995: ,p_new_lot => 'N'
19996: ,p_item_id => l_item_id
20020:
20021: IF X_RETURN_STATUS <> 'S' THEN
20022: --RAISE ERROR
20023: l_progress := 'WMSINB-22310';
20024: RAISE fnd_api.g_exc_error;
20025: END IF;
20026:
20027: /*INVCONV , Changed the debug message*/
20028: IF (l_debug = 1) THEN
20086: IF ((abs(l_mtlt_rec.primary_quantity - l_rls_primary_quantity) > 0.00005 )
20087: AND (l_mtlt_rec.primary_quantity > l_rls_primary_quantity)) THEN --Bug: 14092221
20088: --RAISE ERROR
20089: l_progress := 'WMSINB-22367';
20090: RAISE fnd_api.g_exc_error;
20091: END IF;
20092: EXCEPTION
20093: WHEN NO_DATA_FOUND THEN
20094: --RAISE ERROR
20092: EXCEPTION
20093: WHEN NO_DATA_FOUND THEN
20094: --RAISE ERROR
20095: l_progress := 'WMSINB-22373';
20096: RAISE fnd_api.g_exc_error;
20097: END;
20098: END IF; --IF (L_FROM_ORG_LOT_CTRL = 2) THEN
20099: END IF; --IF (L_SOURCE_DOCUMENT_CODE IN ('INVENTORY', 'REQ')) THEN
20100: -- PERFORM NEW LOT VALIDATIONS
20203:
20204: IF (x_return_status <> 'S') THEN
20205: --raise error
20206: l_progress := 'WMSINB-22469';
20207: RAISE fnd_api.g_exc_error;
20208: END IF;
20209:
20210: IF (l_debug = 1) THEN
20211: print_debug('VALIDATE_LOT_SERIAL_INFO: LOT CREATED: '||l_progress, 1);
20213: END IF;
20214: ELSE --IF (l_discrete_transaction) THEN
20215: -- opm change bug# 3061052
20216: gml_opm_roi_grp.validate_opm_lot(p_api_version => 1.0,
20217: p_init_msg_lst => FND_API.G_FALSE,
20218: p_mtlt_rowid => l_mtlt_rec.rowid,
20219: p_new_lot => 'Y',
20220: p_opm_item_id => l_opm_item_id,
20221: p_item_no => l_item_no,
20227: );
20228: IF X_RETURN_STATUS <> 'S' THEN
20229: --RAISE ERROR
20230: l_progress := 'WMSINB-22493';
20231: RAISE fnd_api.g_exc_error;
20232: END IF;
20233:
20234: IF (l_debug = 1) THEN
20235: print_debug('VALIDATE_LOT_SERIAL_INFO: LOT CREATED: '||x_return_status||' : '||l_progress, 1);
20250: x_return_status => x_return_status
20251: ,x_msg_data => x_msg_data
20252: ,x_msg_count => x_msg_count
20253: ,p_api_version => 1.0
20254: ,p_init_msg_lst => FND_API.G_FALSE
20255: ,p_mtlt_rowid => L_MTLT_REC.ROWID
20256: ,p_transaction_type_id => l_transaction_type_id
20257: ,p_new_lot => 'Y'
20258: ,p_item_id => l_item_id
20282:
20283: IF X_RETURN_STATUS <> 'S' THEN
20284: --RAISE ERROR
20285: l_progress := 'WMSINB-22493';
20286: RAISE fnd_api.g_exc_error;
20287: END IF;
20288:
20289: /*INVCONV ,*/
20290: IF (l_debug = 1) THEN
20297: x_return_status => x_return_status
20298: ,x_msg_count => x_msg_count
20299: ,x_msg_data => x_msg_data
20300: ,p_api_version => 1.0
20301: ,p_init_msg_lst => FND_API.G_FALSE
20302: ,p_source_document_code => L_SOURCE_DOCUMENT_CODE
20303: ,p_item_id => l_item_id
20304: ,p_from_organization_id => L_FROM_ORG_ID
20305: ,p_to_organization_id => L_ORG_ID
20324:
20325: IF X_RETURN_STATUS <> 'S' THEN
20326: --RAISE ERROR
20327: l_progress := 'WMSINB-22494';
20328: RAISE fnd_api.g_exc_error;
20329: END IF;
20330:
20331: ELSE --IF NOT l_lot_entered_on_parent THEN
20332: --raise error
20330:
20331: ELSE --IF NOT l_lot_entered_on_parent THEN
20332: --raise error
20333: l_progress := 'WMSINB-22504';
20334: RAISE fnd_api.g_exc_error;
20335: END IF; --IF NOT l_lot_entered_on_parent THEN
20336: END IF; --IF L_LOT_EXISTS = 1 THEN
20337:
20338: IF (L_SERIAL_NUMBER_CONTROL_CODE IN (2,5,6)) THEN
20362: -- IT CAN BE ENTERED ONLY FOR A RMA RECEIPT.
20363: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20364: fnd_msg_pub.ADD;
20365: l_progress := 'WMSINB-22536';
20366: RAISE fnd_api.g_exc_error;
20367: END IF;
20368:
20369: L_SERIAL_QUANTITY :=
20370: INV_SERIAL_NUMBER_PUB.GET_SERIAL_DIFF(L_MSNT_REC.FM_SERIAL_NUMBER,
20593: --raise error
20594: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20595: fnd_msg_pub.ADD;
20596: l_progress := 'WMSINB-22634';
20597: RAISE fnd_api.g_exc_error;
20598: ELSE
20599: IF ((l_curr_lot_num IS NOT NULL)
20600: AND (l_curr_lot_num <>
20601: l_mtlt_rec.lot_number)
20604: --raise error
20605: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20606: fnd_msg_pub.ADD;
20607: l_progress := 'WMSINB-22641';
20608: RAISE fnd_api.g_exc_error;
20609: END IF;
20610: END IF;
20611:
20612: IF (rss_exists(l_shipment_header_id,l_item_id)) THEN
20630: --raise error
20631: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20632: fnd_msg_pub.ADD;
20633: l_progress := 'WMSINB-22664';
20634: RAISE fnd_api.g_exc_error;
20635: END IF;
20636: EXCEPTION
20637: WHEN no_data_found THEN
20638: IF l_restrict_rcpt_ser = '2' THEN
20641: --raise error
20642: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20643: fnd_msg_pub.ADD;
20644: l_progress := 'WMSINB-22675';
20645: RAISE fnd_api.g_exc_error;
20646: END IF;
20647: ELSE --IF l_restrict_rcpt_ser = '2' THEN
20648: IF l_curr_status NOT IN
20649: (1,6) THEN
20650: --raise error
20651: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20652: fnd_msg_pub.ADD;
20653: l_progress := 'WMSINB-22684';
20654: RAISE fnd_api.g_exc_error;
20655: END IF;
20656: END IF; --IF l_restrict_rcpt_ser = '2' THEN
20657: END;
20658: ELSE --IF (rss_exists(l_shipment_header_id,l_item_id)) THEN
20662: --raise error
20663: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20664: fnd_msg_pub.ADD;
20665: l_progress := 'WMSINB-22696';
20666: RAISE fnd_api.g_exc_error;
20667: END IF;
20668: ELSE --IF l_restrict_rcpt_ser = '2' THEN
20669: IF l_curr_status NOT IN
20670: (1,6) THEN
20671: --raise error
20672: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20673: fnd_msg_pub.ADD;
20674: l_progress := 'WMSINB-22705';
20675: RAISE fnd_api.g_exc_error;
20676: END IF;
20677: END IF; --IF l_restrict_rcpt_ser = '2' THEN
20678: END IF; --IF (rss_exists(l_shipment_header_id,l_item_id)) THEN
20679: END IF; --IF (l_asn_line_flag = 'Y') THEN
20711: --raise error
20712: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20713: fnd_msg_pub.ADD;
20714: l_progress := 'WMSINB-22725';
20715: RAISE fnd_api.g_exc_error;
20716: END IF;
20717:
20718: IF (l_debug = 1) THEN
20719: print_debug('VALIDATE_LOT_SERIAL_INFO: CALLING IS_SERNUM_UNIQUE...DONE', 1);
20724: --raise error
20725: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20726: fnd_msg_pub.ADD;
20727: l_progress := 'WMSINB-22726';
20728: RAISE fnd_api.g_exc_error;
20729: ELSE
20730: IF ((l_curr_lot_num IS NOT NULL) AND
20731: (l_curr_lot_num <>
20732: l_mtlt_rec.lot_number)
20735: --raise error
20736: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20737: fnd_msg_pub.ADD;
20738: l_progress := 'WMSINB-22734';
20739: RAISE fnd_api.g_exc_error;
20740: END IF;
20741: END IF;
20742:
20743: BEGIN
20755: -- RAISE AN ERROR
20756: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20757: fnd_msg_pub.ADD;
20758: l_progress := 'WMSINB-22751';
20759: RAISE fnd_api.g_exc_error;
20760: END IF;
20761:
20762: EXCEPTION
20763: WHEN NO_DATA_FOUND THEN
20764: -- RAISE AN ERROR
20765: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20766: fnd_msg_pub.ADD;
20767: l_progress := 'WMSINB-22760';
20768: RAISE fnd_api.g_exc_error;
20769: END;
20770: ELSE --IF (L_FROM_ORG_SER_CRTL IN (2,5,6)) THEN
20771: --BUG 5524134
20772: /* For lot serials with serial numbers in status 4
20786: -- RAISE AN ERROR
20787: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20788: fnd_msg_pub.ADD;
20789: l_progress := 'WMSINB-22765';
20790: RAISE fnd_api.g_exc_error;
20791: END;
20792: IF L_SOURCE_DOCUMENT_CODE IN ( 'INVENTORY' , 'REQ' ) THEN
20793: IF NOT (
20794: ( L_CURR_STATUS = 1 AND L_CURR_ORG_ID = l_from_org_id)
20800: print_debug('For Intransit receipt the serial number org does not match the sending org!', 1);
20801: END IF;
20802: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20803: fnd_msg_pub.ADD;
20804: RAISE fnd_api.g_exc_error;
20805: END IF;
20806: ELSE
20807: --raise error
20808: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20807: --raise error
20808: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20809: fnd_msg_pub.ADD;
20810: l_progress := 'WMSINB-22768';
20811: RAISE fnd_api.g_exc_error;
20812: END IF;
20813: ELSE
20814: IF ((l_curr_lot_num IS
20815: NOT NULL)
20822: --raise error
20823: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20824: fnd_msg_pub.ADD;
20825: l_progress := 'WMSINB-22776';
20826: RAISE fnd_api.g_exc_error;
20827: END IF;
20828: END IF;
20829: /* Bug: 5524134
20830: In case of serial numbers that are in status
20837: -- RAISE AN ERROR
20838: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20839: fnd_msg_pub.ADD;
20840: l_progress := 'WMSINB-22785';
20841: RAISE fnd_api.g_exc_error;
20842: END IF;
20843: END IF; --IF (L_FROM_ORG_SER_CRTL IN (2,5,6)) THEN
20844: END IF; --IF (L_SOURCE_DOCUMENT_CODE IN ('INVENTORY','REQ')) THEN
20845: ELSE --IF (L_SOURCE_DOCUMENT_CODE IN
20849: --raise error
20850: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20851: fnd_msg_pub.ADD;
20852: l_progress := 'WMSINB-22796';
20853: RAISE fnd_api.g_exc_error;
20854: ELSE
20855: IF ((l_curr_lot_num IS NOT NULL)
20856: AND (l_curr_lot_num <>
20857: l_mtlt_rec.lot_number)
20860: --raise error
20861: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20862: fnd_msg_pub.ADD;
20863: l_progress := 'WMSINB-22803';
20864: RAISE fnd_api.g_exc_error;
20865: END IF;
20866: END IF;
20867:
20868: IF l_restrict_rcpt_ser = '2' THEN
20870: --raise error
20871: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20872: fnd_msg_pub.ADD;
20873: l_progress := 'WMSINB-22813';
20874: RAISE fnd_api.g_exc_error;
20875: END IF;
20876: /* Bug 6847337:
20877: * Fix done to allow the re-using of serials after the
20878: * correction of a PO receipt by handling the transaction type
20888: --raise error
20889: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20890: fnd_msg_pub.ADD;
20891: l_progress := 'WMSINB-22821';
20892: RAISE fnd_api.g_exc_error;
20893: END IF;
20894: END IF; --IF l_restrict_rcpt_ser = '2' THEN
20895:
20896: END IF; --IF (L_SOURCE_DOCUMENT_CODE IN
20908: --raise error
20909: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20910: fnd_msg_pub.ADD;
20911: l_progress := 'WMSINB-22837';
20912: RAISE fnd_api.g_exc_error;
20913: END IF;
20914: END IF;
20915: ELSE
20916: IF ((Nvl(l_curr_lpn_id, -9999) <>
20919: --raise error
20920: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20921: fnd_msg_pub.ADD;
20922: l_progress := 'WMSINB-22847';
20923: RAISE fnd_api.g_exc_error;
20924: END IF;
20925: END IF;
20926:
20927: --Validate Serial/Inspection_status
20934: IF l_transaction_type IN ('ACCEPT', 'REJECT') THEN
20935: IF (Nvl(l_inspection_status, 1) <> 1) THEN
20936: --raise error
20937: l_progress := 'WMSINB-22856';
20938: RAISE fnd_api.g_exc_error;
20939: END IF;
20940: ELS*/
20941: -- Bug 9569977: Commenting following since l_serial_entered_on_parent
20942: -- is false
20946: --raise error
20947: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20948: fnd_msg_pub.ADD;
20949: l_progress := 'WMSINB-22865';
20950: RAISE fnd_api.g_exc_error;
20951: END IF;
20952: END IF;
20953: END IF;*/
20954:
20959: --raise error
20960: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20961: fnd_msg_pub.ADD;
20962: l_progress := 'WMSINB-22878';
20963: RAISE fnd_api.g_exc_error;
20964: END IF;
20965:
20966: IF (Nvl(l_curr_status, 1) IN (1,6)) THEN
20967: --validate and update the attributes.
20982: --raise error
20983: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20984: fnd_msg_pub.ADD;
20985: l_progress := 'WMSINB-22880';
20986: RAISE fnd_api.g_exc_error;
20987: END IF;
20988: END IF; --IF (Nvl(l_curr_status, 1) = 1) THEN
20989:
20990: --UPDATE GROUP_MARK_ID TO -7937
20992: --raise error
20993: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
20994: fnd_msg_pub.ADD;
20995: l_progress := 'WMSINB-22887';
20996: RAISE fnd_api.g_exc_error;
20997: END IF;
20998:
20999: ELSE --IF l_serial_exists = 1 THEN
21000: IF (l_source_document_code IN ('INVENTORY','REQ')) THEN
21011: --raise error
21012: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21013: fnd_msg_pub.ADD;
21014: l_progress := 'WMSINB-22902';
21015: RAISE fnd_api.g_exc_error;
21016: END IF;
21017: END IF;
21018:
21019: IF l_serial_number_control_code = 5 THEN
21059: --raise error
21060: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21061: fnd_msg_pub.ADD;
21062: l_progress := 'WMSINB-22911';
21063: RAISE fnd_api.g_exc_error;
21064: END IF;
21065:
21066: --validate and update the attributes.
21067: inv_serial_number_pub.validate_update_serial_att
21081: --raise error
21082: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21083: fnd_msg_pub.ADD;
21084: l_progress := 'WMSINB-22941';
21085: RAISE fnd_api.g_exc_error;
21086: END IF;
21087:
21088: --UPDATE GROUP_MARK_ID TO -7937
21089: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
21090: --raise error
21091: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21092: fnd_msg_pub.ADD;
21093: l_progress := 'WMSINB-22951';
21094: RAISE fnd_api.g_exc_error;
21095: END IF;
21096: ELSE
21097: --raise error
21098: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21097: --raise error
21098: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21099: fnd_msg_pub.ADD;
21100: l_progress := 'WMSINB-22958';
21101: RAISE fnd_api.g_exc_error;
21102: END IF;
21103: END IF; --IF l_serial_exists = 1 THEN
21104: ELSIF (l_serial_number_control_code = 6 AND
21105: l_source_document_code = 'RMA') THEN
21111: --raise error
21112: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21113: fnd_msg_pub.ADD;
21114: l_progress := 'WMSINB-22969';
21115: RAISE fnd_api.g_exc_error;
21116: ELSE */
21117: IF ((l_curr_lot_num IS NOT NULL)
21118: AND (l_curr_lot_num <> l_mtlt_rec.lot_number)
21119: AND (Nvl(l_curr_status,1) NOT IN (1,4))) THEN
21120: --raise error
21121: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21122: fnd_msg_pub.ADD;
21123: l_progress := 'WMSINB-22976';
21124: RAISE fnd_api.g_exc_error;
21125: END IF;
21126: --END IF;
21127:
21128:
21130: --raise error
21131: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21132: fnd_msg_pub.ADD;
21133: l_progress := 'WMSINB-22985';
21134: RAISE fnd_api.g_exc_error;
21135: END IF;
21136:
21137: -- see if we need to restrict 4's based on
21138: -- inv_restrict_rcpt profile
21154: IF l_dummy <> '0' THEN
21155: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21156: fnd_msg_pub.ADD;
21157: l_progress := 'WMSINB-23009';
21158: RAISE fnd_api.g_exc_error;
21159: END IF;
21160:
21161: EXCEPTION
21162: WHEN no_data_found THEN
21168: --raise error
21169: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21170: fnd_msg_pub.ADD;
21171: l_progress := 'WMSINB-23023';
21172: RAISE fnd_api.g_exc_error;
21173: END IF;
21174:
21175: IF (Nvl(l_curr_status, 1) in (1,6)) THEN
21176: --validate and update the attributes.
21191: --raise error
21192: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21193: fnd_msg_pub.ADD;
21194: l_progress := 'WMSINB-23030';
21195: RAISE fnd_api.g_exc_error;
21196: END IF;
21197: END IF; --IF (Nvl(l_curr_status, 1) = 1) THEN
21198:
21199: --UPDATE GROUP_MARK_ID TO -7937
21201: --raise error
21202: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21203: fnd_msg_pub.ADD;
21204: l_progress := 'WMSINB-23032';
21205: RAISE fnd_api.g_exc_error;
21206: END IF;
21207: ELSE --IF l_serial_exists = 1 THEN
21208: --PERFORM SERIAL VALIDATION FOR NEW SERIAL
21209: --(INCLUDING ATT VALIDATION)
21248: --raise error
21249: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21250: fnd_msg_pub.ADD;
21251: l_progress := 'WMSINB-23035';
21252: RAISE fnd_api.g_exc_error;
21253: END IF;
21254:
21255: --validate and update the attributes.
21256: inv_serial_number_pub.validate_update_serial_att
21270: --raise error
21271: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21272: fnd_msg_pub.ADD;
21273: l_progress := 'WMSINB-23069';
21274: RAISE fnd_api.g_exc_error;
21275: END IF;
21276:
21277: --UPDATE GROUP_MARK_ID TO -7937
21278: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
21279: --raise error
21280: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21281: fnd_msg_pub.ADD;
21282: l_progress := 'WMSINB-23079';
21283: RAISE fnd_api.g_exc_error;
21284: END IF;
21285: END IF; --IF l_serial_exists = 1 THEN
21286: END IF; --IF l_serial_number_control_code IN (2,5) THEN
21287: ELSE --IF NOT L_SERIAL_ENTERED_ON_PARENT THEN
21296: --raise error
21297: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21298: fnd_msg_pub.ADD;
21299: l_progress := 'WMSINB-23096';
21300: RAISE fnd_api.g_exc_error;
21301: END IF;
21302:
21303: --Validate Serial/Inspection_status
21304: /* Commented for bug 6269102
21312: --raise error
21313: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21314: fnd_msg_pub.ADD;
21315: l_progress := 'WMSINB-23106';
21316: RAISE fnd_api.g_exc_error;
21317: END IF;
21318: ELS */
21319: IF l_transaction_type = 'DELIVER' THEN
21320: IF (l_routing_header_id = 2) THEN
21322: --raise error
21323: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21324: fnd_msg_pub.ADD;
21325: l_progress := 'WMSINB-23115';
21326: RAISE fnd_api.g_exc_error;
21327: END IF;
21328: END IF;
21329: END IF;
21330:
21335: --raise error
21336: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21337: fnd_msg_pub.ADD;
21338: l_progress := 'WMSINB-23128';
21339: RAISE fnd_api.g_exc_error;
21340: END IF;
21341:
21342: --UPDATE GROUP_MARK_ID TO -7937
21343: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
21344: --raise error
21345: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21346: fnd_msg_pub.ADD;
21347: l_progress := 'WMSINB-23137';
21348: RAISE fnd_api.g_exc_error;
21349: END IF;
21350: EXCEPTION
21351: WHEN NO_DATA_FOUND THEN
21352: -- RAISE ERROR
21352: -- RAISE ERROR
21353: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21354: fnd_msg_pub.ADD;
21355: l_progress := 'WMSINB-23145';
21356: RAISE fnd_api.g_exc_error;
21357: END;
21358: END IF; --IF NOT L_SERIAL_ENTERED_ON_PARENT THEN
21359: END LOOP; -- FOR 1..L_SERIAL_QUANTITY
21360: END LOOP; --FETCH C_MSNT_LOTSERIAL INTO L_MSNT_REC;
21366: --raise error
21367: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21368: fnd_msg_pub.ADD;
21369: l_progress := 'WMSINB-23159';
21370: RAISE fnd_api.g_exc_error;
21371: END IF;
21372: ELSE
21373:
21374: IF l_source_document_code IN ('INVENTORY', 'REQ') THEN
21393: --raise error
21394: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21395: fnd_msg_pub.ADD;
21396: l_progress := 'WMSINB-23166';
21397: RAISE fnd_api.g_exc_error;
21398: END IF;
21399: END IF;
21400:
21401: END IF; -- IF (L_SERIAL_NUMBER_CONTROL_CODE IN (2,5,6)) THEN
21416: -- if there is a lot specific conversion
21417: IF (ROUND(l_tot_mtlt_trans_qty,5) <> ROUND(l_rti_trans_qty,5)) THEN -- Bug# 4225766
21418: --raise error
21419: l_progress := 'WMSINB-23178';
21420: RAISE fnd_api.g_exc_error;
21421: END IF; -- Bug# 4225766
21422: END IF;
21423: ELSE
21424: IF (l_transaction_type = 'DELIVER'
21424: IF (l_transaction_type = 'DELIVER'
21425: OR Nvl(l_auto_transact_code,'@@@@') = 'DELIVER') THEN
21426: --raise error;
21427: l_progress := 'WMSINB-23184';
21428: RAISE fnd_api.g_exc_error;
21429: ELSIF (lot_entered_on_parent(l_parent_transaction_id)) THEN
21430: --raise error;
21431: l_progress := 'WMSINB-23188';
21432: RAISE fnd_api.g_exc_error;
21428: RAISE fnd_api.g_exc_error;
21429: ELSIF (lot_entered_on_parent(l_parent_transaction_id)) THEN
21430: --raise error;
21431: l_progress := 'WMSINB-23188';
21432: RAISE fnd_api.g_exc_error;
21433: END IF;
21434: END IF;
21435: ELSIF l_serial_number_control_code IN (2,5,6) THEN --IF (L_LOT_CONTROL_CODE = 2) THEN
21436:
21458: -- IT CAN BE ENTERED ONLY FOR A RMA RECEIPT.
21459: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21460: fnd_msg_pub.ADD;
21461: l_progress := 'WMSINB-23218';
21462: RAISE fnd_api.g_exc_error;
21463: END IF;
21464:
21465: L_SERIAL_QUANTITY :=
21466: INV_SERIAL_NUMBER_PUB.GET_SERIAL_DIFF(L_MSNT_REC.FM_SERIAL_NUMBER,
21686: l_progress := 'WMSINB-23303';
21687: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21688: fnd_msg_pub.ADD;
21689: l_progress := 'WMSINB-23306';
21690: RAISE fnd_api.g_exc_error;
21691: ELSE
21692: IF (l_curr_lot_num IS NOT NULL) THEN
21693: --raise error
21694: l_progress := 'WMSINB-23311';
21694: l_progress := 'WMSINB-23311';
21695: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21696: fnd_msg_pub.ADD;
21697: l_progress := 'WMSINB-23314';
21698: RAISE fnd_api.g_exc_error;
21699: END IF;
21700: END IF;
21701:
21702: IF (rss_exists(l_shipment_header_id,l_item_id)) THEN
21720: --raise error
21721: l_progress := 'WMSINB-23335';
21722: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21723: fnd_msg_pub.ADD;
21724: RAISE fnd_api.g_exc_error;
21725: END IF;
21726: EXCEPTION
21727: WHEN no_data_found THEN
21728: IF l_restrict_rcpt_ser = '2' THEN
21731: --raise error
21732: l_progress := 'WMSINB-23346';
21733: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21734: fnd_msg_pub.ADD;
21735: RAISE fnd_api.g_exc_error;
21736: END IF;
21737: ELSE --IF l_restrict_rcpt_ser = '2' THEN
21738: IF l_curr_status NOT IN
21739: (1,6) THEN
21740: --raise error
21741: l_progress := 'WMSINB-23355';
21742: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21743: fnd_msg_pub.ADD;
21744: RAISE fnd_api.g_exc_error;
21745: END IF;
21746: END IF; --IF l_restrict_rcpt_ser = '2' THEN
21747: END;
21748: ELSE --IF (rss_exists(l_shipment_header_id,l_item_id)) THEN
21752: --raise error
21753: l_progress := 'WMSINB-23367';
21754: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21755: fnd_msg_pub.ADD;
21756: RAISE fnd_api.g_exc_error;
21757: END IF;
21758: ELSE --IF l_restrict_rcpt_ser = '2' THEN
21759: IF l_curr_status NOT IN
21760: (1,6) THEN
21761: --raise error
21762: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21763: fnd_msg_pub.ADD;
21764: l_progress := 'WMSINB-23378';
21765: RAISE fnd_api.g_exc_error;
21766: END IF;
21767: END IF; --IF l_restrict_rcpt_ser = '2' THEN
21768: END IF; --IF (rss_exists(l_shipment_header_id,l_item_id)) THEN
21769: END IF; --IF (l_asn_line_flag = 'Y') THEN
21799: --raise error
21800: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21801: fnd_msg_pub.ADD;
21802: l_progress := 'WMSINB-22725';
21803: RAISE fnd_api.g_exc_error;
21804: END IF;
21805:
21806: IF (l_debug = 1) THEN
21807: print_debug('VALIDATE_LOT_SERIAL_INFO: CALLING IS_SERNUM_UNIQUE...DONE', 1);
21812: --raise error
21813: l_progress := 'WMSINB-23397';
21814: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21815: fnd_msg_pub.ADD;
21816: RAISE fnd_api.g_exc_error;
21817: ELSE
21818: IF (l_curr_lot_num IS NOT NULL) THEN
21819:
21820: if (L_FROM_ORG_LOT_CTRL = 1 ) then
21821: --raise error
21822: l_progress := 'WMSINB-23404';
21823: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21824: fnd_msg_pub.ADD;
21825: RAISE fnd_api.g_exc_error;
21826: else
21827: --update the serial row
21828: IF (l_debug = 1) THEN
21829: print_debug('VALIDATE_LOT_SERIAL_INFO: UPDATING LOT_NUMBER to null as destination org is not lot controlled', 1);
21851: -- RAISE AN ERROR
21852: l_progress := 'WMSINB-23421';
21853: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21854: fnd_msg_pub.ADD;
21855: RAISE fnd_api.g_exc_error;
21856: END IF;
21857:
21858: EXCEPTION
21859: WHEN NO_DATA_FOUND THEN
21860: -- RAISE AN ERROR
21861: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21862: fnd_msg_pub.ADD;
21863: l_progress := 'WMSINB-23432';
21864: RAISE fnd_api.g_exc_error;
21865: END;
21866: ELSE --IF (L_FROM_ORG_SER_CRTL IN (2,5,6)) THEN
21867: IF L_CURR_ORG_ID <> l_org_id THEN
21868: --BUG 5524134
21883: -- RAISE AN ERROR
21884: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21885: fnd_msg_pub.ADD;
21886: l_progress := 'WMSINB-23433';
21887: RAISE fnd_api.g_exc_error;
21888: END;
21889: --BEGIN Bug: 5524134
21890: IF L_SOURCE_DOCUMENT_CODE IN ( 'INVENTORY' , 'REQ' ) THEN
21891: IF NOT (
21900: --raise error
21901: l_progress := 'WMSINB-23438';
21902: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21903: fnd_msg_pub.ADD;
21904: RAISE fnd_api.g_exc_error;
21905: END IF;
21906: ELSE
21907: l_progress := 'WMSINB-23438';
21908: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21906: ELSE
21907: l_progress := 'WMSINB-23438';
21908: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21909: fnd_msg_pub.ADD;
21910: RAISE fnd_api.g_exc_error;
21911: END IF;
21912: --END Bug: 5524134
21913: ELSE
21914: IF (l_curr_lot_num IS NOT NULL) THEN
21915: --raise error
21916: l_progress := 'WMSINB-23445';
21917: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21918: fnd_msg_pub.ADD;
21919: RAISE fnd_api.g_exc_error;
21920: END IF;
21921: END IF;
21922:
21923: IF L_CURR_STATUS NOT IN (1,6)
21926: -- RAISE AN ERROR
21927: l_progress := 'WMSINB-23454';
21928: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21929: fnd_msg_pub.ADD;
21930: RAISE fnd_api.g_exc_error;
21931: END IF;
21932: END IF; --IF (L_FROM_ORG_SER_CRTL IN (2,5,6)) THEN
21933: END IF; --IF (L_SOURCE_DOCUMENT_CODE IN ('INVENTORY','REQ')) THEN
21934: ELSE --IF (L_SOURCE_DOCUMENT_CODE IN
21938: --raise error
21939: l_progress := 'WMSINB-23465';
21940: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21941: fnd_msg_pub.ADD;
21942: RAISE fnd_api.g_exc_error;
21943:
21944: --BUG 5114851 (FP of BUG 5060131):
21945: --For RMA, the item for the original org of
21946: --the serial number may be lot serial controlled, while
21954: --raise error
21955: l_progress := 'WMSINB-23472';
21956: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21957: fnd_msg_pub.ADD;
21958: RAISE fnd_api.g_exc_error;
21959: END IF;
21960: END IF;
21961:
21962: --bug 5168883
21976: --raise error
21977: l_progress := 'WMSINB-23482';
21978: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21979: fnd_msg_pub.ADD;
21980: RAISE fnd_api.g_exc_error;
21981: END IF;
21982:
21983: /* Bug 6847337:
21984: * Fix done to allow the re-using of serials after the
21995: --raise error
21996: l_progress := 'WMSINB-23490';
21997: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
21998: fnd_msg_pub.ADD;
21999: RAISE fnd_api.g_exc_error;
22000: END IF;
22001: END IF; --IF l_restrict_rcpt_ser = '2' THEN
22002:
22003: END IF; --IF (L_SOURCE_DOCUMENT_CODE IN
22016: --raise error
22017: l_progress := 'WMSINB-23506';
22018: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22019: fnd_msg_pub.ADD;
22020: RAISE fnd_api.g_exc_error;
22021: END IF;
22022: END IF;
22023: ELSE
22024: IF (Nvl(l_curr_lpn_id, -9999) <>
22027: --raise error
22028: l_progress := 'WMSINB-23516';
22029: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22030: fnd_msg_pub.ADD;
22031: RAISE fnd_api.g_exc_error;
22032: END IF;
22033: END IF;
22034:
22035: --Validate Serial/Inspection_status
22044: --raise error
22045: l_progress := 'WMSINB-23527';
22046: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22047: fnd_msg_pub.ADD;
22048: RAISE fnd_api.g_exc_error;
22049: END IF;
22050: ELS */
22051: -- Bug 9569977: Commenting following since l_serial_entered_on_parent
22052: -- is false
22056: --raise error
22057: l_progress := 'WMSINB-23536';
22058: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22059: fnd_msg_pub.ADD;
22060: RAISE fnd_api.g_exc_error;
22061: END IF;
22062: END IF;
22063: END IF;*/
22064:
22069: --raise error
22070: l_progress := 'WMSINB-23549';
22071: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22072: fnd_msg_pub.ADD;
22073: RAISE fnd_api.g_exc_error;
22074: END IF;
22075:
22076: IF (Nvl(l_curr_status, 1) in (1,6)) THEN
22077: --validate and update the attributes.
22092: --raise error
22093: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22094: fnd_msg_pub.ADD;
22095: l_progress := 'WMSINB-22555';
22096: RAISE fnd_api.g_exc_error;
22097: END IF;
22098: END IF; --IF (Nvl(l_curr_status, 1) = 1) THEN
22099:
22100: --UPDATE GROUP_MARK_ID TO -7937
22102: --raise error
22103: l_progress := 'WMSINB-23558';
22104: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22105: fnd_msg_pub.ADD;
22106: RAISE fnd_api.g_exc_error;
22107: END IF;
22108:
22109: ELSE --IF l_serial_exists = 1 THEN
22110: IF (l_source_document_code IN ('INVENTORY','REQ')) THEN
22121: --raise error
22122: l_progress := 'WMSINB-23573';
22123: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22124: fnd_msg_pub.ADD;
22125: RAISE fnd_api.g_exc_error;
22126: END IF;
22127: END IF;
22128:
22129: IF l_serial_number_control_code = 5 THEN
22169: --raise error
22170: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22171: fnd_msg_pub.ADD;
22172: l_progress := 'WMSINB-23580';
22173: RAISE fnd_api.g_exc_error;
22174: END IF;
22175:
22176: --validate and update the attributes.
22177: inv_serial_number_pub.validate_update_serial_att
22191: --raise error
22192: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22193: fnd_msg_pub.ADD;
22194: l_progress := 'WMSINB-23615';
22195: RAISE fnd_api.g_exc_error;
22196: END IF;
22197:
22198:
22199: --UPDATE GROUP_MARK_ID TO -7937
22201: --raise error
22202: l_progress := 'WMSINB-23622';
22203: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22204: fnd_msg_pub.ADD;
22205: RAISE fnd_api.g_exc_error;
22206: END IF;
22207: ELSE
22208: --raise error
22209: l_progress := 'WMSINB-23629';
22208: --raise error
22209: l_progress := 'WMSINB-23629';
22210: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22211: fnd_msg_pub.ADD;
22212: RAISE fnd_api.g_exc_error;
22213: END IF;
22214: END IF; --IF l_serial_exists = 1 THEN
22215: ELSIF (l_serial_number_control_code = 6 AND
22216: l_source_document_code = 'RMA') THEN
22222: --raise error
22223: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22224: fnd_msg_pub.ADD;
22225: l_progress := 'WMSINB-23642';
22226: RAISE fnd_api.g_exc_error;
22227: ELSE*/
22228: IF (l_curr_lot_num IS NOT NULL
22229: AND (Nvl(l_curr_status,1) NOT IN (1,4) )) THEN
22230: --raise error
22230: --raise error
22231: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22232: fnd_msg_pub.ADD;
22233: l_progress := 'WMSINB-23649';
22234: RAISE fnd_api.g_exc_error;
22235: END IF;
22236: --END IF;
22237:
22238: IF l_curr_status NOT IN (1,4,6) THEN
22239: --raise error
22240: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22241: fnd_msg_pub.ADD;
22242: l_progress := 'WMSINB-23658';
22243: RAISE fnd_api.g_exc_error;
22244: END IF;
22245:
22246: -- see if we need to restrict 4's based on
22247: -- inv_restrict_rcpt profile
22263: IF l_dummy <> '0' THEN
22264: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22265: fnd_msg_pub.ADD;
22266: l_progress := 'WMSINB-23682';
22267: RAISE fnd_api.g_exc_error;
22268: END IF;
22269:
22270: EXCEPTION
22271: WHEN no_data_found THEN
22277: --raise error
22278: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22279: fnd_msg_pub.ADD;
22280: l_progress := 'WMSINB-23696';
22281: RAISE fnd_api.g_exc_error;
22282: END IF;
22283:
22284: IF (Nvl(l_curr_status, 1) in (1,6)) THEN
22285: --validate and update the attributes.
22300: --raise error
22301: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22302: fnd_msg_pub.ADD;
22303: l_progress := 'WMSINB-23702';
22304: RAISE fnd_api.g_exc_error;
22305: END IF;
22306: END IF; --IF (Nvl(l_curr_status, 1) = 1) THEN
22307:
22308: --UPDATE GROUP_MARK_ID TO -7937
22310: --raise error
22311: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22312: fnd_msg_pub.ADD;
22313: l_progress := 'WMSINB-23705';
22314: RAISE fnd_api.g_exc_error;
22315: END IF;
22316: ELSE --IF l_serial_exists = 1 THEN
22317: --PERFORM SERIAL VALIDATION FOR NEW SERIAL
22318: --(INCLUDING ATT VALIDATION)
22356: --raise error
22357: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22358: fnd_msg_pub.ADD;
22359: l_progress := 'WMSINB-23710';
22360: RAISE fnd_api.g_exc_error;
22361: END IF;
22362:
22363: --validate and update the attributes.
22364: inv_serial_number_pub.validate_update_serial_att
22378: --raise error
22379: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22380: fnd_msg_pub.ADD;
22381: l_progress := 'WMSINB-23745';
22382: RAISE fnd_api.g_exc_error;
22383: END IF;
22384:
22385: --UPDATE GROUP_MARK_ID TO -7937
22386: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
22387: --raise error
22388: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22389: fnd_msg_pub.ADD;
22390: l_progress := 'WMSINB-23752';
22391: RAISE fnd_api.g_exc_error;
22392: END IF;
22393: END IF; --IF l_serial_exists = 1 THEN
22394: END IF; --IF l_serial_number_control_code IN (2,5) THEN
22395: ELSE --IF NOT L_SERIAL_ENTERED_ON_PARENT THEN
22404: --raise error
22405: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22406: fnd_msg_pub.ADD;
22407: l_progress := 'WMSINB-23769';
22408: RAISE fnd_api.g_exc_error;
22409: END IF;
22410:
22411: --Validate Serial/Inspection_status
22412: /* Commented for bug 6269102
22420: --raise error
22421: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22422: fnd_msg_pub.ADD;
22423: l_progress := 'WMSINB-23779';
22424: RAISE fnd_api.g_exc_error;
22425: END IF;
22426: ELS */
22427: IF l_transaction_type = 'DELIVER' THEN
22428: IF (l_routing_header_id = 2) THEN
22430: --raise error
22431: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22432: fnd_msg_pub.ADD;
22433: l_progress := 'WMSINB-23788';
22434: RAISE fnd_api.g_exc_error;
22435: END IF;
22436: END IF;
22437: END IF;
22438:
22443: --raise error
22444: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22445: fnd_msg_pub.ADD;
22446: l_progress := 'WMSINB-23801';
22447: RAISE fnd_api.g_exc_error;
22448: END IF;
22449:
22450: --UPDATE GROUP_MARK_ID TO -7937
22451: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
22452: --raise error
22453: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22454: fnd_msg_pub.ADD;
22455: l_progress := 'WMSINB-23810';
22456: RAISE fnd_api.g_exc_error;
22457: END IF;
22458: EXCEPTION
22459: WHEN NO_DATA_FOUND THEN
22460: -- RAISE ERROR
22460: -- RAISE ERROR
22461: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22462: fnd_msg_pub.ADD;
22463: l_progress := 'WMSINB-23818';
22464: RAISE fnd_api.g_exc_error;
22465: END;
22466: END IF; --IF NOT L_SERIAL_ENTERED_ON_PARENT THEN
22467: END LOOP; -- FOR 1..L_SERIAL_QUANTITY
22468: END LOOP; --FETCH C_MSNT INTO L_MSNT_REC;
22474: --raise error
22475: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22476: fnd_msg_pub.ADD;
22477: l_progress := 'WMSINB-23832';
22478: RAISE fnd_api.g_exc_error;
22479: END IF;
22480: ELSE
22481: IF (l_transaction_type = 'DELIVER'
22482: OR Nvl(l_auto_transact_code,'@@@@') = 'DELIVER') THEN
22504: --raise error
22505: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22506: fnd_msg_pub.ADD;
22507: l_progress := 'WMSINB-23840';
22508: RAISE fnd_api.g_exc_error;
22509: END IF;
22510: ELSIF (serial_entered_on_parent(l_parent_transaction_id)) THEN
22511: --raise error
22512: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22511: --raise error
22512: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
22513: fnd_msg_pub.ADD;
22514: l_progress := 'WMSINB-23846';
22515: RAISE fnd_api.g_exc_error;
22516: END IF;
22517: END IF;
22518:
22519: END IF; -- IF (L_LOT_CONTROL_CODE = 2) THEN
22713: IF L_MTLT_REC.parent_lot_number IS NOT NULL THEN
22714: IF L_MTLT_REC.parent_lot_number <> l_parent_lot_number THEN
22715: fnd_message.set_name ('INV' , 'INV_CL_PARENT_INVALID' );
22716: fnd_msg_pub.ADD;
22717: RAISE fnd_api.g_exc_error;
22718: END IF;
22719: ELSE
22720: L_MTLT_REC.parent_lot_number := l_parent_lot_number;
22721: END IF;
22744: --P_STATUS_ID => NULL);
22745: --IF X_RETURN_STATUS <> 'S' THEN
22746: --RAISE ERROR
22747: --l_progress := 'WMSINB-23934';
22748: --RAISE fnd_api.g_exc_error;
22749: --END IF;
22750:
22751: --IF (l_debug = 1) THEN
22752: --print_debug('VALIDATE_LOT_SERIAL_INFO: LOT MATERIAL VALIDATION STATUS: '||L_VALIDATION_STATUS||' : '||l_progress, 1);
22755:
22756: --IF L_VALIDATION_STATUS <> 'Y' THEN
22757: --RAISE ERROR
22758: --l_progress := 'WMSINB-23945';
22759: --RAISE fnd_api.g_exc_error;
22760: --END IF;
22761:
22762: /* end , The above code was already commented. It has nothing to do with INVCONV */
22763:
22767:
22768: /* ELSE --IF (l_discrete_transaction) THEN
22769: -- opm change bug# 3061052
22770: gml_opm_roi_grp.validate_opm_lot(p_api_version => 1.0,
22771: p_init_msg_lst => FND_API.G_FALSE,
22772: p_mtlt_rowid => l_mtlt_rec.rowid,
22773: p_new_lot => 'N',
22774: p_opm_item_id => l_opm_item_id,
22775: p_item_no => l_item_no,
22791: x_return_status => x_return_status
22792: ,x_msg_data => x_msg_data
22793: ,x_msg_count => x_msg_count
22794: ,p_api_version => 1.0
22795: ,p_init_msg_lst => FND_API.G_FALSE
22796: ,p_mtlt_rowid => L_MTLT_REC.ROWID
22797: ,p_transaction_type_id => l_transaction_type_id
22798: ,p_new_lot => 'N'
22799: ,p_item_id => l_item_id
22824:
22825: IF X_RETURN_STATUS <> 'S' THEN
22826: --RAISE ERROR
22827: l_progress := 'WMSINB-23964';
22828: RAISE fnd_api.g_exc_error;
22829: END IF;
22830:
22831: IF (l_debug = 1) THEN
22832: print_debug('VALIDATE_LOT_SERIAL_INFO: INV_VALIDATE_LOT STATUS: '||x_return_status||' : '||l_progress, 1);
22944:
22945: IF (x_return_status <> 'S') THEN
22946: --raise error
22947: l_progress := 'WMSINB-24062';
22948: RAISE fnd_api.g_exc_error;
22949: END IF;
22950:
22951: IF (l_debug = 1) THEN
22952: print_debug('VALIDATE_LOT_SERIAL_INFO: LOT CREATED: '||l_progress, 1);
22954: END IF;
22955: ELSE --IF (l_discrete_transaction) THEN
22956: -- opm change bug# 3061052
22957: gml_opm_roi_grp.validate_opm_lot(p_api_version => 1.0,
22958: p_init_msg_lst => FND_API.G_FALSE,
22959: p_mtlt_rowid => l_mtlt_rec.rowid,
22960: p_new_lot => 'Y',
22961: p_opm_item_id => l_opm_item_id,
22962: p_item_no => l_item_no,
22968: );
22969: IF X_RETURN_STATUS <> 'S' THEN
22970: --RAISE ERROR
22971: l_progress := 'WMSINB-24086';
22972: RAISE fnd_api.g_exc_error;
22973: END IF;
22974:
22975: IF (l_debug = 1) THEN
22976: print_debug('VALIDATE_LOT_SERIAL_INFO: LOT CREATED: '||x_return_status||' : '||l_progress, 1);
22993: x_return_status => x_return_status
22994: ,x_msg_data => x_msg_data
22995: ,x_msg_count => x_msg_count
22996: ,p_api_version => 1.0
22997: ,p_init_msg_lst => FND_API.G_FALSE
22998: ,p_mtlt_rowid => L_MTLT_REC.ROWID
22999: ,p_transaction_type_id => l_transaction_type_id
23000: ,p_new_lot => 'Y'
23001: ,p_item_id => l_item_id
23026:
23027: IF (x_return_status <> 'S') THEN
23028: --raise error
23029: l_progress := 'WMSINB-24062';
23030: RAISE fnd_api.g_exc_error;
23031: END IF;
23032:
23033: /*INVCONV ,*/
23034: IF (l_debug = 1) THEN
23039: x_return_status => x_return_status
23040: ,x_msg_count => x_msg_count
23041: ,x_msg_data => x_msg_data
23042: ,p_api_version => 1.0
23043: ,p_init_msg_lst => FND_API.G_FALSE
23044: ,p_source_document_code => L_SOURCE_DOCUMENT_CODE
23045: ,p_item_id => l_item_id
23046: ,p_from_organization_id => L_FROM_ORG_ID
23047: ,p_to_organization_id => L_ORG_ID
23065:
23066: IF X_RETURN_STATUS <> 'S' THEN
23067: --RAISE ERROR
23068: l_progress := 'WMSINB-24086';
23069: RAISE fnd_api.g_exc_error;
23070: END IF;
23071:
23072: IF (l_debug = 1) THEN
23073: print_debug('VALIDATE_LOT_SERIAL_INFO: LOT CREATED: '||x_return_status||' : '||l_progress, 1);
23302: --raise error
23303: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23304: fnd_msg_pub.ADD;
23305: l_progress := 'WMSINB-24186';
23306: RAISE fnd_api.g_exc_error;
23307: ELSE
23308: IF ((l_curr_lot_num IS NOT NULL) AND
23309: (l_curr_lot_num <> l_mtlt_rec.lot_number)
23310: AND (Nvl(l_curr_status,1) NOT IN (1,4))) THEN
23311: --raise error
23312: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23313: fnd_msg_pub.ADD;
23314: l_progress := 'WMSINB-24193';
23315: RAISE fnd_api.g_exc_error;
23316: END IF;
23317: END IF;
23318:
23319: /* Bug#6670394
23324: --raise error
23325: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23326: fnd_msg_pub.ADD;
23327: l_progress := 'WMSINB-24202';
23328: RAISE fnd_api.g_exc_error;
23329: END IF;
23330:
23331: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
23332: --raise error
23332: --raise error
23333: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23334: fnd_msg_pub.ADD;
23335: l_progress := 'WMSINB-24210';
23336: RAISE fnd_api.g_exc_error;
23337: END IF;
23338:
23339: IF (Nvl(l_curr_status, 1) IN (1,6)) THEN
23340: --validate and update the attributes.
23355: --raise error
23356: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23357: fnd_msg_pub.ADD;
23358: l_progress := 'WMSINB-24215';
23359: RAISE fnd_api.g_exc_error;
23360: END IF;
23361: END IF; --IF (Nvl(l_curr_status, 1) = 1) THEN
23362:
23363: --UPDATE GROUP_MARK_ID TO -7937
23365: --raise error
23366: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23367: fnd_msg_pub.ADD;
23368: l_progress := 'WMSINB-24219';
23369: RAISE fnd_api.g_exc_error;
23370: END IF;
23371: ELSE --IF (l_serial_exists = 1) THEN
23372: IF l_serial_number_control_code = 5 THEN
23373: --PERFORM SERIAL VALIDATION FOR NEW SERIAL
23412: --raise error
23413: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23414: fnd_msg_pub.ADD;
23415: l_progress := 'WMSINB-24225';
23416: RAISE fnd_api.g_exc_error;
23417: END IF;
23418:
23419: --validate and update the attributes.
23420: inv_serial_number_pub.validate_update_serial_att
23434: --raise error
23435: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23436: fnd_msg_pub.ADD;
23437: l_progress := 'WMSINB-24260';
23438: RAISE fnd_api.g_exc_error;
23439: END IF;
23440:
23441: --UPDATE GROUP_MARK_ID TO -7937
23442: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
23443: --raise error
23444: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23445: fnd_msg_pub.ADD;
23446: l_progress := 'WMSINB-24267';
23447: RAISE fnd_api.g_exc_error;
23448: END IF;
23449: ELSE
23450: --raise error
23451: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23450: --raise error
23451: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23452: fnd_msg_pub.ADD;
23453: l_progress := 'WMSINB-24274';
23454: RAISE fnd_api.g_exc_error;
23455: END IF;
23456: END IF; --IF (l_serial_exists = 1) THEN
23457:
23458: --Call EPC API here for ASN Import
23492: --raise error
23493: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23494: fnd_msg_pub.ADD;
23495: l_progress := 'WMSINB-24288';
23496: RAISE fnd_api.g_exc_error;
23497: END IF;
23498: ELSE
23499: IF (l_serial_number_control_code IN (2,5)
23500: OR (l_serial_number_control_code = 6
23502: --raise error
23503: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23504: fnd_msg_pub.ADD;
23505: l_progress := 'WMSINB-24295';
23506: RAISE fnd_api.g_exc_error;
23507: END IF;
23508: END IF;
23509:
23510: END IF; -- IF (L_SERIAL_NUMBER_CONTROL_CODE IN (2,5)) THEN
23524: --raise error
23525: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23526: fnd_msg_pub.ADD;
23527: l_progress := 'WMSINB-24309';
23528: RAISE fnd_api.g_exc_error;
23529: END IF; -- Bug# 4225766
23530: END IF;
23531: END IF;
23532: ELSIF l_serial_number_control_code IN (2,5) THEN --IF (L_LOT_CONTROL_CODE = 2) THEN
23759: --raise error
23760: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23761: fnd_msg_pub.ADD;
23762: l_progress := 'WMSINB-24394';
23763: RAISE fnd_api.g_exc_error;
23764: ELSE
23765: IF (l_curr_lot_num IS NOT NULL) THEN
23766: --raise error
23767: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23766: --raise error
23767: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23768: fnd_msg_pub.ADD;
23769: l_progress := 'WMSINB-24401';
23770: RAISE fnd_api.g_exc_error;
23771: END IF;
23772: END IF;
23773:
23774: IF l_curr_status NOT IN (1,4,6) THEN --Bug#6670394
23775: --raise error
23776: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23777: fnd_msg_pub.ADD;
23778: l_progress := 'WMSINB-24410';
23779: RAISE fnd_api.g_exc_error;
23780: END IF;
23781:
23782: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
23783: --raise error
23783: --raise error
23784: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23785: fnd_msg_pub.ADD;
23786: l_progress := 'WMSINB-24418';
23787: RAISE fnd_api.g_exc_error;
23788: END IF;
23789:
23790: IF (Nvl(l_curr_status, 1) in (1,6)) THEN
23791: --validate and update the attributes.
23806: --raise error
23807: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23808: fnd_msg_pub.ADD;
23809: l_progress := 'WMSINB-24424';
23810: RAISE fnd_api.g_exc_error;
23811: END IF;
23812: END IF; --IF (Nvl(l_curr_status, 1) = 1) THEN
23813:
23814: --UPDATE GROUP_MARK_ID TO -7937
23816: --raise error
23817: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23818: fnd_msg_pub.ADD;
23819: l_progress := 'WMSINB-24427';
23820: RAISE fnd_api.g_exc_error;
23821: END IF;
23822: ELSE --IF (l_serial_exists = 1) THEN
23823: IF l_serial_number_control_code = 5 THEN
23824: --PERFORM SERIAL VALIDATION FOR NEW SERIAL
23863: --raise error
23864: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23865: fnd_msg_pub.ADD;
23866: l_progress := 'WMSINB-24430';
23867: RAISE fnd_api.g_exc_error;
23868: END IF;
23869:
23870: --validate and update the attributes.
23871: inv_serial_number_pub.validate_update_serial_att
23885: --raise error
23886: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23887: fnd_msg_pub.ADD;
23888: l_progress := 'WMSINB-24470';
23889: RAISE fnd_api.g_exc_error;
23890: END IF;
23891:
23892: --UPDATE GROUP_MARK_ID TO -7937
23893: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
23894: --raise error
23895: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23896: fnd_msg_pub.ADD;
23897: l_progress := 'WMSINB-24475';
23898: RAISE fnd_api.g_exc_error;
23899: END IF;
23900: ELSE
23901: --raise error
23902: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23901: --raise error
23902: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23903: fnd_msg_pub.ADD;
23904: l_progress := 'WMSINB-24482';
23905: RAISE fnd_api.g_exc_error;
23906: END IF;
23907: END IF; --IF (l_serial_exists = 1) THEN
23908: --Call EPC API here for ASN Import
23909: IF (l_epc_column IS NOT NULL) THEN
23943: --raise error
23944: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
23945: fnd_msg_pub.ADD;
23946: l_progress := 'WMSINB-24496';
23947: RAISE fnd_api.g_exc_error;
23948: END IF;
23949: END IF;
23950: END IF;--IF (l_lot_control_code = 2) THEN
23951: END IF;--IF (l_transaction_type = 'SHIP' AND l_source_document_code = 'PO') THEN
23964: EXCEPTION
23965: WHEN no_data_found THEN
23966: --raise an error
23967: l_progress := 'WMSINB-24517';
23968: RAISE fnd_api.g_exc_error;
23969: END;
23970:
23971: IF (l_debug = 1) THEN
23972: print_debug('VALIDATE_LOT_SERIAL_INFO: Parent Txn Type:'||l_parent_txn_type,1);
23985: EXCEPTION
23986: WHEN no_data_found THEN
23987: --raise an error
23988: l_progress := 'WMSINB-24538';
23989: RAISE fnd_api.g_exc_error;
23990: END;
23991: END IF; --IF (l_grand_parent_txn_id > 0) THEN
23992:
23993: IF (l_debug = 1) THEN
24137: IF (l_grand_parent_txn_type <> 'DELIVER') THEN
24138: IF NOT (lot_entered_on_parent(l_grand_parent_txn_id)) THEN
24139: --raise an error
24140: l_progress := 'WMSINB-24580';
24141: RAISE fnd_api.g_exc_error;
24142: END IF; --IF NOT (lot_entered_on_parent(l_grand_parent_txn_id))
24143: END IF; --IF (l_grand_parent_txn_type <> 'DELIVER') THEN
24144: ELSE --IF (l_parent_txn_type IN (g_rtv,g_rtr,g_rtc)) THEN
24145: IF (l_parent_txn_type <> 'DELIVER') THEN
24145: IF (l_parent_txn_type <> 'DELIVER') THEN
24146: IF NOT (lot_entered_on_parent(l_parent_transaction_id)) THEN
24147: --raise an error
24148: l_progress := 'WMSINB-24588';
24149: RAISE fnd_api.g_exc_error;
24150: END IF;
24151: END IF; --IF (l_parent_txn_type <> 'DELIVER') THEN
24152: END IF; --IF (l_parent_txn_type IN (g_rtv,g_rtr,g_rtc)) THEN
24153:
24192: IF L_MTLT_REC.parent_lot_number IS NOT NULL THEN
24193: IF L_MTLT_REC.parent_lot_number <> l_parent_lot_number THEN
24194: fnd_message.set_name ('INV' , 'INV_CL_PARENT_INVALID' );
24195: fnd_msg_pub.ADD;
24196: RAISE fnd_api.g_exc_error;
24197: END IF;
24198: ELSE
24199: L_MTLT_REC.parent_lot_number := l_parent_lot_number;
24200: END IF;
24238: P_STATUS_ID => NULL);
24239: IF X_RETURN_STATUS <> 'S' THEN
24240: --RAISE ERROR
24241: l_progress := 'WMSINB-24661';
24242: RAISE fnd_api.g_exc_error;
24243: END IF;
24244:
24245: IF (l_debug = 1) THEN
24246: print_debug('VALIDATE_LOT_SERIAL_INFO: LOT MATERIAL VALIDATION STATUS: '||L_VALIDATION_STATUS||' : '||l_progress, 1);
24249:
24250: IF L_VALIDATION_STATUS <> 'Y' THEN
24251: --RAISE ERROR
24252: l_progress := 'WMSINB-24672';
24253: RAISE fnd_api.g_exc_error;
24254: END IF;
24255: /* ELSE --IF (l_discrete_transaction) THEN
24256: -- opm change bug# 3061052
24257: gml_opm_roi_grp.validate_opm_lot(p_api_version => 1.0,
24254: END IF;
24255: /* ELSE --IF (l_discrete_transaction) THEN
24256: -- opm change bug# 3061052
24257: gml_opm_roi_grp.validate_opm_lot(p_api_version => 1.0,
24258: p_init_msg_lst => FND_API.G_FALSE,
24259: p_mtlt_rowid => l_mtlt_rec.rowid,
24260: p_new_lot => 'N',
24261: p_opm_item_id => l_opm_item_id,
24262: p_item_no => l_item_no,
24278: x_return_status => x_return_status
24279: ,x_msg_data => x_msg_data
24280: ,x_msg_count => x_msg_count
24281: ,p_api_version => 1.0
24282: ,p_init_msg_lst => FND_API.G_FALSE
24283: ,p_mtlt_rowid => L_MTLT_REC.ROWID
24284: ,p_transaction_type_id => l_transaction_type_id
24285: ,p_new_lot => 'N'
24286: ,p_item_id => l_item_id
24312:
24313: IF X_RETURN_STATUS <> 'S' THEN
24314: --RAISE ERROR
24315: l_progress := 'WMSINB-24693';
24316: RAISE fnd_api.g_exc_error;
24317: END IF;
24318:
24319: IF (l_debug = 1) THEN
24320: print_debug('VALIDATE_LOT_SERIAL_INFO: INV_VALIDATE_LOT STATUS: '||x_return_status||' : '||l_progress, 1);
24324: IF (validate_rs(NULL,l_grand_parent_txn_id,l_dummy_lpn)) THEN
24325: IF NOT (lot_entered_on_parent(l_grand_parent_txn_id)) THEN
24326: --raise error
24327: l_progress := 'WMSINB-24705';
24328: RAISE fnd_api.g_exc_error;
24329: END IF;
24330: END IF;
24331:
24332: /*INVCONV , remove OPM specific fork, Punit Kumar */
24333: /*IF (NOT l_discrete_transaction) THEN
24334:
24335: -- opm change bug# 3061052
24336: gml_opm_roi_grp.validate_opm_lot(p_api_version => 1.0,
24337: p_init_msg_lst => FND_API.G_FALSE,
24338: p_mtlt_rowid => l_mtlt_rec.rowid,
24339: p_new_lot => 'N',
24340: p_opm_item_id => l_opm_item_id,
24341: p_item_no => l_item_no,
24356: x_return_status => x_return_status
24357: ,x_msg_data => x_msg_data
24358: ,x_msg_count => x_msg_count
24359: ,p_api_version => 1.0
24360: ,p_init_msg_lst => FND_API.G_FALSE
24361: ,p_mtlt_rowid => L_MTLT_REC.ROWID
24362: ,p_transaction_type_id => l_transaction_type_id
24363: ,p_new_lot => 'N'
24364: ,p_item_id => l_item_id
24390:
24391: IF X_RETURN_STATUS <> 'S' THEN
24392: --RAISE ERROR
24393: l_progress := 'WMSINB-24728';
24394: RAISE fnd_api.g_exc_error;
24395: END IF;
24396:
24397: IF (l_debug = 1) THEN
24398: print_debug('VALIDATE_LOT_SERIAL_INFO: INV_VALIDATE_LOT STATUS: '||x_return_status||' : '||l_progress, 1);
24415:
24416: IF (l_mtlt_rec.primary_quantity > l_rls_primary_quantity) THEN
24417: --raise error
24418: l_progress := 'WMSINB-24752';
24419: RAISE fnd_api.g_exc_error;
24420: END IF;
24421: EXCEPTION
24422: WHEN no_data_found THEN
24423: --raise error
24421: EXCEPTION
24422: WHEN no_data_found THEN
24423: --raise error
24424: l_progress := 'WMSINB-24758';
24425: RAISE fnd_api.g_exc_error;
24426: END;
24427: END IF; --IF (lot_entered_on_parent(l_great_grand_parent_txn_id)) THEN
24428:
24429: /*INVCONV , existing discrete validations. Same will be executed for process org */
24460: P_STATUS_ID => NULL);
24461: IF X_RETURN_STATUS <> 'S' THEN
24462: --RAISE ERROR
24463: l_progress := 'WMSINB-24796';
24464: RAISE fnd_api.g_exc_error;
24465: END IF;
24466:
24467: IF (l_debug = 1) THEN
24468: print_debug('VALIDATE_LOT_SERIAL_INFO: LOT MATERIAL VALIDATION STATUS: '||L_VALIDATION_STATUS||' : '||l_progress, 1);
24471:
24472: IF L_VALIDATION_STATUS <> 'Y' THEN
24473: --RAISE ERROR
24474: l_progress := 'WMSINB-24807';
24475: RAISE fnd_api.g_exc_error;
24476: END IF;
24477:
24478:
24479: /*
24479: /*
24480: ELSE --IF (l_discrete_transaction) THEN
24481: -- opm change bug# 3061052
24482: gml_opm_roi_grp.validate_opm_lot(p_api_version => 1.0,
24483: p_init_msg_lst => FND_API.G_FALSE,
24484: p_mtlt_rowid => l_mtlt_rec.rowid,
24485: p_new_lot => 'N',
24486: p_opm_item_id => l_opm_item_id,
24487: p_item_no => l_item_no,
24502: x_return_status => x_return_status
24503: ,x_msg_data => x_msg_data
24504: ,x_msg_count => x_msg_count
24505: ,p_api_version => 1.0
24506: ,p_init_msg_lst => FND_API.G_FALSE
24507: ,p_mtlt_rowid => L_MTLT_REC.ROWID
24508: ,p_transaction_type_id => l_transaction_type_id
24509: ,p_new_lot => 'N'
24510: ,p_item_id => l_item_id
24535:
24536: IF X_RETURN_STATUS <> 'S' THEN
24537: --RAISE ERROR
24538: l_progress := 'WMSINB-24828';
24539: RAISE fnd_api.g_exc_error;
24540: END IF;
24541:
24542: IF (l_debug = 1) THEN
24543: print_debug('VALIDATE_LOT_SERIAL_INFO: INV_VALIDATE_LOT STATUS: '||x_return_status||' : '||l_progress, 1);
24561:
24562: IF (l_mtlt_rec.primary_quantity > l_rls_primary_quantity) THEN
24563: --raise error
24564: l_progress := 'WMSINB-24851';
24565: RAISE fnd_api.g_exc_error;
24566: END IF;
24567: EXCEPTION
24568: WHEN no_data_found THEN
24569: --raise error
24567: EXCEPTION
24568: WHEN no_data_found THEN
24569: --raise error
24570: l_progress := 'WMSINB-24857';
24571: RAISE fnd_api.g_exc_error;
24572: END;
24573:
24574: /* IF (NOT l_discrete_transaction) THEN
24575: -- opm change bug# 3061052.
24573:
24574: /* IF (NOT l_discrete_transaction) THEN
24575: -- opm change bug# 3061052.
24576: gml_opm_roi_grp.validate_opm_lot(p_api_version => 1.0,
24577: p_init_msg_lst => FND_API.G_FALSE,
24578: p_mtlt_rowid => l_mtlt_rec.rowid,
24579: p_new_lot => 'N',
24580: p_opm_item_id => l_opm_item_id,
24581: p_item_no => l_item_no,
24596: x_return_status => x_return_status
24597: ,x_msg_data => x_msg_data
24598: ,x_msg_count => x_msg_count
24599: ,p_api_version => 1.0
24600: ,p_init_msg_lst => FND_API.G_FALSE
24601: ,p_mtlt_rowid => L_MTLT_REC.ROWID
24602: ,p_transaction_type_id => l_transaction_type_id
24603: ,p_new_lot => 'N'
24604: ,p_item_id => l_item_id
24629:
24630: IF X_RETURN_STATUS <> 'S' THEN
24631: --RAISE ERROR
24632: l_progress := 'WMSINB-24880';
24633: RAISE fnd_api.g_exc_error;
24634: END IF;
24635:
24636: IF (l_debug = 1) THEN
24637: print_debug('VALIDATE_LOT_SERIAL_INFO: INV_VALIDATE_LOT STATUS: '||x_return_status||' : '||l_progress, 1);
24680: P_LPN_ID => L_LPN_ID); -- bug 14269152
24681: IF X_RETURN_STATUS <> 'S' THEN
24682: --RAISE ERROR
24683: l_progress := 'WMSINB-24921';
24684: RAISE fnd_api.g_exc_error;
24685: END IF;
24686:
24687: ELSE
24688:
24699: P_STATUS_ID => NULL);
24700: IF X_RETURN_STATUS <> 'S' THEN
24701: --RAISE ERROR
24702: l_progress := 'WMSINB-24922';
24703: RAISE fnd_api.g_exc_error;
24704: END IF;
24705:
24706: END IF;
24707:
24712:
24713: IF L_VALIDATION_STATUS <> 'Y' THEN
24714: --RAISE ERROR
24715: l_progress := 'WMSINB-24933';
24716: RAISE fnd_api.g_exc_error;
24717: END IF;
24718:
24719: /*ELSE --IF (l_discrete_transaction) THEN
24720: -- opm change bug# 3061052
24718:
24719: /*ELSE --IF (l_discrete_transaction) THEN
24720: -- opm change bug# 3061052
24721: gml_opm_roi_grp.validate_opm_lot(p_api_version => 1.0,
24722: p_init_msg_lst => FND_API.G_FALSE,
24723: p_mtlt_rowid => l_mtlt_rec.rowid,
24724: p_new_lot => 'N',
24725: p_opm_item_id => l_opm_item_id,
24726: p_item_no => l_item_no,
24740: x_return_status => x_return_status
24741: ,x_msg_data => x_msg_data
24742: ,x_msg_count => x_msg_count
24743: ,p_api_version => 1.0
24744: ,p_init_msg_lst => FND_API.G_FALSE
24745: ,p_mtlt_rowid => L_MTLT_REC.ROWID
24746: ,p_transaction_type_id => l_transaction_type_id
24747: ,p_new_lot => 'N'
24748: ,p_item_id => l_item_id
24774:
24775: IF X_RETURN_STATUS <> 'S' THEN
24776: --RAISE ERROR
24777: l_progress := 'WMSINB-24955';
24778: RAISE fnd_api.g_exc_error;
24779: END IF;
24780:
24781: IF (l_debug = 1) THEN
24782: print_debug('VALIDATE_LOT_SERIAL_INFO: INV_VALIDATE_LOT STATUS: '||x_return_status||' : '||l_progress, 1);
24802: x_return_status => x_return_status
24803: ,x_msg_data => x_msg_data
24804: ,x_msg_count => x_msg_count
24805: ,p_api_version => 1.0
24806: ,p_init_msg_lst => FND_API.G_FALSE
24807: ,p_mtlt_rowid => L_MTLT_REC.ROWID
24808: ,p_transaction_type_id => l_transaction_type_id
24809: ,p_new_lot => 'Y'
24810: ,p_item_id => l_item_id
24835:
24836: IF (x_return_status <> 'S') THEN
24837: --raise error
24838: l_progress := 'WMSINB-25058';
24839: RAISE fnd_api.g_exc_error;
24840: END IF;
24841:
24842: /*INVCONV ,*/
24843: IF (l_debug = 1) THEN
24848: x_return_status => x_return_status
24849: ,x_msg_count => x_msg_count
24850: ,x_msg_data => x_msg_data
24851: ,p_api_version => 1.0
24852: ,p_init_msg_lst => FND_API.G_FALSE
24853: ,p_source_document_code => L_SOURCE_DOCUMENT_CODE
24854: ,p_item_id => l_item_id
24855: ,p_from_organization_id => L_FROM_ORG_ID
24856: ,p_to_organization_id => L_ORG_ID
24875:
24876: IF X_RETURN_STATUS <> 'S' THEN
24877: --RAISE ERROR
24878: l_progress := 'WMSINB-25085';
24879: RAISE fnd_api.g_exc_error;
24880: END IF;
24881:
24882: IF (l_debug = 1) THEN
24883: print_debug('VALIDATE_LOT_SERIAL_INFO: INV_VALIDATE_LOT STATUS: '||x_return_status||' : '||l_progress, 1);
24887: IF (validate_rs(NULL,l_grand_parent_txn_id,l_dummy_lpn)) THEN
24888: IF NOT (lot_entered_on_parent(l_grand_parent_txn_id)) THEN
24889: --raise an error
24890: l_progress := 'WMSINB-25097';
24891: RAISE fnd_api.g_exc_error;
24892: END IF;
24893: END IF;
24894:
24895: /*INVCONV, Replace existing create lot call with a new call */
24901: x_return_status => x_return_status
24902: ,x_msg_data => x_msg_data
24903: ,x_msg_count => x_msg_count
24904: ,p_api_version => 1.0
24905: ,p_init_msg_lst => FND_API.G_FALSE
24906: ,p_mtlt_rowid => L_MTLT_REC.ROWID
24907: ,p_transaction_type_id => l_transaction_type_id
24908: ,p_new_lot => 'Y'
24909: ,p_item_id => l_item_id
24934:
24935: IF (x_return_status <> 'S') THEN
24936: --raise error
24937: l_progress := 'WMSINB-25193';
24938: RAISE fnd_api.g_exc_error;
24939: END IF;
24940:
24941: IF (l_debug = 1) THEN
24942: print_debug('INVCONV, Before calling INV_ROI_INTEGRATION_GRP.INV_NEW_LOT :'||l_progress,1);
24946: x_return_status => x_return_status
24947: ,x_msg_count => x_msg_count
24948: ,x_msg_data => x_msg_data
24949: ,p_api_version => 1.0
24950: ,p_init_msg_lst => FND_API.G_FALSE
24951: ,p_source_document_code => L_SOURCE_DOCUMENT_CODE
24952: ,p_item_id => l_item_id
24953: ,p_from_organization_id => L_FROM_ORG_ID
24954: ,p_to_organization_id => L_ORG_ID
24974:
24975: IF X_RETURN_STATUS <> 'S' THEN
24976: --RAISE ERROR
24977: l_progress := 'WMSINB-25220';
24978: RAISE fnd_api.g_exc_error;
24979: END IF;
24980:
24981: IF (l_debug = 1) THEN
24982: print_debug('VALIDATE_LOT_SERIAL_INFO: INV_VALIDATE_LOT STATUS: '||x_return_status||' : '||l_progress, 1);
24986: ELSIF (l_parent_txn_type = g_rtr) THEN --IF (l_parent_txn_type IN (g_rtv,g_rtc)) THEN
24987: IF (lot_entered_on_parent(l_great_grand_parent_txn_id)) THEN
24988: --raise an error
24989: l_progress := 'WMSINB-25232';
24990: RAISE fnd_api.g_exc_error;
24991: ELSE
24992: --CALL CREATE_INV_LOT
24993: /* INVCONV, replace the existing create_inv_lot call with a new call */
24994: /*INVCONV , Perform lot validations and create the new lot.
25004: x_return_status => x_return_status
25005: ,x_msg_data => x_msg_data
25006: ,x_msg_count => x_msg_count
25007: ,p_api_version => 1.0
25008: ,p_init_msg_lst => FND_API.G_FALSE
25009: ,p_mtlt_rowid => L_MTLT_REC.ROWID
25010: ,p_transaction_type_id => l_transaction_type_id
25011: ,p_new_lot => 'Y'
25012: ,p_item_id => l_item_id
25038:
25039: IF (x_return_status <> 'S') THEN
25040: --raise error
25041: l_progress := 'WMSINB-25325';
25042: RAISE fnd_api.g_exc_error;
25043: END IF;
25044:
25045: IF (l_debug = 1) THEN
25046: print_debug('INVCONV, Before calling INV_ROI_INTEGRATION_GRP.INV_NEW_LOT :'||l_progress,1);
25050: x_return_status => x_return_status
25051: ,x_msg_count => x_msg_count
25052: ,x_msg_data => x_msg_data
25053: ,p_api_version => 1.0
25054: ,p_init_msg_lst => FND_API.G_FALSE
25055: ,p_source_document_code => L_SOURCE_DOCUMENT_CODE
25056: ,p_item_id => l_item_id
25057: ,p_from_organization_id => L_FROM_ORG_ID
25058: ,p_to_organization_id => L_ORG_ID
25077:
25078: IF X_RETURN_STATUS <> 'S' THEN
25079: --RAISE ERROR
25080: l_progress := 'WMSINB-25352';
25081: RAISE fnd_api.g_exc_error;
25082: END IF;
25083:
25084: IF (l_debug = 1) THEN
25085: print_debug('VALIDATE_LOT_SERIAL_INFO: INV_VALIDATE_LOT STATUS: '||x_return_status||' : '||l_progress, 1);
25089: /*the comment for above end if was wrong*/
25090: ELSE --ELSIF (l_parent_txn_type = g_rtr) THEN
25091: --raise an error
25092: l_progress := 'WMSINB-25363';
25093: RAISE fnd_api.g_exc_error;
25094: END IF; --IF (l_parent_txn_type IN (g_rtv,g_rtc)) THEN
25095: END IF;--IF (l_lot_exists = 1) THEN
25096:
25097: IF (l_serial_number_control_code IN (2,5,6)) THEN
25301: IF (l_grand_parent_txn_type <> 'DELIVER') THEN
25302: IF NOT (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
25303: --raise an error
25304: l_progress := 'WMSINB-25456';
25305: RAISE fnd_api.g_exc_error;
25306: END IF;
25307: END IF; --IF (l_grand_parent_txn_type <> 'DELIVER') THEN
25308:
25309: IF (l_serial_exists = 1) THEN
25311: --raise error
25312: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25313: fnd_msg_pub.ADD;
25314: l_progress := 'WMSINB-25466';
25315: RAISE fnd_api.g_exc_error;
25316: ELSE
25317: IF ((l_curr_lot_num IS NOT NULL) AND
25318: (l_curr_lot_num <> l_mtlt_rec.lot_number)
25319: AND (Nvl(l_curr_status,1) NOT IN (1,4))) THEN
25320: --raise error
25321: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25322: fnd_msg_pub.ADD;
25323: l_progress := 'WMSINB-25473';
25324: RAISE fnd_api.g_exc_error;
25325: END IF;
25326: END IF;
25327:
25328: IF l_curr_status NOT IN (1,6) THEN
25329: --raise error
25330: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25331: fnd_msg_pub.ADD;
25332: l_progress := 'WMSINB-25482';
25333: RAISE fnd_api.g_exc_error;
25334: END IF;
25335:
25336: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
25337: --raise error
25337: --raise error
25338: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25339: fnd_msg_pub.ADD;
25340: l_progress := 'WMSINB-25490';
25341: RAISE fnd_api.g_exc_error;
25342: END IF;
25343:
25344: IF (Nvl(l_curr_status, 1) in (1,6)) THEN
25345: --validate and update the attributes.
25360: --raise error
25361: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25362: fnd_msg_pub.ADD;
25363: l_progress := 'WMSINB-254960';
25364: RAISE fnd_api.g_exc_error;
25365: END IF;
25366: END IF; --IF (Nvl(l_curr_status, 1) = 1) THEN
25367:
25368: --UPDATE GROUP_MARK_ID TO -7937
25370: --raise error
25371: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25372: fnd_msg_pub.ADD;
25373: l_progress := 'WMSINB-25499';
25374: RAISE fnd_api.g_exc_error;
25375: END IF;
25376: ELSE --IF (l_serial_exists = 1) THEN
25377: IF l_serial_number_control_code = 5 THEN
25378: --PERFORM SERIAL VALIDATION FOR NEW SERIAL
25422: --raise error
25423: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25424: fnd_msg_pub.ADD;
25425: l_progress := 'WMSINB-25505';
25426: RAISE fnd_api.g_exc_error;
25427: END IF;
25428:
25429: --validate and update the attributes.
25430: inv_serial_number_pub.validate_update_serial_att
25444: --raise error
25445: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25446: fnd_msg_pub.ADD;
25447: l_progress := 'WMSINB-25545';
25448: RAISE fnd_api.g_exc_error;
25449: END IF;
25450:
25451: --UPDATE GROUP_MARK_ID TO -7937
25452: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
25453: --raise error
25454: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25455: fnd_msg_pub.ADD;
25456: l_progress := 'WMSINB-25552';
25457: RAISE fnd_api.g_exc_error;
25458: END IF;
25459: ELSE --IF l_serial_number_control_code = 5 THEN
25460: --raise error
25461: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25460: --raise error
25461: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25462: fnd_msg_pub.ADD;
25463: l_progress := 'WMSINB-25559';
25464: RAISE fnd_api.g_exc_error;
25465: END IF; --IF l_serial_number_control_code = 5 THEN
25466: END IF; --IF (l_serial_exists = 1) THEN
25467: ELSIF (l_parent_txn_type = g_rtr) THEN --IF (l_parent_txn_type IN (g_rtv,g_rtc)) THEN
25468: IF (serial_entered_on_parent(l_great_grand_parent_txn_id)) THEN
25477: --raise error
25478: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25479: fnd_msg_pub.ADD;
25480: l_progress := 'WMSINB-25576';
25481: RAISE fnd_api.g_exc_error;
25482: END IF;
25483:
25484: --Validate serial/group_mark_id to prevent entering duplicate serials
25485: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
25486: --raise error
25487: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25488: fnd_msg_pub.ADD;
25489: l_progress := 'WMSINB-25587';
25490: RAISE fnd_api.g_exc_error;
25491: END IF;
25492:
25493: --UPDATE GROUP_MARK_ID TO -7937
25494: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
25495: --raise error
25496: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25497: fnd_msg_pub.ADD;
25498: l_progress := 'WMSINB-25596';
25499: RAISE fnd_api.g_exc_error;
25500: END IF;
25501: EXCEPTION
25502: WHEN NO_DATA_FOUND THEN
25503: -- RAISE ERROR
25503: -- RAISE ERROR
25504: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25505: fnd_msg_pub.ADD;
25506: l_progress := 'WMSINB-25604';
25507: RAISE fnd_api.g_exc_error;
25508: END;
25509: ELSE --IF (serial_entered_on_parent(l_great_grand_parent_txn_id)) THEN
25510: IF (l_serial_exists = 1) THEN
25511: IF l_curr_org_id <> l_org_id THEN
25512: --raise error
25513: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25514: fnd_msg_pub.ADD;
25515: l_progress := 'WMSINB-25613';
25516: RAISE fnd_api.g_exc_error;
25517: ELSE
25518: IF ((l_curr_lot_num IS NOT NULL) AND (l_curr_lot_num <> l_mtlt_rec.lot_number)
25519: AND (Nvl(l_curr_status,1) NOT IN (1,4))) THEN
25520: --raise error
25520: --raise error
25521: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25522: fnd_msg_pub.ADD;
25523: l_progress := 'WMSINB-25620';
25524: RAISE fnd_api.g_exc_error;
25525: END IF;
25526: END IF;
25527:
25528: IF l_curr_status NOT IN (1,6) THEN
25529: --raise error
25530: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25531: fnd_msg_pub.ADD;
25532: l_progress := 'WMSINB-25629';
25533: RAISE fnd_api.g_exc_error;
25534: END IF;
25535:
25536: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
25537: --raise error
25537: --raise error
25538: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25539: fnd_msg_pub.ADD;
25540: l_progress := 'WMSINB-25637';
25541: RAISE fnd_api.g_exc_error;
25542: END IF;
25543:
25544: IF (Nvl(l_curr_status, 1) in (1,6)) THEN
25545: --validate and update the attributes.
25560: --raise error
25561: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25562: fnd_msg_pub.ADD;
25563: l_progress := 'WMSINB-25642';
25564: RAISE fnd_api.g_exc_error;
25565: END IF;
25566: END IF; --IF (Nvl(l_curr_status, 1) = 1) THEN
25567:
25568: --UPDATE GROUP_MARK_ID TO -7937
25570: --raise error
25571: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25572: fnd_msg_pub.ADD;
25573: l_progress := 'WMSINB-25646';
25574: RAISE fnd_api.g_exc_error;
25575: END IF;
25576: ELSE --IF (l_serial_exists = 1) THEN
25577: IF l_serial_number_control_code = 5 THEN
25578: --PERFORM SERIAL VALIDATION FOR NEW SERIAL
25622: --raise error
25623: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25624: fnd_msg_pub.ADD;
25625: l_progress := 'WMSINB-25650';
25626: RAISE fnd_api.g_exc_error;
25627: END IF;
25628:
25629: --validate and update the attributes.
25630: inv_serial_number_pub.validate_update_serial_att
25643: --raise error
25644: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25645: fnd_msg_pub.ADD;
25646: l_progress := 'WMSINB-25691';
25647: RAISE fnd_api.g_exc_error;
25648: END IF;
25649:
25650: --UPDATE GROUP_MARK_ID TO -7937
25651: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
25652: --raise error
25653: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25654: fnd_msg_pub.ADD;
25655: l_progress := 'WMSINB-25699';
25656: RAISE fnd_api.g_exc_error;
25657: END IF;
25658: ELSE --IF l_serial_number_control_code = 5 THEN
25659: --raise error
25660: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25659: --raise error
25660: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25661: fnd_msg_pub.ADD;
25662: l_progress := 'WMSINB-25706';
25663: RAISE fnd_api.g_exc_error;
25664: END IF; --IF l_serial_number_control_code = 5 THEN
25665: END IF; --IF (l_serial_exists = 1) THEN
25666: END IF; --IF (serial_entered_on_parent(l_great_grand_parent_txn_id)) THEN
25667: ELSE --ELSIF (l_parent_txn_type = g_rtr) THEN
25668: IF (l_parent_txn_type <> 'DELIVER') THEN
25669: IF NOT (serial_entered_on_parent(l_parent_transaction_id)) THEN
25670: --raise an error
25671: l_progress := 'WMSINB-25715';
25672: RAISE fnd_api.g_exc_error;
25673: ELSE
25674: BEGIN
25675: SELECT '1'
25676: INTO L_DUMMY
25682: --raise error
25683: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25684: fnd_msg_pub.ADD;
25685: l_progress := 'WMSINB-25729';
25686: RAISE fnd_api.g_exc_error;
25687: END IF;
25688:
25689: --Validate serial/group_mark_id to prevent
25690: --entering of duplicate serials
25693: --raise error
25694: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25695: fnd_msg_pub.ADD;
25696: l_progress := 'WMSINB-25740';
25697: RAISE fnd_api.g_exc_error;
25698: END IF;
25699:
25700: --UPDATE GROUP_MARK_ID TO -7937
25701: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
25702: --raise error
25703: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25704: fnd_msg_pub.ADD;
25705: l_progress := 'WMSINB-25749';
25706: RAISE fnd_api.g_exc_error;
25707: END IF;
25708: EXCEPTION
25709: WHEN NO_DATA_FOUND THEN
25710: -- RAISE ERROR
25710: -- RAISE ERROR
25711: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25712: fnd_msg_pub.ADD;
25713: l_progress := 'WMSINB-25757';
25714: RAISE fnd_api.g_exc_error;
25715: END;
25716: END IF; --IF NOT (serial_entered_on_parent(l_parent_transaction_id)) THEN
25717: ELSE --IF (l_parent_txn_type <> 'DELIVER') THEN
25718: IF l_curr_org_id <> l_org_id THEN
25719: --raise error
25720: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25721: fnd_msg_pub.ADD;
25722: l_progress := 'WMSINB-25766';
25723: RAISE fnd_api.g_exc_error;
25724: ELSE
25725: IF ((l_curr_lot_num IS NOT NULL)
25726: AND (l_curr_lot_num <>
25727: l_mtlt_rec.lot_number)
25729: --raise error
25730: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25731: fnd_msg_pub.ADD;
25732: l_progress := 'WMSINB-25773';
25733: RAISE fnd_api.g_exc_error;
25734: END IF;
25735: END IF;
25736:
25737: IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
25739: --raise error
25740: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25741: fnd_msg_pub.ADD;
25742: l_progress := 'WMSINB-25783';
25743: RAISE fnd_api.g_exc_error;
25744: END IF;
25745: --Serial tagging: modified condition to validate current_status 3 for serial controlled items
25746: --ELSE --IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
25747: ELSIF l_serial_number_control_code in (2,5) THEN
25749: --raise error
25750: fnd_message.set_name('INV','INV_FAIL_VALIDATE_SERIAL');
25751: fnd_msg_pub.ADD;
25752: l_progress := 'WMSINB-25791';
25753: RAISE fnd_api.g_exc_error;
25754: END IF;
25755: END IF; --IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
25756:
25757: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
25758: --raise error
25759: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25760: fnd_msg_pub.ADD;
25761: l_progress := 'WMSINB-25800';
25762: RAISE fnd_api.g_exc_error;
25763: END IF;
25764:
25765: IF (Nvl(l_curr_status, 1) in (1,6)) THEN
25766: --validate and update the attributes.
25781: --raise error
25782: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25783: fnd_msg_pub.ADD;
25784: l_progress := 'WMSINB-25805';
25785: RAISE fnd_api.g_exc_error;
25786: END IF;
25787: END IF; --IF (Nvl(l_curr_status, 1) = 1) THEN
25788:
25789: --UPDATE GROUP_MARK_ID TO -7937
25791: --raise error
25792: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25793: fnd_msg_pub.ADD;
25794: l_progress := 'WMSINB-25809';
25795: RAISE fnd_api.g_exc_error;
25796: END IF;
25797: END IF; --IF (l_parent_txn_type <> 'DELIVER') THEN
25798: END IF; --IF (l_parent_txn_type IN (g_rtv,g_rtc)) THEN
25799: END LOOP; -- FOR 1..L_SERIAL_QUANTITY
25806: --raise error
25807: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25808: fnd_msg_pub.ADD;
25809: l_progress := 'WMSINB-25824';
25810: RAISE fnd_api.g_exc_error;
25811: END IF;
25812: ELSE
25813: IF (l_serial_number_control_code IN (2,5)
25814: OR (l_serial_number_control_code = 6 AND l_source_document_code IN ('RMA','REQ','INVENTORY')))
25816: --raise error
25817: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25818: fnd_msg_pub.ADD;
25819: l_progress := 'WMSINB-25831';
25820: RAISE fnd_api.g_exc_error;
25821: END IF;
25822: END IF;
25823:
25824: END IF; -- IF (L_SERIAL_NUMBER_CONTROL_CODE IN (2,5,6)) THEN
25839: --raise error
25840: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25841: fnd_msg_pub.ADD;
25842: l_progress := 'WMSINB-25845';
25843: RAISE fnd_api.g_exc_error;
25844: END IF; -- Bug# 4225766
25845: END IF;
25846: ELSE
25847: IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
25847: IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
25848: IF (l_grand_parent_txn_type = 'DELIVER') THEN
25849: --raise an error
25850: l_progress := 'WMSINB-25852';
25851: RAISE fnd_api.g_exc_error;
25852: ELSE
25853: IF (lot_entered_on_parent(l_grand_parent_txn_id)) THEN
25854: --raise error;
25855: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25854: --raise error;
25855: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
25856: fnd_msg_pub.ADD;
25857: l_progress := 'WMSINB-25859';
25858: RAISE fnd_api.g_exc_error;
25859: END IF;
25860: END IF; --IF (l_grand_parent_txn_type = 'DELIVER') THEN
25861: ELSE --IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
25862: IF (l_parent_txn_type <> 'DELIVER') THEN
25862: IF (l_parent_txn_type <> 'DELIVER') THEN
25863: IF (lot_entered_on_parent(l_parent_transaction_id)) THEN
25864: --raise an error
25865: l_progress := 'WMSINB-25867';
25866: RAISE fnd_api.g_exc_error;
25867: END IF;
25868: ELSE
25869: --raise an error
25870: l_progress := 'WMSINB-25872';
25867: END IF;
25868: ELSE
25869: --raise an error
25870: l_progress := 'WMSINB-25872';
25871: RAISE fnd_api.g_exc_error;
25872: END IF; -- IF (l_parent_txn_type <> 'DELIVER') THEN
25873: END IF; --IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
25874: END IF; --IF (l_num_mtlt_recs > 0) THEN
25875: ELSIF (l_serial_number_control_code IN (2,5,6)) THEN -- IF (l_lot_control_code = 2) THEN
26080: IF (l_grand_parent_txn_type <> 'DELIVER') THEN
26081: IF NOT (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
26082: --raise an error
26083: l_progress := 'WMSINB-25965';
26084: RAISE fnd_api.g_exc_error;
26085: END IF;
26086: END IF; --IF (l_grand_parent_txn_type <> 'DELIVER') THEN
26087:
26088: IF (l_serial_exists = 1) THEN
26090: --raise error
26091: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26092: fnd_msg_pub.ADD;
26093: l_progress := 'WMSINB-25975';
26094: RAISE fnd_api.g_exc_error;
26095: ELSE
26096: IF (l_curr_lot_num IS NOT NULL) THEN
26097: --raise error
26098: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26097: --raise error
26098: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26099: fnd_msg_pub.ADD;
26100: l_progress := 'WMSINB-25982';
26101: RAISE fnd_api.g_exc_error;
26102: END IF;
26103: END IF;
26104:
26105: IF l_curr_status NOT IN (1,6) THEN
26106: --raise error
26107: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26108: fnd_msg_pub.ADD;
26109: l_progress := 'WMSINB-25991';
26110: RAISE fnd_api.g_exc_error;
26111: END IF;
26112:
26113: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
26114: --raise error
26114: --raise error
26115: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26116: fnd_msg_pub.ADD;
26117: l_progress := 'WMSINB-25999';
26118: RAISE fnd_api.g_exc_error;
26119: END IF;
26120:
26121: IF (Nvl(l_curr_status, 1) in (1,6)) THEN
26122: --validate and update the attributes.
26137: --raise error
26138: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26139: fnd_msg_pub.ADD;
26140: l_progress := 'WMSINB-26005';
26141: RAISE fnd_api.g_exc_error;
26142: END IF;
26143: END IF; --IF (Nvl(l_curr_status, 1) = 1) THEN
26144:
26145: --UPDATE GROUP_MARK_ID TO -7937
26147: --raise error
26148: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26149: fnd_msg_pub.ADD;
26150: l_progress := 'WMSINB-26008';
26151: RAISE fnd_api.g_exc_error;
26152: END IF;
26153: ELSE --IF (l_serial_exists = 1) THEN
26154: IF l_serial_number_control_code = 5 THEN
26155: --PERFORM SERIAL VALIDATION FOR NEW SERIAL
26199: --raise error
26200: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26201: fnd_msg_pub.ADD;
26202: l_progress := 'WMSINB-26015';
26203: RAISE fnd_api.g_exc_error;
26204: END IF;
26205:
26206: --validate and update the attributes.
26207: inv_serial_number_pub.validate_update_serial_att
26220: --raise error
26221: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26222: fnd_msg_pub.ADD;
26223: l_progress := 'WMSINB-29051';
26224: RAISE fnd_api.g_exc_error;
26225: END IF;
26226:
26227: --UPDATE GROUP_MARK_ID TO -7937
26228: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
26229: --raise error
26230: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26231: fnd_msg_pub.ADD;
26232: l_progress := 'WMSINB-26061';
26233: RAISE fnd_api.g_exc_error;
26234: END IF;
26235: ELSE --IF l_serial_number_control_code = 5 THEN
26236: --raise error
26237: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26236: --raise error
26237: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26238: fnd_msg_pub.ADD;
26239: l_progress := 'WMSINB-26068';
26240: RAISE fnd_api.g_exc_error;
26241: END IF; --IF l_serial_number_control_code = 5 THEN
26242: END IF; --IF (l_serial_exists = 1) THEN
26243: ELSIF (l_parent_txn_type = g_rtr) THEN --IF (l_parent_txn_type IN (g_rtv,g_rtc)) THEN
26244: IF (serial_entered_on_parent(l_great_grand_parent_txn_id)) THEN
26253: --raise error
26254: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26255: fnd_msg_pub.ADD;
26256: l_progress := 'WMSINB-26085';
26257: RAISE fnd_api.g_exc_error;
26258: END IF;
26259:
26260: --Validate serial/group_mark_id to prevent entering of duplicate serials
26261: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
26262: --raise error
26263: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26264: fnd_msg_pub.ADD;
26265: l_progress := 'WMSINB-26096';
26266: RAISE fnd_api.g_exc_error;
26267: END IF;
26268:
26269: --UPDATE GROUP_MARK_ID TO -7937
26270: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
26271: --raise error
26272: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26273: fnd_msg_pub.ADD;
26274: l_progress := 'WMSINB-26105';
26275: RAISE fnd_api.g_exc_error;
26276: END IF;
26277: EXCEPTION
26278: WHEN NO_DATA_FOUND THEN
26279: -- RAISE ERROR
26279: -- RAISE ERROR
26280: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26281: fnd_msg_pub.ADD;
26282: l_progress := 'WMSINB-26113';
26283: RAISE fnd_api.g_exc_error;
26284: END;
26285: ELSE --IF (serial_entered_on_parent(l_great_grand_parent_txn_id)) THEN
26286: IF (l_serial_exists = 1) THEN
26287: IF l_curr_org_id <> l_org_id THEN
26288: --raise error
26289: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26290: fnd_msg_pub.ADD;
26291: l_progress := 'WMSINB-26122';
26292: RAISE fnd_api.g_exc_error;
26293: ELSE
26294: IF (l_curr_lot_num IS NOT NULL) THEN
26295: --raise error
26296: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26295: --raise error
26296: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26297: fnd_msg_pub.ADD;
26298: l_progress := 'WMSINB-26129';
26299: RAISE fnd_api.g_exc_error;
26300: END IF;
26301: END IF;
26302:
26303: IF l_curr_status NOT IN (1,6) THEN
26304: --raise error
26305: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26306: fnd_msg_pub.ADD;
26307: l_progress := 'WMSINB-26138';
26308: RAISE fnd_api.g_exc_error;
26309: END IF;
26310:
26311: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
26312: --raise error
26312: --raise error
26313: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26314: fnd_msg_pub.ADD;
26315: l_progress := 'WMSINB-26146';
26316: RAISE fnd_api.g_exc_error;
26317: END IF;
26318:
26319: IF (Nvl(l_curr_status, 1) in (1,6)) THEN
26320: --validate and update the attributes.
26335: --raise error
26336: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26337: fnd_msg_pub.ADD;
26338: l_progress := 'WMSINB-26152';
26339: RAISE fnd_api.g_exc_error;
26340: END IF;
26341: END IF; --IF (Nvl(l_curr_status, 1) = 1) THEN
26342:
26343: --UPDATE GROUP_MARK_ID TO -7937
26345: --raise error
26346: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26347: fnd_msg_pub.ADD;
26348: l_progress := 'WMSINB-26155';
26349: RAISE fnd_api.g_exc_error;
26350: END IF;
26351: ELSE --IF (l_serial_exists = 1) THEN
26352: IF l_serial_number_control_code = 5 THEN
26353: --PERFORM SERIAL VALIDATION FOR NEW SERIAL
26397: --raise error
26398: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26399: fnd_msg_pub.ADD;
26400: l_progress := 'WMSINB-26160';
26401: RAISE fnd_api.g_exc_error;
26402: END IF;
26403:
26404: --validate and update the attributes.
26405: inv_serial_number_pub.validate_update_serial_att
26418: --raise error
26419: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26420: fnd_msg_pub.ADD;
26421: l_progress := 'WMSINB-26200';
26422: RAISE fnd_api.g_exc_error;
26423: END IF;
26424:
26425: --UPDATE GROUP_MARK_ID TO -7937
26426: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
26427: --raise error
26428: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26429: fnd_msg_pub.ADD;
26430: l_progress := 'WMSINB-26208';
26431: RAISE fnd_api.g_exc_error;
26432: END IF;
26433: ELSE --IF l_serial_number_control_code = 5 THEN
26434: --raise error
26435: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26434: --raise error
26435: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26436: fnd_msg_pub.ADD;
26437: l_progress := 'WMSINB-26215';
26438: RAISE fnd_api.g_exc_error;
26439: END IF; --IF l_serial_number_control_code = 5 THEN
26440: END IF; --IF (l_serial_exists = 1) THEN
26441: END IF; --IF (serial_entered_on_parent(l_great_grand_parent_txn_id)) THEN
26442: ELSE --ELSIF (l_parent_txn_type = g_rtr) THEN
26443: IF (l_parent_txn_type <> 'DELIVER') THEN
26444: IF NOT (serial_entered_on_parent(l_parent_transaction_id)) THEN
26445: --raise an error
26446: l_progress := 'WMSINB-26224';
26447: RAISE fnd_api.g_exc_error;
26448: ELSE
26449: BEGIN
26450: SELECT '1'
26451: INTO L_DUMMY
26457: --raise error
26458: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26459: fnd_msg_pub.ADD;
26460: l_progress := 'WMSINB-26238';
26461: RAISE fnd_api.g_exc_error;
26462: END IF;
26463:
26464: --Validate serial/group_mark_id to prevent
26465: --entering of duplicate serials
26468: --raise error
26469: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26470: fnd_msg_pub.ADD;
26471: l_progress := 'WMSINB-26249';
26472: RAISE fnd_api.g_exc_error;
26473: END IF;
26474:
26475: --UPDATE GROUP_MARK_ID TO -7937
26476: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
26477: --raise error
26478: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26479: fnd_msg_pub.ADD;
26480: l_progress := 'WMSINB-26258';
26481: RAISE fnd_api.g_exc_error;
26482: END IF;
26483: EXCEPTION
26484: WHEN NO_DATA_FOUND THEN
26485: -- RAISE ERROR
26485: -- RAISE ERROR
26486: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26487: fnd_msg_pub.ADD;
26488: l_progress := 'WMSINB-26266';
26489: RAISE fnd_api.g_exc_error;
26490: END;
26491: END IF; --IF NOT (serial_entered_on_parent(l_parent_transaction_id)) THEN
26492: ELSE --IF (l_parent_txn_type <> 'DELIVER') THEN
26493: IF l_curr_org_id <> l_org_id THEN
26494: --raise error
26495: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26496: fnd_msg_pub.ADD;
26497: l_progress := 'WMSINB-26275';
26498: RAISE fnd_api.g_exc_error;
26499: ELSE
26500: IF (l_curr_lot_num IS NOT NULL) THEN
26501: --raise error
26502: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26501: --raise error
26502: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26503: fnd_msg_pub.ADD;
26504: l_progress := 'WMSINB-26282';
26505: RAISE fnd_api.g_exc_error;
26506: END IF;
26507: END IF;
26508:
26509: IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
26511: --raise error
26512: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26513: fnd_msg_pub.ADD;
26514: l_progress := 'WMSINB-26292';
26515: RAISE fnd_api.g_exc_error;
26516: END IF;
26517: --Serial tagging: modified condition to validate current_status 3 for serial controlled items
26518: ELSIF l_serial_number_control_code in (2,5) THEN
26519: --IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
26521: --raise error
26522: fnd_message.set_name('INV','INV_FAIL_VALIDATE_SERIAL');
26523: fnd_msg_pub.ADD;
26524: l_progress := 'WMSINB-26300';
26525: RAISE fnd_api.g_exc_error;
26526: END IF;
26527: END IF; --IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
26528:
26529: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
26530: --raise error
26531: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26532: fnd_msg_pub.ADD;
26533: l_progress := 'WMSINB-26309';
26534: RAISE fnd_api.g_exc_error;
26535: END IF;
26536:
26537: IF (Nvl(l_curr_status, 1) in (1,6)) THEN
26538: --validate and update the attributes.
26552: --raise error
26553: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26554: fnd_msg_pub.ADD;
26555: l_progress := 'WMSINB-26315';
26556: RAISE fnd_api.g_exc_error;
26557: END IF;
26558: END IF; --IF (Nvl(l_curr_status, 1) = 1) THEN
26559:
26560: --UPDATE GROUP_MARK_ID TO -7937
26562: --raise error
26563: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26564: fnd_msg_pub.ADD;
26565: l_progress := 'WMSINB-26318';
26566: RAISE fnd_api.g_exc_error;
26567: END IF;
26568: END IF; --IF (l_parent_txn_type <> 'DELIVER') THEN
26569: END IF; --IF (l_parent_txn_type IN (g_rtv,g_rtc)) THEN
26570: END LOOP; -- FOR 1..L_SERIAL_QUANTITY
26577: --raise error
26578: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
26579: fnd_msg_pub.ADD;
26580: l_progress := 'WMSINB-26333';
26581: RAISE fnd_api.g_exc_error;
26582: END IF;
26583: ELSE
26584: IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
26585: IF (l_grand_parent_txn_type = 'DELIVER') THEN
26584: IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
26585: IF (l_grand_parent_txn_type = 'DELIVER') THEN
26586: --raise an error
26587: l_progress := 'WMSINB-26340';
26588: RAISE fnd_api.g_exc_error;
26589: ELSE --IF (l_grand_parent_txn_type = 'DELIVER') THEN
26590: IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
26591: --raise on error
26592: l_progress := 'WMSINB-26345';
26589: ELSE --IF (l_grand_parent_txn_type = 'DELIVER') THEN
26590: IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
26591: --raise on error
26592: l_progress := 'WMSINB-26345';
26593: RAISE fnd_api.g_exc_error;
26594: END IF;
26595: END IF; --IF (l_grand_parent_txn_type = 'DELIVER') THEN
26596: ELSE --IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
26597: IF (l_parent_txn_type = 'DELIVER') THEN
26599: OR (l_serial_number_control_code = 6
26600: AND l_source_document_code = 'RMA')) THEN
26601: --raise an error
26602: l_progress := 'WMSINB-26352';
26603: RAISE fnd_api.g_exc_error;
26604: END IF;
26605: ELSE
26606: IF (serial_entered_on_parent(l_parent_transaction_id)) THEN
26607: --raise an error
26605: ELSE
26606: IF (serial_entered_on_parent(l_parent_transaction_id)) THEN
26607: --raise an error
26608: l_progress := 'WMSINB-26357';
26609: RAISE fnd_api.g_exc_error;
26610: END IF;
26611: END IF; --IF (l_parent_txn_type = 'DELIVER') THEN
26612: END IF; --IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
26613: END IF; --IF (l_num_msnt_recs > 0) THEN
26750: IF (l_grand_parent_txn_type <> 'DELIVER') THEN
26751: IF NOT (lot_entered_on_parent(l_grand_parent_txn_id)) THEN
26752: --raise an error
26753: l_progress := 'WMSINB-26393';
26754: RAISE fnd_api.g_exc_error;
26755: END IF; --IF NOT (lot_entered_on_parent(l_grand_parent_txn_id))
26756: END IF; --IF (l_grand_parent_txn_type <> 'DELIVER') THEN
26757: ELSE --IF (l_parent_txn_type IN (g_rtv,g_rtr,g_rtc)) THEN
26758: IF (l_parent_txn_type <> 'DELIVER') THEN
26759: IF (validate_rs(NULL,l_parent_transaction_id,l_dummy_lpn)) THEN
26760: IF NOT (lot_entered_on_parent(l_parent_transaction_id)) THEN
26761: --raise an error
26762: l_progress := 'WMSINB-26402';
26763: RAISE fnd_api.g_exc_error;
26764: END IF;
26765: END IF;
26766: END IF; --IF (l_parent_txn_type <> 'DELIVER') THEN
26767: END IF; --IF (l_parent_txn_type IN (g_rtv,g_rtr,g_rtc)) THEN
26821:
26822: IF (l_mtlt_rec.primary_quantity > l_rls_primary_quantity) THEN
26823: --raise error
26824: l_progress := 'WMSINB-26454';
26825: RAISE fnd_api.g_exc_error;
26826: END IF;
26827: EXCEPTION
26828: WHEN no_data_found THEN
26829: --raise error
26827: EXCEPTION
26828: WHEN no_data_found THEN
26829: --raise error
26830: l_progress := 'WMSINB-26460';
26831: RAISE fnd_api.g_exc_error;
26832: END;
26833:
26834: -- opm change bug# 3061052
26835: /*IF (NOT l_discrete_transaction) THEN
26833:
26834: -- opm change bug# 3061052
26835: /*IF (NOT l_discrete_transaction) THEN
26836: gml_opm_roi_grp.validate_opm_lot(p_api_version => 1.0,
26837: p_init_msg_lst => FND_API.G_FALSE,
26838: p_mtlt_rowid => l_mtlt_rec.rowid,
26839: p_new_lot => 'N',
26840: p_opm_item_id => l_opm_item_id,
26841: p_item_no => l_item_no,
26856: x_return_status => x_return_status
26857: ,x_msg_data => x_msg_data
26858: ,x_msg_count => x_msg_count
26859: ,p_api_version => 1.0
26860: ,p_init_msg_lst => FND_API.G_FALSE
26861: ,p_mtlt_rowid => L_MTLT_REC.ROWID
26862: ,p_transaction_type_id => l_transaction_type_id
26863: ,p_new_lot => 'N'
26864: ,p_item_id => l_item_id
26890:
26891: IF X_RETURN_STATUS <> 'S' THEN
26892: --RAISE ERROR
26893: l_progress := 'WMSINB-26483';
26894: RAISE fnd_api.g_exc_error;
26895: END IF;
26896:
26897: IF (l_debug = 1) THEN
26898: print_debug('VALIDATE_LOT_SERIAL_INFO: VALIDATE_OPM_LOT STATUS: '||x_return_status||' : '||l_progress, 1);
26904: IF L_MTLT_REC.parent_lot_number IS NOT NULL THEN
26905: IF L_MTLT_REC.parent_lot_number <> l_parent_lot_number THEN
26906: fnd_message.set_name ('INV' , 'INV_CL_PARENT_INVALID' );
26907: fnd_msg_pub.ADD;
26908: RAISE fnd_api.g_exc_error;
26909: END IF;
26910: ELSE
26911: L_MTLT_REC.parent_lot_number := l_parent_lot_number;
26912: END IF;
26937: P_STATUS_ID => NULL);
26938: IF X_RETURN_STATUS <> 'S' THEN
26939: --RAISE an ERROR
26940: l_progress := 'WMSINB-26517';
26941: RAISE fnd_api.g_exc_error;
26942: END IF;
26943:
26944: IF (l_debug = 1) THEN
26945: print_debug('VALIDATE_LOT_SERIAL_INFO: LOT MATERIAL VALIDATION STATUS: '||L_VALIDATION_STATUS||' : '||l_progress, 1);
26948:
26949: IF L_VALIDATION_STATUS <> 'Y' THEN
26950: --RAISE an ERROR
26951: l_progress := 'WMSINB-26528';
26952: RAISE fnd_api.g_exc_error;
26953: END IF;
26954:
26955: /*ELSE --IF (l_discrete_transaction) THEN
26956: gml_opm_roi_grp.validate_opm_lot(p_api_version => 1.0,
26953: END IF;
26954:
26955: /*ELSE --IF (l_discrete_transaction) THEN
26956: gml_opm_roi_grp.validate_opm_lot(p_api_version => 1.0,
26957: p_init_msg_lst => FND_API.G_FALSE,
26958: p_mtlt_rowid => l_mtlt_rec.rowid,
26959: p_new_lot => 'N',
26960: p_opm_item_id => l_opm_item_id,
26961: p_item_no => l_item_no,
26975: x_return_status => x_return_status
26976: ,x_msg_data => x_msg_data
26977: ,x_msg_count => x_msg_count
26978: ,p_api_version => 1.0
26979: ,p_init_msg_lst => FND_API.G_FALSE
26980: ,p_mtlt_rowid => L_MTLT_REC.ROWID
26981: ,p_transaction_type_id => l_transaction_type_id
26982: ,p_new_lot => 'N'
26983: ,p_item_id => l_item_id
27009:
27010: IF X_RETURN_STATUS <> 'S' THEN
27011: --RAISE ERROR
27012: l_progress := 'WMSINB-26549';
27013: RAISE fnd_api.g_exc_error;
27014: END IF;
27015:
27016: IF (l_debug = 1) THEN
27017: print_debug('VALIDATE_LOT_SERIAL_INFO: INV_VALIDATE_LOT STATUS: '||x_return_status||' : '||l_progress, 1);
27019: /*END IF; -- IF (l_discrete_transaction) THEN */
27020: ELSE --IF (l_lot_exists = 1) THEN
27021: --raise an error
27022: l_progress := 'WMSINB-26560';
27023: RAISE fnd_api.g_exc_error;
27024: END IF; --IF (l_lot_exists = 1) THEN
27025: END IF; --IF (l_grand_parent_txn_type <> 'DELIVER') THEN
27026: ELSE --IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
27027: IF (l_parent_txn_type <> 'RECEIVE') THEN
27042:
27043: IF (l_mtlt_rec.primary_quantity > l_rls_primary_quantity) THEN
27044: --raise error
27045: l_progress := 'WMSINB-26579';
27046: RAISE fnd_api.g_exc_error;
27047: END IF;
27048: EXCEPTION
27049: WHEN no_data_found THEN
27050: --raise error
27048: EXCEPTION
27049: WHEN no_data_found THEN
27050: --raise error
27051: l_progress := 'WMSINB-26585';
27052: RAISE fnd_api.g_exc_error;
27053: END;
27054: END IF; --IF (lot_entered_on_parent(l_grand_parent_txn_id)) THEN
27055: ELSE --IF (l_parent_txn_type <> 'RECEIVE') THEN
27056: /* INVCONV , remove OPM specific fork , Punit Kumar*/
27083: IF ((abs(l_mtlt_rec.primary_quantity - l_rls_primary_quantity) > 0.00005 )
27084: AND (l_mtlt_rec.primary_quantity > l_rls_primary_quantity)) THEN --Bug: 14092221
27085: --RAISE ERROR
27086: l_progress := 'WMSINB-26617';
27087: RAISE fnd_api.g_exc_error;
27088: END IF;
27089: EXCEPTION
27090: WHEN NO_DATA_FOUND THEN
27091: --RAISE ERROR
27089: EXCEPTION
27090: WHEN NO_DATA_FOUND THEN
27091: --RAISE ERROR
27092: l_progress := 'WMSINB-26623';
27093: RAISE fnd_api.g_exc_error;
27094: END;
27095: END IF; --IF (L_FROM_ORG_LOT_CTRL = 2) THEN
27096: END IF; --IF (L_SOURCE_DOCUMENT_CODE IN ('INVENTORY', 'REQ')) THEN
27097: /* END IF; -- IF (l_discrete_transaction) THEN*/
27122: P_STATUS_ID => NULL);
27123: IF X_RETURN_STATUS <> 'S' THEN
27124: --RAISE an ERROR
27125: l_progress := 'WMSINB-26656';
27126: RAISE fnd_api.g_exc_error;
27127: END IF;
27128:
27129: IF (l_debug = 1) THEN
27130: print_debug('VALIDATE_LOT_SERIAL_INFO: LOT MATERIAL VALIDATION STATUS: '||L_VALIDATION_STATUS||' : '||l_progress, 1);
27133:
27134: IF L_VALIDATION_STATUS <> 'Y' THEN
27135: --RAISE an ERROR
27136: l_progress := 'WMSINB-26667';
27137: RAISE fnd_api.g_exc_error;
27138: END IF;
27139:
27140: /*
27141: ELSE --IF (l_discrete_transaction) THEN
27141: ELSE --IF (l_discrete_transaction) THEN
27142: -- opm change bug# 3061052
27143:
27144: gml_opm_roi_grp.validate_opm_lot(p_api_version => 1.0,
27145: p_init_msg_lst => FND_API.G_FALSE,
27146: p_mtlt_rowid => l_mtlt_rec.rowid,
27147: p_new_lot => 'N',
27148: p_opm_item_id => l_opm_item_id,
27149: p_item_no => l_item_no,
27163: x_return_status => x_return_status
27164: ,x_msg_data => x_msg_data
27165: ,x_msg_count => x_msg_count
27166: ,p_api_version => 1.0
27167: ,p_init_msg_lst => FND_API.G_FALSE
27168: ,p_mtlt_rowid => L_MTLT_REC.ROWID
27169: ,p_transaction_type_id => l_transaction_type_id
27170: ,p_new_lot => 'N'
27171: ,p_item_id => l_item_id
27198:
27199: IF X_RETURN_STATUS <> 'S' THEN
27200: --RAISE ERROR
27201: l_progress := 'WMSINB-26690';
27202: RAISE fnd_api.g_exc_error;
27203: END IF;
27204:
27205: IF (l_debug = 1) THEN
27206: print_debug('VALIDATE_LOT_SERIAL_INFO: VALIDATE_OPM_LOT STATUS: '||x_return_status||' : '||l_progress, 1);
27227: x_return_status => x_return_status
27228: ,x_msg_data => x_msg_data
27229: ,x_msg_count => x_msg_count
27230: ,p_api_version => 1.0
27231: ,p_init_msg_lst => FND_API.G_FALSE
27232: ,p_mtlt_rowid => L_MTLT_REC.ROWID
27233: ,p_transaction_type_id => l_transaction_type_id
27234: ,p_new_lot => 'Y'
27235: ,p_item_id => l_item_id
27261:
27262: IF (x_return_status <> 'S') THEN
27263: --raise error
27264: l_progress := 'WMSINB-26790';
27265: RAISE fnd_api.g_exc_error;
27266: END IF;
27267:
27268: /*INVCONV ,*/
27269: IF (l_debug = 1) THEN
27274: x_return_status => x_return_status
27275: ,x_msg_count => x_msg_count
27276: ,x_msg_data => x_msg_data
27277: ,p_api_version => 1.0
27278: ,p_init_msg_lst => FND_API.G_FALSE
27279: ,p_source_document_code => L_SOURCE_DOCUMENT_CODE
27280: ,p_item_id => l_item_id
27281: ,p_from_organization_id => L_FROM_ORG_ID
27282: ,p_to_organization_id => L_ORG_ID
27301:
27302: IF X_RETURN_STATUS <> 'S' THEN
27303: --RAISE ERROR
27304: l_progress := 'WMSINB-26817';
27305: RAISE fnd_api.g_exc_error;
27306: END IF;
27307:
27308: IF (l_debug = 1) THEN
27309: print_debug('VALIDATE_LOT_SERIAL_INFO: VALIDATE_OPM_LOT STATUS: '||x_return_status||' : '||l_progress, 1);
27488: IF (l_grand_parent_txn_type <> 'DELIVER') THEN
27489: IF NOT (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
27490: --raise an error
27491: l_progress := 'WMSINB-26915';
27492: RAISE fnd_api.g_exc_error;
27493: ELSE --IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
27494: BEGIN
27495: SELECT '1'
27496: INTO L_DUMMY
27502: --raise error
27503: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27504: fnd_msg_pub.ADD;
27505: l_progress := 'WMSINB-26931';
27506: RAISE fnd_api.g_exc_error;
27507: END IF;
27508:
27509: --Validate serial/group_mark_id to prevent
27510: --entering of duplicate serials
27513: --raise error
27514: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27515: fnd_msg_pub.ADD;
27516: l_progress := 'WMSINB-26942';
27517: RAISE fnd_api.g_exc_error;
27518: END IF;
27519:
27520: --UPDATE GROUP_MARK_ID TO -7937
27521: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
27522: --raise error
27523: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27524: fnd_msg_pub.ADD;
27525: l_progress := 'WMSINB-26951';
27526: RAISE fnd_api.g_exc_error;
27527: END IF;
27528: EXCEPTION
27529: WHEN NO_DATA_FOUND THEN
27530: -- RAISE ERROR
27530: -- RAISE ERROR
27531: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27532: fnd_msg_pub.ADD;
27533: l_progress := 'WMSINB-26959';
27534: RAISE fnd_api.g_exc_error;
27535: END;
27536: END IF; --IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
27537: ELSE --IF (l_grand_parent_txn_type <> 'DELIVER') THEN
27538: IF l_curr_org_id <> l_org_id THEN
27539: --raise error
27540: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27541: fnd_msg_pub.ADD;
27542: l_progress := 'WMSINB-26968';
27543: RAISE fnd_api.g_exc_error;
27544: ELSE
27545: IF
27546: ((l_curr_lot_num IS NOT NULL) AND (l_curr_lot_num <> l_mtlt_rec.lot_number)
27547: AND
27549: --raise error
27550: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27551: fnd_msg_pub.ADD;
27552: l_progress := 'WMSINB-26975';
27553: RAISE fnd_api.g_exc_error;
27554: END IF;
27555: END IF;
27556:
27557: IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
27559: --raise error
27560: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27561: fnd_msg_pub.ADD;
27562: l_progress := 'WMSINB-26985';
27563: RAISE fnd_api.g_exc_error;
27564: END IF;
27565: ELSE --IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
27566: IF (l_curr_status <> 3) THEN
27567: --raise error
27567: --raise error
27568: fnd_message.set_name('INV','INV_FAIL_VALIDATE_SERIAL');
27569: fnd_msg_pub.ADD;
27570: l_progress := 'WMSINB-26993';
27571: RAISE fnd_api.g_exc_error;
27572: END IF;
27573: END IF; --IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
27574:
27575: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
27576: --raise error
27577: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27578: fnd_msg_pub.ADD;
27579: l_progress := 'WMSINB-27002';
27580: RAISE fnd_api.g_exc_error;
27581: END IF;
27582:
27583: IF (Nvl(l_curr_status, 1) in (1,6)) THEN
27584: --validate and update the attributes.
27599: --raise error
27600: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27601: fnd_msg_pub.ADD;
27602: l_progress := 'WMSINB-27008';
27603: RAISE fnd_api.g_exc_error;
27604: END IF;
27605: END IF; --IF (Nvl(l_curr_status, 1) = 1) THEN
27606:
27607: --UPDATE GROUP_MARK_ID TO -7937
27609: --raise error
27610: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27611: fnd_msg_pub.ADD;
27612: l_progress := 'WMSINB-27011';
27613: RAISE fnd_api.g_exc_error;
27614: END IF;
27615: END IF; --IF (l_grand_parent_txn_type <> 'DELIVER') THEN
27616: ELSE --IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
27617: IF (l_parent_txn_type <> 'RECEIVE') THEN
27627: --raise error
27628: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27629: fnd_msg_pub.ADD;
27630: l_progress := 'WMSINB-27029';
27631: RAISE fnd_api.g_exc_error;
27632: END IF;
27633:
27634: --Validate serial/group_mark_id to prevent
27635: --entering of duplicate serials
27638: --raise error
27639: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27640: fnd_msg_pub.ADD;
27641: l_progress := 'WMSINB-27040';
27642: RAISE fnd_api.g_exc_error;
27643: END IF;
27644:
27645: --UPDATE GROUP_MARK_ID TO -7937
27646: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
27647: --raise error
27648: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27649: fnd_msg_pub.ADD;
27650: l_progress := 'WMSINB-27049';
27651: RAISE fnd_api.g_exc_error;
27652: END IF;
27653: EXCEPTION
27654: WHEN NO_DATA_FOUND THEN
27655: -- RAISE ERROR
27655: -- RAISE ERROR
27656: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27657: fnd_msg_pub.ADD;
27658: l_progress := 'WMSINB-27057';
27659: RAISE fnd_api.g_exc_error;
27660: END;
27661: ELSE --IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
27662: IF (l_serial_exists = 1) THEN
27663: IF l_curr_org_id <> l_org_id THEN
27664: --raise error
27665: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27666: fnd_msg_pub.ADD;
27667: l_progress := 'WMSINB-27066';
27668: RAISE fnd_api.g_exc_error;
27669: ELSE
27670: IF ((l_curr_lot_num IS NOT NULL) AND (l_curr_lot_num <> l_mtlt_rec.lot_number)
27671: AND (Nvl(l_curr_status,1) NOT IN (1,4))) THEN
27672: --raise error
27672: --raise error
27673: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27674: fnd_msg_pub.ADD;
27675: l_progress := 'WMSINB-27073';
27676: RAISE fnd_api.g_exc_error;
27677: END IF;
27678: END IF;
27679:
27680: /* Bug#6450814
27685: --raise error
27686: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27687: fnd_msg_pub.ADD;
27688: l_progress := 'WMSINB-27082';
27689: RAISE fnd_api.g_exc_error;
27690: END IF;
27691:
27692: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
27693: --raise error
27693: --raise error
27694: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27695: fnd_msg_pub.ADD;
27696: l_progress := 'WMSINB-27090';
27697: RAISE fnd_api.g_exc_error;
27698: END IF;
27699:
27700: IF (Nvl(l_curr_status, 1) in (1,6)) THEN
27701: --validate and update the attributes.
27716: --raise error
27717: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27718: fnd_msg_pub.ADD;
27719: l_progress := 'WMSINB-27095';
27720: RAISE fnd_api.g_exc_error;
27721: END IF;
27722: END IF; --IF (Nvl(l_curr_status, 1) = 1) THEN
27723:
27724: --UPDATE GROUP_MARK_ID TO -7937
27726: --raise error
27727: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27728: fnd_msg_pub.ADD;
27729: l_progress := 'WMSINB-27099';
27730: RAISE fnd_api.g_exc_error;
27731: END IF;
27732: ELSE --IF (l_serial_exists = 1) THEN
27733: IF l_serial_number_control_code = 5 THEN
27734: --PERFORM SERIAL VALIDATION FOR NEW SERIAL
27778: --raise error
27779: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27780: fnd_msg_pub.ADD;
27781: l_progress := 'WMSINB-27105';
27782: RAISE fnd_api.g_exc_error;
27783: END IF;
27784:
27785: --validate and update the attributes.
27786: inv_serial_number_pub.validate_update_serial_att
27800: --raise error
27801: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27802: fnd_msg_pub.ADD;
27803: l_progress := 'WMSINB-27145';
27804: RAISE fnd_api.g_exc_error;
27805: END IF;
27806:
27807: --UPDATE GROUP_MARK_ID TO -7937
27808: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
27809: --raise error
27810: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27811: fnd_msg_pub.ADD;
27812: l_progress := 'WMSINB-27152';
27813: RAISE fnd_api.g_exc_error;
27814: END IF;
27815: ELSE --IF l_serial_number_control_code = 5 THEN
27816: --raise error
27817: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27816: --raise error
27817: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27818: fnd_msg_pub.ADD;
27819: l_progress := 'WMSINB-27159';
27820: RAISE fnd_api.g_exc_error;
27821: END IF; --IF l_serial_number_control_code = 5 THEN
27822: END IF; --IF (l_serial_exists = 1) THEN
27823: END IF; --IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
27824: ELSE --IF (l_parent_txn_type <> 'RECEIVE') THEN
27841: --raise error
27842: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27843: fnd_msg_pub.ADD;
27844: l_progress := 'WMSINB-27180';
27845: RAISE fnd_api.g_exc_error;
27846: ELSE --IF l_curr_org_id <> l_from_org_id THEN
27847: IF ((l_curr_lot_num IS NOT NULL) AND
27848: (l_curr_lot_num <> l_mtlt_rec.lot_number)
27849: AND (Nvl(l_curr_status,1) NOT IN (1,4))) THEN
27850: --raise error
27851: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27852: fnd_msg_pub.ADD;
27853: l_progress := 'WMSINB-27188';
27854: RAISE fnd_api.g_exc_error;
27855: END IF;
27856: END IF; --IF l_curr_org_id <> l_from_org_id THEN
27857:
27858: BEGIN
27870: -- RAISE AN ERROR
27871: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27872: fnd_msg_pub.ADD;
27873: l_progress := 'WMSINB-27205';
27874: RAISE fnd_api.g_exc_error;
27875: END IF;
27876:
27877: EXCEPTION
27878: WHEN NO_DATA_FOUND THEN
27879: -- RAISE AN ERROR
27880: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27881: fnd_msg_pub.ADD;
27882: l_progress := 'WMSINB-27214';
27883: RAISE fnd_api.g_exc_error;
27884: END;
27885: ELSE --IF (L_FROM_ORG_SER_CRTL IN (2,5,6)) THEN
27886: IF l_curr_org_id <> l_org_id THEN
27887: --raise error
27887: --raise error
27888: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27889: fnd_msg_pub.ADD;
27890: l_progress := 'WMSINB-27222';
27891: RAISE fnd_api.g_exc_error;
27892: ELSE
27893: IF ((l_curr_lot_num IS NOT NULL) AND (l_curr_lot_num <> l_mtlt_rec.lot_number)
27894: AND (Nvl(l_curr_status,1) NOT IN (1,4))) THEN
27895: --raise error
27895: --raise error
27896: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27897: fnd_msg_pub.ADD;
27898: l_progress := 'WMSINB-27229';
27899: RAISE fnd_api.g_exc_error;
27900: END IF;
27901: END IF;
27902:
27903: IF l_curr_status NOT IN (1,6) THEN
27904: --raise error
27905: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27906: fnd_msg_pub.ADD;
27907: l_progress := 'WMSINB-27238';
27908: RAISE fnd_api.g_exc_error;
27909: END IF;
27910:
27911: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
27912: --raise error
27912: --raise error
27913: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27914: fnd_msg_pub.ADD;
27915: l_progress := 'WMSINB-27246';
27916: RAISE fnd_api.g_exc_error;
27917: END IF;
27918:
27919: IF (Nvl(l_curr_status, 1) in (1,6)) THEN
27920: --validate and update the attributes.
27935: --raise error
27936: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27937: fnd_msg_pub.ADD;
27938: l_progress := 'WMSINB-27251';
27939: RAISE fnd_api.g_exc_error;
27940: END IF;
27941: END IF; --IF (Nvl(l_curr_status, 1) = 1) THEN
27942:
27943: --UPDATE GROUP_MARK_ID TO -7937
27945: --raise error
27946: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27947: fnd_msg_pub.ADD;
27948: l_progress := 'WMSINB-27255';
27949: RAISE fnd_api.g_exc_error;
27950: END IF;
27951: END IF; --IF (L_FROM_ORG_SER_CRTL IN (2,5,6)) THEN
27952: ELSE --IF (L_SOURCE_DOCUMENT_CODE IN ('INVENTORY','REQ')) THEN
27953: IF l_curr_org_id <> l_org_id THEN
27954: --raise error
27955: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27956: fnd_msg_pub.ADD;
27957: l_progress := 'WMSINB-27264';
27958: RAISE fnd_api.g_exc_error;
27959: ELSE
27960: IF ((l_curr_lot_num IS NOT NULL) AND (l_curr_lot_num <> l_mtlt_rec.lot_number)
27961: AND (Nvl(l_curr_status,1) NOT IN (1,4))) THEN
27962: --raise error
27962: --raise error
27963: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27964: fnd_msg_pub.ADD;
27965: l_progress := 'WMSINB-27271';
27966: RAISE fnd_api.g_exc_error;
27967: END IF;
27968: END IF;
27969:
27970: IF l_curr_status NOT IN (1,4,6) THEN--Bug: 6450814
27971: --raise error
27972: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27973: fnd_msg_pub.ADD;
27974: l_progress := 'WMSINB-27280';
27975: RAISE fnd_api.g_exc_error;
27976: END IF;
27977:
27978: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
27979: --raise error
27979: --raise error
27980: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
27981: fnd_msg_pub.ADD;
27982: l_progress := 'WMSINB-27288';
27983: RAISE fnd_api.g_exc_error;
27984: END IF;
27985:
27986: IF (Nvl(l_curr_status, 1) in (1,6)) THEN
27987: --validate and update the attributes.
28002: --raise error
28003: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28004: fnd_msg_pub.ADD;
28005: l_progress := 'WMSINB-27294';
28006: RAISE fnd_api.g_exc_error;
28007: END IF;
28008: END IF; --IF (Nvl(l_curr_status, 1) = 1) THEN
28009:
28010: --UPDATE GROUP_MARK_ID TO -7937
28012: --raise error
28013: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28014: fnd_msg_pub.ADD;
28015: l_progress := 'WMSINB-27297';
28016: RAISE fnd_api.g_exc_error;
28017: END IF;
28018: END IF; --IF (L_SOURCE_DOCUMENT_CODE IN ('INVENTORY','REQ')) THEN
28019: ELSE --IF (l_serial_exists = 1) THEN
28020: IF (L_SOURCE_DOCUMENT_CODE IN ('INVENTORY','REQ')) THEN
28034: --raise error
28035: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28036: fnd_msg_pub.ADD;
28037: l_progress := 'WMSINB-27315';
28038: RAISE fnd_api.g_exc_error;
28039: END IF; --IF (L_FROM_ORG_SER_CRTL IN (2,5,6)) THEN
28040: END IF; --IF (L_SOURCE_DOCUMENT_CODE IN ('INVENTORY','REQ')) THEN
28041:
28042: IF l_serial_number_control_code = 5 THEN
28087: --raise error
28088: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28089: fnd_msg_pub.ADD;
28090: l_progress := 'WMSINB-27320';
28091: RAISE fnd_api.g_exc_error;
28092: END IF;
28093:
28094: --validate and update the attributes.
28095: inv_serial_number_pub.validate_update_serial_att
28109: --raise error
28110: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28111: fnd_msg_pub.ADD;
28112: l_progress := 'WMSINB-27360';
28113: RAISE fnd_api.g_exc_error;
28114: END IF;
28115:
28116: --UPDATE GROUP_MARK_ID TO -7937
28117: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
28118: --raise error
28119: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28120: fnd_msg_pub.ADD;
28121: l_progress := 'WMSINB-27369';
28122: RAISE fnd_api.g_exc_error;
28123: END IF;
28124: ELSE --IF l_serial_number_control_code = 5 THEN
28125: --raise error
28126: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28125: --raise error
28126: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28127: fnd_msg_pub.ADD;
28128: l_progress := 'WMSINB-27376';
28129: RAISE fnd_api.g_exc_error;
28130: END IF; --IF l_serial_number_control_code = 5 THEN
28131: END IF; --IF (l_serial_exists = 1) THEN
28132: END IF; --IF (l_parent_txn_type <> 'RECEIVE') THEN
28133: END IF; --IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
28141: --raise error
28142: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28143: fnd_msg_pub.ADD;
28144: l_progress := 'WMSINB-27392';
28145: RAISE fnd_api.g_exc_error;
28146: END IF;
28147: ELSE
28148: IF (l_serial_number_control_code IN (2,5)
28149: OR (l_serial_number_control_code = 6
28151: --raise error
28152: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28153: fnd_msg_pub.ADD;
28154: l_progress := 'WMSINB-27399';
28155: RAISE fnd_api.g_exc_error;
28156: END IF;
28157: END IF;
28158: END IF; -- IF (L_SERIAL_NUMBER_CONTROL_CODE IN (2,5,6)) THEN
28159: END LOOP; --FETCH C_MTLT INTO L_MTLT_REC;
28173: --raise error
28174: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28175: fnd_msg_pub.ADD;
28176: l_progress := 'WMSINB-27413';
28177: RAISE fnd_api.g_exc_error;
28178: END IF; -- Bug# 4225766
28179: END IF;
28180: ELSE
28181: IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
28181: IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
28182: IF (l_grand_parent_txn_type = 'DELIVER') THEN
28183: --raise an error
28184: l_progress := 'WMSINB-27420';
28185: RAISE fnd_api.g_exc_error;
28186: ELSE
28187: IF (lot_entered_on_parent(l_grand_parent_txn_id)) THEN
28188: --raise error;
28189: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28188: --raise error;
28189: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28190: fnd_msg_pub.ADD;
28191: l_progress := 'WMSINB-27427';
28192: RAISE fnd_api.g_exc_error;
28193: END IF;
28194: END IF; --IF (l_grand_parent_txn_type = 'DELIVER') THEN
28195: ELSE --IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
28196: IF (l_parent_txn_type <> 'DELIVER') THEN
28197: IF (validate_rs(NULL,l_parent_transaction_id,l_dummy_lpn)) THEN
28198: IF (lot_entered_on_parent(l_parent_transaction_id)) THEN
28199: --raise an error
28200: l_progress := 'WMSINB-27436';
28201: RAISE fnd_api.g_exc_error;
28202: END IF;
28203: ELSE --IF (validate_rs(NULL,l_parent_transaction_id,l_dummy_lpn)) THEN
28204: IF (l_parent_txn_type <> 'RECEIVE') THEN
28205: IF (lot_entered_on_parent(l_grand_parent_txn_id)) THEN
28204: IF (l_parent_txn_type <> 'RECEIVE') THEN
28205: IF (lot_entered_on_parent(l_grand_parent_txn_id)) THEN
28206: --raise an error
28207: l_progress := 'WMSINB-27443';
28208: RAISE fnd_api.g_exc_error;
28209: END IF;
28210: END IF;
28211: END IF; --IF (validate_rs(NULL,l_parent_transaction_id,l_dummy_lpn)) THEN
28212: ELSE --IF (l_parent_txn_type <> 'DELIVER') THEN
28211: END IF; --IF (validate_rs(NULL,l_parent_transaction_id,l_dummy_lpn)) THEN
28212: ELSE --IF (l_parent_txn_type <> 'DELIVER') THEN
28213: --raise an error
28214: l_progress := 'WMSINB-27450';
28215: RAISE fnd_api.g_exc_error;
28216: END IF; -- IF (l_parent_txn_type <> 'DELIVER') THEN
28217: END IF; --IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
28218: END IF; --IF (l_num_mtlt_recs > 0) THEN
28219: ELSIF (l_serial_number_control_code IN (2,5,6)) THEN --IF (l_lot_control_code = 2) THEN
28427: IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
28428: IF (l_grand_parent_txn_type <> 'DELIVER') THEN
28429: IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
28430: --raise an error
28431: RAISE fnd_api.g_exc_error;
28432: ELSE --IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
28433: BEGIN
28434: SELECT '1'
28435: INTO L_DUMMY
28441: --raise error
28442: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28443: fnd_msg_pub.ADD;
28444: l_progress := 'WMSINB-27557';
28445: RAISE fnd_api.g_exc_error;
28446: END IF;
28447:
28448: --Validate serial/group_mark_id to prevent
28449: --entering of duplicate serials
28452: --raise error
28453: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28454: fnd_msg_pub.ADD;
28455: l_progress := 'WMSINB-27568';
28456: RAISE fnd_api.g_exc_error;
28457: END IF;
28458:
28459: --UPDATE GROUP_MARK_ID TO -7937
28460: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
28461: --raise error
28462: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28463: fnd_msg_pub.ADD;
28464: l_progress := 'WMSINB-27577';
28465: RAISE fnd_api.g_exc_error;
28466: END IF;
28467: EXCEPTION
28468: WHEN NO_DATA_FOUND THEN
28469: -- RAISE ERROR
28469: -- RAISE ERROR
28470: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28471: fnd_msg_pub.ADD;
28472: l_progress := 'WMSINB-27585';
28473: RAISE fnd_api.g_exc_error;
28474: END;
28475: END IF; --IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
28476: ELSE --IF (l_grand_parent_txn_type <> 'DELIVER') THEN
28477: IF l_curr_org_id <> l_org_id THEN
28478: --raise error
28479: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28480: fnd_msg_pub.ADD;
28481: l_progress := 'WMSINB-27594';
28482: RAISE fnd_api.g_exc_error;
28483: ELSE
28484: IF (l_curr_lot_num IS NOT NULL) THEN
28485: --raise error
28486: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28485: --raise error
28486: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28487: fnd_msg_pub.ADD;
28488: l_progress := 'WMSINB-27601';
28489: RAISE fnd_api.g_exc_error;
28490: END IF;
28491: END IF;
28492:
28493: IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
28495: --raise error
28496: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28497: fnd_msg_pub.ADD;
28498: l_progress := 'WMSINB-27611';
28499: RAISE fnd_api.g_exc_error;
28500: END IF;
28501: ELSE --IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
28502: IF (l_curr_status <> 3) THEN
28503: --raise error
28503: --raise error
28504: fnd_message.set_name('INV','INV_FAIL_VALIDATE_SERIAL');
28505: fnd_msg_pub.ADD;
28506: l_progress := 'WMSINB-27619';
28507: RAISE fnd_api.g_exc_error;
28508: END IF;
28509: END IF; --IF (l_source_document_code = 'RMA' AND l_serial_number_control_code = 6) THEN
28510:
28511: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
28512: --raise error
28513: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28514: fnd_msg_pub.ADD;
28515: l_progress := 'WMSINB-27628';
28516: RAISE fnd_api.g_exc_error;
28517: END IF;
28518:
28519: IF (Nvl(l_curr_status, 1) in (1,6)) THEN
28520: --validate and update the attributes.
28535: --raise error
28536: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28537: fnd_msg_pub.ADD;
28538: l_progress := 'WMSINB-27634';
28539: RAISE fnd_api.g_exc_error;
28540: END IF;
28541: END IF; --IF (Nvl(l_curr_status, 1) = 1) THEN
28542:
28543: --UPDATE GROUP_MARK_ID TO -7937
28545: --raise error
28546: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28547: fnd_msg_pub.ADD;
28548: l_progress := 'WMSINB-27637';
28549: RAISE fnd_api.g_exc_error;
28550: END IF;
28551: END IF; --IF (l_grand_parent_txn_type <> 'DELIVER') THEN
28552: ELSE --IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
28553: IF (l_parent_txn_type <> 'RECEIVE') THEN
28563: --raise error
28564: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28565: fnd_msg_pub.ADD;
28566: l_progress := 'WMSINB-27655';
28567: RAISE fnd_api.g_exc_error;
28568: END IF;
28569:
28570: --Validate serial/group_mark_id to prevent
28571: --entering of duplicate serials
28574: --raise error
28575: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28576: fnd_msg_pub.ADD;
28577: l_progress := 'WMSINB-27666';
28578: RAISE fnd_api.g_exc_error;
28579: END IF;
28580:
28581: --UPDATE GROUP_MARK_ID TO -7937
28582: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
28583: --raise error
28584: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28585: fnd_msg_pub.ADD;
28586: l_progress := 'WMSINB-27675';
28587: RAISE fnd_api.g_exc_error;
28588: END IF;
28589: EXCEPTION
28590: WHEN NO_DATA_FOUND THEN
28591: -- RAISE ERROR
28591: -- RAISE ERROR
28592: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28593: fnd_msg_pub.ADD;
28594: l_progress := 'WMSINB-27683';
28595: RAISE fnd_api.g_exc_error;
28596: END;
28597: ELSE --IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
28598: IF (l_serial_exists = 1) THEN
28599: IF l_curr_org_id <> l_org_id THEN
28600: --raise error
28601: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28602: fnd_msg_pub.ADD;
28603: l_progress := 'WMSINB-27692';
28604: RAISE fnd_api.g_exc_error;
28605: ELSE
28606: IF (l_curr_lot_num IS NOT NULL) THEN
28607: --raise error
28608: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28607: --raise error
28608: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28609: fnd_msg_pub.ADD;
28610: l_progress := 'WMSINB-27699';
28611: RAISE fnd_api.g_exc_error;
28612: END IF;
28613: END IF;
28614:
28615: IF l_curr_status NOT IN (1,4,6) THEN -- Bug 6177465
28616: --raise error
28617: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28618: fnd_msg_pub.ADD;
28619: l_progress := 'WMSINB-27708';
28620: RAISE fnd_api.g_exc_error;
28621: END IF;
28622:
28623: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
28624: --raise error
28624: --raise error
28625: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28626: fnd_msg_pub.ADD;
28627: l_progress := 'WMSINB-27716';
28628: RAISE fnd_api.g_exc_error;
28629: END IF;
28630:
28631: IF (Nvl(l_curr_status, 1) in (1,6)) THEN
28632: --validate and update the attributes.
28647: --raise error
28648: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28649: fnd_msg_pub.ADD;
28650: l_progress := 'WMSINB-27721';
28651: RAISE fnd_api.g_exc_error;
28652: END IF;
28653: END IF; --IF (Nvl(l_curr_status, 1) = 1) THEN
28654:
28655: --UPDATE GROUP_MARK_ID TO -7937
28657: --raise error
28658: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28659: fnd_msg_pub.ADD;
28660: l_progress := 'WMSINB-27725';
28661: RAISE fnd_api.g_exc_error;
28662: END IF;
28663: ELSE --IF (l_serial_exists = 1) THEN
28664: IF l_serial_number_control_code = 5 THEN
28665: --PERFORM SERIAL VALIDATION FOR NEW SERIAL
28709: --raise error
28710: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28711: fnd_msg_pub.ADD;
28712: l_progress := 'WMSINB-27730';
28713: RAISE fnd_api.g_exc_error;
28714: END IF;
28715:
28716: --validate and update the attributes.
28717: inv_serial_number_pub.validate_update_serial_att
28731: --raise error
28732: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28733: fnd_msg_pub.ADD;
28734: l_progress := 'WMSINB-27770';
28735: RAISE fnd_api.g_exc_error;
28736: END IF;
28737:
28738: --UPDATE GROUP_MARK_ID TO -7937
28739: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
28740: --raise error
28741: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28742: fnd_msg_pub.ADD;
28743: l_progress := 'WMSINB-27778';
28744: RAISE fnd_api.g_exc_error;
28745: END IF;
28746: ELSE --IF l_serial_number_control_code = 5 THEN
28747: --raise error
28748: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28747: --raise error
28748: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28749: fnd_msg_pub.ADD;
28750: l_progress := 'WMSINB-27785';
28751: RAISE fnd_api.g_exc_error;
28752: END IF; --IF l_serial_number_control_code = 5 THEN
28753: END IF; --IF (l_serial_exists = 1) THEN
28754: END IF; --IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
28755: ELSE --IF (l_parent_txn_type <> 'RECEIVE') THEN
28771: --raise error
28772: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28773: fnd_msg_pub.ADD;
28774: l_progress := 'WMSINB-27806';
28775: RAISE fnd_api.g_exc_error;
28776: ELSE --IF l_curr_org_id <> l_from_org_id THEN
28777: IF (l_curr_lot_num IS NOT NULL) THEN
28778: --raise error
28779: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28778: --raise error
28779: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28780: fnd_msg_pub.ADD;
28781: l_progress := 'WMSINB-27813';
28782: RAISE fnd_api.g_exc_error;
28783: END IF;
28784: END IF; --IF l_curr_org_id <> l_from_org_id THEN
28785:
28786: BEGIN
28798: -- RAISE AN ERROR
28799: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28800: fnd_msg_pub.ADD;
28801: l_progress := 'WMSINB-27830';
28802: RAISE fnd_api.g_exc_error;
28803: END IF;
28804:
28805: EXCEPTION
28806: WHEN NO_DATA_FOUND THEN
28807: -- RAISE AN ERROR
28808: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28809: fnd_msg_pub.ADD;
28810: l_progress := 'WMSINB-27839';
28811: RAISE fnd_api.g_exc_error;
28812: END;
28813: ELSE --IF (L_FROM_ORG_SER_CRTL IN (2,5,6)) THEN
28814: IF l_curr_org_id <> l_org_id THEN
28815: --raise error
28815: --raise error
28816: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28817: fnd_msg_pub.ADD;
28818: l_progress := 'WMSINB-27847';
28819: RAISE fnd_api.g_exc_error;
28820: ELSE
28821: IF (l_curr_lot_num IS NOT NULL) THEN
28822: --raise error
28823: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28822: --raise error
28823: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28824: fnd_msg_pub.ADD;
28825: l_progress := 'WMSINB-27854';
28826: RAISE fnd_api.g_exc_error;
28827: END IF;
28828: END IF;
28829:
28830: IF l_curr_status NOT IN (1,6) THEN
28831: --raise error
28832: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28833: fnd_msg_pub.ADD;
28834: l_progress := 'WMSINB-27863';
28835: RAISE fnd_api.g_exc_error;
28836: END IF;
28837:
28838: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
28839: --raise error
28839: --raise error
28840: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28841: fnd_msg_pub.ADD;
28842: l_progress := 'WMSINB-27871';
28843: RAISE fnd_api.g_exc_error;
28844: END IF;
28845:
28846: IF (Nvl(l_curr_status, 1) in (1,6)) THEN
28847: --validate and update the attributes.
28862: --raise error
28863: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28864: fnd_msg_pub.ADD;
28865: l_progress := 'WMSINB-27876';
28866: RAISE fnd_api.g_exc_error;
28867: END IF;
28868: END IF; --IF (Nvl(l_curr_status, 1) = 1) THEN
28869:
28870: --UPDATE GROUP_MARK_ID TO -7937
28872: --raise error
28873: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28874: fnd_msg_pub.ADD;
28875: l_progress := 'WMSINB-27880';
28876: RAISE fnd_api.g_exc_error;
28877: END IF;
28878: END IF; --IF (L_FROM_ORG_SER_CRTL IN (2,5,6)) THEN
28879: ELSE --IF (L_SOURCE_DOCUMENT_CODE IN ('INVENTORY','REQ')) THEN
28880: IF l_curr_org_id <> l_org_id THEN
28881: --raise error
28882: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28883: fnd_msg_pub.ADD;
28884: l_progress := 'WMSINB-27889';
28885: RAISE fnd_api.g_exc_error;
28886: ELSE
28887: IF (l_curr_lot_num IS NOT NULL) THEN
28888: --raise error
28889: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28888: --raise error
28889: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28890: fnd_msg_pub.ADD;
28891: l_progress := 'WMSINB-27896';
28892: RAISE fnd_api.g_exc_error;
28893: END IF;
28894: END IF;
28895:
28896: IF l_curr_status NOT IN (1,4,6) THEN--Bug: 6450814
28897: --raise error
28898: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28899: fnd_msg_pub.ADD;
28900: l_progress := 'WMSINB-27905';
28901: RAISE fnd_api.g_exc_error;
28902: END IF;
28903:
28904: IF (Nvl(l_group_mark_id, -99) = -7937) THEN
28905: --raise error
28905: --raise error
28906: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28907: fnd_msg_pub.ADD;
28908: l_progress := 'WMSINB-27913';
28909: RAISE fnd_api.g_exc_error;
28910: END IF;
28911:
28912: IF (Nvl(l_curr_status, 1) in (1,6)) THEN
28913: --validate and update the attributes.
28928: --raise error
28929: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28930: fnd_msg_pub.ADD;
28931: l_progress := 'WMSINB-27918';
28932: RAISE fnd_api.g_exc_error;
28933: END IF;
28934: END IF; --IF (Nvl(l_curr_status, 1) = 1) THEN
28935:
28936: --UPDATE GROUP_MARK_ID TO -7937
28938: --raise error
28939: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28940: fnd_msg_pub.ADD;
28941: l_progress := 'WMSINB-27922';
28942: RAISE fnd_api.g_exc_error;
28943: END IF;
28944: END IF; --IF (L_SOURCE_DOCUMENT_CODE IN ('INVENTORY','REQ')) THEN
28945: ELSE --IF (l_serial_exists = 1) THEN
28946: IF (L_SOURCE_DOCUMENT_CODE IN ('INVENTORY','REQ')) THEN
28961: --raise error
28962: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
28963: fnd_msg_pub.ADD;
28964: l_progress := 'WMSINB-27940';
28965: RAISE fnd_api.g_exc_error;
28966: END IF; --IF (L_FROM_ORG_SER_CRTL IN (2,5,6)) THEN
28967: END IF; --IF (L_SOURCE_DOCUMENT_CODE IN ('INVENTORY','REQ')) THEN
28968:
28969: IF l_serial_number_control_code = 5 THEN
29014: --raise error
29015: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
29016: fnd_msg_pub.ADD;
29017: l_progress := 'WMSINB-27950';
29018: RAISE fnd_api.g_exc_error;
29019: END IF;
29020:
29021: --validate and update the attributes.
29022: inv_serial_number_pub.validate_update_serial_att
29036: --raise error
29037: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
29038: fnd_msg_pub.ADD;
29039: l_progress := 'WMSINB-27985';
29040: RAISE fnd_api.g_exc_error;
29041: END IF;
29042:
29043: --UPDATE GROUP_MARK_ID TO -7937
29044: IF NOT (update_group_mark_id(l_item_id,l_serial_number)) THEN
29045: --raise error
29046: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
29047: fnd_msg_pub.ADD;
29048: l_progress := 'WMSINB-27994';
29049: RAISE fnd_api.g_exc_error;
29050: END IF;
29051: ELSE --IF l_serial_number_control_code = 5 THEN
29052: --raise error
29053: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
29052: --raise error
29053: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
29054: fnd_msg_pub.ADD;
29055: l_progress := 'WMSINB-28001';
29056: RAISE fnd_api.g_exc_error;
29057: END IF; --IF l_serial_number_control_code = 5 THEN
29058: END IF; --IF (l_serial_exists = 1) THEN
29059: END IF; --IF (l_parent_txn_type <> 'RECEIVE') THEN
29060: END IF; --IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
29068: --raise error
29069: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
29070: fnd_msg_pub.ADD;
29071: l_progress := 'WMSINB-28017';
29072: RAISE fnd_api.g_exc_error;
29073: END IF;
29074: ELSE --IF (l_num_msnt_recs > 0) THEN
29075: IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
29076: IF (l_grand_parent_txn_type <> 'DELIVER') THEN
29078: --raise an error
29079: fnd_message.set_name('INV' , 'INV_FAIL_VALIDATE_SERIAL');
29080: fnd_msg_pub.ADD;
29081: l_progress := 'WMSINB-28027';
29082: RAISE fnd_api.g_exc_error;
29083: END IF; --IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
29084: ELSE --IF (l_grand_parent_txn_type <> 'DELIVER') THEN
29085: --raise an error
29086: fnd_message.set_name('INV' , 'INV_FAIL_VALIDATE_SERIAL');
29085: --raise an error
29086: fnd_message.set_name('INV' , 'INV_FAIL_VALIDATE_SERIAL');
29087: fnd_msg_pub.ADD;
29088: l_progress := 'WMSINB-28034';
29089: RAISE fnd_api.g_exc_error;
29090: END IF; --IF (l_grand_parent_txn_type <> 'DELIVER') THEN
29091: ELSE --IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
29092: IF (l_parent_txn_type <> 'DELIVER') THEN
29093: IF (validate_rs(NULL,l_parent_transaction_id,l_dummy_lpn)) THEN
29095: --raise an error
29096: fnd_message.set_name('INV' , 'INV_FAIL_VALIDATE_SERIAL');
29097: fnd_msg_pub.ADD;
29098: l_progress := 'WMSINB-28044';
29099: RAISE fnd_api.g_exc_error;
29100: END IF; --IF (serial_entered_on_parent(l_parent_transaction_id)) THEN
29101: ELSE --IF (validate_rs(NULL,l_parent_transaction_id,l_dummy_lpn)) THEN
29102: IF (l_parent_txn_type <> 'RECEIVE') THEN
29103: IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
29104: --raise an error
29105: fnd_message.set_name('INV' , 'INV_FAIL_VALIDATE_SERIAL');
29106: fnd_msg_pub.ADD;
29107: l_progress := 'WMSINB-28053';
29108: RAISE fnd_api.g_exc_error;
29109: END IF; --IF (serial_entered_on_parent(l_grand_parent_txn_id)) THEN
29110: END IF; --IF (l_parent_txn_type <> 'RECEIVE') THEN
29111: END IF; --IF (validate_rs(NULL,l_parent_transaction_id,l_dummy_lpn)) THEN
29112: ELSE --IF (l_parent_txn_type <> 'DELIVER') THEN
29116: --raise error
29117: fnd_message.set_name ('INV' , 'INV_FAIL_VALIDATE_SERIAL' );
29118: fnd_msg_pub.ADD;
29119: l_progress := 'WMSINB-28062';
29120: RAISE fnd_api.g_exc_error;
29121: END IF;
29122: END IF; --IF (l_parent_txn_type <> 'DELIVER') THEN
29123: END IF; --IF (l_parent_txn_type IN (g_rtv,g_rtc,g_rtr)) THEN
29124: END IF; --IF (l_num_msnt_recs > 0) THEN
29131: print_debug('VALIDATE_LOT_SERIAL_INFO:Completed succesfully!',1);
29132: END IF;
29133:
29134: EXCEPTION
29135: WHEN fnd_api.g_exc_error THEN
29136: x_return_status := g_ret_sts_error;
29137: IF (l_debug = 1) THEN
29138: print_debug('Exitting VALIDATE_LOT_SERIAL_INFO - execution error:'||TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')||':'||l_progress, 1);
29139: print_stacked_messages;
29138: print_debug('Exitting VALIDATE_LOT_SERIAL_INFO - execution error:'||TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')||':'||l_progress, 1);
29139: print_stacked_messages;
29140: END IF;
29141: x_msg_data := l_progress;
29142: WHEN fnd_api.g_exc_unexpected_error THEN
29143: x_return_status := g_ret_sts_unexp_error;
29144: IF (l_debug = 1) THEN
29145: print_debug('Exitting VALIDATE_LOT_SERIAL_INFO - unexpected error:'||TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')||':'||l_progress, 1);
29146: print_stacked_messages;
29326: END IF ;
29327: CLOSE c_validate_loaded_lpn;
29328:
29329: EXCEPTION
29330: WHEN fnd_api.g_exc_error THEN
29331: x_return_status := g_ret_sts_error;
29332: IF (l_debug = 1) THEN
29333: print_debug('VALIDATE_LPN - Execution Error:'|| l_progress || ':' ||SQLCODE, 1);
29334: print_stacked_messages;