cA228 ;Extra verwijderen andere firma's ;%AN200 ; [ 04/03/96  4:06 PM ]
 ;
T0 ;Extra verwijderen andere firma's ;
 ;
T0F ;Annulation supplémentaire autres firmes ;
 ;
T0E ;Extra verwijderen andere firma's ;
 ;
 ; do uit ^DMA(UQA,USA,0,4) via %AN204
 ; enkel voor bestanden type 1 (KL-structuur)
 ;
 ; 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")
22 N MEM S MEM("UI1")=UI1 M MEM("ULOG")=ULOG
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
 .. D U^cAN000,K^cAN000 S OK=2
 .. S UI1=MEM("UI1") M ULOG=MEM("ULOG")
25 S Q=QQ
 ;
YZ Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84