added LSL2 stored procedures

LSL2/STPROC/TEST_OBJ_WO_MAT_WFR.txt

@@ -0,0 +1,44 @@
+COMPILE ROUTINE TEST_OBJ_WO_MAT_WFR(Dummy)
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE obj_WO_Wfr, Set_Status, ErrMsg, obj_WO_Mat_Wfr
+DECLARE FUNCTION Get_Status, obj_WO_Wfr, obj_WO_Mat_Wfr
+
+$INSERT PART_EQUATES
+$INSERT WO_MAT_WFR_EQUATES
+
+
+Set_Status(0)
+
+DEBUG
+
+a = obj_WO_Mat_Wfr('GetPostEpiSlots','162188')
+
+debug
+
+GOTO Bail
+
+/*
+BEGIN CASE
+	CASE NewSlotID = '' AND CurrSlotID NE ''
+		obj_WO_Mat_Wfr('ClearWfrID',CurrSlotID:@RM:@RM:WfrSide)			;* Removes wafer from slot in WO_MAT_WFR record
+		
+	CASE NewSlotID NE '' AND CurrSlotID NE ''
+		obj_WO_Mat_Wfr('SetWfrID',NewSlotID:@RM:WfrID:@RM:WfrSide)		;* Adds Wafer ID to NewSlotID in WO_MAT_WFR table
+		obj_WO_Mat_Wfr('ClearWfrID',CurrSlotID:@RM:@RM:WfrSide)			;* Removes wafer from CurrSlotIDin WO_MAT_WFR record
+		
+	CASE NewSlotID NE '' AND CurrSlotID = ''
+		obj_WO_Mat_Wfr('SetWfrID',NewSlotID:@RM:WfrID:@RM:WfrSide)		;* Adds Wafer ID to NewSlotID in WO_MAT_WFR table
+		
+	CASE 1
+		NULL
+		
+END Case
+
+*/
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+RETURN