IF NOT EXISTS (lgcl) THEN   RETURN  (FALSE);  END_IF;
  IF lgcl <> TRUE      THEN  RETURN  (FALSE);  END_IF;
  RETURN (TRUE);