out boolean OUT_Active;
{default form to 'Vendor_Address_Lookup';}
{default window to 'Vendor_Address_Lookup';}

OUT_Active = false;

{ Get Current User's Class }
'User ID' of table SY_Users_MSTR = 'User ID' of globals;
get table SY_Users_MSTR;
if err() = OKAY then
	if not empty('User Class' of table SY_Users_MSTR) then

		{ Get Record from table, if it exists }
		'Vendor ID' of table PM_Vendor_MSTR = 'Vendor ID' of window 'Vendor_Address_Lookup' of form 'Vendor_Address_Lookup';
		get table PM_Vendor_MSTR;
		if err() = OKAY then

			{ Validate User Defined Field }
			if 'User Defined 2' of table PM_Vendor_MSTR <> 'User Class' of table SY_Users_MSTR then
				clear window 'Address_Lookup_Scroll' of form 'Vendor_Address_Lookup';
				clear 'Vendor ID' of window 'Vendor_Address_Lookup' of form 'Vendor_Address_Lookup';
			end if;

		end if;

	end if;
end if;