TKFAXQP ;PG&A,TK-FAX,2.10,PRINT COPY;17AUG93 12:16P [ 11/22/2000  10:45 AM ]
 ;
A N (A,PTR) S DV=$P(PTR,"\"),Y=$P(PTR,"\",2)
 I DV]"",Y=""!(Y["TKFAXQP"),$D(^TKWP) S CP=1,PG="ALL",DOC="^TKFAXQ(""SRC"","_A_")",Y("XECUTE")="S HD="""_$S(Y="":"B^TKFAXQP",1:Y)_";*"",JOB="_A G QUEUE^TKWPP8
 I DV="",Y["TKFAXQP" Q
 G:Y]"" @Y Q:DV']""  O DV::0 E  Q
 U DV S JOB=A,APN=1 D B S A=.03,OFF=5 W !! F J=1:1 S A=$O(@DOC@(A)) W ?OFF,^(A),!
 C DV Q
 Q
B ; DEFAULT HEADER
 S:'$D(OFF) OFF=0 W $C(13),?OFF," TK-FAX Job: ",JOB,?OFF+22,"From: ",$E($P(^TKFAXQ("DIR",1000000-JOB),"\",11),1,20),?OFF+60,$J("Pg "_APN_"/"_$P(^(1000000-JOB),"\",9),10)
 W !?OFF," To: ",$E($P(^(1000000-JOB),"\",13)_"  "_$P(^(1000000-JOB),"\",32),1,50),?OFF+55,$J($P(^(1000000-JOB),"\",4),15)
 W !?OFF," ",$P(^(1000000-JOB),"\",3),?OFF+26,"Usage: ",$P(^(1000000-JOB),"\",8),?OFF+45,$J("Sent: "_$P(^(1000000-JOB),"\",7),25)
 W !?OFF F A=1:4:70 W "===="
 Q
C ; HEADER FOR CANON PRINTERS
 S:'$D(TK("d")) TK("d")=$S('$D(^("DATEF")):0,1:^("DATEF"))
 W $C(13),?4,"TK-FAX Job: ",JOB,?28,"Fax #: ",$P(^TKFAXQ("DIR",1000000-JOB),"\",4),"  ",$P(^(1000000-JOB),"\",5),?69,$J("PG "_APN_"/"_$P(^(1000000-JOB),"\",9),10)
 W !,?4 I $P(^(1000000-JOB),"\",3)'["Sen" W $C(27),"[7m ",$P(^(1000000-JOB),"\",3)," ",$C(27),"[27m",$C(13)
 E  W $P(^(1000000-JOB),"\",3)
 D DATE W ?28,"Usage:",$P(^(1000000-JOB),"\",8),?55,$J("Sent: "_$P($P(^(1000000-JOB),"\",7)," ")_Y_$P($P(^(1000000-JOB),"\",7)," ",2),24)
 W ! Q
 ;
D ; ALTERNATE LOGIC
 S DONE=1 Q
DATE S K=$P(^(1000000-JOB),"\",28)+306,Y=4*K+3\1461,D=K*4+3-(1461*Y)+4\4,M=5*D-3\153,D=5*D-3-(153*M)+5\5,M=M+2,Y=M\12+Y-60,M=M#12+1,K="/" S:TK("d") K=M,M=D,D=K,K="." S Y=Y*100+M*100+D,DT=$E(Y,3,4)_K_$E(Y,5,6)_K_$E(Y,1,2) K K,M,D Q
 ;