COMPILE FUNCTION obj_Reprocess(Method,Parms)

/*
	Methods for Reprocessed Runs table
    
	09/11/2009 JCH - Initial Coding
     
    Properties:
     
    Methods:
    
    FixUp(OrgRDSNo,IF NewRDSNo)
	
	
*/


DECLARE FUNCTION Get_Status, Msg, Utility, obj_Tables, NextKey, obj_WO_Verify, obj_Prod_Spec, Send_Dyn, obj_RDS_Makeup
DECLARE FUNCTION obj_RDS2, obj_RDS_Test
DECLARE SUBROUTINE  Set_Status, Msg, obj_Tables, Send_Dyn, obj_WO_Step, obj_RDS_Layer, obj_RDS_Test, obj_WM_In,RDS_React_Run

$INSERT MSG_EQUATES
$INSERT WO_VERIFY_EQU
$INSERT WO_LOG_EQU
$INSERT RDS_EQU
$INSERT RDS_MAKEUP_EQU
$INSERT RDS_LAYER_INFO_EQU
$INSERT RDS_LAYER_EQUATES
$INSERT RDS_TEST_EQUATES
$INSERT QUOTE_SPEC_EQU
$INSERT WO_STEP_EQU
$INSERT NCR_EQU
$INSERT WO_MAT_EQUATES


$INSERT PRS_LAYER_EQU	;* Used to return obj_Prod_Spec values

ErrTitle = 'Error in Stored Procedure "obj_RDS"'
ErrorMsg = ''

IF NOT(ASSIGNED(Method))	THEN ErrorMsg = 'Unassigned parameter "Method" passed to subroutine'
IF NOT(ASSIGNED(Parms))		THEN Parms = ''

IF ErrorMsg NE '' THEN
	Set_Status(-1,ErrTitle:@SVM:ErrorMsg)
	RETURN ''
END

Result = ''

BEGIN CASE
	CASE Method = 'FixUp'			; GOSUB FixUp
	CASE 1
		ErrorMsg = 'Unknown Method ':QUOTE(Method):' passed to obj_Reprocess'

END CASE

IF ErrorMsg NE '' THEN
	Set_Status(-1,ErrTitle:@SVM:ErrorMsg)
END

RETURN Result


* * * * * * *
FixUp:
* * * * * * *

OrgRDSNo = Parms[1,@RM]
NewRDSNo = Parms[COL2()+1,@RM]

IF OrgRDSNo = '' THEN RETURN
IF NewRDSNo = '' THEN RETURN


OrgRDSRec = XLATE('RDS',OrgRDSNo,'','X')

otParms = 'RDS':@RM:NewRDSNo

NewRDSRec = obj_Tables('ReadRec',otParms)

