cA352	;Aanpassen van mail ivm attachments        ;cA352 (cA350 -> cA352)
	;
LOCK(SW)	; SW = 1 : lock, SW = 0 unlock
	N OK
	I '$L($G(SW)) S SW=1
	S OK=1
	I SW L +MAILEXT:2 E  S OK="0\Program already started"
	I 'SW L -MAILEXT S OK=1
	Q OK
	;
OATT(UI1M,REF)	  ;Openen mail.att
	S $ZT="TRAP^cAN000"
	N UI1MA,UREF,DATA
	I '$L(UI1M) G OATTZ
	S UREF="" 
	F  S UREF=$O(REF(UREF)) Q:UREF=""  D
	. S DATA(1)=@REF(UREF)@(0),$P(DATA(1),D)=UI1M
	. D P^cAN220("MAIL.ATT",0,"","DATA","")   ;wegschrijven van link met mail in 101 van mail.att
	. I K="-" G OATTZ
	. S UI1MA=NUI1  ;NUI1 = UI1 MAIL.ATT
	. S I1=0 F  S I1=$O(@REF(UREF)@(I1)) Q:I1=""  D
	.. M ^MAIL(0,"MAIL.ATT",UI1MA,I1)=@REF(UREF)@(I1)  ;data uit de bron bestanden copiëren in mail.att
OATTZ	Q
	;
	;
TOCC(DMS,ID)	;Opzetten variabelen zodat we bepaalde routines kunnen aanspreken
	        S $ZT="TRAP^cAN000"
	        N @$$INITVAR^dmTOOL("FIRSTTO,DMS,ID")           
	        S FIRSTTO=$$TOCC^cA350(DMS,ID)
TOCCZ	Q FIRSTTO
	;
	;
SENDED(MAILID)	;Aantal keer verzonden aanpassen
	S $ZT="TRAP^cAN000",QU="SYS"
	N @$$INITVAR^dmTOOL("MAILID")
	S AUTOMAIL=1,OK=1
	D ^cA105,^cA106
	S TAB(112)="",TAB(117)=$$SIG^cAFA1("MAIL",MAILID,117)+1,TAB(113)=DT,TAB(114)=TD
	D B^cAN220("MAIL",0,MAILID,"TAB") I K="-" S OK="0\FOUT"
SENDEDZ	Q OK
	;
	;
ZZ	; 18.05.04 - 15 u 48 * V8