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

Pushed a change for TW Tracking Phase 2 yesterday that broke current system. Added in gating logic

Browse Source
This commit is contained in:
Infineon\Ouellette 2025-02-12 16:47:18 -07:00
parent 824b2a0d8f
commit 3ba7ffe782
1 changed files with 19 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
LSL2/STPROC/TEST_RUN_SERVICES.txt
View File

@ -321,22 +321,25 @@ Service CreateTestRunRecord(RunTypeID, EqpType, EqpID, PSNo, RDSNo, UserID, TWLo
TWRunKey = '' TWRunKey = ''
Response = '' Response = ''
ErrorMessage = '' ErrorMessage = ''
TWTrackingSystemActive = Database_Services('ReadDataColumn', 'APP_INFO', 'NEW_TW_SYSTEM_ACTIVE_SWITCH', 1, True$, 0, False$)
//Pre-Checks. //Pre-Checks.
If TWLotIds NE '' then If TWTrackingSystemActive then
for each TWLotId in TWLotIds using @VM setting twLotPos If TWLotIds NE '' then
ThisTWLotCurrQty = Database_Services('ReadDataColumn', 'LOT', TWLotId, LOT_WAFER_QTY$, True$, 0, False$) for each TWLotId in TWLotIds using @VM setting twLotPos
If ThisTWLotCurrQty then ThisTWLotCurrQty = Database_Services('ReadDataColumn', 'LOT', TWLotId, LOT_WAFER_QTY$, True$, 0, False$)
ThisTWLotUsageQty = TWLotQtys<1, twLotPos> If ThisTWLotCurrQty then
If ThisTWLotCurrQty LT ThisTWLotUsageQty then ThisTWLotUsageQty = TWLotQtys<1, twLotPos>
ErrorMessage = 'Error in Create Test Run Record routine. Lot # ' : TWLotId : ' does not have enough wafers. Please choose ' : ThisTWLotCurrQty : ' wafers or less.' If ThisTWLotCurrQty LT ThisTWLotUsageQty then
end ErrorMessage = 'Error in Create Test Run Record routine. Lot # ' : TWLotId : ' does not have enough wafers. Please choose ' : ThisTWLotCurrQty : ' wafers or less.'
end else end
ErrorMessage = 'Error in Create Test Run Record routine. Lot # ' : TWLotId : ' has a zero wafer quantity.' end else
end ErrorMessage = 'Error in Create Test Run Record routine. Lot # ' : TWLotId : ' has a zero wafer quantity.'
Until ErrorMessage NE '' end
Next TWLotId Until ErrorMessage NE ''
end else Next TWLotId
ErrorMessage = 'Error in Create Test Run Record routine. No test wafer lots entered.' end else
ErrorMessage = 'Error in Create Test Run Record routine. No test wafer lots entered.'
end
end end
If ErrorMessage EQ '' then If ErrorMessage EQ '' then
If RunTypeID NE '' AND EqpType NE '' AND EqpID NE '' AND UserID NE '' then If RunTypeID NE '' AND EqpType NE '' AND EqpID NE '' AND UserID NE '' then
@ -794,3 +797,4 @@ end service