TKFAXQS ;SCAN TK-FAX QUEUE ;TKFAXQS; [ 11/22/2000  12:26 PM ]
 G YZ
 ;
T0 ;SCAN TK-FAX-QUEUE ;
 ;
T0F ;SCAN TK-FAX-QUEUE ;
 ;
START N A,B,DA,HO,K,T
 D QQM^cQ6 S QU="SU",NOW=+$P($H,",",2)/86400+$H,K=0,SW=0
 S T=60*30   ;meer dan 30 minuten tussen nu en queue tijd = e-mail
 F  S K=$O(^TKFAXQ("DIR",K)) Q:K=""  D  Q:SW
 . S A=^(K),B=$P(A,D,3)
 . Q:$E(B,1,4)="Sent"
 . Q:$E(B,1,4)="Page"
 . Q:$E(B,1,4)="Fail"
 . Q:$E(B,1,4)="BUSY"
 . Q:$E(B,1,5)="ERROR"
 . Q:$E(B,1,6)="CANCEL"
 . Q:$E(B,1,7)="Dialing"
 . ;Q:$E(B,1,8)="NO-ANSWR"
 . S DELTA=$P(A,D,25) I 'DELTA S DELTA=$P($H,",",2)
 . S DELTA=NOW-(DELTA/86400+$P(A,D,28)) I DELTA<0 S DELTA=-DELTA
 . S DELTA=DELTA*86400 Q:DELTA<T
 . S MEL(1)="Check TK-FAX on "_$ZU(5),MEL(2)="Cannot send fax:"
 . S MEL(3)=A,SW=1
 . D ^cANEM1("T1011",$T(+0),$P($T(+1),U,2),.MEL)
 ;
YZ Q
 ;
BG D START,LOG^cQCTK1 Q
 ;
ZZ ; 16.10.96 - 17 u 15 * 4.3.xx-r4.0.0