TKFAX ;PG&A,TK-FAX,2.10,MENU DRIVER;6JAN94 10:51A [ 11/22/2000  3:42 PM ]
C ;;Copyright (C) 1991-1994, Patterson, Gray and Associates Inc.
 D:$D(TKX)+$D(TK("ECHO-ON"))+$D(XX)'=3 SETUP S:'$D(TK(3)) TK(3)=$$IO^cQ5
 I $D(^TKFAXC("FAX"))=0 D ^TKFAXI S ^TKFAXC("FAX")="4\\\ATDT\0"
TITLE D HEAD K CHR,TRM,LNG,PAT
 ;S %R=3,%C=5 W TK("LO"),@TKP,"Version ",$P($T(TKFAX),",",3),"  ",$P($T(C),";;",2) S cp=1
T1 S %R=3,%C=35 W TK("LO"),@TKP,"Version ",$P($T(TKFAX),",",3) S cp=1
 K PASS S Y=$S('$D(TK(9)):"SYSTEM MANAGEMENT OPTIONS\Document Control\Modem Status\Configuration\PhoneBook Edit\Reports\Suspend/Resume Service\Quit\DMCPRSQ",1:@TK(9)@(18)) D SEL G:J=NE END I J>NE D HEAD G T1
 I J=2 S BL=22 D STATUS^TKFAXU G T1
 I J=1 D T4 G T1
 I J=3 D T3 G T1
 I J=4 S BL=23 D ^TKFAXQ2 G T1
 I J=5 D T2 G T1
 I J=6 D SUSPEND^TKFAXU G T1
 G T1
T2 S Y=$S('$D(TK(9)):"R E P O R T S\Fax/Modem Statistics\Initiator Statistics\Destination Statistics\Error Reports\Quit\FIDEQ",1:@TK(9)@(62)) D SEL Q:J=NE  I J>NE D HEAD G T2
 S TYP=3,BL=23,NX=5,SEL=0 I J=1 S EX="FAX" D ^TKFAXS G T2
 I J=2 S EX="INIT" D ^TKFAXS G T2
 I J=3 S EX="DEST" D ^TKFAXS G T2
 I J=4 K EX S TYP=5 D ^TKFAXS G T2
 G T2
T3 I '$D(PASS),$D(^TKFAXC("PASS")) D PASSWD E  K PASS Q
 S Y=$S('$D(TK(9)):"C O N F I G U R A T I O N    O P T I O N S\Basic System Parameters\Device Definition\System Defaults\Initialization\Font Editor\Test Modem Communication\Create and Send Test Fax\Modify Password\Quit\BDSIFTCMQ",1:@TK(9)@(63))
 D SEL Q:J=NE  I J>NE D HEAD G T3
 I J=1 D BEG2^TKFAXP G T3
 I J=2 D BEG1^TKFAXP G T3
 I J=4 D ^TKFAXI G T3
 I J=5 D ^TKFAXE G T3
 I J=3 D BEG3^TKFAXP G T3
 I J=6 D ^TKFAXD3 G T3
 I J=7 D T^TKFAXD3 G T3
 I J=8 D PASSWD^TKFAXU G T3
 G T3
T4 S Y=$S('$D(TK(9)):"D O C U M E N T   C O N T R O L\Status Screen\Resend Fax\Cancel Fax\Quit\SRCQ",1:@TK(9)@(64)) D SEL Q:J=NE  I J>NE D HEAD G T4
 S NX=5,BL=22,EX="I 0",TFM=0,TYP=1
 I J=1 S SEL=0 D ^TKFAXS G T4
 I J=2 D RESEND^TKFAXQ G T4
 I J=3 D CANCEL^TKFAXQ G T4
 G T4
T5 S Y=$S('$D(TK(9)):"T E S T   O P T I O N S\Send Test Fax\Test Modem Communication\Quit\STQ",1:@TK(9)@(65)) D SEL Q:J=NE  I J>NE D HEAD G T5
 I J=1 D NA G T5
 I J=2 D ^TKFAXD3 G T5
 G T5
 ;
SEL S %R=1,%C=20,J=$P(Y,"\"),Y=$P(Y,"\",2,99) W @TKP,$J("",44) S %C=84-$L(J)\2 W @TKP,TK("HI"),J,!! W:$D(cp) ! k cp W TK("CS")
 S L=$P(Y,"\",$L(Y,"\")),NE=$L(L),(TC,%C)=$L($P(Y,"\",1,NE))\NE\-2+35,TR=NE\-2+10 F I=1:1:NE S X=$P(Y,"\",I),%R=I+TR W @TKP,TK("HI"),$E(X),"  ",TK("LO"),X
FIND S I="",CN=1
LEV S %R=24,%C=7,X="[ Select *option* and press *RETURN*, use *HELP KEY* for on-line help ]" S:$D(TK(9)) X=@TK(9)@(3)
 W @TKP,TK("LO") F J=1:2:$L(X,"*") W $P(X,"*",J),TK("HI"),$P(X,"*",J+1),TK("LO")
 I $D(^TKFAXC("SUSPEND")) S %R=21,%C=28 W @TKP,TK("RON")," ",$S($D(TK(9)):$P(@TK(9)@(32),"\",9),1:"MODEM ACTIVITY SUSPEND")," ",TK("ROF")
 ;
ASK S J=1,%C=TC-4 X ^TK("ECHO-OFF")
A1 S %R=TR+J,X=$P(Y,"\",J) W @TKP,TK("HI"),"==> ",$E(X),"  ",X,@TKP,"==> "
A2 R C#1 X TK("T") S A=ZF I C'="" S:C?1L C=$C($A(C)-32) I L[C D A3 S J=$F(L,C)-1 G A1:^TK("MENU"),DONE
 I A=TK("UK") D A3 S J=$S(J>1:J-1,1:NE) G A1
 I C=" "!(A=TK("DK")) D A3 S J=$S(J<NE:J+1,1:1) G A1
 I ZF=$C(13) G DONE
 I C=".",$D(^TKFAXC(99)) S:$D(TK(9)) C=$P(TK(9),",",3)+1 S:'$D(^TKFAXC(99,1,C)) C=1 S TK(9)="^TKFAXC(99,"_(TK["VT")_","_C_")",^TKFAXC(98,$I)=C S J=99 G DONE
 I XX[A S C=$E(XX,$F(XX,A)) I C="E" S J=NE G DONE
 G A2
A3 W $C(8,8,8,8),"    ",TK("HI"),$E(X),TK("LO"),"  ",X Q
DONE K TR,TC,X,C X ^TK("ECHO-ON") W TK("HI") Q
 Q
HEAD W TK("F") S %R=1,%C=2 I $D(TK("a"))=0 W TK("LO"),@TKP,TK("RON")," D A T A - M " S %C=70 W @TKP,"  TK-FAX  ",TK("ROF"),!
 E  S A=$P(TK("a"),"`"),I=$P(TK("a"),"`",2),%C=18 W @TKP,I,$C(13)," ",TK("HI"),A,"P ",I,A,"G ",I,A,"& ",I,A,"A ",I S %C=71 W @TKP,A,"TK-FAX ",I,!
 W TK("G1") S J=TK("HL"),J=J_J_J_J F I=1:1:20 W J
 W TK("G0") Q
SETUP D:$D(TK)+$D(TKX)'=12 FUNC^TKDEV S TK("ECHO-ON")=^TK("ECHO-ON"),TK("ECHO-OFF")=^TK("ECHO-OFF")
 X ^TK("TERM-ON"),^TK("WRAP-OFF") S %R=23,%C=1 I $D(^TKFAXC(95,TK,1)) S XX=^(4)
 D:'$T SETUP^TKFAXU I $D(TK(9)),TK(9)["TKWP" S $P(TK(9),"(")="^TKFAXC" Q
 K TK(9) I $D(^TKFAXC(98,$I))#2 S:^TKFAXC(98,$I)>1 TK(9)="^TKFAXC(99,"_(TK["VT")_","_^($I)_")"
 Q
NA S %R=24,%C=1 W @TKP,TK("CL"),"Option not available" H 1 Q
END X ^TK("WRAP-ON"),^TK("TERM-OFF") K TK(9),TFM,NX,BL,NE,BL,XX,CN,A,B,I,J,S Q
PASSWD S %R=20,%C=23 W @TKP,"Enter Password ____________" X TK("ECHO-OFF") S %C=38,X="" W @TKP F J=1:1:12 R B#1 Q:B=""  S X=X_B W "_"
 X TK("ECHO-ON") I $D(^TKFAXC("PASS")),X=^("PASS") S PASS=X Q
 Q:X=""  S %C=55 W @TKP,"INVALID PASSWORD" H 2 W @TKP,TK("CL") Q