From d0774489990767185f331eee2fbffcb5650b3173 Mon Sep 17 00:00:00 2001
From: "Infineon\\StieberD" <Stieber.external@infineon.com>
Date: Wed, 2 Oct 2024 15:49:48 -0700
Subject: [PATCH] Updated WO_MAT_ACTIONS to trigger a write to the WM_OUT table
 for EpiPro lots under certain conditions in order to update the
 WMO_CURR_STATUS

---
 LSL2/STPROC/WO_MAT_ACTIONS.txt | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/LSL2/STPROC/WO_MAT_ACTIONS.txt b/LSL2/STPROC/WO_MAT_ACTIONS.txt
index 099fd21..7a95233 100644
--- a/LSL2/STPROC/WO_MAT_ACTIONS.txt
+++ b/LSL2/STPROC/WO_MAT_ACTIONS.txt
@@ -773,6 +773,22 @@ WRITE_RECORD:
         obj_Notes('Create',Parms) 
     end
     
+	If {REACTOR_TYPE} EQ 'EPP' then
+		NewEppMUFlag   = Record<WO_MAT_EPO_MAKEUP_BOX$>
+		OrigEppMUFlag  = OrigRecord<WO_MAT_EPO_MAKEUP_BOX$>
+		NewInvActions  = Record<WO_MAT_INV_ACTION$>
+		OrigInvActions = OrigRecord<WO_MAT_INV_ACTION$>
+		If ( (NewEppMUFlag NE OrigEppMUFlag) or (NewInvActions NE OrigInvActions) ) then
+			// Need to trigger an update WMO Curr Status field because WM_MFS is not
+			// attached to the WO_MAT table and the WMO status may have changed.
+			WMOKey = {WMO_KEY}
+			WMORec = Database_Services('ReadDataRow', 'WM_OUT', WMOKey)
+			If Error_Services('NoError') then
+				Database_Services('WriteDataRow', 'WM_OUT', WMOKey, WMORec, True$, False$, True$)
+			end
+		end
+	end    
+    
     If OrigRecord<WO_MAT_WAFER_QTY$> NE Record<WO_MAT_WAFER_QTY$> then
         Work_Order_Services('UpdateReceivedQty', WONo)
         Work_Order_Services('UpdateReleasedQty', WONo)
@@ -832,4 +848,3 @@ Restore_System_Variables:
     @FILE.ERROR = OrigFileError
 return
 
-