cA226	;Extra openen andere firma's ;%AN200 ; [ 04/04/96  10:27 AM ]
	;
T0	;Extra openen andere firma's ;
	;
T0F	;Création supplémentaire autres firmes ;
	;
T0E	;Extra openen andere firma's ;
	;
	; do uit ^DMA(UQA,USA,0,2) via %AN205
	; geldig voor alle bestanden, behalve grootboekrekeningen
	;
	; algemene initialisatie
1	S $ZT="TRAP^cAN000",OK=0
	;
	; aflopen Q-waardes
2	N QQ S QQ=Q,Q=""
21	N DMS S DMS=^DMA(UQA,USA,0,"DMS")
23	F  S Q=$O(^DMS(QQ,DMS,"KOPIE",Q)) Q:Q=""  D
	. N UQC,USC D DMS^cAN000("UQC","USC",DMS)
	. I $L(UQC),$L(USC) D U^cAN000
	S OK=2
25	S Q=QQ
	;
YZ	Q
	;
ZZ	; 19.03.07 - 15 u 31 * V8.08