added LSL2 stored procedures
This commit is contained in:
Infineon\StieberD
773
LSL2/STPROC/PRINT_COC_BACK.txt
Normal file
773
LSL2/STPROC/PRINT_COC_BACK.txt
Normal file
@ -0,0 +1,773 @@
|
||||
COMPILE SUBROUTINE Print_Coc_Back( PrintRDSNos, WMOutKeys, Prelim, EmailAddresses, PrintOnly, ShipDt, HideUI)
|
||||
#pragma precomp SRP_PreCompiler
|
||||
|
||||
DECLARE FUNCTION FieldCount, Msg, Key_Sort, Set_Printer, obj_RDS
|
||||
DECLARE FUNCTION Calc_WO_Stats, Get_Printer, obj_NCR, obj_WO_Mat_QA
|
||||
|
||||
DECLARE SUBROUTINE Btree.Extract
|
||||
|
||||
$INSERT COMPANY_EQU
|
||||
$INSERT COC_EQU
|
||||
$INSERT EMAIL_PENDING_EQU
|
||||
$INSERT LOGICAL
|
||||
$INSERT LSL_USERS_EQU
|
||||
$INSERT MSG_EQUATES
|
||||
$INSERT POPUP_EQUATES
|
||||
$INSERT RDS_EQUATES
|
||||
$INSERT RDS_LAYER_INFO_EQU
|
||||
$INSERT RDS_LAYER_EQUATES
|
||||
$INSERT RDS_TEST_EQUATES
|
||||
$INSERT NCR_EQU
|
||||
$INSERT QUOTE_EQU
|
||||
$INSERT QUOTE_SPEC_EQU
|
||||
$INSERT OIPRINT_EQUATES
|
||||
$INSERT SCHEDULE_EQU
|
||||
$INSERT SECURITY_RIGHTS_EQU
|
||||
$INSERT PROD_SPEC_EQUATES
|
||||
$INSERT CUST_EPI_PART_EQUATES
|
||||
|
||||
$INSERT SRP_COC_RESULTS_EQU
|
||||
$INSERT WO_LOG_EQUATES
|
||||
$INSERT WO_MAT_EQUATES
|
||||
$INSERT WO_STEP_EQU
|
||||
$INSERT WM_OUT_EQUATES
|
||||
$INSERT APPCOLORS
|
||||
|
||||
|
||||
EQU FONT_NAME$ TO 1
|
||||
EQU FONT_SIZE$ TO 2
|
||||
EQU FONT_JUST$ TO 3
|
||||
EQU FONT_BOLD$ TO 4
|
||||
EQU FONT_ITALIC$ TO 5
|
||||
EQU FONT_UNDERLINE$ TO 6
|
||||
|
||||
* This is the ID code number FOR first wafer inspection out of the tw_codes table
|
||||
|
||||
EQU FirstWaferInspection$ TO 5
|
||||
|
||||
IF NOT(ASSIGNED(ShipDt)) THEN ShipDt = ''
|
||||
|
||||
Margins = Get_Printer('MARGIN')
|
||||
TopMargin = Margins<2>
|
||||
BottomMargin = Margins<4>
|
||||
|
||||
PrintableHeight = Get_Printer('PAGESIZE')<2> - TopMargin - BottomMargin
|
||||
|
||||
If Assigned(HideUI) else HideUI = False$
|
||||
If HideUI NE True$ then HideUI = False$
|
||||
|
||||
RDSNos = PrintRDSNos
|
||||
|
||||
WOStepKey = FIELD(WMOutKeys<1,1>,'*',1,2)
|
||||
WONo = WOStepKey[1,'*']
|
||||
WORec = XLATE('WO_LOG',WONo,'','X')
|
||||
|
||||
ProdOrdNo = XLATE('WO_LOG',WONo,WO_LOG_PROD_ORD_NO$,'X')
|
||||
|
||||
PSNo = XLATE('WO_STEP',WOStepKey,WO_STEP_PROD_SPEC_ID$,'X')
|
||||
Dopant = XLATE('PROD_SPEC',PSNo,'DOPANT_L1','X' )
|
||||
SuppliedBy = XLATE('PROD_SPEC',PSNo,'SUB_SUPPLIED_BY','X' )
|
||||
|
||||
* * * 11/19/2015 JCH - Changed to get Spec data from Cust_Epi_Part table * * * * *
|
||||
|
||||
CustNo = WORec<WO_LOG_CUST_NO$>
|
||||
EpiPartNo = WORec<WO_LOG_EPI_PART_NO$>
|
||||
CustEpiPartRec = Xlate('CUST_EPI_PART',CustNo:'*':EpiPartNo,'','X')
|
||||
|
||||
CustSpecIDs = CustEpiPartRec<CUST_EPI_PART_SPEC_NO$>
|
||||
CustSpecRevs = CustEpiPartRec<CUST_EPI_PART_SPEC_REV$>
|
||||
CustSpecRevDts = CustEpiPartRec<CUST_EPI_PART_SPEC_REV_DT$>
|
||||
|
||||
CustSpecRevDts = Oconv(CustSpecRevDts,'D4/')
|
||||
|
||||
|
||||
SWAP @VM WITH CRLF$ IN CustSpecIDs
|
||||
SWAP @VM WITH CRLF$ IN CustSpecRevs
|
||||
SWAP @VM WITH CRLF$ IN CustSpecRevDts
|
||||
|
||||
****************************
|
||||
|
||||
IF RDSNos<1,1> = '' THEN
|
||||
RDSNos = ''
|
||||
RDSLotNos = ''
|
||||
RDSLotCnts = ''
|
||||
|
||||
AllRDSNos = XLATE('WM_OUT',WMOutKeys,WM_OUT_RDS$,'X')
|
||||
AllCassNos = XLATE('WM_OUT',WMOutKeys,WM_OUT_IN_CASS_NO$,'X')
|
||||
|
||||
FOR I = 1 TO COUNT(AllRDSNos,@VM) + (AllRDSNos NE '')
|
||||
|
||||
AllRDSNo = AllRDSNos<1,I>
|
||||
|
||||
IF AllRDSNo NE '' THEN
|
||||
LOCATE AllRDSNo IN RDSNos USING @VM SETTING Pos ELSE
|
||||
RDSNos = INSERT(RDSNos,1,-1,0,AllRDSNo)
|
||||
RDSLotNos = INSERT(RDSLotNos,1,-1,0,'')
|
||||
RDSLotCnts = INSERT(RDSLotCnts,1,-1,0,'')
|
||||
END
|
||||
|
||||
AllCassNo = AllCassNos<1,I>
|
||||
|
||||
LotNo = XLATE('WO_MAT',WONo:'*':AllCassNo,WO_MAT_LOT_NO$,'X')
|
||||
|
||||
LOCATE LotNo IN RDSLotNos<1,Pos> USING @SVM SETTING LPos THEN
|
||||
RDSLotCnts<1,Pos,LPos> = RDSLotCnts<1,Pos,LPos> + 1
|
||||
END ELSE
|
||||
RDSLotNos = INSERT(RDSLotNos,1,Pos,LPos,LotNo)
|
||||
RDSLotCnts = INSERT(RDSLotCnts,1,Pos,LPos,1)
|
||||
END
|
||||
|
||||
END
|
||||
NEXT I
|
||||
|
||||
PrintRDSLotCnts = RDSLotCnts
|
||||
|
||||
SWAP @SVM WITH CRLF$ IN RDSLotNos
|
||||
SWAP @SVM WITH CRLF$ IN PrintRDSLotCnts
|
||||
END ELSE
|
||||
RDSLotNos = XLATE('RDS',RDSNos,RDS_LOT_NUM$,'X')
|
||||
RDSLotCnts = XLATE('RDS',RDSNos,'WFRS_OUT','X')
|
||||
PrintRDSLotCnts = RDSLotCnts
|
||||
END
|
||||
|
||||
|
||||
FirstRDSNo = RDSNos<1,1>
|
||||
FirstRDSRec = XLATE( 'RDS',FirstRDSNo , '', 'X' )
|
||||
|
||||
Font = 'Arial'
|
||||
Font<FONT_SIZE$> = '18' ;* Big type
|
||||
Font<FONT_BOLD$> = 1 ;* Bold on
|
||||
Font<FONT_ITALIC$> = 1 ;* Italics
|
||||
|
||||
IF Prelim THEN
|
||||
stat = Set_Printer('TEXTXY','Preliminary Wafer Shipment List',1.4:@FM:-0.80,Font,0) ;* This branch is obsolete JCH 12/8/2015
|
||||
END ELSE
|
||||
stat = Set_Printer('TEXTXY','Certificate of Compliance',2.1:@FM:-0.80,Font,0)
|
||||
END
|
||||
|
||||
Font<FONT_NAME$> = 'Courier New' ;* Basic font
|
||||
Font<FONT_SIZE$> = 9
|
||||
Font<FONT_JUST$> = 'L'
|
||||
Font<FONT_BOLD$> = 0
|
||||
Font<FONT_ITALIC$> = 0
|
||||
|
||||
TFont = Font
|
||||
TFont<FONT_SIZE$> = 12
|
||||
|
||||
Void = Set_Printer( 'FONT', TFont )
|
||||
|
||||
|
||||
TextOut = 'Customer: ':OCONV( FirstRDSRec<RDS_CUST_NO$>, '[XLATE_CONV,COMPANY*CO_NAME]' )
|
||||
Void = Set_Printer( 'TEXT', TextOut )
|
||||
stat = Set_Printer('TEXT') ;* Blank Line
|
||||
|
||||
IF ShipDt = '' THEN ShipDt = OCONV( DATE(), 'D4/' )
|
||||
|
||||
WOStepKeys = WORec<WO_LOG_WO_STEP_KEY$>
|
||||
|
||||
IF INDEX(WOStepKeys,@VM,1) THEN
|
||||
WOStepKey = FirstRDSRec<RDS_WO_STEP_KEY$>
|
||||
WONo = WOStepKey
|
||||
CONVERT '*' TO '.' IN WONo
|
||||
END
|
||||
|
||||
* Common Information from First RDS record
|
||||
|
||||
colHeader = 'PO Number' ; colFormat = '^2880'
|
||||
colHeader<1,2> = 'WO Number' ; colFormat<1,2> = '^2880'
|
||||
colHeader<1,3> = 'Manufacturing Quote' ; colFormat<1,3> = '^2880'
|
||||
colHeader<1,4> = 'Date' ; colFormat<1,4> = '^2160'
|
||||
|
||||
colData = FirstRdsRec<RDS_PO$>
|
||||
colData<1,2> = WONo
|
||||
colData<1,3> = FirstRDSRec<RDS_QUOTE_NO$>
|
||||
colData<1,4> = ShipDt
|
||||
|
||||
|
||||
IF ProdOrdNo NE '' THEN
|
||||
colHeader<1,3> = 'Prod Order No'
|
||||
colData<1,3> = ProdOrdNo
|
||||
END
|
||||
|
||||
|
||||
font<FONT_SIZE$> = 10 ;* 10 point
|
||||
font<FONT_BOLD$> = 1 ;* Bold
|
||||
stat = Set_Printer('FONT',font)
|
||||
|
||||
stat = Set_Printer('ADDTABLE', colFormat,colHeader,'',LTGREY$,'',0,6)
|
||||
|
||||
font<FONT_BOLD$> = 0 ;* Bold off
|
||||
stat = Set_Printer('FONT',font)
|
||||
|
||||
stat = Set_Printer('ADDTABLE',colFormat,'',colData,LTGREY$,'',1,6)
|
||||
|
||||
stat = Set_Printer('TEXT')
|
||||
|
||||
|
||||
* Specification information *
|
||||
|
||||
colHeader = 'Spec No' ; colFormat = '^2700' ; colData = PSNo
|
||||
colHeader<1,2> = 'Cust Spec' ; colFormat<1,2> = '^2700' ; colData<1,2> = CustSpecIDs
|
||||
colHeader<1,3> = 'Cust Spec Rev' ; colFormat<1,3> = '^2700' ; colData<1,3> = CustSpecRevs
|
||||
colHeader<1,4> = 'Cust Spec Rev Dt' ; colFormat<1,4> = '^2700' ; colData<1,4> = CustSpecRevDts
|
||||
|
||||
font<FONT_SIZE$> = 10 ;* 10 point
|
||||
font<FONT_BOLD$> = 1 ;* Bold
|
||||
stat = Set_Printer('FONT',font)
|
||||
|
||||
stat = Set_Printer('ADDTABLE', colFormat,colHeader,'',LTGREY$,'',0,6)
|
||||
|
||||
font<FONT_BOLD$> = 0 ;* Bold off
|
||||
stat = Set_Printer('FONT',font)
|
||||
|
||||
stat = Set_Printer('ADDTABLE',colFormat,'',colData,LTGREY$,'',1,6)
|
||||
|
||||
stat = Set_Printer('TEXT')
|
||||
|
||||
|
||||
* Layer Targets *
|
||||
|
||||
colHeader = 'Layer':@VM ; colFormat = '^1080':@VM
|
||||
colHeader<1,2> = 'Dopant':@VM ; colFormat<1,2> = '^1980':@VM
|
||||
colHeader<1,3> = 'Measure':@VM ; colFormat<1,3> = '<1800':@VM
|
||||
colHeader<1,4> = 'Minimum':@VM ; colFormat<1,4> = '^1980':@VM
|
||||
colHeader<1,5> = 'Target':@VM ; colFormat<1,5> = '^1980':@VM
|
||||
colHeader<1,6> = 'Maximum' ; colFormat<1,6> = '^1980'
|
||||
|
||||
SortedLSKeys = XLATE('RDS',FirstRDSNo,'RDS_LS_SORTED','X')
|
||||
LayerCnt = COUNT(SortedLSKeys,@VM) + (SortedLSKeys NE '')
|
||||
|
||||
colData = ''
|
||||
FOR I = 1 TO LayerCnt
|
||||
LSKey = SortedLSKeys<1,I>
|
||||
LayerRec = XLATE('RDS_LAYER',LSKey,'','X')
|
||||
FirstTestKey = LayerRec<RDS_LAYER_RDS_TEST_KEYS$,1>
|
||||
TestRec = XLATE('RDS_TEST',FirstTestKey,'','X')
|
||||
|
||||
Dopant = LayerRec<RDS_LAYER_DOPANT$>
|
||||
ThickMin = TestRec<RDS_TEST_SPEC_THICK_MIN$>
|
||||
ThickTarget = TestRec<RDS_TEST_SPEC_THICK_TARGET$>
|
||||
ThickMax = TestRec<RDS_TEST_SPEC_THICK_MAX$>
|
||||
ThickUnits = TestRec<RDS_TEST_SPEC_THICK_UNITS$>
|
||||
|
||||
ResMin = TestRec<RDS_TEST_SPEC_RES_MIN$>
|
||||
ResTarget = TestRec<RDS_TEST_SPEC_RES_TARGET$>
|
||||
ResMax = TestRec<RDS_TEST_SPEC_RES_MAX$>
|
||||
ResUnits = TestRec<RDS_TEST_SPEC_RES_UNITS$>
|
||||
|
||||
IF I = 1 THEN FirstResUnits = ResUnits
|
||||
|
||||
ConMin = TestRec<RDS_TEST_SPEC_CON_MIN$>
|
||||
ConTarget = TestRec<RDS_TEST_SPEC_CON_TARGET$>
|
||||
ConMax = TestRec<RDS_TEST_SPEC_CON_MAX$>
|
||||
ConUnits = TestRec<RDS_TEST_SPEC_CON_UNITS$>
|
||||
|
||||
colData<I,1> = FIELD(LSKey,'*',2):CRLF$
|
||||
colData<I,2> = Dopant:CRLF$
|
||||
colData<I,3> = 'Thickness':CRLF$:'Resistivity'
|
||||
colData<I,4> = OCONV(ThickMin,'MD3'):ThickUnits:CRLF$:OCONV(ResMin,'MD3'):ResUnits
|
||||
colData<I,5> = OCONV(ThickTarget,'MD3'):ThickUnits:CRLF$:OCONV(ResTarget,'MD3'):ResUnits
|
||||
colData<I,6> = OCONV(ThickMax,'MD3'):ThickUnits:CRLF$:OCONV(ResMax,'MD3'):ResUnits
|
||||
|
||||
IF ConTarget NE '' THEN
|
||||
colData<I,1> = colData<I,1>:CRLF$
|
||||
colData<I,2> = colData<I,2>:CRLF$
|
||||
colData<I,3> = colData<I,3>:CRLF$:'Concentration'
|
||||
colData<I,4> = colData<I,4>:CRLF$:OCONV(ConMin,'MS21'):ConUnits
|
||||
colData<I,5> = colData<I,5>:CRLF$:OCONV(ConTarget,'MS21'):ConUnits
|
||||
colData<I,6> = colData<I,6>:CRLF$:OCONV(ConMax,'MS21'):ConUnits
|
||||
END ELSE
|
||||
colData<I,1> = colData<I,1>:CRLF$
|
||||
colData<I,2> = colData<I,2>:CRLF$
|
||||
colData<I,3> = colData<I,3>:CRLF$
|
||||
colData<I,4> = colData<I,4>:CRLF$
|
||||
colData<I,5> = colData<I,5>:CRLF$
|
||||
colData<I,6> = colData<I,6>:CRLF$
|
||||
END
|
||||
|
||||
NEXT I
|
||||
|
||||
font<FONT_SIZE$> = 10 ;* 10 point
|
||||
font<FONT_BOLD$> = 1 ;* Bold
|
||||
stat = Set_Printer('FONT',font)
|
||||
|
||||
stat = Set_Printer('ADDTABLE', colFormat,colHeader,'',LTGREY$,'',0,TB_COLUMNS_TOP_BOTTOM)
|
||||
|
||||
TFont<FONT_NAME$> = 'MS LineDraw'
|
||||
TFont<FONT_SIZE$> = 9
|
||||
TFont<FONT_BOLD$> = 0
|
||||
Void = Set_Printer( 'FONT', TFont )
|
||||
|
||||
stat = Set_Printer('ADDTABLE',colFormat,'',colData,LTGREY$,'',1,TB_COLUMNS_TOP_BOTTOM)
|
||||
|
||||
stat = Set_Printer('TEXT')
|
||||
|
||||
* * * Print and QA Met results specified to be on documents * * *
|
||||
|
||||
colData = ''
|
||||
WOMatKeys = ''
|
||||
wmoCnt = COUNT(WMOutKeys,@VM) + (WMOutKeys NE '')
|
||||
|
||||
FOR I = 1 TO wmoCnt
|
||||
CassNo = WMOutKeys<1,I>[-1,'B*']
|
||||
WOMatKey = WONo:'*':CassNo
|
||||
WOMatRec = XLATE('WO_MAT',WOMatKey,'','X')
|
||||
|
||||
colData<I,1> = XLATE('WO_MAT',WOMatKey,'CASS_ID_SAP','X')
|
||||
colData<I,2> = WOMatRec<WO_MAT_SAP_BATCH_NO$>
|
||||
colData<I,3> = WOMatRec<WO_MAT_CUST_PART_NO$>
|
||||
|
||||
LotNos = WOMatRec<WO_MAT_LOT_NO$>
|
||||
SWAP @VM WITH CRLF$ IN LotNos
|
||||
|
||||
colData<I,4> = LotNos
|
||||
|
||||
ShipQAMet = obj_WO_Mat_QA('GetShipDoc',WONo:@RM:CassNo)
|
||||
|
||||
SWAP @VM WITH CRLF$ in ShipQAMet
|
||||
|
||||
colData<I,5> = ShipQAMet<1> ;* QA Props
|
||||
colData<I,6> = ShipQAMet<2> ;* QAMins
|
||||
colData<I,7> = ShipQAMet<3> ;* QAMaxs
|
||||
colData<I,8> = ShipQAMet<4> ;* QAResults
|
||||
|
||||
NEXT I
|
||||
|
||||
testString = colData<1,5>
|
||||
CONVERT @VM TO '' IN testString
|
||||
|
||||
IF testString NE '' THEN
|
||||
|
||||
* QA Metrology *
|
||||
|
||||
colHeader = 'Cass ID' ; colFormat = '^1080'
|
||||
colHeader<1,2> = 'Batch No' ; colFormat<1,2> = '^1440'
|
||||
colHeader<1,3> = 'Cust Part No' ; colFormat<1,3> = '^1440'
|
||||
colHeader<1,4> = 'Lot No' ; colFormat<1,4> = '^1440'
|
||||
colHeader<1,5> = 'Property' ; colFormat<1,5> = '^1440'
|
||||
colHeader<1,6> = 'Spec Min' ; colFormat<1,6> = '^1440'
|
||||
colHeader<1,7> = 'Spec Max' ; colFormat<1,7> = '^1440'
|
||||
colHeader<1,8> = 'Measured' ; colFormat<1,8> = '^1440'
|
||||
|
||||
font<FONT_SIZE$> = 8 ;* 10 point
|
||||
font<FONT_BOLD$> = 1 ;* Bold
|
||||
stat = Set_Printer('FONT',font)
|
||||
|
||||
stat = Set_Printer('ADDTABLE', colFormat,colHeader,'',LTGREY$,'',0,TB_COLUMNS_TOP_BOTTOM)
|
||||
|
||||
TFont<FONT_NAME$> = 'MS LineDraw'
|
||||
TFont<FONT_SIZE$> = 9
|
||||
TFont<FONT_BOLD$> = 0
|
||||
Void = Set_Printer( 'FONT', TFont )
|
||||
|
||||
stat = Set_Printer('ADDTABLE',colFormat,'',colData,LTGREY$,'',1,TB_COLUMNS_TOP_BOTTOM)
|
||||
|
||||
stat = Set_Printer('TEXT')
|
||||
END ;* End of check for QAMet specified
|
||||
|
||||
font<FONT_BOLD$> = 0 ;* Bold off
|
||||
stat = Set_Printer('FONT',font)
|
||||
|
||||
TFont = "Courier New,8,L,1"
|
||||
CONVERT ',' TO @FM in TFont
|
||||
|
||||
Void = Set_Printer( 'FONT', TFont )
|
||||
|
||||
* * * Print Summary of shipment metrology * * *
|
||||
|
||||
RDSCnt = COUNT(RDSNos,@VM) + (RDSNos NE '')
|
||||
|
||||
*CustNo = FirstRdsRec<RDS_CUST_NO$> ;* Set from Cust_Epi_Part record above
|
||||
|
||||
IF Prelim THEN
|
||||
|
||||
* This branch is obsolete 12/8/2015 JCH
|
||||
|
||||
Void = Set_Printer( 'TEXT', Lout )
|
||||
Lout = fmt( 'PART #', 'L#12' ):' '
|
||||
Lout:= fmt( 'LOT #', 'L#14' ):' '
|
||||
Lout:= fmt( 'RUN #', 'L#9' ):' '
|
||||
Lout:= fmt( 'QTY', 'L#5' ):' '
|
||||
Lout:= fmt( 'MFG Pre Epi Rej', 'L#15' ):' '
|
||||
Lout:= fmt( 'MFG Post Epi Rej', 'L#16' ):' '
|
||||
Lout:= fmt( 'Cust Pre Epi Rej', 'L#16' ):' '
|
||||
Lout:= fmt( 'Cust Post Epi Rej', 'L#17' )
|
||||
Void = Set_Printer( 'TEXT', Lout )
|
||||
Lout = '____________ ______________ _________ _____ _______________ ________________ ________________ _________________'
|
||||
Void = Set_Printer( 'TEXT', Lout )
|
||||
QtyOut = 0
|
||||
TFont<4> = 0
|
||||
Void = Set_Printer( 'FONT', TFont )
|
||||
|
||||
FOR I = 1 TO RDSCnt
|
||||
|
||||
ThisRdsRec = XLATE( 'RDS', RDSNos<1,I>, '', 'X' )
|
||||
Lout = fmt( ThisRdsRec<RDS_PART_NUM$>, 'L#12' ):' '
|
||||
Lout:= fmt( ThisRdsRec<RDS_LOT_NUM$>, 'L#14' ):' '
|
||||
Lout:= fmt( ThisRdsRec<RDS_REACTOR$>:'-':LastSeplayIds<1,I>, 'L#9' ):' '
|
||||
WafOut = obj_RDS('WafersOut',RDSNos<1,I>:@RM:ThisRdsRec)
|
||||
Lout:= fmt( WafOut, 'R#5' ):' '
|
||||
QtyOut += WafOut
|
||||
Lout:= fmt( XLATE('RDS',RDSNos<1,I>,'LSL_PRE_EPI_REJ','X'), 'R#15' ):' '
|
||||
Lout:= fmt( XLATE('RDS',RDSNos<1,I>,'LSL_POST_EPI_REJ','X'), 'R#16' ):' '
|
||||
Lout:= fmt( XLATE('RDS',RDSNos<1,I>,'CUST_PRE_EPI_REJ','X'), 'R#16' ):' '
|
||||
Lout:= fmt( XLATE('RDS',RDSNos<1,I>,'CUST_POST_EPI_REJ','X'), 'R#17')
|
||||
Void = Set_Printer( 'TEXT', Lout )
|
||||
NEXT I
|
||||
|
||||
END ELSE
|
||||
|
||||
IF FirstResUnits = 'ê/Ü' THEN
|
||||
ResLabel = 'Sheet Rho' ;* ohms squared label sheetRHO
|
||||
END ELSE
|
||||
ResLabel = 'Resistivity'
|
||||
END
|
||||
|
||||
TestMetKeys = XLATE('RDS',RDSNos<1,1>,'MET_KEYS','X')
|
||||
|
||||
IF TestMetKeys NE '' THEN
|
||||
colHeader = 'Run No' ; colFormat = '^1080'
|
||||
colHeader<1,2> = 'Batch No' ; colFormat<1,2> = '^1080'
|
||||
colHeader<1,3> = 'Cust Part No' ; colFormat<1,3> = '^1440'
|
||||
colHeader<1,4> = 'Lot No' ; colFormat<1,4> = '^1440'
|
||||
colHeader<1,5> = 'Qty' ; colFormat<1,5> = '<720'
|
||||
colHeader<1,6> = 'Layer' ; colFormat<1,6> = '^660'
|
||||
colHeader<1,7> = 'Thickness':CRLF$:'Mean' ; colFormat<1,7> = '^1080'
|
||||
colHeader<1,8> = 'Thickness':CRLF$:'Std Dev' ; colFormat<1,8> = '^1080'
|
||||
colHeader<1,9> = ResLabel:CRLF$:'Mean' ; colFormat<1,9> = '^1260'
|
||||
colHeader<1,10> = ResLabel:CRLF$:'StdDev' ; colFormat<1,10> = '^1260'
|
||||
END ELSE
|
||||
colHeader = 'Run No' ; colFormat = '^1080'
|
||||
colHeader<1,2> = 'Batch No' ; colFormat<1,2> = '^1080'
|
||||
colHeader<1,3> = 'Cust Part No' ; colFormat<1,3> = '^1440'
|
||||
colHeader<1,4> = 'Lot No' ; colFormat<1,4> = '^1440'
|
||||
colHeader<1,5> = 'Qty' ; colFormat<1,5> = '^540'
|
||||
colHeader<1,6> = 'Zone' ; colFormat<1,6> = '^600'
|
||||
colHeader<1,7> = 'Layer' ; colFormat<1,7> = '^660'
|
||||
colHeader<1,8> = 'Thickness':CRLF$:'Mean' ; colFormat<1,8> = '^1080'
|
||||
colHeader<1,9> = 'Thickness':CRLF$:'Std Dev' ; colFormat<1,9> = '^1080'
|
||||
colHeader<1,10> = ResLabel:CRLF$:'Mean' ; colFormat<1,10> = '^1260'
|
||||
colHeader<1,11> = ResLabel:CRLF$:'StdDev' ; colFormat<1,11> = '^1260'
|
||||
END
|
||||
|
||||
FirstLine = 1
|
||||
QtyOut = 0
|
||||
|
||||
TotHgCvSRP = 0
|
||||
TotWafOut = 0
|
||||
TotMfgPre = 0
|
||||
TotMfgPost = 0
|
||||
TotCustPre = 0
|
||||
TotCustPost = 0
|
||||
ShipTotHgCvSRP = 0
|
||||
|
||||
HgCvSRPSummary = ''
|
||||
RejectSummary = ''
|
||||
RejString = ''
|
||||
ShipHgCvSRPSummary = ''
|
||||
NCRKeys = ''
|
||||
RunNos = ''
|
||||
|
||||
FOR I = 1 TO RDSCnt
|
||||
thisRDSNo = RDSNos<1,I>
|
||||
|
||||
ThisRdsRec = XLATE( 'RDS', thisRDSNo, '', 'X' )
|
||||
|
||||
WONo = ThisRdsRec<RDS_WO$> ;* SAP update
|
||||
CassNo = ThisRdsRec<RDS_CASS_NO$> ;* SAP update
|
||||
SAPBatchNo = XLATE('WO_MAT',WONo:'*':CassNo,WO_MAT_SAP_BATCH_NO$,'X') ;* SAP update
|
||||
|
||||
|
||||
HrsReceivedToShip = XLATE( 'RDS', thisRDSNo, 'HRS_EPITRONICS_FAB', 'X' )
|
||||
PartNo = ThisRdsRec<RDS_PART_NUM$>
|
||||
LotNo = RDSLotNos<1,I>
|
||||
RunNo = ThisRdsRec<RDS_REACTOR$>:'-':RDSNos<1,I>
|
||||
RunNos<I> = RunNo
|
||||
WafOut = SUM(RDSLotCnts<1,I>)
|
||||
|
||||
TotWafOut += WafOut
|
||||
|
||||
colData = RunNo
|
||||
colData<1,2> = SAPBatchNo
|
||||
colData<1,3> = PartNo
|
||||
colData<1,4> = LotNo
|
||||
colData<1,5> = PrintRDSLotCnts<1,I>
|
||||
|
||||
AllTWKeys = ''
|
||||
|
||||
MetKeys = XLATE('RDS',thisRDSNo,'MET_KEYS','X')
|
||||
MetKeysZ1 = XLATE('RDS',thisRDSNo,'MET_KEYS_Z1','X')
|
||||
MetKeysZ2 = XLATE('RDS',thisRDSNo,'MET_KEYS_Z2','X')
|
||||
|
||||
IF MetKeys NE '' THEN AllTWKeys<1,-1> = MetKeys
|
||||
IF MetKeysZ1 NE '' THEN AllTWKeys<1,-1> = MetKeysZ1
|
||||
IF MetKEysZ2 NE '' THEN AllTWKeys<1,-1> = MetKeysZ2
|
||||
|
||||
IF MetKeys NE '' THEN
|
||||
FOR L = 1 TO COUNT(MetKeys,@VM) + (MetKeys NE '')
|
||||
MetKey = MetKeys<1,L>
|
||||
TestRec = XLATE('RDS_TEST',MetKey,'','X')
|
||||
LSId = TestRec<RDS_TEST_LS_ID$>
|
||||
ThickAvg = OCONV( TestRec<RDS_TEST_THICK_AVG$>, 'MD2' )
|
||||
ThickStdDev = OCONV( TestRec<RDS_TEST_THICK_STDV$>, 'MD4' )
|
||||
|
||||
IF FirstResUnits = 'ê/Ü' THEN
|
||||
ResAvg = OCONV( TestRec<RDS_TEST_SHEETRHO_AVG$>,'MD3')
|
||||
ResStdDev = OCONV( TestRec<RDS_TEST_SHEETRHO_STDV$>,'MD4')
|
||||
END ELSE
|
||||
ResAvg = OCONV( TestRec<RDS_TEST_RES_AVG$>,'MD4')
|
||||
ResStdDev = OCONV( TestRec<RDS_TEST_RES_STDV$>,'MD4')
|
||||
|
||||
IF ResAvg = '' THEN
|
||||
ResAvg = OCONV( TestRec<RDS_TEST_HGCV1_RES_AVG$>,'MD3')
|
||||
ResStdDev = OCONV( TestRec<RDS_TEST_HGCV1_RES_STDV$>,'MD4')
|
||||
END
|
||||
END
|
||||
|
||||
IF colData<L,6> = '' THEN colData<L,6> = LSId ELSE colData<L,6> = CRLF$:LSId
|
||||
IF colData<L,7> = '' THEN colData<L,7> = ThickAvg ELSE colData<L,7> = CRLF$:ThickAvg
|
||||
IF colData<L,8> = '' THEN colData<L,8> = ThickStdDev ELSE colData<L,8> = CRLF$:ThickStdDev
|
||||
IF colData<L,9> = '' THEN colData<L,9> = ResAvg ELSE colData<L,9> = CRLF$:ResAvg
|
||||
IF colData<L,10> = '' THEN colData<L,10> = ResStdDev ELSE colData<L,10> = CRLF$:ResStdDev
|
||||
NEXT L
|
||||
END ELSE
|
||||
LineCnt = 0
|
||||
IF MetKeysZ1 NE '' THEN
|
||||
FOR L = 1 TO COUNT(MetKeysZ1,@VM) + (MetKeysZ1 NE '')
|
||||
LineCnt += 1
|
||||
MetKey = MetKeysZ1<1,L>
|
||||
TestRec = XLATE('RDS_TEST',MetKey,'','X')
|
||||
LSId = TestRec<RDS_TEST_LS_ID$>
|
||||
Zone = TestRec<RDS_TEST_ZONE$>
|
||||
ThickAvg = OCONV( TestRec<RDS_TEST_THICK_AVG$>, 'MD2' )
|
||||
ThickStdDev = OCONV( TestRec<RDS_TEST_THICK_STDV$>, 'MD4' )
|
||||
|
||||
IF FirstResUnits = 'ê/Ü' THEN
|
||||
ResAvg = OCONV( TestRec<RDS_TEST_SHEETRHO_AVG$>,'MD3')
|
||||
ResStdDev = OCONV( TestRec<RDS_TEST_SHEETRHO_STDV$>,'MD4')
|
||||
END ELSE
|
||||
ResAvg = OCONV( TestRec<RDS_TEST_RES_AVG$>,'MD4')
|
||||
ResStdDev = OCONV( TestRec<RDS_TEST_RES_STDV$>,'MD4')
|
||||
|
||||
IF ResAvg = '' THEN
|
||||
ResAvg = OCONV( TestRec<RDS_TEST_HGCV1_RES_AVG$>,'MD3')
|
||||
ResStdDev = OCONV( TestRec<RDS_TEST_HGCV1_RES_STDV$>,'MD4')
|
||||
END
|
||||
END
|
||||
|
||||
IF colData<LineCnt,6> = '' THEN colData<LineCnt,6> = Zone ELSE colData<LineCnt,6> = CRLF$:Zone
|
||||
IF colData<LineCnt,7> = '' THEN colData<LineCnt,7> = LSId ELSE colData<LineCnt,7> = CRLF$:LSId
|
||||
IF colData<LineCnt,8> = '' THEN colData<LineCnt,8> = ThickAvg ELSE colData<LineCnt,8> = CRLF$:ThickAvg
|
||||
IF colData<LineCnt,9> = '' THEN colData<LineCnt,9> = ThickStdDev ELSE colData<LineCnt,9> = CRLF$:ThickStdDev
|
||||
IF colData<LineCnt,10> = '' THEN colData<LineCnt,10> = ResAvg ELSE colData<LineCnt,10> = CRLF$:ResAvg
|
||||
IF colData<LineCnt,11> = '' THEN colData<LineCnt,11> = ResStdDev ELSE colData<LineCnt,11> = CRLF$:ResStdDev
|
||||
NEXT L
|
||||
|
||||
END
|
||||
IF MetKeysZ2 NE '' THEN
|
||||
FOR L = 1 TO COUNT(MetKeysZ2,@VM) + (MetKeysZ2 NE '')
|
||||
LineCnt += 1
|
||||
MetKey = MetKeysZ2<1,L>
|
||||
TestRec = XLATE('RDS_TEST',MetKey,'','X')
|
||||
LSId = TestRec<RDS_TEST_LS_ID$>
|
||||
Zone = TestRec<RDS_TEST_ZONE$>
|
||||
ThickAvg = OCONV( TestRec<RDS_TEST_THICK_AVG$>, 'MD2' )
|
||||
ThickStdDev = OCONV( TestRec<RDS_TEST_THICK_STDV$>, 'MD4' )
|
||||
|
||||
IF FirstResUnits = 'ê/Ü' THEN
|
||||
ResAvg = OCONV( TestRec<RDS_TEST_SHEETRHO_AVG$>,'MD3')
|
||||
ResStdDev = OCONV( TestRec<RDS_TEST_SHEETRHO_STDV$>,'MD4')
|
||||
END ELSE
|
||||
ResAvg = OCONV( TestRec<RDS_TEST_RES_AVG$>,'MD4')
|
||||
ResStdDev = OCONV( TestRec<RDS_TEST_RES_STDV$>,'MD4')
|
||||
|
||||
IF ResAvg = '' THEN
|
||||
ResAvg = OCONV( TestRec<RDS_TEST_HGCV1_RES_AVG$>,'MD3')
|
||||
ResStdDev = OCONV( TestRec<RDS_TEST_HGCV1_RES_STDV$>,'MD4')
|
||||
END
|
||||
END
|
||||
|
||||
IF colData<LineCnt,6> = '' THEN colData<LineCnt,6> = Zone ELSE colData<LineCnt,6> = CRLF$:Zone
|
||||
IF colData<LineCnt,7> = '' THEN colData<LineCnt,7> = LSId ELSE colData<LineCnt,7> = CRLF$:LSId
|
||||
IF colData<LineCnt,8> = '' THEN colData<LineCnt,8> = ThickAvg ELSE colData<LineCnt,8> = CRLF$:ThickAvg
|
||||
IF colData<LineCnt,9> = '' THEN colData<LineCnt,9> = ThickStdDev ELSE colData<LineCnt,9> = CRLF$:ThickStdDev
|
||||
IF colData<LineCnt,10> = '' THEN colData<LineCnt,10> = ResAvg ELSE colData<LineCnt,10> = CRLF$:ResAvg
|
||||
IF colData<LineCnt,11> = '' THEN colData<LineCnt,11> = ResStdDev ELSE colData<LineCnt,11> = CRLF$:ResStdDev
|
||||
NEXT L
|
||||
END
|
||||
END
|
||||
GOSUB PrintTable
|
||||
|
||||
|
||||
FOR T = 1 TO COUNT(AllTWKeys,@VM) + (AllTWKeys NE '')
|
||||
TestRec = XLATE('RDS_TEST',AllTWKeys<1,T>,'','X')
|
||||
TWTools = TestRec<RDS_TEST_TW_TOOL$>
|
||||
FOR TW = 1 TO COUNT(TWTools,@VM) + (TWTools NE '')
|
||||
TWTool = TWTools<1,TW>
|
||||
TWQty = TestRec<RDS_TEST_TW_CNT$,TW>
|
||||
IF TWTool = 'SRP' OR TWTool = 'HgCv' THEN
|
||||
ShipTotHgCvSRP += TWQty
|
||||
ShipHgCvSRPSummary<-1> = RunNo:' ':TWQty:' used for ':TWTool
|
||||
END
|
||||
NEXT TW
|
||||
NEXT T
|
||||
|
||||
NCRKeys = ThisRDSRec<RDS_NCR_KEYS$>
|
||||
|
||||
* Calculate the NCR summary here
|
||||
|
||||
*WMOutNCRKeys = XLATE('WM_OUT',WMOutKeys,WM_OUT_NCR_KEYS$,'X') ;* Dead 2/20/2007 JCH
|
||||
WMOutNCRKeys = XLATE('WM_OUT',WMOutKeys,'NCR_NOS','X')
|
||||
|
||||
NCRKeys<1,-1> = WMOutNCRKeys
|
||||
|
||||
FOR R = 1 TO COUNT(NCRKeys,@VM) + (NCRKeys NE '')
|
||||
NCRKey = NCRKeys<1,R>
|
||||
IF NCRKey NE '' THEN
|
||||
NCRRec = XLATE('NCR',NCRKey,'','X')
|
||||
|
||||
NCRWfrCnt = SUM(obj_NCR('RejQty',NCRKey:@RM:NCRRec))
|
||||
NCRLossCodeDesc = XLATE('LOSS_CODES',NCRRec<NCR_LOSS_CODE$>,1,'X')
|
||||
|
||||
BEGIN CASE
|
||||
CASE NCRRec<NCR_LOSS_STAGE$> = 'PRE' AND NCRRec<NCR_LOSS_BY$> = 'M'
|
||||
TotMfgPre += NCRWfrCnt
|
||||
RejString<-1> = RunNo:' ':NCRWfrCnt:' Manufacturing Pre Epi Reject(s) FOR ':NCRLossCodeDesc
|
||||
|
||||
CASE NCRRec<NCR_LOSS_STAGE$> = 'POST' AND NCRRec<NCR_LOSS_BY$> = 'M'
|
||||
TotMfgPost += NCRWfrCnt
|
||||
RejString<-1> = RunNo:' ':NCRWfrCnt:' Manufacturing Post Epi Reject(s) FOR ':NCRLossCodeDesc
|
||||
|
||||
CASE NCRRec<NCR_LOSS_STAGE$> = 'PRE' AND NCRRec<NCR_LOSS_BY$> = 'C'
|
||||
TotCustPre += NCRWfrCnt
|
||||
RejString<-1> = RunNo:' ':NCRWfrCnt:' Customer Pre Epi Reject(s) FOR ':NCRLossCodeDesc
|
||||
|
||||
CASE NCRRec<NCR_LOSS_STAGE$> = 'POST' AND NCRRec<NCR_LOSS_BY$> = 'C'
|
||||
TotCustPost += NCRWfrCnt
|
||||
RejString<-1> = RunNo:' ':NCRWfrCnt:' Customer Post Epi Reject(s) FOR ':NCRLossCodeDesc
|
||||
|
||||
END CASE
|
||||
END
|
||||
NEXT R
|
||||
|
||||
NEXT I
|
||||
|
||||
IF RDSCnt > 9 THEN
|
||||
|
||||
* Show the Cp and CpK for the work order
|
||||
|
||||
stat = Set_Printer('TEXT') ;* Blank Line
|
||||
|
||||
Results = Calc_WO_Stats(RDSNos)
|
||||
|
||||
colHeader = 'Thickness' ; colFormat = '^5400'
|
||||
colHeader<1,2> = 'Resistivity' ; colFormat<1,2> = '^5400'
|
||||
|
||||
colData = ''
|
||||
FirstLine = 1
|
||||
GOSUB PrintTable
|
||||
|
||||
colHeader = ''
|
||||
colFormat = '<3240':@VM:'^2160':@VM:'<3240':@VM:'^2160'
|
||||
|
||||
colData = ''
|
||||
colData<1,1> = 'Mean' ; colData<1,2> = Results<1,1> ; colData<1,3> = 'Mean' ; colData<1,4> = Results<1,2>
|
||||
colData<2,1> = 'Sigma Capability' ; colData<2,2> = Results<1,15> ; colData<2,3> = 'Sigma Capability' ; colData<2,4> = Results<1,16>
|
||||
colData<3,1> = 'Sigma Level' ; colData<3,2> = Results<1,17> ; colData<3,3> = 'Sigma Level' ; colData<3,4> = Results<1,18>
|
||||
colData<4,1> = 'CP' ; colData<4,2> = Results<1,11> ; colData<4,3> = 'CP' ; colData<4,4> = Results<1,12>
|
||||
colData<5,1> = 'CPK' ; colData<5,2> = Results<1,13> ; colData<5,3> = 'CPK' ; colData<5,4> = Results<1,14>
|
||||
|
||||
FirstLine = 1
|
||||
|
||||
GOSUB PrintTable
|
||||
|
||||
END
|
||||
|
||||
stat = Set_Printer('TEXT') ; * Blank Line
|
||||
|
||||
TextOut = 'Total Quantity: ':TotWafOut
|
||||
Void = Set_Printer( 'TEXT', TextOut )
|
||||
|
||||
IF SuppliedBy = 'C' THEN
|
||||
Lout = 'Rejects Due to Manufacturing ------ PRE EPI: ':TotMfgPre:' - POST EPI: ':TotMfgPost
|
||||
Void = Set_Printer( 'TEXT', Lout )
|
||||
|
||||
Lout = 'Rejects Due to Customer - PRE EPI: ':TotCustPre:' - POST EPI: ':TotCustPost
|
||||
Void = Set_Printer( 'TEXT', Lout )
|
||||
|
||||
END
|
||||
|
||||
TextOut = 'HgCv/SRP WAFERS: ':ShipTotHgCvSRP
|
||||
Void = Set_Printer( 'TEXT', TextOut )
|
||||
|
||||
IF RejString NE '' THEN
|
||||
|
||||
Void = Set_Printer( 'TEXT', '' )
|
||||
|
||||
colHeader = 'Wafer Rejection Information'
|
||||
colFormat = '<10800'
|
||||
colData = RejString
|
||||
|
||||
FirstLine = 1
|
||||
|
||||
GOSUB PrintTable
|
||||
|
||||
END
|
||||
|
||||
|
||||
IF ShipHgCvSRPSummary NE ''THEN
|
||||
Void = Set_Printer( 'TEXT', '' )
|
||||
|
||||
colHeader = 'HgCv/SRP Information:'
|
||||
colFormat = '<10800'
|
||||
colData = ShipHgCvSRPSummary
|
||||
|
||||
FirstLine = 1
|
||||
|
||||
GOSUB PrintTable
|
||||
|
||||
END
|
||||
|
||||
END ;* preliminary or full shipment
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * *
|
||||
PrintTable:
|
||||
* * * * * *
|
||||
|
||||
stat = Set_Printer('CALCTABLE',colFormat:@FM:colData)
|
||||
TableSize = Get_Printer('CALCTABLE')
|
||||
TableHeight = TableSize<2>
|
||||
Test = Get_Printer('POS')<2>
|
||||
|
||||
IF Get_Printer('POS')<2> + TableHeight > PrintableHeight OR FirstLine THEN
|
||||
IF NOT(FirstLine) THEN
|
||||
stat = Set_Printer('PAGEBREAK')
|
||||
END
|
||||
FirstLine = 0
|
||||
font<2> = 8
|
||||
font<4> = 1 ;* Bold
|
||||
stat = Set_Printer('FONT',font,'100')
|
||||
|
||||
stat = Set_Printer('ADDTABLE',colFormat,colHeader,'',LTGREY$,'',0,TB_COLUMNS_TOP_BOTTOM)
|
||||
|
||||
|
||||
font<4> = 0
|
||||
stat = Set_Printer('FONT',font,fontSpacing)
|
||||
|
||||
stat = Set_Printer('ADDTABLE',colFormat,'',colData,LTGREY$,'',0,TB_COLUMNS_TOP_BOTTOM)
|
||||
|
||||
END ELSE
|
||||
font<2> = 8
|
||||
font<4> = 0
|
||||
stat = Set_Printer('FONT',font,fontSpacing)
|
||||
stat = Set_Printer('ADDTABLE',colFormat,'',colData,LTGREY$,'',1,TB_COLUMNS_TOP_BOTTOM)
|
||||
|
||||
END
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
Reference in New Issue
Block a user