Commit to switch branches.

2025-06-10 13:45:52 -07:00
parent df5b217fe7
commit d021ab64b9
3 changed files with 151 additions and 18 deletions
--- a/LSL2/STPROC/RDS_LAYER_SERVICES.txt
+++ b/LSL2/STPROC/RDS_LAYER_SERVICES.txt
@ -2,9 +2,10 @@ Compile function RDS_LAYER_Services(@Service, @Params)
 #pragma precomp SRP_PreCompiler
 $insert LOGICAL
 $insert RDS_LAYER_EQUATES
+$INSERT RECIPE_PARMS_EQU

-Declare function   Database_Services, Error_Services, SRP_JSONX, SRP_JSONX_END, SRP_JSON
-Declare subroutine Error_Services, SRP_JSONX, SRP_JSONX_BEGIN, SRP_JSON
+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


 GoToService
@ -78,3 +79,102 @@ Service ConvertRecordToJSON(KeyID, Record, itemURL)
 end service


+Service UpdateRDSLayerSpecs(RDSNo)
+    
+    IF RDSNo = ''		THEN
+        Error_Services('RDSNo parameter missing from service')
+        return
+    end
+    
+    RDSLayerKeys = Xlate('RDS', RDSNo, 'RDS_LAYER_KEYS', 'X')
+
+    LayerCount = DCount(RDSLayerKeys, @FM)
+    For I = 1 to LayerCount
+        
+        RLKey = RDSLayerKeys<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
+            
+
+        RecipeNo	= RDSLayerRec<RDS_LAYER_RECIPE_NO$>
+        WOStepKey	= XLATE('RDS',RDSNo,RDS_WO_STEP_KEY$,'X')
+        PSNId		= XLATE('WO_STEP',WOStepKey,1,'X')
+
+        IF INDEX(LayerSet,'L',1) THEN
+            LayerLimits = obj_Recipe('GetLimits',RecipeNo:@RM:PSNId:@RM:LayerSet)
+
+            RDSLayerRec<RDS_LAYER_RECIPE_NO$>			= RecipeNo
+            RDSLayerRec<RDS_LAYER_DOPANT$>				= LayerLimits<RP_DOPANT$>
+
+            RDSLayerRec<RDS_LAYER_EPI_DILUENT$>			= LayerLimits<RP_EPI_DILUENT$>
+            
+            RDSLayerRec<RDS_LAYER_EPI_TIME_MIN$>		= LayerLimits<RP_DEPOSIT_TIME_MIN$>
+            RDSLayerRec<RDS_LAYER_EPI_TIME_MAX$>		= LayerLimits<RP_DEPOSIT_TIME_MAX$>
+            
+            RDSLayerRec<RDS_LAYER_DILUENT_MIN$>			= LayerLimits<RP_DILUENT_FLOW_MIN$>
+            RDSLayerRec<RDS_LAYER_DILUENT_MAX$>			= LayerLimits<RP_DILUENT_FLOW_MAX$>
+            
+            RDSLayerRec<RDS_LAYER_DOPANT_FLOW_MIN$>		= LayerLimits<RP_DOPANT_FLOW_MIN$>
+            RDSLayerRec<RDS_LAYER_DOPANT_FLOW_MAX$>		= LayerLimits<RP_DOPANT_FLOW_MAX$>
+            
+            RDSLayerRec<RDS_LAYER_HCL_FLOW_MIN$>		= LayerLimits<RP_HCL_FLOW_MIN$>
+            RDSLayerRec<RDS_LAYER_HCL_FLOW_MAX$>		= LayerLimits<RP_HCL_FLOW_MAX$>
+            
+            RDSLayerRec<RDS_LAYER_BAKE_TIME_MIN$>		= LayerLimits<RP_BAKE_TIME_MIN$>
+            RDSLayerRec<RDS_LAYER_BAKE_TIME_MAX$>		= LayerLimits<RP_BAKE_TIME_MAX$>
+            
+            RDSLayerRec<RDS_LAYER_EPI_H2_FLOW_MIN$>		= LayerLimits<RP_H2_FLOW_MIN$>
+            RDSLayerRec<RDS_LAYER_EPI_H2_FLOW_MAX$>		= LayerLimits<RP_H2_FLOW_MAX$>
+            
+            RDSLayerRec<RDS_LAYER_TCS_FLOW_MIN$>		= LayerLimits<RP_TCS_FLOW_MIN$>
+            RDSLayerRec<RDS_LAYER_TCS_FLOW_MAX$>		= LayerLimits<RP_TCS_FLOW_MAX$>
+            
+            RDSLayerRec<RDS_LAYER_DCS_FLOW_MIN$>		= LayerLimits<RP_DCS_FLOW_MIN$>
+            RDSLayerRec<RDS_LAYER_DCS_FLOW_MAX$>		= LayerLimits<RP_DCS_FLOW_MAX$>
+            
+            RDSLayerRec<RDS_LAYER_AUX1_MIN$>			= LayerLimits<RP_AUX1_FLOW_MIN$>
+            RDSLayerRec<RDS_LAYER_AUX1_MAX$>			= LayerLimits<RP_AUX1_FLOW_MAX$>
+            
+            RDSLayerRec<RDS_LAYER_AUX2_MIN$>			= LayerLimits<RP_AUX2_FLOW_MIN$>
+            RDSLayerRec<RDS_LAYER_AUX2_MAX$>			= LayerLimits<RP_AUX2_FLOW_MAX$>
+            
+            RDSLayerRec<RDS_LAYER_F_OFFSET_MIN$>		= LayerLimits<RP_FOFFSET_MIN$>
+            RDSLayerRec<RDS_LAYER_F_OFFSET_MAX$>		= LayerLimits<RP_FOFFSET_MAX$>
+            
+            RDSLayerRec<RDS_LAYER_S_OFFSET_MIN$>		= LayerLimits<RP_SOFFSET_MIN$>
+            RDSLayerRec<RDS_LAYER_S_OFFSET_MAX$>		= LayerLimits<RP_SOFFSET_MAX$>
+            
+            RDSLayerRec<RDS_LAYER_R_OFFSET_MIN$>		= LayerLimits<RP_ROFFSET_MIN$>
+            RDSLayerRec<RDS_LAYER_R_OFFSET_MAX$>		= LayerLimits<RP_ROFFSET_MAX$>
+            
+            RDSLayerRec<RDS_LAYER_SUSC_ETCH_MIN$>		= LayerLimits<RP_SUSC_ETCH_MIN$>
+            RDSLayerRec<RDS_LAYER_SUSC_ETCH_MAX$>		= LayerLimits<RP_SUSC_ETCH_MAX$>
+            
+            RDSLayerRec<RDS_LAYER_ETCH1_MIN$>			= LayerLimits<RP_ETCH1_MIN$>
+            RDSLayerRec<RDS_LAYER_ETCH1_MAX$>			= LayerLimits<RP_ETCH1_MAX$>
+            
+            RDSLayerRec<RDS_LAYER_ETCH2_MIN$>			= LayerLimits<RP_ETCH2_MIN$>
+            RDSLayerRec<RDS_LAYER_ETCH2_MAX$>			= LayerLimits<RP_ETCH2_MAX$>
+            
+            RDSLayerRec<RDS_LAYER_ETCH3_MIN$> = LayerLimits<RP_ETCH3_MIN$>
+            RDSLayerRec<RDS_LAYER_ETCH3_MAX$> = LayerLimits<RP_ETCH3_MAX$>
+            
+            RDSLayerRec<RDS_LAYER_UL_TEMP_MIN$> = LayerLimits<RP_UL_TEMP_MIN$>
+            RDSLayerRec<RDS_LAYER_UL_TEMP_MAX$> = LayerLimits<RP_UL_TEMP_MAX$>
+            
+        END
+
+        RLParms = FieldStore(RLParms, @RM, 4, 1, RDSLayerRec)
+        obj_Tables('WriteOnlyRec',RLParms)		
+            
+    Next I
+   
+end service