cAB1091	;Beheer ^DMA; %AB10 [ 03/29/01  9:23 AM ]
	;
T0	;Xecute(s) bij raadplegen ; 
T1	;Xecute NA raadplegen van elke pagina (variabele OK opzetten);
T2	;Xecute NA raadplegen (op het einde);
T3	;Xecute NA synoniemenroutine (variabele OK opzetten);
T9	;Nummer element;
	;
1	D P^cA612(2,1,20,80,1,0,0,0,$P($T(@("T0"_QT)),U,2),0,1,1,0,0)
11	W /CUP(1,1),@F1
13	W /CUP(2,1),@F6,$$S1(1,2),@F9,":",/CUP(3,2),"1 : ",$$S2(6,1)
15	W /CUP(6,1),@F6,$$S1(2,2),@F9,":",/CUP(7,2),"2 : ",$$S2(6,2)
17	W /CUP(10,1),@F6,$$S1(3,2),@F9,":",/CUP(11,2),"3 : ",$$S2(6,3)
	;
2	S R="KEU\22\3\"_$$S1(9,2)_"\\1\\""-123""[K" D R0 G Y:K="-"
21	I KEU=1 D S3(1,2,6,1) I I'="-",I'="," D S4(6,1)
22	I KEU=2 D S3(2,2,6,2) I I'="-",I'="," D S4(6,2)
23	I KEU=3 D S3(3,2,6,3) I I'="-",I'="," D S4(6,3)
29	G 11
	;
Y	I $$S2(6,1)="",$$S2(6,2)="",$$S2(6,3)="" K ^DMA(UQA,USA,0,6)
	;
YZ	D C^cA612 Q
	;
	; Tonen omschrijving
S1(T,P)	N R S R=$P($T(@("T"_T)),U,P)
S1Z	Q R
	;
	; Ophalen input
S2(N,V)	N R
	I 'V S R=$G(^DMA(UQA,USA,0,N),"<undef>")
	I V S R=$P($G(^DMA(UQA,USA,0,N)),D,V) 
S2Z	Q R
	;
	; Vraagstelling
S3(T,P,N,V)	
	S I=$$S2(N,V),I=$$I^cAB1(I,$$S1(T,P))
S3Z	Q
	;
	; Update
S4(N,V)	S $P(^DMA(UQA,USA,0,N),D,V)=I
S4Z	Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q
	;
ZZ	; 18.05.01 - 11 u 18 * V7.86