cAN103(OUT,RSLN,RSUQ,RSUS,RSX,RSTIT)	;SYNONIEMEN KODES ;%AN103 ; [ 01/08/01  8:19 AM ]
	N RSZ S RSZ="" G 1
	;
T0	;Synoniemen codes ;
	;
T0F	;Synonymes codes ;
	;
T0E	;Synonyms codes ;
	;
	; ingang met "zonder" toegelaten
Z(OUT,RSLN,RSUQ,RSUS,RSX)	
	N RSZ S RSZ=$$Z^cAFO1 G 1
	;
	; indeling inputzone(s)
S1	W /WSCROFF,/CUP(1,1),/WCMD I $L(RSZ) D
	. W /CUP(2,1),/cDR(1),/cDR(2,78)
	. W /CUP(2,$P(QW(QW),D,4)-$L(RSZ)-4),/cDR(1),/cDR(8)
	. W /CUP(1,$P(QW(QW),D,4)-$L(RSZ)-4),/cDR(3),/cDR(0)," ",RSZ
S1Z	Q
	;
	; 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=$G(RSTIT,$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 4:RSC,Y
	. 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
	;
	; test op input
2	I $L(RSZ),$G(RSX)="" G 6
21	G 5
	;
	; opladen combinatie
4	K RSM M RSM=^DMC(RSUQ,RSUS,"SYN",RSC) S RSN=0 D S1
41	G 2
	;
	; scroll in selectie
5	D ^cAN1031
51	I RK=27 S K="-" G Y
53	I RK=28 G Y
55	I RK=29 G 6:$L(RSZ),5
58	I $D(^DMC(RSUQ,RSUS,"SYN",0,0,RK,0)) D C^cA612 X ^(0) G 15
59	G 5
	;
	; zonder
6	S K=$P(QW(QW),D,4)-$L(RSZ)-2 W /CUP(1,K),/SGR(7),RSZ,/CUP(1,K),/WDSP
61	D ^cAFA0("",0,0,0,0,$P(RSKEYS,D,2,99),0,0,0) W /SGR(0),RSZ
63	I RK=27 S K="-" G Y
65	I RK=28 S K="" G Y
67	I RK=29 G 5
68	I $D(^DMC(RSUQ,RSUS,"SYN",0,0,RK,0)) D C^cA612 X ^(0) G 15
69	G 6
	;
	; ingang via "<spatie>[] = synoniemen"      *** niet meer gebruiken ***
SPATIE(OUT,RSLN,RSUQ,RSUS,RSX)	
	N RSZ S RSZ="" 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="-" Q
	. I $L(RSZ) S K=$P(K," ")
YZ	S @OUT=K Q
	;
ZZ	; 23.06.05 - 17 u 03 * V8.04