[Home] [Help]
1832: l_progress := '@@@';
1833: BEGIN
1834: SELECT 1
1835: INTO l_dummy
1836: FROM mtl_txn_request_lines
1837: WHERE line_id = p_cas_mol_rec_tb(1).line_id
1838: FOR UPDATE NOWAIT;
1839: EXCEPTION
1840: WHEN OTHERS THEN
1972: BEGIN
1973:
1974: SELECT reference, reference_id ,lpn_id,lot_number
1975: INTO l_reference, l_reference_id ,l_lpn_id,l_lot_number
1976: FROM mtl_txn_request_lines
1977: WHERE line_id = p_cas_mol_rec_tb(1).line_id AND reference_type_code = 4;
1978:
1979: print_debug('l_reference ::'|| l_reference ,l_module_name,4);
1980: print_debug('l_reference_id ::' || l_reference_id,l_module_name,4);
1986:
1987: IF (l_reference = 'PO_LINE_LOCATION_ID') THEN
1988:
1989: SELECT prha.interface_source_line_id INTO l_demand_source_line_id
1990: FROM po_requisition_lines_all prla ,mtl_txn_request_lines mtrl ,
1991: po_requisition_headers_all prha , po_line_locations_all plla
1992: WHERE plla.line_location_id=prla.line_location_id
1993: AND plla.line_location_id = mtrl.reference_id
1994: AND prha.requisition_header_id = prla.requisition_header_id
2356: -- to check if the LPN has available MOL quantity that has no wdd stamped
2357: BEGIN
2358: SELECT SUM(primary_quantity)
2359: INTO l_qty_with_no_wdd
2360: FROM mtl_txn_request_lines mtrl
2361: WHERE nvl(mtrl.lpn_id,-999)=nvl(p_cas_mol_rec_tb(1).lpn_id,-999)
2362: AND nvl(mtrl.from_subinventory_code,'&&&')=nvl(p_cas_mol_rec_tb(1).from_subinventory_code,'&&&')--???
2363: AND nvl(mtrl.from_locator_id,-999)=nvl(p_cas_mol_rec_tb(1).from_locator_id,-999)--???
2364: AND mtrl.organization_id = p_cas_mol_rec_tb(1).organization_id
2433: AND mr.inventory_item_id = p_cas_mol_rec_tb(1).inventory_item_id
2434: AND ((mr.demand_source_line_detail IS NOT NULL
2435: AND mr.demand_source_line_detail
2436: IN (SELECT mol.backorder_delivery_detail_id
2437: FROM mtl_txn_request_lines mol
2438: WHERE mol.organization_id = p_cas_mol_rec_tb(1).organization_id
2439: AND mol.inventory_item_id = p_cas_mol_rec_tb(1).inventory_item_id
2440: AND NVL(mol.revision, '@@@') = NVL(p_cas_mol_rec_tb(1).item_revision, '@@@')
2441: AND (NVL(mol.project_id, -999) = NVL(p_cas_mol_rec_tb(1).project_id, -999)
2454: AND mtrh.header_id = mol.header_id)
2455: )) OR
2456: (mr.demand_source_line_detail IS NULL
2457: AND exists (SELECT mol.backorder_delivery_detail_id
2458: FROM mtl_txn_request_lines mol
2459: WHERE mol.organization_id = p_cas_mol_rec_tb(1).organization_id
2460: AND mol.inventory_item_id = p_cas_mol_rec_tb(1).inventory_item_id
2461: AND NVL(mol.revision, '@@@') = NVL(p_cas_mol_rec_tb(1).item_revision, '@@@')
2462: AND (NVL(mol.project_id, -999) = NVL(p_cas_mol_rec_tb(1).project_id, -999)
2491:
2492: BEGIN
2493: SELECT line_id
2494: INTO l_mo_line_id
2495: FROM mtl_txn_request_lines mol
2496: WHERE backorder_delivery_detail_id = l_rsv_results.demand_source_line_detail
2497: AND mol.organization_id = p_cas_mol_rec_tb(1).organization_id
2498: AND mol.inventory_item_id = p_cas_mol_rec_tb(1).inventory_item_id
2499: AND NVL(mol.revision, '@@@') = NVL(p_cas_mol_rec_tb(1).item_revision, '@@@')
2672: l_tmp_line_id := l_mo_line_id;
2673: l_remaining_prim_qty := l_remaining_prim_qty - l_rsv_results.primary_reservation_quantity;
2674: END IF;
2675:
2676: UPDATE mtl_txn_request_lines
2677: SET quantity = Nvl(quantity_delivered,0)
2678: , primary_quantity = ((primary_quantity*Nvl(quantity_delivered,0))/quantity)
2679: , quantity_detailed = Decode(quantity_detailed,NULL,quantity_detailed,quantity_delivered)
2680: -- OPMConvergence
2847: END IF;
2848:
2849: FOR l_mol_rec IN (SELECT mtrl.line_id
2850: , mtrl.primary_quantity
2851: FROM mtl_txn_request_lines mtrl
2852: WHERE mtrl.line_status = 7
2853: AND (mtrl.quantity-Nvl(mtrl.quantity_delivered,0)) > 0
2854: -- AND mtrl.backorder_delivery_detail_id IS NULL --Bug#6040524
2855: AND mtrl.organization_id = p_cas_mol_rec_tb(1).organization_id
2928: IF (l_debug = 1) THEN
2929: print_debug('Closing MOL '||l_tmp_line_id,l_module_name,9);
2930: END IF;
2931:
2932: UPDATE mtl_txn_request_lines
2933: SET quantity = Nvl(quantity_delivered,0)
2934: , primary_quantity = ((primary_quantity*Nvl(quantity_delivered,0))/quantity)
2935: , quantity_detailed = Decode(quantity_detailed,NULL,quantity_detailed,quantity_delivered)
2936: -- OPMConvergence
3015: , mmtt.wip_supply_type
3016: , mtrl.reference
3017: , mtrl.reference_type_code
3018: , mtrl.reference_id
3019: FROM mtl_txn_request_lines mtrl
3020: , mtl_material_transactions_temp mmtt
3021: WHERE mtrl.organization_id = p_org_id
3022: AND nvl(mtrl.from_subinventory_code,'@$#_') = nvl(p_from_sub,'@$#_')
3023: AND nvl(mtrl.from_locator_id,-1) = nvl(p_from_locator_id,-1)
3151: p_cas_mol_tb(1).primary_uom_code);
3152:
3153: IF l_mol_qty_in_puom <= l_remaining_primary_quantity THEN
3154: --update the mol
3155: UPDATE mtl_txn_request_lines
3156: SET quantity = Nvl(quantity_delivered,0)
3157: , primary_quantity = ((primary_quantity*Nvl(quantity_delivered,0))/quantity)
3158: , quantity_detailed = Decode(quantity_detailed,NULL,quantity_detailed,quantity_delivered)
3159: -- OPMConvergence
3217: print_debug('NEW LINE ID:'||l_mo_split_tb(1).line_id,l_module_name,4);
3218: END IF;
3219:
3220: --update the new line for return
3221: UPDATE mtl_txn_request_lines
3222: SET quantity = Nvl(quantity_delivered,0)
3223: , primary_quantity = ((primary_quantity*Nvl(quantity_delivered,0))/quantity)
3224: , quantity_detailed = Decode(quantity_detailed,NULL,quantity_detailed,quantity_delivered)
3225: -- OPMConvergence
3249: RAISE fnd_api.g_exc_error;
3250: END IF;
3251:
3252: --update the old line for wms process flag
3253: UPDATE mtl_txn_request_lines
3254: SET wms_process_flag = 1
3255: WHERE line_id = l_mol_rec.line_id;
3256:
3257: l_remaining_primary_quantity := 0;