[Home] [Help]
89: BEGIN
90: WHILE NOT l_request_number_ok LOOP
91: SELECT mtl_txn_request_headers_s.NEXTVAL
92: INTO l_header_id
93: FROM DUAL;
94:
95: BEGIN
96: SELECT 'X'
97: INTO l_dummy
469: FETCH serial_temp_csr INTO l_fm_serial_number, l_to_serial_number, l_header_id;
470:
471: IF l_to_serial_number IS NOT NULL THEN
472: IF l_to_serial_number = l_fm_serial_number THEN
473: --ranges individually assigned ranges
474: DELETE FROM mtl_serial_numbers_temp
475: WHERE CURRENT OF serial_temp_csr;
476:
477: /*** {{ R12 Enhanced reservations code changes,
503: IF del_serial_number = p_cancel_qty THEN
504: --dbms_output.put_line('Del serial number = cancel_qty'||Del_serial_number);
505: RETURN;
506: END IF;
507: END IF; -- end if range individually assigned serials
508: END IF; -- end if l_to_serial number null check
509:
510: CLOSE serial_temp_csr;
511: END LOOP;
1365: p_organization_id => l_trolin_rec.organization_id,
1366: p_lot_number => l_trolin_rec.lot_number,
1367: p_from_quantity => l_trolin_rec.quantity,
1368: p_from_unit => l_trolin_rec.uom_code);
1369: -- nsinghi bug#5724815 need to populate the secondary qty too for dual items.
1370: -- START
1371: /*Bug#8240056 secondary qty passed can not be overwriten so changin the below condition
1372: to have the recalculation only when the new secondaty qty is null */
1373: IF l_old_trolin_rec.secondary_uom IS NOT NULL AND l_trolin_rec.secondary_quantity IS NULL THEN
2332: IF g_retain_ato_profile = 'Y' Then
2333: BEGIN
2334: SELECT 1
2335: INTO l_ato_item
2336: FROM dual
2337: WHERE EXISTS (SELECT msi.inventory_item_id
2338: FROM mtl_system_items msi, mtl_Reservations mtr
2339: WHERE msi.inventory_item_id = mtr.inventory_item_id
2340: AND msi.organization_id = mtr.organization_id
2357: IF l_ato_item = 1 THEN
2358: BEGIN
2359: SELECT 1
2360: INTO l_unstaged_so_exists
2361: FROM dual
2362: WHERE EXISTS ( SELECT delivery_Detail_id
2363: FROM wsh_delivery_Details
2364: WHERE source_line_id = p_source_line_id
2365: AND released_status in ( 'B','R','S'));
2384: BEGIN
2385:
2386: SELECT 1
2387: INTO l_unstaged_so_exists
2388: FROM DUAL
2389: WHERE EXISTS( SELECT /*+ index(wsh_delivery_details WSH_DELIVERY_DETAILS_N3) */ delivery_detail_id
2390: FROM wsh_delivery_details
2391: WHERE source_line_id = p_source_line_id
2392: AND (released_status IN ('B','R','S')));
4010: l_mtl_reservation_rec.reservation_uom_code := l_mmtt_rec.transaction_uom;
4011: l_mtl_reservation_rec.subinventory_code := l_mmtt_rec.transfer_subinventory;
4012: l_mtl_reservation_rec.detailed_quantity := 0;
4013: -- bug 5354515, lgao blank out the qty2 and uom 2 if not tracked by PS
4014: if l_tracking_quantity_ind <> 'P' then -- dual uom tracked
4015: l_mtl_reservation_rec.secondary_reservation_quantity := ABS(l_lot_secondary_quantity);
4016: l_mtl_reservation_rec.secondary_uom_code := l_mmtt_rec.secondary_uom_code;
4017: l_mtl_reservation_rec.secondary_detailed_quantity := 0;
4018: else -- primary tracked
4096: l_mtl_reservation_rec.primary_reservation_quantity := l_primary_shipping_quantity;
4097: l_mtl_reservation_rec.reservation_quantity := l_shipping_quantity;
4098: l_mtl_reservation_rec.reservation_uom_code := l_mmtt_rec.transaction_uom;
4099: -- bug 5354515, lgao blank out the qty2 and uom 2 if not tracked by PS
4100: if l_tracking_quantity_ind <> 'P' then -- dual uom tracked
4101: l_mtl_reservation_rec.secondary_reservation_quantity := l_sec_shipping_quantity;
4102: l_mtl_reservation_rec.secondary_uom_code := l_mmtt_rec.secondary_uom_code;
4103: else -- primary tracked
4104: l_mtl_reservation_rec.secondary_reservation_quantity := null;
4860: l_lot_number <> l_previous_lot_number ) THEN
4861: l_previous_lot_number := l_lot_number;
4862:
4863: BEGIN
4864: SELECT WMS_CATCH_WEIGHT_PVT.G_PRICE_PRIMARY INTO l_catch_weight_enabled FROM DUAL
4865: WHERE EXISTS (
4866: SELECT 1
4867: FROM mtl_material_transactions_temp mmtt,
4868: mtl_transaction_lots_temp mtlt
5105: -- this LPN. If any do not have secondary quantity defined, do not populate
5106: -- picked_quantity2
5107: IF ( l_catch_weight_enabled = WMS_CATCH_WEIGHT_PVT.G_PRICE_SECONDARY ) THEN
5108: BEGIN
5109: SELECT WMS_CATCH_WEIGHT_PVT.G_PRICE_PRIMARY INTO l_catch_weight_enabled FROM DUAL
5110: WHERE EXISTS (
5111: SELECT 1
5112: FROM mtl_material_transactions_temp mmtt
5113: WHERE mmtt.organization_id = l_mmtt_rec.organization_id
5344: l_lot_number <> l_previous_lot_number ) THEN
5345: l_previous_lot_number := l_lot_number;
5346:
5347: BEGIN
5348: SELECT WMS_CATCH_WEIGHT_PVT.G_PRICE_PRIMARY INTO l_catch_weight_enabled FROM DUAL
5349: WHERE EXISTS (
5350: SELECT 1
5351: FROM mtl_material_transactions_temp mmtt,
5352: mtl_transaction_lots_temp mtlt
5460: -- this LPN. If any do not have secondary quantity defined, do not populate
5461: -- picked_quantity2
5462: IF ( l_catch_weight_enabled = WMS_CATCH_WEIGHT_PVT.G_PRICE_SECONDARY ) THEN
5463: BEGIN
5464: SELECT WMS_CATCH_WEIGHT_PVT.G_PRICE_PRIMARY INTO l_catch_weight_enabled FROM DUAL
5465: WHERE EXISTS (
5466: SELECT 1
5467: FROM mtl_material_transactions_temp mmtt
5468: WHERE mmtt.organization_id = l_mmtt_rec.organization_id