From 8499d03ef8cb9af65b285f000e110d372b70016a Mon Sep 17 00:00:00 2001
From: "Infineon\\StieberD" <daniel.stieber@infineon.com>
Date: Fri, 1 Aug 2025 08:26:27 -0700
Subject: [PATCH] modified update work order services to throttle better

---
 LSL2/STPROC/WORK_ORDER_SERVICES.txt | 24 +++++++-----------------
 1 file changed, 7 insertions(+), 17 deletions(-)

diff --git a/LSL2/STPROC/WORK_ORDER_SERVICES.txt b/LSL2/STPROC/WORK_ORDER_SERVICES.txt
index d1bc70c..059ee75 100644
--- a/LSL2/STPROC/WORK_ORDER_SERVICES.txt
+++ b/LSL2/STPROC/WORK_ORDER_SERVICES.txt
@@ -1933,12 +1933,11 @@ Service UpdateOpenWorkOrderStatuses()
 				end
 				NextOpenWoLogKey = OpenWoLogKeys<0, vPos>
 				Database_Services('WriteDataRow', 'APP_INFO', ServiceKey, NextOpenWoLogKey, True$, False$, False$)            	
-            	
-            	If NextOpenWoLogKey NE '' then 
-                    Service_Services('PostProcedure', 'WORK_ORDER_SERVICES', 'UpdateWorkOrderStatus':SD$:NextOpenWoLogKey)
+            	If NextOpenWoLogKey NE '' then
+            	    Work_Order_Services('UpdateWorkOrderStatus', NextOpenWoLogKey)
                     If Error_Services('HasError') then
                         LogData<1> = OConv(Datetime(), 'DT/^S')
-                        ErrorMsg   = 'Error posting UpdateWorkOrderStatus request for WO_LOG ':NextOpenWoLogKey:'. ':Error_Services('GetMessage')
+                        ErrorMsg   = 'Error calling UpdateWorkOrderStatus for WO_LOG ':NextOpenWoLogKey:'. ':Error_Services('GetMessage')
                         LogData<4> = ErrorMsg
                         Logging_Services('AppendLog', objVerifyWOMatKeysLog, LogData, @RM, @FM)
                         MonaStatus = 'critical'                        
@@ -2122,24 +2121,15 @@ Service UpdateOpenWorkOrderData()
 				end
 				NextOpenWoLogKey = OpenWoLogKeys<0, vPos>
 				Database_Services('WriteDataRow', 'APP_INFO', ServiceKey, NextOpenWoLogKey, True$, False$, False$)            	
-            	
-            	If NextOpenWoLogKey NE '' then 
-            		Service_Services('PostProcedure', 'WORK_ORDER_SERVICES', 'UpdateWorkOrderData':SD$:NextOpenWoLogKey)
+            	If NextOpenWoLogKey NE '' then
+            	    Work_Order_Services('UpdateWorkOrderData', NextOpenWoLogKey)
                     If Error_Services('HasError') then
                         LogData<1> = OConv(Datetime(), 'DT/^S')
-                        ErrorMsg   = 'Error posting UpdateWorkOrderData request for WO_LOG ':NextOpenWoLogKey:'. ':Error_Services('GetMessage')
+                        ErrorMsg   = 'Error calling UpdateWorkOrderData for WO_LOG ':NextOpenWoLogKey:'. ':Error_Services('GetMessage')
                         LogData<4> = ErrorMsg
                         Logging_Services('AppendLog', objVerifyWOMatKeysLog, LogData, @RM, @FM)
                         MonaStatus = 'critical'                        
-                    end
-                    Service_Services('PostProcedure', 'WORK_ORDER_SERVICES', 'UpdateWorkOrderStatus':SD$:NextOpenWoLogKey)
-                    If Error_Services('HasError') then
-                        LogData<1> = OConv(Datetime(), 'DT/^S')
-                        ErrorMsg   = 'Error posting UpdateWorkOrderStatus request for WO_LOG ':NextOpenWoLogKey:'. ':Error_Services('GetMessage')
-                        LogData<4> = ErrorMsg
-                        Logging_Services('AppendLog', objVerifyWOMatKeysLog, LogData, @RM, @FM)
-                        MonaStatus = 'critical'                        
-                    end                    
+                    end            	                    
             	end
             end else
                 LogData<1> = OConv(Datetime(), 'DT/^S')