IF NewRDSRec<RDS_QUOTE_NO$> = '' 				THEN NewRDSRec<RDS_QUOTE_NO$>				= OrgRDSRec<RDS_QUOTE_NO$>
IF NewRDSRec<RDS_REACTOR$> = ''					THEN NewRDSRec<RDS_REACTOR$>				= OrgRDSRec<RDS_REACTOR$>
IF NewRDSRec<RDS_ENTRY_ID$> = ''				THEN NewRDSRec<RDS_ENTRY_ID$>				= OrgRDSRec<RDS_ENTRY_ID$>
IF NewRDSRec<RDS_ENTRY_DATE$> = ''				THEN NewRDSRec<RDS_ENTRY_DATE$>				= OrgRDSRec<RDS_ENTRY_DATE$>
IF NewRDSRec<RDS_SCHEDULE_NO$> = ''				THEN NewRDSRec<RDS_SCHEDULE_NO$>			= OrgRDSRec<RDS_SCHEDULE_NO$>
IF NewRDSRec<RDS_WO$> = ''						THEN NewRDSRec<RDS_WO$>						= OrgRDSRec<RDS_WO$>
IF NewRDSRec<RDS_ORDER_NO$> = ''				THEN NewRDSRec<RDS_ORDER_NO$>				= OrgRDSRec<RDS_ORDER_NO$>
IF NewRDSRec<RDS_PO$> = ''						THEN NewRDSRec<RDS_PO$>						= OrgRDSRec<RDS_PO$>
IF NewRDSRec<RDS_CUST_NO$> = ''					THEN NewRDSRec<RDS_CUST_NO$>				= OrgRDSRec<RDS_CUST_NO$>
IF NewRDSRec<RDS_PART_NUM$> = ''				THEN NewRDSRec<RDS_PART_NUM$>				= OrgRDSRec<RDS_PART_NUM$>
IF NewRDSRec<RDS_EPI_PRO_UNLOAD_DTM$> = ''		THEN NewRDSRec<RDS_EPI_PRO_UNLOAD_DTM$> 	= OrgRDSRec<RDS_EPI_PRO_UNLOAD_DTM$>		;* 4/4/2008 JCH
IF NewRDSRec<RDS_LOT_NUM$> = ''					THEN NewRDSRec<RDS_LOT_NUM$>				= OrgRDSRec<RDS_LOT_NUM$>
IF NewRDSRec<RDS_POST_EPI_COMMENTS$> = ''		THEN NewRDSRec<RDS_POST_EPI_COMMENTS$>		= OrgRDSRec<RDS_POST_EPI_COMMENTS$>
IF NewRDSRec<RDS_REACT_IDLE_TIME$> = ''			THEN NewRDSRec<RDS_REACT_IDLE_TIME$>		= OrgRDSRec<RDS_REACT_IDLE_TIME$>
IF NewRDSRec<RDS_DCS_FLOW$> = ''				THEN NewRDSRec<RDS_DCS_FLOW$>				= OrgRDSRec<RDS_DCS_FLOW$>
IF NewRDSRec<RDS_EPI_H2_FLOW$> = ''				THEN NewRDSRec<RDS_EPI_H2_FLOW$>			= OrgRDSRec<RDS_EPI_H2_FLOW$>
IF NewRDSRec<RDS_AUX1$> = ''					THEN NewRDSRec<RDS_AUX1$>					= OrgRDSRec<RDS_AUX1$>
IF NewRDSRec<RDS_DOPANT_FLOW$> = ''				THEN NewRDSRec<RDS_DOPANT_FLOW$>			= OrgRDSRec<RDS_DOPANT_FLOW$>
IF NewRDSRec<RDS_AUX2$> = ''					THEN NewRDSRec<RDS_AUX2$>					= OrgRDSRec<RDS_AUX2$>
IF NewRDSRec<RDS_LPD_POST_PRECLEAN$> = ''		THEN NewRDSRec<RDS_LPD_POST_PRECLEAN$>		= OrgRDSRec<RDS_LPD_POST_PRECLEAN$>
IF NewRDSRec<RDS_PRE_PITS$> = ''				THEN NewRDSRec<RDS_PRE_PITS$>				= OrgRDSRec<RDS_PRE_PITS$>
IF NewRDSRec<RDS_PRE_MOUNDS$> = ''				THEN NewRDSRec<RDS_PRE_MOUNDS$>				= OrgRDSRec<RDS_PRE_MOUNDS$>
IF NewRDSRec<RDS_BAKE_TIME$> = ''				THEN NewRDSRec<RDS_BAKE_TIME$>				= OrgRDSRec<RDS_BAKE_TIME$>
IF NewRDSRec<RDS_PRE_SCRATCHES$> = ''			THEN NewRDSRec<RDS_PRE_SCRATCHES$>			= OrgRDSRec<RDS_PRE_SCRATCHES$>
IF NewRDSRec<RDS_PRE_SPOTS$> = ''				THEN NewRDSRec<RDS_PRE_SPOTS$>				= OrgRDSRec<RDS_PRE_SPOTS$>
IF NewRDSRec<RDS_PRE_FOV$> = ''					THEN NewRDSRec<RDS_PRE_FOV$>				= OrgRDSRec<RDS_PRE_FOV$>
IF NewRDSRec<RDS_PRE_BL_DEFECTS$> = ''			THEN NewRDSRec<RDS_PRE_BL_DEFECTS$>			= OrgRDSRec<RDS_PRE_BL_DEFECTS$>
IF NewRDSRec<RDS_TW_PMINUS_TRANS$> = ''			THEN NewRDSRec<RDS_TW_PMINUS_TRANS$>		= OrgRDSRec<RDS_TW_PMINUS_TRANS$>
IF NewRDSRec<RDS_PRE_EPI_COMMENTS$> = ''		THEN NewRDSRec<RDS_PRE_EPI_COMMENTS$>		= OrgRDSRec<RDS_PRE_EPI_COMMENTS$>
IF NewRDSRec<RDS_TW_PROD_RHO$> = ''				THEN NewRDSRec<RDS_TW_PROD_RHO$>			= OrgRDSRec<RDS_TW_PROD_RHO$>
IF NewRDSRec<RDS_SPECIAL_INST$> = ''			THEN NewRDSRec<RDS_SPECIAL_INST$>			= OrgRDSRec<RDS_SPECIAL_INST$>
IF NewRDSRec<RDS_COMMENTS$> = ''				THEN NewRDSRec<RDS_COMMENTS$>				= OrgRDSRec<RDS_COMMENTS$>
IF NewRDSRec<RDS_LAYER_INFO$> = ''				THEN NewRDSRec<RDS_LAYER_INFO$>				= OrgRDSRec<RDS_LAYER_INFO$>
IF NewRDSRec<RDS_STATUS$> = ''					THEN NewRDSRec<RDS_STATUS$>					= OrgRDSRec<RDS_STATUS$>
IF NewRDSRec<RDS_DATE_IN$> = ''					THEN NewRDSRec<RDS_DATE_IN$>				= OrgRDSRec<RDS_DATE_IN$>
IF NewRDSRec<RDS_DATE_OUT$> = ''				THEN NewRDSRec<RDS_DATE_OUT$>				= OrgRDSRec<RDS_DATE_OUT$>
IF NewRDSRec<RDS_TIME_IN$> = ''					THEN NewRDSRec<RDS_TIME_IN$>				= OrgRDSRec<RDS_TIME_IN$>
IF NewRDSRec<RDS_TIME_OUT$> = ''				THEN NewRDSRec<RDS_TIME_OUT$>				= OrgRDSRec<RDS_TIME_OUT$>
IF NewRDSRec<RDS_OPERATOR_IN$> = ''				THEN NewRDSRec<RDS_OPERATOR_IN$>			= OrgRDSRec<RDS_OPERATOR_IN$>
IF NewRDSRec<RDS_OPERATOR_OUT$> = ''			THEN NewRDSRec<RDS_OPERATOR_OUT$>			= OrgRDSRec<RDS_OPERATOR_OUT$>
IF NewRDSRec<RDS_WAFERS_IN$> = ''				THEN NewRDSRec<RDS_WAFERS_IN$>				= OrgRDSRec<RDS_WAFERS_IN$>
IF NewRDSRec<RDS_WAFERS_OUT$> = ''				THEN NewRDSRec<RDS_WAFERS_OUT$>				= OrgRDSRec<RDS_WAFERS_OUT$>
IF NewRDSRec<RDS_LPD_PRECLEAN$> = ''			THEN NewRDSRec<RDS_LPD_PRECLEAN$>			= OrgRDSRec<RDS_LPD_PRECLEAN$>
IF NewRDSRec<RDS_LPD_FIRSTWAFER$> = ''			THEN NewRDSRec<RDS_LPD_FIRSTWAFER$>			= OrgRDSRec<RDS_LPD_FIRSTWAFER$>
IF NewRDSRec<RDS_LSL_PRE_EPI_REJ$> = ''			THEN NewRDSRec<RDS_LSL_PRE_EPI_REJ$>		= OrgRDSRec<RDS_LSL_PRE_EPI_REJ$>
IF NewRDSRec<RDS_CUST_PRE_EPI_REJ$> = ''		THEN NewRDSRec<RDS_CUST_PRE_EPI_REJ$>		= OrgRDSRec<RDS_CUST_PRE_EPI_REJ$>
IF NewRDSRec<RDS_LSL_POST_EPI_REJ$> = ''		THEN NewRDSRec<RDS_LSL_POST_EPI_REJ$>		= OrgRDSRec<RDS_LSL_POST_EPI_REJ$>
IF NewRDSRec<RDS_CUST_POST_EPI_REJ$> = ''		THEN NewRDSRec<RDS_CUST_POST_EPI_REJ$>		= OrgRDSRec<RDS_CUST_POST_EPI_REJ$>
IF NewRDSRec<RDS_THICK_MIN$> = ''				THEN NewRDSRec<RDS_THICK_MIN$>				= OrgRDSRec<RDS_THICK_MIN$>
IF NewRDSRec<RDS_THICK_TARGET$> = ''			THEN NewRDSRec<RDS_THICK_TARGET$>			= OrgRDSRec<RDS_THICK_TARGET$>
IF NewRDSRec<RDS_THICK_MAX$> = ''				THEN NewRDSRec<RDS_THICK_MAX$>				= OrgRDSRec<RDS_THICK_MAX$>
IF NewRDSRec<RDS_THICK_UNITS$> = ''				THEN NewRDSRec<RDS_THICK_UNITS$>			= OrgRDSRec<RDS_THICK_UNITS$>
IF NewRDSRec<RDS_RES_MIN$> = ''					THEN NewRDSRec<RDS_RES_MIN$>				= OrgRDSRec<RDS_RES_MIN$>
IF NewRDSRec<RDS_RES_TARGET$> = ''				THEN NewRDSRec<RDS_RES_TARGET$>				= OrgRDSRec<RDS_RES_TARGET$>
IF NewRDSRec<RDS_RES_MAX$> = ''					THEN NewRDSRec<RDS_RES_MAX$>				= OrgRDSRec<RDS_RES_MAX$>
IF NewRDSRec<RDS_RES_UNITS$> = ''				THEN NewRDSRec<RDS_RES_UNITS$>				= OrgRDSRec<RDS_RES_UNITS$>
IF NewRDSRec<RDS_CON_MIN$> = ''					THEN NewRDSRec<RDS_CON_MIN$>				= OrgRDSRec<RDS_CON_MIN$>
IF NewRDSRec<RDS_CON_TARGET$> = ''				THEN NewRDSRec<RDS_CON_TARGET$>				= OrgRDSRec<RDS_CON_TARGET$>
IF NewRDSRec<RDS_CON_MAX$> = ''					THEN NewRDSRec<RDS_CON_MAX$>				= OrgRDSRec<RDS_CON_MAX$>
IF NewRDSRec<RDS_CON_UNITS$> = ''				THEN NewRDSRec<RDS_CON_UNITS$>				= OrgRDSRec<RDS_CON_UNITS$>
IF NewRDSRec<RDS_THICK_READ$> = ''				THEN NewRDSRec<RDS_THICK_READ$>				= OrgRDSRec<RDS_THICK_READ$>
IF NewRDSRec<RDS_SHEETRHO_READ$> = ''			THEN NewRDSRec<RDS_SHEETRHO_READ$>			= OrgRDSRec<RDS_SHEETRHO_READ$>
IF NewRDSRec<RDS_TTHICK_AVG$> = ''				THEN NewRDSRec<RDS_TTHICK_AVG$>				= OrgRDSRec<RDS_TTHICK_AVG$>
IF NewRDSRec<RDS_TRES_AVG$> = ''				THEN NewRDSRec<RDS_TRES_AVG$>				= OrgRDSRec<RDS_TRES_AVG$>
IF NewRDSRec<RDS_TTHICK_STDEV$> = ''			THEN NewRDSRec<RDS_TTHICK_STDEV$>			= OrgRDSRec<RDS_TTHICK_STDEV$>
IF NewRDSRec<RDS_TTHICK_MAX$> = ''				THEN NewRDSRec<RDS_TTHICK_MAX$>				= OrgRDSRec<RDS_TTHICK_MAX$>
IF NewRDSRec<RDS_TRES_MAX$> = ''				THEN NewRDSRec<RDS_TRES_MAX$>				= OrgRDSRec<RDS_TRES_MAX$>
IF NewRDSRec<RDS_TTHICK_MIN$> = ''				THEN NewRDSRec<RDS_TTHICK_MIN$>				= OrgRDSRec<RDS_TTHICK_MIN$>
IF NewRDSRec<RDS_TRES_MIN$> = ''				THEN NewRDSRec<RDS_TRES_MIN$>				= OrgRDSRec<RDS_TRES_MIN$>
IF NewRDSRec<RDS_TTHICK_UNIF$> = ''				THEN NewRDSRec<RDS_TTHICK_UNIF$>			= OrgRDSRec<RDS_TTHICK_UNIF$>
IF NewRDSRec<RDS_TRES_UNIF$> = ''				THEN NewRDSRec<RDS_TRES_UNIF$>				= OrgRDSRec<RDS_TRES_UNIF$>
IF NewRDSRec<RDS_UNHOLD_OPERATOR$> = ''			THEN NewRDSRec<RDS_UNHOLD_OPERATOR$>		= OrgRDSRec<RDS_UNHOLD_OPERATOR$>
IF NewRDSRec<RDS_UNHOLD_DATE$> = ''				THEN NewRDSRec<RDS_UNHOLD_DATE$>			= OrgRDSRec<RDS_UNHOLD_DATE$>
IF NewRDSRec<RDS_UNHOLD_TIME$> = ''				THEN NewRDSRec<RDS_UNHOLD_TIME$>			= OrgRDSRec<RDS_UNHOLD_TIME$>
IF NewRDSRec<RDS_TRES_STDEV$> = ''				THEN NewRDSRec<RDS_TRES_STDEV$>				= OrgRDSRec<RDS_TRES_STDEV$>
IF NewRDSRec<RDS_TW_PPLUS_TRANS$> = ''			THEN NewRDSRec<RDS_TW_PPLUS_TRANS$>			= OrgRDSRec<RDS_TW_PPLUS_TRANS$>
IF NewRDSRec<RDS_VERIFY_QTY$> = ''				THEN NewRDSRec<RDS_VERIFY_QTY$>				= OrgRDSRec<RDS_VERIFY_QTY$>
IF NewRDSRec<RDS_TW_PROD_STRESS$> = ''			THEN NewRDSRec<RDS_TW_PROD_STRESS$>			= OrgRDSRec<RDS_TW_PROD_STRESS$>
IF NewRDSRec<RDS_QXJ_POST$> = ''				THEN NewRDSRec<RDS_QXJ_POST$>				= OrgRDSRec<RDS_QXJ_POST$>
IF NewRDSRec<RDS_TW_PROD$> = ''					THEN NewRDSRec<RDS_TW_PROD$>				= OrgRDSRec<RDS_TW_PROD$>
IF NewRDSRec<RDS_MOD_ID$> = ''					THEN NewRDSRec<RDS_MOD_ID$>					= OrgRDSRec<RDS_MOD_ID$>
IF NewRDSRec<RDS_MOD_DATE$> = ''				THEN NewRDSRec<RDS_MOD_DATE$>				= OrgRDSRec<RDS_MOD_DATE$>
IF NewRDSRec<RDS_QXJ_PRE$> = ''					THEN NewRDSRec<RDS_QXJ_PRE$>				= OrgRDSRec<RDS_QXJ_PRE$>
IF NewRDSRec<RDS_L_PRE_REJ_LOSS$> = ''			THEN NewRDSRec<RDS_L_PRE_REJ_LOSS$>			= OrgRDSRec<RDS_L_PRE_REJ_LOSS$>
IF NewRDSRec<RDS_L_POST_REJ_LOSS$> = ''			THEN NewRDSRec<RDS_L_POST_REJ_LOSS$>		= OrgRDSRec<RDS_L_POST_REJ_LOSS$>
IF NewRDSRec<RDS_C_PRE_REJ_LOSS$> = ''			THEN NewRDSRec<RDS_C_PRE_REJ_LOSS$>			= OrgRDSRec<RDS_C_PRE_REJ_LOSS$>
IF NewRDSRec<RDS_C_POST_REJ_LOSS$> = ''			THEN NewRDSRec<RDS_C_POST_REJ_LOSS$>		= OrgRDSRec<RDS_C_POST_REJ_LOSS$>
IF NewRDSRec<RDS_L_PRE_REJ_CNT$> = ''			THEN NewRDSRec<RDS_L_PRE_REJ_CNT$>			= OrgRDSRec<RDS_L_PRE_REJ_CNT$>
IF NewRDSRec<RDS_L_POST_REJ_CNT$> = ''			THEN NewRDSRec<RDS_L_POST_REJ_CNT$>			= OrgRDSRec<RDS_L_POST_REJ_CNT$>
IF NewRDSRec<RDS_C_PRE_REJ_CNT$> = ''			THEN NewRDSRec<RDS_C_PRE_REJ_CNT$>			= OrgRDSRec<RDS_C_PRE_REJ_CNT$>
IF NewRDSRec<RDS_C_POST_REJ_CNT$> = ''			THEN NewRDSRec<RDS_C_POST_REJ_CNT$>			= OrgRDSRec<RDS_C_POST_REJ_CNT$>
IF NewRDSRec<RDS_L_PRE_REJ_AC$> = ''			THEN NewRDSRec<RDS_L_PRE_REJ_AC$>			= OrgRDSRec<RDS_L_PRE_REJ_AC$>
IF NewRDSRec<RDS_L_POST_REJ_AC$> = ''			THEN NewRDSRec<RDS_L_POST_REJ_AC$>			= OrgRDSRec<RDS_L_POST_REJ_AC$>
IF NewRDSRec<RDS_C_PRE_REJ_AC$> = ''			THEN NewRDSRec<RDS_C_PRE_REJ_AC$>			= OrgRDSRec<RDS_C_PRE_REJ_AC$>
IF NewRDSRec<RDS_C_POST_REJ_AC$> = ''			THEN NewRDSRec<RDS_C_POST_REJ_AC$>			= OrgRDSRec<RDS_C_POST_REJ_AC$>
IF NewRDSRec<RDS_WAF_BACK_TO_INVENTORY$> = ''	THEN NewRDSRec<RDS_WAF_BACK_TO_INVENTORY$>	= OrgRDSRec<RDS_WAF_BACK_TO_INVENTORY$>
IF NewRDSRec<RDS_INJECTORS$> = ''				THEN NewRDSRec<RDS_INJECTORS$>				= OrgRDSRec<RDS_INJECTORS$>
IF NewRDSRec<RDS_F_OFFSET$> = ''				THEN NewRDSRec<RDS_F_OFFSET$>				= OrgRDSRec<RDS_F_OFFSET$>
IF NewRDSRec<RDS_S_OFFSET$> = ''				THEN NewRDSRec<RDS_S_OFFSET$>				= OrgRDSRec<RDS_S_OFFSET$>
IF NewRDSRec<RDS_R_OFFSET$> = ''				THEN NewRDSRec<RDS_R_OFFSET$>				= OrgRDSRec<RDS_R_OFFSET$>
IF NewRDSRec<RDS_TW_PPLUS$> = ''				THEN NewRDSRec<RDS_TW_PPLUS$>				= OrgRDSRec<RDS_TW_PPLUS$>
IF NewRDSRec<RDS_TW_PMINUS$> = ''				THEN NewRDSRec<RDS_TW_PMINUS$>				= OrgRDSRec<RDS_TW_PMINUS$>
IF NewRDSRec<RDS_TW_NPLUS$> = ''				THEN NewRDSRec<RDS_TW_NPLUS$>				= OrgRDSRec<RDS_TW_NPLUS$>
IF NewRDSRec<RDS_TW_NMINUS$> = ''				THEN NewRDSRec<RDS_TW_NMINUS$>				= OrgRDSRec<RDS_TW_NMINUS$>
IF NewRDSRec<RDS_TW_PPLUS_CODE$> = ''			THEN NewRDSRec<RDS_TW_PPLUS_CODE$>			= OrgRDSRec<RDS_TW_PPLUS_CODE$>
IF NewRDSRec<RDS_TW_PMINUS_CODE$> = ''			THEN NewRDSRec<RDS_TW_PMINUS_CODE$>			= OrgRDSRec<RDS_TW_PMINUS_CODE$>
IF NewRDSRec<RDS_TW_NPLUS_CODE$> = ''			THEN NewRDSRec<RDS_TW_NPLUS_CODE$>			= OrgRDSRec<RDS_TW_NPLUS_CODE$>
IF NewRDSRec<RDS_TW_NMINUS_CODE$> = ''			THEN NewRDSRec<RDS_TW_NMINUS_CODE$>			= OrgRDSRec<RDS_TW_NMINUS_CODE$>
IF NewRDSRec<RDS_TW_PPLUS_CNT$> = ''			THEN NewRDSRec<RDS_TW_PPLUS_CNT$>			= OrgRDSRec<RDS_TW_PPLUS_CNT$>
IF NewRDSRec<RDS_TW_PMINUS_CNT$> = ''			THEN NewRDSRec<RDS_TW_PMINUS_CNT$>			= OrgRDSRec<RDS_TW_PMINUS_CNT$>
IF NewRDSRec<RDS_TW_NPLUS_CNT$> = ''			THEN NewRDSRec<RDS_TW_NPLUS_CNT$>			= OrgRDSRec<RDS_TW_NPLUS_CNT$>
IF NewRDSRec<RDS_TW_NMINUS_CNT$> = ''			THEN NewRDSRec<RDS_TW_NMINUS_CNT$>			= OrgRDSRec<RDS_TW_NMINUS_CNT$>
IF NewRDSRec<RDS_PROD_SPEC_ID$> = ''			THEN NewRDSRec<RDS_PROD_SPEC_ID$>			= OrgRDSRec<RDS_PROD_SPEC_ID$>
IF NewRDSRec<RDS_L_PRE_REJ_NCR_IDS$> = ''		THEN NewRDSRec<RDS_L_PRE_REJ_NCR_IDS$>		= OrgRDSRec<RDS_L_PRE_REJ_NCR_IDS$>
IF NewRDSRec<RDS_L_POST_REJ_NCR_IDS$> = ''		THEN NewRDSRec<RDS_L_POST_REJ_NCR_IDS$>		= OrgRDSRec<RDS_L_POST_REJ_NCR_IDS$>
IF NewRDSRec<RDS_C_PRE_REJ_NCR_IDS$> = ''		THEN NewRDSRec<RDS_C_PRE_REJ_NCR_IDS$>		= OrgRDSRec<RDS_C_PRE_REJ_NCR_IDS$>
IF NewRDSRec<RDS_C_POST_REJ_NCR_IDS$> = ''		THEN NewRDSRec<RDS_C_POST_REJ_NCR_IDS$> 	= OrgRDSRec<RDS_C_POST_REJ_NCR_IDS$>
IF NewRDSRec<RDS_WO_VERIFY_ID$> = ''			THEN NewRDSRec<RDS_WO_VERIFY_ID$>			= OrgRDSRec<RDS_WO_VERIFY_ID$>
IF NewRDSRec<RDS_POST_PITS$> = '' 				THEN NewRDSRec<RDS_POST_PITS$>				= OrgRDSRec<RDS_POST_PITS$>
IF NewRDSRec<RDS_POST_MOUNDS$> = ''				THEN NewRDSRec<RDS_POST_MOUNDS$>			= OrgRDSRec<RDS_POST_MOUNDS$>
IF NewRDSRec<RDS_POST_STACK_FAULTS$> = ''		THEN NewRDSRec<RDS_POST_STACK_FAULTS$>		= OrgRDSRec<RDS_POST_STACK_FAULTS$>
IF NewRDSRec<RDS_POST_SPOTS$> = ''				THEN NewRDSRec<RDS_POST_SPOTS$>				= OrgRDSRec<RDS_POST_SPOTS$>
IF NewRDSRec<RDS_POST_FOV$> = '' 				THEN NewRDSRec<RDS_POST_FOV$>				= OrgRDSRec<RDS_POST_FOV$>
IF NewRDSRec<RDS_POST_BL_DEFECTS$> = ''			THEN NewRDSRec<RDS_POST_BL_DEFECTS$>		= OrgRDSRec<RDS_POST_BL_DEFECTS$>
IF NewRDSRec<RDS_PRE_CODE$> = ''				THEN NewRDSRec<RDS_PRE_CODE$>				= OrgRDSRec<RDS_PRE_CODE$>
IF NewRDSRec<RDS_PRE_BOAT_ID$> = ''				THEN NewRDSRec<RDS_PRE_BOAT_ID$>			= OrgRDSRec<RDS_PRE_BOAT_ID$>
IF NewRDSRec<RDS_PRE_SRD_NUM$> = ''				THEN NewRDSRec<RDS_PRE_SRD_NUM$>			= OrgRDSRec<RDS_PRE_SRD_NUM$>
IF NewRDSRec<RDS_POST_CODE$> = ''				THEN NewRDSRec<RDS_POST_CODE$>				= OrgRDSRec<RDS_POST_CODE$>
IF NewRDSRec<RDS_POST_BOAT_ID$> = ''			THEN NewRDSRec<RDS_POST_BOAT_ID$>			= OrgRDSRec<RDS_POST_BOAT_ID$>
IF NewRDSRec<RDS_POST_SRD_NUM$> = ''			THEN NewRDSRec<RDS_POST_SRD_NUM$>			= OrgRDSRec<RDS_POST_SRD_NUM$>
IF NewRDSRec<RDS_PRE_EPI_SIG$> = ''				THEN NewRDSRec<RDS_PRE_EPI_SIG$>			= OrgRDSRec<RDS_PRE_EPI_SIG$>
IF NewRDSRec<RDS_PRE_EPI_SIG_DATE$> = ''		THEN NewRDSRec<RDS_PRE_EPI_SIG_DATE$>		= OrgRDSRec<RDS_PRE_EPI_SIG_DATE$>
IF NewRDSRec<RDS_PRE_EPI_SIG_TIME$> = ''		THEN NewRDSRec<RDS_PRE_EPI_SIG_TIME$>		= OrgRDSRec<RDS_PRE_EPI_SIG_TIME$>
IF NewRDSRec<RDS_FIRST_WAF_SIG$> = ''			THEN NewRDSRec<RDS_FIRST_WAF_SIG$>			= OrgRDSRec<RDS_FIRST_WAF_SIG$>
IF NewRDSRec<RDS_FIRST_WAF_SIG_DATE$> = ''		THEN NewRDSRec<RDS_FIRST_WAF_SIG_DATE$>		= OrgRDSRec<RDS_FIRST_WAF_SIG_DATE$>
IF NewRDSRec<RDS_FIRST_WAF_SIG_TIME$> = ''		THEN NewRDSRec<RDS_FIRST_WAF_SIG_TIME$>		= OrgRDSRec<RDS_FIRST_WAF_SIG_TIME$>
IF NewRDSRec<RDS_TW_NMINUS_RHO$> = ''			THEN NewRDSRec<RDS_TW_NMINUS_RHO$>			= OrgRDSRec<RDS_TW_NMINUS_RHO$>
IF NewRDSRec<RDS_TW_NPLUS_RHO$> = ''			THEN NewRDSRec<RDS_TW_NPLUS_RHO$>			= OrgRDSRec<RDS_TW_NPLUS_RHO$>
IF NewRDSRec<RDS_TW_PMINUS_RHO$> = ''			THEN NewRDSRec<RDS_TW_PMINUS_RHO$>			= OrgRDSRec<RDS_TW_PMINUS_RHO$>
IF NewRDSRec<RDS_TW_PPLUS_RHO$> = ''			THEN NewRDSRec<RDS_TW_PPLUS_RHO$>			= OrgRDSRec<RDS_TW_PPLUS_RHO$>
IF NewRDSRec<RDS_TW_PROD_TRANS$> = ''			THEN NewRDSRec<RDS_TW_PROD_TRANS$>			= OrgRDSRec<RDS_TW_PROD_TRANS$>
IF NewRDSRec<RDS_TW_NMINUS_TRANS$> = ''			THEN NewRDSRec<RDS_TW_NMINUS_TRANS$>		= OrgRDSRec<RDS_TW_NMINUS_TRANS$>

