Index: KLACHT.mac.rou
===================================================================
diff -u -r1274 -r1985
--- KLACHT.mac.rou	(.../KLACHT.mac.rou)	(revision 1274)
+++ KLACHT.mac.rou	(.../KLACHT.mac.rou)	(revision 1985)
@@ -773,8 +773,8 @@
  If $G(CopyId),KlachtId,$D(^KlachtCD(KlachtId,CopyId)) Do
  .Set R=^KlachtCD(KlachtId,CopyId),Omschr=$G(^KlachtCD(KlachtId,CopyId,"O",1))
  .For I=2:1 Quit:'$D(^KlachtCD(KlachtId,CopyId,"O",I))  Set Omschr=Omschr_^KlachtCD(KlachtId,CopyId,"O",I)
- Else  Do
- .Set:KlachtId R=^KlachtD(KlachtId),Omschr=$G(^KlachtD(KlachtId,"O",1))
+ Else  If KlachtId Do
+ .Set R=^KlachtD(KlachtId),Omschr=$G(^KlachtD(KlachtId,"O",1))
  .For I=2:1 Quit:'$D(^KlachtD(KlachtId,"O",I))  Set Omschr=Omschr_^KlachtD(KlachtId,"O",I)
  Set Onderw=$P(R,D,9)_"~",Omschr=Omschr_"~"
  If $L(OnOm)=1 Set:Onderw="" Onderw=Omschr Set:Omschr="" Omschr=Onderw