diff --git a/LSL2/STPROC/NDW_ADJUST_LOT_QTY_EVENTS.txt b/LSL2/STPROC/NDW_ADJUST_LOT_QTY_EVENTS.txt
index 5692b52..e972383 100644
--- a/LSL2/STPROC/NDW_ADJUST_LOT_QTY_EVENTS.txt
+++ b/LSL2/STPROC/NDW_ADJUST_LOT_QTY_EVENTS.txt
@@ -126,12 +126,11 @@ Event PUB_SUBMIT.CLICK()
                         Begin Case
                             Case NewWfrQty LT CurrWfrQty
                                 AmountToDecrease = CurrWfrQty - NewWfrQty
-                                Lot_Services('ReduceLotWaferCount', LotId, AmountToDecrease, @User4)
+                                PSNNo = Xlate('RDS', LotID, 'PROD_SPEC_ID', 'X')
+                                Test_Run_Services('CreateTestRunRecord', 13, '', '', PSNNo, '', @User4, LotID, NewWfrQty, True$)
                                 If Error_Services('NoError') then
                                     Lot_Event_Services('CreateLotEvent', LotId, Datetime(), 'COMMENT', 'Manual Lot Qty decrease performed.', '', @User4, '' , '')
                                 end
-                                PSNNo = Xlate('RDS', LotID, 'PROD_SPEC_ID', 'X')
-                                Test_Run_Services('CreateTestRunRecord', 13, '', '', PSNNo, '', @User4, LotID, NewWfrQty, True$)
                             Case NewWfrQty GT CurrWfrQty
                                 AmountToIncrease = NewWfrQty - CurrWfrQty
                                 Lot_Services('IncreaseLotWaferCount', LotId, AmountToIncrease, @User4)
@@ -194,3 +193,4 @@ return
 
 
 
+