diff --git a/LSL2/STPROC/SCAN_SERVICES.txt b/LSL2/STPROC/SCAN_SERVICES.txt
index 51a64e0..c8bdbe0 100644
--- a/LSL2/STPROC/SCAN_SERVICES.txt
+++ b/LSL2/STPROC/SCAN_SERVICES.txt
@@ -1416,8 +1416,9 @@ Service AcceptScan(ScanID, ScanJSON)
 												Reactor          = ToolID[-1, 'BR']
 												Username         = ScansRow<SCANS.EMPLOYEE_ID$>
 												TestWaferLotQtys = ScansRow<SCANS.TW_LOT_QTY$>
+												TestRunType = ScansRow<SCANS.TEST_RUN_TYPE_ID$>
 												PSNo             = Database_Services('ReadDataColumn', 'RDS', RDSNo, RDS_PROD_SPEC_ID$, True$, 0, False$)
-												NewTestRunId     = Test_Run_Services('CreateTestRunRecord', 3, 'R', Reactor, PSNo, RDSNo,Username ,  TestWaferLots, TestWaferLotQtys)
+												NewTestRunId     = Test_Run_Services('CreateTestRunRecord', TestRunType, 'R', Reactor, PSNo, RDSNo,Username ,  TestWaferLots, TestWaferLotQtys)
 												If Error_Services('NoError') then
 													Continue     = True$
 												end else
@@ -1459,8 +1460,9 @@ Service AcceptScan(ScanID, ScanJSON)
 												Reactor          = ToolID[-1, 'BR']
 												Username         = ScansRow<SCANS.EMPLOYEE_ID$>
 												TestWaferLotQtys = ScansRow<SCANS.TW_LOT_QTY$>
+												TestRunType = ScansRow<SCANS.TEST_RUN_TYPE_ID$>
 												PSNo             = Database_Services('ReadDataColumn', 'RDS', RDSNo, RDS_PROD_SPEC_ID$, True$, 0, False$)
-												NewTestRunId     = Test_Run_Services('CreateTestRunRecord', 3, 'R', Reactor, PSNo, RDSNo,Username ,  TestWaferLots, TestWaferLotQtys)
+												NewTestRunId     = Test_Run_Services('CreateTestRunRecord', TestRunType, 'R', Reactor, PSNo, RDSNo,Username ,  TestWaferLots, TestWaferLotQtys)
 												If Error_Services('NoError') then
 													Continue     = True$
 												end else
@@ -2352,3 +2354,4 @@ return
 
 
 
+