1 %RegisteredObject 0 Klasse:%String,ContextClassDefinition:TECH.ClassInfo.ClassDefinition 1 %String 0) && (QualifiedName = "")) { Set KlasseNaam = $Piece(ContextClassDefinition.GeefPackage(),".",1,Piece)_"."_Klasse If (##class(%Dictionary.ClassDefinition).%ExistsId(KlasseNaam)) { Set QualifiedName = KlasseNaam } Set Piece = Piece - 1 } /// Kijk naar de imports If (QualifiedName = "") { Set ImportsIterator = ContextClassDefinition.GeefImports() While (ImportsIterator.HasNext() && (QualifiedName = "")) { Set Import = ImportsIterator.Next() If (##class(%Dictionary.ClassDefinition).%ExistsId(Import_"."_Klasse)) { Set QualifiedName = Import_"."_Klasse } } } } Else { Set QualifiedName = Klasse } Quit QualifiedName ]]>