From e97162dc1e704cb4053bef4eaa87d5a648dc667e Mon Sep 17 00:00:00 2001 From: "Infineon\\StieberD" Date: Mon, 14 Jul 2025 15:13:45 -0700 Subject: [PATCH] fixed routines posting procedures with value marks instead of the new service delimiter --- LSL2/STPROC/LOT_SERVICES.txt | 5 ++--- LSL2/STPROC/NCR_ACTIONS.txt | 6 +++--- LSL2/STPROC/NDW_WO_LOG_EVENTS.txt | 6 +++--- LSL2/STPROC/QA_SERVICES.txt | 7 ++----- LSL2/STPROC/TW_USE_ACTIONS.txt | 4 +++- LSL2/STPROC/WORK_ORDER_SERVICES.txt | 4 ++-- 6 files changed, 15 insertions(+), 17 deletions(-) diff --git a/LSL2/STPROC/LOT_SERVICES.txt b/LSL2/STPROC/LOT_SERVICES.txt index ee66621..14ce385 100644 --- a/LSL2/STPROC/LOT_SERVICES.txt +++ b/LSL2/STPROC/LOT_SERVICES.txt @@ -55,6 +55,7 @@ $Insert PRODUCT_OPERATION_EQUATES $Insert LOT_EVENT_EQUATES $Insert NOTIFICATION_EQUATES $Insert VOIDED_LOT_EQUATES +$Insert IFX_EQUATES Declare function TEST_WAFER_PROD_SERVICES, SRP_Datetime, Datetime, Database_Services, Lot_Services, Error_Services, RTI_CREATEGUID Declare function SRP_Array, SRP_Json, Environment_Services, Logging_Services, MemberOf, Lot_Event_Services, GetTickCount @@ -1338,7 +1339,7 @@ Service ReduceLotWaferCount(LotId, ReductionQty, OperatorId) // Write Lot Event Lot_Event_Services('CreateLotEvent', LotId, Datetime(), 'REDUCE_WAFER_QTY', 'Reduced wafer count by ' : ReductionQty, '', OperatorId, False$, '') if LotNewWfrQty EQ 0 AND LotType EQ 'TW' then - ServiceParms = 'AutoCloseTestWaferLot' : @VM : LotId : @VM : 'SYSTEM' + ServiceParms = 'AutoCloseTestWaferLot' : SD$ : LotId : SD$ : 'SYSTEM' Service_Services('PostProcedure', 'LOT_SERVICES', ServiceParms) If Error_Services('HasError') then Recipients = Xlate('NOTIFICATION', 'FI_SUPPORT', NOTIFICATION_USER_ID$, 'X') @@ -1517,5 +1518,3 @@ end service // Internal GoSubs //---------------------------------------------------------------------------------------------------------------------- - - diff --git a/LSL2/STPROC/NCR_ACTIONS.txt b/LSL2/STPROC/NCR_ACTIONS.txt index b33db6e..fc141ef 100644 --- a/LSL2/STPROC/NCR_ACTIONS.txt +++ b/LSL2/STPROC/NCR_ACTIONS.txt @@ -58,6 +58,7 @@ $insert WM_OUT_EQUATES $insert WM_IN_EQUATES $insert WO_MAT_EQUATES $insert NCR_EQUATES +$insert IFX_EQUATES EQU CRLF$ TO \0D0A\ EQU Comma$ TO ',' @@ -272,7 +273,7 @@ WRITE_RECORD: Next RDSNo If (OrgQty NE NewQty) then - Service_Services('PostProcedure', 'WORK_ORDER_SERVICES', 'UpdateScrappedQty':@VM:WorkOrderNo) + Service_Services('PostProcedure', 'WORK_ORDER_SERVICES', 'UpdateScrappedQty':SD$:WorkOrderNo) end // On the write of the record, read then write associated WM_IN and WM_OUT records to trigger the WM_MFS. @@ -745,7 +746,7 @@ DELETE_RECORD: Pass_To_SQL('WRITE', 'RDS', RDSNo) Next RDSNo - Service_Services('PostProcedure', 'WORK_ORDER_SERVICES', 'UpdateScrappedQty':@VM:WorkOrderNo) + Service_Services('PostProcedure', 'WORK_ORDER_SERVICES', 'UpdateScrappedQty':SD$:WorkOrderNo) return @@ -812,4 +813,3 @@ LogRecord: return - diff --git a/LSL2/STPROC/NDW_WO_LOG_EVENTS.txt b/LSL2/STPROC/NDW_WO_LOG_EVENTS.txt index 98634f9..0d17685 100644 --- a/LSL2/STPROC/NDW_WO_LOG_EVENTS.txt +++ b/LSL2/STPROC/NDW_WO_LOG_EVENTS.txt @@ -1238,7 +1238,7 @@ Event PUB_REM_CASS.CLICK() WmInKeys<1, -1> = CassetteToVoid<1,4> //Work_Order_Services('SignVoidWMI', WMIToVoid, @USER4) Next CassetteToVoid - Service_Services('PostProcedure', 'WORK_ORDER_SERVICES', 'SignVoidWMI':SD$:WmInKeys:SD$:WoNo:SD$:@USER4, True$) + Service_Services('PostProcedure', 'WORK_ORDER_SERVICES', 'SignVoidWMI':SD$:WmInKeys:SD$:WoNo:SD$:@USER4) If Error_Services('HasError') then ErrorMessage = Error_Services('GetMessage') end @@ -1262,7 +1262,7 @@ Event PUB_REM_CASS.CLICK() Next CassetteToVoid If ErrorMessage EQ '' then - Service_Services('PostProcedure', 'WORK_ORDER_SERVICES', 'SignVoidNonEPP':SD$:WoMatKeyList:SD$:WoNo:SD$:@USER4, True$) + Service_Services('PostProcedure', 'WORK_ORDER_SERVICES', 'SignVoidNonEPP':SD$:WoMatKeyList:SD$:WoNo:SD$:@USER4) if Error_Services('HasError') then ErrorMessage = Error_Services('GetMessage') end @@ -1347,7 +1347,7 @@ Event PUB_REM_WM_OUT.CLICK() WmOutKeys<1, -1> = CassetteToVoid<1,3> Until ErrorMessage NE '' Next CassetteToVoid - Service_Services('PostProcedure', 'WORK_ORDER_SERVICES', 'SignVoidWMO':SD$:WmInKeys:SD$:WoNo:SD$:@USER4, True$) + Service_Services('PostProcedure', 'WORK_ORDER_SERVICES', 'SignVoidWMO':SD$:WmInKeys:SD$:WoNo:SD$:@USER4) If Error_Services('HasError') then ErrorMessage = Error_Services('GetMessage') end diff --git a/LSL2/STPROC/QA_SERVICES.txt b/LSL2/STPROC/QA_SERVICES.txt index 05aa00d..e54af46 100644 --- a/LSL2/STPROC/QA_SERVICES.txt +++ b/LSL2/STPROC/QA_SERVICES.txt @@ -119,6 +119,7 @@ $insert ROTR_REQUESTS_EQUATES $insert ROTR_EQUATES $insert REACT_LL_EQUATES $Insert WAFER_COUNTER_EQUATES +$Insert IFX_EQUATES * Clean Insp Actions EQU ACTION$ACTIONS TO 1 @@ -2487,7 +2488,7 @@ Service SignLoadStage(RDSNo, Username, WaferQty, LLSide, ScanEntry) ToolID = ReactID ; WOMLParms := ToolID:@RM WOMLParms := ScanEntry - Service_Services('PostProcedure', 'obj_WO_Mat_Log', 'Create':@VM:WOMLParms) + Service_Services('PostProcedure', 'obj_WO_Mat_Log', 'Create':SD$:WOMLParms) IF Get_Status(errCode) THEN ErrorMsg = 'Process Error: Error calling Service_Services("PostProcedure", "obj_WO_Mat_Log", "Create"...). Error code: ':errCode @@ -3693,7 +3694,3 @@ ClearCursors: return - - - - diff --git a/LSL2/STPROC/TW_USE_ACTIONS.txt b/LSL2/STPROC/TW_USE_ACTIONS.txt index 1b2d149..ef7bc4a 100644 --- a/LSL2/STPROC/TW_USE_ACTIONS.txt +++ b/LSL2/STPROC/TW_USE_ACTIONS.txt @@ -58,6 +58,7 @@ $insert WM_OUT_EQUATES $insert WM_IN_EQUATES $insert WO_MAT_EQUATES $Insert TW_USE_EQUATES +$Insert IFX_EQUATES Declare function Database_Services, obj_NCR, obj_SAP, Environment_Services, Logging_Services Declare subroutine Error_Services, Database_Services, obj_NCR, obj_SAP, Material_Services, Work_Order_Services @@ -163,7 +164,7 @@ WRITE_RECORD: MetrologyID = Field(Name, '*', 1) RDSNo = Xlate('RDS_TEST', MetrologyID, RDS_TEST_RDS_NO$, 'X') - Service_Services('PostProcedure', 'RDS_Services', 'AllTWUseSigned':@VM:RDSNo) + Service_Services('PostProcedure', 'RDS_Services', 'AllTWUseSigned':SD$:RDSNo) end return @@ -226,3 +227,4 @@ Restore_System_Variables: Transfer SaveRecord to @RECORD @FILE.ERROR = OrigFileError return + diff --git a/LSL2/STPROC/WORK_ORDER_SERVICES.txt b/LSL2/STPROC/WORK_ORDER_SERVICES.txt index 527cfb4..5c22a5b 100644 --- a/LSL2/STPROC/WORK_ORDER_SERVICES.txt +++ b/LSL2/STPROC/WORK_ORDER_SERVICES.txt @@ -47,6 +47,7 @@ $Insert NOTIFICATION_EQUATES $Insert WM_IN_EQUATES $Insert WM_OUT_EQUATES $Insert VOIDED_LOT_EQUATES +$Insert IFX_EQUATES Declare subroutine Error_Services, Work_Order_Services, Memory_Services, RList, Database_Services, SRP_JSON Declare subroutine Btree.Extract, Set_Status, obj_WO_Log, obj_Notes, Print_Wo_Mat_In_Labels, Print_Wo_Mat_Out_Labels @@ -1766,7 +1767,7 @@ Service UpdateOpenWorkOrderStatuses() If Not(Get_Status(ErrCode)) then If OpenWoLogKeys NE '' then For each OpenWoLogKey in OpenWoLogKeys using @VM - Service_Services('PostProcedure', 'WORK_ORDER_SERVICES', 'UpdateWorkOrderStatus':@VM:OpenWoLogKey) + Service_Services('PostProcedure', 'WORK_ORDER_SERVICES', 'UpdateWorkOrderStatus':SD$:OpenWoLogKey) If Error_Services('NoError') then LogData<1> = OConv(Datetime(), 'DT/^S') LogData<2> = Server @@ -1926,4 +1927,3 @@ ClearCursors: return -