%RegisteredObject Klasse:%Dictionary.CompiledClass,Stream:%Library.CharacterStream values = new HashMap() { { "_##class(TECH.ListUtils).ListToPieces(MapValues," ")_" } }; ") Do Stream.WriteLine(" ") Do Stream.WriteLine(" private "_..GeefKlasseNaam(Klasse)_"(java.lang.String value, java.lang.String displayValue)") Do Stream.WriteLine(" {") Do Stream.WriteLine(" this.value = value;") Do Stream.WriteLine(" this.displayValue = displayValue;") Do Stream.WriteLine(" }") Do Stream.WriteLine(" ") Do Stream.WriteLine(" public static "_..GeefKlasseNaam(Klasse)_" fromValue(java.lang.String value)") Do Stream.WriteLine(" {") Do Stream.WriteLine(" return values.get(value);") Do Stream.WriteLine(" }") Do Stream.WriteLine(" ") Do Stream.WriteLine(" @Override") Do Stream.WriteLine(" public java.lang.String toString()") Do Stream.WriteLine(" {") Do Stream.WriteLine(" return value;") Do Stream.WriteLine(" }") Do Stream.WriteLine("}") ]]> Klasse:%CompiledClass 1 %String EnumProperty:%String,Klasse:%CompiledClass 1 %String 0) Set EnumProperty = ##class(TECH.StringUtils).Replace(EnumProperty,"-","_") If '$Length(EnumProperty) Set EnumProperty = "ItemLegeWaarde" Quit EnumProperty ]]>