TKFAXS ;PG&A,TK-FAX,2.11,STATUS SCREEN;25JAN93  01:47;29DEC93 3:21P [ 03/26/01  10:49 AM ]
 ;Copyright (C) 1991-1994, Patterson, Gray and Associates Inc.
 ;
POP S P3="P3",DR="DIR",%MF=$G(%MF) I %MF S EX="I Y]"""",$P(Y,""\"")'=TK(3)"
 ;I TYP=1 D JB S LE=2,WD=78,IP="4R,3R,5R,8,15RS,5,9,11,5,2R",IPX="1,2,3,4,5,14,33,8,9,10",NY=10,Y="Job#\Dev\DOC#\Status\Fax #\To\Company\Fax Time\Usage\Pg",PX="P3A",FN=LE+25
 I TYP=1 D JB S LE=2,WD=78,IP="6R,4R,1R,8,17RS,14,11,5,2R",IPX="1,2,31,4,5,33,8,9,10",NY=10,Y="Job#\Dev\#\Status\Fax #\To\Fax Time\Usag\Pg",PX="P3A",FN=LE+24
 I TYP=2 S LE=2,WD=78,IP="6R,4R,7,15R,11,11,5,3R,4R,1R",IPX="1,24,4,5,7,8,9,27,30,31",NY=11,Y="Job#\Prt\Status\Fax #\Queue Time\Fax Time\Usage\Cnv\Line\#",PX="P3A",FN=LE+18
 ; not Y2K compliant
 ;; I TYP=3 S DT=$H D:'$D(YR) DATE^TKFAXU S LE=2,WD=78,IP="4,18,3R,3R,3R,3R,3R,3R,3R,3R,3R,3R,3R,3R,4R",NY=12,Y="Type\Description\Jan\Feb\Mar\Apr\May\Jun\Jul\Aug\Sep\Oct\Nov\Dec\19",P3="P3E"
 ; not Y2K compliant
 I TYP=3 S DT=$H D:'$D(YR) DATE^TKFAXU S LE=2,WD=78,IP="4,18,3R,3R,3R,3R,3R,3R,3R,3R,3R,3R,3R,3R,4R",NY=12,Y="Type\Description\Jan\Feb\Mar\Apr\May\Jun\Jul\Aug\Sep\Oct\Nov\Dec\",P3="P3E"
 I TYP=4 S LE=2,WD=78,IP="6R,6,15R,13,11,15,4",IPX="1,4,5,6,8,23,22",NY=10,NY=13,Y="Job#\Status\Fax #\Remote ID\Fax Time\Capabilities\Rslt",PX="P3A",FN=LE+13
 I TYP=5 S LE=2,WD=78,IP="6R,7,15R,11,33",IPX="1,4,5,7,32",NY=14,Y="Job#\Status\Fax #\Queue Time\Error",PX="P3C",FN=LE+14,DR="ERR",EX="I 0" K PG
 I TYP=6 S LE=2,WD=78,IP="6R,8,9,15,34",IPX="1,4,12,33,32",NY=15,Y="Job#\Status\Contact\Company\Subject",PX="P3A",FN=LE+41
POP1 S Y=$S($D(TK(9)):@TK(9)@(NY),1:Y)_$S(TYP=3:YR,1:""),XC="F %C=",NE=$L(IP,","),D=LE,sp=$J("",36) F J=1:1:NE-1 S D=D+$P(IP,",",J)+1,XC=XC_D_","
 S XC=$E(XC,1,$L(XC)-1)_" X D",%R=NX-2,%C=LE,B="",$P(B,TK("HL"),WD-1)="",D="W @TKP,TK(""TI"")",VL=TK("G1")_TK("VL")_TK("G0") W @TKP,TK("LO"),TK("RON"),TK("L"),@TKP,TK("G1"),TK("TLC"),B,TK("TRC") X XC
 S %C=LE,%R=%R+1 W @TKP,TK("VL"),TK("G0") F J=1:1:NE S D=$P(Y,"\",J),L=$P(IP,",",J),M=L+$L(D)\2 W $J(D,M),$J("",L-M),VL
 S %R=%R+1,D="W @TKP,TK(""X"")" W @TKP,TK("G1"),TK("LI"),B,TK("RI") X XC
 S SR=%R K:35[TYP PG S:$D(PG)>2 P=PG(PG) S:$D(PG)<3 PG=1,PG(PG)="",P=-999999 D P2
 S %R=%R+1,D="W @TKP,TK(""BI"")" W @TKP,TK("G1"),TK("BLC"),B,TK("BRC") X XC S %C=80 W @TKP,TK("G0"),TK("ROF"),TK("CS"),TK("RON")
 I SEL<0 G END
 X ^TK("ECHO-OFF")
P1 D JB S A="" I SEL=0 S %C=1,%R=24 W @TKP R A#1:356[TYP*99+10 X TK("T") I '$T!(A=" ") S P=PG(PG) G P4
 I SEL>0,SEL(SEL) S %R=SE(SEL),%C=FN,J=SEL(SEL),D=$J($TR($P(^TKFAXQ("DIR",J),"\",4)," -,",""),17) W @TKP,TK($S($D(JB(J)):"RON",1:"ROF")),D R A#1 X TK("T") W @TKP,TK($S($D(JB(J)):"ROF",1:"RON")),D
 S ZF=$P(^TK(.3),"\",$A(^TK(.3,TK,0),$F(^(0),ZF))+2) I A="","OT,CR,EX"[ZF W TK("ROF") X ^TK("ECHO-ON") G END
 I ZF="PU" G P1:PG=1 S PG=PG-1,P=PG(PG) G P4
 I ZF="PD" G P1:Y="" S PG=PG+1,PG(PG)=P G P4
 I '%MF,ZF="SE" D SELECT G POP
 I ZF="SE" D SELECT G POP
 G P1:SEL<1 I ZF="DK"!(A=" ") S SEL=SEL+1 S:SEL=SE SEL=1 G P1
 I ZF="UK" S SEL=SEL-1 S:SEL=0 SEL=SE-1 G P1
 G P1
P4 S %R=SR D P2 G P1
 ;
END ;K %MF,sp,NE,SE,PG,IP,WD,B,VL,D,FN,EX,JB,P3,PX,IPX,NY,Y
 Q
P2 K SE S %C=LE,SE=1 F %R=%R+1:1:BL D @P3
 Q
P3 S EX=$G(EX)
 S Y="" S:$O(^TKFAXQ(DR,P))]"" P=$O(^(P)),Y=^(P) X EX G:$T P3 I SEL>0,Y'="" S SEL=1,SE(SE)=%R,SEL(SE)=P,SE=SE+1
 W @TKP W:P]"" $S(Y]""&$D(JB(P)):TK("ROF"),1:TK("RON")) W VL G @PX
P3A ;S:Y]"" Y=1000000-P#10000_"\"_Y F J=1:1:NE S L=$P(IP,",",J),D=$P(Y,"\",$P(IPX,",",J)) W $S(L["R":$E($J($TR(D," -,",""),99),100-L,99),1:$E(D_sp,1,+L)),VL
 S:Y]"" Y=1000000-P_"\"_Y F J=1:1:NE S L=$P(IP,",",J),D=$P(Y,"\",$P(IPX,",",J)) W $S(L["R":$E($J($TR(D," -,",""),99),100-L,99),1:$E(D_sp,1,+L)),VL
 Q
P3C S:Y]"""" Y=$S($D(^TKFAXQ("DIR",P)):^(P),1:""),$P(Y,"\",31)=$E($TR(^TKFAXQ(DR,P),$C(6),""),1,35) G P3A
P3E F M=EX'="DEST"+1:1:4 S (L,Y)="" D @("P3E"_M) S %R=%R+1
 S Y=$S($O(^(P))]"":" ",1:""),%R=%R-1 I Y=""!(%R>20) F %R=%R+1:1:BL D P3E4
 Q
