cANFAX(IO) ;TKFAX overzicht;%ANFAX [ 01/04/01  11:30 AM ]
 ;
T0 ; Faxoverzicht ;
T1 ;Herzend naar faxnummer;
 ;
T0F ; Apperçu des fax ;
T1F ;Renvoyer a numéro de fax;
 ;
T0E ; Fax survey ;
T1E ;Resend to fax number;
 ;
1 D BS^cAN210("FAX","0","0","0","")              
 ;
YZ Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q
 ;
CANCEL(SW)          ; Cancel Fax        
 N FAXNR,TIT,TYP,BL,NX,SEL,TFM,%MF,FAX,FNC,B,X,lc,H,I,J,MESS,A,C,NE,R,Y,YR,MT,SEL,RX,RD,TM,DTM,DT,TKC,QC,STM,TK
 D O^cA612(23,1,1,80,0,0,0,0) W @F11,@F1
 D CANCEL^cANFAX1(SW)
 D C^cA612
CANCELZ Q
 ;
RESEND(SW)          ; Opnieuw verzenden van de Fax        
 N FAXNR,TIT,TYP,BL,NX,SEL,TFM,%MF,FAX,FNC,B,X,lc,H,I,J,MESS,A,C,NE,R,Y,YR,MT,SEL,RX,RD,TM,DTM,DT,TKC,QC,STM,TK
 S FAXNR=$P(@UREF,D,4)
 S R="FAXNR\22\3\"_$P($T(@("T1"_QT)),U,2)_"\\18\\$L(K)\\\\\1" D R0 I K="-"!'$L(K) G RESENDZ
 S $P(@UREF,D,4)=FAXNR
 D O^cA612(23,1,1,80,0,0,0,0) W @F11,@F1
 D RESEND^cANFAX1(SW,FAXNR)
 D C^cA612
RESENDZ Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84