IF NewRDSRec<RDS_UNLOAD_MOD_ID$> = ''			THEN NewRDSRec<RDS_UNLOAD_MOD_ID$>			= OrgRDSRec<RDS_UNLOAD_MOD_ID$>
IF NewRDSRec<RDS_TW_NPLUS_TRANS$> = ''			THEN NewRDSRec<RDS_TW_NPLUS_TRANS$>			= OrgRDSRec<RDS_TW_NPLUS_TRANS$>

IF NewRDSRec<RDS_PRE_SCRATCH_LEN$> = ''			THEN NewRDSRec<RDS_PRE_SCRATCH_LEN$>		= OrgRDSRec<RDS_PRE_SCRATCH_LEN$>
IF NewRDSRec<RDS_POST_SPIKES$> = ''				THEN NewRDSRec<RDS_POST_SPIKES$>			= OrgRDSRec<RDS_POST_SPIKES$>
IF NewRDSRec<RDS_POST_SCRATCHES$> = ''			THEN NewRDSRec<RDS_POST_SCRATCHES$>			= OrgRDSRec<RDS_POST_SCRATCHES$>
IF NewRDSRec<RDS_POST_SCRATCH_LEN$> = ''		THEN NewRDSRec<RDS_POST_SCRATCH_LEN$>		= OrgRDSRec<RDS_POST_SCRATCH_LEN$>
IF NewRDSRec<RDS_PRE_EPI_MOD_FIELD$> = ''		THEN NewRDSRec<RDS_PRE_EPI_MOD_FIELD$>		= OrgRDSRec<RDS_PRE_EPI_MOD_FIELD$>
IF NewRDSRec<RDS_PRE_EPI_MOD_ID$> = ''			THEN NewRDSRec<RDS_PRE_EPI_MOD_ID$>			= OrgRDSRec<RDS_PRE_EPI_MOD_ID$>
IF NewRDSRec<RDS_POST_EPI_MOD_FIELD$> = ''		THEN NewRDSRec<RDS_POST_EPI_MOD_FIELD$>		= OrgRDSRec<RDS_POST_EPI_MOD_FIELD$>
IF NewRDSRec<RDS_POST_EPI_MOD_ID$> = ''			THEN NewRDSRec<RDS_POST_EPI_MOD_ID$>		= OrgRDSRec<RDS_POST_EPI_MOD_ID$>
IF NewRDSRec<RDS_FIRST_WAFER_MOD_FIELD$> = ''	THEN NewRDSRec<RDS_FIRST_WAFER_MOD_FIELD$>	= OrgRDSRec<RDS_FIRST_WAFER_MOD_FIELD$>
IF NewRDSRec<RDS_FIRST_WAFER_MOD_ID$> = ''		THEN NewRDSRec<RDS_FIRST_WAFER_MOD_ID$>		= OrgRDSRec<RDS_FIRST_WAFER_MOD_ID$>
IF NewRDSRec<RDS_TW_PROD_CODE$> = ''			THEN NewRDSRec<RDS_TW_PROD_CODE$>			= OrgRDSRec<RDS_TW_PROD_CODE$>
IF NewRDSRec<RDS_TW_PROD_CNT$> = ''				THEN NewRDSRec<RDS_TW_PROD_CNT$>			= OrgRDSRec<RDS_TW_PROD_CNT$>
IF NewRDSRec<RDS_TW_PPLUS_TOOL$> = ''			THEN NewRDSRec<RDS_TW_PPLUS_TOOL$>			= OrgRDSRec<RDS_TW_PPLUS_TOOL$>
IF NewRDSRec<RDS_TW_PMINUS_TOOL$> = ''			THEN NewRDSRec<RDS_TW_PMINUS_TOOL$>			= OrgRDSRec<RDS_TW_PMINUS_TOOL$>
IF NewRDSRec<RDS_TW_NPLUS_TOOL$> = ''			THEN NewRDSRec<RDS_TW_NPLUS_TOOL$>			= OrgRDSRec<RDS_TW_NPLUS_TOOL$>
IF NewRDSRec<RDS_TW_NMINUS_TOOL$> = ''			THEN NewRDSRec<RDS_TW_NMINUS_TOOL$>			= OrgRDSRec<RDS_TW_NMINUS_TOOL$>
IF NewRDSRec<RDS_TW_PROD_TOOL$> = ''			THEN NewRDSRec<RDS_TW_PROD_TOOL$>			= OrgRDSRec<RDS_TW_PROD_TOOL$>
IF NewRDSRec<RDS_TW_PPLUS_THICK$> = ''			THEN NewRDSRec<RDS_TW_PPLUS_THICK$>			= OrgRDSRec<RDS_TW_PPLUS_THICK$>
IF NewRDSRec<RDS_TW_PMINUS_THICK$> = ''			THEN NewRDSRec<RDS_TW_PMINUS_THICK$>		= OrgRDSRec<RDS_TW_PMINUS_THICK$>
IF NewRDSRec<RDS_TW_NPLUS_THICK$> = ''			THEN NewRDSRec<RDS_TW_NPLUS_THICK$>			= OrgRDSRec<RDS_TW_NPLUS_THICK$>
IF NewRDSRec<RDS_TW_NMINUS_THICK$> = ''			THEN NewRDSRec<RDS_TW_NMINUS_THICK$>		= OrgRDSRec<RDS_TW_NMINUS_THICK$>
IF NewRDSRec<RDS_TW_PROD_THICK$> = ''			THEN NewRDSRec<RDS_TW_PROD_THICK$>			= OrgRDSRec<RDS_TW_PROD_THICK$>
IF NewRDSRec<RDS_TW_PPLUS_RES$> = ''			THEN NewRDSRec<RDS_TW_PPLUS_RES$>			= OrgRDSRec<RDS_TW_PPLUS_RES$>
IF NewRDSRec<RDS_TW_PMINUS_RES$> = ''			THEN NewRDSRec<RDS_TW_PMINUS_RES$>			= OrgRDSRec<RDS_TW_PMINUS_RES$>
IF NewRDSRec<RDS_TW_NPLUS_RES$> = ''			THEN NewRDSRec<RDS_TW_NPLUS_RES$>			= OrgRDSRec<RDS_TW_NPLUS_RES$>
IF NewRDSRec<RDS_TW_NMINUS_RES$> = ''			THEN NewRDSRec<RDS_TW_NMINUS_RES$>			= OrgRDSRec<RDS_TW_NMINUS_RES$>
IF NewRDSRec<RDS_TW_PROD_RES$> = ''				THEN NewRDSRec<RDS_TW_PROD_RES$>			= OrgRDSRec<RDS_TW_PROD_RES$>
IF NewRDSRec<RDS_TW_PPLUS_CON$> = ''			THEN NewRDSRec<RDS_TW_PPLUS_CON$>			= OrgRDSRec<RDS_TW_PPLUS_CON$>
IF NewRDSRec<RDS_TW_PMINUS_CON$> = ''			THEN NewRDSRec<RDS_TW_PMINUS_CON$>			= OrgRDSRec<RDS_TW_PMINUS_CON$>
IF NewRDSRec<RDS_TW_NPLUS_CON$> = ''			THEN NewRDSRec<RDS_TW_NPLUS_CON$>			= OrgRDSRec<RDS_TW_NPLUS_CON$>
IF NewRDSRec<RDS_TW_NMINUS_CON$> = ''			THEN NewRDSRec<RDS_TW_NMINUS_CON$>			= OrgRDSRec<RDS_TW_NMINUS_CON$>
IF NewRDSRec<RDS_TW_PROD_CON$> = ''				THEN NewRDSRec<RDS_TW_PROD_CON$>			= OrgRDSRec<RDS_TW_PROD_CON$>
IF NewRDSRec<RDS_TW_PPLUS_STRESS$> = ''			THEN NewRDSRec<RDS_TW_PPLUS_STRESS$>		= OrgRDSRec<RDS_TW_PPLUS_STRESS$>
IF NewRDSRec<RDS_TW_PMINUS_STRESS$> = ''		THEN NewRDSRec<RDS_TW_PMINUS_STRESS$>		= OrgRDSRec<RDS_TW_PMINUS_STRESS$>
IF NewRDSRec<RDS_TW_NPLUS_STRESS$> = ''			THEN NewRDSRec<RDS_TW_NPLUS_STRESS$>		= OrgRDSRec<RDS_TW_NPLUS_STRESS$>
IF NewRDSRec<RDS_TW_NMINUS_STRESS$> = ''		THEN NewRDSRec<RDS_TW_NMINUS_STRESS$>		= OrgRDSRec<RDS_TW_NMINUS_STRESS$>
IF NewRDSRec<RDS_TUBE_ID$> = ''					THEN NewRDSRec<RDS_TUBE_ID$>				= OrgRDSRec<RDS_TUBE_ID$>
IF NewRDSRec<RDS_TUBE_GRADE$> = ''				THEN NewRDSRec<RDS_TUBE_GRADE$>				= OrgRDSRec<RDS_TUBE_GRADE$>
IF NewRDSRec<RDS_SUSCEPTOR_ID$> = ''			THEN NewRDSRec<RDS_SUSCEPTOR_ID$>			= OrgRDSRec<RDS_SUSCEPTOR_ID$>
IF NewRDSRec<RDS_SRP_PROFILE_PATH$> = ''		THEN NewRDSRec<RDS_SRP_PROFILE_PATH$>		= OrgRDSRec<RDS_SRP_PROFILE_PATH$>
IF NewRDSRec<RDS_HOLD_DESC$> = ''				THEN NewRDSRec<RDS_HOLD_DESC$>				= OrgRDSRec<RDS_HOLD_DESC$>
IF NewRDSRec<RDS_HOLD$> = ''					THEN NewRDSRec<RDS_HOLD$>					= OrgRDSRec<RDS_HOLD$>
IF NewRDSRec<RDS_HOLD_OPERATOR$> = ''			THEN NewRDSRec<RDS_HOLD_OPERATOR$>			= OrgRDSRec<RDS_HOLD_OPERATOR$>
IF NewRDSRec<RDS_HOLD_DATE$> = ''				THEN NewRDSRec<RDS_HOLD_DATE$>				= OrgRDSRec<RDS_HOLD_DATE$>
IF NewRDSRec<RDS_HOLD_TIME$> = ''				THEN NewRDSRec<RDS_HOLD_TIME$>				= OrgRDSRec<RDS_HOLD_TIME$>
IF NewRDSRec<RDS_UNHOLD_DESC$> = ''				THEN NewRDSRec<RDS_UNHOLD_DESC$>			= OrgRDSRec<RDS_UNHOLD_DESC$>
IF NewRDSRec<RDS_SUPPLEMENT$> = ''				THEN NewRDSRec<RDS_SUPPLEMENT$>				= OrgRDSRec<RDS_SUPPLEMENT$>
IF NewRDSRec<RDS_SUPPL_INST$> = ''				THEN NewRDSRec<RDS_SUPPL_INST$>				= OrgRDSRec<RDS_SUPPL_INST$>
IF NewRDSRec<RDS_SUPPL_ENTRY_ID$> = ''			THEN NewRDSRec<RDS_SUPPL_ENTRY_ID$>			= OrgRDSRec<RDS_SUPPL_ENTRY_ID$>
IF NewRDSRec<RDS_SUPPL_ENTRY_DATE$> = ''		THEN NewRDSRec<RDS_SUPPL_ENTRY_DATE$>		= OrgRDSRec<RDS_SUPPL_ENTRY_DATE$>
IF NewRDSRec<RDS_SUPPL_SIG$> = ''				THEN NewRDSRec<RDS_SUPPL_SIG$>				= OrgRDSRec<RDS_SUPPL_SIG$>
IF NewRDSRec<RDS_SUPPL_SIG_DATE$> = ''			THEN NewRDSRec<RDS_SUPPL_SIG_DATE$>			= OrgRDSRec<RDS_SUPPL_SIG_DATE$>
IF NewRDSRec<RDS_SUPPL_ENTRY_TIME$> = ''		THEN NewRDSRec<RDS_SUPPL_ENTRY_TIME$>		= OrgRDSRec<RDS_SUPPL_ENTRY_TIME$>
IF NewRDSRec<RDS_SUPPL_SIG_TIME$> = ''			THEN NewRDSRec<RDS_SUPPL_SIG_TIME$>			= OrgRDSRec<RDS_SUPPL_SIG_TIME$>
IF NewRDSRec<RDS_DILUENT_ADJ_PARAM$> = ''		THEN NewRDSRec<RDS_DILUENT_ADJ_PARAM$>		= OrgRDSRec<RDS_DILUENT_ADJ_PARAM$>
IF NewRDSRec<RDS_HCL_FLOW$> = ''				THEN NewRDSRec<RDS_HCL_FLOW$>				= OrgRDSRec<RDS_HCL_FLOW$>
IF NewRDSRec<RDS_STANDARD_T$> = ''				THEN NewRDSRec<RDS_STANDARD_T$>				= OrgRDSRec<RDS_STANDARD_T$>
IF NewRDSRec<RDS_STANDARD_R$> = ''				THEN NewRDSRec<RDS_STANDARD_R$>				= OrgRDSRec<RDS_STANDARD_R$>

