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

ready for UAT

Browse Source 
final commit

added PSN to reactor maintenance report query dialog
This commit is contained in:
Infineon\StieberD
2025-04-04 17:19:10 -07:00
committed by Stieber Daniel (CSC FI SPS MESLEO)
parent 8b0eb3e468
commit 333cf0b8e2
25 changed files with 36334 additions and 15275 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
LSL2/STPROC/REACTOR_LOG_SERVICES.txt
View File

@ -184,17 +184,17 @@ Service SignReactorLog(ReactorLogID, UserID)
end
If ErrorMsg EQ '' then
// Check if injector settings have been entered
ReactInjSetting = ReactorLogRec<REACTOR_LOG_INJ_SETTING$>
If ReactInjSetting NE '' then
plParms = 'REACT_STATE':@RM
plParms := ReactorNo:@RM
plParms := REACT_STATE_CURR_INJ_RL_ID$:@RM
plParms := ReactorLogID:@RM
obj_Post_Log('Create',plParms)
If Get_Status(ErrCode) then
ErrorMsg = 'Error in ':Service:' service. Error calling obj_Post_Log("Create"). Error code: ':ErrCode:'.'
end
end
* ReactInjSetting = ReactorLogRec<REACTOR_LOG_INJ_SETTING$>
* If ReactInjSetting NE '' then
* plParms = 'REACT_STATE':@RM
* plParms := ReactorNo:@RM
* plParms := REACT_STATE_CURR_INJ_RL_ID$:@RM
* plParms := ReactorLogID:@RM
* obj_Post_Log('Create',plParms)
* If Get_Status(ErrCode) then
* ErrorMsg = 'Error in ':Service:' service. Error calling obj_Post_Log("Create"). Error code: ':ErrCode:'.'
* end
* end
If ErrorMsg EQ '' then
// Check reactor prevent maintenance records
CurServices = ReactorLogRec<REACTOR_LOG_REACT_SERV_ID$>
@ -974,3 +974,4 @@ ClearCursors:
return