KOFKL8 G 1 ;MODULE VIA UTILIDATA;Quit naar %F10
 ;
T1 ;DE SELECTIE
T2 ;SELECTIE
T3 ;LAATSTE SELECTIE OP ;ER WAREN ER ; GESELECTEERD OP DE ;DE SELECTIE DUURDE 
 ;
1 I '$D(@("^"_Q_"LI(""PR"")")) G 2
11 S R="K\2000\"_$P($T(T1),U,2)_"\LIS\LIS1" D R1 G 2:K="-" S UL=+UD
13 S K=^(K,0),X1=+K,X2=$P(K,D,2) G 11:$P(K,D,3)'="PR" S FP=UD*100+1 W @F,@F1,!?2,$P($T(T2),U,2)," ",X1,"   ",X2 G 11:'$P(K,D,11)
15 S I=$T(T3) W !!?2,$P(I,U,2),$P(K,D,9)," - ",$P(K,D,10)
16 W !!?2,$P(I,U,3),$P(K,D,11),$P(I,U,4),$P(K,D,12),!!?2,$P(I,U,5),$P(K,D,8)
17 I '$D(@("^"_Q_UGL_"(KC,US,UR,""ZZZZUD"",0)")) S ^(0)=101
18 S UZ=^(0),^(0)=UZ+1,^(UZ)=$P(K,D,1)
19 S K=$P(K,D,4) S:'K K=1 S K=@("^"_Q_"LI(""PR"",K)") W !!?2,$P(K,D,1)
 ;
2 S K="-" K X1,X2,I
 ;
YZ Q
 ;
R1 D ^cA101 Q
 ;
 Q
Z X ^cZ Q
ZZ ; 01.06.88 - 12 u 26