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

19
LSL2/STPROC/REACT_MODE_NG_SERVICES.txt
View File

@ -37,9 +37,9 @@ GoToService
Return Response or ""
//-----------------------------------------------------------------------------
// SERVICES
//-----------------------------------------------------------------------------
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Services
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Service ConvertRecordToJSON(ReactModeNGKey, ItemURL, CurrUser)
@ -50,8 +50,10 @@ Service ConvertRecordToJSON(ReactModeNGKey, ItemURL, CurrUser)
@Dict = Database_Services('GetTableHandle', 'DICT.REACT_MODE_NG')
@ID = ReactModeNGKey
If Error_Services('NoError') then
objJSON = ''
If SRP_JSON(objJSON, 'New', 'Object') then
// Create reactor mode object
objReactMode = ''
If SRP_JSON(objReactMode, 'New', 'Object') then
CurrMode = Xlate('REACT_MODE_NG', ReactModeNGKey, REACT_MODE_NG_MODE$, 'X')
@ -78,9 +80,11 @@ Service ConvertRecordToJSON(ReactModeNGKey, ItemURL, CurrUser)
SRP_JSON(objReactMode, 'SetValue', 'stopUser', StopUser, 'String')
SRP_JSON(objReactMode, 'SetValue', 'stopNote', StopNote, 'String')
objModesArray = ''
If SRP_JSON(objModesArray, 'New', 'Array') then
If Assigned(AvailModes) then
For each AvailMode in AvailModes using @FM setting fPos
objMode = ''
If SRP_JSON(objMode, 'New', 'Object') then
SRP_JSON(objMode, 'SetValue', 'mode', AvailMode, 'String')
SubCats = Xlate('REACTOR_MODES', AvailMode, 'SERVICE_CATEGORIES', 'X')
@ -98,8 +102,10 @@ Service ConvertRecordToJSON(ReactModeNGKey, ItemURL, CurrUser)
If itemURL NE '' then
// The itemURL was passed in so add HAL+JSON properties.
// Create the _links property and then all link objects needed for this resource.
objLinks = ''
If SRP_JSON(objLinks, 'New', 'Object') then
// Create a self link.
objLink = ''
If SRP_JSON(objLink, 'New', 'Object') then
SRP_JSON(objLink, 'SetValue', 'href', ItemURL, 'String')
SRP_JSON(objLink, 'SetValue', 'title', 'Self', 'String')
@ -134,6 +140,7 @@ Service ConvertRecordToJSON(ReactModeNGKey, ItemURL, CurrUser)
End Service
Service GetReactModeHistoryKeys(ReactNo, DaysToReport)
StartDt = OCONV(Date() - DaysToReport, 'D4/')
@ -141,6 +148,7 @@ Service GetReactModeHistoryKeys(ReactNo, DaysToReport)
SelectSent = 'SELECT REACT_MODE_NG WITH REACT_NO = ':QUOTE(ReactNo):' AND WITH START_DT GE ':QUOTE(StartDt):' BY-DSND START_DTM '
Set_Status(0)
RList(SelectSent, TARGET_ACTIVELIST$, "", "", "")
errCode = ''
IF Get_Status(errCode) THEN
ErrMsg(errCode)
RETURN
@ -159,6 +167,11 @@ Service GetReactModeHistoryKeys(ReactNo, DaysToReport)
end service
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Internal GoSubs
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
ClearCursors:
For counter = 0 to 8