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

added datetime to HgCV SPC file as well as logging

Browse Source
This commit is contained in:
Infineon\StieberD 2024-10-23 14:54:12 -07:00
parent 534f2d5e9f
commit f7ca1f765b
1 changed files with 37 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
LSL2/STPROC/METROLOGY_SERVICES.txt
View File

@ -1160,7 +1160,7 @@ end service
Service ImportHgCVData(RunData, FileName) Service ImportHgCVData(RunData, FileName)
Machine = 'HgCV' /* Resistivity */ Machine = 'HgCV' /* Resistivity */
FieldPos = 53 FieldPos = 53
FieldPosIncrement = 9 FieldPosIncrement = 9
@ -1403,31 +1403,44 @@ Service ImportHgCVData(RunData, FileName)
WOMatQARec<WO_MAT_QA_DATA_POINTS$, vPos, Index> = DataRow WOMatQARec<WO_MAT_QA_DATA_POINTS$, vPos, Index> = DataRow
Next Index Next Index
// ------------------------------------------------------------------------------------------------------------ // ------------------------------------------------------------------------------------------------------------
// Send data to SPC ------------------------------------------------------------------------------------------- // Send data to SPC -------------------------------------------------------------------------------------------
LogPath = Environment_Services('GetSpcFilesharePath') LogPath = Environment_Services('GetSpcFilesharePath')
objSPC = Logging_Services('NewLog', LogPath, 'HgCV_Unload_Res_9Points.txt', CRLF$, Comma$, '', '', False$, True$) SpcFileDtm = OConv(Datetime(), 'DT2^HS ')
LogData = '' Convert ' ' to '_' in SpcFileDtm
LogData<1> = Oconv(Timestamp, 'DT/^HS') ; // Metrology date/time stamp SpcLogFilename = 'HgCV_Unload_Res_9Points_':SpcFileDtm:'.txt'
LogData<2> = ReactorID ; // Reactor objSPC = Logging_Services('NewLog', LogPath, SpcLogFilename, CRLF$, Comma$, '', '', False$, True$)
LogData<3> = RDSKeyID ; // RDS No If Error_Services('NoError') then
LogData<4> = Xlate('RDS', RDSKeyID, 'PROD_SPEC_ID', 'X'); // PSN Metrology_Services('LogResults', RDSKeyID, Machine, 'UID000', Service : ' : Successfully created blank SPC file.')
WaferSize = Xlate('RDS', RDSKeyID, 'WAFER_SIZE', 'X') end else
WaferSize = Field(WaferSize, ' ', 3) Metrology_Services('LogResults', RDSKeyID, Machine, 'UID000', Service : ' : Failed to create blank SPC file. Error message: ':Error_Services('GetMessage'))
LogData<5> = WaferSize:' Inch' ; // Wafer Size end
FormattedData = Oconv(HgCVDataPoints, 'MD3L') LogData = ''
LogData<1> = Oconv(Timestamp, 'DT/^HS') ; // Metrology date/time stamp
LogData<2> = ReactorID ; // Reactor
LogData<3> = RDSKeyID ; // RDS No
LogData<4> = Xlate('RDS', RDSKeyID, 'PROD_SPEC_ID', 'X'); // PSN
WaferSize = Xlate('RDS', RDSKeyID, 'WAFER_SIZE', 'X')
WaferSize = Field(WaferSize, ' ', 3)
LogData<5> = WaferSize:' Inch' ; // Wafer Size
FormattedData = Oconv(HgCVDataPoints, 'MD3L')
Swap @VM with ',' in FormattedData Swap @VM with ',' in FormattedData
LogData<6> = FormattedData LogData<6> = FormattedData
LogData<7> = OConv(PhaseAvg, 'MD43L') LogData<7> = OConv(PhaseAvg, 'MD43L')
LogData<8> = OConv(HgCVAvg, 'MD43L') ; // HgCV Res Avg LogData<8> = OConv(HgCVAvg, 'MD43L') ; // HgCV Res Avg
LogData<9> = OConv(ResStdDev, 'MD83L') ; // HgCV Res Std Dev LogData<9> = OConv(ResStdDev, 'MD83L') ; // HgCV Res Std Dev
LogData<10> = HgCVRangePct ; // HgCV Res Range % LogData<10> = HgCVRangePct ; // HgCV Res Range %
LogData<11> = OConv(EdgeMean4mm, 'MD43L') ; // HgCV 4mm Edge Mean LogData<11> = OConv(EdgeMean4mm, 'MD43L') ; // HgCV 4mm Edge Mean
LogData<12> = OConv(Avg9Point, 'MD83L') ; // HgCV 9 Point Mean LogData<12> = OConv(Avg9Point, 'MD83L') ; // HgCV 9 Point Mean
LogData<13> = OConv(EdgeMean10mm, 'MD43L') ; // HgCV 10mm Edge Mean LogData<13> = OConv(EdgeMean10mm, 'MD43L') ; // HgCV 10mm Edge Mean
LogData<14> = HgCVEdgeMean ; // HgCV Edge Mean Delta % LogData<14> = HgCVEdgeMean ; // HgCV Edge Mean Delta %
LogData := @RM : ' ' LogData := @RM : ' '
Logging_Services('AppendLog', objSPC, LogData, @RM, @FM, True$) Logging_Services('AppendLog', objSPC, LogData, @RM, @FM, True$)
If Error_Services('NoError') then
Metrology_Services('LogResults', RDSKeyID, Machine, 'UID000', Service : ' : Successfully updated SPC file with metrology data.')
end else
Metrology_Services('LogResults', RDSKeyID, Machine, 'UID000', Service : ' : Failed to update SPC file with metrology data. Error message: ':Error_Services('GetMessage'))
end
// ------------------------------------------------------------------------------------------------------------ // ------------------------------------------------------------------------------------------------------------
WOMatQARec<WO_MAT_QA_SIG$, vPos> = '' WOMatQARec<WO_MAT_QA_SIG$, vPos> = ''
@ -2858,3 +2871,4 @@ LoadRunDataToDatabase:
return return