KWK ;BEPALING WEEK;KWK; [ 12/13/1999  1:15 PM ]
 ;
 S %WK=$$EXTDATE^vhLib.DataTypes(,"W")
 ;
YZ Q
 ;