[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
1694: ) RETURN BOOLEAN
1695: IS
1696: CURSOR l_cur IS
1697: SELECT serial_number
1698: FROM mtl_serial_numbers
1699: WHERE inventory_item_id = p_inventory_item_id
1700: AND serial_number = p_serial_number
1701: FOR UPDATE nowait;
1702: l_serial_number VARCHAR2(30);
1759: SELECT p_inventory_item_id
1760: , p_organization_id
1761: , msn.serial_number
1762: , null
1763: FROM mtl_serial_numbers msn, inv_msn_gtemp img
1764: WHERE msn.inventory_item_id = p_inventory_item_id
1765: AND msn.current_organization_id = p_organization_id
1766: AND nvl(msn.revision,'@@@') = nvl(p_revision,'@@@')
1767: AND nvl(msn.lot_number, '@@@') = nvl(p_lot_number,'@@@')
1790: , img.organization_id
1791: , img.serial_number
1792: --, null dont forget
1793: , msn.status_id
1794: FROM inv_msn_gtemp img, mtl_serial_numbers msn
1795: WHERE img.use_flag = 0
1796: AND msn.serial_number = img.serial_number
1797: AND msn.inventory_item_id = img.inventory_item_id
1798: AND msn.current_organization_id = img.organization_id
2821: end if;
2822: --
2823: END insert_mtlt;
2824: --
2825: -- insert record into mtl_serial_numbers_temp
2826: -- who columns will be derived in the procedure
2827: PROCEDURE insert_msnt
2828: (
2829: x_return_status OUT NOCOPY VARCHAR2
2854: l_today := SYSDATE;
2855: l_user_id := fnd_global.user_id;
2856: l_login_id := fnd_global.login_id;
2857: FOR l_counter IN 1..p_msnt_tbl_size LOOP
2858: INSERT INTO mtl_serial_numbers_temp
2859: (
2860: transaction_temp_id
2861: ,last_update_date
2862: ,last_updated_by
3105: END add_output;
3106: --
3107: --
3108: -- Description
3109: -- Set the group_mark_id in mtl_serial_numbers for all serial numbers
3110: -- used in the output table to be the move order line id that
3111: -- initiates the detailing request, so that they would not be used
3112: -- by later detailing.
3113: -- Bug #1267029
3111: -- initiates the detailing request, so that they would not be used
3112: -- by later detailing.
3113: -- Bug #1267029
3114: -- Changed how mark_serial_number works. Now, this procedure
3115: -- is called for each input line in mtl_serial_numbers_temp.
3116: -- It takes the inventory_item_id, group_mark_id, serial number
3117: -- start, and serial number end. It does not look at all the
3118: -- output process records.
3119: PROCEDURE mark_serial_numbers
3122: ,p_serial_number_start IN VARCHAR2
3123: ,p_serial_number_end IN VARCHAR2)
3124: IS
3125: BEGIN
3126: UPDATE mtl_serial_numbers
3127: SET group_mark_id = p_group_mark_id
3128: WHERE inventory_item_id = p_inventory_item_id
3129: AND serial_number between p_serial_number_start and p_serial_number_end;
3130: END mark_serial_numbers;
3205: x_return_status := fnd_api.g_ret_sts_unexp_error;
3206: END update_detailed_quantities;
3207: --
3208: -- create suggestion records.
3209: -- insert into mtl_material_transactions_temp, mtl_serial_numbers_temp,
3210: -- or mtl_transaction_lots_temp
3211: PROCEDURE process_output
3212: (x_return_status OUT NOCOPY VARCHAR2,
3213: p_request_line_rec IN g_request_line_rec_type,
3300:
3301: --
3302: -- The following code is commented because
3303: -- the sign for the quantity in mtl_material_transactions_temp
3304: -- and mtl_transaction_lots_temp and mtl_serial_numbers_temp
3305: -- for the suggestion records will be positive always.
3306: -- The reason is that the move order transaction form
3307: -- and api expect the quantity to be positive regardless
3308: -- what transaction (pick/put) it is. The form or the
4054: inv_pp_debug.send_message_to_pipe('# of records inserted to mtl_material_transactions_temp: '
4055: || l_mmtt_tbl_size);
4056: inv_pp_debug.send_message_to_pipe('# of records inserted to mtl_transaction_lots_temp: '
4057: || l_mtlt_tbl_size);
4058: inv_pp_debug.send_message_to_pipe('# of records inserted to mtl_serial_numbers_temp: '
4059: || l_msnt_tbl_size);
4060: inv_pp_debug.send_message_to_pipe('exit '||g_pkg_name||'.'||l_api_name);
4061: END IF;
4062: -- end of debugging section