Merged PR 21151: Return To Fab Operations and Processing

LSL2/STPROC/TOOL_SERVICES.txt

@@ -110,10 +110,10 @@ end service
 
 
 Service GetTools(ToolClass)
-    
+
     Query = 'SELECT TOOL '
     If ToolClass NE '' then
-        Query := 'WITH CLASS EQ ':ToolClass:' '
+        Query := 'WITH CLASS EQ ': Quote(ToolClass)
     end
     Query := 'BY CLASS BY TOOL_ID'
     Set_Status(0)
@@ -238,6 +238,33 @@ Service ChangeToolMode(ToolID, NewMode, NewReason, CurrUser, ForceModeChange)
 end service
 
 
+Service GetNumPoints(ToolClass, ToolPattern)
+    
+    ErrorMsg  = ''
+    NumPoints = ''
+    If ( (ToolClass NE '') and (ToolPattern NE '') ) then
+        If RowExists('TOOL_CLASS', ToolClass) then
+            ToolPatterns  = Xlate('TOOL_CLASS', ToolClass, 'PATTERN', 'X')
+            Locate ToolPattern in ToolPatterns using @VM setting PatternPos then
+                NumPoints = Xlate('TOOL_CLASS', ToolClass, 'PATTERN_SIZE', 'X')<0, PatternPos>
+            end else
+                ErrorMsg = 'Error in ':Service:' service. ToolPattern "':ToolPattern:'" not found in TOOL_CLASS "':ToolClass:'".'
+            end
+        end else
+            ErrorMsg = 'Error in ':Service:' service. ToolClass "':ToolClass:'" does not exist.'
+        end
+    end else
+        ErrorMsg = 'Error in ':Service:' service. Null ToolClass or ToolPattern passed into service.'
+    end
+    
+    If ErrorMsg EQ '' then
+        Response = NumPoints
+    end else
+        Error_Services('Add', ErrorMsg)
+    end
+    
+end service
+
 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
 // Internal GoSubs
 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
@@ -329,3 +356,4 @@ return
 
 
 
+