added datetime to HgCV SPC file as well as logging

This commit is contained in:
Infineon\StieberD 2024-10-23 14:54:12 -07:00
parent 534f2d5e9f
commit f7ca1f765b

View File

@ -1160,7 +1160,7 @@ end service
Service ImportHgCVData(RunData, FileName)
Machine = 'HgCV' /* Resistivity */
FieldPos = 53
FieldPosIncrement = 9
@ -1403,31 +1403,44 @@ Service ImportHgCVData(RunData, FileName)
WOMatQARec<WO_MAT_QA_DATA_POINTS$, vPos, Index> = DataRow
Next Index
// ------------------------------------------------------------------------------------------------------------
// Send data to SPC -------------------------------------------------------------------------------------------
LogPath = Environment_Services('GetSpcFilesharePath')
objSPC = Logging_Services('NewLog', LogPath, 'HgCV_Unload_Res_9Points.txt', CRLF$, Comma$, '', '', False$, True$)
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')
LogPath = Environment_Services('GetSpcFilesharePath')
SpcFileDtm = OConv(Datetime(), 'DT2^HS ')
Convert ' ' to '_' in SpcFileDtm
SpcLogFilename = 'HgCV_Unload_Res_9Points_':SpcFileDtm:'.txt'
objSPC = Logging_Services('NewLog', LogPath, SpcLogFilename, CRLF$, Comma$, '', '', False$, True$)
If Error_Services('NoError') then
Metrology_Services('LogResults', RDSKeyID, Machine, 'UID000', Service : ' : Successfully created blank SPC file.')
end else
Metrology_Services('LogResults', RDSKeyID, Machine, 'UID000', Service : ' : Failed to create blank SPC file. Error message: ':Error_Services('GetMessage'))
end
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
LogData<6> = FormattedData
LogData<7> = OConv(PhaseAvg, 'MD43L')
LogData<8> = OConv(HgCVAvg, 'MD43L') ; // HgCV Res Avg
LogData<9> = OConv(ResStdDev, 'MD83L') ; // HgCV Res Std Dev
LogData<10> = HgCVRangePct ; // HgCV Res Range %
LogData<11> = OConv(EdgeMean4mm, 'MD43L') ; // HgCV 4mm Edge Mean
LogData<12> = OConv(Avg9Point, 'MD83L') ; // HgCV 9 Point Mean
LogData<13> = OConv(EdgeMean10mm, 'MD43L') ; // HgCV 10mm Edge Mean
LogData<14> = HgCVEdgeMean ; // HgCV Edge Mean Delta %
LogData := @RM : ' '
LogData<6> = FormattedData
LogData<7> = OConv(PhaseAvg, 'MD43L')
LogData<8> = OConv(HgCVAvg, 'MD43L') ; // HgCV Res Avg
LogData<9> = OConv(ResStdDev, 'MD83L') ; // HgCV Res Std Dev
LogData<10> = HgCVRangePct ; // HgCV Res Range %
LogData<11> = OConv(EdgeMean4mm, 'MD43L') ; // HgCV 4mm Edge Mean
LogData<12> = OConv(Avg9Point, 'MD83L') ; // HgCV 9 Point Mean
LogData<13> = OConv(EdgeMean10mm, 'MD43L') ; // HgCV 10mm Edge Mean
LogData<14> = HgCVEdgeMean ; // HgCV Edge Mean Delta %
LogData := @RM : ' '
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> = ''
@ -2858,3 +2871,4 @@ LoadRunDataToDatabase:
return