minor bug fix to release lock if record not updated

LSL2/STPROC/REACTOR_SERVICES.txt

@@ -3763,6 +3763,8 @@ 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	else
+								Database_Services('ReleaseKeyIDLock', 'REACTOR', ReactNo)
 							end
 						end
 					end