Index: DOM/common/impl/Land.cls.xml
===================================================================
diff -u -r33553 -r35138
--- DOM/common/impl/Land.cls.xml	(.../Land.cls.xml)	(revision 33553)
+++ DOM/common/impl/Land.cls.xml	(.../Land.cls.xml)	(revision 35138)
@@ -3,21 +3,32 @@
 <Class name="DOM.common.impl.Land">
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject,DOM.common.Land</Super>
+<Super>TECH.RegisteredObject,DOM.common.Land</Super>
 <Inheritance>right</Inheritance>
 
 <Property name="LandID">
 <Type>%String</Type>
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
 
+<Method name="OpenId">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>LandID:%String</FormalSpec>
+<ReturnType>DOM.common.impl.Land</ReturnType>
+<Implementation><![CDATA[
+	do:$$$Not($data(^ISO(0,"ISO.LAND",LandID,0))) ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.DataNotFoundException).%New("Geen land met id '"_LandID_"'"))
+	quit ..%New(LandID)
+]]></Implementation>
+</Method>
+
 <Method name="%OnNew">
 <FormalSpec>LandID:%String</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..LandID = LandID
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>