cA351 ;Logboek Mail ;%A351 [ 03/22/00  9:49 AM ]
 ;
T0 ;Logboek Mail ;
T1 ;Entries\"[] = enkel de niet verstuurde   1[] = alle";
 ;
T0F ;Journal courier ;     
T1F ;Entrées\"[] = seulement les messages non envoyés   1[] = tous les messages";
 ;
T0E ;Logboek Mail ;
T1E ;Entries\"[] = enkel de niet verstuurde   1[] = alle";
 ;
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
 ;
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) ; is dit een host
 N HOST
 S HOST=$$UR^cAFA1("HOSTS",102,K)
 I HOST="" Q 0                           ; niet gevonden
 I $$SIG^cAFA1("HOSTS",HOST,130) Q 0     ; buiten gebruik
 I $$SIG^cAFA1("HOSTS",HOST,102)'=K Q 0  ; verkeerde schrijfwijze
 Q HOST
 ;
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
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84