Index: DOM/common/impl/LocatieAPI.cls.xml
===================================================================
diff -u -r35575 -r35613
--- DOM/common/impl/LocatieAPI.cls.xml	(.../LocatieAPI.cls.xml)	(revision 35575)
+++ DOM/common/impl/LocatieAPI.cls.xml	(.../LocatieAPI.cls.xml)	(revision 35613)
@@ -3,7 +3,7 @@
 <Class name="DOM.common.impl.LocatieAPI">
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject,DOM.common.LocatieAPI</Super>
+<Super>TECH.RegisteredObject,DOM.common.LocatieAPI</Super>
 <Inheritance>right</Inheritance>
 
 <Method name="GeefLand">
@@ -52,6 +52,23 @@
 	Quit ..GeefLand($$LAND^vhRtn1(LandCode,"I"))
 ]]></Implementation>
 </Method>
+
+<Method name="ConvertLandCode2naar3">
+<FormalSpec>LandCodeIn:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim LandCodeUit As %String = ""
+	#dim LandCode As %String = ""
+	
+	For { Quit:$$$HasLength(LandCodeUit)  Set LandCode=$Order(^ISO(0,"ISO.LAND",LandCode))  Quit:(LandCode="")		
+		If $Piece(^ISO(0,"ISO.LAND",LandCode,0),"\",1) = LandCodeIn {			
+			Set LandCodeUit = $Piece(^ISO(0,"ISO.LAND",LandCode,0),"\",35)
+		}
+	}
+	
+	Quit LandCodeUit
+]]></Implementation>
+</Method>
 </Class>