cAB1061 ; Beheer ^DMA ;%AB10 ; [ 09/18/00  3:46 PM ]
 ;
T1 ;UQA\"<spatie>[] = synoniemen";
T2 ;USA\"<spatie>[] = synoniemen";
 ;
 ; New v/d variabelen
1 N UQA,USA,SW2,SW4,TEMP
 ;
 ; Index1 & Index2
 ;2        S R="UQA\22\3\"_$P($T(T1),U,2)_"\8\\$L(K)\\\1\\1" D R0 I "-,^"[K G YZ
 ;21       I K=" " D ^cAN103("UQA",13,"DAM","^DMA_1") I K="-" G 2
 ;23       W /CUP(1,28),$P($P($T(T1),U,2),D)," : ",/SGR(1),UQA,/SGR(0),/WCMD
 ;25       S R="USA\22\3\"_$P($T(T2),U,2)_"\28\\$L(K)\\\1\\1" D R0 I "-,^"[K G 2
 ;27       I K=" " D ^cAN103("USA",13,"DAM","^DMA_2") I K="-" G 25
 ;29       W /CUP(1,50),$P($P($T(T2),U,2),D)," : ",/SGR(1),USA,/SGR(0),/WCMD
 ;
 ; KO - 18.09.00
25 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 25: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 ; 06.10.00 - 17 u 27 * V7.81