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