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