diff --git a/LSL2/STPROC/MATERIAL_MOVEMENT_SERVICES.txt b/LSL2/STPROC/MATERIAL_MOVEMENT_SERVICES.txt index 8ef0bc5..55190e9 100644 --- a/LSL2/STPROC/MATERIAL_MOVEMENT_SERVICES.txt +++ b/LSL2/STPROC/MATERIAL_MOVEMENT_SERVICES.txt @@ -254,19 +254,13 @@ Service ProcessPTIScanData(ScanData, ScanType = SCAN_TYPES, Param1, Param2, Para If ErrorMsg EQ '' then Response = ScanSubLot Case ScanType EQ 'CASSETTE1' - debug // Assume this is intended to be a Cassette ID scan (either WMO or RDS). Only if this is a // non-existent carrier will the scan data be considered invalid. // Strip '1T', 'I', and 'O' prefixes. ValidCassetteID = False$ ; // Assume Cassette ID is not valid for now. DelimCount = DCount(ScanData, '|') Begin Case - Case (ScanData[1, 1] EQ 'I') - ! Temporary exception while we exhaust current WMI inventory on KIT racks that - ! do not have a 2D barcode. - CassetteID = ScanData - SeqNo = 'SEQ1' - Case ( (ScanData[1, 2] EQ '1T') or (ScanData[1, 1] EQ 'O') ) + Case ( (ScanData[1, 2] EQ '1T') or (ScanData[1, 1] EQ 'O') or (ScanData[1, 1] EQ 'I') ) ErrorMsg = '1D Lot Label Scanned. 2D Lot Label Required.' Case (DelimCount NE 8) ErrorMsg = 'Invalid Lot Label Scan.' @@ -315,12 +309,7 @@ Service ProcessPTIScanData(ScanData, ScanType = SCAN_TYPES, Param1, Param2, Para DelimCount = DCount(ScanData, '|') Begin Case - Case (ScanData[1, 1] EQ 'I') - ! Temporary exception while we exhaust current WMI inventory on KIT racks that - ! do not have a 2D barcode. - CassetteID = ScanData - Seq2No = 'SEQ2' - Case ( (ScanData[1, 2] EQ '1T') or (ScanData[1, 1] EQ 'O') ) + Case ( (ScanData[1, 2] EQ '1T') or (ScanData[1, 1] EQ 'O') or (ScanData[1, 1] EQ 'I') ) ErrorMsg = '1D Lot Label Scanned. 2D Lot Label Required.' Case (DelimCount NE 8) ErrorMsg = 'Invalid Lot Label Scan.'