Index: ULTOER.mac.rou
===================================================================
diff -u -r66327 -r66653
--- ULTOER.mac.rou	(.../ULTOER.mac.rou)	(revision 66327)
+++ ULTOER.mac.rou	(.../ULTOER.mac.rou)	(revision 66653)
@@ -258,8 +258,8 @@
  If $L(Kriteria)
  Else  Do
  . Set DefaultVerzW=$$DefaultVerzW()
- . If DefaultVerzW="DI1" Do
- . . Set Kriteria=D_$$CALCDATE^vhLib.DataTypes(,"A","+1")_"\\T\Z\"_$$CALCDATE^vhLib.DataTypes(,"A","+1")_"\L"
+ . If (DefaultVerzW="DI1") ||(DefaultVerzW="DD1") Do
+ . . Set Kriteria=D_$$CALCDATE^vhLib.DataTypes(,"A","+1")_"\\T\Z\"_$$CALCDATE^vhLib.DataTypes(,"A","+10")_"\L"
  . Else  Do
  . . Set Kriteria=D_$$CALCDATE^vhLib.DataTypes(,"A","+1")_"\\O\Z\"_$$CALCDATE^vhLib.DataTypes(,"A","+1")
  . Set $P(Kriteria,D,3)=DefaultVerzW