KTABNR G 1 ;INVULLEN ABNUMMER TOELEVERINGEN [ 04/14/97  12:00 PM ]
 ;
1 Q:$$ISDIRORD^FLOWTOE(TR)
 S KK=K,K=$P(B(1),D,3)
11 S R=$P(K,"/",2)
13 I $L(KK) S:$E(K,1,5)="STOCK" R=K S:$E(K,1,5)="KOMM." R=$E(K,7,99) S K="AB "_$S(LC=5005:$S($L(KK)>3:$E(KK,1,$L(KK)-3)_"."_$E(KK,$L(KK)-2,$L(KK)),1:KK),1:KK)_"/"_R
15 I KK="" S:$L(R) K=R I $L(K),$E(K,1,5)'="STOCK",$E(K,1,5)'="KOMM." S K="KOMM. "_K
17 S $P(B(1),D,3)=K
 ;
2 S R=100
21 S R=$N(A(R)) G 3:R=-1,21:$P(A(R),U,16)'=103
23 S FP=$P(A(R),U,5)*100+$P(A(R),U,6) W @F,$J("",$P(A(R),U,9)),$J("",$P(A(R),U,13)),@F,K
25 D ^KTWREF
 ;
3 S K=KK D ^KTO4
 ;
YZ Q
 ;
 Q
Z X ^cZ Q
ZZ ; 24.05.91 - 16 u 05