cA351	;Logboek Mail ;%A351 [ 02/08/02  10:57 AM ]
	;
T0	;Logboek Mail ;
T1	;Entries\"[] = enkel de niet verstuurde   1[] = alle";
T2	;Wijzigen onmogelijk! Versturen van mails is bezig;
T3	;Nummer;Van;Onderwerp;Aanvraag;Aan;Naam;Type;
	;
T0F	;Journal courier ;     
T1F	;Entrées\"[] = seulement les messages non envoyés   1[] = tous les messages";
T2F	;Modifier impossible! Envoi de messages est effectué;
T3F	;Numero;De;Sujet;Demande;À;Nom;Type;
	;
T0E	;Logboek Mail ;
T1E	;Entries\"[] = enkel de niet verstuurde   1[] = alle";
T2E	;Wijzigen onmogelijk! Versturen van mails is bezig;
T3E	;Nummer;Van;Onderwerp;Aanvraag;Aan;Naam;Type;
	;
1	S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
	;
2	S R="KZ\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""-1""[K" D R0 G YZ:K="-"
	;
3	D BS^cAN210("MAIL",0,0,0,"")
	G 2
	;
YZ	Q
	;
AGAIN	; opnieuw klaarstellen voor versturen    
	N i,j,l,U2
	S i=0
	F  S i=$O(^DMA(UQA,USA,i)) Q:i=""  S j=0 F  S j=$O(^DMA(UQA,USA,i,j)) q:j=""!$D(U2)  I $G(^(j,16))=112 D
	. F l=1:1:25 M U2(l)=^DMA(UQA,USA,i,j,l)
	I '$D(U2(8)) S U2(8)=""
	D B^cAN000(112,1),S3^cAN2201(1)  ; switch verstuurd
	S $P(B(1),D,16)=""               ; aantal pogingen
	I $L($P(B(1),D,15)) D            ; error
	. S i=0 K U2
	. F  S i=$O(^DMA(UQA,USA,i)) Q:i=""  S j=0 F  S j=$O(^DMA(UQA,USA,i,j)) q:j=""!$D(U2)  I $G(^(j,16))=115 D
	.. F l=1:1:25 M U2(l)=^DMA(UQA,USA,i,j,l)
	. I '$D(U2(8)) S U2(8)=""
	. D B^cAN000(115,""),S3^cAN2201("")
	S REFRESH=1
	Q
	;
