diff --git a/LSL2/STPROC/FTP_SERVICES.txt b/LSL2/STPROC/FTP_SERVICES.txt
index 32eda0d..9a0108c 100644
--- a/LSL2/STPROC/FTP_SERVICES.txt
+++ b/LSL2/STPROC/FTP_SERVICES.txt
@@ -37,7 +37,7 @@ Equ     Tab$  to Char(9)
 Declare function    FTP_Services, Memory_Services, Logging_Services, SRP_Path, SRP_Decode, RTI_CreateGUID
 Declare function    Environment_Services, Database_Services, Utility, SRP_Run_Command
 Declare subroutine  FTP_Services, Memory_Services, Logging_Services, SRP_Run_Command, GetTempPath, GetTempFileName
-Declare subroutine  Database_Services, RList, Obj_Notes 
+Declare subroutine  Database_Services, RList, Obj_Notes, Shipment_Services
 
 LogPath         = Environment_Services('GetApplicationRootPath') : '\LogFiles\FTP'
 LogDate         = Oconv(Date(), 'D4/')
@@ -710,6 +710,7 @@ Service ProcessRequest(FTPRequestID)
                 
                 If Error_Services('NoError') then
                     Result  = 'Success'
+                    Shipment_Services('ClearMONACritical', 'FILE_TRANSMISSION')
                     If (ProcessDirectory NE '') AND (LocalFile NE '') then
                         // Move the local file to the process directory.
                         ProcessFile = SRP_Path('Combine', ProcessDirectory, SRP_Path('GetFilename', LocalFile))
@@ -726,6 +727,7 @@ Service ProcessRequest(FTPRequestID)
                     end
                 end else
                     Result     = Error_Services('GetMessage')
+                    Shipment_Services('SetMONACritical', 'FILE_TRANSMISSION', Result)
                     Recipients = XLATE('NOTIFICATION','COC_DELIVERY',NOTIFICATION_USER_ID$,'X')
                     SendFrom		= 'System'       
                     Subject		    = 'COC FTP Delivery Failue.'
@@ -896,3 +898,4 @@ LsToMls:
 return
 
 
+