[Home] [Help]
79: IF l_count_child_rec = 0 AND p_qty_disc_flag <> 0 THEN
80: IF (l_debug = 1) THEN
81: trace('Error: qty discrepancy and no child rec found');
82: END IF;
83: RAISE FND_API.G_EXC_ERROR;
84: END IF;
85:
86: --make sure that the sum of lot_qty is equal to the transaction_quantiy
87: IF l_count_child_rec <> 0 AND p_transaction_quantity IS NOT NULL
88: AND p_transaction_quantity <> l_total_lot_qty THEN
89: IF (l_debug = 1) THEN
90: trace('Error: Total lot_qty is greater than transaction_quantity');
91: END IF;
92: RAISE FND_API.G_EXC_ERROR;
93:
94: END IF;
95:
96: FOR l_child_rec IN child_rec_cursor LOOP--child records
116: trace('Invalid Lot:Allocated Lot is not chosen or qty is greater');
117: END IF;
118: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_LOT');
119: FND_MSG_PUB.ADD;
120: RAISE FND_API.G_EXC_ERROR;
121: END IF;
122: ELSIF p_error_on_lot_serial_null = 'Y' THEN--l_rec.LOT_NUMBER is null
123: IF (l_debug = 1) THEN
124: trace('Erroring out:Lot info NOT provided in child record');
124: trace('Erroring out:Lot info NOT provided in child record');
125: END IF;
126: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_LOT');
127: FND_MSG_PUB.ADD;
128: RAISE FND_API.G_EXC_ERROR;
129: END IF;
130:
131: /* -- Serial Not supported, Will be done later
132: IF (l_serial_code >1 AND l_serial_code<>6) THEN --both lot and serial controlled
145: trace('Invalid Serial:Either allocate_serial_flag IS off FOR the org OR Allocated Serial is not chosen');
146: END IF;
147: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_SER');
148: FND_MSG_PUB.ADD;
149: RAISE FND_API.G_EXC_ERROR;
150: END IF;
151: ELSIF p_error_on_lot_serial_null = 'Y' THEN --l_child_rec.serial_number IS NULL
152: IF (l_debug = 1) THEN
153: trace('Erroring out:serial info NOT provided in child record');
153: trace('Erroring out:serial info NOT provided in child record');
154: END IF;
155: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_SER');
156: FND_MSG_PUB.ADD;
157: RAISE FND_API.G_EXC_ERROR;
158: END IF;
159: END IF;
160:
161: ELSIF (l_serial_code >1 AND l_serial_code<>6) THEN --serial controlled only
172: trace('Invalid Serial:Either allocate_serial_flag IS off FOR the org OR Allocated Serial is not chosen');
173: END IF;
174: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_SER');
175: FND_MSG_PUB.ADD;
176: RAISE FND_API.G_EXC_ERROR;
177: END IF;
178: ELSIF p_error_on_lot_serial_null = 'Y' THEN --l_child_rec.serial_number IS NULL
179: IF (l_debug = 1) THEN
180: trace('Erroring out:serial info NOT provided in child record');
180: trace('Erroring out:serial info NOT provided in child record');
181: END IF;
182: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_SER');
183: FND_MSG_PUB.ADD;
184: RAISE FND_API.G_EXC_ERROR;
185: END IF;
186:
187: */
188:
190: END IF;--means LOT CONTROLED
191:
192: END LOOP;--for child records
193:
194: x_return_status:=FND_API.G_RET_STS_SUCCESS;
195:
196: EXCEPTION
197: WHEN FND_API.g_exc_error THEN
198: x_return_status := FND_API.G_RET_STS_ERROR;
193:
194: x_return_status:=FND_API.G_RET_STS_SUCCESS;
195:
196: EXCEPTION
197: WHEN FND_API.g_exc_error THEN
198: x_return_status := FND_API.G_RET_STS_ERROR;
199:
200: WHEN OTHERS THEN
201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
194: x_return_status:=FND_API.G_RET_STS_SUCCESS;
195:
196: EXCEPTION
197: WHEN FND_API.g_exc_error THEN
198: x_return_status := FND_API.G_RET_STS_ERROR;
199:
200: WHEN OTHERS THEN
201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
202:
197: WHEN FND_API.g_exc_error THEN
198: x_return_status := FND_API.G_RET_STS_ERROR;
199:
200: WHEN OTHERS THEN
201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
202:
203: END validate_child_record;
204:
205: ---************
573: END IF;
574:
575: l_lpn_qty := p_qty;
576:
577: x_return_status:= FND_API.G_RET_STS_SUCCESS;
578:
579: l_lpn_exists := 0;
580:
581: --clear the PL/SQL table each time come in
599: trace('lpn_match: lpn does not exist in org');
600: END IF;
601: FND_MESSAGE.SET_NAME('WMS','WMS_CONT_INVALID_LPN');
602: FND_MSG_PUB.ADD;
603: RAISE FND_API.G_EXC_ERROR;
604: END;
605:
606: IF l_lpn_exists = 0 OR
607: p_lpn = 0 OR
611: trace('lpn_match: lpn does not exist in org');
612: END IF;
613: FND_MESSAGE.SET_NAME('WMS','WMS_CONT_INVALID_LPN');
614: FND_MSG_PUB.ADD;
615: RAISE FND_API.G_EXC_ERROR;
616:
617: END IF;
618:
619: IF (l_debug = 1) THEN
648:
649: x_match := 7;
650: FND_MESSAGE.SET_NAME('WMS','WMS_LOADED_ERROR');
651: FND_MSG_PUB.ADD;
652: RAISE FND_API.G_EXC_ERROR;
653:
654: END IF;
655:
656: -- Check if locator is valid
684:
685: x_match := 10;
686: FND_MESSAGE.SET_NAME('WMS','WMS_CONT_INVALID_SUB');
687: FND_MSG_PUB.ADD;
688: RAISE FND_API.G_EXC_ERROR;
689:
690: END IF;
691:
692: -- bug 2398247
701: IF l_sub_active = 0 THEN
702: x_match := 10;
703: FND_MESSAGE.SET_NAME('WMS','WMS_CONT_INVALID_SUB');
704: FND_MSG_PUB.ADD;
705: RAISE FND_API.G_EXC_ERROR;
706: END IF;
707:
708: -- verify if locator is active
709: SELECT COUNT(*)
718:
719: x_match := 10;
720: FND_MESSAGE.SET_NAME('WMS','WMS_CONT_INVALID_LOC');
721: FND_MSG_PUB.ADD;
722: RAISE FND_API.G_EXC_ERROR;
723:
724: END IF;
725:
726: x_sub := l_sub;
732: WHEN NO_DATA_FOUND THEN
733: x_match := 6;
734: FND_MESSAGE.SET_NAME('WMS','WMS_TD_LPN_LOC_NOT_FOUND');
735: FND_MSG_PUB.ADD;
736: RAISE FND_API.G_EXC_ERROR;
737:
738: END;
739:
740: IF (l_debug = 1) THEN
772:
773: x_match := 12;
774: FND_MESSAGE.SET_NAME('WMS','WMS_LPN_STAGED');
775: FND_MSG_PUB.ADD;
776: RAISE FND_API.G_EXC_ERROR;
777:
778: END IF;
779:
780: SELECT
827: END IF;
828: x_match := 5;
829: FND_MESSAGE.SET_NAME('WMS','WMS_CONT_INVALID_LPN');
830: FND_MSG_PUB.ADD;
831: RAISE FND_API.G_EXC_ERROR;
832:
833: END;
834:
835: IF l_item_cnt > 0 AND l_lot_code > 1 THEN
859: END IF;
860: x_match := 5;
861: FND_MESSAGE.SET_NAME('WMS','WMS_CONT_INVALID_LOT_LPN');
862: FND_MSG_PUB.ADD;
863: RAISE FND_API.G_EXC_ERROR;
864:
865: END;
866:
867: END IF;
908: trace ('lpn_match: transaction does not exist in mmtt');
909: END IF;
910: FND_MESSAGE.SET_NAME('INV','INV_INVALID_TRANSACTION');
911: FND_MSG_PUB.ADD;
912: RAISE FND_API.G_EXC_ERROR;
913: END;
914:
915: -- clear quantity cache before we create qty tree.
916: inv_quantity_tree_pub.clear_quantity_cache;
988: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
989: -- in order to get correct att.
990: inv_quantity_tree_pub.update_quantities
991: ( p_api_version_number => 1.0
992: , p_init_msg_lst => fnd_api.g_false
993: , x_return_status => l_return_status
994: , x_msg_count => l_msg_cnt
995: , x_msg_data => l_msg_data
996: , p_organization_id => p_org_id
1013: , x_atr => l_atr
1014: , p_lpn_id => p_lpn
1015: , p_transfer_subinventory_code => l_xfr_sub_code
1016: );
1017: IF (l_return_status = fnd_api.g_ret_sts_success ) THEN
1018: IF (l_debug = 1) THEN
1019: trace('lpn_match: after update qty tree for lpn l_att:' || l_att||' for lot:'||l_mtlt_lot_number);
1020: END IF;
1021: ELSE
1024: END IF;
1025: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1026: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1027: FND_MSG_PUB.ADD;
1028: RAISE FND_API.G_EXC_ERROR;
1029: END IF;
1030: ELSE
1031: inv_quantity_tree_pub.update_quantities
1032: ( p_api_version_number => 1.0
1029: END IF;
1030: ELSE
1031: inv_quantity_tree_pub.update_quantities
1032: ( p_api_version_number => 1.0
1033: , p_init_msg_lst => fnd_api.g_false
1034: , x_return_status => l_return_status
1035: , x_msg_count => l_msg_cnt
1036: , x_msg_data => l_msg_data
1037: , p_organization_id => p_org_id
1054: , x_atr => l_atr
1055: -- , p_lpn_id => p_lpn withour lpn_id, only to locator level
1056: , p_transfer_subinventory_code => l_xfr_sub_code
1057: );
1058: IF (l_return_status = fnd_api.g_ret_sts_success ) THEN
1059: IF (l_debug = 1) THEN
1060: trace('lpn_match: after update qty tree without lpn l_att:' || l_att||' for lot:'||l_mtlt_lot_number);
1061: END IF;
1062: ELSE
1065: END IF;
1066: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1067: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1068: FND_MSG_PUB.ADD;
1069: RAISE FND_API.G_EXC_ERROR;
1070: END IF;
1071:
1072: END IF;
1073:
1072: END IF;
1073:
1074: inv_quantity_tree_pub.query_quantities
1075: ( p_api_version_number => 1.0
1076: , p_init_msg_lst => fnd_api.g_false
1077: , x_return_status => l_return_status
1078: , x_msg_count => l_msg_cnt
1079: , x_msg_data => l_msg_data
1080: , p_organization_id => p_org_id
1097: , p_lpn_id => p_lpn
1098: , p_transfer_subinventory_code => l_xfr_sub_code
1099: );
1100:
1101: IF (l_return_status = fnd_api.g_ret_sts_success ) THEN
1102:
1103: IF (l_att > 0) THEN
1104:
1105: l_table_index := l_table_index + 1;
1146: END IF;
1147: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1148: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1149: FND_MSG_PUB.ADD;
1150: RAISE FND_API.G_EXC_ERROR;
1151:
1152: END IF;
1153:
1154: IF nvl(l_allocated_lpn_id, 0) = p_lpn THEN
1155: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
1156: -- in order to get correct att.
1157: inv_quantity_tree_pub.update_quantities
1158: ( p_api_version_number => 1.0
1159: , p_init_msg_lst => fnd_api.g_false
1160: , x_return_status => l_return_status
1161: , x_msg_count => l_msg_cnt
1162: , x_msg_data => l_msg_data
1163: , p_organization_id => p_org_id
1180: , x_atr => l_atr
1181: , p_lpn_id => p_lpn
1182: , p_transfer_subinventory_code => l_xfr_sub_code
1183: );
1184: IF (l_return_status = fnd_api.g_ret_sts_success ) THEN
1185: IF (l_debug = 1) THEN
1186: trace('lpn_match: after update qty tree back for lpn l_att:' || l_att||' for lot:'||l_mtlt_lot_number);
1187: END IF;
1188: ELSE
1191: END IF;
1192: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1193: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1194: FND_MSG_PUB.ADD;
1195: RAISE FND_API.G_EXC_ERROR;
1196: END IF;
1197: ELSE
1198: inv_quantity_tree_pub.update_quantities
1199: ( p_api_version_number => 1.0
1196: END IF;
1197: ELSE
1198: inv_quantity_tree_pub.update_quantities
1199: ( p_api_version_number => 1.0
1200: , p_init_msg_lst => fnd_api.g_false
1201: , x_return_status => l_return_status
1202: , x_msg_count => l_msg_cnt
1203: , x_msg_data => l_msg_data
1204: , p_organization_id => p_org_id
1221: , x_atr => l_atr
1222: -- , p_lpn_id => p_lpn withour lpn_id, only to locator level
1223: , p_transfer_subinventory_code => l_xfr_sub_code
1224: );
1225: IF (l_return_status = fnd_api.g_ret_sts_success ) THEN
1226: IF (l_debug = 1) THEN
1227: trace('lpn_match: after update qty tree back without lpn l_att:' || l_att||' for lot:'||l_mtlt_lot_number);
1228: END IF;
1229: ELSE
1232: END IF;
1233: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1234: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1235: FND_MSG_PUB.ADD;
1236: RAISE FND_API.G_EXC_ERROR;
1237: END IF;
1238: END IF;
1239:
1240: END LOOP;
1269: -- Serial numbers missing for the transaction
1270: x_match := 9;
1271: FND_MESSAGE.SET_NAME('INV','INV_INT_SERMISEXP');
1272: FND_MSG_PUB.ADD;
1273: RAISE FND_API.G_EXC_ERROR;
1274: END IF;
1275:
1276:
1277: SELECT COUNT(fm_serial_number)
1302: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
1303: -- in order to get correct att.
1304: inv_quantity_tree_pub.update_quantities
1305: ( p_api_version_number => 1.0
1306: , p_init_msg_lst => fnd_api.g_false
1307: , x_return_status => l_return_status
1308: , x_msg_count => l_msg_cnt
1309: , x_msg_data => l_msg_data
1310: , p_organization_id => p_org_id
1327: , x_atr => l_atr
1328: , p_lpn_id => p_lpn
1329: , p_transfer_subinventory_code => l_xfr_sub_code
1330: );
1331: IF (l_return_status = fnd_api.g_ret_sts_success ) THEN
1332: IF (l_debug = 1) THEN
1333: trace('lpn_match: update qty tree with lpn 2nd time: l_att:' || l_att);
1334: END IF;
1335: ELSE
1338: END IF;
1339: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1340: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1341: FND_MSG_PUB.ADD;
1342: RAISE FND_API.G_EXC_ERROR;
1343: END IF;
1344: ELSE
1345: inv_quantity_tree_pub.update_quantities
1346: ( p_api_version_number => 1.0
1343: END IF;
1344: ELSE
1345: inv_quantity_tree_pub.update_quantities
1346: ( p_api_version_number => 1.0
1347: , p_init_msg_lst => fnd_api.g_false
1348: , x_return_status => l_return_status
1349: , x_msg_count => l_msg_cnt
1350: , x_msg_data => l_msg_data
1351: , p_organization_id => p_org_id
1368: , x_atr => l_atr
1369: -- , p_lpn_id => p_lpn withour lpn_id, only to locator level
1370: , p_transfer_subinventory_code => l_xfr_sub_code
1371: );
1372: IF (l_return_status = fnd_api.g_ret_sts_success ) THEN
1373: IF (l_debug = 1) THEN
1374: trace('lpn_match: update qty tree without lpn 2nd time:l_att:'||l_att);
1375: END IF;
1376: ELSE
1379: END IF;
1380: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1381: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1382: FND_MSG_PUB.ADD;
1383: RAISE FND_API.G_EXC_ERROR;
1384: END IF;
1385:
1386: END IF;
1387:
1386: END IF;
1387:
1388: inv_quantity_tree_pub.query_quantities
1389: ( p_api_version_number => 1.0
1390: , p_init_msg_lst => fnd_api.g_false
1391: , x_return_status => l_return_status
1392: , x_msg_count => l_msg_cnt
1393: , x_msg_data => l_msg_data
1394: , p_organization_id => p_org_id
1411: , p_lpn_id => p_lpn
1412: , p_transfer_subinventory_code => l_xfr_sub_code
1413: );
1414:
1415: IF (l_return_status = fnd_api.g_ret_sts_success ) THEN
1416:
1417: l_lpn_qty := l_att;
1418:
1419: ELSE
1423: END IF;
1424: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1425: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1426: FND_MSG_PUB.add;
1427: RAISE FND_API.G_EXC_ERROR;
1428:
1429: END IF;
1430:
1431: IF nvl(l_allocated_lpn_id, 0) = p_lpn THEN
1432: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
1433: -- in order to get correct att.
1434: inv_quantity_tree_pub.update_quantities
1435: ( p_api_version_number => 1.0
1436: , p_init_msg_lst => fnd_api.g_false
1437: , x_return_status => l_return_status
1438: , x_msg_count => l_msg_cnt
1439: , x_msg_data => l_msg_data
1440: , p_organization_id => p_org_id
1457: , x_atr => l_atr
1458: , p_lpn_id => p_lpn
1459: , p_transfer_subinventory_code => l_xfr_sub_code
1460: );
1461: IF (l_return_status = fnd_api.g_ret_sts_success ) THEN
1462: IF (l_debug = 1) THEN
1463: trace('lpn_match: update qty tree back with lpn 2nd time: l_att:' || l_att);
1464: END IF;
1465: ELSE
1468: END IF;
1469: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1470: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1471: FND_MSG_PUB.ADD;
1472: RAISE FND_API.G_EXC_ERROR;
1473: END IF;
1474: ELSE
1475: inv_quantity_tree_pub.update_quantities
1476: ( p_api_version_number => 1.0
1473: END IF;
1474: ELSE
1475: inv_quantity_tree_pub.update_quantities
1476: ( p_api_version_number => 1.0
1477: , p_init_msg_lst => fnd_api.g_false
1478: , x_return_status => l_return_status
1479: , x_msg_count => l_msg_cnt
1480: , x_msg_data => l_msg_data
1481: , p_organization_id => p_org_id
1498: , x_atr => l_atr
1499: -- , p_lpn_id => p_lpn withour lpn_id, only to locator level
1500: , p_transfer_subinventory_code => l_xfr_sub_code
1501: );
1502: IF (l_return_status = fnd_api.g_ret_sts_success ) THEN
1503: IF (l_debug = 1) THEN
1504: trace('lpn_match: update qty tree back without lpn 2nd time:l_att:'||l_att);
1505: END IF;
1506: ELSE
1509: END IF;
1510: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1511: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1512: FND_MSG_PUB.ADD;
1513: RAISE FND_API.G_EXC_ERROR;
1514: END IF;
1515:
1516: END IF;
1517:
1584: -- Serial numbers missing for the transaction
1585: x_match := 9;
1586: FND_MESSAGE.SET_NAME('INV','INV_INT_SERMISEXP');
1587: FND_MSG_PUB.ADD;
1588: RAISE FND_API.G_EXC_ERROR;
1589:
1590: END IF;
1591:
1592: END IF;
1624: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
1625: -- in order to get correct att.
1626: inv_quantity_tree_pub.update_quantities
1627: ( p_api_version_number => 1.0
1628: , p_init_msg_lst => fnd_api.g_false
1629: , x_return_status => l_return_status
1630: , x_msg_count => l_msg_cnt
1631: , x_msg_data => l_msg_data
1632: , p_organization_id => p_org_id
1649: , x_atr => l_atr
1650: , p_lpn_id => p_lpn
1651: , p_transfer_subinventory_code => l_xfr_sub_code
1652: );
1653: IF (l_return_status = fnd_api.g_ret_sts_success ) THEN
1654: IF (l_debug = 1) THEN
1655: trace('lpn_match: update qty tree 3rd time for lpn l_att:'||l_att||' for lot:'||l_mtlt_lot_number);
1656: END IF;
1657: ELSE
1660: END IF;
1661: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1662: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1663: FND_MSG_PUB.ADD;
1664: RAISE FND_API.G_EXC_ERROR;
1665: END IF;
1666: ELSE
1667: inv_quantity_tree_pub.update_quantities
1668: ( p_api_version_number => 1.0
1665: END IF;
1666: ELSE
1667: inv_quantity_tree_pub.update_quantities
1668: ( p_api_version_number => 1.0
1669: , p_init_msg_lst => fnd_api.g_false
1670: , x_return_status => l_return_status
1671: , x_msg_count => l_msg_cnt
1672: , x_msg_data => l_msg_data
1673: , p_organization_id => p_org_id
1690: , x_atr => l_atr
1691: -- , p_lpn_id => p_lpn withour lpn_id, only to locator level
1692: , p_transfer_subinventory_code => l_xfr_sub_code
1693: );
1694: IF (l_return_status = fnd_api.g_ret_sts_success ) THEN
1695: IF (l_debug = 1) THEN
1696: trace('lpn_match: after update without lpn 3rd time l_att:'|| l_att||' for lot:'||l_mtlt_lot_number);
1697: END IF;
1698: ELSE
1701: END IF;
1702: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1703: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1704: FND_MSG_PUB.ADD;
1705: RAISE FND_API.G_EXC_ERROR;
1706: END IF;
1707:
1708: END IF;
1709:
1708: END IF;
1709:
1710: inv_quantity_tree_pub.query_quantities
1711: ( p_api_version_number => 1.0
1712: , p_init_msg_lst => fnd_api.g_false
1713: , x_return_status => l_return_status
1714: , x_msg_count => l_msg_cnt
1715: , x_msg_data => l_msg_data
1716: , p_organization_id => p_org_id
1733: , p_lpn_id => p_lpn
1734: , p_transfer_subinventory_code => l_xfr_sub_code
1735: );
1736:
1737: IF (l_return_status = fnd_api.g_ret_sts_success ) THEN
1738:
1739: l_lot_match := 1;
1740:
1741: IF (l_att > 0) THEN
1797: END IF;
1798: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1799: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1800: FND_MSG_PUB.add;
1801: RAISE FND_API.G_EXC_ERROR;
1802:
1803: END IF;
1804:
1805: IF l_lot_match <> 0 AND x_match <> 4 THEN
1852: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
1853: -- in order to get correct att.
1854: inv_quantity_tree_pub.update_quantities
1855: ( p_api_version_number => 1.0
1856: , p_init_msg_lst => fnd_api.g_false
1857: , x_return_status => l_return_status
1858: , x_msg_count => l_msg_cnt
1859: , x_msg_data => l_msg_data
1860: , p_organization_id => p_org_id
1877: , x_atr => l_atr
1878: , p_lpn_id => p_lpn
1879: , p_transfer_subinventory_code => l_xfr_sub_code
1880: );
1881: IF (l_return_status = fnd_api.g_ret_sts_success ) THEN
1882: IF (l_debug = 1) THEN
1883: trace('lpn_match: update qty tree back 3rd time for lpn l_att:'||l_att||' for lot:'||l_mtlt_lot_number);
1884: END IF;
1885: ELSE
1888: END IF;
1889: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1890: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1891: FND_MSG_PUB.ADD;
1892: RAISE FND_API.G_EXC_ERROR;
1893: END IF;
1894: ELSE
1895: inv_quantity_tree_pub.update_quantities
1896: ( p_api_version_number => 1.0
1893: END IF;
1894: ELSE
1895: inv_quantity_tree_pub.update_quantities
1896: ( p_api_version_number => 1.0
1897: , p_init_msg_lst => fnd_api.g_false
1898: , x_return_status => l_return_status
1899: , x_msg_count => l_msg_cnt
1900: , x_msg_data => l_msg_data
1901: , p_organization_id => p_org_id
1918: , x_atr => l_atr
1919: -- , p_lpn_id => p_lpn withour lpn_id, only to locator level
1920: , p_transfer_subinventory_code => l_xfr_sub_code
1921: );
1922: IF (l_return_status = fnd_api.g_ret_sts_success ) THEN
1923: IF (l_debug = 1) THEN
1924: trace('lpn_match: after update qty tree back without lpn 3rd time l_att:'|| l_att||' for lot:'||l_mtlt_lot_number);
1925: END IF;
1926: ELSE
1929: END IF;
1930: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
1931: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
1932: FND_MSG_PUB.ADD;
1933: RAISE FND_API.G_EXC_ERROR;
1934: END IF;
1935:
1936: END IF;
1937:
2022: -- Serial numbers missing for the transaction
2023: x_match := 9;
2024: FND_MESSAGE.SET_NAME('INV','INV_INT_SERMISEXP');
2025: FND_MSG_PUB.ADD;
2026: RAISE FND_API.G_EXC_ERROR;
2027: END IF;
2028:
2029:
2030: END IF;
2039: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
2040: -- in order to get correct att.
2041: inv_quantity_tree_pub.update_quantities
2042: ( p_api_version_number => 1.0
2043: , p_init_msg_lst => fnd_api.g_false
2044: , x_return_status => l_return_status
2045: , x_msg_count => l_msg_cnt
2046: , x_msg_data => l_msg_data
2047: , p_organization_id => p_org_id
2064: , x_atr => l_atr
2065: , p_lpn_id => p_lpn
2066: , p_transfer_subinventory_code => l_xfr_sub_code
2067: );
2068: IF (l_return_status = fnd_api.g_ret_sts_success ) THEN
2069: IF (l_debug = 1) THEN
2070: trace('lpn_match: update qty tree with lpn 4th time: l_att:' || l_att);
2071: END IF;
2072: ELSE
2075: END IF;
2076: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
2077: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
2078: FND_MSG_PUB.ADD;
2079: RAISE FND_API.G_EXC_ERROR;
2080: END IF;
2081: ELSE
2082: inv_quantity_tree_pub.update_quantities
2083: ( p_api_version_number => 1.0
2080: END IF;
2081: ELSE
2082: inv_quantity_tree_pub.update_quantities
2083: ( p_api_version_number => 1.0
2084: , p_init_msg_lst => fnd_api.g_false
2085: , x_return_status => l_return_status
2086: , x_msg_count => l_msg_cnt
2087: , x_msg_data => l_msg_data
2088: , p_organization_id => p_org_id
2105: , x_atr => l_atr
2106: -- , p_lpn_id => p_lpn withour lpn_id, only to locator level
2107: , p_transfer_subinventory_code => l_xfr_sub_code
2108: );
2109: IF (l_return_status = fnd_api.g_ret_sts_success ) THEN
2110: IF (l_debug = 1) THEN
2111: trace('lpn_match: update qty tree without lpn 4th time:l_att:'||l_att);
2112: END IF;
2113: ELSE
2116: END IF;
2117: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
2118: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
2119: FND_MSG_PUB.ADD;
2120: RAISE FND_API.G_EXC_ERROR;
2121: END IF;
2122:
2123: END IF;
2124:
2123: END IF;
2124:
2125: inv_quantity_tree_pub.query_quantities
2126: ( p_api_version_number => 1.0
2127: , p_init_msg_lst => fnd_api.g_false
2128: , x_return_status => l_return_status
2129: , x_msg_count => l_msg_cnt
2130: , x_msg_data => l_msg_data
2131: , p_organization_id => p_org_id
2148: , p_lpn_id => p_lpn
2149: , p_transfer_subinventory_code => l_xfr_sub_code
2150: );
2151:
2152: IF (l_return_status = fnd_api.g_ret_sts_success ) THEN
2153:
2154: IF (l_debug = 1) THEN
2155: trace('lpn_match: lpn quantity = ' || l_att );
2156: END IF;
2196: END IF;
2197: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
2198: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
2199: FND_MSG_PUB.add;
2200: RAISE FND_API.G_EXC_ERROR;
2201:
2202: END IF;
2203:
2204: IF nvl(l_allocated_lpn_id, 0) = p_lpn THEN
2205: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
2206: -- in order to get correct att.
2207: inv_quantity_tree_pub.update_quantities
2208: ( p_api_version_number => 1.0
2209: , p_init_msg_lst => fnd_api.g_false
2210: , x_return_status => l_return_status
2211: , x_msg_count => l_msg_cnt
2212: , x_msg_data => l_msg_data
2213: , p_organization_id => p_org_id
2230: , x_atr => l_atr
2231: , p_lpn_id => p_lpn
2232: , p_transfer_subinventory_code => l_xfr_sub_code
2233: );
2234: IF (l_return_status = fnd_api.g_ret_sts_success ) THEN
2235: IF (l_debug = 1) THEN
2236: trace('lpn_match: update qty tree back with lpn 4th time: l_att:' || l_att);
2237: END IF;
2238: ELSE
2241: END IF;
2242: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
2243: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
2244: FND_MSG_PUB.ADD;
2245: RAISE FND_API.G_EXC_ERROR;
2246: END IF;
2247: ELSE
2248: inv_quantity_tree_pub.update_quantities
2249: ( p_api_version_number => 1.0
2246: END IF;
2247: ELSE
2248: inv_quantity_tree_pub.update_quantities
2249: ( p_api_version_number => 1.0
2250: , p_init_msg_lst => fnd_api.g_false
2251: , x_return_status => l_return_status
2252: , x_msg_count => l_msg_cnt
2253: , x_msg_data => l_msg_data
2254: , p_organization_id => p_org_id
2271: , x_atr => l_atr
2272: -- , p_lpn_id => p_lpn withour lpn_id, only to locator level
2273: , p_transfer_subinventory_code => l_xfr_sub_code
2274: );
2275: IF (l_return_status = fnd_api.g_ret_sts_success ) THEN
2276: IF (l_debug = 1) THEN
2277: trace('lpn_match: update qty tree back without lpn 4th time:l_att:'||l_att);
2278: END IF;
2279: ELSE
2282: END IF;
2283: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
2284: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
2285: FND_MSG_PUB.ADD;
2286: RAISE FND_API.G_EXC_ERROR;
2287: END IF;
2288:
2289: END IF;
2290:
2378: CLOSE ser_csr;
2379: FND_MESSAGE.SET_NAME('INV','INV_SER_STATUS_NA');
2380: FND_MESSAGE.SET_TOKEN('TOKEN',l_serial_number);
2381: FND_MSG_PUB.ADD;
2382: RAISE FND_API.G_EXC_ERROR;
2383:
2384: END IF;
2385:
2386: END LOOP;
2412:
2413: FND_MESSAGE.SET_NAME('INV','INV_INVALID_LPN_STATUS');
2414: FND_MESSAGE.SET_TOKEN('TOKEN1',TO_CHAR(p_lpn));
2415: FND_MSG_PUB.ADD;
2416: RAISE FND_API.G_EXC_ERROR;
2417:
2418: END IF;
2419:
2420: END IF;
2454: END IF;
2455:
2456: x_temp_id := l_out_temp_id;
2457: x_qty := least(l_lpn_qty, p_qty);
2458: x_return_status := FND_API.G_RET_STS_SUCCESS;
2459:
2460: IF (l_debug = 1) THEN
2461: trace('lpn_match: Match :'||x_match);
2462: trace('lpn_match: x_loc_id :' || x_loc_id);
2467: END IF;
2468:
2469: EXCEPTION
2470:
2471: WHEN FND_API.G_EXC_ERROR THEN
2472: IF (l_debug = 1) THEN
2473: trace('lpn_match: Exception raised');
2474: END IF;
2475: x_return_status := FND_API.G_RET_STS_ERROR;
2471: WHEN FND_API.G_EXC_ERROR THEN
2472: IF (l_debug = 1) THEN
2473: trace('lpn_match: Exception raised');
2474: END IF;
2475: x_return_status := FND_API.G_RET_STS_ERROR;
2476: fnd_msg_pub.count_and_get( p_count => x_msg_count, p_data => x_msg_data );
2477:
2478: WHEN OTHERS THEN
2479: IF (l_debug = 1) THEN
2478: WHEN OTHERS THEN
2479: IF (l_debug = 1) THEN
2480: trace('lpn_match: Other exception raised : ' || Sqlerrm);
2481: END IF;
2482: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2483: fnd_msg_pub.count_and_get( p_count => x_msg_count, p_data => x_msg_data );
2484:
2485: END get_lpn_match;
2486:
2659:
2660: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2661: BEGIN
2662: x_successful_row_cnt := 0;
2663: x_return_status:=FND_API.G_RET_STS_SUCCESS;
2664:
2665: SAVEPOINT WMS_DEVICE_REQUESTS_SP_OUTER;
2666:
2667: --this header_id will be used to call TM for the batch
2676: SAVEPOINT WMS_DEVICE_REQUESTS_SP;
2677: FND_MSG_PUB.initialize;
2678: --Check if device status
2679:
2680: IF l_rec.device_status <> FND_API.g_ret_sts_success THEN
2681: IF (l_debug = 1) THEN
2682: trace('DEVICE REQUEST has its status as ERROR ');
2683: END IF;
2684: FND_MESSAGE.SET_NAME('WMS', 'WMS_ERR_DEVICE_STATUS');
3084: trace('x_msg_data :'||x_msg_data);
3085: END IF;
3086:
3087:
3088: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3089: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_LPN');
3090: FND_MSG_PUB.ADD;
3091: --update wdr for error_code and error_mesg
3092: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3093: l_any_row_failed := TRUE;
3094: update_wdr_for_error_rec(l_rec.task_id,l_rec.relation_id);
3095: GOTO continue_loop;
3096:
3097: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3098: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_LPN');
3099: FND_MSG_PUB.ADD;
3100: --update wdr for error_code and error_mesg
3101: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3251:
3252: validate_child_record(l_rec.relation_id,'Y',l_lot_code,l_serial_code,l_txn_temp_id,l_qty_discrepancy_flag,l_rec.transaction_quantity,x_return_status);
3253: --l_rec.task_id is same asl_txn_temp_id in this file
3254:
3255: IF x_return_status <> FND_API.g_ret_sts_success THEN
3256: IF (l_debug = 1) THEN
3257: trace('Error:In validating Lot/Serial information');
3258: END IF;
3259: FND_MESSAGE.SET_NAME('WMS', 'WMS_LOT_SER_VALIDATION_FAIL');
3398: --lot_qty should NOT be greater than allocated_lot_qty
3399:
3400: validate_child_record(l_rec.relation_id,'Y',l_lot_code,l_serial_code,l_txn_temp_id,l_qty_discrepancy_flag,l_rec.transaction_quantity,x_return_status);
3401:
3402: IF x_return_status <> FND_API.g_ret_sts_success THEN
3403: IF (l_debug = 1) THEN
3404: trace('Error:In validating Lot/Serial information');
3405: END IF;
3406: FND_MESSAGE.SET_NAME('WMS', 'WMS_LOT_SER_VALIDATION_FAIL');
3486: , x_msg_count => x_msg_count
3487: , x_msg_data => x_msg_data);
3488:
3489:
3490: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3491: FND_MESSAGE.SET_NAME('WMS','WMS_BACKORDER_FAILED');
3492: FND_MSG_PUB.ADD;
3493:
3494: --update wdr for error_code and error_mesg
3507: x_return_status => x_return_status,
3508: x_msg_count => x_msg_count,
3509: x_msg_data => x_msg_data);
3510:
3511: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3512: FND_MESSAGE.SET_NAME('WMS','WMS_BACKORDER_FAILED');
3513: FND_MSG_PUB.ADD;
3514:
3515: --update wdr for error_code and error_mesg
3570:
3571: wms_container_pvt.Modify_LPN
3572: (
3573: p_api_version => 1.0
3574: , p_validation_level => fnd_api.g_valid_level_none
3575: , x_return_status => x_return_status
3576: , x_msg_count => x_msg_count
3577: , x_msg_data => x_msg_data
3578: , p_lpn => l_lpn
3917: END IF;
3918:
3919: wms_txnrsn_actions_pub.log_exception
3920: (p_api_version_number =>1.0
3921: , p_init_msg_lst =>fnd_api.g_false
3922: , p_commit => FND_API.G_FALSE
3923: , x_return_status =>x_return_status
3924: , x_msg_count =>x_msg_count
3925: , x_msg_data =>x_msg_data
3918:
3919: wms_txnrsn_actions_pub.log_exception
3920: (p_api_version_number =>1.0
3921: , p_init_msg_lst =>fnd_api.g_false
3922: , p_commit => FND_API.G_FALSE
3923: , x_return_status =>x_return_status
3924: , x_msg_count =>x_msg_count
3925: , x_msg_data =>x_msg_data
3926: , p_organization_id =>l_rec.organization_id
3938: IF (l_debug = 1) THEN
3939: trace('After logging exception for qty discrepancy');
3940: END IF;
3941:
3942: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3943: FND_MESSAGE.SET_NAME('WMS','WMS_LOG_EXCEPTION_FAIL');
3944: FND_MSG_PUB.ADD;
3945: --update wdr for error_code and error_mesg
3946: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3947: l_any_row_failed := TRUE;
3948: update_wdr_for_error_rec(l_rec.task_id,l_rec.relation_id);
3949: GOTO continue_loop;
3950:
3951: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3952: FND_MESSAGE.SET_NAME('WMS','WMS_LOG_EXCEPTION_FAIL');
3953: FND_MSG_PUB.ADD;
3954: --update wdr for error_code and error_mesg
3955: ROLLBACK TO WMS_DEVICE_REQUESTS_SP;
3992: END IF;
3993:
3994: wms_workflow_wrappers.wf_wrapper
3995: (p_api_version => 1.0,
3996: p_init_msg_list => fnd_api.g_false,
3997: p_commit => fnd_api.g_false,
3998: x_return_status => x_return_status ,
3999: x_msg_count => x_msg_count,
4000: x_msg_data => x_msg_data,
3993:
3994: wms_workflow_wrappers.wf_wrapper
3995: (p_api_version => 1.0,
3996: p_init_msg_list => fnd_api.g_false,
3997: p_commit => fnd_api.g_false,
3998: x_return_status => x_return_status ,
3999: x_msg_count => x_msg_count,
4000: x_msg_data => x_msg_data,
4001: p_org_id => l_rec.organization_id ,
4010: IF (l_debug = 1) THEN
4011: trace('After Calling WF Wrapperfor Qty Discrepancy');
4012: END IF;
4013:
4014: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4015: IF (l_debug = 1) THEN
4016: trace('device_confirmation: Error callinf WF wrapper');
4017: END IF;
4018: FND_MESSAGE.SET_NAME('WMS','WMS_WORK_FLOW_FAIL');
4022: l_any_row_failed := TRUE;
4023: update_wdr_for_error_rec(l_rec.task_id,l_rec.relation_id);
4024: GOTO continue_loop;
4025:
4026: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
4027: IF (l_debug = 1) THEN
4028: trace('device_confirmation: Error calling WF wrapper');
4029: END IF;
4030: FND_MESSAGE.SET_NAME('WMS','WMS_WORK_FLOW_FAIL');
4087: x_msg_data => x_msg_data,
4088: p_lpn_id => l_rec.lpn_id,
4089: p_lpn_context => WMS_Container_PUB.LPN_CONTEXT_PACKING);
4090:
4091: IF ((x_return_status = FND_API.g_ret_sts_unexp_error) OR (x_return_status
4092: = FND_API.g_ret_sts_error)) THEN
4093:
4094: IF (l_debug = 1) THEN
4095: trace('device_confirmation: Load LPN modify_lpn_wrapper error');
4088: p_lpn_id => l_rec.lpn_id,
4089: p_lpn_context => WMS_Container_PUB.LPN_CONTEXT_PACKING);
4090:
4091: IF ((x_return_status = FND_API.g_ret_sts_unexp_error) OR (x_return_status
4092: = FND_API.g_ret_sts_error)) THEN
4093:
4094: IF (l_debug = 1) THEN
4095: trace('device_confirmation: Load LPN modify_lpn_wrapper error');
4096: END IF;
4120: x_msg_data => x_msg_data,
4121: p_lpn_id => l_rec.xfer_lpn_id,
4122: p_lpn_context => WMS_Container_PUB.LPN_CONTEXT_PACKING);
4123:
4124: IF ((x_return_status = FND_API.g_ret_sts_unexp_error) OR (x_return_status
4125: = FND_API.g_ret_sts_error)) THEN
4126:
4127: IF (l_debug = 1) THEN
4128: trace('device_confirmation: Load LPN modify_lpn_wrapper error');
4121: p_lpn_id => l_rec.xfer_lpn_id,
4122: p_lpn_context => WMS_Container_PUB.LPN_CONTEXT_PACKING);
4123:
4124: IF ((x_return_status = FND_API.g_ret_sts_unexp_error) OR (x_return_status
4125: = FND_API.g_ret_sts_error)) THEN
4126:
4127: IF (l_debug = 1) THEN
4128: trace('device_confirmation: Load LPN modify_lpn_wrapper error');
4129: END IF;
4210: trace('device_confirmation: Period is invalid');
4211: END IF;
4212: FND_MESSAGE.SET_NAME('INV', 'INV_NO_OPEN_PERIOD');
4213: FND_MSG_PUB.ADD;
4214: x_return_status := FND_API.g_ret_sts_error;
4215: ROLLBACK TO WMS_DEVICE_REQUESTS_SP_OUTER;
4216:
4217: END IF;
4218:
4276:
4277:
4278: l_txn_ret := inv_lpn_trx_pub.process_lpn_trx
4279: (p_trx_hdr_id => l_txn_hdr_id,
4280: p_commit => fnd_api.g_false,
4281: x_proc_msg => x_msg_data);
4282:
4283: IF (l_debug = 1) THEN
4284: trace('After call to TM, Txn proc ret'||l_txn_ret);
4294:
4295: FND_MESSAGE.SET_NAME('WMS','WMS_TD_TXNMGR_ERROR' );
4296: FND_MSG_PUB.ADD;
4297:
4298: x_return_status := FND_API.g_ret_sts_error;
4299:
4300: ROLLBACK TO WMS_DEVICE_REQUESTS_SP_OUTER;
4301:
4302: ELSE
4335:
4336: wms_container_pvt.Modify_LPN
4337: (
4338: p_api_version => 1.0
4339: , p_validation_level => fnd_api.g_valid_level_none
4340: , x_return_status => x_return_status
4341: , x_msg_count => x_msg_count
4342: , x_msg_data => x_msg_data
4343: , p_lpn => l_lpn
4343: , p_lpn => l_lpn
4344: ) ;
4345:
4346:
4347: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
4348: x_return_status = FND_API.g_ret_sts_error THEN
4349:
4350: IF (l_debug = 1) THEN
4351: trace('device_confirmation: modify_lpn Unexpected error');
4344: ) ;
4345:
4346:
4347: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
4348: x_return_status = FND_API.g_ret_sts_error THEN
4349:
4350: IF (l_debug = 1) THEN
4351: trace('device_confirmation: modify_lpn Unexpected error');
4352: END IF;
4376: trace('device_confirmation:done with this API');
4377: END IF;
4378:
4379: EXCEPTION
4380: WHEN FND_API.g_exc_error THEN
4381: FND_MESSAGE.SET_NAME('WMS', 'WMS_DEV_REQ_FAIL');
4382: FND_MSG_PUB.ADD;
4383: --since all original records have been deleted from WDRH before making this
4384: --call
4408: IF (l_debug = 1) THEN
4409: trace('DEVICE_CONFIRMATION:Error: G_EXC_ERR');
4410: END IF;
4411: -- ROLLBACK TO WMS_DEVICE_REQUESTS_SP_OUTER;Commented for Bug#4535546
4412: x_return_status := FND_API.G_RET_STS_ERROR;
4413:
4414: x_msg_data:=GET_MSG_STACK ; --Bug#4535546.
4415:
4416: WHEN OTHERS THEN
4445: IF (l_debug = 1) THEN
4446: trace('DEVICE_CONFIRMATION:Error: G_UNEXC_ERR');
4447: END IF;
4448: -- ROLLBACK TO WMS_DEVICE_REQUESTS_SP_OUTER; Commented for Bug#4535546
4449: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4450:
4451: x_msg_data:=GET_MSG_STACK ; --Bug#4535546.
4452:
4453: END device_confirmation;