KKOV17 G 1 ;POTENTIEEL RAPPORTERING ;KKOV17; [ 09/26/95  10:33 AM ]
 ;
1 Set FP=2001 Write @F,@F1
 Set (K,R)=$$ASKL^vhINP("KKOV","BEPERKHG") Quit:R'="."
 Set R=$$SELECT^KLASS(-1,1) Goto 1:R="-"
 S R=$$GETSORT^KLASS($P(R,D))
 Quit
 ;
 Q
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 32