From 18f97077e1f28588104087a1b4a084bd253d77ef Mon Sep 17 00:00:00 2001 From: "Infineon\\StieberD" Date: Mon, 11 Nov 2024 16:26:35 -0700 Subject: [PATCH] update scheduler messaging frequency --- LSL2/STPROC/SCHEDULE_SERVICES.txt | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) diff --git a/LSL2/STPROC/SCHEDULE_SERVICES.txt b/LSL2/STPROC/SCHEDULE_SERVICES.txt index 3976ae1..8cfbd11 100644 --- a/LSL2/STPROC/SCHEDULE_SERVICES.txt +++ b/LSL2/STPROC/SCHEDULE_SERVICES.txt @@ -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 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////