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

update scheduler messaging frequency

Browse Source
This commit is contained in:
Infineon\StieberD 2024-11-11 16:26:35 -07:00
parent 19fb71d733
commit 18f97077e1
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
LSL2/STPROC/SCHEDULE_SERVICES.txt
View File

@ -2075,7 +2075,7 @@ Service AdjustScheduleEvents(ReactNo)
Schedule_Services('LogActivity', ReactNo, LogData)
end
Messaging_Services('SendMessage', 'RefreshSchedule', 'Response', @User4, 'All', @User4, 'EventHandler', 'NDW_SCHEDULER' : ',OMNIEVENT,@MESSAGE,@ARGUMENTS')
Schedule_Services('SendRefreshMessage')
Unlock hSysLists, ServiceKeyID:'*':ReactNo else Null
end
@ -3347,6 +3347,21 @@ Service NotifySupervisorsIfSameDayChange(NewRec, OrigRec)
end service
Service SendRefreshMessage()
SendUpdate = True$
LastRefreshDtm = Xlate('APP_INFO', 'AUTO_SCHEDULER_LAST_REFRESH', '', 'X')
If LastRefreshDtm NE '' then
ElapMinutes = SRP_Datetime('MinuteSpan', LastRefreshDtm, Datetime(), True$)
SendUpdate = (ElapMinutes GT 5)
end
If SendUpdate then
Messaging_Services('SendMessage', 'RefreshSchedule', 'Response', @User4, 'All', @User4, 'EventHandler', 'NDW_SCHEDULER' : ',OMNIEVENT,@MESSAGE,@ARGUMENTS')
Database_Services('WriteDataRow', 'APP_INFO', 'AUTO_SCHEDULER_LAST_REFRESH', Datetime(), True$, False$, True$)
end
end service
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Internal GoSubs
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////