cA259 ;VRAAG KODE ;%A259 ; [ 06/11/99  8:43 AM ]
 ;
T0 ;Vraag code ;
T1 ;[] = geen   <spatie>[] = synoniemen;
 ;
T0F ;Demande code ;
T1F ;[] = sans   <espace>[] = synonymes;
 ;
T0E ;Vraag code ;
T1E ;[] = geen   <spatie>[] = synoniemen;
 ;
1 S RU2=U2,RR=R,RRC=$G(RC,1),RRO=$G(RO) F R=1:1:$P(RR,D,5)-1 S RR(R)=R(R)
11 I $P(U2,U,10)="" S $P(U2,U,10)=$P($T(@("T1"_QT)),U,2)
 D ^cA207 G YZ:"-,"[K I K=".",$G(WIJZ)=2 G YZ
13 I K=" " D  S R=RR,RC=RRC,RO=RRO D ^cA115 G 11:K="-"!(K=",") S K=$P(K," ")
 . F R=1:1:$P(RR,D,5)-1 S R(R)=RR(R)
15 I $L(K) D  I $D(@R) G YZ
 . S R="^"_Q_$P(RR,D,4)_"("
 . N I F I=1:1:$P(RR,D,5)-1 S R=R_RR(I)_","
 . S R=R_""""_K_" "")"
17 G 11
 ;
YZ S U2=RU2 K RU2,R,RC,RO,RR,RRC,RRO Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84