IF NewRDSRec<RDS_TCS_FLOW$> = ''				THEN NewRDSRec<RDS_TCS_FLOW$>				= OrgRDSRec<RDS_TCS_FLOW$>
IF NewRDSRec<RDS_THICK_OVR_GROWTH_AVG$> = ''	THEN NewRDSRec<RDS_THICK_OVR_GROWTH_AVG$>	= OrgRDSRec<RDS_THICK_OVR_GROWTH_AVG$>

IF NewRDSRec<RDS_LAST_WAFER_RHO$> = ''			THEN NewRDSRec<RDS_LAST_WAFER_RHO$>				= OrgRDSRec<RDS_LAST_WAFER_RHO$>
IF NewRDSRec<RDS_ETCH1$> = ''					THEN NewRDSRec<RDS_ETCH1$>						= OrgRDSRec<RDS_ETCH1$>
IF NewRDSRec<RDS_ETCH2$> = ''					THEN NewRDSRec<RDS_ETCH2$>						= OrgRDSRec<RDS_ETCH2$>
IF NewRDSRec<RDS_ETCH3$> = ''					THEN NewRDSRec<RDS_ETCH3$>						= OrgRDSRec<RDS_ETCH3$>
IF NewRDSRec<RDS_RESEARCH_SRP_BILLABLE$> = ''	THEN NewRDSRec<RDS_RESEARCH_SRP_BILLABLE$>		= OrgRDSRec<RDS_RESEARCH_SRP_BILLABLE$>
IF NewRDSRec<RDS_PRE_SURF_DEFECTS$> = ''		THEN NewRDSRec<RDS_PRE_SURF_DEFECTS$>			= OrgRDSRec<RDS_PRE_SURF_DEFECTS$>
IF NewRDSRec<RDS_PRE_SURF_HAZE$> = ''			THEN NewRDSRec<RDS_PRE_SURF_HAZE$>				= OrgRDSRec<RDS_PRE_SURF_HAZE$>
IF NewRDSRec<RDS_POST_SURF_DEFECTS$> = ''		THEN NewRDSRec<RDS_POST_SURF_DEFECTS$>			= OrgRDSRec<RDS_POST_SURF_DEFECTS$>
IF NewRDSRec<RDS_POST_SURF_HAZE$> = ''			THEN NewRDSRec<RDS_POST_SURF_HAZE$>				= OrgRDSRec<RDS_POST_SURF_HAZE$>
IF NewRDSRec<RDS_POST_CLEAN_SURF_DEFECTS$> = ''	THEN NewRDSRec<RDS_POST_CLEAN_SURF_DEFECTS$> 	= OrgRDSRec<RDS_POST_CLEAN_SURF_DEFECTS$>
IF NewRDSRec<RDS_POST_CLEAN_SURF_HAZE$> = ''	THEN NewRDSRec<RDS_POST_CLEAN_SURF_HAZE$>		= OrgRDSRec<RDS_POST_CLEAN_SURF_HAZE$>
IF NewRDSRec<RDS_OP_OUT_EX1$> = ''				THEN NewRDSRec<RDS_OP_OUT_EX1$>					= OrgRDSRec<RDS_OP_OUT_EX1$>
IF NewRDSRec<RDS_OP_OUT_EX1_DATE$> = ''			THEN NewRDSRec<RDS_OP_OUT_EX1_DATE$>			= OrgRDSRec<RDS_OP_OUT_EX1_DATE$>
IF NewRDSRec<RDS_OP_OUT_EX1_TIME$> = ''			THEN NewRDSRec<RDS_OP_OUT_EX1_TIME$>			= OrgRDSRec<RDS_OP_OUT_EX1_TIME$>
IF NewRDSRec<RDS_OP_IN_EX2$> = ''				THEN NewRDSRec<RDS_OP_IN_EX2$>					= OrgRDSRec<RDS_OP_IN_EX2$>
IF NewRDSRec<RDS_OP_IN_EX2_DATE$> = ''			THEN NewRDSRec<RDS_OP_IN_EX2_DATE$>				= OrgRDSRec<RDS_OP_IN_EX2_DATE$>
IF NewRDSRec<RDS_OP_IN_EX2_TIME$> = ''			THEN NewRDSRec<RDS_OP_IN_EX2_TIME$>				= OrgRDSRec<RDS_OP_IN_EX2_TIME$>
IF NewRDSRec<RDS_OP_OUT_EX2$> = ''				THEN NewRDSRec<RDS_OP_OUT_EX2$>					= OrgRDSRec<RDS_OP_OUT_EX2$>
IF NewRDSRec<RDS_OP_OUT_EX2_DATE$> = ''			THEN NewRDSRec<RDS_OP_OUT_EX2_DATE$>			= OrgRDSRec<RDS_OP_OUT_EX2_DATE$>
IF NewRDSRec<RDS_OP_OUT_EX2_TIME$> = ''			THEN NewRDSRec<RDS_OP_OUT_EX2_TIME$>			= OrgRDSRec<RDS_OP_OUT_EX2_TIME$>
IF NewRDSRec<RDS_OP_IN_EX3$> = ''				THEN NewRDSRec<RDS_OP_IN_EX3$>					= OrgRDSRec<RDS_OP_IN_EX3$>
IF NewRDSRec<RDS_OP_IN_EX3_DATE$> = ''			THEN NewRDSRec<RDS_OP_IN_EX3_DATE$>				= OrgRDSRec<RDS_OP_IN_EX3_DATE$>
IF NewRDSRec<RDS_OP_IN_EX3_TIME$> = ''			THEN NewRDSRec<RDS_OP_IN_EX3_TIME$>				= OrgRDSRec<RDS_OP_IN_EX3_TIME$>
IF NewRDSRec<RDS_TW_RECLAIM$> = ''				THEN NewRDSRec<RDS_TW_RECLAIM$>					= OrgRDSRec<RDS_TW_RECLAIM$>
IF NewRDSRec<RDS_TW_RECLAIM_CODE$> = ''			THEN NewRDSRec<RDS_TW_RECLAIM_CODE$>			= OrgRDSRec<RDS_TW_RECLAIM_CODE$>
IF NewRDSRec<RDS_TW_RECLAIM_CNT$> = ''			THEN NewRDSRec<RDS_TW_RECLAIM_CNT$>				= OrgRDSRec<RDS_TW_RECLAIM_CNT$>
IF NewRDSRec<RDS_TW_RECLAIM_CON$> = ''			THEN NewRDSRec<RDS_TW_RECLAIM_CON$>				= OrgRDSRec<RDS_TW_RECLAIM_CON$>
IF NewRDSRec<RDS_TW_RECLAIM_RES$> = ''			THEN NewRDSRec<RDS_TW_RECLAIM_RES$>				= OrgRDSRec<RDS_TW_RECLAIM_RES$>
IF NewRDSRec<RDS_TW_RECLAIM_RHO$> = ''			THEN NewRDSRec<RDS_TW_RECLAIM_RHO$>				= OrgRDSRec<RDS_TW_RECLAIM_RHO$>
IF NewRDSRec<RDS_TW_RECLAIM_STRESS$> = ''		THEN NewRDSRec<RDS_TW_RECLAIM_STRESS$>			= OrgRDSRec<RDS_TW_RECLAIM_STRESS$>
IF NewRDSRec<RDS_TW_RECLAIM_THICK$> = ''		THEN NewRDSRec<RDS_TW_RECLAIM_THICK$>			= OrgRDSRec<RDS_TW_RECLAIM_THICK$>
IF NewRDSRec<RDS_TW_RECLAIM_TOOL$> = ''			THEN NewRDSRec<RDS_TW_RECLAIM_TOOL$>			= OrgRDSRec<RDS_TW_RECLAIM_TOOL$>
IF NewRDSRec<RDS_TW_RECLAIM_TRANS$> = ''		THEN NewRDSRec<RDS_TW_RECLAIM_TRANS$>			= OrgRDSRec<RDS_TW_RECLAIM_TRANS$>

