Index: EWRCPS.mac.rou
===================================================================
diff -u -r734 -r3289
--- EWRCPS.mac.rou	(.../EWRCPS.mac.rou)	(revision 734)
+++ EWRCPS.mac.rou	(.../EWRCPS.mac.rou)	(revision 3289)
@@ -125,6 +125,7 @@
  Quit:R'="V"
  For  Do ADD^vhLock("^KPR(PRNr)") Quit:%TC  Do LDISP^vhLock("^KPR(PRNr)","Produkt "_$P(^KPR(PRNr,0),D))
  Do KWNODE^FLOWTOE(LEVNr,TOENr,TLNr)
+ Do InvoerUitvoerLinkVerbroken^FLOWTOE2(LEVNr,TOENr,TLNr)
  Set Rec=^KTO(LEVNr,TOENr,TLNr),$P(Rec,D,27,28)=D,^KTO(LEVNr,TOENr,TLNr)=Rec
  Do SWNODE^FLOWTOE(LEVNr,TOENr,TLNr)
  For  Do ADD^vhLock("^KOD(KLNr,""F"",ORDNr)") Quit:%TC  Do LDISP^vhLock("^KOD(KLNr,""F"",ORDNr)","Order "_ORDNr)