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