pre cutover push
This commit is contained in:
Infineon\StieberD
@ -584,7 +584,7 @@ Refresh:
|
||||
END
|
||||
NEXT I
|
||||
|
||||
if @USER4 EQ 'JONATHAN_O' then debug
|
||||
|
||||
SpecCtrl = @WINDOW:'.LAYER_SPEC'
|
||||
LSList = Get_Property(SpecCtrl,'LIST')
|
||||
LSCnt = COUNT(LSList,@FM) + (LSList NE '')
|
||||
@ -798,8 +798,6 @@ RETURN
|
||||
* * * * * * *
|
||||
StatusClick:
|
||||
* * * * * * *
|
||||
If @USER4 EQ 'DANIEL_ST' then debug
|
||||
/* DPC 1/28/19 - when PSN is statused (any status), want to add entry to PROD_SPEC_REV_HIST (history) table */
|
||||
|
||||
ReactorType = Get_Property(@WINDOW:'.RTYPE','DEFPROP')
|
||||
PSNo = Get_Property(@WINDOW:'.PROD_SPEC_ID','DEFPROP')
|
||||
@ -807,123 +805,131 @@ StatusClick:
|
||||
NewStatus = Get_Property(@WINDOW:'.STATUS','DEFPROP')
|
||||
|
||||
IF PSNo = '' THEN RETURN
|
||||
|
||||
IF NewStatus = 'I' THEN
|
||||
If NewStatus NE OldStatus then
|
||||
IF NewStatus = 'I' THEN
|
||||
|
||||
MsgInfo = ''
|
||||
MsgInfo<mtype$> = 'BNY'
|
||||
MsgInfo<micon$> = '?'
|
||||
MsgInfo<mtext$> = 'Inactivating this PSN will clear the signatures...Do you wish to continue???'
|
||||
|
||||
Resp = msg( '', MsgInfo )
|
||||
|
||||
IF Resp THEN
|
||||
MsgInfo = ''
|
||||
MsgInfo<mtype$> = 'BNY'
|
||||
MsgInfo<micon$> = '?'
|
||||
MsgInfo<mtext$> = 'Inactivating this PSN will clear the signatures...Do you wish to continue???'
|
||||
|
||||
ModeArray = Get_Property(@WINDOW:'.MODE_CODE','DEFPROP')
|
||||
ModeArray<COL$MODE_SIG> = STR(@VM,3) ;* Clears Mode Signatures 8/22/2012 JCH
|
||||
ModeArray<COL$MODE_SIG_DTM> = STR(@VM,3) ;* Clears Mode Sig Timestamps 8/22/2012 JCH
|
||||
Set_Property(@WINDOW:'.MODE_CODE','DEFPROP',ModeArray)
|
||||
Resp = msg( '', MsgInfo )
|
||||
|
||||
* From here down goes away
|
||||
|
||||
SpecEpi = Get_Property(@WINDOW:'.SPEC_EPI','TEXT')
|
||||
SpecEpi<1,QSEpiRecipe$> = '' ;* Clear the recipe number
|
||||
SpecEpi<1,QSEpiRecipeName$> = '' ;* and name
|
||||
Set_Property(@WINDOW:'.SPEC_EPI','TEXT',SpecEpi)
|
||||
SpecAddtl = Get_Property(@WINDOW:'.SPEC_ADDL','TEXT') ;* Clear signatures'
|
||||
|
||||
Set_Property(@WINDOW:'.SPEC_ADDL','TEXT',SpecAddtl)
|
||||
SpecSub = Get_Property(@WINDOW:'.SPEC_SUBSTRATE','TEXT')
|
||||
SpecSub<1,QSSubSpecType$> = '' ;* Clear Spec Type
|
||||
Set_Property(@WINDOW:'.SPEC_SUBSTRATE','TEXT',SpecSub)
|
||||
|
||||
* Call Auto-NCR form to provide the user an easy way to automatically NCR all makeup wafers
|
||||
* associated with the now inactivated PSN.
|
||||
|
||||
Dialog_Box( 'NDW_MAKEUP_WAFER_NCR', @WINDOW, PSNo)
|
||||
If Error_Services('HasError') then
|
||||
ErrorMessage = 'An errror occurred during the Automatic NCR process for PSN '
|
||||
Error = Error_Services('GetMessage')
|
||||
ErrMsg(ErrorMessage : PSNo : @SVM : 'Please notify OpenInsight administrator. Error message:':Error)
|
||||
end
|
||||
|
||||
END ELSE
|
||||
|
||||
Set_Property(@WINDOW:'.STATUS','VALUE','A')
|
||||
RETURN
|
||||
IF Resp THEN
|
||||
|
||||
ModeArray = Get_Property(@WINDOW:'.MODE_CODE','DEFPROP')
|
||||
ModeArray<COL$MODE_SIG> = STR(@VM,3) ;* Clears Mode Signatures 8/22/2012 JCH
|
||||
ModeArray<COL$MODE_SIG_DTM> = STR(@VM,3) ;* Clears Mode Sig Timestamps 8/22/2012 JCH
|
||||
Set_Property(@WINDOW:'.MODE_CODE','DEFPROP',ModeArray)
|
||||
|
||||
* From here down goes away
|
||||
|
||||
SpecEpi = Get_Property(@WINDOW:'.SPEC_EPI','TEXT')
|
||||
SpecEpi<1,QSEpiRecipe$> = '' ;* Clear the recipe number
|
||||
SpecEpi<1,QSEpiRecipeName$> = '' ;* and name
|
||||
Set_Property(@WINDOW:'.SPEC_EPI','TEXT',SpecEpi)
|
||||
SpecAddtl = Get_Property(@WINDOW:'.SPEC_ADDL','TEXT') ;* Clear signatures'
|
||||
|
||||
Set_Property(@WINDOW:'.SPEC_ADDL','TEXT',SpecAddtl)
|
||||
SpecSub = Get_Property(@WINDOW:'.SPEC_SUBSTRATE','TEXT')
|
||||
SpecSub<1,QSSubSpecType$> = '' ;* Clear Spec Type
|
||||
Set_Property(@WINDOW:'.SPEC_SUBSTRATE','TEXT',SpecSub)
|
||||
|
||||
* Call Auto-NCR form to provide the user an easy way to automatically NCR all makeup wafers
|
||||
* associated with the now inactivated PSN.
|
||||
|
||||
Dialog_Box( 'NDW_MAKEUP_WAFER_NCR', @WINDOW, PSNo)
|
||||
If Error_Services('HasError') then
|
||||
ErrorMessage = 'An errror occurred during the Automatic NCR process for PSN '
|
||||
Error = Error_Services('GetMessage')
|
||||
ErrMsg(ErrorMessage : PSNo : @SVM : 'Please notify OpenInsight administrator. Error message:':Error)
|
||||
end
|
||||
|
||||
END ELSE
|
||||
If OldStatus EQ 'A' then
|
||||
Set_Property(@WINDOW:'.STATUS','VALUE','A')
|
||||
end else
|
||||
Set_Property(@WINDOW:'.STATUS','VALUE',OldStatus)
|
||||
end
|
||||
|
||||
RETURN
|
||||
|
||||
END
|
||||
|
||||
* Code deprecated on 03/11/19 - DJS
|
||||
* IF ReactorType = 'EPP' THEN
|
||||
*
|
||||
* OPEN 'DICT.WM_OUT' TO DictVar ELSE
|
||||
* ErrMsg('Unable to open DICT.WM_OUT in COMM_WM_OUT.')
|
||||
* END
|
||||
*
|
||||
* SearchString = 'MU_PS_NO':@VM:PSNo:@FM
|
||||
*
|
||||
* Set_Status(0)
|
||||
*
|
||||
* MUWMOutIDs = ""
|
||||
* Option = ""
|
||||
* Flag = ""
|
||||
* Btree.Extract(SearchString, 'WM_OUT', DictVar, MUWMOutIDs, option, flag)
|
||||
*
|
||||
* IF Get_Status(errCode) THEN ErrMsg(errCode)
|
||||
*
|
||||
* AvailMU_WOMatKeys = MUWMOutIDs
|
||||
*
|
||||
* END ELSE
|
||||
*
|
||||
* TableName = 'WO_MAT'
|
||||
*
|
||||
* OPEN 'DICT.':TableName TO DictVar ELSE
|
||||
* ErrMsg('Unable to open DICT.':TableName:' in obj_MUWafers.')
|
||||
*
|
||||
* RETURN
|
||||
* END
|
||||
*
|
||||
* SearchString = 'MU_PS_NO':@VM:PSNo:@FM
|
||||
* SearchString := 'CURR_STATUS':@VM:'RTU':@FM
|
||||
*
|
||||
* Set_Status(0)
|
||||
*
|
||||
* OpenRecordIDs = ""
|
||||
* Option = ""
|
||||
* Flag = ""
|
||||
* Btree.Extract(SearchString, TableName, DictVar, OpenRecordIDs, option, flag)
|
||||
*
|
||||
* IF Get_Status(errCode) THEN ErrMsg(errCode)
|
||||
*
|
||||
* AvailMU_WOMatKeys = OpenRecordIDs
|
||||
*
|
||||
* END
|
||||
*
|
||||
* TypeOver = ''
|
||||
* TypeOver<PDISPLAY$> = AvailMU_WOMatKeys
|
||||
* TypeOver<PSELECT$> = 0
|
||||
* TypeOver<PPrintable$> = 1
|
||||
*
|
||||
* Dummy = Popup(@WINDOW,TypeOver,'WO_MAT_MAKEUP')
|
||||
END
|
||||
|
||||
* Code deprecated on 03/11/19 - DJS
|
||||
* IF ReactorType = 'EPP' THEN
|
||||
*
|
||||
* OPEN 'DICT.WM_OUT' TO DictVar ELSE
|
||||
* ErrMsg('Unable to open DICT.WM_OUT in COMM_WM_OUT.')
|
||||
* END
|
||||
*
|
||||
* SearchString = 'MU_PS_NO':@VM:PSNo:@FM
|
||||
*
|
||||
* Set_Status(0)
|
||||
*
|
||||
* MUWMOutIDs = ""
|
||||
* Option = ""
|
||||
* Flag = ""
|
||||
* Btree.Extract(SearchString, 'WM_OUT', DictVar, MUWMOutIDs, option, flag)
|
||||
*
|
||||
* IF Get_Status(errCode) THEN ErrMsg(errCode)
|
||||
*
|
||||
* AvailMU_WOMatKeys = MUWMOutIDs
|
||||
*
|
||||
* END ELSE
|
||||
*
|
||||
* TableName = 'WO_MAT'
|
||||
*
|
||||
* OPEN 'DICT.':TableName TO DictVar ELSE
|
||||
* ErrMsg('Unable to open DICT.':TableName:' in obj_MUWafers.')
|
||||
*
|
||||
* RETURN
|
||||
* END
|
||||
*
|
||||
* SearchString = 'MU_PS_NO':@VM:PSNo:@FM
|
||||
* SearchString := 'CURR_STATUS':@VM:'RTU':@FM
|
||||
*
|
||||
* Set_Status(0)
|
||||
*
|
||||
* OpenRecordIDs = ""
|
||||
* Option = ""
|
||||
* Flag = ""
|
||||
* Btree.Extract(SearchString, TableName, DictVar, OpenRecordIDs, option, flag)
|
||||
*
|
||||
* IF Get_Status(errCode) THEN ErrMsg(errCode)
|
||||
*
|
||||
* AvailMU_WOMatKeys = OpenRecordIDs
|
||||
*
|
||||
* END
|
||||
*
|
||||
* TypeOver = ''
|
||||
* TypeOver<PDISPLAY$> = AvailMU_WOMatKeys
|
||||
* TypeOver<PSELECT$> = 0
|
||||
* TypeOver<PPrintable$> = 1
|
||||
*
|
||||
* Dummy = Popup(@WINDOW,TypeOver,'WO_MAT_MAKEUP')
|
||||
END
|
||||
//Activation Parameters Check JRO - 2-24-2021
|
||||
IF NewStatus = 'A' then
|
||||
Error_Services('Clear')
|
||||
MsgStruct = ""
|
||||
MsgStruct<MTEXTWIDTH$> = MSG_WIDTH$
|
||||
GoSub ReactorVerification
|
||||
If Error_Services('NoError') then
|
||||
GoSub SpecVerification
|
||||
end
|
||||
If Error_Services('NoError') then
|
||||
GoSub ProdVerVerification
|
||||
end
|
||||
If Error_Services('NoError') then
|
||||
GoSub StageVerification
|
||||
end
|
||||
end
|
||||
end else
|
||||
Set_Property(@WINDOW:'.STATUS','DEFPROP', OldStatus)
|
||||
end
|
||||
|
||||
//Activation Parameters Check JRO - 2-24-2021
|
||||
IF NewStatus = 'A' AND OldStatus NE 'A' then
|
||||
Error_Services('Clear')
|
||||
MsgStruct = ""
|
||||
MsgStruct<MTEXTWIDTH$> = MSG_WIDTH$
|
||||
GoSub ReactorVerification
|
||||
If Error_Services('NoError') then
|
||||
GoSub SpecVerification
|
||||
end
|
||||
If Error_Services('NoError') then
|
||||
GoSub ProdVerVerification
|
||||
end
|
||||
If Error_Services('NoError') then
|
||||
GoSub StageVerification
|
||||
end
|
||||
end
|
||||
|
||||
RETURN
|
||||
|
||||
@ -1182,9 +1188,9 @@ BEGIN CASE
|
||||
|
||||
CASE MetTest = 'LW_RHO'
|
||||
|
||||
Units = 'ê/Ü' ;* Resistivity units for 'ohms square' (see Metrology_Units popup)
|
||||
Units = 'ê/Ü' ;* Resistivity units for 'ohms square' (see Metrology_Units popup)
|
||||
EpiProps = XLATE('PRS_PROP',PSNo:'*':LayerNo:'*RES','','X')
|
||||
IF EpiProps<PRS_PROP_UNITS_ORG$> = 'ê/Ü' THEN
|
||||
IF EpiProps<PRS_PROP_UNITS_ORG$> = 'ê/Ü' THEN
|
||||
DefProp = EpiProps<PRS_PROP_RAW_MIN$>
|
||||
END
|
||||
|
||||
@ -1203,9 +1209,9 @@ BEGIN CASE
|
||||
DefProp = XLATE('PRS_PROP',PSNo:'*':LayerNo:'*THICK',PRS_PROP_RAW_MAX$,'X')
|
||||
|
||||
CASE MetTest = 'LW_RHO'
|
||||
Units = 'ê/Ü' ;* Resistivity units for 'ohms square' (see Metrology_Units popup)
|
||||
Units = 'ê/Ü' ;* Resistivity units for 'ohms square' (see Metrology_Units popup)
|
||||
EpiProps = XLATE('PRS_PROP',PSNo:'*':LayerNo:'*RES','','X')
|
||||
IF EpiProps<PRS_PROP_UNITS_ORG$> = 'ê/Ü' THEN
|
||||
IF EpiProps<PRS_PROP_UNITS_ORG$> = 'ê/Ü' THEN
|
||||
DefProp = EpiProps<PRS_PROP_RAW_MAX$>
|
||||
END
|
||||
|
||||
@ -2512,7 +2518,7 @@ StageVerification:
|
||||
Stages = StageTable<1>
|
||||
IF Stages<1,1> EQ '' then
|
||||
|
||||
Message = 'No stages have been defined.'
|
||||
Message = 'No stages have been defined.' : CRLF$
|
||||
Msg(@Window, MsgStruct, 'PROCESS_ERROR', '', Message)
|
||||
Set_Property(@WINDOW:'.STATUS','VALUE','I')
|
||||
return
|
||||
@ -2580,4 +2586,3 @@ return
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user