cA227 ;Extra wijzigen andere firma's ;%AN200 ; [ 05/23/96  5:35 PM ]
 ;
T0 ;Extra wijzigen andere firma's ;
 ;
T0F ;Modification supplémentaire autres firmes ;
 ;
T0E ;Extra wijzigen andere firma's ;
 ;
 ; do uit ^DMA(UQA,USA,0,3) via %AN202,%AN206
 ; do uit ^DMA(UQA,USA,0,4) via %AN207
 ; geldig voor alle bestandstypes
 ;
 ; 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 S OK=2
 .. S UI1=MEM("UI1") M ULOG=MEM("ULOG")
25 S Q=QQ
 ;
YZ Q
 ;
 ;testen op saldi in extra firma's bij verwijderen
S1 N DMS S DMS=^DMA(UQA,USA,0,"DMS")
S1A S OK=1 I $D(^DMS(Q,DMS,"KOPIE")) D
S1B .N QQ S QQ=Q,Q="" F  S Q=$O(^DMS(QQ,DMS,"KOPIE",Q)) Q:Q=""  D S2A^cAN207 Q:OK=0
S1C .S Q=QQ
S1Z Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84