cAB108	;Beheer ^DMA ;%AB10 ; [ 03/29/01  9:22 AM ]
	;
T0	;Xecute(s) bij openen ;      
T1	;Xecute NA openen van elke pagina (variabele OK opzetten);
T2	;Xecute NA openen (op het einde);
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(2,1)
15	W /CUP(6,1),@F6,$$S1(2,2),@F9,":",/CUP(7,2),"2 : ",$$S2(2,2)
	;
2	S R="KEU\22\3\"_$$S1(9,2)_"\\1\\""-12""[K" D R0 G Y:K="-"
21	I KEU=1 D S3(1,2,2,1) I I'="-",I'="," D S4(2,1)
22	I KEU=2 D S3(2,2,2,2) I I'="-",I'="," D S4(2,2)
29	G 11
	;
Y	I $$S2(2,1)="",$$S2(2,2)="" K ^DMA(UQA,USA,0,2)
	;
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