diff --git a/LSL2/STPROC/OBJ_SHIPMENT.txt b/LSL2/STPROC/OBJ_SHIPMENT.txt
index 42ce378..a031c56 100644
--- a/LSL2/STPROC/OBJ_SHIPMENT.txt
+++ b/LSL2/STPROC/OBJ_SHIPMENT.txt
@@ -1818,6 +1818,8 @@ SendTechnical:
                 If Error_Services('HasError') then
                     ErrorMsg = Error_Services('GetMessage')
                     Shipment_Services('SetMONACritical', 'FILE_TRANSMISSION', ErrorMsg)
+                end else
+                    Shipment_Services('ClearMONACritical', 'FILE_TRANSMISSION')
                 end
             end else
                 LoggingErrMsg = 'Unable to send CSV COA via FTP for customer ' : CustNo : '. Shipment #': ShipNo :'. File was not found in the expected location'
@@ -1841,6 +1843,8 @@ SendTechnical:
                     If Error_Services('HasError') then
                         ErrorMsg = Error_Services('GetMessage')
                         Shipment_Services('SetMONACritical', 'FILE_TRANSMISSION', ErrorMsg)
+                    end else
+                        Shipment_Services('ClearMONACritical', 'FILE_TRANSMISSION')
                     end
                 end else
                     LoggingErrMsg = 'Unable to send CSV COA CDS via FTP for customer ' : CustNo : '. Shipment #': ShipNo :'. File was not found in the expected location'
@@ -1901,6 +1905,8 @@ SendTechnical:
                     successful = RTI_OS_Directory("CREATE", CustPath)
                     If successful NE True$ then
                         null
+                    end else
+                        Shipment_Services('ClearMONACritical', 'FILE_TRANSMISSION')
                     end
                 end
                 DosTable = Export_IR(ShipNo, AutoFlag, CustPath)
@@ -1920,6 +1926,8 @@ SendTechnical:
                    If Error_Services('HasError') then
                        ErrorMsg = Error_Services('GetMessage')
                        Shipment_Services('SetMONACritical', 'FILE_TRANSMISSION', ErrorMsg)
+                   end else
+                        Shipment_Services('ClearMONACritical', 'FILE_TRANSMISSION')
                    end
                 end else
                     LoggingErrMsg = 'Unable to send CSV COA via FTP for customer ' : CustNo : '. Shipment #': ShipNo :'. File was not found in the expected location'
@@ -1985,6 +1993,8 @@ SendTechnical:
                         If Error_Services('HasError') then
                             ErrorMsg = Error_Services('GetMessage')
                             Shipment_Services('SetMONACritical', 'FILE_TRANSMISSION', ErrorMsg)
+                        end else
+                            Shipment_Services('ClearMONACritical', 'FILE_TRANSMISSION')
                         end
                     end else
                         LoggingErrMsg = 'Unable to send CSV COA via FTP for customer ' : CustNo : '. Shipment #': ShipNo :'. File was not found in the expected location'
@@ -2065,7 +2075,9 @@ SendTechnical:
                         If Error_Services('HasError') then
                              ErrorMsg = Error_Services('GetMessage')
                              Shipment_Services('SetMONACritical', 'FILE_TRANSMISSION', ErrorMsg)
-                        end
+                        end else
+                            Shipment_Services('ClearMONACritical', 'FILE_TRANSMISSION')
+                        end 
                     end else
                         LoggingErrMsg = 'Unable to send CSV COA via FTP for customer ' : CustNo : '. Shipment #': ShipNo :'. File was not found in the expected location'
                         Shipment_Services('SetMONACritical', 'FILE_GENERATION', LoggingErrMsg) 
@@ -2213,3 +2225,4 @@ RETURN
 
 
 
+