cAT28 ;ONDERLINGE KOPPELING ;%AT28 ; [ 07/20/95   2:16 PM ]
 ;
T0 ;Onderlinge koppeling ;
T1 ;[] = geen   <spatie>[] = synoniemen;
 ;
T0F ;Coupelinge en geniep ;
T1F ;[] = sans   <espace>[] = synonymes;
 ;
T0E ;Onderlinge koppeling ;
T1E ;[] = geen   <spatie>[] = synoniemen;
 ;
 ; voor R1-bestanden
1 N RU2,RR,SR S RU2=U2,RR=R,SR=$G(@("^"_Q_$P(RR,D,2)_"(0,5)"),"^cA101")
10 I $P(U2,U,10)="" S $P(U2,U,10)=$P($T(@("T1"_QT)),U,2)
11 D ^cA207 G Y:"-,"[K I $E(K)=".",$G(WIJZ)=2 G Y
13 I K=" " S R="K\2000\"_RR D @SR G 11:K="-"!(K=",") S K=$P(K," ",2)
15 I $L(K),$D(@("^"_Q_$P(RR,D,3)_"(K)")) G Y
17 G 11
 ;
 ; voor R2-bestanden
2 N RU2,RR,SR S RU2=U2,RR=R,SR=$G(@("^"_Q_$P(RR,D,2)_"(0,5)"),"^cA102")
20 I $P(U2,U,10)="" S $P(U2,U,10)=$P($T(@("T1"_QT)),U,2)
21 D ^cA207 G Y:"-,"[K I $E(K)=".",$G(WIJZ)=2 G Y
23 I K=" " S R="K\2000\"_RR D @SR G 21:K="-"!(K=",") S K=$P(K," ")
25 I $L(K),$D(@("^"_Q_$P(RR,D,2)_"(K_"" "")")) G Y
27 G 21
 ;
 ; koppeling leveranciers aankoop
3 N QQ S QQ=Q,Q=$G(@("^"_Q_"BA(""%T"",7)"),Q) D 1 S Q=QQ G Y
 ;
Y S U2=RU2
YZ Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84