Created methods to provide Metrology Services with JSON source for SLL Section

LSL2/STPROC/REACTOR_SERVICES.txt

@@ -3574,6 +3574,45 @@ Service GetReactorDownLL(ReactNo)
 	
 end service
 
+Service GetReactorsWithDownLLByDtm(DtmToCheck, ReactType)
+    
+    ErrMsg = ''
+    AllReactors = Reactor_Services('GetReactorNumbers', ReactType)
+    SLLReactors = ''
+    If AllReactors NE '' then
+        for each ReactNo in AllReactors using @FM
+            PickPlaceFlag = XLATE('REACTOR', ReactNo, REACTOR_PICK_PLACE$, 'X')
+            If PickPlaceFlag then
+                Open 'DICT.REACT_LL' to DictReactLL then
+                    SearchString = ''
+                    SearchString := 'REACT_NO':@VM:ReactNo:@FM
+                    ReactLLKeys = ''
+                    Btree.Extract(SearchString, 'REACT_LL', DictReactLL, ReactLLKeys)
+                    
+                    For each ReactLLKey in ReactLLKeys using @VM
+                        ReactLLRec = Database_Services('ReadDataRow', 'REACT_LL', ReactLLKey, True$, 0, False$)
+                        ReactLLStartDTM = Field(ReactLLKey, '*', 2)
+                        ReactLLEndDTM = ReactLLRec<REACT_LL_STOP_DTM$>
+                        ReactLLApplicable = false$
+                        If ReactLLStartDTM LE DtmToCheck AND (ReactLLEndDTM EQ '' OR ReactLLEndDtm GT DtmToCheck) then
+                            Locate ReactNo in SLLReactors using @VM setting iPos else
+                                SLLReactors<1, -1> = ReactNo
+                            end
+                        end    
+                        
+                    Next ReactLLKey
+                end else
+                    ErrMsg = 'Unable to open the REACT_LL dictionary.'
+                end
+            end
+        Next ReactNo
+    end else
+        ErrMsg = 'No Reactor IDs found!'
+    end
+    
+    Response = SLLReactors
+    
+end service
 
 Service GetReactorLoadCountLimit(ReactNo)
 	
@@ -4373,3 +4412,4 @@ ClearCursors:
 	
 return
 
+