anchor.diff:  parameter_name_style(#'Externalvaluereference'{}) ->
       beginning_lowercase.
   
  -is_lowercase(X) when X >= $A,X =< $W ->
  -    false;
  -is_lowercase(_) ->
  -    true.
  -		
   %% categorize(Parameter) -> CategorizedParameter
   %% If Parameter has an abstract syntax of another category than
   %% Category, transform it to a known syntax.
  
positive.code:     [];
  get_taglist(S,#'ObjectClassFieldType'{type={fixedtypevaluefield,_,Type}}) ->
      get_taglist(S,Type);
  get_taglist(S,{ERef=#'Externaltypereference'{},FieldNameList})
    when is_list(FieldNameList) ->
      case get_ObjectClassFieldType(S,ERef,FieldNameList) of
  	{fixedtypevaluefield,_,Type} -> get_taglist(S,Type);
  	{TypeFieldName,_} when is_atom(TypeFieldName) -> []%should check if allowed
      end;
  get_taglist(S,{ObjCl,FieldNameList}) when is_record(ObjCl,objectclass),
  					  is_list(FieldNameList) ->
      case get_ObjectClassFieldType(S,ObjCl#objectclass.fields,FieldNameList) of
  	{fixedtypevaluefield,_,Type} -> get_taglist(S,Type);
  	{TypeFieldName,_} when is_atom(TypeFieldName) -> []%should check if allowed
      end;
  get_taglist(_, _) ->
      [].
  
  
negative.code: 		    OCFT#'ObjectClassFieldType'{fieldname=FieldNames,
  						type=Type}
  	    end
      end.
  
  is_open_type(#'ObjectClassFieldType'{type='ASN1_OPEN_TYPE'}) ->
  