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