121 lines
2.9 KiB
Plaintext
121 lines
2.9 KiB
Plaintext
COMPILE FUNCTION obj_React_State(Method,Parms)
|
|
|
|
/*
|
|
Methods for REACT_STATE (Reactor State) table
|
|
|
|
10/9/2013 JCH - Initial Coding
|
|
|
|
Properties:
|
|
|
|
Methods:
|
|
|
|
SetSpecParms(DataStruct) ;* Create new record
|
|
|
|
|
|
*/
|
|
|
|
|
|
DECLARE SUBROUTINE Set_Status, Msg, obj_Tables, Send_Dyn, ErrMsg, Database_Services
|
|
|
|
DECLARE FUNCTION Get_Status, Msg, Utility, obj_Tables, NextKey, Send_Dyn, Database_Services, Error_Services
|
|
|
|
|
|
$INSERT REACT_STATE_EQUATES
|
|
$INSERT PROD_SPEC_EQUATES
|
|
$INSERT LOGICAL
|
|
|
|
|
|
EQU CRLF$ TO \0D0A\
|
|
EQU TAB$ TO \09\
|
|
|
|
|
|
ErrTitle = 'Error in Stored Procedure "obj_React_State"'
|
|
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 = 'ReactRunUnload' ; GOSUB ReactRunUnload
|
|
|
|
|
|
CASE 1
|
|
|
|
|
|
END CASE
|
|
|
|
IF ErrorMsg NE '' THEN
|
|
Set_Status(-1,ErrTitle:@SVM:ErrorMsg)
|
|
END
|
|
|
|
RETURN Result
|
|
|
|
|
|
* * * * * * *
|
|
ReactRunUnload:
|
|
* * * * * * *
|
|
|
|
* Upadate all parameters set at Reactor Unload signature *
|
|
|
|
ReactNo = Parms[1,@RM]
|
|
PSNo = Parms[COL2()+1,@RM]
|
|
RDSNo = Parms[COL2()+1,@RM]
|
|
UnloadDTM = Parms[COL2()+1,@RM]
|
|
|
|
IF ReactNo = '' THEN ErrorMsg = 'Null Parameter "ReactNo" passed to routine. (':Method:')'
|
|
IF PSNo = '' THEN ErrorMsg = 'Null Parameter "PSNo" passed to routine. (':Method:')'
|
|
IF RDSNo = '' THEN ErrorMsg = 'Null Parameter "RDSNo" passed to routine. (':Method:')'
|
|
IF UnloadDTM = '' THEN ErrorMsg = 'Null Parameter "UnloadDTM" passed to routine. (':Method:')'
|
|
|
|
thisUnloadDTM = ICONV(UnloadDTM,'DT')
|
|
IF thisUnloadDTM = '' THEN
|
|
ErrorMsg = 'Invalid "UnloadDTM" value ':QUOTE(UnloadDTM):' passed to routine. (':Method:')'
|
|
END
|
|
|
|
IF ErrorMsg NE '' THEN RETURN
|
|
|
|
PSRec = XLATE('PROD_SPEC',PSNo,'','X')
|
|
|
|
IF PSRec = '' THEN
|
|
ErrorMsg = 'Prod Spec record ':QUOTE(PSNo):' is empty! (':Method:')'
|
|
RETURN
|
|
END
|
|
|
|
|
|
* otParms = 'REACT_STATE':@RM:ReactNo
|
|
* RSRec = obj_Tables('ReadRec',otParms)
|
|
|
|
RSRec = Database_Services('ReadDataRow', 'REACT_STATE', ReactNo)
|
|
|
|
* IF Get_Status(errCode) THEN RETURN
|
|
|
|
If Error_Services('NoError') then
|
|
|
|
|
|
RSRec<REACT_STATE_RESTRICTOR$> = PSRec<PROD_SPEC_WAND_RESTRICTER$>
|
|
RSRec<REACT_STATE_RATIOS$> = PSRec<PROD_SPEC_RATIOS$>
|
|
RSRec<REACT_STATE_PINNED_SUSCEPTOR$> = PSRec<PROD_SPEC_PINNED_SUSCEPTOR$>
|
|
RSRec<REACT_STATE_TUBE_PRESSURE$> = PSRec<PROD_SPEC_TUBE_PRESSURE_TYPE$>
|
|
RSRec<REACT_STATE_DOPANT$> = XLATE('PROD_SPEC',PSNo,'DOPANT_L1','X')
|
|
|
|
RSRec<REACT_STATE_LAST_RDS_NO$> = RDSNo
|
|
RSRec<REACT_STATE_LAST_UNLOAD_DTM$> = thisUnloadDTM
|
|
|
|
Database_Services('WriteDataRow', 'REACT_STATE', ReactNo, RSRec, True$, False$, True$)
|
|
|
|
end
|
|
|
|
* otParms = FieldStore(otParms,@RM,4,0,RSRec)
|
|
* obj_Tables('WriteRec',otParms)
|
|
|
|
RETURN
|
|
|
|
|