cPE86 G 1 ;SELEKTEREN VAN DE KLASSIFIKATIE ;
 ;
ER G ^II:$ZE["<INTERRUPT>",^cER
 ;
1 I '$D(K3) S K3=1
11 I $D(J),($E(J,1,2)=($J_",")) S K7=$N(@("^"_Q_"PR(I1,""I"")")),U3=$S($E(K7,1)="I":$P(^(K7),D,K3),1:"") K SWK,SWL,SWKL,K7,K8 G YZ
13 I $D(K9),(I1'=K9) K K8,SWKL
15 I I2'?1N.N S K6=I2,I2=X1
17 I '$D(SWKL),'$D(K8) S K7="I",SWKL=1,K8=I2,K9=I1
20 I I2>K8 S U3=$P(@("^"_Q_"PR(I1,K7)"),D,K3),K8=I2,SWK=1 K SWL G 30
200 I '$D(K6),'$D(SWKL),$D(K8) S U3="" G 30
21 I $D(K6),$D(SWL),K7'="I" S U3=$P(@("^"_Q_"PR(I1,K7)"),D,K3) G 30
22 S K7=$N(@("^"_Q_"PR(I1,K7)")) I $E(K7,1)'="I" S U3="" K SWKL,K7,K8 G 30
24 I $E($N(^(K7)),1)'="I" K SWKL
26 S U3=$P(^(K7),D,K3),K8=I2,SWK=1 K SWL
30 I $D(K6) S I2=K6
 ;
YZ K K3,K6 Q
 ;
Z X ^cZ Q
ZZ ; 14.04.87 - 17 u 03