From 1d32ec4fbbe2b90ad04861f9ee77d1f442e45931 Mon Sep 17 00:00:00 2001
From: "Infineon\\StieberD" <daniel.stieber@infineon.com>
Date: Fri, 11 Jul 2025 10:44:14 -0700
Subject: [PATCH] minor bug fix to release lock if record not updated

---
 LSL2/STPROC/REACTOR_SERVICES.txt | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/LSL2/STPROC/REACTOR_SERVICES.txt b/LSL2/STPROC/REACTOR_SERVICES.txt
index 425fa98..52c2b6d 100644
--- a/LSL2/STPROC/REACTOR_SERVICES.txt
+++ b/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