From 6d5c9c0ab734c800f7532d7af5068a60d6b6e13a Mon Sep 17 00:00:00 2001
From: "Infineon\\StieberD" <daniel.stieber@infineon.com>
Date: Wed, 13 Aug 2025 16:31:38 -0700
Subject: [PATCH] removed code to add LOT_EVENT records for legacy WO_MAT log
 events

---
 LSL2/STPROC/OBJ_WO_MAT_LOG.txt | 88 ++--------------------------------
 1 file changed, 3 insertions(+), 85 deletions(-)

diff --git a/LSL2/STPROC/OBJ_WO_MAT_LOG.txt b/LSL2/STPROC/OBJ_WO_MAT_LOG.txt
index 54e0acb..d5d4a18 100644
--- a/LSL2/STPROC/OBJ_WO_MAT_LOG.txt
+++ b/LSL2/STPROC/OBJ_WO_MAT_LOG.txt
@@ -92,6 +92,7 @@ RETURN Result
 * * * * * * *
 Create:
 * * * * * * *
+
 	StartTick = GetTickCount()
     MetricName = 'Create'
 	
@@ -165,93 +166,12 @@ Create:
     WOMatLogRec<WO_MAT_LOG_TOOL_ID$>	= ToolID
     WOMatLogRec<WO_MAT_LOG_SCAN_ENTRY$> = ScanEntry
     
-*    OtParms = 'WO_MAT_LOG':@RM:WOMatLogKey:@RM:@RM:WOMatLogRec
-*    obj_Tables('WriteRec',OtParms)
-*    
-*    errCode = ''
-*    IF Get_Status(errCode) THEN
-*        ErrorMsg = 'obj_WO_Mat_Log':TAB$:'Create: Write error':TAB$:LogFile:TAB$:WONos:TAB$:CassNos:TAB$:WhCd:'*':LocCd:TAB$:Action:TAB$:TransDTM:TAB$:UserID:TAB$:Tags:TAB$:ToolID:TAB$:errCode
-*    END ElSE
-*        ErrorMsg = ''
-*    END
-    
     Database_Services('WriteDataRow', 'WO_MAT_LOG', WOMatLogKey, WOMatLogRec, True$, False$, True$)
-    If Error_Services('NoError') then
-    	ReactType = XLATE('WO_LOG', WONos, WO_LOG_REACT_TYPE$, 'X')
-    	If ReactType NE 'EPP' then
-    		WONo = WoNos
-			CassNo = CassNos
-			WOMatKey = WONo : '*' : CassNo
-			RDSKey = XLATE('WO_MAT', WOMatKey, WO_MAT_RDS_NO$, 'X')
-			Lot_Event_Services('CreateLotEvent', RDSKey, Datetime(), Action, '', '', UserId, True$, 'RDS')
-    	end else
-    		Begin Case
-    			Case Action EQ 'RCVD'
-    				//WMI
-    				WONo = WoNos
-    				StepNo = 1
-    				CassNo = CassNos
-    				WMInKey = WONo : '*' : StepNo : '*' : CassNo
-    				Lot_Event_Services('CreateLotEvent', WMInKey, Datetime(), Action, '', '', UserId, True$, 'WM_IN')
-    			Case Action EQ 'REL'
-    				//WMI
-    				WONo = WoNos
-    				StepNo = 1
-    				CassNo = CassNos
-    				WMInKey = WONo : '*' : StepNo : '*' : CassNo
-    				Lot_Event_Services('CreateLotEvent', WMInKey, Datetime(), Action, '', '', UserId, True$, 'WM_IN')
-    			Case Action EQ '1VER'
-    				//RDS action, do nothing for now
-    			Case Action EQ '1LOAD'
-    				//RDS, do nothing for now
-    			Case Action EQ '1UNLOAD'
-    				//RDS, do nothing for now
-    			Case Action EQ '1MO_PSTI'
-    				WONo = WoNos
-    				StepNo = 1
-    				CassNo = CassNos
-    				WMOutKey = WONo : '*' : StepNo : '*' : CassNo
-    				Lot_Event_Services('CreateLotEvent', WMOutKey, Datetime(), Action, '', '', UserId, True$, 'WM_OUT')
-    			Case Action EQ '1MO_QA'
-    				WONo = WoNos
-    				StepNo = 1
-    				CassNo = CassNos
-    				WMOutKey = WONo : '*' : StepNo : '*' : CassNo
-    				Lot_Event_Services('CreateLotEvent', WMOutKey, Datetime(), Action, '', '', UserId, True$, 'WM_OUT')
-    			Case Action EQ 'PACK'
-    				WONo = WoNos
-    				StepNo = 1
-    				CassNo = CassNos
-    				WMOutKey = WONo : '*' : StepNo : '*' : CassNo
-    				Lot_Event_Services('CreateLotEvent', WMOutKey, Datetime(), Action, '', '', UserId, True$, 'WM_OUT')
-    			Case Action EQ 'PSVER'
-    				WONo = WoNos
-    				StepNo = 1
-    				CassNo = CassNos
-    				WMOutKey = WONo : '*' : StepNo : '*' : CassNo
-    				Lot_Event_Services('CreateLotEvent', WMOutKey, Datetime(), Action, '', '', UserId, True$, 'WM_OUT')
-    			Case Action EQ 'SHIP'
-    				WONo = WoNos
-    				StepNo = 1
-    				CassNo = CassNos
-    				WMOutKey = WONo : '*' : StepNo : '*' : CassNo
-    				Lot_Event_Services('CreateLotEvent', WMOutKey, Datetime(), Action, '', '', UserId, True$, 'WM_OUT')
-    			Case Action EQ 'LBLCHK'
-    				//WMO
-    				WONo = WoNos
-    				StepNo = 1
-    				CassNo = CassNos
-    				WMOutKey = WONo : '*' : StepNo : '*' : CassNo
-    				Lot_Event_Services('CreateLotEvent', WMOutKey, Datetime(), Action, '', '', UserId, True$, 'WM_OUT')
-    		End Case
-    	end
-        ErrorMsg = ''
-    end else
-    	ErrorMsg = Error_Services('GetMessage')
-    end
+    If Error_Services('HasError') then ErrorMsg = Error_Services('GetMessage')
     
     EndTick = GetTickCount()
     Mona_Services('QueueLatencyAndCountMetrics', MonaResource, MetricName, StartTick, EndTick)
+    
 RETURN
 
 
@@ -406,5 +326,3 @@ Post:
     
 RETURN
 
-
-