TKY2K ;MAKE TK-FAX Y2K compliant ;TKY2K; [ 06/21/1999  9:40 AM ]
 ;
1 S x=80
 f  s x=$o(^TKFAXC("STATS",x)) Q:x=""  Q:x>1900  m ^TKFAXC("STATS",x+1900)=^TKFAXC("STATS",x) k ^TKFAXC("STATS",x)
 ;
YZ Q
 ;
ZZ ; 19.08.99 -  9 u 19 *