TKFAXP ;PG&A,TK-FAX,2.10,PARAMETERS;31AUG93 9:56A [ 11/17/2000   5:55 PM ]
 ;Copyright (C) 1991-1994, Patterson, Gray and Associates Inc.
BEG1 N YY D GETY S OLD=$S($D(^TKFAXC("FAX")):^("FAX"),1:""),DATA="DATA1",NE=20 D GETY1,BEGX S:OLD'=NEW ^TKFAXC("FAX")=NEW G END
 ;
BEG2 N YY D GETY S $P(Y,"\")=$P(Y,"\",2),OLD="\\\1\.5\11\8.5\2\2\30\90\1",OLD=$S($D(^TKFAXC("CONFIG")):^("CONFIG"),1:OLD),DATA="DATA2",NE=14,OTXT="",TT=$P(OLD,"\",2) D TT S OTXT=TT D GETY2,BEGX,FTR S:NEW'=OLD ^TKFAXC("CONFIG")=NEW G END
BEG3 N YY D GETY S $P(Y,"\")=$P(Y,"\",3),OLD=$S($D(^TKFAXC("DEFLTS")):^("DEFLTS"),1:"P\N\N\Y\A\9\3"),DATA="DATA3",NE=7 D GETY3,BEGX S:NEW'=OLD ^TKFAXC("DEFLTS")=NEW G END
BEGX S %R=1,%C=20 W @TKP,$J("",44) S %C=82-$L($P(Y,"\"))\2 W @TKP,$P(Y,"\") S NEW=OLD,%R=3,%C=2 W @TKP,TK("CS"),TK("LO")
 S L=".................................................................",PX=0 G ^TKFAXP1
END K TT,SS,PP,YY,NEW,OLD,PX Q
GETY1 S YY=$S('$D(TK(9)):"Fax/Modem #* ($I value)\Deactivate #*\Phone # for Fax/Modem #*\Dialing Prefix (ATDT or ATDP)\Speaker (0 or 1)\",1:@TK(9)@(74))
 F J=1:1:4 S YY(J)=$TR(YY,"*",J)
 Q
GETY2 S YY(1)=$S('$D(TK(9)):"Site Name\Footer Message\Custom Logo File\Confirmation Device\Confirmation Routine\Top Margin (inches)\Left Margin (inches)",1:@TK(9)@(72))
 S YY(2)=$S('$D(TK(9)):"Page Length (inches)\Page Width (inches)\Source File Retention (days)\Fax File Retention (days)\Error File Retention (days)\Directory Retention (days)\Maximum Background Jobs",1:@TK(9)@(73)) Q
 ;
GETY3 S YY(1)=$S('$D(TK(9)):"Cover Sheet (Y,N,P)\Page #s (Y,N)\Border (Y,N)\Full Page (Y,N)\Font (A,B,C,D)\Transmission Speed (4,7,9)\Retry Count",1:@TK(9)@(76))
 Q
GETY S Y=$S('$D(TK(9)):"F A X / M O D E M   P A R A M E T E R S\B A S I C   C O N F I G U R A T I O N\S Y S T E M   D E F A U L T S\Type *E*dit format or press *EXIT KEY* to quit\Edit fields as needed - Press *EXIT* to quit\",1:@TK(9)@(66)) Q
FTR S TXT="",TT=$P(NEW,"\",2) D TT S TXT=TT I TXT'=OTXT S %R=22,%C=5 W @TKP,"Wait." D INTZ^TKFAXIN1 D:TXT'="" FT^TKFAXD
 Q
TT S TT=$S(TT="":"",$E(TT)'="^":TT,$D(@TT)#2:@TT,1:"") Q