Index: cwCW.mac.rou
===================================================================
diff -u -r1588 -r1589
--- cwCW.mac.rou	(.../cwCW.mac.rou)	(revision 1588)
+++ cwCW.mac.rou	(.../cwCW.mac.rou)	(revision 1589)
@@ -12,6 +12,7 @@
  . Set KLNr=$P(^KKL(KlKey,0),D)
  . Do ConvertOneR10temR18(KLNr,.Count)
  Write !!,"Aantal= ",Count
+ Set ^RES("KLANT","PI","REGIO","D",31)="28`Architecten wallonie`1`30`KLOPVJODM``1````````1052````1102"
  Quit
  
 ConvertOneR10temR18(KLNr,Count)