From adc247fd4cc28d6806c7a4cfb535ff1d8a5f3ce2 Mon Sep 17 00:00:00 2001
From: "Infineon\\StieberD" <daniel.stieber@infineon.com>
Date: Wed, 13 Aug 2025 15:53:30 -0700
Subject: [PATCH] added CHRON_ID to LOT_EVENT table to have a sequential
 integer for debugging

---
 LSL2/STPROC/COPY_LOT_EVENT_RECORD_TO_SQL.txt |  4 +-
 LSL2/STPROC/LOT_EVENT_SERVICES.txt           | 51 +++++++++++---------
 LSL2/STPROCINS/LOT_EVENT_EQUATES.txt         |  2 +
 3 files changed, 34 insertions(+), 23 deletions(-)

diff --git a/LSL2/STPROC/COPY_LOT_EVENT_RECORD_TO_SQL.txt b/LSL2/STPROC/COPY_LOT_EVENT_RECORD_TO_SQL.txt
index 9dfd48d..17159af 100644
--- a/LSL2/STPROC/COPY_LOT_EVENT_RECORD_TO_SQL.txt
+++ b/LSL2/STPROC/COPY_LOT_EVENT_RECORD_TO_SQL.txt
@@ -32,7 +32,8 @@ DataFields := "EVENT_BEGIN_WAFER_QTY"  :@VM:SQL_Format(Rec(LOT_EVENT_EVENT_BEGIN
 DataFields := "EVENT_END_WAFER_QTY"    :@VM:SQL_Format(Rec(LOT_EVENT_EVENT_END_WAFER_QTY$),    "INT"):@FM
 DataFields := "EVENT_OPERATION_ID"     :@VM:SQL_Format(Rec(LOT_EVENT_EVENT_OPERATION_ID$),     "STR"):@FM
 DataFields := "EVENT_OPERATOR_ID"      :@VM:SQL_Format(Rec(LOT_EVENT_EVENT_OPERATOR_ID$),      "STR"):@FM
-DataFields := "SEQUENCE"               :@VM:SQL_Format(Rec(LOT_EVENT_SEQUENCE$),               "INT")
+DataFields := "SEQUENCE"               :@VM:SQL_Format(Rec(LOT_EVENT_SEQUENCE$),               "INT"):@FM
+DataFields := "CHRON_ID"               :@VM:SQL_Format(Rec(LOT_EVENT_CHRON_ID$),               "INT")
 
 // Symbolics
 
@@ -43,3 +44,4 @@ Ans = SQL_Write(Connection, "LOT_EVENT", Keys, DataFields);
 // Multi-valued Fields
 
 Return Ans
+
diff --git a/LSL2/STPROC/LOT_EVENT_SERVICES.txt b/LSL2/STPROC/LOT_EVENT_SERVICES.txt
index 9fafea3..59774b3 100644
--- a/LSL2/STPROC/LOT_EVENT_SERVICES.txt
+++ b/LSL2/STPROC/LOT_EVENT_SERVICES.txt
@@ -55,7 +55,7 @@ $Insert LOT_EQUATES
 $Insert LOT_OPERATION_EQUATES
 
 Declare function   Error_Services, Logging_Services, Environment_Services, Database_Services, RTI_CreateGUID
-Declare function   Lot_Event_Services, Lot_Services
+Declare function   Lot_Event_Services, Lot_Services, NextKey
 Declare subroutine Error_Services, Logging_Services, Database_Services, Lot_Services, Service_Services
 Declare subroutine Transaction_Services
 
@@ -92,27 +92,33 @@ Service CreateLotEvent(LotId, EventDateTime, EventType=EVENT_TYPES, EventNote, E
 		CurrLotOperation = Lot_Services('GetLotCurrOperationId', LotId)
 		NewEventId = RTI_CreateGUID()
 		If NewEventId NE '' then
-			NewEventSequence = Lot_Event_Services('GetLotEventNextSequence', LotId)
-			If Error_Services('NoError') then
-				NewEventRec                                    = ''
-				NewEventRec<LOT_EVENT_LOT_ID$>                 = LotId
-				NewEventRec<LOT_EVENT_LOT_EVENT_TYPE$>         = EventType
-				NewEventRec<LOT_EVENT_EVENT_DATETIME$>         = EventDatetime
-				NewEventRec<LOT_EVENT_EVENT_NOTE$>             = EventNote
-				NewEventRec<LOT_EVENT_EVENT_OPERATION_ID$>     = CurrLotOperation
-				NewEventRec<LOT_EVENT_EQUIPMENT_ID$>           = EventEquipmentId
-				NewEventRec<LOT_EVENT_EVENT_OPERATOR_ID$>      = OperatorId
-				NewEventRec<LOT_EVENT_SEQUENCE$>               = NewEventSequence
-				Database_Services('WriteDataRow', 'LOT_EVENT', NewEventId, NewEventRec)
-				If Error_Services('NoError') then
-					Transaction_Services('PostWriteFieldTransaction', 'LOT', LotId, LOT_MOST_RECENT_LOT_EVENT_ID$, NewEventId)
-					If Error_Services('HasError') then ErrorMessage = Error_Services('GetMessage')
-				end else
-					ErrorMessage = 'Error creating new event : ' : Error_Services('GetMessage')
-				end
-			end else
-				ErrorMessage = Error_Services('GetMessage')
-			end
+		    NextEventChronId = NextKey('LOT_EVENT')
+		    If NextEventChronId NE 0 then 
+                NewEventSequence = Lot_Event_Services('GetLotEventNextSequence', LotId)
+                If Error_Services('NoError') then
+                    NewEventRec                                = ''
+                    NewEventRec<LOT_EVENT_LOT_ID$>             = LotId
+                    NewEventRec<LOT_EVENT_LOT_EVENT_TYPE$>     = EventType
+                    NewEventRec<LOT_EVENT_EVENT_DATETIME$>     = EventDatetime
+                    NewEventRec<LOT_EVENT_EVENT_NOTE$>         = EventNote
+				    NewEventRec<LOT_EVENT_EVENT_OPERATION_ID$> = CurrLotOperation
+                    NewEventRec<LOT_EVENT_EQUIPMENT_ID$>       = EventEquipmentId
+                    NewEventRec<LOT_EVENT_EVENT_OPERATOR_ID$>  = OperatorId
+                    NewEventRec<LOT_EVENT_SEQUENCE$>           = NewEventSequence
+                    NewEventRec<LOT_EVENT_CHRON_ID$>           = NextEventChronId
+                    Database_Services('WriteDataRow', 'LOT_EVENT', NewEventId, NewEventRec)
+                    If Error_Services('NoError') then
+                        Transaction_Services('PostWriteFieldTransaction', 'LOT', LotId, LOT_MOST_RECENT_LOT_EVENT_ID$, NewEventId)
+                        If Error_Services('HasError') then ErrorMessage = Error_Services('GetMessage')
+                    end else
+                        ErrorMessage = 'Error creating new event : ' : Error_Services('GetMessage')
+                    end
+                end else
+                    ErrorMessage = Error_Services('GetMessage')
+                end
+            end else
+                ErrorMessage = 'Error creating new event. Error calling NextKey("LOT_EVENT") to get LOT_EVENT_CHRON_ID.'
+            end
 		end else
 			ErrorMessage = 'Error creating an event Id.'
 		end
@@ -236,3 +242,4 @@ return
 
 
 
+
diff --git a/LSL2/STPROCINS/LOT_EVENT_EQUATES.txt b/LSL2/STPROCINS/LOT_EVENT_EQUATES.txt
index 7d353c0..de4680f 100644
--- a/LSL2/STPROCINS/LOT_EVENT_EQUATES.txt
+++ b/LSL2/STPROCINS/LOT_EVENT_EQUATES.txt
@@ -19,5 +19,7 @@ compile insert LOT_EVENT_EQUATES
    equ LOT_EVENT_EVENT_OPERATION_ID$     to 10
    equ LOT_EVENT_EVENT_OPERATOR_ID$      to 11
    equ LOT_EVENT_SEQUENCE$               to 12
+   equ LOT_EVENT_CHRON_ID$               to 13
 
 #endif
+