Index: FAX.mac.rou
===================================================================
diff -u -r734 -r1023
--- FAX.mac.rou	(.../FAX.mac.rou)	(revision 734)
+++ FAX.mac.rou	(.../FAX.mac.rou)	(revision 1023)
@@ -160,7 +160,7 @@
  New Label,sWrap,Cnt
  Set Cnt=$G(@Ref,0)
  For Label="Tav","Betreft","Datum","Van","Pages" Do
- .Set Cnt=Cnt+1,@Ref@(Cnt)=$J(Label,20)_" | "_$S(Label="Pages":$G(^FAX("D",FaxId,Label))+1,1:$G(^FAX("D",FaxId,Label)))
+ .Set Cnt=Cnt+1,@Ref@(Cnt)=$J(Label,20)_" | "_$S(Label="Pages":$G(^FAX("D",FaxId,Label))+1,Label="Datum":$$EXTDATE^vhDTyp($G(^FAX("D",FaxId,Label))),1:$G(^FAX("D",FaxId,Label)))
  Do
  .Quit:'$G(^FAX("D",FaxId,"TermUser"))
  .Quit:$G(^FAX("D",FaxId,"VanUser"),"*")=$G(^FAX("D",FaxId,"TermUser"),"*")