[Home] [Help]
1033: l_progress := '300';
1034:
1035: SELECT MTL_MATERIAL_TRANSACTIONS_S.NEXTVAL
1036: INTO l_txn_header_id
1037: FROM dual;
1038:
1039: l_progress := '310';
1040:
1041: UPDATE WMS_PUTAWAY_GROUP_TASKS_GTMP
1157: --l_txn_header_id := MTL_MATERIAL_TRANSACTIONS_S.NEXTVAL;
1158:
1159: SELECT MTL_MATERIAL_TRANSACTIONS_S.NEXTVAL
1160: INTO l_txn_header_id
1161: FROM dual;
1162: l_progress := '140';
1163:
1164: UPDATE WMS_PUTAWAY_GROUP_TASKS_GTMP
1165: SET transaction_header_id = l_txn_header_id
2652: l_progress := '205';
2653:
2654: SELECT 1
2655: INTO l_qty_disc_count
2656: FROM dual
2657: WHERE EXISTS (
2658: SELECT mtrl.line_id
2659: FROM mtl_txn_request_lines mtrl
2660: ,mtl_txn_request_headers mtrh
6646: );
6647:
6648: -- Check if the lPN is alredy loaded
6649: BEGIN
6650: SELECT 'Y' INTO x_loaded_status FROM dual where exists
6651: (SELECT 1 from
6652: wms_dispatched_tasks W,
6653: mtl_material_transactions_temp t,
6654: mtl_txn_request_lines M
6706: /*Bug#6920388. Commented this block because we are checking for
6707: loaded LPN below
6708: begin
6709: if (x_lpn_context =1 and x_loaded_status = 'N' ) then
6710: -- SELECT 'Y' INTO x_loaded_status FROM dual where exists
6711: SELECT 'Z' INTO x_loaded_status FROM dual where exists -- End of changes for the bug 5768339.
6712: (SELECT 1 FROM mtl_material_transactions_temp mmtt, wms_dispatched_tasks wdt
6713: WHERE mmtt.transaction_temp_id = wdt.transaction_temp_id
6714: AND mmtt.organization_id = wdt.organization_id
6707: loaded LPN below
6708: begin
6709: if (x_lpn_context =1 and x_loaded_status = 'N' ) then
6710: -- SELECT 'Y' INTO x_loaded_status FROM dual where exists
6711: SELECT 'Z' INTO x_loaded_status FROM dual where exists -- End of changes for the bug 5768339.
6712: (SELECT 1 FROM mtl_material_transactions_temp mmtt, wms_dispatched_tasks wdt
6713: WHERE mmtt.transaction_temp_id = wdt.transaction_temp_id
6714: AND mmtt.organization_id = wdt.organization_id
6715: AND wdt.status = 4
6922: ------------------------------------------------------------------------*/
6923:
6924: IF l_entire_lpn_empty THEN
6925: BEGIN
6926: SELECT 'Y' INTO x_loaded_status FROM dual where exists
6927: (select 1 from
6928: WMS_DISPATCHED_TASKS W, MTL_MATERIAL_TRANSACTIONS_TEMP T
6929: WHERE T.lpn_id = l_lpn_id
6930: AND t.organization_id = p_org_id
7440: -- Get Transaction header id.
7441:
7442: SELECT mtl_material_transactions_s.NEXTVAL
7443: INTO l_trx_header_id
7444: FROM dual;
7445:
7446:
7447: -- Pack Entire lpn witn LPN context Resides in inventory
7448: IF l_lpn_context = 1 AND p_mode = 1 THEN
8115: END IF; --IF (p_first_time = 1)
8116:
8117: SELECT rcv_transactions_interface_s.NEXTVAL
8118: INTO l_interface_transaction_id
8119: FROM dual;
8120:
8121: -- init_start_values should have called gen_txn_group_id
8122: l_group_id := inv_rcv_common_apis.g_rcv_global_var.interface_group_id;
8123:
8402: IF p_lpn_context = 3 THEN
8403: IF inv_rcv_common_apis.g_rcv_global_var.interface_group_id IS NULL THEN
8404: SELECT rcv_interface_groups_s.NEXTVAL
8405: INTO l_group_id
8406: FROM DUAL;
8407: inv_rcv_common_apis.g_rcv_global_var.interface_group_id := l_group_id;
8408: ELSE
8409: l_group_id := inv_rcv_common_apis.g_rcv_global_var.interface_group_id;
8410: END IF;
9720: -- create MMTT records for each loose item, each inner LPN
9721: -- Group them into same header, and then call inventory TM
9722: SELECT mtl_material_transactions_s.NEXTVAL
9723: INTO l_hdr_id
9724: FROM dual;
9725:
9726: l_progress := '250';
9727:
9728: IF (l_sub_loc_changed = 'Y') THEN
11148: IF (p_lpn_context IN (G_LPN_CONTEXT_INV, G_LPN_CONTEXT_WIP)) THEN
11149:
11150: SELECT mtl_material_transactions_s.NEXTVAL
11151: INTO l_new_txn_header_id
11152: FROM DUAL;
11153:
11154: --For an item drop of an Inventory/WIP LPN with quantity
11155: --discrepancy/partial lpn drop,
11156: --we would have marked the serials in UI. Have to first fetch all such
11379:
11380: IF (l_disc = 'Y' OR p_entire_lpn = 'N') THEN
11381: SELECT mtl_material_transactions_s.NEXTVAL
11382: INTO l_dummy_temp_id
11383: FROM dual;
11384: END IF;
11385:
11386: IF (l_quantity <= l_remaining_qty) THEN
11387: l_remaining_qty := l_remaining_qty - l_quantity;
11437: --This was done as in cases of item based putaway of serial items putaway was failing due to mismatched l_product_transaction_id value.
11438: /*IF (l_serialized_item AND l_mmtt_prm_qty = 1) THEN
11439: SELECT rcv_transactions_interface_s.NEXTVAL
11440: INTO l_product_transaction_id
11441: FROM sys.dual;
11442: END IF;
11443: */
11444: --Insert MSNI for receiving LPN
11445: IF (l_lot_control_code > 1 AND p_lot_number IS NOT NULL) THEN
12480: CONNECT BY PRIOR wlpn1.lpn_id = wlpn1.parent_lpn_id);
12481:
12482: SELECT 1
12483: INTO l_count
12484: FROM dual
12485: WHERE EXISTS
12486: (SELECT 'INTO_LPN_EXISTS'
12487: FROM wms_license_plate_numbers wlpn
12488: WHERE wlpn.organization_id = p_organization_id
12863: l_count := 1;
12864: ELSE--IF p_lpn_id = l_into_lpn_id THEN
12865: BEGIN
12866: SELECT 1 INTO l_count
12867: FROM DUAL
12868: WHERE EXISTS (
12869: SELECT 'INTO_LPN_EXISTS'
12870: FROM wms_license_plate_numbers wlpn
12871: WHERE wlpn.organization_id = p_organization_id