IF NewRDSRec<RDS_SUB_SUPPLIED_BY$> = ''			THEN NewRDSRec<RDS_SUB_SUPPLIED_BY$>			= OrgRDSRec<RDS_SUB_SUPPLIED_BY$>


OtParms = FieldStore(OtParms,@RM,4,0,NewRDSRec)	;* Put record in 4th field of OtParms
obj_Tables('WriteRec',OtParms)


OrgLSKeys = OrgRDSRec<RDS_RDS_LAYER_KEYS$>
NewLSKeys = NewRDSRec<RDS_RDS_LAYER_KEYS$>

LSCnt = COUNT(OrgLSKeys,@VM) + (OrgLSKeys NE '')

FOR N = 1 TO LSCnt
	OrgLSKey = OrgLSKeys<1,N>
	NewLSKey = NewLSKeys<1,N>
	
	GOSUB LoadLSrec
	
	OrgMetKeys = OrgLSRec<RDS_LAYER_RDS_TEST_KEYS$>
	NewMetKeys = NewLSRec<RDS_LAYER_RDS_TEST_KEYS$>
	
	LayerMetCnt = COUNT(OrgMetKeys,@VM) + (OrgMetKeys NE '')
	
	FOR M = 1 TO LayerMetCnt
		OrgMetKey = OrgMetKeys<1,M>
		NewMetKey = NewMetKeys<1,M>
		
		GOSUB LoadMetrology
	NEXT M
