Index: FLOWTOE3.mac.rou
===================================================================
diff -u -r3289 -r3357
--- FLOWTOE3.mac.rou	(.../FLOWTOE3.mac.rou)	(revision 3289)
+++ FLOWTOE3.mac.rou	(.../FLOWTOE3.mac.rou)	(revision 3357)
@@ -51,12 +51,13 @@
  ..Set NTLNr=$$GETNUM^FLOW("KTO","KTO1"),NTLNr(NTLNr)="",TOENrs(NTLNr)=""
  ..If LEVKLNr Set R=^KTO(LEVNr,TLNr,1),$P(R,D,9)=LEVKLNr,^KTO(LEVNr,NTLNr,1)=R
  ..Set (TLLNr,LCount)=100
+ ..Set ^KTO1(NTLNr)=LEVNr_D
  ..For  Set TLLNr=$O(HULP(LEVKLNr,TLLNr)) Quit:TLLNr=""  Do
  ...Set LCount=LCount+1
  ...Do LMOVE(TLNr,TLLNr,NTLNr,LCount)
  ..Set ^KTO(LEVNr,NTLNr,0)=$$NEXTFREE(LEVNr,NTLNr),TLUNr=$$NEXTTLUNR(LEVNr,NTLNr)\100
  ..Set:$G(^KTO(LEVNr,NTLNr,4))<TLUNr ^KTO(LEVNr,NTLNr,4)=TLUNr
- ..Set ^KTO1(NTLNr)=LEVNr_D,^KTOB(NTLNr)=LEVNr_D,^KTO2(LEVNr,NTLNr)=""
+ ..Set ^KTOB(NTLNr)=LEVNr_D,^KTO2(LEVNr,NTLNr)=""
  ..If LEVNr=5005 S ^BLBeri("Z",NTLNr)=LEVNr_D
  .Set ^KTOB(TLNr)=LEVNr_D
  .If LEVNr=5005 S ^BLBeri("Z",TLNr)=LEVNr_D