ENTER	; geven van <enter> + wijzigen van een entry in ^DMH(0,"MAIL"
	L +MAIL:2 E  S K=$P($T(@("T2"_QT)),U,2) D TXT^cAFA1(250) Q
	L +MAILEXT:2 E  S K=$P($T(@("T2"_QT)),U,2) D TXT^cAFA1(250) Q    ; extern versturen
	D W^cAN200("MAIL",0,0,0,$$IDEM^cAFA1)
	L -MAIL
	L -MAILEXT   ; extern versturen
	Q
	;
FIRST(SRT,UI1MAIL)	; opzoeken eerste adres 'aan' of 'CC'
	S $P(B(1),D,SRT="CC"+4)=$P($$TOCC^cA350("MAIL."_SRT,UI1MAIL),U)
	S REFRESH=1
	Q
	;
HOST(K,SWIP)	; is dit een host ?
	; SWIP = 1 : naar buiten komen met IP-adres
	N R,HOST,USC,USC,UREF,UI1,DEF,DEFIP S $ZT="TRAP^cAN000"
	S K=$$UC^cAFA1(K)
	D DMS^cAN000("UQC","USC","HOSTS",1) I UQC=""!(USC="") S R=0 G HOSTZ
	S UREF=^DMC(UQC,USC,"DATA","REF"),UI1=0,DEF=0,DEFIP=$P($G(^DPAR(0,"PAR","MAIL",0)),D,8)
HOSTA	S UI1=$O(@UREF) I UI1="" S R=DEF S:$G(SWIP) R=DEFIP G HOSTZ  ; niet gevonden
	S HOST=$G(@UREF@(0))
	S $P(HOST,D,2)=$$UC^cAFA1($P(HOST,D,2))
	I $P(HOST,D,30) G HOSTA          ; buiten gebruik
	I 'DEF,$L(DEFIP),$P(HOST,D,3)=DEFIP S DEF=UI1        ; eerst kijken met welke host def.IP overeen komt
	I 'DEF,'$L(DEFIP),$$DP^cAFA1($P(HOST,D,2))="DATAMBE" S DEF=UI1,DEFIP=$P(HOST,D,3)  ; indien niet gevonden kijken naar host datam.be
	I $P(HOST,D,2)'=K G HOSTA        ; verkeerde schrijfwijze
	S R=UI1
	I $G(SWIP) S R=$P(HOST,D,3)      ; IP-adres
HOSTZ	Q R
	;
DEL(Q,UQA,USA,UI1MAIL)	; verwijderen adressen 'aan' of 'Cc'
	N UQC,USC,UREF,IREF,UI1,IND,SW3,UXX,C,UFU
	G DELZ:$G(USA)="",DELZ:$G(UQA)="",DELZ:'$D(^DMA(UQA,USA,0,"DMS"))
	S C=^("DMS") D DMS^cAN000("UQC","USC",C) I UQC=""!(USC="") G DELZ
	S UXX=$G(^DMA(UQA,USA,0,4))
	S UREF=$G(^DMC(UQC,USC,"DATA","REF")) Q:'$L(UREF)
	S UI1=UI1MAIL_" ",SW3=1,UFU="V"
	F  S UI1=$O(@UREF) Q:$P(UI1," ")'=UI1MAIL  D
	. K B D R^cAN000 M A=B
	. D B^cAN000(130,2) ; set niveau = 2
	. I $L($P(UXX,D,2)) X $P(UXX,D,2)
	. D U^cAN000,K^cAN000 ; effectief verwijderen
DELZ	Q
	;
	;
TOP(NUI1,UI12)	;Top opmaken voor DMH(0,"MAIL.ATT"
	 N LIJN,UI12
	 S LIJN=$$SIGN^cAFA1("MAIL",NUI1,0)
	 S UTOP(1)=1_D_2_D_$P($T(@("T3"_QT)),U,2)_D_4
	 S UTOP(1.1)=1_D_12_D_": "_$P(LIJN,D)_D_0		;nummer
	 S UTOP(2)=2_D_2_D_$P($T(@("T3"_QT)),U,3)_D_4
	 S UTOP(2.1)=2_D_12_D_": "_$P(LIJN,D,3)_D_0		;van
	 S UTOP(3)=3_D_2_D_$P($T(@("T3"_QT)),U,4)_D_4
	 S UTOP(3.1)=3_D_12_D_": "_$P(LIJN,D,7)_D_0		;onderwerp
	 S UTOP(4)=1_D_31_D_$P($T(@("T3"_QT)),U,5)_D_4
	 S UTOP(4.1)=1_D_40_D_": "_$P(LIJN,D,9)_" - "_$P(LIJN,D,10)_" - "_$P(LIJN,D,11)_D_0		;aanvraag
	 S UTOP(5)=2_D_31_D_$P($T(@("T3"_QT)),U,6)_D_4
	 S UTOP(5.1)=2_D_40_D_": "_$P(LIJN,D,2)_D_0		;aan
	 S UTOP(6)=1_D_67_D_$P($T(@("T3"_QT)),U,8)_D_4	
	 S UTOP(6.1)=1_D_72_D_": "_$P(LIJN,D,19)_D_0		;Type
	 I $G(UI12) D 
	  .S UTOP(7)=4_D_2_D_$P($T(@("T3"_QT)),U,7)_D_4
	  .S UTOP(7.1)=4_D_12_D_": "_$$SIG^cAFA1("MAIL.ATT",UI12,102)_D_0		;onderwerp
	 S OK=0
TOPZ	Q
	;
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
ZZ	; 18.05.04 - 15 u 48 * V8