cAB106 ; Beheer ^DMA ;%AB10 ; [ 02/21/00  4:09 PM ]
 ;
T1 ;Kopiëren;
 ;
1 D O^cA612(2,1,20,80,0,1,0,0) ; algemene gegevens verbergen
11 W /CUP(1,2),/SGR(1),$P($T(T1),U,2),/SGR(0) K U2 D ^cAB1061
13 I K,$D(U2) S I=$O(^DMA(UQA,USA,SW2,""),-1)+1 M ^(I)=U2
 ;
YZ D C^cA612 Q
 ;
ZZ ; 19.04.00 - 14 u 04 * V7.3