TKFAXD2 ;PG&A,TK-FAX,2.10,DEVICE DRIVER - ERROR MESSAGES;26AUG93 3:37P [ 11/17/2000   5:55 PM ]
 ;Copyright (C) 1991-1994, Patterson, Gray and Associates Inc.
 ;
ERROR Q:$D(TEST)  Q:'JOB  Q:'$D(^TKFAXQ(.9,JOB))  S B=^TKFAXQ("DIR",1000000-JOB),$P(B,"\",30)=$P(B,"\",30)+1,$P(B,"\",3)=$P($T(ERRORD+ER),";",2),$P(B,"\",10)=4,$P(B,"\",24)=$P($H,",",2)+60\90+($H*1000),$P(B,"\",21)=$TR(PTS,",","")
 S ^TKFAXQ("DIR",1000000-JOB)=B S:$D(ERR) ^TKFAXQ("ERR",1000000-JOB)=ERR Q
 ;
ERRORD ;
 ;COM-ERR;NO RESPONSE FROM MODEM 
 ;FAX-ERR;FAX/MODEM FROZE
 ;NO-ANSWR;NO FAX CONNECT
 ;NO-DIAL;DIALED BUT NO DIAL TONE
 ;XMT-ERR;TRANSMISSION ERROR
 ;BUSY;REMOTE FAX IS BUSY
 ;
TT S FAX="" D GETPORT^TKFAXC S TEST=1,(JB,JOB)="" F K=1 S JOB=$O(^TKFAXQ("DIR",JOB)),I=1000000-JOB,^TKFAXQ(.9,I)="",JB=JB_I_"," U 0 W ^(I),!
 G ^TKFAXD1