phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

pre cutover push

Browse Source
This commit is contained in:
Infineon\StieberD
2024-09-04 20:33:41 -07:00
parent 6ea6969f4b
commit 7762b129af
2072 changed files with 130000 additions and 95295 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
LSL2/STPROC/REACTORS_API.txt
View File

@ -137,6 +137,7 @@ API Reactors.ID.PATCH
If Body NE '' then
// The POST string will have been encoded so use percent (URL) decoding.
JSON = HTTP_Services('DecodePercentString', Body)
hJSON = ''
ParseResponse = SRP_JSON(hJSON, 'PARSE', JSON)
If (ParseResponse EQ '') then
LSLUser = Xlate('OI_WIZARD', OIWizardID, 'EMPLOYEE_ID', 'X')
@ -215,14 +216,17 @@ return
//----------------------------------------------------------------------------------------------------------------------
CreateHALCollection:
JSONCollection = ''
Abort = False$
ReactorList = Reactor_Services('GetReactorNumbers')
JSONCollection = ''
Abort = False$
ReactorList = Reactor_Services('GetReactorNumbers')
hJSONCollection = ''
If SRP_JSON(hJSONCollection, 'New', 'Object') then
hReactorArray = ''
If SRP_JSON(hReactorArray, 'New', 'Array') then
For each ReactorNo in ReactorList using @FM setting fPos
ReactorJSON = Reactor_Services('ConvertRecordToJSON', ReactorNo, FullEndpointURL:'/':ReactorNo, CurrUser, False$)
If Error_Services('NoError') then
hReactor = ''
If (SRP_JSON(hReactor, 'Parse', ReactorJSON) EQ '') then
SRP_JSON(hReactorArray, 'Add', hReactor)
SRP_JSON(hReactor, 'Release')