669 lines
20 KiB
Plaintext
669 lines
20 KiB
Plaintext
COMPILE SUBROUTINE Print_Cass_Data( WMOutKeys, PrintOnly, PrintPath, PDFFileName, PrinterInitialized)
|
|
|
|
$INSERT MSG_EQUATES
|
|
$INSERT RDS_EQU
|
|
$INSERT RDS_LAYER_INFO_EQU
|
|
$INSERT PROD_SPEC_EQU
|
|
$INSERT OIPRINT_EQUATES
|
|
$INSERT NCR_EQU
|
|
$INSERT POPUP_EQUATES
|
|
$INSERT LOGICAL
|
|
$INSERT COA
|
|
|
|
$INSERT RDS_TEST_EQUATES
|
|
$INSERT RDS_LAYER_EQUATES
|
|
$INSERT WO_LOG_EQUATES
|
|
$INSERT WO_MAT_EQUATES
|
|
$INSERT WO_STEP_EQU
|
|
$INSERT WM_OUT_EQUATES
|
|
$INSERT SURFACE_SCAN_EQUATES
|
|
$INSERT CUST_EPI_PART_EQUATES
|
|
$INSERT EPI_PART_EQUATES
|
|
|
|
EQU PI$LEFT TO 1
|
|
EQU PI$TOP TO 2
|
|
EQU PI$RIGHT TO 3
|
|
EQU PI$BOTTOM TO 4
|
|
EQU PI$WIDTH TO 5
|
|
EQU PI$HEIGHT TO 6
|
|
EQU PI$SIZE TO 7
|
|
|
|
EQU LTGREY$ TO 229 + (229*256) + (229*65536)
|
|
|
|
DECLARE FUNCTION FieldCount, Msg, Set_Printer, Get_Printer, obj_RDS_Test
|
|
DECLARE FUNCTION Printer_Select, obj_Install,obj_RDS
|
|
DECLARE SUBROUTINE extract_si_keys, record_lock, Btree.Extract
|
|
|
|
IF NOT(ASSIGNED(PrintPath)) THEN PrintPath = ''
|
|
IF NOT(ASSIGNED(PDFFileName)) THEN PDFFileName = ''
|
|
IF NOT(ASSIGNED(PrinterInitialized)) THEN PrinterInitialized = 0
|
|
|
|
CassCnt = COUNT(WMOutKeys,@FM) + (WMOutKeys NE '')
|
|
|
|
WOStepKey = FIELD(WMOutKeys<1,1>,'*',1,2)
|
|
WONo = WOStepKey[1,'*']
|
|
WORec = XLATE('WO_LOG',WONo,'','X')
|
|
|
|
CustNo = WORec<WO_LOG_CUST_NO$>
|
|
CustName = XLATE('COMPANY',CustNo,4,'X')
|
|
|
|
EpiPartNo = WORec<WO_LOG_EPI_PART_NO$>
|
|
|
|
CleanRoomPaper = XLATE('CUST_EPI_PART',CustNo:'*':EpiPartNo,CUST_EPI_PART_CUST_RDS_CLEANROOM_PAPER$,'X')
|
|
|
|
|
|
IF CleanRoomPaper THEN
|
|
MsgInfo = ''
|
|
Mtext = "This customer's specification requires cleanroom paper RDSs":CrLf$:'Please place ':CassCnt:' piece(s) of cleanroom paper in the printer and then click OK'
|
|
MsgInfo<mtext$> = Mtext
|
|
MsgInfo<micon$> = '!'
|
|
Void = msg( '', MsgInfo )
|
|
END
|
|
|
|
|
|
* * * PRINT SETUP * * *
|
|
|
|
|
|
FileName = 'Print Cassette Data Sheet'
|
|
Title = 'Print Cassette Data Sheet'
|
|
|
|
PageInfo = '' ; * Default is .5 inch margins and 8.5 x 11 paper
|
|
PageInfo<PI$LEFT> = 0.5
|
|
PageInfo<PI$TOP> = 1.5
|
|
PageInfo<PI$RIGHT> = 0.5
|
|
PageInfo<PI$BOTTOM> = 0.5
|
|
PageInfo<PI$SIZE> = LETTER
|
|
|
|
MaxPrintLength = 11 - PageInfo<PI$TOP> - PageInfo<PI$BOTTOM>
|
|
|
|
PageSetup = 0 ;* 1 = Landscape mode
|
|
PrintSetup = 0 ;* 0 = No Preview, 2 = Preview
|
|
|
|
FOR BoxNo = 1 TO RDSCnt
|
|
WMOutKey = WMOutKeys<BoxNo>
|
|
WMOutRec = XLATE('WM_OUT',WMOutKey,'','X')
|
|
|
|
IF NOT(PrinterInitialized) THEN
|
|
|
|
PrintSetup = ''
|
|
PrintSetup<1,1> = '2' ;* Specific Location
|
|
PrintSetup<1,2> = '5' ;* Show Print and PDF, hide Print Setup
|
|
PrintSetup<1,3> = '0' ;* Show the printing window
|
|
PDFParms = 'Printing PDF Document':@FM: '' :@FM:'':@FM: ''
|
|
|
|
stat = Set_Printer( 'INIT', PDFParms, 'Run Data Sheet',PageInfo,PageSetup , PrintSetup)
|
|
|
|
END ELSE
|
|
stat = Set_Printer('PAGEBREAK')
|
|
END
|
|
|
|
GOSUB PrintSheet
|
|
|
|
IF NOT(PrinterInitialized) THEN
|
|
stat = Set_Printer( 'TERM' )
|
|
END
|
|
NEXT BoxNo
|
|
|
|
RETURN
|
|
|
|
* * * * * *
|
|
PrintSheet:
|
|
* * * * * *
|
|
|
|
|
|
font = 'Arial' ;* Font basics
|
|
font<2> = 10
|
|
font<4> = 0
|
|
|
|
stat = Set_Printer('FONTHEADFOOT', font)
|
|
|
|
font = 'Arial'
|
|
font<2> = '18' ;* Big type
|
|
font<4> = 1 ;* Bold on
|
|
font<5> = 1 ;* Italics
|
|
|
|
stat = Set_Printer('TEXTXY','Cassette Data Sheet',2.50:@FM:-0.80,font,0)
|
|
|
|
font<2> = 12 ;* Drop the font size
|
|
font<5> = 0 ;* Italics off
|
|
|
|
IF NOT(PrinterInitialized) THEN
|
|
stat = Set_Printer('FOOTER',"Page 'P'":@VM:@VM:"'T' 'D'")
|
|
|
|
stat = Set_Printer('LINESTYLE', PS_SOLID:@FM:2)
|
|
stat = Set_Printer('LINE', -0.1:@FM:-1.2:@FM:7.5:@FM:-1.2, 1)
|
|
stat = Set_Printer('LINE', -0.1:@FM:-0.1:@FM:7.5:@FM:-0.1, 1)
|
|
|
|
location = -0.15:@fm:-1.150:@fm:1.57:@fm:1
|
|
stat = Set_Printer('BMP',obj_Install('Get_Prop','ColorBMP'),location, 0,1)
|
|
|
|
|
|
|
|
* * * * Added 10/8/2015 JCH - Updated 'CONFIG','COMPANY' * * * *
|
|
|
|
InstDat = obj_Install('Get_Prop','Company':@FM:'Division')
|
|
Company = InstDat<1>
|
|
Division = InstDat<2>
|
|
|
|
font = 'Arial'
|
|
font<2> = '12' ;* Big type
|
|
font<4> = 1 ;* Bold on
|
|
font<5> = 0 ;* Italics
|
|
|
|
stat = Set_Printer('TEXTXY',Company,5.7:@FM:-1.15,font,1)
|
|
stat = Set_Printer('TEXTXY',Division,5.7:@FM:-0.970,font,1)
|
|
|
|
font<2> = 10 ;* 10 point font
|
|
font<4> = 0 ;* Bold off
|
|
font<5> = 0 ;* Italics Off
|
|
|
|
stat = Set_Printer('TEXTXY',obj_Install('Get_Prop','Address'), 5.7:@fm:-0.775, font,1)
|
|
stat = Set_Printer('TEXTXY',obj_Install('Get_Prop','CSZC'), 5.7:@fm:-0.625, font,1)
|
|
stat = Set_Printer('TEXTXY','Tel: ':obj_Install('Get_Prop','Phone'), 5.7:@fm:-0.475, font, 1)
|
|
stat = Set_Printer('TEXTXY','FAX: ':obj_Install('Get_Prop','FAX'), 5.7:@fm:-0.325, font, 1)
|
|
|
|
* * * * End of changes 10/8/2015 JCH * * * *
|
|
|
|
stat = Set_Printer('TEXT')
|
|
|
|
END
|
|
|
|
colHeader = 'Cassette ID' ; colFormat = '^1440'
|
|
colHeader<1,2> = 'WO No' ; colFormat<1,2> = '^1440'
|
|
colHeader<1,3> = 'WO Step' ; colFormat<1,3> = '^1400'
|
|
colHeader<1,4> = 'Cass No' ; colFormat<1,4> = '^1440'
|
|
colHeader<1,5> = 'Customer' ; colFormat<1,5> = '<4320'
|
|
|
|
|
|
CassID = WMOutKey
|
|
CONVERT '*' TO '.' IN CassID
|
|
|
|
WONo = WMOutKey[1,'*']
|
|
WOStep = WMOutKey[COL2()+1,'*']
|
|
CassNo = WMOutKey[COL2()+1,'*']
|
|
|
|
colData = CassID
|
|
colData<1,2> = WONo
|
|
colData<1,3> = WOStep
|
|
colData<1,4> = CassNo
|
|
colData<1,5> = CustName
|
|
|
|
|
|
font<2> = 10
|
|
font<4> = 1 ;* Bold on
|
|
stat = Set_Printer('FONT',font)
|
|
stat = Set_Printer('ADDTABLE',colFormat,colHeader,'',LTGREY$,'',0,TB_ALL)
|
|
|
|
font<2> = 10
|
|
font<4> = 0
|
|
stat = Set_Printer('FONT',font)
|
|
|
|
stat = Set_Printer('ADDTABLE',colFormat,'',colData,LTGREY$,'',1,TB_NONE)
|
|
|
|
stat = Set_Printer('TEXT')
|
|
|
|
|
|
IF RDSRec<RDS_IN_CASS_NO$><1,1> NE '' THEN
|
|
|
|
Stat = Set_Printer('PAGEBREAK')
|
|
|
|
font = 'Arial'
|
|
font<2> = '18' ;* Big type
|
|
font<4> = 1 ;* Bold on
|
|
font<5> = 1 ;* Italics
|
|
|
|
stat = Set_Printer('TEXTXY','Run Data Sheet',2.65:@FM:-0.80,font,0)
|
|
|
|
font<2> = 12 ;* Drop the font size
|
|
font<4> = 0 ;* Bold Off
|
|
font<5> = 0 ;* Italics off
|
|
|
|
colHeader = '' ; colFormat = '^720'
|
|
colHeader<1,2> = 'Reactor' ; colFormat<1,2> = '^3240'
|
|
colHeader<1,3> = '' ; colFormat<1,3> = '^2520'
|
|
colHeader<1,4> = '' ; colFormat<1,4> = '^2520'
|
|
colHeader<1,5> = 'Material In' ; colFormat<1,5> = '^1440'
|
|
|
|
font<2> = 8
|
|
font<4> = 1 ;* Bold on
|
|
stat = Set_Printer('FONT',font)
|
|
stat = Set_Printer('ADDTABLE',colFormat,colHeader,'',LTGREY$,'',0,TB_ALL)
|
|
|
|
colHeader = 'Slot' ; colFormat = '^720'
|
|
colHeader<1,2> = 'RDS' ; colFormat<1,2> = '^1080'
|
|
colHeader<1,3> = 'Pocket' ; colFormat<1,3> = '^1080'
|
|
colHeader<1,4> = 'Zone' ; colFormat<1,4> = '^1080'
|
|
colHeader<1,5> = 'Lot No' ; colFormat<1,5> = '^2520'
|
|
colHeader<1,6> = 'Part No' ; colFormat<1,6> = '^2520'
|
|
colHeader<1,7> = 'Cass' ; colFormat<1,7> = '^720'
|
|
colHeader<1,8> = 'Slot' ; colFormat<1,8> = '^720'
|
|
|
|
colData = ''
|
|
WORec = XLATE('WO_LOG',WONo,'','X')
|
|
RDSNos = WMOutRec<WM_OUT_RDS$>
|
|
ReactPockets = WMOutRec<WM_OUT_POCKET$>
|
|
ReactZones = WMOutRec<WM_OUT_ZONE$>
|
|
InCassNos = WMOutRec<WM_OUT_IN_CASS_NO$>
|
|
InSlotNos = WMOutRec<WM_OUT_IN_SLOT_NO$>
|
|
OutSlotNos = WMOutRec<WM_OUT_SLOT_NO$>
|
|
|
|
LineCnt = 1
|
|
FOR I = 1 TO COUNT(InCassNos,@VM) + (InCassNos NE '')
|
|
IF OutCassNos<1,I> NE '' THEN
|
|
WOMatRec = XLATE('WO_MAT',WONo:'*':InCassNos<1,I>,'','X')
|
|
|
|
colData<LineCnt,1> = OutSlotNos<1,I>
|
|
colData<LineCnt,2> = RDSNos<1,I>
|
|
colData<LineCnt,3> = ReactPockets<1,I>
|
|
colData<LineCnt,4> = ReactZones<1,I>
|
|
colData<LineCnt,5> = WOMatRec<WO_MAT_LOT_NO$>
|
|
colData<LineCnt,6> = WOMatRec<WO_MAT_CUST_PART_NO$>
|
|
colData<LineCnt,7> = InCassNos<1,I>
|
|
colData<LineCnt,8> = InSlotNos<1,I>
|
|
LineCnt += 1
|
|
END
|
|
NEXT I
|
|
|
|
stat = Set_Printer('ADDTABLE',colFormat,colHeader,'',LTGREY$,'',0,TB_ALL)
|
|
|
|
font<2> = 8
|
|
font<4> = 0 ;* Bold off
|
|
stat = Set_Printer('FONT',font)
|
|
stat = Set_Printer('ADDTABLE',colFormat,'',colData,LTGREY$,'',1,TB_ALL)
|
|
|
|
END
|
|
|
|
|
|
|
|
|
|
*IF XLATE('RDS',RdsId,'MU_WFRS_ADDED','X') > 0 THEN
|
|
IF 1 = 0 THEN
|
|
colData<3,4> = 0 ;* Makeup wafers added
|
|
MakeupWaferFlag = 1
|
|
END ELSE
|
|
colData<3,4> = xlate( 'RDS', RdsId, 'TOT_REJ', 'X' )
|
|
MakeupWaferFlag = 0
|
|
END
|
|
|
|
font<2> = 10
|
|
font<4> = 1 ;* Bold on
|
|
stat = Set_Printer('FONT',font)
|
|
stat = Set_Printer('ADDTABLE',colFormat,colHeader,'',LTGREY$,'',0,TB_ALL)
|
|
|
|
font<2> = 10
|
|
font<4> = 0 ;* Bold off
|
|
stat = Set_Printer('FONT',font)
|
|
stat = Set_Printer('ADDTABLE',colFormat,'',colData,LTGREY$,'',1,TB_ALL)
|
|
|
|
stat = Set_Printer('TEXT')
|
|
stat = Set_Printer('TEXT')
|
|
|
|
colHeader = 'Light Point Defects' ; colFormat = '<2160'
|
|
colHeader<1,2> = 'Preclean' ; colFormat<1,2> = '^2160'
|
|
colHeader<1,3> = 'Post Preclean' ; colFormat<1,3> = '^2160'
|
|
colHeader<1,4> = 'First Wafer' ; colFormat<1,4> = '^2160'
|
|
colHeader<1,5> = 'Postclean' ; colFormat<1,5> = '^2160'
|
|
|
|
colData = 'Quantity'
|
|
colData<1,2> = RdsRec<rds_lpd_preclean$>
|
|
colData<1,3> = RdsRec<rds_lpd_post_preclean$>
|
|
colData<1,4> = RdsRec<rds_lpd_firstwafer$>
|
|
colData<1,5> = RdsRec<rds_lpd_postclean$>
|
|
|
|
font<4> = 1 ;* Bold on
|
|
stat = Set_Printer('FONT',font)
|
|
stat = Set_Printer('ADDTABLE',colFormat,colHeader,'',LTGREY$,'',0,TB_ALL)
|
|
|
|
font<4> = 0 ;* Bold off
|
|
stat = Set_Printer('FONT',font)
|
|
stat = Set_Printer('ADDTABLE',colFormat,'',colData,LTGREY$,'',1,TB_ALL)
|
|
|
|
stat = Set_Printer('TEXT')
|
|
stat = Set_Printer('TEXT')
|
|
|
|
colHeader = 'First Wafer':CRLF$:'Data Points' ; colFormat = '^1080'
|
|
colHeader<1,2> = 'Thickness' ; colFormat<1,2> = '^1080'
|
|
colHeader<1,3> = 'Sheet Rho' ; colFormat<1,3> = '^1080'
|
|
colHeader<1,4> = 'Resistivity' ; colFormat<1,4> = '^1080'
|
|
|
|
|
|
|
|
* 1st Wafer surface Defects
|
|
|
|
|
|
colHeader = '1st Wafer Surface Defects' ; ColFormat = '<2880'
|
|
colHeader<1,2> = 'Quantity' ; ColFormat<1,2> = '^2160'
|
|
|
|
|
|
DataPoints = 'Pits,Mounds,BL Defects,Stack Faults,Spikes,Spots,FOV,Scratches,Scratch Length,'
|
|
DataPoints := 'Bright Light LPD'
|
|
CONVERT ',' TO @FM IN DataPoints
|
|
|
|
colData = DataPoints
|
|
|
|
colData<1,2> = RdsRec<rds_post_pits$>
|
|
colData<2,2> = RdsRec<rds_post_mounds$>
|
|
colData<3,2> = RdsRec<rds_post_bl_defects$>
|
|
colData<4,2> = RdsRec<rds_post_stack_faults$>
|
|
colData<5,2> = RdsRec<rds_post_spikes$>
|
|
colData<6,2> = RdsRec<rds_post_spots$>
|
|
colData<7,2> = RdsRec<rds_post_fov$>
|
|
colData<8,2> = RdsRec<rds_post_scratches$>
|
|
colData<9,2> = RdsRec<rds_post_scratch_len$>
|
|
colData<10,2> = RdsRec<rds_lpd_firstwafer$> ;* Use manual inspection results
|
|
|
|
|
|
TotalSurfDefects = 0
|
|
|
|
TotalSurfDefects = TotalSurfDefects + RdsRec<rds_post_pits$>
|
|
TotalSurfDefects = TotalSurfDefects + RdsRec<rds_post_mounds$>
|
|
TotalSurfDefects = TotalSurfDefects + RdsRec<rds_post_stack_faults$>
|
|
TotalSurfDefects = TotalSurfDefects + RdsRec<rds_post_spikes$>
|
|
TotalSurfDefects = TotalSurfDefects + RdsRec<rds_post_spots$>
|
|
TotalSurfDefects = TotalSurfDefects + RdsRec<rds_post_scratches$>
|
|
TotalSurfDefects = TotalSurfDefects + colData<10,2>
|
|
|
|
colData<13,1> = 'Total Surface Defects'
|
|
colData<13,2> = TotalSurfDefects
|
|
|
|
font<2> = 8
|
|
font<4> = 1 ;* Bold on
|
|
stat = Set_Printer('FONT',font)
|
|
stat = Set_Printer('ADDTABLE',colFormat,colHeader,'',LTGREY$,'',0,TB_ALL:@FM:3.2)
|
|
|
|
font<2> = 8
|
|
font<4> = 0 ;* Bold off
|
|
stat = Set_Printer('FONT',font)
|
|
stat = Set_Printer('ADDTABLE',colFormat,'',colData,LTGREY$,'',1,TB_ALL:@FM:3.2)
|
|
|
|
|
|
* Check for Surfscan results *
|
|
|
|
SurfScanKeys = ''
|
|
|
|
OPEN 'DICT.SURFACE_SCAN' TO DictVar THEN
|
|
SearchString = 'RDS_NO':@VM:RdsId:@FM
|
|
Option = ''
|
|
Flag = ''
|
|
Btree.Extract(SearchString, 'SURFACE_SCAN', DictVar, SurfScanKeys, Option, Flag)
|
|
END ELSE
|
|
debug
|
|
*ErrMsg('Unable to open DICT.SURFACE_SCAN in Print_Cust_Rds routine.')
|
|
END
|
|
|
|
IF SurfScanKeys <> '' THEN
|
|
GOSUB SurfScanResults
|
|
END
|
|
|
|
|
|
|
|
* Non-Conformance Reports for this RDS * * * * * * * * * * * * * * * * * * * *
|
|
|
|
MakeupWaferFlag = 1
|
|
IF NOT(MakeupWaferFlag) THEN
|
|
|
|
NCRKeys = XLATE('RDS',RdsId,RDS_NCR_KEYS$,'X') ;* does this work??????
|
|
NCRKeyCnt = COUNT(NCRKeys,@vm) + (NCRKeys NE '')
|
|
|
|
FOR I = 1 TO NCRKeyCnt
|
|
|
|
stat = Set_Printer('PAGEBREAK')
|
|
|
|
NCRKey = NCRKeys<1,I>
|
|
|
|
NCRRec = XLATE('NCR',NCRKey,'','X')
|
|
LossDesc = XLATE('NCR',NCRKey,'LOSS_DESC','X')
|
|
|
|
font<2> = 10
|
|
stat = Set_Printer('FONT',font)
|
|
stat = Set_Printer('TEXT')
|
|
|
|
RejCnt = XLATE( 'NCR', NCRKey, 'REJ_CNT', 'X' )
|
|
IF RejCnt = 1 THEN
|
|
RejText = RejCnt:' Wafer Rejected for ':LossDesc
|
|
END ELSE
|
|
RejText = RejCnt:' Wafer(s) Rejected for ':LossDesc
|
|
END
|
|
|
|
ColHeader = RejText ; colFormat = '^11000'
|
|
|
|
font<2> = 12
|
|
font<4> = 0 ;* Bold on
|
|
stat = Set_Printer('FONT',font)
|
|
stat = Set_Printer('ADDTABLE',colFormat,colHeader,'',LTGREY$,'',0,TB_ALL)
|
|
|
|
stat = Set_Printer('TEXT')
|
|
stat = Set_Printer('TEXT')
|
|
|
|
colHeader = 'Reject Wafer':CRLF$:'Data Points' ; colFormat = '^1080'
|
|
colHeader<1,2> = 'Thickness' ; colFormat<1,2> = '^1080'
|
|
colHeader<1,3> = 'Sheet Rho' ; colFormat<1,3> = '^1080'
|
|
colHeader<1,4> = 'Resistivity' ; colFormat<1,4> = '^1080'
|
|
|
|
DataPoints = '80mm,70mm,60mm,50mm,40mm,30mm,20mm,10mm,Center,10mm,20mm,30mm,40mm,50mm,60mm,70mm,80mm'
|
|
CONVERT ',' TO @FM IN DataPoints
|
|
|
|
colData = DataPoints
|
|
|
|
ResReadings = xlate( 'NCR', NCRKey, 'RES_READ', 'X' )
|
|
|
|
Test = ResReadings
|
|
|
|
IF Test NE '' THEN
|
|
|
|
FOR DP = 1 to 17
|
|
colData<DP,2> = oconv( NCRRec<ncr_thick_read$,DP>, 'MD2' )
|
|
colData<DP,3> = oconv( NCRRec<ncr_sheetrho_read$,DP>, 'MD2' )
|
|
colData<DP,4> = oconv( ResReadings<1,DP>, 'MD3' )
|
|
NEXT DP
|
|
|
|
LeftTablePos = Get_Printer('POS')
|
|
|
|
font<2> = 8
|
|
font<4> = 1 ;* Bold on
|
|
stat = Set_Printer('FONT',font)
|
|
stat = Set_Printer('ADDTABLE',colFormat,colHeader,'',LTGREY$,'',0,TB_ALL)
|
|
|
|
font<2> = 8
|
|
font<4> = 0 ;* Bold off
|
|
stat = Set_Printer('FONT',font)
|
|
stat = Set_Printer('ADDTABLE',colFormat,'',colData,LTGREY$,'',1,TB_ALL)
|
|
|
|
stat = Set_Printer('TEXT')
|
|
|
|
colHeader = 'Statistical Results' ; colFormat = '^2160'
|
|
colHeader<1,2> = 'Thickness' ; colFormat<1,2> = '^1080'
|
|
colHeader<1,3> = 'Resistivity' ; colFormat<1,3> = '^1080'
|
|
|
|
colData = ''
|
|
colData<1,1> = 'Average' ; colData<1,2> = oconv( NCRRec<ncr_tthick_avg$>, 'MD2' )
|
|
colData<2,1> = 'Standard Deviation' ; colData<2,2> = oconv( NCRRec<ncr_tthick_stdev$>, 'MD3' )
|
|
colData<3,1> = 'Maximum' ; colData<3,2> = oconv( NCRRec<ncr_tthick_max$>, 'MD2' )
|
|
colData<4,1> = 'Minimum' ; colData<4,2> = oconv( NCRRec<ncr_tthick_min$>, 'MD2' )
|
|
colData<5,1> = 'Uniformity' ; colData<5,2> = oconv( NCRRec<ncr_tthick_unif$>, 'MD2S%' )
|
|
|
|
colData<1,3> = oconv( NCRRec<ncr_tres_avg$>, 'MD3' )
|
|
colData<2,3> = oconv( NCRRec<ncr_tres_stdev$>, 'MD3' )
|
|
colData<3,3> = oconv( NCRRec<ncr_tres_max$>, 'MD3' )
|
|
colData<4,3> = oconv( NCRRec<ncr_tres_min$>, 'MD3' )
|
|
colData<5,3> = oconv( NCRRec<ncr_tres_unif$>, 'MD2S%' )
|
|
|
|
|
|
stat = Set_Printer('CALCTABLE',colFormat:@FM:colData)
|
|
TableSize = Get_Printer('CALCTABLE')
|
|
TableHeight = TableSize<2>
|
|
|
|
IF Get_Printer('POS')<2> + Tableheight > MaxPrintLength THEN
|
|
stat = Set_Printer('PAGEBREAK')
|
|
END
|
|
|
|
font<2> = 8
|
|
font<4> = 1 ;* Bold on
|
|
stat = Set_Printer('FONT',font)
|
|
stat = Set_Printer('ADDTABLE',colFormat,colHeader,'',LTGREY$,'',0,TB_ALL)
|
|
|
|
font<2> = 8
|
|
font<4> = 0 ;* Bold off
|
|
stat = Set_Printer('FONT',font)
|
|
stat = Set_Printer('ADDTABLE',colFormat,'',colData,LTGREY$,'',1,TB_ALL)
|
|
|
|
|
|
LeftTableXPos = LeftTablePos<1>
|
|
RightTableXPos = LeftTableXPos + 3.2
|
|
|
|
stat = Set_Printer('POS',LeftTablePos) ;* This moves the vertical to the top of the data point table
|
|
;* Position stuff is not documented correctly
|
|
|
|
colHeader = 'Surface Defects' ; ColFormat = '<2160'
|
|
colHeader<1,2> = 'Quantity' ; ColFormat<1,2> = '^2160'
|
|
|
|
|
|
DataPoints = 'Pits,Mounds,BL Defects,Stack Faults,Spikes,Spots,FOV,Scratches,Scratch Length,Surf Defects,Surf Haze'
|
|
CONVERT ',' TO @FM IN DataPoints
|
|
|
|
colData = DataPoints
|
|
|
|
colData<1,2> = OCONV(NCRRec<ncr_pits$>,'MD0')
|
|
colData<2,2> = OCONV(NCRRec<ncr_mounds$>,'MD0')
|
|
colData<3,2> = OCONV(NCRRec<ncr_bl_defects$>,'MD0')
|
|
colData<4,2> = OCONV(NCRRec<ncr_stack_faults$>,'MD0')
|
|
colData<5,2> = OCONV(NCRRec<ncr_spikes$>,'MD0')
|
|
colData<6,2> = OCONV(NCRRec<ncr_spots$>,'MD0')
|
|
colData<7,2> = OCONV(NCRRec<ncr_spot_fov$>,'MD0')
|
|
colData<8,2> = OCONV(NCRRec<ncr_scratches$>,'MD0')
|
|
colData<9,2> = OCONV(NCRRec<ncr_scratch_len$>,'MD0')
|
|
colData<10,2> = OCONV(NCRRec<ncr_surf_defects$>,'MD0')
|
|
colData<11,2> = OCONV(NCRRec<ncr_surf_haze$>,'MD2S%')
|
|
|
|
TotalSurfaceDefects = 0
|
|
FOR L = 1 TO 10
|
|
IF L NE 9 THEN
|
|
TotalSurfaceDefects += colData<L,2>
|
|
END
|
|
NEXT L
|
|
|
|
colData<13,1> = 'Total Surface Defects'
|
|
colData<13,2> = TotalSurfaceDefects
|
|
|
|
|
|
font<2> = 8
|
|
font<4> = 1 ;* Bold on
|
|
stat = Set_Printer('FONT',font)
|
|
stat = Set_Printer('ADDTABLE',colFormat,colHeader,'',LTGREY$,'',0,TB_ALL:@FM:3.2)
|
|
|
|
font<2> = 8
|
|
font<4> = 0 ;* Bold off
|
|
stat = Set_Printer('FONT',font)
|
|
stat = Set_Printer('ADDTABLE',colFormat,'',colData,LTGREY$,'',1,TB_ALL:@FM:3.2)
|
|
|
|
END ;* End of check for datapoints
|
|
|
|
NEXT I
|
|
END ;* End of check for Makeup Wafer Flag
|
|
|
|
RETURN
|
|
|
|
|
|
|
|
* * * * * * *
|
|
SurfScanResults:
|
|
* * * * * * *
|
|
|
|
* We have surface scan results
|
|
|
|
colFormat = '<2880'
|
|
colFormat<1,2> = '>900'
|
|
colFormat<1,3> = '>900'
|
|
colFormat<1,4> = '>900'
|
|
colFormat<1,5> = '>900'
|
|
|
|
PSId = RDSRec<rds_prod_spec_id$>
|
|
PSRec = XLATE('PROD_SPEC',PSId,'','X')
|
|
|
|
PreEpiHazeAvgSpec = PSRec<101>
|
|
FirstWaferHazeAvgSpec = PSRec<103>
|
|
PostCleanHazeAvgSpec = PSRec<105>
|
|
|
|
PreEpiDefectSpec = PSRec<100>
|
|
FirstWaferDefectSpec = PSRec<102>
|
|
PostCleanDefectSpec = PSRec<104>
|
|
|
|
stat = Set_Printer('TEXT')
|
|
|
|
FOR SurfScanNo = 1 TO COUNT(SurfScanKeys,@VM) + (SurfScanKeys NE '')
|
|
SurfScanKey = SurfScanKeys<1,SurfScanNo>
|
|
SurfScanRec = XLATE('SURFACE_SCAN',SurfScanKey,'','X')
|
|
|
|
Stage = FIELD(SurfScanKey,'*',4)
|
|
|
|
PopupData = XLATE('SYSREPOSPOPUPS','LSL2**STAGE',8,'X')
|
|
StageDesc = ''
|
|
FOR I = 1 TO COUNT(PopupData,@VM) + (PopupData NE '')
|
|
PopCode = PopupData<1,I,1>
|
|
IF PopCode = Stage THEN StageDesc = PopupData<1,I,2>
|
|
UNTIL PopupData<1,I,1> = Stage
|
|
NEXT I
|
|
|
|
Tool = SurfScanRec<SURFACE_SCAN_SCAN_TOOL$>
|
|
|
|
colHeader = StageDesc:' - ':Tool:CRLF$:'Surface Scan Results'
|
|
colHeader<1,2> = 'Spec'
|
|
colHeader<1,3> = 'Min'
|
|
colHeader<1,4> = 'Max'
|
|
colHeader<1,5> = 'Avg'
|
|
|
|
BEGIN CASE
|
|
CASE Stage = 'PE'
|
|
HazeSpec = PreEpiHazeAvgSpec
|
|
DefectSpec = PreEpiDefectSpec
|
|
|
|
CASE Stage = 'FW'
|
|
HazeSpec = FirstWaferHazeAvgSpec
|
|
DefectSpec = FirstWaferDefectSpec
|
|
|
|
CASE Stage = 'PC'
|
|
HazeSpec = PostCleanHazeAvgSpec
|
|
DefectSpec = PostCleanDefectSpec
|
|
|
|
END CASE
|
|
|
|
colData = ''
|
|
IF RdsRec<rds_cust_no$> = '6872' THEN
|
|
colData<1,1> = 'Sum of Defects > .02':CHAR(230):'m'
|
|
END ELSE
|
|
colData<1,1> = 'Sum of Defects'
|
|
END
|
|
colData<1,2> = DefectSpec
|
|
colData<1,3> = SurfScanRec<SURFACE_SCAN_SUM_OF_DEF_MIN$>
|
|
colData<1,4> = SurfScanRec<SURFACE_SCAN_SUM_OF_DEF_MAX$>
|
|
colData<1,5> = OCONV(SurfScanRec<SURFACE_SCAN_SUM_OF_DEF_AVG$>,'MD3')
|
|
|
|
colData<2,1> = 'Surface Haze Avg (ppm)'
|
|
colData<2,2> = HazeSpec
|
|
colData<2,3> = SurfScanRec<SURFACE_SCAN_HAZE_AVG_MIN$>
|
|
colData<2,4> = SurfScanRec<SURFACE_SCAN_HAZE_AVG_MAX$>
|
|
colData<2,5> = OCONV(SurfScanRec<SURFACE_SCAN_HAZE_AVG_AVG$>,'MD3')
|
|
|
|
font<2> = 8
|
|
font<4> = 1 ;* Bold on
|
|
stat = Set_Printer('FONT',font)
|
|
stat = Set_Printer('ADDTABLE',colFormat,colHeader,'',LTGREY$,'',0,TB_ALL:@FM:3.2)
|
|
|
|
font<1> = 'MS LineDraw' ;* This font contains the omega symbol
|
|
font<4> = 0 ;* Bold off
|
|
stat = Set_Printer('FONT',font)
|
|
|
|
stat = Set_Printer('ADDTABLE',colFormat,'',colData,LTGREY$,'',1,TB_ALL:@FM:3.2)
|
|
|
|
font<1> = 'Arial' ;* Reset font to normal
|
|
|
|
stat = Set_Printer('FONT',font)
|
|
|
|
NEXT SurfScanNo
|
|
|
|
|
|
RETURN
|
|
|
|
|
|
|