[Home] [Help]
880:
881: l_serial_number_rec mtl_serial_numbers_Rec_Type;
882: CURSOR l_Get_Serial_Numbers_Csr IS
883: SELECT transaction_temp_id, fm_serial_number, to_serial_number
884: FROM mtl_serial_numbers_temp
885: WHERE transaction_temp_id = l_temp_id_ref;
886: */
887: l_msnt_tbl csp_pp_util.g_msnt_tbl_type;
888: l_tbl_index NUMBER := 1;
897: l_total_serial_numbers NUMBER := 0;
898: l_index NUMBER := 0;
899:
900: CURSOR l_Get_Serial_Numbers_Csr IS
901: SELECT * FROM mtl_serial_numbers_temp
902: WHERE transaction_temp_id = l_temp_id_ref;
903: BEGIN
904: OPEN l_Get_Serial_Numbers_Csr;
905: LOOP <
1014:
1015: l_index := l_index + 1;
1016: END LOOP; -- end the while loop
1017: --Delete the existing serial temp records
1018: delete from mtl_serial_numbers_temp
1019: where transaction_temp_id = l_temp_id_to_del
1020: and fm_serial_number = l_fm_serial_to_del
1021: and to_serial_number = nvl(l_to_serial_to_del, to_serial_number);
1022:
1164: Exit When l_Get_Mtlt_Csr%NOTFOUND;
1165:
1166: If nvl(l_mmtt_rec.item_serial_control_code, 1) in (2, 5) Then
1167:
1168: -- the item is also under serial control, find out the serial number in the mtl_serial_numbers_temp
1169: -- and insert it into the csp_picklist_serial_lots along with the lot number.
1170: IF not (transact_serial(l_lot_number_rec.serial_transaction_temp_id)) THEN
1171: fnd_message.set_name('CSP', 'CSP_UNEXPECTED_EXEC_ERRORS');
1172: fnd_message.set_token ('ROUTINE', l_api_name, TRUE);
1224: l_lot_number_rec.lot_number := null;
1225:
1226: -- the item is not under lot control. It can either be under serial control or no control at all.
1227: If nvl(l_mmtt_rec.item_serial_control_code, 1) in (2, 5) Then
1228: -- the item is under serial control, find out the serial number in the mtl_serial_numbers_temp
1229: -- and insert it into the csp_picklist_serial_lots.
1230: IF not (transact_serial(l_picklist_line_rec.transaction_temp_id)) THEN
1231: fnd_message.set_name('CSP', 'CSP_UNEXPECTED_EXEC_ERRORS');
1232: fnd_message.set_token ('ROUTINE', l_api_name, TRUE);