From 033e3baee817c704ee89501c5097d2e5bf74b225 Mon Sep 17 00:00:00 2001 From: "Infineon\\StieberD" Date: Tue, 29 Jul 2025 12:52:06 -0700 Subject: [PATCH] added condition to search RDS table for matching WO_MAT record to correct index --- LSL2/STPROC/WORK_ORDER_SERVICES.txt | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) diff --git a/LSL2/STPROC/WORK_ORDER_SERVICES.txt b/LSL2/STPROC/WORK_ORDER_SERVICES.txt index 3f6c233..6ce6e27 100644 --- a/LSL2/STPROC/WORK_ORDER_SERVICES.txt +++ b/LSL2/STPROC/WORK_ORDER_SERVICES.txt @@ -2199,6 +2199,30 @@ Service UpdateWorkOrderData(WONo) RDS_Services('VerifyWOLogRDSKeyIndex', RDSNo) RDS_Services('VerifyWOMatRDSNoIndex', RDSNo) RDS_Services('VerifyWOStepRDSKeyIndex', RDSNo) + end else + EpiPro = (Xlate('WO_LOG', WONo, 'PS_REACTOR_TYPE', 'X') _EQC 'EPP') + If Not(EpiPro) then + Query = 'SELECT RDS WITH WO EQ ':WONo:' AND WITH CASS_NO EQ ':CassNo + RList(Query, TARGET_ACTIVELIST$, '', '', '') + ErrCode = '' + If Not(Get_Status(ErrCode)) then + ReadNext RDSNo then + RDS_Services('VerifyWOLogRDSKeyIndex', RDSNo) + RDS_Services('VerifyWOMatRDSNoIndex', RDSNo) + RDS_Services('VerifyWOStepRDSKeyIndex', RDSNo) + end else + MonaStatus = 'critical' + LogData<1> = OConv(Datetime(), 'DT/^S') + LogData<4> = 'No RDS found for WO_MAT ':WOMatKey:'.' + Logging_Services('AppendLog', objVerifyWOMatKeysLog, LogData, @RM, @FM) + end + end else + MonaStatus = 'critical' + LogData<1> = OConv(Datetime(), 'DT/^S') + LogData<4> = 'Error calling RList to find RDSNo associated with WO_MAT ':WOMatKey:'. Error code: ':ErrCode + Logging_Services('AppendLog', objVerifyWOMatKeysLog, LogData, @RM, @FM) + end + end end Voided = Xlate('WO_MAT', WOMatKey, 'VOID', 'X') If Not(Voided) then