Index: FLOWBON.mac.rou
===================================================================
diff -u -r2782 -r2977
--- FLOWBON.mac.rou	(.../FLOWBON.mac.rou)	(revision 2782)
+++ FLOWBON.mac.rou	(.../FLOWBON.mac.rou)	(revision 2977)
@@ -504,7 +504,7 @@
  ; Geeft de gebruiker en tijdstip creatie het order
 OrderCreatedBy(BONNr,ORDNr,PRNr)
  New R,CreatedBy,BLNr,KlasRef,Creator
- Set ORDNr=$G(ORDNr),KLNr=$P($G(^KU1(BONNr,"F")),D),CreatedBy=""
+ Set ORDNr=$G(ORDNr),KLNr=$P($G(^KU1(BONNr,"F")),D),CreatedBy="",Creator=""
  Do:KLNr
  . Set BLNr=100,KlasRef=""
  . For  Set BLNr=$O(^KUL(KLNr,"F",BONNr,BLNr)) Quit:'BLNr  Do  Quit:CreatedBy