Index: KOF0.mac.rou
===================================================================
diff -u -r734 -r920
--- KOF0.mac.rou	(.../KOF0.mac.rou)	(revision 734)
+++ KOF0.mac.rou	(.../KOF0.mac.rou)	(revision 920)
@@ -41,7 +41,7 @@
  .X R
  .S PR=K S:K=PROld!'K K="-"
  S R=$P(^KPR(PR,0),D,23)
- I R="K" S R=$P(^KPR(PR,0),D),R=$$^vhTXTPOP("FLOWORD","VERKKIND","",R) G YZ:'R
+ I R="K",KC'=$$$KlantHalux S R=$P(^KPR(PR,0),D),R=$$^vhTXTPOP("FLOWORD","VERKKIND","",R) G YZ:'R
  I $E(R)="H",KC'=$$$KlantHalux S R=$P(^KPR(PR,0),D),R=$$^vhTXTPOP("FLOWORD","VERKHALFFABR","",R) G YZ:'R
  S R=##Class(CHUI.Derde.Kennis.Kennis).KlantProductUnRead(KC,PR,$LB($$$adOrderVerwerkingIngave),1,"OFF",UR) G YZ:R="ANNULEER"
 111 S UA=0,X=@("^"_Q_"PR(PR,0)"),PC=$P(X,D,1)