diff --git a/LSL2/STPROC/METROLOGY_SERVICES.txt b/LSL2/STPROC/METROLOGY_SERVICES.txt index 6a8f57d..fb7ff95 100644 --- a/LSL2/STPROC/METROLOGY_SERVICES.txt +++ b/LSL2/STPROC/METROLOGY_SERVICES.txt @@ -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 = 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 = '' @@ -2858,3 +2871,4 @@ LoadRunDataToDatabase: return +