Index: cwCW.mac.rou
===================================================================
diff -u -r734 -r1419
--- cwCW.mac.rou	(.../cwCW.mac.rou)	(revision 734)
+++ cwCW.mac.rou	(.../cwCW.mac.rou)	(revision 1419)
@@ -1,6 +1,29 @@
 cwCW ; Routines speciaal Chris Willems
  Quit
  
+ ;
+bs
+ New MPRNr,MCount
+ Set MPRNr="",MCount=0
+ For  Set MPRNr=$O(^PRBS("BS",MPRNr)) Quit:MPRNr=""  Do
+ . Set MCount=MCount+1
+ . If '(MCount#100) Write !,$J(MCount,6)," producten verwerkt"
+ . Do bso(MPRNr)
+ Do BLDALL^PRBS
+ Quit
+ ;
+bso(MPRNr)
+ New BSKeyPROD,BSKeyKIND
+ Set BSKeyPROD="PROD"
+ For  Set BSKeyPROD=$O(^PRBS("BS",MPRNr,BSKeyPROD)) Quit:$E(BSKeyPROD,1,4)'="PROD"  Do
+ . Set BSKeyKIND="KIND.999",BSKeyKIND=$O(^PRBS("BS",MPRNr,BSKeyKIND),-1)
+ . If $E(BSKeyKIND,1,4)="KIND" Set $P(BSKeyKIND,".",2)=$TR($J($P(BSKeyKIND,".",2)+1,3)," ",0)
+ . Else  Set BSKeyKIND="KIND.001"
+ . Set ^PRBS("BS",MPRNr,BSKeyKIND)=^PRBS("BS",MPRNr,BSKeyPROD)
+ . Kill ^PRBS("BS",MPRNr,BSKeyPROD)
+ Quit
+ ;
+ 
 ConvertKlantActiviteit
  New R,KlKey
  Set KlKey=0