open-insight/LSL2/STPROC/OBJ_REPROCESS.txt
Infineon\StieberD 7762b129af pre cutover push
2024-09-04 20:33:41 -07:00

494 lines
39 KiB
Plaintext

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