KA317 ;DRUKKEN HOOFDING ;KA317; [ 11/06/2001  10:37 AM ]
 G 1
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D,1),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A S R0=+$P(R0,".",1) F R5=3,7 S R6=$L(R0) Q:R6'>R5  S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z K R0,R1,R2,R3,R4,R5,R6 Q  ;V2 20.11.86
 ;
LF W !
 Q
 ;
1 N C,KLNr,Taal,HERNr,RefDat,PCount
 S KLNr=$P(R,D),Taal=TLX,HERNr=K,RefDat=DV,PCount=0
 I '$D(VH) D PINIT^DCINIT S R=0 F I=2:1 Q:'$D(^KBA(99,I))  I $L(^KBA(99,I)) S R=R+1,VH(R)=^KBA(99,I)
 D FTITEL^DCHERIN
 W ! F I=1:1 Q:'$D(C(1,I))  W !?1,C(1,I)
 ;
YZ Q
 ;