Index: KLACHT.mac.rou
===================================================================
diff -u -r734 -r1026
--- KLACHT.mac.rou	(.../KLACHT.mac.rou)	(revision 734)
+++ KLACHT.mac.rou	(.../KLACHT.mac.rou)	(revision 1026)
@@ -771,7 +771,10 @@
  Set OnOm=$G(OnOm,"12"),R=""
  If $G(CopyId),KlachtId,$D(^KlachtCD(KlachtId,CopyId)) Do
  .Set R=^KlachtCD(KlachtId,CopyId),Omschr=$G(^KlachtCD(KlachtId,CopyId,"O",1))
- Else  Set:KlachtId R=^KlachtD(KlachtId),Omschr=$G(^KlachtD(KlachtId,"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))
+ .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
  For I=$L(OnOm):-1:1 Set $E(OnOm,I)=$S($E(OnOm,I)=1:Onderw,$E(OnOm,I)=2:Omschr,1:"")