Index: FLOW.mac.rou
===================================================================
diff -u -r67110 -r67493
--- FLOW.mac.rou	(.../FLOW.mac.rou)	(revision 67110)
+++ FLOW.mac.rou	(.../FLOW.mac.rou)	(revision 67493)
@@ -48,7 +48,8 @@
 SASK Kill GoSask
  If '$D(DERDENr)!$G(DERDENr("N")) Do  Goto SASK:$G(GoSask)
  .Set FP=1901 Write @F,@F1
- .Set R=$$UPCASE^vhRtn1($$ASK^vhINP(Prompt,$S(Global="KTO":12,1:6),"",Komm1,Komm2))
+ .Set R=$$UPCASE^vhRtn1($$ASK^vhINP(Prompt,$S(Global="KTO":12,1:7),"",Komm1,Komm2))
+ .Set:R?3N1"."3N R=$TR(R,".")
  .Do:Global="KTO"
  ..If R?6N4.5A Set R=+R Quit
  ..If R?1A2.5A Set R=$$ToeleveringViaDossierNummer(R)