P3E1 D P3E5 S L=$P(P,"-"),L=$S($D(^TKFAXC("STATS",0,L)):^(L),1:"") W @TKP,VL,$J("",10),L,$J("",66-$L(L)),VL Q
P3E2 D:EX'="DEST" P3E5 D P3E6 G P3E4
P3E3 D P3E5,P3E6
P3E4 W @TKP,VL S:Y]" " T="T="_$P(Y,"+",1,12)_"+0",@T,Y=EX_"+"_L_"+"_Y,$P(Y,"+",15)=T F J=1:1:NE S L=$P(IP,",",J),D=$P(Y,"+",J) W:L["R" $J($E(D,1,+L),+L) W:L'["R" $E(D_sp,1,+L) W VL
 Q
P3E5 S:$O(^TKFAXC("STATS",YR,EX,P))]"" P=$O(^(P)) Q
P3E6 S:P'=".1" Y=^TKFAXC("STATS",YR,EX,P),L=$E($P(P,"-"),1,15)_"-"_$P(P,"-",2) I SEL>0,Y'="" S SEL=1,SE(SE)=%R,SEL(SE)=L,SE=SE+1
 Q
SEL S SEL=$O(^TKFAXQ("DIR",""))]"",EX="I 0" S:$G(%MF) SEL=0 D POP S X=$S($D(SEL(SEL)):SEL(SEL),1:"") K SEL Q
SELECT G:TYP=3 SELECT1
 I %MF S Y="40\CRHLUD\1\"_$S('$D(TK(9)):"Status Options\\*,*,*,Normal Display,Subject Display,Local Fax Info,Remote Fax Info,*",1:@TK(9)@(16)),%R=BL-8,Y(0)="\EX" D ^TKFAXU2 Q:X["EX"
 I '%MF S Y="40\CRHLUD\1\"_$S('$D(TK(9)):"Status Options\\Complete List,Individual List,*,Normal Display,Subject Display,Local Fax Info,Remote Fax Info,Error Info",1:@TK(9)@(16)),%R=BL-8,Y(0)="\EX" D ^TKFAXU2 Q:X["EX"
 S EX=$S(X=1:"I 0",X=2:"",X=8:"",1:EX) K:EX="" EX S TYP=$S(X=4:1,X=5:6,X=6:2,X=7:4,X=8:5,1:TYP) S:TYP=3 EX="FAX" Q
SELECT1 S YY=$S('$D(TK(9)):"Statistics Options\\Listed by Fax#,Listed by Initiator,Totals\Data",1:@TK(9)@(17))
 ; not Y2K compliant
 ;; S Y="40\CRHLUD\1\"_$P(YY,"\",1,3),%R=BL-7,Y(0)="\EX",X=0 F J=1:1 S X=$O(^TKFAXC("STATS",X)) Q:X=""  S Y=Y_",19"_X_" "_$P(YY,"\",4)
 ; not Y2K compliant
 S Y="40\CRHLUD\1\"_$P(YY,"\",1,3),%R=BL-7,Y(0)="\EX",X=0 F J=1:1 S X=$O(^TKFAXC("STATS",X)) Q:X=""  S Y=Y_","_X_" "_$P(YY,"\",4)
 K YY D ^TKFAXU2 Q:X["EX"
 ; not Y2K compliant
 ;; S:X<4 EX=$S(X=1:"DEST",X=2:"INIT",1:"FAX") S:X>3 YR=$P($P(Y,"\",6),",",X)-1900 Q
 ; not Y2K compliant
 S:X<4 EX=$S(X=1:"DEST",X=2:"INIT",1:"FAX") S:X>3 YR=$P($P($P(Y,"\",6),",",X)," ") Q
 ;
JB K JB S B="" F J=1:1 S B=$O(^TKFAXQ(.9,B)) Q:B=""  S JB(1000000-B)=""
 Q