cANFAX1	;PG&A,TK-FAX,2.00,QUEUE DOCUMENT;20JAN95 11:57A [ 03/20/01  2:16 PM ]
	;Copyright (C) 1991-1994, Patterson, Gray and Associates Inc.
	;
	;
START	D INIT S SEL=0,NX=14,TYP=1 I FAX="" S Y="Fax is not defined in device tables\Call system manager",Y="40\CRHL\1\\\"_$P(Y,"\")_"*,*,*,"_$P(Y,"\",2),%R=BL-10 D ^TKFAXU2 Q
	G:$S('$D(QC):0,QC=2:1,1:0) S2 S Y="Send Current Document,Resend Fax,Cancel TK-FAX Job,Document Status,Edit PhoneBook,FAX/Server Status,TK-FAX Statistics",Y="40\CRHLUD\1\TK-FAX\\"_$S($D(TK(9)):@TK(9)@(30),1:Y)
	S %R=BL-8,Y(0)="\EX" D ^TKFAXU2 G:X["EX" END
	G RESEND:X=2,CANCEL:X=3,DSTATUS:X=4,PB:X=5,SERVER:X=6,STATS:X=7
S2	K X S X(2)=FAXN,X(34)=$S($D(OVR):"S OVR="""_OVR_"""",1:""),X(7)="*",X(1)=$S($D(^TK("$I")):"",$D(^TKFAXQ(.6,TK(3))):^(TK(3)),1:"")
	S:$D(FAXTO)#2 X(4)=FAXTO S:$D(FAXSUB) X(3)=FAXSUB S:$D(FAXFROM) X(1)=FAXFROM S:$D(FAXTOF) X(5)=FAXTOF S:$D(FAXORG) X(6)=FAXORG
	S B=^TKFAXC("DEFLTS"),X(11)=$S($P(B,"\",1)="":"Y",1:$P(B,"\",1)),X(14)=$S($P(B,"\",4)="":"Y",1:$P(B,"\",4)),X(15)=$P(B,"\",5),X(16)=$P(B,"\",6)
S4	D ^TKFAXQ1 G END:X(5)="",END:FNC["EX" S C=$TR(X(5),"0123456789,- FAX","0123456789") I $L(C)>7,10'[$E(C),$S($D(TK("d")):'TK("d"),1:1) D ATT G S4:Y=7
	S FAXTO=X(4),FAXTOF=X(5),FAXFROM=X(1),FAXORG=X(6),FAXSUB=X(3) S:FAXTO'="" ^TKFAXP($TR(FAXTO,lc,uc))=FAXTOF_"`"_FAXTO_"`"_X(7)_"`"_X(8)_"`"_X(9)_"`"_X(10)_"`"_X(11)_"`"_X(12)_"`"_X(13)_"`"_X(14)_"`"_X(15)_"`"_X(16)_"`"_FAXORG
	S:'$D(^TK("$I")) ^TKFAXQ(.6,TK(3))=X(1) S STM="" I X(9)_X(10)'="" D DELAY^TKFAXU G:STM="" END
	D JOB S MESS=4 D MESS
	F C=7:1:10 I X(C)="*" S X(7)=C-6 Q
S3	D COPY,TDATE^TKFAXU S:X(7)<1 X(7)=1 S B=TK(3)_"\"_$S($L(DOC)>3:DOC,1:DIR_DOC)_"\"_$P("Regular,Priority,Delayed,Economy",",",X(7))
	S B=B_"\"_X(5)_"\\"_DTM_"\\\\1\"_X(1)_"\"_X(2)_"\"_X(4)_"\"_X(7)_"\"_X(11)_"\"_X(12)_"\"_X(13)_"\"_X(14)_"\"_X(15)_"\"_X(16)_"\\\"_FAX_"\"_STM_"\"_$P($H,",",2)_"\\\"_(+$H)_"\\\"_X(3)_"\"_X(6)_"\\"_X(34) K X
S1	S ^TKFAXQ(.9,JOB)="",^TKFAXQ("DIR",1000000-JOB)=B
	L TKFAX(0):0 I  L  J ^TKFAXC
	I $D(FNC),FNC="PD" G S2
	G:'$D(QC) START
END	K 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 S:$D(TK(9.1)) TK(9)=TK(9.1) K TK(9.1) Q
	;
ST	D SETUP^TKWP S BL=22,%R=15 G START
	;
DSTATUS	D ^TKFAXS G START
PB	D ^TKFAXQ2 G START
STATS	S TYP=3,EX="FAX" D ^TKFAXS G START
CANCEL(X)	; Cancel Fax
	S TFM=1
	S JOB=1000000-X,B=^TKFAXQ("DIR",X) Q:'$D(^TKFAXQ(.9,JOB))
	I $L($G(QU)) S $P(B,"\",11)=$P(B,"\",11)_";"_QU
	S $P(B,"\",10)=9,$P(B,"\",3)="CANCEL",^TKFAXQ("DIR",1000000-JOB)=B K ^TKFAXQ(.9,JOB)
	S MESS=2
CAN1	D MESS Q:$D(TFM)  S SEL=-1 G DSTATUS
MESS	S Y=$S('$D(TK(9)):"Fax Source has been purged,*,Must Resend from Original\JOB CANCELLED\JOB # RESENT\Document is being sent to TK-FAX,*,          Job #",1:@TK(9)@(7)) S MESS=$P(Y,"\",MESS) S:MESS["#" MESS=$P(MESS,"#")_"#"_JOB_$P(MESS,"#",2)
	; S %R=BL-6,Y=$L(MESS)\-2+50_"\DLHCW3\1\\\*,"_MESS_",*"
	S K=MESS D TXT^cAFA1(250)
	Q
RESEND(X,FAXNR)	; resend fax
	S TFM=1
	S JOB=1000000-X,B=^TKFAXQ("DIR",X) I $D(^TKFAXQ("FX",JOB))+$D(^TKFAXQ("SRC",JOB))=0 S MESS=1 G CAN1
	S X=$G(FAXNR) Q:X=""  Q:X[";EX"  S:X'="" $P(B,"\",4)=X
	I $L($G(QU)) S $P(B,"\",11)=$P(B,"\",11)_";"_QU
	S:$P(B,"\",10)=7 $P(B,"\",33)=$P(B,"\",33)+1 S $P(B,"\",10)=$S($D(^TKFAXQ("FX",JOB))#2:2,1:1),$P(B,"\",3)="READY",$P(B,"\",14)=1,FAX=$P(B,"\",23),$P(B,"\",30)="",QC=1 D S1 S MESS=3 G CAN1
JOB	L TKFAX("JOB") S JOB=$G(^TKFAXQ(.5))+1 S:JOB>999999 JOB=1 S ^(.5)=JOB L  Q
COPY	S ^TKFAXQ("SRC",JOB)=+$H,Y=0 I $D(@TKWPD@(.015))#2 S A=^(.015),C=$S($D(^(.01)):^(.01),1:76),Y=$O(^(.03)) S:Y Y=^(Y)[$C(1) S ^TKFAXQ("SRC",JOB,.015)=A,^(.01)=C
	S A=.03,C=A I Y F J=1:1 S A=$O(@TKWPD@(A)) Q:A=""  S ^TKFAXQ("SRC",JOB,J)=$P(^(A),$C(1),4) S:^(J)'="" C=J
	E  F J=1:1 S A=$O(@TKWPD@(A)) Q:A=""  S ^TKFAXQ("SRC",JOB,J)=^(A) S:^(J)'="" C=J
	I $O(^TKFAXQ("SRC",JOB,C)) F J=C+1:1:J K ^(J)
	Q
	;
SERVER	D STATUS^TKFAXU G START
INIT	S FAX=$S($D(^TKFAXC("FAX")):^("FAX"),1:""),FAXN=$P(FAX,"\",3),FAX=$P(FAX,"\"),lc="abcdefghijklmnopqrstuvwxyz",uc="ABCDEFGHIJKLMNOPQRSTUVWXYZ" S:'$D(TK(3)) TK(3)=$$IO^cQ5
	I $D(TK(9)),TK(9)["TKWP" S TK(9.1)=TK(9),$P(TK(9),"(")="^TKFAXC"
	Q
ATT	S %R=BL-7,Y="35\LHCD\1\Fax Number Check: "_X(5)_"\\*,Select one-*,*,Add  1    to the number,Add  011  to the number,Use the number as is,Return" X "N X D ^TKFAXU2 S Y=X" S:Y=4 X(5)=1_X(5) S:Y=5 X(5)="011"_X(5) Q
	;
QUEUE	D INIT S DIR="",FAXPARAM=$TR(FAXPARAM,"\","|") F J=1:1:18 S X($P("1,2,3,4,5,6,7,18,11,12,13,14,15,16,19,20,17,34",",",J))=$P(FAXPARAM,"`",J)
	S DOC=X(17),STM=X(18),QC=1 D JOB G S3
DIRECT	D:'$D(TK) FUNC^TKDEV X ^TK("TERM-ON"),^TK("WRAP-OFF") S:'$D(BL) BL=22 S:'$D(DOC) DOC="" S:'$D(DIR) DIR="" S:'$D(QC) QC=1 D START X ^TK("WRAP-ON"),^TK("TERM-OFF") Q  ; may also set OVR, QC=2 means no menu
STATUS	S:'$D(JOB) JOB=1 I JOB,$D(^TKFAXQ("DIR",1000000-JOB)) S JOB=$P(^(1000000-JOB),"\",3)
	Q
	;
ZZ	; 30.03.01 - 13 u 39 * V7.85