NEXT N


RETURN


* * * * * * *
LoadLSRec:
* * * * * * *

OrgLSRec = XLATE('RDS_LAYER',OrgLSKey,'','X')

otParms = 'RDS_LAYER':@RM:NewLSKey
NewLSRec = obj_Tables('ReadRec',otParms)

IF NewLSRec<RDS_LAYER_DOPANT$> = ''				THEN NewLSRec<RDS_LAYER_DOPANT$>			= OrgLSRec<RDS_LAYER_DOPANT$>
IF NewLSRec<RDS_LAYER_EPI_DILUENT$> = ''		THEN NewLSRec<RDS_LAYER_EPI_DILUENT$>		= OrgLSRec<RDS_LAYER_EPI_DILUENT$>
IF NewLSRec<RDS_LAYER_RDS_TEST_KEYS$> = ''		THEN NewLSRec<RDS_LAYER_RDS_TEST_KEYS$>		= OrgLSRec<RDS_LAYER_RDS_TEST_KEYS$>
IF NewLSRec<RDS_LAYER_RECIPE_NO$> = ''			THEN NewLSRec<RDS_LAYER_RECIPE_NO$>			= OrgLSRec<RDS_LAYER_RECIPE_NO$>
IF NewLSRec<RDS_LAYER_EPI_TIME$> = ''			THEN NewLSRec<RDS_LAYER_EPI_TIME$>			= OrgLSRec<RDS_LAYER_EPI_TIME$>
IF NewLSRec<RDS_LAYER_DILUENT_ADJ_PARAM$>= ''	THEN NewLSRec<RDS_LAYER_DILUENT_ADJ_PARAM$> = OrgLSRec<RDS_LAYER_DILUENT_ADJ_PARAM$>
IF NewLSRec<RDS_LAYER_DOPANT_FLOW$> = ''		THEN NewLSRec<RDS_LAYER_DOPANT_FLOW$>		= OrgLSRec<RDS_LAYER_DOPANT_FLOW$>
IF NewLSRec<RDS_LAYER_HCL_FLOW$> = ''			THEN NewLSRec<RDS_LAYER_HCL_FLOW$>			= OrgLSRec<RDS_LAYER_HCL_FLOW$>
IF NewLSRec<RDS_LAYER_BAKE_TIME$> = ''			THEN NewLSRec<RDS_LAYER_BAKE_TIME$>			= OrgLSRec<RDS_LAYER_BAKE_TIME$>
IF NewLSRec<RDS_LAYER_EPI_H2_FLOW$> = ''		THEN NewLSRec<RDS_LAYER_EPI_H2_FLOW$>		= OrgLSRec<RDS_LAYER_EPI_H2_FLOW$>
IF NewLSRec<RDS_LAYER_TCS_FLOW$> = ''			THEN NewLSRec<RDS_LAYER_TCS_FLOW$>			= OrgLSRec<RDS_LAYER_TCS_FLOW$>
IF NewLSRec<RDS_LAYER_DCS_FLOW$> = ''			THEN NewLSRec<RDS_LAYER_DCS_FLOW$>			= OrgLSRec<RDS_LAYER_DCS_FLOW$>
IF NewLSRec<RDS_LAYER_AUX1$> = ''				THEN NewLSRec<RDS_LAYER_AUX1$>				= OrgLSRec<RDS_LAYER_AUX1$>
IF NewLSRec<RDS_LAYER_AUX2$> = ''				THEN NewLSRec<RDS_LAYER_AUX2$>				= OrgLSRec<RDS_LAYER_AUX2$>
IF NewLSRec<RDS_LAYER_F_OFFSET$> = ''			THEN NewLSRec<RDS_LAYER_F_OFFSET$>			= OrgLSRec<RDS_LAYER_F_OFFSET$>
IF NewLSRec<RDS_LAYER_S_OFFSET$> = ''			THEN NewLSRec<RDS_LAYER_S_OFFSET$>			= OrgLSRec<RDS_LAYER_S_OFFSET$>
IF NewLSRec<RDS_LAYER_R_OFFSET$> = ''			THEN NewLSRec<RDS_LAYER_R_OFFSET$>			= OrgLSRec<RDS_LAYER_R_OFFSET$>
IF NewLSRec<RDS_LAYER_ETCH1$> = ''				THEN NewLSRec<RDS_LAYER_ETCH1$>				= OrgLSRec<RDS_LAYER_ETCH1$>
IF NewLSRec<RDS_LAYER_ETCH2$> = ''				THEN NewLSRec<RDS_LAYER_ETCH2$>				= OrgLSRec<RDS_LAYER_ETCH2$>
IF NewLSRec<RDS_LAYER_ETCH3$> = ''              THEN NewLSRec<RDS_LAYER_ETCH3$>             = OrgLSRec<RDS_LAYER_ETCH3$>
IF NewLSRec<RDS_LAYER_OVERGROW_REQ$> = ''		THEN NewLSRec<RDS_LAYER_OVERGROW_REQ$>		= OrgLSRec<RDS_LAYER_OVERGROW_REQ$>
IF NewLSRec<RDS_LAYER_MODIFY_USER$> = ''		THEN NewLSRec<RDS_LAYER_MODIFY_USER$>		= OrgLSRec<RDS_LAYER_MODIFY_USER$>
IF NewLSRec<RDS_LAYER_MODIFY_DTM$> = ''			THEN NewLSRec<RDS_LAYER_MODIFY_DTM$>		= OrgLSRec<RDS_LAYER_MODIFY_DTM$>
IF NewLSRec<RDS_LAYER_UL_TEMP$> = ''			THEN NewLSRec<RDS_LAYER_UL_TEMP$>			= OrgLSRec<RDS_LAYER_UL_TEMP$>

