minor bug fix to release lock if record not updated

LSL2/STPROC/REACTOR_SERVICES.txt

@@ -3763,7 +3763,9 @@ Service UpdateReactorIQSViolations()
 								ReactorRec<REACTOR_IQS_ALARM_TEST$> = ''
 								// WriteDataRow will clear the lock as long as "IgnoreAllLocks" is false
 								Database_Services('WriteDataRow', 'REACTOR', ReactNo, ReactorRec, True$, False$, False$)								
-							end							
+							end	else
+								Database_Services('ReleaseKeyIDLock', 'REACTOR', ReactNo)
+							end
 						end
 					end					
 				end