KBKALS ;K.A.L.-VERGELIJK ;(SORT);KBKALS;
 G 1
 ;
T1 ;1;2;8;13;19;31;38;63;72;73;83;88;93;94;95
 ;
1 K ^HULP($J) S VNR=0
11 S VNR=$N(@("^"_Q_"KAUS(VNR)")) G 2:VNR=-1 S K=^(VNR) F I=2:1:14 S K(I)=$E(K,$P($T(T1),U,I+1),$P($T(T1),U,I+2)-1)
13 S:'$D(^HULP($J,+K(4),+K(2),0)) ^(0)=1 S VN3=^(0),^(0)=VN3+1,^(VN3)=K G 11
 ;
2 K @("^"_Q_"KAUS") S (VNR,VN1)=0
21 S VN1=$N(^HULP($J,VN1)) G 3:VN1=-1 S VN2=0
23 S VN2=$N(^HULP($J,VN1,VN2)) G 21:VN2=-1 S VN3=0
25 S VN3=$N(^HULP($J,VN1,VN2,VN3)) G 23:VN3=-1 S K=^(VN3),VNR=VNR+1,@("^"_Q_"KAUS(VNR)")=K G 25
 ;
3 K ^HULP($J)
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 21.03.89 - 15 u 05