compile function LOAD_EVAL_WAFER_ID() 
begin condition
pre:
post:
end condition

declare function msg, fieldcount, next_key, get_property, set_property
declare subroutine rlist

$insert msg_equates
$insert logical
$insert spc_limits_equ

CurRange = get_property( @window:'.EVALRANGE', 'TEXT' )
SPCLimits = xlate( 'CONFIG', 'SPC_LIMITS', '', 'X' )
if @window = 'SPC_EVAL_FTIR' and ( CurRange <> '' ) then
   begin case
   	case CurRange = 'High' 
         CurWaferIDs = SPCLimits<EvalFTIRHWaferID$>
      case CurRange = 'Mid'
         CurWaferIDs = SPCLimits<EvalFTIRMWaferID$>
      case CurRange = 'Low'
			CurWaferIDs = SPCLimits<EvalFTIRLWaferID$>
	end case
	WafCnt = fieldcount( CurWaferIDs, @vm )
	for i = WafCnt to 1 step -1
	   ThisWaferID = CurWaferIDs<1,i>
	   if ThisWaferID <> '' then
         Void = set_property( @window:'.EVALFTIRWAFERID', 'LIST', ThisWaferID )
      end
     until ThisWaferID <> ''
   next i
end else
   if ( CurRange <> '' ) then
	   begin case
	   	case CurRange = 'High'
			   CurWaferIDs = SPCLimits<Eval4PPHWaferID$>
			case CurRange = 'Mid'
			   CurWaferIDs = SPCLimits<Eval4PPMWaferID$>
			case CurRange = 'Low'		  
			   CurWaferIDs = SPCLimits<Eval4PPLWaferID$>
		end case
		WafCnt = fieldcount( CurWaferIDs, @vm )
		for i = WafCnt to 1 step -1
		   ThisWaferID = CurWaferIDs<1,i>
		   if ThisWaferID <> '' then
	         Void = set_property( @window:'.EVAL4PPWAFERID', 'LIST', ThisWaferID )
	      end
	     until ThisWaferID <> ''	      
	   next i
	end
end

return 0