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

OUT_Active = false;
'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
		if not empty('Location Code' of window 'SOP_Entry' of form 'SOP_Entry') then
			'Location Code' of table IV_Location_SETP = 'Location Code' of window 'SOP_Entry' of form 'SOP_Entry'.
			get table IV_Location_SETP.
			if err() = OKAY then
				if 'Country' of table IV_Location_SETP <> 'User Class' of table SY_Users_MSTR then
					beep WARNSOUND.
					warning "This site is not available.".
					OUT_Active = true;
				end if.
			end if.
		end if.
	end if.
end if.