cAN105(OUT,RSLN,RSUQ,RSUS,RSX) ;SYNONIEMEN KODES ;%AN105 ; [ 01/04/01  8:22 AM ]
 G 1
 ;
T0 ;Synoniemen codes ;
 ;
T0F ;Synonymes codes ;
 ;
T0E ;Synonyms codes ;
 ;
 ; algemene initialisatie
1 N I,II,J,JJ,R,RSC,RSCONF,RSD,RSDD,RSJ,RSKEYS,RSL,RSM,RSN,RSQ2,RSREF,RSV
10 S $ZT="TRAP^cAN000"
11 S K="-" G YZ:'$L(RSUQ),YZ:'$L(RSUS),YZ:'$D(^DMC(RSUQ,RSUS))
13 S RSDD=^DMC(RSUQ,RSUS,"DATA"),RSREF=^("DATA","REF"),RSQ2=^("INDEX")
15 S R=$P(^DMC(RSUQ,RSUS,"TAAL",$E(QT_"N")),D,2)
17 D P^cA612(RSLN,1,25-RSLN,80,1,1,1,1,$$UC^cAFA1($E(R))_$E(R,2,99),0,1,0,0,0)
19 S RSCONF=$G(^DMC(RSUQ,RSUS,"CONF")),RSC=^("SYN",0) D  G Y:'RSC
 . I '$D(^(RSC)) S RSC=$O(^(0))
 . S RSKEYS=""                                     ; extra keys
 . S I="" F  S I=$O(^DMC(RSUQ,RSUS,"SYN",0,0,I)) Q:I=""  S RSKEYS=RSKEYS_D_I
 ;
 ; opladen combinatie
2 K RSM M RSM=^DMC(RSUQ,RSUS,"SYN",RSC) S RSN=0
 ;
 ; scroll in selectie
5 D ^cAN1051
51 I RK=27 S K="-" G Y
53 I RK=28 G Y
58 I $D(^DMC(RSUQ,RSUS,"SYN",0,0,RK,0)) D C^cA612 X ^(0) G 15
59 G 5
 ;
 ; ingang via "<spatie>[] = synoniemen"      *** niet meer gebruiken ***
SPATIE(OUT,RSLN,RSUQ,RSUS,RSX) 
 D 1 I K'="-" S K=$P(K," ")
 G YZ
 ;
 ; einde
Y D C^cA612
YA I $L(K),K'="-" D
 . N UI1 S UI1=K I '$D(@RSREF) S K="-"
YZ S @OUT=K Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84