/*
IF NewLSRec<RDS_LAYER_EPI_TIME_MIN$> = ''		THEN NewLSRec<RDS_LAYER_EPI_TIME_MIN$>		= OrgLSRec<RDS_LAYER_EPI_TIME_MIN$>
IF NewLSRec<RDS_LAYER_EPI_TIME_MAX$> = ''		THEN NewLSRec<RDS_LAYER_EPI_TIME_MAX$>		= OrgLSRec<RDS_LAYER_EPI_TIME_MAX$>
IF NewLSRec<RDS_LAYER_DILUENT_MIN$> = ''		THEN NewLSRec<RDS_LAYER_DILUENT_MIN$>		= OrgLSRec<RDS_LAYER_DILUENT_MIN$>
IF NewLSRec<RDS_LAYER_DILUENT_MAX$> = ''		THEN NewLSRec<RDS_LAYER_DILUENT_MAX$>		= OrgLSRec<RDS_LAYER_DILUENT_MAX$>
IF NewLSRec<RDS_LAYER_DOPANT_FLOW_MIN$> = ''	THEN NewLSRec<RDS_LAYER_DOPANT_FLOW_MIN$>	= OrgLSRec<RDS_LAYER_DOPANT_FLOW_MIN$>
IF NewLSRec<RDS_LAYER_DOPANT_FLOW_MAX$> = ''	THEN NewLSRec<RDS_LAYER_DOPANT_FLOW_MAX$>	= OrgLSRec<RDS_LAYER_DOPANT_FLOW_MAX$>
IF NewLSRec<RDS_LAYER_HCL_FLOW_MIN$> = ''		THEN NewLSRec<RDS_LAYER_HCL_FLOW_MIN$>		= OrgLSRec<RDS_LAYER_HCL_FLOW_MIN$>
IF NewLSRec<RDS_LAYER_HCL_FLOW_MAX$> = ''		THEN NewLSRec<RDS_LAYER_HCL_FLOW_MAX$>		= OrgLSRec<RDS_LAYER_HCL_FLOW_MAX$>
IF NewLSRec<RDS_LAYER_BAKE_TIME_MIN$> = ''		THEN NewLSRec<RDS_LAYER_BAKE_TIME_MIN$>		= OrgLSRec<RDS_LAYER_BAKE_TIME_MIN$>
IF NewLSRec<RDS_LAYER_BAKE_TIME_MAX$> = ''		THEN NewLSRec<RDS_LAYER_BAKE_TIME_MAX$>		= OrgLSRec<RDS_LAYER_BAKE_TIME_MAX$>
IF NewLSRec<RDS_LAYER_EPI_H2_FLOW_MIN$> = ''	THEN NewLSRec<RDS_LAYER_EPI_H2_FLOW_MIN$>	= OrgLSRec<RDS_LAYER_EPI_H2_FLOW_MIN$>
IF NewLSRec<RDS_LAYER_EPI_H2_FLOW_MAX$> = ''	THEN NewLSRec<RDS_LAYER_EPI_H2_FLOW_MAX$>	= OrgLSRec<RDS_LAYER_EPI_H2_FLOW_MAX$>
IF NewLSRec<RDS_LAYER_TCS_FLOW_MIN$> = ''		THEN NewLSRec<RDS_LAYER_TCS_FLOW_MIN$>		= OrgLSRec<RDS_LAYER_TCS_FLOW_MIN$>
IF NewLSRec<RDS_LAYER_TCS_FLOW_MAX$> = '' 		THEN NewLSRec<RDS_LAYER_TCS_FLOW_MAX$>		= OrgLSRec<RDS_LAYER_TCS_FLOW_MAX$>
IF NewLSRec<RDS_LAYER_DCS_FLOW_MIN$> = '' 		THEN NewLSRec<RDS_LAYER_DCS_FLOW_MIN$>		= OrgLSRec<RDS_LAYER_DCS_FLOW_MIN$>
IF NewLSRec<RDS_LAYER_DCS_FLOW_MAX$> = ''		THEN NewLSRec<RDS_LAYER_DCS_FLOW_MAX$>		= OrgLSRec<RDS_LAYER_DCS_FLOW_MAX$>
IF NewLSRec<RDS_LAYER_AUX1_MIN$> = ''			THEN NewLSRec<RDS_LAYER_AUX1_MIN$>			= OrgLSRec<RDS_LAYER_AUX1_MIN$>
IF NewLSRec<RDS_LAYER_AUX1_MAX$> = ''			THEN NewLSRec<RDS_LAYER_AUX1_MAX$>			= OrgLSRec<RDS_LAYER_AUX1_MAX$>
IF NewLSRec<RDS_LAYER_AUX2_MIN$> = ''			THEN NewLSRec<RDS_LAYER_AUX2_MIN$>			= OrgLSRec<RDS_LAYER_AUX2_MIN$>
IF NewLSRec<RDS_LAYER_AUX2_MAX$> = ''			THEN NewLSRec<RDS_LAYER_AUX2_MAX$>			= OrgLSRec<RDS_LAYER_AUX2_MAX$>
IF NewLSRec<RDS_LAYER_F_OFFSET_MIN$> = ''		THEN NewLSRec<RDS_LAYER_F_OFFSET_MIN$>		= OrgLSRec<RDS_LAYER_F_OFFSET_MIN$>
IF NewLSRec<RDS_LAYER_F_OFFSET_MAX$> = ''		THEN NewLSRec<RDS_LAYER_F_OFFSET_MAX$>		= OrgLSRec<RDS_LAYER_F_OFFSET_MAX$>
IF NewLSRec<RDS_LAYER_S_OFFSET_MIN$> = ''		THEN NewLSRec<RDS_LAYER_S_OFFSET_MIN$>		= OrgLSRec<RDS_LAYER_S_OFFSET_MIN$>
IF NewLSRec<RDS_LAYER_S_OFFSET_MAX$> = ''		THEN NewLSRec<RDS_LAYER_S_OFFSET_MAX$>		= OrgLSRec<RDS_LAYER_S_OFFSET_MAX$>
IF NewLSRec<RDS_LAYER_R_OFFSET_MIN$> = ''		THEN NewLSRec<RDS_LAYER_R_OFFSET_MIN$>		= OrgLSRec<RDS_LAYER_R_OFFSET_MIN$>
IF NewLSRec<RDS_LAYER_R_OFFSET_MAX$> = ''		THEN NewLSRec<RDS_LAYER_R_OFFSET_MAX$>		= OrgLSRec<RDS_LAYER_R_OFFSET_MAX$>
IF NewLSRec<RDS_LAYER_ETCH1_MIN$> = ''			THEN NewLSRec<RDS_LAYER_ETCH1_MIN$>			= OrgLSRec<RDS_LAYER_ETCH1_MIN$>
IF NewLSRec<RDS_LAYER_ETCH1_MAX$> = ''			THEN NewLSRec<RDS_LAYER_ETCH1_MAX$>			= OrgLSRec<RDS_LAYER_ETCH1_MAX$>
IF NewLSRec<RDS_LAYER_ETCH2_MIN$> = ''			THEN NewLSRec<RDS_LAYER_ETCH2_MIN$>			= OrgLSRec<RDS_LAYER_ETCH2_MIN$>
IF NewLSRec<RDS_LAYER_ETCH2_MAX$> = ''			THEN NewLSRec<RDS_LAYER_ETCH2_MAX$>			= OrgLSRec<RDS_LAYER_ETCH2_MAX$>
*/


