added LSL2 stored procedures
This commit is contained in:
Infineon\StieberD
860
LSL2/STPROC/COMM_PROD_SPEC_SI.txt
Normal file
860
LSL2/STPROC/COMM_PROD_SPEC_SI.txt
Normal file
@ -0,0 +1,860 @@
|
||||
COMPILE FUNCTION Comm_Prod_Spec_SI(Instruction, Parm1,Parm2)
|
||||
|
||||
/*
|
||||
Commuter module for PROD_SPEC_SI (Product Specification SI) window
|
||||
|
||||
01/16/2009 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Send_Event, Set_Status
|
||||
DECLARE SUBROUTINE ErrMsg, Send_Message, Set_Property, Send_Event, obj_AppWindow
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Utility, Popup, Collect.Ixvals
|
||||
DECLARE FUNCTION Send_Message, obj_PR_Spec, Msg, Security_Check, Start_Window
|
||||
|
||||
$INSERT MSG_EQUATES
|
||||
$INSERT APPCOLORS
|
||||
$INSERT LSL_USERS_EQU
|
||||
$INSERT PROD_SPEC_EQU
|
||||
$INSERT QUOTE_SPEC_EQU
|
||||
$INSERT RECIPE_EQU
|
||||
$INSERT RECIPE_LAYER_INFO_EQU ;* Another *($&@^! rathole!
|
||||
$INSERT POPUP_EQUATES
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
EQU COL$LS_ID TO 1
|
||||
EQU COL$REC_NO TO 2
|
||||
EQU COL$REC_DESC TO 3
|
||||
EQU COL$THK_MIN TO 4
|
||||
EQU COL$THK_MAX TO 5
|
||||
EQU COL$THK_UNITS TO 6
|
||||
EQU COL$RES_MIN TO 7
|
||||
EQU COL$RES_MAX TO 8
|
||||
EQU COL$RES_UNITS TO 9
|
||||
EQU COL$CON_MIN TO 10
|
||||
EQU COL$CON_MAX TO 11
|
||||
EQU COL$CON_UNITS TO 12
|
||||
EQU COL$CRES_MIN TO 13
|
||||
EQU COL$CRES_MAX TO 14
|
||||
EQU COL$CRES_UNITS TO 15
|
||||
EQU COL$CRES_PHASE_MIN TO 16
|
||||
|
||||
EQU COL$DOPANT TO 2
|
||||
EQU COL$THK_MEASURE TO 3
|
||||
EQU COL$RES_MEASURE TO 4
|
||||
EQU COL$CON_MEASURE TO 5
|
||||
EQU COL$CRES_MEASURE TO 6
|
||||
|
||||
ErrTitle = 'Error in Comm_Prod_Spec_SI'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Instruction = 'Create' ; GOSUB Create
|
||||
CASE Instruction = 'LSATableDC' ; GOSUB LSATableDC
|
||||
CASE Instruction = 'LSTableDC' ; GOSUB LSTableDC
|
||||
CASE Instruction = 'LSTableDel' ; GOSUB LSTableDel
|
||||
CASE Instruction = 'LSATableDel' ; GOSUB LSATableDel
|
||||
CASE Instruction = 'Save' ; GOSUB Save
|
||||
CASE Instruction = 'LSAPC' ; GOSUB LSAPC
|
||||
CASE Instruction = 'LSPC' ; GOSUB LSPC
|
||||
|
||||
CASE 1
|
||||
ErrorMsg = 'Unknown Instruction passed to routine.'
|
||||
ErrMsg(ErrorMsg)
|
||||
END CASE
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
* * * * * *
|
||||
Create:
|
||||
* * * * * *
|
||||
|
||||
SaveCheckControls = ''
|
||||
|
||||
obj_AppWindow('Create')
|
||||
|
||||
Set_Property(@WINDOW:'.LS_TABLE','VISIBLE',1)
|
||||
Set_Property(@WINDOW:'.LSA_TABLE','VISIBLE',1)
|
||||
|
||||
ColStyle = Send_Message(@WINDOW:'.LS_TABLE', 'COLSTYLE', COL$REC_NO)
|
||||
ColStyle = bitor(ColStyle, 262144)
|
||||
ColStyle = Send_Message(@WINDOW:'.LS_TABLE', 'COLSTYLE', COL$REC_NO, ColStyle)
|
||||
|
||||
ColStyle = Send_Message(@WINDOW:'.LS_TABLE', 'COLSTYLE', COL$THK_UNITS)
|
||||
ColStyle = bitor(ColStyle, 262144)
|
||||
ColStyle = Send_Message(@WINDOW:'.LS_TABLE', 'COLSTYLE', COL$THK_UNITS, ColStyle)
|
||||
|
||||
ColStyle = Send_Message(@WINDOW:'.LS_TABLE', 'COLSTYLE', COL$RES_UNITS)
|
||||
ColStyle = bitor(ColStyle, 262144)
|
||||
ColStyle = Send_Message(@WINDOW:'.LS_TABLE', 'COLSTYLE', COL$RES_UNITS, ColStyle)
|
||||
|
||||
ColStyle = Send_Message(@WINDOW:'.LS_TABLE', 'COLSTYLE', COL$CON_UNITS)
|
||||
ColStyle = bitor(ColStyle, 262144)
|
||||
ColStyle = Send_Message(@WINDOW:'.LS_TABLE', 'COLSTYLE', COL$CON_UNITS, ColStyle)
|
||||
|
||||
ColStyle = Send_Message(@WINDOW:'.LS_TABLE', 'COLSTYLE', COL$CRES_UNITS)
|
||||
ColStyle = bitor(ColStyle, 262144)
|
||||
ColStyle = Send_Message(@WINDOW:'.LS_TABLE', 'COLSTYLE', COL$CRES_UNITS, ColStyle)
|
||||
|
||||
Set_Property(@WINDOW:'.LS_TABLE','HEADERHEIGHT',30)
|
||||
|
||||
HeaderText = Get_Property(@WINDOW:'.LS_TABLE','LABEL')
|
||||
|
||||
HeaderText<COL$REC_NO> = HeaderText<COL$REC_NO>:CHAR(13):'<dc>'
|
||||
HeaderText<COL$THK_UNITS> = HeaderText<COL$THK_UNITS>:CHAR(13):'<dc>'
|
||||
HeaderText<COL$RES_UNITS> = HeaderText<COL$RES_UNITS>:CHAR(13):'<dc>'
|
||||
HeaderText<COL$CON_UNITS> = HeaderText<COL$CON_UNITS>:CHAR(13):'<dc>'
|
||||
HeaderText<COL$CRES_UNITS> = HeaderText<COL$CRES_UNITS>:CHAR(13):'<dc>'
|
||||
|
||||
Set_Property(@WINDOW:'.LS_TABLE','LABEL',HeaderText)
|
||||
SubstrateInfo = Parm1[1,CHAR(244)]
|
||||
EpiInfo = Parm1[COL2()+1,CHAR(244)]
|
||||
AddlInfo = Parm1[COL2()+1,CHAR(244)]
|
||||
NDInfo = Parm1[COL2()+1,CHAR(244)]
|
||||
PPInfo = Parm1[COL2()+1,CHAR(244)]
|
||||
|
||||
CONVERT @SVM TO '' IN EpiInfo
|
||||
|
||||
LSCnt = COUNT(EpiInfo,Char(248)) + (EpiInfo NE '')
|
||||
|
||||
LSList = ''
|
||||
LSAList = ''
|
||||
|
||||
FOR I = 1 TO LSCnt
|
||||
|
||||
BEGIN CASE
|
||||
CASE I = 1
|
||||
Layer = 'L1'
|
||||
|
||||
CASE I = 2
|
||||
IF LSCnt = 3 THEN
|
||||
Layer = 'L2'
|
||||
END ELSE
|
||||
Layer = '2'
|
||||
END
|
||||
|
||||
CASE I = 3 ; Layer = '2'
|
||||
CASE 1 ; Layer = I-1
|
||||
END CASE
|
||||
|
||||
EpiLayer = FIELD(EpiInfo,CHAR(248),I)
|
||||
|
||||
LSList<I,COL$LS_ID> = Layer
|
||||
LSList<I,COL$REC_NO > = EpiLayer<1,QSEpiRecipe$>
|
||||
LSList<I,COL$REC_DESC> = EpiLayer<1,QSEpiRecipeName$>
|
||||
LSList<I,COL$THK_MIN> = OCONV(EpiLayer<1,QSEpiMinThick$>,'MD3')
|
||||
LSList<I,COL$THK_MAX> = OCONV(EpiLayer<1,QSEpiMaxThick$>,'MD3')
|
||||
LSList<I,COL$THK_UNITS> = EpiLayer<1,QSEpiThickUnits$>
|
||||
LSList<I,COL$RES_MIN> = OCONV(EpiLayer<1,QSEpiResMinThick$>,'MD3')
|
||||
LSList<I,COL$RES_MAX> = OCONV(EpiLayer<1,QSEpiResMaxThick$>,'MD3')
|
||||
LSList<I,COL$RES_UNITS> = EpiLayer<1,QSEpiResUnits$>
|
||||
LSList<I,COL$CON_MIN> = OCONV(EpiLayer<1,QSEpiConcMinThick$>,'MS21')
|
||||
LSList<I,COL$CON_MAX> = OCONV(EpiLayer<1,QSEpiConcMaxThick$>,'MS21')
|
||||
LSList<I,COL$CON_UNITS> = EpiLayer<1,QSEpiConcUnits$>
|
||||
LSList<I,COL$CRES_MIN> = OCONV(EpiLayer<1,QSEpiCresMin$>,'MD3')
|
||||
LSList<I,COL$CRES_MAX> = OCONV(EpiLayer<1,QSEpiCresMax$>,'MD3')
|
||||
LSList<I,COL$CRES_UNITS> = EpiLayer<1,QSEpiCresUnits$>
|
||||
LSList<I,COL$CRES_PHASE_MIN> = EpiLayer<1,QSEpiCresPhaseMin$>
|
||||
|
||||
LSAList<I,COL$LS_ID> = Layer
|
||||
LSAList<I,COL$DOPANT> = EpiLayer<1,QSEpiDopant$>
|
||||
LSAList<I,COL$THK_MEASURE> = EpiLayer<1,QSEpiThickMeasure$>
|
||||
LSAList<I,COL$RES_MEASURE> = EpiLayer<1,QSEpiResMeasure$>
|
||||
LSAList<I,COL$CON_MEASURE> = EpiLayer<1,QSEpiConcMeasure$>
|
||||
LSAList<I,COL$CRES_MEASURE> = EpiLayer<1,QSEpiCresMeasure$>
|
||||
|
||||
NEXT I
|
||||
|
||||
IF LSCnt = 0 THEN
|
||||
LSList = STR(@VM,16)
|
||||
LSAList = STR(@VM,5)
|
||||
END
|
||||
Set_Property(@WINDOW:'.LSA_TABLE','LIST',LSAList)
|
||||
Set_Property(@WINDOW:'.LS_TABLE','LIST',LSList)
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LSTableDC:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
RowData = Get_Property(@WINDOW:'.LS_TABLE','ROWDATA')
|
||||
CONVERT @FM TO @VM IN RowData
|
||||
|
||||
CurrPos = Get_Property(@WINDOW:'.LS_TABLE','SELPOS')
|
||||
CurrCol = CurrPos<1>
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
MDataCurr = RowData<1,CurrCol>
|
||||
|
||||
BEGIN CASE
|
||||
CASE CurrCol = COL$REC_NO
|
||||
RecID = ''
|
||||
|
||||
Option = Msg(@WINDOW,'','RECIPE_OPTIONS') ; * Select, Create New or Cancel
|
||||
BEGIN CASE
|
||||
CASE Option = 1
|
||||
RecID = Popup(@WINDOW,'','CHOOSE_RECIPE') ;* Select List
|
||||
CASE Option = 2
|
||||
IF MDataCurr = '' THEN
|
||||
Void = Start_Window( 'RECIPE', @WINDOW, '*Choosing', '', '' )
|
||||
END ELSE
|
||||
Void = Start_Window( 'RECIPE', @WINDOW, MDataCurr:'*CENTER', '', '' )
|
||||
END
|
||||
CASE 1
|
||||
RETURN
|
||||
END CASE
|
||||
|
||||
|
||||
IF RecID NE '' THEN
|
||||
oaParms = RecID:@RM:@WINDOW:'.LS_TABLE':@RM:COL$REC_NO:@FM:CurrRow
|
||||
obj_Appwindow('LUValReturn',oaParms)
|
||||
END
|
||||
|
||||
|
||||
CASE CurrCol = COL$THK_UNITS
|
||||
TypeOver = ''
|
||||
TypeOver<PTITLE$> = 'Thickness Units of Measurement'
|
||||
TypeOver<PDISPLAY$> = 'THICK':@SVM:'Thickness':@SVM:'Micron':@SVM:'æm':@VM
|
||||
TypeOver<PDISPLAY$> = TypeOver<PDISPLAY$>:'THICK':@SVM:'Thickness':@SVM:'Angstrom':@SVM:''
|
||||
|
||||
Units = Popup(@WINDOW,TypeOver,'METROLOGY_UNITS')
|
||||
|
||||
IF Units NE '' THEN
|
||||
oaParms = Units:@RM:@WINDOW:'.LS_TABLE':@RM:COL$THK_UNITS:@FM:CurrRow
|
||||
obj_Appwindow('LUValReturn',oaParms)
|
||||
END
|
||||
|
||||
|
||||
CASE CurrCol = COL$RES_UNITS
|
||||
TypeOver = ''
|
||||
TypeOver<PTITLE$> = 'Resistance Units of Measurement'
|
||||
TypeOver<PDISPLAY$> = 'RES':@SVM:'Resistivity':@SVM:'Ohms.Cm':@SVM:'ê-cm':@VM
|
||||
TypeOver<PDISPLAY$> = TypeOver<PDISPLAY$>:'RES':@SVM:'Resistivity':@SVM:'Ohms/Sq':@SVM:'ê/Ü'
|
||||
|
||||
Units = Popup(@WINDOW,TypeOver,'METROLOGY_UNITS')
|
||||
IF Units NE '' THEN
|
||||
oaParms = Units:@RM:@WINDOW:'.LS_TABLE':@RM:COL$RES_UNITS:@FM:CurrRow
|
||||
obj_Appwindow('LUValReturn',oaParms)
|
||||
END
|
||||
|
||||
|
||||
CASE CurrCol = COL$CON_UNITS
|
||||
TypeOver = ''
|
||||
TypeOver<PTITLE$> = 'Concentration - Units of Measurement'
|
||||
TypeOver<PDISPLAY$> = 'CONC':@SVM:'Concentration':@SVM:'Carriers.Cubic Centimeter':@SVM:'cm-3'
|
||||
|
||||
|
||||
TypeOver<PINITSELECT$> = 1
|
||||
Units = Popup(@WINDOW,TypeOver,'METROLOGY_UNITS')
|
||||
IF Units NE '' THEN
|
||||
oaParms = Units:@RM:@WINDOW:'.LS_TABLE':@RM:COL$CON_UNITS:@FM:CurrRow
|
||||
obj_Appwindow('LUValReturn',oaParms)
|
||||
END
|
||||
|
||||
|
||||
CASE CurrCol = COL$CRES_UNITS
|
||||
TypeOver = ''
|
||||
TypeOver<PTITLE$> = 'Mercury Probe - Units of Measurement'
|
||||
TypeOver<PDISPLAY$> = 'CRES':@SVM:'HgCvResistivity':@SVM:'Ohms.Cm':@SVM:'ê-cm'
|
||||
|
||||
TypeOver<PINITSELECT$> = 1
|
||||
Units = Popup(@WINDOW,TypeOver,'METROLOGY_UNITS')
|
||||
IF Units NE '' THEN
|
||||
oaParms = Units:@RM:@WINDOW:'.LS_TABLE':@RM:COL$CRES_UNITS:@FM:CurrRow
|
||||
obj_Appwindow('LUValReturn',oaParms)
|
||||
END
|
||||
|
||||
|
||||
END CASE
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LSATableDC:
|
||||
* * * * * * *
|
||||
RowData = Get_Property(@WINDOW:'.LSA_TABLE','ROWDATA')
|
||||
CONVERT @FM TO @VM IN RowData
|
||||
|
||||
CurrPos = Get_Property(@WINDOW:'.LSA_TABLE','SELPOS')
|
||||
CurrCol = CurrPos<1>
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
MDataCurr = RowData<1,CurrCol>
|
||||
|
||||
|
||||
BEGIN CASE
|
||||
CASE CurrCol = COL$THK_MEASURE
|
||||
|
||||
MType = 'THICK'
|
||||
MDesc = 'Thickness'
|
||||
|
||||
MDataNew = Dialog_Box( 'PROD_SPEC_SI4', @WINDOW, MDataCurr:CHAR(245):MType:CHAR(245):' ':MDesc:CHAR(245):'CENTER' )
|
||||
IF MDataNew NE '' AND MDataNew NE MDataCurr THEN
|
||||
Set_Property(@WINDOW:'.LSA_TABLE','CELLPOS',MDataNew,COL$THK_MEASURE:@FM:CurrRow)
|
||||
END
|
||||
|
||||
CASE CurrCol = COL$RES_MEASURE
|
||||
|
||||
MType = 'RES'
|
||||
MDesc = 'Resistivity'
|
||||
|
||||
MDataNew = Dialog_Box( 'PROD_SPEC_SI4', @WINDOW, MDataCurr:CHAR(245):MType:CHAR(245):' ':MDesc:CHAR(245):'CENTER' )
|
||||
IF MDataNew NE '' AND MDataNew NE MDataCurr THEN
|
||||
Set_Property(@WINDOW:'.LSA_TABLE','CELLPOS',MDataNew,COL$RES_MEASURE:@FM:CurrRow)
|
||||
END
|
||||
|
||||
CASE CurrCol = COL$CON_MEASURE
|
||||
|
||||
MType = 'CON'
|
||||
MDesc = 'Concentration'
|
||||
|
||||
MDataNew = Dialog_Box( 'PROD_SPEC_SI4', @WINDOW, MDataCurr:CHAR(245):MType:CHAR(245):' ':MDesc:CHAR(245):'CENTER' )
|
||||
IF MDataNew NE '' AND MDataNew NE MDataCurr THEN
|
||||
Set_Property(@WINDOW:'.LSA_TABLE','CELLPOS',MDataNew,COL$CON_MEASURE:@FM:CurrRow)
|
||||
END
|
||||
|
||||
CASE CurrCol = COL$CRES_MEASURE
|
||||
|
||||
MType = 'RCON'
|
||||
MDesc = 'Concentration Resistance'
|
||||
|
||||
MDataNew = Dialog_Box( 'PROD_SPEC_SI4', @WINDOW, MDataCurr:CHAR(245):MType:CHAR(245):' ':MDesc:CHAR(245):'CENTER' )
|
||||
IF MDataNew NE '' AND MDataNew NE MDataCurr THEN
|
||||
Set_Property(@WINDOW:'.LSA_TABLE','CELLPOS',MDataNew,COL$CRES_MEASURE:@FM:CurrRow)
|
||||
END
|
||||
|
||||
END CASE
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LSAPC:
|
||||
* * * * * * *
|
||||
|
||||
CtrlEntID = 'PROD_SPEC_SI.LSA_TABLE'
|
||||
|
||||
LSAList = Get_Property(CtrlEntID,'LIST')
|
||||
LSAInArray = Get_Property(CtrlEntID,'INVALUE')
|
||||
LSList = Get_Property('PROD_SPEC_SI.LS_TABLE','LIST')
|
||||
|
||||
|
||||
PrevSelPos = Get_Property(CtrlEntId,"PREVSELPOS")
|
||||
PrevCol = PrevSelPos<1>
|
||||
PrevRow = PrevSelPos<2>
|
||||
|
||||
CurrPos = Get_Property(CtrlEntId,'SELPOS')
|
||||
CurrCol = CurrPos<1>
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
|
||||
* LostFocus checks
|
||||
|
||||
LSIds = LSAInArray<COL$LS_ID>
|
||||
|
||||
* This section maintains the Layer Set ID column
|
||||
|
||||
GoodLines = 0
|
||||
LineCnt = COUNT(LSAList,@FM) + (LSAList NE '')
|
||||
|
||||
LOOP
|
||||
TestLine = LSAList[-1,'B':@FM]
|
||||
TestLine = FIELD(TestLine,@VM,2,14)
|
||||
UNTIL TestLine NE STR(@VM,13)
|
||||
LSAList = DELETE(LSAList,LineCnt,0,0)
|
||||
Set_Property(CtrlEntID,'INVALUE','',COL$LS_ID:@FM:LineCnt)
|
||||
LineCnt -= 1
|
||||
REPEAT
|
||||
|
||||
|
||||
LSArray = ''
|
||||
FOR I = 1 TO LineCnt
|
||||
BEGIN CASE
|
||||
CASE I = 1
|
||||
Layer = 'L1'
|
||||
|
||||
CASE I = 2
|
||||
IF LineCnt = 3 THEN
|
||||
Layer = 'L2'
|
||||
END ELSE
|
||||
Layer = '2'
|
||||
END
|
||||
|
||||
CASE I = 3 ; Layer = '2'
|
||||
CASE 1 ; Layer = I-1
|
||||
END CASE
|
||||
|
||||
IF LSAInArray<COL$LS_ID> NE Layer THEN
|
||||
Set_Property(CtrlEntID,'INVALUE',Layer,COL$LS_ID:@FM:I)
|
||||
END
|
||||
|
||||
NEXT I
|
||||
|
||||
|
||||
IF LSAList<PrevRow,PrevCol> NE '' THEN
|
||||
|
||||
BEGIN CASE
|
||||
|
||||
CASE PrevCol = COL$DOPANT
|
||||
|
||||
SpecDopant = LSAList<PrevRow,PrevCol>
|
||||
RecipeID = LSList<PrevRow,COL$REC_NO>
|
||||
|
||||
IF SpecDopant NE '' AND RecipeID NE '' THEN
|
||||
IF PrevRow = 1 THEN
|
||||
RecipeDopant = XLATE( 'RECIPE', RecipeID, RECIPE_EPI_DOPANT$, 'X' )
|
||||
END ELSE
|
||||
RecLayInfo = XLATE( 'RECIPE', RecipeID, RECIPE_LAYER_INFO$, 'X' ) ;* Retrives rathole data for layers > 1
|
||||
RecipeDopant = RecLayInfo<PrevRow - 1,RecLEpiDopant$>
|
||||
END
|
||||
|
||||
IF SpecDopant NE RecipeDopant THEN
|
||||
ErrMsg('Dopant entered ':Quote(SpecDopant):' does not match the dopant on the recipe ':QUOTE(RecipeDopant):'.')
|
||||
Set_Property(CtrlEntID,"SELPOS",PrevSelPos)
|
||||
Set_Property(CtrlEntID,'INVALUE','',PrevSelPos) ;* Clear entered field
|
||||
END
|
||||
END
|
||||
|
||||
END CASE
|
||||
END
|
||||
|
||||
|
||||
* Gotfocus checks
|
||||
|
||||
IF CurrCol = COL$LS_ID THEN
|
||||
Set_Property(CtrlEntId,'SELPOS',CurrCol + 1:@FM:CurrRow)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LSPC:
|
||||
* * * * * * *
|
||||
|
||||
CtrlEntID = 'PROD_SPEC_SI.LS_TABLE'
|
||||
|
||||
LSList = Get_Property(CtrlEntID,'LIST')
|
||||
LSInArray = Get_Property(CtrlEntID,'INVALUE')
|
||||
LSAList = Get_Property('PROD_SPEC_SI.LSA_TABLE','LIST')
|
||||
|
||||
PrevSelPos = Get_Property(CtrlEntId,"PREVSELPOS")
|
||||
PrevCol = PrevSelPos<1>
|
||||
PrevRow = PrevSelPos<2>
|
||||
|
||||
CurrPos = Get_Property(CtrlEntId,'SELPOS')
|
||||
CurrCol = CurrPos<1>
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
|
||||
* LostFocus checks
|
||||
|
||||
|
||||
LSIds = LSInArray<COL$LS_ID>
|
||||
|
||||
* This section maintains the Layer Set ID column
|
||||
|
||||
GoodLines = 0
|
||||
LineCnt = COUNT(LSList,@FM) + (LSList NE '')
|
||||
|
||||
LOOP
|
||||
TestLine = LSList[-1,'B':@FM]
|
||||
TestLine = FIELD(TestLine,@VM,2,14)
|
||||
UNTIL TestLine NE STR(@VM,13)
|
||||
LSList = DELETE(LSList,LineCnt,0,0)
|
||||
Set_Property(CtrlEntID,'INVALUE','',COL$LS_ID:@FM:LineCnt)
|
||||
LineCnt -= 1
|
||||
REPEAT
|
||||
|
||||
|
||||
LSArray = ''
|
||||
FOR I = 1 TO LineCnt
|
||||
BEGIN CASE
|
||||
CASE I = 1
|
||||
Layer = 'L1'
|
||||
|
||||
CASE I = 2
|
||||
IF LineCnt = 3 THEN
|
||||
Layer = 'L2'
|
||||
END ELSE
|
||||
Layer = '2'
|
||||
END
|
||||
|
||||
CASE I = 3 ; Layer = '2'
|
||||
CASE 1 ; Layer = I-1
|
||||
END CASE
|
||||
|
||||
IF LSInArray<COL$LS_ID> NE Layer THEN
|
||||
Set_Property(CtrlEntID,'INVALUE',Layer,COL$LS_ID:@FM:I)
|
||||
END
|
||||
|
||||
NEXT I
|
||||
|
||||
BEGIN CASE
|
||||
|
||||
CASE PrevCol = COL$REC_NO
|
||||
|
||||
SpecDopant = LSAList<PrevRow,COL$DOPANT>
|
||||
RecipeID = LSList<PrevRow,COL$REC_NO>
|
||||
RecipeName = LSList<PrevRow,COL$REC_DESC>
|
||||
|
||||
IF SpecDopant NE '' AND RecipeID NE '' THEN
|
||||
IF PrevRow = 1 THEN
|
||||
RecipeDopant = XLATE( 'RECIPE', RecipeID, RECIPE_EPI_DOPANT$, 'X' )
|
||||
END ELSE
|
||||
RecLayInfo = XLATE( 'RECIPE', RecipeID, RECIPE_LAYER_INFO$, 'X' ) ;* Retrives rathole data for layers > 1
|
||||
RecipeDopant = RecLayInfo<PrevRow - 1,RecLEpiDopant$>
|
||||
END
|
||||
|
||||
IF SpecDopant NE RecipeDopant THEN
|
||||
ErrMsg('Dopant entered ':Quote(SpecDopant):' does not match the dopant on the recipe ':QUOTE(RecipeDopant):'.')
|
||||
Set_Property(CtrlEntID,"SELPOS",PrevSelPos)
|
||||
Set_Property(CtrlEntID,'INVALUE','',PrevSelPos) ;* Clear entered field
|
||||
END
|
||||
END
|
||||
|
||||
IF SpecDopant = '' AND RecipeID NE '' THEN
|
||||
IF PrevRow = 1 THEN
|
||||
RecipeDopant = XLATE( 'RECIPE', RecipeID, RECIPE_EPI_DOPANT$, 'X' )
|
||||
END ELSE
|
||||
RecLayInfo = XLATE( 'RECIPE', RecipeID, RECIPE_LAYER_INFO$, 'X' ) ;* Retrives rathole data for layers > 1
|
||||
RecipeDopant = RecLayInfo<PrevRow - 1,RecLEpiDopant$>
|
||||
END
|
||||
|
||||
Set_Property('PROD_SPEC_SI.LSA_TABLE','INVALUE',RecipeDopant,COL$DOPANT:@FM:PrevRow) ;* Sets null default for Dopant
|
||||
|
||||
|
||||
END
|
||||
|
||||
IF RecipeID NE '' THEN
|
||||
RecipeName = XLATE( 'RECIPE', RecipeId, RECIPE_RECIPE_NAME$, 'X' )
|
||||
END ELSE
|
||||
RecipeName = ''
|
||||
END
|
||||
|
||||
Set_Property(CtrlEntID,"SELPOS",COL$REC_DESC:@FM:PrevRow)
|
||||
Set_Property(CtrlEntID,'INVALUE',RecipeName,COL$REC_DESC:@FM:PrevRow)
|
||||
|
||||
|
||||
|
||||
|
||||
CASE PrevCol = COL$THK_MIN OR PrevCol = COL$THK_MAX
|
||||
ThickMin = LSInArray<COL$THK_MIN,PrevRow>
|
||||
ThickMax = LSInArray<COL$THK_MAX,PrevRow>
|
||||
|
||||
IF ThickMin NE '' AND ThickMax NE '' THEN
|
||||
IF ThickMin > ThickMax THEN
|
||||
ErrMsg('Thickness Minimum is greater than the Thickness Maximum in ':LSInArray<COL$LS_ID,PrevRow>:'.')
|
||||
Set_Property(CtrlEntID,'SELPOS',PrevPos)
|
||||
END
|
||||
END
|
||||
|
||||
CASE PrevCol = COL$RES_MIN OR PrevCOl = COL$RES_MAX
|
||||
ResMin = LSInArray<COL$RES_MIN,PrevRow>
|
||||
ResMax = LSInArray<COL$RES_MAX,PrevRow>
|
||||
|
||||
IF ResMin NE '' AND ResMax NE '' THEN
|
||||
IF ResMin > ResMax THEN
|
||||
ErrMsg('Resistance Minimum is greater than the Resistance Maximum in ':LSInArray<COL$LS_ID,PrevRow>:'.')
|
||||
Set_Property(CtrlEntID,'SELPOS',PrevPos)
|
||||
END
|
||||
END
|
||||
|
||||
CASE PrevCol = COL$CON_MIN OR PrevCol = COL$CON_MAX
|
||||
NULL
|
||||
|
||||
CASE PrevCol = COL$CRES_MIN OR PrevCol = COL$CRES_MAX
|
||||
CResMin = LSInArray<COL$CRES_MIN>
|
||||
CResMax = LSInArray<COL$CRES_MAX>
|
||||
|
||||
IF CResMin NE '' AND CResMax NE '' THEN
|
||||
IF CResMin > CResMax THEN
|
||||
ErrMsg('CResistance Minimum is greater than the CResistance Maximum in ':LSInArray<COL$LS_ID,PrevRow>:'.')
|
||||
Set_Property(CtrlEntID,'SELPOS',PrevPos)
|
||||
END
|
||||
END
|
||||
|
||||
END CASE
|
||||
|
||||
|
||||
IF CurrCol = COL$LS_ID THEN
|
||||
Set_Property(CtrlEntId,'SELPOS',CurrCol + 1:@FM:CurrRow)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LSTableDel:
|
||||
* * * * * * *
|
||||
|
||||
CtrlEntID = 'PROD_SPEC_SI.LS_TABLE'
|
||||
|
||||
LSList = Get_Property(CtrlEntID,'LIST')
|
||||
LSInArray = Get_Property(CtrlEntID,'INVALUE')
|
||||
LSAList = Get_Property('PROD_SPEC_SI.LSA_TABLE','LIST')
|
||||
|
||||
PrevSelPos = Get_Property(CtrlEntId,"PREVSELPOS")
|
||||
PrevCol = PrevSelPos<1>
|
||||
PrevRow = PrevSelPos<2>
|
||||
|
||||
CurrPos = Get_Property(CtrlEntId,'SELPOS')
|
||||
CurrCol = CurrPos<1>
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
|
||||
LSIds = LSInArray<COL$LS_ID>
|
||||
|
||||
* This section maintains the Layer Set ID column
|
||||
GoodLines = 0
|
||||
LineCnt = COUNT(LSList,@FM) + (LSList NE '')
|
||||
|
||||
LOOP
|
||||
TestLine = LSList[-1,'B':@FM]
|
||||
TestLine = FIELD(TestLine,@VM,2,14)
|
||||
UNTIL TestLine NE STR(@VM,13)
|
||||
LSList = DELETE(LSList,LineCnt,0,0)
|
||||
Set_Property(CtrlEntID,'INVALUE','',COL$LS_ID:@FM:LineCnt)
|
||||
LineCnt -= 1
|
||||
REPEAT
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LSATableDel:
|
||||
* * * * * * *
|
||||
|
||||
CtrlEntID = 'PROD_SPEC_SI.LSA_TABLE'
|
||||
|
||||
LSList = Get_Property(CtrlEntID,'LIST')
|
||||
LSInArray = Get_Property(CtrlEntID,'INVALUE')
|
||||
LSAList = Get_Property('PROD_SPEC_SI.LSA_TABLE','LIST')
|
||||
|
||||
PrevSelPos = Get_Property(CtrlEntId,"PREVSELPOS")
|
||||
PrevCol = PrevSelPos<1>
|
||||
PrevRow = PrevSelPos<2>
|
||||
|
||||
CurrPos = Get_Property(CtrlEntId,'SELPOS')
|
||||
CurrCol = CurrPos<1>
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
LSIds = LSInArray<COL$LS_ID>
|
||||
|
||||
* This section maintains the Layer Set ID column
|
||||
|
||||
GoodLines = 0
|
||||
LineCnt = COUNT(LSList,@FM) + (LSList NE '')
|
||||
|
||||
LOOP
|
||||
TestLine = LSList[-1,'B':@FM]
|
||||
TestLine = FIELD(TestLine,@VM,2,14)
|
||||
UNTIL TestLine NE STR(@VM,13)
|
||||
LSList = DELETE(LSList,LineCnt,0,0)
|
||||
Set_Property(CtrlEntID,'INVALUE','',COL$LS_ID:@FM:LineCnt)
|
||||
LineCnt -= 1
|
||||
REPEAT
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Save:
|
||||
* * * * * * *
|
||||
|
||||
* New completeness check added on 20 JAN 2011 by JCH
|
||||
|
||||
LSList = Get_Property(@WINDOW:'.LS_TABLE','LIST')
|
||||
|
||||
LineCnt = COUNT(LSList,@FM) + (LSList NE '')
|
||||
|
||||
FOR I = 1 TO LineCnt
|
||||
|
||||
IF LSList<I,COL$LS_ID> NE '' THEN
|
||||
|
||||
ThickMin = LSList<I,COL$THK_MIN> ; ThickMax = LSList<I,COL$THK_MAX> ; ThickUnits = LSList<I,COL$THK_UNITS>
|
||||
|
||||
IF ThickMin NE '' OR ThickMax NE '' THEN
|
||||
IF ThickMin = '' OR ThickMax = '' OR ThickUnits = '' THEN
|
||||
ErrMsg('Incomplete Thickness Specification on Layer Set ':LSList<I,COL$LS_ID>:'...')
|
||||
RETURN
|
||||
END
|
||||
END
|
||||
|
||||
ResMin = LSList<I,COL$RES_MIN> ; ResMax = LSList<I,COL$RES_MAX> ; ResUnits = LSList<I,COL$RES_UNITS>
|
||||
|
||||
IF ResMin NE '' OR ResMax NE '' THEN
|
||||
IF ResMin = '' OR ResMax = '' OR ResUnits = '' THEN
|
||||
ErrMsg('Incomplete Resistivity Specification on Layer Set ':LSList<I,COL$LS_ID>:'...')
|
||||
RETURN
|
||||
END
|
||||
END
|
||||
|
||||
ConMin = LSList<I,COL$CON_MIN> ; ConMax = LSList<I,COL$CON_MAX> ; ConUnits = LSList<I,COL$CON_UNITS>
|
||||
|
||||
IF ConMin NE '' OR ConMax NE '' THEN
|
||||
IF ConMin = '' OR ConMax = '' OR ConUnits = '' THEN
|
||||
ErrMsg('Incomplete Concentration Specification on Layer Set ':LSList<I,COL$LS_ID>:'...')
|
||||
RETURN
|
||||
END
|
||||
END
|
||||
|
||||
CResMin = LSList<I,COL$CRES_MIN> ; CResMax = LSList<I,COL$CRES_MAX> ; CResUnits = LSList<I,COL$CRES_UNITS>
|
||||
|
||||
IF CResMin NE '' OR CResMax NE '' THEN
|
||||
IF CResMin = '' OR CResMax = '' OR CResUnits = '' THEN
|
||||
ErrMsg('Incomplete CResistivity Specification on Layer Set ':LSList<I,COL$LS_ID>:'...')
|
||||
RETURN
|
||||
END
|
||||
END
|
||||
|
||||
END ;* End of check for Layer Set ID
|
||||
NEXT I
|
||||
|
||||
|
||||
* This needs to end up setting @EpiInfo on the window
|
||||
|
||||
LSAArray = Get_Property(@WINDOW:'.LSA_TABLE','INVALUE')
|
||||
LSArray = Get_Property(@WINDOW:'.LS_TABLE','INVALUE')
|
||||
Product = Get_Property(@WINDOW:'.SUB_PRODUCTS','TEXT')
|
||||
|
||||
IF Product NE '' THEN
|
||||
CurProducts = xlate( 'LISTBOX_CONFIG', 'PRODUCTS', '', 'X' )
|
||||
LOCATE Product IN CurProducts USING @VM SETTING Ppos ELSE
|
||||
MsgInfo = ''
|
||||
ErrMsg('Product ':QUOTE(Product):' is not valid.')
|
||||
|
||||
RETURN
|
||||
END
|
||||
END ELSE
|
||||
ErrMsg('You must select a product.')
|
||||
|
||||
RETURN
|
||||
END
|
||||
|
||||
|
||||
L1RecipeID = LSArray<COL$REC_NO,1>
|
||||
|
||||
IF L1RecipeID NE '' THEN
|
||||
|
||||
RecipePSNs = XLATE( 'RECIPE', L1RecipeID, RECIPE_PROD_SPEC_IDS$, 'X' )
|
||||
CurPSN = Get_Property( 'PROD_SPEC.PROD_SPEC_ID', 'TEXT' )
|
||||
|
||||
LOCATE CurPSN IN RecipePSNs USING @VM SETTING FPos ELSE
|
||||
MsgInfo = ''
|
||||
MText = 'This PSN ':quote(CurPSN):' is not set up in recipe ':quote(L1RecipeID)
|
||||
MText := " with it's own recipe limits. If this PSN is activated and goes through the"
|
||||
MText := ' system without these limits, the system will use the top row limits in the'
|
||||
MText := ' recipe. Please notify an engineer to handle this issue.'
|
||||
MsgInfo<mtext$> = MText
|
||||
MsgInfo<micon$> = '!'
|
||||
Msg( '', MsgInfo )
|
||||
END
|
||||
END
|
||||
|
||||
|
||||
SubPreClean = Get_Property( @WINDOW:'.SUB_PRE_CLEAN', 'TEXT' )
|
||||
|
||||
IF INDEX( SubPreClean,'Akrion', 1 ) THEN
|
||||
PreAkrionRecipe = Get_Property( @WINDOW:'.PRECLEAN_AKRIONRECIPES', 'TEXT' )
|
||||
IF PreAkrionRecipe = '' THEN
|
||||
MsgInfo = ''
|
||||
ErrMsg('You must select a pre clean akrion recipe...')
|
||||
|
||||
RETURN
|
||||
END
|
||||
END
|
||||
|
||||
SubPostClean = Get_Property( @WINDOW:'.SUB_POST_CLEAN', 'TEXT' )
|
||||
IF INDEX( SubPostClean, 'Akrion', 1 ) THEN
|
||||
PostAkrionRecipe = Get_Property( @WINDOW:'.POSTCLEAN_AKRIONRECIPES', 'TEXT' )
|
||||
IF PostAkrionRecipe = '' THEN
|
||||
ErrMsg('You must select a post clean akrion recipe...')
|
||||
|
||||
RETURN
|
||||
END
|
||||
END
|
||||
|
||||
Result = 1
|
||||
|
||||
SaveEpiInfo = ''
|
||||
|
||||
LSIDs = ''
|
||||
|
||||
FOR I = 1 TO 9
|
||||
LSID = LSArray<COL$LS_ID,I>
|
||||
UNTIL LSID = ''
|
||||
|
||||
SaveEpiInfo<I,QSEpiRecipe$> = LSArray<COL$REC_NO,I>
|
||||
SaveEpiInfo<I,QSEpiRecipeName$> = LSArray<COL$REC_DESC,I>
|
||||
SaveEpiInfo<I,QSEpiConcMinThick$> = LSArray<COL$CON_MIN,I>
|
||||
SaveEpiInfo<I,QSEpiConcMaxThick$> = LSArray<COL$CON_MAX,I>
|
||||
SaveEpiInfo<I,QSEpiConcUnits$> = LSArray<COL$CON_UNITS,I>
|
||||
SaveEpiInfo<I,QSEpiResMinThick$> = LSArray<COL$RES_MIN,I>
|
||||
SaveEpiInfo<I,QSEpiResMaxThick$> = LSArray<COL$RES_MAX,I>
|
||||
SaveEpiInfo<I,QSEpiResUnits$> = LSArray<COL$RES_UNITS,I>
|
||||
SaveEpiInfo<I,QSEpiMinThick$> = LSArray<COL$THK_MIN,I>
|
||||
SaveEpiInfo<I,QSEpiMaxThick$> = LSArray<COL$THK_MAX,I>
|
||||
SaveEpiInfo<I,QSEpiThickUnits$> = LSArray<COL$THK_UNITS,I>
|
||||
SaveEpiInfo<I,QSEpiCresMin$> = LSArray<COL$CRES_MIN,I>
|
||||
SaveEpiInfo<I,QSEpiCresMax$> = LSArray<COL$CRES_MAX,I>
|
||||
SaveEpiInfo<I,QSEpiCresUnits$> = LSArray<COL$CRES_UNITS,I>
|
||||
SaveEpiInfo<I,QSEpiCresPhaseMin$> = LSArray<COL$CRES_PHASE_MIN,I>
|
||||
SaveEpiInfo<I,QSEpiDopant$> = LSAArray<COL$DOPANT,I>
|
||||
SaveEpiInfo<I,QSEpiThickMeasure$> = LSAArray<COL$THK_MEASURE,I>
|
||||
SaveEpiInfo<I,QSEpiResMeasure$> = LSAArray<COL$RES_MEASURE,I>
|
||||
SaveEpiInfo<I,QSEpiConcMeasure$> = LSAArray<COL$CON_MEASURE,I>
|
||||
SaveEpiInfo<I,QSEpiCresMeasure$> = LSAArray<COL$CRES_MEASURE,I>
|
||||
|
||||
NEXT I
|
||||
|
||||
|
||||
CONVERT @FM TO CHAR(248) IN SaveEpiInfo
|
||||
|
||||
Set_Property(@WINDOW,'@EpiInfoTest',SaveEpiInfo)
|
||||
|
||||
Controls = Get_Property( @WINDOW, '@SubControls' )
|
||||
SubstrateInfo = Get_Property( Controls, 'INVALUE' )
|
||||
|
||||
CONVERT @RM TO @VM IN SubstrateInfo
|
||||
SWAP @TM WITH CRLF$ IN SubstrateInfo
|
||||
|
||||
Controls = Get_Property( @WINDOW, '@AddlControls' )
|
||||
AddlInfo = Get_Property( Controls, 'INVALUE' )
|
||||
|
||||
CONVERT @RM TO @VM IN AddlInfo
|
||||
SWAP @TM WITH CRLF$ IN AddlInfo
|
||||
|
||||
Controls = Get_Property( @WINDOW, '@NDControls' )
|
||||
NDInfo = Get_Property( Controls, 'INVALUE' )
|
||||
|
||||
CONVERT @RM TO @VM IN NDInfo
|
||||
|
||||
Controls = Get_Property( @WINDOW, '@PPControls' )
|
||||
PPInfo = Get_Property( Controls, 'INVALUE' )
|
||||
|
||||
CONVERT @RM TO @VM IN PPInfo
|
||||
|
||||
|
||||
ReturnData = SubstrateInfo:CHAR(244):SaveEpiInfo:CHAR(244):AddlInfo:CHAR(244):NDInfo:CHAR(244):PPInfo
|
||||
|
||||
|
||||
Set_Property(@WINDOW,'@ReturnData', ReturnData)
|
||||
|
||||
Result = ReturnData
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
Reference in New Issue
Block a user