Merged PR 12311: Created routine and adjusted API code to allow for report of all items

Created routine and adjusted API code to allow for report of all items. This is to enable management to have a report so that they can perform data cleanup/remediation.

LSL2/STPROC/REACT_ITEM_SERVICES.txt

@@ -38,6 +38,18 @@ Return Response or ""
 // SERVICES
 //-----------------------------------------------------------------------------
 
+Service GetAllReactItemKeys()
+    AllKeys  = ''
+    RList('SELECT REACT_ITEM', TARGET_ACTIVELIST$, '', '', '')
+    Done     = False$
+    Reactors = ''
+    Loop
+        Readnext keyId else Done = True$
+    Until Done
+    AllKeys<1,-1> = keyId
+    Repeat
+    Response = AllKeys
+end service
 
 Service GetReactItems(RIType, CurrStatus)
     
@@ -94,6 +106,7 @@ Service ConvertRecordToJSON(KeyID, Record, ItemURL)
                     SRP_JSON(objReactItem, 'SetValue', 'mfrPartNoRev', {MFR_PART_NO_REV})
                     SRP_JSON(objReactItem, 'SetValue', 'serialNo', {SERIAL_NO})
                     SRP_JSON(objReactItem, 'SetValue', 'riType', {RI_TYPE})
+                    SRP_JSON(objReactItem, 'SetValue', 'CurrentStatus', {CURR_STATUS})
                     // Add available disposition codes
                     DispCodes = Xlate('SYSREPOSPOPUPS', 'LSL2**REACT_ITEM_DISP', 'DISPLAY', 'X')
                     If SRP_JSON(objReactItemDispArray, 'New', 'Array') then
@@ -408,3 +421,4 @@ return
 
 
 
+