Index: zTryout/ARC/TECH/Persistentie/GlobalNode.cls.xml
===================================================================
diff -u -r1408 -r1640
--- zTryout/ARC/TECH/Persistentie/GlobalNode.cls.xml	(.../GlobalNode.cls.xml)	(revision 1408)
+++ zTryout/ARC/TECH/Persistentie/GlobalNode.cls.xml	(.../GlobalNode.cls.xml)	(revision 1640)
@@ -77,7 +77,7 @@
 
 <Method name="IsGewijzigd">
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit (0 = ..DirtyPieces.Count())
+<Implementation><![CDATA[	Quit (..DirtyPieces.Count() > 0)
 ]]></Implementation>
 </Method>
 
@@ -110,7 +110,7 @@
 </Method>
 
 <Method name="%OnNew">
-<FormalSpec>Delimiter:%String</FormalSpec>
+<FormalSpec>Delimiter:%String="\"</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..Persistent = 0
@@ -121,15 +121,66 @@
 ]]></Implementation>
 </Method>
 
+<UDLText name="T">
+<Content><![CDATA[
+/* Dit betekent: heeft de node een persistente lokatie, en kan er dus ge-Save'd worden.
+ * Dit betekent niet per sé dat er ook data staat.
+ */
+]]></Content>
+</UDLText>
+
 <Method name="IsPersistent">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	Quit ..Persistent
 ]]></Implementation>
 </Method>
 
+<Method name="IsLeeg">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..ZijnOrigEnOverschrPiecesLeeg() && ..ZijnExtraGewijzigdePiecesLeeg()
+]]></Implementation>
+</Method>
+
+<Method name="ZijnOrigEnOverschrPiecesLeeg">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set VolledigLeeg = 1
+	
+	Set LengteVanOrigineleNode = $Length(..NodeDataString, ..Delimiter)
+	For Index = 0 : 1 : LengteVanOrigineleNode
+	{
+		Set VolledigLeeg = (' ..HeeftPiece(Index))
+		Quit:('VolledigLeeg)
+	}
+	
+	Quit VolledigLeeg
+]]></Implementation>
+</Method>
+
+<Method name="ZijnExtraGewijzigdePiecesLeeg">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set VolledigLeeg = 1
+	
+	Set LengteVanOrigineleNode = $Length(..NodeDataString, ..Delimiter)
+	Set DirtyPiecesIterator = ##class(TECH.ListIterator).%New(..DirtyPieces)
+	While (VolledigLeeg && DirtyPiecesIterator.HasNext()) {
+		Set VolgendeWaarde = DirtyPiecesIterator.Next()
+		If (DirtyPiecesIterator.Key() >= LengteVanOrigineleNode)
+		{
+			Set VolledigLeeg = ("" = VolgendeWaarde)
+		}
+	}
+		
+	Quit VolledigLeeg
+]]></Implementation>
+</Method>
+
 <Method name="ZetPersistenteLokatie">
 <Description>
-Deze method mag alleen opgeroepen worden door de GlobalPersistenceMgr.
+LET OP: Deze method mag alleen opgeroepen worden door de GlobalPersistenceMgr.
 Omdat die deze node moet registreren in zijn lijst van "open" nodes.</Description>
 <FormalSpec>GlobalNaam:%String,Subscripts:%ListOfDataTypes</FormalSpec>
 <ReturnType>%Status</ReturnType>