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

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.

Browse Source
This commit is contained in:
Infineon\Ouellette 2024-11-18 11:23:34 -07:00
parent 91cb72c509
commit a045121d45
1 changed files with 46 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
LSL2/STPROC/PM_SERVICES.txt
View File

@ -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 = ''