Index: KKOV13.mac.rou =================================================================== diff -u -r29059 -r38076 --- KKOV13.mac.rou (.../KKOV13.mac.rou) (revision 29059) +++ KKOV13.mac.rou (.../KKOV13.mac.rou) (revision 38076) @@ -28,7 +28,9 @@ 41 D ^KKOV12 G 27:'$G(TOT) S K="",$P(K,D,25)=D,^KKOV(KC,1)=K S:'$D(^(0)) ^(0)=101 43 G 27 ; -YZ K ^KSEL($J) Q +YZ K ^KSEL($J) + Do ^KKOVEXP + Q ; R0 S R7="K'[D&(K'?.E1C.E)" S:$P(R,D,8)'="" R7=R7_"&("_$P(R,D,8)_")" S:$P(R,D,7)'="" R7=R7_"&("_$P($T(@$P(R,D,7))," ",2,99)_")" R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6) @@ -42,3 +44,5 @@ Z X ^cZ Q ZZ ; 10.01.92 - 13 u 54 + +