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

Remind operator to load PROD recipe after SPV test on HTR reactor

Browse Source
This commit is contained in:
Chase Tucker 2024-11-05 10:58:34 -07:00 committed by Tucker Chase (CSC FI SPS MESLEO)
parent 526b9943a0
commit 2b6e5fd2ac
1 changed files with 84 additions and 57 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
LSL2/STPROC/REACT_MODE_CHG_NG_EVENTS.txt
View File

@ -57,7 +57,7 @@ Declare function Reactor_Services, Error_Services, Logging_Services, Environme
Declare function SRP_List
Declare subroutine RList, Set_Property, Set_List_Box_Data, end_dialog, record_lock, obj_React_Mode, ErrMsg
Declare subroutine Mona_Services, Reactor_Services, Error_Services, obj_React_Status, Logging_Services
Declare subroutine Database_Services, Override_Log_Services, SRP_List, Message_Box
Declare subroutine Database_Services, Override_Log_Services, SRP_List, Message_Box, Reactor_Log_Services
GoToEvent Event for CtrlEntId else
// Event not implemented
@ -255,6 +255,30 @@ Event APPLY.CLICK()
NewNoteText = Get_Property(@Window:'.EDB_COMMENT', 'TEXT')
end
CurrentModeRecord = Reactor_Services('GetReactCurrModeRec', ReactNo)
CurrentMode = CurrentModeRecord<REACT_MODE_NG_MODE$>
CurrentServiceDesc = CurrentModeRecord<REACT_MODE_NG_SERVICE_DESC$>
If (CurrentMode _EQC 'test_scheduled' or CurrentMode _EQC 'test_unscheduled') and CurrentServiceDesc _EQC 'spv test' then
ReactType = Xlate('REACTOR', ReactNo, REACTOR_REACT_TYPE$, 'X')
If Len(ReactType) GE 3 and ReactType[1, 3] _EQC 'HTR' then
Message = 'Remember to load the production recipe. Please find another employee to confirm this has been done.'
Verification = Dialog_Box('NDW_VERIFY_USER', @WINDOW, '':@FM:'':@FM:'':@FM:Message)
ValidVerification = Verification<1> and Verification<2> NE @User4
If ValidVerification EQ True$ then
ConfirmNote = 'Confirmed production recipe loaded'
Reactor_Log_Services('AddComment', ReactNo, ConfirmNote, Verification<2>)
end else
If Verification<1> NE True$ then
Message_Box(@Window, 'Invalid signature!', "Error", MSG_ICON_EXCLAM$)
end else
Message_Box(@Window, 'You must get another user to confirm the production recipe is loaded!', "Error", MSG_ICON_EXCLAM$)
end
Error_Services('Add', 'Post HTR SPV test recipe verification not complete')
end
end
end
If Error_Services('NoError') then
Reactor_Services('CreateReactModeChange', @User4, ReactNo, NewMode, NewReactModeSvc, NewNoteText)
If Error_Services('NoError') then
End_Dialog(@Window, NewMode)
@ -317,6 +341,7 @@ Event APPLY.CLICK()
end
end
end
end
EventFlow = 0
@ -477,3 +502,5 @@ return