modified ProcessProcedureQueue to mark requests as queued and only re-queue them if they have been queued for over ten minutes

This commit is contained in:
Infineon\StieberD
2025-06-25 15:35:54 -07:00
parent 38e7b6e276
commit c6910c14c2
5 changed files with 69 additions and 51 deletions

View File

@ -55,7 +55,7 @@ Service CreateLotEvent(LotId, EventDateTime, EventType=EVENT_TYPES, EventNote, E
NewEventRec<LOT_EVENT_SEQUENCE$> = NewEventSequence
Database_Services('WriteDataRow', 'LOT_EVENT', NewEventId, NewEventRec)
If Error_Services('NoError') then
Service_Services('PostProcedure', 'LOT_EVENT_SERVICES', 'SetLatestLotEvent':@VM:LotId:@VM:NewEventId, True$)
Service_Services('PostProcedure', 'LOT_EVENT_SERVICES', 'SetLatestLotEvent':@VM:LotId:@VM:NewEventId)
end else
ErrorMessage = 'Error creating new event : ' : Error_Services('GetMessage')
end
@ -169,4 +169,3 @@ InitEventLog:
return