Index: FLOWTOE3.mac.rou
===================================================================
diff -u -r3357 -r3389
--- FLOWTOE3.mac.rou	(.../FLOWTOE3.mac.rou)	(revision 3357)
+++ FLOWTOE3.mac.rou	(.../FLOWTOE3.mac.rou)	(revision 3389)
@@ -284,6 +284,7 @@
  If LEVNr Do
  .Set TOENr=$$GETNUM^FLOW("KTO","KTO1")
  .Set ^KTO(LEVNr,TOENr,0)=101
+ .Set ^KTO1(TOENr)=LEVNr_D
  .Set R="",$P(R,D,26)="",$P(R,D,2)=DT,$P(R,D,3)=ToeRef,$P(R,D,6)=LEVNr
  .Set ^KTO(LEVNr,TOENr,1)=R
  .Set Next=""
@@ -294,7 +295,7 @@
  ...Set R=$G(@FBRef@(PRNr,"TLUNr")),TLUNr=$P(R,D,$L(R,D))
  ...Quit:'TLUNr
  ...Set @FBRef@(PRNr,"KomLink",$O(@FBRef@(PRNr,"KomLink",""),-1)+1)=TOENr_D_TLUNr_D_ORDNr_D_OLUNr
- .Set ^KTO1(TOENr)=LEVNr_D,^KTOB(TOENr)=LEVNr_D,^KTO2(LEVNr,TOENr)=""
+ .Set ^KTOB(TOENr)=LEVNr_D,^KTO2(LEVNr,TOENr)=""
  .Set:LEVNr=5005 ^BLBeri("Z",TOENr)=LEVNr_D
  Quit
  ;