Index: KTWL1.mac.rou
===================================================================
diff -u -r948 -r1436
--- KTWL1.mac.rou	(.../KTWL1.mac.rou)	(revision 948)
+++ KTWL1.mac.rou	(.../KTWL1.mac.rou)	(revision 1436)
@@ -21,7 +21,7 @@
 1 G 30:"WL"'[SWLPA
  S K=$G(AutoInp) I K="" S R="K\23\54\LEVERT \C1\5" D R0
  G YZ:K="," I K="-" G 3^KTWL:'$G(ScrolToe),YZ
- I "?"'[K D VALDATE^vhDTyp(K,"DW") G 1:'%TC S:K?.N&($P(%EXT,"/",2)<%WK) $P(%EXT,"/")=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp(,"J","+1"),"J") S K=%EXT
+ I "?"'[K D VALDATE^vhDTyp(K,"DW",$H-7) G 1:'%TC S:K?.N&($P(%EXT,"/",2)<%WK) $P(%EXT,"/")=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp(,"J","+1"),"J") S K=%EXT
 5 I $L(K) D
  .S:K="?" K="  ?  " S ULT=K
  .I $G(AutoInp)="" S FP=2039+F60 W @F,"     ",@F,ULT