[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
466: FETCH serial_temp_csr INTO l_fm_serial_number, l_to_serial_number, l_header_id;
467:
468: IF l_to_serial_number IS NOT NULL THEN
469: IF l_to_serial_number = l_fm_serial_number THEN
470: --ranges individually assigned ranges
471: DELETE FROM mtl_serial_numbers_temp
472: WHERE CURRENT OF serial_temp_csr;
473:
474: /*** {{ R12 Enhanced reservations code changes,
500: IF del_serial_number = p_cancel_qty THEN
501: --dbms_output.put_line('Del serial number = cancel_qty'||Del_serial_number);
502: RETURN;
503: END IF;
504: END IF; -- end if range individually assigned serials
505: END IF; -- end if l_to_serial number null check
506:
507: CLOSE serial_temp_csr;
508: END LOOP;
1356: l_trolin_rec.quantity := ROUND(l_trolin_rec.quantity , 5);
1357: END IF;
1358: /*l_trolin_rec.quantity := ROUND(l_trolin_rec.quantity , 5);*/
1359: l_trolin_rec.primary_quantity := get_primary_quantity(p_item_id => l_trolin_rec.inventory_item_id, p_organization_id => l_trolin_rec.organization_id, p_from_quantity => l_trolin_rec.quantity, p_from_unit => l_trolin_rec.uom_code);
1360: -- nsinghi bug#5724815 need to populate the secondary qty too for dual items.
1361: -- START
1362: IF l_old_trolin_rec.secondary_uom IS NOT NULL THEN
1363: l_trolin_rec.secondary_quantity := inv_convert.inv_um_convert
1364: ( item_id => l_trolin_rec.inventory_item_id,
2319: IF g_retain_ato_profile = 'Y' Then
2320: BEGIN
2321: SELECT 1
2322: INTO l_ato_item
2323: FROM dual
2324: WHERE EXISTS (SELECT msi.inventory_item_id
2325: FROM mtl_system_items msi, mtl_Reservations mtr
2326: WHERE msi.inventory_item_id = mtr.inventory_item_id
2327: AND msi.organization_id = mtr.organization_id
2344: IF l_ato_item = 1 THEN
2345: BEGIN
2346: SELECT 1
2347: INTO l_unstaged_so_exists
2348: FROM dual
2349: WHERE EXISTS ( SELECT delivery_Detail_id
2350: FROM wsh_delivery_Details
2351: WHERE source_line_id = p_source_line_id
2352: AND released_status in ( 'B','R','S'));
2371: BEGIN
2372:
2373: SELECT 1
2374: INTO l_unstaged_so_exists
2375: FROM DUAL
2376: WHERE EXISTS( SELECT /*+ index(wsh_delivery_details WSH_DELIVERY_DETAILS_N3) */ delivery_detail_id
2377: FROM wsh_delivery_details
2378: WHERE source_line_id = p_source_line_id
2379: AND (released_status IN ('B','R','S')));
3749: l_mtl_reservation_rec.reservation_uom_code := l_mmtt_rec.transaction_uom;
3750: l_mtl_reservation_rec.subinventory_code := l_mmtt_rec.transfer_subinventory;
3751: l_mtl_reservation_rec.detailed_quantity := 0;
3752: -- bug 5354515, lgao blank out the qty2 and uom 2 if not tracked by PS
3753: if l_tracking_quantity_ind <> 'P' then -- dual uom tracked
3754: l_mtl_reservation_rec.secondary_reservation_quantity := ABS(l_lot_secondary_quantity);
3755: l_mtl_reservation_rec.secondary_uom_code := l_mmtt_rec.secondary_uom_code;
3756: l_mtl_reservation_rec.secondary_detailed_quantity := 0;
3757: else -- primary tracked
3835: l_mtl_reservation_rec.primary_reservation_quantity := l_primary_shipping_quantity;
3836: l_mtl_reservation_rec.reservation_quantity := l_shipping_quantity;
3837: l_mtl_reservation_rec.reservation_uom_code := l_mmtt_rec.transaction_uom;
3838: -- bug 5354515, lgao blank out the qty2 and uom 2 if not tracked by PS
3839: if l_tracking_quantity_ind <> 'P' then -- dual uom tracked
3840: l_mtl_reservation_rec.secondary_reservation_quantity := l_sec_shipping_quantity;
3841: l_mtl_reservation_rec.secondary_uom_code := l_mmtt_rec.secondary_uom_code;
3842: else -- primary tracked
3843: l_mtl_reservation_rec.secondary_reservation_quantity := null;
4523: l_lot_number <> l_previous_lot_number ) THEN
4524: l_previous_lot_number := l_lot_number;
4525:
4526: BEGIN
4527: SELECT WMS_CATCH_WEIGHT_PVT.G_PRICE_PRIMARY INTO l_catch_weight_enabled FROM DUAL
4528: WHERE EXISTS (
4529: SELECT 1
4530: FROM mtl_material_transactions_temp mmtt,
4531: mtl_transaction_lots_temp mtlt
4769: -- this LPN. If any do not have secondary quantity defined, do not populate
4770: -- picked_quantity2
4771: IF ( l_catch_weight_enabled = WMS_CATCH_WEIGHT_PVT.G_PRICE_SECONDARY ) THEN
4772: BEGIN
4773: SELECT WMS_CATCH_WEIGHT_PVT.G_PRICE_PRIMARY INTO l_catch_weight_enabled FROM DUAL
4774: WHERE EXISTS (
4775: SELECT 1
4776: FROM mtl_material_transactions_temp mmtt
4777: WHERE mmtt.organization_id = l_mmtt_rec.organization_id
5000: l_lot_number <> l_previous_lot_number ) THEN
5001: l_previous_lot_number := l_lot_number;
5002:
5003: BEGIN
5004: SELECT WMS_CATCH_WEIGHT_PVT.G_PRICE_PRIMARY INTO l_catch_weight_enabled FROM DUAL
5005: WHERE EXISTS (
5006: SELECT 1
5007: FROM mtl_material_transactions_temp mmtt,
5008: 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