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

minor change to ensure comments are added to the reactor log even when the nica integration feature flag is turned off

Browse Source
This commit is contained in:
Infineon\StieberD 2025-03-31 17:35:49 -07:00 committed by Stieber Daniel (CSC FI SPS MESLEO)
parent 2ff9dfb0b5
commit 6cfd1324c7
1 changed files with 10 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
LSL2/STPROC/REACTOR_LOG_SERVICES.txt
View File

@ -203,23 +203,21 @@ Service SignReactorLog(ReactorLogID, UserID)
Until TestChar NE @VM or CurServices = '' Until TestChar NE @VM or CurServices = ''
CurServices[-1,1] = '' CurServices[-1,1] = ''
Repeat Repeat
CCnt = COUNT(CurServices,@VM) + (CurServices NE '') CCnt = Count(CurServices,@VM) + (CurServices NE '')
IntrMaintFeatureFlag = Xlate('FEATURE_FLAGS', 'NICA_INTRUSIVE_MAINTENANCE', FEATURE_FLAGS.ENABLED$, 'X') If (CCnt GT 0) then
If ( (IntrMaintFeatureFlag EQ True$) and (CCnt GT 0) ) then
IntrMaintFlowCodes = React_Servs_Services('GetIntrMaintFlowIds', CurServices) IntrMaintFlowCodes = React_Servs_Services('GetIntrMaintFlowIds', CurServices)
If IntrMaintFlowCodes NE '' then If IntrMaintFlowCodes NE '' then
ReactorType = Xlate('REACTOR', ReactorNo, REACTOR_REACT_TYPE$, 'X') ReactorType = Xlate('REACTOR', ReactorNo, REACTOR_REACT_TYPE$, 'X')
ChecklistIds = Nica_Orders_Services('GetFlowChecklistIds', IntrMaintFlowCodes, 'INTRUSIVE_MAINT', ReactorType) ChecklistIds = Nica_Orders_Services('GetFlowChecklistIds', IntrMaintFlowCodes, 'INTRUSIVE_MAINT', ReactorType)
If ChecklistIds NE '' then If ChecklistIds NE '' then
// Create INTRUSIVE_MAINT NICA order LogFlows = IntrMaintFlowCodes
Nica_Orders_Services('CreateNewOrder', 'REACTOR', ReactorNo, 'INTRUSIVE_MAINT', IntrMaintFlowCodes, '', ChecklistIds) Convert @VM to ', ' in LogFlows
If Error_Services('NoError') then Reactor_Log_Services('AddComment', ReactorNo, 'Intrusive Maintenance initiated for flow(s) ':LogFlows:'.', UserID)
LogFlows = IntrMaintFlowCodes IntrMaintFeatureFlag = Xlate('FEATURE_FLAGS', 'NICA_INTRUSIVE_MAINTENANCE', FEATURE_FLAGS.ENABLED$, 'X')
Convert @VM to ', ' in LogFlows If (IntrMaintFeatureFlag EQ True$) then
Reactor_Log_Services('AddComment', ReactorNo, 'Intrusive Maintenance initiated for flow(s) ':LogFlows:'.', UserID) Nica_Orders_Services('CreateNewOrder', 'REACTOR', ReactorNo, 'INTRUSIVE_MAINT', IntrMaintFlowCodes, '', ChecklistIds)
end else
ErrorMsg = Error_Services('GetMessage')
end end
If Error_Services('HasError') then ErrorMsg = Error_Services('GetMessage')
end end
end end
end end