phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed routines posting procedures with value marks instead of the new service delimiter

Browse Source
This commit is contained in:
Infineon\StieberD
2025-07-14 15:13:45 -07:00
parent 2a6c0afddf
commit e97162dc1e
6 changed files with 15 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
LSL2/STPROC/LOT_SERVICES.txt
View File

@ -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
//----------------------------------------------------------------------------------------------------------------------

6
LSL2/STPROC/NCR_ACTIONS.txt
View File

@ -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

6
LSL2/STPROC/NDW_WO_LOG_EVENTS.txt
View File

@ -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

7
LSL2/STPROC/QA_SERVICES.txt
View File

@ -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

4
LSL2/STPROC/TW_USE_ACTIONS.txt
View File

@ -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

4
LSL2/STPROC/WORK_ORDER_SERVICES.txt
View File

@ -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