cAB1061	; Beheer ^DMA ;%AB10 ; [ 03/29/01  9:21 AM ]
	;
T1	;UQA\"<spatie>[] = synoniemen";
T2	;USA\"<spatie>[] = synoniemen";
	;
	; New v/d variabelen
1	N UQA,USA,SW2,SW4,TEMP
	;
	; KO - 18.09.00
2	S TEMP=$$^cANSYN("^DMA",10) I K="-" G YZ
	S K=^TEMP(boot,$J,K),UQA=$P(K,D),USA=$P(K,D,2)
	W /CUP(1,28),$P($P($T(T1),U,2),D)," : ",/SGR(1),UQA,/SGR(0),/WCMD
	W /CUP(1,50),$P($P($T(T2),U,2),D)," : ",/SGR(1),USA,/SGR(0),/WCMD
	;
	; Aantal pagina's
6	S SW4=+$O(^DMA(UQA,USA,""),-1)
	; Huidige pagina
61	S SW2=1 D ^cAB1062 G 2:K="-"!(K=",")
	;
YZ	Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
F1	S R=250
F2	D TXT^cAFA1(R)
FZ	K R Q
	;
ZZ	; 18.05.01 - 11 u 18 * V7.86