Initial addition for Test Wafer Tracking Phase 2

Includes services and functions to create new test wafer lot. Tables included outside of git push New Tables: 1. LOT 2. LOT_EVENT 3. LOT_OPERATION 4. PRODUCT_OPERATION 5. OPERATION 6. Added PRODUCT_OPERATIONS field in TEST_WAFER_PROD table. All relational indexes and btree indexes.
2024-10-24 11:19:28 -07:00
parent f2a8ce4116
commit 9651c48539
22 changed files with 10609 additions and 9 deletions
--- a/LSL2/STPROC/NDW_LOG_TEST_WAFER_USAGE_EVENTS.txt
+++ b/LSL2/STPROC/NDW_LOG_TEST_WAFER_USAGE_EVENTS.txt
@ -0,0 +1,104 @@
+Compile function NDW_LOG_TEST_WAFER_USAGE_EVENTS(CtrlEntId, Event, @PARAMS)
+#pragma precomp SRP_PreCompiler
+#window NDW_LOG_TEST_WAFER_USAGE
+
+Declare function    Get_Property, Error_Services, Test_Run_Services, Reactor_Services, Tool_Services
+Declare subroutine  Set_Property, Error_Services
+
+$Insert LOGICAL
+$Insert TEST_RUN_EQUATES
+$Insert RDS_EQUATES
+
+GoToEvent Event for CtrlEntId else
+    // Event not implemented
+end
+
+Return EventFlow or 1
+
+//-----------------------------------------------------------------------------
+// EVENT HANDLERS
+//-----------------------------------------------------------------------------
+
+Event WINDOW.CREATE(CreateParam)
+    GoSub FillFormMasterData
+    debug
+    PresetRDSNo         = ''
+    PresetTestType      = ''
+    PresetEquipmentType = ''
+    PresetEquipmentId   = ''
+    If CreateParam NE '' then
+        RDSNo               = CreateParam<1, 1>
+        PresetTestType      = CreateParam<1, 2>
+        PresetEquipmentType = CreateParam<1, 3>
+        PresetEquipmentId   = CreateParam<1, 4>
+    end
+    If RDSNo NE '' AND RowExists('RDS', RDSNo) then
+        PSN = XLATE('RDS', RDSNo, RDS_PROD_SPEC_ID$, 'X')
+        Set_Property(@Window : '.EDL_RDS', 'TEXT', RDSNo)
+        Set_Property(@Window : '.EDL_PSN', 'TEXT', PSN)
+        Set_Property(@Window : '.EDL_PSN', 'ENABLED', False$)
+    end
+    If PresetTestType NE '' then
+        Begin Case
+            Case PresetTestType EQ 'STANDARD'
+                Set_Property(@Window : '.CMB_TEST_TYPE', 'TEXT', 'Standard Sampling')
+        End Case
+    end
+    If PresetEquipmentType NE '' then
+        Begin Case
+            Case PresetEquipmentType EQ 'Reactor'
+                Set_Property(@Window : '.CMB_EQUIP_TYPE', 'TEXT', 'Reactor')
+            Case PresetEquipmentType EQ 'Non-Reactor'
+                Set_Property(@Window : '.CMB_EQUIP_TYPE', 'TEXT', 'Tool')
+        End Case
+    end
+    If PresetEquipmentId NE '' then
+        SelectedEquipType = Get_Property(@Window : '.CMB_EQUIP_TYPE', 'TEXT')
+        Begin Case
+            Case SelectedEquipType EQ 'Reactor'
+                If RowExists('REACTOR', PresetEquipmentId) then
+                    Set_Property(@Window : '.CMB_EQUIPMENT_ID', 'TEXT', PresetEquipmentId)
+                end
+            Case SelectedEquipType EQ 'Non-Reactor'
+                If RowExists('REACTOR', PresetEquipmentId) then
+                    Set_Property(@Window : '.CMB_EQUIPMENT_ID', 'TEXT', PresetEquipmentId)
+                end
+        End Case
+    end
+    EventFlow = 1
+    
+End Event
+
+//-----------------------------------------------------------------------------
+// Internal GoSubs
+//-----------------------------------------------------------------------------
+
+FillFormMasterData:
+	//Get Test run type options. Populate to CMB_TEST_TYPE
+	TestRunTypeList = Test_Run_Services('GetAllTestRunTypes')
+	Set_Property(@Window, '@RUN_TYPE_OPTS', TestRunTypeList)
+	TestRunTypeOpts = ''
+	for each TestRunID in TestRunTypeList<1> using @VM setting tPos
+		TestRunName         = TestRunTypeList<2, tPos>
+		TestRunTypeOpts<-1> = TestRunName
+	Next TestRunID
+	Set_Property(@Window : '.CMB_TEST_TYPE', 'LIST', TestRunTypeOpts)
+	
+	//Get Tool and Reactor Identifiers and buffer them in user defined window properties @REACTOR_OPTS and @NON_REACTOR_OPTS
+	//Reactors
+	ReactorOpts    = Reactor_Services('GetReactorNumbers')
+	//Set_Property(@Window : '.EDT_REACTORS', 'TEXT', ReactorOpts)
+	Set_Property(@Window, '@REACTOR_OPTS', ReactorOpts)
+	
+	//Non Reactors
+	NonReactorOpts = Tool_Services('GetAllTools')
+	swap @VM with @FM in NonReactorOpts
+	Set_Property(@Window : '.EDT_NON_REACTORS', 'TEXT', NonReactorOpts)
+	Set_Property(@Window, '@NON_REACTOR_OPTS', NonReactorOpts)
+	//Then set the inital combo list to be filled with reactors because that is the default.
+	Set_Property(@Window : '.CMB_EQUIPMENT_ID', 'LIST', ReactorOpts)
+	//Get TW Products and store them in user defined window property @TW_PROD_OPTS
+	Prods    = Test_Run_Services('GetAllTWProdKeys', 1)
+	Set_Property(@Window, '@TW_PROD_OPTS', Prods)
+Return
+