OtParms = FieldStore(OtParms,@RM,4,0,NewLSRec)	;* Put record in 4th field of OtParms
obj_Tables('WriteRec',OtParms)

RETURN


* * * * * * *
LoadMetrology:
* * * * * * *

OrgMetRec = XLATE('RDS_TEST',OrgMetKey,'','X')

otParms = 'RDS_TEST':@RM:NewMetKey
NewMetRec = obj_Tables('ReadRec',otParms)




IF NewMetRec<RDS_TEST_ZONE$> = ''				THEN NewMetRec<RDS_TEST_ZONE$> = OrgMetRec<RDS_TEST_ZONE$>

IF NewMetRec<RDS_TEST_READ_THICK$> = ''			THEN NewMetRec<RDS_TEST_READ_THICK$>			= OrgMetRec<RDS_TEST_READ_THICK$>
IF NewMetRec<RDS_TEST_READ_SHEET_RHO$> = ''		THEN NewMetRec<RDS_TEST_READ_SHEET_RHO$>		= OrgMetRec<RDS_TEST_READ_SHEET_RHO$>
IF NewMetRec<RDS_TEST_READ_RES$> = ''			THEN NewMetRec<RDS_TEST_READ_RES$>				= OrgMetRec<RDS_TEST_READ_RES$>
IF NewMetRec<RDS_TEST_STRESS_BORON$> = ''		THEN NewMetRec<RDS_TEST_STRESS_BORON$>			= OrgMetRec<RDS_TEST_STRESS_BORON$>
IF NewMetRec<RDS_TEST_STRESS_GEH4$> = ''		THEN NewMetRec<RDS_TEST_STRESS_GEH4$>			= OrgMetRec<RDS_TEST_STRESS_GEH4$>
IF NewMetRec<RDS_TEST_STRESS_MPS$> = ''			THEN NewMetRec<RDS_TEST_STRESS_MPS$>			= OrgMetRec<RDS_TEST_STRESS_MPS$>
IF NewMetRec<RDS_TEST_SRP_PROFILE_PATH$> = ''	THEN NewMetRec<RDS_TEST_SRP_PROFILE_PATH$>		= OrgMetRec<RDS_TEST_SRP_PROFILE_PATH$>
IF NewMetRec<RDS_TEST_THICK_OVERGROW_AVG$> = '' THEN NewMetRec<RDS_TEST_THICK_OVERGROW_AVG$>	= OrgMetRec<RDS_TEST_THICK_OVERGROW_AVG$>
IF NewMetRec<RDS_TEST_HGCV_MEAN$> = ''			THEN NewMetRec<RDS_TEST_HGCV_MEAN$>				= OrgMetRec<RDS_TEST_HGCV_MEAN$>
IF NewMetRec<RDS_TEST_HGCV_STDV$> = ''			THEN NewMetRec<RDS_TEST_HGCV_STDV$>				= OrgMetRec<RDS_TEST_HGCV_STDV$>
IF NewMetRec<RDS_TEST_THICK_AVG$> = ''			THEN NewMetRec<RDS_TEST_THICK_AVG$>				= OrgMetRec<RDS_TEST_THICK_AVG$>
IF NewMetRec<RDS_TEST_THICK_STDV$> = ''			THEN NewMetRec<RDS_TEST_THICK_STDV$>			= OrgMetRec<RDS_TEST_THICK_STDV$>
IF NewMetRec<RDS_TEST_THICK_UNIF$> = ''			THEN NewMetRec<RDS_TEST_THICK_UNIF$>			= OrgMetRec<RDS_TEST_THICK_UNIF$>
IF NewMetRec<RDS_TEST_THICK_MIN$> = ''			THEN NewMetRec<RDS_TEST_THICK_MIN$>				= OrgMetRec<RDS_TEST_THICK_MIN$>
IF NewMetRec<RDS_TEST_THICK_MAX$> = ''			THEN NewMetRec<RDS_TEST_THICK_MAX$>				= OrgMetRec<RDS_TEST_THICK_MAX$>
IF NewMetRec<RDS_TEST_SHEETRHO_AVG$> = ''		THEN NewMetRec<RDS_TEST_SHEETRHO_AVG$>			= OrgMetRec<RDS_TEST_SHEETRHO_AVG$>
IF NewMetRec<RDS_TEST_SHEETRHO_STDV$> = ''		THEN NewMetRec<RDS_TEST_SHEETRHO_STDV$>			= OrgMetRec<RDS_TEST_SHEETRHO_STDV$>
IF NewMetRec<RDS_TEST_SHEETRHO_UNIF$> = ''		THEN NewMetRec<RDS_TEST_SHEETRHO_UNIF$>			= OrgMetRec<RDS_TEST_SHEETRHO_UNIF$>
IF NewMetRec<RDS_TEST_SHEETRHO_MIN$> = ''		THEN NewMetRec<RDS_TEST_SHEETRHO_MIN$>			= OrgMetRec<RDS_TEST_SHEETRHO_MIN$>
IF NewMetRec<RDS_TEST_SHEETRHO_MAX$> = ''		THEN NewMetRec<RDS_TEST_SHEETRHO_MAX$>			= OrgMetRec<RDS_TEST_SHEETRHO_MAX$>
IF NewMetRec<RDS_TEST_RES_AVG$> = ''			THEN NewMetRec<RDS_TEST_RES_AVG$>				= OrgMetRec<RDS_TEST_RES_AVG$>
IF NewMetRec<RDS_TEST_RES_STDV$> = ''			THEN NewMetRec<RDS_TEST_RES_STDV$>				= OrgMetRec<RDS_TEST_RES_STDV$>
IF NewMetRec<RDS_TEST_RES_UNIF$> = ''			THEN NewMetRec<RDS_TEST_RES_UNIF$>				= OrgMetRec<RDS_TEST_RES_UNIF$>
IF NewMetRec<RDS_TEST_RES_MIN$> = ''			THEN NewMetRec<RDS_TEST_RES_MIN$>				= OrgMetRec<RDS_TEST_RES_MIN$>
IF NewMetRec<RDS_TEST_RES_MAX$> = ''			THEN NewMetRec<RDS_TEST_RES_MAX$>				= OrgMetRec<RDS_TEST_RES_MAX$>

IF NewMetRec<RDS_TEST_WAFER_SIZE$> = ''			THEN NewMetRec<RDS_TEST_WAFER_SIZE$>			= OrgMetRec<RDS_TEST_WAFER_SIZE$>
IF NewMetRec<RDS_TEST_SUB_ORIENTATION$> = ''	THEN NewMetRec<RDS_TEST_SUB_ORIENTATION$>		= OrgMetRec<RDS_TEST_SUB_ORIENTATION$>
IF NewMetRec<RDS_TEST_ASET_RESULTS$> = ''		THEN NewMetRec<RDS_TEST_ASET_RESULTS$>			= OrgMetRec<RDS_TEST_ASET_RESULTS$>
IF NewMetRec<RDS_TEST_MODIFY_USER$> = ''		THEN NewMetRec<RDS_TEST_MODIFY_USER$>			= OrgMetRec<RDS_TEST_MODIFY_USER$>
IF NewMetRec<RDS_TEST_MODIFY_DTM$> = ''			THEN NewMetRec<RDS_TEST_MODIFY_DTM$>			= OrgMetRec<RDS_TEST_MODIFY_DTM$>
IF NewMetRec<RDS_TEST_REACTOR_TYPE$> = ''		THEN NewMetRec<RDS_TEST_REACTOR_TYPE$>			= OrgMetRec<RDS_TEST_REACTOR_TYPE$>
IF NewMetRec<RDS_TEST_READ_HGCV1_RES$> = ''		THEN NewMetRec<RDS_TEST_READ_HGCV1_RES$>		= OrgMetRec<RDS_TEST_READ_HGCV1_RES$>
IF NewMetRec<RDS_TEST_TEST_POINT_MAP$> = ''		THEN NewMetRec<RDS_TEST_TEST_POINT_MAP$>		= OrgMetRec<RDS_TEST_TEST_POINT_MAP$>
IF NewMetRec<RDS_TEST_HGCV1_RES_AVG$> = ''		THEN NewMetRec<RDS_TEST_HGCV1_RES_AVG$>			= OrgMetRec<RDS_TEST_HGCV1_RES_AVG$>
IF NewMetRec<RDS_TEST_HGCV1_RES_STDV$> = ''		THEN NewMetRec<RDS_TEST_HGCV1_RES_STDV$>		= OrgMetRec<RDS_TEST_HGCV1_RES_STDV$>
IF NewMetRec<RDS_TEST_HGCV1_RES_UNIF$> = ''		THEN NewMetRec<RDS_TEST_HGCV1_RES_UNIF$>		= OrgMetRec<RDS_TEST_HGCV1_RES_UNIF$>
IF NewMetRec<RDS_TEST_HGCV1_RES_MIN$> = ''		THEN NewMetRec<RDS_TEST_HGCV1_RES_MIN$>			= OrgMetRec<RDS_TEST_HGCV1_RES_MIN$>
IF NewMetRec<RDS_TEST_HGCV1_RES_MAX$> = ''		THEN NewMetRec<RDS_TEST_HGCV1_RES_MAX$>			= OrgMetRec<RDS_TEST_HGCV1_RES_MAX$>

IF NewMetRec<RDS_TEST_SPC_DTM$> = ''			THEN NewMetRec<RDS_TEST_SPC_DTM$>				= OrgMetRec<RDS_TEST_SPC_DTM$>


OtParms = FieldStore(OtParms,@RM,4,0,NewMetRec)	;* Put record in 4th field of OtParms
obj_Tables('WriteRec',OtParms)

RETURN