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