phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Final fixes.

Browse Source
This commit is contained in:
Infineon\Mitchem
2025-06-30 13:12:11 -07:00
committed by Stieber Daniel (CSC FI SPS MESLEO)
parent 521c35af8f
commit 8f25d78fe6
2 changed files with 89 additions and 102 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
LSL2/STPROC/NDW_RDS_QUERY_EVENTS.txt
View File

@ -215,7 +215,7 @@ Event PUB_ENG_OPTIONS.CLICK()
Case SelOpt EQ 'CLEAN_INSP':@VM: 'UPDATE_RDS_LAYER'
Caption = "Updating RDS Layer and Clean & Insp specs for selected RDS cassettes..."
ServiceModules = 'WO_MAT_QA_SERVICES':@VM:'RDS_LAYER_SERVICES'
ServiceModules = 'CLEAN_INSP_SERVICES':@VM:'RDS_LAYER_SERVICES'
Services = 'UpdateAllCleanInsp':@VM:'UpdateRDSLayerSpecs'
Case SelOpt EQ 'CLEAN_INSP':@VM:'QA_MET':@VM: 'UPDATE_RDS_LAYER'
@ -679,3 +679,4 @@ return

56
LSL2/STPROC/RDS_LAYER_SERVICES.txt
View File

@ -1,11 +1,14 @@
Compile function RDS_LAYER_Services(@Service, @Params)
#pragma precomp SRP_PreCompiler
$insert LOGICAL
$Insert SERVICE_SETUP
$insert APP_INSERTS
$insert RDS_LAYER_EQUATES
$INSERT RECIPE_PARMS_EQU
$Insert RDS_Equates
Declare function Database_Services, Error_Services, SRP_JSONX, SRP_JSONX_END, SRP_JSON, Obj_Tables, Obj_Recipe
Declare subroutine Error_Services, SRP_JSONX, SRP_JSONX_BEGIN, SRP_JSON, Obj_Tables, Set_Status
Declare subroutine Error_Services, SRP_JSONX, SRP_JSONX_BEGIN, SRP_JSON, Obj_Tables, Set_Status, Database_Services
GoToService
@ -50,27 +53,7 @@ Service ConvertRecordToJSON(KeyID, Record, itemURL)
SRP_JSON(objRDSLayer, 'Release')
end
* SRP_JsonX_Begin('rdslayer', '{')
* SRP_JsonX('keyId',@ID)
* SRP_JsonX('EpiTime', OCONV(Record<RDS_LAYER_EPI_TIME$>, 'MD1'))
* SRP_JsonX('DiluentAdjParam', OCONV(Record<RDS_LAYER_DILUENT_ADJ_PARAM$>,'MD2'))
* SRP_JsonX('DopantFlow', OCONV(Record<RDS_LAYER_DOPANT_FLOW$>,'MD2'))
* SRP_JsonX('HCLFlow', OCONV(Record<RDS_LAYER_HCL_FLOW$>,'MD2'))
* SRP_JsonX('BakeTime', OCONV(Record<RDS_LAYER_BAKE_TIME$>,'[SECONDS_CONV]'))
* SRP_JsonX('EpiH2Flow', OCONV(Record<RDS_LAYER_EPI_H2_FLOW$>,'MD0'))
* SRP_JsonX('TCSFlow', OCONV(Record<RDS_LAYER_TCS_FLOW$>, 'MD1'))
* SRP_JsonX('DCSFlow', OCONV(Record<RDS_LAYER_DCS_FLOW$>,'MD0'))
* SRP_JsonX('FOffset', OCONV(Record<RDS_LAYER_F_OFFSET$>,'MD0'))
* SRP_JsonX('SOffset', OCONV(Record<RDS_LAYER_S_OFFSET$>,'MD0'))
* SRP_JsonX('ROffset', OCONV(Record<RDS_LAYER_R_OFFSET$>,'MD0'))
* SRP_JsonX('Etch1', OCONV(Record<RDS_LAYER_ETCH1$>,'[SECONDS_CONV]'))
* SRP_JsonX('Etch2', OCONV(Record<RDS_LAYER_ETCH2$>,'[SECONDS_CONV]'))
* SRP_JsonX('Etch3', OCONV(Record<RDS_LAYER_ETCH3$>,'[SECONDS_CONV]'))
* SRP_JsonX('AUX1', OCONV(Record<RDS_LAYER_AUX1$>,'[SECONDS_CONV]'))
* SRP_JsonX('AUX2', OCONV(Record<RDS_LAYER_AUX2$>,'[SECONDS_CONV]'))
* SRP_JsonX('ULTemp', OCONV(Record<RDS_LAYER_UL_TEMP$>,'MD0'))
* SRP_JsonX('SuscEtch', OCONV(Record<RDS_LAYER_SUSC_ETCH$>,'MD1'))
* jsonRecord = SRP_JsonX_End('Pretty')
end
end else
Error_Services('Add', 'KeyID argument was missing in the ' : Service : ' service.')
@ -81,6 +64,7 @@ end service
Service UpdateRDSLayerSpecs(RDSNo)
ErrMsg = ''
IF RDSNo = '' THEN
Error_Services('RDSNo parameter missing from service')
return
@ -88,21 +72,15 @@ Service UpdateRDSLayerSpecs(RDSNo)
RDSLayerKeys = Xlate('RDS', RDSNo, 'RDS_LAYER_KEYS', 'X')
LayerCount = DCount(RDSLayerKeys, @FM)
LayerCount = DCount(RDSLayerKeys, @VM)
For I = 1 to LayerCount
RLKey = RDSLayerKeys<I>
RLKey = RDSLayerKeys<1,I>
LayerSet = Field(RLKey, '*', 2)
Set_Status(0)
RLParms = 'RDS_LAYER':@RM:RLKey
RDSLayerRec = obj_Tables('ReadOnlyRec',RLParms)
IF Get_Status(errCode) THEN
Error_Services('Add', errCode)
RETURN
END
RDSLayerRec = Database_Services('ReadDataRow', 'RDS_LAYER', RLKey, '', '', '')
IF Error_Services('NoError') then
RecipeNo = RDSLayerRec<RDS_LAYER_RECIPE_NO$>
WOStepKey = XLATE('RDS',RDSNo,RDS_WO_STEP_KEY$,'X')
@ -172,9 +150,17 @@ Service UpdateRDSLayerSpecs(RDSNo)
END
RLParms = FieldStore(RLParms, @RM, 4, 1, RDSLayerRec)
obj_Tables('WriteOnlyRec',RLParms)
Database_Services('WriteDataRow', 'RDS_LAYER', RLKey, RDSLayerRec, True$, False$, False$)
end else
Errmsg = Error_Services('GetMessage')
end
Until Errmsg NE ''
Next I
If ErrMsg NE '' then Error_Services('Add',ErrMsg)
end service