From a045121d458248bb41c827c1bf4ce524ed53c8dd Mon Sep 17 00:00:00 2001 From: "Infineon\\Ouellette" Date: Mon, 18 Nov 2024 11:23:34 -0700 Subject: [PATCH] Added in futher logic to gate erroneous resend of already sent messages. Also added in a boat load of logging to log the status at pretty much every line of code as they execute. --- LSL2/STPROC/PM_SERVICES.txt | 50 ++++++++++++++++++++++++++++++++++--- 1 file changed, 46 insertions(+), 4 deletions(-) diff --git a/LSL2/STPROC/PM_SERVICES.txt b/LSL2/STPROC/PM_SERVICES.txt index c0ef574..8a2a61f 100644 --- a/LSL2/STPROC/PM_SERVICES.txt +++ b/LSL2/STPROC/PM_SERVICES.txt @@ -680,10 +680,24 @@ Service SendPMNotifications() if Error_Services('NoError') then Recipients = PM_Services('GetPMNotificationRecipients', PMSpecKey) if Error_Services('NoError') then + LogData = '' + LogData<1> = LoggingDTM;//Defined at entry of subroutine + LogData<2> = Tool + LogData<3> = PMDesc + LogData<4> = 'EARLY NOTIFICATIONS Prechecks passed, message okay to send.' + Logging_Services('AppendLog', objLogNotifications, LogData, @RM, @FM, False$) + Subject = 'PM Task Coming Due' Message = 'Tool: ': Tool : ' - ' :PMDesc:" is coming due. Scheduled due by " : OCONV(PMStatusLine<1,COL$DUEBY>, 'DT') Parms = Recipients:@RM:SentFrom:@RM:Subject:@RM:Message:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup - obj_Notes('Create',Parms) + obj_Notes('Create',Parms) + + LogData = '' + LogData<1> = LoggingDTM;//Defined at entry of subroutine + LogData<2> = Tool + LogData<3> = PMDesc + LogData<4> = 'EARLY NOTIFICATIONS OBJ_Notes has been called by this point, message should have been sent.' + Logging_Services('AppendLog', objLogNotifications, LogData, @RM, @FM, False$) end else errMessage = Error_Services('GetMessage') LogData = '' @@ -719,10 +733,24 @@ Service SendPMNotifications() if Error_Services('NoError') then Recipients = PM_Services('GetPMNotificationRecipients', PMSpecKey) if Error_Services('NoError') then + LogData = '' + LogData<1> = LoggingDTM;//Defined at entry of subroutine + LogData<2> = Tool + LogData<3> = PMDesc + LogData<4> = 'DUE NOTIFICATIONS Prechecks passed, message okay to send.' + Logging_Services('AppendLog', objLogNotifications, LogData, @RM, @FM, False$) + Subject = 'PM Task Due' Message = 'Tool: ': Tool : ' - ' :PMDesc:" is due. Scheduled due by " : OCONV(PMStatusLine<1,COL$DUEBY>, 'DT') Parms = Recipients:@RM:SentFrom:@RM:Subject:@RM:Message:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup - obj_Notes('Create',Parms) + obj_Notes('Create',Parms) + + LogData = '' + LogData<1> = LoggingDTM;//Defined at entry of subroutine + LogData<2> = Tool + LogData<3> = PMDesc + LogData<4> = 'DUE NOTIFICATIONS OBJ_Notes has been called by this point, message should have been sent.' + Logging_Services('AppendLog', objLogNotifications, LogData, @RM, @FM, False$) end else errMessage = Error_Services('GetMessage') LogData = '' @@ -758,10 +786,24 @@ Service SendPMNotifications() if Error_Services('NoError') then Recipients = PM_Services('GetPMNotificationRecipients', PMSpecKey) if Error_Services('NoError') then - Subject = 'PM overdue' + LogData = '' + LogData<1> = LoggingDTM;//Defined at entry of subroutine + LogData<2> = Tool + LogData<3> = PMDesc + LogData<4> = 'LATE NOTIFICATIONS Prechecks passed, message okay to send.' + Logging_Services('AppendLog', objLogNotifications, LogData, @RM, @FM, False$) + + Subject = 'PM overdue' Message = 'Tool: ': Tool : ' - ' :PMDesc:" is overdue. Scheduled due by " : OCONV(PMStatusLine<1,COL$DUEBY>, 'DT') Parms = Recipients:@RM:SentFrom:@RM:Subject:@RM:Message:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup - obj_Notes('Create',Parms) + obj_Notes('Create',Parms) + + LogData = '' + LogData<1> = LoggingDTM;//Defined at entry of subroutine + LogData<2> = Tool + LogData<3> = PMDesc + LogData<4> = 'LATE NOTIFICATIONS OBJ_Notes has been called by this point, message should have been sent.' + Logging_Services('AppendLog', objLogNotifications, LogData, @RM, @FM, False$) end else errMessage = Error_Services('GetMessage') LogData = ''