COMPILE SUBROUTINE Print_Coc_Back( PrintRDSNos, WMOutKeys, Prelim, EmailAddresses, PrintOnly, ShipDt, HideUI, ShipNo)
#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, Database_Services

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    = Xlate('COC', Shipno, 'WO_CUST_NO_EX', 'X')
EpiPartNo = Xlate('COC', ShipNo, 'EPI_PART_NO_EX', 'X')

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 = ''
		
		UseZone1Data = 0
		UseZone2Data = 0
		
		ThisRDSPocketProfile = ThisRDSRec<RDS_POCKET$>
		ThisRDSPocketChar    = ThisRDSRec<RDS_POCKET_CHAR$>
		ThisRDSPocketZone    = ThisRDSRec<RDS_ZONE$>
		ThisRDSPocketNCR     = ThisRDSRec<RDS_OUT_NCR$>
		ThisRDSPocketOutCass = ThisRDSRec<RDS_OUT_CASS_NO$>
		for each RDSPocket in ThisRDSPocketProfile    using @VM setting RDSPocketPos
		    WaferPocketChar = ThisRDSPocketChar<1, RDSPocketPos>
		    if WaferPocketChar NE 'TEST' then
		        ThisSlotOutCass = ThisRDSPocketOutCass<1,RDSPocketPos>
		        ThisWMOId       = WONo : '*1*' : ThisSlotOutCass
		        Locate ThisWMOId in WMOutKeys using @VM setting WMOPos then
		            //Check, does it have an NCR assoiciated
		            NCRKeyId = ThisRDSPocketNCR<1, RDSPocketPos>
		            If NCRKeyId EQ '' then
		                //Get the zone for this pocket.
		                ThisWfrZone = ThisRDSPocketZone<1, RDSPocketPos>
		                Begin Case
		                    Case ThisWfrZone EQ 1
		                        UseZone1Data = 1
		                    Case ThisWfrZone EQ 2
		                        UseZone2Data = 1
		                End Case
		            end
		        end else
		            //It might be found in a WMO if it's a makeup wafer
		            for each WMOKey in WMOutkeys using @VM setting WMOPos2
		                ThisWMOutRec       = Database_Services('ReadDataRow', 'WM_OUT', WMOKey, 1, 0, 0)
                        ThisWMOSlotProfile = ThisWMOutRec<WM_OUT_SLOT_NO$>
                        for each Slot in ThisWMOSlotProfile using @VM setting SlotPos
                            ThisSlotRDS    = ThisWMOutRec<WM_OUT_RDS$, SlotPos>
                            If ThisSlotRDS EQ thisRDSNo then
                                 ThisSlotInZone = ThisWMOutRec<WM_OUT_ZONE$, SlotPos>
                                 Begin Case
                                    Case ThisSlotInZone EQ 1
                                        UseZone1Data = 1
                                    Case ThisSlotInZone EQ 2
                                        UseZone2Data = 1
                                End Case
                            end
                        Next Slot
		            Next WMOKey
		        end
		    end
		Next RDSPocket
        
		MetKeys   = ''
		MetKeysZ1 = ''
		MetKeysZ2 = ''
		MetKeys   = XLATE('RDS',thisRDSNo,'MET_KEYS','X')
		if UseZone1Data then
		    MetKeysZ1 = XLATE('RDS',thisRDSNo,'MET_KEYS_Z1','X')
		end
		if UseZone2Data then
		   MetKeysZ2 = XLATE('RDS',thisRDSNo,'MET_KEYS_Z2','X') 
		end
		
		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
		    //Non-EpiPro
			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
		    //EpiPro
			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