Index: RPLFAKT.mac.rou
===================================================================
diff -u -r29059 -r49996
--- RPLFAKT.mac.rou	(.../RPLFAKT.mac.rou)	(revision 29059)
+++ RPLFAKT.mac.rou	(.../RPLFAKT.mac.rou)	(revision 49996)
@@ -103,7 +103,7 @@
  .New IPers
  .Set IPers=$P($P(Ref,D,4),"#")
  .Set:IPers?1.N IPers=$P($G(^vhUSER("D",IPers)),D,4)
- .Set FL(3,2)="Order | "_$$EXTNUM^vhLib.DataTypes($P($P(Ref,D,5)," - "),0,".",0)_" van "_$P($P(Ref,D,5)," - ",2)_" "_IPers_" - "_$P($P(Ref,D,5)," - ",3)
+ .Set FL(3,2)="Order | "_$$EXTNUM^vhLib.DataTypes($P($P(Ref,D,5)," - "),0,".",0)_" van "_$P($P(Ref,D,5)," - ",2)_" "_IPers_" - "_$P($P(Ref,D,5)," - ",3,99)
  .;Set FL(3,2)="Order | "_$E($P(Ref,D,5),1,3)_"."_$E($P(Ref,D,5),4,999)
  If $P($P(Ref,D,17),"#")="KF11" Set FL(3,2)="      | "_$P(Ref,D,5) Quit 1
  If $P(Ref,D,1)="U" Do  Quit 1