[Home] [Help]
19: TYPE g_mmtt_tbl_type IS TABLE OF mtl_material_transactions_temp%ROWTYPE
20: INDEX BY BINARY_INTEGER;
21: TYPE g_mtlt_tbl_type IS TABLE OF mtl_transaction_lots_temp%ROWTYPE
22: INDEX BY BINARY_INTEGER;
23: TYPE g_msnt_tbl_type IS TABLE OF mtl_serial_numbers_temp%ROWTYPE
24: INDEX BY BINARY_INTEGER;
25: --
26:
27: --Cache for function is_sub_loc_lot_trx_allowed
1561: ) RETURN BOOLEAN
1562: IS
1563: CURSOR l_cur IS
1564: SELECT serial_number
1565: FROM mtl_serial_numbers
1566: WHERE inventory_item_id = p_inventory_item_id
1567: AND serial_number = p_serial_number
1568: FOR UPDATE nowait;
1569: l_serial_number VARCHAR2(30);
1626: SELECT p_inventory_item_id
1627: , p_organization_id
1628: , msn.serial_number
1629: , null
1630: FROM mtl_serial_numbers msn, inv_msn_gtemp img
1631: WHERE msn.inventory_item_id = p_inventory_item_id
1632: AND msn.current_organization_id = p_organization_id
1633: AND nvl(msn.revision,'@@@') = nvl(p_revision,'@@@')
1634: AND nvl(msn.lot_number, '@@@') = nvl(p_lot_number,'@@@')
1657: , img.organization_id
1658: , img.serial_number
1659: --, null dont forget
1660: , msn.status_id
1661: FROM inv_msn_gtemp img, mtl_serial_numbers msn
1662: WHERE img.use_flag = 0
1663: AND msn.serial_number = img.serial_number
1664: AND msn.inventory_item_id = img.inventory_item_id
1665: AND msn.current_organization_id = img.organization_id
2684: end if;
2685: --
2686: END insert_mtlt;
2687: --
2688: -- insert record into mtl_serial_numbers_temp
2689: -- who columns will be derived in the procedure
2690: PROCEDURE insert_msnt
2691: (
2692: x_return_status OUT NOCOPY VARCHAR2
2717: l_today := SYSDATE;
2718: l_user_id := fnd_global.user_id;
2719: l_login_id := fnd_global.login_id;
2720: FOR l_counter IN 1..p_msnt_tbl_size LOOP
2721: INSERT INTO mtl_serial_numbers_temp
2722: (
2723: transaction_temp_id
2724: ,last_update_date
2725: ,last_updated_by
2968: END add_output;
2969: --
2970: --
2971: -- Description
2972: -- Set the group_mark_id in mtl_serial_numbers for all serial numbers
2973: -- used in the output table to be the move order line id that
2974: -- initiates the detailing request, so that they would not be used
2975: -- by later detailing.
2976: -- Bug #1267029
2974: -- initiates the detailing request, so that they would not be used
2975: -- by later detailing.
2976: -- Bug #1267029
2977: -- Changed how mark_serial_number works. Now, this procedure
2978: -- is called for each input line in mtl_serial_numbers_temp.
2979: -- It takes the inventory_item_id, group_mark_id, serial number
2980: -- start, and serial number end. It does not look at all the
2981: -- output process records.
2982: PROCEDURE mark_serial_numbers
2985: ,p_serial_number_start IN VARCHAR2
2986: ,p_serial_number_end IN VARCHAR2)
2987: IS
2988: BEGIN
2989: UPDATE mtl_serial_numbers
2990: SET group_mark_id = p_group_mark_id
2991: WHERE inventory_item_id = p_inventory_item_id
2992: AND serial_number between p_serial_number_start and p_serial_number_end;
2993: END mark_serial_numbers;
3068: x_return_status := fnd_api.g_ret_sts_unexp_error;
3069: END update_detailed_quantities;
3070: --
3071: -- create suggestion records.
3072: -- insert into mtl_material_transactions_temp, mtl_serial_numbers_temp,
3073: -- or mtl_transaction_lots_temp
3074: PROCEDURE process_output
3075: (x_return_status OUT NOCOPY VARCHAR2,
3076: p_request_line_rec IN g_request_line_rec_type,
3134: g_insert_serial_flag := 0;
3135: --
3136: -- The following code is commented because
3137: -- the sign for the quantity in mtl_material_transactions_temp
3138: -- and mtl_transaction_lots_temp and mtl_serial_numbers_temp
3139: -- for the suggestion records will be positive always.
3140: -- The reason is that the move order transaction form
3141: -- and api expect the quantity to be positive regardless
3142: -- what transaction (pick/put) it is. The form or the
3635: inv_pp_debug.send_message_to_pipe('# of records inserted to mtl_material_transactions_temp: '
3636: || l_mmtt_tbl_size);
3637: inv_pp_debug.send_message_to_pipe('# of records inserted to mtl_transaction_lots_temp: '
3638: || l_mtlt_tbl_size);
3639: inv_pp_debug.send_message_to_pipe('# of records inserted to mtl_serial_numbers_temp: '
3640: || l_msnt_tbl_size);
3641: inv_pp_debug.send_message_to_pipe('exit '||g_pkg_name||'.'||l_api_name);
3642: END IF;
3643: -- end of debugging section