declare
	l_portalSchema_public varchar2(100);

	procedure exec(p_stmt in varchar2)
	is
	begin
		execute immediate p_stmt;
	exception
		when others
		then
			null;
	end;
begin

	select ~portalSchema.wwctx_api.get_public_schema into l_portalSchema_public from dual;

	exec('revoke execute on wmp_pages from ' || l_portalSchema_public);
	exec('revoke execute on wmp_api_call from ' || l_portalSchema_public);
	exec('revoke execute on wmp_favorites_pages from ' || l_portalSchema_public);
	exec('revoke execute on wmp_administration_pages from ' || l_portalSchema_public);

	exec('revoke execute on wmp_launcher_portlet from ' || l_portalSchema_public);
	exec('revoke execute on wmp_navigator_portlet from ' || l_portalSchema_public);
	exec('revoke execute on wmp_reports_portlet from ' || l_portalSchema_public);
	exec('revoke execute on wmp_favorites_portlet from ' || l_portalSchema_public);
	exec('revoke execute on wmp_administrator_portlet from ' || l_portalSchema_public);
	exec('revoke execute on wmp_api_doc from ' || l_portalSchema_public);
	exec('revoke execute on wmp_api_favorites from ' || l_portalSchema_public);
	exec('revoke execute on wmp_lia from ' || l_portalSchema_public);
	exec('revoke execute on lia_client from ' || l_portalSchema_public);

end;