ready for unit testing

This commit is contained in:
Infineon\StieberD
2025-06-17 17:10:31 -07:00
committed by Stieber Daniel (CSC FI SPS MESLEO)
parent 401c03d752
commit 03e85359d1
21 changed files with 1713 additions and 546 deletions

View File

@ -17,8 +17,8 @@ COMPILE FUNCTION obj_RDS(Method,Parms)
DECLARE FUNCTION Get_Status, Msg, Utility, obj_Tables, NextKey, obj_WO_Verify, obj_Prod_Spec, Send_Dyn, obj_RDS_Makeup
DECLARE FUNCTION obj_RDS2, obj_RDS_Test, obj_WO_Mat, obj_Clean_Insp, obj_PRS_Prop, Database_Services
DECLARE FUNCTION Logging_Services, Environment_Services, Error_Services, Signature_Services, Supplement_Services
DECLARE FUNCTION obj_RDS2, obj_RDS_Test, obj_WO_Mat, obj_Clean_Insp, obj_PRS_Prop, Database_Services, RDS_Services
DECLARE FUNCTION Logging_Services, Environment_Services, Error_Services, Signature_Services, Lot_Services, Supplement_Services
DECLARE SUBROUTINE Set_Status, Msg, obj_Tables, Send_Dyn, obj_WO_Step, obj_RDS_Layer, obj_RDS_Test, obj_WM_In
DECLARE SUBROUTINE Btree.Extract, RDS_React_Run, Environment_Services, Logging_Services, Error_Services, Send_Info
DECLARE SUBROUTINE SRP_Stopwatch, Database_Services, Lot_Services, Supplement_Services
@ -475,7 +475,21 @@ Create:
Logging_Services('AppendLog', objLog, LoggingDTM : ',' : @USER4 : ',' : RDSNo : ',' : 'Error writing new RDS record. Error code: ':errCode)
Result = ''
END ELSE
Lot_Services('CreateNewLot', 'RDS', '', WaferQty, SubPartNo, LotNo, SubVendCd, @User4, '', RDSNo)
NewLotId = Lot_Services('CreateNewLot', 'RDS', '', WaferQty, SubPartNo, LotNo, SubVendCd, @User4, '', RDSNo)
If Rds_Services('IsEpiPro', RDSNo) then
Lot_Services('AddLotOperationIntoSequence', NewLotId, 'RDS_CREATE', 1, False$)
Lot_Services('AddLotOperationIntoSequence', NewLotId, 'PRE_EPI', 2, False$)
Lot_Services('AddLotOperationIntoSequence', NewLotId, 'REACTOR_RUN', 3, False$)
Lot_Services('AddLotOperationIntoSequence', NewLotId, 'POST_EPI', 4, False$)
Lot_Services('AddLotOperationIntoSequence', NewLotId, 'RDS_CLOSE', 5, False$)
Lot_Services('StartLot', NewLotId, @User4) ; // LOT_START event and move in to RDS_CREATE operation
Lot_Services('MoveOutLot', NewLotId, @User4) ; // Move out of RDS_CREATE operation
Lot_Services('MoveInLot', NewLotId, @User4) ; // Move in to PRE_EPI operation
end
Result = RDSNo
********************************
*Automatically Apply Supplement*
@ -1478,4 +1492,3 @@ RETURN