[Home] [Help]
307: END IF ;
308:
309: inv_quantity_tree_pub.query_quantities
310: ( p_api_version_number => 1.0
311: , p_init_msg_lst => fnd_api.g_false
312: , x_return_status => x_return_status
313: , x_msg_count => l_msg_count
314: , x_msg_data => l_msg_data
315: , p_organization_id => p_organization_id
461: ELSE l_tree_mode := p_tree_mode;
462: END IF ;
463: inv_quantity_tree_pub.query_quantities(
464: p_api_version_number => 1.0
465: , p_init_msg_lst => fnd_api.g_false
466: , x_return_status => x_return_status
467: , x_msg_count => l_msg_count
468: , x_msg_data => l_msg_data
469: , p_organization_id => p_organization_id
676: END IF ;
677:
678: inv_quantity_tree_pub.query_quantities(
679: p_api_version_number => 1.0 ,
680: p_init_msg_lst => fnd_api.g_false ,
681: x_return_status => x_return_status ,
682: x_msg_count => l_msg_count ,
683: x_msg_data => l_msg_data ,
684: p_organization_id => p_organization_id ,
826: l_is_serial_control BOOLEAN := FALSE;
827: l_tree_mode NUMBER;
828: l_api_version_number CONSTANT NUMBER := 1.0;
829: l_api_name CONSTANT VARCHAR2(30) := 'Get_Avaliable_Quantity';
830: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
831: l_tree_id INTEGER;
832: l_rqoh NUMBER;
833: l_qr NUMBER;
834: l_qs NUMBER;
868: END IF ;
869:
870:
871: -- Initialize message list.
872: IF fnd_api.to_boolean(p_init_msg_lst) THEN
873: fnd_msg_pub.initialize;
874: END IF;
875:
876: INV_QUANTITY_TREE_PVT.create_tree
874: END IF;
875:
876: INV_QUANTITY_TREE_PVT.create_tree
877: ( p_api_version_number => 1.0
878: , p_init_msg_lst => fnd_api.g_false
879: , x_return_status => l_return_status
880: , x_msg_count => x_msg_count
881: , x_msg_data => x_msg_data
882: , p_organization_id => p_organization_id
900: , p_pick_release => 0 --g_pick_release_no
901: ) ;
902:
903:
904: IF l_return_status = fnd_api.g_ret_sts_error THEN
905: RAISE fnd_api.g_exc_error;
906: END IF ;
907:
908: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
901: ) ;
902:
903:
904: IF l_return_status = fnd_api.g_ret_sts_error THEN
905: RAISE fnd_api.g_exc_error;
906: END IF ;
907:
908: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
909: RAISE fnd_api.g_exc_unexpected_error;
904: IF l_return_status = fnd_api.g_ret_sts_error THEN
905: RAISE fnd_api.g_exc_error;
906: END IF ;
907:
908: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
909: RAISE fnd_api.g_exc_unexpected_error;
910: END IF;
911:
912: INV_QUANTITY_TREE_PVT.query_tree
905: RAISE fnd_api.g_exc_error;
906: END IF ;
907:
908: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
909: RAISE fnd_api.g_exc_unexpected_error;
910: END IF;
911:
912: INV_QUANTITY_TREE_PVT.query_tree
913: ( p_api_version_number => 1.0
910: END IF;
911:
912: INV_QUANTITY_TREE_PVT.query_tree
913: ( p_api_version_number => 1.0
914: , p_init_msg_lst => fnd_api.g_false
915: , x_return_status => l_return_status
916: , x_msg_count => x_msg_count
917: , x_msg_data => x_msg_data
918: , p_tree_id => l_tree_id
937: , x_satr => l_satr
938: );
939:
940:
941: IF l_return_status = fnd_api.g_ret_sts_error THEN
942: RAISE fnd_api.g_exc_error;
943: END IF ;
944:
945: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
938: );
939:
940:
941: IF l_return_status = fnd_api.g_ret_sts_error THEN
942: RAISE fnd_api.g_exc_error;
943: END IF ;
944:
945: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
946: RAISE fnd_api.g_exc_unexpected_error;
941: IF l_return_status = fnd_api.g_ret_sts_error THEN
942: RAISE fnd_api.g_exc_error;
943: END IF ;
944:
945: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
946: RAISE fnd_api.g_exc_unexpected_error;
947: END IF;
948:
949: -- This query_tree quaries qoh and att at Item level,
942: RAISE fnd_api.g_exc_error;
943: END IF ;
944:
945: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
946: RAISE fnd_api.g_exc_unexpected_error;
947: END IF;
948:
949: -- This query_tree quaries qoh and att at Item level,
950: -- so we are passing null for p_subinventory_code and p_locator_id
950: -- so we are passing null for p_subinventory_code and p_locator_id
951:
952: INV_QUANTITY_TREE_PVT.query_tree
953: ( p_api_version_number => 1.0
954: , p_init_msg_lst => fnd_api.g_false
955: , x_return_status => l_return_status
956: , x_msg_count => x_msg_count
957: , x_msg_data => x_msg_data
958: , p_tree_id => l_tree_id
977: , x_satr => l_satr
978: );
979:
980:
981: IF l_return_status = fnd_api.g_ret_sts_error THEN
982: RAISE fnd_api.g_exc_error;
983: END IF ;
984:
985: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
978: );
979:
980:
981: IF l_return_status = fnd_api.g_ret_sts_error THEN
982: RAISE fnd_api.g_exc_error;
983: END IF ;
984:
985: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
986: RAISE fnd_api.g_exc_unexpected_error;
981: IF l_return_status = fnd_api.g_ret_sts_error THEN
982: RAISE fnd_api.g_exc_error;
983: END IF ;
984:
985: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
986: RAISE fnd_api.g_exc_unexpected_error;
987: END IF;
988:
989: INV_QUANTITY_TREE_PVT.get_total_qoh
982: RAISE fnd_api.g_exc_error;
983: END IF ;
984:
985: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
986: RAISE fnd_api.g_exc_unexpected_error;
987: END IF;
988:
989: INV_QUANTITY_TREE_PVT.get_total_qoh
990: ( x_return_status => l_return_status
1001: , x_stqoh => x_stqoh
1002: );
1003:
1004:
1005: IF l_return_status = fnd_api.g_ret_sts_error THEN
1006: RAISE fnd_api.g_exc_error;
1007: END IF ;
1008:
1009: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1002: );
1003:
1004:
1005: IF l_return_status = fnd_api.g_ret_sts_error THEN
1006: RAISE fnd_api.g_exc_error;
1007: END IF ;
1008:
1009: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1010: RAISE fnd_api.g_exc_unexpected_error;
1005: IF l_return_status = fnd_api.g_ret_sts_error THEN
1006: RAISE fnd_api.g_exc_error;
1007: END IF ;
1008:
1009: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1010: RAISE fnd_api.g_exc_unexpected_error;
1011: END IF;
1012:
1013: x_return_status := l_return_status;
1006: RAISE fnd_api.g_exc_error;
1007: END IF ;
1008:
1009: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1010: RAISE fnd_api.g_exc_unexpected_error;
1011: END IF;
1012:
1013: x_return_status := l_return_status;
1014:
1013: x_return_status := l_return_status;
1014:
1015: EXCEPTION
1016:
1017: WHEN fnd_api.g_exc_error THEN
1018: x_return_status := fnd_api.g_ret_sts_error;
1019:
1020: -- Get message count and data
1021: fnd_msg_pub.count_and_get
1014:
1015: EXCEPTION
1016:
1017: WHEN fnd_api.g_exc_error THEN
1018: x_return_status := fnd_api.g_ret_sts_error;
1019:
1020: -- Get message count and data
1021: fnd_msg_pub.count_and_get
1022: ( p_count => x_msg_count
1022: ( p_count => x_msg_count
1023: , p_data => x_msg_data
1024: );
1025:
1026: WHEN fnd_api.g_exc_unexpected_error THEN
1027: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1028:
1029: -- Get message count and data
1030: fnd_msg_pub.count_and_get
1023: , p_data => x_msg_data
1024: );
1025:
1026: WHEN fnd_api.g_exc_unexpected_error THEN
1027: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1028:
1029: -- Get message count and data
1030: fnd_msg_pub.count_and_get
1031: ( p_count => x_msg_count
1032: , p_data => x_msg_data
1033: );
1034:
1035: WHEN OTHERS THEN
1036: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1037:
1038: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1039: THEN
1040:
1169: l_is_serial_control BOOLEAN := FALSE;
1170: l_tree_mode NUMBER;
1171: l_api_version_number CONSTANT NUMBER := 1.0;
1172: l_api_name CONSTANT VARCHAR2(30) := 'Get_Avaliable_Quantity';
1173: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
1174: l_tree_id INTEGER;
1175: l_rqoh NUMBER;
1176: l_qr NUMBER;
1177: l_qs NUMBER;
1211: END IF ;
1212:
1213:
1214: -- Initialize message list.
1215: IF fnd_api.to_boolean(p_init_msg_lst) THEN
1216: fnd_msg_pub.initialize;
1217: END IF;
1218:
1219: INV_QUANTITY_TREE_PVT.create_tree
1217: END IF;
1218:
1219: INV_QUANTITY_TREE_PVT.create_tree
1220: ( p_api_version_number => 1.0
1221: , p_init_msg_lst => fnd_api.g_false
1222: , x_return_status => l_return_status
1223: , x_msg_count => x_msg_count
1224: , x_msg_data => x_msg_data
1225: , p_organization_id => p_organization_id
1243: , p_pick_release => 0 --g_pick_release_no
1244: ) ;
1245:
1246:
1247: IF l_return_status = fnd_api.g_ret_sts_error THEN
1248: RAISE fnd_api.g_exc_error;
1249: END IF ;
1250:
1251: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1244: ) ;
1245:
1246:
1247: IF l_return_status = fnd_api.g_ret_sts_error THEN
1248: RAISE fnd_api.g_exc_error;
1249: END IF ;
1250:
1251: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1252: RAISE fnd_api.g_exc_unexpected_error;
1247: IF l_return_status = fnd_api.g_ret_sts_error THEN
1248: RAISE fnd_api.g_exc_error;
1249: END IF ;
1250:
1251: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1252: RAISE fnd_api.g_exc_unexpected_error;
1253: END IF;
1254:
1255: INV_QUANTITY_TREE_PVT.query_tree
1248: RAISE fnd_api.g_exc_error;
1249: END IF ;
1250:
1251: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1252: RAISE fnd_api.g_exc_unexpected_error;
1253: END IF;
1254:
1255: INV_QUANTITY_TREE_PVT.query_tree
1256: ( p_api_version_number => 1.0
1253: END IF;
1254:
1255: INV_QUANTITY_TREE_PVT.query_tree
1256: ( p_api_version_number => 1.0
1257: , p_init_msg_lst => fnd_api.g_false
1258: , x_return_status => l_return_status
1259: , x_msg_count => x_msg_count
1260: , x_msg_data => x_msg_data
1261: , p_tree_id => l_tree_id
1280: , p_cost_group_id => p_cost_group_id
1281: , p_transfer_subinventory_code=> p_transfer_subinventory);
1282:
1283:
1284: IF l_return_status = fnd_api.g_ret_sts_error THEN
1285: RAISE fnd_api.g_exc_error;
1286: END IF ;
1287:
1288: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1281: , p_transfer_subinventory_code=> p_transfer_subinventory);
1282:
1283:
1284: IF l_return_status = fnd_api.g_ret_sts_error THEN
1285: RAISE fnd_api.g_exc_error;
1286: END IF ;
1287:
1288: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1289: RAISE fnd_api.g_exc_unexpected_error;
1284: IF l_return_status = fnd_api.g_ret_sts_error THEN
1285: RAISE fnd_api.g_exc_error;
1286: END IF ;
1287:
1288: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1289: RAISE fnd_api.g_exc_unexpected_error;
1290: END IF;
1291:
1292: -- This query_tree quaries qoh and att at Item level,
1285: RAISE fnd_api.g_exc_error;
1286: END IF ;
1287:
1288: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1289: RAISE fnd_api.g_exc_unexpected_error;
1290: END IF;
1291:
1292: -- This query_tree quaries qoh and att at Item level,
1293: -- so we are passing null for p_subinventory_code and p_locator_id
1293: -- so we are passing null for p_subinventory_code and p_locator_id
1294:
1295: INV_QUANTITY_TREE_PVT.query_tree
1296: ( p_api_version_number => 1.0
1297: , p_init_msg_lst => fnd_api.g_false
1298: , x_return_status => l_return_status
1299: , x_msg_count => x_msg_count
1300: , x_msg_data => x_msg_data
1301: , p_tree_id => l_tree_id
1320: , x_satr => l_satr
1321: , p_cost_group_id => p_cost_group_id);
1322:
1323:
1324: IF l_return_status = fnd_api.g_ret_sts_error THEN
1325: RAISE fnd_api.g_exc_error;
1326: END IF ;
1327:
1328: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1321: , p_cost_group_id => p_cost_group_id);
1322:
1323:
1324: IF l_return_status = fnd_api.g_ret_sts_error THEN
1325: RAISE fnd_api.g_exc_error;
1326: END IF ;
1327:
1328: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1329: RAISE fnd_api.g_exc_unexpected_error;
1324: IF l_return_status = fnd_api.g_ret_sts_error THEN
1325: RAISE fnd_api.g_exc_error;
1326: END IF ;
1327:
1328: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1329: RAISE fnd_api.g_exc_unexpected_error;
1330: END IF;
1331:
1332: INV_QUANTITY_TREE_PVT.get_total_qoh
1325: RAISE fnd_api.g_exc_error;
1326: END IF ;
1327:
1328: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1329: RAISE fnd_api.g_exc_unexpected_error;
1330: END IF;
1331:
1332: INV_QUANTITY_TREE_PVT.get_total_qoh
1333: ( x_return_status => l_return_status
1344: , x_stqoh => x_stqoh
1345: );
1346:
1347:
1348: IF l_return_status = fnd_api.g_ret_sts_error THEN
1349: RAISE fnd_api.g_exc_error;
1350: END IF ;
1351:
1352: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1345: );
1346:
1347:
1348: IF l_return_status = fnd_api.g_ret_sts_error THEN
1349: RAISE fnd_api.g_exc_error;
1350: END IF ;
1351:
1352: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1353: RAISE fnd_api.g_exc_unexpected_error;
1348: IF l_return_status = fnd_api.g_ret_sts_error THEN
1349: RAISE fnd_api.g_exc_error;
1350: END IF ;
1351:
1352: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1353: RAISE fnd_api.g_exc_unexpected_error;
1354: END IF;
1355:
1356: x_return_status := l_return_status;
1349: RAISE fnd_api.g_exc_error;
1350: END IF ;
1351:
1352: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1353: RAISE fnd_api.g_exc_unexpected_error;
1354: END IF;
1355:
1356: x_return_status := l_return_status;
1357:
1356: x_return_status := l_return_status;
1357:
1358: EXCEPTION
1359:
1360: WHEN fnd_api.g_exc_error THEN
1361: x_return_status := fnd_api.g_ret_sts_error;
1362:
1363: -- Get message count and data
1364: fnd_msg_pub.count_and_get
1357:
1358: EXCEPTION
1359:
1360: WHEN fnd_api.g_exc_error THEN
1361: x_return_status := fnd_api.g_ret_sts_error;
1362:
1363: -- Get message count and data
1364: fnd_msg_pub.count_and_get
1365: ( p_count => x_msg_count
1365: ( p_count => x_msg_count
1366: , p_data => x_msg_data
1367: );
1368:
1369: WHEN fnd_api.g_exc_unexpected_error THEN
1370: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1371:
1372: -- Get message count and data
1373: fnd_msg_pub.count_and_get
1366: , p_data => x_msg_data
1367: );
1368:
1369: WHEN fnd_api.g_exc_unexpected_error THEN
1370: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1371:
1372: -- Get message count and data
1373: fnd_msg_pub.count_and_get
1374: ( p_count => x_msg_count
1375: , p_data => x_msg_data
1376: );
1377:
1378: WHEN OTHERS THEN
1379: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1380:
1381: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1382: THEN
1383:
1458: END IF ;
1459:
1460: inv_quantity_tree_pub.query_quantities(
1461: p_api_version_number => 1.0 ,
1462: p_init_msg_lst => fnd_api.g_false ,
1463: x_return_status => x_return_status ,
1464: x_msg_count => l_msg_count ,
1465: x_msg_data => l_msg_data ,
1466: p_organization_id => p_organization_id ,
1504: to complete the transaction, 'false' otherwise. */
1505:
1506: PROCEDURE CHECK_LOOSE_QUANTITY(
1507: p_api_version_number IN NUMBER
1508: , p_init_msg_lst IN VARCHAR2 DEFAULT fnd_api.g_false
1509: , x_return_status OUT NOCOPY VARCHAR2
1510: , x_msg_count OUT NOCOPY NUMBER
1511: , x_msg_data OUT NOCOPY VARCHAR2
1512: , p_organization_id IN NUMBER
1548: l_inv_rcpt_code mtl_parameters.negative_inv_receipt_code%type;
1549:
1550: l_api_version_number CONSTANT NUMBER := 1.0;
1551: l_api_name CONSTANT VARCHAR2(30) := 'Check_Looose_Quantity';
1552: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
1553:
1554: l_transaction_source_type_id NUMBER;
1555: l_new_qoh NUMBER;
1556: l_new_att NUMBER;
1607:
1608: inv_quantity_tree_pub.clear_quantity_cache;
1609:
1610: -- Standard call to check for call compatibility
1611: IF NOT fnd_api.compatible_api_call(l_api_version_number
1612: , p_api_version_number
1613: , l_api_name
1614: , G_PKG_NAME
1615: ) THEN
1612: , p_api_version_number
1613: , l_api_name
1614: , G_PKG_NAME
1615: ) THEN
1616: RAISE fnd_api.g_exc_unexpected_error;
1617: END IF;
1618: IF (l_debug = 1) THEN
1619: mdebug ('Done checking if compatible api call.');
1620: END IF;
1619: mdebug ('Done checking if compatible api call.');
1620: END IF;
1621:
1622: -- Initialize message list.
1623: IF fnd_api.to_boolean(p_init_msg_lst) THEN
1624: fnd_msg_pub.initialize;
1625: END IF;
1626:
1627: p_ok_to_process := 'false';
1859:
1860: x_return_status := l_return_status;
1861:
1862: EXCEPTION
1863: WHEN fnd_api.g_exc_error THEN
1864: x_return_status := fnd_api.g_ret_sts_error;
1865:
1866: -- Get message count and data
1867: fnd_msg_pub.count_and_get
1860: x_return_status := l_return_status;
1861:
1862: EXCEPTION
1863: WHEN fnd_api.g_exc_error THEN
1864: x_return_status := fnd_api.g_ret_sts_error;
1865:
1866: -- Get message count and data
1867: fnd_msg_pub.count_and_get
1868: ( p_count => x_msg_count
1871: IF (l_debug = 1) THEN
1872: mdebug ('@'||x_msg_data||'@');
1873: END IF;
1874:
1875: WHEN fnd_api.g_exc_unexpected_error THEN
1876: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1877:
1878: -- Get message count and data
1879: fnd_msg_pub.count_and_get
1872: mdebug ('@'||x_msg_data||'@');
1873: END IF;
1874:
1875: WHEN fnd_api.g_exc_unexpected_error THEN
1876: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1877:
1878: -- Get message count and data
1879: fnd_msg_pub.count_and_get
1880: ( p_count => x_msg_count
1884: mdebug ('@'||x_msg_data||'@');
1885: END IF;
1886:
1887: WHEN OTHERS THEN
1888: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1889:
1890: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1891: THEN
1892: fnd_msg_pub.add_exc_msg
2691: END IF;
2692:
2693: inv_quantity_tree_pub.query_quantities
2694: ( p_api_version_number => 1.0
2695: , p_init_msg_lst => fnd_api.g_false
2696: , x_return_status => l_return_status
2697: , x_msg_count => l_msg_count
2698: , x_msg_data => l_msg_data
2699: , p_organization_id => p_organization_id
2737: l_updt_qoh := - l_qoh;
2738: /*need to update qty tree */
2739: inv_quantity_tree_pub.update_quantities
2740: ( p_api_version_number => 1.0
2741: , p_init_msg_lst => fnd_api.g_false
2742: , x_return_status => l_return_status
2743: , x_msg_count => l_msg_count
2744: , x_msg_data => l_msg_data
2745: , p_organization_id => p_organization_id
2936: END IF;
2937:
2938: inv_quantity_tree_pub.query_quantities
2939: ( p_api_version_number => 1.0
2940: , p_init_msg_lst => fnd_api.g_false
2941: , x_return_status => l_return_status
2942: , x_msg_count => l_msg_count
2943: , x_msg_data => l_msg_data
2944: , p_organization_id => p_organization_id
3009:
3010: /*need to update qty tree */
3011: inv_quantity_tree_pub.update_quantities
3012: ( p_api_version_number => 1.0
3013: , p_init_msg_lst => fnd_api.g_false
3014: , x_return_status => l_return_status
3015: , x_msg_count => l_msg_count
3016: , x_msg_data => l_msg_data
3017: , p_organization_id => p_organization_id
3156: *with user defined shelf life the build_query does not return FALSE
3157: */
3158: inv_quantity_tree_pub.query_quantities
3159: (p_api_version_number => 1.0
3160: , p_init_msg_lst => fnd_api.g_false
3161: , x_return_status => l_return_status
3162: , x_msg_count => l_msg_count
3163: , x_msg_data => l_msg_data
3164: , p_organization_id => p_organization_id
3336: *with user defined shelf life the build_query does not return FALSE
3337: */
3338: inv_quantity_tree_pub.query_quantities
3339: (p_api_version_number => 1.0
3340: , p_init_msg_lst => fnd_api.g_false
3341: , x_return_status => l_return_status
3342: , x_msg_count => l_msg_count
3343: , x_msg_data => l_msg_data
3344: , p_organization_id => p_organization_id
3501: END IF;
3502:
3503: inv_quantity_tree_pub.query_quantities
3504: (p_api_version_number => 1.0
3505: , p_init_msg_lst => fnd_api.g_false
3506: , x_return_status => l_return_status
3507: , x_msg_count => l_msg_count
3508: , x_msg_data => l_msg_data
3509: , p_organization_id => p_organization_id
4060:
4061: -- Query the quantity tree for available to transact quantity
4062: inv_quantity_tree_pub.query_quantities
4063: (p_api_version_number => 1.0,
4064: p_init_msg_lst => fnd_api.g_false,
4065: x_return_status => x_return_status,
4066: x_msg_count => l_msg_count,
4067: x_msg_data => l_msg_data,
4068: p_organization_id => p_organization_id,
4083: x_qs => l_qs,
4084: x_att => l_att,
4085: x_atr => l_atr);
4086:
4087: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4088: FND_MESSAGE.set_name('INV', 'INV_ERR_CREATETREE');
4089: FND_MESSAGE.set_token('ROUTINE','INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
4090: x_return_msg := fnd_message.get;
4091: RETURN;
4115: -- Update the quantity tree so that the serial transaction is
4116: -- reflected in the available quantity
4117: inv_quantity_tree_pub.update_quantities
4118: (p_api_version_number => 1.0,
4119: p_init_msg_lst => fnd_api.g_false,
4120: x_return_status => x_return_status,
4121: x_msg_count => l_msg_count,
4122: x_msg_data => l_msg_data,
4123: p_organization_id => p_organization_id,
4140: x_qs => l_qs,
4141: x_att => l_att,
4142: x_atr => l_atr);
4143:
4144: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4145: FND_MESSAGE.set_name('INV', 'INV_ERR_CREATETREE');
4146: FND_MESSAGE.set_token('ROUTINE','INV_QUANTITY_TREE_PUB.UPDATE_QUANTITIES');
4147: x_return_msg := fnd_message.get;
4148: RETURN;
4152: END IF;
4153:
4154: inv_quantity_tree_pub.update_quantities
4155: (p_api_version_number => 1.0,
4156: p_init_msg_lst => fnd_api.g_false,
4157: x_return_status => x_return_status,
4158: x_msg_count => l_msg_count,
4159: x_msg_data => l_msg_data,
4160: p_organization_id => p_organization_id,
4177: x_qs => l_qs,
4178: x_att => l_att,
4179: x_atr => l_atr);
4180:
4181: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4182: FND_MESSAGE.set_name('INV', 'INV_ERR_CREATETREE');
4183: FND_MESSAGE.set_token('ROUTINE','INV_QUANTITY_TREE_PUB.UPDATE_QUANTITIES');
4184: x_return_msg := fnd_message.get;
4185: RETURN;
4260: inv_log_util.trace('Temp ID = ' || l_transaction_temp_id, 'process_serial_subxfr');
4261: inv_log_util.trace('Header ID = ' || x_transaction_header_id, 'process_serial_subxfr');
4262: END IF;
4263: ELSE
4264: x_return_status := fnd_api.g_ret_sts_unexp_error;
4265: IF (l_debug = 1) THEN
4266: inv_log_util.trace(l_proc_msg, 'process_serial_subxfr');
4267: END IF;
4268: RETURN;
4287: inv_log_util.trace('Serial Temp ID = ' || l_serial_transaction_temp_id, 'process_serial_subxfr');
4288: inv_log_util.trace('Serial Temp ID = ' || l_transaction_temp_id, 'process_serial_subxfr');
4289: END IF;
4290: ELSE
4291: x_return_status := fnd_api.g_ret_sts_unexp_error;
4292: IF (l_debug = 1) THEN
4293: inv_log_util.trace(l_proc_msg, 'process_serial_subxfr');
4294: END IF;
4295: RETURN;
4311: inv_log_util.trace('Inserted MSNT record', 'process_serial_subxfr');
4312: inv_log_util.trace('Serial Temp ID = ' || l_transaction_temp_id, 'process_serial_subxfr');
4313: END IF;
4314: ELSE
4315: x_return_status := fnd_api.g_ret_sts_unexp_error;
4316: IF (l_debug = 1) THEN
4317: inv_log_util.trace(l_proc_msg, 'process_serial_subxfr');
4318: END IF;
4319: RETURN;
4335:
4336:
4337: PROCEDURE check_loose_and_packed_qty
4338: (p_api_version_number IN NUMBER
4339: , p_init_msg_lst IN VARCHAR2 DEFAULT fnd_api.g_false
4340: , x_return_status OUT NOCOPY VARCHAR2
4341: , x_msg_count OUT NOCOPY NUMBER
4342: , x_msg_data OUT NOCOPY VARCHAR2
4343: , p_organization_id IN NUMBER
4379: l_inv_rcpt_code mtl_parameters.negative_inv_receipt_code%type;
4380:
4381: l_api_version_number CONSTANT NUMBER := 1.0;
4382: l_api_name CONSTANT VARCHAR2(30) := 'Check_Looose_and_packed_Qty';
4383: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
4384:
4385: l_transaction_source_type_id NUMBER;
4386: l_new_qoh NUMBER;
4387: l_new_att NUMBER;
4425:
4426: inv_quantity_tree_pub.clear_quantity_cache;
4427:
4428: -- Standard call to check for call compatibility
4429: IF NOT fnd_api.compatible_api_call(l_api_version_number
4430: , p_api_version_number
4431: , l_api_name
4432: , G_PKG_NAME
4433: ) THEN
4430: , p_api_version_number
4431: , l_api_name
4432: , G_PKG_NAME
4433: ) THEN
4434: RAISE fnd_api.g_exc_unexpected_error;
4435: END IF;
4436: IF (l_debug = 1) THEN
4437: mdebug ('Done checking if compatible api call.');
4438: END IF;
4437: mdebug ('Done checking if compatible api call.');
4438: END IF;
4439:
4440: -- Initialize message list.
4441: IF fnd_api.to_boolean(p_init_msg_lst) THEN
4442: fnd_msg_pub.initialize;
4443: END IF;
4444:
4445: p_ok_to_process := 'false';
4691: l_atr NUMBER := 0 ;
4692: l_is_revision_control BOOLEAN := FALSE;
4693: l_is_lot_control BOOLEAN := FALSE;
4694: l_is_serial_control BOOLEAN := FALSE;
4695: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
4696: p_init_msg_lst VARCHAR2(30);
4697: l_api_name CONSTANT VARCHAR2(30) := 'Get_Avbl_To_Transact_Qty';
4698: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4699: BEGIN
4714: l_is_serial_control := TRUE;
4715: END IF;
4716:
4717: -- Initialize message list.
4718: IF fnd_api.to_boolean(p_init_msg_lst) THEN
4719: fnd_msg_pub.initialize;
4720: END IF;
4721:
4722: -- Clearing any cache if existent
4724:
4725: -- this call will provide reserved quantity for all but the demand source specified
4726: inv_quantity_tree_pub.query_quantities
4727: ( p_api_version_number => 1.0
4728: , p_init_msg_lst => fnd_api.g_false
4729: , x_return_status => l_return_status
4730: , x_msg_count => l_msg_count
4731: , x_msg_data => l_msg_data
4732: , p_organization_id => p_organization_id
4750: , x_att => l_att
4751: , x_atr => l_atr
4752: );
4753:
4754: IF l_return_status = fnd_api.g_ret_sts_error THEN
4755: RAISE fnd_api.g_exc_error;
4756: END IF ;
4757:
4758: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4751: , x_atr => l_atr
4752: );
4753:
4754: IF l_return_status = fnd_api.g_ret_sts_error THEN
4755: RAISE fnd_api.g_exc_error;
4756: END IF ;
4757:
4758: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4759: RAISE fnd_api.g_exc_unexpected_error;
4754: IF l_return_status = fnd_api.g_ret_sts_error THEN
4755: RAISE fnd_api.g_exc_error;
4756: END IF ;
4757:
4758: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4759: RAISE fnd_api.g_exc_unexpected_error;
4760: END IF;
4761:
4762: x_att := l_att ;
4755: RAISE fnd_api.g_exc_error;
4756: END IF ;
4757:
4758: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4759: RAISE fnd_api.g_exc_unexpected_error;
4760: END IF;
4761:
4762: x_att := l_att ;
4763:
4770: x_return_status := l_return_status;
4771:
4772: EXCEPTION
4773:
4774: WHEN fnd_api.g_exc_error THEN
4775: x_return_status := fnd_api.g_ret_sts_error;
4776:
4777: -- Get message count and data
4778: fnd_msg_pub.count_and_get
4771:
4772: EXCEPTION
4773:
4774: WHEN fnd_api.g_exc_error THEN
4775: x_return_status := fnd_api.g_ret_sts_error;
4776:
4777: -- Get message count and data
4778: fnd_msg_pub.count_and_get
4779: ( p_count => l_msg_count
4779: ( p_count => l_msg_count
4780: , p_data => l_msg_data
4781: );
4782:
4783: WHEN fnd_api.g_exc_unexpected_error THEN
4784: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4785:
4786: -- Get message count and data
4787: fnd_msg_pub.count_and_get
4780: , p_data => l_msg_data
4781: );
4782:
4783: WHEN fnd_api.g_exc_unexpected_error THEN
4784: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4785:
4786: -- Get message count and data
4787: fnd_msg_pub.count_and_get
4788: ( p_count => l_msg_count
4789: , p_data => l_msg_data
4790: );
4791:
4792: WHEN OTHERS THEN
4793: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4794:
4795: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
4796: THEN
4797: