Index: FLOWCHK.mac.rou
===================================================================
diff -u -r51977 -r66176
--- FLOWCHK.mac.rou	(.../FLOWCHK.mac.rou)	(revision 51977)
+++ FLOWCHK.mac.rou	(.../FLOWCHK.mac.rou)	(revision 66176)
@@ -244,14 +244,14 @@
  Set IsOrgal=0,KLNr=$P($G(^KU1(BONNr,"F")),"\")
  If BLNr Do
  .Set R=^KUL(KLNr,Node,BONNr,BLNr),PRNr=$P(R,"\",2)
- .Quit:'PRNr
+ .Quit:('PRNr)||($P(R,"\",3)=0)
  .Set IsOrgal=$$ISORGAL^PRODUKT2(PRNr)
  Else  Do  ; Volledig bon
  .If KLNr Do  ; Bestaat reeds in KUL
  ..Set BLNr=100
- ..For  Set BLNr=$O(^KUL(KLNr,Node,BONNr,BLNr)) Quit:'BLNr  Do  Quit:PRNr
+ ..For  Set BLNr=$O(^KUL(KLNr,Node,BONNr,BLNr)) Quit:'BLNr  Do  Quit:IsOrgal
  ...Set R=^KUL(KLNr,Node,BONNr,BLNr),PRNr=$P(R,"\",2)
- ...Quit:'PRNr
+ ...Quit:('PRNr)||($P(R,"\",3)=0)
  ...Set IsOrgal=$$ISORGAL^PRODUKT2(PRNr)
  .Else  Do  ; Kijken of het bestaat in ORDW
  .. If $D(^ORDW("D",BONNr)) Set IsOrgal=$$ORGALWMS(BONNr)