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

Added more logging

Browse Source
This commit is contained in:
Infineon\Ouellette 2024-11-18 11:44:13 -07:00
parent a045121d45
commit 93d65b8bf5
1 changed files with 103 additions and 65 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
LSL2/STPROC/PM_SERVICES.txt
View File

@ -678,6 +678,8 @@ Service SendPMNotifications()
PMRec<PM_EARLY_NOTIF_SENT$> = Datetime()
Database_Services('WriteDataRow', 'PM', PMKey, PMRec, 1, 0, 1)
if Error_Services('NoError') then
UpdatedPMRec = Database_Services('ReadDataRow', 'PM', PMKey, True$, 0, False$)
If UpdatedPMRec<PM_EARLY_NOTIF_SENT$> NE '' then
Recipients = PM_Services('GetPMNotificationRecipients', PMSpecKey)
if Error_Services('NoError') then
LogData = ''
@ -707,6 +709,16 @@ Service SendPMNotifications()
LogData<4> = 'EARLY notification failed - ' : errMessage
Logging_Services('AppendLog', objLogNotifications, LogData, @RM, @FM, False$)
end
end else
errMessage = 'EARLY Notifcation wasn not marked as completed when it should have been.'
LogData = ''
LogData<1> = LoggingDTM;//Defined at entry of subroutine
LogData<2> = Tool
LogData<3> = PMDesc
LogData<4> = 'EARLY notification failed - ' : errMessage
Logging_Services('AppendLog', objLogNotifications, LogData, @RM, @FM, False$)
end
end else
errMessage = Error_Services('GetMessage')
LogData = ''
@ -731,6 +743,8 @@ Service SendPMNotifications()
PMRec<PM_DUE_NOTIF_SENT$> = Datetime()
Database_Services('WriteDataRow', 'PM', PMKey, PMRec, 1, 0, 1)
if Error_Services('NoError') then
UpdatedPMRec = Database_Services('ReadDataRow', 'PM', PMKey, True$, 0, False$)
If UpdatedPMRec<PM_DUE_NOTIF_SENT$> NE '' then
Recipients = PM_Services('GetPMNotificationRecipients', PMSpecKey)
if Error_Services('NoError') then
LogData = ''
@ -760,6 +774,16 @@ Service SendPMNotifications()
LogData<4> = 'DUE notification failed - ' : errMessage
Logging_Services('AppendLog', objLogNotifications, LogData, @RM, @FM, False$)
end
end else
errMessage = 'DUE Notifcation was not marked as completed when it should have been.'
LogData = ''
LogData<1> = LoggingDTM;//Defined at entry of subroutine
LogData<2> = Tool
LogData<3> = PMDesc
LogData<4> = 'DUE notification failed - ' : errMessage
Logging_Services('AppendLog', objLogNotifications, LogData, @RM, @FM, False$)
end
end else
errMessage = Error_Services('GetMessage')
LogData = ''
@ -784,6 +808,9 @@ Service SendPMNotifications()
PMRec<PM_LATE_NOTIF_SENT$> = Datetime()
Database_Services('WriteDataRow', 'PM', PMKey, PMRec, 1, 0, 1)
if Error_Services('NoError') then
//Check to make sure this change is commited by rereading in the record
UpdatedPMRec = Database_Services('ReadDataRow', 'PM', PMKey, True$, 0, False$)
If UpdatedPMRec<PM_LATE_NOTIF_SENT$> NE '' then
Recipients = PM_Services('GetPMNotificationRecipients', PMSpecKey)
if Error_Services('NoError') then
LogData = ''
@ -813,6 +840,16 @@ Service SendPMNotifications()
LogData<4> = 'LATE notification failed - ' : errMessage
Logging_Services('AppendLog', objLogNotifications, LogData, @RM, @FM, False$)
end
end else
errMessage = 'LATE Notifcation was not marked as completed when it should have been.'
LogData = ''
LogData<1> = LoggingDTM;//Defined at entry of subroutine
LogData<2> = Tool
LogData<3> = PMDesc
LogData<4> = 'LATE notification failed - ' : errMessage
Logging_Services('AppendLog', objLogNotifications, LogData, @RM, @FM, False$)
end
end else
errMessage = Error_Services('GetMessage')
LogData = ''
@ -822,6 +859,7 @@ Service SendPMNotifications()
LogData<4> = 'LATE notification failed - ' : errMessage
Logging_Services('AppendLog', objLogNotifications, LogData, @RM, @FM, False$)
end
end else
LogData = ''
LogData<1> = LoggingDTM;//Defined at entry of subroutine