TKFAXU ;PG&A,TK-FAX,2.10,UTILITIES;6JAN94 10:47A [ 11/17/2000   5:55 PM ]
 ;Copyright (C) 1991-1994 Patterson, Gray and Associates Inc.
SUSPEND S S=$D(^TKFAXC("SUSPEND"))+2
 K Y S YY=$S('$D(TK(9)):"Do you want to \SUSPEND\RESUME\ Modem Activity\Yes\No\Completed\no change\MODEM ACTIVITY SUSPENDED",1:@TK(9)@(32)),Y(0)="\EX",Y="15,15\KRHLY\1"
 S Y(1)="*",Y(2)="*"_$P(YY,"\")_$P(YY,"\",S)_$P(YY,"\",4),Y(3)="*",Y(4)=$P(YY,"\",5),Y(5)=$P(YY,"\",6)
 D ^TKFAXU2 S X=X=4&(X'[";EX") K Y S Y="30,16\RW3\1\\\"_$P(YY,"\",8-X) I X=1 S:S=2 ^TKFAXC("SUSPEND")="" K:S=3 ^TKFAXC("SUSPEND")
 D ^TKFAXU2 K X,Y,S Q
 ;
SETBAUD Q
 I ^TK("OS")="MSM" U DV:(:::::::$S(BAUD=2400:8347,1:8350)) Q  ;8347
 I ^TK("OS")="DTM" U DV:(SPEED=BAUD) Q
 I ^TK("OS")="PSM" U DV:(:::$S(BAUD=2400:43544,1:60952)) Q
 Q
SET S:'$D(DV) DV=16 G SETBAUD
 ;
TDATE S DT=$H D DATE,TIME S:DT["." DTM=$P(DT,".",1,2)_" "_TM S:DT["/" DTM=$P(DT,"/",1,2)_" "_TM Q
TIME S TM=$P($H,",",2),H=TM\3600,TM=TM#3600\60,TM=$E(H+100,2,3)_":"_$E("0"_TM,$L(TM),3) Q
 ;         
DATE ; not Y2K compliant
 ;; S K=DT+306,YR=4*K+3\1461,D=K*4+3-(1461*YR)+4\4,MT=5*D-3\153,D=5*D-3-(153*MT)+5\5,MT=MT+2,YR=MT\12+YR-60,MT=MT#12+1,K="/",DT=MT
 ;; S:$S($D(^TK("DATEF")):^("DATEF"),1:0) K=DT,DT=D,D=K,K="." S DT=YR*100+DT*100+D,DT=$E(DT,3,4)_K_$E(DT,5,6)_K_$E(DT,1,2) K K,D Q
 ;; not Y2K compliant
 ;; S %DN=DT D 300^%DO S DT=$TR("GH.EF.ABCD","ABCDEFGH",%DS),MT=$P(DT,".",2),YR=$P(DT,".",3)
 ; Y2K compliant
 S DT=$$HD^cAFD1(DT),MT=$P(DT,".",2),YR=$P(DT,".",3)
 Q
 ;
DEDATE S H=$P($H,",",2)\90+($H*1000) S X=H\1000 D CAL Q
 ;
CAL ; not Y2K compliant
 ;; S m=X,o=$S(m<21609:14915,1:-21609),m=m+o,y=4*m+3\1461,d=m*4+7-(1461*y)\4,m=5*d-3\153,d=5*d+2-(153*m)\5,m=m+3 S:m>12 m=m-12,y=y+1 S y=$S(o=14915:y+1800,1:y+1900)
 ;; S:TK("d") D=$E(0,d<10)_d_"."_$E(0,m<10)_m S:TK("d")=0 D=$E(0,m<10)_m_"/"_$E(0,d<10)_d
 ;; S D=D_$S(TK("d"):".",1:"/")_$S('$D(ln):$E(y,3,4),ln<10:$E(y,3,4),1:y)
 ;; not Y2K compliant
 ;; S %DN=X D 300^%DO S D=$TR("GH.EF.ABCD","ABCDEFGH",%DS),d=$P(D,"."),m=$P(D,".",2),y=$P(D,".",3)
 ; Y2K compliant
 S D=$$HD^cAFD1(X),d=$P(D,"."),m=$P(D,".",2),y=$P(D,".",3)
 Q
 ;
DELAY S Y=$S('$D(TK(9)):"ECONOMY\DELAYED DIALING\Wait Until\Delay Until\Date\Time\use cursor keys to change\and Press RETURN to send",1:@TK(9)@(24))
 S %R=BL-8,Y="40\DLCW\1\ "_$S(X(9)="":$P(Y,"\"),1:$P(Y,"\",2))_" *\\*,    "_$S(X(9)="":$P(Y,"\",3),1:$P(Y,"\",4))_"-   *,*,   "_$P(Y,"\",5)_":*,   "_$P(Y,"\",6)_":*,*,"_$P(Y,"\",7)_"*" X "N X D ^TKFAXU2"
 D TIME S STM="",(MIND,DT)=+$H,TM=$TR(TM,":","")\10*10+550010 S:$E(TM,5)=6 TM=TM+40 S TMN=TM
 S ZF=33 F JJ=1:1:3 D:JJ=1 DTN D:JJ=2 TMN S JJ=$S(ZF=33:0,ZF=57:3,ZF=34&(JJ=1):JJ,ZF=13:JJ,1:JJ-1)
 K JJ,MIN,MIND,PAT,RND,TMN Q:ZF=57  S STM=$E(TM,3,4)*60+$E(TM,5,6)*60\90+(DT*1000) Q
DTN S %R=BL-4,%C=54,X=DT,MIN=MIND,IN=1,RND="D CAL",PAT="D" D CAL,DTM S DT=X Q
TMN S %R=BL-3,%C=54,X=TM,PAT="$E(X,3,4),"":"",$E(X,5,6)",IN=10,MIN=$S(DT>$H:0,1:TMN),RND="S:69[$E(X,5) X=X+$S($E(X,5)=9:-40,1:40) S:$E(X,3,6)=2400 X=550000 S:$E(X,3,6)=9950 X=552350" X RND D DTM S TM=X Q
DTM X ^TK("ECHO-OFF") W TK("HI") F J=1:1 W @TKP,@PAT R A#1 I A="" X TK("T") S ZF=$A(^TK(.3,TK,0),$F(^(0),ZF)) S X=X+$S(ZF=35:IN,X'>MIN:0,ZF=36:-IN,1:0) X RND Q:"13,33,34"[ZF  I ZF=57 S X="" Q
 X ^TK("ECHO-ON") Q
 ;
STATUS S YY=$S('$D(TK(9)):"FAX/MODEM STATUS\FAX/MODEM\PORT\JOBS QUEUED\Press RETURN\Active\Inactive\Available\Unavailable\Operations Suspended",1:@TK(9)@(4))
 S %R=BL-11,Y="10\DLCY\1\"_$P(YY,"\")_"\\",Y(1)="*",Y(2)="*"_$P(YY,"\",2)_$J("",20-$L($P(YY,"\",2)))_"TK-FAX"_$J("",8)_$P(YY,"\",3)_$J("",10-$P(YY,"\",3))_$P(YY,"\",4),Y(3)="*",X=^TKFAXC("FAX")
 S M=4 F J=1:6:19 S F=$P(X,"\",J) I F'="" D ST1 S M=M+1
 S Y(M)="*" I $D(^TKFAXC("SUSPEND")) S M=M+1,Y(M)=$P(YY,"\",10)_"*"
 S Y(M+1)=$J($P(YY,"\",5),25) D ^TKFAXU2 K Y Q
ST1 S Y(M)="*"_F_$J("",19-$L(F)) L TKFAX(0):0 L  S Y(M)=Y(M)_$J($P(YY,"\",6+$T),7) O F::0 C:$T F S Y(M)=Y(M)_$J($P(YY,"\",9-$T),15)
 S (L,A)="" F K=0:1 S A=$O(^TKFAXQ(.9,A)) Q:A=""  S:^(A)=F L=L+1
 S Y(M)=Y(M)_$J((+L_"/"_K),55-$L(Y(M))) Q
 ;
RESTART L TKFAX(FAX):0 I  J ^TKFAXC L
 Q
PASSWD S %R=3,%C=1 W @TKP,TK("CS") S %R=10,%C=30 W TK("LO"),@TKP,"Password: ",TK("HI") S %C=40,LNG=12,UC=1,X=$S($D(^TKFAXC("PASS")):^("PASS"),1:"") W X X ^TKREAD
 S:X'="" ^TKFAXC("PASS")=X K:X="" ^TKFAXC("PASS") Q
 S %C=50 W @TKP,"INVALID PASSWORD" H 2 W @TKP,TK("CL") Q
 ;
SETUP ;
 D:$D(^TK(.1,TK,1))=0 END^TKDEV4 Q:$D(^TK(.1,TK,1))=0  S XX=$C(13)_"F"_$C(9)_"9"_$C(127)_"R"_$C(126)_"2" F I=1:1:6 S XX=XX_TK($P("UK,DK,RK,LK,INK,DLK",",",I))_$E("ABCDGH",I)
 S B=^TK(.1,TK,2),(X1,X2)="" F I=1:1:22,25,26 S D=$P(B,"`",I) S:D'="" C="C=$C("_D_")",@C,C=C_$P("O;P;Q;U;N;I;J;5;3;Y;1;T;X;V;Z;6;K;4;E;W;7;M;;;L;8",";",I) S:D["," X2=X2_C S:D'["," X1=X1_C S:I=15 B=^(3)
 S XX=XX_X1_$C(8)_"R"_X2_$C(26,48,23,48,2,48,24)_"E"_$C(11)_"N",^TKFAXC(95,TK,4)=XX,^TKFAXC(95,TK,5)=^TK(.1,TK,5),^TKFAXC(95,TK,6)=^TK(.1,TK,6),^TKFAXC(95,TK,1)=^TK(.1,TK,1) X ^(1)
 Q
S2 S (XS,TK("uo"),TK("uf"),TK("ron"),TK("rof"),TK("gon"),TK("gof"),TK("fon"),TK("fof"))=$C(27),XSL=1 Q